home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC6.DMS / in.adf / libsrc.lha / LIBSRC / putchar.asm < prev    next >
Encoding:
Assembly Source File  |  1994-12-15  |  586 b   |  39 lines
  1.  
  2. *    Maxon C++ Project:
  3. *    Library-Modul "putchar"
  4. *    Jens Gelhar 18.09.91, 15.04.94, 15.12.94
  5.  
  6.     xdef    _putchar,putchar__i
  7.     xdef    _putc,putc__iP06stream
  8.     xdef    _fputc,fputc__iP06stream
  9.  
  10.     xref    _std__out,__Writefile
  11.  
  12. _putchar:
  13. putchar__i:
  14.     pea    _std__out
  15.     move.l    4+4(a7),-(a7)
  16.     bsr.b    _putc
  17.     addq.l    #8,a7
  18.     rts
  19.  
  20. _putc:
  21. putc__iP06stream:
  22. _fputc:
  23. fputc__iP06stream:    ; Stack-Parameter: int, stream*
  24.     movem.l    d2-d3/a6,-(a7)
  25.     move.l    3*4+8(a7),a0
  26.     moveq    #3*4+4+3,d2
  27.     add.l    a7,d2
  28.     moveq    #1,d3
  29.     jsr    __Writefile
  30.     movem.l    (a7)+,d2-d3/a6
  31.     tst.l    d0
  32.     bne.b    err
  33.     move.l    4(a7),d0
  34.     rts
  35. err    moveq    #-1,d0
  36.     rts
  37.  
  38.     end
  39.