>Wongck at 15:18, 12 October 2011

2011-10-12T15:18:37Z

← Older revision		Revision as of 11:18, 12 October 2011
Line 354:		Line 354:
	</pre>		</pre>
	Back to [[ASM_Tutorial]]		Back to [[ASM_Tutorial]]
	[[Category:~~Programming~~]]		[[Category: ASSEMBLEUR 68000 sur ATARI ST Part 2]]

>Silver Surfer: Added category

2009-05-02T20:46:43Z

Added category

← Older revision		Revision as of 16:46, 2 May 2009
Line 354:		Line 354:
	</pre>		</pre>
	Back to [[ASM_Tutorial]]		Back to [[ASM_Tutorial]]
			[[Category:Programming]]

>Zorro 2 at 15:07, 9 October 2006

2006-10-09T15:07:28Z

New page

<pre>

-----------------
CORRECTIONS des

EXERCICES NRÂ°4

-----------------

1) Exercice nrÂ°1:
--------------
a) Si TACR vaut %100 et que le registre de donnâ€še vaut 42, quelle sera
la frâ€šquence d'appel d'un programme sur ce TIMER ?

Avec TACR = %100, on a un prâ€šdiviseur de 50, le registre de donnâ€še
vaut 42, on a donc:

frâ€šquence=245760/50/42= environ 117 appels par seconde (Delay Mode)

Le programme sera-t-il installâ€š sur le TIMER A ou sur le TIMER B ?

TACR gÃ¨re le mode de fonctionnement du TIMER A. (l'avez vous dâ€šjÃ
oubliâ€š ?)

b) Comment faire pour stopper un programme sous interruption installâ€š
sous le TIMER A ? :

Il suffit de mettre Ã 0 les 4 premiers bits du registre TACR

c) On veut installer un programme sous interruption qui doit s'exâ€šcuter
Ã peu prÃ¨s 245 fois par seconde, donnez une valeur possible des regi-
stres de controle et de donnâ€še pour obtenir cet effet.

Si le registre de controle vaut %10, on a un prâ€šdiviseur de 10 et
si le registre de donnâ€še vaut aussi 10, on a:

frâ€šquence=245760/10/10=245,76 appels par seconde (Delay Mode)

d) Peut-on installer plusieurs programmes sous interruption dans un
mÃ¨me TIMER ?

Bien sur que NON !
Il suffit de regarder comment on fait pour installer une routine
sur un TIMER, la premiÃ¨re chose qu'on fait,c'est mettre tous les
registres du TIMER conscernâ€š Ã 0 pour dâ€šbrancher la routine qui
s'y trouvait dâ€šjÃ ....

e) Un programme sous interruption doit obligatoirement s'exâ€šcuter en
MODE SUPERVISEUR.
Trouvez une raison Ã cela ...

Une raison toute simple et qu'Ã la fin du programme (Avant le RTE),
on efface le bit conscernâ€š du registre ISR.
Or toute modification des registres du MFP DOIT se faire en MODE
SUPERVISEUR...

1) Exercice nrÂ°2:
--------------
VoilÃ les macros des TIMERS A et B:

TIMERA MACRO $\1,$\2,$\3 ;MACRO Ã 3 paramÃ¨tres

; Mise Ã 0 des diffâ€šrents vecteurs bit pour le TIMER A

and.b #%11011111,$FFFA13 ;IMRA
and.b #%11011111,$FFFA0F ;ISRA
and.b #%11011111,$FFFA0B ;IPRA
and.b #%11011111,$FFFA07 ;IERA

; XBTIMER et installation de notre routine

pea \1 ;\1=LABEL du dâ€šbut de la routine
; Ã mettre sous interruption
move.w #\2,-(sp) ;\2=registre de controle
move.w #\3,-(sp) ;\3=registre de donnâ€še
move.w #0,-(sp) ;0 =TIMER A
move.w #$1F,-(sp) ;XBTIMER
trap #14 ;XBIOS
adda.l #12,sp ;on repositionne SP

; Mise Ã 1 des diffâ€šrents vecteurs bits pour le TIMER A

or.b #%100000,$FFFA07 ;IERA
or.b #%100000,$FFFA13 ;IMRA

ENDM ;Fin de la macro

TIMER B MACRO $\1,$\2,$\3 ;MACRO Ã 3 paramÃ¨tres

; Mise Ã 0 des diffâ€šrents vecteurs bits pour le TIMER B

