2024-03-08 23:55:58 +00:00
|
|
|
( uxncli sierpinski.rom )
|
2024-02-29 23:44:58 +00:00
|
|
|
|
2024-03-08 23:55:58 +00:00
|
|
|
@sierpinski ( -> )
|
2024-03-09 00:39:45 +00:00
|
|
|
( mask ) [ LIT2r 0a18 ] [ LIT2r 2018 ]
|
2024-03-09 00:48:51 +00:00
|
|
|
( size ) [ LIT2 &size 1001 ] SUB
|
2024-03-08 23:55:58 +00:00
|
|
|
&>ver ( -- )
|
|
|
|
DUP INCk
|
|
|
|
&>pad ( length -- )
|
2024-03-09 00:39:45 +00:00
|
|
|
DEOkr
|
2024-03-08 23:55:58 +00:00
|
|
|
#01 SUB DUP ?&>pad
|
|
|
|
&>fill ( length i -- )
|
2024-03-09 00:39:45 +00:00
|
|
|
ANDk DUP2r ?{ POP2r ORA2kr } DEOr DEOkr
|
|
|
|
INC ADDk ,&size LDR LTH ?&>fill
|
|
|
|
POP2 OVR2r DEOr
|
2024-03-08 23:55:58 +00:00
|
|
|
#01 SUB INCk ?&>ver
|
2024-03-09 00:39:45 +00:00
|
|
|
POP POP2r POP2r BRK
|
2024-02-29 23:44:58 +00:00
|
|
|
|