home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / c / mscwattc / elib / outsn.asm < prev    next >
Encoding:
Assembly Source File  |  1992-01-14  |  1.0 KB  |  71 lines
  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) 1990 University of Waterloo,
  19. ;           Faculty of Engineering,
  20. ;           Engineering Microcomputer Network Development Office
  21. ;
  22. ;  version
  23. ;
  24. ;    0.1    7-Nov -1990   E. P. Engelke
  25. ;
  26. ;
  27.     include masmdefs.hsm
  28.     include    model.hsm
  29.  
  30. codedef OUTSN
  31. datadef
  32.  
  33.         cextrn  outch
  34.  
  35.  
  36. cstart  OUTSN
  37. cpublic outsn
  38.     push    DS
  39.     push    si
  40.     lds    SI, +@AB [BP]
  41.     mov    CX, +@AB+4[BP]
  42. @1:    lodsb
  43.         or      AL, AL
  44.         jz      @2
  45.  
  46.         cmp     AL, 0dh         ; convert 0d to 0d 0a
  47.         jnz     @3
  48.  
  49.         push    ax
  50.         ccall    outch
  51.         pop     ax
  52.  
  53. ;        mov     DL, AL
  54. ;        mov     AX, 020ah
  55. ;        int     21h
  56.  
  57. @3:     push    ax
  58.         ccall    outch
  59.         pop     ax
  60. ;        mov     DL, AL
  61. ;        mov     AH, 2
  62. ;        int     21h
  63.     loop    @1
  64.  
  65. @2:    pop    si
  66.     pop    DS
  67. creturn outsn
  68. cend    OUTSN
  69.         end
  70.  
  71.