FizzBuzz（FORTH、Z80アセンブラ）

どうしてプログラマに・・・プログラムが書けないのか?に出てくるアレをFORTHで書いてみた。pForthとかで動く。

101 1 DO i . i 3 MOD 0 = IF ." Fizz" THEN i 5 MOD 0 = IF ." Buzz" THEN LOOP

せっかくなのでZ80のアセンブラでも書いてみようと思ったが、公倍数かどうか求めるための割り算や余りを求める命令が無いので、まずはD÷E＝DあまりAの処理を書いてみる。翌日続きを書いてマス。