Return to cfdos.asm CVS log

Up to [OS/2 SDKs] / pmsdk / samples / newcard

Annotation of pmsdk/samples/newcard/cfdos.asm, revision 1.1.1.1

1.1       root        1:         title   indos.asm
                      2: 
                      3: ;****************************************************************/
                      4: ;*                                                              */
                      5: ;*  Windows Cardfile                                           */
                      6: ;*  (c) Copyright Microsoft Corp. 1985 - All Rights Reserved    */
                      7: ;*                                                              */
                      8: ;****************************************************************/
                      9: 
                     10: .xlist
                     11: include cmacros.inc
                     12: 
                     13: .list
                     14: 
                     15: createSeg   _FILE,nrfile,byte,public,CODE
                     16: 
                     17: sBegin  DATA
                     18: globalD resZero,0
                     19: sEnd    DATA
                     20: 
                     21: sBegin  NRFILE
                     22: 
                     23: assumes CS,NRFILE
                     24: assumes DS,DATA
                     25: 
                     26: 
                     27: ;
                     28: ; MyStrlen
                     29: ;
                     30: 
                     31: cProc   Mylstrlen,<PUBLIC,FAR>,<di>
                     32:         parmD   lpStr
                     33: cBegin
                     34:         les     di,lpStr
                     35:         cld
                     36:         xor     ax,ax                   ; get zero in ax
                     37:         mov     cx,-1                   ; at most 64 k to move
                     38:         repnz   scasb                   ; look for end
                     39:         mov     ax,cx
                     40:         neg     ax
                     41:         dec     ax
                     42:         dec     ax
                     43: cEnd
                     44: 
                     45: ;
                     46: ;MyStrcpy:
                     47: ;
                     48: cProc   Mylstrcpy,<PUBLIC,FAR>,<si,di,ds>
                     49:         parmD   lpDst
                     50:         parmD   lpSrc
                     51: cBegin
                     52:         lds     si,lpSrc
                     53:         les     di,lpDst
                     54:         cld
                     55: Mycp1:  lodsb
                     56:         stosb
                     57:         or      al,al
                     58:         jnz     Mycp1
                     59:         mov     ax,di                   ; point at last byte copied
                     60:         dec     ax
                     61:         mov     dx,es                   ; and segment
                     62: cEnd
                     63: 
                     64: 
                     65: ;
                     66: ;MyStrcat:
                     67: ;
                     68: cProc   Mylstrcat,<PUBLIC,FAR>,<si,di,ds>
                     69:     parmD   lpDst
                     70:     parmD   lpSrc
                     71: cBegin
                     72:         lds     si,lpSrc
                     73:         les     di,lpDst
                     74:         cld
                     75:         xor     ax,ax                   ; get zero in ax
                     76:         mov     cx,-1                   ; at most 64 k to look
                     77:         repnz   scasb                   ; look for end
                     78:         dec     di                      ; Point at null byte
                     79: Myct1:  lodsb
                     80:         stosb
                     81:         or      al,al
                     82:         jnz     Myct1
                     83:         mov     ax,di                   ; point at last byte copied
                     84:         dec     ax
                     85:         mov     dx,es                   ; and segment
                     86: cEnd
                     87: 
                     88: 
                     89: ;
                     90: ;MyStrcmp:
                     91: ;
                     92: cProc   Mylstrcmp,<PUBLIC,FAR>,<si,di,ds>
                     93:         parmD   lps1
                     94:         parmD   lps2
                     95: cBegin
                     96:         lds     si,lps1
                     97:         les     di,lps2
                     98:         cld
                     99:         xor     ax,ax                       ; clear out ah
                    100: Mycmploop:
                    101:         lodsb
                    102:         mov     bl,es:[di]
                    103:         inc     di
                    104:         cmp     bl,al
                    105:         jnz     MyNeq
                    106:         or      al,al
                    107:         jnz     Mycmploop
                    108:         xor     ax,ax                        ; equal
                    109:         jmp     short MSEnd
                    110: MyNeq:
                    111:         mov     ax,1                         ; not equal
                    112: MSEnd:
                    113: cEnd
                    114: 
                    115: sEnd    NRFILE
                    116: 
                    117: end
                    118: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.