;------------------------------------------------ ;-- AGAIN GANDALF ON YOUR SCREEN WITH A SOURCE -- ;-- OF ACES. -- ;-- THIS SOURCE IS A FILLED VECTOR CODE !!! -- ;-- VERY GREAT CODING !!! -- ;------------------------------------------------ ;FOR RUN THE INTRO ;SEKA>a ;SEKA>jmm ;AND ENJOY THE RESULTATE !! CUSTOM = $DFF000 BPLCON0: EQU $100 BPLCON1: EQU $102 BPLCON2: EQU $104 BPL1MOD: EQU $108 BPL2MOD: EQU $10A DDFSTRT: EQU $092 DDFSTOP: EQU $094 DIWSTRT: EQU $08E DIWSTOP: EQU $090 VHPOSR: EQU $006 VPOSR: EQU $004 COLOR00: EQU $180 COLOR01: EQU $182 COLOR02: EQU $184 COLOR03: EQU $186 COLOR17: EQU $1A2 COLOR18: EQU $1A4 COLOR19: EQU $1A6 DMACON: EQU $096 COP1LCH: EQU $080 COPJMP1: EQU $088 NONAME: EQU $106 DMACONR: EQU $002 BLTDMOD: EQU $066 BLTCMOD: EQU $060 BLTBMOD: EQU $062 BLTAMOD: EQU $064 BLTAFWM: EQU $044 BLTALWM: EQU $046 BLTADAT: EQU $074 BLTBDAT: EQU $072 BLTCON0: EQU $040 BLTCON1: EQU $042 BLTAPTH: EQU $050 BLTAPTL: EQU $052 BLTBPTH: EQU $04C BLTCPTH: EQU $048 BLTDPTH: EQU $054 BLTSIZE: EQU $058 AUDOLCH: EQU $0A0 AUDOLEN: EQU $0A4 AUDOPER: EQU $0A6 AUDOVOL: EQU $0A8 AUDODAT: EQU $0AA EXECBASE= $004 OPENLIBRARY= -408 OPENFILE= -30 CLOSEFILE= -36 CLOSELIBRARY= -414 ALLOCMEMORY= -198 FREEMEMORY= -210 READFILE= -42 WRITEFILE= -48 FORBIDTASK= -132 PERMITTASK= -138 ;************************************************* ;****** MACRO-FONCTIONS ********** ;************************************************* OPENLIB: MACRO ;* MOVE.L EXECBASE,A6 ;* LEA ?1,A1 ;* MOVEQ #0,D0 ;* JSR OPENLIBRARY(A6) ;* MOVE.L D0,?2 ;* ENDM ;* ALLOCMEM: MACRO ;* MOVE.L EXECBASE,A6 ;* MOVE.L ?1,D0 ;* MOVE.L ?2,D1 ;* JSR ALLOCMEMORY(A6) ;* MOVE.L D0,?3 ;* ENDM ;* FREECOP: MACRO ;* MOVE.L GFXBASE,A6 ;* MOVE.L $26(A6),CUSTOM+COP1LCH ;* ENDM ;* FREEMEM: MACRO ;* MOVE.L EXECBASE,A6 ;* MOVE.L ?1,A1 ;* MOVE.L ?2,D0 ;* JSR FREEMEMORY(A6) ;* ENDM ;* CLOSELIB: MACRO ;* MOVE.L EXECBASE,A6 ;* MOVE.L ?1,A1 ;* JSR CLOSELIBRARY(A6) ;* ENDM ;* PERMIT: MACRO ;* MOVE.L EXECBASE,A6 ;* JSR PERMITTASK(A6) ;* ENDM ;* FORBID: MACRO ;* MOVE.L EXECBASE,A6 ;* JSR FORBIDTASK(A6) ;* ENDM ;* ;------------------------------------------------- BRA MM ;* GFXLIB: DC.B "graphics.library",0 ;* even ;* DOSLIB: DC.B "dos.library",0 ;* even ;* DOSBASE: DC.L 0 ;* GFXBASE: DC.L 0 ;* ;************************************************* MM: MOVE.L #ZERO,$14 ;JMP RY FORBID ALLOCMEM #32100,#2,SCREEN1 ALLOCMEM #32100,#2,SCREEN2 ALLOCMEM #100,#2,COPLIST OPENLIB GFXLIB,GFXBASE LEA CUSTOM,A0 MOVE #$4200,BPLCON0(A0) MOVE #0,BPLCON1(A0) MOVE #$38,DDFSTRT(A0) MOVE #$D0,DDFSTOP(A0) MOVE #$2C81,DIWSTRT(A0) MOVE #$F4C1,DIWSTOP(A0) MOVE.L SCREEN2,D7 MOVE.L SCREEN2,BITMP MOVE.L COPLIST,A1 MOVE #$00E0,(A1)+ SWAP D7 MOVE D7,(A1)+ MOVE #$00E2,(A1)+ SWAP D7 MOVE D7,(A1)+ ADD.L #8000,D7 MOVE #$00E4,(A1)+ SWAP D7 MOVE D7,(A1)+ MOVE #$00E6,(A1)+ SWAP D7 MOVE D7,(A1)+ ADD.L #8000,D7 MOVE #$00E8,(A1)+ SWAP D7 MOVE D7,(A1)+ MOVE #$00EA,(A1)+ SWAP D7 MOVE D7,(A1)+ ADD.L #8000,D7 MOVE #$00EC,(A1)+ SWAP D7 MOVE D7,(A1)+ MOVE #$00EE,(A1)+ SWAP D7 MOVE D7,(A1)+ MOVE.L #$01800000,(A1)+ MOVE.L #$01810101,(A1)+ MOVE.L #$01820202,(A1)+ MOVE.L #$01840303,(A1)+ MOVE.L #$01860404,(A1)+ MOVE.L #$01880505,(A1)+ MOVE.L #$018A0606,(A1)+ MOVE.L #$018C0707,(A1)+ MOVE.L #$018E0808,(A1)+ MOVE.L #$01900909,(A1)+ MOVE.L #$01920A0A,(A1)+ MOVE.L #$01940B0B,(A1)+ MOVE.L #$01960C0C,(A1)+ MOVE.L #$01980D0D,(A1)+ MOVE.L #$019A0E0E,(A1)+ MOVE.L #$019C0F0F,(A1)+ MOVE.L #$FFFFFFFE,(A1)+ MOVE.L COPLIST,COP1LCH(A0) MOVE #0,COPJMP1(A0) MOVE #$8380,DMACON(A0) MOVE #$20,DMACON(A0) ;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ DEB: MOVE GA,D0 ADDI #50,D0 BSR DEG MOVE D0,GA MOVE BE,D0 ADDI #30,D0 BSR DEG MOVE D0,BE MOVE AL,D0 ADDI #6,D0 BSR DEG MOVE D0,AL BSR CLEAR MOVE.L OBJECT,A0 BSR DISPLAY ;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ WAIT: BTST #1,$BFEC01 BNE DEB FREEMEM SCREEN1,#32100 FREEMEM SCREEN2,#32100 FREEMEM COPLIST,#100 FREECOP CLOSELIB GFXBASE PERMIT MOVE #$8020,DMACON+CUSTOM RTS ZERO: FREECOP RTE ;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ DISPLAY:MOVE.B $DFF00B,POSX+1 ;A0: POINTS & FACETTES LEA PTS2D,A4 LEA ZPROF,A5 LEA PTS3D,A2 ; MOVE.L #0,D0 ;POSX ; DIVS #256,D0 ; MOVE D0,POSX ; MOVE.L #0,D0 ;POSY ; DIVS #256,D0 ; MOVE D0,POSY ; MOVE.L #0,D0 ;POSZ ; DIVS #256,D0 ; MOVE D0,POSZ MOVE AL,D2 ;3 ANGLES EN ° MOVE BE,D3 MOVE GA,D4 ASR #2,D3 ASR #2,D2 ASR #2,D4 ANDI.L #$FFFE,D2 ANDI.L #$FFFE,D3 ANDI.L #$FFFE,D4 DRAW2: MOVE (A0)+,D5 CMPI #$7FFF,D5 BNE JMP1 BRA LINK JMP1: MOVE (A0)+,D6 MOVE (A0)+,D7 BSR ROTOZ BSR ROTOY BSR ROTOX ADD POSX,D5 ADD POSY,D6 ADD POSZ,D7 ADDI #400,D7 MOVE D5,(A2)+ ;'X' MOVE D6,(A2)+ ;'Y' MOVE D7,(A5)+ ;'Z' JSR PROJEC MOVE D5,(A4)+ ;X.EC MOVE D6,(A4)+ ;Y.EC BRA DRAW2 ;-----------REMPLIT SURFACES(>= 3 PTS!!) ET SURFLIST. A0:VERS SURFACES ;----------- CALC INTENSITE COULEUR+PROFONDEUR+ G LINK: LEA PTS2D,A1 LEA PTS3D,A6 LEA ZPROF,A4 LEA ZFACE,A5 LEA SURFLIST,A2 LEA SURFACES,A3 AGAIN: CLR.L D2 ;INIT. SOMME DES 'Z' MOVE (A0)+,D0 ;NBRE DE PTS (EN COMPTANT '0') CMPI #-1,D0 BEQ FINSURF MOVE.L A3,(A2)+ ;*SURFACE -> SURFLIST MOVE.L #1,(A3)+ ;COULEUR ;------- MOVE (A0)+,D1 ;-------- ASL #2,D1 ;POS DS PTS2D DE PT(X,Y) MOVE.L (A1,D1.W),(A3)+ ;X,Y -> (SURFACES) MOVE.L (A6,D1.W),VAX ;X->VAX ; Y-> VAY LSR #1,D1 MOVE.W (A4,D1.W),VAZ ;SOMME DES 'Z'-->D2 ADD.W VAZ,D2 MOVE (A0)+,D1 ;2è PT ASL #2,D1 MOVE.L (A1,D1.W),(A3)+ MOVE.L (A6,D1.W),D6 ;D6:(X,Y)->Y.W MOVE.L D6,D5 SWAP D5 ;D5:X LSR #1,D1 MOVE.W (A4,D1.W),D7 ADD.W D7,D2 MOVE (A0)+,D1 ASL #2,D1 MOVE.L (A1,D1.W),(A3)+ MOVE.L (A6,D1.W),VBX LSR #1,D1 MOVE.W (A4,D1.W),VBZ ADD.W VBZ,D2 BSR LUM ;CALC.P.VECT,P.SCALAIRE,INTENS.LUM CMPI #3,D0 BEQ ENOUGH ;3 PTS DS SURFACE (AU MINIMUM ...) MOVE (A0)+,D1 ASL #2,D1 MOVE.L (A1,D1.W),(A3)+ LSR #1,D1 ADD.W (A4,D1.W),D2 ;4 PTS DS SURFACE (AU MAXIMUM ...) ;------- ENOUGH: DIVS D0,D2 ;BARYCENTRE 'Z' MOVE D2,(A5)+ ;TABLE DES BARYCENTRES MOVE.L #-1,(A3)+ ;FIN SURFACE n BRA AGAIN RTS FINSURF:MOVE.L #-1,(A2)+ ;FIN SURFLIST MOVE #$7FFF,(A5)+ ;FIN BARYC.LISTE ;--------------------------- TRI EN F() DE Z: LEA ZFACE,A0 LEA SURFLIST,A2 TRI: MOVE.L A2,A3 MOVE.L A0,A1 ADDA.L #2,A1 ADDA.L #4,A3 TRI5: MOVE.L (A2),D2 ;:PTR MOVE (A0),D0 ;:Z CMP #$7FFF,D0 BEQ OUFF ;FINI. TRI3: MOVE.L (A3)+,D3 ;:PTR MOVE (A1)+,D1 ;:Z CMP #$7FFF,D1 BNE TRI4 ADDA.L #2,A0 ADDA.L #4,A2 BRA TRI TRI4: CMP D0,D1 BLT TRI3 MOVE D1,(A0) ;EXG LES Z MOVE D0,-2(A1) MOVE.L D3,(A2) ;EXG POINTEURS MOVE.L D2,-4(A3) BRA TRI5 ;--------------------------- OUFF: LEA SURFLIST,A2 BSR DRAW RTS ;--------------------------- LUM: SUB D5,VAX ;COORD. DES 2 VECTEURS SUB D6,VAY SUB D7,VAZ SUB D5,VBX SUB D6,VBY SUB D7,VBZ MOVE VAY,D1 MULS VBZ,D1 MOVE VAZ,D3 MULS VBY,D3 SUB.L D3,D1 MOVE VAZ,D3 MULS VBX,D3 MOVE VAX,D4 MULS VBZ,D4 SUB.L D4,D3 MOVE VAX,D4 MULS VBY,D4 MOVE VAY,D5 MULS VBX,D5 SUB.L D5,D4 MULS D1,D1 MULS D3,D3 MULS D4,D4 ADD.L D3,D1 ADD.L D4,D1 TST.L D1 BEQ ARG LSR.L #$4,D1 ;----- CLR.L D5 MOVE.L D1,D3 DIV: ADD.L D3,D1 ADDI.L #1,D5 CMP.L D4,D1 BMI DIV ANDI.L #15,D5 CMPI #15,D5 BNE QSD MOVEQ #$E,D5 QSD: MOVE.L D5,-16(A3) RTS ARG: MOVE.L #$E,-16(A3) RTS DE1:DC.L 0 DE4:DC.L 0 ;************************************************ ;********** PROJECTION,ROTATIONS(X,Y,Z) ********* ;************************************************ ;------ D5:X D6:Y D7:Z -------------------------- PROJEC: MULS DFOC,D5 DIVS D7,D5 ADDI #160,D5 MULS DFOC,D6 DIVS D7,D6 SUBI #100,D6 NEG D6 RTS DFOC: DC.W 256 ;----- D2:ANGLE D6:Y D7:Z D0 D1 A3 A6 ---------- ROTOX: LEA.L COS,A6 LEA.L SIN,A3 MOVE D6,D0 MOVE D7,D1 MULS (A6,D2.W),D0 MULS (A3,D2.W),D1 ADD.L D1,D0 MULS (A6,D2.W),D7 MULS (A3,D2.W),D6 SUB.L D6,D7 EXG D0,D6 DIVS #256,D6 DIVS #256,D7 RTS ;----- D3:ANGLE D5:X D7:Z D0 D1 A6 A3 ----------------- ROTOY: LEA.L COS,A6 LEA.L SIN,A3 MOVE D5,D0 MOVE D7,D1 MULS (A6,D3.W),D0 MULS (A3,D3.W),D1 SUB.L D1,D0 MULS (A6,D3.W),D7 MULS (A3,D3.W),D5 ADD.L D5,D7 EXG D0,D5 DIVS #256,D5 DIVS #256,D7 RTS ;-----D4:ANGLE D5:X D6:Y A6 A3 D0 D1 ------------ ROTOZ: LEA.L COS,A6 LEA.L SIN,A3 MOVE D5,D0 MOVE D6,D1 MULS (A6,D4.W),D0 MULS (A3,D4.W),D1 ADD.L D1,D0 MULS (A6,D4.W),D6 MULS (A3,D4.W),D5 SUB.L D5,D6 EXG D0,D5 DIVS #256,D6 DIVS #256,D5 RTS ;-------D0:Angle à convertir -------------------- DEG: CMP #360*8,D0 BLT DEG2 SUB #360*8,D0 BRA DEG3 DEG2: TST D0 BPL DEG3 ADD #360*8,D0 DEG3: RTS ;************************************************ COS: DC.W 256,255,255,255,255,255,254 DC.W 254,253,252,252,251,250,249 DC.W 248,247,246,244,243,242,240 DC.W 238,237,235,233,232,230,228 DC.W 226,223,221,219,217,214,212 DC.W 209,207,204,201,198,196 DC.W 193,190,187,186,181,177,174 DC.W 171,167,164,161,157,154,150 DC.W 146,143,139,135,131,128,124 DC.W 120,116,112,108,104,100,95,91 DC.W 87,83,79,74,70,66,61,57,53 DC.W 48,44,40,35,31,26,22,17,13,8,4 DC.W -0,-4,-8,-13,-17,-22,-26,-31,-35,-40 DC.W -44,-48,-53,-57,-61,-66,-70,-74,-79,-83 DC.W -87,-91,-95,-100,-104,-108,-112 DC.W -116,-120,-124,-128,-131,-135,-139,-143 DC.W -146,-150,-154,-157,-161,-164 DC.W -167,-171,-174,-177,-181,-184,-187,-190 DC.W -193,-196,-198,-201,-204,-207 DC.W -209,-212,-214,-217,-219,-221,-223,-226 DC.W -228,-230,-232,-233,-235,-237 DC.W -238,-240,-242,-243,-244,-246,-247,-248 DC.W -249,-250,-251,-252,-252,-253 DC.W -254,-254,-255,-255,-255,-255,-255 DC.W -256,-255,-255,-255,-255,-255,-254 DC.W -254,-253,-252,-252,-251,-250,-249 DC.W -248,-247,-246,-244,-243,-242,-240 DC.W -238,-237,-235,-233,-232,-230,-228 DC.W -226,-223,-221,-219,-217,-214,-212 DC.W -209,-207,-204,-201,-198,-196 DC.W -193,-190,-187,-186,-181,-177,-174 DC.W -171,-167,-164,-161,-157,-154,-150 DC.W -146,-143,-139,-135,-131,-128,-124 DC.W -120,-116,-112,-108,-104,-100,-95,-91 DC.W -87,-83,-79,-74,-70,-66,-61,-57,-53 DC.W -48,-44,-40,-35,-31,-26,-22,-17,-13,-8,-4 DC.W 0,4,8,13,17,22,26,31,35,40 DC.W 44,48,53,57,61,66,70,74,79,83 DC.W 87,91,95,100,104,108,112 DC.W 116,120,124,128,131,135,139,143 DC.W 146,150,154,157,161,164 DC.W 167,171,174,177,181,184,187,190 DC.W 193,196,198,201,204,207 DC.W 209,212,214,217,219,221,223,226 DC.W 228,230,232,233,235,237 DC.W 238,240,242,243,244,246,247,248 DC.W 249,250,251,252,252,253 DC.W 254,254,255,255,255,255,255,256 SIN: DC.W 0,4,8,13,17,22,26,31,35,40 DC.W 44,48,53,57,61,66,70,74,79,83 DC.W 87,91,95,100,104,108,112 DC.W 116,120,124,128,131,135,139,143 DC.W 146,150,154,157,161,164 DC.W 167,171,174,177,181,184,187,190 DC.W 193,196,198,201,204,207 DC.W 209,212,214,217,219,221,223,226 DC.W 228,230,232,233,235,237 DC.W 238,240,242,243,244,246,247,248 DC.W 249,250,251,252,252,253 DC.W 254,254,255,255,255,255,255 DC.W 256,255,255,255,255,255,254 DC.W 254,253,252,252,251,250,249 DC.W 248,247,246,244,243,242,240 DC.W 238,237,235,233,232,230,228 DC.W 226,223,221,219,217,214,212 DC.W 209,207,204,201,198,196 DC.W 193,190,187,186,181,177,174 DC.W 171,167,164,161,157,154,150 DC.W 146,143,139,135,131,128,124 DC.W 120,116,112,108,104,100,95,91 DC.W 87,83,79,74,70,66,61,57,53 DC.W 48,44,40,35,31,26,22,17,13,8,4 DC.W -0,-4,-8,-13,-17,-22,-26,-31,-35,-40 DC.W -44,-48,-53,-57,-61,-66,-70,-74,-79,-83 DC.W -87,-91,-95,-100,-104,-108,-112 DC.W -116,-120,-124,-128,-131,-135,-139,-143 DC.W -146,-150,-154,-157,-161,-164 DC.W -167,-171,-174,-177,-181,-184,-187,-190 DC.W -193,-196,-198,-201,-204,-207 DC.W -209,-212,-214,-217,-219,-221,-223,-226 DC.W -228,-230,-232,-233,-235,-237 DC.W -238,-240,-242,-243,-244,-246,-247,-248 DC.W -249,-250,-251,-252,-252,-253 DC.W -254,-254,-255,-255,-255,-255,-255 DC.W -256,-255,-255,-255,-255,-255,-254 DC.W -254,-253,-252,-252,-251,-250,-249 DC.W -248,-247,-246,-244,-243,-242,-240 DC.W -238,-237,-235,-233,-232,-230,-228 DC.W -226,-223,-221,-219,-217,-214,-212 DC.W -209,-207,-204,-201,-198,-196 DC.W -193,-190,-187,-186,-181,-177,-174 DC.W -171,-167,-164,-161,-157,-154,-150 DC.W -146,-143,-139,-135,-131,-128,-124 DC.W -120,-116,-112,-108,-104,-100,-95,-91 DC.W -87,-83,-79,-74,-70,-66,-61,-57,-53 DC.W -48,-44,-40,-35,-31,-26,-22,-17,-13,-8,-4,0 ;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ CLEAR: BCHG #0,ALTSC BEQ K MOVE.L SCREEN1,BITMP MOVE.L SCREEN2,D0 BRA V K: MOVE.L SCREEN2,BITMP MOVE.L SCREEN1,D0 V: CMPI.B #-16,CUSTOM+VHPOSR BNE V MOVE.L COPLIST,A6 SWAP D0 MOVE D0,2(A6) SWAP D0 MOVE D0,6(A6) ADDI.L #8000,D0 SWAP D0 MOVE D0,10(A6) SWAP D0 MOVE D0,14(A6) ADDI.L #8000,D0 SWAP D0 MOVE D0,18(A6) SWAP D0 MOVE D0,22(A6) ADDI.L #8000,D0 SWAP D0 MOVE D0,26(A6) SWAP D0 MOVE D0,30(A6) L: BTST #$E,CUSTOM+DMACONR BNE L MOVE.L BITMP,CUSTOM+BLTDPTH CLR CUSTOM+BLTDMOD CLR CUSTOM+BLTCON1 MOVE #$100,CUSTOM+BLTCON0 MOVE #$3FBF,CUSTOM+BLTSIZE RTS ALTSC: DC.W 0 SCREEN1: DC.L 0 SCREEN2: DC.L 0 COPLIST: DC.L 0 BITMP: DC.L 0 **************************************************************** ****************** ********** ****************** AFFICHAGE DE SURFACES ********** ****************** ********** **************************************************************** BITMAP1= 8000 BITMAP2= 16000 BITMAP3= 24000 DRAW:;A2=SURFLIST lea SURFACES2(PC),A1 move.l A2,A6 SF1: move.l (A2),D0 bmi.s SF7 move.l D0,A0 move.l A1,(A2)+ addq.l #2,A0 move.l A1,A5 addq.l #4,A1 move.w (A0)+,(A1)+ move.w #$0fff,D0 move.l A0,A4 move.l #$00,D4 SF2: move.w (A0)+,D2 bmi.s SF3 move.w (A0)+,D3 addq.b #1,D4 cmp.w D3,D0 bcs.s SF2 move.w D3,D0 move.w D4,D5 move.l A0,A3 bra.s SF2 SF3: subq.l #4,A3 move.l A3,A0 SF4: move.l (A3)+,(A1)+ bpl.s SF4 subq.l #4,A1 subq.w #2,D5 bmi.s SF6 SF5: move.l (A4)+,(A1)+ dbf D5,SF5 SF6: move.l A1,(A5) clr.l (A1)+ bra.s SF1 SF7: move.l A6,-(A7) bsr.l SF8 move.l (A7)+,A2 bra.l SF33 *********************************************************** SF8: lea SURFACES3(PC),A3 lea LINETAB,A4 SF9: move.l (A6),D0 bpl.s SF10 rts SF10: move.l D0,A0 move.l A3,(A6)+ move.l (A0)+,A1 move.w (A0)+,(A3)+ subq.w #8,A1 cmpa.l A0,A1 beq.l SF22 addq.w #8,A1 move.l #$00,D0 move.w (A0)+,D0 move.l D0,D1 move.w (A0)+,A2 move.w A2,(A3)+ move.w A2,A5 move.l #$00,D7 SF11: move.w (A0)+,D4 move.w D4,V1 move.w (A0)+,D3 move.w D3,V4 sub.w A2,D3 bmi.l SF21 bne.s SF12 move.w D4,D0 bra.s SF11 SF12: sub.w D0,D4 move.w D3,A2 adda.w A2,A2 muls 2(A4,A2.W),D4 add.l D4,D4 move.w D4,A2 swap D4 SF13: move.w -(A1),D6 move.w -(A1),D5 move.w D6,V3 move.w D5,V2 sub.w A5,D6 bmi.l SF21 bne.s SF14 move.w D5,D1 bra.s SF13 SF14: sub.w D1,D5 move.w D6,A5 adda.w A5,A5 muls 2(A4,A5.W),D5 add.l D5,D5 move.w D5,A5 swap D5 SF15: add.w A2,D7 addx.w D4,D0 add.w A5,D2 addx.w D5,D1 move.w D0,(A3)+ move.w D1,(A3)+ dbf D3,SF18 move.w V1,D0 clr.w D7 move.w V4,A2 SF16: move.w (A0)+,D4 move.w D4,V1 move.w (A0)+,D3 move.w D3,V4 sub.w A2,D3 bmi.s SF21 bne.s SF17 move.w D4,D0 bra.s SF16 SF17: sub.w D0,D4 move.w D3,A2 adda.w A2,A2 muls 0(A4,A2.W),D4 add.l D4,D4 move.w D4,A2 swap D4 subq.w #1,D3 SF18: dbf D6,SF15 move.w V2,D1 ext.l D1 move.w V3,A5 SF19: move.w -(A1),D6 move.w -(A1),D5 move.w D6,V3 move.w D5,V2 sub.w A5,D6 bmi.s SF21 bne.s SF20 move.w D5,D1 bra.s SF19 SF20: sub.w D1,D5 move.w D6,A5 adda.w A5,A5 muls 0(A4,A5.W),D5 add.l D5,D5 move.w D5,A5 swap D5 subq.w #1,D6 bra.l SF15 SF21: move.w #$ffff,(A3)+ bra.l SF9 ;-------------------------------------------------------- SF22: movem.w (A0)+,D3/D2/D1/D0 move.w D1,(A3)+ cmp.w D1,D3 bne.s SF24 cmp.w D0,D2 bcc.s SF23 move.w D2,(A3)+ move.w D0,(A3)+ move.w #$ffff,(A3)+ bra.l SF9 SF23: move.w D0,(A3)+ move.w D2,(A3)+ move.w #$ffff,(A3)+ bra.l SF9 SF24: cmp.w D0,D2 bne.l SF26 sub.w D1,D3 SF25: move.w D0,(A3)+ move.w D0,(A3)+ dbf D3,SF25 move.w D3,(A3)+ bra.l SF9 SF26: cmp.w D0,D2 bcc.s SF29 move.w D0,D5 sub.w D2,D0 sub.w D1,D3 add.w D3,D3 mulu 0(A4,D3.W),D0 add.l D0,D0 lsr.w #1,D3 subi.w #$0001,D3 move.w D5,D4 move.w D5,(A3)+ move.w D4,(A3)+ SF27: move.w D5,D4 subq.w #1,D4 swap D5 sub.l D0,D5 swap D5 cmp.w D5,D4 bcc.s SF28 addq.w #1,D4 SF28: move.w D5,(A3)+ move.w D4,(A3)+ dbf D3,SF27 move.w D3,(A3)+ bra.l SF9 SF29: sub.w D0,D2 sub.w D1,D3 add.w D3,D3 mulu 0(A4,D3.W),D2 add.l D2,D2 lsr.w #1,D3 subi.w #$0001,D3 move.w D0,D4 move.w D4,(A3)+ move.w D0,(A3)+ SF30: move.w D0,D4 addq.w #1,D4 swap D0 add.l D2,D0 swap D0 cmp.w D4,D0 bcc.s SF31 subq.w #1,D4 SF31: move.w D4,(A3)+ move.w D0,(A3)+ dbf D3,SF30 move.w D3,(A3)+ bra.l SF9 ************************************************************* SF32: move.L MOUAI,A2 bra.l SF35 SF34: rts SF33: MOVe.L #$00,D6 move.L #$-1,D7 move.L #$28,D0 move.L #$20,D1 SF35: move.l (A2)+,D3 bmi.l SF34 move.l D3,A0 move.L A2,MOUAI move.w (A0)+,D3 ; bmi.l SF38 PAS ENCORE AU POINT... ;---------------------------------------- add.w D3,D3 move.w COLORPT(PC,D3.W),D3 lea COLORPT(PC,D3.W),A2 move.w (A0)+,D2 add.w D2,D2 LEA.L POS(PC),A3 move.l BITMP,A1 MOVE.W 0(A3,D2.W),D3 ;D3 EST * PAR 4 !!! ASR.W #2,D3 ADD.W D3,A1 move.w (A0)+,D2 bmi.l SF32 SF41: move.w (A0)+,D3 cmp.w D2,D3 bhi.s SF36 exg D2,D3 SF36: move.l #$00,D5 move.l #$1f,D4 sub.w D3,D4 bset D4,D5 subq.l #1,D5 move.w D2,D4 andi.w #$001f,D4 sub.w D4,D2 add.w D4,D4 add.w D4,D4 move.l BORDERS(PC,D4.W),D4 sub.w D2,D3 lsr.w #3,D2 move.l A1,A3 adda.w D2,A3 adda.w D0,A1 sub.w D1,D3 jmp (A2) *********************************************************** COLORPT: DC.W $0160,$0208,$02b0,$0358,$0400,$04a8,$0550,$05f8 DC.W $06a0,$0748,$07f0,$0898,$0940,$09e8,$0a90,$0b38 BORDERS: DC.W $0000,$0000,$8000,$0000,$c000,$0000,$e000,$0000 DC.W $f000,$0000,$f800,$0000,$fc00,$0000,$fe00,$0000 DC.W $ff00,$0000,$ff80,$0000,$ffc0,$0000,$ffe0,$0000 DC.W $fff0,$0000,$fff8,$0000,$fffc,$0000,$fffe,$0000 DC.W $ffff,$0000,$fFFf,$8000,$ffff,$c000,$ffff,$e000 DC.W $ffff,$f000,$ffff,$f800,$ffff,$fc00,$ffff,$fe00 DC.W $ffff,$ff00,$ffff,$ff80,$ffff,$ffc0,$ffff,$ffe0 DC.W $ffff,$fff0,$ffff,$fff8,$ffff,$fffc,$ffff,$fffe DC.W $7fff,$ffff,$3fff,$ffff,$1fff,$ffff,$0fff,$ffff DC.W $07ff,$ffff,$03ff,$ffff,$01ff,$ffff,$00ff,$ffff DC.W $007f,$ffff,$003f,$ffff,$001f,$ffff,$000f,$ffff DC.W $0007,$ffff,$0003,$ffff,$0001,$ffff,$0000,$ffff DC.W $0000,$7fff,$0000,$3fff,$0000,$1fff,$0000,$0fff DC.W $0000,$07ff,$0000,$03ff,$0000,$01ff,$0000,$00ff DC.W $0000,$007f,$0000,$003f,$0000,$001f,$0000,$000f DC.W $0000,$0007,$0000,$0003,$0000,$0001,$0000,$0000 DC.W $0000,$8000,$c000,$e000,$f000,$f800,$fc00,$fe00 DC.W $ff00,$ff80,$ffc0,$ffe0,$fff0,$fff8,$fffc,$fffe DC.W $7fff,$3fff,$1fff,$0fff,$07ff,$03ff,$01ff,$00ff DC.W $007f,$003f,$001f,$000f,$0007,$0003,$0001,$0000 ;********************************************************** bpl.s SF40 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP1(A3) and.l D5,BITMAP2(A3) and.l D5,BITMAP3(A3) not.l D5 move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF40: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A4)+ and.l D4,(A5)+ and.l D4,(A6)+ not.l D4 sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF42 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ SF42: and.l D5,(A3)+ and.l D5,(A4)+ and.l D5,(A5)+ and.l D5,(A6)+ not.l D5 move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF43 or.l D4,D5 and.l D5,BITMAP1(A3) and.l D5,BITMAP2(A3) and.l D5,BITMAP3(A3) not.l D5 or.l D5,(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF43: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A4)+ and.l D4,(A5)+ and.l D4,(A6)+ not.l D4 or.l D4,(A3)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF44 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ SF44: and.l D5,(A4)+ and.l D5,(A5)+ and.l D5,(A6)+ not.l D5 or.l D5,(A3)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF45 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP2(A3) and.l D5,BITMAP3(A3) not.l D5 or.l D5,BITMAP1(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF45: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A5)+ and.l D4,(A6)+ not.l D4 or.l D4,(A4)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF46 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ SF46: and.l D5,(A3)+ and.l D5,(A5)+ and.l D5,(A6)+ not.l D5 or.l D5,(A4)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF47 or.l D4,D5 and.l D5,BITMAP2(A3) and.l D5,BITMAP3(A3) not.l D5 or.l D5,(A3) or.l D5,BITMAP1(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF47: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A5)+ and.l D4,(A6)+ not.l D4 or.l D4,(A3)+ or.l D4,(A4)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF48 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D6,(A6)+ SF48: and.l D5,(A5)+ and.l D5,(A6)+ not.l D5 or.l D5,(A3)+ or.l D5,(A4)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF49 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP1(A3) and.l D5,BITMAP3(A3) not.l D5 or.l D5,BITMAP2(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF49: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A4)+ and.l D4,(A6)+ not.l D4 or.l D4,(A5)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF50 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ SF50: and.l D5,(A3)+ and.l D5,(A4)+ and.l D5,(A6)+ not.l D5 or.l D5,(A5)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF51 or.l D4,D5 and.l D5,BITMAP1(A3) and.l D5,BITMAP3(A3) not.l D5 or.l D5,(A3) or.l D5,BITMAP2(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF51: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A4)+ and.l D4,(A6)+ not.l D4 or.l D4,(A3)+ or.l D4,(A5)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF52 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ SF52: and.l D5,(A4)+ and.l D5,(A6)+ not.l D5 or.l D5,(A3)+ or.l D5,(A5)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF53 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP3(A3) not.l D5 or.l D5,BITMAP1(A3) or.l D5,BITMAP2(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF53: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A6)+ not.l D4 or.l D4,(A4)+ or.l D4,(A5)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF54 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ SF54: and.l D5,(A3)+ and.l D5,(A6)+ not.l D5 or.l D5,(A4)+ or.l D5,(A5)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF55 or.l D4,D5 and.l D5,BITMAP3(A3) not.l D5 or.l D5,(A3) or.l D5,BITMAP1(A3) or.l D5,BITMAP2(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF55: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A6)+ not.l D4 or.l D4,(A3)+ or.l D4,(A4)+ or.l D4,(A5)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ sub.w D1,D3 bmi.s SF56 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D6,(A6)+ SF56: and.l D5,(A6)+ not.l D5 or.l D5,(A3)+ or.l D5,(A4)+ or.l D5,(A5)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF57 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP1(A3) and.l D5,BITMAP2(A3) not.l D5 or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF57: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A4)+ and.l D4,(A5)+ not.l D4 or.l D4,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF58 move.l D6,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ SF58: and.l D5,(A3)+ and.l D5,(A4)+ and.l D5,(A5)+ not.l D5 or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF59 or.l D4,D5 and.l D5,BITMAP1(A3) and.l D5,BITMAP2(A3) not.l D5 or.l D5,(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF59: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A4)+ and.l D4,(A5)+ not.l D4 or.l D4,(A3)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF60 move.l D7,(A3)+ move.l D6,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ SF60: and.l D5,(A4)+ and.l D5,(A5)+ not.l D5 or.l D5,(A3)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF61 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP2(A3) not.l D5 or.l D5,BITMAP1(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF61: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A5)+ not.l D4 or.l D4,(A4)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF62 move.l D6,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ SF62: and.l D5,(A3)+ and.l D5,(A5)+ not.l D5 or.l D5,(A4)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF63 or.l D4,D5 and.l D5,BITMAP2(A3) not.l D5 or.l D5,(A3) or.l D5,BITMAP1(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF63: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A5)+ not.l D4 or.l D4,(A3)+ or.l D4,(A4)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF64 move.l D7,(A3)+ move.l D7,(A4)+ move.l D6,(A5)+ move.l D7,(A6)+ SF64: and.l D5,(A5)+ not.l D5 or.l D5,(A3)+ or.l D5,(A4)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF65 or.l D4,D5 and.l D5,(A3) and.l D5,BITMAP1(A3) not.l D5 or.l D5,BITMAP2(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF65: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ and.l D4,(A4)+ not.l D4 or.l D4,(A5)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF66 move.l D6,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ SF66: and.l D5,(A3)+ and.l D5,(A4)+ not.l D5 or.l D5,(A5)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF67 or.l D4,D5 and.l D5,BITMAP1(A3) not.l D5 or.l D5,(A3) or.l D5,BITMAP2(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF67: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A4)+ not.l D4 or.l D4,(A3)+ or.l D4,(A5)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF68 move.l D7,(A3)+ move.l D6,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ SF68: and.l D5,(A4)+ not.l D5 or.l D5,(A3)+ or.l D5,(A5)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF69 or.l D4,D5 and.l D5,(A3) not.l D5 or.l D5,BITMAP1(A3) or.l D5,BITMAP2(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF69: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 and.l D4,(A3)+ not.l D4 or.l D4,(A4)+ or.l D4,(A5)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF70 move.l D6,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ SF70: and.l D5,(A3)+ not.l D5 or.l D5,(A4)+ or.l D5,(A5)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 bpl.s SF71 or.l D4,D5 not.l D5 or.l D5,(A3) or.l D5,BITMAP1(A3) or.l D5,BITMAP2(A3) or.l D5,BITMAP3(A3) move.w (A0)+,D2 bpl.l SF41 bra.l SF32 SF71: lea BITMAP1(A3),A4 lea BITMAP1(A4),A5 lea BITMAP1(A5),A6 not.l D4 or.l D4,(A3)+ or.l D4,(A4)+ or.l D4,(A5)+ or.l D4,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ sub.w D1,D3 bmi.s SF72 move.l D7,(A3)+ move.l D7,(A4)+ move.l D7,(A5)+ move.l D7,(A6)+ SF72: not.l D5 or.l D5,(A3)+ or.l D5,(A4)+ or.l D5,(A5)+ or.l D5,(A6)+ move.w (A0)+,D2 bpl.l SF41 bra.l SF32 ;--------------------------------------------- V1: DC.L 0 V2: DC.L 0 V3: DC.L 0 V4: DC.L 0 MOUAI: DC.L 0 LINETAB: DC.W $0000,$7fff,$4000,$2aaa,$2000,$1999,$1555,$1249 DC.W $1000,$0e38,$0ccc,$0ba2,$0aaa,$09d8,$0924,$0888 DC.W $0800,$0787,$071c,$06bc,$0666,$0618,$05d1,$0590 DC.W $0555,$051e,$04ec,$04bd,$0492,$0469,$0444,$0421 DC.W $0400,$03e0,$03c3,$03a8,$038e,$0375,$035e,$0348 DC.W $0333,$031f,$030c,$02fa,$02e8,$02d8,$02c8,$02b9 DC.W $02aa,$029c,$028f,$0282,$0276,$026a,$025e,$0253 DC.W $0249,$023e,$0234,$022b,$0222,$0219,$0210,$0208 DC.W $0200,$01f8,$01f0,$01e9,$01e1,$01da,$01d4,$01cd DC.W $01c7,$01c0,$01ba,$01b4,$01af,$01a9,$01a4,$019e DC.W $0199,$0194,$018f,$018a,$0186,$0181,$017d,$0178 DC.W $0174,$0170,$016c,$0168,$0164,$0160,$015c,$0158 DC.W $0155,$0151,$014e,$014a,$0147,$0144,$0141,$013e DC.W $013b,$0138,$0135,$0132,$012f,$012c,$0129,$0127 DC.W $0124,$0121,$011f,$011c,$011a,$0118,$0115,$0113 DC.W $0111,$010e,$010c,$010a,$0108,$0106,$0104,$0102 DC.W $0100,$00fe,$00fc,$00fa,$00f8,$00f6,$00f4,$00f2 DC.W $00f0,$00ef,$00ed,$00eb,$00ea,$00e8,$00e6,$00e5 DC.W $00e3,$00e1,$00e0,$00de,$00dd,$00db,$00da,$00d9 DC.W $00d7,$00d6,$00d4,$00d3,$00d2,$00d0,$00cf,$00ce DC.W $00cc,$00cb,$00ca,$00c9,$00c7,$00c6,$00c5,$00c4 DC.W $00c3,$00c1,$00c0,$00bf,$00be,$00bd,$00bc,$00bb DC.W $00ba,$00b9,$00b8,$00b7,$00b6,$00b5,$00b4,$00b3 DC.W $00b2,$00b1,$00b0,$00af,$00ae,$00ad,$00ac,$00ab DC.W $00aa,$00a9,$00a8,$00a8,$00a7,$00a6,$00a5,$00a4 DC.W $00a3,$00a3,$00a2,$00a1,$00a0,$009f,$009f,$009e DC.W $009d,$009c,$009c,$009b,$009a,$0099,$0099,$0098 DC.W $0097,$0097,$0096,$0095,$0094,$0094,$0093,$0092 DC.W $0092,$0091,$0090,$0090,$008f,$008f,$008e,$008d DC.W $008d,$008c,$008c,$008b,$008a,$008a,$0089,$0089 DC.W $0088,$0087,$0087,$0086,$0086,$0085,$0085,$0084 DC.W $0084,$0083,$0083,$0082,$0082,$0081,$0081,$0080 DC.W $0080,$007f,$007f,$007e,$007e,$007d,$007d,$007c DC.W $007c,$007b,$007b,$007a,$007a,$0079,$0079,$0078 DC.W $0078,$0078,$0077,$0077,$0076,$0076,$0075,$0075 DC.W $0075,$0074,$0074,$0073,$0073,$0072,$0072,$0072 DC.W $0071,$0071,$0070,$0070,$0070,$006f,$006f,$006f DC.W $006e,$006e,$006d,$006d,$0000,$0000,$0000,$0000 ********************************************************* POS: DC.W $0000,$00a0,$0140,$01e0,$0280,$0320,$03c0,$0460 DC.W $0500,$05a0,$0640,$06e0,$0780,$0820,$08c0,$0960 DC.W $0a00,$0aa0,$0b40,$0be0,$0c80,$0d20,$0dc0,$0e60 DC.W $0f00,$0fa0,$1040,$10e0,$1180,$1220,$12c0,$1360 DC.W $1400,$14a0,$1540,$15e0,$1680,$1720,$17c0,$1860 DC.W $1900,$19a0,$1a40,$1ae0,$1b80,$1c20,$1cc0,$1d60 DC.W $1e00,$1ea0,$1f40,$1fe0,$2080,$2120,$21c0,$2260 DC.W $2300,$23a0,$2440,$24e0,$2580,$2620,$26c0,$2760 DC.W $2800,$28a0,$2940,$29e0,$2a80,$2b20,$2bc0,$2c60 DC.W $2d00,$2da0,$2e40,$2ee0,$2f80,$3020,$30c0,$3160 DC.W $3200,$32a0,$3340,$33e0,$3480,$3520,$35c0,$3660 DC.W $3700,$37a0,$3840,$38e0,$3980,$3a20,$3ac0,$3b60 DC.W $3c00,$3ca0,$3d40,$3de0,$3e80,$3f20,$3fc0,$4060 DC.W $4100,$41a0,$4240,$42e0,$4380,$4420,$44c0,$4560 DC.W $4600,$46a0,$4740,$47e0,$4880,$4920,$49c0,$4a60 DC.W $4b00,$4ba0,$4c40,$4ce0,$4d80,$4e20,$4ec0,$4f60 DC.W $5000,$50a0,$5140,$51e0,$5280,$5320,$53c0,$5460 DC.W $5500,$55a0,$5640,$56e0,$5780,$5820,$58c0,$5960 DC.W $5a00,$5aa0,$5b40,$5be0,$5c80,$5d20,$5dc0,$5e60 DC.W $5f00,$5fa0,$6040,$60e0,$6180,$6220,$62c0,$6360 DC.W $6400,$64a0,$6540,$65e0,$6680,$6720,$67c0,$6860 DC.W $6900,$69a0,$6a40,$6ae0,$6b80,$6c20,$6cc0,$6d60 DC.W $6e00,$6ea0,$6f40,$6fe0,$7080,$7120,$71c0,$7260 DC.W $7300,$73a0,$7440,$74e0,$7580,$7620,$76c0,$7760 DC.W $7800,$78a0,$7940,$79e0,$7a80,$7b20,$7bc0,$7c60 ********************************************************** TOTO: ;A DC.W -95,-25,0,-85,-25,0,-80,25,0,-70,25,0,-55,-25,0,-65,-25,0 DC.W -75,7,0,-79,-5,0,-71,-5,0,-81,-10,0,-69,-10,0 ;C DC.W -45,-25,0,-45,25,0,-5,25,0,-5,15,0,-35,15,0,-35,-15,0 DC.W -5,-15,0,-5,-25,0 ;D DC.W 5,-25,0,5,25,0,45,25,0,45,15,0,20,15,0,20,5,0,30,5,0 DC.W 30,-5,0,20,-5,0,20,-15,0,45,-15,0,45,-25,0 ;S DC.W 55,-25,0,55,-15,0,85,-15,0,85,0,0,60,0,0,60,25,0,85,25,0 DC.W 85,15,0,70,15,0,70,10,0,95,10,0,95,-25,0 ;A DC.W -95,-25,40,-85,-25,40,-80,25,40 DC.W -70,25,40,-55,-25,40,-65,-25,40 DC.W -75,7,40,-79,-5,40,-71,-5,40,-81,-10,40,-69,-10,40 ;C DC.W -45,-25,40,-45,25,40,-5,25,40,-5,15,40,-35,15,40,-35,-15,40 DC.W -5,-15,40,-5,-25,40 ;D DC.W 5,-25,40,5,25,40,45,25,40,45,15,40,20,15,40,20,5,40,30,5,40 DC.W 30,-5,40,20,-5,40,20,-15,40,45,-15,40,45,-25,40 ;S DC.W 55,-25,40,55,-15,40,85,-15,40,85,0,40,60,0,40,60,25,40,85,25,40 DC.W 85,15,40,70,15,40,70,10,40,95,10,40,95,-25,40 DC.W $7FFF DC.W 4,0,1,3,2, 4,6,3,4,5, 4,7,8,10,9 DC.W 4,11,16,15,12, 4,12,15,14,13, 4,11,16,17,18 DC.W 4,19,28,23,20, 4,20,23,22,21, 4,24,25,26,27,4,19,28,29,30 DC.W4,36,39,38,37,4,31,32,33,42,4,33,42,41,34,4,34,41,40,35,4,40,35,36,39 DC.W 4,43,44,46,45, 4,49,46,47,48, 4,50,51,53,52 DC.W 4,54,43+16,43+15,43+12, 4,43+12,43+15,43+14,43+13 DC.W 4,43+11,43+16,43+17,43+18 DC.W 4,19+43,28+43,23+43,20+43, 4,20+43,23+43,22+43,21+43 DC.W 4,24+43,25+43,26+43,27+43, 4,19+43,28+43,29+43,30+43 DC.W4,36+43,39+43,38+43,37+43,4,31+43,32+43,33+43,42+43 DC.W 4,33+43,42+43,41+43,34+43,4,34+43,41+43,40+43,35+43 DC.W 4,40+43,35+43,36+43,39+43 DC.W 4,0,43,45,2 ,4,2,45,46,3, 4,3,4,47,46, 4,5,10,53,48 DC.W 4,1,9,52,44, 4,9,10,53,52,4,0,1,44,43,4,4,5,48,47 DC.W 4,11,12,55,54,4,12,13,13+43,12+43,4,13,14,14+43,13+43 DC.W 4,14,15,15+43,14+43,4,15,16,16+43,15+43 DC.W 4,16,17,17+43,16+43,4,17,18,18+43,17+43,4,11,18,18+43,11+43 DC.W 4,20,21,21+43,20+43,4,21,22,22+43,21+43,4,22,23,23+43,22+43 DC.W 4,23,24,24+43,23+43,4,24,25,25+43,24+43,4,25,26,26+43,25+43 DC.W 4,26,27,27+43,26+43,4,27,28,28+43,27+43,4,28,29,29+43,29+43 DC.W 4,29,30,30+43,29+43,4,19,30,30+43,19+43,4,19,20,20+43,19+43 DC.W 4,31,32,32+43,31+43,4,32,33,33+43,32+43,4,33,34,34+43,33+43 DC.W 4,34,35,35+43,34+43,4,35,36,36+43,35+43,4,36,37,37+43,36+43 DC.W 4,37,38,38+43,37+43,4,38,39,39+43,38+43,4,39,40,40+43,39+43 DC.W 4,40,41,41+43,40+43,4,41,42,42+43,41+43,4,42,31,31+43,42+43 DC.W -1 ;---------------------------------- BIBI: DC.W 0,100,0, 50,86,0, 86,50,0, 100,0,0, 86,-50,0,50,-86,0 DC.W 0,-100,0, -50,-86,0, -86,-50,0, -100,0,0, -86,50,0 ,-50,86,0 DC.W 0,100,30, 50,86,30, 86,50,30, 100,0,30, 86,-50,30,50,-86,30 DC.W 0,-100,30, -50,-86,30, -86,-50,30, -100,0,30, -86,50,30,-50,86,30 DC.W -10,0,-100, 10,0,-100, 10,0,100, -10,0,100 DC.W $7FFF DC.W 4,0,1,13,12, 4,1,2,14,13, 4,2,3,15,14, 4,3,4,16,15, 4,4,5,17,16 DC.W 4,5,6,18,17, 4,6,7,19,18, 4,7,8,20,19, 4,8,9,21,20 DC.W 4,9,10,22,21, 4,10,11,23,22 ,4,11,0,12,23, 4,24,25,26,27 DC.W 4,0,1,25,24, 4,17,18,27,26 DC.W -1 ;------------ HELICO: DC.W 0,0,0,-135,0,5,-135,0,-5,135,0,5,135,0,-5 DC.W -15,-5,30,15,-5,30,15,-5,-20,-15,-5,-20 DC.W -35,-25,20,-15,-30,70,15,-30,70,35,-25,20 DC.W 30,-25,-20,10,-15,-60,-10,-15,-60,-30,-25,-20 DC.W -35,-45,20,-15,-45,70,15,-45,70,35,-45,20,30,-45,-20 DC.W 0,-35,-60,-30,-45,-20 DC.W -15,-55,50,15,-55,50,15,-55,-20,-15,-55,-20 DC.W -30,-60,55,-25,-65,50,-35,-65,50,-35,-65,-40,-25,-65,-40 DC.W 30,-60,55,25,-65,50,35,-65,50,35,-65,-40,25,-65,-40 DC.W 0,-15,-160,0,-15,-130,0,15,-150,0,15,-165 DC.W -25,-50,20,-30,-65,20,-25,-50,-10,-30,-65,-10 DC.W 25,-50,20,30,-65,20,25,-50,-10,30,-65,-10,0,-5,0,$7FFF DC.W 4,10,11,19,18,4,9,10,18,17,4,11,19,20,12,4,10,11,6,5 DC.W 4,18,19,25,24,4,24,25,26,27,4,9,17,23,16,4,12,20,21,13 DC.W 4,13,21,22,14,4,16,23,22,15,4,5,6,7,8,4,1,2,3,4 DC.W 4,17,23,27,24,4,20,21,26,25, 3,18,24,17,3,19,25,20 DC.W 4,5,8,16,9,4,6,7,13,12,4,7,8,15,14,3,7,14,13,3,8,16,15 DC.W 3,26,27,22,3,26,21,22,3,27,23,22,3,22,15,38,3,22,14,38 DC.W 3,14,15,38,4,38,39,40,41,4,29,32,31,30,3,30,28,29 DC.W 3,33,34,35,4,34,35,36,37 DC.W -1 ;-------------- FIN DE DEFINITION DES OBJETS ------ ;-------------------------------------------------- VAX: DC.W 0 VAY: DC.W 0 VAZ: DC.W 0 VBX: DC.W 0 VBY: DC.W 0 VBZ: DC.W 0 AL: DC.W 0 BE: DC.W 0 GA: DC.W 0 POSX: DC.L 0 POSY: DC.L 0 POSZ: DC.L 0 OBJECT: DC.L BIBI PTS2D: BLK.W 2000,$7FFF PTS3D: BLK.W 2000,$7FFF ZPROF: BLK.W 2000,$7FFF ;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ SURFLIST: BLK.L 100,-1 SURFACES: BLK.L 1000,-1 SURFACES2: BLK.L 1000,-1 SURFACES3: BLK.L 1000,-1 ZFACE: BLK.W 1000,$-1