;------------------------------------------------------------------------ ;- - ;- Vector-Stars - ;- - ;------------------------------------------------------------------------ org $20000 load $20000 AntStars: = 93 ;------------------------------------------------------------------------ S: movem.l d0-d7/a0-a6,-(sp) lea.l $dff000,a6 bsr Startup bsr InitRutin bsr StartCop bsr MainLoop bsr RestoreCop movem.l (sp)+,d0-d7/a0-a6 rts Startup: move.w 2(a6),d0 bset #15,d0 move.w d0,OldDma move.w $1c(a6),d0 bset #15,d0 move.w d0,OldIrq move.l $4,a6 lea.l Lib(pc),a1 moveq #0,d0 jsr -408(a6) move.l d0,a0 move.l $26(a0),OldCop lea.l $dff000,a6 rts StartCop: move.l #CopperList,$80(a6) tst.w $88(a6) move.w #$7fff,$96(a6) move.w #$87c0,$96(a6) move.w #$7fff,$9a(a6) move.w #$c000,$9a(a6) rts RestoreCop: move.l OldCop(pc),$80(a6) tst.w $88(a6) move.w OldDma(pc),$96(a6) move.w OldIrq(pc),$9a(a6) rts ;----------------------------------------------------- OldCop: dc.l 0 OldDma: dc.w 0 OldIrq: dc.w 0 Lib: dc.b 'graphics.library',0 even ;----------------------------------------------------- ;------------------------------------------------------------------------ BlitWait: btst #14,2(a6) bne.S BlitWait rts ClearScreen: bsr.S BlitWait move.l #-1,$44(a6) move.l #$01000000,$40(a6) move.w d2,$66(a6) move.l d0,$54(a6) move.w d1,$58(a6) rts ;------------------------------------------------------------------------ InitRutin: move.l Screen(pc),d0 move.w #116*64+24,d1 moveq #0,d2 bsr ClearScreen move.l Screen+4(pc),d0 bsr ClearScreen lea.l Positioner(pc),a0 lea.l $6(a6),a1 move.w #1245,d1 move.w #13,d2 move.w #2,d3 move.w #AntStars-1,d7 RNDLoop: move.w (a1),d0 ext d0 muls d1,d0 and.w #$1ff,d0 ;cmp.w #320,d0 ;bls.S NoD1 sub.w #256,d0 NoD1: move.w d0,(a0)+ muls d2,d1 add.w d3,d2 move.w (a1),d0 ext d0 muls d1,d0 and.w #$1ff,d0 ;cmp.w #200,d0 ;bls.S NoD2 sub.w #256,d0 NoD2: move.w d0,(a0)+ muls d2,d1 add.w d3,d2 move.w (a1),d0 ext d0 muls d1,d0 and.w #$1ff,d0 sub.w #256,d0 move.w d0,(a0)+ muls d2,d1 add.w d3,d2 dbra d7,RNDLoop lea.l MulsList,a0 moveq #0,d0 move.w #300-1,d7 MulsLoop: move.w d0,(a0)+ add.w #44,d0 dbra d7,MulsLoop rts MulsList: = $6d000 ;------------------------------------------------------------------------ MainLoop: cmp.b #-1,$6(a6) bne.S MainLoop ;move.w #$4,$180(a6) bsr Stars ;move.w #$40,$180(a6) btst #6,$bfe001 bne.S MainLoop rts ;------------------------------------------------------------------------ Stars: bsr Buffra bsr Rensa bsr VinkelAdd bsr AddZ bsr Rakna bsr Plotta rts Buffra: move.l Screen(pc),d0 move.l Screen+4(pc),Screen move.l d0,Screen+4 lea.l BMap(pc),a0 moveq #2-1,d7 BMapLoop: swap d0 move.w d0,2(a0) swap d0 move.w d0,6(a0) addq.l #8,a0 add.l #BmapSize,d0 dbra d7,BMapLoop rts Rensa: move.l Screen(pc),d0 moveq #0,d2 move.w #280*64*2+22,d1 bsr ClearScreen rts VinkelAdd: lea.l Vinklar(pc),a0 lea.l VAdds(pc),a1 move.w #720,d1 moveq #3-1,d7 VAddLoop: move.w (a0),d0 add.w (a1)+,d0 cmp.w d1,d0 bls.S Nothing sub.w d1,d0 Nothing: move.w d0,(a0)+ dbra d7,VAddLoop rts AddZ: lea.l Positioner+4(pc),a0 move.w #511,d0 move.w #256,d3 move.w #-8,d1 move.w #AntStars-1,d7 ZLoop: move.w (a0),d2 add.w d3,d2 add.w d1,d2 and.w d0,d2 sub.w d3,d2 move.w d2,(a0) addq.l #6,a0 dbra d7,ZLoop rts Rakna: lea.l Positioner(pc),a0 lea.l Sinus+180(pc),a1 lea.l Sinus(pc),a2 lea.l Vinklar(pc),a3 lea.l Posses(pc),a4 lea.l Djup+200(pc),a5 lea.l CalcUp(pc),a6 move.w (a3),d0 move.w (a1,d0.W),(a6)+ move.w (a2,d0.W),(a6)+ move.w 4(a3),d0 move.w (a1,d0.W),(a6)+ move.w (a2,d0.W),(a6)+ move.w 2(a3),d0 move.w (a1,d0.W),(a6)+ move.w (a2,d0.W),(a6)+ lea.l CalcUp(pc),a1 lea.l MulsList,a6 move.w #AntStars-1,d7 RakneLoop: move.w (a1)+,d1 move.w (a1)+,d2 move.w 2(a0),d3 muls d2,d3 move.w 4(a0),d4 muls d1,d4 sub.l d4,d3 asl.l #2,d3 swap d3 ;Y move.w 2(a0),d4 muls d1,d4 move.w 4(a0),d5 muls d2,d5 add.l d5,d4 asl.l #2,d4 swap d4 ;Z move.w (a1)+,d1 move.w (a1)+,d2 move.w (a0),d5 muls d2,d5 move.w d3,d6 muls d1,d6 sub.l d6,d5 asl.l #2,d5 swap d5 ;X move.w (a0),d6 muls d1,d6 muls d2,d3 add.l d6,d3 asl.l #2,d3 swap d3 ;Y move.w (a1)+,d1 move.w (a1)+,d2 move.w d5,d0 muls d2,d0 move.w d4,d6 muls d1,d6 sub.l d6,d0 asl.l #2,d0 swap d0 ;X muls d1,d5 muls d2,d4 add.l d5,d4 asl.l #2,d4 swap d4 ;Z add.w #256,d4 add.w d4,d4 move.w (a5,d4.W),d2 muls d2,d0 muls d2,d3 lsl.l #4,d0 lsl.l #4,d3 swap d0 swap d3 addq.l #6,a0 add.w #176,d0 cmp.w #352,d0 bls.S NN move.w #351,d0 NN: add.w #140,d3 cmp.w #280,d3 bls.S NN2 move.w #281,d3 NN2: move.w d0,d1 lsr.w #3,d0 eor.w #$7,d1 add.w d3,d3 move.w (a6,d3.W),d3 add.w d3,d0 move.w d0,(a4)+ move.w d1,(a4)+ move.w d4,(a4)+ lea.l -12(a1),a1 dbra d7,RakneLoop lea.l $dff000,a6 rts Plotta: lea.l Posses(pc),a0 move.l Screen(pc),a1 move.l #BMapSize,d3 move.w #1024,d4 move.w #AntStars-1,d7 PlotLoop: move.w (a0)+,d0 move.w (a0)+,d1 move.w (a0)+,d2 cmp.w d3,d0 bhi.S NoPlot2 cmp.w d4,d2 bhi.S NoPlot2 btst #8,d2 beq.S NoPlot1 bset d1,(a1,d0.W) NoPlot1: add.w d3,d0 btst #9,d2 beq.S NoPlot2 bset d1,(a1,d0.W) NoPlot2: dbra d7,PlotLoop rts ;-------------------------------------------------- Screen: dc.l $60000 dc.l $70000 BMapSize: = 280*44 Posses: blk.w AntStars*3,0 Positioner: blk.w AntStars*3,0 CalcUp: blk.w 3*2,0 Vinklar: dc.w 0 dc.w 0 dc.w 0 VAdds: dc.w 6 dc.w 4 dc.w 4 ;-------------------------------------------------- ;------------------------------------------------------------------------ CopperList: dc.l $008e2066,$009038c6,$00920030,$009400d8 dc.l $01020000,$01040000,$01080000,$010a0000 dc.l $01800000,$01820ccd,$01840889,$01860446 BMap: dc.l $00e00000,$00e20000,$00e40000,$00e60000 dc.l $01002000 dc.l -2 ;------------------------------------------------------------------------ DJUP: dc.w $6a00,$6000,$5a00,$5200,$4d00,$4800,$4400,$4000 DC.W $3D12,$3BF4,$3AE0,$39D6,$38D6,$37DE,$36EE,$3606 DC.W $3526,$344C,$337A,$32AE,$31E9,$3129,$306F,$2FBA DC.W $2F0B,$2E60,$2DBB,$2D1A,$2C7D,$2BE4,$2B50,$2ABF DC.W $2A32,$29A9,$2923,$28A0,$2821,$27A5,$272B,$26B5 DC.W $2641,$25D0,$2562,$24F6,$248C,$2425,$23C0,$235D DC.W $22FD,$229E,$2241,$21E7,$218E,$2137,$20E1,$208E DC.W $203C,$1FEB,$1F9C,$1F4F,$1F03,$1EB9,$1E70,$1E28 DC.W $1DE2,$1D9C,$1D59,$1D16,$1CD4,$1C94,$1C55,$1C17 DC.W $1BD9,$1B9D,$1B62,$1B28,$1AEF,$1AB7,$1A7F,$1A49 DC.W $1A13,$19DF,$19AB,$1978,$1946,$1914,$18E3,$18B3 DC.W $1884,$1855,$1827,$17FA,$17CE,$17A2,$1776,$174C DC.W $1721,$16F8,$16CF,$16A7,$167F,$1658,$1631,$160B DC.W $15E5,$15C0,$159B,$1577,$1553,$1530,$150D,$14EA DC.W $14C8,$14A7,$1486,$1465,$1445,$1425,$1405,$13E6 DC.W $13C7,$13A9,$138B,$136D,$1350,$1333,$1316,$12FA DC.W $12DE,$12C3,$12A7,$128C,$1271,$1257,$123D,$1223 DC.W $1209,$11F0,$11D7,$11BE,$11A6,$118E,$1176,$115E DC.W $1147,$112F,$1118,$1102,$10EB,$10D5,$10BF,$10A9 DC.W $1094,$107E,$1069,$1054,$103F,$102B,$1017,$1002 DC.W $0FEF,$0FDB,$0FC7,$0FB4,$0FA1,$0F8E,$0F7B,$0F68 DC.W $0F56,$0F43,$0F31,$0F1F,$0F0E,$0EFC,$0EEB,$0ED9 DC.W $0EC8,$0EB7,$0EA6,$0E96,$0E85,$0E75,$0E64,$0E54 DC.W $0E44,$0E34,$0E25,$0E15,$0E06,$0DF6,$0DE7,$0DD8 DC.W $0DC9,$0DBA,$0DAC,$0D9D,$0D8F,$0D81,$0D72,$0D64 DC.W $0D56,$0D48,$0D3B,$0D2D,$0D20,$0D12,$0D05,$0CF8 DC.W $0CEB,$0CDE,$0CD1,$0CC4,$0CB7,$0CAB,$0C9E,$0C92 DC.W $0C86,$0C79,$0C6D,$0C61,$0C55,$0C49,$0C3E,$0C32 DC.W $0C26,$0C1B,$0C0F,$0C04,$0BF9,$0BEE,$0BE3,$0BD8 DC.W $0BCD,$0BC2,$0BB7,$0BAC,$0BA2,$0B97,$0B8D,$0B82 DC.W $0B78,$0B6E,$0B64,$0B5A,$0B50,$0B46,$0B3C,$0B32 DC.W $0B28,$0B1E,$0B15,$0B0B,$0B02,$0AF8,$0AEF,$0AE6 DC.W $0ADC,$0AD3,$0ACA,$0AC1,$0AB8,$0AAF,$0AA6,$0A9D DC.W $0A95,$0A8C,$0A83,$0A7B,$0A72,$0A69,$0A61,$0A59 DC.W $0A50,$0A48,$0A40,$0A38,$0A2F,$0A27,$0A1F,$0A17 DC.W $0A0F,$0A08,$0A00,$09F8,$09F0,$09E8,$09E1,$09D9 DC.W $09D2,$09CA,$09C3,$09BB,$09B4,$09AD,$09A5,$099E DC.W $0997,$0990,$0989,$0981,$097A,$0973,$096C,$0966 DC.W $095F,$0958,$0951,$094A,$0943,$093D,$0936,$0930 DC.W $0929,$0922,$091C,$0915,$090F,$0909,$0902,$08FC DC.W $08F6,$08EF,$08E9,$08E3,$08DD,$08D7,$08D1,$08CB DC.W $08C5,$08BF,$08B9,$08B3,$08AD,$08A7,$08A1,$089B DC.W $0895,$0890,$088A,$0884,$087F,$0879,$0873,$086E DC.W $0868,$0863,$085D,$0858,$0852,$084D,$0848,$0842 DC.W $083D,$0838,$0832,$082D,$0828,$0823,$081E,$0819 DC.W $0813,$080E,$0809,$0804,$07FF,$07FA,$07F5,$07F0 DC.W $07EB,$07E7,$07E2,$07DD,$07D8,$07D3,$07CE,$07CA DC.W $07C5,$07C0,$07BC,$07B7,$07B2,$07AE,$07A9,$07A4 DC.W $07A0,$079B,$0797,$0792,$078E,$0789,$0785,$0781 DC.W $077C,$0778,$0774,$076F,$076B,$0767,$0762,$075E DC.W $075A,$0756,$0751,$074D,$0749,$0745,$0741,$073D DC.W $0739,$0735,$0731,$072C,$0728,$0724,$0720,$071D DC.W $0719,$0715,$0711,$070D,$0709,$0705,$0701,$06FD DC.W $06FA,$06F6,$06F2,$06EE,$06EB,$06E7,$06E3,$06DF DC.W $06DC,$06D8,$06D4,$06D1,$06CD,$06CA,$06C6,$06C2 DC.W $06BF,$06BB,$06B8,$06B4,$06B1,$06AD,$06AA,$06A6 DC.W $06A3,$069F,$069C,$0699,$0695,$0692,$068E,$068B DC.W $0688,$0684,$0681,$067E,$067A,$0677,$0674,$0671 DC.W $066D,$066A,$0667,$0664,$0661,$065D,$065A,$0657 DC.W $0654,$0651,$064E,$064B,$0648,$0645,$0641,$063E DC.W $063B,$0638,$0635,$0632,$062F,$062C,$0629,$0626 DC.W $0623,$0620,$061E,$061B,$0618,$0615,$0612,$060F DC.W $060C,$0609,$0607,$0604,$0601,$05FE,$05FB,$05F8 DC.W $05F6,$05F3,$05F0,$05ED,$05EB,$05E8,$05E5,$05E2 DC.W $05E0,$05DD,$05DA,$05D8,$05D5,$05D2,$05D0,$05CD DC.W $05CA,$05C8,$05C5,$05C3,$05C0,$05BE,$05BB,$05B8 DC.W $05B6,$05B3,$05B1,$05AE,$05AC,$05A9,$05A7,$05A4 DC.W $05A2,$059F,$059D,$059A,$0598,$0595,$0593,$0591 DC.W $058E,$058C,$0589,$0587,$0585,$0582,$0580,$057D DC.W $057B,$0579,$0576,$0574,$0572,$056F,$056D,$056B DC.W $0569,$0566,$0564,$0562,$055F,$055D,$055B,$0559 DC.W $0556,$0554,$0552,$0550,$054E,$054B,$0549,$0547 DC.W $0545,$0543,$0541,$053E,$053C,$053A,$0538,$0536 DC.W $0534,$0532,$0530,$052D,$052B,$0529,$0527,$0525 DC.W $0523,$0521,$051F,$051D,$051B,$0519,$0517,$0515 DC.W $0513,$0511,$050F,$050D,$050B,$0509,$0507,$0505 DC.W $0503,$0501,$04FF,$04FD,$04FB,$04F9,$04F7,$04F5 DC.W $04F3,$04F1,$04F0,$04EE,$04EC,$04EA,$04E8,$04E6 DC.W $04E4,$04E2,$04E0,$04DF,$04DD,$04DB,$04D9,$04D7 DC.W $04D5,$04D4,$04D2,$04D0,$04CE,$04CC,$04CB,$04C9 DC.W $04C7,$04C5,$04C3,$04C2,$04C0,$04BE,$04BC,$04BB DC.W $04B9,$04B7,$04B5,$04B4,$04B2,$04B0,$04AE,$04AD DC.W $04AB,$04A9,$04A8,$04A6,$04A4,$04A3,$04A1,$049F DC.W $049E,$049C,$049A,$0499,$0497,$0495,$0494,$0492 DC.W $0490,$048F,$048D,$048C,$048A,$0488,$0487,$0485 DC.W $0484,$0482,$0480,$047F,$047D,$047C,$047A,$0478 DC.W $0477,$0475,$0474,$0472,$0471,$046F,$046E,$046C DC.W $046B,$0469,$0468,$0466,$0465,$0463,$0461,$0460 DC.W $045E,$045D,$045C,$045A,$0459,$0457,$0456,$0454 DC.W $0453,$0451,$0450,$044E,$044D,$044B,$044A,$0449 DC.W $0447,$0446,$0444,$0443,$0441,$0440,$043F,$043D DC.W $043C,$043A,$0439,$0438,$0436,$0435,$0433,$0432 DC.W $0431,$042F,$042E,$042D,$042B,$042A,$0429,$0427 DC.W $0426,$0424,$0423,$0422,$0420,$041F,$041E,$041C DC.W $041B,$041A,$0419,$0417,$0416,$0415,$0413,$0412 DC.W $0411,$040F,$040E,$040D,$040C,$040A,$0409,$0408 DC.W $0406,$0405,$0404,$0403,$0401,$0400,$03FF,$03FE DC.W $03FC,$03FB,$03FA,$03F9,$03F7,$03F6,$03F5,$03F4 DC.W $03F3,$03F1,$03F0,$03EF,$03EE,$03ED,$03EB,$03EA DC.W $03E9,$03E8,$03E7,$03E5,$03E4,$03E3,$03E2,$03E1 DC.W $03DF,$03DE,$03DD,$03DC,$03DB,$03DA,$03D8,$03D7 DC.W $03D6,$03D5,$03D4,$03D3,$03D2,$03D0,$03CF,$03CE DC.W $03CD,$03CC,$03CB,$03CA,$03C9,$03C7,$03C6,$03C5 DC.W $03C4,$03C3,$03C2,$03C1,$03C0,$03BF,$03BD,$03BC DC.W $03BB,$03BA,$03B9,$03B8,$03B7,$03B6,$03B5,$03B4 DC.W $03B3,$03B2,$03B1,$03AF,$03AE,$03AD,$03AC,$03AB DC.W $03AA,$03A9,$03A8,$03A7,$03A6,$03A5,$03A4,$03A3 DC.W $03A2,$03A1,$03A0,$039F,$039E,$039D,$039C,$039B DC.W $039A,$0399,$0398,$0397,$0396,$0395,$0394,$0393 DC.W $0392,$0391,$0390,$038F,$038E,$038D,$038C,$038B DC.W $038A,$0389,$0388,$0387,$0386,$0385,$0384,$0383 DC.W $0382,$0381,$0380,$037F,$037E,$037D,$037C,$037B DC.W $037A,$0379,$0378,$0378,$0377,$0376,$0375,$0374 DC.W $0373,$0372,$0371,$0370,$036F,$036E,$036D,$036C DC.W $036B,$036B,$036A,$0369,$0368,$0367,$0366,$0365 DC.W $0364,$0363,$0362,$0362,$0361,$0360,$035F,$035E DC.W $035D,$035C,$035B,$035A,$035A,$0359,$0358,$0357 DC.W $0356,$0355,$0354,$0353,$0353,$0352,$0351,$0350 DC.W $034F,$034E,$034D,$034D,$034C,$034B,$034A,$0349 DC.W $0348,$0347,$0347,$0346,$0345,$0344,$0343,$0342 DC.W $0342,$0341,$0340,$033F,$033E,$033E,$033D,$033C DC.W $033B,$033A,$0339,$0339,$0338,$0337,$0336,$0335 DC.W $0335,$0334,$0333,$0332,$0331,$0331,$0330,$032F DC.W $032E,$032D,$032D,$032C,$032B,$032A,$0329,$0329 DC.W $0328,$0327,$0326,$0326,$0325,$0324,$0323,$0323 DC.W $0322,$0321,$0320,$031F,$031F,$031E,$031D,$031C DC.W $031C,$031B,$031A,$0319,$0319,$0318,$0317,$0316 DC.W $0316,$0315,$0314,$0313,$0313,$0312,$0311,$0310 DC.W $0310,$030F,$030E,$030E,$030D,$030C,$030B,$030B DC.W $030A,$0309,$0308,$0308,$0307,$0306,$0306,$0305 DC.W $0304,$0303,$0303,$0302,$0301,$0301,$0300,$02FF DC.W $02FF,$02FE,$02FD,$02FC,$02FC,$02FB,$02FA,$02FA DC.W $02F9,$02F8,$02F8,$02F7,$02F6,$02F6,$02F5,$02F4 DC.W $02F3,$02F3,$02F2,$02F1,$02F1,$02F0,$02EF,$02EF DC.W $02EE,$02ED,$02ED,$02EC,$02EB,$02EB,$02EA,$02E9 DC.W $02E9,$02E8,$02E7,$02E7,$02E6,$02E5,$02E5,$02E4 DC.W $02E3,$02E3,$02E2,$02E2,$02E1,$02E0,$02E0,$02DF DC.W $02DE,$02DE,$02DD,$02DC,$02DC,$02DB,$02DA,$02DA DC.W $02D9,$02D9,$02D8,$02D7,$02D7,$02D6,$02D5,$02D5 DC.W $02D4,$02D3,$02D3,$02D2,$02D2,$02D1,$02D0,$02D0 DC.W $02CF,$02CF,$02CE,$02CD,$02CD,$02CC,$02CB,$02CB DC.W $02CA,$02CA,$02C9,$02C8,$02C8,$02C7,$02C7,$02C6 DC.W $02C5,$02C5,$02C4,$02C4,$02C3,$02C2,$02C2,$02C1 DC.W $02C1,$02C0,$02BF,$02BF,$02BE,$02BE,$02BD,$02BD DC.W $02BC,$02BB,$02BB,$02BA,$02BA,$02B9,$02B8,$02B8 DC.W $02B7,$02B7,$02B6,$02B6,$02B5,$02B4,$02B4,$02B3 DC.W $02B3,$02B2,$02B2,$02B1,$02B0,$02B0,$02AF,$02AF DC.W $02AE,$02AE,$02AD,$02AC,$02AC,$02AB,$02AB,$02AA DC.W $02AA,$02A9,$02A9,$02A8,$02A7,$02A7,$02A6,$02A6 DC.W $02A5,$02A5,$02A4,$02A4,$02A3,$02A3,$02A2,$02A1 DC.W $02A1,$02A0,$02A0,$029F,$029F,$029E,$029E,$029D DC.W $029D,$029C,$029C,$029B,$029B,$029A,$0299,$0299 DC.W $0298,$0298,$0297,$0297,$0296,$0296,$0295,$0295 DC.W $0294,$0294,$0293,$0293,$0292,$0292,$0291,$0291 DC.W $0290,$0290,$028F,$028F,$028E,$028E,$028D,$028C DC.W $028C,$028B,$028B,$028A,$028A,$0289,$0289,$0288 DC.W $0288,$0287,$0287,$0286,$0286,$0285,$0285,$0284 DC.W $0284,$0283,$0283,$0282,$0282,$0281,$0281,$0281 DC.W $0280,$0280,$027F,$027F,$027E,$027E,$027D,$027D DC.W $027C,$027C,$027B,$027B,$027A,$027A,$0279,$0279 DC.W $0278,$0278,$0277,$0277,$0276,$0276,$0275,$0275 DC.W $0274,$0274,$0274,$0273,$0273,$0272,$0272,$0271 DC.W $0271,$0270,$0270,$026F,$026F,$026E,$026E,$026D DC.W $026D,$026D,$026C,$026C,$026B,$026B,$026A,$026A DC.W $0269,$0269,$0268,$0268,$0268,$0267,$0267,$0266 DC.W $0266,$0265,$0265,$0264,$0264,$0264,$0263,$0263 DC.W $0262,$0262,$0261,$0261,$0260,$0260,$0260,$025F DC.W $025F,$025E,$025E,$025D,$025D,$025C,$025C,$025C DC.W $025B,$025B,$025A,$025A,$0259,$0259,$0259,$0258 DC.W $0258,$0257,$0257,$0256,$0256,$0256,$0255,$0255 DC.W $0254,$0254,$0253,$0253,$0253,$0252,$0252,$0251 DC.W $0251,$0250,$0250,$0250,$024F,$024F,$024E,$024E DC.W $024E,$024D,$024D,$024C,$024C,$024B,$024B,$024B DC.W $024A,$024A,$0249,$0249,$0249,$0248,$0248,$0247 DC.W $0247,$0247,$0246,$0246,$0245,$0245,$0245,$0244 DC.W $0244,$0243,$0243,$0243,$0242,$0242,$0241,$0241 DC.W $0241,$0240,$0240,$023F,$023F,$023F,$023E,$023E DC.W $023D,$023D,$023D,$023C,$023C,$023B,$023B,$023B DC.W $023A,$023A,$023A,$0239,$0239,$0238,$0238,$0238 DC.W $0237,$0237,$0236,$0236,$0236,$0235,$0235,$0235 DC.W $0234,$0234,$0233,$0233,$0233,$0232,$0232,$0231 DC.W $0231,$0231,$0230,$0230,$0230,$022F,$022F,$022E DC.W $022E,$022E,$022D,$022D,$022D,$022C,$022C,$022C DC.W $022B,$022B,$022A,$022A,$022A,$0229,$0229,$0229 DC.W $0228,$0228,$0228,$0227,$0227,$0226,$0226,$0226 DC.W $0225,$0225,$0225,$0224,$0224,$0224,$0223,$0223 DC.W $0222,$0222,$0222,$0221,$0221,$0221,$0220,$0220 DC.W $0220,$021F,$021F,$021F,$021E,$021E,$021E,$021D DC.W $021D,$021C,$021C,$021C,$021B,$021B,$021B,$021A DC.W $021A,$021A,$0219,$0219,$0219,$0218,$0218,$0218 DC.W $0217,$0217,$0217,$0216,$0216,$0216,$0215,$0215 DC.W $0215,$0214,$0214,$0214,$0213,$0213,$0213,$0212 DC.W $0212,$0212,$0211,$0211,$0211,$0210,$0210,$0210 DC.W $020F,$020F,$020F,$020E,$020E,$020E,$020D,$020D DC.W $020D,$020C,$020C,$020C,$020B,$020B,$020B,$020A DC.W $020A,$020A,$0209,$0209,$0209,$0208,$0208,$0208 DC.W $0207,$0207,$0207,$0206,$0206,$0206,$0205,$0205 DC.W $0205,$0204,$0204,$0204,$0204,$0203,$0203,$0203 DC.W $0202,$0202,$0202,$0201,$0201,$0201,$0200,$0200 DC.W $0200,$01FF,$01FF,$01FF,$01FE,$01FE,$01FE,$01FE DC.W $01FD,$01FD,$01FD,$01FC,$01FC,$01FC,$01FB,$01FB DC.W $01FB,$01FA,$01FA,$01FA,$01FA,$01F9,$01F9,$01F9 DC.W $01F8,$01F8,$01F8,$01F7,$01F7,$01F7,$01F7,$01F6 DC.W $01F6,$01F6,$01F5,$01F5,$01F5,$01F4,$01F4,$01F4 DC.W $01F4,$01F3,$01F3,$01F3,$01F2,$01F2,$01F2,$01F1 DC.W $01F1,$01F1,$01F1,$01F0,$01F0,$01F0,$01EF,$01EF DC.W $01EF,$01EF,$01EE,$01EE,$01EE,$01ED,$01ED,$01ED DC.W $01EC,$01EC,$01EC,$01EC,$01EB,$01EB,$01EB,$01EA DC.W $01EA,$01EA,$01EA,$01E9,$01E9,$01E9,$01E8,$01E8 DC.W $01E8,$01E8,$01E7,$01E7,$01E7,$01E6,$01E6,$01E6 DC.W $01E6,$01E5,$01E5,$01E5,$01E4,$01E4,$01E4,$01E4 DC.W $01E3,$01E3,$01E3,$01E3,$01E2,$01E2,$01E2,$01E1 DC.W $01E1,$01E1,$01E1,$01E0,$01E0,$01E0,$01DF,$01DF DC.W $01DF,$01DF,$01DE,$01DE,$01DE,$01DE,$01DD,$01DD DC.W $01DD,$01DC,$01DC,$01DC,$01DC,$01DB,$01DB,$01DB DC.W $01DB,$01DA,$01DA,$01DA,$01DA,$01D9,$01D9,$01D9 DC.W $01D8,$01D8,$01D8,$01D8,$01D7,$01D7,$01D7,$01D7 DC.W $01D6,$01D6,$01D6,$01D6,$01D5,$01D5,$01D5,$01D4 DC.W $01D4,$01D4,$01D4,$01D3,$01D3,$01D3,$01D3,$01D2 DC.W $01D2,$01D2,$01D2,$01D1,$01D1,$01D1,$01D1,$01D0 DC.W $01D0,$01D0,$01D0,$01CF,$01CF,$01CF,$01CF,$01CE DC.W $01CE,$01CE,$01CE,$01CD,$01CD,$01CD,$01CD,$01CC DC.W $01CC,$01CC,$01CB,$01CB,$01CB,$01CB,$01CA,$01CA DC.W $01CA,$01CA,$01C9,$01C9,$01C9,$01C9,$01C8,$01C8 DC.W $01C8,$01C8,$01C7,$01C7,$01C7,$01C7,$01C6,$01C6 DC.W $01C6,$01C6,$01C6,$01C5,$01C5,$01C5,$01C5,$01C4 DC.W $01C4,$01C4,$01C4,$01C3,$01C3,$01C3,$01C3,$01C2 DC.W $01C2,$01C2,$01C2,$01C1,$01C1,$01C1,$01C1,$01C0 DC.W $01C0,$01C0,$01C0,$01BF,$01BF,$01BF,$01BF,$01BE DC.W $01BE,$01BE,$01BE,$01BE,$01BD,$01BD,$01BD,$01BD DC.W $01BC,$01BC,$01BC,$01BC,$01BB,$01BB,$01BB,$01BB DC.W $01BA,$01BA,$01BA,$01BA,$01BA,$01B9,$01B9,$01B9 DC.W $01B9,$01B8,$01B8,$01B8,$01B8,$01B7,$01B7,$01B7 DC.W $01B7,$01B7,$01B6,$01B6,$01B6,$01B6,$01B5,$01B5 DC.W $01B5,$01B5,$01B4,$01B4,$01B4,$01B4,$01B4,$01B3 DC.W $01B3,$01B3,$01B3,$01B2,$01B2,$01B2,$01B2,$01B2 DC.W $01B1,$01B1,$01B1,$01B1,$01B0,$01B0,$01B0,$01B0 DC.W $01B0,$01AF,$01AF,$01AF,$01AF,$01AE,$01AE,$01AE DC.W $01AE,$01AE,$01AD,$01AD,$01AD,$01AD,$01AC,$01AC DC.W $01AC,$01AC,$01AC,$01AB,$01AB,$01AB,$01AB,$01AA DC.W $01AA,$01AA,$01AA,$01AA,$01A9,$01A9,$01A9,$01A9 DC.W $01A9,$01A8,$01A8,$01A8,$01A8,$01A7,$01A7,$01A7 DC.W $01A7,$01A7,$01A6,$01A6,$01A6,$01A6,$01A6,$01A5 DC.W $01A5,$01A5,$01A5,$01A4,$01A4,$01A4,$01A4,$01A4 DC.W $01A3,$01A3,$01A3,$01A3,$01A3,$01A2,$01A2,$01A2 DC.W $01A2,$01A2,$01A1,$01A1,$01A1,$01A1,$01A1,$01A0 DC.W $01A0,$01A0,$01A0,$019F,$019F,$019F,$019F,$019F DC.W $019E,$019E,$019E,$019E,$019E,$019D,$019D,$019D DC.W $019D,$019D,$019C,$019C,$019C,$019C,$019C,$019B DC.W $019B,$019B,$019B,$019B,$019A,$019A,$019A,$019A DC.W $019A,$0199,$0199,$0199,$0199,$0199,$0198,$0198 DC.W $0198,$0198,$0198,$0197,$0197,$0197,$0197,$0197 DC.W $0197,$0197,$0197,$0197,$0197,$0197,$0197,$0197 DC.W $0197,$0197,$0197,$0197,$0196,$0196,$0196,$0196 DC.W $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196 DC.W $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196 DC.W $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196 Sinus: dc.w 16384,16382,16374,16362,16344,16322,16294,16262 dc.w 16225,16182,16135,16083,16026,15964,15897,15826 dc.w 15749,15668,15582,15491,15396,15296,15191,15082 dc.w 14967,14849,14726,14598,14466,14330,14189,14044 dc.w 13894,13741,13583,13421,13255,13085,12911,12733 dc.w 12551,12365,12176,11982,11786,11585,11381,11174 dc.w 10963,10749,10531,10311,10087,9860,9630,9397 dc.w 9162,8923,8682,8438,8192,7943,7692,7438 dc.w 7182,6924,6664,6401,6137,5871,5603,5334 dc.w 5063,4790,4516,4240,3963,3685,3406,3126 dc.w 2845,2563,2280,1996,1712,1427,1142,857 dc.w 571,285,0,-285,-571,-857,-1142,-1428 dc.w -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685 dc.w -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871 dc.w -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943 dc.w -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860 dc.w -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585 dc.w -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085 dc.w -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330 dc.w -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296 dc.w -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964 dc.w -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322 dc.w -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362 dc.w -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083 dc.w -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491 dc.w -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598 dc.w -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421 dc.w -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982 dc.w -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311 dc.w -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438 dc.w -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402 dc.w -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240 dc.w -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996 dc.w -1712,-1428,-1143,-857,-572,-286,0,285 dc.w 571,857,1142,1427,1712,1996,2280,2562 dc.w 2844,3126,3406,3685,3963,4240,4515,4790 dc.w 5062,5334,5603,5871,6137,6401,6663,6924 dc.w 7182,7438,7691,7943,8192,8438,8682,8923 dc.w 9161,9397,9630,9860,10087,10310,10531,10748 dc.w 10963,11173,11381,11585,11785,11982,12175,12365 dc.w 12551,12732,12910,13085,13255,13421,13583,13740 dc.w 13894,14044,14189,14330,14466,14598,14726,14849 dc.w 14967,15081,15191,15296,15396,15491,15582,15668 dc.w 15749,15826,15897,15964,16026,16083,16135,16182 dc.w 16224,16262,16294,16322,16344,16361,16374,16382 dc.w 16384,16382,16374,16362,16344,16322,16294,16262 dc.w 16225,16182,16135,16083,16026,15964,15897,15826 dc.w 15749,15668,15582,15491,15396,15296,15191,15082 dc.w 14967,14849,14726,14598,14466,14330,14189,14044 dc.w 13894,13741,13583,13421,13255,13085,12911,12733 dc.w 12551,12365,12176,11982,11786,11585,11381,11174 dc.w 10963,10749,10531,10311,10087,9860,9630,9397 dc.w 9162,8923,8682,8438,8192,7943,7692,7438 dc.w 7182,6924,6664,6401,6137,5871,5603,5334 dc.w 5063,4790,4516,4240,3963,3685,3406,3126 dc.w 2845,2563,2280,1996,1712,1427,1142,857 dc.w 571,285,0,-285,-571,-857,-1142,-1428 dc.w -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685 dc.w -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871 dc.w -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943 dc.w -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860 dc.w -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585 dc.w -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085 dc.w -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330 dc.w -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296 dc.w -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964 dc.w -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322 dc.w -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362 dc.w -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083 dc.w -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491 dc.w -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598 dc.w -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421 dc.w -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982 dc.w -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311 dc.w -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438 dc.w -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402 dc.w -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240 dc.w -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996 dc.w -1712,-1428,-1143,-857,-572,-286,0,285 dc.w 571,857,1142,1427,1712,1996,2280,2562 dc.w 2844,3126,3406,3685,3963,4240,4515,4790 dc.w 5062,5334,5603,5871,6137,6401,6663,6924 dc.w 7182,7438,7691,7943,8192,8438,8682,8923 dc.w 9161,9397,9630,9860,10087,10310,10531,10748 dc.w 10963,11173,11381,11585,11785,11982,12175,12365 dc.w 12551,12732,12910,13085,13255,13421,13583,13740 dc.w 13894,14044,14189,14330,14466,14598,14726,14849 dc.w 14967,15081,15191,15296,15396,15491,15582,15668 dc.w 15749,15826,15897,15964,16026,16083,16135,16182 dc.w 16224,16262,16294,16322,16344,16361,16374,16382