home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm68k / sd68k.lbr / COUT.S < prev    next >
Encoding:
Text File  |  1986-06-11  |  512 b   |  20 lines
  1. ****    COUT -- Console Output
  2. **
  3. **    Function:
  4. **        Output character in D1.B to CON:
  5. **    Inputs:   D1.B == character to output
  6. **    Outputs:  -none- (character is output)
  7. **    Registers affected: -none-
  8. **    Routines called: -none-
  9. **    Special error conditions: -none-
  10. *
  11.     .globl    cout
  12.     .text
  13. cout:
  14.     movem.l    d0-d1,-(a7)    * save d0 and d1
  15.     moveq    #2,d0
  16.     trap    #2        * output character
  17.     movem.l    (a7)+,d0-d1
  18.     rts
  19.     .end
  20.