; ----------------------------------------------------------------------------
; dA JoRMaS: Megane Rellu
;
; (C) 2009 Vesuri/dA JoRMaS (Vesa Halttunen <vesuri@jormas.com>)
; ----------------------------------------------------------------------------
; This source code is provided strictly for the purpose of education.
;
; You are NOT allowed to sell or modify this code or
; use any part of it in your own programs (modified or unmodified)
; without a written permission from the author.
; ----------------------------------------------------------------------------
FINALVERSION equ 1
STARTPATTERN equ 1
PATTERNLENGTH equ 64
CH_PLANEWIDTH equ 24
CH_PLANEHEIGHT equ 85
CH_PLANESIZE equ CH_PLANEWIDTH*CH_PLANEHEIGHT
CH_PLANES equ 4
CH_CHUNKY_WIDTH equ CH_PLANEWIDTH/2*8
CH_CHUNKY_HEIGHT equ CH_PLANEHEIGHT
CH_CHUNKY_SIZE equ CH_CHUNKY_WIDTH*CH_CHUNKY_HEIGHT
CH_SOURCE_WIDTH equ 128
CH_SOURCE_HEIGHT equ 128
CH_SOURCE_SIZE equ CH_SOURCE_WIDTH*CH_SOURCE_HEIGHT
CT_MAX_OFFSET equ 16320+2
CT_ANGLE_RANGE equ 128
CS_PLANEWIDTH equ 44
CS_PLANEHEIGHT equ 208
CS_PLANESIZE equ CS_PLANEWIDTH*CS_PLANEHEIGHT
CS_PLANES equ 1
CS_BUILDING_SIZE equ 25
CS_CLIP equ -18
CS_SINUS equ -16
CS_COSINUS equ -14
CS_X equ -12
CS_Z equ -10
CS_OCTANTS equ -8
CS_OLDX equ -4
CS_OLDY equ -2
CS_BLITTER_CLEAR equ 112
CLIP_LEFT_EDGE equ (1<<0)
CLIP_RIGHT_EDGE equ (1<<1)
CLIP_TOP_EDGE equ (1<<2)
CLIP_BOTTOM_EDGE equ (1<<3)
DP_PLANEWIDTH equ 32
DP_PLANEHEIGHT equ 256
DP_PLANESIZE equ DP_PLANEWIDTH*DP_PLANEHEIGHT
DP_PLANES equ 5
FW_PLANEWIDTH equ 40
FW_PLANEHEIGHT equ 256
FW_PLANESIZE equ FW_PLANEWIDTH*FW_PLANEHEIGHT
FW_PLANES equ 2
FW_BLITTER_CLEAR equ 128
FW_STARTING_ROW equ 16
FW_ENDING_ROW equ 240
FW_NUMBER_OF_FONTS equ 95
FW_NUMBER_OF_PARTICLES equ 80
HO_PLANEWIDTH equ 40
HO_PLANEHEIGHT equ 256
HO_PLANESIZE equ HO_PLANEWIDTH*HO_PLANEHEIGHT
HO_PLANES equ 5
HO_HORIZON_PLANES equ 4
HO_GRADIENT_HEIGHT equ 16
HO_MINXX equ -10
HO_MINXY equ -8
HO_MAXXX equ -6
HO_MAXXY equ -4
HO_SUBSTRACT equ -2
HO_TABLE_COORDINATES equ 0
HO_TABLE_HEIGHT equ 4
HO_TABLE_Z equ 6
HO_TABLE_ZOOM equ 8
HO_TABLE_SIZE equ 12
IP_PLANEWIDTH equ 40
IP_PLANEHEIGHT equ 232
IP_PLANESIZE equ IP_PLANEWIDTH*IP_PLANEHEIGHT
IP_PLANES equ 2
RO_PLANEWIDTH equ 36
RO_PLANEHEIGHT equ 258
RO_PLANESIZE equ RO_PLANEWIDTH*RO_PLANEHEIGHT
RO_PLANES equ 2
RO_SIZE equ 16
RO_RESOLUTION equ 16
RO_NUMPOINTS equ 3
SV_PLANEWIDTH equ 32
SV_PLANEHEIGHT equ 160
SV_PLANESIZE equ SV_PLANEWIDTH*SV_PLANEHEIGHT
SV_PLANES equ 4
SV_STENCIL_WIDTH equ 32
SV_STENCIL_HEIGHT equ 256
SV_STENCIL_SIZE equ SV_STENCIL_WIDTH*SV_STENCIL_HEIGHT
SV_OLDX equ -2
SV_OLDY equ -4
SV_XANGLESIN equ 0
SV_XANGLECOS equ 2
SV_YANGLESIN equ 4
SV_YANGLECOS equ 6
SV_ZANGLESIN equ 8
SV_ZANGLECOS equ 10
SV_XX equ 0
SV_XY equ 2
SV_XZ equ 4
SV_YX equ 6
SV_YY equ 8
SV_YZ equ 10
SV_ZX equ 12
SV_ZY equ 14
SV_ZZ equ 16
SV_XXXY equ 18
SV_YXYY equ 22
SV_ZXZY equ 26
SV_X equ 0
SV_Y equ 2
SV_Z equ 4
SV_X_Y equ 6
SV_NORMAL_SHIFT equ 7
SV_DISTANCE_MAX equ 1505
SV_DISTANCE_MIN equ 295
SY_SAMPLERATE equ 22050
SY_ENVELOPE_INIT equ 0
SY_ENVELOPE_ATTACK equ 1
SY_ENVELOPE_DECAY equ 2
SY_ENVELOPE_SUSTAIN equ 3
SY_WAVEFORM_SAW equ 0
SY_WAVEFORM_SQUARE_1 equ 256
SY_WAVEFORM_SQUARE_2 equ 512
SY_WAVEFORM_SQUARE_3 equ 768
SY_WAVEFORM_NOISE equ 1024
SY_WAVEFORM_SINUS equ 1280
SY_WAVEFORM_LFO_SAW equ 1536
SY_WAVEFORM_LFO_SQUARE equ 9728
SY_WAVEFORM_LFO_TRIANGLE equ 17920
SY_PLANEWIDTH equ 40
SY_PLANEHEIGHT equ 272
SY_PLANESIZE equ SY_PLANEWIDTH*SY_PLANEHEIGHT
SY_PLANES equ 3
incdir "include:"
include "JoRMaS.i"
incdir "include:meganerellu/"
section FastCode,Code
nop
; Tooltypes and command line arguments only handled in final version
; ------------------------------------------------------------------
ifne FINALVERSION
bsr SystemStartUp
endc
; Allocate memory and setup copperlists etc.
; ------------------------------------------
bsr StartUp
; Main loop
; ---------
main: tst.b quit
bne done
; Check whether a new part should be initialized
; -----------------------------------------------
script: lea parts,a0
add.l part,a0
move.l sc_position,d0
move.l (a0)+,d1
bmi noinit
cmp.l d0,d1
bhi noinit
clr.l part_vbi
lea custom,a6
; Disable the (possible) blitter interrupt during init
; ----------------------------------------------------
move.w #INTF_BLIT,d0
move.w d0,intena(a6)
waitb
move.w d0,intreq(a6)
move.w d0,intreq(a6)
; Use the "no effects" copperlist
; -------------------------------
move.l #ne_cl,cop1lch(a6)
move.w #0,copjmp1(a6)
addq.l #8,part
clr.b render
clr.l part_main
; Initialize the effect
; ---------------------
move.l (a0),a0
jsr (a0)
bra.s script
noinit: tst.b render
bne main
; Check whether there is a main function to run and if so run it
; --------------------------------------------------------------
move.l part_main,d0
beq main
move.l d0,a0
jsr (a0)
bra main
; Restore system to normal state
; ------------------------------
done: bsr ShutDown
tst.l loop
bne main
die: rts
; Level 3 Interrupt
; -----------------
interrupt_level3:
move.l d0,-(sp)
; Check whether the interrupt is blitter or vertical blank
; --------------------------------------------------------
move.w intreqr+custom,d0
and.w #INTF_VERTB,d0
bne VBI
; Blitter interrupt
; -----------------
movem.l a0-a1/a6,-(sp)
; Clear interrupt request
; -----------------------
lea custom,a6
move.w #INTF_BLIT,d0
move.w d0,intreq(a6)
move.w d0,intreq(a6)
; Next pass
; ---------
moveq #0,d0
add.b #1,ch_c2p_pass
cmp.b #8,ch_c2p_pass
beq.w ch_bp8
cmp.b #7,ch_c2p_pass
beq.w ch_bp7
cmp.b #6,ch_c2p_pass
beq.w ch_bp6
cmp.b #5,ch_c2p_pass
beq.w ch_bp5
cmp.b #4,ch_c2p_pass
beq.w ch_bp4
cmp.b #3,ch_c2p_pass
beq.w ch_bp3
ch_bp2: ; Pass 2:
; First half of the buffer: upper bits (3 & 2)
; 000044449999dddd22226666bbbbffff
; --------------------------------
lea ch_tempbuffer1,a0
lea ch_tempbuffer2,a1
waitb
move.w #4,bltamod(a6)
move.w #4,bltbmod(a6)
move.w d0,bltdmod(a6)
move.l a0,bltapth(a6)
addq #4,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #%1111000011110000,bltcdat(a6)
move.w #SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #(4<<BSHIFTSHIFT),bltcon1(a6)
move.w #((CH_CHUNKY_SIZE/4/2)<<6)|2,bltsize(a6)
bra ch_bld
ch_bp3: ; Pass 3:
; Second half of the buffer: lower bits (1 & 0)
; 000044449999dddd22226666bbbbffff
; --------------------------------
lea ch_tempbuffer1+CH_CHUNKY_SIZE-4-2,a0
lea ch_tempbuffer2+CH_CHUNKY_SIZE-2,a1
waitb
move.l a0,bltapth(a6)
addq #4,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #(4<<ASHIFTSHIFT)|SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #BLITREVERSE,bltcon1(a6)
move.w #((CH_CHUNKY_SIZE/4/2)<<6)|2,bltsize(a6)
bra ch_bld
ch_bp4: ; Pass 4:
; First quarter of the buffer: bit 3
; 0022446699bbddff
; ----------------
lea ch_tempbuffer2,a0
lea ch_planes,a1
add.l ch_planes_add,a1
waitb
move.w #2,bltamod(a6)
move.w #2,bltbmod(a6)
move.w d0,bltdmod(a6)
move.l a0,bltapth(a6)
addq #2,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #%1100110011001100,bltcdat(a6)
move.w #SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #(2<<BSHIFTSHIFT),bltcon1(a6)
move.w #((CH_CHUNKY_SIZE/4/2)<<6)|1,bltsize(a6)
bra ch_bld
ch_bp5: ; Pass 5:
; Second quarter of the buffer: bit 2
; 0022446699bbddff
; ----------------
lea ch_tempbuffer2+CH_CHUNKY_SIZE/2,a0
lea ch_planes+CH_CHUNKY_SIZE/4,a1
add.l ch_planes_add,a1
waitb
move.w #2,bltamod(a6)
move.w #2,bltbmod(a6)
move.w d0,bltdmod(a6)
move.l a0,bltapth(a6)
addq #2,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #%1100110011001100,bltcdat(a6)
move.w #SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #(2<<BSHIFTSHIFT),bltcon1(a6)
move.w #((CH_CHUNKY_SIZE/4/2)<<6)|1,bltsize(a6)
bra ch_bld
ch_bp6: ; Pass 6:
; Third quarter of the buffer: bit 1
; 0022446699bbddff
; ----------------
lea ch_tempbuffer2+CH_CHUNKY_SIZE-2-2,a0
lea ch_planes+CH_CHUNKY_SIZE-2,a1
add.l ch_planes_add,a1
waitb
move.l a0,bltapth(a6)
addq #2,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #(2<<ASHIFTSHIFT)|SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #BLITREVERSE,bltcon1(a6)
move.w #((CH_CHUNKY_SIZE/4/2)<<6)|1,bltsize(a6)
lea -CH_CHUNKY_SIZE/2-2(a0),a0
lea -CH_CHUNKY_SIZE/4(a1),a1
bra ch_bld
ch_bp7: ; Pass 7:
; Fourth quarter of the buffer: bit 0
; 0022446699bbddff
; ----------------
lea ch_tempbuffer2+CH_CHUNKY_SIZE/2-2-2,a0
lea ch_planes+CH_CHUNKY_SIZE*3/4-2,a1
add.l ch_planes_add,a1
waitb
move.l a0,bltapth(a6)
addq #2,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #(2<<ASHIFTSHIFT)|SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #BLITREVERSE,bltcon1(a6)
move.w #((CH_CHUNKY_SIZE/4/2)<<6)|1,bltsize(a6)
bra ch_bld
ch_bp8: ; Pass 8: everything done - buffers will be changed in VBI
; --------------------------------------------------------
ch_bld: movem.l (sp)+,a0-a1/a6
move.l (sp)+,d0
rte
rte
; Vertical Blank Interrupt
; ------------------------
VBI: move.l a0,-(sp)
; Left mouse button pressed?
; --------------------------
btst #6,$bfe001
bne.s .nolmb
move.b #1,quit
clr.l loop
.nolmb: tst.b quit
bne.w VBIok
; Check whether there is a VBI function to run and if so run it
; -------------------------------------------------------------
move.l part_vbi,d0
beq VBIok
move.l d0,a0
jsr (a0)
VBIok: lea custom,a0
move.w #INTF_VERTB,intreq(a0)
move.w #INTF_VERTB,intreq(a0)
move.l (sp)+,a0
move.l (sp)+,d0
rte
rte
; Clear memory
; ------------
clearmemory:
add.l #511,d7
and.l #$fffffe00,d7
add.l d7,a0
lsr.l #8,d7
lsr.l d7
subq #1,d7
moveq #0,d0
moveq #0,d1
moveq #0,d2
moveq #0,d3
moveq #0,d4
moveq #0,d5
moveq #0,d6
sub.l a1,a1
.loop: movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
movem.l d0-d6/a1,-(a0)
dbra d7,.loop
rts
; 2x2 chunky zoom & rotate
; ------------------------
zoomrotate:
; Clear memory
; ------------
lea ch_cl,a0
move.l #ch_requirements_chipmem,d7
bsr clearmemory
lea ch_planes_add,a0
move.l #zr_requirements_fastmem,d7
bsr clearmemory
; Copy copperlist
; ---------------
lea ch_ct,a0
lea ch_cl,a1
move.w #(ch_ct_data-ch_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
; Screen setup
; ------------
move.l #ch_planes,d0
lea ch_cl_bpl1pth,a0
moveq #CH_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #CH_PLANESIZE,d0
dbra d7,.setplanesloop
; Create copperlist
; -----------------
lea ch_cl_data,a0
move.l #$a801-(CH_PLANEHEIGHT<<8),d0
move.l #CH_PLANEHEIGHT-1,d7
.cop: move.w d0,(a0)+
move.w #$fffe,(a0)+
move.w #bpl1mod,(a0)+
move.w #-CH_PLANEWIDTH,(a0)+
move.w #bpl2mod,(a0)+
move.w #-CH_PLANEWIDTH,(a0)+
add.w #$100,d0
move.w d0,(a0)+
move.w #$fffe,(a0)+
move.w #bpl1mod,(a0)+
clr.w (a0)+
move.w #bpl2mod,(a0)+
clr.w (a0)+
add.w #$100,d0
dbra d7,.cop
move.w d0,(a0)+
move.w #$fffe,(a0)+
move.w #bplcon0,(a0)+
move.w #0,(a0)+
move.l #$fffffffe,(a0)+
; Expand the source image
; -----------------------
lea zr_source,a0
lea zr_source_exp,a1
move.l a1,a2
move.l a1,a3
move.l a1,a4
add.l #1*CH_SOURCE_SIZE*2,a2
add.l #2*CH_SOURCE_SIZE*2,a3
add.l #3*CH_SOURCE_SIZE*2,a4
move.l #CH_SOURCE_SIZE-1,d7
.cpchk: move.b (a0)+,d0
move.w d0,d1
move.w d0,d2
move.w d0,d3
and.w #$8,d0
and.w #$4,d1
and.w #$2,d2
and.w #$1,d3
lsl.w #3,d0
lsl.w #2,d1
add.w d2,d2
or.w d1,d0
or.w d2,d0
or.w d3,d0
move.w d0,d1
add.w d1,d1
or.w d1,d0
move.w d0,d1
lsl.w #8,d0
or.w d1,d0
move.w d0,(a1)+
move.w d0,(a2)+
move.w d0,(a3)+
move.w d0,(a4)+
dbra d7,.cpchk
; Prepare Z&R row writing code
; ----------------------------
lea zr_writerow,a0
moveq #CH_CHUNKY_WIDTH-1,d7
.zr: move.l #$32e80000,(a0)+ ; move.w n(a0),(a1)+
dbra d7,.zr
move.l #-$e0000,zr_angle_add
rts
zoomrotate_go:
move.w #INTF_SETCLR|INTF_BLIT,intena+custom
move.l #ch_cl,cop1lch+custom
move.l #zoomrotate_main,part_main
move.l #zoomrotate_vbi,part_vbi
rts
zoomrotate_main:
; If chunky to planar is in progress do nothing
; ---------------------------------------------
tst.b ch_c2p_pass
beq.s .c2p
rts
; Initiate chunky to planar (rest of it is in the blitter interrupt)
; ------------------------------------------------------------------
.c2p: move.b #1,ch_c2p_pass
lea custom,a6
; Pass 1:
; 000000009999999922222222bbbbbbbb44444444dddddddd66666666ffffffff
; ----------------------------------------------------------------
lea ch_chunky,a0
move.l ch_add,d0
; Store so that this value will be used even if blit finishes early
; -----------------------------------------------------------------
move.l d0,ch_add_current
add.l d0,a0
lea ch_tempbuffer1,a1
waitb
move.l #-1,bltafwm(a6)
move.w #8,bltamod(a6)
move.w #8,bltbmod(a6)
move.w #0,bltdmod(a6)
move.l a0,bltapth(a6)
addq #8,a0
move.l a0,bltbpth(a6)
move.l a1,bltdpth(a6)
move.w #%1111111100000000,bltcdat(a6)
move.w #SRCA|SRCB|DEST|ANBC|ABC|ABNC|NABNC,bltcon0(a6)
move.w #(8<<BSHIFTSHIFT),bltcon1(a6)
move.w #((CH_CHUNKY_SIZE*2/8/2)<<6)|4,bltsize(a6)
lea zr_writerow+2,a0
lea sinus,a1
move.w zr_angle,d0
add.w d0,d0
move.w zr_zoom,d2
add.w zr_additional_zoom,d2
move.w d0,d1
add.w #512,d1
and.w #2046,d1
move.w (a1,d0.w),d0
move.w (a1,d1.w),d1
; Leave room for zooming out
; --------------------------
asr.w #3,d0
asr.w #3,d1
; Apply zoom to dx/2 and dy/2
; ---------------------------
muls d2,d0
muls d2,d1
asr.l #8,d0
asr.l #8,d1
; Centering: x = -CHUNKY_HEIGHT/2*dy + CHUNKY_WIDTH/2*dx
; y = CHUNKY_HEIGHT/2*dx + CHUNKY_WIDTH/2*dy
; This is inverse to what is done in the main loop - going "backwards"
; --------------------------------------------------------------------
moveq #CH_CHUNKY_HEIGHT,d2
moveq #CH_CHUNKY_HEIGHT,d3
muls d1,d2
muls d0,d3
asl.l #3,d2
asl.l #3,d3
neg.l d3
moveq #CH_CHUNKY_WIDTH,d4
moveq #CH_CHUNKY_WIDTH,d5
muls d0,d4
muls d1,d5
asl.l #3,d4
asl.l #3,d5
sub.l d4,d2
sub.l d5,d3
; Centering in texture
; --------------------
add.l #(CH_SOURCE_WIDTH/2)<<16,d2
add.l #(CH_SOURCE_HEIGHT/2)<<16,d3
move.l #$7fffff,d4
; Get dx, dy
; ----------
asl.l #4,d0
asl.l #4,d1
; Store x, y, dx and dy for the main loop
; ---------------------------------------
move.l d2,a2
move.l d3,a3
move.l d0,a4
move.l d1,a5
; For calculating offsets for one row use x=y=0
; ---------------------------------------------
moveq #0,d2
moveq #0,d3
; Extra wanking: delta and wanker :)
; ----------------------------------
move.l zr_wank_delta,a6
moveq #0,d5
moveq #CH_CHUNKY_WIDTH-1,d7
.chx: and.l d4,d2
and.l d4,d3
move.l d3,d6
swap d2
swap d6
lsl.w #7,d6
or.w d2,d6
add.w d6,d6
move.w d6,(a0)
swap d2
addq #4,a0
add.l d0,d2
add.l d5,d2
add.l a6,d5
add.l d1,d3
dbra d7,.chx
move.l a2,d2
move.l a3,d3
lea ch_chunky,a1
lea zr_source_exp,a2
; Use the other buffer for rendering chunky
; -----------------------------------------
move.l ch_add_current,d0
eor.l #CH_CHUNKY_SIZE*2,d0
add.l d0,a1
moveq #CH_PLANEHEIGHT-1,d7
; One row of Z&R data is written here using move.b n(a0),(a1)+
; ------------------------------------------------------------
zr_lp: and.l d4,d2
and.l d4,d3
swap d2
move.l d3,d6
swap d6
lsl.w #7,d6
or.w d2,d6
add.w d6,d6
lea (a2,d6.w),a0
swap d2
zr_writerow:
ds.l CH_CHUNKY_WIDTH
; To advance to the next row: x-=dy, y+=dx
; ----------------------------------------
sub.l a5,d2
add.l a4,d3
dbra d7,zr_lp
rts
zoomrotate_vbi:
movem.l a1-a2/d1-d2/d7,-(sp)
move.l sc_position,d0
subq #1,d0
and.w #255,d0
cmp.w #3,d0
bcs.s .fade
cmp.w #212,d0
bcs .npal
.fade: mulu #6,d0
addq #6,d0
sub.w tp_wait,d0
cmp.w #16,d0
bhi.s .fdout
lsl.w #4,d0
; Fade palette in
; ---------------
lea zr_palette,a0
lea table_fade,a1
add.w d0,a1
lea ch_cl_palette+2,a2
moveq #16-1,d7
.fdpl1: move.w #$fff,d0
sub.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w #$fff,d1
sub.w d0,d1
move.w d1,(a2)
addq #4,a2
dbra d7,.fdpl1
bra.s .npal
.fdout: move.w #215*6-1,d1
sub.w d0,d1
bmi.s .npal
cmp.w #16,d1
bhi.s .npal
lsl.w #4,d1
; Fade palette out
; ----------------
lea zr_palette,a0
lea table_fade,a1
add.w d1,a1
lea ch_cl_palette+2,a2
moveq #16-1,d7
.fdpl2: move.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w d0,(a2)
addq #4,a2
dbra d7,.fdpl2
.npal: ; Update parameters
; -----------------
add.l #$480,zr_angle_add
move.l zr_angle_add,d0
add.l d0,zr_angle
and.l #$3ffffff,zr_angle
move.l sc_position,d0
subq #1,d0
and.w #255,d0
cmp.w #128,d0
bcs.s .out
sub.w #1,zr_zoom
add.l #8,zr_wank_delta
bra.s .zoomd
.out: add.w #1,zr_zoom
.zoomd: and.w #2047,zr_zoom
move.l sc_position,d0
sub.l #12*PATTERNLENGTH+1,d0
cmp.w #127,d0
bhi.s .azoom
and.w #3,d0
mulu #6,d0
addq #6,d0
sub.w tp_wait,d0
add.w d0,d0
lea zr_additional_zoom_table,a0
move.w (a0,d0.w),zr_additional_zoom
.azoom: ; C2P done?
; ---------
cmp.b #8,ch_c2p_pass
bne.s .vbiok
; Display the rendered buffer
; ---------------------------
move.l #ch_planes,d0
add.l ch_planes_add,d0
lea ch_cl_bpl1pth,a0
moveq #CH_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #CH_PLANESIZE,d0
dbra d7,.setplanesloop
; Switch buffers
; --------------
eor.l #CH_PLANES*CH_PLANESIZE,ch_planes_add
eor.l #CH_CHUNKY_SIZE*2,ch_add
clr.b ch_c2p_pass
.vbiok: movem.l (sp)+,a1-a2/d1-d2/d7
rts
cityscape:
; Clear memory
; ------------
lea cs_cl,a0
move.l #cs_requirements_chipmem,d7
bsr clearmemory
lea cs_planes_add,a0
move.l #cs_requirements_fastmem,d7
bsr clearmemory
; Copy copperlist
; ---------------
lea cs_ct,a0
lea cs_cl,a1
move.w #(cs_ct_data-cs_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
; Screen setup
; ------------
move.l #cs_planes,d0
add.l #5*CS_PLANESIZE,d0
lea cs_cl_bpl1pth,a0
move.w d0,4(a0)
swap d0
move.w d0,(a0)
; Create multiply table
; ---------------------
moveq #0,d0
lea cs_mulu_planewidth,a0
move.l #CS_PLANEHEIGHT-1,d7
.mulu: move.w d0,(a0)+
add.w #CS_PLANEWIDTH,d0
dbra d7,.mulu
; Create octants table
; --------------------
move.b #0|LINEMODE,cs_octants ;y1<y2, x1<x2, dx<dy = okt6
move.b #16|LINEMODE,cs_octants+1 ;y1<y2, x1<x2, dx>dy = okt7
move.b #8|LINEMODE,cs_octants+2 ;y1<y2, x1>x2, dx<dy = okt5
move.b #20|LINEMODE,cs_octants+3 ;y1<y2, x1>x2, dx>dy = okt4
; Create ordered table
; --------------------
lea table_order,a0
lea cs_order,a1
moveq #0,d1
moveq #16-1,d7
.ord1: moveq #0,d3
moveq #16-1,d6
.ord2: move.b (a0)+,d1
move.w d7,d2
addq #1,d2
lsl.w #4,d2
sub.w d1,d2
addx.w d3,d3
dbra d6,.ord2
move.w d3,(a1)+
dbra d7,.ord1
; Create gradient helper bitplane
; -------------------------------
lea cs_planes,a1
add.l #5*CS_PLANESIZE,a1
move.l #CS_PLANEHEIGHT/16-1,d7
.grad1: lea cs_order,a0
moveq #16-1,d6
.grad2: moveq #CS_PLANEWIDTH/2-1,d5
.grad3: move.w (a0),(a1)+
dbra d5,.grad3
addq #2,a0
dbra d6,.grad2
dbra d7,.grad1
; Create multiply table
; ---------------------
rollo: lea cs_mulu_16,a0
moveq #1,d0
moveq #16-1,d7
.mulu1: moveq #0,d1
moveq #16-1,d6
.mulu2: move.w d1,d2
mulu d0,d2
lsr.w #4,d2
move.b d2,(a0)+
addq #1,d1
dbra d6,.mulu2
addq #1,d0
dbra d7,.mulu1
; Create copperlist
; -----------------
lea cs_mulu_16,a0
lea cs_gradient,a1
lea cs_cl_data,a2
move.l #$3001fffe,a3
move.w cs_citycolor,a4
moveq #(CS_PLANEHEIGHT-1)/16-1,d7
.coplp: cmp.l #$0001fffe,a3
bne.s .nskip
move.l #$ffd1fffe,a3
.nskip: move.l a3,(a2)+
move.w (a1)+,a5
move.w (a1),a6
move.w #$180,(a2)+
move.w a5,(a2)+
move.w #$182,(a2)+
move.w a6,(a2)+
move.w a4,d0
moveq #3,d3
bsr multiplycolor
move.w d0,d4
move.w d0,d5
move.w a5,d0
moveq #15-3,d3
bsr multiplycolor
add.w d0,d4
move.w a6,d0
moveq #15-3,d3
bsr multiplycolor
add.w d0,d5
move.w #$188,(a2)+
move.w d4,(a2)+
move.w #$18a,(a2)+
move.w d5,(a2)+
move.w #$190,(a2)+
move.w d4,(a2)+
move.w #$192,(a2)+
move.w d5,(a2)+
move.w #$1a0,(a2)+
move.w d4,(a2)+
move.w #$1a2,(a2)+
move.w d5,(a2)+
move.w a4,d0
moveq #6,d3
bsr multiplycolor
move.w d0,d4
move.w d0,d5
move.w a5,d0
moveq #15-6,d3
bsr multiplycolor
add.w d0,d4
move.w a6,d0
moveq #15-6,d3
bsr multiplycolor
add.w d0,d5
move.w #$198,(a2)+
move.w d4,(a2)+
move.w #$19a,(a2)+
move.w d5,(a2)+
move.w #$1a8,(a2)+
move.w d4,(a2)+
move.w #$1aa,(a2)+
move.w d5,(a2)+
move.w #$1b0,(a2)+
move.w d4,(a2)+
move.w #$1b2,(a2)+
move.w d5,(a2)+
move.w a4,d0
moveq #10,d3
bsr multiplycolor
move.w d0,d4
move.w d0,d5
move.w a5,d0
moveq #15-10,d3
bsr multiplycolor
add.w d0,d4
move.w a6,d0
moveq #15-10,d3
bsr multiplycolor
add.w d0,d5
move.w #$1b8,(a2)+
move.w d4,(a2)+
move.w #$1ba,(a2)+
move.w d5,(a2)+
add.l #$10000000,a3
dbra d7,.coplp
sub.l #$01000000,a3
move.l a3,(a2)+
move.w #$180,(a2)+
move.w a4,(a2)+
move.w #bplcon0,(a2)+
move.w #0,(a2)+
move.l #$fffffffe,(a2)+
move.w cs_citycolor,d0
lea cs_cl_palette+2,a0
moveq #16-1,d7
.ccoll: move.w d0,(a0)
addq #4,a0
dbra d7,.ccoll
move.w cs_gradient,cs_cl_palette+66
move.w #512,cs_cosinus
move.w #140,cs_z
move.l #-$b0000,cs_sinus_add_add
rts
cityscape_go:
move.l #cityscape_main,part_main
move.l #cityscape_vbi,part_vbi
rts
cityscape_main:
; Clear destination bitplane
; --------------------------
lea custom,a6
move.l #cs_planes,d0
add.l cs_planes_add,d0
moveq #0,d1
waitb
; Notice that the following blits use these values as well
; --------------------------------------------------------
move.l #-1,bltafwm(a6)
move.w d1,bltcon1(a6)
move.w #DEST,bltcon0(a6)
move.w d1,bltdmod(a6)
move.l d0,bltdpth(a6)
move.w #(CS_BLITTER_CLEAR<<6)|(CS_PLANEWIDTH/2),bltsize(a6)
; Clear part of the screen using the CPU
; --------------------------------------
move.l d0,a0
add.w #CS_PLANESIZE,a0
moveq #0,d0
moveq #0,d1
moveq #0,d2
moveq #0,d3
moveq #0,d4
moveq #0,d5
moveq #0,d6
sub.l a1,a1
sub.l a2,a2
sub.l a3,a3
sub.l a4,a4
move.l #((CS_PLANEHEIGHT-CS_BLITTER_CLEAR)/16)-1,d7
.clr: movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
dbra d7,.clr
; Rotate one building first
; -------------------------
lea sinus,a0
move.w cs_sinus,d0
add.w #256,d0
and.w #511,d0
add.w #1024,d0
move.w d0,d1
add.w #512,d1
moveq #4-1,d7
.build: and.w #2046,d0
and.w #2046,d1
; Convert to rectangular coordinates
; ----------------------------------
move.w (a0,d0.w),d2
move.w (a0,d1.w),d3
muls #CS_BUILDING_SIZE,d2
muls #CS_BUILDING_SIZE,d3
asr.l #8,d2
swap d3
move.w d3,-(sp)
move.w d2,-(sp)
add.w #512,d0
add.w #512,d1
dbra d7,.build
; Prepare blitter for line drawing
; --------------------------------
lea custom,a6
waitb
move.w #$8000,bltadat(a6)
move.w #$ffff,bltbdat(a6)
move.w #CS_PLANEWIDTH,bltcmod(a6)
move.w #CS_PLANEWIDTH,bltdmod(a6)
; Rotate building center coordinates
; ----------------------------------
lea cs_coords,a0
lea sinus,a1
lea cs_mulu_planewidth,a2
lea cs_planes,a3
add.l cs_planes_add,a3
move.w (a1,d0.w),d2
move.w (a1,d1.w),d3
move.w (a0)+,d7
subq #1,d7
.loop: ; Angle and distance (polar)
; --------------------------
move.w (a0)+,d2
move.w (a0)+,d3
; Rotate (add to angle)
; ---------------------
move.w d2,d4
add.w CS_SINUS(a2),d2
add.w CS_COSINUS(a2),d4
and.w #2046,d2
and.w #2046,d4
; Convert to rectangular coordinates
; ----------------------------------
move.w (a1,d2.w),d2
move.w (a1,d4.w),d4
muls d3,d2
muls d3,d4
asr.l #8,d2
swap d4
; Get height (y)
; --------------
move.w (a0)+,d3
lsl.w #7,d3
; Translation: x=x+cx, z=z+cz
; ---------------------------
add.w CS_X(a2),d2
sub.w CS_Z(a2),d4
cmp.w #CS_BUILDING_SIZE,d4 ;-CS_BUILDING_SIZE*2,d4
bge .skip
swap d3
move.w d2,d3
move.l d3,a4
move.w d4,a5
move.w #$8000,CS_OLDX(a2)
move.w #-1,CS_CLIP(a2)
; Plot building around the center coordinate
; ------------------------------------------
moveq #4-1,d6
.bldng: move.l a4,d2
move.l d2,d3
swap d3
move.l a5,d4
add.w (sp)+,d2
add.w (sp)+,d4
bmi .zok
move.w #$8000,CS_OLDX(a2)
bra .next
.zok: ext.l d2
ext.l d3
ext.l d4
; Projection: x'=x/z, y'=y/z
; --------------------------
divs d4,d2
divs d4,d3
; Centering
; ---------
.projd: add.w #CS_PLANEWIDTH*8/2,d2
add.w #CS_PLANEHEIGHT*3/4,d3
; Get line coordinates
; --------------------
move.w CS_OLDX(a2),d0
move.w CS_OLDY(a2),d1
move.w d2,CS_OLDX(a2)
move.w d3,CS_OLDY(a2)
cmp.w #$8000,d0
beq .next
; Clipping test
; -------------
lea cs_clipstorage+16,a6
movem.l d6-d7,-(a6)
movem.l a2-a3,-(a6)
moveq #0,d7
sub.l a2,a2
sub.l a3,a3
.cloop: moveq #0,d4 ; code1
moveq #0,d5 ; code2
tst.w d0
bpl.s .x1lok
or.w #CLIP_LEFT_EDGE,d4
.x1lok: cmp.w #CS_PLANEWIDTH*8,d0
blt.s .x1rok
or.w #CLIP_RIGHT_EDGE,d4
.x1rok: tst.w d1
bpl.s .y1lok
or.w #CLIP_TOP_EDGE,d4
.y1lok: cmp.w #CS_PLANEHEIGHT,d1
blt.s .y1rok
or.w #CLIP_BOTTOM_EDGE,d4
.y1rok: tst.w d2
bpl.s .x2lok
or.w #CLIP_LEFT_EDGE,d5
.x2lok: cmp.w #CS_PLANEWIDTH*8,d2
blt.s .x2rok
or.w #CLIP_RIGHT_EDGE,d5
.x2rok: tst.w d3
bpl.s .y2lok
or.w #CLIP_TOP_EDGE,d5
.y2lok: cmp.w #CS_PLANEHEIGHT,d3
blt.s .y2rok
or.w #CLIP_BOTTOM_EDGE,d5
.y2rok: move.w d4,d6
or.w d5,d6
beq.w .line
move.w d4,d6
and.w d5,d6
beq.s .ok
btst #0,d4
beq.s .nl1
moveq #0,d0
.nl1: btst #1,d4
beq.s .nr1
move.l #CS_PLANEWIDTH*8-1,d0
.nr1: btst #2,d4
beq.s .nt1
moveq #0,d1
.nt1: btst #3,d4
beq.s .nb1
move.l #CS_PLANEHEIGHT-1,d1
.nb1: btst #0,d5
beq.s .nl2
moveq #0,d2
.nl2: btst #1,d5
beq.s .nr2
move.l #CS_PLANEWIDTH*8-1,d2
.nr2: btst #2,d5
beq.s .nt2
moveq #0,d3
.nt2: btst #3,d5
beq.s .nb2
move.l #CS_PLANEHEIGHT-1,d3
.nb2: bra .line
.ok: cmp.l #0,a2
bne.s .m2
move.w d3,d6 ; m1=(y2-y1)/(x2-x1)
sub.w d1,d6
ext.l d6
asl.l #5,d6
move.w d2,d7
sub.w d0,d7
beq.s .m1
add.l #$3f,d6
divs d7,d6
ext.l d6
move.l d6,a2
.m1: move.w d2,d6 ; m2=(x2-x1)/(y2-y1)
sub.w d0,d6
ext.l d6
asl.l #5,d6
move.w d3,d7
sub.w d1,d7
beq.s .m2
add.l #$3f,d6
divs d7,d6
ext.l d6
move.l d6,a3
.m2: tst.w d4
bne.s .clip
exg d0,d2
exg d1,d3
exg d4,d5
.clip: btst #0,d4
beq.s .nleft
move.l a2,d6
muls d6,d0
asr.l #6,d0
sub.l d0,d1
moveq #0,d0
bra.w .cloop
.nleft: btst #1,d4
beq.s .nrite
sub.w #CS_PLANEWIDTH*8-1,d0
move.l a2,d6
muls d6,d0
asr.l #6,d0
sub.l d0,d1
move.l #CS_PLANEWIDTH*8-1,d0
bra.w .cloop
.nrite: btst #2,d4
beq.s .ntop
cmp.w d0,d2
beq.s .y1
move.l a3,d6
muls d6,d1
asr.l #6,d1
sub.l d1,d0
.y1: moveq #0,d1
bra.w .cloop
.ntop: btst #3,d4
beq.w .cloop
cmp.w d0,d2
beq.s .y2
sub.w #CS_PLANEHEIGHT-1,d1
move.l a3,d6
muls d6,d1
asr.l #6,d1
sub.l d1,d0
.y2: move.l #CS_PLANEHEIGHT-1,d1
bra.w .cloop
.line: lea custom,a6
.wait: btst #14,dmaconr(a6)
bne.s .wait
lea cs_clipstorage,a6
movem.l (a6)+,a2-a3
; If the top y of the previous line was 0 check out if this one's is too
; ----------------------------------------------------------------------
cmp.w #-1,CS_CLIP(a2)
beq .chtop
tst.w d1
beq.s .d1tp1
tst.w d3
bne.s .chtop
.d3tp1: move.w d2,d4
bra.s .width
.d1tp1: move.w d0,d4
.width: move.w CS_CLIP(a2),d5
cmp.w d5,d4
bcs.s .d4ok
exg d4,d5
.d4ok: moveq #-1,d7
move.w d5,d6
not.w d6
and.w #15,d6
lsl.w d6,d7
swap d7
move.w d4,d6
and.w #15,d6
lsr.w d6,d7
lsr.w #3,d4
lsr.w #3,d5
and.w #$fffe,d4
and.w #$fffe,d5
sub.w d4,d5
beq.s .nloop
lsr.w d5
or.w d7,(a3,d4.w)
addq #2,d4
subq #2,d5
bmi .sloop
.filll: move.w #-1,(a3,d4.w)
addq #2,d4
dbra d5,.filll
.sloop: swap d7
or.w d7,(a3,d4.w)
bra.s .chtop
.nloop: move.w d7,d6
swap d7
and.w d7,d6
or.w d6,(a3,d4.w)
; Check if the top y of this line is at 0
; ---------------------------------------
.chtop: move.w #-1,CS_CLIP(a2)
tst.w d1
beq.s .d1tp2
tst.w d3
bne.s .swap
.d3tp2: move.w d2,CS_CLIP(a2)
bra.s .swap
.d1tp2: move.w d0,CS_CLIP(a2)
.swap: movem.l (a6)+,d6-d7
lea custom,a6
; Make sure the line is drawn from top to bottom
; ----------------------------------------------
cmp.w d1,d3
bhi.s .yok
bne.s .exg
cmp.w d0,d2
bne .yok
bra .next
.exg: exg d0,d2
exg d1,d3
.yok: moveq #0,d5
move.w d3,d4
sub.w d1,d4
add.w d4,d4
sub.w d0,d2
bge.s .x2gx1
neg.w d2
addq #2,d5
.x2gx1: cmp.w d4,d2
blo.s .allok
subq #1,d3
.allok: sub.w d1,d3
add.w d1,d1
move.w (a2,d1.w),d1
ext.l d1
move.w d0,d4
asr.w #3,d4
add.w d4,d1
add.l a3,d1
move.w d3,d4
sub.w d2,d4
bge.s .dygdx
exg d2,d3
addq #1,d5
.dygdx: move.b CS_OCTANTS(a2,d5.w),d5
and.w #$00ff,d5
add.w d2,d2
and.w #$000f,d0
ror.w #4,d0
or.w #SRCA|SRCC|DEST|NANBC|NABC|ANBC|ABC|ABNC,d0
.waitb: btst #14,dmaconr(a6)
bne.s .waitb
move.w d2,bltbmod(a6)
sub.w d3,d2
bge.s .signl
or.w #SIGNFLAG,d5
.signl: move.w d2,bltaptl(a6)
sub.w d3,d2
move.w d2,bltamod(a6)
move.w d0,bltcon0(a6)
move.w d5,bltcon1(a6)
move.l d1,bltcpth(a6)
move.l d1,bltdpth(a6)
lsl.w #6,d3
addq #2,d3
move.w d3,bltsize(a6)
.next: dbra d6,.bldng
sub.w #16,sp
.skip: dbra d7,.loop
add.w #16,sp
; Prepare blitter for vertical filling
; ------------------------------------
lea custom,a6
move.l #cs_planes+4,d0
add.l cs_planes_add,d0
move.l d0,d1
add.l #CS_PLANEWIDTH,d1
waitb
move.w #SRCA|SRCB|DEST|ABC|ABNC|ANBC|ANBNC|NABC|NABNC,bltcon0(a6)
move.l #$00040004,bltamod(a6)
move.l #$00040004,bltcmod(a6)
move.l #-1,bltafwm(a6)
move.w #0,bltcon1(a6)
move.l d1,bltapth(a6)
move.l d0,bltbpth(a6)
move.l d1,bltdpth(a6)
move.w #((CS_PLANEHEIGHT-1)<<6)|((CS_PLANEWIDTH-4)/2),bltsize(a6)
; Fill the first 4 bytes of each row using the CPU
; ------------------------------------------------
lea cs_planes,a0
add.l cs_planes_add,a0
moveq #0,d0
move.l #CS_PLANEWIDTH,d6
move.l #CS_PLANEHEIGHT/8-1,d7
.vfill: or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
or.l d0,(a0)
move.l (a0),d0
add.w d6,a0
dbra d7,.vfill
waitb
move.b #1,render
rts
cityscape_vbi:
movem.l d1/d7,-(sp)
move.l sc_position,d0
subq #1,d0
and.w #127,d0
cmp.w #103,d0
bhi.s .noadd
add.l #$400,cs_sinus_add_add
move.l cs_sinus_add_add,d1
add.l d1,cs_sinus_add
move.w cs_sinus_add,d1
beq.s .noadd
clr.w cs_sinus_add
add.w d1,d1
move.w d0,d7
and.w #63,d7
cmp.w #32,d7
bcs.s .add
sub.w d1,cs_sinus
sub.w d1,cs_cosinus
bra.s .added
.add: add.w d1,cs_sinus
add.w d1,cs_cosinus
.added: and.w #2046,cs_sinus
and.w #2046,cs_cosinus
.noadd: move.w d0,d1
cmp.w #104,d0
bcs.s .noend
sub.w #1,cs_z
.noend: and.w #3,d1
cmp.w #2,d1
bcs.s .out
.in: sub.w #4,cs_z
bra.s .moved
.out: add.w #4,cs_z
.moved: tst.b render
beq.s .vbiok
move.l #cs_cl,cop1lch+custom
move.l #cs_planes,d0
move.l d0,d1
add.l cs_planes_add,d0
lea cs_cl_bpl2pth,a0
moveq #4-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
sub.l #CS_PLANESIZE,d0
cmp.l d1,d0
bge .plnok
add.l #5*CS_PLANESIZE,d0
.plnok: dbra d7,.setplanesloop
add.l #CS_PLANESIZE,cs_planes_add
cmp.l #5*CS_PLANESIZE,cs_planes_add
bcs .pladd
clr.l cs_planes_add
.pladd: clr.b render
.vbiok: movem.l (sp)+,d1/d7
rts
multiplycolor:
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
lsl.w #4,d3
add.w d3,a0
move.b (a0,d0.w),d0
move.b (a0,d1.w),d1
move.b (a0,d2.w),d2
sub.w d3,a0
lsl.w #8,d0
lsl.b #4,d1
or.b d1,d0
or.b d2,d0
rts
discopallo:
; Clear memory
; ------------
lea dp_cl,a0
move.l #dp_requirements_chipmem,d7
bsr clearmemory
lea dp_planes_add,a0
move.l #dp_requirements_fastmem,d7
bsr clearmemory
; Copy copperlist
; ---------------
lea dp_ct,a0
lea dp_cl,a1
move.w #(dp_ct_data-dp_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
move.l #$fffffffe,(a1)+
; Screen setup
; ------------
move.l #dp_planes,d0
lea dp_cl_bpl1pth,a0
moveq #DP_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #DP_PLANEWIDTH,d0
dbra d7,.setplanesloop
; Create multiply table
; ---------------------
moveq #0,d0
lea dp_mulu_planewidth,a0
move.l #DP_PLANEHEIGHT-1,d7
.mulu: move.w d0,-(a0)
add.w #DP_PLANEWIDTH,d0
dbra d7,.mulu
moveq #0,d0
lea dp_mulu_256,a0
.mulu2: moveq #1,d1
.mulu3: move.w d0,d2
mulu d1,d2
lsr.w #8,d2
move.b d2,(a0)+
addq #1,d1
cmp.w #256,d1
ble.s .mulu3
addq #1,d0
cmp.w #128,d0
bcs.s .mulu2
lea dp_mulu_256-128*256,a0
.mulu4: moveq #1,d1
.mulu5: move.w d0,d2
mulu d1,d2
lsr.w #8,d2
move.b d2,(a0)+
addq #1,d1
cmp.w #256,d1
ble.s .mulu5
addq #1,d0
cmp.w #256,d0
bcs.s .mulu4
; Create discopallo ball width table (x=sqrt(r^2-y^2))
; ----------------------------------------------------
lea dp_table,a0
move.l #-256,d7
.dpbw: move.l d7,d0
bpl.s .dpbp
neg.l d0
.dpbp: mulu d0,d0
move.l #256*256-1,d1
sub.w d0,d1
; Calculate square root
; ---------------------
moveq #-1,d2
clr.w d2
cmp.l d2,d1
bls.s .sqrt0
move.l #$00010000,d2
bra.s .sqrt3
.sqrt0: moveq #31,d0
.sqrt1: bclr d0,d2
lsr.l d2
cmp.l d2,d1
bls.s .sqrt2
sub.l d2,d1
bset d0,d2
.sqrt2: subq #2,d0
bcc.s .sqrt1
lsr.l d2
.sqrt3: cmp.w #$100,d2
bcs.s .dpbok
subq #1,d2
.dpbok: move.b d2,(a0)+
addq #1,d7
cmp.w #256,d7
bne.s .dpbw
; Copy the ordered table to the discopallo table
; ----------------------------------------------
lea table_order,a0
lea dp_xoffsets,a1
move.l #16-1,d7
.dptf: move.l (a0)+,(a1)+
move.l (a0)+,60(a1)
move.l (a0)+,124(a1)
move.l (a0)+,188(a1)
dbra d7,.dptf
; Remove pixels from the discopallo table
; ---------------------------------------
lea dp_xoffsets,a0
move.l #255-1,d7
.dpt: move.b (a0)+,d0
move.l a0,a1
move.l d7,d6
cmp.b #128,d0
bcs.s .dptl
.dptr:
.dptrl: move.b (a1)+,d1
cmp.b d0,d1
bcs.s .dptrn
subq #1,d1
move.b d1,-1(a1)
.dptrn: dbra d6,.dptrl
bra.s .dptnx
.dptl:
.dptll: move.b (a1)+,d1
cmp.b d0,d1
bhi.s .dptln
addq #1,d1
move.b d1,-1(a1)
.dptln: dbra d6,.dptll
.dptnx: dbra d7,.dpt
; Create discopallo Y offsets
; ---------------------------
moveq #-2,d0
moveq #-1,d1
lea sinus,a0
lea dp_yoffsets,a1
moveq #32-1,d7
.dpyol: addq #2,d0
cmp.w #512,d0
bne.s .dpyon
move.b #128,(a1)+
bra.s .dpyol
.dpyon: move.w (a0,d0.w),d2
lsr.w #8,d2
lsr.w #3,d2
cmp.w d1,d2
beq .dpyol
move.w d2,d1
move.w d0,d3
lsr.w #2,d3
addq #1,d3
move.b d3,(a1)+
dbra d7,.dpyol
move.b #$ff,(a1)+
clr.b (a1)+
; Create jelly table
; ------------------
lea dp_jelly,a0
move.w #64-16,d6
.jell1: moveq #0,d7
.jell2: move.w d7,d0
mulu d6,d0
lsr.w #6,d0
cmp.w #256,d0
bcs.s .jelok
move.w #255,d0
.jelok: move.b d0,(a0)+
addq #1,d7
cmp.w #256,d7
bcs.s .jell2
addq #1,d6
cmp.w #64+16,d6
bcs.s .jell1
lea sinus,a0
lea dp_texture,a1
moveq #128-1,d7
.yloop: moveq #128-1,d6
.xloop: move.w d6,d0
move.w d7,d1
lsl.w #5,d0
lsl.w #5,d1
and.w #2046,d0
and.w #2046,d1
; Red
; ---
move.w (a0,d0.w),d3
move.w (a0,d1.w),d4
asr.w d3
asr.w d4
add.w #$4000,d3
add.w #$4000,d4
mulu d4,d3
swap d3
lsr.w #2,d3
and.w #$f00,d3
move.w d3,d2
; Green
; -----
add.w #682,d0
add.w #340,d1
and.w #2046,d0
and.w #2046,d1
move.w (a0,d0.w),d3
move.w (a0,d1.w),d4
asr.w d3
asr.w d4
add.w #$4000,d3
add.w #$4000,d4
mulu d4,d3
swap d3
lsr.w #6,d3
and.w #$f0,d3
or.w d3,d2
; Blue
; ----
add.w #682,d0
add.w #682,d1
and.w #2046,d0
and.w #2046,d1
move.w (a0,d0.w),d3
move.w (a0,d1.w),d4
asr.w d3
asr.w d4
add.w #$4000,d3
add.w #$4000,d4
mulu d4,d3
rol.l #6,d3
and.w #$f,d3
or.w d3,d2
move.w d2,(a1)+
dbra d6,.xloop
dbra d7,.yloop
; Add some of the texture below the texture (bubble gum fix...)
; -------------------------------------------------------------
lea dp_texture,a0
lea dp_texture_hotfix,a1
move.w #128*2/4-1,d7
.hotfx: move.l (a0)+,(a1)+
dbra d7,.hotfx
; Create discopallo
; -----------------
lea sinus,a0
lea dp_planes+DP_PLANES*DP_PLANESIZE-DP_PLANES*DP_PLANEWIDTH,a1
lea DP_PLANEWIDTH(a1),a2
lea DP_PLANEWIDTH(a2),a3
lea DP_PLANEWIDTH(a3),a4
lea DP_PLANEWIDTH+16(a4),a5
move.l #$80,d0
moveq #128-1,d7
.dp1: move.w (a0)+,d1
addq #2,a0
lsr.w #8,d1
lsr.w #4,d1
bcc .dp1n1
or.b d0,(a1)
.dp1n1: lsr.w d1
bcc .dp1n2
or.b d0,(a2)
.dp1n2: lsr.w d1
bcc .dp1n3
or.b d0,(a3)
.dp1n3: lsr.w d1
bcc .dp1n4
or.b d0,(a4)
.dp1n4: ror.b d0
bpl.s .dp1ok
addq #1,a1
addq #1,a2
addq #1,a3
addq #1,a4
.dp1ok: dbra d7,.dp1
moveq #128-1,d7
.dp2: move.w #$7fff,d1
sub.w (a0)+,d1
addq #2,a0
lsr.w #8,d1
lsr.w #4,d1
bcc .dp2n1
or.b d0,(a1)
.dp2n1: lsr.w d1
bcc .dp2n2
or.b d0,(a2)
.dp2n2: lsr.w d1
bcc .dp2n3
or.b d0,(a3)
.dp2n3: lsr.w d1
bcc .dp2n4
or.b d0,(a4)
.dp2n4: ror.b d0
bpl.s .dp2ok
addq #1,a1
addq #1,a2
addq #1,a3
addq #1,a4
move.b #-1,(a5)+
.dp2ok: dbra d7,.dp2
lea dp_xoffsets,a1
lea dp_planes+DP_PLANES*DP_PLANESIZE-2*DP_PLANES*DP_PLANEWIDTH,a3
lea DP_PLANES*DP_PLANEWIDTH(a3),a2
lea custom,a6
moveq #0,d7
dp_lp: ; Copy row below as is
; --------------------
moveq #0,d0
waitb
move.w #SRCA|DEST|ABC|ABNC|ANBC|ANBNC,bltcon0(a6)
move.w d0,bltcon1(a6)
move.l #$fffffffe,bltafwm(a6)
move.l d0,bltamod(a6)
move.l a2,bltapth(a6)
move.l a3,bltdpth(a6)
move.w #(DP_PLANES<<6)|(32/2),bltsize(a6)
; Get destination pixel to remove
; -------------------------------
move.b (a1,d7.w),d0
; Check whether the pixel is on the left or on the right half
; -----------------------------------------------------------
cmp.b #128,d0
bcs.s dp_ol
; Blit width in words
; -------------------
move.w #255,d1
sub.b d0,d1
lsr.w #4,d1
addq #1,d1
; Modulo in bytes
; ---------------
move.w #DP_PLANEWIDTH,d2
sub.w d1,d2
sub.w d1,d2
; How many pixels of the original are preserved
; ---------------------------------------------
and.w #15,d0
; Calculate blitter mask
; --------------------
move.l #$fffeffff,d3
lsr.w d0,d3
lea DP_PLANES*DP_PLANEWIDTH-2(a3),a4
or.w #(DP_PLANES<<6),d1
waitb
move.w #SRCB|SRCC|DEST|ABC|ABNC|NABC|NANBC,bltcon0(a6)
move.w #(1<<BSHIFTSHIFT)|BLITREVERSE,bltcon1(a6)
move.w #-1,bltadat(a6)
move.l d3,bltafwm(a6)
move.w d2,bltbmod(a6)
move.w d2,bltcmod(a6)
move.w d2,bltdmod(a6)
move.l a4,bltbpth(a6)
move.l a4,bltcpth(a6)
move.l a4,bltdpth(a6)
move.w d1,bltsize(a6)
bra.s dp_nx
dp_ol: ; Blit width in words
; -------------------
move.w d0,d1
lsr.w #4,d1
addq #1,d1
; Modulo in bytes
; ---------------
move.w #DP_PLANEWIDTH,d2
sub.w d1,d2
sub.w d1,d2
; How many pixels of the original are preserved
; ---------------------------------------------
and.w #15,d0
sub.w #15,d0
neg.w d0
; Calculate blitter mask
; ----------------------
move.l #$7fffffff,d3
lsl.w d0,d3
or.w #(DP_PLANES<<6),d1
waitb
move.w #SRCB|SRCC|DEST|ABC|ABNC|NABC|NANBC,bltcon0(a6)
move.w #(1<<BSHIFTSHIFT),bltcon1(a6)
move.w #-1,bltadat(a6)
move.l d3,bltafwm(a6)
move.w d2,bltbmod(a6)
move.w d2,bltcmod(a6)
move.w d2,bltdmod(a6)
move.l a3,bltbpth(a6)
move.l a3,bltcpth(a6)
move.l a3,bltdpth(a6)
move.w d1,bltsize(a6)
dp_nx: lea -DP_PLANES*DP_PLANEWIDTH(a2),a2
lea -DP_PLANES*DP_PLANEWIDTH(a3),a3
addq #1,d7
cmp.w #255,d7
bne dp_lp
move.w #60*2+64,dp_sizepointer
move.w #(DP_PLANES-1)*DP_PLANEWIDTH,dp_modulo
move.l #$fffffffe,dp_cl_data
move.w #$58,dp_ddfstrt
move.w #$d0,dp_ddfstop
waitb
rts
discopallo_go:
move.l #dp_cl,cop1lch+custom
move.l #discopallo_main,part_main
move.l #discopallo_vbi,part_vbi
rts
discopallo_main:
; Update copperlist
; -----------------
lea dp_table,a0
lea dp_cl_data,a1
add.l dp_copper_add,a1
lea dp_jelly,a2
lea dp_mulu_256,a3
lea dp_texture,a4
lea dp_yoffsets,a5
move.w dp_texturey,d0
lsl.w #7,d0
add.w dp_texturex,d0
add.w d0,d0
add.w d0,a4
move.w dp_jellyptr,d6
add.w d6,a2
sub.w #256*32,d6
neg.w d6
lsr.w #8,d6
moveq #0,d7
move.w dp_ysize,d7
add.w d6,d7
; Copper Y wait
; -------------
move.l d7,d0
lsr.w d0
neg.w d0
add.w #$a8,d0
lsl.w #8,d0
or.w #1,d0
; Y table pointer
; ---------------
moveq #0,d1
; Y table pointer delta
; ---------------------
move.l #$20000,d2
divu d7,d2
ext.l d2
; Previous width
; --------------
moveq #0,d3
; Multiplier table pointer
; ------------------------
move.w d7,d6
lsl.w #8,d6
; Loop counter (in stack!)
; ------------------------
move.w d7,-(sp)
; Y offset to wait and first Y position
; -------------------------------------
move.l d0,a6
move.l d0,d7
; Wait for the first Y position, switch bitplanes on
; --------------------------------------------------
move.w d0,(a1)+
move.w #$fffe,(a1)+
move.w #bplcon0,(a1)+
move.w dp_cl_bplcon0+2,(a1)+
.yloop: add.l d2,d1
; Get the width of the next row and set modulos accordingly
; ---------------------------------------------------------
move.l d1,d4
lsr.l #8,d4
and.w #$fffe,d4
move.w (a0,d4.w),d4
lsr.w #8,d4
add.w d6,d4
moveq #0,d5
move.b (a3,d4.w),d5
move.b (a2,d5.w),d5
move.w d5,d4
sub.w d3,d5
move.w d4,d3
subq #1,d5
bmi.s .neg
addq #1,d5
add.w d5,d5
neg.w d5
move.w (a0,d5.w),d5
bra.s .done
.neg: subq #1,d5
add.w d5,d5
move.w (a0,d5.w),d5
neg.w d5
.done: move.w d5,d4
; Multiply by 5 (number of bitplanes)
; -----------------------------------
add.w d5,d5
add.w d5,d5
add.w d4,d5
add.w -DP_PLANEHEIGHT*2-2(a0),d5
move.w #bpl1mod,(a1)+
move.w d5,(a1)+
move.w #bpl2mod,(a1)+
move.w d5,(a1)+
; Check whether some texture data should be written in the colour regs
; --------------------------------------------------------------------
cmp.l a6,d0
bcs .nopal
; Get next Y wait position and scale it
; -------------------------------------
moveq #0,d4
moveq #0,d5
move.b (a5)+,d4
bne.s .ywtok
move.l #$400001,a6
bra.s .wrtex
.ywtok: add.w d6,d4
move.b (a3,d4.w),d5
lsl.w #8,d5
add.l d7,d5
move.l d5,a6
; Write new texture data
; ----------------------
.wrtex: move.w #$182,(a1)+
move.w (a4)+,(a1)+
move.w #$184,(a1)+
move.w (a4)+,(a1)+
move.w #$186,(a1)+
move.w (a4)+,(a1)+
move.w #$188,(a1)+
move.w (a4)+,(a1)+
move.w #$18a,(a1)+
move.w (a4)+,(a1)+
move.w #$18c,(a1)+
move.w (a4)+,(a1)+
move.w #$18e,(a1)+
move.w (a4)+,(a1)+
move.w #$190,(a1)+
move.w (a4)+,(a1)+
move.w #$192,(a1)+
move.w (a4)+,(a1)+
move.w #$194,(a1)+
move.w (a4)+,(a1)+
move.w #$196,(a1)+
move.w (a4)+,(a1)+
move.w #$198,(a1)+
move.w (a4)+,(a1)+
move.w #$19a,(a1)+
move.w (a4)+,(a1)+
move.w #$19c,(a1)+
move.w (a4)+,(a1)+
move.w #$19e,(a1)+
move.w (a4)+,(a1)+
move.w #$1a0,(a1)+
move.w (a4)+,(a1)+
move.w #$1a2,(a1)+
move.w (a4)+,(a1)+
move.w #$1a4,(a1)+
move.w (a4)+,(a1)+
move.w #$1a6,(a1)+
move.w (a4)+,(a1)+
move.w #$1a8,(a1)+
move.w (a4)+,(a1)+
move.w #$1aa,(a1)+
move.w (a4)+,(a1)+
move.w #$1ac,(a1)+
move.w (a4)+,(a1)+
move.w #$1ae,(a1)+
move.w (a4)+,(a1)+
move.w #$1b0,(a1)+
move.w (a4)+,(a1)+
move.w #$1b2,(a1)+
move.w (a4)+,(a1)+
move.w #$1b4,(a1)+
move.w (a4)+,(a1)+
move.w #$1b6,(a1)+
move.w (a4)+,(a1)+
move.w #$1b8,(a1)+
move.w (a4)+,(a1)+
move.w #$1ba,(a1)+
move.w (a4)+,(a1)+
move.w #$1bc,(a1)+
move.w (a4)+,(a1)+
move.w #$1be,(a1)+
move.w (a4)+,(a1)+
lea 256-62(a4),a4
.nopal: ; Move to next Y position, check for position $100
; ------------------------------------------------
add.l #$100,d0
cmp.w #1,d0
bne.s .next
move.l #$ffc1fffe,(a1)+
.next: move.w d0,(a1)+
move.w #$fffe,(a1)+
sub.w #1,(sp)
bne.w .yloop
move.w #bplcon0,(a1)+
clr.w (a1)+
move.w #$ffff,(a1)+
move.w #$fffe,(a1)+
; Restore stack
; -------------
addq #2,sp
move.b #1,render
rts
discopallo_vbi:
movem.l d1-d4/d7,-(sp)
move.w dp_ddfstrt,dp_cl_ddfstrt+2
move.w dp_ddfstop,dp_cl_ddfstop+2
move.w dp_bplcon1,dp_cl_bplcon1+2
; Screen setup
; ------------
move.l #dp_planes,d0
add.l dp_planes_add,d0
lea dp_cl_bpl1pth,a0
moveq #DP_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #DP_PLANEWIDTH,d0
dbra d7,.setplanesloop
; Copperlist setup
; ----------------
move.l #dp_cl_data,d0
add.l dp_copper_add,d0
move.w d0,dp_cl_cop2lcl
swap d0
move.w d0,dp_cl_cop2lch
; Update ball X position
; ----------------------
lea sinus,a0
move.l #(DP_PLANES-1)*DP_PLANEWIDTH,d3
moveq #0,d4
move.w dp_xsinus,d0
move.w (a0,d0.w),d0
add.w #$8000,d0
lsr.w #8,d0
move.w d0,d1
lsr.w d1
and.w #$fff8,d1
move.w d1,d2
add.w #$58-2*DP_PLANEWIDTH,d1
add.w #$50+2*DP_PLANEWIDTH,d2
; Does the ball go outside the screen from the left?
; --------------------------------------------------
cmp.w #$18,d1
bcc.s .strok
sub.w #$18,d1
neg.w d1
lsr.w #2,d1
add.w d1,d3
move.w d1,d4
move.w #$18,d1
.strok: move.w d1,dp_ddfstrt
; Does the ball go outside the screen from the right?
; ---------------------------------------------------
cmp.w #$d8,d2
bls.s .stpok
sub.w #$d8,d2
lsr.w #2,d2
add.w d2,d3
move.w #$d8,d2
.stpok: move.w d2,dp_ddfstop
and.w #15,d0
move.w d0,d1
lsl.w #4,d1
or.w d1,d0
move.w d0,dp_bplcon1
move.w d3,dp_modulo
move.l d4,dp_planes_add
; Update ball size, texture location, jelly
; -----------------------------------------
lea sinus,a0
move.w dp_sizepointer,d0
move.w (a0,d0.w),d0
lsr.w #7,d0
sub.w #50,d0
move.w d0,dp_ysize
move.w dp_texxptr,d0
move.w (a0,d0.w),d0
add.w #$8000,d0
lsr.w #8,d0
lsr.w d0
move.w d0,d1
add.w d0,d0
add.w d1,d0
lsr.w #2,d0
move.w d0,dp_texturex
move.w dp_texyptr,d0
move.w (a0,d0.w),d0
add.w #$8000,d0
lsr.w #8,d0
lsr.w d0
move.w d0,d1
add.w d0,d0
add.w d1,d0
lsr.w #2,d0
move.w d0,dp_texturey
move.w dp_jellysinus,d0
move.w (a0,d0.w),d0
add.w #$8000,d0
rol.w #5,d0
and.w #31,d0
lsl.w #8,d0
move.w d0,dp_jellyptr
; Synchronize ball size to the beat
; ---------------------------------
add.w #32,dp_sizepointer
move.l sc_position,d0
addq #3,d0
and.w #3,d0
bne.s .nsync
tst.b dp_synced
bne.s .nores
move.b #1,dp_synced
move.w #60*2+64,dp_sizepointer
bra.s .nores
.nsync: clr.b dp_synced
.nores: add.w #10,dp_texxptr
add.w #8,dp_texyptr
move.l sc_position,d0
and.w #127,d0
cmp.w #65,d0
bcs.s .nxsin
add.w #42,dp_xsinus
.nxsin: add.w #132,dp_jellysinus
cmp.w #1024-60*2,dp_sizepointer
bcs.s .sizo
sub.w #1024-60*2*2,dp_sizepointer
.sizo: and.w #2046,dp_texxptr
and.w #2046,dp_texyptr
and.w #2046,dp_xsinus
and.w #2046,dp_jellysinus
clr.b render
eor.l #(4+256*6+34*62+2+2+2)*2,dp_copper_add
movem.l (sp)+,d1-d4/d7
rts
; Fancy writer
; ------------
fancywriter:
; Clear memory
; ------------
lea fw_cl,a0
move.l #fw_requirements_chipmem,d7
bsr clearmemory
lea fw_planes_add,a0
move.l #fw_requirements_fastmem,d7
bsr clearmemory
; Copy copperlist
; ---------------
lea fw_ct,a0
lea fw_cl,a1
move.w #(fw_ct_data-fw_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
; Screen setup
; ------------
move.l #fw_planes,d0
move.w d0,fw_cl_bpl1ptl
move.w d0,fw_cl_bpl2ptl
swap d0
move.w d0,fw_cl_bpl1pth
move.w d0,fw_cl_bpl2pth
swap d0
add.l #2*FW_PLANESIZE,d0
move.w d0,fw_cl_bpl3ptl
swap d0
move.w d0,fw_cl_bpl3pth
; Create multiply table
; ---------------------
moveq #0,d0
lea fw_mulu_planewidth,a0
move.l #FW_PLANEHEIGHT-1,d7
.mulu1: move.w d0,(a0)+
add.w #FW_PLANEWIDTH,d0
dbra d7,.mulu1
; Create scaling table
; --------------------
moveq #0,d0
lea fw_mulu_256,a0
.mulu2: moveq #0,d1
.mulu3: move.w d0,d2
move.w d1,d3
ext.w d3
muls d3,d2
asr.w #8,d2
move.b d2,(a0)+
addq #1,d1
cmp.w #256,d1
bcs.s .mulu3
addq #1,d0
cmp.w #128,d0
bcs.s .mulu2
move.w #128,d0
lea fw_mulu_256-128*256,a0
.mulu4: moveq #0,d1
.mulu5: move.w d0,d2
move.w d1,d3
ext.w d3
muls d3,d2
asr.w #8,d2
move.b d2,(a0)+
addq #1,d1
cmp.w #256,d1
bcs.s .mulu5
addq #1,d0
cmp.w #256,d0
bcs.s .mulu4
; Copy Jorma
; ----------
lea fw_symbol,a0
lea fw_planes+2*FW_PLANESIZE+16*FW_PLANEWIDTH+(FW_PLANEWIDTH-32)/2,a1
lea FW_PLANESIZE(a1),a2
move.w #224-1,d7
.jorma: move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
move.l (a0),(a1)+
move.l (a0)+,(a2)+
lea FW_PLANEWIDTH-32(a1),a1
lea FW_PLANEWIDTH-32(a2),a2
dbra d7,.jorma
; Set initial particle speeds
; ---------------------------
move.l #(FW_PLANEWIDTH*8/2)<<16,d0
move.l #(FW_PLANEHEIGHT-FW_NUMBER_OF_PARTICLES)<<16,d1
moveq #0,d2
move.l #$10000,d3
lea fw_part_speeds,a0
lea fw_part_coords,a1
move.w #FW_NUMBER_OF_PARTICLES/2-1,d7
.set: move.l d2,(a0)+
move.l d3,(a0)+
move.l d0,(a1)+
move.l d1,(a1)+
move.l d2,(a0)+
move.l d3,(a0)+
move.l d0,(a1)+
move.l d1,(a1)+
add.l #2<<16,d1
dbra d7,.set
move.w #2,fw_asl
move.w #254*256,fw_mult
rts
fancywriter_go:
move.l #fw_cl,cop1lch+custom
move.l #fancywriter_main,part_main
move.l #fancywriter_vbi,part_vbi
rts
fancywriter_main:
tst.b fw_written
bne fw_blt
move.b #1,fw_written
; Clear writer bitplane
; ---------------------
lea custom,a6
move.l #fw_plane,d0
moveq #0,d1
waitb
move.l #-1,bltafwm(a6)
move.w d1,bltcon1(a6)
move.w #DEST,bltcon0(a6)
move.w d1,bltdmod(a6)
move.l d0,bltdpth(a6)
move.w #(FW_BLITTER_CLEAR<<6)|(FW_PLANEWIDTH/2),bltsize(a6)
; Clear part of the bitplane using the CPU
; ----------------------------------------
move.l d0,a0
add.w #FW_PLANESIZE,a0
moveq #0,d0
moveq #0,d1
moveq #0,d2
moveq #0,d3
moveq #0,d4
moveq #0,d5
moveq #0,d6
sub.l a1,a1
sub.l a2,a2
sub.l a3,a3
sub.l a4,a4
move.l #((FW_PLANEHEIGHT-FW_BLITTER_CLEAR)/16)-1,d7
.clr: movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
dbra d7,.clr
moveq #0,d0
moveq #0,d2
lea fw_text,a0
lea fw_font,a1
lea fw_font_widths,a2
lea fw_font_left,a3
lea fw_row_in_use,a4
clr.b (a4)
lea fw_plane+FW_STARTING_ROW*FW_PLANEWIDTH,a5
waitb
.loop: ; 0? Text rendered
; ----------------
move.b (a0)+,d2
beq fw_blt
; 10? Line feed
; -------------
cmp.b #10,d2
bne.s .noret
; Reset X position, move on to the next line
; ------------------------------------------
moveq #0,d0
lea 16*FW_PLANEWIDTH(a5),a5
; Check if anything was written on this row
; -----------------------------------------
tst.b (a4)
beq.s .nouse
; Mark the following 16 rows as used
; ----------------------------------
move.l #$01010101,d3
move.l d3,(a4)+
move.l d3,(a4)+
move.l d3,(a4)+
move.l d3,(a4)+
clr.b (a4)
bra.s .loop
; Mark the following 16 rows as unused
; ------------------------------------
.nouse: clr.l (a4)+
clr.l (a4)+
clr.l (a4)+
clr.l (a4)+
clr.b (a4)
bra.s .loop
.noret: ; This row is used
; ----------------
move.b #1,(a4)
; Substract space (the first character); don't render spaces
; ----------------------------------------------------------
sub.b #32,d2
beq.s .next
; Substract left substraction
; ---------------------------
moveq #0,d3
move.b (a3,d2.w),d3
sub.w d3,d0
; Get font
; --------
move.w d2,d3
lsl.w #6,d3
; Calculate offset, shift and mask
; --------------------------------
move.w d0,d1
move.w d0,d4
lsr.w #3,d1
and.w #$fffe,d1
and.w #15,d4
move.l #-1,d6
lsr.l d4,d6
not.l d6
sub.l a6,a6
.font: move.l (a1,d3.w),d5
lsr.l d4,d5
or.l d5,(a5,d1.w)
move.l (a1,d3.w),d5
ror.l d4,d5
and.l d6,d5
or.l d5,4(a5,d1.w)
addq #4,d3
add.w #FW_PLANEWIDTH,d1
; Next row
; --------
addq #1,a6
cmp.w #16,a6
bcs.s .font
.next: ; Add font width minus right substraction
; ---------------------------------------
moveq #1,d1
add.b (a2,d2.w),d1
sub.b FW_NUMBER_OF_FONTS(a3,d2.w),d1
add.w d1,d0
bra .loop
fw_blt: ; Clear destination bitplane
; --------------------------
lea custom,a6
move.l #fw_planes,d0
add.l fw_planes_add,d0
moveq #0,d1
waitb
move.w d1,bltcon1(a6)
move.w #DEST,bltcon0(a6)
move.l #-1,bltafwm(a6)
move.w d1,bltdmod(a6)
move.l d0,bltdpth(a6)
move.w #(FW_BLITTER_CLEAR<<6)|(FW_PLANEWIDTH/2),bltsize(a6)
; Clear part of the bitplane using the CPU
; ----------------------------------------
move.l d0,a0
add.w #FW_PLANESIZE,a0
moveq #0,d0
moveq #0,d1
moveq #0,d2
moveq #0,d3
moveq #0,d4
moveq #0,d5
moveq #0,d6
sub.l a1,a1
sub.l a2,a2
sub.l a3,a3
sub.l a4,a4
move.l #((FW_PLANEHEIGHT-FW_BLITTER_CLEAR)/16)-1,d7
.clr: movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
movem.l d0-d6/a1-a4,-(a0)
dbra d7,.clr
lea fw_plane,a0
lea fw_planes,a1
add.l fw_planes_add,a1
lea sinus,a2
lea fw_mulu_planewidth,a3
lea fw_mulu_256,a4
lea fw_row_in_use,a5
lea FW_STARTING_ROW*FW_PLANEWIDTH(a0),a0
add.w fw_mult,a4
move.w fw_sinus,d0
swap d0
move.w fw_sinus,d0
add.w #512,d0
moveq #0,d1
moveq #0,d2
move.w fw_asl,d6
moveq #FW_STARTING_ROW,d7
fw_blp: and.l #$07ff07ff,d0
tst.b (a5)+
beq fw_nxt
; Y add
; -----
moveq #0,d1
move.b (a2,d0.w),d1
move.b (a4,d1.w),d1
ext.w d1
asl.w d6,d1
add.w d7,d1
; Don't draw if the line goes outside the screen
; ----------------------------------------------
bmi fw_nxt
cmp.w #FW_PLANEHEIGHT,d1
bge fw_nxt
add.w d1,d1
move.w (a3,d1.w),d1
move.l a0,d4
move.l a1,d5
add.l d1,d5
; X add
; -----
moveq #0,d1
swap d0
move.b (a2,d0.w),d1
swap d0
move.b (a4,d1.w),d1
ext.w d1
asl.w d6,d1
bmi.s fw_xng
; X positive: Width = PLANEWIDTH/2 - X/16, Modulo = X/8
; -----------------------------------------------------
move.w d1,d3
lsr.w #4,d3
move.w d3,d2
neg.w d3
add.w #FW_PLANEWIDTH/2,d3
; Don't draw if the line goes outside the screen
; ----------------------------------------------
bmi fw_nxt
beq fw_nxt
or.w #(1<<6),d3
add.w d2,d2
and.w #15,d1
ror.w #4,d1
or.w #SRCA|DEST|ABC|ABNC|ANBC|ANBNC,d1
add.l d2,d5
waitb
move.w #0,bltcon1(a6)
bra.s fw_dbl
; X negative: Width = PLANEWIDTH/2 + X/16, Modulo = X/8
; -----------------------------------------------------
fw_xng: neg.w d1
move.w d1,d3
lsr.w #4,d3
move.w d3,d2
sub.w #FW_PLANEWIDTH/2,d3
; Don't draw if the line goes outside the screen
; ----------------------------------------------
bpl fw_nxt
neg.w d3
or.w #(1<<6),d3
add.w d2,d2
and.w #15,d1
ror.w #4,d1
or.w #SRCA|DEST|ABC|ABNC|ANBC|ANBNC,d1
add.l #FW_PLANEWIDTH-2,d4
add.l #FW_PLANEWIDTH-2,d5
sub.l d2,d5
waitb
move.w #BLITREVERSE,bltcon1(a6)
fw_dbl: move.w d1,bltcon0(a6)
move.l d4,bltapth(a6)
move.l d5,bltdpth(a6)
move.w d3,bltsize(a6)
fw_nxt: add.l #$00100010,d0
lea FW_PLANEWIDTH(a0),a0
addq #1,d7
cmp.w #FW_ENDING_ROW,d7
bcs.w fw_blp
lea fw_part_speeds,a0
lea fw_part_coords,a1
lea fw_part_coords+FW_NUMBER_OF_PARTICLES*2*2*4,a2
lea fw_mulu_planewidth,a3
lea fw_planes+2*FW_PLANESIZE,a4
add.l fw_planes_add,a4
lea sinus,a5
move.w #324,d4
move.w #2046,d5
move.w fw_random,d6
move.w #FW_NUMBER_OF_PARTICLES-1,d7
.part1: ; Plot old coordinates
; --------------------
move.w (a2),d0
move.w 4(a2),d1
add.w d1,d1
move.w (a3,d1.w),d1
move.w d0,d2
lsr.w #3,d0
add.w d0,d1
not.w d2
bchg.b d2,(a4,d1.w)
bchg.b d2,FW_PLANEWIDTH(a4,d1.w)
addq #8,a2
; Add speed to coordinates
; ------------------------
move.l (a1),d0
move.l 4(a1),d1
move.l (a0),d2
move.l 4(a0),d3
add.l d2,d0
bmi.s .reset
cmp.l #FW_PLANEWIDTH<<19,d0
bge.s .reset
add.l d3,d1
bmi.s .reset
cmp.l #(FW_PLANEHEIGHT-1)<<16,d1
blt.s .crdok
.reset: ; Reset particle location and speed
; ---------------------------------
move.l #FW_PLANEWIDTH<<18,d0
move.l #14<<16,d1
move.w (a5,d6.w),d2
add.w d4,d6
and.w d5,d6
move.w (a5,d6.w),d3
add.w d4,d6
and.w d5,d6
ext.l d2
ext.l d3
sub.l #$8000,d3
add.l d2,d2
add.l d2,d2
.crdok: move.l d0,(a1)+
move.l d1,(a1)+
; Update speed
; ------------
add.l #$1000,d3
move.l d2,(a0)+
move.l d3,(a0)+
; Plot new coordinates
; --------------------
swap d0
swap d1
add.w d1,d1
move.w (a3,d1.w),d1
move.w d0,d2
lsr.w #3,d0
add.w d0,d1
not.w d2
bchg.b d2,(a4,d1.w)
bchg.b d2,FW_PLANEWIDTH(a4,d1.w)
dbra d7,.part1
; Move old coordinates in the buffer
; ----------------------------------
lea fw_part_coords+FW_NUMBER_OF_PARTICLES*2*2*4,a0
lea fw_part_coords+FW_NUMBER_OF_PARTICLES*2*3*4,a1
move.w #2*FW_NUMBER_OF_PARTICLES-1,d7
.parto: move.l -(a0),-(a1)
move.l -(a0),-(a1)
dbra d7,.parto
waitb
move.b #1,render
rts
fancywriter_vbi:
movem.l a1-a2/d1-d2/d7,-(sp)
move.l sc_position,d0
subq #1,d0
and.w #127,d0
cmp.w #3,d0
bcs.s .fade
cmp.w #120,d0
bcs.w .npal
.fade: mulu #6,d0
addq #6,d0
sub.w tp_wait,d0
cmp.w #16,d0
bhi.s .fdout
lsl.w #4,d0
; Fade palette in
; ---------------
lea fw_palette,a0
lea table_fade,a1
add.w d0,a1
lea fw_cl_palette+2,a2
moveq #8-1,d7
.fdpl1: move.w #$fff,d0
sub.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w #$fff,d1
sub.w d0,d1
move.w d1,(a2)
addq #4,a2
dbra d7,.fdpl1
bra.s .npal
.fdout: move.w #123*6-1,d1
.doit: sub.w d0,d1
bmi.s .npal
cmp.w #16,d1
bhi.s .npal
lsl.w #4,d1
; Fade palette out
; ----------------
lea fw_palette,a0
lea table_fade,a1
add.w d1,a1
lea fw_cl_palette+2,a2
moveq #8-1,d7
.fdpl2: move.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w d0,(a2)
addq #4,a2
dbra d7,.fdpl2
.npal: tst.b fw_direction
bne.s .out
tst.w fw_mult
bne.s .in
add.w #1,fw_wait
cmp.w #260,fw_wait
bcs.s .mulok
clr.w fw_wait
move.b #1,fw_direction
bra.s .out
.in: sub.w #2*256,fw_mult
cmp.w #128*256,fw_mult
bne.s .mulok
tst.w fw_asl
beq.s .mulok
sub.w #1,fw_asl
move.w #254*256,fw_mult
bra.s .mulok
.out: add.w #2*256,fw_mult
bne.s .mulok
move.w #128*256,fw_mult
add.w #1,fw_asl
cmp.w #3,fw_asl
bcs.s .mulok
clr.w fw_mult
clr.w fw_asl
.mulok: add.w #16,fw_sinus
add.w #134,fw_random
and.w #2046,fw_sinus
and.w #2046,fw_random
tst.b render
beq.s .vbiok
; Set the bitplanes
; -----------------
move.l #fw_planes,d0
add.l fw_planes_add,d0
move.l d0,d1
add.l #FW_PLANEWIDTH,d0
move.w d0,fw_cl_bpl1ptl
move.w d1,fw_cl_bpl2ptl
swap d0
swap d1
move.w d0,fw_cl_bpl1pth
move.w d1,fw_cl_bpl2pth
move.l #fw_planes+FW_PLANES*FW_PLANESIZE,d0
add.l fw_planes_add,d0
move.w d0,fw_cl_bpl3ptl
swap d0
move.w d0,fw_cl_bpl3pth
; Double buffering
; ----------------
eor.l #FW_PLANESIZE,fw_planes_add
clr.b render
.vbiok: movem.l (sp)+,a1-a2/d1-d2/d7
rts
; Horizon
; -------
horizon:
; Clear memory
; ------------
lea ho_cl,a0
move.l #ho_requirements_chipmem,d7
bsr clearmemory
lea ho_planes_add,a0
move.l #ho_requirements_fastmem,d7
bsr clearmemory
; Copy copperlist
; ---------------
lea ho_ct,a0
lea ho_cl,a1
move.w #(ho_ct_data2-ho_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
move.w #(64+56)/2-1,d7
.cp1: clr.l (a1)+
dbra d7,.cp1
move.w #(ho_ct_data-ho_ct_data2)/4-1,d7
.cp2: move.l (a0)+,(a1)+
dbra d7,.cp2
move.w #(64+56)/2-1,d7
.cp3: clr.l (a1)+
dbra d7,.cp3
; Screen setup
; ------------
move.l #ho_plane_empty,d0
lea ho_cl_bpl1pth,a0
moveq #HO_HORIZON_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
dbra d7,.setplanesloop
move.l #ho_planes+(HO_PLANES-1)*HO_PLANESIZE,d0
move.w d0,4(a0)
swap d0
move.w d0,(a0)
; Create multiply table
; ---------------------
moveq #0,d0
lea ho_mulu_planewidth,a0
move.l #HO_PLANES*HO_PLANEHEIGHT-1,d7
.mulu: move.w d0,(a0)+
add.w #HO_PLANEWIDTH,d0
dbra d7,.mulu
; Create ordered table
; --------------------
lea table_order,a0
lea ho_order,a1
moveq #0,d1
moveq #16-1,d7
.ord1: moveq #0,d3
moveq #16-1,d6
.ord2: move.b (a0)+,d1
move.w d7,d2
addq #1,d2
lsl.w #4,d2
sub.w d1,d2
addx.w d3,d3
dbra d6,.ord2
move.w d3,(a1)+
dbra d7,.ord1
; Initialize horizon Z positions
; ------------------------------
lea horizon_end-HO_TABLE_SIZE,a0
move.w #88,d0
moveq #(horizon_end-horizon_table)/HO_TABLE_SIZE-1,d7
.initz: move.w d0,HO_TABLE_Z(a0)
lea -HO_TABLE_SIZE(a0),a0
add.w #56,d0
dbra d7,.initz
; Find maximum Y value of each horizon
; ------------------------------------
lea horizon_table,a0
.ho_find_maxy_loop:
move.l (a0)+,a2
moveq #0,d0
.ho_find_maxy:
cmp.w 2(a2),d0
bhi.s .ho_not_max
move.w 2(a2),d0
.ho_not_max:
addq #4,a2
cmp.l #-1,(a2)
bne.s .ho_find_maxy
; Write to horizon table (as the height value)
; --------------------------------------------
move.w d0,(a0)+
addq #6,a0
cmp.l #horizon_end,a0
bcs.s .ho_find_maxy_loop
; Set up copperlist jump addresses
; --------------------------------
move.l #ho_cl_data1,d0
move.w d0,ho_cl_cop2lcl
swap d0
move.w d0,ho_cl_cop2lch
; Create fully filled bitplane
; ----------------------------
lea ho_plane_full,a0
move.l #HO_PLANEHEIGHT-1,d7
.full: move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
move.l #-1,(a0)+
dbra d7,.full
; Create gradient helper bitplane
; -------------------------------
lea ho_planes+(HO_PLANES-1)*HO_PLANESIZE,a0
move.l #HO_PLANEHEIGHT/16-1,d7
.grad1: lea ho_order,a1
moveq #16-1,d6
.grad2: moveq #HO_PLANEWIDTH/2-1,d5
.grad3: move.w (a1),(a0)+
dbra d5,.grad3
addq #2,a1
dbra d6,.grad2
dbra d7,.grad1
move.l #$46000,ho_speed
move.w ho_gradient,ho_cl_palette+2
move.l #horizon_table+((horizon_end-horizon_table)-HO_HORIZON_PLANES*HO_TABLE_SIZE),ho_table
rts
horizon_go:
move.l #horizon_main,part_main
move.l #horizon_vbi,part_vbi
rts
horizon_main:
; Clear bitplanes
; ---------------
lea custom,a6
move.l #ho_planes,d0
add.l ho_planes_add,d0
; Clear (ho_clear/2) & $fff0 rows using the CPU and the rest using blt
; --------------------------------------------------------------------
move.w ho_clear+2,d1
move.w d1,d6
move.w d1,d7
lsr.w d7
and.w #$fff0,d7
sub.w d7,d1
lsl.w #6,d1
or.w #HO_PLANEWIDTH/2,d1
moveq #0,d2
waitb
move.w #DEST,bltcon0(a6)
move.l #-1,bltafwm(a6)
move.w d2,bltdmod(a6)
move.w d2,bltcon1(a6)
move.l d0,bltdpth(a6)
move.w d1,bltsize(a6)
; Clear rest of the bitplanes using the CPU
; -----------------------------------------
move.l d0,a0
mulu #HO_PLANEWIDTH,d6
add.l d6,a0
moveq #0,d0
moveq #0,d1
moveq #0,d2
moveq #0,d3
moveq #0,d4
moveq #0,d5
moveq #0,d6
sub.l a1,a1
sub.l a2,a2
sub.l a3,a3
lsr.w #4,d7
subq #1,d7
bmi .noclr
.clr: movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
movem.l d0-d6/a1-a3,-(a0)
dbra d7,.clr
.noclr: ; Calculate zoom values
; ---------------------
move.w ho_frames,d1
clr.w ho_frames
lea horizon_table,a0
.zoom_loop:
sub.w d1,HO_TABLE_Z(a0)
cmp.w #31,HO_TABLE_Z(a0)
bhi.s .zoom_ok
move.w #88+((horizon_end-horizon_table)/HO_TABLE_SIZE-1)*56,HO_TABLE_Z(a0)
sub.l #HO_TABLE_SIZE,ho_table
cmp.l #horizon_table,ho_table
bge.s .zoom_ok
move.l #horizon_end-HO_TABLE_SIZE,ho_table
.zoom_ok:
move.l #256*HO_PLANEWIDTH*8,d0
divu HO_TABLE_Z(a0),d0
move.w d0,HO_TABLE_ZOOM(a0)
add.l #HO_TABLE_SIZE,a0
cmp.l #horizon_end,a0
bcs.s .zoom_loop
; Fade horizon colors
; -------------------
move.l ho_table,a0
lea ho_colors,a1
lea ho_cl_data1+2,a2
add.l ho_cl_data_add,a2
cmp.w #228,HO_TABLE_Z(a0)
bcc.s .setc
addq #2,a1
.setc: move.w (a1),d0
move.w 4(a1),d1
move.w 8(a1),d2
move.w 12(a1),d3
move.w d0,(a2)
move.w d0,60(a2)
move.w d1,4(a2)
move.w d1,8(a2)
move.w d1,64(a2)
move.w d1,68(a2)
move.w d2,12(a2)
move.w d2,16(a2)
move.w d2,20(a2)
move.w d2,24(a2)
move.w d2,72(a2)
move.w d2,76(a2)
move.w d2,80(a2)
move.w d2,84(a2)
move.w d3,28(a2)
move.w d3,32(a2)
move.w d3,36(a2)
move.w d3,40(a2)
move.w d3,44(a2)
move.w d3,48(a2)
move.w d3,52(a2)
move.w d3,56(a2)
move.w d3,88(a2)
move.w d3,92(a2)
move.w d3,96(a2)
move.w d3,100(a2)
move.w d3,104(a2)
move.w d3,108(a2)
move.w d3,112(a2)
move.w d3,116(a2)
; Prepare blitter for vertical filling
; ------------------------------------
lea custom,a6
moveq #0,d0
waitb
move.w #SRCA|SRCB|DEST|ABC|ABNC|ANBC|ANBNC|NABC|NABNC,bltcon0(a6)
move.l d0,bltamod(a6)
move.l d0,bltcmod(a6)
move.w d0,bltcon1(a6)
; Render each horizon
; -------------------
clr.w ho_pass
lea ho_mulu_planewidth,a1
move.l ho_table,a4
lea ho_height,a5
clr.l 8(a5)
clr.l 12(a5)
.horiz: clr.w (a5)
move.l (a4)+,a6
; Calculate Y coordinate substract (maxy-PLANEHEIGHT)/2
; -----------------------------------------------------
move.w (a4),d2
mulu 4(a4),d2
lsr.l #8,d2
sub.w #HO_PLANEHEIGHT,d2
bpl.s .subd2
moveq #0,d2
bra.s .subok
.subd2: lsr.w d2
.subok: move.w d2,HO_SUBSTRACT(a1)
; Calculate first coordinate pair into the stack
; ----------------------------------------------
move.w (a6)+,d0
move.w (a6)+,d1
move.w 4(a4),d4
muls d4,d0
muls d4,d1
asr.l #8,d0
asr.l #8,d1
add.w #HO_PLANEWIDTH*8/2,d0
sub.w d2,d1
; Reset minx and maxx values for this horizon
; -------------------------------------------
move.w #HO_PLANEWIDTH*8-1,HO_MINXX(a1)
clr.w HO_MAXXX(a1)
move.w d1,-(sp)
move.w d0,-(sp)
.loop: lea ho_planes,a0
add.l ho_planes_add,a0
moveq #0,d0
move.w 8(a5),d0
add.l d0,a0
; Use previous coordinate pair values from the stack
; --------------------------------------------------
move.w (sp)+,d0
move.w (sp)+,d1
move.w (a6)+,d2
move.w (a6)+,d3
move.w 4(a4),d4
muls d4,d2
muls d4,d3
asr.l #8,d2
asr.l #8,d3
add.w #HO_PLANEWIDTH*8/2,d2
sub.w HO_SUBSTRACT(a1),d3
move.w d3,-(sp)
move.w d2,-(sp)
bsr VerticalFillLine
; Check if current height (after clipping) has changed
; ----------------------------------------------------
cmp.w (a5),a3
blt.s .nmaxy
move.w a3,(a5)
.nmaxy: cmp.l #-1,(a6)
bne.s .loop
; If the leftmost X coordinate was not 0 draw line from it to 0
; -------------------------------------------------------------
move.w HO_MINXX(a1),d2
beq.s .nminl
; If no lines were drawn don't draw any lines now either
; ------------------------------------------------------
cmp.w #HO_PLANEWIDTH*8-1,d2
beq.s .nminl
move.w HO_MINXY(a1),d3
; Only draw the line if it's missing from the top of the screen
; -------------------------------------------------------------
bne.s .nminl
moveq #0,d0
move.w d3,d1
bsr VerticalFillLineNoClip
.nminl: ; If the rightmost X coordinate was not 351 draw line from it to 351
; ------------------------------------------------------------------
move.w HO_MAXXX(a1),d0
; If no lines were drawn don't draw any lines now either
; ------------------------------------------------------
beq.s .nmaxl
cmp.w #HO_PLANEWIDTH*8-1,d0
beq.s .nmaxl
move.w HO_MAXXY(a1),d1
; Only draw the line if it's missing from the top of the screen
; -------------------------------------------------------------
bne.s .nmaxl
move.w #HO_PLANEWIDTH*8-1,d2
move.w d1,d3
bsr VerticalFillLineNoClip
.nmaxl:
; Restore stack
; -------------
addq #4,sp
; Calculate plane offsets
; -----------------------
add.w #1,(a5)
moveq #0,d0
move.w (a5)+,d0
add.w d0,d0
move.w (a1,d0.w),d0
add.w 6(a5),d0
move.w d0,8(a5)
move.w 6(a5),d0
; Fill the current horizon
; ------------------------
add.l #ho_planes,d0
add.l ho_planes_add,d0
move.l d0,d1
add.l #HO_PLANEWIDTH,d1
.waitb: btst #14,dmaconr+custom
bne.s .waitb
move.l #-1,bltafwm+custom
move.l d1,bltapth+custom
move.l d0,bltbpth+custom
move.l d1,bltdpth+custom
move.w -2(a5),d0
subq #1,d0
beq.s .nblit
lsl.w #6,d0
or.w #HO_PLANEWIDTH/2,d0
move.w d0,bltsize+custom
.nblit: ; Render all horizons
; -------------------
add.w #1,ho_pass
cmp.w #HO_HORIZON_PLANES,ho_pass
beq.s .passd
addq #8,a4
cmp.l #horizon_end,a4
bcs.w .horiz
lea horizon_table,a4
bra.w .horiz
.passd: ; Calculate total height to be cleared
; ------------------------------------
move.w ho_clear,ho_clear+2
clr.w ho_clear
lea ho_height,a0
moveq #HO_HORIZON_PLANES-1,d7
.cumul: move.w (a0)+,d0
add.w d0,ho_clear
dbra d7,.cumul
; Calculate bitplane y positions
; ------------------------------
move.l ho_table,a0
lea ho_height,a1
lea ho_copper,a2
moveq #0,d2
moveq #4,d3
moveq #HO_HORIZON_PLANES-1,d7
.calcy: move.w 4(a0),d0
mulu 8(a0),d0
lsr.l #8,d0
lsr.w d0
move.w #HO_PLANEHEIGHT/2,d1
sub.w d0,d1
bpl.s .pyok
moveq #0,d1
.pyok: ; If the height of the horizon is 0 only sky is to be drawn
; ---------------------------------------------------------
move.w (a1)+,d0
subq #1,d0
bne.s .heiok
move.w #HO_PLANEHEIGHT-1,d1
.heiok: move.w d1,(a2)+
move.w d2,(a2)+
add.w d0,d1
move.w d1,(a2)+
move.w d3,(a2)+
addq #1,d2
addq #1,d3
add.l #12,a0
cmp.l #horizon_end,a0
bcs.s .hotok
lea horizon_table,a0
.hotok: dbra d7,.calcy
; Sort Y positions
; ----------------
lea ho_copper,a0
moveq #8,d0
move.l #HO_PLANEHEIGHT,d1
bsr StraightRadixSort
; Check for duplicates
; --------------------
lea ho_copper,a1
moveq #7-1,d7
.dupe1: move.l a1,a0
move.w (a0),d0
.dupe2: addq #4,a0
cmp.l #ho_copper+32,a0
beq.s .dupe3
cmp.w (a0),d0
bne.s .dupe2
add.w #1,(a0)
bra.s .dupe2
.dupe3: addq #4,a1
dbra d7,.dupe1
; Create copperlist
; -----------------
lea ho_cl_data1+120,a0
add.l ho_cl_data_add,a0
lea ho_mulu_planewidth,a1
lea ho_copper,a2
lea ho_height+8,a3
move.l #ho_planes,a4
add.l ho_planes_add,a4
lea ho_gradient,a5
moveq #0,d3
move.w (a5)+,d4
moveq #0,d6
sub.l a6,a6
moveq #HO_HORIZON_PLANES*2-1,d7
.cop: move.w (a2)+,d1
move.w (a2)+,d2
; Draw gradient if it has not been drawn yet
; ------------------------------------------
.bg: cmp.w #9*HO_GRADIENT_HEIGHT,d3
bhi.s .nobg
; Set bitplane values if they should be set
; -----------------------------------------
cmp.w d3,d1
ble.s .nobg
move.w d3,d5
; Add first Y position (this should match cl_diwstrt)
; ---------------------------------------------------
add.w #$28,d5
lsl.w #8,d5
or.w #1,d5
; If the line has already been waited for don't wait again
; --------------------------------------------------------
cmp.l d5,a6
beq.s .nwait
move.w d5,(a0)+
move.w #$fffe,(a0)+
.nwait: move.w #$180,(a0)+
move.w d4,(a0)+
add.w #HO_GRADIENT_HEIGHT,d3
move.w (a5)+,d4
move.w #$1a0,(a0)+
move.w d4,(a0)+
bra.s .bg
.nobg: ; Add first Y position (this should match cl_diwstrt)
; ---------------------------------------------------
add.w #$28,d1
; End copperlist if bottom reached
; --------------------------------
cmp.w #$12f,d1
bhi.s .copdn
cmp.w #$100,d1
bcs.s .copyo
sub.w #$100,d1
tst.w d6
bne.s .copyo
move.l #$ffe1fffe,(a0)+
moveq #1,d6
.copyo: lsl.w #8,d1
or.w #1,d1
move.w d1,(a0)+
move.w #$fffe,(a0)+
move.l d1,a6
cmp.w #3,d2
bhi.s .full
moveq #0,d0
add.w d2,d2
move.w (a3,d2.w),d0
add.l a4,d0
add.w d2,d2
add.w #bpl1ptl,d2
move.w d2,(a0)+
move.w d0,(a0)+
swap d0
subq #2,d2
move.w d2,(a0)+
move.w d0,(a0)+
dbra d7,.cop
bra.s .copdn
.full: sub.w #4,d2
add.w d2,d2
add.w d2,d2
add.w #bpl1ptl,d2
move.l #ho_plane_full,d0
move.w d2,(a0)+
move.w d0,(a0)+
swap d0
subq #2,d2
move.w d2,(a0)+
move.w d0,(a0)+
dbra d7,.cop
.copdn: move.l #$fffffffe,(a0)+
move.b #1,render
rts
; a0: array to sort
; d0: array size in long words
; d1: maximum value in array
StraightRadixSort:
move.l a0,a4
move.l d0,d6
move.l d1,d5
move.l d0,d4
add.l d4,d4
add.l d4,d4
subq #1,d5
subq #1,d6
lea ho_rs_tempbuffer,a5
lea ho_rs_distcount,a6
; Clear distribution count
; ------------------------
move.l a6,a0
move.w d5,d7
.clear: clr.b (a0)+
dbra d7,.clear
; Calculate distribution
; ----------------------
moveq #0,d0
move.l a6,a0
move.l a4,a1
move.w d6,d7
.dist: move.w (a1),d0
add.b #1,(a0,d0.w)
addq #4,a1
dbra d7,.dist
; Calculate cumulative distribution
; ---------------------------------
move.l a6,a0
move.w d5,d7
subq #1,d7
.cumul: move.b (a0)+,d0
add.b d0,(a0)
dbra d7,.cumul
moveq #0,d0
move.l a6,a0
move.l a4,a1
add.l d4,a1
move.l a5,a2
move.l a1,a3
moveq #0,d1
move.w d6,d7
.spred: subq #4,a3
move.w (a3),d0
move.b (a0,d0.w),d1
subq #1,d1
move.b d1,(a0,d0.w)
add.w d1,d1
add.w d1,d1
move.l -(a1),(a2,d1.w)
dbra d7,.spred
move.l a5,a0
move.l a4,a1
move.w d6,d7
.copy: move.l (a0)+,(a1)+
dbra d7,.copy
rts
; Draws a line, one pixel per x position
; --------------------------------------
; a0: bitplanes
; d0: x1
; d1: y1
; d2: x2
; d3: y2
; uses d0-d7/a0-a3
VerticalFillLine:
; Clipping test
; -------------
sub.l a2,a2
sub.l a3,a3
.loop: moveq #0,d4 ; code1
moveq #0,d5 ; code2
tst.w d0
bpl.s .x1lok
or.w #CLIP_LEFT_EDGE,d4
.x1lok: cmp.w #HO_PLANEWIDTH*8,d0
blt.s .x1rok
or.w #CLIP_RIGHT_EDGE,d4
.x1rok: tst.w d1
bpl.s .y1lok
or.w #CLIP_TOP_EDGE,d4
.y1lok: cmp.w #HO_PLANEHEIGHT,d1
blt.s .y1rok
or.w #CLIP_BOTTOM_EDGE,d4
.y1rok: tst.w d2
bpl.s .x2lok
or.w #CLIP_LEFT_EDGE,d5
.x2lok: cmp.w #HO_PLANEWIDTH*8,d2
blt.s .x2rok
or.w #CLIP_RIGHT_EDGE,d5
.x2rok: tst.w d3
bpl.s .y2lok
or.w #CLIP_TOP_EDGE,d5
.y2lok: cmp.w #HO_PLANEHEIGHT,d3
blt.s .y2rok
or.w #CLIP_BOTTOM_EDGE,d5
.y2rok: move.w d4,d6
or.w d5,d6
beq.w .line
move.w d4,d6
and.w d5,d6
beq.s .ok
sub.l a3,a3
rts
.ok: cmp.l #0,a2
bne.s .m2
move.w d3,d6 ; m1=(y2-y1)/(x2-x1)
sub.w d1,d6
ext.l d6
asl.l #5,d6
move.w d2,d7
sub.w d0,d7
beq.s .m1
add.l #$3f,d6
divs d7,d6
ext.l d6
move.l d6,a2
.m1: move.w d2,d6 ; m2=(x2-x1)/(y2-y1)
sub.w d0,d6
ext.l d6
asl.l #5,d6
move.w d3,d7
sub.w d1,d7
beq.s .m2
add.l #$3f,d6
divs d7,d6
ext.l d6
move.l d6,a3
.m2: tst.w d4
bne.s .clip
exg d0,d2
exg d1,d3
exg d4,d5
.clip: btst #0,d4
beq.s .nleft
move.l a2,d6
muls d6,d0
asr.l #6,d0
sub.l d0,d1
moveq #0,d0
bra.w .loop
.nleft: btst #1,d4
beq.s .nrite
sub.l #HO_PLANEWIDTH*8-1,d0
move.l a2,d6
muls d6,d0
asr.l #6,d0
sub.l d0,d1
move.l #HO_PLANEWIDTH*8-1,d0
bra.w .loop
.nrite: btst #2,d4
beq.s .ntop
cmp.w d0,d2
beq.s .y1
move.l a3,d6
muls d6,d1
asr.l #6,d1
sub.l d1,d0
.y1: moveq #0,d1
bra.w .loop
.ntop: btst #3,d4
beq.w .loop
cmp.w d0,d2
beq.s .y2
sub.l #HO_PLANEHEIGHT-1,d1
move.l a3,d6
muls d6,d1
asr.l #6,d1
sub.l d1,d0
.y2: move.l #HO_PLANEHEIGHT-1,d1
bra.w .loop
.line: ; Check if the coordinates are the leftmost or rightmost
; ------------------------------------------------------
cmp.w HO_MINXX(a1),d0
bcc.s .nmix1
move.w d0,HO_MINXX(a1)
move.w d1,HO_MINXY(a1)
.nmix1: cmp.w HO_MINXX(a1),d2
bcc.s .nmix2
move.w d2,HO_MINXX(a1)
move.w d3,HO_MINXY(a1)
.nmix2: cmp.w HO_MAXXX(a1),d0
bls.s .nmax1
move.w d0,HO_MAXXX(a1)
move.w d1,HO_MAXXY(a1)
.nmax1: cmp.w HO_MAXXX(a1),d2
bls.s .nmax2
move.w d2,HO_MAXXX(a1)
move.w d3,HO_MAXXY(a1)
.nmax2: ; Return clipped maximum y in a3
; ------------------------------
move.l d1,a3
cmp.w d1,d3
blt.s .draw
move.l d3,a3
.draw:
VerticalFillLineNoClip:
; Draw the line
; -------------
move.l #1,a2
cmp.w d0,d2
bge.s .noexg
exg d0,d2
exg d1,d3
.noexg: move.w d2,d4 ; dx
sub.w d0,d4
move.w d3,d5 ; dy
sub.w d1,d5
bpl.s .dyok
neg.w d5
move.l #-1,a2
.dyok: cmp.w d4,d5
bgt.s .yline
; dx>=dy
; ------
add.w d5,d5 ; 2dy
move.w d5,d6 ; p
sub.w d4,d6
add.w d4,d4 ; 2dx
neg.w d4 ; 2dy-2dx
add.w d5,d4
move.w d0,d3
move.w d0,d7
not.w d7
and.w #7,d7
lsr.w #3,d3
add.w d3,a0
move.w d1,d3
add.w d3,d3
move.w (a1,d3.w),d3
bset.b d7,(a0,d3.w)
; If x1==x2 and y1==y2 don't go to loop
; -------------------------------------
cmp.w d0,d2
bne.s .xloop
tst.w d5
beq.s .done
.xloop: addq #1,d0
subq #1,d7
bpl.s .nxadd
and.l #7,d7
addq #1,a0
.nxadd: tst.w d6
bpl.s .xpos
add.w d5,d6
bra.s .xplot
.xpos: add.w a2,d1
add.w d4,d6
.xplot: move.w d1,d3
add.w d3,d3
move.w (a1,d3.w),d3
bset.b d7,(a0,d3.w)
cmp.w d2,d0
bne.s .xloop
.done: rts
.yline: ; dy>dx
; -----
exg d4,d5
add.w d5,d5 ; 2dx
move.w d5,d6 ; p
sub.w d4,d6
add.w d4,d4 ; 2dy
neg.w d4 ; 2dx-2dy
add.w d5,d4
move.w d0,d2
move.w d0,d7
not.w d7
and.w #7,d7
lsr.w #3,d2
add.w d2,a0
.yloop: tst.w d6
bpl.s .ypos
add.w a2,d1
add.w d5,d6
cmp.w d3,d1
bne.s .yloop
rts
.ypos: move.w d1,d2
add.w d2,d2
move.w (a1,d2.w),d2
bset.b d7,(a0,d2.w)
add.w a2,d1
addq #1,d0
subq #1,d7
bpl.s .nyadd
and.l #7,d7
addq #1,a0
.nyadd: add.w d4,d6
cmp.w d3,d1
bne.s .yloop
rts
horizon_vbi:
sub.l a0,a0
move.l sc_position,d0
subq #1,d0
and.w #127,d0
cmp.w #64,d0
bcs.s .down
cmp.w #104,d0
bcs.s .up
move.l #$1400,a0
bra.s .spdok
.up: move.l #$380,a0
bra.s .spdok
.down: move.l #-$300,a0
.spdok: move.l ho_speed,d0
add.l d0,ho_frames
add.l a0,d0
move.l d0,ho_speed
tst.b render
beq.s .vbiok
; Use the correct copperlist
; --------------------------
move.l #ho_cl,cop1lch+custom
move.w #%0000000000000001+$1000*HO_PLANES,ho_cl_bplcon0+2
move.l #ho_cl_data1,d0
add.l ho_cl_data_add,d0
move.w d0,ho_cl_cop2lcl
swap d0
move.w d0,ho_cl_cop2lch
; Double buffering
; ----------------
eor.l #HO_PLANES*HO_PLANESIZE,ho_planes_add
eor.l #ho_cl_data2-ho_cl_data1,ho_cl_data_add
clr.b render
.vbiok: rts
insaneplasma:
; Clear memory
; ------------
lea ip_cl,a0
move.l #ip_requirements_chipmem,d7
bsr clearmemory
lea ip_copperadd,a0
move.l #ip_requirements_fastmem,d7
bsr clearmemory
; Copy copperlist
; ---------------
lea ip_ct,a0
lea ip_cl,a1
move.w #(ip_ct_data1-ip_ct)/4-1,d7
.cpl1: move.l (a0)+,(a1)+
dbra d7,.cpl1
move.w #(ip_cl_2-ip_cl_data1)/4-1,d7
.cpl2: clr.l (a1)+
dbra d7,.cpl2
move.w #(ip_ct_data2-ip_ct_2)/4-1,d7
.cpl3: move.l (a0)+,(a1)+
dbra d7,.cpl3
move.w #(ip_planes-ip_cl_data2)/4-1,d7
.cpl4: clr.l (a1)+
dbra d7,.cpl4
; Screen setup
; ------------
move.l #ip_planedata,d0
move.l d0,d1
add.l #4*IP_PLANEWIDTH,d1
lea ip_cl_bpl1pth1,a0
lea ip_cl_bpl1pth2,a1
moveq #4-1,d7
.setplanesloop1:
move.w d0,4(a0)
move.w d1,4(a1)
swap d0
swap d1
move.w d0,(a0)
move.w d1,(a1)
swap d0
swap d1
addq #8,a0
addq #8,a1
add.l #IP_PLANEWIDTH,d0
add.l #IP_PLANEWIDTH,d1
dbra d7,.setplanesloop1
move.l #ip_planes,d0
lea ip_cl_bpl2pth,a0
moveq #2-1,d7
.setplanesloop2:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #IP_PLANESIZE,d0
dbra d7,.setplanesloop2
; Create copperlist
; -----------------
lea ip_cl_data1,a0
lea ip_cl_data2,a1
move.l #$3401,d0
move.l #ip_planedata+3*IP_PLANEWIDTH,d1
move.l d1,d2
add.l #4*IP_PLANEWIDTH,d2
move.l #ip_copperdata,d3
move.l #ip_cl,d4
move.l #IP_PLANEHEIGHT-1,d7
.loop: ; Extra copper wait at $ffc1
; --------------------------
cmp.w #$0001,d0
bne.s .d0ok
move.l #$ffd1fffe,(a0)+
move.l #$ffd1fffe,(a1)+
.d0ok: ; Copper wait
; -----------
move.w d0,(a0)+
move.w d0,(a1)+
move.w #$fffe,(a0)+
move.w #$fffe,(a1)+
; Reset bitplane 6 address
; ------------------------
move.w #bpl6ptl,(a0)+
move.w #bpl6ptl,(a1)+
move.w d1,(a0)+
move.w d2,(a1)+
move.w #bpl6pth,(a0)+
move.w #bpl6pth,(a1)+
swap d1
swap d2
move.w d1,(a0)+
move.w d2,(a1)+
swap d1
swap d2
; Set copper jump address
; -----------------------
move.w #cop2lcl,(a0)+
move.w #cop2lcl,(a1)+
move.w d3,(a0)+
move.w d3,(a1)+
move.w #cop2lch,(a0)+
move.w #cop2lch,(a1)+
swap d3
move.w d3,(a0)+
move.w d3,(a1)+
swap d3
; Set copper return address
; -------------------------
move.l a0,d5
move.l a1,d6
add.l #12,d5
add.l #12,d6
move.w #cop1lcl,(a0)+
move.w #cop1lcl,(a1)+
move.w d5,(a0)+
move.w d6,(a1)+
move.w #cop1lch,(a0)+
move.w #cop1lch,(a1)+
swap d5
swap d6
move.w d5,(a0)+
move.w d6,(a1)+
move.w #copjmp2,(a0)+
move.w #copjmp2,(a1)+
clr.w (a0)+
clr.w (a1)+
add.w #$100,d0
dbra d7,.loop
move.w #bplcon0,(a0)+
move.w #bplcon0,(a1)+
move.w #1,(a0)+
move.w #1,(a1)+
move.w #cop1lcl,(a0)+
move.w #cop1lcl,(a1)+
move.w d4,(a0)+
move.w d4,(a1)+
move.w #cop1lch,(a0)+
move.w #cop1lch,(a1)+
swap d4
move.w d4,(a0)+
move.w d4,(a1)+
swap d4
move.l #$fffffffe,(a0)+
move.l #$fffffffe,(a1)+
lea table_fade+16,a0
lea ip_copperdata,a3
moveq #16-1,d6
.cpdt2: sub.l a4,a4
moveq #16-1,d7
.cpdt1: lea ip_palette1,a1
lea ip_palette2,a2
move.w a4,d4
mulu d6,d4
lsr.w #4,d4
move.w d4,a5
move.w #15,d5
sub.w d6,d5
move.w a4,d4
mulu d5,d4
lsr.w #4,d4
move.w d4,a6
; Colors for bitplanes 1,3,5 while 2,4==0
; ---------------------------------------
move.w #$180,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$182,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$188,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$18a,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1a0,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1a2,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1a8,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1aa,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
; Colors for bitplanes 1,3,5 while 2==1, 4==0
; -------------------------------------------
move.w #$184,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$186,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$18c,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$18e,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1a4,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1a6,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1ac,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1ae,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
; Colors for bitplanes 1,3,5 while 2==0, 4==1
; -------------------------------------------
move.w #$190,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$192,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$198,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$19a,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1b0,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1b2,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1b8,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
move.w #$1ba,(a3)+
move.w a5,d3
move.w (a1)+,d0
bsr multiplycolor
move.w d0,d4
move.w a6,d3
move.w (a2)+,d0
bsr multiplycolor
add.w d4,d0
move.w d0,(a3)+
; Jump back to the original copperlist
; ------------------------------------
move.w #copjmp1,(a3)+
clr.w (a3)+
addq #1,a4
dbra d7,.cpdt1
dbra d6,.cpdt2
; Create copperlist pointers
; --------------------------
lea ip_copperdata,a0
lea ip_copperptr,a1
move.l #16*16-1,d7
.cpptr: move.l a0,(a1)+
lea 25*2*2(a0),a0
dbra d7,.cpptr
; TODO Create bitmap
; ------------------
lea ip_image,a0
lea ip_planes,a1
move.l #IP_PLANES*IP_PLANEHEIGHT-1,d7
.image: move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
dbra d7,.image
; Set copperlist
; --------------
move.l #ip_cl_1,d0
move.w d0,ip_cl_cop1lcl
swap d0
move.w d0,ip_cl_cop1lch
lea sinus,a0
lea ip_sinus,a1
move.w #1024-1,d7
.sinus: move.w (a0)+,d0
add.w #$8000,d0
lsr.w #8,d0
lsr.w #3,d0
move.w d0,(a1)+
dbra d7,.sinus
move.w #$0544,ip_xsinus11
move.w #$018c,ip_xsinus12
move.w #$04dc,ip_xsinus21
move.w #$06e2,ip_xsinus22
move.w #$0624,ip_ysinus11
move.w #$0676,ip_ysinus12
move.w #$0170,ip_ysinus21
move.w #$039e,ip_ysinus22
move.b #1,ip_set
rts
insaneplasma_go:
move.l #ip_cl,cop1lch+custom
move.l #insaneplasma_main,part_main
move.l #insaneplasma_vbi,part_vbi
rts
insaneplasma_main:
; X loop: create a row of funky chunky
; ------------------------------------
lea ip_sinus,a0
lea ip_chunky,a1
move.w #2,a2
move.w #IP_PLANEWIDTH*8,a3
move.w ip_xsinus11,d0
move.w ip_xsinus21,d1
move.w (a0,d0.w),d0
move.w (a0,d1.w),d1
lsl.w #4,d0
lsl.w #4,d1
add.w ip_xsinus12,d0
add.w ip_xsinus22,d1
sub.w a3,d0
sub.w a3,d1
move.w #2046,d2
move.w #IP_PLANEWIDTH-1,d7
.xloop: rept 8
and.w d2,d0
and.w d2,d1
move.w (a0,d0.w),d6
add.w (a0,d1.w),d6
lsr.w #2,d6
move.b d6,(a1)+
add.w a2,d0
add.w a2,d1
endr
dbra d7,.xloop
; Y loop: set copper jump addresses
; ---------------------------------
move.w #2,a3
move.w #IP_PLANEHEIGHT,a4
lea ip_cl_data1,a1
add.l ip_copperadd,a1
lea ip_copperptr,a2
move.w ip_ysinus11,d0
move.w ip_ysinus21,d1
move.w (a0,d0.w),d0
move.w (a0,d1.w),d1
lsl.w #4,d0
lsl.w #4,d1
add.w ip_ysinus12,d0
add.w ip_ysinus22,d1
sub.w a4,d0
sub.w a4,d1
move.w #2046,d2
move.w #$3c,d3
move.l #IP_PLANEHEIGHT/16-1,d7
.yloop: moveq #16-1,d6
.iloop: and.w d2,d0
and.w d2,d1
cmp.w #$ffd1,(a1)
bne.w .nskip
addq #4,a1
.nskip: move.w (a0,d0.w),d5
add.w (a0,d1.w),d5
and.w d3,d5
move.l (a2,d5.w),d5
move.w d5,14(a1)
swap d5
move.w d5,18(a1)
add.w a3,d0
add.w a3,d1
lea 32(a1),a1
dbra d6,.iloop
lea 64(a2),a2
dbra d7,.yloop
moveq #8-1,d6
.rloop: and.w d2,d0
and.w d2,d1
move.w (a0,d0.w),d5
add.w (a0,d1.w),d5
and.w d3,d5
move.l (a2,d5.w),d5
move.w d5,14(a1)
swap d5
move.w d5,18(a1)
add.w a3,d0
add.w a3,d1
lea 32(a1),a1
dbra d6,.rloop
; Chunky to planar
; ----------------
lea ip_chunky,a0
lea ip_planedata,a1
add.l ip_planeadd,a1
move.l #$33333333,d5
move.l #$55555555,a5
move.l #$00ff00ff,a6
add.w #IP_PLANEWIDTH,a1
lea IP_PLANEWIDTH*8(a0),a2
move.l (a0)+,d0 ; Merge 4x1
lsl.l #4,d0
or.l (a0)+,d0
move.l (a0)+,d1
lsl.l #4,d1
or.l (a0)+,d1
move.l (a0)+,d2
lsl.l #4,d2
or.l (a0)+,d2
move.l (a0)+,d3
lsl.l #4,d3
or.l (a0)+,d3
move.w d2,d6 ; Swap 16x2
move.w d3,d4
move.w d0,d2
move.w d1,d3
swap d2
swap d3
move.w d2,d0
move.w d3,d1
move.w d6,d2
move.w d4,d3
move.l d2,d6 ; Swap 2x2
move.l d3,d7
lsr.l #2,d6
lsr.l #2,d7
eor.l d0,d6
eor.l d1,d7
and.l d5,d6
and.l d5,d7
eor.l d6,d0
eor.l d7,d1
lsl.l #2,d6
lsl.l #2,d7
eor.l d6,d2
eor.l d7,d3
move.l a6,d4 ; Swap 8x1
move.l d1,d6
move.l d3,d7
lsr.l #8,d6
lsr.l #8,d7
eor.l d0,d6
eor.l d2,d7
and.l d4,d6
and.l d4,d7
eor.l d6,d0
eor.l d7,d2
lsl.l #8,d6
lsl.l #8,d7
eor.l d6,d1
eor.l d7,d3
bra.s .start
.x: move.l (a0)+,d0 ; Merge 4x1
lsl.l #4,d0
or.l (a0)+,d0
move.l (a0)+,d1
lsl.l #4,d1
or.l (a0)+,d1
move.l (a0)+,d2
lsl.l #4,d2
or.l (a0)+,d2
move.l (a0)+,d3
lsl.l #4,d3
or.l (a0)+,d3
move.l d6,IP_PLANEWIDTH(a1)
move.w d2,d6 ; Swap 16x2
move.w d3,d4
move.w d0,d2
move.w d1,d3
swap d2
swap d3
move.w d2,d0
move.w d3,d1
move.w d6,d2
move.w d4,d3
move.l d7,-IP_PLANEWIDTH(a1)
move.l d2,d6 ; Swap 2x2
move.l d3,d7
lsr.l #2,d6
lsr.l #2,d7
eor.l d0,d6
eor.l d1,d7
and.l d5,d6
and.l d5,d7
eor.l d6,d0
eor.l d7,d1
lsl.l #2,d6
lsl.l #2,d7
eor.l d6,d2
eor.l d7,d3
move.l a3,IP_PLANEWIDTH*2(a1)
move.l a6,d4 ; Swap 8x1
move.l d1,d6
move.l d3,d7
lsr.l #8,d6
lsr.l #8,d7
eor.l d0,d6
eor.l d2,d7
and.l d4,d6
and.l d4,d7
eor.l d6,d0
eor.l d7,d2
lsl.l #8,d6
lsl.l #8,d7
eor.l d6,d1
eor.l d7,d3
move.l a4,(a1)+
.start: move.l a5,d4 ; Swap 1x1
move.l d1,d6
move.l d3,d7
lsr.l #1,d6
lsr.l #1,d7
eor.l d0,d6
eor.l d2,d7
and.l d4,d6
and.l d4,d7
eor.l d6,d0
eor.l d7,d2
add.l d6,d6
add.l d7,d7
eor.l d1,d6
eor.l d3,d7
not.l d0
move.l d0,a3
move.l d2,a4
cmpa.l a0,a2
bne .x
move.l d6,IP_PLANEWIDTH(a1)
move.l d7,-IP_PLANEWIDTH(a1)
move.l a3,IP_PLANEWIDTH*2(a1)
move.l a4,(a1)+
move.b #1,render
rts
insaneplasma_vbi:
move.l sc_position,d0
subq #1,d0
and.w #3,d0
bne.s .noset
tst.b ip_set
bne.s .setok
move.b #1,ip_set
add.w #442,ip_xsinus11
sub.w #558,ip_xsinus12
sub.w #632,ip_xsinus21
add.w #742,ip_xsinus22
sub.w #850,ip_ysinus11
add.w #728,ip_ysinus12
add.w #636,ip_ysinus21
sub.w #544,ip_ysinus22
bra.s .setok
.noset: clr.b ip_set
.setok: add.w #32,ip_xsinus11
sub.w #48,ip_xsinus12
sub.w #22,ip_xsinus21
add.w #32,ip_xsinus22
sub.w #40,ip_ysinus11
add.w #18,ip_ysinus12
add.w #26,ip_ysinus21
sub.w #34,ip_ysinus22
and.w #2046,ip_xsinus11
and.w #2046,ip_xsinus12
and.w #2046,ip_xsinus21
and.w #2046,ip_xsinus22
and.w #2046,ip_ysinus11
and.w #2046,ip_ysinus12
and.w #2046,ip_ysinus21
and.w #2046,ip_ysinus22
tst.b render
beq.s .vbiok
move.l #ip_cl_1,d0
add.l ip_copperadd,d0
move.w d0,ip_cl_cop1lcl
swap d0
move.w d0,ip_cl_cop1lch
eor.l #4*IP_PLANEWIDTH,ip_planeadd
eor.l #ip_cl_2-ip_cl_1,ip_copperadd
clr.b render
.vbiok: rts
rotate: ; Clear memory
; ------------
lea ro_cl,a0
move.l #ro_requirements_chipmem,d7
bsr clearmemory
lea ro_mulu_planewidth,a0
move.l #ro_requirements_fastmem,d7
bsr clearmemory
; Start pre/post effect immediately
; ---------------------------------
move.b #16,ro_frame
move.w #1024,ro_sinusaddpointer
move.l #rotate_pre_vbi,part_vbi
; Copy copperlist
; ---------------
lea ro_ct,a0
lea ro_cl,a1
move.w #(ro_ct_data-ro_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
; Screen setup
; ------------
move.l #ro_planes,d0
lea ro_cl_bpl1pth,a0
moveq #RO_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #RO_PLANEWIDTH,d0
dbra d7,.setplanesloop
; Copy Jorma
; ----------
lea fw_symbol,a0
lea ro_planes+RO_PLANES*(RO_PLANEHEIGHT-224)/2*RO_PLANEWIDTH,a1
move.w #224-1,d7
.jorma: move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
lea 32-32(a0),a0
lea RO_PLANES*RO_PLANEWIDTH-32(a1),a1
dbra d7,.jorma
; Create delta table
; ------------------
lea ro_waitdelta,a0
moveq #RO_SIZE/2,d0
move.l #(RO_SIZE/2)<<8,d1
moveq #RO_SIZE/2-1,d7
.delta: move.l d1,d2
divu d0,d2
move.w d2,(a0)+
subq #1,d0
dbra d7,.delta
; Create multiply table
; ---------------------
moveq #0,d0
lea ro_mulu_planewidth,a0
move.l #RO_PLANEHEIGHT-1,d7
.mulu1: move.w d0,(a0)+
add.w #RO_PLANES*RO_PLANEWIDTH,d0
dbra d7,.mulu1
; Create scaling table
; --------------------
moveq #0,d0
lea ro_mulu_256,a0
.mulu2: moveq #0,d1
.mulu3: move.w d0,d2
move.w d1,d3
ext.w d3
muls d3,d2
asr.w #7,d2
cmp.b #128,d2
bne.s .d2ok1
move.b #127,d2
.d2ok1: add.b #128,d2
move.b d2,(a0)+
addq #1,d1
cmp.w #256,d1
bcs.s .mulu3
addq #1,d0
cmp.w #128,d0
bcs.s .mulu2
moveq #-128,d0
lea ro_mulu_256-128*256,a0
.mulu4: moveq #0,d1
.mulu5: move.w d0,d2
move.w d1,d3
ext.w d3
muls d3,d2
asr.w #7,d2
cmp.b #128,d2
bne.s .d2ok2
move.b #127,d2
.d2ok2: add.b #128,d2
move.b d2,(a0)+
addq #1,d1
cmp.w #256,d1
bcs.s .mulu5
addq #1,d0
bmi.s .mulu4
rts
rotate_go:
clr.b ro_frame
move.l #ro_cl,cop1lch+custom
move.l #rotate_main,part_main
move.l #rotate_vbi,part_vbi
rts
rotate_main:
lea ro_planes,a0
lea RO_PLANES*RO_PLANEWIDTH*RO_SIZE*RO_RESOLUTION-(RO_PLANEWIDTH-RO_SIZE*RO_RESOLUTION/8)-(RO_RESOLUTION/8+2)(a0),a3
lea RO_PLANES*RO_PLANEWIDTH(a0),a0
lea RO_PLANES*RO_PLANEWIDTH*RO_SIZE*RO_RESOLUTION-(RO_PLANEWIDTH-RO_SIZE*RO_RESOLUTION/8)-2(a0),a1
lea RO_PLANES*RO_PLANEWIDTH+2(a0),a2
lea ro_waitdelta,a4
lea ro_wait,a5
lea custom,a6
moveq #0,d0
move.b ro_frame,d0
move.l #RO_SIZE/2-1,d7
ro_lp: move.w (a5)+,d1
move.w (a4)+,d2
move.w d1,d3
lsr.w #8,d3
; Check if current frame is higher or equal than the frame to wait
; ----------------------------------------------------------------
cmp.w d3,d0
bcs.w ro_nbl
; Calculate new frame to wait
; ---------------------------
add.w d2,d1
move.w d1,-2(a5)
; Blit top half to up right
; -------------------------
waitb
move.w #(1<<ASHIFTSHIFT)|SRCA|DEST|ABC|ABNC|ANBC|ANBNC,bltcon0(a6)
move.w #0,bltcon1(a6)
move.l #$7ffffffe,bltafwm(a6)
move.w #RO_PLANEWIDTH-RO_SIZE*RO_RESOLUTION/8,bltamod(a6)
move.w #RO_PLANEWIDTH-RO_SIZE*RO_RESOLUTION/8,bltdmod(a6)
move.l a0,bltapth(a6)
sub.w #RO_PLANES*RO_PLANEWIDTH,a0
move.l a0,bltdpth(a6)
add.w #RO_PLANES*RO_PLANEWIDTH,a0
move.w #((RO_PLANES*RO_RESOLUTION)<<6)|(RO_SIZE*RO_RESOLUTION/16),bltsize(a6)
; Blit bottom half to down left
; -----------------------------
waitb
move.w #(1<<ASHIFTSHIFT)|SRCA|DEST|ABC|ABNC|ANBC|ANBNC,bltcon0(a6)
move.w #BLITREVERSE,bltcon1(a6)
move.l #$fffe7fff,bltafwm(a6)
move.w #RO_PLANEWIDTH-RO_SIZE*RO_RESOLUTION/8,bltamod(a6)
move.w #RO_PLANEWIDTH-RO_SIZE*RO_RESOLUTION/8,bltdmod(a6)
move.l a1,bltapth(a6)
add.w #RO_PLANES*RO_PLANEWIDTH,a1
move.l a1,bltdpth(a6)
sub.w #RO_PLANES*RO_PLANEWIDTH,a1
move.w #((RO_PLANES*RO_RESOLUTION)<<6)|(RO_SIZE*RO_RESOLUTION/16),bltsize(a6)
; Blit left half up left
; ----------------------
waitb
move.w #SRCB|SRCC|DEST|ABC|ABNC|NABC|NANBC,bltcon0(a6)
move.w #(1<<BSHIFTSHIFT)|BLITREVERSE,bltcon1(a6)
move.l #$0000ffff,bltafwm(a6)
move.w #-1,bltadat(a6)
move.w #-RO_PLANEWIDTH-(RO_RESOLUTION/8+2),bltbmod(a6)
move.w #-RO_PLANEWIDTH-(RO_RESOLUTION/8+2),bltcmod(a6)
move.w #-RO_PLANEWIDTH-(RO_RESOLUTION/8+2),bltdmod(a6)
move.l a2,bltbpth(a6)
sub.w #RO_PLANES*RO_PLANEWIDTH,a2
move.l a2,bltcpth(a6)
move.l a2,bltdpth(a6)
add.w #RO_PLANES*RO_PLANEWIDTH,a2
move.w #((RO_PLANES*RO_SIZE*RO_RESOLUTION)<<6)|((RO_RESOLUTION/8+2)/2),bltsize(a6)
; Blit right half down right
; --------------------------
waitb
move.w #SRCB|SRCC|DEST|ABC|ABNC|NABC|NANBC,bltcon0(a6)
move.w #(1<<BSHIFTSHIFT),bltcon1(a6)
move.l #$0000ffff,bltafwm(a6)
move.w #-1,bltadat(a6)
move.w #-RO_PLANEWIDTH-(RO_RESOLUTION/8+2),bltbmod(a6)
move.w #-RO_PLANEWIDTH-(RO_RESOLUTION/8+2),bltcmod(a6)
move.w #-RO_PLANEWIDTH-(RO_RESOLUTION/8+2),bltdmod(a6)
move.l a3,bltbpth(a6)
add.w #RO_PLANES*RO_PLANEWIDTH,a3
move.l a3,bltcpth(a6)
move.l a3,bltdpth(a6)
sub.w #RO_PLANES*RO_PLANEWIDTH,a3
move.w #((RO_PLANES*RO_SIZE*RO_RESOLUTION)<<6)|((RO_RESOLUTION/8+2)/2),bltsize(a6)
ro_nbl: lea RO_PLANES*RO_RESOLUTION*RO_PLANEWIDTH(a0),a0
lea -RO_PLANES*RO_RESOLUTION*RO_PLANEWIDTH(a1),a1
addq #(RO_RESOLUTION/8),a2
subq #(RO_RESOLUTION/8),a3
dbra d7,ro_lp
waitb
; Draw some shit
; --------------
lea sinus,a1
lea ro_mulu_planewidth,a2
lea ro_mulu_256,a3
lea ro_planes,a4
add.w ro_planes_add,a4
move.w ro_sinuspointer,d0
move.w d0,d1
add.w #512,d1
move.w #10*256,d4
move.w #2046,d6
and.w d6,d1
move.w #RO_NUMPOINTS-1,d7
.scope: moveq #0,d2
moveq #0,d3
and.w d6,d0
and.w d6,d1
move.b (a1,d0.w),d4
move.b (a3,d4.w),d2
move.b (a1,d1.w),d4
move.b (a3,d4.w),d3
add.w d3,d3
move.w (a2,d3.w),d3
move.w d2,d5
lsr.w #3,d2
add.w d3,d2
not.w d5
and.w #7,d5
bchg.b d5,(a4,d2.w)
add.w #2048/RO_NUMPOINTS,d0
add.w #2048/RO_NUMPOINTS,d1
and.w d6,d0
and.w d6,d1
dbra d7,.scope
eor.w #RO_PLANEWIDTH,ro_planes_add
add.b #1,ro_frame
and.b #RO_SIZE/2-1,ro_frame
bne.s .frmok
; Fix overflowing counters
; ------------------------
lea ro_wait,a0
move.l #RO_SIZE/2-1,d7
.fixfr: move.w (a0)+,d0
cmp.w #(RO_SIZE/2)<<8,d0
bcs .nofix
sub.w #(RO_SIZE/2)<<8,d0
move.w d0,-2(a0)
.nofix: dbra d7,.fixfr
.frmok: move.b #1,render
rts
rotate_pre_vbi:
movem.l d1-d2,-(sp)
moveq #0,d0
move.b ro_frame,d0
bmi.s .done
lsl.w #4,d0
; Fade palette out
; ----------------
lea table_fade,a0
add.w d0,a0
move.w cs_citycolor,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a0,d0.w),d0
move.b (a0,d1.w),d1
move.b (a0,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w d0,ne_cl_palette+2
sub.b #1,ro_frame
.done: movem.l (sp)+,d1-d2
rts
rotate_vbi:
movem.l d1-d2/d7/a1-a2,-(sp)
move.l sc_position,d0
subq #1,d0
and.w #127,d0
cmp.w #3,d0
bcs.s .fade
cmp.w #116,d0
bcs .npal
.fade: mulu #6,d0
addq #6,d0
sub.w tp_wait,d0
cmp.w #16,d0
bhi.s .fdout
lsl.w #4,d0
; Fade palette in
; ---------------
lea ro_palette,a0
lea table_fade,a1
add.w d0,a1
lea ro_cl_palette+2,a2
moveq #4-1,d7
.fdpl1: move.w #$fff,d0
sub.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w #$fff,d1
sub.w d0,d1
move.w d1,(a2)
addq #4,a2
dbra d7,.fdpl1
bra.s .npal
.fdout: move.w #119*6-1,d1
sub.w d0,d1
bmi.s .npal
cmp.w #16,d1
bhi.s .npal
lsl.w #4,d1
; Fade palette out
; ----------------
lea ro_palette,a0
lea table_fade,a1
add.w d1,a1
lea ro_cl_palette+2,a2
moveq #4-1,d7
.fdpl2: move.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w d0,(a2)
addq #4,a2
dbra d7,.fdpl2
.npal: add.w #6,ro_sinusaddpointer
and.w #2046,ro_sinusaddpointer
lea sinus,a0
move.w ro_sinusaddpointer,d0
move.w (a0,d0.w),d0
asr.w #8,d0
asr.w #3,d0
and.w #$fffe,d0
add.w d0,ro_sinuspointer
and.w #2046,ro_sinuspointer
tst.b render
beq.s .vbiok
clr.b render
clr.w ne_cl_palette+2
.vbiok: movem.l (sp)+,d1-d2/d7/a1-a2
rts
stencilvector:
; Clear memory
; ------------
lea sv_cl,a0
move.l #sv_requirements_chipmem,d7
bsr clearmemory
lea sv_planes_add,a0
move.l #sv_requirements_fastmem,d7
bsr clearmemory
; Start pre/post effect immediately
; ---------------------------------
move.b #1,sv_pre_set
move.b #1,sv_pre_wait
move.w #17,sv_pre_fader
move.l #stencilvector_pre_vbi,part_vbi
; Copy copperlist
; ---------------
lea sv_ct,a0
lea sv_cl,a1
move.w #(sv_ct_data-sv_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
; Screen setup
; ------------
move.l #sv_planes,d0
lea sv_cl_bpl1pth,a0
moveq #SV_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #SV_PLANESIZE,d0
dbra d7,.setplanesloop
; Reset boundary values
; ---------------------
lea sv_boundaries,a0
move.w #SV_PLANEWIDTH*8,(a0)
clr.w 2(a0)
move.w #SV_PLANEHEIGHT,4(a0)
clr.w 6(a0)
; Calculate square root table
; ---------------------------
lea sv_table_sqrt,a0
moveq #0,d3
move.w #257-1,d7
.sqrtl: move.l d3,d1
; Calculate square root
; ---------------------
moveq #-1,d2
clr.w d2
cmp.l d2,d1
bls.s .sqrt0
move.l #$00010000,d2
bra.s .sqrt3
.sqrt0: moveq #31,d0
.sqrt1: bclr d0,d2
lsr.l d2
cmp.l d2,d1
bls.s .sqrt2
sub.l d2,d1
bset d0,d2
.sqrt2: subq #2,d0
bcc.s .sqrt1
lsr.l d2
.sqrt3: move.b d2,(a0)+
add.l #$80,d3
dbra d7,.sqrtl
; Render ordered ball to be used as a filling pattern
; ---------------------------------------------------
lea table_order,a0
lea sv_table_sqrt,a1
lea sv_stencil,a2
lea 2*SV_STENCIL_SIZE(a2),a3
moveq #0,d4
moveq #0,d5
moveq #0,d6
moveq #0,d7
move.w #SV_STENCIL_HEIGHT,a5
.yloop: move.w #SV_STENCIL_WIDTH*8,a4
.xloop: ; Calculate distance^2 from origin: |x^2 + y^2|
; ---------------------------------------------
move.w a5,d1
sub.w #SV_STENCIL_HEIGHT/2,d1
bpl.s .ypos
neg.w d1
.ypos: mulu d1,d1
move.w a4,d0
sub.w #SV_STENCIL_WIDTH*8/2,d0
bpl.s .xpos
neg.w d0
.xpos: mulu d0,d0
add.l d0,d1
lsr.l #7,d1
moveq #0,d2
move.b (a1,d1.w),d2
; Inverse
; -------
move.w #SV_STENCIL_HEIGHT/2,d0
sub.w d2,d0
bpl.s .zpos
moveq #0,d0
.zpos: ; Expand distance from 0-128 to 0-256
; -----------------------------------
add.w d0,d0
; Base color (0-16)
; -----------------
move.w d0,d1
lsr.w #4,d1
; Use the rest of the bits for ordered dithering comparison and scale
; -------------------------------------------------------------------
and.w #15,d0
lsl.w #4,d0
; Get the current ordered dithering table element
; -----------------------------------------------
move.w a5,d2
and.w #15,d2
lsl.w #4,d2
move.w a4,d3
and.w #15,d3
add.w d3,d2
moveq #0,d3
move.b (a0,d2.w),d3
; Ordered dithering
; -----------------
cmp.w d3,d0
ble.s .nodit
addq #1,d1
.nodit: ; No overflows
; ------------
cmp.w #16,d1
bcs.s .colok
move.w #15,d1
.colok: ; Chunky to planar... slowest ever but sufficient here
; ----------------------------------------------------
lsr.b d1
addx.l d4,d4
lsr.b d1
addx.l d5,d5
lsr.b d1
addx.l d6,d6
lsr.b d1
addx.l d7,d7
subq #1,a4
move.w a4,d1
; Write to planes every 32nd pixel
; --------------------------------
and.w #31,d1
bne.s .nowr
move.l d4,(a2)+
move.l d5,SV_STENCIL_SIZE-4(a2)
move.l d6,(a3)+
move.l d7,SV_STENCIL_SIZE-4(a3)
.nowr: cmp.w #0,a4
bne .xloop
subq #1,a5
cmp.w #0,a5
bne .yloop
; Create multiply table
; ---------------------
moveq #0,d0
lea sv_mulu_planewidth,a0
move.w #SV_STENCIL_HEIGHT-1,d7
.mulu: move.w d0,(a0)+
add.w #SV_PLANEWIDTH,d0
dbra d7,.mulu
; Create octants table
; --------------------
move.b #0|ONEDOT|LINEMODE,sv_boundaries-1 ;y1<y2, x1<x2, dx<dy = okt6
move.b #16|ONEDOT|LINEMODE,sv_boundaries-2 ;y1<y2, x1<x2, dx>dy = okt7
move.b #8|ONEDOT|LINEMODE,sv_boundaries-3 ;y1<y2, x1>x2, dx<dy = okt5
move.b #20|ONEDOT|LINEMODE,sv_boundaries-4 ;y1<y2, x1>x2, dx>dy = okt4
; Reset angles
; ------------
move.l #$00000200,d0
lea sv_angles,a0
move.l d0,(a0)+
move.l d0,(a0)+
move.l d0,(a0)+
; Calculate face normals
; ----------------------
lea sv_faces_list,a0
lea sv_coordinates_list+2,a1
move.w (a0)+,d7
subq #1,d7
.nrml1: move.l (a0)+,a2
move.l (a1)+,a3
addq #2,a3
move.w (a2)+,d6
move.w (a2)+,d5
subq #1,d6
.nrml2: ; Get pointers for three successive coordinates from the face
; -----------------------------------------------------------
move.w 18(a2),d0
move.w 20(a2),d1
move.w 22(a2),d2
lsl.w #3,d0
lsl.w #3,d1
lsl.w #3,d2
; A = y1(z2 - z3)
; ---------------
move.w 4(a3,d1.w),d3
sub.w 4(a3,d2.w),d3
muls 2(a3,d0.w),d3
; + y2(z3 - z1)
; -------------
move.w 4(a3,d2.w),d4
sub.w 4(a3,d0.w),d4
muls 2(a3,d1.w),d4
add.w d4,d3
; + y3(z1 - z2)
; -------------
move.w 4(a3,d0.w),d4
sub.w 4(a3,d1.w),d4
muls 2(a3,d2.w),d4
add.w d4,d3
asr.w #4,d3
move.w d3,(a2)
; B = z1(x2 - x3)
; ---------------
move.w (a3,d1.w),d3
sub.w (a3,d2.w),d3
muls 4(a3,d0.w),d3
; + z2(x3 - x1)
; -------------
move.w (a3,d2.w),d4
sub.w (a3,d0.w),d4
muls 4(a3,d1.w),d4
add.w d4,d3
; + z3(x1 - x2)
; -------------
move.w (a3,d0.w),d4
sub.w (a3,d1.w),d4
muls 4(a3,d2.w),d4
add.w d4,d3
asr.w #4,d3
move.w d3,2(a2)
; C = x1(y2 - y3)
; ---------------
move.w 2(a3,d1.w),d3
sub.w 2(a3,d2.w),d3
muls (a3,d0.w),d3
; + x2(y3 - y1)
; -------------
move.w 2(a3,d2.w),d4
sub.w 2(a3,d0.w),d4
muls (a3,d1.w),d4
add.w d4,d3
; + x3(y1 - y2)
; -------------
move.w 2(a3,d0.w),d4
sub.w 2(a3,d1.w),d4
muls (a3,d2.w),d4
add.w d4,d3
asr.w #4,d3
move.w d3,4(a2)
; Normalize vector
; ----------------
muls d3,d3
move.w (a2),d1
muls d1,d1
add.w d3,d1
move.w 2(a2),d3
muls d3,d3
add.w d3,d1
bpl.s .lpos
neg.w d1
.lpos: ; Calculate square root
; ---------------------
moveq #-1,d2
clr.w d2
cmp.l d2,d1
bls.w .sqrt4
move.l #$00010000,d2
bra.w .sqrt7
.sqrt4: moveq #31,d0
.sqrt5: bclr d0,d2
lsr.l d2
cmp.l d2,d1
bls.s .sqrt6
sub.l d2,d1
bset d0,d2
.sqrt6: subq #2,d0
bcc.s .sqrt5
lsr.l d2
.sqrt7: move.w (a2),d3
muls d5,d3
divs d2,d3
move.w d3,(a2)
move.w 2(a2),d3
muls d5,d3
divs d2,d3
move.w d3,2(a2)
move.w 4(a2),d3
muls d5,d3
divs d2,d3
move.w d3,4(a2)
move.w 16(a2),d3
add.w d3,d3
lea 20(a2,d3.w),a2
dbra d6,.nrml2
dbra d7,.nrml1
; Calculate x*y values
; --------------------
lea sv_coordinates_list,a0
move.w (a0)+,d7
subq #1,d7
.xylp1: move.l (a0)+,a1
move.w (a1)+,d6
subq #1,d6
.xylp2: move.w (a1)+,d0
move.w (a1)+,d1
addq #2,a1
muls d1,d0
move.w d0,(a1)+
dbra d6,.xylp2
dbra d7,.xylp1
; Calculate x*y values for normals
; --------------------------------
lea sv_faces_list,a0
move.w (a0)+,d7
subq #1,d7
.xylp3: move.l (a0)+,a1
move.w (a1),d6
addq #4,a1
subq #1,d6
.xylp4: move.w (a1),d0
move.w 2(a1),d1
muls d1,d0
move.w d0,6(a1)
move.w 16(a1),d0
add.w d0,d0
lea 20(a1,d0.w),a1
dbra d6,.xylp4
dbra d7,.xylp3
; Set an object to begin with
; ---------------------------
move.l sv_coordinates_list+2,sv_coordinates
move.l sv_faces_list+2,sv_faces
move.w #SV_DISTANCE_MAX,sv_distance
moveq #0,d0
lea sv_cl_palette+2,a0
moveq #16-1,d7
.pah: move.w d0,(a0)
add.w #$111,d0
addq #4,a0
dbra d7,.pah
move.l #$000c000c,sv_angles_add
move.l #$000a000a,sv_angles_add+4
move.l #$00080008,sv_angles_add+8
rts
stencilvector_go:
clr.b sv_object_change
clr.b sv_angles_lock
clr.b sv_angles_lock+1
clr.b sv_angles_lock+2
move.l #sv_cl,cop1lch+custom
move.l #stencilvector_main,part_main
move.l #stencilvector_vbi,part_vbi
rts
stencilvector_main:
lea custom,a6
; Use CPU to clear?
; -----------------
move.l sv_faces,a0
cmp.w #10,(a0)
bcs sv_cpu
; Clear destination bitplane
; --------------------------
waitb
; Notice that the following blits use these values as well
; --------------------------------------------------------
move.l #-1,bltafwm(a6)
move.w #0,bltcon1(a6)
move.w #DEST,bltcon0(a6)
move.w #12,bltdmod(a6)
move.l #sv_planes,d0
add.l sv_planes_add,d0
addq #6,d0
move.l d0,bltdpth(a6)
move.w #((SV_PLANES*SV_PLANEHEIGHT)<<6)|(SV_PLANEWIDTH/2-6),bltsize(a6)
bra sv_cld
sv_cpu: ; Clear destination bitplane
; --------------------------
move.l #sv_planes+6,d0
add.l sv_planes_add,d0
moveq #0,d1
waitb
; Notice that the following blits use these values as well
; --------------------------------------------------------
move.l #-1,bltafwm(a6)
move.w d1,bltcon1(a6)
move.w #DEST,bltcon0(a6)
move.w #12,bltdmod(a6)
move.l d0,bltdpth(a6)
move.w #((SV_PLANES*SV_PLANEHEIGHT*6/8)<<6)|(SV_PLANEWIDTH/2-6),bltsize(a6)
; Clear part of the screen using the CPU
; --------------------------------------
move.l d0,a0
add.w #4*SV_PLANESIZE,a0
moveq #0,d2
moveq #0,d3
moveq #0,d4
moveq #0,d5
moveq #12,d6
move.l #(SV_PLANES*SV_PLANEHEIGHT*2/8/16)-1,d7
.clr: sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
sub.w d6,a0
movem.l d1-d5,-(a0)
dbra d7,.clr
sv_cld: ; Precalculate sin*cos constants; range +-$3fff
; ---------------------------------------------
lea sinus,a0
lea sv_angles,a1
lea sv_rotate,a2
; xx = cos(ax)*cos(ay)
; xy = sin(ax)*cos(ay)
; xz = sin(ay)
; ------------
move.w SV_YANGLECOS(a1),d0
move.w SV_YANGLESIN(a1),d2
move.w SV_XANGLECOS(a1),d3
move.w SV_XANGLESIN(a1),d4
move.w (a0,d0.w),d0
move.w d0,d1
move.w (a0,d2.w),d2
move.w (a0,d3.w),d3
move.w (a0,d4.w),d4
muls d3,d0
swap d0
muls d4,d1
swap d1
asr.w d2
move.w d0,SV_XX(a2)
move.w d1,SV_XY(a2)
move.w d2,SV_XZ(a2)
; yx = sin(ax)*cos(az) + cos(ax)*sin(ay)*sin(az)
; yy = -cos(ax)*cos(az) + sin(ax)*sin(ay)*sin(az)
; yz = -cos(ay)*sin(az)
; ---------------------
move.w SV_ZANGLECOS(a1),d0
move.w SV_ZANGLESIN(a1),d2
move.w SV_XANGLESIN(a1),d3
move.w SV_XANGLECOS(a1),d4
move.w SV_YANGLECOS(a1),d5
move.w (a0,d0.w),d0
move.w d0,d1
move.w (a0,d2.w),d2
move.w (a0,d3.w),d3
move.w (a0,d4.w),d4
move.w (a0,d5.w),d5
muls d3,d0
swap d0
muls d4,d1
swap d1
neg.w d1
muls d5,d2
swap d2
neg.w d2
move.w SV_YANGLESIN(a1),d3
move.w SV_ZANGLESIN(a1),d4
move.w (a0,d3.w),d3
move.w (a0,d4.w),d4
muls d4,d3
swap d3
add.w d3,d3
move.w SV_XANGLECOS(a1),d4
move.w SV_XANGLESIN(a1),d5
move.w (a0,d4.w),d4
move.w (a0,d5.w),d5
muls d3,d4
swap d4
muls d3,d5
swap d5
add.w d4,d0
add.w d5,d1
move.w d0,SV_YX(a2)
move.w d1,SV_YY(a2)
move.w d2,SV_YZ(a2)
; zx = sin(ax)*sin(az) - cos(ax)*sin(ay)*cos(az)
; zy = -cos(ax)*sin(az) - sin(ax)*sin(ay)*cos(az)
; zz = cos(ay)*cos(az)
; --------------------
move.w SV_ZANGLESIN(a1),d0
move.w SV_ZANGLECOS(a1),d2
move.w SV_XANGLESIN(a1),d3
move.w SV_XANGLECOS(a1),d4
move.w SV_YANGLECOS(a1),d5
move.w (a0,d0.w),d0
move.w d0,d1
move.w (a0,d2.w),d2
move.w (a0,d3.w),d3
move.w (a0,d4.w),d4
move.w (a0,d5.w),d5
muls d3,d0
swap d0
muls d4,d1
swap d1
neg.w d1
muls d5,d2
swap d2
move.w SV_YANGLESIN(a1),d3
move.w SV_ZANGLECOS(a1),d4
move.w (a0,d3.w),d3
move.w (a0,d4.w),d4
muls d4,d3
swap d3
add.w d3,d3
move.w SV_XANGLECOS(a1),d4
move.w SV_XANGLESIN(a1),d5
move.w (a0,d4.w),d4
move.w (a0,d5.w),d5
muls d3,d4
swap d4
muls d3,d5
swap d5
sub.w d4,d0
sub.w d5,d1
move.w d0,SV_ZX(a2)
move.w d1,SV_ZY(a2)
move.w d2,SV_ZZ(a2)
; xxxy = xx*xy
; yxyy = yx*yy
; zxzy = zx*zy
; ------------
move.w SV_XX(a2),d0
move.w SV_XY(a2),d1
muls d1,d0
move.l d0,SV_XXXY(a2)
move.w SV_YX(a2),d0
move.w SV_YY(a2),d1
muls d1,d0
move.l d0,SV_YXYY(a2)
move.w SV_ZX(a2),d0
move.w SV_ZY(a2),d1
muls d1,d0
move.l d0,SV_ZXZY(a2)
; Rotate coordinates
; ------------------
move.l sv_coordinates,a0
lea sv_rotate,a1
lea sv_rotated,a2
move.w sv_distance,a3
move.w #SV_PLANEWIDTH*8/2,a4
move.w #SV_PLANEHEIGHT/2,a5
move.w (a0)+,d7
subq #1,d7
.coord: move.w (a0)+,d4
move.w (a0)+,d5
move.w (a0)+,d6
move.w (a0)+,d0
ext.l d0
move.l d0,a6
; x' = (xx + y)(xy + x) + z*xz - (xxxy + x*y)
; -------------------------------------------
move.w d4,d0
add.w SV_XY(a1),d0
move.w d5,d1
add.w SV_XX(a1),d1
muls d1,d0
move.w d6,d1
muls SV_XZ(a1),d1
add.l d1,d0
sub.l SV_XXXY(a1),d0
sub.l a6,d0
; y' = (yx + y)(yy + x) + z*yz - (yxyy + x*y)
; -------------------------------------------
move.w d4,d1
add.w SV_YY(a1),d1
move.w d5,d2
add.w SV_YX(a1),d2
muls d2,d1
move.w d6,d2
muls SV_YZ(a1),d2
add.l d2,d1
sub.l SV_YXYY(a1),d1
sub.l a6,d1
; z' = (zx + y)(zy + x) + z*zz - (zxzy + x*y)
; -------------------------------------------
move.w d4,d2
add.w SV_ZY(a1),d2
move.w d5,d3
add.w SV_ZX(a1),d3
muls d3,d2
move.w d6,d3
muls SV_ZZ(a1),d3
add.l d3,d2
sub.l SV_ZXZY(a1),d2
sub.l a6,d2
; Projection
; ----------
asr.l #5,d0
asr.l #5,d1
; Use #4 for a wider angle (or fish eye)
; --------------------------------------
asl.l #3,d2
swap d2
sub.w a3,d2
; Store Z coordinate
; ------------------
move.w d2,4(a2)
divs d2,d0
divs d2,d1
add.w a4,d0
add.w a5,d1
; Store projected X and Y
; -----------------------
move.w d0,(a2)+
move.w d1,(a2)+
addq #4,a2
dbra d7,.coord
; Rotate face normals
; -------------------
move.l sv_faces,a0
move.w (a0),d7
addq #4,a0
subq #1,d7
.norml: move.w (a0)+,d4
move.w (a0)+,d5
move.w (a0)+,d6
move.w (a0)+,d0
ext.l d0
move.l d0,a6
; x' = (xx + y)(xy + x) + z*xz - (xxxy + x*y)
; -------------------------------------------
move.w d4,d0
add.w SV_XY(a1),d0
move.w d5,d1
add.w SV_XX(a1),d1
muls d1,d0
move.w d6,d1
muls SV_XZ(a1),d1
add.l d1,d0
sub.l SV_XXXY(a1),d0
sub.l a6,d0
; y' = (yx + y)(yy + x) + z*yz - (yxyy + x*y)
; -------------------------------------------
move.w d4,d1
add.w SV_YY(a1),d1
move.w d5,d2
add.w SV_YX(a1),d2
muls d2,d1
move.w d6,d2
muls SV_YZ(a1),d2
add.l d2,d1
sub.l SV_YXYY(a1),d1
sub.l a6,d1
; z' = (zx + y)(zy + x) + z*zz - (zxzy + x*y)
; -------------------------------------------
move.w d4,d2
add.w SV_ZY(a1),d2
move.w d5,d3
add.w SV_ZX(a1),d3
muls d3,d2
move.w d6,d3
muls SV_ZZ(a1),d3
add.l d3,d2
sub.l SV_ZXZY(a1),d2
sub.l a6,d2
asr.l #7,d0
asr.l #7,d1
asr.l #7,d2
move.w d0,(a0)+
move.w d1,(a0)+
move.w d2,(a0)+
move.w 2(a0),d0
; Skip number of vertices + 1 (last == first) + 2 (visibility, nverts)
; --------------------------------------------------------------------
addq #3,d0
add.w d0,d0
add.w d0,a0
dbra d7,.norml
; Check out which faces are visible
; ---------------------------------
move.l sv_faces,a0
lea sv_rotated,a1
move.w (a0),d7
addq #4,a0
subq #1,d7
.visib: lea 16(a0),a0
lea -2(a0),a2
; Skip number of vertices + 1 (last == first)
; -------------------------------------------
move.w (a0)+,a3
addq #1,a3
add.w a3,a3
move.w (a0),d0
lsl.w #3,d0
move.w (a1,d0.w),d1 ;Rx1
move.w 2(a1,d0.w),d2 ;Ry1
move.w 2(a0),d0
lsl.w #3,d0
move.w (a1,d0.w),d3 ;Rx2
move.w 2(a1,d0.w),d4 ;Ry2
move.w 4(a0),d0
lsl.w #3,d0
move.w (a1,d0.w),d5 ;Rx3
move.w 2(a1,d0.w),d6 ;Ry3
sub.w d1,d3
sub.w d1,d5
sub.w d2,d4
sub.w d2,d6
muls d3,d6
muls d4,d5
sub.w d6,d5
move.w d5,(a2)
add.w a3,a0
dbra d7,.visib
; Calculate face center z coordinates
; -----------------------------------
move.l sv_faces,a0
lea sv_rotated,a1
lea sv_faces_z,a2
move.l a2,a3
clr.w (a2)+
move.w (a0),d7
addq #4,a0
subq #1,d7
.calcz: ; Store face address
; ------------------
move.l a0,a4
lea 16(a0),a0
; Number of vertices
; ------------------
move.w (a0)+,d5
; Check if plane is visible
; -------------------------
tst.w -4(a0)
bmi.s .visbl
; Skip number of vertices + 1 (last == first)
; -------------------------------------------
addq #1,d5
add.w d5,d5
add.w d5,a0
bra.s .cznfc
.visbl: ; Add the Z coordinates of the plane's vertices together
; ------------------------------------------------------
moveq #0,d0
move.w d5,d6
subq #1,d6
.clzlp: move.w (a0)+,d1
lsl.w #3,d1
sub.w 4(a1,d1.w),d0
dbra d6,.clzlp
; Skip last vertex
; ----------------
addq #2,a0
; Divide by number of vertices to get mean value
; ----------------------------------------------
divu d5,d0
move.w d0,(a2)+
move.l a4,(a2)+
; Number of visible faces
; -----------------------
add.w #1,(a3)
.cznfc: dbra d7,.calcz
; Skip sorting if number of faces in object < 30 (could use a var here)
; ---------------------------------------------------------------------
move.l sv_faces,a0
cmp.w #30,(a0)
bcs .drawf
; Sort faces by Z coordinate using straight radix sorting
; -------------------------------------------------------
lea sv_faces_z,a0
move.w (a0)+,d0
move.l a0,a4
move.w d0,d6
move.w #256,d5
add.w d0,d0
move.w d0,d3
add.w d3,d3
add.w d0,d3
subq #1,d5
subq #1,d6
lea sv_rs_tempbuffer,a5
lea sv_rs_distcount,a6
; Two passes (upper byte, lower byte)
; -----------------------------------
moveq #2-1,d7
.radix: ; Clear distribution count
; ------------------------
move.l a6,a0
move.w d5,d4
.clrdc: clr.b (a0)+
dbra d4,.clrdc
; Calculate distribution
; ----------------------
moveq #0,d0
move.l a6,a0
move.l a4,a1
move.w d6,d4
.cdstc: move.b (a1,d7.w),d0
add.b #1,(a0,d0.w)
addq #6,a1
dbra d4,.cdstc
; Calculate cumulative distribution
; ---------------------------------
move.l a6,a0
move.w d5,d4
subq #1,d4
.cumul: move.b (a0)+,d0
add.b d0,(a0)
dbra d4,.cumul
moveq #0,d0
move.l a6,a0
move.l a4,a1
; Start from the last element
; ---------------------------
add.w d3,a1
move.l a5,a2
move.l a1,a3
move.w d6,d4
.spred: subq #6,a3
move.b (a3,d7.w),d0
move.b (a0,d0.w),d1
subq #1,d1
move.b d1,(a0,d0.w)
add.w d1,d1
move.w d1,d2
add.w d1,d1
add.w d2,d1
move.l -(a1),2(a2,d1.w)
move.w -(a1),(a2,d1.w)
dbra d4,.spred
; Copy the temporary buffer back to the real buffer
; -------------------------------------------------
move.l a5,a0
move.l a4,a1
move.w d6,d4
.copyt: move.w (a0)+,(a1)+
move.l (a0)+,(a1)+
dbra d4,.copyt
dbra d7,.radix
; Draw faces
; ----------
.drawf: lea sv_rotated,a1
lea sv_mask,a2
lea sv_faces_z,a3
lea sv_boundaries,a4
lea sv_mulu_planewidth,a5
lea custom,a6
move.w (a3)+,d6
beq sv_fcd
move.w d6,d0
add.w d0,d0
move.w d0,d1
add.w d0,d0
add.w d1,d0
add.w d0,a3
subq #1,d6
sv_fcs: ; Get a face to render
; --------------------
move.l -(a3),a0
subq #2,a3
; Skip non rotated normal
; -----------------------
addq #8,a0
; Store rotated normal address
; ----------------------------
move.l a0,-(sp)
addq #8,a0
; Get number of vertices
; ----------------------
move.w (a0)+,d7
; Clear the previous mask
; -----------------------
move.w (a4),d0
move.w 2(a4),d2
move.w 4(a4),d1
move.w 6(a4),d3
; Don't clear if boundaries are invalid
; -------------------------------------
sub.w d0,d2
bmi sv_ncl
sub.w d1,d3
bmi sv_ncl
; Width = x2-x1 + 1, Height = y2-y1 + 1
; -------------------------------------
addq #1,d2
addq #1,d3
; Calculate clear starting position (ascending, first word)
; ---------------------------------------------------------
lsr.w #3,d0
and.w #$fffe,d0
add.w d1,d1
add.w (a5,d1.w),d0
ext.l d0
; Calculate blit size
; -------------------
add.w #32,d2
lsr.w #4,d2
lsl.w #6,d3
or.w d2,d3
; Calculate modulo
; ----------------
add.w d2,d2
sub.w #SV_PLANEWIDTH,d2
neg.w d2
; Clear
; -----
add.l #sv_mask,d0
waitb
move.w #DEST,bltcon0(a6)
move.w d2,bltdmod(a6)
move.l d0,bltdpth(a6)
move.w d3,bltsize(a6)
; Reset boundary values
; ---------------------
move.w #SV_PLANEWIDTH*8,(a4)
clr.w 2(a4)
move.w #SV_PLANEHEIGHT,4(a4)
clr.w 6(a4)
sv_ncl: waitb
move.w #$8000,bltadat(a6)
move.w #$ffff,bltbdat(a6)
move.w #SV_PLANEWIDTH,bltcmod(a6)
move.w #SV_PLANEWIDTH,bltdmod(a6)
; Draw the edges of the face
; --------------------------
move.w (a0)+,d4
lsl.w #3,d4
move.w (a1,d4.w),SV_OLDX(a5)
move.w 2(a1,d4.w),SV_OLDY(a5)
subq #1,d7
sv_fce: move.w SV_OLDX(a5),d0
move.w SV_OLDY(a5),d1
move.w (a0)+,d4
lsl.w #3,d4
move.w (a1,d4.w),d2
move.w 2(a1,d4.w),d3
move.w d2,SV_OLDX(a5)
move.w d3,SV_OLDY(a5)
; Check if the new coordinate is beyond previous boundaries
; ---------------------------------------------------------
cmp.w (a4),d2
bhi.s .lftok
move.w d2,(a4)
.lftok: cmp.w 2(a4),d2
bcs.s .rgtok
move.w d2,2(a4)
.rgtok: cmp.w 4(a4),d3
bhi.s .topok
move.w d3,4(a4)
.topok: cmp.w 6(a4),d3
bcs.s .botok
move.w d3,6(a4)
.botok:
; Make sure the line is drawn from top to bottom
; ----------------------------------------------
cmp.w d1,d3
beq.w sv_nl
bhi.s .yok
exg d0,d2
exg d1,d3
.yok: moveq #-1,d5
move.w d3,d4
sub.w d1,d4
add.w d4,d4
sub.w d0,d2
bge.s .x2gx1
neg.w d2
subq #2,d5
.x2gx1: cmp.w d4,d2
blo.s .allok
subq #1,d3
.allok: sub.w d1,d3
add.w d1,d1
move.w (a5,d1.w),d1
ext.l d1
move.w d0,d4
asr.w #3,d4
add.w d4,d1
add.l a2,d1
move.w d3,d4
sub.w d2,d4
bge.s .dygdx
exg d2,d3
subq #1,d5
.dygdx: move.b (a4,d5.w),d5
and.w #$00ff,d5
add.w d2,d2
and.w #$000f,d0
ror.w #4,d0
or.w #SRCA|SRCC|DEST|ABNC|ANBNC|NABC|NANBC,d0
waitb
move.w d2,bltbmod(a6)
sub.w d3,d2
bge.s .signl
or.w #SIGNFLAG,d5
.signl: move.w d2,bltaptl(a6)
sub.w d3,d2
move.w d2,bltamod(a6)
move.w d0,bltcon0(a6)
move.w d5,bltcon1(a6)
move.l d1,bltcpth(a6)
move.l d1,bltdpth(a6)
lsl.w #6,d3
addq #2,d3
move.w d3,bltsize(a6)
sv_nl: dbra d7,sv_fce
; Get boundaries (x1, x2, y1, y2)
; -------------------------------
move.w (a4),d0
move.w 2(a4),d2
move.w 4(a4),d1
move.w 6(a4),d3
move.w d0,d7
; Restore rotated normal address
; ------------------------------
move.l (sp)+,a0
; Width = x2-x1 + 1, Height = y2-y1 + 1
; -------------------------------------
sub.w d0,d2
bmi sv_nf
sub.w d1,d3
bmi sv_nf
addq #1,d2
addq #1,d3
; Stencil X position
; ------------------
move.w (a0),d4
asr.w #SV_NORMAL_SHIFT,d4
add.w #SV_STENCIL_WIDTH*8,d4
sub.w d2,d4
lsr.w d4
; Stencil Y position
; ------------------
move.w 2(a0),d5
asr.w #SV_NORMAL_SHIFT,d5
add.w #SV_STENCIL_HEIGHT,d5
sub.w d3,d5
lsr.w d5
; Calculate blit starting position (ascending, first word)
; --------------------------------------------------------
lsr.w #3,d0
and.w #$fffe,d0
add.w d1,d1
move.w (a5,d1.w),d1
add.w d0,d1
ext.l d1
; Calculate fill starting position (descending, last word)
; --------------------------------------------------------
move.w d3,d0
add.w d0,d0
subq #2,d0
move.w (a5,d0.w),d0
add.w d1,d0
add.w #32,d2
lsr.w #4,d2
add.w d2,d0
add.w d2,d0
subq #2,d0
ext.l d0
; Calculate blit size
; -------------------
lsl.w #6,d3
or.w d2,d3
; Calculate modulo
; ----------------
add.w d2,d2
sub.w #SV_PLANEWIDTH,d2
neg.w d2
; Calculate stencil starting position (ascending, first word)
; -----------------------------------------------------------
swap d7
move.w d4,d7
lsr.w #3,d4
and.w #$fffe,d4
ext.l d4
add.w d5,d5
add.w (a5,d5.w),d4
; Fill the image
; --------------
add.l #sv_mask,d0
waitb
move.w #SRCA|DEST|ABC|ABNC|ANBC|ANBNC,bltcon0(a6)
move.w #BLITREVERSE|FILL_OR,bltcon1(a6)
move.w d2,bltamod(a6)
move.w d2,bltdmod(a6)
move.l d0,bltapth(a6)
move.l d0,bltdpth(a6)
move.w d3,bltsize(a6)
; Calculate stencil right shift
; -----------------------------
swap d7
move.w d7,d5
swap d7
and.w #15,d5
and.w #15,d7
; Destination coords == shift right, stencil coords == shift left
; ---------------------------------------------------------------
sub.w d7,d5
bpl.s .steno
; If shift value negative, blit one more word
; -------------------------------------------
subq #2,d1
subq #2,d2
addq #1,d3
and.w #15,d5
.steno: ror.w #4,d5
or.w #SRCA|SRCB|SRCC|DEST|ABC|ABNC|NANBC|ANBC,d5
; Copy with mask (all planes)
; ---------------------------
move.l d1,d0
add.l #sv_mask,d0
add.l #sv_planes,d1
add.l sv_planes_add,d1
add.l #sv_stencil,d4
waitb
move.w d5,bltcon0(a6)
move.w #0,bltcon1(a6)
move.w d2,bltamod(a6)
move.w d2,bltbmod(a6)
move.w d2,bltcmod(a6)
move.w d2,bltdmod(a6)
moveq #SV_PLANES-1,d7
sv_clp: waitb
move.l d4,bltapth(a6)
move.l d0,bltbpth(a6)
move.l d1,bltcpth(a6)
move.l d1,bltdpth(a6)
move.w d3,bltsize(a6)
add.l #SV_STENCIL_SIZE,d4
add.l #SV_PLANESIZE,d1
dbra d7,sv_clp
sv_nf: dbra d6,sv_fcs
move.b #1,render
sv_fcd: rts
stencilvector_pre_vbi:
rts
stencilvector_vbi:
movem.l d1-d2/a1-a2/d7,-(sp)
move.w sv_distance,d0
cmp.w sv_distance_old,d0
beq.s .npal
move.w d0,sv_distance_old
move.l #SV_DISTANCE_MAX,d1
sub.w d0,d1
divu #80,d1
lsl.w #4,d1
; Fade palette out
; ----------------
lea sv_palettes_list,a0
add.w sv_object,a0
move.l (a0),a0
lea table_fade,a1
add.w d1,a1
lea sv_cl_palette+2,a2
moveq #16-1,d7
.fdpl2: move.w (a0)+,d0
move.w d0,d1
move.w d0,d2
lsr.w #8,d0
lsr.w #4,d1
and.w #$f,d1
and.w #$f,d2
move.b (a1,d0.w),d0
move.b (a1,d1.w),d1
move.b (a1,d2.w),d2
lsl.w #8,d0
lsl.w #4,d1
or.w d1,d0
or.w d2,d0
move.w d0,(a2)
addq #4,a2
dbra d7,.fdpl2
.npal: ; Check if it is time to change the object
; ----------------------------------------
move.l sc_position,d0
sub.l #16*PATTERNLENGTH+1,d0
and.w #255,d0
cmp.w #60,d0
beq.s .obchg
cmp.w #124,d0
beq.s .obchg
cmp.w #252,d0
bne.s .noobc
.obchg: move.b #1,sv_object_change
; If the object is about to be changed move it far away first
; -----------------------------------------------------------
.noobc: tst.b sv_object_change
beq.s .near
cmp.w #SV_DISTANCE_MAX,sv_distance
beq.s .disto
add.w #55,sv_distance
bra.s .disto
; Otherwise bring the object near
; -------------------------------
.near: cmp.w #SV_DISTANCE_MIN,sv_distance
beq.s .disto
sub.w #55,sv_distance
.disto: tst.b sv_angles_lock
bne.s .lock1
move.l sv_angles_add,d0
add.l d0,sv_angles
.lock1: tst.b sv_angles_lock+1
bne.s .lock2
move.l sv_angles_add+4,d0
add.l d0,sv_angles+4
.lock2: tst.b sv_angles_lock+2
bne.s .lock3
move.l sv_angles_add+8,d0
add.l d0,sv_angles+8
.lock3: move.l sc_position,d0
sub.l #16*PATTERNLENGTH+1,d0
and.w #255,d0
cmp.w #208,d0
bcs.s .and
cmp.w #$07ff,sv_angles
bcs.s .xok
move.l #$00000200,sv_angles
move.b #1,sv_angles_lock
.xok: cmp.w #$07ff,sv_angles+4
bcs.s .yok
move.l #$00000200,sv_angles+4
move.b #1,sv_angles_lock+1
.yok: cmp.w #$07ff,sv_angles+8
bcs.s .zok
move.l #$00000200,sv_angles+8
move.b #1,sv_angles_lock+2
.zok:
.and: and.l #$07ff07ff,sv_angles
and.l #$07ff07ff,sv_angles+4
and.l #$07ff07ff,sv_angles+8
.anded: tst.b render
beq .vbiok
move.l #sv_planes,d0
add.l sv_planes_add,d0
lea sv_cl_bpl1pth,a0
moveq #SV_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #SV_PLANESIZE,d0
dbra d7,.setplanesloop
tst.b sv_object_change
beq.s .nchob
cmp.w #SV_DISTANCE_MAX,sv_distance
bne.s .nchob
clr.b sv_object_change
move.w sv_object,d0
addq #4,d0
move.w d0,sv_object
lea sv_faces_list+2,a0
move.l (a0,d0.w),sv_faces
lea sv_coordinates_list+2,a0
move.l (a0,d0.w),sv_coordinates
sub.l #$00040004,sv_angles_add
add.l #$00020002,sv_angles_add+8
.nchob: eor.l #SV_PLANES*SV_PLANESIZE,sv_planes_add
clr.b render
.vbiok: movem.l (sp)+,d1-d2/a1-a2/d7
rts
end: move.b #1,quit
rts
; Synthesizer engine
; ------------------
synth: lea sy_cl,a0
move.l #sy_requirements_chipmem,d7
bsr clearmemory
lea sy_blink,a0
move.l #sy_requirements_fastmem,d7
bsr clearmemory
; Create image
; ------------
lea sy_image,a0
lea sy_planes+(SY_PLANEHEIGHT-16)*SY_PLANES*SY_PLANEWIDTH,a1
moveq #16-1,d7
.image: move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
lea (SY_PLANES-1)*SY_PLANEWIDTH(a1),a1
dbra d7,.image
; Create bars
; -----------
lea sy_planes,a0
move.w #256-1,d7
.bars: move.l #$ff0,4(a0)
move.l #$ff000,SY_PLANEWIDTH+12(a0)
move.l #$ff000,20(a0)
move.l #$ff000,SY_PLANEWIDTH+20(a0)
move.l #$ff0,2*SY_PLANEWIDTH+24(a0)
move.l #$ff00,28(a0)
move.l #$ff00,2*SY_PLANEWIDTH+28(a0)
move.l #$ff00,SY_PLANEWIDTH+32(a0)
move.l #$ff00,2*SY_PLANEWIDTH+32(a0)
lea SY_PLANES*SY_PLANEWIDTH(a0),a0
dbra d7,.bars
; Copy copperlist
; ---------------
lea sy_ct,a0
lea sy_cl,a1
move.w #(sy_ct_data-sy_ct)/4-1,d7
.cplst: move.l (a0)+,(a1)+
dbra d7,.cplst
move.l #$fffffffe,(a1)+
; Screen setup
; ------------
move.l #sy_planes,d0
lea sy_cl_bpl1pth,a0
moveq #SY_PLANES-1,d7
.setplanesloop:
move.w d0,4(a0)
swap d0
move.w d0,(a0)
swap d0
addq #8,a0
add.l #SY_PLANEWIDTH,d0
dbra d7,.setplanesloop
; Enable copperlist, interrupt and DMA
; ------------------------------------
lea custom,a6
move.w #INTF_VERTB,intreq(a6)
move.w #INTF_VERTB,intreq(a6)
move.w #DMAF_SETCLR|DMAF_COPPER|DMAF_RASTER,dmacon(a6)
move.w #INTF_SETCLR|INTF_INTEN|INTF_VERTB,intena(a6)
move.l #sy_cl,cop1lch(a6)
move.l #synth_vbi,part_vbi
; Initialize random number generator
; ----------------------------------
move.l #$bc5d71e3,sy_random_number
; Create waveforms
; ----------------
bsr sy_waveform_saw_create
bsr sy_waveform_square_create
bsr sy_waveform_noise_create
bsr sy_waveform_sinus_create
bsr sy_waveform_lfo_create
clr.l sy_samples
clr.w sy_blink
rts
synth_vbi:
movem.l d1/d5-d7/a1-a2,-(sp)
; Calculate the values to be displayed into a table
; -------------------------------------------------
lea sy_values,a0
move.w #$0182,(a0)+
move.l #sample_length,d0
sub.l sy_samples,d0
divu #sample_length/255,d0
move.w d0,(a0)+
move.w #$0184,(a0)+
move.w #$fff,d0
sub.w sy_filter_frequency_current,d0
lsr.w #4,d0
move.w d0,(a0)+
move.w #$0186,(a0)+
move.w #$fff,d0
sub.w sy_filter_resonance_current,d0
lsr.w #4,d0
move.w d0,(a0)+
move.w #$0188,(a0)+
moveq #-1,d0
sub.w sy_envelope_1_current,d0
lsr.w #8,d0
move.w d0,(a0)+
move.w #$018a,(a0)+
moveq #-1,d0
sub.w sy_envelope_2_current,d0
lsr.w #8,d0
move.w d0,(a0)+
move.w #$018c,(a0)+
moveq #-1,d0
sub.w sy_envelope_3_current,d0
lsr.w #8,d0
move.w d0,(a0)+
; Iterate over the data always picking the smallest one
; -----------------------------------------------------
lea sy_cl_data,a1
moveq #0,d5
moveq #6-1,d7
.loop: lea sy_values,a0
moveq #-1,d1
moveq #6-1,d6
.small: move.l (a0)+,d0
beq.s .nonew
cmp.w d0,d1
bcs.s .nonew
move.l d0,d1
move.l a0,a2
.nonew: dbra d6,.small
; Mark the smallest one used by clearing it from the values
; ---------------------------------------------------------
clr.l -4(a2)
; Convert value to copperlist
; ---------------------------
move.w d1,d0
add.w #$20,d0
cmp.w #$100,d0
bcs.s .ok
tst.w d5
bne.s .over1
move.l #$ffe1fffe,(a1)+
moveq #1,d5
.over1: sub.w #$100,d0
.ok: lsl.w #8,d0
move.b #1,d0
move.w d0,(a1)+
move.w #$fffe,(a1)+
swap d1
move.w d1,(a1)+
move.w #$fff,(a1)+
dbra d7,.loop
tst.w d5
bne.s .over2
move.l #$ffe1fffe,(a1)+
.over2: move.l #$2101fffe,(a1)+
move.l #$01820f00,(a1)+
move.l #$2a01fffe,(a1)+
move.w #$0182,(a1)+
cmp.w #16,sy_blink
bcs.s .white
clr.w (a1)+
bra.s .blink
.white: move.w #$0fff,(a1)+
.blink: move.l #$fffffffe,(a1)+
; Blink the rendering text
; ------------------------
add.w #1,sy_blink
and.w #31,sy_blink
.vbiok: movem.l (sp)+,d1/d5-d7/a1-a2
rts
synth_main:
; Initialize runtime variables
; ----------------------------
lea sy_oscillator_waveform,a0
move.l #sy_variables_size-1,d7
.init: clr.b (a0)+
dbra d7,.init
; Calculate envelope stretch
; --------------------------
; move.l sy_buffer_size,d0
; swap d0
; rol.l #4,d0
; subq #1,d0
; move.l d0,sy_envelope_stretch
move.l #7,sy_envelope_stretch
move.l sy_buffer_render,a0
moveq #0,d1 ; b1
moveq #0,d2 ; b2
moveq #0,d3 ; b3
moveq #0,d4 ; b4
moveq #0,d5 ; b5
sub.l a1,a1 ; t1
sub.l a2,a2 ; t2
lea sy_waveform_saw,a3
sub.l a6,a6 ; position in buffer
.loop: ; Only update envelopes every envelope_stretch samples due to resolution
; ----------------------------------------------------------------------
move.l a6,d6
and.l sy_envelope_stretch,d6
bne .env3o
; Update envelope 1
; -----------------
move.w sy_envelope_1_delta,d6
add.w d6,sy_envelope_1_current
sub.w #1,sy_envelope_1_counter
bpl.w .env1o
add.b #1,sy_envelope_1_mode
cmp.b #SY_ENVELOPE_ATTACK,sy_envelope_1_mode
bne.s .env1d
move.l #$ffff,d6
move.w sy_envelope_1_attack,d7
addq #1,d7
divu d7,d6
move.w d6,sy_envelope_1_delta
move.w sy_envelope_1_attack,sy_envelope_1_counter
bra.s .env1o
.env1d: cmp.b #SY_ENVELOPE_DECAY,sy_envelope_1_mode
bne.s .env1s
move.l #$fff,d6
sub.w sy_envelope_1_sustain,d6
lsl.w #4,d6
move.w sy_envelope_1_decay,d7
addq #1,d7
divu d7,d6
neg.w d6
move.w d6,sy_envelope_1_delta
move.w sy_envelope_1_decay,sy_envelope_1_counter
bra.s .env1o
.env1s: ;move.w sy_envelope_1_sustain,d6
;lsl.w #4,d6
;move.w d6,sy_envelope_1_current
clr.w sy_envelope_1_delta
move.w #$7fff,sy_envelope_1_counter
.env1o:
; Update envelope 2
; -----------------
move.w sy_envelope_2_delta,d6
add.w d6,sy_envelope_2_current
sub.w #1,sy_envelope_2_counter
bpl.w .env2o
add.b #1,sy_envelope_2_mode
cmp.b #SY_ENVELOPE_ATTACK,sy_envelope_2_mode
bne.s .env2d
move.l #$ffff,d6
move.w sy_envelope_2_attack,d7
addq #1,d7
divu d7,d6
move.w d6,sy_envelope_2_delta
move.w sy_envelope_2_attack,sy_envelope_2_counter
bra.s .env2o
.env2d: cmp.b #SY_ENVELOPE_DECAY,sy_envelope_2_mode
bne.s .env2s
move.l #$fff,d6
sub.w sy_envelope_2_sustain,d6
lsl.w #4,d6
move.w sy_envelope_2_decay,d7
addq #1,d7
divu d7,d6
neg.w d6
move.w d6,sy_envelope_2_delta
move.w sy_envelope_2_decay,sy_envelope_2_counter
bra.s .env2o
.env2s: ;move.w sy_envelope_2_sustain,d6
;lsl.w #4,d6
;move.w d6,sy_envelope_2_current
clr.w sy_envelope_2_delta
move.w #$7fff,sy_envelope_2_counter
.env2o:
; Update envelope 3
; -----------------
move.w sy_envelope_3_delta,d6
add.w d6,sy_envelope_3_current
sub.w #1,sy_envelope_3_counter
bpl.w .env3o
add.b #1,sy_envelope_3_mode
cmp.b #SY_ENVELOPE_ATTACK,sy_envelope_3_mode
bne.s .env3d
move.l #$ffff,d6
move.w sy_envelope_3_attack,d7
addq #1,d7
divu d7,d6
move.w d6,sy_envelope_3_delta
move.w sy_envelope_3_attack,sy_envelope_3_counter
bra.s .env3o
.env3d: cmp.b #SY_ENVELOPE_DECAY,sy_envelope_3_mode
bne.s .env3s
move.l #$fff,d6
sub.w sy_envelope_3_sustain,d6
lsl.w #4,d6
move.w sy_envelope_3_decay,d7
addq #1,d7
divu d7,d6
neg.w d6
move.w d6,sy_envelope_3_delta
move.w sy_envelope_3_decay,sy_envelope_3_counter
bra.s .env3o
.env3s: ;move.w sy_envelope_3_sustain,d6
;lsl.w #4,d6
;move.w d6,sy_envelope_3_current
clr.w sy_envelope_3_delta
move.w #$7fff,sy_envelope_3_counter
.env3o:
; Update LFO 1
; ------------
move.w sy_lfo_1_speed,d6
ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #2,d6 ; sy_lfo_1_delta
add.l d6,sy_lfo_1_position
cmp.l #$10000000,sy_lfo_1_position
bcs.s .lfo1o
sub.l #$10000000,sy_lfo_1_position
.lfo1o:
; Update LFO 2
; ------------
move.w sy_lfo_2_speed,d6
ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #2,d6 ; sy_lfo_2_delta
add.l d6,sy_lfo_2_position
cmp.l #$10000000,sy_lfo_2_position
bcs.s .lfo2o
sub.l #$10000000,sy_lfo_2_position
.lfo2o:
; Only update oscillator widths, pitches and square waveforms every
; 64th sample
; -----------------------------------------------------------------
move.l a6,d6
and.l #63,d6
bne .updok
; Update oscillator 1 width
; -------------------------
move.w sy_oscillator_1_width,d6
tst.w sy_oscillator_1_width_lfo_1
beq.s .o1wl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_width_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1wl1: tst.w sy_oscillator_1_width_lfo_2
beq.s .o1wl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_width_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1wl2: tst.w sy_oscillator_1_width_env_2
beq.s .o1we2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_1_width_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1we2: tst.w sy_oscillator_1_width_env_3
beq.s .o1we3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_1_width_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1we3: move.w d6,sy_oscillator_1_width_current
; Update oscillator 2 width
; -------------------------
move.w sy_oscillator_2_width,d6
tst.w sy_oscillator_2_width_lfo_1
beq.s .o2wl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_width_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2wl1: tst.w sy_oscillator_2_width_lfo_2
beq.s .o2wl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_width_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2wl2: tst.w sy_oscillator_2_width_env_2
beq.s .o2we2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_2_width_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2we2: tst.w sy_oscillator_2_width_env_3
beq.s .o2we3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_2_width_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2we3: move.w d6,sy_oscillator_2_width_current
; Update oscillator 3 width
; -------------------------
move.w sy_oscillator_3_width,d6
tst.w sy_oscillator_3_width_lfo_1
beq.s .o3wl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_width_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3wl1: tst.w sy_oscillator_3_width_lfo_2
beq.s .o3wl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_width_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3wl2: tst.w sy_oscillator_3_width_env_2
beq.s .o3we2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_3_width_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3we2: tst.w sy_oscillator_3_width_env_3
beq.s .o3we3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_3_width_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3we3: move.w d6,sy_oscillator_3_width_current
bsr sy_waveform_square_create
; Update oscillator 1 pitch
; -------------------------
move.w sy_oscillator_1_pitch,d6
tst.w sy_oscillator_1_pitch_lfo_1
beq.s .o1pl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_pitch_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1pl1: tst.w sy_oscillator_1_pitch_lfo_2
beq.s .o1pl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_pitch_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1pl2: tst.w sy_oscillator_1_pitch_env_2
beq.s .o1pe2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_1_pitch_env_2,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o1pe2: tst.w sy_oscillator_1_pitch_env_3
beq.s .o1pe3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_1_pitch_env_3,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o1pe3: ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #8,d6
move.l d6,sy_oscillator_1_delta
; Update oscillator 2 pitch
; -------------------------
move.w sy_oscillator_2_pitch,d6
tst.w sy_oscillator_2_pitch_lfo_1
beq.s .o2pl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_pitch_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2pl1: tst.w sy_oscillator_2_pitch_lfo_2
beq.s .o2pl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_pitch_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2pl2: tst.w sy_oscillator_2_pitch_env_2
beq.s .o2pe2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_2_pitch_env_2,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o2pe2: tst.w sy_oscillator_2_pitch_env_3
beq.s .o2pe3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_2_pitch_env_3,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o2pe3: ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #8,d6
move.l d6,sy_oscillator_2_delta
; Update oscillator 3 pitch
; -------------------------
move.w sy_oscillator_3_pitch,d6
tst.w sy_oscillator_3_pitch_lfo_1
beq.s .o3pl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_pitch_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3pl1: tst.w sy_oscillator_3_pitch_lfo_2
beq.s .o3pl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_pitch_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3pl2: tst.w sy_oscillator_3_pitch_env_2
beq.s .o3pe2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_3_pitch_env_2,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o3pe2: tst.w sy_oscillator_3_pitch_env_3
beq.s .o3pe3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_3_pitch_env_3,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o3pe3: ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #8,d6
move.l d6,sy_oscillator_3_delta
; Update oscillator 1 sync
; -------------------------
move.w sy_oscillator_1_sync,d6
tst.w sy_oscillator_1_sync_lfo_1
beq.s .o1sl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_sync_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1sl1: tst.w sy_oscillator_1_sync_lfo_2
beq.s .o1sl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_sync_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1sl2: tst.w sy_oscillator_1_sync_env_2
beq.s .o1se2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_1_sync_env_2,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o1se2: tst.w sy_oscillator_1_sync_env_3
beq.s .o1se3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_1_sync_env_3,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o1se3: ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #8,d6
move.l d6,sy_oscillator_1_sync_delta
; Update oscillator 2 sync
; -------------------------
move.w sy_oscillator_2_sync,d6
tst.w sy_oscillator_2_sync_lfo_1
beq.s .o2sl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_sync_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2sl1: tst.w sy_oscillator_2_sync_lfo_2
beq.s .o2sl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_sync_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2sl2: tst.w sy_oscillator_2_sync_env_2
beq.s .o2se2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_2_sync_env_2,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o2se2: tst.w sy_oscillator_2_sync_env_3
beq.s .o2se3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_2_sync_env_3,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o2se3: ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #8,d6
move.l d6,sy_oscillator_2_sync_delta
; Update oscillator 3 sync
; -------------------------
move.w sy_oscillator_3_sync,d6
tst.w sy_oscillator_3_sync_lfo_1
beq.s .o3sl1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_sync_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3sl1: tst.w sy_oscillator_3_sync_lfo_2
beq.s .o3sl2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_sync_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3sl2: tst.w sy_oscillator_3_sync_env_2
beq.s .o3se2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_3_sync_env_2,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o3se2: tst.w sy_oscillator_3_sync_env_3
beq.s .o3se3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_3_sync_env_3,d7
swap d7
rol.l #5,d7
add.w d7,d6
.o3se3: ext.l d6
swap d6
divu #SY_SAMPLERATE,d6
ext.l d6
lsl.l #8,d6
move.l d6,sy_oscillator_3_sync_delta
.updok: ; Sum oscillators
; ---------------
moveq #0,d0
; Sum oscillator 1
; ----------------
move.l sy_oscillator_1_position,d7
swap d7
add.w sy_oscillator_1_waveform,d7
move.b (a3,d7.w),d6
move.l sy_oscillator_1_sync_position,d7
swap d7
add.w sy_oscillator_1_waveform,d7
move.b (a3,d7.w),d7
ext.w d6
ext.w d7
add.w d7,d6
asr.w d6
move.w d6,sy_oscillator_1_current
move.w sy_oscillator_1_mix,d6
tst.w sy_oscillator_1_mix_lfo_1
beq.s .o1ml1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1ml1: tst.w sy_oscillator_1_mix_lfo_2
beq.s .o1ml2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_1_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1ml2: tst.w sy_oscillator_1_mix_env_2
beq.s .o1me2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_1_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1me2: tst.w sy_oscillator_1_mix_env_3
beq.s .o1me3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_1_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o1me3: move.w sy_envelope_1_current,d7
lsr.w #4,d7
muls d6,d7
swap d7
rol.l #4,d7
move.w sy_oscillator_1_current,d6
muls d7,d6
rol.l #4,d6
swap d6
add.w d6,d0
; Sum oscillator 2
; ----------------
move.l sy_oscillator_2_position,d7
swap d7
add.w sy_oscillator_2_waveform,d7
move.b (a3,d7.w),d6
move.l sy_oscillator_2_sync_position,d7
swap d7
add.w sy_oscillator_2_waveform,d7
move.b (a3,d7.w),d7
ext.w d6
ext.w d7
add.w d7,d6
asr.w d6
move.w d6,sy_oscillator_2_current
move.w sy_oscillator_2_mix,d6
tst.w sy_oscillator_2_mix_lfo_1
beq.s .o2ml1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2ml1: tst.w sy_oscillator_2_mix_lfo_2
beq.s .o2ml2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_2_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2ml2: tst.w sy_oscillator_2_mix_env_2
beq.s .o2me2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_2_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2me2: tst.w sy_oscillator_2_mix_env_3
beq.s .o2me3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_2_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o2me3: move.w sy_envelope_1_current,d7
lsr.w #4,d7
muls d6,d7
swap d7
rol.l #4,d7
move.w sy_oscillator_2_current,d6
muls d7,d6
rol.l #4,d6
swap d6
add.w d6,d0
; Sum oscillator 3
; ----------------
move.l sy_oscillator_3_position,d7
swap d7
add.w sy_oscillator_3_waveform,d7
move.b (a3,d7.w),d6
move.l sy_oscillator_3_sync_position,d7
swap d7
add.w sy_oscillator_3_waveform,d7
move.b (a3,d7.w),d7
ext.w d6
ext.w d7
add.w d7,d6
asr.w d6
move.w d6,sy_oscillator_3_current
move.w sy_oscillator_3_mix,d6
tst.w sy_oscillator_3_mix_lfo_1
beq.s .o3ml1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3ml1: tst.w sy_oscillator_3_mix_lfo_2
beq.s .o3ml2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_3_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3ml2: tst.w sy_oscillator_3_mix_env_2
beq.s .o3me2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_3_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3me2: tst.w sy_oscillator_3_mix_env_3
beq.s .o3me3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_3_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o3me3: move.w sy_envelope_1_current,d7
lsr.w #4,d7
muls d6,d7
swap d7
rol.l #4,d7
move.w sy_oscillator_3_current,d6
muls d7,d6
rol.l #4,d6
swap d6
add.w d6,d0
; Sum oscillator 1*3
; ------------------
tst.w sy_oscillator_13_fm
bne.w .o4ok
move.w sy_oscillator_1_current,d7
move.w sy_oscillator_3_current,d6
muls d7,d6
asr.w #7,d6
move.w d6,a5
move.w sy_oscillator_13_mix,d6
tst.w sy_oscillator_13_mix_lfo_1
beq.s .o4ml1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_13_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o4ml1: tst.w sy_oscillator_13_mix_lfo_2
beq.s .o4ml2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_13_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o4ml2: tst.w sy_oscillator_13_mix_env_2
beq.s .o4me2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_1_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o4me2: tst.w sy_oscillator_13_mix_env_3
beq.s .o4me3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_13_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o4me3: move.w sy_envelope_1_current,d7
lsr.w #4,d7
muls d6,d7
swap d7
rol.l #4,d7
move.w a5,d6
muls d7,d6
rol.l #4,d6
swap d6
add.w d6,d0
.o4ok:
; Sum oscillator 2*3
; ------------------
tst.w sy_oscillator_23_fm
bne.w .o5ok
move.w sy_oscillator_2_current,d7
move.w sy_oscillator_3_current,d6
muls d7,d6
asr.w #7,d6
move.w d6,a5
move.w sy_oscillator_23_mix,d6
tst.w sy_oscillator_23_mix_lfo_1
beq.s .o5ml1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_23_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o5ml1: tst.w sy_oscillator_23_mix_lfo_2
beq.s .o5ml2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_23_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o5ml2: tst.w sy_oscillator_23_mix_env_2
beq.s .o5me2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_23_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o5me2: tst.w sy_oscillator_23_mix_env_3
beq.s .o5me3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_23_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o5me3: move.w sy_envelope_1_current,d7
lsr.w #4,d7
muls d6,d7
swap d7
rol.l #4,d7
move.w a5,d6
muls d7,d6
rol.l #4,d6
swap d6
add.w d6,d0
.o5ok:
; Sum noise oscillator
; --------------------
move.l sy_oscillator_noise_position,d7
swap d7
add.w #SY_WAVEFORM_NOISE,d7
move.b (a3,d7.w),d6
ext.w d6
move.w d6,a5
move.w sy_oscillator_noise_mix,d6
tst.w sy_oscillator_noise_mix_lfo_1
beq.s .onml1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_noise_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.onml1: tst.w sy_oscillator_noise_mix_lfo_2
beq.s .onml2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_noise_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.onml2: tst.w sy_oscillator_noise_mix_env_2
beq.s .onme2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_noise_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.onme2: tst.w sy_oscillator_noise_mix_env_3
beq.s .onme3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_noise_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.onme3: move.w sy_envelope_1_current,d7
lsr.w #4,d7
muls d6,d7
swap d7
rol.l #4,d7
move.w a5,d6
muls d7,d6
rol.l #4,d6
swap d6
add.w d6,d0
asr.w d0
; Update oscillator 1 sync
; ------------------------
move.l sy_oscillator_1_sync_delta,d6
add.l sy_oscillator_1_delta,d6
add.l d6,sy_oscillator_1_sync_position
and.l #$00ffffff,sy_oscillator_1_sync_position
; Update oscillator 2 sync
; ------------------------
move.l sy_oscillator_2_sync_delta,d6
add.l sy_oscillator_2_delta,d6
add.l d6,sy_oscillator_2_sync_position
and.l #$00ffffff,sy_oscillator_2_sync_position
; Update oscillator 3 sync
; ------------------------
move.l sy_oscillator_3_sync_delta,d6
add.l sy_oscillator_3_delta,d6
add.l d6,sy_oscillator_3_sync_position
and.l #$00ffffff,sy_oscillator_3_sync_position
; Update oscillator 1
; -------------------
move.l sy_oscillator_1_delta,d6
add.l d6,sy_oscillator_1_position
cmp.l #$01000000,sy_oscillator_1_position
bcs.s .osc1o
and.l #$00ffffff,sy_oscillator_1_position
tst.l sy_oscillator_1_sync_delta
beq.s .osc1o
move.l sy_oscillator_1_position,sy_oscillator_1_sync_position
.osc1o:
; Update oscillator 2
; -------------------
move.l sy_oscillator_2_delta,d6
add.l d6,sy_oscillator_2_position
cmp.l #$01000000,sy_oscillator_2_position
bcs.s .osc2o
and.l #$00ffffff,sy_oscillator_2_position
tst.l sy_oscillator_2_sync_delta
beq.s .osc2o
move.l sy_oscillator_2_position,sy_oscillator_2_sync_position
.osc2o:
; Update oscillator 3
; -------------------
move.l sy_oscillator_3_delta,d6
add.l d6,sy_oscillator_3_position
; Oscillator 1 -> oscillator 3 frequency modulation
; -------------------------------------------------
tst.w sy_oscillator_13_fm
beq.w .o13fo
move.w sy_oscillator_13_mix,d6
tst.w sy_oscillator_13_mix_lfo_1
beq.s .o13l1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_13_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o13l1: tst.w sy_oscillator_13_mix_lfo_2
beq.s .o13l2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_13_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o13l2: tst.w sy_oscillator_13_mix_env_2
beq.s .o13e2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_13_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o13e2: tst.w sy_oscillator_13_mix_env_3
beq.s .o13e3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_13_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o13e3: move.w sy_oscillator_1_current,d7
muls d6,d7
swap d7
rol.l #4,d7
ext.l d7
swap d7
divs #SY_SAMPLERATE,d7
ext.l d7
asl.l #8,d7
asl.l #5,d7
add.l d7,sy_oscillator_3_position
add.l d7,sy_oscillator_3_sync_position
and.l #$00ffffff,sy_oscillator_3_sync_position
.o13fo: ; Oscillator 2 -> oscillator 3 frequency modulation
; -------------------------------------------------
tst.w sy_oscillator_23_fm
beq.w .o23fo
move.w sy_oscillator_23_mix,d6
tst.w sy_oscillator_23_mix_lfo_1
beq.s .o23l1
move.l sy_lfo_1_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_1_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_23_mix_lfo_1,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o23l1: tst.w sy_oscillator_23_mix_lfo_2
beq.s .o23l2
move.l sy_lfo_2_position,d7
swap d7
add.w d7,d7
add.w sy_lfo_2_waveform,d7
move.w (a3,d7.w),d7
muls sy_oscillator_23_mix_lfo_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o23l2: tst.w sy_oscillator_23_mix_env_2
beq.s .o23e2
move.w sy_envelope_2_current,d7
lsr.w #4,d7
muls sy_oscillator_23_mix_env_2,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o23e2: tst.w sy_oscillator_23_mix_env_3
beq.s .o23e3
move.w sy_envelope_3_current,d7
lsr.w #4,d7
muls sy_oscillator_23_mix_env_3,d7
swap d7
rol.l #4,d7
add.w d7,d6
.o23e3: move.w sy_oscillator_2_current,d7
muls d6,d7
swap d7
rol.l #4,d7
ext.l d7
swap d7
divs #SY_SAMPLERATE,d7
ext.l d7
asl.l #8,d7
asl.l #5,d7
add.l d7,sy_oscillator_3_position
add.l d7,sy_oscillator_3_sync_position
and.l #$00ffffff,sy_oscillator_3_sync_position
.o23fo: cmp.l #$01000000,sy_oscillator_3_position
bcs.s .osc3o
and.l #$00ffffff,sy_oscillator_3_position
tst.l sy_oscillator_3_sync_delta
beq.s .osc3o
move.l sy_oscillator_3_position,sy_oscillator_3_sync_position
.osc3o:
; Update noise oscillator
; -----------------------
add.l #$00010000,sy_oscillator_noise_position
cmp.l #$01000000,sy_oscillator_noise_position
bcs.s .osc4o
and.l #$00ffffff,sy_oscillator_noise_position
bsr sy_waveform_noise_create
.osc4o:
; Make sure the sound does not clip
; ---------------------------------
cmp.w #-128,d0
bge.s .osclo
moveq #-128,d0
bra.s .oscok
.osclo: cmp.w #127,d0
ble.s .oscok
moveq #127,d0
.oscok: asl.w #5,d0
move.w d0,sy_filter_in
; Update filter frequency and resonance every 64th sample
; -------------------------------------------------------
move.l a6,d6
and.l #63,d6
bne.w .ncoef
; Update filter frequency
; -----------------------
move.w sy_filter_frequency,d6
move.w sy_filter_frequency_lfo_1,d7
beq.s .ffl1o
move.l sy_lfo_1_position,d0
swap d0
add.w d0,d0
add.w sy_lfo_1_waveform,d0
move.w (a3,d0.w),d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.ffl1o: move.w sy_filter_frequency_lfo_2,d7
beq.s .ffl2o
move.l sy_lfo_2_position,d0
swap d0
add.w d0,d0
add.w sy_lfo_2_waveform,d0
move.w (a3,d0.w),d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.ffl2o: move.w sy_filter_frequency_env_2,d7
beq.s .ffe2o
move.w sy_envelope_2_current,d0
lsr.w #4,d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.ffe2o: move.w sy_filter_frequency_env_3,d7
beq.s .ffe3o
move.w sy_envelope_3_current,d0
lsr.w #4,d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.ffe3o: tst.w d6
bge.s .fflok
moveq #0,d6
bra.s .ffok
.fflok: cmp.w #$fff,d6
ble.s .ffok
move.w #$fff,d6
.ffok: move.w d6,sy_filter_frequency_current
; Update filter resonance
; -----------------------
move.w sy_filter_resonance,d6
move.w sy_filter_resonance_lfo_1,d7
beq.s .frl1o
move.l sy_lfo_1_position,d0
swap d0
add.w d0,d0
add.w sy_lfo_1_waveform,d0
move.w (a3,d0.w),d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.frl1o: move.w sy_filter_resonance_lfo_2,d7
beq.s .frl2o
move.l sy_lfo_2_position,d0
swap d0
add.w d0,d0
add.w sy_lfo_2_waveform,d0
move.w (a3,d0.w),d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.frl2o: move.w sy_filter_resonance_env_2,d7
beq.s .fre2o
move.w sy_envelope_2_current,d0
lsr.w #4,d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.fre2o: move.w sy_filter_resonance_env_3,d7
beq.s .fre3o
move.w sy_envelope_3_current,d0
lsr.w #4,d0
muls d7,d0
swap d0
rol.l #4,d0
add.w d0,d6
.fre3o: tst.w d6
bpl.s .frlok
moveq #0,d6
bra.s .frok
.frlok: cmp.w #$fff,d6
ble.s .frok
move.w #$fff,d6
.frok: move.w d6,sy_filter_resonance_current
; Update filter coefficients
; --------------------------
bsr sy_filter_coefficients
.ncoef: ; Apply 24dB resonant filter
; --------------------------
move.w sy_filter_q,d0 ; in -= q * b4;
ext.l d0
muls d4,d0
swap d0
rol.l #4,d0
sub.w d0,sy_filter_in
move.l d1,a1 ; t1 = b1;
move.w sy_filter_in,d0 ; b1 = (in + b0) * p - b1 * f;
add.w d5,d0
ext.l d0
muls sy_filter_p,d0
swap d0
rol.l #4,d0
ext.l d1
muls sy_filter_f,d1
swap d1
rol.l #4,d1
neg.w d1
add.w d0,d1
move.w d2,a2 ; t2 = b2;
move.w a1,d0 ; b2 = (b1 + t1) * p - b2 * f;
add.w d1,d0
ext.l d0
muls sy_filter_p,d0
swap d0
rol.l #4,d0
ext.l d2
muls sy_filter_f,d2
swap d2
rol.l #4,d2
neg.w d2
add.w d0,d2
move.l d3,a1 ; t1 = b3;
move.w a2,d0 ; b3 = (b2 + t2) * p - b3 * f;
add.w d2,d0
ext.l d0
muls sy_filter_p,d0
swap d0
rol.l #4,d0
ext.l d3
muls sy_filter_f,d3
swap d3
rol.l #4,d3
neg.w d3
add.w d0,d3
move.w a1,d0 ; b4 = (b3 + t1) * p - b4 * f;
add.w d3,d0
ext.l d0
muls sy_filter_p,d0
swap d0
rol.l #4,d0
ext.l d4
muls sy_filter_f,d4
swap d4
rol.l #4,d4
neg.w d4
add.w d0,d4
move.w d4,d0 ; b4 = b4 - b4 * b4 * b4 * 0.166667f;
ext.l d0
muls d4,d0
swap d0
rol.l #4,d0
ext.l d0
muls d4,d0
swap d0
rol.l #4,d0
ext.l d0
divs #6,d0
sub.w d0,d4
move.w sy_filter_in,d5 ; b0 = in;
move.w d4,d0
asr.w #5,d0
move.b d0,(a0)+
add.l #1,sy_samples
addq #1,a6
cmp.l sy_buffer_size,a6
bcs .loop
rts
; Calculate filter coefficients
; -----------------------------
sy_filter_coefficients:
movem.l d0-d1,-(sp)
move.w #$0fff,d0 ; q = 1.0f - frequency;
sub.w sy_filter_frequency_current,d0
move.w d0,sy_filter_q
; frequency + 0.8f * frequency * q;
move.w sy_filter_frequency_current,d0
move.w d0,d1
ext.l d1
add.l d1,d1
add.l d1,d1
divs #5,d1 ; d1=0.8*sy_filter_frequency
muls sy_filter_q,d1
swap d1
rol.l #4,d1
add.w d0,d1
move.w d1,sy_filter_p
add.w d1,d1 ; f = p + p - 1.0f;
sub.w #$0fff,d1
move.w d1,sy_filter_f
move.w sy_filter_q,d0 ; q = resonance * (1.0f + 0.5f *
move.w d0,d1 ; q * (1.0f - q + 5.6f * q * q));
muls d1,d0
swap d0
rol.l #4,d0
muls #56,d0
divs #10,d0
sub.w d1,d0
add.w #$0fff,d0
asr.w d0
ext.l d0
muls sy_filter_q,d0
swap d0
rol.l #4,d0
ext.l d0
add.l #$0fff,d0
muls sy_filter_resonance_current,d0
swap d0
rol.l #4,d0
move.w d0,sy_filter_q
movem.l (sp)+,d0-d1
rts
; Create saw waveform
; -------------------
sy_waveform_saw_create:
lea sy_waveform_saw,a0
moveq #127,d0
move.l #256-1,d7
.loop: move.b d0,(a0)+
subq #1,d0
dbra d7,.loop
rts
; Create square waveforms
; -----------------------
sy_waveform_square_create:
movem.l d6-d7/a0,-(sp)
lea sy_waveform_square,a0
move.w sy_oscillator_1_width_current,d6
lsr.w #4,d6
move.w d6,d7
beq.s .o1hok
subq #1,d7
.l1: move.b #127,(a0)+
dbra d7,.l1
.o1hok: neg.w d6
add.w #256,d6
move.w d6,d7
beq.s .o1lok
subq #1,d7
.l2: move.b #-128,(a0)+
dbra d7,.l2
.o1lok: move.w sy_oscillator_2_width_current,d6
lsr.w #4,d6
move.w d6,d7
beq.s .o2hok
subq #1,d7
.l3: move.b #127,(a0)+
dbra d7,.l3
.o2hok: neg.w d6
add.w #256,d6
move.w d6,d7
beq.s .o2lok
subq #1,d7
.l4: move.b #-128,(a0)+
dbra d7,.l4
.o2lok: move.w sy_oscillator_3_width_current,d6
lsr.w #4,d6
move.w d6,d7
beq.s .o3hok
subq #1,d7
.l5: move.b #127,(a0)+
dbra d7,.l5
.o3hok: neg.w d6
add.w #256,d6
move.w d6,d7
beq.s .o3lok
subq #1,d7
.l6: move.b #-128,(a0)+
dbra d7,.l6
.o3lok: movem.l (sp)+,d6-d7/a0
rts
; Create noise waveform
; ---------------------
sy_waveform_noise_create:
movem.l d0-d2/d7/a0,-(sp)
lea sy_waveform_noise,a0
move.l #256-1,d7
.loop: bsr random
move.b d0,(a0)+
dbra d7,.loop
movem.l (sp)+,d0-d2/d7/a0
rts
; Create sinus waveform
; ---------------------
sy_waveform_sinus_create:
lea sinus,a0
lea sy_waveform_sinus,a1
move.l #64-1,d7
.loop: move.b (a0),(a1)+
addq #8,a0
move.b (a0),(a1)+
addq #8,a0
move.b (a0),(a1)+
addq #8,a0
move.b (a0),(a1)+
addq #8,a0
dbra d7,.loop
rts
; Create LFO waveforms
; --------------------
sy_waveform_lfo_create:
; Create saw
; ----------
lea sy_waveform_lfo_saw,a0
move.l #4096-1,d7
.l1: move.w d7,d0
add.w d7,d0
sub.w #4095,d0
move.w d0,(a0)+
dbra d7,.l1
; Create square
; -------------
move.l #2048-1,d7
.l2: move.w #-$fff,(a0)+
dbra d7,.l2
move.l #2048-1,d7
.l3: move.w #$fff,(a0)+
dbra d7,.l3
; Create triangle
; ---------------
moveq #0,d0
move.l #1024-1,d7
.l4: move.w d0,(a0)+
addq #4,d0
dbra d7,.l4
move.l #2048-1,d7
.l5: move.w d0,(a0)+
subq #4,d0
dbra d7,.l5
move.l #1024-1,d7
.l6: move.w d0,(a0)+
addq #4,d0
dbra d7,.l6
rts
; 32 bit random number generator
; ------------------------------
random: moveq #4,d2 ; do this 5 times
move.l sy_random_number,d0 ; get current
.ninc0: moveq #0,d1 ; clear bit count
ror.l #2,d0 ; bit 31 -> carry
bcc.s .ninc1 ; skip increment if =0
addq.b #1,d1 ; else increment bit count
.ninc1: ror.l #3,d0 ; bit 28 -> carry
bcc.s .ninc2 ; skip increment if =0
addq.b #1,d1 ; else increment bit count
.ninc2: rol.l #5,d0 ; restore PRNG longword
roxr.b #1,d1 ; EOR bit into Xb
roxr.l #1,d0 ; shift bit to most significant
dbra d2,.ninc0 ; loop 5 times
move.l d0,sy_random_number ; save back to seed word
rts
; Startup code
; ------------
StartUp:
; Open libraries
; --------------
move.l 4.w,a6
moveq #0,d0
lea name_graphics,a1
jsr _LVOOpenLibrary(a6)
move.l d0,base_graphics
bne .base_graphicsok
move.b #1,quit
rts
.base_graphicsok:
; Get Vector Base Register
; ------------------------
jsr _LVOForbid(a6)
move.w AttnFlags(a6),d0
beq .vbrok ; 68010-040 bits 0-3
lea GetVBR(pc),a5
jsr _LVOSuperVisor(a6)
.vbrok: ; Store old values
; ----------------
move.l tp_vbr,a5
move.l base_graphics,a6
move.l gb_ActiView(a6),gb_ActiView_old
move.l gb_copinit(a6),gb_copinit_old
move.l $6c(a5),vbi_old
move.l $78(a5),cia_old
sub.l a1,a1
ifne FINALVERSION
jsr _LVOLoadView(a6)
endc
jsr _LVOWaitTOF(a6)
jsr _LVOWaitTOF(a6)
; Calculate fade table
; --------------------
lea table_fade,a0
moveq #0,d0
moveq #17-1,d7
.mulu1: moveq #0,d1
moveq #16-1,d6
.mulu2: move.w d1,d2
mulu d0,d2
lsr.w #4,d2
move.b d2,(a0)+
addq #1,d1
dbra d6,.mulu2
addq #1,d0
dbra d7,.mulu1
; Disable DMA and interrupts for now
; ----------------------------------
lea custom,a6
move.w dmaconr(a6),dmaconr_old
move.w intenar(a6),intenar_old
move.w #DMAF_BLITHOG|DMAF_ALL,dmacon(a6)
move.w #$ffff-INTF_SETCLR,intena(a6)
move.w #INTF_BLIT|INTF_VERTB,intreq(a6)
move.w #INTF_BLIT|INTF_VERTB,intreq(a6)
start: clr.b quit
clr.b render
clr.l part
clr.l part_main
clr.l part_vbi
clr.w ne_cl_palette+2
move #(STARTPATTERN-1),tp_patternnumber
move.l #(STARTPATTERN-1)*PATTERNLENGTH,sc_position
; Reset CIA values
; ----------------
move.l tp_vbr,a5
lea custom,a6
lea ciab,a1
ori.b #2,ciaa+ciaprb
clr.b ciacra(a1)
clr.b ciacrb(a1)
move.b #$6b,ciatalo(a1)
move.b #$37,ciatahi(a1)
move.b #$6b,ciatblo(a1)
move.b #1,ciatbhi(a1)
move.b #$7f,ciaicr(a1)
move.b #$83,ciaicr(a1)
move.b #$11,ciacra(a1)
clr.w aud0vol(a6) ; vol (.l clears also dat)
clr.w aud1vol(a6)
clr.w aud2vol(a6)
clr.w aud3vol(a6)
; Set up interrupts and copperlist
; --------------------------------
move.l #interrupt_level3,$6c(a5)
move.l #ne_cl,cop1lch(a6)
; Initialize synth
; ----------------
bsr synth
; Calculate each sample
; ---------------------
lea sy_parameters_list,a0
.smple: tst.b quit
bne.s .smpdn
move.l (a0)+,d0
beq.s .smpdn
move.l (a0)+,d1
move.l #sample,sy_buffer_render
add.l d1,sy_buffer_render
move.l d0,a1
lea sy_buffer_size,a2
move.l #sy_parameters_size-1,d7
.param: move.b (a1)+,(a2)+
dbra d7,.param
movem.l d1/a0,-(sp)
bsr synth_main
movem.l (sp)+,d1/a0
; Clear the first two bytes of the sample (TrackerPacker does this)
; -----------------------------------------------------------------
lea sample,a1
add.l d1,a1
clr.w (a1)
bra.s .smple
.smpdn: ; Disable copperlist, DMA and interrupt for now
; ---------------------------------------------
lea custom,a6
move.w #DMAF_BLITHOG|DMAF_ALL,dmacon(a6)
move.w #$ffff-INTF_SETCLR,intena(a6)
move.l #ne_cl,cop1lch(a6)
; Disable caches
; -------------
move.l 4.w,a6
move.w AttnFlags(a6),d0
beq.s .cache ; 68010-040 bits 0-3
moveq #0,d0
move.l #CACR_CopyBack|CACR_EnableE|CACR_DBE|CACR_ClearD|CACR_EnableD|CACR_FreezeD|CACR_IBE|CACR_ClearI|CACR_FreezeI|CACR_EnableI,d1
jsr _LVOCacheControl(a6)
move.l d0,cachebits_old
.cache: ; Start the module player
; -----------------------
lea module,a0
lea sample,a1
move.l a0,tp_data
move.l a1,tp_samples
jsr tp_init
; Enable interrupts and DMA
; -------------------------
lea custom,a6
move.w #DMAF_SETCLR|DMAF_BLITTER|DMAF_COPPER|DMAF_RASTER,dmacon(a6)
move.w #INTF_SETCLR|INTF_INTEN|INTF_VERTB,intena(a6)
rts
; Shut down and clean up
; ----------------------
ShutDown:
; Disable interrupts and DMA
; --------------------------
lea custom,a6
move.w #INTF_BLIT|INTF_VERTB,intreq(a6)
move.w #INTF_BLIT|INTF_VERTB,intreq(a6)
move.w #$ffff-INTF_SETCLR,intena(a6)
waitb
move.w #DMAF_COPPER,dmacon(a6)
; Stop the module player
; ----------------------
jsr tp_end
; Restore cache
; -------------
move.l 4.w,a6
move.w AttnFlags(a6),d0
beq.s .nocache ; 68010-040 0-3 etc.
move.l cachebits_old,d0
move.l #CACR_CopyBack|CACR_EnableE|CACR_DBE|CACR_ClearD|CACR_EnableD|CACR_FreezeD|CACR_IBE|CACR_ClearI|CACR_FreezeI|CACR_EnableI,d1
jsr _LVOCacheControl(a6)
.nocache:
tst.l loop
bne start
; Restore old values
; ------------------
lea custom,a6
move.l gb_copinit_old,cop1lch(a6)
clr.w copjmp1(a6)
move.l tp_vbr,a5
move.w #DMAF_SETCLR|DMAF_COPPER,dmacon(a6)
move.l vbi_old,$6c(a5)
move.l cia_old,$78(a5)
move.w dmaconr_old,d0
or.w #DMAF_SETCLR,d0
move.w d0,dmacon(a6)
move.w intenar_old,d0
or.w #INTF_SETCLR|INTF_INTEN,d0
move.w d0,intena(a6)
move.l base_graphics,a6
move.l gb_ActiView_old,a1
jsr _LVOLoadView(a6)
jsr _LVOWaitTOF(a6)
jsr _LVOWaitTOF(a6)
move.l 4.w,a6
jsr _LVOPermit(a6)
tst.l base_graphics
beq.b .nobase_graphics
move.l base_graphics,a1
jsr _LVOCloseLibrary(a6)
.nobase_graphics:
tst.l message_dos
beq.b .nomessage
move.l message_dos,a1
jsr _LVOReplyMsg(a6)
.nomessage:
moveq #0,d0
rts
; Get VBR address
; ---------------
GetVBR: ORI #$0700,SR
movec vbr,d0
move.l d0,tp_vbr
RTE
ifne FINALVERSION
; Handle command line arguments and icon tooltypes
; ------------------------------------------------
SystemStartUp:
move.l 4.w,a6
sub.l a1,a1
jsr _LVOFindTask(a6)
move.l d0,a4
tst.l pr_CLI(a4)
bne CLI
lea pr_MsgPort(a4),a0
jsr _LVOWaitPort(a6)
lea pr_MsgPort(a4),a0
jsr _LVOGetMsg(a6)
move.l d0,message_dos
; Get current directory
; ---------------------
moveq #36,d0
lea name_dos,a1
jsr _LVOOpenLibrary(a6)
move.l d0,base_dos
beq .nobase_dos
move.l d0,a6
move.l #string_progdir,d1
move.l #ACCESS_READ,d2
jsr _LVOLock(a6)
move.l d0,lock
beq .nolock
move.l d0,d1
jsr _LVOCurrentDir(a6)
move.l d0,currentdir_old
; Open the icon and get tooltypes
; -------------------------------
move.l 4.w,a6
moveq #0,d0
lea name_icon,a1
jsr _LVOOpenLibrary(a6)
move.l d0,base_icon
beq .nobase_icon
move.l d0,a6
move.l ln_Name(a4),a0
jsr _LVOGetDiskObject(a6)
move.l d0,diskobject
beq .nodiskobject
move.l d0,a0
move.l do_ToolTypes(a0),a0
lea tt_loop,a1 ; LOOP tooltype
jsr _LVOFindToolType(a6)
move.l d0,loop
move.l diskobject,a0
jsr _LVOFreeDiskObject(a6)
.nodiskobject:
move.l 4.w,a6
move.l base_icon,a1
jsr _LVOCloseLibrary(a6)
.nobase_icon:
move.l base_dos,a6
move.l currentdir_old,d1
jsr _LVOCurrentDir(a6)
move.l lock,d1
jsr _LVOUnLock(a6)
.nolock:
move.l 4.w,a6
move.l base_dos,a1
jsr _LVOCloseLibrary(a6)
.nobase_dos:
rts
CLI: ; Handle command line arguments
; -----------------------------
moveq #36,d0
lea name_dos,a1
jsr _LVOOpenLibrary(a6)
move.l d0,base_dos
beq .nobase_dos
move.l d0,a6
move.l #ra_template,d1
move.l #ra_array,d2
moveq #0,d3 ; struct rdargs : NULL
jsr _LVOReadArgs(a6)
move.l d0,ra_rdargs
beq .nordargs
move.l ra_rdargs,d1
jsr _LVOFreeArgs(a6)
.nordargs:
move.l 4.w,a6
move.l base_dos,a1
jsr _LVOCloseLibrary(a6)
.nobase_dos:
StrtOK: rts
endc
;************************************************************************
;** **
;** TrackerPacker V3.1 Replayroutine **
;** **
;** coded by CRAZY CRACK the BlitterBlaster of Complex **
;** **
;** last coding : 26.06.94 **
;** **
;************************************************************************
no=0
yes=1
VLB=1 ;This Version needs the System to be killed. And you have to
;jump to "tp_play" every Vertical Blank !
CIA=0 ;This Version also needs the System to be killed. But will
;replay the module on its own, as long as the level 6 Interrupt
;is active.
SystemCIA=-1 ;Yeah, and this one replays the Module with all the wonderful
;advantages of real CIA-timing. And it uses real System-
;interrupts for it. So it will run perfect with Multitasking !
replaymode=CIA ;what kind of replaying do you want to use ?
pt1.1=no ;protracker v1.1 compatible (default=pt2.0)
syncs=no ;do you use vibrato or tremolo with sync ?
funk=no ;do you use the ef-comand ?
vbruse=yes ;use vectortableoffset ?
volume=no ;use volumesliding ?
split=yes ;use a splitted Song- and Samplefiles
choosestart=yes ;do you want to start the song from any other point than the
;beginning ?
switch=no ;do you want to switch ON/OFF any voices ?
suck=no ;das ya dick wanna b suckd ?
;(sorry, haven't been implementated yet)
tp_init:
lea tp_wait(pc),a0
move #1,(a0)
clr tp_pattcount-tp_wait(a0)
move #6,tp_speed-tp_wait(a0)
move #-1,tp_shitpon-tp_wait(a0)
move.l tp_data(pc),a1
lea 28(a1),a1
move (a1)+,d7
lea (a1,d7.w),a2
lsr #3,d7
move (a2)+,d0
move.l a2,tp_pattadr-tp_wait(a0)
move.l a2,tp_pattadr3-tp_wait(a0)
moveq #0,d1
moveq #0,d2
tp_initpattern:
move (a2)+,d1
cmp d1,d2
bgt.s tp_initpattok
move d1,d2
tp_initpattok:
subq #1,d0
bne.s tp_initpattern
move.l a2,tp_pattadr2-tp_wait(a0)
move.l a2,tp_pattlistadr-tp_wait(a0)
lea 8(a2,d2.w),a2
move (a2)+,d0
move.l a2,tp_pattdataadr-tp_wait(a0)
moveq #30,d6
sub d7,d6
subq #1,d7
lea (a2,d0.w),a3
ifne split
move.l tp_samples(pc),a3
endc
move.l a3,d5
lea tp_instlist(pc),a2
tp_initinst:
moveq #0,d0
move.b (a1)+,d0
mulu #72,d0
add #tp_notelist-tp_wait,d0
move d0,(a2)+
moveq #0,d0
move.b (a1)+,d0
move d0,(a2)+
move.l a3,(a2)+
lea (a3),a4
moveq #0,d0
move (a1)+,d0
add d0,a3
add d0,a3
moveq #0,d1
move (a1)+,d1
add d1,a4
add d1,a4
move.l a4,(a2)+
move d0,(a2)+
move (a1)+,(a2)+
dbra d7,tp_initinst
tst d6
bmi.s tp_initsamplesok
moveq #0,d0
moveq #1,d1
tp_sampleinitloop2:
move.l d0,(a2)+
move.l d5,(a2)+
move.l d5,(a2)+
move.l d1,(a2)+
dbra d6,tp_sampleinitloop2
tp_initsamplesok:
ifne choosestart
move tp_patternnumber(pc),d1
bsr tp_otherpattern
endc
moveq #0,d0
moveq #63,d1
lea tp_voice0dat(pc),a1
move.b d0,51(a1)
move d1,52(a1)
move.b d0,51+58(a1)
move d1,52+58(a1)
move.b d0,51+116(a1)
move d1,52+116(a1)
move.b d0,51+174(a1)
move d1,52+174(a1)
lea $dff002,a5
iflt replaymode
move.l 4.w,a6
jsr -132(a6)
else
move #$2000,$98(a5)
endc
move d0,$a6(a5)
move d0,$b6(a5)
move d0,$c6(a5)
move d0,$d6(a5)
move #$f,$94(a5)
iflt replaymode
move.l 240(a6),a0 ;CIA B Interrupt serverstruktur
move.l (a0),a0 ;CIA B Interruptstruktur
lea -42(a0),a6 ;CIA-Resourcestruktur
move.l a6,tp_ciab_resource
moveq #3,d0
and.b 40(a6),d0
beq.s tp_ciaintfree
move.l 4.w,a6
jsr -138(a6)
moveq #-1,d0
rts
tp_ciaintfree:
lea $bfd000,a1
ori.b #2,$1001(a1)
clr.b $e00(a1)
clr.b $f00(a1)
move.b #$6b,$400(a1)
move.b #$37,$500(a1)
move.b #$6b,$600(a1)
move.b #1,$700(a1)
move.b #$7f,$d00(a1)
move.b #$83,$d00(a1)
move.b #$11,$e00(a1)
moveq #0,d0
lea tp_ciab_timerastruktur(pc),a1
jsr -6(a6)
moveq #1,d0
lea tp_ciab_timerbstruktur(pc),a1
jsr -6(a6)
else
ifgt replaymode
lea tp_dmaonint(pc),a2
else
lea tp_mainint(pc),a2
endc
move.l a2,tp_int1pon-tp_wait(a0)
ifne vbruse
move.l tp_vbr(pc),a1
move.l $78(a1),tp_oldint-tp_wait(a0)
move.l a2,$78(a1)
else
move.l $78.w,tp_oldint-tp_wait(a0)
move.l a2,$78.w
endc
lea tp_voiceloopint(pc),a2
move.l a2,tp_int3pon-tp_wait(a0)
lea $bfd000,a1
ori.b #2,$1001(a1)
ifgt replaymode
clr.b $e00(a1)
endc
clr.b $f00(a1)
ifgt replaymode
move.b #$6b,$400(a1)
move.b #$37,$500(a1)
endc
move.b #$52,$400(a1)
move.b #$38,$500(a1)
move.b #$6b,$600(a1)
move.b #1,$700(a1)
move.b #$7f,$d00(a1)
ifgt replaymode
move.b #$82,$d00(a1)
else
move.b #$83,$d00(a1)
move.b #$11,$e00(a1)
move #$e000,$98(a5)
endc
endc
iflt replaymode
move.l 4.w,a6
jsr -138(a6)
moveq #0,d0
endc
rts
tp_end:
iflt replaymode
move.l 4.w,a6
jsr -132(a6)
move.l tp_ciab_resource(pc),a6
moveq #0,d0
jsr -12(a6)
moveq #1,d0
jsr -12(a6)
lea $dff002,a5
else
lea $dff002,a5
move #$2000,$98(a5)
ifne vbruse
move.l tp_vbr(pc),a1
move.l tp_oldint(pc),$78(a1)
else
move.l tp_oldint(pc),$78.w
endc
endc
moveq #0,d0
move d0,$a6(a5)
move d0,$b6(a5)
move d0,$c6(a5)
move d0,$d6(a5)
move #$f,$94(a5)
iflt replaymode
move.l 4.w,a6
jsr -138(a6)
endc
rts
tp_mainint:
tp_play:
movem.l d0-a5,-(a7)
lea $dff002,a5
ifeq replaymode
move #$2000,$9a(a5)
btst #0,$bfdd00
beq tp_nomainint
endc
moveq #0,d4
lea tp_wait(pc),a0
clr.b tp_dmaon-tp_wait+1(a0)
subq #1,(a0)
beq tp_newline
tp_playeffects:
lea tp_voice0dat+6(pc),a1
move (a1)+,d0
beq.s tp_novoice1
lea $9e(a5),a3
jsr tp_fxplaylist-4(pc,d0.w)
tp_novoice1:
lea tp_voice1dat+6(pc),a1
move (a1)+,d0
beq.s tp_novoice2
lea $ae(a5),a3
jsr tp_fxplaylist-4(pc,d0.w)
tp_novoice2:
lea tp_voice2dat+6(pc),a1
move (a1)+,d0
beq.s tp_novoice3
lea $be(a5),a3
jsr tp_fxplaylist-4(pc,d0.w)
tp_novoice3:
lea tp_voice3dat+6(pc),a1
move (a1)+,d0
beq.s tp_novoice4
lea $ce(a5),a3
jsr tp_fxplaylist-4(pc,d0.w)
tp_novoice4:
move.b tp_dmaon+1(pc),d4
ifne funk
beq tp_funkit
bra tp_initnewsamples
else
bne tp_initnewsamples
movem.l (a7)+,d0-a5
ifeq replaymode
nop
rte
else
rts
endc
endc
tp_fxplaylist:
bra tp_voicefx1
bra tp_voicefx2
bra tp_voicefx3
bra tp_voicefx4
bra tp_voicefx5
bra tp_voicefx6
bra tp_voicefx7
bra tp_voicefx0
bra tp_voicefxe9do
bra tp_voicefxa
bra tp_voicefxecdo
bra tp_voicefxeddo
tp_newline:
add.l #1,sc_position
move tp_speed(pc),(a0)
tst tp_pattdelay-tp_wait(a0)
beq.s tp_nopatterndelay
subq #1,tp_pattdelay-tp_wait(a0)
bra tp_playeffects
tp_nopatterndelay:
tst tp_pattrepeat-tp_wait(a0)
bne.s tp_repeatit
subq #1,tp_pattcount-tp_wait(a0)
bpl tp_playline
move #63,tp_pattcount-tp_wait(a0)
move.l tp_pattadr(pc),a1
move (a1)+,tp_pattadrpon-tp_wait(a0)
cmp.l tp_pattadr2(pc),a1
blt.s tp_pattadrok
move.l tp_pattadr3(pc),a1
tp_pattadrok:
move.l a1,tp_pattadr-tp_wait(a0)
tp_repeatit:
clr tp_pattrepeat-tp_wait(a0)
move tp_pattadrpon(pc),d0
move.l tp_pattlistadr(pc),a1
movem (a1,d0.w),d0-d3
moveq #-2,d4
move.l tp_pattdataadr(pc),a1
move.b d4,tp_voice0dat-tp_wait+1(a0)
add.l a1,d0
move.l d0,tp_voice0dat-tp_wait+2(a0)
move.b d4,tp_voice1dat-tp_wait+1(a0)
add.l a1,d1
move.l d1,tp_voice1dat-tp_wait+2(a0)
move.b d4,tp_voice2dat-tp_wait+1(a0)
add.l a1,d2
move.l d2,tp_voice2dat-tp_wait+2(a0)
move.b d4,tp_voice3dat-tp_wait+1(a0)
add.l a1,d3
move.l d3,tp_voice3dat-tp_wait+2(a0)
move tp_shitpon(pc),d0
bne.s tp_noshit
moveq #1,d0
bra.s tp_shit
tp_noshit:
moveq #0,d0
tp_shit:
add tp_newpattpos(pc),d0
beq.s tp_playline
cmp.w #64,d0
bne.s tp_pattinrange
clr tp_newpattpos-tp_wait(a0)
clr tp_pattcount-tp_wait(a0)
moveq #-1,d7
move d7,tp_shitpon-tp_wait(a0)
bra tp_nopatterndelay
tp_pattinrange:
sub d0,tp_pattcount-tp_wait(a0)
clr tp_newpattpos-tp_wait(a0)
lea tp_voice0dat+2(pc),a1
subq #1,d0
moveq #3,d7
tp_pattinitloop:
move d0,d6
moveq #0,d2
move.l (a1),a2
tp_pattsearchloop:
move.b (a2)+,d1
bmi.s tp_pattslab1
moveq #$f,d1
and.b (a2)+,d1
beq.s tp_pattslab3
bra.s tp_pattslab2
tp_pattslab1:
add.b d1,d1
bpl.s tp_pattslab2
asr.b #1,d1
addq.b #1,d1
add.b d1,d6
bpl.s tp_pattslab3
add.b d6,d6
subq.b #2,d6
move d6,d2
moveq #0,d6
bra.s tp_pattslab3
tp_pattslab2:
addq.l #1,a2
tp_pattslab3:
dbra d6,tp_pattsearchloop
move.b d2,-1(a1)
move.l a2,(a1)
lea 58(a1),a1
dbra d7,tp_pattinitloop
tp_playline:
move #$1f0,d3
move #-1,tp_shitpon-tp_wait(a0)
lea tp_voice0dat+1(pc),a1
addq.b #2,(a1)+
bmi.s tp_playvoice0end
moveq #1,d4
lea $9e(a5),a3
bsr tp_playvoice
tp_playvoice0end:
move 26(a1),$a4(a5)
lea tp_voice1dat+1(pc),a1
addq.b #2,(a1)+
bmi.s tp_playvoice1end
moveq #2,d4
lea $ae(a5),a3
bsr tp_playvoice
tp_playvoice1end:
move 26(a1),$b4(a5)
lea tp_voice2dat+1(pc),a1
addq.b #2,(a1)+
bmi.s tp_playvoice2end
moveq #4,d4
lea $be(a5),a3
bsr tp_playvoice
tp_playvoice2end:
move 26(a1),$c4(a5)
lea tp_voice3dat+1(pc),a1
addq.b #2,(a1)+
bmi.s tp_playvoice3end
moveq #8,d4
lea $ce(a5),a3
bsr.s tp_playvoice
tp_playvoice3end:
move 26(a1),$d4(a5)
move.b tp_dmaon+1(pc),d4
tp_initnewsamples:
ifne switch
move.b tp_voiceoff(pc),d3
not.b d3
and.b d3,d4
move.b d4,tp_dmaon+1-tp_wait(a0)
endc
move d4,$94(a5)
ifeq replaymode
lea tp_dmaonint(pc),a1
ifne vbruse
move.l tp_vbr(pc),a2
move.l a1,$78(a2)
else
move.l a1,$78.w
endc
endc
ifgt replaymode
move #$e000,$98(a5)
endc
move.b #$19,$bfdf00
ifne funk
tp_funkit:
lea tp_voice0dat+48(pc),a1
moveq #3,d7
tp_funkloop:
move.b (a1)+,d4
beq.s tp_funkend
move.b tp_funklist-tp_wait(a0,d4.w),d4
add.b d4,(a1)
bpl.s tp_funkend
clr.b (a1)
move.l -31(a1),a2
movem -25(a1),d0-d1
addq #1,d1
add d0,d0
cmp d0,d1
blo.s tp_funkok
moveq #0,d1
tp_funkok:
not.b (a2,d1.w)
move d1,-23(a1)
tp_funkend:
lea 57(a1),a1
dbra d7,tp_funkloop
endc
tp_nomainint:
movem.l (a7)+,d0-a5
ifeq replaymode
nop
rte
else
rts
endc
tp_playvoice:
move.l (a1)+,a2
moveq #0,d0
move.b (a2)+,d0
bmi tp_playnonewnote
moveq #0,d1
move.b (a2)+,d1
moveq #$f,d2
and.b d1,d2
beq.s tp_noeffect
move.b (a2)+,3(a1)
add d2,d2
add d2,d2
tp_noeffect:
move d2,(a1)
add.b d0,d0
bpl.s tp_noupperinst
eor.b #$fe,d0
bset #8,d1
tp_noupperinst:
and d3,d1
beq.s tp_nonewinst
move.w d1,d5
lsr.w #4,d5
movem.l tp_instlist-tp_wait-16(a0,d1.w),d5-d7/a4
movem.l d5-d7/a4,4(a1)
ifne switch
move.b tp_voiceoff(pc),d6
and.b d4,d6
bne.s tp_no1
ifne volume
mulu tp_volume(pc),d5
lsr #8,d5
endc
move d5,8(a3)
tp_no1 else
ifne volume
mulu tp_volume(pc),d5
lsr #8,d5
endc
move d5,8(a3)
endc
ifne funk
clr 20(a1)
endc
tp_nonewinst:
move.l a2,-(a1)
tst d0
beq.s tp_newnoteend
jsr tp_fxinitlist(pc,d2.w)
add 8(a1),d0
move -2(a0,d0.w),26(a1)
or.b d4,tp_dmaon-tp_wait+1(a0)
ifne syncs
tst.b 32(a1)
beq.s tp_novibnoc
clr.b 35(a1)
tp_novibnoc:
tst.b 38(a1)
beq.s tp_notremnoc
clr.b 41(a1)
tp_notremnoc:
endc
ifne switch
move.b tp_voiceoff(pc),d5
and.b d4,d5
bne.s tp_no2
move.l 12(a1),(a3)+
move 20(a1),(a3)
tp_no2 else
move.l 12(a1),(a3)+
move 20(a1),(a3)
endc
rts
tp_playnonewnote:
add.b d0,d0
bmi.s tp_donothing
move d0,(a1)
move.b (a2)+,3(a1)
move.l a2,-(a1)
move d0,d2
moveq #0,d0
tp_newnoteend:
jmp tp_fxinitlist(pc,d2.w)
tp_donothing:
clr (a1)
move.l a2,-(a1)
ifne pt1.1
move.b d0,-(a1)
addq.l #6,(a7)
else
move.b d0,-1(a1)
endc
tp_fxinitlist:
rts
nop
rts
nop
rts
nop
bra tp_voicefx3init
bra tp_voicefx4init
bra tp_voicefx5init
rts
nop
bra tp_voicefx7init
bra tp_voicefx0init
bra tp_voicefx9
rts
nop
bra tp_voicefxb
bra tp_voicefxc
bra tp_voicefxd
bra tp_voicefxeinit
tp_voicefxf:
clr 4(a1)
move 6(a1),d1
bne spdoke
move.b #1,quit
spdoke: cmp #32,d1
bge.s tp_voicefxcia
move d1,tp_speed-tp_wait(a0)
move d1,(a0)
rts
tp_voicefxcia:
ifle replaymode
move.l #1773447,d2
divu d1,d2
move.b d2,$bfd400
lsr #8,d2
move.b d2,$bfd500
endc
rts
tp_voicefx0init:
tst d0
beq.s tp_voicefx0initlab1
cmp #70,d0
beq.s tp_voicefx0end
add 8(a1),d0
lea -2(a0,d0.w),a4
move.l a4,52(a1)
addq.l #4,(a7)
rts
tp_voicefx0initlab1:
move 8(a1),d2
lea 70(a0,d2.w),a4
move.l a4,d2
lea -34(a4),a4
move 26(a1),d1
cmp (a4),d1
bhs.s .high18
lea 18(a4),a4
cmp (a4),d1
bhs.s .high10
.low8:
addq #8,a4
cmp (a4),d1
bhs.s .high6
.low4:
addq #4,a4
cmp (a4),d1
bhs.s .high2
.low2:
addq #4,a4
cmp (a4),d1
bhs.s .high2
.low0:
addq #2,a4
cmp (a4),d1
bhs.s .found
subq #2,a4
bra.s .found
.high18:
lea -18(a4),a4
cmp (a4),d1
blt.s .low8
.high10:
lea -10(a4),a4
cmp (a4),d1
blt.s .low4
.high6:
subq #6,a4
cmp (a4),d1
blt.s .low2
.high2:
cmp -(a4),d1
blt.s .low0
.found:
cmp.l a4,d2
beq.s tp_voicefx0end
move.l a4,52(a1)
rts
tp_voicefx0end:
clr 4(a1)
rts
dc.b 1,0,-1,1,0,-1,1,0,-1,1,0,-1,1,0,-1,1
dc.b 0,-1,1,0,-1,1,0,-1,1,0,-1,1,0,-1,1,0
tp_voicefx0:
move (a1)+,d1
move 18(a1),d0
move (a0),d2
sub tp_speed(pc),d2
move.b tp_voicefx0-1(pc,d2.w),d2
beq.s tp_arp0
bmi.s tp_arp2
lsr #4,d1
bra.s tp_arp1
tp_arp2:
and #$f,d1
tp_arp1:
move.l 44(a1),a4
add d1,d1
ifne switch
move.b tp_voiceoff(pc),d5
and.b -10(a1),d5
bne.s tp_no3
move (a4,d1.w),6(a3)
tp_no3:
else
move (a4,d1.w),6(a3)
endc
rts
tp_arp0:
ifne switch
move.b tp_voiceoff(pc),d5
and.b -10(a1),d5
bne.s tp_no4
move d0,6(a3)
tp_no4: else
move d0,6(a3)
endc
rts
tp_voicefx1:
move 20(a1),d1
sub (a1),d1
and #$fff,d1
moveq #113,d2
cmp d2,d1
bpl.s tp_voicefx1lab1
move d2,d1 ;and #$f000,d0;or d1,d0 ???
tp_voicefx1lab1:
move d1,20(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no5
move d1,6(a3)
tp_no5: else
move d1,6(a3)
endc
rts
tp_voicefx2:
move 20(a1),d1
add (a1),d1
cmp #856,d1
bmi.s tp_voicefx2lab1
move #856,d1
clr -2(a1)
tp_voicefx2lab1:
move d1,20(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no6
move d1,6(a3)
tp_no6: else
move d1,6(a3)
endc
rts
tp_voicefx3init:
move 6(a1),d1
beq.s tp_voicefx5init
tst 30(a1)
bpl.s tp_fx3initnochange
neg d1
tp_fx3initnochange:
move d1,30(a1)
tp_voicefx5init:
tst d0
beq.s tp_voicefx3initlab6
addq.l #4,a7
addq.l #6,(a7)
move 8(a1),d2
; cmp #72*8+(tp_notelist-tp_wait),d2
; blt.s tp_voicefx3initlab3
; subq #2,d0
; bgt.s tp_voicefx3initlab3
; moveq #2,d0
tp_voicefx3initlab3:
add d0,d2
move -2(a0,d2.w),d0
move d0,28(a1)
sub 26(a1),d0
bpl.s tp_voicefx3initlab5
tst 30(a1)
bmi.s tp_voicefx3initlab4
neg 30(a1)
tp_voicefx3initlab4:
rts
tp_voicefx3initlab5:
tst 30(a1)
bpl.s tp_voicefx3initlab6
neg 30(a1)
tp_voicefx3initlab6:
rts
tp_voicefx3:
move 22(a1),d2
beq.s tp_voicefx3end
move 24(a1),d1
bmi.s tp_voicefx3sub
add 20(a1),d1
cmp d2,d1
blt.s tp_voicefx3ok
bra.s tp_voicefx3setok
tp_voicefx3sub:
add 20(a1),d1
cmp d2,d1
bgt.s tp_voicefx3ok
tp_voicefx3setok:
move d2,d1
clr 22(a1)
clr -2(a1)
tp_voicefx3ok:
move d1,20(a1)
tst.b 42(a1)
beq.s tp_voicefx3skip
move 2(a1),d2
lea (a0,d2.w),a4
moveq #35,d2
tp_voicefx3search:
cmp (a4)+,d1
bhs.s tp_voicefx3notefound
dbra d2,tp_voicefx3search
tp_voicefx3notefound:
move -2(a4),d1
tp_voicefx3skip:
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no15
move d1,6(a3)
tp_no15:
else
move d1,6(a3)
endc
tp_voicefx3end:
rts
tp_voicefx5:
bsr.s tp_voicefx3
bra.s tp_voicefxa
tp_voicefx4init:
move 6(a1),d1
beq.s tp_voicefx4initend
moveq #$f,d2
and d1,d2
beq.s tp_voicefx4initlab1
move d2,36(a1)
tp_voicefx4initlab1:
and #$f0,d1
beq.s tp_voicefx4initend
lsr #2,d1
move.b d1,34(a1)
tp_voicefx4initend:
rts
tp_voicefx4:
moveq #$7f,d0
and.b 29(a1),d0
move.b 27(a1),d2
beq.s tp_voicefx4sine
add d0,d0
subq.b #1,d2
beq.s tp_voicefx4rampdown
st d0
bra.s tp_voicefx4set
tp_voicefx4rampdown:
tst.b 29(a1)
bpl.s tp_voicefx4set
not.b d0
bra.s tp_voicefx4set
tp_voicefx4sine:
lsr #2,d0
move.b tp_vibratolist-tp_wait(a0,d0.w),d0
tp_voicefx4set:
mulu 30(a1),d0
lsr #7,d0
tst.b 29(a1)
bpl.s tp_voicefx4nosub
neg d0
tp_voicefx4nosub:
add 20(a1),d0
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no7
move d0,6(a3)
tp_no7: else
move d0,6(a3)
endc
move.b 28(a1),d0
add.b d0,29(a1)
rts
tp_voicefx6:
bsr.s tp_voicefx4
tp_voicefxa:
move (a1),d1
add.b 5(a1),d1
bmi.s tp_voicefxalab1
moveq #$40,d2
cmp.b d2,d1
bcs.s tp_voicefxaend
move d2,d1
clr -2(a1)
bra.s tp_voicefxaend
tp_voicefxalab1:
moveq #0,d1
clr -2(a1)
tp_voicefxaend:
move d1,4(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no8
ifne volume
mulu tp_volume(pc),d1
lsr #8,d1
endc
move d1,8(a3)
tp_no8: else
ifne volume
mulu tp_volume(pc),d1
lsr #8,d1
endc
move d1,8(a3)
endc
rts
tp_voicefx7init:
move 6(a1),d1
beq.s tp_voicefx7initend
moveq #$f,d2
and d1,d2
beq.s tp_voicefx7initlab1
move d2,42(a1)
tp_voicefx7initlab1:
and #$f0,d1
beq.s tp_voicefx7initend
lsr #2,d1
move.b d1,40(a1)
tp_voicefx7initend:
rts
tp_voicefx7:
moveq #$7f,d0
and.b 35(a1),d0
move.b 33(a1),d2
beq.s tp_voicefx7sine
add d0,d0
subq.b #1,d2
beq.s tp_voicefx7rampdown
st d0
bra.s tp_voicefx7set
tp_voicefx7rampdown:
tst.b 35(a1)
bpl.s tp_voicefx7set
not.b d0
bra.s tp_voicefx7set
tp_voicefx7sine:
lsr #2,d0
move.b tp_vibratolist-tp_wait(a0,d0.w),d0
tp_voicefx7set:
mulu 36(a1),d0
lsr #7,d0
tst.b 35(a1)
bpl.s tp_voicefx7nosub
neg d0
tp_voicefx7nosub:
add 4(a1),d0
bpl.s tp_voicefx7noneg
clr d0
bra.s tp_voicefx7ok
tp_voicefx7noneg:
moveq #40,d1
cmp d1,d0
bls.s tp_voicefx7ok
move d1,d0
tp_voicefx7ok:
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no9
ifne volume
mulu tp_volume(pc),d1
lsr #8,d1
endc
move d1,8(a3)
tp_no9: else
ifne volume
mulu tp_volume(pc),d1
lsr #8,d1
endc
move d1,8(a3)
endc
move.b 34(a1),d0
add.b d0,35(a1)
rts
tp_voicefx9:
tst d0
beq.s tp_voicefx9normal
ifne funk
moveq #0,d1
move.b 46(a1),d1
beq.s tp_voicefx9funkend
move.b tp_funklist-tp_wait(a0,d1.w),d1
add.b d1,47(a1)
bpl.s tp_voicefx9funkend
clr.b 47(a1)
move.l 16(a1),a2
movem 22(a1),d1-d2
addq #1,d2
add d1,d1
cmp d1,d2
blo.s tp_voicefx9funkok
moveq #0,d2
tp_voicefx9funkok:
not.b (a2,d2.w)
move d2,24(a1)
tp_voicefx9funkend:
endc
move.l (a7),-(a7)
lea tp_voicefx9after(pc),a4
move.l a4,4(a7)
tp_voicefx9normal:
clr 4(a1)
moveq #0,d1
move 6(a1),d1
beq.s tp_voicefx9after
lsl #7,d1
move d1,44(a1)
tp_voicefx9after:
move 44(a1),d1
sub d1,20(a1)
ble.s tp_voicefx9skip
add d1,d1
add.l d1,12(a1)
rts
tp_voicefx9skip:
move #1,20(a1)
rts
tp_voicefxb:
clr 4(a1)
move 6(a1),d1
clr tp_pattcount-tp_wait(a0)
tp_otherpattern:
move.l tp_pattadr3(pc),a1
add.w d1,d1
add.w d1,a1
move.l a1,tp_pattadr-tp_wait(a0)
rts
tp_voicefxc:
move 6(a1),d1
move d1,10(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b d4,d5
bne.s tp_no10
ifne volume
mulu tp_volume(pc),d1
lsr #8,d1
endc
move d1,8(a3)
tp_no10:
else
ifne volume
mulu tp_volume(pc),d1
lsr #8,d1
endc
move d1,8(a3)
endc
clr 4(a1)
rts
tp_voicefxd:
clr 4(a1)
clr tp_pattcount-tp_wait(a0)
move 6(a1),tp_newpattpos-tp_wait(a0)
clr.b tp_shitpon-tp_wait(a0)
rts
tp_voicefxeinit:
moveq #-$10,d1
and 6(a1),d1
lsr #2,d1
jmp tp_voicefxeinitlist(pc,d1.w)
tp_voicefxeinitlist:
bra tp_voicefxe0
bra tp_voicefxe1
bra tp_voicefxe2
bra tp_voicefxe3
bra tp_voicefxe4
bra tp_voicefxe5
bra tp_voicefxe6
bra tp_voicefxe7
rts
nop
bra tp_voicefxe9
bra tp_voicefxea
bra tp_voicefxeb
bra tp_voicefxec
bra tp_voicefxed
bra tp_voicefxee
tp_voicefxef:
clr 4(a1)
ifne funk
moveq #$f,d2
and 6(a1),d2
move.b d2,46(a1)
endc
rts
tp_voicefxe0:
clr 4(a1)
moveq #1,d2
and 6(a1),d2
bne.s tp_voicefxe0clr
bclr #1,$bfe001
rts
tp_voicefxe0clr:
bset d2,$bfe001
rts
tp_voicefxe1:
tst d0
beq.s tp_voicefxe1ok
move 8(a1),d1
add d0,d1
move -2(a0,d1.w),26(a1)
moveq #10,d0
add.l d0,(a7)
tp_voicefxe1ok:
addq.l #4,a1
clr (a1)+
and #$f,(a1)
bsr tp_voicefx1
subq.l #6,a1
rts
tp_voicefxe2:
tst d0
beq.s tp_voicefxe2ok
move 8(a1),d1
add d0,d1
move -2(a0,d1.w),26(a1)
moveq #10,d0
add.l d0,(a7)
tp_voicefxe2ok:
addq.l #4,a1
clr (a1)+
and #$f,(a1)
bsr tp_voicefx2
subq.l #6,a1
rts
tp_voicefxe3:
clr 4(a1)
moveq #$f,d2
and 6(a1),d2
move.b d2,48(a1)
rts
tp_voicefxe4:
clr 4(a1)
moveq #$3,d2
and 6(a1),d2
move.b d2,33(a1)
btst #2,6(a1)
beq.s tp_voicefxe4ok
st 32(a1)
rts
tp_voicefxe4ok:
clr.b 32(a1)
rts
tp_voicefxe5:
clr 4(a1)
moveq #$f,d2
and 6(a1),d2
mulu #72,d2
add #tp_notelist-tp_wait,d2
move d2,8(a1)
rts
tp_voicefxe6:
clr 4(a1)
moveq #$f,d2
and 6(a1),d2
beq.s tp_voicefxe6start
subq.b #1,49(a1)
beq.s tp_voicefxe6end
bpl.s tp_voicefxe6doloop
move.b d2,49(a1)
tp_voicefxe6doloop:
moveq #63,d2
move d2,tp_pattcount-tp_wait(a0)
sub 50(a1),d2
move d2,tp_newpattpos-tp_wait(a0)
st tp_pattrepeat-tp_wait(a0)
tp_voicefxe6end:
rts
tp_voicefxe6start:
move tp_pattcount(pc),50(a1)
rts
tp_voicefxe7:
clr 4(a1)
moveq #$f,d2
and 6(a1),d2
move.b d2,39(a1)
btst #2,6(a1)
beq.s tp_voicefxe7ok
st 38(a1)
rts
tp_voicefxe7ok:
clr.b 38(a1)
rts
tp_voicefxe9:
move #$9*4,4(a1)
and #$f,6(a1)
beq.s tp_voicefxe9clear
tst d0
bne.s tp_voicefxe9end
tp_voicefxe9clear:
clr 4(a1)
tp_voicefxe9end:
rts
tp_voicefxe9do:
moveq #0,d1
move tp_speed(pc),d1
sub (a0),d1
divu (a1),d1
swap d1
tst d1
bne.s tp_voicefxe9end
tp_voicefxe9play:
move.b -8(a1),d1
or.b d1,tp_dmaon-tp_wait+1(a0)
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no11
move.l 6(a1),(a3)+
move 14(a1),(a3)
tp_no11:
else
move.l 6(a1),(a3)+
move 14(a1),(a3)
endc
rts
tp_voicefxea:
addq.l #4,a1
clr (a1)+
and #$f,(a1)
bsr tp_voicefxa
subq.l #6,a1
rts
tp_voicefxeb:
addq.l #4,a1
clr (a1)+
and #$f,(a1)
neg.b 1(a1)
bsr tp_voicefxa
subq.l #6,a1
rts
tp_voicefxec:
move #$b*4,4(a1)
and #$f,6(a1)
bne.s tp_voicefxecend
clr 4(a1)
clr 10(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b d4,d5
bne.s tp_no12
clr 8(a3)
tp_no12:
else
clr 8(a3)
endc
tp_voicefxecend:
rts
tp_voicefxecdo:
subq #1,(a1)
bne.s tp_voicefxecend
clr -(a1)
clr 6(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b -6(a1),d5
bne.s tp_no13
clr 8(a3)
tp_no13:
else
clr 8(a3)
endc
rts
tp_voicefxed:
move #$c*4,4(a1)
tst d0
beq.s tp_voicefxednoinit
and #$f,6(a1)
beq.s tp_voicefxednoinit
add 8(a1),d0
move -2(a0,d0.w),26(a1)
addq #4,a7
addq.l #6,(a7)
rts
tp_voicefxednoinit:
clr 4(a1)
tp_voicefxedend:
rts
tp_voicefxeddo:
subq #1,(a1)
bne.s tp_voicefxedend
clr -2(a1)
ifne switch
move.b tp_voiceoff(pc),d5
and.b -8(a1),d5
bne.s tp_no14
move 20(a1),6(a3)
tp_no14:
else
move 20(a1),6(a3)
endc
bra tp_voicefxe9play
tp_voicefxee:
clr 4(a1)
moveq #$f,d1
and 6(a1),d1
move d1,tp_pattdelay-tp_wait(a0)
clr.b tp_shitpon-tp_wait+1(a0)
rts
tp_dmaonint:
iflt replaymode
move.l a0,-(a7)
move.b #$19,$bfdf00
move tp_dmaon(pc),$dff096
move.l tp_ciab_resource(pc),a0
move.l #tp_voiceloopint,80(a0)
move.l (a7)+,a0
rts
else
btst #1,$bfdd00
beq.s tp_nodmaonint
move.b #$19,$bfdf00
move tp_dmaon(pc),$dff096
ifne vbruse
move.l a0,-(a7)
move.l tp_vbr(pc),a0
move.l tp_int3pon(pc),$78(a0)
move.l (a7)+,a0
else
move.l tp_int3pon(pc),$78.w
endc
tp_nodmaonint:
move #$2000,$dff09c
nop
rte
endc
tp_voiceloopint:
iflt replaymode
move.l a0,-(a7)
else
btst #1,$bfdd00
beq.s tp_novoiceloopint
endc
ifne switch
btst #0,tp_voiceoff
bne.s tp_intnovoice0
move.l tp_voice0dat+18(pc),$dff0a0
move tp_voice0dat+24(pc),$dff0a4
tp_intnovoice0
btst #1,tp_voiceoff
bne.s tp_intnovoice1
move.l tp_voice1dat+18(pc),$dff0b0
move tp_voice1dat+24(pc),$dff0b4
tp_intnovoice1
btst #2,tp_voiceoff
bne.s tp_intnovoice2
move.l tp_voice2dat+18(pc),$dff0c0
move tp_voice2dat+24(pc),$dff0c4
tp_intnovoice2
btst #3,tp_voiceoff
bne.s tp_intnovoice3
move.l tp_voice3dat+18(pc),$dff0d0
move tp_voice3dat+24(pc),$dff0d4
tp_intnovoice3
else
move.l tp_voice0dat+18(pc),$dff0a0
move tp_voice0dat+24(pc),$dff0a4
move.l tp_voice1dat+18(pc),$dff0b0
move tp_voice1dat+24(pc),$dff0b4
move.l tp_voice2dat+18(pc),$dff0c0
move tp_voice2dat+24(pc),$dff0c4
move.l tp_voice3dat+18(pc),$dff0d0
move tp_voice3dat+24(pc),$dff0d4
endc
iflt replaymode
move.l tp_ciab_resource(pc),a0
move.l #tp_dmaonint,80(a0)
move.l (a7)+,a0
rts
else
ifne vbruse
move.l a0,-(a7)
move.l tp_vbr(pc),a0
move.l tp_int1pon(pc),$78(a0)
move.l (a7)+,a0
else
move.l tp_int1pon(pc),$78.w
endc
tp_novoiceloopint:
move #$2000,$dff09c
nop
rte
endc
tp_shitpon:dc -1
tp_pattcount:dc 1
tp_wait:dc 1
tp_pattadr:dc.l 0
tp_pattadr2:dc.l 0
tp_pattadr3:dc.l 0
tp_pattlistadr:dc.l 0
tp_pattdataadr:dc.l 0
tp_oldint:dc.l 0
tp_int1pon:dc.l 0
tp_int3pon:dc.l 0
tp_newpattpos:dc 0
tp_pattdelay:dc 0
tp_pattrepeat:dc 0
tp_pattadrpon:dc 0
ifne choosestart
tp_patternnumber:dc 0
endc
tp_data:dc.l 0
ifne split
tp_samples:dc.l 0
endc
ifne switch
tp_voiceoff:dc.b %0000 ;Bitx=Voicex (0=ON,1=OFF)
even
endc
tp_dmaon:dc $8000
tp_funklist:
dc.b 0,5,6,7,8,10,11,13,16,19,22,26,32,43,64,128
tp_vibratolist:
dc.b 0,24,49,74,97,120,141,161
dc.b 180,197,212,224,235,244,250,253
dc.b 255,253,250,244,235,224,212,197
dc.b 180,161,141,120,97,74,49,24
tp_instlist:blk.b 31*16,0
tp_speed:dc 6
ifne vbruse
tp_vbr:dc.l 0
endc
ifne volume
tp_volume:dc 255 ;0=off,255=max. volume
endc
iflt replaymode
tp_ciab_resource dc.l 0
tp_ciab_timerastruktur
dc.l 0,0
dc.b 2,0
dc.l tp_timeraname
dc.l 0,tp_mainint
tp_ciab_timerbstruktur
dc.l 0,0
dc.b 2,0
dc.l tp_timerbname
dc.l 0,tp_dmaonint
tp_timeraname
dc.b "TP_TimerA",0
tp_timerbname
dc.b "TP_TimerB",0
even
endc
tp_notelist:
dc 856,808,762,720,678,640,604,570,538,508,480,453
dc 428,404,381,360,339,320,302,285,269,254,240,226
dc 214,202,190,180,170,160,151,143,135,127,120,113
dc 850,802,757,715,674,637,601,567,535,505,477,450
dc 425,401,379,357,337,318,300,284,268,253,239,225
dc 213,201,189,179,169,159,150,142,134,126,119,113
dc 844,796,752,709,670,632,597,563,532,502,474,447
dc 422,398,376,355,335,316,298,282,266,251,237,224
dc 211,199,188,177,167,158,149,141,133,125,118,112
dc 838,791,746,704,665,628,592,559,528,498,470,444
dc 419,395,373,352,332,314,296,280,264,249,235,222
dc 209,198,187,176,166,157,148,140,132,125,118,111
dc 832,785,741,699,660,623,588,555,524,495,467,441
dc 416,392,370,350,330,312,294,278,262,247,233,220
dc 208,196,185,175,165,156,147,139,131,124,117,110
dc 826,779,736,694,655,619,584,551,520,491,463,437
dc 413,390,368,347,328,309,292,276,260,245,232,219
dc 206,195,184,174,164,155,146,138,130,123,116,109
dc 820,774,730,689,651,614,580,547,516,487,460,434
dc 410,387,365,345,325,307,290,274,258,244,230,217
dc 205,193,183,172,163,154,145,137,129,122,115,109
dc 814,768,725,684,646,610,575,543,513,484,457,431
dc 407,384,363,342,323,305,288,272,256,242,228,216
dc 204,192,181,171,161,152,144,136,128,121,114,108
dc 907,856,808,762,720,678,640,604,570,538,508,480
dc 453,428,404,381,360,339,320,302,285,269,254,240
dc 226,214,202,190,180,170,160,151,143,135,127,120
dc 900,850,802,757,715,675,636,601,567,535,505,477
dc 450,425,401,379,357,337,318,300,284,268,253,238
dc 225,212,200,189,179,169,159,150,142,134,126,119
dc 894,844,796,752,709,670,632,597,563,532,502,474
dc 447,422,398,376,355,335,316,298,282,266,251,237
dc 223,211,199,188,177,167,158,149,141,133,125,118
dc 887,838,791,746,704,665,628,592,559,528,498,470
dc 444,419,395,373,352,332,314,296,280,264,249,235
dc 222,209,198,187,176,166,157,148,140,132,125,118
dc 881,832,785,741,699,660,623,588,555,524,494,467
dc 441,416,392,370,350,330,312,294,278,262,247,233
dc 220,208,196,185,175,165,156,147,139,131,123,117
dc 875,826,779,736,694,655,619,584,551,520,491,463
dc 437,413,390,368,347,328,309,292,276,260,245,232
dc 219,206,195,184,174,164,155,146,138,130,123,116
dc 868,820,774,730,689,651,614,580,547,516,487,460
dc 434,410,387,365,345,325,307,290,274,258,244,230
dc 217,205,193,183,172,163,154,145,137,129,122,115
dc 862,814,768,725,684,646,610,575,543,513,484,457
dc 431,407,384,363,342,323,305,288,272,256,242,228
dc 216,203,192,181,171,161,152,144,136,128,121,114
tp_voice0dat:
dc.b 1
blk.b 57,0
tp_voice1dat:
dc.b 2
blk.b 57,0
tp_voice2dat:
dc.b 4
blk.b 57,0
tp_voice3dat:
dc.b 8
blk.b 57,0
section ChipBSS,bss_c
chipmem: ds.b (123696+511)&$fffffe00 ; ho_requirements_chipmem
sample: ds.b 313114
sample_end: ds.b 256
sample_length equ sample_end-sample
section BSS,bss
gb_copinit_old: ds.l 1
gb_ActiView_old:ds.l 1
vbi_old: ds.l 1
cia_old: ds.l 1
currentdir_old: ds.l 1
cachebits_old: ds.l 1
dmaconr_old: ds.w 1
intenar_old: ds.w 1
base_icon: ds.l 1
base_graphics: ds.l 1
base_dos: ds.l 1
diskobject: ds.l 1
message_dos: ds.l 1
ra_rdargs: ds.l 1
ra_array:
loop: ds.l 1
lock: ds.l 1
part: ds.l 1
part_main: ds.l 1
part_vbi: ds.l 1
sc_position: ds.l 1
table_fade: ds.b 17*16
quit: ds.b 1
render: ds.b 1
dp_texture: ds.w 128*128
dp_texture_hotfix: ds.w 128
; Synthesizer runtime variables
; -----------------------------
sy_samples: ds.l 1
sy_buffer_render: ds.l 1
sy_random_number: ds.l 1
sy_oscillator_waveform: ds.l 1
sy_oscillator_square: ds.w 1
sy_oscillator_1_position: ds.l 1
sy_oscillator_1_delta: ds.l 1
sy_oscillator_2_position: ds.l 1
sy_oscillator_2_delta: ds.l 1
sy_oscillator_3_position: ds.l 1
sy_oscillator_3_delta: ds.l 1
sy_oscillator_noise_position: ds.l 1
sy_oscillator_1_sync_position: ds.l 1
sy_oscillator_1_sync_delta: ds.l 1
sy_oscillator_2_sync_position: ds.l 1
sy_oscillator_2_sync_delta: ds.l 1
sy_oscillator_3_sync_position: ds.l 1
sy_oscillator_3_sync_delta: ds.l 1
sy_lfo_1_position: ds.l 1
sy_lfo_2_position: ds.l 1
sy_envelope_1_current: ds.l 1
sy_envelope_1_delta: ds.l 1
sy_envelope_2_current: ds.l 1
sy_envelope_2_delta: ds.l 1
sy_envelope_3_current: ds.l 1
sy_envelope_3_delta: ds.l 1
sy_envelope_stretch: ds.l 1
sy_filter_q: ds.w 1
sy_filter_p: ds.w 1
sy_filter_f: ds.w 1
sy_filter_in: ds.w 1
sy_filter_frequency_current: ds.w 1
sy_filter_resonance_current: ds.w 1
sy_oscillator_1_current: ds.w 1
sy_oscillator_1_width_current: ds.w 1
sy_oscillator_2_current: ds.w 1
sy_oscillator_2_width_current: ds.w 1
sy_oscillator_3_current: ds.w 1
sy_oscillator_3_width_current: ds.w 1
sy_envelope_1_counter: ds.w 1
sy_envelope_2_counter: ds.w 1
sy_envelope_3_counter: ds.w 1
sy_envelope_1_mode: ds.b 1
sy_envelope_2_mode: ds.b 1
sy_envelope_3_mode: ds.b 1
sy_variables_size equ *-sy_oscillator_waveform
even
sy_waveform_saw: ds.b 256
sy_waveform_square: ds.b 3*256
sy_waveform_noise: ds.b 256
sy_waveform_sinus: ds.b 256
sy_waveform_lfo_saw: ds.w 4096
sy_waveform_lfo_square: ds.w 4096
sy_waveform_lfo_triangle: ds.w 4096
; Synthesizer sound parameters
; ----------------------------
sy_buffer_size: ds.l 1
sy_oscillator_1_waveform: ds.w 1
sy_oscillator_1_mix: ds.w 1
sy_oscillator_1_mix_lfo_1: ds.w 1
sy_oscillator_1_mix_lfo_2: ds.w 1
sy_oscillator_1_mix_env_2: ds.w 1
sy_oscillator_1_mix_env_3: ds.w 1
sy_oscillator_1_pitch: ds.w 1
sy_oscillator_1_pitch_lfo_1: ds.w 1
sy_oscillator_1_pitch_lfo_2: ds.w 1
sy_oscillator_1_pitch_env_2: ds.w 1
sy_oscillator_1_pitch_env_3: ds.w 1
sy_oscillator_1_width: ds.w 1
sy_oscillator_1_width_lfo_1: ds.w 1
sy_oscillator_1_width_lfo_2: ds.w 1
sy_oscillator_1_width_env_2: ds.w 1
sy_oscillator_1_width_env_3: ds.w 1
sy_oscillator_1_sync: ds.w 1
sy_oscillator_1_sync_lfo_1: ds.w 1
sy_oscillator_1_sync_lfo_2: ds.w 1
sy_oscillator_1_sync_env_2: ds.w 1
sy_oscillator_1_sync_env_3: ds.w 1
sy_oscillator_2_waveform: ds.w 1
sy_oscillator_2_mix: ds.w 1
sy_oscillator_2_mix_lfo_1: ds.w 1
sy_oscillator_2_mix_lfo_2: ds.w 1
sy_oscillator_2_mix_env_2: ds.w 1
sy_oscillator_2_mix_env_3: ds.w 1
sy_oscillator_2_pitch: ds.w 1
sy_oscillator_2_pitch_lfo_1: ds.w 1
sy_oscillator_2_pitch_lfo_2: ds.w 1
sy_oscillator_2_pitch_env_2: ds.w 1
sy_oscillator_2_pitch_env_3: ds.w 1
sy_oscillator_2_width: ds.w 1
sy_oscillator_2_width_lfo_1: ds.w 1
sy_oscillator_2_width_lfo_2: ds.w 1
sy_oscillator_2_width_env_2: ds.w 1
sy_oscillator_2_width_env_3: ds.w 1
sy_oscillator_2_sync: ds.w 1
sy_oscillator_2_sync_lfo_1: ds.w 1
sy_oscillator_2_sync_lfo_2: ds.w 1
sy_oscillator_2_sync_env_2: ds.w 1
sy_oscillator_2_sync_env_3: ds.w 1
sy_oscillator_3_waveform: ds.w 1
sy_oscillator_3_mix: ds.w 1
sy_oscillator_3_mix_lfo_1: ds.w 1
sy_oscillator_3_mix_lfo_2: ds.w 1
sy_oscillator_3_mix_env_2: ds.w 1
sy_oscillator_3_mix_env_3: ds.w 1
sy_oscillator_3_pitch: ds.w 1
sy_oscillator_3_pitch_lfo_1: ds.w 1
sy_oscillator_3_pitch_lfo_2: ds.w 1
sy_oscillator_3_pitch_env_2: ds.w 1
sy_oscillator_3_pitch_env_3: ds.w 1
sy_oscillator_3_width: ds.w 1
sy_oscillator_3_width_lfo_1: ds.w 1
sy_oscillator_3_width_lfo_2: ds.w 1
sy_oscillator_3_width_env_2: ds.w 1
sy_oscillator_3_width_env_3: ds.w 1
sy_oscillator_3_sync: ds.w 1
sy_oscillator_3_sync_lfo_1: ds.w 1
sy_oscillator_3_sync_lfo_2: ds.w 1
sy_oscillator_3_sync_env_2: ds.w 1
sy_oscillator_3_sync_env_3: ds.w 1
sy_oscillator_noise_mix: ds.w 1
sy_oscillator_noise_mix_lfo_1: ds.w 1
sy_oscillator_noise_mix_lfo_2: ds.w 1
sy_oscillator_noise_mix_env_2: ds.w 1
sy_oscillator_noise_mix_env_3: ds.w 1
sy_oscillator_13_mix: ds.w 1
sy_oscillator_13_mix_lfo_1: ds.w 1
sy_oscillator_13_mix_lfo_2: ds.w 1
sy_oscillator_13_mix_env_2: ds.w 1
sy_oscillator_13_mix_env_3: ds.w 1
sy_oscillator_13_fm: ds.w 1
sy_oscillator_23_mix: ds.w 1
sy_oscillator_23_mix_lfo_1: ds.w 1
sy_oscillator_23_mix_lfo_2: ds.w 1
sy_oscillator_23_mix_env_2: ds.w 1
sy_oscillator_23_mix_env_3: ds.w 1
sy_oscillator_23_fm: ds.w 1
sy_filter_frequency: ds.w 1
sy_filter_frequency_lfo_1: ds.w 1
sy_filter_frequency_lfo_2: ds.w 1
sy_filter_frequency_env_2: ds.w 1
sy_filter_frequency_env_3: ds.w 1
sy_filter_resonance: ds.w 1
sy_filter_resonance_lfo_1: ds.w 1
sy_filter_resonance_lfo_2: ds.w 1
sy_filter_resonance_env_2: ds.w 1
sy_filter_resonance_env_3: ds.w 1
sy_envelope_1_attack: ds.w 1
sy_envelope_1_decay: ds.w 1
sy_envelope_1_sustain: ds.w 1
sy_envelope_2_attack: ds.w 1
sy_envelope_2_decay: ds.w 1
sy_envelope_2_sustain: ds.w 1
sy_envelope_3_attack: ds.w 1
sy_envelope_3_decay: ds.w 1
sy_envelope_3_sustain: ds.w 1
sy_lfo_1_speed: ds.w 1
sy_lfo_1_waveform: ds.w 1
sy_lfo_2_speed: ds.w 1
sy_lfo_2_waveform: ds.w 1
sy_parameters_size equ *-sy_buffer_size
fastmem: ds.b (131096+511)&$fffffe00 ; zr_requirements_fastmem
section ChipData,data_c
ne_cl: dc.w $0801,$fffe
ne_cl_fmode: dc.w fmode,%0000000000000000
ne_cl_bplcon3: dc.w bplcon3,%0000110000110000
ne_cl_bplcon2: dc.w bplcon2,%0000000000100100
ne_cl_bplcon1: dc.w bplcon1,%0000000000000000
ne_cl_bplcon0: dc.w bplcon0,%0000000000000000
ne_cl_diwstrt: dc.w diwstrt,$1f71
ne_cl_diwstop: dc.w diwstop,$31d1
ne_cl_diwhigh: dc.w diwhigh,$2100
ne_cl_ddfstrt: dc.w ddfstrt,$88-2*44
ne_cl_ddfstop: dc.w ddfstop,$80+2*44
ne_cl_palette: dc.w $180,$000
dc.w $ffff,$fffe
;sample: incbin "jormation superkova.smp"
;sample_end:
;sample_length equ sample_end-sample
section FastData,data
string_version: dc.b "$VER:Megane Rellu 1.0 (2009-12-05) (C)2009 dA JoRMaS",0
string_progdir: dc.b "PROGDIR:",0
ra_template: dc.b "LOOP/S",0
tt_loop: dc.b "LOOP",0
name_graphics: dc.b "graphics.library",0
ifne FINALVERSION
name_icon: dc.b "icon.library",0
endc
name_dos: dc.b "dos.library",0
even
; Part table (time, init)
; -----------------------
parts: dc.l 0*PATTERNLENGTH+1,fancywriter
dc.l 0*PATTERNLENGTH+1,fancywriter_go
dc.l 1*PATTERNLENGTH+64,cityscape
dc.l 2*PATTERNLENGTH+1,cityscape_go
dc.l 3*PATTERNLENGTH+54,rotate
dc.l 4*PATTERNLENGTH+1,rotate_go
dc.l 5*PATTERNLENGTH+60,insaneplasma
dc.l 6*PATTERNLENGTH+1,insaneplasma_go
dc.l 7*PATTERNLENGTH+64,horizon
dc.l 8*PATTERNLENGTH+1,horizon_go
dc.l 9*PATTERNLENGTH+60,discopallo
dc.l 10*PATTERNLENGTH+1,discopallo_go
dc.l 11*PATTERNLENGTH+60,zoomrotate
dc.l 12*PATTERNLENGTH+1,zoomrotate_go
dc.l 15*PATTERNLENGTH+24,stencilvector
dc.l 16*PATTERNLENGTH+1,stencilvector_go
dc.l 20*PATTERNLENGTH+1,end
dc.l -1
; Sinus table (common to all effects)
; -----------------------------------
sinus: include "/sinus-1024-7fff.i"
; Ordered dithering table (common to all effects)
; -----------------------------------------------
table_order: dc.b 0,192, 48,240, 12,204, 60,252, 3,195, 51,243, 15,207, 63,255
dc.b 128, 64,176,112,140, 76,188,124,131, 67,179,115,143, 79,191,127
dc.b 32,224, 16,208, 44,236, 28,220, 35,227, 19,211, 47,239, 31,223
dc.b 160, 96,144, 80,172,108,156, 92,163, 99,147, 83,175,111,159, 95
dc.b 8,200, 56,248, 4,196, 52,244, 11,203, 59,251, 7,199, 55,247
dc.b 136, 72,184,120,132, 68,180,116,139, 75,187,123,135, 71,183,119
dc.b 40,232, 24,216, 36,228, 20,212, 43,235, 27,219, 39,231, 23,215
dc.b 168,104,152, 88,164,100,148, 84,171,107,155, 91,167,103,151, 87
dc.b 2,194, 50,242, 14,206, 62,254, 1,193, 49,241, 13,205, 61,253
dc.b 130, 66,178,114,142, 78,190,126,129, 65,177,113,141, 77,189,125
dc.b 34,226, 18,210, 46,238, 30,222, 33,225, 17,209, 45,237, 29,221
dc.b 162, 98,146, 82,174,110,158, 94,161, 97,145, 81,173,109,157, 93
dc.b 10,202, 58,250, 6,198, 54,246, 9,201, 57,249, 5,197, 53,245
dc.b 138, 74,186,122,134, 70,182,118,137, 73,185,121,133, 69,181,117
dc.b 42,234, 26,218, 38,230, 22,214, 41,233, 25,217, 37,229, 21,213
dc.b 170,106,154, 90,166,102,150, 86,169,105,153, 89,165,101,149, 85
; 2x2chunky data (zoomrotate, spheremapping, colortunnel)
; -------------------------------------------------------
ch_ct: dc.w $1c01,$fffe
ch_ct_bplcon1: dc.w bplcon1,%0000000000000000
ch_ct_bplcon0: dc.w bplcon0,%0000000000000000+$1000*CH_PLANES
ch_ct_diwstrt: dc.w diwstrt,$a881-256*CH_PLANEHEIGHT
ch_ct_diwstop: dc.w diwstop,$3081
ch_ct_ddfstrt: dc.w ddfstrt,$88-2*CH_PLANEWIDTH
ch_ct_ddfstop: dc.w ddfstop,$80+2*CH_PLANEWIDTH
ch_ct_palette: dc.w $180,$fff,$182,$fff,$184,$fff,$186,$fff
dc.w $188,$fff,$18a,$fff,$18c,$fff,$18e,$fff
dc.w $190,$fff,$192,$fff,$194,$fff,$196,$fff
dc.w $198,$fff,$19a,$fff,$19c,$fff,$19e,$fff
ch_ct_bpl1mod: dc.w bpl1mod,0
ch_ct_bpl2mod: dc.w bpl2mod,0
dc.w bpl4pth
ch_ct_bpl1pth: dc.w 0,bpl4ptl
ch_ct_bpl1ptl: dc.w 0,bpl2pth
ch_ct_bpl2pth: dc.w 0,bpl2ptl
ch_ct_bpl2ptl: dc.w 0,bpl3pth
ch_ct_bpl3pth: dc.w 0,bpl3ptl
ch_ct_bpl3ptl: dc.w 0,bpl1pth
ch_ct_bpl4pth: dc.w 0,bpl1ptl
ch_ct_bpl4ptl: dc.w 0
ch_ct_data:
ch_conversion: dc.w $0000,$0303,$0c0c,$0f0f
dc.w $3030,$3333,$3c3c,$3f3f
dc.w $c0c0,$c3c3,$cccc,$cfcf
dc.w $f0f0,$f3f3,$fcfc,$ffff
zr_palette: dc.w $000,$100,$210,$311,$421,$521,$632,$732
dc.w $843,$854,$965,$976,$a87,$a98,$ba9,$bba
zr_source: incbin "zoomrotate.raw"
zr_additional_zoom_table:
dc.w 0,6,8,10,12,14
dc.w 15,17,18,19,20,21
dc.w 22,22,23,23,23,24
dc.w 24,24,24,24,24,24
; Cityscape data
; --------------
cs_ct: dc.w $1c01,$fffe
cs_ct_bplcon1: dc.w bplcon1,%0000000000000000
cs_ct_bplcon0: dc.w bplcon0,%0000000000000000+$1000*5
cs_ct_diwstrt: dc.w diwstrt,$3071
cs_ct_diwstop: dc.w diwstop,$20d1
cs_ct_ddfstrt: dc.w ddfstrt,$88-2*CS_PLANEWIDTH
cs_ct_ddfstop: dc.w ddfstop,$80+2*CS_PLANEWIDTH
dc.w dmacon,$20
cs_ct_palette: dc.w $184,$fff,$186,$fff,$18c,$fff,$18e,$fff
dc.w $194,$fff,$196,$fff,$19c,$fff,$19e,$fff
dc.w $1a4,$fff,$1a6,$fff,$1ac,$fff,$1ae,$fff
dc.w $1b4,$fff,$1b6,$fff,$1bc,$fff,$1be,$fff
dc.w $180,$000
cs_ct_bpl1mod: dc.w bpl1mod,0
cs_ct_bpl2mod: dc.w bpl2mod,0
dc.w bpl1pth
cs_ct_bpl1pth: dc.w 0,bpl1ptl
cs_ct_bpl1ptl: dc.w 0,bpl2pth
cs_ct_bpl2pth: dc.w 0,bpl2ptl
cs_ct_bpl2ptl: dc.w 0,bpl3pth
cs_ct_bpl3pth: dc.w 0,bpl3ptl
cs_ct_bpl3ptl: dc.w 0,bpl4pth
cs_ct_bpl4pth: dc.w 0,bpl4ptl
cs_ct_bpl4ptl: dc.w 0,bpl5pth
cs_ct_bpl5pth: dc.w 0,bpl5ptl
cs_ct_bpl5ptl: dc.w 0
cs_ct_data:
; Building coordinates (angle, distance, height)
; ----------------------------------------------
cs_coords: dc.w 16
dc.w 0,0,25
dc.w 0,90,70
dc.w 0,150,40
dc.w 512,30,90
dc.w 512,90,50
dc.w 512,150,30
dc.w 1024,30,50
dc.w 1024,90,70
dc.w 1024,150,40
dc.w 1536,30,20
dc.w 1536,90,100
dc.w 1536,150,50
dc.w 256,120,70
dc.w 768,120,30
dc.w 1280,120,50
dc.w 1782,120,20
; Background gradient colors
; --------------------------
cs_gradient: dc.w $030f,$020e,$020d,$020c,$020b,$020a,$0109,$0108
dc.w $0107,$0106,$0105,$0004,$0003,$0002,$0001,$0000
; Building color
; --------------
cs_citycolor: dc.w $000
; Discopallo data
; ---------------
dp_ct: dc.w $1c01,$fffe
dp_ct_bplcon1: dc.w bplcon1,%0000000000000000
dp_ct_bplcon0: dc.w bplcon0,%0000000000000000+$1000*DP_PLANES
dp_ct_diwstrt: dc.w diwstrt,$a871-256*DP_PLANEHEIGHT/2
dp_ct_diwstop: dc.w diwstop,$28d1
dp_ct_ddfstrt: dc.w ddfstrt,$78-2*DP_PLANEWIDTH
dp_ct_ddfstop: dc.w ddfstop,$70+2*DP_PLANEWIDTH
dp_ct_palette: dc.w $180,$000,$182,$000,$184,$000,$186,$000
dc.w $188,$000,$18a,$000,$18c,$000,$18e,$000
dc.w $190,$000,$192,$000,$194,$000,$196,$000
dc.w $198,$000,$19a,$000,$19c,$000,$19e,$000
dc.w $1a0,$000,$1a2,$000,$1a4,$000,$1a6,$000
dc.w $1a8,$000,$1aa,$000,$1ac,$000,$1ae,$000
dc.w $1b0,$000,$1b2,$000,$1b4,$000,$1b6,$000
dc.w $1b8,$000,$1ba,$000,$1bc,$000,$1be,$000
dp_ct_bpl1mod: dc.w bpl1mod,(DP_PLANES-1)*DP_PLANEWIDTH
dp_ct_bpl2mod: dc.w bpl2mod,(DP_PLANES-1)*DP_PLANEWIDTH
dc.w bpl1pth
dp_ct_bpl1pth: dc.w 0,bpl1ptl
dp_ct_bpl1ptl: dc.w 0,bpl2pth
dp_ct_bpl2pth: dc.w 0,bpl2ptl
dp_ct_bpl2ptl: dc.w 0,bpl3pth
dp_ct_bpl3pth: dc.w 0,bpl3ptl
dp_ct_bpl3ptl: dc.w 0,bpl4pth
dp_ct_bpl4pth: dc.w 0,bpl4ptl
dp_ct_bpl4ptl: dc.w 0,bpl5pth
dp_ct_bpl5pth: dc.w 0,bpl5ptl
dp_ct_bpl5ptl: dc.w 0
dc.w bplcon0,0
dc.w cop2lch
dp_ct_cop2lch: dc.w 0,cop2lcl
dp_ct_cop2lcl: dc.w 0,copjmp2
dc.w 0
dp_ct_data:
; Fancy writer data
; -----------------
fw_ct: dc.w $1c01,$fffe
fw_ct_bplcon1: dc.w bplcon1,%0000000000010000
fw_ct_bplcon0: dc.w bplcon0,%0000000000000001+$1000*(FW_PLANES+1)
fw_ct_diwstrt: dc.w diwstrt,$a881-256*FW_PLANEHEIGHT/2
fw_ct_diwstop: dc.w diwstop,$27c1
fw_ct_ddfstrt: dc.w ddfstrt,$88-2*FW_PLANEWIDTH
fw_ct_ddfstop: dc.w ddfstop,$80+2*FW_PLANEWIDTH
fw_ct_palette: dc.w $180,$804,$182,$fff,$184,$402,$186,$fff
dc.w $188,$402,$18a,$fff,$18c,$201,$18e,$fff
fw_ct_bpl1mod: dc.w bpl1mod,0
fw_ct_bpl2mod: dc.w bpl2mod,0
dc.w bpl1pth
fw_ct_bpl1pth: dc.w 0,bpl1ptl
fw_ct_bpl1ptl: dc.w 0,bpl2pth
fw_ct_bpl2pth: dc.w 0,bpl2ptl
fw_ct_bpl2ptl: dc.w 0,bpl3pth
fw_ct_bpl3pth: dc.w 0,bpl3ptl
fw_ct_bpl3ptl: dc.w 0
dc.w $ffff,$fffe
fw_ct_data:
fw_palette: dc.w $000,$fff,$444,$fff,$c00,$fff,$400,$fff
fw_symbol: incbin "symbol.raw"
fw_font: incbin "fancywriterfont.raw"
fw_font_widths: dc.b 3 ;
dc.b 1 ; !
dc.b 3 ; "
dc.b 9 ; #
dc.b 6 ; $
dc.b 12 ; %
dc.b 11 ; &
dc.b 1 ; '
dc.b 4 ; (
dc.b 4 ; )
dc.b 5 ; *
dc.b 7 ; +
dc.b 2 ; ,
dc.b 5 ; -
dc.b 1 ; .
dc.b 5 ; /
dc.b 7 ; 0
dc.b 3 ; 1
dc.b 7 ; 2
dc.b 8 ; 3
dc.b 8 ; 4
dc.b 8 ; 5
dc.b 8 ; 6
dc.b 7 ; 7
dc.b 7 ; 8
dc.b 8 ; 9
dc.b 1 ; :
dc.b 2 ; ;
dc.b 8 ; <
dc.b 8 ; =
dc.b 8 ; >
dc.b 7 ; ?
dc.b 12 ; @
dc.b 11 ; A
dc.b 8 ; B
dc.b 11 ; C
dc.b 10 ; D
dc.b 6 ; E
dc.b 6 ; F
dc.b 12 ; G
dc.b 9 ; H
dc.b 1 ; I
dc.b 6 ; J
dc.b 8 ; K
dc.b 6 ; L
dc.b 12 ; M
dc.b 10 ; N
dc.b 12 ; O
dc.b 8 ; P
dc.b 12 ; Q
dc.b 8 ; R
dc.b 6 ; S
dc.b 7 ; T
dc.b 8 ; U
dc.b 11 ; V
dc.b 15 ; W
dc.b 9 ; X
dc.b 9 ; Y
dc.b 8 ; Z
dc.b 3 ; [
dc.b 5 ; \
dc.b 3 ; ]
dc.b 8 ; ^
dc.b 8 ; _
dc.b 4 ; `
dc.b 9 ; a
dc.b 9 ; b
dc.b 9 ; c
dc.b 9 ; d
dc.b 9 ; e
dc.b 4 ; f
dc.b 9 ; g
dc.b 8 ; h
dc.b 1 ; i
dc.b 3 ; j
dc.b 6 ; k
dc.b 1 ; l
dc.b 13 ; m
dc.b 8 ; n
dc.b 9 ; o
dc.b 9 ; p
dc.b 9 ; q
dc.b 3 ; r
dc.b 5 ; s
dc.b 5 ; t
dc.b 8 ; u
dc.b 9 ; v
dc.b 13 ; w
dc.b 7 ; x
dc.b 8 ; y
dc.b 7 ; z
dc.b 3 ; {
dc.b 1 ; |
dc.b 3 ; }
dc.b 8 ; ~
dc.b 0 ;
fw_font_left: dc.b 0 ;
dc.b 0 ; !
dc.b 0 ; "
dc.b 0 ; #
dc.b 0 ; $
dc.b 0 ; %
dc.b 0 ; &
dc.b 0 ; '
dc.b 0 ; (
dc.b 0 ; )
dc.b 0 ; *
dc.b 0 ; +
dc.b 0 ; ,
dc.b 0 ; -
dc.b 0 ; .
dc.b 0 ; /
dc.b 0 ; 0
dc.b 0 ; 1
dc.b 0 ; 2
dc.b 0 ; 3
dc.b 0 ; 4
dc.b 0 ; 5
dc.b 0 ; 6
dc.b 0 ; 7
dc.b 0 ; 8
dc.b 0 ; 9
dc.b 0 ; :
dc.b 0 ; ;
dc.b 0 ; <
dc.b 0 ; =
dc.b 0 ; >
dc.b 0 ; ?
dc.b 0 ; @
dc.b 0 ; A
dc.b 0 ; B
dc.b 0 ; C
dc.b 0 ; D
dc.b 0 ; E
dc.b 0 ; F
dc.b 0 ; G
dc.b 0 ; H
dc.b 0 ; I
dc.b 0 ; J
dc.b 0 ; K
dc.b 0 ; L
dc.b 0 ; M
dc.b 0 ; N
dc.b 0 ; O
dc.b 0 ; P
dc.b 0 ; Q
dc.b 0 ; R
dc.b 0 ; S
dc.b 0 ; T
dc.b 0 ; U
dc.b 0 ; V
dc.b 0 ; W
dc.b 0 ; X
dc.b 0 ; Y
dc.b 0 ; Z
dc.b 0 ; [
dc.b 0 ; \
dc.b 0 ; ]
dc.b 0 ; ^
dc.b 0 ; _
dc.b 0 ; `
dc.b 0 ; a
dc.b 0 ; b
dc.b 0 ; c
dc.b 0 ; d
dc.b 0 ; e
dc.b 0 ; f
dc.b 0 ; g
dc.b 0 ; h
dc.b 0 ; i
dc.b 0 ; j
dc.b 0 ; k
dc.b 0 ; l
dc.b 0 ; m
dc.b 0 ; n
dc.b 0 ; o
dc.b 0 ; p
dc.b 0 ; q
dc.b 0 ; r
dc.b 0 ; s
dc.b 0 ; t
dc.b 0 ; u
dc.b 0 ; v
dc.b 0 ; w
dc.b 0 ; x
dc.b 0 ; y
dc.b 0 ; z
dc.b 0 ; {
dc.b 0 ; |
dc.b 0 ; }
dc.b 0 ; ~
fw_font_right: dc.b 0 ;
dc.b 0 ; !
dc.b 0 ; "
dc.b 0 ; #
dc.b 0 ; $
dc.b 0 ; %
dc.b 0 ; &
dc.b 0 ; '
dc.b 0 ; (
dc.b 0 ; )
dc.b 0 ; *
dc.b 0 ; +
dc.b 0 ; ,
dc.b 0 ; -
dc.b 0 ; .
dc.b 0 ; /
dc.b 0 ; 0
dc.b 0 ; 1
dc.b 0 ; 2
dc.b 0 ; 3
dc.b 0 ; 4
dc.b 0 ; 5
dc.b 0 ; 6
dc.b 0 ; 7
dc.b 0 ; 8
dc.b 0 ; 9
dc.b 0 ; :
dc.b 0 ; ;
dc.b 0 ; <
dc.b 0 ; =
dc.b 0 ; >
dc.b 0 ; ?
dc.b 0 ; @
dc.b 0 ; A
dc.b 0 ; B
dc.b 0 ; C
dc.b 0 ; D
dc.b 0 ; E
dc.b 0 ; F
dc.b 0 ; G
dc.b 0 ; H
dc.b 0 ; I
dc.b 0 ; J
dc.b 0 ; K
dc.b 0 ; L
dc.b 0 ; M
dc.b 0 ; N
dc.b 0 ; O
dc.b 0 ; P
dc.b 0 ; Q
dc.b 0 ; R
dc.b 0 ; S
dc.b 0 ; T
dc.b 0 ; U
dc.b 0 ; V
dc.b 0 ; W
dc.b 0 ; X
dc.b 0 ; Y
dc.b 0 ; Z
dc.b 0 ; [
dc.b 0 ; \
dc.b 0 ; ]
dc.b 0 ; ^
dc.b 0 ; _
dc.b 0 ; `
dc.b 0 ; a
dc.b 0 ; b
dc.b 0 ; c
dc.b 0 ; d
dc.b 0 ; e
dc.b 0 ; f
dc.b 0 ; g
dc.b 0 ; h
dc.b 0 ; i
dc.b 0 ; j
dc.b 0 ; k
dc.b 0 ; l
dc.b 0 ; m
dc.b 0 ; n
dc.b 0 ; o
dc.b 0 ; p
dc.b 0 ; q
dc.b 0 ; r
dc.b 0 ; s
dc.b 0 ; t
dc.b 0 ; u
dc.b 0 ; v
dc.b 0 ; w
dc.b 0 ; x
dc.b 0 ; y
dc.b 0 ; z
dc.b 0 ; {
dc.b 0 ; |
dc.b 0 ; }
dc.b 0 ; ~
fw_text: dc.b " The 15 year old dA JoRMaS",10
dc.b " are back with a 40k intro called",10
dc.b " Megane Rellu",10,10
dc.b " This contribution to the",10
dc.b " Finnish Amiga Party 2009",10
dc.b " 40k intro competition",10
dc.b " runs on the classic Amiga 500 platform:",10
dc.b " 7MHz 68000/512kB chipmem/512kB fastmem",10,10
dc.b " Code, music and graphics by Vesuri",10,10
dc.b " This intro contains a 328kB ProTracker MOD",10
dc.b " and 10 classic effects in less than 40kB!",10
dc.b 0
even
; Horizon
; -------
ho_ct: dc.w $1401,$fffe
ho_ct_bplcon1: dc.w bplcon1,%0000000000000000
ho_ct_bplcon0: dc.w bplcon0,%0000000000000001
ho_ct_diwstrt: dc.w diwstrt,$a881-256*HO_PLANEHEIGHT/2
ho_ct_diwstop: dc.w diwstop,$28c1
ho_ct_ddfstrt: dc.w ddfstrt,$88-2*HO_PLANEWIDTH
ho_ct_ddfstop: dc.w ddfstop,$80+2*HO_PLANEWIDTH
ho_ct_palette: dc.w $180,$000
ho_ct_bpl1mod: dc.w bpl1mod,0
ho_ct_bpl2mod: dc.w bpl2mod,0
dc.w bpl1pth
ho_ct_bpl1pth: dc.w 0,bpl1ptl
ho_ct_bpl1ptl: dc.w 0,bpl2pth
ho_ct_bpl2pth: dc.w 0,bpl2ptl
ho_ct_bpl2ptl: dc.w 0,bpl3pth
ho_ct_bpl3pth: dc.w 0,bpl3ptl
ho_ct_bpl3ptl: dc.w 0,bpl4pth
ho_ct_bpl4pth: dc.w 0,bpl4ptl
ho_ct_bpl4ptl: dc.w 0,bpl5pth
ho_ct_bpl5pth: dc.w 0,bpl5ptl
ho_ct_bpl5ptl: dc.w 0,cop2lch
ho_ct_cop2lch: dc.w 0,cop2lcl
ho_ct_cop2lcl: dc.w 0
dc.w $1801,$fffe
dc.w copjmp2,0
; Double size for double buffering
; --------------------------------
ho_ct_data1: dc.w $182,$fd0,$184,$fb0,$186,$fb0
dc.w $188,$f90,$18a,$f90,$18c,$f90,$18e,$f90
dc.w $190,$f70,$192,$f70,$194,$f70,$196,$f70
dc.w $198,$f70,$19a,$f70,$19c,$f70,$19e,$f70
dc.w $1a2,$fd0,$1a4,$fb0,$1a6,$fb0
dc.w $1a8,$f90,$1aa,$f90,$1ac,$f90,$1ae,$f90
dc.w $1b0,$f70,$1b2,$f70,$1b4,$f70,$1b6,$f70
dc.w $1b8,$f70,$1ba,$f70,$1bc,$f70,$1be,$f70
; ds.w 64+56
ho_ct_data2: dc.w $182,$fd0,$184,$fb0,$186,$fb0
dc.w $188,$f90,$18a,$f90,$18c,$f90,$18e,$f90
dc.w $190,$f70,$192,$f70,$194,$f70,$196,$f70
dc.w $198,$f70,$19a,$f70,$19c,$f70,$19e,$f70
dc.w $1a2,$fd0,$1a4,$fb0,$1a6,$fb0
dc.w $1a8,$f90,$1aa,$f90,$1ac,$f90,$1ae,$f90
dc.w $1b0,$f70,$1b2,$f70,$1b4,$f70,$1b6,$f70
dc.w $1b8,$f70,$1ba,$f70,$1bc,$f70,$1be,$f70
; ds.w 64+56
ho_ct_data:
; Coordinates address (.l), height (.w), z (.w), zoom (.w)
; --------------------------------------------------------
horizon_table: dc.l horizon_1
dc.w 0,256,0,0
dc.l horizon_5
dc.w 0,223,0,0
dc.l horizon_2
dc.w 0,190,0,0
dc.l horizon_6
dc.w 0,157,0,0
dc.l horizon_3
dc.w 0,124,0,0
dc.l horizon_7
dc.w 0,91,0,0
dc.l horizon_4
dc.w 0,91,0,0
horizon_end:
horizon_1: dc.w 127, 83
dc.w 49, 78
dc.w 33, 74
dc.w 0, 64
dc.w -11, 57
dc.w -15, 51
dc.w -19, 40
dc.w -29, 32
dc.w -58, 31
dc.w -67, 32
dc.w -73, 36
dc.w -76, 39
dc.w -79, 45
dc.w -80, 50
dc.w -98, 61
dc.w -106, 66
dc.w -106, 66
dc.w -107, 66
dc.w -111, 66
dc.w -128, 69
dc.l -1
horizon_2: dc.w 127, 70
dc.w 121, 63
dc.w 104, 65
dc.w 63, 68
dc.w 61, 65
dc.w 36, 59
dc.w 32, 58
dc.w 30, 59
dc.w 22, 53
dc.w 18, 44
dc.w 14, 43
dc.w 0, 42
dc.w -10, 47
dc.w -11, 45
dc.w -13, 44
dc.w -25, 39
dc.w -31, 37
dc.w -53, 40
dc.w -55, 41
dc.w -57, 29
dc.w -59, 23
dc.w -60, 19
dc.w -62, 8
dc.w -78, 1
dc.w -79, 3
dc.w -82, 8
dc.w -84, 15
dc.w -85, 28
dc.w -86, 47
dc.w -87, 50
dc.w -98, 51
dc.w -103, 57
dc.w -105, 57
dc.w -128, 58
dc.l -1
horizon_3: dc.w 127, 82
dc.w 114, 81
dc.w 99, 78
dc.w 94, 76
dc.w 81, 73
dc.w 80, 67
dc.w 78, 35
dc.w 76, 29
dc.w 75, 23
dc.w 74, 20
dc.w 73, 15
dc.w 72, 7
dc.w 71, 5
dc.w 70, 1
dc.w 67, 2
dc.w 63, 2
dc.w 61, 7
dc.w 58, 6
dc.w 57, 13
dc.w 53, 12
dc.w 48, 11
dc.w 47, 20
dc.w 45, 14
dc.w 44, 32
dc.w 40, 38
dc.w 38, 45
dc.w 32, 41
dc.w 29, 43
dc.w 26, 44
dc.w 26, 48
dc.w 16, 58
dc.w 5, 55
dc.w -5, 50
dc.w -26, 48
dc.w -50, 44
dc.w -61, 43
dc.w -77, 39
dc.w -87, 36
dc.w -98, 34
dc.w -108, 31
dc.w -121, 27
dc.w -127, 27
dc.w -128, 82
dc.l -1
horizon_4: dc.w 127, 73
dc.w 118, 68
dc.w 100, 64
dc.w 96, 61
dc.w 95, 55
dc.w 94, 45
dc.w 93, 39
dc.w 89, 37
dc.w 87, 34
dc.w 80, 34
dc.w 69, 41
dc.w 67, 52
dc.w 64, 45
dc.w 62, 61
dc.w 51, 70
dc.w 35, 71
dc.w 30, 72
dc.w 18, 71
dc.w 6, 71
dc.w -3, 72
dc.w -7, 70
dc.w -19, 66
dc.w -22, 63
dc.w -31, 56
dc.w -32, 51
dc.w -34, 44
dc.w -35, 35
dc.w -36, 35
dc.w -36, 19
dc.w -37, 13
dc.w -41, 14
dc.w -41, 27
dc.w -43, 33
dc.w -48, 28
dc.w -50, 28
dc.w -52, 17
dc.w -53, 8
dc.w -58, 6
dc.w -63, 3
dc.w -82, 3
dc.w -86, 0
dc.w -97, 5
dc.w -100, 29
dc.w -101, 38
dc.w -102, 49
dc.w -103, 52
dc.w -104, 54
dc.w -112, 60
dc.w -114, 62
dc.w -120, 66
dc.w -128, 73
dc.l -1
horizon_5: dc.w 127, 68
dc.w 109, 69
dc.w 107, 76
dc.w 102, 76
dc.w 102, 64
dc.w 77, 61
dc.w 75, 48
dc.w 64, 48
dc.w 63, 66
dc.w 52, 65
dc.w 50, 53
dc.w 43, 52
dc.w 43, 46
dc.w 35, 46
dc.w 36, 58
dc.w 30, 59
dc.w 30, 68
dc.w 22, 63
dc.w 15, 68
dc.w -7, 70
dc.w -8, 74
dc.w -12, 74
dc.w -12, 61
dc.w -24, 61
dc.w -25, 78
dc.w -38, 73
dc.w -38, 25
dc.w -41, 20
dc.w -42, 0
dc.w -43, 20
dc.w -46, 24
dc.w -47, 66
dc.w -59, 75
dc.w -78, 74
dc.w -78, 63
dc.w -88, 64
dc.w -88, 72
dc.w -109, 75
dc.w -114, 75
dc.w -114, 72
dc.w -118, 72
dc.w -119, 76
dc.w -128, 77
dc.l -1
horizon_6: dc.w -128, 66
dc.w -126, 66
dc.w -125, 73
dc.w -51, 76
dc.w -51, 71
dc.w -26, 64
dc.w -24, 58
dc.w -20, 53
dc.w -19, 28
dc.w -14, 28
dc.w -13, 53
dc.w 9, 50
dc.w 10, 47
dc.w 12, 47
dc.w 13, 28
dc.w 18, 28
dc.w 18, 42
dc.w 21, 42
dc.w 26, 37
dc.w 27, 10
dc.w 35, 10
dc.w 35, 36
dc.w 38, 38
dc.w 39, 42
dc.w 44, 42
dc.w 45, 46
dc.w 62, 47
dc.w 64, 43
dc.w 68, 42
dc.w 72, 37
dc.w 73, 0
dc.w 80, 0
dc.w 82, 37
dc.w 85, 40
dc.w 86, 42
dc.w 89, 42
dc.w 92, 47
dc.w 92, 65
dc.w 114, 66
dc.w 115, 75
dc.w 127, 74
dc.l -1
horizon_7: dc.w -128, 12
dc.w -116, 69
dc.w -116, 45
dc.w -109, 41
dc.w -109, 35
dc.w -93, 35
dc.w -92, 66
dc.w -78, 66
dc.w -75, 54
dc.w -65, 53
dc.w -64, 49
dc.w -46, 47
dc.w -41, 37
dc.w -37, 49
dc.w -35, 59
dc.w -28, 67
dc.w -21, 61
dc.w -21, 51
dc.w -12, 49
dc.w -12, 41
dc.w 8, 41
dc.w 9, 52
dc.w 16, 53
dc.w 17, 63
dc.w 23, 61
dc.w 23, 40
dc.w 26, 36
dc.w 34, 32
dc.w 41, 36
dc.w 46, 41
dc.w 53, 41
dc.w 53, 37
dc.w 72, 37
dc.w 73, 51
dc.w 81, 51
dc.w 82, 37
dc.w 103, 33
dc.w 103, 28
dc.w 113, 28
dc.w 114, 34
dc.w 120, 34
dc.w 121, 78
dc.w 123, 78
dc.w 123, 59
dc.w 127, 59
dc.l -1
ho_colors: dc.w $eee,$ccc,$aaa,$888,$666,$444,$222,$000
dc.w $000,$000,$000,$000,$000,$000,$000,$000
ho_gradient: dc.w $f00,$f11,$f22,$f44,$f66,$f88,$faa,$fcc
dc.w $fee,$fff,$fff,$fff,$fff
; Insane plasma
; -------------
ip_ct: dc.w $1c01,$fffe
ip_ct_bplcon1: dc.w bplcon1,%0000000000000000
ip_ct_bplcon0: dc.w bplcon0,%0000000000000001+$1000*6
ip_ct_diwstrt: dc.w diwstrt,$3581
ip_ct_diwstop: dc.w diwstop,$1bc1
ip_ct_ddfstrt: dc.w ddfstrt,$88-2*IP_PLANEWIDTH
ip_ct_ddfstop: dc.w ddfstop,$80+2*IP_PLANEWIDTH
dc.w dmacon,$20
ip_ct_palette: dc.w $194,$000,$196,$000,$19c,$000,$19e,$000
dc.w $1b4,$000,$1b6,$000,$1bc,$000,$1be,$000
ip_ct_bpl1mod: dc.w bpl1mod,-IP_PLANEWIDTH
ip_ct_bpl2mod: dc.w bpl2mod,0
dc.w bpl2pth
ip_ct_bpl2pth: dc.w 0,bpl2ptl
ip_ct_bpl2ptl: dc.w 0,bpl4pth
ip_ct_bpl4pth: dc.w 0,bpl4ptl
ip_ct_bpl4ptl: dc.w 0
dc.w cop1lcl
ip_ct_cop1lcl: dc.w 0,cop1lch
ip_ct_cop1lch: dc.w 0
dc.w copjmp1,0
ip_ct_1: dc.w bpl1pth
ip_ct_bpl1pth1: dc.w 0,bpl1ptl
ip_ct_bpl1ptl1: dc.w 0,bpl3pth
ip_ct_bpl3pth1: dc.w 0,bpl3ptl
ip_ct_bpl3ptl1: dc.w 0,bpl5pth
ip_ct_bpl5pth1: dc.w 0,bpl5ptl
ip_ct_bpl5ptl1: dc.w 0,bpl6pth
ip_ct_bpl6pth1: dc.w 0,bpl6ptl
ip_ct_bpl6ptl1: dc.w 0
ip_ct_data1:
ip_ct_2: dc.w bpl1pth
ip_ct_bpl1pth2: dc.w 0,bpl1ptl
ip_ct_bpl1ptl2: dc.w 0,bpl3pth
ip_ct_bpl3pth2: dc.w 0,bpl3ptl
ip_ct_bpl3ptl2: dc.w 0,bpl5pth
ip_ct_bpl5pth2: dc.w 0,bpl5ptl
ip_ct_bpl5ptl2: dc.w 0,bpl6pth
ip_ct_bpl6pth2: dc.w 0,bpl6ptl
ip_ct_bpl6ptl2: dc.w 0
ip_ct_data2:
ip_ct_data:
ip_palette1: dc.w $0f56,$0f85,$0eb5,$0de5,$09d5,$06c5,$05c7,$05b9
dc.w $0a34,$0a53,$0973,$0893,$0683,$0383,$0374,$0376
dc.w $0512,$0513,$0414,$0314,$0114,$0113,$0123,$0133
ip_palette2: dc.w $075a,$095b,$0b6b,$0c7a,$0d78,$0d88,$0eb8,$0ed9
dc.w $0538,$0738,$0938,$0936,$0935,$0a43,$0a74,$0a94
dc.w $0325,$0425,$0525,$0524,$0523,$0522,$0532,$0542
ip_image: incbin "insaneplasma.raw"
; Rotate data
; -----------
ro_ct: dc.w $1c01,$fffe
ro_ct_bplcon1: dc.w bplcon1,%0000000000000000
ro_ct_bplcon0: dc.w bplcon0,%0000000000000000+$1000*RO_PLANES
ro_ct_diwstrt: dc.w diwstrt,$a8a1-256*((RO_PLANEHEIGHT-2)/2)
ro_ct_diwstop: dc.w diwstop,$28a1
ro_ct_ddfstrt: dc.w ddfstrt,$90-2*RO_PLANEWIDTH
ro_ct_ddfstop: dc.w ddfstop,$88+2*RO_PLANEWIDTH
ro_ct_palette: dc.w $180,$fff,$182,$fff,$184,$fff,$186,$fff
ro_ct_bpl1mod: dc.w bpl1mod,(RO_PLANES-1)*RO_PLANEWIDTH
ro_ct_bpl2mod: dc.w bpl2mod,(RO_PLANES-1)*RO_PLANEWIDTH
dc.w bpl1pth
ro_ct_bpl1pth: dc.w 0,bpl1ptl
ro_ct_bpl1ptl: dc.w 0,bpl2pth
ro_ct_bpl2pth: dc.w 0,bpl2ptl
ro_ct_bpl2ptl: dc.w 0
dc.w $ffff,$fffe
ro_ct_data:
ro_palette: dc.w $000,$333,$999,$666
; Stencil vector data
; -------------------
sv_ct: dc.w $1c01,$fffe
sv_ct_bplcon1: dc.w bplcon1,%0000000000000000
sv_ct_bplcon0: dc.w bplcon0,%0000000000000000+$1000*SV_PLANES
sv_ct_diwstrt: dc.w diwstrt,$a891-256*SV_PLANEHEIGHT/2
sv_ct_diwstop: dc.w diwstop,$0091
sv_ct_ddfstrt: dc.w ddfstrt,$88-2*SV_PLANEWIDTH
sv_ct_ddfstop: dc.w ddfstop,$80+2*SV_PLANEWIDTH
sv_ct_palette: dc.w $180,$000,$182,$000,$184,$000,$186,$000
dc.w $188,$000,$18a,$000,$18c,$000,$18e,$000
dc.w $190,$000,$192,$000,$194,$000,$196,$000
dc.w $198,$000,$19a,$000,$19c,$000,$19e,$000
sv_ct_bpl1mod: dc.w bpl1mod,0
sv_ct_bpl2mod: dc.w bpl2mod,0
dc.w bpl1pth
sv_ct_bpl1pth: dc.w 0,bpl1ptl
sv_ct_bpl1ptl: dc.w 0,bpl2pth
sv_ct_bpl2pth: dc.w 0,bpl2ptl
sv_ct_bpl2ptl: dc.w 0,bpl3pth
sv_ct_bpl3pth: dc.w 0,bpl3ptl
sv_ct_bpl3ptl: dc.w 0,bpl4pth
sv_ct_bpl4pth: dc.w 0,bpl4ptl
sv_ct_bpl4ptl: dc.w 0
dc.w $f801,$fffe
dc.w bplcon0,0
dc.w $ffff,$fffe
sv_ct_data:
sv_palette_diamond: dc.w $000,$111,$223,$334,$446,$557,$669,$77a
dc.w $88c,$99d,$aaf,$bbf,$ccf,$ddf,$eef,$fff
sv_palette_24faces: dc.w $000,$100,$211,$311,$422,$532,$643,$753
dc.w $864,$975,$a86,$b97,$ca8,$db9,$eca,$fdb
sv_palette_symbol: dc.w $000,$210,$320,$430,$540,$650,$761,$871
dc.w $982,$a92,$ba3,$cb3,$dc4,$ed5,$fe6,$ff6
sv_faces_diamond:
; Number of faces, normal vector length
; -------------------------------------
dc.w 16, (1<<(SV_NORMAL_SHIFT-4))*30
; Room for face normal coordinates and X*Y value,
; Room for rotated face normal coordinates,
; Room for visibility value,
; Number of vertices in face,
; Vertex offsets (*4)
; -------------------
dc.w 0,0,0,0, 0,0,0, 0, 3, 0,1,8,0
dc.w 0,0,0,0, 0,0,0, 0, 3, 1,2,8,1
dc.w 0,0,0,0, 0,0,0, 0, 3, 2,3,8,2
dc.w 0,0,0,0, 0,0,0, 0, 3, 3,4,8,3
dc.w 0,0,0,0, 0,0,0, 0, 3, 4,5,8,4
dc.w 0,0,0,0, 0,0,0, 0, 3, 5,6,8,5
dc.w 0,0,0,0, 0,0,0, 0, 3, 6,7,8,6
dc.w 0,0,0,0, 0,0,0, 0, 3, 7,0,8,7
dc.w 0,0,0,0, 0,0,0, 0, 3, 1,0,9,1
dc.w 0,0,0,0, 0,0,0, 0, 3, 2,1,9,2
dc.w 0,0,0,0, 0,0,0, 0, 3, 3,2,9,3
dc.w 0,0,0,0, 0,0,0, 0, 3, 4,3,9,4
dc.w 0,0,0,0, 0,0,0, 0, 3, 5,4,9,5
dc.w 0,0,0,0, 0,0,0, 0, 3, 6,5,9,6
dc.w 0,0,0,0, 0,0,0, 0, 3, 7,6,9,7
dc.w 0,0,0,0, 0,0,0, 0, 3, 0,7,9,0
sv_coordinates_diamond:
; Number of coordinates
; ---------------------
dc.w 10
; X, Y, Z and room for X*Y value
; ------------------------------
dc.w -30,-13, 0,0 ; 0
dc.w -13,-30, 0,0 ; 4
dc.w 13,-30, 0,0 ; 8
dc.w 30,-13, 0,0 ; 12
dc.w 30, 13, 0,0 ; 16
dc.w 13, 30, 0,0 ; 20
dc.w -13, 30, 0,0 ; 24
dc.w -30, 13, 0,0 ; 28
dc.w 0, 0,-26,0 ; 32
dc.w 0, 0, 26,0 ; 36
sv_faces_24faces:
; Number of faces, normal vector length
; -------------------------------------
dc.w 24, (1<<(SV_NORMAL_SHIFT-4))*30
; Room for face normal coordinates and X*Y value,
; Room for rotated face normal coordinates,
; Room for visibility value,
; Number of vertices in face,
; Vertex offsets (*4)
; -------------------
dc.w 0,0,0,0, 0,0,0, 0, 3, 0,1,8,0
dc.w 0,0,0,0, 0,0,0, 0, 3, 1,2,8,1
dc.w 0,0,0,0, 0,0,0, 0, 3, 2,3,8,2
dc.w 0,0,0,0, 0,0,0, 0, 3, 3,0,8,3
dc.w 0,0,0,0, 0,0,0, 0, 3, 4,9,5,4
dc.w 0,0,0,0, 0,0,0, 0, 3, 5,9,6,5
dc.w 0,0,0,0, 0,0,0, 0, 3, 6,9,7,6
dc.w 0,0,0,0, 0,0,0, 0, 3, 7,9,4,7
dc.w 0,0,0,0, 0,0,0, 0, 3, 0,4,10,0
dc.w 0,0,0,0, 0,0,0, 0, 3, 4,5,10,4
dc.w 0,0,0,0, 0,0,0, 0, 3, 5,1,10,5
dc.w 0,0,0,0, 0,0,0, 0, 3, 1,0,10,1
dc.w 0,0,0,0, 0,0,0, 0, 3, 3,11,7,3
dc.w 0,0,0,0, 0,0,0, 0, 3, 7,11,6,7
dc.w 0,0,0,0, 0,0,0, 0, 3, 6,11,2,6
dc.w 0,0,0,0, 0,0,0, 0, 3, 2,11,3,2
dc.w 0,0,0,0, 0,0,0, 0, 3, 0,12,4,0
dc.w 0,0,0,0, 0,0,0, 0, 3, 4,12,7,4
dc.w 0,0,0,0, 0,0,0, 0, 3, 7,12,3,7
dc.w 0,0,0,0, 0,0,0, 0, 3, 3,12,0,3
dc.w 0,0,0,0, 0,0,0, 0, 3, 1,5,13,1
dc.w 0,0,0,0, 0,0,0, 0, 3, 5,6,13,5
dc.w 0,0,0,0, 0,0,0, 0, 3, 6,2,13,6
dc.w 0,0,0,0, 0,0,0, 0, 3, 2,1,13,2
sv_coordinates_24faces:
; Number of coordinates
; ---------------------
dc.w 14
; X, Y, Z and room for X*Y value
; ------------------------------
dc.w -25,-25,-25,0 ; 0
dc.w 25,-25,-25,0 ; 4
dc.w 25,25,-25,0 ; 8
dc.w -25,25,-25,0 ; 12
dc.w -25,-25,25,0 ; 16
dc.w 25,-25,25,0 ; 20
dc.w 25,25,25,0 ; 24
dc.w -25,25,25,0 ; 28
dc.w 0,0,-40,0 ; 32
dc.w 0,0,40,0 ; 36
dc.w 0,-40,0,0 ; 40
dc.w 0,40,0,0 ; 44
dc.w -40,0,0,0 ; 48
dc.w 40,0,0,0 ; 52
sv_faces_symbol:; Number of faces, normal vector length
; -------------------------------------
dc.w 30, (1<<(SV_NORMAL_SHIFT-4))*26
; Room for face normal coordinates and X*Y value,
; Room for rotated face normal coordinates,
; Room for visibility value,
; Number of vertices in face,
; Vertex offsets (*4)
; -------------------
dc.w 0,0,0,0, 0,0,0, 0, 28, 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,0
dc.w 0,0,0,0, 0,0,0, 0, 28, 30,29,28,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30
dc.w 0,0,0,0, 0,0,0, 0, 4, 0,28,29,1,0
dc.w 0,0,0,0, 0,0,0, 0, 4, 1,29,30,2,1
dc.w 0,0,0,0, 0,0,0, 0, 4, 2,30,31,3,2
dc.w 0,0,0,0, 0,0,0, 0, 4, 3,31,32,4,3
dc.w 0,0,0,0, 0,0,0, 0, 4, 4,32,33,5,4
dc.w 0,0,0,0, 0,0,0, 0, 4, 5,33,34,6,5
dc.w 0,0,0,0, 0,0,0, 0, 4, 6,34,35,7,6
dc.w 0,0,0,0, 0,0,0, 0, 4, 7,35,36,8,7
dc.w 0,0,0,0, 0,0,0, 0, 4, 8,36,37,9,8
dc.w 0,0,0,0, 0,0,0, 0, 4, 9,37,38,10,9
dc.w 0,0,0,0, 0,0,0, 0, 4, 10,38,39,11,10
dc.w 0,0,0,0, 0,0,0, 0, 4, 11,39,40,12,11
dc.w 0,0,0,0, 0,0,0, 0, 4, 12,40,41,13,12
dc.w 0,0,0,0, 0,0,0, 0, 4, 13,41,42,14,13
dc.w 0,0,0,0, 0,0,0, 0, 4, 14,42,43,15,14
dc.w 0,0,0,0, 0,0,0, 0, 4, 15,43,44,16,15
dc.w 0,0,0,0, 0,0,0, 0, 4, 16,44,45,17,16
dc.w 0,0,0,0, 0,0,0, 0, 4, 17,45,46,18,17
dc.w 0,0,0,0, 0,0,0, 0, 4, 18,46,47,19,18
dc.w 0,0,0,0, 0,0,0, 0, 4, 19,47,48,20,19
dc.w 0,0,0,0, 0,0,0, 0, 4, 20,48,49,21,20
dc.w 0,0,0,0, 0,0,0, 0, 4, 21,49,50,22,21
dc.w 0,0,0,0, 0,0,0, 0, 4, 22,50,51,23,22
dc.w 0,0,0,0, 0,0,0, 0, 4, 23,51,52,24,23
dc.w 0,0,0,0, 0,0,0, 0, 4, 24,52,53,25,24
dc.w 0,0,0,0, 0,0,0, 0, 4, 25,53,54,26,25
dc.w 0,0,0,0, 0,0,0, 0, 4, 26,54,55,27,26
dc.w 0,0,0,0, 0,0,0, 0, 4, 27,55,28,0,27
sv_coordinates_symbol:
; Number of coordinates
; ---------------------
dc.w 56
; X, Y, Z and room for X*Y value
; ------------------------------
dc.w -17,3,3,0
dc.w -39,3,3,0
dc.w -23,35,3,0
dc.w -3,35,3,0
dc.w -3,-12,3,0
dc.w -9,-18,3,0
dc.w -2,-34,3,0
dc.w 3,-34,3,0
dc.w 10,-18,3,0
dc.w 4,-12,3,0
dc.w 4,35,3,0
dc.w 24,35,3,0
dc.w 40,3,3,0
dc.w 18,3,3,0
dc.w 18,8,3,0
dc.w 32,8,3,0
dc.w 21,30,3,0
dc.w 9,30,3,0
dc.w 9,-11,3,0
dc.w 16,-18,3,0
dc.w 5,-39,3,0
dc.w -4,-39,3,0
dc.w -15,-18,3,0
dc.w -8,-11,3,0
dc.w -8,30,3,0
dc.w -20,30,3,0
dc.w -31,8,3,0
dc.w -17,8,3,0
dc.w -17,3,-3,0
dc.w -39,3,-3,0
dc.w -23,35,-3,0
dc.w -3,35,-3,0
dc.w -3,-12,-3,0
dc.w -9,-18,-3,0
dc.w -2,-34,-3,0
dc.w 3,-34,-3,0
dc.w 10,-18,-3,0
dc.w 4,-12,-3,0
dc.w 4,35,-3,0
dc.w 24,35,-3,0
dc.w 40,3,-3,0
dc.w 18,3,-3,0
dc.w 18,8,-3,0
dc.w 32,8,-3,0
dc.w 21,30,-3,0
dc.w 9,30,-3,0
dc.w 9,-11,-3,0
dc.w 16,-18,-3,0
dc.w 5,-39,-3,0
dc.w -4,-39,-3,0
dc.w -15,-18,-3,0
dc.w -8,-11,-3,0
dc.w -8,30,-3,0
dc.w -20,30,-3,0
dc.w -31,8,-3,0
dc.w -17,8,-3,0
sv_faces_list: ; Number of objects
; -----------------
dc.w 3
; Coordinate pointers
; -------------------
dc.l sv_faces_diamond
dc.l sv_faces_24faces
dc.l sv_faces_symbol
dc.l sv_faces_diamond
sv_coordinates_list:
; Number of objects
; -----------------
dc.w 3
; Coordinate pointers
; -------------------
dc.l sv_coordinates_diamond
dc.l sv_coordinates_24faces
dc.l sv_coordinates_symbol
dc.l sv_coordinates_diamond
sv_palettes_list:
; Palette pointers
; -------------------
dc.l sv_palette_diamond
dc.l sv_palette_24faces
dc.l sv_palette_symbol
dc.l sv_palette_diamond
; Synthesizer parameters (A046: Dopplereffekt 2)
; ----------------------------------------------
sy_parameters_a:
.buffer_render_size: dc.l 12288
.oscillator_1_waveform: dc.w SY_WAVEFORM_SQUARE_1
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w $8c0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 88
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w $fff
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 44
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w $7ff
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w $fff
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $100
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $fff
.filter_resonance: dc.w 0
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w $80
.envelope_2_sustain: dc.w $500
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $180
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w 1000
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_SAW
.lfo_2_speed: dc.w 1000
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (e004: 808 Kick Loong)
; ---------------------------------------------
sy_parameters_b:
.buffer_render_size: dc.l 16384
.oscillator_1_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 55
.oscillator_1_pitch_lfo_1: dc.w -40
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w $30
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w $fff
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 55
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w $30
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 44
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w $7ff
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $fff
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w 0
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w $800
.envelope_1_sustain: dc.w 0
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w $100
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $40
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w 200
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w 1000
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (e006: 808 Snare 2)
; ------------------------------------------
sy_parameters_c:
.buffer_render_size: dc.l 2560
.oscillator_1_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w $b00
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 275
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 15
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 55
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w $40
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 44
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w $7ff
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w $fff
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $fff
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w $600
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w $120
.envelope_1_sustain: dc.w 0
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w $100
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $140
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w 0
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w 1000
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (B027: ItsKindaPhasedWh)
; -----------------------------------------------
sy_parameters_d:
.buffer_render_size: dc.l 65536
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 175
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_2_mix: dc.w $fff
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 264
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_3_mix: dc.w $fff
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 176
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w $7ff
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $180
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $800
.filter_resonance: dc.w $700
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w $200
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w $fff
.envelope_3_attack: dc.w $800
.envelope_3_decay: dc.w $e00
.envelope_3_sustain: dc.w $80
.lfo_1_speed: dc.w 0
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w 1000
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (C081: Jan Hammer)
; -----------------------------------------
sy_parameters_e:
.buffer_render_size: dc.l 4096
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w $fff
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 175
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w $fff
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 353
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w $fff
.oscillator_3_pitch: dc.w 704
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w $7ff
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w $400
.oscillator_13_mix_env_3: dc.w $600
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $280
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $900
.filter_resonance: dc.w $800
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w $200
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w $200
.envelope_1_sustain: dc.w 0
.envelope_2_attack: dc.w $180
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w $fff
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $1c0
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $c00
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w 1000
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (A070: Sollie strings 1)
; -----------------------------------------------
sy_parameters_f:
.buffer_render_size: dc.l 32768
.oscillator_1_waveform: dc.w SY_WAVEFORM_SQUARE_1
.oscillator_1_mix: dc.w $800
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 351
.oscillator_1_pitch_lfo_1: dc.w -6
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $a00
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w $280
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w $800
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 704
.oscillator_2_pitch_lfo_1: dc.w -7
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w $280
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_3_mix: dc.w $400
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 353
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w $300
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $80
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w $e00
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w 0
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w $800
.envelope_2_sustain: dc.w $a00
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w 0
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $1000
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $e00
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (Huhhuh!)
; --------------------------------
sy_parameters_g:
.buffer_render_size: dc.l 65536
.oscillator_1_waveform: dc.w SY_WAVEFORM_SQUARE_1
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 66
.oscillator_1_pitch_lfo_1: dc.w 50
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 500
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w $600
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 352
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 44
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 100
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w $200
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w $fff
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $580
.filter_frequency_lfo_1: dc.w $300
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w $400
.filter_resonance_lfo_1: dc.w $300
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w $800
.envelope_2_decay: dc.w $300
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w $300
.envelope_3_decay: dc.w $680
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Hihat Closed)
; -------------------------------------
sy_parameters_h:
.buffer_render_size: dc.l 640
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 44
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w $fff
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $e00
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w $a00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w $40
.envelope_1_sustain: dc.w 0
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w 0
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Hihat Open)
; -----------------------------------
sy_parameters_i:
.buffer_render_size: dc.l 4096
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 44
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w $fff
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $e00
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w $a00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w $300
.envelope_1_sustain: dc.w 0
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w 0
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Arp)
; ----------------------------
sy_parameters_j:
.buffer_render_size: dc.l 1024
.oscillator_1_waveform: dc.w SY_WAVEFORM_SQUARE_1
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 704
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w $800
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $400
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $400
.filter_resonance: dc.w $800
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w $40
.envelope_3_decay: dc.w $40
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $2800
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $1e00
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Sync)
; -----------------------------
sy_parameters_k:
.buffer_render_size: dc.l 22532
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w $200
.oscillator_1_sync_lfo_1: dc.w 80
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w $fff
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w $80
.oscillator_2_sync_lfo_1: dc.w $30
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 130
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $260
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w $80
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w $800
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w 0
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $490
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $920
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
; Synthesizer parameters (FM 1)
; -----------------------------
sy_parameters_l:
.buffer_render_size: dc.l 16384
.oscillator_1_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 352
.oscillator_1_pitch_lfo_1: dc.w 30
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 420
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 370
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 70
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_3_mix: dc.w $fff
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 130
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w $700
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 1
.oscillator_23_mix: dc.w $fff
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $fff
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w 0
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w $800
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w $300
.envelope_3_decay: dc.w 0
.envelope_3_sustain: dc.w $fff
.lfo_1_speed: dc.w $1e00
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $1e00
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (FM 2)
; -----------------------------
sy_parameters_m:
.buffer_render_size: dc.l 16384
.oscillator_1_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 352
.oscillator_1_pitch_lfo_1: dc.w 30
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 420
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 200
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SINUS
.oscillator_3_mix: dc.w $fff
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 130
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w $700
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 1
.oscillator_23_mix: dc.w $fff
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w $fff
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w 0
.filter_resonance: dc.w 0
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w $800
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w $20;$300
.envelope_3_decay: dc.w $100;0
.envelope_3_sustain: dc.w 0;$fff
.lfo_1_speed: dc.w $1e00
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $1e00
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Clap)
; -----------------------------
sy_parameters_n:
.buffer_render_size: dc.l 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w 0
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 176
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w $800
.oscillator_noise_mix_lfo_2: dc.w $800
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $480
.filter_resonance: dc.w $200
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w $280
.envelope_1_sustain: dc.w 0
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $380
.envelope_3_sustain: dc.w 0
.lfo_1_speed: dc.w $2b00
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
.lfo_2_speed: dc.w $1e00
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 1)
; -------------------------------
sy_parameters_o:
.buffer_render_size: dc.l 4096 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 44 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w 0 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $c0 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 2)
; -------------------------------
sy_parameters_p:
.buffer_render_size: dc.l 8192 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 88 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w 0 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $300 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 3)
; -------------------------------
sy_parameters_q:
.buffer_render_size: dc.l 4096 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 44 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w $500 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $c0 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 4)
; -------------------------------
sy_parameters_r:
.buffer_render_size: dc.l 8192 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 88 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w $500 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $300 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 5)
; -------------------------------
sy_parameters_s:
.buffer_render_size: dc.l 4096 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 44 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w $a00 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $c0 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 6)
; -------------------------------
sy_parameters_t:
.buffer_render_size: dc.l 8192 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 88 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w $a00 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $300 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 7)
; -------------------------------
sy_parameters_u:
.buffer_render_size: dc.l 4096 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 44 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w $d00 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $c0 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
; Synthesizer parameters (Acid 8)
; -------------------------------
sy_parameters_v:
.buffer_render_size: dc.l 8192 ; 4096, 8192
.oscillator_1_waveform: dc.w SY_WAVEFORM_SAW
.oscillator_1_mix: dc.w $fff
.oscillator_1_mix_lfo_1: dc.w 0
.oscillator_1_mix_lfo_2: dc.w 0
.oscillator_1_mix_env_2: dc.w 0
.oscillator_1_mix_env_3: dc.w 0
.oscillator_1_pitch: dc.w 88 ; 44, 88
.oscillator_1_pitch_lfo_1: dc.w 0
.oscillator_1_pitch_lfo_2: dc.w 0
.oscillator_1_pitch_env_2: dc.w 0
.oscillator_1_pitch_env_3: dc.w 0
.oscillator_1_width: dc.w $800
.oscillator_1_width_lfo_1: dc.w 0
.oscillator_1_width_lfo_2: dc.w 0
.oscillator_1_width_env_2: dc.w 0
.oscillator_1_width_env_3: dc.w 0
.oscillator_1_sync: dc.w 0
.oscillator_1_sync_lfo_1: dc.w 0
.oscillator_1_sync_lfo_2: dc.w 0
.oscillator_1_sync_env_2: dc.w 0
.oscillator_1_sync_env_3: dc.w 0
.oscillator_2_waveform: dc.w SY_WAVEFORM_SQUARE_2
.oscillator_2_mix: dc.w 0
.oscillator_2_mix_lfo_1: dc.w 0
.oscillator_2_mix_lfo_2: dc.w 0
.oscillator_2_mix_env_2: dc.w 0
.oscillator_2_mix_env_3: dc.w 0
.oscillator_2_pitch: dc.w 44
.oscillator_2_pitch_lfo_1: dc.w 0
.oscillator_2_pitch_lfo_2: dc.w 0
.oscillator_2_pitch_env_2: dc.w 0
.oscillator_2_pitch_env_3: dc.w 0
.oscillator_2_width: dc.w $800
.oscillator_2_width_lfo_1: dc.w 0
.oscillator_2_width_lfo_2: dc.w 0
.oscillator_2_width_env_2: dc.w 0
.oscillator_2_width_env_3: dc.w 0
.oscillator_2_sync: dc.w 0
.oscillator_2_sync_lfo_1: dc.w 0
.oscillator_2_sync_lfo_2: dc.w 0
.oscillator_2_sync_env_2: dc.w 0
.oscillator_2_sync_env_3: dc.w 0
.oscillator_3_waveform: dc.w SY_WAVEFORM_SQUARE_3
.oscillator_3_mix: dc.w 0
.oscillator_3_mix_lfo_1: dc.w 0
.oscillator_3_mix_lfo_2: dc.w 0
.oscillator_3_mix_env_2: dc.w 0
.oscillator_3_mix_env_3: dc.w 0
.oscillator_3_pitch: dc.w 175
.oscillator_3_pitch_lfo_1: dc.w 0
.oscillator_3_pitch_lfo_2: dc.w 0
.oscillator_3_pitch_env_2: dc.w 0
.oscillator_3_pitch_env_3: dc.w 0
.oscillator_3_width: dc.w $800
.oscillator_3_width_lfo_1: dc.w 0
.oscillator_3_width_lfo_2: dc.w 0
.oscillator_3_width_env_2: dc.w 0
.oscillator_3_width_env_3: dc.w 0
.oscillator_3_sync: dc.w 0
.oscillator_3_sync_lfo_1: dc.w 0
.oscillator_3_sync_lfo_2: dc.w 0
.oscillator_3_sync_env_2: dc.w 0
.oscillator_3_sync_env_3: dc.w 0
.oscillator_noise_mix: dc.w 0
.oscillator_noise_mix_lfo_1: dc.w 0
.oscillator_noise_mix_lfo_2: dc.w 0
.oscillator_noise_mix_env_2: dc.w 0
.oscillator_noise_mix_env_3: dc.w 0
.oscillator_13_mix: dc.w 0
.oscillator_13_mix_lfo_1: dc.w 0
.oscillator_13_mix_lfo_2: dc.w 0
.oscillator_13_mix_env_2: dc.w 0
.oscillator_13_mix_env_3: dc.w 0
.oscillator_13_fm: dc.w 0
.oscillator_23_mix: dc.w 0
.oscillator_23_mix_lfo_1: dc.w 0
.oscillator_23_mix_lfo_2: dc.w 0
.oscillator_23_mix_env_2: dc.w 0
.oscillator_23_mix_env_3: dc.w 0
.oscillator_23_fm: dc.w 0
.filter_frequency: dc.w 0
.filter_frequency_lfo_1: dc.w 0
.filter_frequency_lfo_2: dc.w 0
.filter_frequency_env_2: dc.w 0
.filter_frequency_env_3: dc.w $c00
.filter_resonance: dc.w $d00 ; 0, $500, $a00, $d00
.filter_resonance_lfo_1: dc.w 0
.filter_resonance_lfo_2: dc.w 0
.filter_resonance_env_2: dc.w 0
.filter_resonance_env_3: dc.w 0
.envelope_1_attack: dc.w 0
.envelope_1_decay: dc.w 0
.envelope_1_sustain: dc.w $fff
.envelope_2_attack: dc.w 0
.envelope_2_decay: dc.w 0
.envelope_2_sustain: dc.w 0
.envelope_3_attack: dc.w 0
.envelope_3_decay: dc.w $300 ; $c0, $300
.envelope_3_sustain: dc.w $60
.lfo_1_speed: dc.w $180
.lfo_1_waveform: dc.w SY_WAVEFORM_LFO_TRIANGLE
.lfo_2_speed: dc.w $880
.lfo_2_waveform: dc.w SY_WAVEFORM_LFO_SQUARE
sy_parameters_list:
; dc.l 0
dc.l sy_parameters_a,$0
dc.l sy_parameters_b,$3000
dc.l sy_parameters_c,$7000
dc.l sy_parameters_d,$7A00
dc.l sy_parameters_e,$179D2
dc.l sy_parameters_f,$189D2
dc.l sy_parameters_g,$209CA
dc.l sy_parameters_h,$308C6
dc.l sy_parameters_i,$30B46
dc.l sy_parameters_j,$31B46
dc.l sy_parameters_k,$31F40
dc.l sy_parameters_l,$3774A
dc.l sy_parameters_m,$3B74A
dc.l sy_parameters_n,$3F718
dc.l sy_parameters_o,$40718
dc.l sy_parameters_p,$41718
dc.l sy_parameters_q,$43718
dc.l sy_parameters_r,$44718
dc.l sy_parameters_s,$46718
dc.l sy_parameters_t,$47718
dc.l sy_parameters_u,$49718
dc.l sy_parameters_v,$4A718
dc.l 0
sy_ct: dc.w $1c01,$fffe
sy_ct_fmode: dc.w fmode,%0000000000000000
sy_ct_bplcon3: dc.w bplcon3,%0000110000110000
sy_ct_bplcon2: dc.w bplcon2,%0000000000100100
sy_ct_bplcon1: dc.w bplcon1,%0000000000000000
sy_ct_bplcon0: dc.w bplcon0,%0000000000000001+$1000*SY_PLANES
sy_ct_diwstrt: dc.w diwstrt,$a871-256*((SY_PLANEHEIGHT-2)/2)
sy_ct_diwstop: dc.w diwstop,$30d1
sy_ct_ddfstrt: dc.w ddfstrt,$88-2*SY_PLANEWIDTH
sy_ct_ddfstop: dc.w ddfstop,$80+2*SY_PLANEWIDTH
sy_ct_palette: dc.w $180,$000,$182,$000,$184,$000,$186,$000
dc.w $188,$000,$18a,$000,$18c,$000,$18e,$000
sy_ct_bpl1mod: dc.w bpl1mod,(SY_PLANES-1)*SY_PLANEWIDTH
sy_ct_bpl2mod: dc.w bpl2mod,(SY_PLANES-1)*SY_PLANEWIDTH
dc.w bpl1pth
sy_ct_bpl1pth: dc.w 0,bpl1ptl
sy_ct_bpl1ptl: dc.w 0,bpl2pth
sy_ct_bpl2pth: dc.w 0,bpl2ptl
sy_ct_bpl2ptl: dc.w 0,bpl3pth
sy_ct_bpl3pth: dc.w 0,bpl3ptl
sy_ct_bpl3ptl: dc.w 0
sy_ct_data: ds.l 17
sy_ct_data_end:
sy_image: incbin "synth.raw"
module: incbin "jormation superkova.sng"
ch_cl equ chipmem
ch_cl_bplcon0 equ ch_cl+(ch_ct_bplcon0-ch_ct)
ch_cl_bpl1pth equ ch_cl+(ch_ct_bpl1pth-ch_ct)
ch_cl_palette equ ch_cl+(ch_ct_palette-ch_ct)
ch_cl_data equ ch_cl+(ch_ct_data-ch_ct)
ch_planes equ ch_cl_data+(CH_PLANEHEIGHT*2*6+8)*2
ch_chunky equ ch_planes+2*CH_PLANESIZE*CH_PLANES
ch_tempbuffer1 equ ch_chunky+4*CH_CHUNKY_SIZE
ch_tempbuffer2 equ ch_tempbuffer1+CH_CHUNKY_SIZE
ch_requirements_chipmem equ ch_tempbuffer2+CH_CHUNKY_SIZE-ch_cl
ch_planes_add equ fastmem
ch_add equ ch_planes_add+4
ch_add_current equ ch_add+4
ch_c2p_pass equ ch_add_current+4
ch_dummy equ ch_c2p_pass+1
zr_source_exp equ ch_dummy+1
zr_angle equ zr_source_exp+4*CH_SOURCE_SIZE*2
zr_angle_add equ zr_angle+4
zr_zoom equ zr_angle_add+4
zr_additional_zoom equ zr_zoom+2
zr_wank_delta equ zr_additional_zoom+2
zr_requirements_fastmem equ zr_wank_delta+4-ch_planes_add
cs_cl equ chipmem
cs_cl_bplcon0 equ cs_cl+(cs_ct_bplcon0-cs_ct)
cs_cl_bpl1pth equ cs_cl+(cs_ct_bpl1pth-cs_ct)
cs_cl_bpl2pth equ cs_cl+(cs_ct_bpl2pth-cs_ct)
cs_cl_palette equ cs_cl+(cs_ct_palette-cs_ct)
cs_cl_data equ cs_cl+(cs_ct_data-cs_ct)
cs_planes equ cs_cl_data+(((CS_PLANEHEIGHT-1)/16)*34+2+2+2+2+2)*2
cs_requirements_chipmem equ cs_planes+6*CS_PLANESIZE-cs_cl
cs_planes_add equ fastmem
cs_clipstorage equ cs_planes_add+4
cs_clip equ cs_clipstorage+16
cs_sinus equ cs_clip+2
cs_cosinus equ cs_sinus+2
cs_x equ cs_cosinus+2
cs_z equ cs_x+2
cs_octants equ cs_z+2
cs_oldxy equ cs_octants+4
cs_mulu_planewidth equ cs_oldxy+4
cs_order equ cs_mulu_planewidth+CS_PLANEHEIGHT*2
cs_mulu_16 equ cs_order+32
cs_sinus_add equ cs_mulu_16+256
cs_sinus_add_add equ cs_sinus_add+4
cs_requirements_fastmem equ cs_sinus_add_add+4-cs_planes_add
dp_cl equ chipmem
dp_cl_bplcon0 equ dp_cl+(dp_ct_bplcon0-dp_ct)
dp_cl_bplcon1 equ dp_cl+(dp_ct_bplcon1-dp_ct)
dp_cl_bpl1pth equ dp_cl+(dp_ct_bpl1pth-dp_ct)
dp_cl_ddfstrt equ dp_cl+(dp_ct_ddfstrt-dp_ct)
dp_cl_ddfstop equ dp_cl+(dp_ct_ddfstop-dp_ct)
dp_cl_cop2lch equ dp_cl+(dp_ct_cop2lch-dp_ct)
dp_cl_cop2lcl equ dp_cl+(dp_ct_cop2lcl-dp_ct)
dp_cl_data equ dp_cl+(dp_ct_data-dp_ct)
dp_planes equ dp_cl_data+(4+256*6+34*62+2+2+2)*2*2+4
dp_requirements_chipmem equ dp_planes+DP_PLANESIZE*DP_PLANES-dp_cl
dp_planes_add equ fastmem
dp_copper_add equ dp_planes_add+4
dp_mulu_256 equ dp_copper_add+4+128*256
dp_ysize equ dp_mulu_256+128*256
dp_sizepointer equ dp_ysize+2
dp_texturex equ dp_sizepointer+2
dp_texturey equ dp_texturex+2
dp_texxptr equ dp_texturey+2
dp_texyptr equ dp_texxptr+2
dp_xsinus equ dp_texyptr+2
dp_ysinus equ dp_xsinus+2
dp_jellysinus equ dp_ysinus+2
dp_jellyptr equ dp_jellysinus+2
dp_x equ dp_jellyptr+2
dp_ddfstrt equ dp_x+2
dp_ddfstop equ dp_ddfstrt+2
dp_bplcon1 equ dp_ddfstop+2
dp_modulo equ dp_bplcon1+2
dp_mulu_planewidth equ dp_modulo+2+DP_PLANEHEIGHT*2
dp_table equ dp_mulu_planewidth
dp_jelly equ dp_table+512
dp_xoffsets equ dp_jelly+256*32
dp_yoffsets equ dp_xoffsets+256
dp_synced equ dp_yoffsets+34
dp_requirements_fastmem equ dp_synced+1-dp_planes_add
fw_cl equ chipmem
fw_cl_bplcon0 equ fw_cl+(fw_ct_bplcon0-fw_ct)
fw_cl_bpl1ptl equ fw_cl+(fw_ct_bpl1ptl-fw_ct)
fw_cl_bpl1pth equ fw_cl+(fw_ct_bpl1pth-fw_ct)
fw_cl_bpl2ptl equ fw_cl+(fw_ct_bpl2ptl-fw_ct)
fw_cl_bpl2pth equ fw_cl+(fw_ct_bpl2pth-fw_ct)
fw_cl_bpl3ptl equ fw_cl+(fw_ct_bpl3ptl-fw_ct)
fw_cl_bpl3pth equ fw_cl+(fw_ct_bpl3pth-fw_ct)
fw_cl_palette equ fw_cl+(fw_ct_palette-fw_ct)
fw_planes equ fw_cl+(fw_ct_data-fw_ct)
fw_plane equ fw_planes+2*FW_PLANES*FW_PLANESIZE
fw_requirements_chipmem equ fw_plane+FW_PLANESIZE-fw_cl
fw_planes_add equ fastmem
fw_part_speeds equ fw_planes_add+4
fw_part_coords equ fw_part_speeds+FW_NUMBER_OF_PARTICLES*2*4
fw_sinus equ fw_part_coords+FW_NUMBER_OF_PARTICLES*2*3*4
fw_mult equ fw_sinus+2
fw_asl equ fw_mult+2
fw_random equ fw_asl+2
fw_mulu_planewidth equ fw_random+2
fw_row_in_use equ fw_mulu_planewidth+FW_PLANEHEIGHT*2
fw_mulu_256 equ fw_row_in_use+FW_ENDING_ROW-FW_STARTING_ROW+128*256
fw_written equ fw_mulu_256+128*256
fw_direction equ fw_written+1
fw_wait equ fw_direction+1
fw_requirements_fastmem equ fw_wait+2-fw_planes_add
ho_cl equ chipmem
ho_cl_bplcon0 equ ho_cl+(ho_ct_bplcon0-ho_ct)
ho_cl_bpl1pth equ ho_cl+(ho_ct_bpl1pth-ho_ct)
ho_cl_cop2lcl equ ho_cl+(ho_ct_cop2lcl-ho_ct)
ho_cl_cop2lch equ ho_cl+(ho_ct_cop2lch-ho_ct)
ho_cl_palette equ ho_cl+(ho_ct_palette-ho_ct)
ho_cl_data1 equ ho_cl+(ho_ct_data1-ho_ct)
ho_cl_data2 equ ho_cl+(ho_ct_data2-ho_ct)+(64+56)*2
ho_planes equ ho_cl+(ho_ct_data-ho_ct)+(64+56)*2*2
ho_plane_empty equ ho_planes+2*HO_PLANESIZE*HO_PLANES
ho_plane_full equ ho_plane_empty+HO_PLANESIZE
ho_requirements_chipmem equ ho_plane_full+HO_PLANESIZE-ho_cl
ho_planes_add equ fastmem
ho_cl_data_add equ ho_planes_add+4
ho_rs_tempbuffer equ ho_cl_data_add+4
ho_table equ ho_rs_tempbuffer+8*4
ho_copper equ ho_table+4
ho_height equ ho_copper+8*4
ho_horizon_planes equ ho_height+4*2
ho_clear equ ho_horizon_planes+5*2
ho_pass equ ho_clear+2*2
ho_rs_distcount equ ho_pass+2
ho_minxx equ ho_rs_distcount+HO_PLANEHEIGHT
ho_minxy equ ho_minxx+2
ho_maxxx equ ho_minxy+2
ho_maxxy equ ho_maxxx+2
ho_substract equ ho_maxxy+2
ho_mulu_planewidth equ ho_substract+2
ho_frames equ ho_mulu_planewidth+HO_PLANES*HO_PLANEHEIGHT*2
ho_speed equ ho_frames+4
ho_order equ ho_speed+4
ho_requirements_fastmem equ ho_order+16*2-ho_planes_add
ip_cl equ chipmem
ip_cl_bplcon0 equ ip_cl+(ip_ct_bplcon0-ip_ct)
ip_cl_palette equ ip_cl+(ip_ct_palette-ip_ct)
ip_cl_bpl2pth equ ip_cl+(ip_ct_bpl2pth-ip_ct)
ip_cl_cop1lcl equ ip_cl+(ip_ct_cop1lcl-ip_ct)
ip_cl_cop1lch equ ip_cl+(ip_ct_cop1lch-ip_ct)
ip_cl_1 equ ip_cl+(ip_ct_1-ip_ct)
ip_cl_bpl1pth1 equ ip_cl+(ip_ct_bpl1pth1-ip_ct)
ip_cl_data1 equ ip_cl+(ip_ct_data1-ip_ct)
ip_cl_2 equ ip_cl+(ip_ct_2-ip_ct)+(IP_PLANEHEIGHT*16+2+4+2+2)*2
ip_cl_bpl1pth2 equ ip_cl+(ip_ct_bpl1pth2-ip_ct)+(IP_PLANEHEIGHT*16+2+4+2+2)*2
ip_cl_data2 equ ip_cl+(ip_ct_data2-ip_ct)+(IP_PLANEHEIGHT*16+2+4+2+2)*2
ip_planes equ ip_cl+(ip_ct_data-ip_ct)+(IP_PLANEHEIGHT*16+2+4+2+2)*2*2
ip_planedata equ ip_planes+IP_PLANESIZE*IP_PLANES
ip_copperdata equ ip_planedata+2*4*IP_PLANEWIDTH
ip_requirements_chipmem equ ip_copperdata+16*16*25*2*2-ip_cl
ip_copperadd equ fastmem
ip_planeadd equ ip_copperadd+4
ip_copperptr equ ip_planeadd+4
ip_sinus equ ip_copperptr+16*16*4
ip_xsinus11 equ ip_sinus+1024*2
ip_xsinus12 equ ip_xsinus11+2
ip_xsinus21 equ ip_xsinus12+2
ip_xsinus22 equ ip_xsinus21+2
ip_ysinus11 equ ip_xsinus22+2
ip_ysinus12 equ ip_ysinus11+2
ip_ysinus21 equ ip_ysinus12+2
ip_ysinus22 equ ip_ysinus21+2
ip_chunky equ ip_ysinus22+2
ip_set equ ip_chunky+IP_PLANEWIDTH*8
ip_requirements_fastmem equ ip_set+1-ip_copperadd
ro_cl equ chipmem
ro_cl_bplcon0 equ ro_cl+(ro_ct_bplcon0-ro_ct)
ro_cl_bpl1pth equ ro_cl+(ro_ct_bpl1pth-ro_ct)
ro_cl_palette equ ro_cl+(ro_ct_palette-ro_ct)
ro_planes equ ro_cl+(ro_ct_data-ro_ct)+4
ro_requirements_chipmem equ ro_planes+RO_PLANESIZE*RO_PLANES-ro_cl
ro_mulu_planewidth equ fastmem
ro_mulu_256 equ ro_mulu_planewidth+RO_PLANEHEIGHT*2+128*256
ro_planes_add equ ro_mulu_256+128*256
ro_wait equ ro_planes_add+2
ro_waitdelta equ ro_wait+RO_SIZE/2*2
ro_sinuspointer equ ro_waitdelta+RO_SIZE/2*2
ro_sinusaddpointer equ ro_sinuspointer+2
ro_frame equ ro_sinusaddpointer+2
ro_requirements_fastmem equ ro_frame+1-ro_mulu_planewidth
sv_cl equ chipmem
sv_cl_bplcon0 equ sv_cl+(sv_ct_bplcon0-sv_ct)
sv_cl_bpl1pth equ sv_cl+(sv_ct_bpl1pth-sv_ct)
sv_cl_palette equ sv_cl+(sv_ct_palette-sv_ct)
sv_planes equ sv_cl+(sv_ct_data-sv_ct)
sv_mask equ sv_planes+2*SV_PLANESIZE*SV_PLANES
sv_stencil equ sv_mask+SV_PLANESIZE
sv_requirements_chipmem equ sv_stencil+SV_PLANES*SV_STENCIL_SIZE-sv_cl
sv_planes_add equ fastmem
sv_angles_add equ sv_planes_add+4
sv_coordinates equ sv_angles_add+12
sv_faces equ sv_coordinates+4
sv_distance equ sv_faces+4
sv_distance_old equ sv_distance+2
sv_object equ sv_distance_old+2
sv_angles equ sv_object+2
sv_rotate equ sv_angles+6*2
sv_oldcoords equ sv_rotate+15*2
sv_mulu_planewidth equ sv_oldcoords+2*2
sv_rotated equ sv_mulu_planewidth+SV_STENCIL_HEIGHT*2
sv_faces_z equ sv_rotated+56*4*2
sv_rs_tempbuffer equ sv_faces_z+(1+3*30)*2
sv_octants equ sv_rs_tempbuffer+3*30*2
sv_boundaries equ sv_octants+4
sv_rs_distcount equ sv_boundaries+4*2
sv_table_sqrt equ sv_rs_distcount+256
sv_object_change equ sv_table_sqrt+257
sv_angles_lock equ sv_object_change+1
sv_requirements_fastmem equ sv_angles_lock+3-sv_planes_add
sv_pre_set equ sv_object_change
sv_pre_fader equ sv_pre_set+1
sv_pre_wait equ sv_pre_fader+2
sy_cl equ chipmem
sy_cl_bpl1pth equ sy_cl+(sy_ct_bpl1pth-sy_ct)
sy_cl_data equ sy_cl+(sy_ct_data-sy_ct)
sy_planes equ sy_cl+(sy_ct_data_end-sy_ct)
sy_requirements_chipmem equ sy_planes+SY_PLANESIZE*SY_PLANES-sy_cl
sy_blink equ fastmem
sy_values equ sy_blink+2
sy_requirements_fastmem equ sy_values+6*4-sy_blink
end