home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-06-27 | 52.9 KB | 2,591 lines |
- ;object
-
- rout ;when this is off, the routine-file will be
- ;assembled, on=testing
-
- ;debug ;when this is on, colors in the background will
- ;show how much time the routine needs.
-
- ;ntsctest ;when this is on, the routineplayer is in ntsc-mode
-
- ;ocs ;off=AGA,on=OCS testing not possible on OCS !
-
- routinemode equ 14431 ;the routinemode !
-
-
- ; VideoTracker AGA developer source 25-12-93
- ; 24-bits colors, Super-HiRes, HAM8, maximum burstmode (64 pixels aligned)
- ; wich makes low-resolution overscan a bit ugly.
- ; no "interactive" support anymore, it's only used by Kick 1.3 users.
-
- ; the first part of the source handles the things that are necessary to
- ; show the picture/copper and playing of the routine.
- ; the part between the "***" lines is the routine-source.
- ; at the bottom of the file, there are the necessary incbin-files who
- ; are needed to test the routine.
- ; these are saved with "save effect" in videotracker. they are raw
- ; data files which can be fonts,pictures,landscapes,vectorobjects
- ; etcetra.
- ; the incbin-files are put in the "variables" table, in the routine-
- ; player-handler
- ; the place where it's done can be found by searching for "!!!"
-
- opt a+ ;devpac 3 optimize
- opt o+
-
- vew_wid equ 48
- vew_hgt equ 290
- win_hgt equ 117
- win_str equ $1a
-
- ifd ocs
- pic_wid equ 4 ;wide in bytes
- pic_hgt equ 6 ;hoogte
- pic_dpt equ 8 ;number planes
- pic_ani equ 10 ;aantal effes (anim)
- pic_vew equ 12 ;viewmode
- pic_cycstr equ 14 ;cycle start (*4)
- pic_cycend equ 15 ;cycle end (*4)
- pic_cycspd equ 16 ;cycle speed (*4)
- pic_cycadd equ 17 ;cycle add (*4)
- pic_palnum equ 30 ;aantal kleuren
- pic_pal equ 32 ;palette start
- pic_palsiz equ 256*2 ;vaste palette size
- pic_raw equ pic_pal+pic_palsiz ;palette start
- endc
-
- ifnd ocs
- pic_wid equ 4 ;wide in bytes
- pic_hgt equ 6 ;hoogte
- pic_dpt equ 8 ;number planes
- pic_ani equ 10 ;aantal effes (anim)
- pic_vew equ 12 ;viewmode
- pic_cycstr equ 14 ;cycle start (*8)
- pic_cycend equ 15 ;cycle end (*8)
- pic_cycspd equ 16 ;cycle speed (*8)
- pic_cycadd equ 17 ;cycle add (*8)
- pic_widmod equ 46 ;animation-width modulo
- pic_future equ 50 ;free future space
- pic_palnum equ 62 ;aantal kleuren
- pic_pal equ 64 ;palette start
- pic_palsiz equ 256*4 ;vaste palette size (longwords)
- pic_raw equ pic_pal+pic_palsiz ;palette start
- endc
-
- var_len equ $300 ;lengte vartabel
-
- var__GfxBase equ $000 ;graphics lib
- var_pic1 equ $004 ;current picture
- var_anispd1 equ $008 ;animspeed
- var_anitel1 equ $00c ;animcount
- var_cprbck equ $010 ;copperback
- var_bck equ $014 ;background
- var_pic2 equ $018 ;current picture
- var_ntsc equ $01c ;ntsc/pal frequence
- var_lnd equ $020 ;landscape
- var_anilop1 equ $024
- var_rottrg equ $028 ;effect trigger
- var_txt1 equ $040 ;text
- var_txt16 equ 15*4+var_txt1
- var_vec1 equ $080 ;vectors
- var_vec16 equ 15*4+var_vec1
- var_fon1 equ $0c0 ;fonts
- var_fon16 equ 15*4+var_fon1
- var_cols1 equ $100 ;colorsets
- var_cols16 equ 15*4+var_cols1
- var_obj1 equ $180 ;objects
- var_obj16 equ 15*4+var_obj1
-
- ifd rout
- ;videotracker routine-test
-
- incdir "w:include/"
- include "exec/types.i"
- include "graphics/gfxbase.i"
- include "lvo/graphics_lib.i"
- incdir 'videotracker:effect/'
-
- SECTION 1,CODE_C
- tus
- lea var,a0
- move.l #rotincobj,var_obj1(a0) ;incbinfile !!!
- move.l #rotincbck,var_bck(a0) ;incbinfile !!!
-
- ; move.l #rottube,var_vec1(a0) ;incbinfile !!!
- ; move.l #rotsrc,curpic1 ;picture !!!
- ; move.l #rotsrc,curpal1 ;palette !!!
- ; move.l #rotset,var_cols1(a0) ;colorset !!!
-
- bsr paltabres
-
- move.l ($4).w,a6
- sub.l a1,a1
- jsr -$126(a6) ;findtask
- move.l d0,curtsk
- move.l d0,a0
- move.l $b8(a0),tskpri
-
- lea dosnam,a1 ;doslib openen
- moveq.l #0,d0
- move.l (4).w,a6
- jsr -408(a6) ;openlib
- move.l d0,doslib
-
- bsr.s label5 ;videotracker opstarten
-
- move.l curtsk,a0
- move.l tskpri,$b8(a0)
- move.l ($4).w,a6
- jsr -$84(a6) ;forbid
-
- move.l doslib,a1
- move.l (4).w,a6
- jsr -414(a6) ;closelib
-
- moveq.l #0,d0
- rts
-
- label5
- move.l (4).w,a6 ;workbench gedoe
-
- move.b 530(a6),ntscmode ;50/60 hertz halen
-
- ifd ntsctest
- move.b #60,ntscmode ;60 hertz (ntsc)
- endc
-
- cmp.b #50,ntscmode ;ntsc ?
- beq.s str.ntsc
- move.l #vew_hgt-56,hogscr ;set NTSC screen hight
- str.ntsc
-
- lea cprjmp,a2 ;copjmp zetten !
- move.l #cprbck-8,d0
- move.w d0,6(a2)
- swap d0
- move.w d0,2(a2)
-
- lea cprbck-8,a2 ;copstr zetten !
- move.l #cpr,d0
- move.w d0,6(a2)
- swap d0
- move.w d0,2(a2)
-
- bsr cprsprrem ;sprites legen
-
- lea gfxnam,a1 ;graphics lib openen
- move.l (4).w,a6
- jsr -408(a6) ;openlib
- move.l d0,a6
- move.l d0,gfxlib
- move.l 38(a6),oldcprlist
-
- bset #1,$bfe001
- bsr copbuf ;copper vullen
-
- bsr sysoff
-
- gadrun
- btst #6,($bfe001).l
- bne gadrun
-
- scrend
- scrend.play
- bsr syson
-
- move.l gfxlib,a1
- move.l (4).w,a6
- jsr -414(a6) ;closelib
-
- scrend.qb
- moveq.l #0,d0
- rts
-
- ;vertical blank interrupt, no blits.
- ;handles counters,interlace,sprite
- ;level 3
-
- intvb
- bra.s intvb.cnt
- dc.l 'VIDU'
- dc.l 'LOOP'
- intvb.cnt
- movem.l d0-d7/a0-a6,-(sp)
- lea ($dff000).l,a6
-
- move.w $01e(a6),d0
- btst #5,d0 ;vblank ?
- bne.s intvb.vb
-
- bra.s intcop.end
-
- intvb.vb
- bsr grap
- bsr palctr ;palette zetten
- bsr.s copbuf ;copper vullen
-
- intvb.end
- move.w #$0020,$09c(a6) ;vb bit wissen
- movem.l (sp)+,d0-d7/a0-a6 ;multitask uit, shit !
- rte
-
- intcop.end
- movem.l (sp)+,d0-d7/a0-a6
- move.l intvbold,-(sp)
- rts
-
- ;transmission buffer empty routine, BLIT !
- ;handles routines,animations
-
- inttbe ;tbe interrupt
- movem.l d0-d7/a0-a6,-(sp)
- lea ($dff000).l,a6
-
- move.w $01e(a6),d0
- btst #0,d0 ;no tbe ?
- beq.s intdskblk
-
-
- btst #6,($bfe001).l ;muis ingedrukt ?
- beq.s inttbe.cop
- btst #2,($dff016).l
- beq.s inttbe.cop
-
- ifd debug
- move.w #$700,$dff180
- endc
-
- bsr rotply ;routineplayer BLIT !
- bsr.s copbuf ;copper vullen
-
- ifd debug
- move.w #$070,$dff180
- endc
-
- inttbe.cop
-
- inttbe.end
- move.w #$0001,$09c(a6)
- movem.l (sp)+,d0-d7/a0-a6
- rte
-
- intdskblk
- move.w #$0001,$09c(a6) ;be sure for no tbe handling
- movem.l (sp)+,d0-d7/a0-a6
- move.l inttbeold,-(sp)
- rts
-
-
- ;moves the copperbuffer to the copperlist
- ;sort of double buffering
-
- copbuf
- movem.l d0-d7/a0-a6,-(sp)
-
- lea ($dff000).l,a6
-
- copbuf.novb ;copperchange overslaan
- moveq.l #0,d0
- move.b $005(a6),d0
- lsl.w #8,d0
- moveq.l #0,d1
- move.b $006(a6),d1
- add.w d1,d0
-
- cmp.w #$4,d0 ;lower limit, all stations 100%
- blt copbuf.novb
-
- cmp.b #50,ntscmode
- beq.s copbuf.pal
- cmp.w #$133-72-8,d0 ;ntsc grens
- bge copbuf.novb
- bra.s copbuf.cont
- copbuf.pal
- cmp.w #$133-8,d0 ;pal grens
- bge copbuf.novb
- copbuf.cont
-
- lea gra.s,a0 ;buffer copieren
- lea cprbuf,a1
- copbuf_aga ;AGA stuff :)
- move.l #(gra.ql)/4-1,d0
- copbuf.a
- move.w 2(a0),2(a1)
- add.l #4,a0
- add.l #4,a1
- dbra d0,copbuf.a
-
- copbuf.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;goes back to the workbench
-
- syson
- movem.l d0-d7/a0-a6,-(sp)
-
- move.w #$0001,$dff09a ;tbeint uit
- move.l intvbold,($6c).w
- move.l inttbeold,($64).w
-
- move.l 4,a6
- jsr -138(a6) ;permit
-
- move.l gfxlib,a6
- jsr -462(a6) ;disownblitter
-
- move.l wbview,a1
- move.l gfxlib,a6
- jsr _LVOLoadView(a6) ; Fix view
- jsr _LVOWaitTOF(a6)
- jsr _LVOWaitTOF(a6) ; wait for LoadView()
-
- syson.ras
- cmp.b #$c0,$dff006 ;prevent copperjump
- bne syson.ras
-
- move.l gfxlib,a6
- move.l gb_copinit(a6),$dff080 ; Kick it into life
-
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;goes back to the gadgetscreen
-
- sysoff
- movem.l d0-d7/a0-a6,-(sp)
-
- move.l gfxlib,a6
- move.l gb_ActiView(a6),wbview ;current view
- sub.l a1,a1 ; clear a1
- jsr _LVOLoadView(a6) ; Flush View to nothing
- jsr _LVOWaitTOF(a6) ; Wait once
- jsr _LVOWaitTOF(a6) ; Wait again.
-
- move.l gfxlib,a6
- jsr -456(a6) ;ownblitter
-
- move.l 4,a6
- jsr -132(a6) ;forbid
-
- move.l ($6c).w,intvbold
- move.l #intvb,($6c).w
- move.l ($64).w,inttbeold
- move.l #inttbe,($64).w
- move.w #$8001,$dff09a ;tbeint aan
- bsr gracpr ;reset copper
- bsr copbuf ;copy copper
- move.l #cpr,$dff080
-
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- cprsprrem
- movem.l d0-d7/a0-a6,-(sp)
- lea cprspr,a0
- move.l #sprdat,d0
- move.w #7,d1
- cprsprrem.a
- move.w d0,3*2(a0)
- swap d0
- move.w d0,1*2(a0)
- swap d0
- add.l #8,a0
- dbra d1,cprsprrem.a
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- varset ;variablen neerzetten
- movem.l d0-d7/a0-a6,-(sp)
- move.l #var,a0
-
- move.l #cprbck,var_cprbck(a0)
- move.l gfxlib,var__GfxBase(a0)
- move.b ntscmode,var_ntsc(a0)
-
- move.l curpic1,var_pic1(a0) ;variabel
- move.l curpic2,var_pic2(a0) ;variabel
- move.w anispd1,var_anispd1(a0)
- move.w anitel1,var_anitel1(a0)
- move.b anilop1,var_anilop1(a0)
- move.l #rottrg,var_rottrg(a0)
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;this routine handles all videotracker-routines
-
- rotply
- movem.l d0-d7/a0-a6,-(sp)
-
- moveq.l #0,d0
-
- lea currot1,a2 ;routine 1
- move.w rotinf1,d0 ;routine info
- bsr.s rotplyr
-
- rotply.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;this routine handles 1 routine, BLIT !
-
- rotplyr
- movem.l d0-d7/a1-a6,-(sp)
-
- move.l #rot,(a2) ;routinestart address
-
- ; move.b #50,ntscmode ;ntsc/pal hz
- clr.l curpic2 ;background picture
- move.w #1,anispd1 ;animationspeed
- clr.w anitel1 ;animation position
-
- lea var,a0 ;communication-table
-
- move.b #0,anilop1 ;animloop off/on !!!
- move.w #32,anispd1 ;animdelay !!!
- move.l #routinemode,d0 ;routinemode !!!
-
- sub.l a0,a0 ;picture info legen
-
- tst.l (a2) ;is er een routine ?
- beq rotplyr.end ;interlace handling
-
- move.l intdel,d2 ;delay
- move.l inttel,d1 ;teller
- cmp.w d2,d1
- blt rotplyr.end
- clr.l inttel
-
- bsr varset ;variabelen updaten
-
- move.l (a2),a1 ;routine halen
- move.l #var,a0 ;variablen tabel
-
- movem.l d3-d7/a1-a6,-(sp)
- moveq.l #0,d1 ;vars wissen
- moveq.l #0,d2
- moveq.l #0,d3
- moveq.l #0,d4
- moveq.l #0,d5
- moveq.l #0,d6
- moveq.l #0,d7
- sub.l a2,a2
- sub.l a3,a3
- sub.l a4,a4
- sub.l a5,a5
-
- jsr 4(a1) ;routine afwerken
- movem.l (sp)+,d3-d7/a1-a6
-
- ;Routine:
- ;
- ;Input:
- ;a0=variabelentabel
- ;d0=routinemode
- ;
- ;Output:
- ;a0=picture
- ;d1=copperlist
- ;d2=interruptdelay (NOT used till now)
-
- move.w #$0020,$dff09a ;vb off !
-
- move.l d2,intdel ;delay
-
- lea cprjmp,a3
- move.l #cprbck-8,d0
-
- cmp.l (a2),a1 ;routine ondertussen gewipt ?
- bne.s rotplyr.nocop
- tst.l d1 ;copperlist ?
- beq.s rotplyr.nocop
- move.l d1,d0
- rotplyr.nocop
- move.w d0,6(a3)
- swap d0
- move.w d0,2(a3)
-
- cmp.l #0,a0 ;picture ?
- beq.s rotplyr.endvb
-
- move.l a0,curpic1 ;current picture (cycle)
- move.l a0,curpal1 ;current palette
-
- tst.b rotdpl ;plane is geleverd
- beq.s rotplyr.set
- clr.b rotdpl
- clr.l cycdel1 ;cycle info wissen
- clr.l 4+cycdel1
- clr.l curfrm1 ;curfrm1, altijd planes zetten
- rotplyr.set
- clr.b dplctr
- bsr.s grap
- bsr grac ;colorset
- rotplyr.endvb
- move.w #$8020,$dff09a
- rotplyr.end
- movem.l (sp)+,d0-d7/a1-a6
- rts
-
- ;removes possible routine-coppers
-
- gracpr
- movem.l d0-d7/a0-a6,-(sp)
- lea cprjmp,a3
- move.l #cprbck-8,d0 ;copperlist resetten
- move.w d0,6(a3)
- swap d0
- move.w d0,2(a3)
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- grap ;d7=anim
- movem.l d0-d7/a0-a6,-(sp)
-
- clr.l d7
-
- tst.l curpic1 ;current picture ?
- beq grap.end
-
- move.l curpic1,a2 ;normal pic halen
-
- lea gracprscr,a1 ;window neerzetten
- move.l hogscr,d1
-
- move.w pic_hgt(a2),d3 ;pic hoogte
- move.w pic_vew(a2),d5
- btst #2,d5 ;interlace ?
- beq.s grap.nohi4
- lsr.w #1,d3 ;/2
- grap.nohi4
- cmp.w d3,d1
- bge.s grap.hog
- move.w d1,d3
- grap.hog
- sub.w d3,d1
- lsr.w #1,d1
- add.w #win_str,d1
- move.w d1,d2
- add.w d3,d2
-
- move.b d1,2(a1) ;y start
- move.b d2,6(a1) ;y end
-
- move.w pic_wid(a2),d4 ;pic breedte in bytes
- lsl.l #3,d4
-
- move.l #vew_wid*8,d0
- move.l #0,d1
- move.l #$61,d6
-
- cmp.w #40,pic_wid(a2) ;overscan ?
- ble.s grap.noov1
- move.l #$41,d6
- grap.noov1
-
- move.w pic_vew(a2),d5
- btst #15,d5 ;hires ?
- beq.s grap.nohi2
-
- move.l #(vew_wid)*8*2,d0
- move.l #1,d1
- move.l #$61,d6
-
- cmp.w #80,pic_wid(a2) ;overscan ?
- ble.s grap.nohi2
- move.l #(vew_wid)*8*2,d0
- move.l #$51,d6
-
- bra.s grap.noshi2
- grap.nohi2
- btst #6,d5 ;super hires ?
- beq.s grap.noshi2
-
- move.l #(vew_wid)*8*4,d0
- move.l #2,d1
- move.l #$61,d6
-
- cmp.w #80*2,pic_wid(a2) ;overscan ?
- ble.s grap.noshi2
- move.l #(vew_wid)*8*4,d0
- move.l #$51,d6
-
- grap.noshi2
-
- clr.w d5
- cmp.w d0,d4 ;breeder dan scherm ?
- ble.s grap.c
- move.w d4,d5
- move.w d0,d4
- sub.w d0,d5 ;modulo
- lsr.w #3,d5 ;/8
- grap.c
- lsr.w d1,d0
- lsr.w d1,d4
-
- move.w d0,d2
- sub.w d4,d2
- lsr.w #1,d2 ;/2
-
- add.w d6,d2
- move.b d2,3(a1) ;x start
- move.w d2,d3 ;d3 bewaren !
-
- add.w d4,d2 ;d4 bewaren !
- move.b d2,7(a1) ;x end
-
- move.w pic_vew(a2),d6
- btst #15,d6 ;hires ?
- beq.s grap.nohi5
- add.l d4,d4 ;*2
- bra.s grap.noshi5
- grap.nohi5
- btst #6,d6 ;super hires ?
- beq.s grap.noshi5
- add.l d4,d4 ;*4
- add.l d4,d4
- grap.noshi5
-
- move.l d7,-(sp)
- move.w pic_vew(a2),d6
- move.l #17,d0
- move.l #4,d1 ;ecs 1
- move.l #3,d7
-
- btst #15,d6 ;hires ?
- beq.s grap.nohi3
- move.l #17,d0 ;ecs 9
- move.l #4,d1 ;ecs 2
- move.l #2,d7
- bra.s grap.noshi3
- grap.nohi3
- btst #6,d6 ;super hires ?
- beq.s grap.noshi3
- move.l #17,d0 ;ecs 9
- move.l #4,d1 ;ecs 2
- move.l #1,d7
- grap.noshi3
- sub.w d0,d3
- lsr.w #1,d3
- move.w d3,10(a1) ;ddfstrt
-
- move.w d4,d2 ;pic breedte in pixels
- lsr.w #4,d2 ;/16
- sub.w d1,d2 ;-1
-
- lsl.w d7,d2 ;*8
- add.w d2,d3
- move.w d3,14(a1) ;ddfstop
- move.l (sp)+,d7
-
- lea pic_raw(a2),a0
-
- moveq.l #0,d2
- move.w pic_dpt(a2),d2
- sub.l #1,d2
- muls pic_wid(a2),d2
- add.w d2,d5
-
- move.w pic_vew(a2),d2 ;viewmode add
- btst #2,d2
- beq.s grap.nolace4
-
- moveq.l #0,d2
- move.w pic_dpt(a2),d2
- muls pic_wid(a2),d2
- add.w d2,d5 ;interlace gedoe
- grap.nolace4
-
- lea gracprbpl,a4 ;iffpln neerzetten
- lea gracprpln,a0 ;iffpln neerzetten
- moveq.l #0,d2
- move.w pic_dpt(a2),d2 ;plnnummer 1 halen
- move.l #8,d6 ;copper step !
-
- tst.l curpic2 ;2de picture ?
- bne.s grap.pic2
- grap.nopic2
- move.w d5,34(a1) ;modulo oneven zetten
- bra grap.nodpl
- grap.pic2
- move.l curpic2,a3 ;oneven plane
- move.l curpic2+4,a6 ;oneven plane
- move.l currot2,a5 ;oneven plane
- clr.l curpic2 ;mischien niet goed
- clr.l curpic2+4 ;mischien niet goed
- clr.l curpal2 ;mischien niet goed
- clr.l currot2 ;mischien niet goed
-
- cmp.l curpic1,a3 ;picture hetzelfde ?
- beq.s grap.nopic2
-
- cmp.l #0,currot1 ;routine ?
- beq.s grap.norot
- cmp.l currot1,a5 ;routine hetzelfde ?
- beq.s grap.nopic2
- grap.norot
- cmp.b #4,d2 ;> 16 kleuren ? (AGA)
- bgt grap.nopic2
-
- move.w pic_dpt(a3),d3 ;plnnummer 2 halen
- cmp.b d2,d3 ;gelijke plnummers ?
- bne.s grap.nopic2
- move.w pic_vew(a2),d1
- cmp.w pic_vew(a3),d1 ;view gelijk ?
- bne.s grap.nopic2
-
- move.w pic_vew(a2),d1 ;groter dan view test
- btst #6,d1 ;super hires ?
- beq.s grap.nohi2a
- move.l #vew_wid*4,d1
- bra.s grap.nohi2b
- grap.nohi2a
- btst #15,d1 ;hires ?
- beq.s grap.noshi2a
- move.l #vew_wid*2,d1
- bra.s grap.nohi2b
- grap.noshi2a
- move.l #vew_wid,d1
- grap.nohi2b
- cmp.w pic_wid(a2),d1 ;breder dan view ?
- bgt.s grap.small
- cmp.w pic_wid(a3),d1 ;breder dan view ?
- bgt.s grap.small
-
- move.w pic_vew(a2),d1
- btst #2,d1
- beq.s grap.nolace8a
- move.l hogscr,d1
- add.l d1,d1
- bra.s grap.nolace8b
- grap.nolace8a
- move.l hogscr,d1
- grap.nolace8b
- cmp.w pic_hgt(a2),d1 ;hoger dan view ?
- bgt.s grap.small
- cmp.w pic_hgt(a3),d1 ;hoger dan view ?
- bgt.s grap.small
- bra.s grap.big
-
- grap.small
- move.w pic_hgt(a2),d1 ;wid+hgt<vew
- cmp.w pic_hgt(a3),d1 ;hoogte gelijk ?
- bne grap.nopic2
- move.w pic_wid(a2),d1
- cmp.w pic_wid(a3),d1 ;breedte gelijk ?
- bne grap.nopic2
-
- grap.big
- move.l a3,curpic2 ;toch wel goed !
- move.l a6,curpic2+4
- move.l a3,curpal2
- move.l a5,currot2
-
- tst.b dplctr ;dual playfield al gezet ?
- beq grap.nocop
-
- move.w 30(a1),34(a1) ;modulo copieren
-
- move.w 2(a4),d1 ;bplcon0
- btst #10,d1 ;al dual playfield ?
- beq.s grap.ta
-
- move.w 2(a0),10(a0) ;plane 0>1 copieren
- move.w 6(a0),14(a0)
-
- move.w 18(a0),26(a0) ;plane 2>3 copieren
- move.w 22(a0),30(a0)
-
- move.w 34(a0),42(a0) ;plane 4>5 copieren
- move.w 38(a0),46(a0)
-
- move.w 50(a0),58(a0) ;plane 6>7 copieren
- move.w 54(a0),62(a0)
-
- bra.s grap.tb
- grap.ta
- move.w 24(a0),58(a0) ;plane 3>7 copieren
- move.w 28(a0),62(a0)
-
- move.w 18(a0),42(a0) ;plane 2>5 copieren
- move.w 22(a0),46(a0)
-
- move.w 10(a0),26(a0) ;plane 1>3 copieren
- move.w 14(a0),30(a0)
-
- move.w 2(a0),10(a0) ;plane 0>1 copieren
- move.w 6(a0),14(a0)
-
- grap.tb
- move.l #palette,a3 ;palette copieren
-
- move.w #16-1,d1
- grap.pal
- move.l (a3)+,60(a3)
- dbra d1,grap.pal
-
- grap.nocop
- add.w d3,d2 ;aantal bitplanes
- cmp.w #8,d2 ;8 bitplanes ?
- blt grap.no8planes2
- move.w #%10000,d2 ;only bit 4
- bra grap.8planes2
- grap.no8planes2
- lsl.w #8,d2
- lsl.w #4,d2
- grap.8planes2
- or.w #$400,d2 ;dual playfield aan
- move.w d2,2(a4) ;bplcon0
-
- movem.l d0-d7/a0-a6,-(sp)
-
- move.l curpic,a2 ;animpic ?
- move.l curfrm,d7
- cmp.l #0,a2
- bne.s grap.noanipic
-
- move.l curpic2,a2 ;normal pic ?
- move.l curfrm2,d7
- cmp.l #0,a2
- beq.s grap.nodplpic
-
- grap.noanipic
- add.l d6,a0
- add.w d6,d6
- bsr.s grappln ;a2,d6,d7,d0
- grap.nodplpic
- movem.l (sp)+,d0-d7/a0-a6
- add.w d6,d6
- bra.s grap.nodpla
-
-
- grap.nodpl ;geen dual playfield
- cmp.w #8,d2 ;8 bitplanes ?
- blt grap.no8planes
- move.w #%10000,d2 ;only bit 4
- bra grap.8planes
- grap.no8planes
- lsl.w #8,d2
- lsl.w #4,d2
- grap.8planes
- move.w d2,2(a4) ;bplcon0
-
- grap.nodpla
- move.w d5,30(a1) ;modulo even
-
- moveq.l #0,d3
- add.w pic_vew(a2),d3 ;viewmode add
- moveq.l #0,d2
- move.w 2(a4),d2
- or.l d3,d2
-
- ifd gui
- tst.b genlck
- bne grap.genset
- endc
-
- or.l #$100,d2 ;genlock off ($302)
-
- ifd gui
- bra grap.gencont
- grap.genset
- or.l #$102,d2 ;genlock on ($302)
- grap.gencont
- endc
-
- move.w d2,2(a4)
-
- bsr.s grappln ;a2,d6,d7,d0
-
- grap.end
-
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
-
- ;sets on of the 2 possible pictures to the copper
- ;handles interlace
-
- ;d7=framenummer
- ;d6=copperliststap
- ;d0=raw planes positie
- ;a2=current picture
- grappln ;planes invullen
- movem.l d0-d7/a0-a6,-(sp)
-
- lea pic_raw(a2),a1
- move.l a1,d0 ;raw planes
-
- moveq.l #0,d2 ;x*y
- move.w pic_wid(a2),d2
- lsr.l #1,d2 ;/2
- moveq.l #0,d3
- move.w pic_hgt(a2),d3
- muls d3,d2
-
- move.l d2,d4
- add.l d2,d2
-
- move.w pic_dpt(a2),d3
- muls d3,d4 ;hele picture size
- muls d7,d4 ;frame*size d7 !!!
-
- add.l d4,d4
-
- add.l d4,d0
-
- move.l #vew_wid,d5 ;max x view
- move.l hogscr,d4 ;max y view
- move.w pic_vew(a2),d1 ;viewmode add
- btst #2,d1
- beq.s grappln.nolace
- add.l d4,d4 ;max y view
- grappln.nolace
- btst #15,d1 ;hires ?
- beq.s grappln.nohi
- move.l #vew_wid*2,d5 ;max x view
- bra.s grappln.noshi
- grappln.nohi
- btst #6,d1 ;super hires ?
- beq.s grappln.noshi
- move.l #vew_wid*4,d5 ;max x view
- grappln.noshi
-
- moveq.l #0,d3 ;scherm centreren
- move.w pic_wid(a2),d3 ;pic breedte in bytes
- cmp.w d5,d3 ;breder dan scherm ?
- ble.s grappln.qa
- sub.w d5,d3 ;-scherm breedte
- lsr.w #2,d3 ;/4
-
- add.l d3,d3
-
- add.l d3,d0
- grappln.qa
- move.w pic_hgt(a2),d3 ;pic hoogte in bytes
- cmp.w d4,d3 ;hoger dan scherm ?
- ble.s grappln.qb
- sub.w d4,d3 ;-scherm breedte
- lsr.w #1,d3 ;/2
- moveq.l #0,d5
- move.w pic_wid(a2),d5 ;pic breedte in bytes
- muls pic_dpt(a2),d5
- muls d5,d3
- add.l d3,d0
- grappln.qb
- moveq.l #0,d2
- move.w pic_wid(a2),d2
-
- move.w pic_vew(a2),d5 ;interlace flipping ?
- btst #2,d5
- beq.s grappln.nolac7b
-
- move.w $04(a6),d5 ;even/oneven ?
- btst #15,d5
- beq.s grappln.nolac7b
-
- moveq.l #0,d3
- move.w pic_wid(a2),d3
- muls pic_dpt(a2),d3
- add.l d3,d0
- grappln.nolac7b
-
- move.w pic_dpt(a2),d1 ;plnnummer 1 halen
- tst.w d1 ;0 planes ?
- beq grappln.end
- sub.w #1,d1
- grappln.a
- move.w d0,3*2(a0)
- swap d0
- move.w d0,1*2(a0)
- swap d0
- add.l d6,a0 ;d6=copper step !
- add.l d2,d0
- dbra d1,grappln.a
-
- cmp.w #8,pic_dpt(a2) ;8 planes ?
- bne grappln.noham8
- btst #3,pic_vew(a2) ;ham ?
- beq grappln.noham8
-
- move.w -14(a0),d0 ;get 6
- move.w -10(a0),d1
- move.w -6(a0),d2 ;get 7
- move.w -2(a0),d3
- move.w -18(a0),-2(a0) ;5>7
- move.w -22(a0),-6(a0) ;5>7
- move.w -26(a0),-10(a0) ;4>6
- move.w -30(a0),-14(a0) ;4>6
- move.w -34(a0),-18(a0) ;3>5
- move.w -38(a0),-22(a0) ;3>5
- move.w -42(a0),-26(a0) ;2>4
- move.w -46(a0),-30(a0) ;2>4
- move.w -50(a0),-34(a0) ;1>3
- move.w -54(a0),-38(a0) ;1>3
- move.w -58(a0),-42(a0) ;0>2
- move.w -62(a0),-46(a0) ;0>2
- move.w d0,-62(a0) ;6>0
- move.w d1,-58(a0) ;6>0
- move.w d2,-54(a0) ;7>1
- move.w d3,-50(a0) ;7>1
- grappln.noham8
-
- grappln.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;sets palettes to palette-buffer
-
- grac
- movem.l d0-d7/a0-a6,-(sp)
-
- lea curpal1,a3 ;palette 1
- move.l #palette,a1
- bsr.s gracfrm
-
- lea curpal2,a3 ;palette 2 (dpl)
- move.l #16*4+palette,a1
- bsr.s gracfrm
-
- bsr palctr ;palette-buffer to copper
- grac.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;moves palette from picture to palette-buffer
-
- gracfrm
- movem.l d0-d7/a0-a6,-(sp)
- tst.l (a3) ;palette aanwezig ?
- beq.s gracfrm.end
-
- move.l (a3),a2 ;current palette
-
- cmp.l #'PALE',(a2) ;palette ?
- bne.s gracfrm.pict
- lea 6(a2),a0 ;palette
- move.w 4(a2),d0 ;aantal kleuren
- bra.s gracfrm.col
- gracfrm.pict
- cmp.l #'ANIM',(a2) ;animatie ?
- bne.s gracfrm.noanim
-
- moveq.l #0,d1
- move.w pic_ani(a2),d1
- bclr #7,d1 ;behandelbit weghalen
-
- moveq.l #0,d3
- move.w pic_wid(a2),d3
- lsr.w #1,d3 ;/2
- muls pic_hgt(a2),d3
- muls pic_dpt(a2),d3
-
- add.l d3,d3
-
- add.l #pic_raw,d3
- move.l d3,d5
-
- btst #0,d1
- bne.s gracfrm.buf2
- moveq.l #0,d5
- gracfrm.buf2
- add.l d5,a2
- gracfrm.noanim
- lea pic_pal(a2),a0 ;palette
- move.w pic_palnum(a2),d0
-
- tst.w d0 ;0 planes ?
- beq.s gracfrm.end
- gracfrm.col
- gracfrm.fa
- move.l (a0)+,(a1)+
- dbra d0,gracfrm.fa
- gracfrm.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;handles colorcycling in the palette-buffer
-
- palcycctr
- movem.l d0-d7/a0-a6,-(sp)
-
- move.l curpic1,a2 ;current raw
- cmp.l #0,a2
- beq.s palcycctr.qb
- lea cycdel1,a3 ;cycle delays
- move.l #paltab,a4
- bsr palcyc
- palcycctr.qb
- move.l curpic2,a2 ;current raw
- cmp.l #0,a2
- beq.s palcycctr.c
- lea cycdel2,a3 ;cycle delays
- move.l #16*2+paltab,a4
- bsr palcyc
- palcycctr.c
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;copies palette-buffer to copper
-
- palctr
- movem.l d0-d7/a0-a6,-(sp)
-
- lea gracprcol,a1 ;AGA
- move.l #palette,a0
- move.l #paltab,a2
- move.w #8-1,d6
- palctr.e
- move.w #32-1,d7
- palctr.d
- move.w (a2)+,d0 ;get cycle-position
- move.w (a0,d0),6(a1) ;high RGB bits
- move.w 2(a0,d0),((32+1)*4)+6(a1) ;low RGB bits
- add.l #4,a1
- dbra d7,palctr.d
- add.l #((32+2)*4),a1
- dbra d6,palctr.e
- palctr.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;reset palette tabel, for proper color cycling
-
- paltabres
- movem.l d0-d7/a0-a6,-(sp)
- lea paltab,a0
- clr.l d0
- move.w #256-1,d1
- paltabres.a
- move.w d0,(a0)+
- add.w #4,d0 ;aga color words, high RGB + low RGB
- dbra d1,paltabres.a
- paltabres.end
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- ;colorcyclinghandling of a palette
-
- palcyc
- movem.l d0-d7/a0-a6,-(sp)
- move.w #4-1,d7 ;4 cycles
- palcyc.d
- tst.w (a3)+ ;delay klaar ?
- bne.s palcyc.c
-
- moveq.l #0,d1
- move.b pic_cycstr(a2),d1 ;start color
- lsl.b #1,d1 ;*2
-
- moveq.l #0,d2
- move.b pic_cycend(a2),d2 ;end color
- lsl.b #1,d2 ;*2
-
- moveq.l #0,d3
- move.b pic_cycadd(a2),d3 ;richting
-
- move.l a4,a0 ;palette pointer
- move.l a0,a1
- add.l d1,a0 ;startcolor
- add.l d2,a1 ;endcolor
-
- cmp.b #1,d3 ;omhoog
- beq.s palcyc.up
- cmp.b #3,d3 ;omlaag
- beq.s palcyc.down
- bra.s palcyc.i
-
- palcyc.up ;kleuren copieren
- move.w (a1),d4 ;laatst color bewaren
- palcyc.f ;kleuren copieren
- cmp.l a0,a1
- beq.s palcyc.fa
- move.w -(a1),2(a1)
- bra.s palcyc.f
- palcyc.fa
- move.w d4,(a1)
- bra.s palcyc.g
-
- palcyc.down
- move.w (a0),d4 ;laatst color bewaren
- palcyc.h ;kleuren copieren
- cmp.l a0,a1
- beq.s palcyc.ha
- move.w 2(a0),(a0)+
- bra.s palcyc.h
- palcyc.ha
- move.w d4,(a1)
-
- palcyc.g
- move.b pic_cycspd(a2),-1(a3) ;delay zetten
- bra.s palcyc.i
- palcyc.c
- sub.w #1,-2(a3) ;cycle delay aftellen
- palcyc.i
- add.l #4,a2 ;next cycle info
- dbra d7,palcyc.d
-
- palcyc.qb
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
-
-
- ; SECTION variabelen,DATA_c
-
- cnop 0,2
- curtsk dc.l 0
- tskpri dc.l 0
- duplok dc.l 0
- inttel dc.l 0
- intdel dc.l 0
-
- form dc.l 0
- ifffil dc.l 0
- intvbold dc.l 0
- inttbeold dc.l 0
- patpos dc.l 0
- gfxlib dc.l 0
- doslib dc.l 0
- wbview dc.l 0
- mt_data dc.l 0
- memvid dc.l 0
- oldcprlist dc.l 0
- hogscr dc.l vew_hgt
-
- inspos dc.l -1
- anispd1 dc.w 1 ;nooit op 0 !
- anispd2 dc.w 1
-
- cnop 0,2
- varclr.s ;start wissen
- oldrot dc.l 0
- curpic dc.l 0
- curfrm dc.l 0
- cycdel1 ds.w 4
- cycdel2 ds.w 4
-
- rotinf1 dc.w 0
- rotinf2 dc.w 0
-
- effspd dc.w 0
- efflop dc.b 0
- anilop1 dc.b 0
- anilop2 dc.b 0
- anipal1 dc.b 0
- anipal2 dc.b 0
- rotdpl dc.b 1
- rottrg dc.b 0
- dplctr dc.b 0
- cnop 0,2
-
- insdat ds.l 4
- inspri dc.l 0
- instel dc.w 0
-
- cureff dc.l 0
- efftel dc.w 0
-
- curpal1 dc.l 0
- curpal2 dc.l 0
- currot1 dc.l 0
- currot2 dc.l 0
- curpic1 dc.l 0
- curpic2 dc.l 0
- anitel1 dc.w 0
- anitel2 dc.w 0
- curfrm1 dc.l 0
- curfrm2 dc.l 0
- oldfrm1 dc.l 0
- oldfrm2 dc.l 0
-
- varclr.e
- dc.l 0 ;wisruimte
-
- varclr.ql equ varclr.e-varclr.s ;wislengte
-
- ntscmode dc.b 0
- end dc.b 0
-
- pronam dc.b 'VideoTracker',0
- cnop 0,2
- dosnam dc.b 'dos.library',0
- cnop 0,4
- gfxnam dc.b 'graphics.library',0
- cnop 0,4
-
- cnop 0,4
- gra.s ;copperlist edit buffer
- gracprscr
- dc.w $8e,$3381,$90,$81c1,$92,$003c,$94,$00d0
- gracprbpl
- dc.w $100,$0000,$102,$0000,$104,$0020
- dc.w $108,$0000,$10a,$0000,$1fc,$0003
- gracprpln
- dc.w $e0,$0000,$e2,$0000 ;1
- dc.w $e4,$0000,$e6,$0000 ;2
- dc.w $e8,$0000,$ea,$0000 ;3
- dc.w $ec,$0000,$ee,$0000 ;4
- dc.w $f0,$0000,$f2,$0000 ;5
- dc.w $f4,$0000,$f6,$0000 ;6
- dc.w $f8,$0000,$fa,$0000 ;7
- dc.w $fc,$0000,$fe,$0000 ;8
- gracprcol
- dc.w $106,$0000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$0200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$2000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$2200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$4000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$4200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$6000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$6200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$8000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$8200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$a000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$a200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$c000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$c200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$e000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$e200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$1000
-
- cprjmp
- dc.w $080,0,$082,0
- gra.e
- gra.ql equ gra.e-gra.s ;block lengte
-
- cpr ;real copperlist
- dc.w $0001,$fffe
- dc.w $09c,$8001 ;tbeint
- cprspr
- dc.w $120,$0000,$122,$0000
- dc.w $124,$0000,$126,$0000
- dc.w $128,$0000,$12a,$0000
- dc.w $12c,$0000,$12e,$0000
- dc.w $130,$0000,$132,$0000
- dc.w $134,$0000,$136,$0000
- dc.w $138,$0000,$13a,$0000
- dc.w $13c,$0000,$13e,$0000
-
- cprbuf
- dc.w $8e,$3381,$90,$81c1,$92,$003c,$94,$00d0
- dc.w $100,$9000,$102,$0000,$104,$0020
- dc.w $108,$0000,$10a,$0000,$1fc,$0003
-
- dc.w $e0,$0000,$e2,$0000 ;0
- dc.w $e4,$0000,$e6,$0000 ;1
- dc.w $e8,$0000,$ea,$0000 ;2
- dc.w $ec,$0000,$ee,$0000 ;3
- dc.w $f0,$0000,$f2,$0000 ;4
- dc.w $f4,$0000,$f6,$0000 ;5
- dc.w $f8,$0000,$fa,$0000 ;6
- dc.w $fc,$0000,$fe,$0000 ;7
-
- dc.w $106,$0000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$0200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$2000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$2200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$4000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$4200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$6000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$6200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$8000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$8200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$a000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$a200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$c000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$c200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$e000
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
- dc.w $106,$e200
- dc.w $180,0,$182,0,$184,0,$186,0,$188,0,$18a,0,$18c,0,$18e,0
- dc.w $190,0,$192,0,$194,0,$196,0,$198,0,$19a,0,$19c,0,$19e,0
- dc.w $1a0,0,$1a2,0,$1a4,0,$1a6,0,$1a8,0,$1aa,0,$1ac,0,$1ae,0
- dc.w $1b0,0,$1b2,0,$1b4,0,$1b6,0,$1b8,0,$1ba,0,$1bc,0,$1be,0
-
- dc.w $106,$1000
-
- dc.w $080,0,$082,0
- cprbuf.e
-
- dc.w $088,$0000 ;copjmp2
- dc.w $080,0,$082,0 ;moet achter cprbck blijven !
- cprbck
- sprdat
- dc.w $ffff,$fffe
-
- palette ds.l 256 ;palette 24-bits, far out !
- paltab ds.w 256 ;palette cycle-tabel
-
- cnop 0,2
- var ds.b $300 ;variabelen voor routines
-
-
- ; SECTION 10,CODE_C
- endc
-
- ; this is the routine-source
- ;**********************************************************************
-
- ; Input:
- ; a0=variabelen tabel
- ; d0=routinfo
-
- ; Output:
- ; a0=picture
-
-
- rot_vewh equ 0;$8000
- rot_vewl equ 0;$4
- rot_dpt equ 1
-
- ifeq rot_vewl-0
- rot_shgt equ 290+128
- rot_bhgt equ 290
- rot_ystp equ 32
- endc
- ifeq rot_vewl-$4
- rot_shgt equ (2*290)+128
- rot_bhgt equ 2*290
- rot_ystp equ 32*2
- endc
-
- ifeq rot_vewh-0
- ifd ocs
- rot_swid equ (368+128)/8
- rot_bwid equ 368/8
- rot_cen equ 0
- endc
- ifnd ocs
- rot_swid equ (384+128)/8
- rot_bwid equ 384/8
- rot_cen equ 4
- endc
- rot_xstp equ 32
-
- ifeq rot_dpt-1
- rot_blit equ 1 ;aantal blits
- endc
- ifeq rot_dpt-2
- rot_blit equ 1 ;aantal blits
- endc
- ifeq rot_dpt-3
- rot_blit equ 1 ;aantal blits
- endc
- ifeq rot_dpt-4
- rot_blit equ 2 ;aantal blits
- endc
- ifeq rot_dpt-5
- rot_blit equ 2 ;aantal blits
- endc
- ifeq rot_dpt-6
- rot_blit equ 2 ;aantal blits
- endc
- endc
-
- ifeq rot_vewh-$8000
- ifd ocs
- rot_swid equ ((368*2)+128)/8
- rot_bwid equ (368*2)/8
- rot_cen equ 4
- endc
- ifnd ocs
- rot_swid equ ((384*2)+128)/8
- rot_bwid equ (384*2)/8
- rot_cen equ 0
- endc
- rot_xstp equ 32*2
-
- ifeq rot_dpt-1
- rot_blit equ 1 ;aantal blits
- endc
- ifeq rot_dpt-2
- rot_blit equ 2 ;aantal blits
- endc
- ifeq rot_dpt-3
- rot_blit equ 2 ;aantal blits
- endc
- ifeq rot_dpt-4
- rot_blit equ 3 ;aantal blits
- endc
- endc
-
-
- rot_objnum equ 32
-
- cnop 0,8
-
- SECTION 3,CODE
- cnop 0,8
- rot
- rotp
- ifd ocs
- dc.l 'ROTO'
- endc
- ifnd ocs
- dc.l 'ROTA'
- endc
- movem.l d1-d7/a1-a6,-(sp)
-
- lea ($dff000).l,a6 ;hardware
- lea rot,a5 ;prog base
- ifd rout
- move.l #rotc,a2
- endc
- move.l a2,rotchp-rot(a5)
-
- move.w #%1111111111111111,$044(a6)
- move.w #%1111111111111111,$046(a6)
-
- move.l d0,d7 ;info
-
- tst.l var_bck(a0) ;nieuwe background ?
- beq rot.c
- move.l var_bck(a0),a1
- clr.l var_bck(a0)
-
- clr.l rotbckpln-rot(a5) ;background wissen
-
- move.l rotchp-rot(a5),a3
- add.l #rotpal1-rotc,a3 ;palette altijd copieren
- move.l a3,a4
- add.l #rotpic2-rotpic1,a4
-
- lea pic_pal(a1),a2 ;palette
- move.w pic_palnum(a1),d0
-
- rot.g
- ifd ocs
- move.w (a2),(a3)+
- move.w (a2)+,(a4)+
- endc
- ifnd ocs
- move.l (a2),(a3)+
- move.l (a2)+,(a4)+
- endc
- dbra d0,rot.g
-
- bsr rotcln ;alle objects uit
-
- cmp.w #rot_bwid,pic_wid(a1) ;size check
- bne rot.clean
- cmp.w #rot_bhgt,pic_hgt(a1) ;background ?
- bne rot.clean
- cmp.w #rot_dpt,pic_dpt(a1) ;background ?
- bne rot.clean
-
- lea pic_raw(a1),a2
- move.l a2,rotbckpln-rot(a5)
-
- move.l rotchp-rot(a5),a3
- add.l #(((rot_shgt-rot_bhgt)/2*rot_swid*rot_dpt)+((rot_swid-rot_bwid)/4*2)),a3
- add.l #rotpln1-rotc,a3
- move.l a3,a4
- add.l #rotpic2-rotpic1,a4
-
- move.w #0,$64(a6) ;bltamod
- move.w #rot_swid-rot_bwid,$66(a6) ;bltdmod
-
- move.w #$09f0,$40(a6) ;bltcon0
- move.w #0,$42(a6) ;bltcon1
-
- move.w #rot_blit-1,d3 ;bck opslaan
- rot.f
- move.l a2,$50(a6) ;bltapt
- move.l a3,$54(a6) ;bltdpt
- move.w #64*(rot_bhgt/rot_blit)*rot_dpt+(rot_bwid/2),$58(a6);bltsize
- bsr rotwit
-
- move.l a2,$50(a6) ;bltapt
- move.l a4,$54(a6) ;bltdpt
- move.w #64*(rot_bhgt/rot_blit)*rot_dpt+(rot_bwid/2),$58(a6);bltsize
- bsr rotwit
-
- add.l #(rot_bhgt/rot_blit)*rot_dpt*rot_bwid,a2
- add.l #(rot_bhgt/rot_blit)*rot_dpt*rot_swid,a3
- add.l #(rot_bhgt/rot_blit)*rot_dpt*rot_swid,a4
- dbra d3,rot.f
-
- bra rot.c
-
- rot.clean
- move.l rotchp-rot(a5),a3
- add.l #(((rot_shgt-rot_bhgt)/2*rot_swid*rot_dpt)+((rot_swid-rot_bwid)/4*2)),a3
- add.l #rotpln1-rotc,a3
- move.l a3,a4
- add.l #rotpic2-rotpic1,a4
-
- move.w #0,$042(a6)
- move.w #$100+$f0,$040(a6)
-
- move.w #rot_swid-rot_bwid,$064(a6)
- move.w #rot_swid-rot_bwid,$066(a6)
-
- move.w #0,$074(a6) ;a dat
- move.l #0,$044(a6) ;mask
-
- move.w #rot_blit-1,d0
- rot.blit1
- move.l a3,$054(a6) ;destination
- move.w #((rot_bhgt/rot_blit)*rot_dpt)*64+(rot_bwid/2),$058(a6)
- bsr rotwit
-
- move.l a4,$054(a6) ;destination
- move.w #((rot_bhgt/rot_blit)*rot_dpt)*64+(rot_bwid/2),$058(a6)
- bsr rotwit
-
- add.l #(rot_bhgt/rot_blit)*rot_dpt*rot_swid,a3
- add.l #(rot_bhgt/rot_blit)*rot_dpt*rot_swid,a4
-
- dbra d0,rot.blit1
-
- rot.c
- tst.l var_obj1(a0) ;object ?
- beq rot.a
-
- move.l var_obj1(a0),a1 ;object halen
- clr.l var_obj1(a0) ;en wissen
-
- move.w pic_dpt(a1),d1 ;zelfde depth ?
- cmp.w #rot_dpt,d1
- bgt rot.a
-
- lea rottab,a3 ;object tabel
- rot.cb
- tst.l obj_stat(a3) ;object al aan ?
- bne rot.ca
-
- move.w pic_wid(a1),2+obj_wid(a3)
- move.w pic_hgt(a1),2+obj_hgt(a3)
-
- move.w pic_dpt(a1),2+obj_dpt(a3)
-
- move.w pic_ani(a1),2+obj_anum(a3)
- move.w var_anispd1(a0),2+obj_aspd(a3)
- move.w var_anitel1(a0),2+obj_apos(a3)
-
- ; lea pic_pal(a1),a2 ;palette
- ; move.w pic_palnum(a1),d0
- ; lea rotpal1,a0 ;palettes
- ; move.l a0,a4
- ; add.l #rotpic2-rotpic1,a4
- ;rot.i
- ; move.w (a2),(a0)+
- ; move.w (a2)+,(a4)+
- ; dbra d0,rot.i ;a2 = source plane !
-
- lea pic_raw(a1),a2 ;raw
- move.l a2,obj_raw(a3) ;plane
-
- move.l obj_wid(a3),d0
- move.l obj_hgt(a3),d1
- muls d1,d0
- move.l obj_dpt(a3),d1
- muls d1,d0
- add.l d0,a2
- move.l a2,obj_rawm(a3) ;plane mask
-
- move.l #1,obj_stat(a3) ;object aan
-
- clr.l d1 ;info ombouwen
- move.w d7,d1
- divs #16384,d1
- and.l #$ffff,d1
- move.l d1,d6 ;sinusspeed (4)
- muls #16384,d1
- sub.w d1,d7
-
- move.w d7,d1
- divs #2048,d1
- and.l #$ffff,d1
- move.l d1,d5 ;sinussize (8)
- muls #2048,d1
- sub.w d1,d7
-
- move.w d7,d1
- divs #64,d1
- and.l #$ffff,d1
- move.l d1,d4 ;sinustype (32)
- muls #64,d1
- sub.w d1,d7
-
- move.w d7,d1
- divs #9,d1
- and.l #$ffff,d1
- move.l d1,d3 ;sinuscentre (64)
- muls #9,d1
- sub.w d1,d7
-
- muls #sintab_l,d4 ;sinustype
- lea sintab,a4
- add.l d4,a4
- lea obj_xsin(a3),a2
- move.w #sintab_l-1,d0
- rot.d
- move.b (a4)+,(a2)+
- dbra d0,rot.d
-
- muls #4,d6
- add.l #1,d6
- move.l obj_xstp(a3),d0 ;sinusspeed
- muls d6,d0
- move.l d0,obj_xstp(a3)
- move.l obj_ystp(a3),d0 ;sinuspeed
- muls d6,d0
- move.l d0,obj_ystp(a3)
-
- lea rotsiztab,a4
- lsl.l #2,d5 ;*4
- move.l (a4,d5),d5 ;sinusize
- move.l d5,obj_xsiz(a3)
- move.l d5,obj_ysiz(a3)
-
- muls #rot_xstp,d3 ;sinucentre x
- add.l d3,obj_ymid(a3)
- muls #rot_ystp,d7 ;sinucentre y
- add.l d7,obj_xmid(a3)
-
- bra rot.a
-
- rot.ca
- add.l #rottab_l,a3
- lea rottab.e,a4
- cmp.l a3,a4
- bne rot.cb
-
- rot.a
- bsr rotrem
- bsr rotset
- rot.end
- tst.l rotbckpln-rot(a5) ;background wissen
- beq rot.nobuf
-
- move.l rotchp-rot(a5),a0
- add.l #rotpic1-rotc,a0
- add.l rotbuf-rot(a5),a0
- eor.l #rotpln2-rotpln1,rotbuf-rot(a5) ;double playfield
- bra rot.buf
- rot.nobuf
- move.l rotchp-rot(a5),a0
- add.l #rotpic1-rotc,a0
- move.l rotbuf-rot(a5),d7
- ; eor.l #rotpln2-rotpln1,d7
- add.l d7,a0
- rot.buf
- movem.l (sp)+,d1-d7/a1-a6
- rts
-
- rotset
- movem.l d0-d7/a0-a6,-(sp)
- lea (rottab.e-rottab_l),a0
- move.w #rot_objnum-1,d0
- rotset.bb
- bsr rotobj ;set object op scherm
- sub.l #rottab_l,a0
- dbra d0,rotset.bb
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- rotrem
- movem.l d0-d7/a0-a6,-(sp)
- tst.l rotbckpln-rot(a5)
- beq rotrem.a
- lea rottab,a0
- move.w #rot_objnum-1,d0
- rotrem.bb
- bsr rotbck ;remove object op scherm
- add.l #rottab_l,a0
- dbra d0,rotrem.bb
- rotrem.a
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- rotcln
- movem.l d0-d7/a0-a6,-(sp)
- lea rottab,a0
- move.w #rot_objnum-1,d0
- rotcln.bb
- clr.l obj_stat(a0)
- add.l #rottab_l,a0
- dbra d0,rotcln.bb
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- rotobj
- movem.l d0-d7/a0-a6,-(sp) ;a0=rotobj info
-
- tst.l obj_stat(a0)
- beq rotobj.bb
-
- bsr rotsin
-
- move.l obj_xpos(a0),d0 ;d0=xpos
- move.l obj_ypos(a0),d1 ;d1=ypos
-
- move.l rotchp-rot(a5),a1
- add.l #rotpln1-rotc,a1
- add.l rotbuf-rot(a5),a1
-
- move.l d0,d2
- lsr.l #4,d0 ;ruwe xpos
- lsl.l #1,d0
- add.l d0,a1
-
- muls #rot_swid*rot_dpt,d1 ;ypos
- add.l d1,a1
-
- move.l obj_wid(a0),d6 ;bltsize berekenen
- lsr.w #1,d6 ;/2
- move.l obj_hgt(a0),d5
- muls 2+obj_dpt(a0),d5
- lsl.w #6,d5 ;*64 voor bltsize
- add.w d5,d6
-
- lsl.l #3,d0 ;bitscroll verder bereken
- sub.l d0,d2
- lsl.w #8,d2
- lsl.w #4,d2
- move.w d2,$42(a6) ;bltcon1
- add.w #$0fca,d2
- move.w d2,$40(a6) ;bltcon0
-
- rotobj.da
- move.l obj_apos(a0),d7
- move.l obj_aspd(a0),d5
- divs d5,d7
- and.l #$ffff,d7
- cmp.w 2+obj_anum(a0),d7
- blt rotobj.ea
- clr.l obj_apos(a0)
- bra rotobj.da
- rotobj.ea
- move.l obj_wid(a0),d5 ;breedte
- muls 2+obj_hgt(a0),d5 ;hoogte
- muls 2+obj_dpt(a0),d5 ;plnnumes
- muls d7,d5 ;anipos
- lsl.l #1,d5 ;+mask
-
- move.l obj_raw(a0),a4 ;obj picture
- add.l d5,a4
- move.l obj_rawm(a0),a3
- add.l d5,a3
-
- add.l #1,obj_apos(a0)
-
- move.l #rot_swid,d7
- sub.l obj_wid(a0),d7
- move.w d7,$60(a6) ;bltcmod
- move.w d7,$66(a6) ;bltdmod
-
- move.w #0,$62(a6) ;bltbmod
- move.w #0,$64(a6) ;bltamod
-
- rotobj.a
- move.l a1,$48(a6) ;bltcpt
- move.l a4,$4c(a6) ;bltbpt
- move.l a3,$50(a6) ;bltapt
- move.l a1,$54(a6) ;bltdpt
-
- move.w d6,$58(a6) ;bltsize
- bsr rotwit
-
- rotobj.bb
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- rotbck
- movem.l d0-d7/a0-a6,-(sp)
-
- tst.l obj_stat(a0)
- beq rotbck.bb
-
- move.l rotbckpln-rot(a5),a4 ;source
- sub.l #(((rot_shgt-rot_bhgt)/2)*rot_bwid*rot_dpt)+((rot_swid-rot_bwid)/4*2),a4
- move.l rotchp-rot(a5),a1
- add.l #rotpln1-rotc,a1
-
- add.l rotbuf-rot(a5),a1 ;destination
-
- move.l obj_xold(a0),d0
- lsr.l #4,d0
- lsl.l #1,d0
- add.l d0,a4
- add.l d0,a1
- move.l obj_yold(a0),d0
- move.l d0,d1
- muls #rot_bwid*rot_dpt,d0
- add.l d0,a4
- muls #rot_swid*rot_dpt,d1
- add.l d1,a1
-
- move.l #rot_bwid,d7
- sub.l obj_wid(a0),d7
- move.w d7,$64(a6) ;bltamod
-
- move.l #rot_swid,d7
- sub.l obj_wid(a0),d7
- move.w d7,$66(a6) ;bltdmod
-
- clr.w $42(a6) ;bltcon1
- move.w #$09f0,$40(a6) ;bltcon0
-
- move.l obj_wid(a0),d6 ;bltsize berekenen
- lsr.w #1,d6 ;/2
- move.l obj_hgt(a0),d5
- muls 2+obj_dpt(a0),d5
- lsl.w #6,d5 ;*64
- add.w d5,d6
-
- rotbck.c
- move.l a4,$50(a6) ;bltapt
- move.l a1,$54(a6) ;bltdpt
-
- move.w d6,$58(a6) ;bltsize
- bsr rotwit
-
- rotbck.bb
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- rotwit
- rotwit.a
- btst #6,($dff002).l
- bne rotwit.a
- rts
-
- rotsin
- movem.l d0-d7/a0-a6,-(sp)
-
- move.l obj_xsin(a0),d2
- move.l obj_ysin(a0),d3
-
- lea dat.sin,a1
-
- move.w (a1,d2),d0 ;x sin pos
- ext.l d0
- move.l obj_xsiz(a0),d4
- divs d4,d0 ;x circel grote
- add.l obj_xmid(a0),d0 ;x centrum pos
- and.l #$ffff,d0
-
- add.l obj_xstp(a0),d2 ;x sin stap grote
-
- cmp.l obj_xend(a0),d2
- blt rotsin.aa
- move.l obj_xstr(a0),d2
- rotsin.aa
- cmp.l obj_xstr(a0),d2
- bge rotsin.ab
- move.l obj_xend(a0),d2
- rotsin.ab
-
- move.w (a1,d3),d1 ;y sin pos
- ext.l d1
- move.l obj_ysiz(a0),d4 ;y circel grote
- divs d4,d1 ;y circel grote
- add.l obj_ymid(a0),d1 ;y centrum pos
- and.l #$ffff,d1
-
- add.l obj_ystp(a0),d3 ;y sin stap grote
-
- cmp.l obj_yend(a0),d3
- blt rotsin.ba
- move.l obj_ystr(a0),d3
- rotsin.ba
- cmp.l obj_ystr(a0),d3
- bge rotsin.bb
- move.l obj_yend(a0),d3
- rotsin.bb
- move.l d2,obj_xsin(a0)
- move.l d3,obj_ysin(a0)
-
- move.l obj_wid(a0),d2 ;x centreren
- sub.l #2,d2 ;- blitter ruimte
- lsl.l #2,d2
- sub.l d2,d0
- move.l obj_hgt(a0),d2 ;y centreren
- lsr.l #1,d2
- sub.l d2,d1
-
- cmp.l #0,d0 ;buiten scherm ?
- bge rotsin.za
- clr.l d0
- rotsin.za
- move.l #rot_swid*8,d7
- move.l obj_wid(a0),d6
- lsl.l #3,d6 ;*8
- sub.l d6,d7
- cmp.l d7,d0
- ble rotsin.zb
- move.l d7,d0
- rotsin.zb
-
- cmp.l #0,d1
- bge rotsin.zc
- clr.l d1
- rotsin.zc
- move.l #rot_shgt,d7
- sub.l obj_hgt(a0),d7
- cmp.l d7,d1
- ble rotsin.zd
- move.l d7,d1
- rotsin.zd
-
- move.l obj_xpos(a0),obj_xold(a0) ;oldpos
- move.l obj_ypos(a0),obj_yold(a0)
-
- move.l d0,obj_xpos(a0)
- move.l d1,obj_ypos(a0)
- rotsin.z
- movem.l (sp)+,d0-d7/a0-a6
- rts
-
- rotchp dc.l 0
- rotbuf dc.l 0
- rotbckpln dc.l 0
-
- obj_xpos equ $0
- obj_ypos equ $4
- obj_apos equ $8
- obj_aspd equ $0c
- obj_anum equ $10
- obj_wid equ $14
- obj_hgt equ $18
- obj_raw equ $1c
- obj_rawm equ $20
- obj_dpt equ $24
-
- obj_xold equ $28
- obj_yold equ $2c
- obj_xsin equ $30
- obj_xsiz equ $34
- obj_xmid equ $38
- obj_xstp equ $3c
- obj_xstr equ $40
- obj_xend equ $44
- obj_ysin equ $48
- obj_ysiz equ $4c
- obj_ymid equ $50
- obj_ystp equ $54
- obj_ystr equ $58
- obj_yend equ $5c
- obj_stat equ $60
-
-
- ; x-pos y-pos animpos animspeed animnum
- rottab
- dc.l 0, 0, 0, 0, 0
-
- ; width hight picture picturemask
- dc.l 0, 0, 0, 0
-
- ; plnnum xold yold
- dc.l 0, 0, 0
-
- ; xsin xsiz xmid xstp xstr xend
- dc.l 0, 500, 256, 2, 0, 720*2
-
- ; ysin ysiz ymid ystp ystr yend
- dc.l 180*2, 500, 192, 2, 0, 720*2
-
- ; status
- dc.l 0
-
- rottab.t
- rottab_l equ rottab.t-rottab
-
- rept rot_objnum-1
- dc.l 0, 0, 0, 0, 0
- dc.l 0, 0, 0, 0
- dc.l 0, 0, 0
- dc.l 0, 500, 256, 2, 0, 720*2
- dc.l 180*2, 500, 192, 6, 0, 720*2
- dc.l 0
- endr
- rottab.e
-
- rotsiztab
- ifeq rot_vewh-0
- dc.l 1300/1,1040/1,832/1,665/1
- dc.l 532/1,425/1,340/1,272/1 ;1,25
- endc
- ifeq rot_vewh-$8000
- dc.l 1300/2,1040/2,832/2,665/2
- dc.l 532/2,425/2,340/2,272/2 ;1,25
- endc
-
- sintab
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 1
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
- sintab.t
- sintab_l equ sintab.t-sintab
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),2,0,1440 ;O 2
- dc.l 360,1300,(rot_shgt/2)-(rot_ystp*3),2,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),4,0,1440 ;8 3
- dc.l 360,1300,(rot_shgt/2)-(rot_ystp*3),2,0,1440
-
- dc.l 360,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),2,0,1440 ;(X) 4
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),4,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),4,0,1440 ;complex 5
- dc.l 360,1300,(rot_shgt/2)-(rot_ystp*3),6,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;| 6
- dc.l 360,1300,(rot_shgt/2)-(rot_ystp*3),2,0,1440
-
- dc.l 360,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),2,0,1440 ;- 7
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;/\ Tip 8
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),2,720,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;\/ Tip 9
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),2,0,720
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),2,720,1440 ;< Tip 10
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),2,0,720 ;> Tip 11
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,720
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 12
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 13
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 14
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 15
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 16
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
-
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;. 17
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
-
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),-2,0,1440 ;O 18
- dc.l 360,1300,(rot_shgt/2)-(rot_ystp*3),-2,0,1440
-
- rept 32-18
- dc.l 000,1300,(rot_swid*4)-(rot_xstp*4)+(rot_cen*8),0,0,1440 ;.
- dc.l 000,1300,(rot_shgt/2)-(rot_ystp*3),0,0,1440
- endr
- sintab.e
-
-
- cnop 0,2
- dat.sin incbin 'w:bin/objsin.bin'
- dat.sin.e
-
- ;pic_wid equ 4 ;wide in bytes
- ;pic_hgt equ 6 ;hoogte
- ;pic_dpt equ 8 ;number planes
- ;pic_ani equ 10 ;aantal effes (anim)
- ;pic_vew equ 12 ;viewmode
- ;pic_cycstr equ 14 ;cycle start (*4)
- ;pic_cycend equ 15 ;cycle end (*4)
- ;pic_cycspd equ 16 ;cycle speed (*4)
- ;pic_cycadd equ 17 ;cycle add (*4)
- ;pic_palnum equ 30 ;aantal kleuren
- ;pic_pal equ 32 ;palette start
- ;pic_palsiz equ 256*2 ;vaste palette size
- ;pic_raw equ pic_pal+pic_palsiz ;palette start
-
- rotp.e
- SECTION 4,CODE_C
- cnop 0,8
- rotc
- ifd ocs
- dc.l 'ROTO'
- endc
- ifnd ocs
- dc.l 'ROTA'
- endc
- rts
- cnop 0,8
-
- rotpic1
- dc.l 'PICT'
- dc.w rot_swid,rot_shgt,rot_dpt,1,rot_vewh+rot_vewl
-
- ifd ocs
- ds.b 4*4
- endc
- ifnd ocs
- ds.b 8*4+16
- endc
-
- ifeq 1-rot_dpt
- dc.w 2-1
- rotpal1
- ifd ocs
- dc.w $000,$fff
- ds.w 256-2
- endc
- ifnd ocs
- dc.w $000,0,$fff,0
- ds.l 256-2
- endc
- endc
-
- ifeq 2-rot_dpt
- dc.w 4-1
- rotpal1
- ifd ocs
- dc.w $000,$555,$aaa,$fff
- ds.w 256-4
- endc
- ifnd ocs
- dc.w $000,0,$555,0,$aaa,0,$fff,0
- ds.l 256-4
- endc
- endc
-
- ifeq 3-rot_dpt
- dc.w 8-1
- rotpal1
- ifd ocs
- dc.w $000,$333,$555,$777,$999,$bbb,$ddd,$fff
- ds.w 256-8
- endc
- ifnd ocs
- dc.w $000,0,$333,0,$555,0,$777,0,$999,0,$bbb,0,$ddd,0,$fff,0
- ds.l 256-8
- endc
- endc
-
- ifeq 4-rot_dpt
- dc.w 16-1
- rotpal1
- ifd ocs
- dc.w $000,$111,$222,$333,$444,$555,$666,$777
- dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
- ds.w 256-16
- endc
- ifnd ocs
- dc.w $000,0,$111,0,$222,0,$333,0,$444,0,$555,0,$666,0,$777,0
- dc.w $888,0,$999,0,$aaa,0,$bbb,0,$ccc,0,$ddd,0,$eee,0,$fff,0
- ds.l 256-16
- endc
- endc
-
- ifeq 5-rot_dpt
- dc.w 32-1
- rotpal1
- ifd ocs
- dc.w $000,$111,$222,$333,$444,$555,$666,$777
- dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
- dc.w $00,$11,$22,$33,$44,$55,$66,$77
- dc.w $88,$99,$aa,$bb,$cc,$dd,$ee,$ff
- ds.w 256-32
- endc
- ifnd ocs
- dc.w $000,0,$111,0,$222,0,$333,0,$444,0,$555,0,$666,0,$777,0
- dc.w $888,0,$999,0,$aaa,0,$bbb,0,$ccc,0,$ddd,0,$eee,0,$fff,0
- dc.w $00,0,$11,0,$22,0,$33,0,$44,0,$55,0,$66,0,$77,0
- dc.w $88,0,$99,0,$aa,0,$bb,0,$cc,0,$dd,0,$ee,0,$ff,0
- ds.l 256-32
- endc
- endc
-
- ifeq 6-rot_dpt
- dc.w 32-1
- rotpal1
- ifd ocs
- dc.w $000,$111,$222,$333,$444,$555,$666,$777
- dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
- dc.w $00,$11,$22,$33,$44,$55,$66,$77
- dc.w $88,$99,$aa,$bb,$cc,$dd,$ee,$ff
- ds.w 256-32
- endc
- ifnd ocs
- dc.w $000,0,$111,0,$222,0,$333,0,$444,0,$555,0,$666,0,$777,0
- dc.w $888,0,$999,0,$aaa,0,$bbb,0,$ccc,0,$ddd,0,$eee,0,$fff,0
- dc.w $00,0,$11,0,$22,0,$33,0,$44,0,$55,0,$66,0,$77,0
- dc.w $88,0,$99,0,$aa,0,$bb,0,$cc,0,$dd,0,$ee,0,$ff,0
- ds.l 256-32
- endc
- endc
-
- rotpln1
- ds.b rot_dpt*rot_swid*rot_shgt
-
- cnop 0,8
- rotpic2
- dc.l 'PICT'
- dc.w rot_swid,rot_shgt,rot_dpt,1,rot_vewh+rot_vewl
-
- ifd ocs
- ds.b 4*4
- endc
- ifnd ocs
- ds.b 8*4+16
- endc
-
- ifeq 1-rot_dpt
- dc.w 2-1
- rotpal2
- ifd ocs
- dc.w $000,$fff
- ds.w 256-2
- endc
- ifnd ocs
- dc.w $000,0,$fff,0
- ds.l 256-2
- endc
- endc
-
- ifeq 2-rot_dpt
- dc.w 4-1
- rotpal2
- ifd ocs
- dc.w $000,$555,$aaa,$fff
- ds.w 256-4
- endc
- ifnd ocs
- dc.w $000,0,$555,0,$aaa,0,$fff,0
- ds.l 256-4
- endc
- endc
-
- ifeq 3-rot_dpt
- dc.w 8-1
- rotpal2
- ifd ocs
- dc.w $000,$333,$555,$777,$999,$bbb,$ddd,$fff
- ds.w 256-8
- endc
- ifnd ocs
- dc.w $000,0,$333,0,$555,0,$777,0,$999,0,$bbb,0,$ddd,0,$fff,0
- ds.l 256-8
- endc
- endc
-
- ifeq 4-rot_dpt
- dc.w 16-1
- rotpal2
- ifd ocs
- dc.w $000,$111,$222,$333,$444,$555,$666,$777
- dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
- ds.w 256-16
- endc
- ifnd ocs
- dc.w $000,0,$111,0,$222,0,$333,0,$444,0,$555,0,$666,0,$777,0
- dc.w $888,0,$999,0,$aaa,0,$bbb,0,$ccc,0,$ddd,0,$eee,0,$fff,0
- ds.l 256-16
- endc
- endc
-
- ifeq 5-rot_dpt
- dc.w 32-1
- rotpal2
- ifd ocs
- dc.w $000,$111,$222,$333,$444,$555,$666,$777
- dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
- dc.w $00,$11,$22,$33,$44,$55,$66,$77
- dc.w $88,$99,$aa,$bb,$cc,$dd,$ee,$ff
- ds.w 256-32
- endc
- ifnd ocs
- dc.w $000,0,$111,0,$222,0,$333,0,$444,0,$555,0,$666,0,$777,0
- dc.w $888,0,$999,0,$aaa,0,$bbb,0,$ccc,0,$ddd,0,$eee,0,$fff,0
- dc.w $00,0,$11,0,$22,0,$33,0,$44,0,$55,0,$66,0,$77,0
- dc.w $88,0,$99,0,$aa,0,$bb,0,$cc,0,$dd,0,$ee,0,$ff,0
- ds.l 256-32
- endc
- endc
-
- ifeq 6-rot_dpt
- dc.w 32-1
- rotpal2
- ifd ocs
- dc.w $000,$111,$222,$333,$444,$555,$666,$777
- dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
- dc.w $00,$11,$22,$33,$44,$55,$66,$77
- dc.w $88,$99,$aa,$bb,$cc,$dd,$ee,$ff
- ds.w 256-32
- endc
- ifnd ocs
- dc.w $000,0,$111,0,$222,0,$333,0,$444,0,$555,0,$666,0,$777,0
- dc.w $888,0,$999,0,$aaa,0,$bbb,0,$ccc,0,$ddd,0,$eee,0,$fff,0
- dc.w $00,0,$11,0,$22,0,$33,0,$44,0,$55,0,$66,0,$77,0
- dc.w $88,0,$99,0,$aa,0,$bb,0,$cc,0,$dd,0,$ee,0,$ff,0
- ds.l 256-32
- endc
- endc
-
- rotpln2
- ds.b rot_dpt*rot_swid*rot_shgt
-
- rotc.e
- rot.e
-
- ;**********************************************************************
-
- ;and here are the incbin-files....
-
- ifd rout
- cnop 0,8
- rotincobj
- ifd ocs
- incbin 'w:effect/trianglef32b_2.obj'
- endc
- ifnd ocs
- incbin 'w:effectaga/trianglef32b_2.obj'
- endc
- cnop 0,8
- rotincbck
- ifd ocs
- incbin 'w:effect/creator_l2.bck'
- endc
- ifnd ocs
- incbin 'w:effectaga/creator_l2.bck'
- endc
- endc
-
-
-