and.b #%11111110,$FFFA13 ;IMRB
and.b #%11111110,$FFFA0F ;ISRB
and.b #%11111110,$FFFA0B ;IPRB
and.b #%11111110,$FFFA07 ;IERA

; XBTIMER et installation de la routine sur le TIMER B

pea \1 ;\1=LABEL du dâ€šbut de la routine
; Ã mettre sous interruption
move.w #\2,-(sp) ;\2=registre de controle
move.w #\3,-(sp) ;\3=registre de donnâ€še
move.w #1,-(sp) ;1 = TIMER B
move.w #$1F,-(sp) ;XBTIMER
trap #14 ;XBIOS
adda.l #12,sp ;on repositionne SP

; Mise Ã 1 des diffâ€šrents vecteurs bit

or.b #%1,$FFFA07 ;IERB
or.b #%1,$FFFA13 ;IMRB

ENDM ;FIN de la MACRO

2) Exercice nrÂ°3:
--------------
Deux solutions existent pour stopper les TIMERS A et B.

La premiÃ¨re consiste Ã mettre les 4 premiers bits des registres TACR
(Pour le TIMER A) ou TBCR (Pour le TIMER B) Ã 0.

Il suffirait donc d'â€šcrire:

BCLR #0,$FFFA19 ;bit 0 du registre TACR
BLCR #1,$FFFA19 ;bit 1
BCLR #2,$FFFA19 ;bit 2
BCLR #3,$FFFA19 ;bit 3

Pour le TIMER A (En MODE SUPERVISEUR !)

Ou

BCLR #0,$FFFA1B ;bit 0 du registre TBCR
BLCR #1,$FFFA1B ;bit 1
BCLR #2,$FFFA1B ;bit 2
BCLR #3,$FFFA1B ;bit 3

Pour le TIMER B (En MODE SUPERVISEUR !)

Il existe aussi une fonction de l'XBIOS qui permet de bloquer une
interruption du MFP 68901: C'est le fonction JDISINT de code 26.

Il suffit de passer l'IPL du MFP qui doit Ã¨tre arrÃ¨tâ€š.
C'est avec cette fonction qu'on crâ€šera nos MACROS:

Pour le TIMER A (De niveau 13/6 au sein du MFP), on â€šcrira:

STOPTIMEA MACRO
move.w #13,-(sp) ;TIMER A ( IPL 13/6)
move.w #26,-(sp) ;JDISINT
trap #14 ;XBIOS
addq.l #4,sp ;on repositionne SP
ENDM

Pour le TIMER B (De niveau 8/6 au sein du MFP), on â€šcrira:

STOPTIMEB MACRO
move.w #8,-(sp) ;TIMER B ( IPL 8/6 )
move.w #26,-(sp) ;JDISINT
trap #14 ;XBIOS
addq.l #4,sp ;on repositionne SP
ENDM

3) Exercice nrÂ°3:
--------------
VoilÃ le listing du programme qui fait varier la palette des couleurs
sous interruption.
Il n'y avait aucune difficultâ€š.

TEXT

INCLUDE "INIT_TOS.L" ;Setblock
INCLUDE "MACROS.L" ;Les MACROS
INCLUDE "TIMERS.L" ;Le fichier des MACROS
;pour les TIMERS

SETBLOCK ;initialisation

SUPER ;MODE SUPERVISEUR

PRINTLINE CA ;texte
WAIT ;attente

TIMERA ROUTINE,200,%111 ;On installe la routine
;sur le TIMER A avec le
;registre de donnâ€še=200
;et registre de controle
;=%111

USER ;MODE UTILISATEUR pour

KEEP 2000 ;revenir au DESKTOP avec le programme

; La routine sous interruption qui change les couleurs:

ROUTINE cmpi #30,TESTE ;A-t-on 30 en 'TESTE' ?
bgt DEUX ;Si c'est plus grand, va en 'DEUX'
move.l #PAL1,$45A ;Adresse de la nouvelle palette en
;'colorptr'
add #1,TESTE ;Sinon ajoute 1 en 'TESTE'
bclr #5,$FFFA0F ;Clear ISRA (bit 5=TIMER A)
RTE ;RETURN FROM EXCEPTION

