GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
+24
MeteK
Matari
gurneyh
StaxX
vicomte
oiseau de proie
rnooo
Zarnal
crapahute
epc35
Alfaccc
k1200rs21
cryodav76
babsimov
youki
drfloyd
tapomag
Copper
Seb
rocky007
Yoyost
Jacques Atari
dlfrsilver
TotOOntHeMooN
28 participants
Page 29 sur 34
Page 29 sur 34 • 1 ... 16 ... 28, 29, 30 ... 34
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Oui, c est clair. D ailleurs j ai lu un article quo disait que Google était vraiment inquiet pour leur business. Mais qu ils auraient probablement une ia d une même type, même plus puissante, mais qu il ne l aurait pas mis en ligne justement pour pas se tirer une balle dans le pied et tuer leur propre business du moteur de recherche.
youki- Docteur *
- Nombre de messages : 13198
Date d'inscription : 01/08/2009
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
À un moment ou un autre, ils seront obligés de la sortir leur IA.
Dans un avenir proche, les forums d'entraide auront également du souci à se faire :/
Dans un avenir proche, les forums d'entraide auront également du souci à se faire :/
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Heureusement, il y aura encore Gamopat!!!
Aucune intelligence Artificiel ne peut le remplacer!... surtout ce topic en particulier... Souvent dépourvu d'Intelligence qu'elle soit artificielle ou pas...
Aucune intelligence Artificiel ne peut le remplacer!... surtout ce topic en particulier... Souvent dépourvu d'Intelligence qu'elle soit artificielle ou pas...
youki- Docteur *
- Nombre de messages : 13198
Age : 52
Date d'inscription : 01/08/2009
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Oui
Je lui ai demandé de me coder un jeu A8 en BASIC :
J'imagine ce que cette IA sera capable de faire dans une dizaine d'année
Bon allez, fin du HS
Je lui ai demandé de me coder un jeu A8 en BASIC :
- Spoiler:
- code moi un jeu en Basic Atari XL en 10 lignes
Voici un jeu très simple en Basic Atari XL qui consiste à deviner un nombre aléatoire compris entre 1 et 100 en 10 essais maximum :
10 RANDOMIZE
20 PRINT "Devine un nombre entre 1 et 100"
30 FOR i = 1 TO 10
40 INPUT n
50 IF n = INT(RND(1)*100)+1 THEN PRINT "Bravo, tu as trouvé le bon nombre!" : GOTO 70
60 PRINT "Désolé, ce n'est pas le bon nombre. Essaie encore!"
70 NEXT i
80 PRINT "Désolé, tu n'as pas réussi à trouver le bon nombre. C'était "; INT(RND(1)*100)+1
Voici une explication de chaque ligne de code :
Ligne 10 : RANDOMIZE initialise le générateur de nombres aléatoires.
Ligne 20 : PRINT affiche un message à l'écran.
Ligne 30 : FOR i = 1 TO 10 démarre une boucle qui s'exécutera 10 fois.
Ligne 40 : INPUT n demande à l'utilisateur de saisir un nombre.
Ligne 50 : IF n = INT(RND(1)*100)+1 THEN ... vérifie si le nombre saisi par l'utilisateur est égal au nombre aléatoire généré par le programme. Si c'est le cas, un message de succès est affiché à l'écran et le programme saute à la ligne 70. Sinon, le programme exécute la ligne suivante.
Ligne 60 : PRINT affiche un message d'erreur à l'écran.
Ligne 70 : NEXT i incrémente la variable i et retourne à la ligne 30 tant que i est inférieur ou égal à 10.
Ligne 80 : PRINT affiche un message de fin de jeu à l'écran et indique le nombre aléatoire généré par le programme.
J'espère que cela répond à ta question ! Si tu as d'autres questions ou si tu souhaites que je te montre d'autres exemples de code en Basic Atari XL, n'hésite pas à me le demander.
J'imagine ce que cette IA sera capable de faire dans une dizaine d'année
Bon allez, fin du HS
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Bon en tout cas elle ne s'y connait pas grand chose en Copperlist visiblement
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Copper a écrit:Bon en tout cas elle ne s'y connait pas grand chose en Copperlist visiblement
Personne comprend le hardware de l'Amiga, meme pas ceux qui l'ont fait de toute façon!!
Dernière édition par youki le Mar 3 Jan 2023 - 8:58, édité 1 fois
youki- Docteur *
- Nombre de messages : 13198
Age : 52
Date d'inscription : 01/08/2009
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Copper a écrit:Bon en tout cas elle ne s'y connait pas grand chose en Copperlist visiblement
Comme roquet007 quoi !!
Si ca se trouve, c'est lui qui écrit en se faisant passer pour une IA .
Invité- Invité
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Test :
- Spoiler:
- code moi en 10 lignes un jeu pour AMIGA en utilisant la copperlist
Voici un exemple de code en Amiga Basic qui utilise la copperlist pour afficher une animation en boucle :
10 COPPERLIST
20 COLOR 0,0,0:LOCATE 1,1:PRINT"Appuie sur la touche espace pour démarrer l'animation"
30 OPEN #1,4,0,"K:"
40 GET #1,A
50 IF A <> 32 THEN GOTO 40
60 CLOSE #1
70 POKE 23330,0:POKE 23331,0
80 FOR i = 1 TO 256
90 POKE 23330,i
100 FOR j = 1 TO 100:NEXT j
110 POKE 23331,i
120 FOR j = 1 TO 100:NEXT j
130 NEXT i
140 GOTO 70
Voici une explication de chaque ligne de code :
Ligne 10 : COPPERLIST définit la copperlist, qui est une liste de commandes exécutées par le processeur coprocesseur de l'Amiga.
Ligne 20 : COLOR 0,0,0 définit la couleur de fond de l'écran. LOCATE 1,1 déplace le curseur de texte à la position (1,1) de l'écran. PRINT affiche un message à l'écran.
Ligne 30 : OPEN #1,4,0,"K:" ouvre le canal 1 en lecture à partir du clavier (K:).
Ligne 40 : GET #1,A attend qu'un caractère soit saisi au clavier et enregistre son code ASCII dans la variable A.
Ligne 50 : IF A <> 32 THEN GOTO 40 vérifie si le code ASCII de la touche saisie n'est pas 32 (touche espace). Si ce n'est pas le cas, le programme retourne à la ligne 40 pour attendre une autre touche.
Ligne 60 : CLOSE #1 ferme le canal 1.
Ligne 70 : POKE 23330,0 écrit la valeur 0 à l'adresse mémoire 23330. Cette adresse est utilisée par la copperlist pour stocker la valeur de la couleur de premier plan de l'écran. POKE 23331,0 écrit la valeur 0 à l'adresse mémoire 23331
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Ben là c'est du grand n'importe quoi ce qu'elle raconte... En même temps je ne m'attendais pas à ce qu'elle me sorte une Copperlist nickelle avec une boucleyouki a écrit:Personne comprend le hardware de l'Amiga, meme pas ceux qui l'ont fait de toute façon!!
Dernière édition par Copper le Mar 3 Jan 2023 - 9:00, édité 1 fois
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
@StaxX : En tous cas c'est impressionnant effectivement .
Invité- Invité
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Copper a écrit:Ben là c'est du grand n'importe quoi ce qu'elle raconte... En même temps je ne m'attendais pas à ce qu'elle me sorte une Copperlist nickelle avec une boucleyouki a écrit:Personne comprend le hardware de l'Amiga, meme pas ceux qui l'ont fait de toute façon!!
C'est juste que tu as mal formuler la question... nous on ne comprend jamais rien à ca que tu racontes... alors imagine une IA...
Dernière édition par youki le Mar 3 Jan 2023 - 9:06, édité 1 fois
youki- Docteur *
- Nombre de messages : 13198
Age : 52
Date d'inscription : 01/08/2009
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
C'est du grand n'importe quoi mais bon rien d'étonnant
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Je voulais juste une pauvre Copperlist avec une boucle (en plus je suis sympa je lui dit qu'il faut utiliser l'instruction SKIP)
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
si les forums disparaissent, où ces « IA » iront-elles puiser leurs « connaissances » ?
Elles vont se mettre à discuter entre elles et partir dans une boucle :)
À y réfléchir un peu plus, un être humain acquiert ses connaissances de la même manière, mais de façon moins efficace. Et il peut aussi partir en boucle (cf ce forum )
Elles vont se mettre à discuter entre elles et partir dans une boucle :)
À y réfléchir un peu plus, un être humain acquiert ses connaissances de la même manière, mais de façon moins efficace. Et il peut aussi partir en boucle (cf ce forum )
tapomag- Patient incurable
- Nombre de messages : 1311
Age : 51
Localisation : Ici
Date d'inscription : 01/10/2022
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Question hypothétique :
si je cherchais des testeurs de démos ( vrai hard ) sur STF ou STE pour comparer avec l'émulateur et créer une base de données, je trouverais facilement des volontaires ?
Ou bien je suis à coté de la plaque ? Le seul au monde à trouver cela intéressant à faire ?
Parce que sur Amiga, cela ne se bouscule pas parmi tant de " passionnés ". Depuis 2018.
si je cherchais des testeurs de démos ( vrai hard ) sur STF ou STE pour comparer avec l'émulateur et créer une base de données, je trouverais facilement des volontaires ?
Ou bien je suis à coté de la plaque ? Le seul au monde à trouver cela intéressant à faire ?
Parce que sur Amiga, cela ne se bouscule pas parmi tant de " passionnés ". Depuis 2018.
Zarnal- Infirmier
- Nombre de messages : 4210
Age : 49
Localisation : Kekpart Ailleurs
Date d'inscription : 27/06/2016
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Zarnal a écrit: Parce que sur Amiga, cela ne se bouscule pas parmi tant de " passionnés ". Depuis 2018.
Les passionnés sont ici en train de troller depuis leur PC.
Il faut fermer ce fil de discussion et tu auras plein de volontaires ! (et confisquer les PCs au passage).
tapomag- Patient incurable
- Nombre de messages : 1311
Age : 51
Localisation : Ici
Date d'inscription : 01/10/2022
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
En même temps quand on a plus de vraie machine c'est difficile...
D'ailleurs là j'ai fait un petit test avec une Copperlist et j'ai un décalage d'un pixel qui ne me semble pas très logique mais ca pourrait très bien venir de l'émulateur...
D'ailleurs là j'ai fait un petit test avec une Copperlist et j'ai un décalage d'un pixel qui ne me semble pas très logique mais ca pourrait très bien venir de l'émulateur...
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Copper a écrit:En même temps quand on a plus de vraie machine c'est difficile...
D'ailleurs là j'ai fait un petit test avec une Copperlist et j'ai un décalage d'un pixel qui ne me semble pas très logique mais ca pourrait très bien venir de l'émulateur...
Fallait pas la balancer!
Après bon, un Amiga ca se comprend. Mais il y avait quand meme des portages ST sympa sur cette machine , pas que des daubes comme Shadow of Beast. Ca aurait pu compenser un peu le fait que tu ne puisse pas profiter d'un ST.
youki- Docteur *
- Nombre de messages : 13198
Age : 52
Date d'inscription : 01/08/2009
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Je ne l'aurais pas balancé... Alors qu'un Atari ST je l'aurais balancé avant même de l'avoir allumé
En tout cas étrange ce décalage d'un pixel...
En tout cas étrange ce décalage d'un pixel...
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Et passer à côté de 100€. En plus d'être un codeur médiocre, tu es en plus pas très doué pour le business. Tu cumules.Copper a écrit:Je ne l'aurais pas balancé... Alors qu'un Atari ST je l'aurais balancé avant même de l'avoir allumé
Jacques Atari- Interne
- Nombre de messages : 6417
Age : 51
Localisation : Chez moi
Date d'inscription : 31/08/2021
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
A l'époque ce n'aurait pas été des euros de toute façon
Pour le reste je sais sans doute beaucoup mieux coder que toi ce qui n'est pas difficile (et en plus j'ai même mon permis de conduire que j'ai eu du premier coup en plus)
Pour le reste je sais sans doute beaucoup mieux coder que toi ce qui n'est pas difficile (et en plus j'ai même mon permis de conduire que j'ai eu du premier coup en plus)
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Logique. Quand on habite à la campagne, c'est indispensable la voiture.
Jacques Atari- Interne
- Nombre de messages : 6417
Age : 51
Localisation : Chez moi
Date d'inscription : 31/08/2021
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Je pense que si l'IA devient folle et se transforme en skynet, c'est à cause de ce topic.
epc35- Guéri miraculeux
- Nombre de messages : 2857
Date d'inscription : 22/11/2018
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Combien de fois on ne me l'a pas faite celle ci.Copper a écrit:En même temps quand on a plus de vraie machine c'est difficile...
D'ailleurs là j'ai fait un petit test avec une Copperlist et j'ai un décalage d'un pixel qui ne me semble pas très logique mais ca pourrait très bien venir de l'émulateur...
Avant que je ne prouve le contraire.
Zarnal- Infirmier
- Nombre de messages : 4210
Age : 49
Localisation : Kekpart Ailleurs
Date d'inscription : 27/06/2016
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Mouais c'est quand même bizarre là j'ai un changement de registre de couleurs qui prend 10 pixels au lieu de 8 normalement (et y a un décalage d'un pixel par rapport au bord gauche de mon écran)
Je me souviens pas avoir eu ça sur mon A500 à l'époque mais bon
Je me souviens pas avoir eu ça sur mon A500 à l'époque mais bon
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Copper a écrit:
D'ailleurs là j'ai fait un petit test avec une Copperlist et j'ai un décalage d'un pixel qui ne me semble pas très logique
comme c'est étonnant : un codeur Amiga fait un code simple sur Amiga et cela ne marche pas...
rocky007- Interne
- Nombre de messages : 9152
Age : 50
Date d'inscription : 29/01/2011
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Il est public ton code ?Copper a écrit:Mouais c'est quand même bizarre là j'ai un changement de registre de couleurs qui prend 10 pixels au lieu de 8 normalement (et y a un décalage d'un pixel par rapport au bord gauche de mon écran)
Je me souviens pas avoir eu ça sur mon A500 à l'époque mais bon
je peux faire vérifier sur une vraie machine.
Dernière édition par Zarnal le Mar 3 Jan 2023 - 20:52, édité 1 fois
Zarnal- Infirmier
- Nombre de messages : 4210
Age : 49
Localisation : Kekpart Ailleurs
Date d'inscription : 27/06/2016
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Zarnal a écrit:Question hypothétique :
si je cherchais des testeurs de démos ( vrai hard ) sur STF ou STE pour comparer avec l'émulateur et créer une base de données, je trouverais facilement des volontaires ?
Ou bien je suis à coté de la plaque ? Le seul au monde à trouver cela intéressant à faire ?
Parce que sur Amiga, cela ne se bouscule pas parmi tant de " passionnés ". Depuis 2018.
ben honnêtement, faut vraiment être motivé à faire ce travail, qui de plus a un intérêt plutôt faible, si pas nul...
soit les bugs sont déjà connus et visibles aisément, soit tout le s'en fout car cela ne se voit pas
rocky007- Interne
- Nombre de messages : 9152
Age : 50
Date d'inscription : 29/01/2011
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Tu vas rire mais c'est ce que m'a plus ou moins dit le boss d'AF quand je râlais de ne pas trouver de nouveaux testeurs ( 3 personnes en 4 ans ).rocky007 a écrit:Zarnal a écrit:Question hypothétique :
si je cherchais des testeurs de démos ( vrai hard ) sur STF ou STE pour comparer avec l'émulateur et créer une base de données, je trouverais facilement des volontaires ?
Ou bien je suis à coté de la plaque ? Le seul au monde à trouver cela intéressant à faire ?
Parce que sur Amiga, cela ne se bouscule pas parmi tant de " passionnés ". Depuis 2018.
ben honnêtement, faut vraiment être motivé à faire ce travail, qui de plus a un intérêt plutôt faible, si pas nul...
soit les bugs sont déjà connus et visibles aisément, soit tout le s'en fout car cela ne se voit pas
C'est bien cela que je ne comprends pas. Au contraire, c'est idéal pour remonter les soucis techniques et améliorer les choses. Et cela a été le cas.
Il faudra recruter à la GEMTOS.
Zarnal- Infirmier
- Nombre de messages : 4210
Age : 49
Localisation : Kekpart Ailleurs
Date d'inscription : 27/06/2016
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
oui mais au jour d'aujourd'hui, tous les demos ont été codées sur émulateur et testée sur machine réelle , donc s'il y a avait des différences, les codeurs auraient déjà remonté les problèmes.
rocky007- Interne
- Nombre de messages : 9152
Age : 50
Date d'inscription : 29/01/2011
Re: GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Zarnal a écrit:Il est public ton code ?
je peux faire vérifier sur une vraie machine.
- copper.asm:
- Code:
DMACONR EQU $002
ADKCONR EQU $010
INTENAR EQU $01C
INTREQR EQU $01E
DMACON EQU $096
ADKCON EQU $09E
INTENA EQU $09A
INTREQ EQU $09C
BPLCON0 EQU $100
BPLCON1 EQU $102
BPL1MOD EQU $108
BPL2MOD EQU $10A
DIWSTRT EQU $08E
DIWSTOP EQU $090
DDFSTRT EQU $092
DDFSTOP EQU $094
VPOSR EQU $004
COP1LCH EQU $080
COP1LCL EQU $082
COP2LCH EQU $084
COP2LCL EQU $086
COPCON EQU $02E
COPJMP1 EQU $088
COPJMP2 EQU $08A
BPL1PTH EQU $0E0
BPL1PTL EQU $0E2
BPL2PTH EQU $0E4
BPL2PTL EQU $0E6
BPL3PTH EQU $0E8
BPL3PTL EQU $0EA
BPL4PTH EQU $0EC
BPL4PTL EQU $0EE
BPL5PTH EQU $0F0
BPL5PTL EQU $0F2
BPL6PTH EQU $0F4
BPL6PTL EQU $0F6
COLOR00 EQU $180
COLOR01 EQU $182
COLOR02 EQU $184
COLOR03 EQU $186
COLOR04 EQU $188
COLOR05 EQU $18A
COLOR06 EQU $18C
COLOR07 EQU $18E
COLOR08 EQU $190
COLOR09 EQU $192
COLOR10 EQU $194
COLOR11 EQU $196
COLOR12 EQU $198
COLOR13 EQU $19A
COLOR14 EQU $19C
COLOR15 EQU $19E
COLOR16 EQU $1A0
COLOR17 EQU $1A2
COLOR18 EQU $1A4
COLOR19 EQU $1A6
COLOR20 EQU $1A8
COLOR21 EQU $1AA
COLOR22 EQU $1AC
COLOR23 EQU $1AE
COLOR24 EQU $1B0
COLOR25 EQU $1B2
COLOR26 EQU $1B4
COLOR27 EQU $1B6
COLOR28 EQU $1B8
COLOR29 EQU $1BA
COLOR30 EQU $1BC
COLOR31 EQU $1BE
SPR0DATA EQU $144
SPR0DATB EQU $146
SPR1DATA EQU $14C
SPR1DATB EQU $14E
SPR2DATA EQU $154
SPR2DATB EQU $156
SPR3DATA EQU $15C
SPR3DATB EQU $15E
SPR4DATA EQU $164
SPR4DATB EQU $166
SPR5DATA EQU $16C
SPR5DATB EQU $16E
SPR6DATA EQU $174
SPR6DATB EQU $176
SPR7DATA EQU $17C
SPR7DATB EQU $17E
BLTCPTH EQU $048
BLTCPTL EQU $04A
BLTBPTH EQU $04C
BLTBPTL EQU $04E
BLTAPTH EQU $050
BLTAPTL EQU $052
BLTDPTH EQU $054
BLTDPTL EQU $056
BLTCMOD EQU $060
BLTBMOD EQU $062
BLTAMOD EQU $064
BLTDMOD EQU $066
BLTDDAT EQU $000
BLTCDAT EQU $070
BLTBDAT EQU $072
BLTADAT EQU $074
BLTAFWM EQU $044
BLTALWM EQU $046
BLTCON0 EQU $040
BLTCON1 EQU $042
BLTSIZE EQU $058
BLTSIZH EQU $05E
BLTSIZV EQU $05C
CIAAPRA EQU $BFE001
execbase EQU 4
OpenLibrary EQU -552
CloseLibrary EQU -414
Permit EQU -138
Forbid EQU -132
Supervisor EQU -30
WaitTOF EQU -270
LoadView EQU -222
OwnBlitter EQU -456
DisownBlitter EQU -462
WaitBlit EQU -228
ActiView EQU 34
copinit EQU 38
Init:
move.l execbase,a6
btst #0,296+1(a6) ; 68010+?
beq.b Is68k
lea VBR(pc),a5
jsr Supervisor(a6)
move.l d0,vbrptr
Is68k:
move.l #$DFF000,a5
move.w #$8000,d1
move.w DMACONR(a5),d0
or.w d1,d0
move.w d0,olddmareq
move.w INTENAR(a5),d0
or.w d1,d0
move.w d0,oldintena
move.w INTREQR(a5),d0
or.w d1,d0
move.w d0,oldintreq
move.w ADKCONR(a5),d0
or.w d1,d0
move.w d0,oldadkcon
move.l vbrptr,a0
move.l $6C(a0),oldint3
move.l #gfxname,a1
moveq #0,d0
jsr OpenLibrary(a6)
move.l d0,gfxbase
move.l d0,a6
move.l ActiView(a6),oldview
move.l copinit(a6),oldcopper
move.l #0,a1
jsr LoadView(a6)
jsr WaitTOF(a6)
jsr WaitTOF(a6)
move.l execbase,a6
jsr Forbid(a6)
move.l gfxbase,a6
; setup display hardware to show a 320x256x1 playfield
move.l #$DFF000,a5
move.w #$1200,BPLCON0(a5) ; one bitplanes
move.w #$0000,BPLCON1(a5) ; horizontal scroll
move.w #$0000,BPL1MOD(a5) ; odd modulo
move.w #$0000,BPL2MOD(a5) ; even modulo
move.w #$2C81,DIWSTRT(a5) ; DIWSTRT - topleft corner
move.w #$2CC1,DIWSTOP(a5) ; DIWSTOP - bottomright corner
move.w #$0038,DDFSTRT(a5) ; DDFSTRT
move.w #$00D0,DDFSTOP(a5) ; DDFSTOP
move.w #%1000000111000000,DMACON(a5) ; DMA set ON
move.w #%0000000000111111,DMACON(a5) ; DMA set OFF
move.w #%0011111111111111,INTENA(a5) ; IRQ set OFF
move.w #%1100000000100000,INTENA(a5) ; IRQ set ON
move.l #copper,a6
move.l #bitplane1,d0
move.w #BPL1PTL,(a6)+
move.w d0,(a6)+
swap d0
move.w #BPL1PTH,(a6)+
move.w d0,(a6)+
; colors
move.l #$01800000,(a6)+
move.l #$01820777,(a6)+
move.l #$2C01FFFE,(a6)+
move.l a6,d0
move.w #COP2LCL,(a6)+
move.w d0,(a6)+
swap d0
move.w #COP2LCH,(a6)+
move.w d0,(a6)+
move.l #$003F00FE,(a6)+
move.w #39,d0
lea gradient(pc),a0
GradientLoop1:
move.w #$0182,(a6)+
move.w (a0)+,(a6)+
dbra d0,GradientLoop1
move.l #$01820777,(a6)+
move.l #$3401FF01,(a6)+
move.l #COPJMP2<<16,(a6)+
move.l a6,d0
move.w #COP2LCL,(a6)+
move.w d0,(a6)+
swap d0
move.w #COP2LCH,(a6)+
move.w d0,(a6)+
move.l #$003F00FE,(a6)+
move.w #39,d0
lea gradient(pc),a0
GradientLoop2:
move.w #$0180,(a6)+
move.w (a0)+,(a6)+
dbra d0,GradientLoop2
move.l #$01800000,(a6)+
move.l #$3C01FF01,(a6)+
move.l #COPJMP2<<16,(a6)+
; end of copperlist
move.l #$FFFFFFFE,(a6)+
; Take copper list into use
move.l #copper,a6
move.l a6,COP1LCH(a5)
MainLoop:
WaitVB:
move.l VPOSR(a5),d0
and.l #$1FF00,d0
cmp.l #303<<8,d0
bne WaitVB
move.w frame,d0
btst #0,d0
bne WaitVB
Buttons:
btst.b #6,CIAAPRA
beq Exit
btst.b #7,CIAAPRA
beq Exit
bra MainLoop
Exit:
move.l #$DFF000,a5
move.l vbrptr,a0
move.l oldint3,$6C(a0)
move.w #$7FFF,DMACON(a5)
move.w olddmareq,DMACON(a5)
move.w #$7FFF,INTENA(a5)
move.w oldintena,INTENA(a5)
move.w #$7FFF,INTREQ(a5)
move.w oldintreq,INTREQ(a5)
move.w #$7FFF,ADKCON(a5)
move.w oldadkcon,ADKCON(a5)
move.l oldcopper,COP1LCH(a5)
move.l gfxbase,a6
move.l oldview,a1
jsr LoadView(a6)
jsr WaitTOF(a6)
jsr WaitTOF(a6)
move.l a6,a1
move.l execbase,a6
jsr CloseLibrary(a6)
jsr Permit(a6)
moveq #0,d0
rts
VBR:
dc.w $4E7A,$0801 ; movec.l VBR,d0
rte
align 2
frame:
dc.w 0
oldview:
dc.l 0
oldcopper:
dc.l 0
gfxbase:
dc.l 0
vbrptr:
dc.l 0
oldint3:
dc.l 0
olddmareq:
dc.w 0
oldintreq:
dc.w 0
oldintena:
dc.w 0
oldadkcon:
dc.w 0
gfxname:
dc.b 'graphics.library',0
even
gradient:
dc.w $00F,$FFF,$F00,$0F0,$005,$006,$007,$008,$009,$00A,$00B,$00C,$00D,$00E,$00F,$01F,$02F,$03F,$04F,$05F
dc.w $05F,$04F,$03F,$02F,$01F,$00F,$00E,$00D,$00C,$00B,$00A,$009,$008,$007,$006,$005,$0F0,$00F,$FFF,$F00
section datac,data,chip
bitplane1:
blk.b 40*8,%10011001
blk.b 40*248,0
section bss,bss,chip
copper:
blk.b 1024,0
Compilé avec vasm :
vasm -kick1hunks -Fhunkexe -o copper -nosym copper.asm
Pour le reste ça donne ça sur WinUAE 4.10 (c'était pareil sur la version précédente) :
Ceci dit la boucle SKIP/COPJMP en elle même fonctionne bien (vu que c'était le but du test)
Copper- Docteur *
- Nombre de messages : 7760
Age : 48
Localisation : FRANCE
Date d'inscription : 02/11/2020
Page 29 sur 34 • 1 ... 16 ... 28, 29, 30 ... 34
Sujets similaires
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
» GUERRE ST-AMIGA, FIGHT ! (Mauvaise foi assurée)
Page 29 sur 34
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum