mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

	Commit message (Expand)	Author	Age	Files	Lines
*	.	Kartik Agaram	2021-04-21	1	-3/+3
*	.	Kartik Agaram	2021-03-23	1	-0/+282

<!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <title>Mu - apps/ex9.mu</title> <meta name="Generator" content="Vim/8.2"> <meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> <style>  </style> <script>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/apps/ex9.mu'>https://github.com/akkartik/mu/blob/main/apps/ex9.mu</a> <pre id='vimCodeElement'> 1 # Demo of reading and writing to disk. 2 # 3 # Steps for trying it out: 4 # 1. Translate this example into a disk image code.img. 5 # ./translate apps/ex9.mu 6 # 2. Build a second disk image data.img containing some text. 7 # dd if=/dev/zero of=data.img count=20160 8 # echo 'abc def ghi' |dd of=data.img conv=notrunc 9 # 3. Familiarize yourself with how the data disk looks within xxd: 10 # xxd data.img |head 11 # 4. Run in an emulator, either Qemu or Bochs. 12 # qemu-system-i386 -hda code.img -hdb data.img 13 # bochs -f bochsrc.2disks 14 # 5. Exit the emulator. 15 # 6. Notice that the data disk now contains the word count of the original text. 16 # xxd data.img |head 17 18 fn <a href='ex9.mu.html#L18'>main</a> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) { 19 var text-storage: (stream byte 0x200) 20 var text/esi: (addr stream byte) <- address text-storage 21 <a href='../510disk.mu.html#L1'>load-sectors</a> data-disk, 0/lba, 1/num-sectors, text 22 23 var <a href='ex9.mu.html#L31'>word-count</a>/eax: int <- <a href='ex9.mu.html#L31'>word-count</a> text 24 25 var result-storage: (stream byte 0x10) 26 var result/edi: (addr stream byte) <- address result-storage 27 <a href='../126write-int-decimal.subx.html#L8'>write-int32-decimal</a> result, <a href='ex9.mu.html#L31'>word-count</a> 28 <a href='../510disk.mu.html#L23'>store-sectors</a> data-disk, 0/lba, 1/num-sectors, result 29 } 30 31 fn <a href='ex9.mu.html#L31'>word-count</a> in: (addr stream byte) -> _/eax: int { 32 var result/edi: int <- copy 0 33 { 34 var done?/eax: boolean <- <a href='../309stream.subx.html#L6'>stream-empty?</a> in 35 compare done?, 0/false 36 break-if-!= 37 var g/eax: grapheme <- <a href='../403unicode.mu.html#L92'>read-grapheme</a> in 38 { 39 compare g, 0x20/space 40 break-if-!= 41 result <- increment 42 } 43 { 44 compare g, 0xa/newline 45 break-if-!= 46 result <- increment 47 } 48 loop 49 } 50 return result 51 } </pre> </body> </html>