30 lines
646 B
ArmAsm
30 lines
646 B
ArmAsm
.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
|
|
|