; Patch to AMOSL 1.2(96) to allow old style screen control commands to
; work properly under the patched monitor. This patch works properly
; with COLOR CRTs and still prevents bonafide COLOR commands from reaching
; monochrome CRTs.

; This is NOT an official Alpha Micro patch.

       COPY    PATCH

       OVER    1, 2, 96., 0

       .=13626

       CMPW    D1,#100377              ; old function or cursor pos ?
       BLOS    DOIT                    ;  yes-do it
       CMPW    D1,#177400              ; new type function call ?
       BHIS    DOIT                    ;  yes-do it also
; only expanded (COLOR) calls remain at this point
       BTST    #3,22(A6)               ; COLOR terminal ?
       BEQ     NOPE                    ;  no-ignore color TCRT call
DOIT:   CALL    10(A6)                  ; call terminal driver
NOPE:   SSTS    D7                      ; save status
       NOP                             ; fill a word to match up.

       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.