mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-03 07:35:42 +00:00
228 lines
4.1 KiB
ArmAsm
228 lines
4.1 KiB
ArmAsm
; 122 byte sierpinski-like rotozoomer intro
|
|
; for Apple II lo-res 40x48 mode
|
|
; based on the code from Hellmood's Memories demo
|
|
|
|
; by Vince `deater` Weaver <vince@deater.net>
|
|
|
|
; for Lovebyte 2021
|
|
|
|
; for a simple sierpinski you more or less just plot
|
|
; X AND Y
|
|
; Hellmood's you plot something more or less like
|
|
; COLOR = ( (Y-(X*T)) & (X+(Y*T) ) & 0xf0
|
|
; where T is an incrementing frame value
|
|
|
|
; to get speed on 6502/Apple II we change the multiplies to
|
|
; a series of 16-bit 8.8 fixed point adds
|
|
|
|
; instead of multiplying X*T and Y*T you know that since you start at 0,0
|
|
; they both start at 0, and you can find X*T by just having an XT
|
|
; value that starts at 0 and add T to it as you move across the
|
|
; screen which is the same result as calculating X*T over and over
|
|
; you can do the same thing with Y*T
|
|
|
|
; t=0;
|
|
;
|
|
; draw_frame:
|
|
;
|
|
; y_t=0;
|
|
; for(y=0;y<48;y++) {
|
|
; y_t+=t;
|
|
; x_t=0;
|
|
; for(x=0;x<40;x++) {
|
|
; color= ((x+y_t) & (y-x_t))&0xf0;
|
|
; plot(x,y);
|
|
; x_t+=t;
|
|
; }
|
|
; }
|
|
; t++;
|
|
; goto draw_frame;
|
|
|
|
|
|
|
|
; 140 bytes -- bot demo version
|
|
; 137 bytes -- remove & jump
|
|
; 135 bytes -- init with HGR, which sets A=0
|
|
; 133 bytes -- remove ldx #0 in page flip code
|
|
; 130 bytes -- load in zero page
|
|
; 128 bytes -- init T_L, T_H as part of zero page since we live there
|
|
; 126 bytes -- shorter 16-bit increment of T_L
|
|
; 122 bytes -- use trick of jumping mid-PLOT for MASK calculation
|
|
|
|
; LoveByte requires 124 bytes
|
|
|
|
; zero page
|
|
|
|
GBASH = $27
|
|
MASK = $2E
|
|
COLOR = $30
|
|
|
|
;XX = $F7
|
|
XX_TH = $F8
|
|
XX_TL = $F9
|
|
;YY = $FA
|
|
YY_TH = $FB
|
|
YY_TL = $FC
|
|
;T_L = $FD
|
|
;T_H = $FE
|
|
SAVED = $FF
|
|
|
|
; Soft switches
|
|
FULLGR = $C052
|
|
PAGE1 = $C054
|
|
PAGE2 = $C055
|
|
LORES = $C056 ; Enable LORES graphics
|
|
|
|
; ROM routines
|
|
HGR = $F3E2
|
|
HGR2 = $F3D8
|
|
PLOT1 = $F80E ;; PLOT at (GBASL),Y (need MASK to be $0f or $f0)
|
|
GBASCALC= $F847 ;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
|
|
SETGR = $FB40
|
|
|
|
|
|
.zeropage
|
|
.globalzp T_L,T_H
|
|
|
|
;================================
|
|
; Clear screen and setup graphics
|
|
;================================
|
|
sier:
|
|
jsr HGR2 ; set FULLGR, sets A=0
|
|
; be sure to avoid code at E6 if we do this
|
|
bit LORES ; drop down to lo-res
|
|
|
|
; lda #0 ; start with multiplier 0
|
|
; sta T_L ; since we are executing in zero page we
|
|
; sta T_H ; don't need to init these
|
|
|
|
sier_outer:
|
|
|
|
ldx #0 ; YY starts at 0
|
|
|
|
stx YY_TL ; YY_T also starts at 0
|
|
stx YY_TH
|
|
|
|
sier_yloop:
|
|
|
|
; calc YY_T (8.8 fixed point add)
|
|
; clc ; save byte by ignoring carry (slightly
|
|
; changes results but not by much)
|
|
lda YY_TL
|
|
adc T_L
|
|
sta YY_TL
|
|
lda YY_TH
|
|
adc T_H
|
|
sta YY_TH
|
|
|
|
txa ; YY ; plot call needs Y/2
|
|
lsr
|
|
|
|
php ; save the bit we shifted into carry
|
|
|
|
jsr GBASCALC ; take Y-coord/2 in A, put address in GBASL/H
|
|
; ( A trashed, C clear)
|
|
|
|
lda GBASH ; adjust GBASH for draw page
|
|
draw_page_smc:
|
|
adc #0
|
|
sta GBASH ; adjust for PAGE1/PAGE2 ($400/$800)
|
|
|
|
plp
|
|
jsr $f806 ; trick to calculate MASK by jumping
|
|
; into middle of PLOT routine
|
|
|
|
; reset XX to 0
|
|
|
|
ldy #0 ; XX=0
|
|
|
|
sty XX_TL ; XX_T also 0
|
|
sty XX_TH
|
|
|
|
sier_xloop:
|
|
|
|
; want (YY-(XX*T)) & (XX+(YY*T)
|
|
|
|
|
|
; SAVED = XX+(Y*T)
|
|
; clc ; skip setting carry to save byte
|
|
|
|
tya ; XX lives in Y
|
|
adc YY_TH
|
|
sta SAVED ; save XX+YY_T
|
|
|
|
; calc XX*T
|
|
; clc ; skip setting carry to save byte
|
|
|
|
lda XX_TL ; XX_T=XX_T+T
|
|
adc T_L
|
|
sta XX_TL
|
|
lda XX_TH
|
|
adc T_H
|
|
sta XX_TH
|
|
|
|
|
|
; calc (YY-X_T)
|
|
txa ; YY lives in X
|
|
sec
|
|
sbc XX_TH
|
|
|
|
; want (YY-(XX*T)) & (XX+(YY*T)
|
|
|
|
and SAVED
|
|
|
|
and #$f0
|
|
|
|
beq green
|
|
black:
|
|
lda #00 ; black
|
|
.byte $2C ; bit trick
|
|
green:
|
|
lda #$CC ; green
|
|
sta COLOR
|
|
|
|
; XX value already in Y
|
|
|
|
jsr PLOT1 ; PLOT AT (GBASL),Y
|
|
|
|
iny ; XX
|
|
cpy #40
|
|
bne sier_xloop
|
|
|
|
inx ; YY
|
|
cpx #48
|
|
bne sier_yloop
|
|
|
|
; inc T
|
|
; clc
|
|
lda T_L
|
|
blah_smc:
|
|
adc #1
|
|
sta T_L
|
|
bcc no_carry
|
|
inc T_H
|
|
no_carry:
|
|
|
|
; speed up the zoom as time goes on
|
|
inc blah_smc+1
|
|
|
|
|
|
; x is 48
|
|
flip_pages:
|
|
lda draw_page_smc+1 ; DRAW_PAGE
|
|
beq done_page
|
|
inx
|
|
done_page:
|
|
; X=48 ($30) PAGE1=$C054-$30=$C024
|
|
ldy $C024,X ; set display page to PAGE1 or PAGE2
|
|
|
|
eor #$4 ; flip draw page between $400/$800
|
|
sta draw_page_smc+1 ; DRAW_PAGE
|
|
|
|
jmp sier_outer ; can't guarantee a flag value for a 2-byte
|
|
; branch :(
|
|
|
|
T_L: .byte $00
|
|
T_H: .byte $00
|
|
|