octans - Octans is a program to solve Algot's Wordplay (Wordsearch) puzzles

about summary refs log tree commit diff stats

	Commit message (Collapse)	Author	Age	Files	Lines
*	Read from file if passed, modify USAGE	Andinus	2021-01-20	1	-0/+4
\| \| \| \| \| \|	Previouly, the only way of passing the puzzle was to enter a url. Now octans is able to read from files too. If the file exist & it's readable then octans will read the puzzle from there.
*	Re-structure for CPAN upload, include a dictionary file v0.1.0	Andinus	2021-01-19	2	-0/+355136
	bin/octans calls lib/Octans/CLI.rakumod which has the MAIN subroutine.

d='n29' href='#n29'>29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

fn load-sectors disk: (addr disk), lba: int, n: int, out: (addr stream byte) {
  var curr-lba/ebx: int <- copy lba
  var remaining/edx: int <- copy n
  {
    compare remaining, 0
    break-if-<=
    # sectors = min(remaining, 0x100)
    var sectors/eax: int <- copy remaining
    compare sectors, 0x100
    {
      break-if-<=
      sectors <- copy 0x100
    }
    #
    read-ata-disk disk, curr-lba, sectors, out
    #
    remaining <- subtract sectors
    curr-lba <- add sectors
    loop
  }
}

fn store-sectors disk: (addr disk), lba: int, n: int, in: (addr stream byte) {
  var curr-lba/ebx: int <- copy lba
  var remaining/edx: int <- copy n
  {
    compare remaining, 0
    break-if-<=
    # sectors = min(remaining, 0x100)
    var sectors/eax: int <- copy remaining
    compare sectors, 0x100
    {
      break-if-<=
      sectors <- copy 0x100
    }
    #
    write-ata-disk disk, curr-lba, sectors, in
    #
    remaining <- subtract sectors
    curr-lba <- add sectors
    loop
  }
}