DEUX move.l #PAL2,$45A ;Adresse de la nouvelle palette en
;'colorptr'
add #1,TESTE ;Ajoute 1 en 'TESTE'
cmpi #60,TESTE ;A-t-on 60 en 'TESTE' ?
bne NON ;Si NON, va en 'NON'
move #0,TESTE ;Met 0 en 'TESTE'
NON bclr #5,$FFFA0F ;Clear ISRA (bit 5=TIMER A)
RTE ;RETURN FROM EXCEPTION

DATA

; La palette nrÂ° 1

PAL1 DC.W $777,$700,$070,$000,$000,$777,$777,$777
DC.W $777,$777,$777,$777,$777,$777,$777,$777

; La palette nrÂ° 2

PAL2 DC.W $777,$700,$007,$000,$000,$777,$777,$777
DC.W $777,$777,$777,$777,$777,$777,$777,$777

CA DC.B 27,'E','Routine sous interruption (TIMER A )'
DC.B ' qui change la',13,10,'couleur nrÂ°3 de la'
DC.B ' palette (Variable systÃ¨me $45A):',0

BSS

DS.B 500
PILE DS.B 1 ;Pour SETBLOCK
SAUV_SP DS.L 1 ;Pour SUPER et USER
TESTE DS.W 1 ;Pour la routine sous interruption

END

4) Exercice nrÂ°4:
--------------
LÃ aussi, aucune difficultâ€š majeure...

TEXT

INCLUDE "INIT_TOS.L" ;SETBLOCK
INCLUDE "MACROS.L" ;Les MACROS
INCLUDE "TIMERS.L" ;Les MACROS des TIMERS
INCLUDE "MACROS_2.L" ;La MACRO HEXA

SETBLOCK ;initialisation

SUPER ;MODE SUPERVISEUR

PRINTLINE LA ;texte
CCONOUT #13 ;13 +
CCONOUT #10 ;10 = retour Ã la ligne en
;colonne 1
WAIT ;attente

TIMERA PRG,50,%111 ;On installe notre routine
;sur le TIMER A avec le re-
;gistre de donnâ€še = 50 et le
;registre de controle=%111

; La boucle qui affiche les valeurs de la variable

BOUCLE HEXA VAL ;Affiche le L-M de 'VAL' en HEXA
CCONOUT #13 ;13 +
CCONOUT #10 ;10 = retour Ã la ligne en colonne 1
WAIT ;attente
cmpi.b #'Q',d0 ;Touche = Q ?
beq RETOUR ;Si OUI, va en 'RETOUR'
cmpi.b #'q',d0 ;Touche = q ?
beq RETOUR ;Si OUI, va en 'RETOUR'
jmp BOUCLE et on recommence en 'BOUCLE'

; La routine sous interruption qui se contente d'incrâ€šmenter le L-M
; en 'VAL'

PRG add.l #1,VAL ;Ajoute 1 au L-M en 'VAL'
bclr #5,$FFFA0F ;CLear ISRA (bit 5=TIMER A)
RTE ;RETURN FROM EXCEPTION

RETOUR USER ;MODE UTILISATEUR
STOPTIMEA ;on stoppe le TIMER A
TERM ;et FIN !

DATA

LA DC.B 27,'E','Routine sous interruption (TIMER A )'
DC.B ' qui incrâ€šmente le',13,10,'contenu de la va'
DC.B 'riable affichâ€še ([Q] pour QUITTER) ...',0

BSS

DS.B 500
PILE DS.B 1 ;Pour SETBLOCK
SAUV_SP DS.L 1 ;Pour SUPER et USER
VAL DS.L 1 ;La variable Ã afficher

END

--------------------

VoilÃ , les listings et les programmes exâ€šcutables de ces exercices
se trouvent dans les fichiers:

1) TIMERS .L pour les MACROS TIMERA,TIMERB,STOPTIMEA,STOPTIMEB

2) PALETTE.L pour le programme de changement de la palette sous
interruption.
et PALETTE.PRG

3) AFFICHE.L pour le programme d'affichage du L-M incrâ€šmentâ€š sous
interruption.

et AFFICHE.PRG

PIECHOCKI Laurent
8, Impasse Bellevue Suite dans le fichier:ANNEXE.DOC
57980 TENTELING ----------

</pre>
Back to [[ASM_Tutorial]]

Pl2 CORRIG 4.DOC - Revision history

>Wongck at 15:18, 12 October 2011

>Silver Surfer: Added category

>Zorro 2 at 15:07, 9 October 2006