Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > TCP/IP Stack > View Code
OUTSN.ASM
Package: wattcp.rar　[view]
Upload User: better800
Upload Date: 2022-06-13
Package Size: 1853k
Code Size: 1k
Category:

TCP/IP Stack

Development Platform:

DOS

OUTSN.ASM：Code Content
  1. PAGE    66,132
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;  outsn.asm
  11. ;
  12. ;  print a string up to a certain len to stdio
  13. ;
  14. ;
  15. ;  Usage :
  16. ;     outsn( char far *s, int n)
  17. ;
  18. ;  (c) Erick Engelke
  19. ;
  20. ;  version
  21. ;
  22. ;    0.1    7-Nov -1990   E. P. Engelke
  23. ;
  24. ;
  25. include masmdefs.hsm
  26. include model.hsm
  28. codedef OUTSN
  29. datadef
  31.         cextrn  outch
  34. cstart  OUTSN
  35. cpublic outsn
  36. push DS
  37. lds SI, +@AB [BP]
  38. mov CX, +@AB+4[BP]
  39. @1: lodsb
  40.         or      AL, AL
  41.         jz      @2
  43.         cmp     AL, 0dh         ; convert 0d to 0d 0a
  44.         jnz     @3
  46.         push    ax
  47.         ccall    outch
  48.         pop     ax
  50. ;        mov     DL, AL
  51. ;        mov     AX, 020ah
  52. ;        int     21h
  54. @3:     push    ax
  55.         ccall    outch
  56.         pop     ax
  57. ;        mov     DL, AL
  58. ;        mov     AH, 2
  59. ;        int     21h
  60. loop @1
  62. @2: pop DS
  63. creturn outsn
  64. cend    OUTSN
  65.         end