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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > TCP/IP协议栈 > 查看源码
OUTS.ASM
资源名称：wattcp.rar　[点击查看]
上传用户：better800
上传日期：2022-06-13
资源大小：1853k
文件大小：1k
源码类别：

TCP/IP协议栈

开发平台：

DOS

OUTS.ASM：源码内容
  1. PAGE    66,132
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;  outs.asm
  11. ;
  12. ;  print a string to stdio
  13. ;
  14. ;
  15. ;  Usage :
  16. ;     outch( ch )
  17. ;
  18. ;  (c) 1990 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 OUTS
  29. datadef
  31.         cextrn  outch
  33. cstart  OUTS
  34. cpublic outs
  35. push DS
  36. lds SI, +@AB [BP]
  37. @1: lodsb
  38.         or      AL, AL
  39. jz  @2
  41.         cmp     AL, 0dh         ;convert 0d to 0d 0a
  42.         jnz     @3
  44.         push    AX
  45.         ccall    outch
  46.         pop     AX
  47. ;        mov     DL, AL
  48. ;        mov     AX, 020ah
  49. ;        int     21h
  51. @3:     push    AX
  52.         ccall    outch
  53.         pop     AX
  55. ;        mov     DL, AL
  56. ;        mov     AH, 2
  57. ;        int     21h
  58. jmp @1
  60. @2: pop DS
  61. creturn outs
  62. cend    OUTS
  63.         end