mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
54 lines
571 B
ArmAsm
54 lines
571 B
ArmAsm
; fake sierpinski
|
|
|
|
; just plot X AND Y
|
|
|
|
|
|
; 51 initial
|
|
; 46, put YY in X
|
|
; 39, optimized to death?
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
;================================
|
|
; Clear screen and setup graphics
|
|
;================================
|
|
sier:
|
|
|
|
jsr SETGR ; set lo-res 40x40 mode
|
|
bit FULLGR ; make it 40x48
|
|
|
|
lda #39
|
|
sta XX
|
|
|
|
sier_xloop:
|
|
|
|
ldx #47
|
|
|
|
sier_yloop:
|
|
|
|
txa
|
|
and XX
|
|
|
|
bne black
|
|
lda #$11 ; red
|
|
|
|
.byte $2C ; bit trick
|
|
black:
|
|
lda #$00
|
|
sta COLOR
|
|
|
|
ldy XX
|
|
txa
|
|
jsr PLOT ; PLOT AT Y,A
|
|
|
|
|
|
dex
|
|
bpl sier_yloop
|
|
|
|
dec XX
|
|
bpl sier_xloop
|
|
|
|
done:
|
|
bmi done
|