开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
STRINGS.ASM
资源名称：ertos.rar　[点击查看]
上传用户：sunrenlu
上传日期：2022-06-13
资源大小：1419k
文件大小：2k
源码类别：

操作系统开发

开发平台：

DOS

STRINGS.ASM：源码内容
  1. PAGE    66,132
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;  net_string - find a network string from a buffer
  8. ;
  9. ;
  10. ;  (c) 1992 Erick Engelke
  11. ;
  12. ;
  13. ;
  14. include masmdefs.hsm
  15. include model.hsm
  17. codedef net_string
  18. datadef
  20. cstart  net_string
  22. ;*************************************************************************
  23. ;  USAGE:  int net_string( byte *buf, int buflen, byte *strbuf, int strbuflen )
  24. ;  ALL POINTERS ASSUMED FAR
  25. ;*************************************************************************
  26. cpublic net_string
  27.         push    DS
  28.         push    ES
  29.         cld
  31.         lds     SI, +@AB + 0  [BP]
  32.         mov     BX, +@AB + 4  [BP]
  33.         les     DI, +@AB + 6  [BP]
  34.         mov     CX, +@AB + 10 [BP]
  36.         cmp     CX, BX          ; find the lesser, ie. max string len
  37.         ja      .0
  38.         mov     CX, BX
  40. .0:     sub     CX, 2           ; must leave room for the ''
  41.         mov     BX, CX          ; need later
  43. .1:     lodsb                   ; check each character to see if
  44.         cmp     AL, 0eh         ; it is the string terminator
  45.         jb      .3              ; a likely suspect is investigated
  46. .2:     stosb
  47.         loop    .1
  48.         jcxz    .4              ; quite done
  49.                                 ; (MS-ASM generates phase error if we use JMP
  50.                                 ; phase-error? Get a life Microsoft, figuring
  51.                                 ; out the distance is pretty darn trivial,
  52.                                 ; even DEBUG can do it!)
  54. .3:     cmp     AL, 0ah         ; <lf>
  55.         je      .4
  56.         cmp     AL, 0dh         ; <cr>
  57.         jne     .2              ; no, so continue
  59.         ; this is still for <cr>, we erase the next character
  60.         jcxz    .5              ; no more characters - line incomplete
  61.         dec     CX
  62.         jmp     .4
  64.         ; here we handle case when we didn't find a string
  65. .5:
  67. .4:     xor     AL, AL
  68.         stosb
  70.         ; now must return length of string to remove
  71.         mov     AX, BX
  72.         sub     AX, CX
  73. .6:     pop     ES
  74.         pop     DS
  75. creturn net_string
  76. cend    net_string
  77.         end