; Patch monitor READ code
.pc02
.include  "iiee.defs"
rompatch  $fefd,13,"mon_read"
          bra   $ff2d           ; print ERR
          ; delete key patch
          jsr   $fd35           ; RDCHAR
          cmp #$ff
	        bne :+
          lda #$88
:         rts
endpatch