41 lines
895 B
Plaintext
41 lines
895 B
Plaintext
makro boyut 100 son
|
|
makro stdout 1 son
|
|
makro sys-write 1 son
|
|
makro print-buffer
|
|
stdout bel boyut + boyut 1 + sys-write syscall-3
|
|
son
|
|
|
|
;; initialize board
|
|
0 döngü eş boyut < iken
|
|
eş bel + 0 yaz
|
|
1 +
|
|
yap düş
|
|
boyut 2 - bel + 1 yaz
|
|
|
|
;; iteration count
|
|
0 döngü eş boyut 2 - < iken
|
|
;; write board to buffer
|
|
0 döngü eş boyut < iken
|
|
eş bel + oku 1 = ise
|
|
eş bel boyut + + '*' yaz ;; 42 = '*'
|
|
yoksa
|
|
eş bel boyut + + ' ' yaz ;; 32 = ' '
|
|
yap
|
|
1 +
|
|
yap
|
|
bel boyut + + '\n' yaz ;; 10 '\n'
|
|
;; write to screen
|
|
print-buffer
|
|
|
|
;; pattern init
|
|
bel 0 + oku 1 << bel 1 + oku |
|
|
1 döngü eş boyut 1 - < iken
|
|
eş bel 1 + + oku ;; (pattern i cell)
|
|
rot 1 << 7 & | ;; (i new-pattern)
|
|
üst bel + üst 110 değiş >> 1 & yaz
|
|
değiş 1 +
|
|
yap düş düş
|
|
1 +
|
|
yap
|
|
|