;
; SYSLIB Module Name:  SCRLF
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;       CRLF
; Module External References:
;       COUT
;

;
;  CRLF --
;       PRINT <CR> AND <LF> ON CON:
;       AFFECT NO REGS
;
       EXT     COUT

CRLF::
       PUSH    PSW     ; SAVE REG A AND FLAGS
       MVI     A,CR    ; PRINT <CR>
       CALL    COUT
       MVI     A,LF    ; PRINT <LF>
       CALL    COUT
       POP     PSW     ; RESTORE REG A AND FLAGS
       RET

;
;  ASCII SPECIAL CHARACTER EQUATES
;
NULL    EQU      0      ; NULL
BEL     EQU      7      ; BELL
BS      EQU      8      ; BACKSPACE
TAB     EQU      9      ; TAB
LF      EQU     10      ; LINE FEED
CR      EQU     13      ; CARRIAGE RETURN
CTRLR   EQU     'R'-40H ; CTRL-R
CTRLU   EQU     'U'-40H ; CTRL-U
CTRLX   EQU     'X'-40H ; CTRL-X
DEL     EQU     7FH     ; DELETE CHAR

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.