;POUR CHARGER LES DATAS TAPEZ: ; ;RI RETURN ;PIC_RAW RETURN ;IMAGE RETURN RETURN ; ; ;PUIS TAPEZ ;G BEGIN RETURN RETURN ; ;SUPPRIMEZ LES LIGNES SUIVANTES SI VOTRE VERSION DU SEKA ;NE COMPORTE PAS LA COMMANDE Y >EXTERN "PIC_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 ;ADRESSE IMAGE ;640 PIXELS SUR 512 PIXELS FINDATA=IMAGE+[80*512*4] ;EN 4 PLANS ;================================== 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.s NEWIRQ3 ;SAUTE SOUS PROGRAMME: MET EN PLACE ROUTINE D'INTERRRUPTION WAIT: CMP.B #$F0,$DFF006 ;ATTENDANT 200 IEME LIGNE RASTER BNE.S WAIT ;SINON RETOURNE A WAIT BSR.L BIGSCROLL ;VA A ROUTINE DE DEPLACEMENT IMAGE BTST #6,$BFE001 ;ATTENDANT PRESSION SUR BOUTON GAUCHE SOURIS BNE.S WAIT ;SINON RETOURNE A WAIT ;SI OUI FIN END: ;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 ;==================== BIGSCROLL: MOVE.W ADDX,D0 ;MET VALEUR ADDX DANS D0 MOVE.W ADDY,D1 ;MET VALEUR ADDY DANS D1 ADD.W D0,X ;AJOUTE ADDX A POSITION X ADD.W D1,Y ;AJOUTE ADDY A POSITION Y CMP.W #320,X ;SI POSITION X EST INFERIEURE A 320 BHI OKX1 ;VA A OKX1 NEG ADDX ;SINON INVERSE VALEUR ADDX OKX1: CMP.W #0,X ;SI POSITION X EST SUPERIEURE A 0 BLE OKX2 ;VA A OKX2 NEG ADDX ;SINON INVERSE VALEUR ADDX OKX2: CMP.W #200,Y ;SI POSITION X EST INFERIEURE A 200 BHI OKY1 ;VA A OKY1 NEG ADDY ;SINON INVERSE VALEUR ADDY OKY1: CMP.W #0,Y ;SI POSITION X EST SUPERIEURE A 0 BLE OKY2 ;VA A OKY2 NEG ADDY ;SINON INVERSE VALEUR ADDY OKY2: MOVE.W X,D1 ;MET POSITION X DANS D1 MOVE.W Y,D3 ;MET POSITION Y DANS D3 MULU #80*4,D3 ;MULTIPLIE PAR 80 MOTS * PLANS MOVE.W D1,D2 ;MET X DANS D2 AND.W #$FFF0,D1 ;MASQUE 4 BITS INFERIEUR LSR.W #3,D1 ;DIVISE PAR 8 ADD.W D3,D1 ;AJOUTE D3 A D1 POUR AVOIR LE NOMBRE DE ;MOTS A AJOUTER AU DEBUT DE L'IMAGE AND.W #$000F,D2 ;MASQUE 12 BITS SUPERIEURS MULU #$0011,D2 ;MULTIPLIE PAR $11 MOVE.W #$00FF,D4 SUB.W D2,D4 ;POUR OBTENIR DECALAGE A DROITE MOVE.W D4,DECAL ;MET VALEUR DECALAGE DANS DECAL MOVE.W #IMAGE+[80*0] & 65535,LO1 ;MET EN PLACE ADRESSE DEBUT ADD.W D1,LO1 ;IMAGE DANS LISTE COPPER MOVE.W #IMAGE+[80*1] & 65535,LO2 ADD.W D1,LO2 MOVE.W #IMAGE+[80*2] & 65535,LO3 ADD.W D1,LO3 MOVE.W #IMAGE+[80*3] & 65535,LO4 ADD.W D1,LO4 RTS ADDX: DC.W 2 ;VITESSE EN X ADDY: DC.W 2 ;VITESSE EN Y X: DC.W 0 ;POSITION X Y: DC.W 0 ;POSITION Y ;==================== EVEN ;NOTRE LISTE COPPER NEWCOPPER: DC.W $008E,$2C81 ;DIMENSIONS DE L'ECRAN DC.W $0090,$2Cc1 ;256 LIGNES DC.W $0092,$0030,$0094,$00D8 ;POINTEURS ADRESSE DES PLANS DE L'IMAGE DC.W $00E0,IMAGE+[80*0]/65536 DC.W $00E2 LO1: DC.W IMAGE+[80*0] & 65535 DC.W $00E4,IMAGE+[80*1]/65536 DC.W $00E6 LO2: DC.W IMAGE+[80*1] & 65535 DC.W $00E8,IMAGE+[80*2]/65536 DC.W $00EA LO3: DC.W IMAGE+[80*2] & 65535 DC.W $00EC,IMAGE+[80*3]/65536 DC.W $00EE LO4: DC.W IMAGE+[80*3] & 65535 ;REGISTRE POUR CHOISIR RESOLUTION DC.W $0100,$4200 ;4 PLANS+MODE COULEURS ;DECALAGE ECRAN DC.W $0102 DECAL: DC.W $0000 ;PRIORITE DES PLANS ET SPRITES - INUTILISE ICI DC.W $0104,$0000 ;MODULOS DES PLANS -4 POUR EVITER BORDURES MOUVANTES DC.W $0108,40+240-4 ;MODULOS PLANS PAIRS DC.W $010A,40+240-4 ;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 DC.W $0180,$0000 ;COULEUR 00 DC.W $0182,$06F1 ;COULEUR 01 DC.W $0184,$0114 ;COULEUR 02 DC.W $0186,$0115 ;COULEUR 03 DC.W $0188,$0226 ;COULEUR 04 DC.W $018A,$0337 ;COULEUR 05 DC.W $018C,$0448 ;COULEUR 06 DC.W $018E,$088B ;COULEUR 07 DC.W $0190,$099C ;COULEUR 08 DC.W $0192,$0BBD ;COULEUR 09 DC.W $0194,$0DDE ;COULEUR 10 DC.W $0196,$0FFF ;COULEUR 11 DC.W $0198,$0DDE ;COULEUR 12 DC.W $019A,$0AAC ;COULEUR 13 DC.W $019C,$077A ;COULEUR 14 DC.W $019E,$0669 ;COULEUR 15 DC.W $01A0,$0DEF ;COULEUR 16 ;LES COULEURS DE 16 A 31 SONT DC.W $01A2,$0BEF ;COULEUR 17 ;AUSSI CELLES DES SPRITES DC.W $01A4,$0ADF ;COULEUR 18 DC.W $01A6,$07BD ;COULEUR 19 ;LES COULEURS 16 A 31 NE SONT DC.W $01A8,$058A ;COULEUR 20 ;PAS UTILISEES DANS LE MODE DC.W $01AA,$0357 ;COULEUR 21 ;HOLD AND MODIFY (HAM) DC.W $01AC,$0234 ;COULEUR 22 DC.W $01AE,$0011 ;COULEUR 23 DC.W $01B0,$0FD0 ;COULEUR 24 DC.W $01B2,$0FA0 ;COULEUR 25 DC.W $01B4,$0E80 ;COULEUR 26 DC.W $01B6,$0C60 ;COULEUR 27 DC.W $01B8,$0A30 ;COULEUR 28 DC.W $01BA,$0720 ;COULEUR 29 DC.W $01BC,$0510 ;COULEUR 30 DC.W $01BE,$0300 ;COULEUR 31 ;INSTRUCTIONS POUR AVOIR UN ECRAN PAL (256 LIGNES DE HAUT) DC.W $FFDF,$FFFE DC.L $FFFFFFFE ;FIN LISTE COPPER EVEN FINDEMO: