git-svn-id: svn://cu.loc/avr-cpm/trunk@117 57430480-672e-4586-8877-bcf8adbbf3b7

diff --git a/avrcpm/avr/dsk_fat16.asm b/avrcpm/avr/dsk_fat16.asm
index 4d2683d7b247e057f8cdd9a27c9b83508154d88c..cc25afd179e7f893206ff8e33557bdc8cfd87128 100644 (file)
--- a/avrcpm/avr/dsk_fat16.asm
+++ b/avrcpm/avr/dsk_fat16.asm
@@ -101,10 +101,6 @@ fat_init_partitiontable:
        st      y+,_0
        st      y+,_0
        st      y+,_0
-       st      y+,_0
-       st      y+,_0
-       st      y+,_0
-       st      y+,_0
        ret\r
 \r
 ; ============================================================================\r
@@ -172,17 +168,6 @@ fat_add_partition:
        st      y+,temp
        ldd     temp,z+PART_START+3
        st      y+,temp
-\r
-; Don't need the Size of the Partition for use with Imagefiles
-;      ldd     temp,z+PART_SIZE
-;      st      y+,temp
-;      ldd     temp,z+PART_SIZE+1
-;      st      y+,temp
-;      ldd     temp,z+PART_SIZE+2
-;      st      y+,temp
-;      ldd     temp,z+PART_SIZE+3
-;      st      y+,temp
-
 
 ;   reload variables from stack
        pop     yh
@@ -539,21 +524,11 @@ fat_look_for_loop:
 
 fat_scan_for_more:\r
 \r
-\r
-.if FAT16_DEBUG > 1\r
-       printstring "At:Scann for more ",0\r
-       printnewline\r
-.endif\r
-\r
        lds     zl   ,fat_clust_ptr\r
        lds     zh   ,fat_clust_ptr+1\r
        lds     temp2,fat_clust_ptr+2\r
 fat_look_not_ok:
-       
-.if FAT16_DEBUG > 1\r
-       printstring "+",0\r
-.endif\r
-       \r
+               \r
        adiw    z,32\r
 
        inc     temp2
@@ -563,10 +538,6 @@ fat_look_not_ok:
 
 fat_scan_next_sector:
 
-.if FAT16_DEBUG > 1\r
-       printstring "At:Scan next Sector",0\r
-       printnewline\r
-.endif\r
        \r
        lds     temp3, fat_log_clust\r
        lds     temp4, fat_log_clust+1\r
@@ -589,11 +560,6 @@ fat_scan_next_sector:
 \r
 fat_scan_at_end:\r
 \r
-.if FAT16_DEBUG > 1\r
-       printstring "At:Scan at end",0\r
-       printnewline\r
-.endif\r
-\r
        lds     temp,fat_last_dsk\r
        inc     temp\r
        sts     fat_last_dsk,temp\r
@@ -637,28 +603,18 @@ fat_look_store:
        ldi     temp,dskType_FAT
        st      y+,temp
 
-.if FAT16_DEBUG > 1\r
-       printstring "ClusterID",0\r
-.endif\r
+\r
 ;   Offset to Startcluster + 2
        ldd     temp,z+0x1A
        st      y+,temp
-.if FAT16_DEBUG > 1\r
-       rcall   printhex\r
-.endif
+
        ldd     temp,z+0x1B
        st      y+,temp 
-.if FAT16_DEBUG > 1\r
-       rcall   printhex\r
-.endif
+
        ldi     temp,0
        st      y+,temp
        st      y+,temp\r
 
-.if FAT16_DEBUG > 1\r
-       printnewline\r
-.endif
-
 ;   Filesize in Bytes\r
 ;      ldd     temp,z+0x1C
 ;      st      y+,temp
@@ -871,7 +827,8 @@ fat_next_phsy_clust:
        rjmp    fat_next_phsy_clust
        
 ; Found the physical cluster
-fat_found_phsy_clust:  
+fat_found_phsy_clust:\r
+       
 .if FAT16_DBG_FAT > 0
        printstring "Found phys. Cluster at:",0
        mov     temp,yl
@@ -961,7 +918,8 @@ fat_search_clst_lp:
        
        lsr     zl
 
-       rjmp    fat_search_clst_lp      
+       rjmp    fat_search_clst_lp\r
+               
 fat_found_clst:                        
 ; at this point xh and xl are carying the logical cluster number
 ;      printstring "find subsector"
@@ -1019,6 +977,7 @@ fat_wrong_cache_clst:
        mov     xl,yl
        mov     xh,yh
        rcall   fat_gethostsec
+\r
 ; Found the physical sector
 .if FAT16_DBG_FAT > 0
        printstring "Found phys. Sector at:",0