]> git.sur5r.net Git - cc65/blobdiff - libsrc/lynx/uploader.s
Fixed _textcolor definition.
[cc65] / libsrc / lynx / uploader.s
index da72fd5b9a96e77a15308f3e2705757ff06d1681..f16a1721ab98998e71187a4d96c8bf02aabbcf17 100644 (file)
@@ -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