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 / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCRLF.Z80 < prev    next >
Text File  |  2000-06-30  |  768b  |  40 lines
  1. ;
  2. ; SYSLIB Module Name:  SCRLF
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    crlf
  8.  
  9. ;
  10. ;  CRLF -- 
  11. ;    PRINT <CR> AND <LF> ON CON:
  12. ;    AFFECT NO REGS
  13. ;
  14.     EXT    COUT
  15.  
  16. CRLF:
  17.     PUSH    AF    ; SAVE REG A AND FLAGS
  18.     LD    A,CR    ; PRINT <CR>
  19.     CALL    COUT
  20.     LD    A,LF    ; PRINT <LF>
  21.     CALL    COUT
  22.     POP    AF    ; RESTORE REG A AND FLAGS
  23.     RET
  24.  
  25. ;
  26. ;  ASCII SPECIAL CHARACTER EQUATES
  27. ;
  28. NULL    EQU     0    ; NULL
  29. BEL    EQU     7    ; BELL
  30. BS    EQU     8    ; BACKSPACE
  31. TAB    EQU     9    ; TAB
  32. LF    EQU    10    ; LINE FEED
  33. CR    EQU    13    ; CARRIAGE RETURN
  34. CTRLR    EQU    'R'-40H    ; CTRL-R
  35. CTRLU    EQU    'U'-40H    ; CTRL-U
  36. CTRLX    EQU    'X'-40H    ; CTRL-X
  37. DEL    EQU    7FH    ; DELETE CHAR
  38.  
  39.     END
  40.