;***************************************************************;
;                                                               ;
;               TELTYPE MODEL 40 TERMINAL DRIVER                ;
;                       MARCH 23,1978                           ;
;                                                               ;
;***************************************************************;
;
;Copyright (C) 1978, 1979 - Alpha Microsystems, Irvine CA 92714
;
; Modified for 68000 by Tom Dahlquist, 8/27/85

       OBJNAM  .TDV

       SEARCH  SYS
       SEARCH  SYSSYM
       SEARCH  TRM

;********************
;*      TELTYP      *
;********************
;TERMINAL DRIVER COMMUNICATIONS AREA
TELTYP: WORD    0               ;TERMINAL ATTRIBUTES
       RTN                     ;INPUT ROUTINE
       BR      OUTPUT          ;OUTPUT ROUTINE
       RTN                     ;ECHO ROUTINE
       RTN

;********************
;*      OUTPUT      *
;********************
;CHECK FOR LINE-FEED AND APPEND 4 NULLS IF SO
OUTPUT: ANDB    #177,D1         ;STRIP ASCII
       CMPB    D1,#12          ;LINE-FEED?
       BEQ     STALL           ;  YES
       CMPB    D1,#14          ;FORM FEED?
       BNE     OUTX            ;NO
STALL:  LEA     A3,T.OQX(A5)    ;INDEX THE TERMINAL OUTPUT QUEUE
       QINS                    ;QUEUE UP A BLOCK
       MOV     #4,4(A3)        ;SET COUNT FOR 4 NULLS
OUTX:   LCC     #PS.N           ;SET N-BIT TO PROCESS POSITIONING
       RTN
       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.