;APRES ASSEMBLAGE ;POUR CHARGER LES DATAS TAPEZ: ; ;RI RETURN ;IMAGE_RAW RETURN ;IMAGE RETURN ; ;PUIS TAPEZ ;G BEGIN RETURN RETURN ; ;SUPPRIMEZ LES LIGNES SUIVANTES SI VOTRE VERSION DU SEKA ;NE COMPORTE PAS LA COMMANDE Y >EXTERN "IMAGE_RAW",IMAGE org $30000 ;EMPLACEMENT EN MEMOIRE load $30000 ;DE NOTRE PROGRAMME BEGIN: JMP START ;===================================================================== EXECBASE=4 OPENLIBRARY=-408 CLOSELIBRARY=-414 SUPERSTATE=-150 USERSTATE=-156 FORBID=-132 PERMIT=-138 ADDINTSERVER=-168 REMINTSERVER=-174 Open=-30 Close=-36 Read=-42 ;===================================================================== BLTCON0=$DFF040 BLTCON1=$DFF042 BLTAFWM=$DFF044 BLTALWM=$DFF046 BLTCPTH=$DFF048 BLTCPTL=$DFF04A BLTBPTH=$DFF04C BLTBPTL=$DFF04E BLTAPTH=$DFF050 BLTAPTL=$DFF052 BLTDPTH=$DFF054 BLTDPTL=$DFF056 BLTSIZE=$DFF058 BLTCMOD=$DFF060 BLTBMOD=$DFF062 BLTAMOD=$DFF064 BLTDMOD=$DFF066 BLTCDAT=$DFF070 BLTBDAT=$DFF072 BLTADAT=$DFF074 DMACONR=$DFF002 ;================================== IMAGE=$40000 ;EMPLACEMENT DE L'IMAGE ;320 * 200 EN 5 PLANS FINDATA=IMAGE+[40*200*5] ;================================== START: MOVEM.L D0-D7/A0-A6,-(A7) ;SAUVE REGISTRES MOVE.L EXECBASE,A6 ;CHARGE ADRESSE EXECBASE DANS A6 JSR FORBID(A6) ;SAUTE SOUS PROGRAMME: INTERDIT MULTITACHE JSR OPENLIB ;SAUTE SOUS PROGRAMME: OUVERTURE LIBRAIRIES BSR.L SETCOPPER ;SAUTE SOUS PROGRAMME: MET EN PLACE LISTE COPPER BSR.L NEWIRQ3 ;SAUTE SOUS PROGRAMME: MET EN PLACE ROUTINE D'INTERRRUPTION WAIT: CMP.B #$E0,$DFF006 ;ATTENDANT 200 IEME LIGNE RASTER BNE.S WAIT ;SINON RETOURNE A WAIT TST.W UPFLAG ;TESTE SI FLAG UP EST 0 BNE.S SUITE ;SI NON VA A SUITE MOVE.W #31,NBRCOL ;MET NOMBRE DE COULEURS -1 DANS NBRCOL MOVE.L #LISTE_COULEURS,LISTE ;MET LISTE COULEURS DE L'IMAGE DANS LISTE MOVE.L #COULEURS+2,COLLOGO ;MET ADRESSE PREMIERE COULEUR DE LA COPPER LIST ;DANS COLLOGO BSR.L TUNEUP ;VA A ROUTINE DE FADE IN SUITE: BTST #6,$BFE001 ;ATTENDANT PRESSION SUR BOUTON GAUCHE SOURIS BNE.S WAIT ;SINON RETOURNE A WAIT MOVE.W #0,DOWNFLAG ;MET FLAG DOWN A 0 END: CMP.B #$E0,$DFF006 ;ATTENDANT 200 IEME LIGNE RASTER BNE.S END ;SINON RETOURNE A END TST.W DOWNFLAG ;TESTE SI FLAG DOWN EST A 0 BNE.S SUITE2 ;SI NON VA A SUITE2 MOVE.W #31,NBRCOL ;MET NOMBRE DE COULEURS -1 DANS NBRCOL MOVE.L #LISTE_COULEURS,LISTE ;MET LISTE COULEURS DE L'IMAGE DANS LISTE MOVE.L #COULEURS+2,COLLOGO ;MET ADRESSE PREMIERE COULEUR DE LA COPPER LIST ;DANS COLLOGO BSR.L TUNEDOWN ;VA A ROUTINE DE FADE OUT SUITE2: TST.W DOWNFLAG ;TESTE SI FLAG DOWN EST A 0 BEQ.S END ;SI OUI VA A END ;SINON FIN BSR.s STOPIRQ3 ;SAUTE SOUS PROGRAMME: STOPPE INTERRUPTION BSR.L CLRCOPPER ;SAUTE SOUS PROGRAMME: RESTAURE ANCIENNE LISTE COPPER BSR.L CLOSELIB ;SAUTE SOUS PROGRAMME: FERME LIBRAIRIES MOVE.L EXECBASE,A6 ;CHARGE ADRESSE EXECBASE DANS A6 JSR PERMIT(A6) ;AUTORISE MULTITACHE MOVEM.L (A7)+,D0-D7/A0-A6 ;RESTAURE REGISTRES RTS ;======================== NEWIRQ3: ;MET EN PLACE NOTRE ROUTINE MOVE.L EXECBASE,A6 ;D'INTERRUPTION lea irqstr,a1 move.l #5,d0 jsr addintserver(a6) move.l d0,irq beq.s irqerror rts irqerror: rts ;========================== STOPIRQ3: ;RESTAURE ANCIENNE ROUTINE movem.l a0-a6/d0-d7,-(sp) ;D'INTERRUPTION tst.l irq beq.s irqoff1 move.l execbase,a6 lea irqstr,a1 move.l #32,d0 jsr remintserver(a6) irqoff1:movem.l (sp)+,a0-a6/d0-d7 rts irqstr: dc.l 0,0 dc.b 2,-127 dc.l 0,irqdat,interrupt irqdat: dc.l 0,0,0,0 irq: dc.l 0 ;============================ interrupt: ;NOTRE ROUTINE D'INTERRUPTION movem.l a0-a6/d0-d7,-(sp) movem.l (sp)+,a0-a6/d0-d7 rts ;============================ OPENLIB: ;OUVERTURE DE LA LIBRAIRIE GRAPHIQUE move.l execbase,a6 ;MET ADRESSE EXECBASE DANS A6 lea gfxname,a1 ;MET NOM DE LA LIBRAIRIE DANS A1 move.l #$0,d0 ;MET 0 DANS D0 jsr openlibrary(a6) ;OUVRE LIBRAIRIE tst d0 ;TESTE D0 beq.s error ;SI = A 0 VA A ERROR = SORTIE move.l d0,gfxbase ;SI NON, MET ADRESSE D0 DANS GFXBASE add.l #$32,d0 ;AJOUTE $32 A CETTE ADRESSE move.l d0,coppertr ;MET D0=ADRESSE ACTUELLE LISTE COPPER rts ;DANS COPPERTR even gfxname: dc.b 'graphics.library',0 ;NOM DE LA LIBRAIRIE even gfxbase: dc.l 0 ;POINTEUR POUR LA GRAPHICS LIBRARY coppertr: dc.l 0 ;POINTEUR POUR ADRESSE LISTE COPPER ;==================== CLOSELIB: ;FERMETURE LIBRAIRIE move.l execbase,a6 ;MET ADRESSE EXECBASE DANS A6 move.l gfxbase,a1 ;MET NOM DE LA LIBRAIRIE DANS A1 jsr closelibrary(a6) ;FERME LIBRAIRIE rts ;==================== ERROR: ;SI ERREUR illegal ;SORTIE rts ;==================== SETCOPPER: ;MET EN PLACE NOTRE LISTE COPPER move.l coppertr,a0 ;MET ADRESSE ACTUEL COPPER DANS A0 move.l (a0),oldcopper ;MET CONTENU DANS OLDCOPPER move.l #newcopper,(a0) ;MET NOTRE LISTE COPPER DANS A0 move.w #$81c0,$dff096 ;ACTIVE LISTE COPPER rts oldcopper: dc.l 0 ;==================== CLRCOPPER: ;RESTAURE ANCIENNE LISTE COPPER move.l coppertr,a0 ;MET ANCIENNE ADRESSE DANS A0 move.l oldcopper,(a0) ;MET CONTENU DANS A0 move.w #$80a0,$dff096 ;REACTIVE ANCIENNE COPPER rts ;==================== EVEN SPEEDX=10 ;VITESSE DE FADE IN/FADE OUT EVEM COLLOGO: DC.L COULEURS+2 ;POINTEUR SUR LISTE COPPER LISTE: DC.L LISTE_COULEURS ;POINTEUR SUR LISTE COULEURS NBRCOL: DC.W 31 ;NOMBRE DE COULEURS -1 EVEN ;======================================== TUNEUP: ;FADE IN SUBQ.W #1,DLY BNE.S RETURN MOVE.W #SPEEDX,DLY ; VITESSE MOVE.L COLLOGO,A0 MOVE.L LISTE,A1 MOVE.W NBRCOL,D7 ; NOMBRE DE COULEURS TRACOLS: MOVE.W (A1)+,(A0) ADDQ.L #4,A0 DBF D7,TRACOLS ; COPY COULEURS MOVEQ #$F,D5 SUB.W COUNT,D5 BSR UPDOWN RETURN: RTS ;======================================== TUNEDOWN: ;FADE OUT SUBQ.W #1,DLY BNE.S RETURN MOVE.W #SPEEDX,DLY MOVEQ #1,D5 UPDOWN: MOVE.L COLLOGO,A0 MOVE.W NBRCOL,D7 DOCOLS: MOVEQ #2,D6 MOVEQ #$F,D3 MOVE.W D5,D4 DODIS: MOVE.W (A0),D0 AND.W D3,D0 CMP.W D4,D0 BCS.S SKIP1 SUB.W D4,(A0) BRA.S SKIP2 SKIP1: NOT.W D3 AND.W D3,(A0) NOT.W D3 SKIP2: ASL.W #4,D4 ASL.W #4,D3 DBF D6,DODIS ADDQ.L #4,A0 DBF D7,DOCOLS ADDQ.W #1,COUNT CMPI.W #$10,COUNT BNE.S RET2 CLR.W COUNT SEQ UPFLAG SEQ DOWNFLAG ; CLEAR UP&DOWNFLAGS RET2: RTS ;================================== COUNT:DC.W 0 ;COMPTEUR UPFLAG:DC.W 0 ;FLAG UP DOWNFLAG:DC.W 0 ;FLAG DOWN DLY:DC.W 1 ;COMPTEUR ;================================== EVEN LISTE_COULEURS: ;COULEURS DE NOTRE IMAGE DC.W $0000 DC.W $0897 DC.W $0786 DC.W $0674 DC.W $0563 DC.W $0452 DC.W $0342 DC.W $0231 DC.W $0978 DC.W $0867 DC.W $0756 DC.W $0645 DC.W $0533 DC.W $0423 DC.W $0322 DC.W $0211 DC.W $0000 DC.W $0200 DC.W $0400 DC.W $0600 DC.W $0900 DC.W $0b00 DC.W $0d00 DC.W $0f00 DC.W $0111 DC.W $0555 DC.W $0666 DC.W $0444 DC.W $0777 DC.W $0100 DC.W $0310 DC.W $0530 ;==================== EVEN ;NOTRE LISTE COPPER NEWCOPPER: DC.W $008E,$3081 ;DIMENSIONS DE L'ECRAN DC.W $0090,$F4C1 ;200 LIGNES DC.W $0092,$0038,$0094,$00D0 ;POINTEURS ADRESSE DES PLANS DE L'IMAGE DC.W $00E0,IMAGE+[40*200*0]/65536 DC.W $00E2,IMAGE+[40*200*0] & 65535 DC.W $00E4,IMAGE+[40*200*1]/65536 DC.W $00E6,IMAGE+[40*200*1] & 65535 DC.W $00E8,IMAGE+[40*200*2]/65536 DC.W $00EA,IMAGE+[40*200*2] & 65535 DC.W $00EC,IMAGE+[40*200*3]/65536 DC.W $00EE,IMAGE+[40*200*3] & 65535 DC.W $00F0,IMAGE+[40*200*4]/65536 DC.W $00F2,IMAGE+[40*200*4] & 65535 ;REGISTRE POUR CHOISIR RESOLUTION DC.W $0100,$5200 ;3 PLANS+MODE COULEURS DC.W $0102,$0000 ;PRIORITE DES PLANS ET SPRITES - INUTILISE ICI DC.W $0104,$0000 ;MODULOS DES PLANS DC.W $0108,0 ;MODULOS PLANS PAIRS DC.W $010A,0 ;MODULOS PLANS IMPAIRS ;POINTEURS DES SPRITES - MIS A 0 SI PAS DE SPRITES DC.W $0120,$0000,$0122,$0000 DC.W $0124,$0000,$0126,$0000 DC.W $0128,$0000,$012A,$0000 ;PAS DE SPRITES DC.W $012C,$0000,$012E,$0000 DC.W $0130,$0000,$0132,$0000 DC.W $0134,$0000,$0136,$0000 DC.W $0138,$0000,$013A,$0000 DC.W $013C,$0000,$013E,$0000 ;REGISTRES DES COULEURS COULEURS: ;LES COULEURS DOIVENT ETRE MISES A ZERO dc.w $0180,$0 ,$0182,$0 ,$0184,$0 ,$0186,$0 dc.w $0188,$0 ,$018a,$0 ,$018c,$0 ,$018e,$0 dc.w $0190,$0 ,$0192,$0 ,$0194,$0 ,$0196,$0 dc.w $0198,$0 ,$019a,$0 ,$019c,$0 ,$019e,$0 dc.w $01a0,$0 ,$01a2,$0 ,$01a4,$0 ,$01a6,$0 dc.w $01a8,$0 ,$01aa,$0 ,$01ac,$0 ,$01ae,$0 dc.w $01b0,$0 ,$01b2,$0 ,$01b4,$0 ,$01b6,$0 dc.w $01b8,$0 ,$01ba,$0 ,$01bc,$0 ,$01be,$0 DC.L $FFFFFFFE ;FIN LISTE COPPER FINDEMO: