home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / MAXONC3_6OF8.DMS / in.adf / LIBSRC.LHA / LIBSRC / seekstream.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-15  |  506 b   |  33 lines
  1.  
  2. * Maxon C++:
  3. * Library-Modul "seekstream"
  4. * Jens Gelhar 21.04.92, 15.04.94
  5.  
  6.     xdef    seekg__fstreambase__Tji
  7.     xdef    tellg__fstreambase__T
  8.  
  9.     xref    ftell__P06stream,fseek__P06streamji
  10.  
  11. seekg__fstreambase__Tji:
  12.     move.l    4(a7),a0
  13.     move.l    (a0),a0
  14.     moveq    #1,d0
  15.     tst.l    (a0)
  16.     beq.b    srt
  17.     move.l    4+8(a7),-(a7)
  18.     move.l    4+8(a7),-(a7)
  19.     move.l    (a0),-(a7)
  20.     jsr    fseek__P06streamji
  21.     lea    12(a7),a7
  22. srt    rts
  23.  
  24. tellg__fstreambase__T:
  25.     move.l    4(a7),a0
  26.     move.l    (a0),a0
  27.     move.l    (a0),-(a7)
  28.     jsr    ftell__P06stream
  29.     addq.l    #4,a7
  30.     rts
  31.  
  32.     end
  33.