home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / proglc / tnylib.lzh / FPUTS.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-11-20  |  679 b   |  46 lines
  1. include compiler.inc
  2.  
  3.     ttl    FPUTS, 1.04, 08-28-86, clr
  4.  
  5.  
  6.     ;---------------------------------------------------------------;
  7.     ;                                ;
  8.     ; #include "stdio.h"                        ;
  9.     ;                                ;
  10.     ; fputs (bfr, strm) char * bfr; FILE * strm;            ;
  11.     ; { while (*bfr)                        ;
  12.     ;     fputc (*bfr++, strm);                    ;
  13.     ; }                                ;
  14.     ;                                ;
  15.     ;---------------------------------------------------------------;
  16.  
  17.     dseg
  18.     extrn    _ftb:byte
  19.  
  20.     cseg
  21.  
  22.     xtfs    <fputc,$strhand>
  23.  
  24.     procdef    fputs, <<bfr, ptr>, <strm, ptr>>
  25.  
  26.     pushreg
  27.     pushds
  28.  
  29.     ldptr    si,bfr
  30. fps1:
  31.     cld
  32.     lodsb
  33.     or    al,al
  34.     jz    fps2
  35.  
  36.     callit    fputc,<<strm,ptr>,<ax,reg>>
  37.     jmp    fps1
  38.  
  39. fps2:    pret
  40.  
  41.     pend    fputs
  42.  
  43.     finish
  44.  
  45.     end
  46.