Working on fat32 drivers

BOOT_AETHELOS.bat

···
 
 "C:\Program Files\qemu\qemu-system-x86_64.exe" ^
   -cdrom aethelos.iso ^
+  -hda aethelos-test.img ^
+  -boot d ^
   -serial file:serial.log ^
   -m 256M ^
   -display gtk ^

heartwood/src/drivers/ata.rs

···
+//! ATA/IDE disk driver (PIO mode)
+//!
+//! This driver supports reading from ATA hard drives using PIO (Programmed I/O) mode.
+//! It implements the BlockDevice trait for integration with the VFS layer.
+//!
+//! **Supported:**
+//! - Primary bus (0x1F0-0x1F7)
+//! - Master drive
+//! - 28-bit LBA addressing
+//! - Read operations
+//!
+//! **Not yet implemented:**
+//! - Secondary bus (0x170)
+//! - Slave drives
+//! - 48-bit LBA
+//! - DMA mode
+//! - Write operations
+
+use crate::vfs::block_device::{BlockDevice, BlockDeviceError};
+use alloc::vec::Vec;
+use core::arch::asm;
+
+/// ATA command codes
+const ATA_CMD_READ_SECTORS: u8 = 0x20;
+const ATA_CMD_IDENTIFY: u8 = 0xEC;
+
+/// ATA status register bits
+const ATA_STATUS_BSY: u8 = 0x80;  // Busy
+const ATA_STATUS_DRQ: u8 = 0x08;  // Data Request Ready
+const ATA_STATUS_ERR: u8 = 0x01;  // Error
+
+/// Primary ATA bus base I/O port
+const ATA_PRIMARY_BASE: u16 = 0x1F0;
+
+/// I/O port offsets from base
+const ATA_REG_DATA: u16 = 0;       // 0x1F0
+const ATA_REG_ERROR: u16 = 1;      // 0x1F1
+const ATA_REG_SECTOR_COUNT: u16 = 2; // 0x1F2
+const ATA_REG_LBA_LOW: u16 = 3;    // 0x1F3
+const ATA_REG_LBA_MID: u16 = 4;    // 0x1F4
+const ATA_REG_LBA_HIGH: u16 = 5;   // 0x1F5
+const ATA_REG_DRIVE: u16 = 6;      // 0x1F6
+const ATA_REG_STATUS: u16 = 7;     // 0x1F7
+const ATA_REG_COMMAND: u16 = 7;    // 0x1F7 (write)
+
+/// ATA disk drive
+pub struct AtaDrive {
+    bus: u16,
+    drive: u8,        // 0 = master, 1 = slave
+    sectors: u64,
+    sector_size: u32,
+}
+
+impl AtaDrive {
+    /// Get the total number of sectors on this drive
+    pub fn sector_count(&self) -> u64 {
+        self.sectors
+    }
+
+    /// Detect and initialize primary master drive
+    pub fn detect_primary_master() -> Option<Self> {
+        let bus = ATA_PRIMARY_BASE;
+        let drive = 0;
+
+        // Aggressive detection: just assume drive exists and try to use it
+        // If sector reads work, it's a real drive!
+        // This avoids IDENTIFY command which was hanging
+        Some(AtaDrive {
+            bus,
+            drive,
+            sectors: 204800,  // Assume 100MB (will be corrected if FAT32 mount works)
+            sector_size: 512,
+        })
+    }
+
+    /// Send IDENTIFY command to drive
+    fn identify(bus: u16, drive: u8) -> bool {
+        // Select drive
+        outb(bus + ATA_REG_DRIVE, 0xA0 | (drive << 4));
+        Self::wait_400ns(bus);
+
+        // Set sector count and LBA to 0
+        outb(bus + ATA_REG_SECTOR_COUNT, 0);
+        outb(bus + ATA_REG_LBA_LOW, 0);
+        outb(bus + ATA_REG_LBA_MID, 0);
+        outb(bus + ATA_REG_LBA_HIGH, 0);
+
+        // Send IDENTIFY command
+        outb(bus + ATA_REG_COMMAND, ATA_CMD_IDENTIFY);
+
+        // Read status
+        let status = inb(bus + ATA_REG_STATUS);
+        if status == 0 {
+            // Drive does not exist
+            return false;
+        }
+
+        // Poll until BSY clears
+        if !Self::wait_not_busy(bus) {
+            return false;
+        }
+
+        // Check if drive is ready
+        let lba_mid = inb(bus + ATA_REG_LBA_MID);
+        let lba_high = inb(bus + ATA_REG_LBA_HIGH);
+
+        if lba_mid != 0 || lba_high != 0 {
+            // Not ATA drive (might be ATAPI)
+            return false;
+        }
+
+        // Wait for DRQ or ERR (with timeout)
+        for _ in 0..1000 {
+            let status = inb(bus + ATA_REG_STATUS);
+            if status & ATA_STATUS_ERR != 0 {
+                return false;
+            }
+            if status & ATA_STATUS_DRQ != 0 {
+                break;
+            }
+        }
+
+        // Drive exists and responded to IDENTIFY
+        // Discard the 256 words of IDENTIFY data for now
+        for _ in 0..256 {
+            let _ = inw(bus + ATA_REG_DATA);
+        }
+
+        true
+    }
+
+    /// Read sector count from IDENTIFY data
+    fn read_sector_count(bus: u16, drive: u8) -> u64 {
+        // Re-send IDENTIFY to get data
+        outb(bus + ATA_REG_DRIVE, 0xA0 | (drive << 4));
+        Self::wait_400ns(bus);
+        outb(bus + ATA_REG_COMMAND, ATA_CMD_IDENTIFY);
+        Self::wait_not_busy(bus);
+
+        // Wait for DRQ (with timeout)
+        let mut drq_ready = false;
+        for _ in 0..1000 {
+            let status = inb(bus + ATA_REG_STATUS);
+            if status & ATA_STATUS_DRQ != 0 {
+                drq_ready = true;
+                break;
+            }
+        }
+
+        if !drq_ready {
+            // Timeout - return default
+            return 2048; // 1MB default
+        }
+
+        // Read IDENTIFY data
+        let mut identify_data = [0u16; 256];
+        for i in 0..256 {
+            identify_data[i] = inw(bus + ATA_REG_DATA);
+        }
+
+        // Words 60-61 contain total 28-bit LBA sectors
+        let sectors_low = identify_data[60] as u32;
+        let sectors_high = identify_data[61] as u32;
+        let sectors = (sectors_high as u64) << 16 | sectors_low as u64;
+
+        if sectors > 0 {
+            sectors
+        } else {
+            // Default to small size if IDENTIFY failed
+            2048 // 1MB
+        }
+    }
+
+    /// Read a single sector (28-bit LBA)
+    fn read_sector_pio(&self, lba: u64) -> Result<Vec<u8>, BlockDeviceError> {
+        if lba >= self.sectors {
+            return Err(BlockDeviceError::InvalidSector);
+        }
+
+        // Select drive (LBA mode)
+        let drive_byte = 0xE0 | (self.drive << 4) | ((lba >> 24) & 0x0F) as u8;
+        outb(self.bus + ATA_REG_DRIVE, drive_byte);
+        Self::wait_400ns(self.bus);
+
+        // Send sector count (1 sector)
+        outb(self.bus + ATA_REG_SECTOR_COUNT, 1);
+
+        // Send LBA
+        outb(self.bus + ATA_REG_LBA_LOW, (lba & 0xFF) as u8);
+        outb(self.bus + ATA_REG_LBA_MID, ((lba >> 8) & 0xFF) as u8);
+        outb(self.bus + ATA_REG_LBA_HIGH, ((lba >> 16) & 0xFF) as u8);
+
+        // Send READ SECTORS command
+        outb(self.bus + ATA_REG_COMMAND, ATA_CMD_READ_SECTORS);
+
+        // Wait for drive to be ready
+        if !Self::wait_not_busy(self.bus) {
+            return Err(BlockDeviceError::IoError);
+        }
+
+        // Wait for DRQ (with timeout)
+        for _ in 0..1000 {
+            let status = inb(self.bus + ATA_REG_STATUS);
+            if status & ATA_STATUS_ERR != 0 {
+                return Err(BlockDeviceError::IoError);
+            }
+            if status & ATA_STATUS_DRQ != 0 {
+                break;
+            }
+        }
+
+        // Read 512 bytes (256 words)
+        let mut buffer = Vec::with_capacity(512);
+        for _ in 0..256 {
+            let word = inw(self.bus + ATA_REG_DATA);
+            buffer.push((word & 0xFF) as u8);
+            buffer.push((word >> 8) as u8);
+        }
+
+        Ok(buffer)
+    }
+
+    /// Wait for drive to not be busy (with timeout)
+    fn wait_not_busy(bus: u16) -> bool {
+        for _ in 0..1000 {  // Much shorter timeout
+            let status = inb(bus + ATA_REG_STATUS);
+            if status & ATA_STATUS_BSY == 0 {
+                return true;
+            }
+            // No delay - inb() itself provides enough time
+        }
+        false
+    }
+
+    /// Wait 400ns by reading status register 4 times
+    fn wait_400ns(bus: u16) {
+        for _ in 0..4 {
+            let _ = inb(bus + ATA_REG_STATUS);
+        }
+    }
+
+    /// Tiny delay for polling loops
+    fn tiny_delay() {
+        for _ in 0..100 {
+            core::hint::spin_loop();
+        }
+    }
+}
+
+impl BlockDevice for AtaDrive {
+    fn sector_size(&self) -> u32 {
+        self.sector_size
+    }
+
+    fn sector_count(&self) -> u64 {
+        self.sectors
+    }
+
+    fn read_sector(&self, sector: u64) -> Result<Vec<u8>, BlockDeviceError> {
+        self.read_sector_pio(sector)
+    }
+
+    fn read_sectors(&self, start_sector: u64, count: u32) -> Result<Vec<u8>, BlockDeviceError> {
+        let mut result = Vec::with_capacity((count as usize) * 512);
+
+        for i in 0..count {
+            let sector_data = self.read_sector(start_sector + i as u64)?;
+            result.extend_from_slice(&sector_data);
+        }
+
+        Ok(result)
+    }
+
+    fn write_sector(&self, _sector: u64, _data: &[u8]) -> Result<(), BlockDeviceError> {
+        // Write not yet implemented
+        Err(BlockDeviceError::WriteProtected)
+    }
+
+    fn write_sectors(&self, _start_sector: u64, _data: &[u8]) -> Result<(), BlockDeviceError> {
+        // Write not yet implemented
+        Err(BlockDeviceError::WriteProtected)
+    }
+
+    fn sync(&self) -> Result<(), BlockDeviceError> {
+        // No cache to flush in PIO mode
+        Ok(())
+    }
+
+    fn is_read_only(&self) -> bool {
+        true  // For now, until write support is added
+    }
+}
+
+/// Read byte from I/O port
+fn inb(port: u16) -> u8 {
+    let result: u8;
+    unsafe {
+        asm!(
+            "in al, dx",
+            out("al") result,
+            in("dx") port,
+            options(nomem, nostack, preserves_flags)
+        );
+    }
+    result
+}
+
+/// Write byte to I/O port
+fn outb(port: u16, value: u8) {
+    unsafe {
+        asm!(
+            "out dx, al",
+            in("dx") port,
+            in("al") value,
+            options(nomem, nostack, preserves_flags)
+        );
+    }
+}
+
+/// Read word (16-bit) from I/O port
+fn inw(port: u16) -> u16 {
+    let result: u16;
+    unsafe {
+        asm!(
+            "in ax, dx",
+            out("ax") result,
+            in("dx") port,
+            options(nomem, nostack, preserves_flags)
+        );
+    }
+    result
+}

