.segment "KPATCH"

	; unused patch area
	.res 28, $aa

; prtyp - rs232 parity patch...added 901227-03
;
prtyp	sta rinone      ;good receiver start...disable flag
	lda #1          ;set parity to 1 always
	sta riprty
	rts

; cpatch - fix to clear line...modified 901227-03
;  prevents white character flash...
cpatch                  ;always clear to current foregnd color
	lda color
	sta (user),y
	rts

; fpatch - tape filename timeout
;
fpatch	adc #2          ;time is (8 to 13 sec of display)
fpat00	ldy stkey       ;check for key down on last row...
	iny
	bne fpat01      ;key...exit loop
	cmp time+1      ;watch timer
	bne fpat00
fpat01	rts