Power-Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Power-Programmierung / CD1.mdf / pascal / library / dos / strings / faststr / str40.dis < prev next >

Wrap

Text File | 1994-06-19 | 71.4 KB | 1,316 lines

Module: STRINGS.PAS Group: 'DGROUP' _DATA,_BSS Segment: STRINGS_TEXT PARA 0000099c bytes 0000 STRINGS_000: 0000 89 e5 STRINGS_INIT mov bp,sp 0002 81 ec 00 03 sub sp,0300H 0006 8d be 00 fd lea di,-300H[bp] 000a 16 push ss 000b 57 push di 000c bf 00 00 mov di,offset STRINGS_DATA 000f 1e push ds 0010 57 push di 0011 8d be 00 ff lea di,-100H[bp] 0015 16 push ss 0016 57 push di 0017 b0 84 mov al,84H 0019 50 push ax 001a b0 be mov al,0beH 001c 50 push ax 001d 0e push cs 001e e8 00 00 call STRINGS_01E 0021 8d be 00 fe lea di,-200H[bp] 0025 16 push ss 0026 57 push di 0027 b0 20 mov al,20H 0029 50 push ax 002a b0 5a mov al,5aH 002c 50 push ax 002d 0e push cs 002e e8 00 00 call STRINGS_01E 0031 0e push cs 0032 e8 00 00 call STRINGS_017 0035 bf 00 00 mov di,offset STRINGS_DATA 0038 1e push ds 0039 57 push di 003a b8 3c 00 mov ax,003cH 003d 50 push ax 003e 9a 00 00 00 00 call far SYSTEM_00C 0043 89 ec mov sp,bp 0045 cb retf 0046 ABBREV: 0046 55 STRINGS_001 push bp 0047 8b ec mov bp,sp 0049 8c da mov dx,ds 004b c5 76 08 lds si,dword ptr +8H[bp] 004e b4 01 mov ah,01H 0050 fc cld 0051 ac lodsb 0052 8a 4e 06 mov cl,+6H[bp] 0055 3a c1 cmp al,cl 0057 72 15 jb L1 0059 c4 7e 0c les di,dword ptr +0cH[bp] 005c 8a c8 mov cl,al 005e 26 8a 05 mov al,es:[di] 0061 47 inc di 0062 3a c1 cmp al,cl 0064 72 08 jb L1 0066 32 ed xor ch,ch 0068 e3 06 jcxz L2 006a f3 a6 repe cmpsb 006c 74 02 je L2 006e 32 e4 L1 xor ah,ah 0070 8a c4 L2 mov al,ah 0072 8e da mov ds,dx 0074 5d pop bp 0075 ca 0a 00 retf 000aH 0078 CENTER: 0078 55 STRINGS_002 push bp 0079 8b ec mov bp,sp 007b 1e push ds 007c fc cld 007d 8a 4e 08 mov cl,+8H[bp] 0080 32 ed xor ch,ch 0082 8a 46 06 mov al,+6H[bp] 0085 c4 7e 0e les di,dword ptr +0eH[bp] 0088 26 88 0d mov es:[di],cl 008b 47 inc di 008c c5 76 0a lds si,dword ptr +0aH[bp] 008f 8a 14 mov dl,[si] 0091 46 inc si 0092 8a f1 mov dh,cl 0094 2a f2 sub dh,dl 0096 76 17 jbe L3 0098 8a de mov bl,dh 009a 80 e3 01 and bl,01H 009d d0 ee shr dh,1 009f 8a ce mov cl,dh 00a1 f3 aa repe stosb 00a3 8a ca mov cl,dl 00a5 f3 a4 repe movsb 00a7 8a ce mov cl,dh 00a9 02 cb add cl,bl 00ab f3 aa repe stosb 00ad eb 02 jmp L4 00af f3 a4 L3 repe movsb 00b1 1f L4 pop ds 00b2 5d pop bp 00b3 ca 08 00 retf 0008H 00b6 COMPARE: 00b6 55 STRINGS_003 push bp 00b7 8b ec mov bp,sp 00b9 8c da mov dx,ds 00bb c5 76 0a lds si,dword ptr +0aH[bp] 00be c4 7e 06 les di,dword ptr +6H[bp] 00c1 8a 1c mov bl,[si] 00c3 26 8a 3d mov bh,es:[di] 00c6 46 inc si 00c7 47 inc di 00c8 8a cb mov cl,bl 00ca 3a df cmp bl,bh 00cc 72 02 jb L5 00ce 8a cf mov cl,bh 00d0 8a c1 L5 mov al,cl 00d2 32 ed xor ch,ch 00d4 fc cld 00d5 f3 a6 repe cmpsb 00d7 75 08 jne L6 00d9 fe c0 inc al 00db 3a df cmp bl,bh 00dd 75 02 jne L6 00df 8a c1 mov al,cl 00e1 2a c1 L6 sub al,cl 00e3 8e da mov ds,dx 00e5 5d pop bp 00e6 ca 08 00 retf 0008H 00e9 COPIES: 00e9 55 STRINGS_004 push bp 00ea 8b ec mov bp,sp 00ec 1e push ds 00ed c4 7e 0c les di,dword ptr +0cH[bp] 00f0 47 inc di 00f1 8a da mov bl,dl 00f3 8a 76 06 mov dh,+6H[bp] 00f6 0a f6 or dh,dh 00f8 74 21 je L8 00fa c5 76 08 lds si,dword ptr +8H[bp] 00fd 8a 0c mov cl,[si] 00ff 32 ed xor ch,ch 0101 e3 18 jcxz L8 0103 46 inc si 0104 8b c6 mov ax,si 0106 8a d1 mov dl,cl 0108 32 db xor bl,bl 010a fc cld 010b 02 da L7 add bl,dl 010d 72 0c jb L8 010f f3 a4 repe movsb 0111 fe ce dec dh 0113 74 08 je L9 0115 8a ca mov cl,dl 0117 8b f0 mov si,ax 0119 eb f0 jmp L7 011b 2a da L8 sub bl,dl 011d 32 ff L9 xor bh,bh 011f 2b fb sub di,bx 0121 4f dec di 0122 26 88 1d mov es:[di],bl 0125 1f pop ds 0126 5d pop bp 0127 ca 06 00 retf 0006H 012a D2X: 012a 55 STRINGS_005 push bp 012b 8b ec mov bp,sp 012d fc cld 012e c4 7e 08 les di,dword ptr +8H[bp] 0131 26 c6 05 04 mov byte ptr es:[di],04H 0135 47 inc di 0136 8b 56 06 mov dx,+6H[bp] 0139 bb 46 00 mov bx,offset L13 013c 8a c6 mov al,dh 013e b1 0f mov cl,0fH 0140 d0 e8 shr al,1 0142 d0 e8 shr al,1 0144 d0 e8 shr al,1 0146 d0 e8 shr al,1 0148 2e d7 xlat 014a 8a e0 mov ah,al 014c 8a c6 mov al,dh 014e 22 c1 and al,cl 0150 2e d7 xlat 0152 86 c4 xchg al,ah 0154 ab stosw 0155 8a c2 mov al,dl 0157 d0 e8 shr al,1 0159 d0 e8 shr al,1 015b d0 e8 shr al,1 015d d0 e8 shr al,1 015f 2e d7 xlat 0161 8a e0 mov ah,al 0163 8a c2 mov al,dl 0165 22 c1 and al,cl 0167 2e d7 xlat 0169 86 c4 xchg al,ah 016b ab stosw 016c 5d pop bp 016d ca 02 00 retf 0002H 0170 30 31 xor [bx+di],dh 0172 32 33 xor dh,[bp+di] 0174 34 35 xor al,35H 0176 36 37 aaa 0178 38 39 cmp [bx+di],bh 017a 41 inc cx 017b 42 inc dx 017c 43 inc bx 017d 44 inc sp 017e 45 inc bp 017f 46 inc si 0180 DELSTR: 0180 55 STRINGS_006 push bp 0181 8b ec mov bp,sp 0183 8c da mov dx,ds 0185 c4 7e 0e les di,dword ptr +0eH[bp] 0188 c5 76 0a lds si,dword ptr +0aH[bp] 018b 8b df mov bx,di 018d 47 inc di 018e fc cld 018f ac lodsb 0190 33 c9 xor cx,cx 0192 8a 4e 08 mov cl,+8H[bp] 0195 e3 02 jcxz L10 0197 fe c9 dec cl 0199 8a e0 L10 mov ah,al 019b 2a c1 sub al,cl 019d 77 04 ja L11 019f 8a cc mov cl,ah 01a1 32 c0 xor al,al 01a3 f3 a4 L11 repe movsb 01a5 8a 4e 06 mov cl,+6H[bp] 01a8 2a c1 sub al,cl 01aa 72 06 jb L12 01ac 03 f1 add si,cx 01ae 8a c8 mov cl,al 01b0 f3 a4 repe movsb 01b2 2b fb L12 sub di,bx 01b4 8b c7 mov ax,di 01b6 fe c8 L13 dec al 01b8 26 88 07 mov es:[bx],al 01bb 8e da mov ds,dx 01bd 5d pop bp 01be ca 08 00 retf 0008H 01c1 DELWORD: 01c1 55 STRINGS_007 push bp 01c2 8b ec mov bp,sp 01c4 1e push ds 01c5 c4 7e 0a les di,dword ptr +0aH[bp] 01c8 26 8a 0d mov cl,es:[di] 01cb 47 inc di 01cc 8b d7 mov dx,di 01ce fc cld 01cf 32 ed xor ch,ch 01d1 e3 6c jcxz L21 01d3 8a 66 08 mov ah,+8H[bp] 01d6 0a e4 or ah,ah 01d8 74 02 je L14 01da fe cc dec ah 01dc fe c4 L14 inc ah 01de b0 20 mov al,20H 01e0 f3 ae L15 repe scasb 01e2 74 5b je L21 01e4 fe cc dec ah 01e6 74 07 je L16 01e8 f2 ae repne scasb 01ea 74 f4 je L15 01ec eb 51 jmp L21 01ee 90 nop 01ef 8a e1 L16 mov ah,cl 01f1 fe c4 inc ah 01f3 8b cf mov cx,di 01f5 2b ca sub cx,dx 01f7 49 dec cx 01f8 8b f2 mov si,dx 01fa 8c c2 mov dx,es 01fc 8e da mov ds,dx 01fe c4 7e 0e les di,dword ptr +0eH[bp] 0201 8c c3 mov bx,es 0203 47 inc di 0204 f3 a4 repe movsb 0206 8a cc mov cl,ah 0208 87 fe xchg di,si 020a 8e c2 mov es,dx 020c 8a 66 06 mov ah,+6H[bp] 020f 0a e4 or ah,ah 0211 74 0e je L18 0213 f2 ae L17 repne scasb 0215 75 22 jne L20 0217 f3 ae repe scasb 0219 74 1e je L20 021b fe cc dec ah 021d 75 f4 jne L17 021f 4f dec di 0220 41 inc cx 0221 87 fe L18 xchg di,si 0223 8e c3 mov es,bx 0225 8e da mov ds,dx 0227 f3 a4 repe movsb 0229 8b 5e 0e L19 mov bx,+0eH[bp] 022c 8b c7 mov ax,di 022e 2b c3 sub ax,bx 0230 48 dec ax 0231 26 88 07 mov es:[bx],al 0234 1f pop ds 0235 5d pop bp 0236 ca 08 00 retf 0008H 0239 8b fe L20 mov di,si 023b 8e c3 mov es,bx 023d eb ea jmp L19 023f 8b f2 L21 mov si,dx 0241 4e dec si 0242 8c c2 mov dx,es 0244 8e da mov ds,dx 0246 c4 7e 0e les di,dword ptr +0eH[bp] 0249 ac lodsb 024a aa stosb 024b 8a c8 mov cl,al 024d f3 a4 repe movsb 024f 1f pop ds 0250 5d pop bp 0251 ca 08 00 retf 0008H 0254 FIRSTPOS: 0254 55 STRINGS_008 push bp 0255 8b ec mov bp,sp 0257 1e push ds 0258 c4 7e 08 les di,dword ptr +8H[bp] 025b 26 8a 25 mov ah,es:[di] 025e 47 inc di 025f 0a e4 or ah,ah 0261 74 54 je L25 0263 8a 5e 06 mov bl,+6H[bp] 0266 fc cld 0267 0a db or bl,bl 0269 74 02 je L22 026b fe cb dec bl 026d 2a e3 L22 sub ah,bl 026f 76 46 jbe L25 0271 32 ff xor bh,bh 0273 03 fb add di,bx 0275 c5 76 0c lds si,dword ptr +0cH[bp] 0278 8a 0c mov cl,[si] 027a 32 ed xor ch,ch 027c e3 39 jcxz L25 027e 46 inc si 027f ac lodsb 0280 fe c9 dec cl 0282 8b de mov bx,si 0284 86 e1 xchg ah,cl 0286 f2 ae repne scasb 0288 75 2d jne L25 028a 3a cc cmp cl,ah 028c 72 29 jb L25 028e 8b d7 mov dx,di 0290 0a e4 or ah,ah 0292 74 18 je L24 0294 51 L23 push cx 0295 8b d7 mov dx,di 0297 8a cc mov cl,ah 0299 f3 a6 repe cmpsb 029b 59 pop cx 029c 74 0e je L24 029e 8b fa mov di,dx 02a0 8b f3 mov si,bx 02a2 f2 ae repne scasb 02a4 75 11 jne L25 02a6 3a cc cmp cl,ah 02a8 73 ea jae L23 02aa eb 0b jmp L25 02ac 8b 7e 08 L24 mov di,+8H[bp] 02af 2b d7 sub dx,di 02b1 8a c2 mov al,dl 02b3 fe c8 dec al 02b5 eb 02 jmp L26 02b7 32 c0 L25 xor al,al 02b9 1f L26 pop ds 02ba 5d pop bp 02bb ca 0a 00 retf 000aH 02be INSTR: 02be 55 STRINGS_009 push bp 02bf 8b ec mov bp,sp 02c1 1e push ds 02c2 fc cld 02c3 c5 76 0a lds si,dword ptr +0aH[bp] 02c6 c4 7e 12 les di,dword ptr +12H[bp] 02c9 8b df mov bx,di 02cb 47 inc di 02cc ac lodsb 02cd 8a d0 mov dl,al 02cf 8a 76 08 mov dh,+8H[bp] 02d2 0a f6 or dh,dh 02d4 74 02 je L27 02d6 fe ce dec dh 02d8 32 ed L27 xor ch,ch 02da 3a f2 cmp dh,dl 02dc 73 24 jae L28 02de 8a ce mov cl,dh 02e0 8a e1 mov ah,cl 02e2 f3 a4 repe movsb 02e4 c5 76 0e lds si,dword ptr +0eH[bp] 02e7 ac lodsb 02e8 8a c8 mov cl,al 02ea 02 e1 add ah,cl 02ec 72 2f jb L29 02ee f3 a4 repe movsb 02f0 c5 76 0a lds si,dword ptr +0aH[bp] 02f3 8a ce mov cl,dh 02f5 03 f1 add si,cx 02f7 46 inc si 02f8 2a d6 sub dl,dh 02fa 8a ca mov cl,dl 02fc 02 e1 add ah,cl 02fe 73 23 jae L30 0300 eb 1b jmp L29 0302 8a ca L28 mov cl,dl 0304 8a e1 mov ah,cl 0306 f3 a4 repe movsb 0308 8a ce mov cl,dh 030a 2a ca sub cl,dl 030c 02 e1 add ah,cl 030e 8a 46 06 mov al,+6H[bp] 0311 f3 aa repe stosb 0313 c5 76 0e lds si,dword ptr +0eH[bp] 0316 ac lodsb 0317 8a c8 mov cl,al 0319 02 e1 add ah,cl 031b 73 06 jae L30 031d 2a cc L29 sub cl,ah 031f fe c9 dec cl 0321 b4 ff mov ah,0ffH 0323 f3 a4 L30 repe movsb 0325 26 88 27 mov es:[bx],ah 0328 1f pop ds 0329 5d pop bp 032a ca 0c 00 retf 000cH 032d JUSTIFY: 032d 55 STRINGS_00A push bp 032e 8b ec mov bp,sp 0330 1e push ds 0331 c5 76 08 lds si,dword ptr +8H[bp] 0334 1e push ds 0335 56 push si 0336 9a 00 00 00 00 call far STRINGS_01C 033b 8a d0 mov dl,al 033d 8b fe mov di,si 033f 8c db mov bx,ds 0341 8e c3 mov es,bx 0343 26 8a 0d mov cl,es:[di] 0346 47 inc di 0347 32 ed xor ch,ch 0349 e3 6d jcxz L33 034b b0 20 mov al,20H 034d f3 ae repe scasb 034f 4f dec di 0350 8b f7 mov si,di 0352 03 f9 add di,cx 0354 fe c1 inc cl 0356 fd std 0357 f3 ae repe scasb 0359 fe c1 inc cl 035b fc cld 035c c4 7e 0c les di,dword ptr +0cH[bp] 035f 80 ea 01 sub dl,01H 0362 76 57 jbe L34 0364 8a f2 mov dh,dl 0366 d0 ee shr dh,1 0368 8a 46 06 mov al,+6H[bp] 036b aa stosb 036c 2a c1 sub al,cl 036e 76 65 jbe L36 0370 32 e4 xor ah,ah 0372 f6 f2 div dl 0374 8b d8 mov bx,ax 0376 32 e4 xor ah,ah 0378 b0 20 mov al,20H 037a 2e 88 0e c0 00 mov cs:L49,cl 037f 87 f7 L31 xchg si,di 0381 1e push ds 0382 06 push es 0383 1f pop ds 0384 07 pop es 0385 f2 ae repne scasb 0387 75 50 jne L37 0389 f3 ae repe scasb 038b 4f dec di 038c fe c1 inc cl 038e 8a c1 mov al,cl 0390 2e 86 0e c0 00 xchg cl,cs:L49 0395 2a c8 sub cl,al 0397 2b f9 sub di,cx 0399 87 f7 xchg si,di 039b 1e push ds 039c 06 push es 039d 1f pop ds 039e 07 pop es 039f f3 a4 repe movsb 03a1 8a cb mov cl,bl 03a3 02 e7 add ah,bh 03a5 3a e6 cmp ah,dh 03a7 7e 04 jle L32 03a9 fe c1 inc cl 03ab 2a e2 sub ah,dl 03ad b0 20 L32 mov al,20H 03af f3 aa repe stosb 03b1 2e 8a 0e c0 00 mov cl,cs:L49 03b6 eb c7 jmp L31 03b8 c4 7e 0c L33 les di,dword ptr +0cH[bp] 03bb 8a e1 L34 mov ah,cl 03bd 8a 46 06 mov al,+6H[bp] 03c0 aa stosb 03c1 3a c4 cmp al,ah 03c3 77 02 ja L35 03c5 8a c8 mov cl,al 03c7 f3 a4 L35 repe movsb 03c9 2a c4 sub al,ah 03cb 72 1b jb L39 03cd 8a c8 mov cl,al 03cf b0 20 mov al,20H 03d1 f3 aa repe stosb 03d3 eb 13 jmp L39 03d5 02 cc L36 add cl,ah 03d7 eb 0d jmp L38 03d9 2e 8a 0e c0 00 L37 mov cl,cs:L49 03de 87 f7 xchg si,di 03e0 1e push ds 03e1 06 push es 03e2 1f pop ds 03e3 07 pop es 03e4 2b f1 sub si,cx 03e6 f3 a4 L38 repe movsb 03e8 1f L39 pop ds 03e9 5d pop bp 03ea ca 06 00 retf 0006H 03ed 00 55 8b add -75H[di],dl 03f0 ec in al,dx 03f1 1e push ds 03f2 c4 7e 08 les di,dword ptr +8H[bp] 03f5 26 8a 25 mov ah,es:[di] 03f8 0a e4 or ah,ah 03fa 74 50 je L43 03fc c5 76 0c lds si,dword ptr +0cH[bp] 03ff 8a 46 06 mov al,+6H[bp] 0402 3a e0 cmp ah,al 0404 72 06 jb L40 0406 0a c0 or al,al 0408 74 02 je L40 040a 8a e0 mov ah,al 040c 8a 0c L40 mov cl,[si] 040e 32 ed xor ch,ch 0410 e3 3a jcxz L43 0412 03 f1 add si,cx 0414 8a 04 mov al,[si] 0416 4e dec si 0417 fe c9 dec cl 0419 8b de mov bx,si 041b 86 e1 xchg ah,cl 041d 03 f9 add di,cx 041f fd std 0420 f2 ae repne scasb 0422 75 28 jne L43 0424 3a cc cmp cl,ah 0426 72 24 jb L43 0428 0a e4 or ah,ah 042a 74 18 je L42 042c 51 L41 push cx 042d 8b d7 mov dx,di 042f 8a cc mov cl,ah 0431 f3 a6 repe cmpsb 0433 59 pop cx 0434 74 0e je L42 0436 8b fa mov di,dx 0438 8b f3 mov si,bx 043a f2 ae repne scasb 043c 75 0e jne L43 043e 3a cc cmp cl,ah 0440 73 ea jae L41 0442 eb 08 jmp L43 0444 2a cc L42 sub cl,ah 0446 8a c1 mov al,cl 0448 fe c0 inc al 044a eb 02 jmp L44 044c 32 c0 L43 xor al,al 044e 1f L44 pop ds 044f 5d pop bp 0450 ca 0a 00 retf 000aH 0453 LEFT: 0453 55 STRINGS_00C push bp 0454 8b ec mov bp,sp 0456 8c db mov bx,ds 0458 c4 7e 0e les di,dword ptr +0eH[bp] 045b c5 76 0a lds si,dword ptr +0aH[bp] 045e 8a 56 08 mov dl,+8H[bp] 0461 8a 0c mov cl,[si] 0463 8a f1 mov dh,cl 0465 3a f2 cmp dh,dl 0467 72 02 jb L45 0469 8a ca mov cl,dl 046b 26 88 15 L45 mov es:[di],dl 046e 46 inc si 046f 47 inc di 0470 32 ed xor ch,ch 0472 fc cld 0473 f3 a4 repe movsb 0475 2a d6 sub dl,dh 0477 72 07 jb L46 0479 8a ca mov cl,dl 047b 8a 46 06 mov al,+6H[bp] 047e f3 aa repe stosb 0480 8e db L46 mov ds,bx 0482 5d pop bp 0483 ca 08 00 retf 0008H 0486 LOWERCASE: 0486 55 STRINGS_00D push bp 0487 8b ec mov bp,sp 0489 8c da mov dx,ds 048b c5 76 06 lds si,dword ptr +6H[bp] 048e c4 7e 0a les di,dword ptr +0aH[bp] 0491 fc cld 0492 ac lodsb 0493 aa stosb 0494 8a c8 mov cl,al 0496 32 ed xor ch,ch 0498 e3 13 jcxz L49 049a bb 41 5a mov bx,5a41H 049d b4 20 mov ah,20H 049f ac L47 lodsb 04a0 3a c3 cmp al,bl 04a2 72 06 jb L48 04a4 3a c7 cmp al,bh 04a6 77 02 ja L48 04a8 02 c4 add al,ah 04aa aa L48 stosb 04ab e2 f2 loop L47 04ad 8e da L49 mov ds,dx 04af 5d pop bp 04b0 ca 04 00 retf 0004H 04b3 OVRSTR: 04b3 55 STRINGS_00E push bp 04b4 8b ec mov bp,sp 04b6 1e push ds 04b7 fc cld 04b8 c4 7e 12 les di,dword ptr +12H[bp] 04bb 8b df mov bx,di 04bd 47 inc di 04be c5 76 0a lds si,dword ptr +0aH[bp] 04c1 8a 56 08 mov dl,+8H[bp] 04c4 0a d2 or dl,dl 04c6 74 02 je L50 04c8 fe ca dec dl 04ca ac L50 lodsb 04cb 8a f0 mov dh,al 04cd 8a ca mov cl,dl 04cf 3a d6 cmp dl,dh 04d1 72 02 jb L51 04d3 8a ce mov cl,dh 04d5 32 ed L51 xor ch,ch 04d7 f3 a4 repe movsb 04d9 3a f2 cmp dh,dl 04db 73 09 jae L52 04dd 8a ca mov cl,dl 04df 2a ce sub cl,dh 04e1 8a 46 06 mov al,+6H[bp] 04e4 f3 aa repe stosb 04e6 c5 76 0e L52 lds si,dword ptr +0eH[bp] 04e9 ac lodsb 04ea 8a c8 mov cl,al 04ec 02 c2 add al,dl 04ee 73 04 jae L53 04f0 2a c8 sub cl,al 04f2 fe c9 dec cl 04f4 8a c1 L53 mov al,cl 04f6 f3 a4 repe movsb 04f8 02 d0 add dl,al 04fa 2a f2 sub dh,dl 04fc 76 0c jbe L54 04fe c5 76 0a lds si,dword ptr +0aH[bp] 0501 8a ca mov cl,dl 0503 03 f1 add si,cx 0505 46 inc si 0506 8a ce mov cl,dh 0508 f3 a4 repe movsb 050a 8b c7 L54 mov ax,di 050c 2b c3 sub ax,bx 050e 48 dec ax 050f 8b fb mov di,bx 0511 aa stosb 0512 1f pop ds 0513 5d pop bp 0514 ca 0c 00 retf 000cH 0517 POS2WORD: 0517 55 STRINGS_00F push bp 0518 8b ec mov bp,sp 051a 8a 56 06 mov dl,+6H[bp] 051d 0a d2 or dl,dl 051f 74 2a je L57 0521 c4 7e 08 les di,dword ptr +8H[bp] 0524 26 8a 0d mov cl,es:[di] 0527 32 ed xor ch,ch 0529 e3 20 jcxz L57 052b 47 inc di 052c 32 f6 xor dh,dh 052e 03 d7 add dx,di 0530 32 db xor bl,bl 0532 b0 20 mov al,20H 0534 fc cld 0535 e3 14 L55 jcxz L57 0537 f3 ae repe scasb 0539 74 10 je L57 053b fe c3 inc bl 053d f2 ae repne scasb 053f 75 06 jne L56 0541 3b d7 cmp dx,di 0543 73 f0 jae L55 0545 eb 06 jmp L58 0547 3b d7 L56 cmp dx,di 0549 76 02 jbe L58 054b 32 db L57 xor bl,bl 054d 8a c3 L58 mov al,bl 054f 5d pop bp 0550 ca 06 00 retf 0006H 0553 REVERSE: 0553 55 STRINGS_010 push bp 0554 8b ec mov bp,sp 0556 8c da mov dx,ds 0558 c5 76 06 lds si,dword ptr +6H[bp] 055b c4 7e 0a les di,dword ptr +0aH[bp] 055e fc cld 055f ac lodsb 0560 26 88 05 mov es:[di],al 0563 8a c8 mov cl,al 0565 32 ed xor ch,ch 0567 e3 08 jcxz L60 0569 03 f9 add di,cx 056b ac L59 lodsb 056c fd std 056d aa stosb 056e fc cld 056f e2 fa loop L59 0571 8e da L60 mov ds,dx 0573 5d pop bp 0574 ca 04 00 retf 0004H 0577 RIGHT: 0577 55 STRINGS_011 push bp 0578 8b ec mov bp,sp 057a 1e push ds 057b c4 7e 0e les di,dword ptr +0eH[bp] 057e c5 76 0a lds si,dword ptr +0aH[bp] 0581 fc cld 0582 32 e4 xor ah,ah 0584 8a 46 08 mov al,+8H[bp] 0587 aa stosb 0588 8b c8 mov cx,ax 058a ac lodsb 058b 8b d0 mov dx,ax 058d 3a ca cmp cl,dl 058f 72 09 jb L61 0591 2a ca sub cl,dl 0593 8a 46 06 mov al,+6H[bp] 0596 f3 aa repe stosb 0598 eb 08 jmp L62 059a 8b da L61 mov bx,dx 059c 2a d9 sub bl,cl 059e 03 f3 add si,bx 05a0 2a d3 sub dl,bl 05a2 8a ca L62 mov cl,dl 05a4 f3 a4 repe movsb 05a6 1f pop ds 05a7 5d pop bp 05a8 ca 08 00 retf 0008H 05ab SCANMEM: 05ab 55 STRINGS_012 push bp 05ac 8b ec mov bp,sp 05ae 1e push ds 05af fc cld 05b0 c5 76 0c lds si,dword ptr +0cH[bp] 05b3 ac lodsb 05b4 0a c0 or al,al 05b6 74 4b je L67 05b8 8a d0 mov dl,al 05ba 32 f6 xor dh,dh 05bc 4a dec dx 05bd 8b 4e 06 mov cx,+6H[bp] 05c0 8b c1 mov ax,cx 05c2 2b ca sub cx,dx 05c4 76 3d jbe L67 05c6 c4 7e 08 les di,dword ptr +8H[bp] 05c9 8b df mov bx,di 05cb 03 d8 add bx,ax 05cd 73 04 jae L63 05cf 2b cb sub cx,bx 05d1 74 2d je L66 05d3 51 L63 push cx 05d4 ac lodsb 05d5 f2 ae repne scasb 05d7 75 27 jne L66 05d9 8b d9 mov bx,cx 05db 8b ca mov cx,dx 05dd e3 18 jcxz L65 05df 56 L64 push si 05e0 f3 a6 repe cmpsb 05e2 59 pop cx 05e3 74 12 je L65 05e5 2b f1 sub si,cx 05e7 2b fe sub di,si 05e9 8b f1 mov si,cx 05eb 8b cb mov cx,bx 05ed f2 ae repne scasb 05ef 75 0f jne L66 05f1 8b d9 mov bx,cx 05f3 8b ca mov cx,dx 05f5 eb e8 jmp L64 05f7 58 L65 pop ax 05f8 2b c3 sub ax,bx 05fa 48 dec ax 05fb 1f pop ds 05fc 5d pop bp 05fd ca 0a 00 retf 000aH 0600 83 c4 02 L66 add sp,0002H 0603 b8 ff ff L67 mov ax,0ffffH 0606 1f pop ds 0607 5d pop bp 0608 ca 0a 00 retf 000aH 060b SPACE: 060b 55 STRINGS_013 push bp 060c 8b ec mov bp,sp 060e 1e push ds 060f c4 7e 08 les di,dword ptr +8H[bp] 0612 c5 76 0c lds si,dword ptr +0cH[bp] 0615 fc cld 0616 b8 20 00 mov ax,0020H 0619 26 8a 0d mov cl,es:[di] 061c 32 ed xor ch,ch 061e e3 48 jcxz L74 0620 46 inc si 0621 47 inc di 0622 f3 ae repe scasb 0624 74 3f je L73 0626 8b d7 L68 mov dx,di 0628 f2 ae repne scasb 062a 75 01 jne L69 062c 4f dec di 062d 47 L69 inc di 062e 51 push cx 062f 8b cf mov cx,di 0631 2b ca sub cx,dx 0633 02 e1 add ah,cl 0635 72 28 jb L70 0637 8b fa mov di,dx 0639 4f dec di 063a 8c da mov dx,ds 063c 8c c3 mov bx,es 063e 8e db mov ds,bx 0640 8e c2 mov es,dx 0642 87 f7 xchg si,di 0644 f3 a4 repe movsb 0646 8a 4e 06 mov cl,+6H[bp] 0649 02 e1 add ah,cl 064b 72 14 jb L71 064d f3 aa repe stosb 064f 8e da mov ds,dx 0651 8e c3 mov es,bx 0653 87 f7 xchg si,di 0655 47 inc di 0656 59 pop cx 0657 e3 09 jcxz L72 0659 f3 ae repe scasb 065b 75 c9 jne L68 065d eb 03 jmp L72 065f 2a e1 L70 sub ah,cl 0661 59 L71 pop cx 0662 2a 66 06 L72 sub ah,+6H[bp] 0665 c5 76 0c L73 lds si,dword ptr +0cH[bp] 0668 88 24 L74 mov [si],ah 066a 1f pop ds 066b 5d pop bp 066c ca 06 00 retf 0006H 066f STRIP: 066f 55 STRINGS_014 push bp 0670 8b ec mov bp,sp 0672 8c da mov dx,ds 0674 c4 7e 0a les di,dword ptr +0aH[bp] 0677 8b df mov bx,di 0679 8b f7 mov si,di 067b 43 inc bx 067c 26 8a 0d mov cl,es:[di] 067f 32 ed xor ch,ch 0681 e3 29 jcxz L76 0683 03 f1 add si,cx 0685 8a 46 06 mov al,+6H[bp] 0688 8a 66 08 mov ah,+8H[bp] 068b 80 cc 20 or ah,20H 068e 80 fc 74 cmp ah,74H 0691 74 10 je L75 0693 47 inc di 0694 fc cld 0695 f3 ae repe scasb 0697 74 13 je L76 0699 4f dec di 069a 8b df mov bx,di 069c fe c1 inc cl 069e 80 fc 6c cmp ah,6cH 06a1 74 09 je L76 06a3 fd L75 std 06a4 8b fe mov di,si 06a6 f3 ae repe scasb 06a8 74 02 je L76 06aa fe c1 inc cl 06ac 8a c1 L76 mov al,cl 06ae 8e 5e 0c mov ds,+0cH[bp] 06b1 8b f3 mov si,bx 06b3 c4 7e 0e les di,dword ptr +0eH[bp] 06b6 fc cld 06b7 aa stosb 06b8 f3 a4 repe movsb 06ba 8e da mov ds,dx 06bc 5d pop bp 06bd ca 08 00 retf 0008H 06c0 SUBSTR: 06c0 55 STRINGS_015 push bp 06c1 8b ec mov bp,sp 06c3 8c db mov bx,ds 06c5 c4 7e 0e les di,dword ptr +0eH[bp] 06c8 c5 76 0a lds si,dword ptr +0aH[bp] 06cb fc cld 06cc ac lodsb 06cd 8a 56 08 mov dl,+8H[bp] 06d0 33 c9 xor cx,cx 06d2 3a c2 cmp al,dl 06d4 72 1d jb L79 06d6 0a d2 or dl,dl 06d8 74 02 je L77 06da fe ca dec dl 06dc 32 f6 L77 xor dh,dh 06de 03 f2 add si,dx 06e0 8a 4e 06 mov cl,+6H[bp] 06e3 02 d1 add dl,cl 06e5 73 06 jae L78 06e7 2a ca sub cl,dl 06e9 fe c9 dec cl 06eb b2 ff mov dl,0ffH 06ed 2a d0 L78 sub dl,al 06ef 72 02 jb L79 06f1 2a ca sub cl,dl 06f3 8a c1 L79 mov al,cl 06f5 aa stosb 06f6 f3 a4 repe movsb 06f8 8e db mov ds,bx 06fa 5d pop bp 06fb ca 08 00 retf 0008H 06fe SUBWORD: 06fe 55 STRINGS_016 push bp 06ff 8b ec mov bp,sp 0701 1e push ds 0702 c4 7e 0a les di,dword ptr +0aH[bp] 0705 8a 56 08 mov dl,+8H[bp] 0708 0a d2 or dl,dl 070a 74 02 je L80 070c fe ca dec dl 070e fe c2 L80 inc dl 0710 26 8a 0d mov cl,es:[di] 0713 32 ed xor ch,ch 0715 47 inc di 0716 b0 20 mov al,20H 0718 fc cld 0719 e3 3f L81 jcxz L86 071b f3 ae repe scasb 071d 74 3b je L86 071f fe ca dec dl 0721 74 08 je L82 0723 e3 35 jcxz L86 0725 f2 ae repne scasb 0727 74 f0 je L81 0729 eb 2f jmp L86 072b 4f L82 dec di 072c fe c1 inc cl 072e 8b f7 mov si,di 0730 8a 56 06 mov dl,+6H[bp] 0733 0a d2 or dl,dl 0735 74 23 je L86 0737 f2 ae L83 repne scasb 0739 8b df mov bx,di 073b 75 0b jne L85 073d fe ca dec dl 073f 74 06 je L84 0741 e3 04 jcxz L84 0743 f3 ae repe scasb 0745 75 f0 jne L83 0747 4b L84 dec bx 0748 2b de L85 sub bx,si 074a 8a cb mov cl,bl 074c 8c c0 mov ax,es 074e 8e d8 mov ds,ax 0750 c4 7e 0e les di,dword ptr +0eH[bp] 0753 8a c1 mov al,cl 0755 aa stosb 0756 f3 a4 repe movsb 0758 eb 06 jmp L87 075a c5 7e 0e L86 lds di,dword ptr +0eH[bp] 075d c6 05 00 mov byte ptr [di],00H 0760 1f L87 pop ds 0761 5d pop bp 0762 ca 08 00 retf 0008H 0765 TRANSLATE: 0765 55 STRINGS_017 push bp 0766 8b ec mov bp,sp 0768 1e push ds 0769 c5 76 0e lds si,dword ptr +0eH[bp] 076c c4 7e 12 les di,dword ptr +12H[bp] 076f fc cld 0770 ac lodsb 0771 aa stosb 0772 8a c8 mov cl,al 0774 32 ed xor ch,ch 0776 e3 36 jcxz L90 0778 f3 a4 repe movsb 077a c5 76 0a lds si,dword ptr +0aH[bp] 077d 32 ff xor bh,bh 077f 8a 1c mov bl,[si] 0781 43 inc bx 0782 4b L88 dec bx 0783 74 29 je L90 0785 c5 76 0a lds si,dword ptr +0aH[bp] 0788 8a 00 mov al,[bx+si] 078a c5 76 06 lds si,dword ptr +6H[bp] 078d 8a 20 mov ah,[bx+si] 078f c4 7e 0e les di,dword ptr +0eH[bp] 0792 c5 76 12 lds si,dword ptr +12H[bp] 0795 47 inc di 0796 8a 0c mov cl,[si] 0798 8a d1 mov dl,cl 079a f2 ae L89 repne scasb 079c 75 e4 jne L88 079e 8a f1 mov dh,cl 07a0 86 ca xchg cl,dl 07a2 2a ca sub cl,dl 07a4 03 f1 add si,cx 07a6 88 24 mov [si],ah 07a8 8a d6 mov dl,dh 07aa 8a ce mov cl,dh 07ac eb ec jmp L89 07ae 1f L90 pop ds 07af 5d pop bp 07b0 ca 0c 00 retf 000cH 07b3 UPPERCASE: 07b3 55 STRINGS_018 push bp 07b4 8b ec mov bp,sp 07b6 8c db mov bx,ds 07b8 c5 76 06 lds si,dword ptr +6H[bp] 07bb c4 7e 0a les di,dword ptr +0aH[bp] 07be fc cld 07bf ac lodsb 07c0 aa stosb 07c1 8a c8 mov cl,al 07c3 32 ed xor ch,ch 07c5 e3 13 jcxz L93 07c7 ba 61 7a mov dx,7a61H 07ca b4 20 mov ah,20H 07cc ac L91 lodsb 07cd 3a c2 cmp al,dl 07cf 72 06 jb L92 07d1 3a c6 cmp al,dh 07d3 77 02 ja L92 07d5 2a c4 sub al,ah 07d7 aa L92 stosb 07d8 e2 f2 loop L91 07da 8e db L93 mov ds,bx 07dc 5d pop bp 07dd ca 04 00 retf 0004H 07e0 VERIFY: 07e0 55 STRINGS_019 push bp 07e1 8b ec mov bp,sp 07e3 1e push ds 07e4 c4 7e 0a les di,dword ptr +0aH[bp] 07e7 c5 76 0e lds si,dword ptr +0eH[bp] 07ea 8a 46 08 mov al,+8H[bp] 07ed 26 8a 1d mov bl,es:[di] 07f0 8a 3c mov bh,[si] 07f2 47 inc di 07f3 46 inc si 07f4 8a 4e 06 mov cl,+6H[bp] 07f7 32 ed xor ch,ch 07f9 e3 02 jcxz L94 07fb fe c9 dec cl 07fd 2a f9 L94 sub bh,cl 07ff 72 46 jb L99 0801 0a db or bl,bl 0803 74 42 je L99 0805 0a ff or bh,bh 0807 74 3e je L99 0809 03 f1 add si,cx 080b 8a e7 mov ah,bh 080d 8b d7 mov dx,di 080f fc cld 0810 0c 20 or al,20H 0812 3c 6d cmp al,6dH 0814 74 10 je L96 0816 ac L95 lodsb 0817 8a cb mov cl,bl 0819 8b fa mov di,dx 081b f2 ae repne scasb 081d 75 17 jne L97 081f fe cf dec bh 0821 75 f3 jne L95 0823 eb 22 jmp L99 0825 90 nop 0826 ac L96 lodsb 0827 8a cb mov cl,bl 0829 8b fa mov di,dx 082b f2 ae repne scasb 082d 74 07 je L97 082f fe cf dec bh 0831 75 f3 jne L96 0833 eb 12 jmp L99 0835 90 nop 0836 8a c4 L97 mov al,ah 0838 2a c7 sub al,bh 083a 8a 66 06 mov ah,+6H[bp] 083d 0a e4 or ah,ah 083f 75 02 jne L98 0841 fe c4 inc ah 0843 02 c4 L98 add al,ah 0845 eb 02 jmp L100 0847 32 c0 L99 xor al,al 0849 1f L100 pop ds 084a 5d pop bp 084b ca 0c 00 retf 000cH 084e WERD: 084e 55 STRINGS_01A push bp 084f 8b ec mov bp,sp 0851 8c db mov bx,ds 0853 8a 56 06 mov dl,+6H[bp] 0856 0a d2 or dl,dl 0858 74 38 je L104 085a c4 7e 08 les di,dword ptr +8H[bp] 085d 26 8a 0d mov cl,es:[di] 0860 32 ed xor ch,ch 0862 47 inc di 0863 b0 20 mov al,20H 0865 fc cld 0866 e3 2a L101 jcxz L104 0868 f3 ae repe scasb 086a 74 26 je L104 086c fe ca dec dl 086e 74 06 je L102 0870 f2 ae repne scasb 0872 74 f2 je L101 0874 eb 1c jmp L104 0876 4f L102 dec di 0877 fe c1 inc cl 0879 8b f7 mov si,di 087b f2 ae repne scasb 087d 75 01 jne L103 087f 4f dec di 0880 8b cf L103 mov cx,di 0882 2b ce sub cx,si 0884 8c c0 mov ax,es 0886 8e d8 mov ds,ax 0888 c4 7e 0c les di,dword ptr +0cH[bp] 088b 8a c1 mov al,cl 088d aa stosb 088e f3 a4 repe movsb 0890 eb 06 jmp L105 0892 c5 7e 0c L104 lds di,dword ptr +0cH[bp] 0895 c6 05 00 mov byte ptr [di],00H 0898 8e db L105 mov ds,bx 089a 5d pop bp 089b ca 06 00 retf 0006H 089e WORD2POS: 089e 55 STRINGS_01B push bp 089f 8b ec mov bp,sp 08a1 8a 56 06 mov dl,+6H[bp] 08a4 0a d2 or dl,dl 08a6 74 24 je L108 08a8 c4 7e 08 les di,dword ptr +8H[bp] 08ab 26 8a 0d mov cl,es:[di] 08ae 32 ed xor ch,ch 08b0 47 inc di 08b1 8b df mov bx,di 08b3 b0 20 mov al,20H 08b5 fc cld 08b6 e3 14 L106 jcxz L108 08b8 f3 ae repe scasb 08ba 74 10 je L108 08bc fe ca dec dl 08be 74 06 je L107 08c0 e3 0a jcxz L108 08c2 f2 ae repne scasb 08c4 eb f0 jmp L106 08c6 2b fb L107 sub di,bx 08c8 8b c7 mov ax,di 08ca eb 02 jmp L109 08cc 32 c0 L108 xor al,al 08ce 5d L109 pop bp 08cf ca 06 00 retf 0006H 08d2 WORDS: 08d2 55 STRINGS_01C push bp 08d3 8b ec mov bp,sp 08d5 c4 7e 06 les di,dword ptr +6H[bp] 08d8 26 8a 0d mov cl,es:[di] 08db 32 ed xor ch,ch 08dd 32 d2 xor dl,dl 08df 47 inc di 08e0 b0 20 mov al,20H 08e2 fc cld 08e3 e3 0c L110 jcxz L111 08e5 f3 ae repe scasb 08e7 74 08 je L111 08e9 fe c2 inc dl 08eb e3 04 jcxz L111 08ed f2 ae repne scasb 08ef 74 f2 je L110 08f1 8a c2 L111 mov al,dl 08f3 5d pop bp 08f4 ca 04 00 retf 0004H 08f7 X2D: 08f7 55 STRINGS_01D push bp 08f8 8b ec mov bp,sp 08fa 8c df mov di,ds 08fc fc cld 08fd c5 76 06 lds si,dword ptr +6H[bp] 0900 ac lodsb 0901 3c 04 cmp al,04H 0903 72 02 jb L112 0905 b0 04 mov al,04H 0907 8a c8 L112 mov cl,al 0909 32 ed xor ch,ch 090b 33 d2 xor dx,dx 090d e3 14 jcxz L114 090f bb 34 00 mov bx,offset L115 0912 ac L113 lodsb 0913 2c 30 sub al,30H 0915 2e d7 xlat 0917 d1 e2 shl dx,1 0919 d1 e2 shl dx,1 091b d1 e2 shl dx,1 091d d1 e2 shl dx,1 091f 02 d0 add dl,al 0921 e2 ef loop L113 0923 8b c2 L114 mov ax,dx 0925 8e df mov ds,di 0927 5d pop bp 0928 ca 04 00 retf 0004H 092b 00 01 add [bx+di],al 092d 02 03 add al,[bp+di] 092f 04 05 add al,05H 0931 06 push es 0932 07 pop es 0933 08 09 or [bx+di],cl 0935 00 00 add [bx+si],al 0937 00 00 add [bx+si],al 0939 00 00 add [bx+si],al 093b 00 0a add [bp+si],cl 093d 0b 0c or cx,[si] 093f 0d 0e 0f or ax,0f0eH 0942 00 00 add [bx+si],al 0944 00 00 add [bx+si],al 0946 00 00 add [bx+si],al 0948 00 00 add [bx+si],al 094a 00 00 add [bx+si],al 094c 00 00 add [bx+si],al 094e 00 00 add [bx+si],al 0950 00 00 add [bx+si],al 0952 00 00 add [bx+si],al 0954 00 00 add [bx+si],al 0956 00 00 add [bx+si],al 0958 00 00 add [bx+si],al 095a 00 00 add [bx+si],al 095c 0a 0b or cl,[bp+di] 095e 0c 0d or al,0dH 0960 0e push cs 0961 0f 55 ????? 0963 8b ec mov bp,sp 0965 fc cld 0966 c4 7e 0a les di,dword ptr +0aH[bp] 0969 8a 46 08 mov al,+8H[bp] 096c 8a 66 06 mov ah,+6H[bp] 096f 8a cc mov cl,ah 0971 32 ed xor ch,ch 0973 2a c8 sub cl,al 0975 73 12 jae L117 0977 fd std 0978 8a c4 mov al,ah 097a f6 d9 neg cl 097c fe c1 inc cl 097e 75 02 jne L116 0980 b1 ff mov cl,0ffH 0982 26 88 0d L116 mov es:[di],cl 0985 03 f9 add di,cx 0987 eb 0a jmp L119 0989 fe c1 L117 inc cl 098b 75 02 jne L118 098d b1 ff mov cl,0ffH 098f 26 88 0d L118 mov es:[di],cl 0992 47 inc di 0993 aa L119 stosb 0994 fe c0 inc al 0996 e2 fb loop L119 0998 5d pop bp 0999 ca 04 00 retf 0004H No disassembly errors ------------------------------------------------------------ Segment: _DATA WORD 0000003d bytes 0000 3a b7 b8 b6 ad b2 ab b7 STRINGS_DATA - :....... 0008 92 b8 b4 b9 84 a7 b3 b4 - ........ 0010 bd b6 84 95 9d 9c 9d 84 - ........ 0018 a6 bd 84 b6 ad a7 ac 84 - ........ 0020 bb ad b2 af a9 b0 92 84 - ........ 0028 a5 b0 b0 84 b6 ad ab ac - ........ 0030 b8 b7 84 b6 a9 b7 a9 b6 - ........ 0038 ba a9 a8 00 00 - ..... No disassembly errors ------------------------------------------------------------