heartwood/src/drivers/mod.rs

···
+//! Hardware device drivers
+//!
+//! This module contains drivers for various hardware devices.
+
+pub mod ata;
+
+pub use ata::AtaDrive;

heartwood/src/eldarin.rs

···
 
 /// VFS Info - Show filesystem information
 fn cmd_vfs_info() {
-    use crate::vfs::mock_fat32::MockFat32Device;
-    use crate::vfs::fat32::Fat32;
-    use alloc::boxed::Box;
-
-    crate::println!("◈ Filesystem Information");
-    crate::println!();
-
-    let device = Box::new(MockFat32Device::new());
-    let fat32 = match Fat32::new(device) {
-        Ok(fs) => fs,
-        Err(e) => {
-            crate::println!("Failed to mount: {:?}", e);
-            return;
-        }
-    };
-
-    crate::println!("  Filesystem Type:    {}", fat32.bpb.fs_type);
-    crate::println!("  Volume Label:       {}", fat32.bpb.volume_label);
-    crate::println!();
-    crate::println!("  Geometry:");
-    crate::println!("    Bytes per sector: {}", fat32.bpb.bytes_per_sector);
-    crate::println!("    Sectors/cluster:  {}", fat32.bpb.sectors_per_cluster);
-    crate::println!("    Cluster size:     {} bytes", fat32.bpb.cluster_size());
-    crate::println!("    Total sectors:    {}", fat32.bpb.total_sectors);
-    crate::println!();
-    crate::println!("  FAT Information:");
-    crate::println!("    Number of FATs:   {}", fat32.bpb.num_fats);
-    crate::println!("    Sectors per FAT:  {}", fat32.bpb.sectors_per_fat);
-    crate::println!("    Root cluster:     {}", fat32.bpb.root_cluster);
-    crate::println!();
-    crate::println!("  Special Sectors:");
-    crate::println!("    FSInfo sector:    {}", fat32.bpb.fsinfo_sector);
-    crate::println!("    Backup boot:      {}", fat32.bpb.backup_boot_sector);
-
-    if let Some(free) = fat32.bpb.free_clusters() {
-        crate::println!();
-        crate::println!("  Space (from FSInfo):");
-        crate::println!("    Free clusters:    {}", free);
-        if let Some(space) = fat32.bpb.free_space() {
-            crate::println!("    Free space:       {} KB ({} MB)",
-                space / 1024, space / 1024 / 1024);
-        }
-    }
+    crate::vfs::debug_cmd::show_mount_status();
 }
 
 /// VFS LS - List directory contents
 fn cmd_vfs_ls(args: &str) {
     use crate::vfs::{FileSystem, Path};
-    use crate::vfs::mock_fat32::MockFat32Device;
-    use crate::vfs::fat32::Fat32;
-    use alloc::boxed::Box;
+    use crate::vfs::global as vfs_global;
 
     let path = if args.is_empty() { "/" } else { args.trim() };
 
-    let device = Box::new(MockFat32Device::new());
-    let fat32 = match Fat32::new(device) {
-        Ok(fs) => fs,
-        Err(e) => {
-            crate::println!("Failed to mount: {:?}", e);
+    // Get global filesystem
+    let global_fs = match vfs_global::get() {
+        Some(fs) => fs,
+        None => {
+            crate::println!("  ✗ No filesystem mounted");
+            crate::println!("  (Reboot with -hda disk.img to mount a drive)");
+            return;
+        }
+    };
+
+    let fs_lock = global_fs.lock();
+    let fs = match &*fs_lock {
+        Some(filesystem) => filesystem,
+        None => {
+            crate::println!("  ✗ No filesystem mounted");
             return;
         }
     };
···
     crate::println!("◈ Directory listing: {}", path);
     crate::println!();
 
-    match fat32.read_dir(&Path::new(path)) {
+    match fs.read_dir(&Path::new(path)) {
         Ok(entries) => {
             let count = entries.len();
             if entries.is_empty() {
···
 /// VFS CAT - Display file contents
 fn cmd_vfs_cat(args: &str) {
     use crate::vfs::{FileSystem, Path};
-    use crate::vfs::mock_fat32::MockFat32Device;
-    use crate::vfs::fat32::Fat32;
-    use alloc::boxed::Box;
+    use crate::vfs::global as vfs_global;
 
     if args.is_empty() {
         crate::println!("Usage: vfs-cat <filename>");
···
 
     let filename = args.trim();
 
-    let device = Box::new(MockFat32Device::new());
-    let fat32 = match Fat32::new(device) {
-        Ok(fs) => fs,
-        Err(e) => {
-            crate::println!("Failed to mount: {:?}", e);
+    // Get global filesystem
+    let global_fs = match vfs_global::get() {
+        Some(fs) => fs,
+        None => {
+            crate::println!("  ✗ No filesystem mounted");
+            return;
+        }
+    };
+
+    let fs_lock = global_fs.lock();
+    let fs = match &*fs_lock {
+        Some(filesystem) => filesystem,
+        None => {
+            crate::println!("  ✗ No filesystem mounted");
             return;
         }
     };
···
     crate::println!("◈ Reading: {}", filename);
     crate::println!();
 
-    match fat32.read(&Path::new(filename)) {
+    match fs.read(&Path::new(filename)) {
         Ok(data) => {
             if let Ok(text) = core::str::from_utf8(&data) {
                 for line in text.lines() {

heartwood/src/lib.rs

···
 pub mod eldarin;  // The Eldarin Shell
 pub mod irq_safe_mutex;  // Interrupt-safe mutex primitive
 pub mod vfs;  // Virtual File System layer
+pub mod drivers;  // Hardware device drivers
 
 // Re-export key types
 pub use nexus::{Message, MessageType, MessagePriority, NexusError};

heartwood/src/main.rs

···
     }
 }
 
+/// Mount storage - using RAM disk since ATA driver has issues
+fn detect_and_mount_storage() {
+    use heartwood::vfs::mock_fat32::MockFat32Device;
+    use heartwood::vfs::fat32::Fat32;
+    use heartwood::vfs::global as vfs_global;
+    use alloc::boxed::Box;
+
+    // Initialize global VFS
+    vfs_global::init();
+
+    println!("  ◈ Creating RAM disk (64KB FAT32 filesystem)...");
+
+    // Create in-memory FAT32 filesystem
+    let device = Box::new(MockFat32Device::new());
+
+    match Fat32::new(device) {
+        Ok(fs) => {
+            println!("  ✓ RAM disk created and mounted!");
+
+            // Mount globally
+            vfs_global::mount(Box::new(fs));
+            println!("  ✓ Filesystem accessible (vfs-ls, vfs-cat)");
+            println!();
+            println!("  Files available:");
+            println!("    /README.TXT - Welcome message");
+            println!("    /TEST.TXT   - Test file");
+        }
+        Err(e) => {
+            println!("  ✗ Failed to create RAM disk: {}", e);
+        }
+    }
+
+    println!();
+    println!("  Note: ATA driver postponed - RAM disk used instead");
+}
+
 /// Initialize the Heartwood's core systems
 fn heartwood_init() {
     unsafe { serial_out(b'A'); } // Before init sequence
···
     heartwood::eldarin::init();
     unsafe { serial_out(b'M'); }
     println!("  ✓ Shell ready");
+
+    // Detect ATA drives and mount filesystem
+    unsafe { serial_out(b'N'); }
+    println!("◈ Detecting storage devices...");
+    detect_and_mount_storage();
+    unsafe { serial_out(b'O'); }
 
     unsafe { serial_out(b'K'); }
     println!("\n◈ Heartwood initialization complete!");

heartwood/src/vfs/debug_cmd.rs

···
+//! VFS Debug Command - shows mount status
+
+use crate::vfs::global as vfs_global;
+
+pub fn show_mount_status() {
+    crate::println!("◈ VFS Mount Status");
+    crate::println!();
+
+    match vfs_global::get() {
+        None => {
+            crate::println!("  ✗ Global VFS not initialized");
+            crate::println!("  (This is a bug - VFS should initialize at boot)");
+        }
+        Some(global_fs) => {
+            crate::println!("  ✓ Global VFS initialized");
+
+            let fs_lock = global_fs.lock();
+            match &*fs_lock {
+                None => {
+                    crate::println!("  ✗ No filesystem mounted");
+                    crate::println!();
+                    crate::println!("  Possible reasons:");
+                    crate::println!("  - No ATA drive detected (check boot messages)");
+                    crate::println!("  - FAT32 mount failed (disk not formatted?)");
+                    crate::println!("  - QEMU not started with -hda disk.img");
+                }
+                Some(fs) => {
+                    crate::println!("  ✓ Filesystem mounted!");
+                    crate::println!("  Type: {}", fs.name());
+                    crate::println!();
+                    crate::println!("  Try: vfs-ls / to list root directory");
+                }
+            }
+        }
+    }
+}

heartwood/src/vfs/global.rs

···
+//! Global VFS mount point
+//!
+//! Simple global filesystem for testing until proper VFS manager is implemented
+
+use super::FileSystem;
+use crate::mana_pool::InterruptSafeLock;
+use core::mem::MaybeUninit;
+use alloc::boxed::Box;
+
+/// Global mounted filesystem
+static mut GLOBAL_FS: MaybeUninit<InterruptSafeLock<Option<Box<dyn FileSystem>>>> = MaybeUninit::uninit();
+static mut FS_INITIALIZED: bool = false;
+
+/// Initialize the global filesystem
+pub fn init() {
+    unsafe {
+        let fs_option: Option<Box<dyn FileSystem>> = None;
+        let lock = InterruptSafeLock::new(fs_option);
+        core::ptr::write(core::ptr::addr_of_mut!(GLOBAL_FS).cast(), lock);
+        FS_INITIALIZED = true;
+    }
+}
+
+/// Mount a filesystem as the global root
+pub fn mount(fs: Box<dyn FileSystem>) {
+    unsafe {
+        if !FS_INITIALIZED {
+            init();
+        }
+        let global_fs = &*core::ptr::addr_of!(GLOBAL_FS).cast::<InterruptSafeLock<Option<Box<dyn FileSystem>>>>();
+        let mut fs_lock = global_fs.lock();
+        *fs_lock = Some(fs);
+    }
+}
+
+/// Get reference to global filesystem
+pub fn get() -> Option<&'static InterruptSafeLock<Option<Box<dyn FileSystem>>>> {
+    unsafe {
+        if !FS_INITIALIZED {
+            return None;
+        }
+        Some(&*core::ptr::addr_of!(GLOBAL_FS).cast::<InterruptSafeLock<Option<Box<dyn FileSystem>>>>())
+    }
+}

heartwood/src/vfs/mod.rs

···
 pub mod block_device;
 pub mod fat32;
 pub mod mock_fat32;
+pub mod global;
+pub mod debug_cmd;
 
 #[cfg(test)]
 mod tests;

serial.log

···
+BSLSR12AB~b$%$%$%$%$%$%~VWG+@$%#E[~]D@VWG+@$%#E[~]D#VWG+@$%#E[~]DCVWG+@$%#E[~]DMNabcdeOPQRSDVWG+@$%#E[~]DEVWG+@$%#E[~]Dnxsu!FVWG+@$%#E[~]DGVWG+@$%#E[~]D1AabcdefghijklmBCDy3VWG+@$%#E[~]DVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DMmMmVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DMmMmVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DMmMmVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DVWG+@$%#E[~]DHVWG+@$%#E[~]DIVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DM...mM....mM....mM....mM....mVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~^]DJVWG+@$%#E[~^]DLVWG+@$%#E[~^]DMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmM........mMmM........mM........mM........mMVWG+@$%#E[~^]DNVWG+@$%#E[~^]DVWG+@$%#E[~^]DMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmM....mM....mMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DOKVWG+@$%#E[~^]DVWG+@$%#E[~^]D3HXY!SI.P12345LCKVWG+@$%#E[~^]DP12345LCT+VWG+@$%#E[~^]D*VWG+@$%#E[~^]D1VWG+@$%#E[~^]D2VWG+@$%#E[~^]D3VWG+@$%#E[~^]D4VWG+@$%#E[~^]D5VWG+@$%#E[~^]D6VWG+@$%#E[~^]D7VWG+@$%#E[~^]D8VWG+@$%#E[~^]D9VWG+@$%#E[~^]D0VWG+@$%#E[~^]D!stmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~^]DaVWG+@$%#MmMmMmMmMmMmMmMmMmMmMmMm@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~^]DbVWG+@$%#@$%#@$%#E[~^]DcVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~^]DdVWG+@$%#@$%#@$%#E[~^]DeVWG+@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P1Mm2345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P1Mm2345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P1Mm2345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P1Mm2345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P1M.m2345LCR6VWG+@$%#E[~]DP12345LCR6yVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!MmMmVWG+@$%#@$%#@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!MmMmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!VWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!VWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCVWG+@$%#E[~]DR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!MmMmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~]DVWG+@$%#@$%#@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6MmVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!MmMmVWG+@$%#@$%#@$%#E[~]DVWG+@$%#E[~]DMmMmMmMmMmMmMmMmMmMmMmMmVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DVWG+@$%#@$%#@$%#@$%#@$%#@$%#@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#@$%#@$%#E[~]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6MmVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DMmVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DMmVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!MmMmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!VWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!VWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6MmVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DVWG+@$%#E[~]DMmVWG+@$%#E[~]Dh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DVWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]DP12345LCR6yh.P12345LCR6P12345LCR6VWG+@$%#E[~]D!MmMmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmMmM....mM....mMmMmMmMmMmMmMmMmMmMmVWG+@$%#E[~^]DMmMmMmMmMmMmVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DMmMmMmMmMmMmMmMmMmMmMmMmVWG+@$%#E[~^]DVWG+@$%#@$%#@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DMmMmMmMmMmMmMmMmMmMmMmMmVWG+@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DMmMmMmMmMmMmMmMmMmMmMmVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#@$%#@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]DVWG+@$%#E[~^]D>VWG+@$%#E[~^]DP12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6P12345LCR6yh.P12345LCR6P12345LCR6