* - tour - touring some programming systems

diff options

author	elioat <elioat@tilde.institute>	2024-04-12 22:15:36 -0400
committer	elioat <elioat@tilde.institute>	2024-04-12 22:15:36 -0400
commit	cbfb98fd2a23c0d962ec23c48de98c0460338553 (patch)
tree	efd2e97ca7fb5350d01565bc9833c9d9c94314b4 /js/irc
parent	3941ce2957e93995822d054050f0fbf166704389 (diff)
download	tour-cbfb98fd2a23c0d962ec23c48de98c0460338553.tar.gz

Diffstat (limited to 'js/irc')

0 files changed, 0 insertions, 0 deletions

63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - apps/factorial2.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal-light"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/factorial2.subx'>https://github.com/akkartik/mu/blob/master/apps/factorial2.subx</a> <pre id='vimCodeElement'> 1 ## compute the factorial of 5, and return the result in the exit code 2 # 3 # Uses syntax sugar for: 4 # rm32 operands 5 # 6 # To run: 7 # $ ./ntranslate init.linux 0*.subx apps/factorial.subx -o apps/factorial 8 # $ ./subx run apps/factorial 9 # Expected result: 10 # $ echo $? 11 # 120 12 # 13 # You can also run the automated test suite: 14 # $ ./subx run apps/factorial test 15 # Expected output: 16 # ........ 17 # Every '.' indicates a passing test. Failing tests get a 'F'. 18 19 == code 20 21 Entry: # run tests if necessary, compute `factorial(5)` if not 22 # . prologue 23 89/<- %ebp 4/r32/esp 24 25 # initialize heap 26 # . Heap = new-segment(Heap-size) 27 # . . push args 28 68/push <a href='../069allocate.subx.html#L22'>Heap</a>/imm32 29 68/push <a href='../069allocate.subx.html#L29'>Heap-size</a>/imm32 30 # . . call 31 e8/call <a href='../053new-segment.subx.html#L41'>new-segment</a>/disp32 32 # . . discard args 33 81 0/subop/add %esp 8/imm32 34 35 # - if argc > 1 and argv[1] == "test", then return run_tests() 36 # if (argc <= 1) goto run-main 37 81 7/subop/compare *ebp 1/imm32 38 7e/jump-if-lesser-or-equal $run-main/disp8 39 # if (!kernel-string-equal?(argv[1], "test")) goto run-main 40 # . eax = kernel-string-equal?(argv[1], "test") 41 # . . push args 42 68/push "test"/imm32 43 ff 6/subop/push *(ebp+8) 44 # . . call 45 e8/call <a href='../052kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 46 # . . discard args 47 81 0/subop/add %esp 8/imm32 48 # . if (eax == 0) goto run-main 49 3d/compare-eax-and 0/imm32 50 74/jump-if-equal $run-main/disp8 51 # run-tests() 52 e8/call run-tests/disp32 53 # syscall(exit, *Num-test-failures) 54 8b/-> *<a href='../051test.subx.html#L90'>Num-test-failures</a> 3/r32/ebx 55 eb/jump $main:end/disp8 56 $run-main: 57 # - otherwise return factorial(5) 58 # eax = factorial(5) 59 # . . push args 60 68/push 5/imm32 61 # . . call 62 e8/call <a href='factorial2.subx.html#L71'>factorial</a>/disp32 63 # . . discard args 64 81 0/subop/add %esp 4/imm32 65 # syscall(exit, eax) 66 89/<- %ebx 0/r32/eax 67 $main:end: 68 b8/copy-to-eax 1/imm32/exit 69 cd/syscall 0x80/imm8 70 71 factorial: # n : int -> int/eax 72 # . prologue 73 55/push-ebp 74 89/<- %ebp 4/r32/esp 75 53/push-ebx 76 # if (n <= 1) return 1 77 b8/copy-to-eax 1/imm32 78 81 7/subop/compare *(ebp+8) 1/imm32 79 7e/jump-if-<= $factorial:end/disp8 80 # ebx = n-1 81 8b/-> *(ebp+8) 3/r32/ebx 82 4b/decrement-ebx 83 # eax = factorial(n-1) 84 # . . push args 85 53/push-ebx 86 # . . call 87 e8/call <a href='factorial2.subx.html#L71'>factorial</a>/disp32 88 # . . discard args 89 81 0/subop/add %esp 4/imm32 90 # return n * factorial(n-1) 91 f7 4/subop/multiply-into-eax *(ebp+8) 92 # TODO: check for overflow 93 $factorial:end: 94 # . epilogue 95 5b/pop-to-ebx 96 89/<- %esp 5/r32/ebp 97 5d/pop-to-ebp 98 c3/return 99 100 test-factorial: 101 # factorial(5) 102 # . . push args 103 68/push 5/imm32 104 # . . call 105 e8/call <a href='factorial2.subx.html#L71'>factorial</a>/disp32 106 # . . discard args 107 81 0/subop/add %esp 4/imm32 108 # check-ints-equal(eax, 120, msg) 109 # . . push args 110 68/push "F - test-factorial"/imm32 111 68/push 0x78/imm32/expected-120 112 50/push-eax 113 # . . call 114 e8/call <a href='../051test.subx.html#L24'>check-ints-equal</a>/disp32 115 # . . discard args 116 81 0/subop/add %esp 0xc/imm32 117 # end 118 c3/return </pre> </body> </html>


context:
space:
mode: