home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CPM68K / SD68K.LBR / CRLF.S < prev    next >
Text File  |  2000-06-30  |  512b  |  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.