;*; Updated on 04-Feb-88 at 10:32 pm by Tom Faust; edit time: 0:09:29

QTYP..: SAVE    A2,D1,D3
       MOV     ^O14(SP),A2             ; Get address of text (return address)
       CLR     D3                      ; Flag in/out of high intensity
10$:    MOVW    #^O177400!11.,D1
       TCRT
20$:    MOVB    (A2)+,D1                ; Get next character
       BEQ     40$                     ;   done at null
       CMPB    D1,#'_                  ; Underline?
       BEQ     30$
 25$:  TTY                             ; Output the character
       CMPB    D1,#13.                 ; A CR?
       BNE     20$
       MOVB    #10.,D1                 ; Output an LF too!
       BR      25$
30$:    COM     D3                      ; Flag change in intensity
       BEQ     10$                     ;   if zero, set low
       MOVW    #^O177400!12.,D1        ;       else set high
       TCRT
       BR      20$
40$:    MOV     A2,D3
       INC     D3                      ; Increment address to find even
       BCLR    #0,D3
       MOV     D3,^O14(SP)             ; Adjust return address
       REST    A2,D1,D3
       RTN

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.