Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -1,7 +1,7 @@
|
||||
.include "lynx.inc"
|
||||
.include "extzp.inc"
|
||||
.interruptor _UpLoaderIRQ
|
||||
.export __UPLOADER__: absolute = 1
|
||||
.include "lynx.inc"
|
||||
.include "extzp.inc"
|
||||
.interruptor _UpLoaderIRQ
|
||||
.export __UPLOADER__: absolute = 1
|
||||
|
||||
load_len=_FileDestAddr
|
||||
load_ptr=_FileFileLen
|
||||
@@ -10,12 +10,12 @@ load_ptr2=_FileCurrBlock
|
||||
.segment "UPCODE"
|
||||
|
||||
ComLynxReadAndExec:
|
||||
ldy #4
|
||||
ldy #4
|
||||
loop0:
|
||||
jsr read_byte
|
||||
sta load_len-1,y
|
||||
dey
|
||||
bne loop0 ; get destination and length
|
||||
jsr read_byte
|
||||
sta load_len-1,y
|
||||
dey
|
||||
bne loop0 ; get destination and length
|
||||
tax ; lowbyte of length
|
||||
|
||||
lda load_ptr
|
||||
@@ -24,20 +24,20 @@ loop0:
|
||||
sta load_ptr2+1
|
||||
|
||||
loop1:
|
||||
inx
|
||||
inx
|
||||
bne cont1
|
||||
inc load_len+1
|
||||
bne cont1
|
||||
jmp (load_ptr)
|
||||
|
||||
cont1:
|
||||
jsr read_byte
|
||||
jsr read_byte
|
||||
sta (load_ptr2),y
|
||||
sta PALETTE ; feedback ;-)
|
||||
iny
|
||||
bne loop1
|
||||
inc load_ptr2+1
|
||||
bra loop1
|
||||
bne loop1
|
||||
inc load_ptr2+1
|
||||
bra loop1
|
||||
|
||||
read_byte:
|
||||
bit SERCTL
|
||||
@@ -46,22 +46,22 @@ read_byte:
|
||||
rts
|
||||
|
||||
_UpLoaderIRQ:
|
||||
lda INTSET
|
||||
and #$10
|
||||
bne @L0
|
||||
clc
|
||||
rts
|
||||
lda INTSET
|
||||
and #$10
|
||||
bne @L0
|
||||
clc
|
||||
rts
|
||||
@L0:
|
||||
lda SERDAT ; wait for the start sequence
|
||||
bit flag ; already seen $81 ?
|
||||
bpl again ; >= 0 => no
|
||||
cmp #$50 ; "P" ?
|
||||
bne again ; not correct, so clear flag
|
||||
sei
|
||||
sei
|
||||
jmp ComLynxReadAndExec
|
||||
|
||||
again:
|
||||
stz flag
|
||||
stz flag
|
||||
cmp #$81
|
||||
bne exit
|
||||
sta flag
|
||||
@@ -69,11 +69,11 @@ again:
|
||||
; last action : clear interrupt
|
||||
;
|
||||
exit:
|
||||
clc
|
||||
clc
|
||||
rts
|
||||
|
||||
.segment "UPDATA"
|
||||
|
||||
flag:
|
||||
.byte 0
|
||||
.byte 0
|
||||
|
||||
|
||||
Reference in New Issue
Block a user