home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / proglc / tnylib.lzh / REWIND.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-10-21  |  363 b   |  22 lines
  1. include compiler.inc
  2.  
  3.     ttl    rewind, 1.05, 10-21-86, jwk
  4.  
  5.     dseg
  6.     cseg
  7.  
  8.     xtfs    <lseek, $strhand>
  9.  
  10.         ;    rewind(stream) FILE *stream;
  11.         ;    { return (int) lseek(hdl(stream),0L,0);
  12.         ;    }
  13.  
  14.     procdef    rewind, <<stream,ptr>>
  15.     callit    $strhand, <<stream,ptr>>
  16.     xor    bx,bx
  17.     callit    lseek, <<bx, reg>, <bx, reg>, <bx, reg>, <ax, reg>>
  18.     pret
  19.     pend    rewind
  20.  
  21.     finish
  22.