home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm68k / sd68k.lbr / CRLF.S < prev    next >
Encoding:
Text File  |  1986-06-11  |  512 b   |  22 lines
  1. ****    CRLF Output
  2. **
  3. **    Function:
  4. **        Print <CR> and <LF> on CON:
  5. **    Inputs: -none-
  6. **    Outputs: -none-
  7. **    Registers affected: -none-
  8. **    Routines called: COUT
  9. **    Special error conditions: -none-
  10. *
  11.     .globl    crlf
  12.     .globl    cout
  13.     .text
  14. crlf:    move.l    d1,-(a7)    * save d1
  15.     moveq    #$0d,d1
  16.     jsr    cout        * <CR>
  17.     moveq    #$0a,d1
  18.     jsr    cout        * <LF>
  19.     move.l    (a7)+,d1    * restore d1
  20.     rts
  21.     .end
  22.