; patch to make FIX do ^K correctly. FIX does not work right on non-SOROC
; terminals becuase the ^K is simply echoed back to the terminal. This
; patch replaces the echo with the proper TCRT call. Long live terminal
; independence!
; Soft Machines, Box 3701, Champaign, IL 61821
; written by Bob Rubendunst 07/08/83

       COPY    PATCH
       OHASH   754,267,430,071
       NHASH   027,544,454,003
       OVER    1,0,0,113.,0
       NVER    1,0,0,113.,1
=12270
       MOV     2012(A0),D0             ; get row #
       SUB     #1,D0                   ;  less one
       BEQ     12340                   ;  at top of screen - cant go up
       MOVW    #-375,D1                ; set cursor code to 3
       TCRT                            ; move cursor up one line
       MOV     #13,D1                  ; restore D1 with ^K.
       MOV     D0,2012(A0)             ; update row

       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.