home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol090 / slcrlf.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  690 b   |  43 lines
  1. ;
  2. ; SYSLIB Module Name:  SLCRLF
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    LCRLF
  8. ; Module External References:
  9. ;    LOUT
  10. ;
  11.  
  12. ;
  13. ;  LCRLF -- 
  14. ;    PRINT <CR> AND <LF> ON LST:
  15. ;    AFFECT NO REGS
  16. ;
  17.     EXT    LOUT
  18.  
  19. LCRLF::
  20.     PUSH    PSW    ; SAVE REG A AND FLAGS
  21.     MVI    A,CR    ; PRINT <CR>
  22.     CALL    LOUT
  23.     MVI    A,LF    ; PRINT <LF>
  24.     CALL    LOUT
  25.     POP    PSW    ; RESTORE REG A AND FLAGS
  26.     RET
  27.  
  28. ;
  29. ;  ASCII SPECIAL CHARACTER EQUATES
  30. ;
  31. NULL    EQU     0    ; NULL
  32. BEL    EQU     7    ; BELL
  33. BS    EQU     8    ; BACKSPACE
  34. TAB    EQU     9    ; TAB
  35. LF    EQU    10    ; LINE FEED
  36. CR    EQU    13    ; CARRIAGE RETURN
  37. CTRLR    EQU    'R'-40H    ; CTRL-R
  38. CTRLU    EQU    'U'-40H    ; CTRL-U
  39. CTRLX    EQU    'X'-40H    ; CTRL-X
  40. DEL    EQU    7FH    ; DELETE CHAR
  41.  
  42.     END
  43.