Upload files to "kernal"
This commit is contained in:
@@ -0,0 +1,29 @@
|
||||
.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
|
||||
|
||||
Reference in New Issue
Block a user