31 byte Sierpinski by SquoQuo [web]
_____ ____
/ ___/____ ______/ __ \__ _____
__\ \/ _ / // / _ / /_/ / // / _ \
/____/\_ \____\___\___\_\____\___/
/ / n8y
_-¯¯¯¯¯¯\/¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯-_
| 20 YEARS STUFFING BYTES TOGETHER |
¯-________ ________-¯
| 31byte Sierpinski |
_-¯¯¯¯¯¯¯¯ -____________- ¯¯¯¯¯¯¯¯-_
| |
| CODE: Hopper |
| |
| ABOUT: Just a small fun compofiller|
| for the 4k exec gfx compo |
| Sierpinski has been done |
| in less bytes, but remember |
| that due to the file header |
| and setting graphics mode |
| the procedure itself is only|
| 17 bytes. |
| If started from DOS, call |
| $2000 to start. |
| |
| REQUIRES: Standard Atari XL/XE |
| OS C |
| |
| GREETINGS:Metalvotze, Nuance, T$, |
| anti, Speckdrumm, Toxie, |
| Stroboholics, TRSI, JAC! |
| Mercury (we did it ;-) |
| Headcrash, Hitmen, G*P |
| and all we forgot (again)|
| |
| contact: squoquo@squoquo.de |
| website: http://squoquo.de |
| |
¯-________________________________-¯
Sourcecode:
org $2000
drawpoint equ $f1d8 ; highly illegal OS C vectors for basic routine
openmode equ $ef9c
lda #8 ; open graphics 8 mode (320x200)
jsr openmode
inc color ; set color
loop
inc COLCRS ; x++
bne weiter ; until end of line reached
inc ROWCRS ; y++
weiter
lda COLCRS ; X & Y
and ROWCRS
bne loop ; !=0 => dont draw
jsr drawpoint ; ==0 => draw
blubb2
bvc loop ; loop until eternity
[ back to the prod ]