>Wongck at 15:19, 12 October 2011

2011-10-12T15:19:13Z

← Older revision		Revision as of 11:19, 12 October 2011
Line 766:		Line 766:
	</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:43:36Z

Added category

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

>Zorro 2 at 15:05, 9 October 2006

2006-10-09T15:05:46Z

New page

<pre>

----------------------
CORRIGES DES EXERCICES

NRÂ°2

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

1) Exercice nrÂ°1
-------------

VoilÃ les listings des 2 macros instructions 'SAUVE' et 'RESTORE' qui
permettent respectivement de sauvegarder et restaurer les registres du
68000.

Je passe sur les dâ€štails, il suffisait d'utiliser l'instruction MOVEM.
Les registres seront sauvâ€šs dans la pile systÃ¨me par mode prâ€šdâ€šcrâ€šmen-
tâ€š et restaurâ€šs par mode postincrâ€šmentâ€š.C'est tout ...

TEXT

SAUVE MACRO
movem.l d0-d7/a0-a6,-(sp)
ENDM

RESTORE MACRO
movem.l (sp)+,d0-d7/a0-a6
ENDM

END

2) Exercice nrÂ°2
-------------
VoilÃ le listing de la macro HEXA, qui permet d'afficher en hexadâ€šcimal
le contenu de son paramÃ¨tre.

Il faut d'abord atteindre sucessivement les 8 demi-octets qui
composent le L-M passâ€š en paramÃ¨tre (1 chiffre hexa=4 bits)
Pour cela on utilise l'instruction de rotation ROL et on la place dans
une boucle. (LSR convenait aussi...)
On masquera ensuite les 4 bits de plus faible poids avec AND.L #%1111,dn
pour ne garder que le demi-octet Ã traiter.
Le plus difficile vient ensuite:
Il faut maintenant afficher la valeur de ce chiffre hexa codâ€š par 4 bits
Ã l'â€šcran.
Si le chiffre est <$A (donc <10) ce chiffre sera compris entre 0 et 9.
En additionnant $30 Ã la valeur de ce chiffre on obtiendra le code ascii
du chiffre. (Car le code ascii de '0' est $30:celui de '1' est donc â€šgal
Ã $30+1=$31 etc...)
Si le chiffre hexa Ã afficher est >9 ce chiffre sera une lettre de l'alph-
abet (de A Ã F).
En ajoutant $37+$A Ã la valeur de ce chiffre on obtiendra le code ascii
du chiffre Ã afficher.(Car le code ascii de 'A' est $37+$A :celui de 'B'
est donc â€šgal Ã $37+$B=$42 etc...)
Il suffit ensuite d'afficher avec CCONOUT le code ascii ainsi obtenu et
de recommencer l'opâ€šration avec tous les demi-octets du paramÃ¨tre.

NB:On utilise les macros SAUVE et RESTORE dans notre macro HEXA pour
-- pouvoir utiliser tous les registres sans modifier leur contenu Ã
la fin de la macro.

Vous remarquerez que j'utilise des LABELS dans la macro HEXA.
La macro ne pourra donc qu'Ã¨tre utilisâ€še 1 fois dans un listing car
l'assembleur ne peut pas distinguer deux labels identiques et Ã
chaque appel d'une macro, celle-ci est reâ€šcrite entiÃ¨rement...
Vous pouvez cependant mettre la macro dans un sous-programme pour
pouvoir l'appeller plusieurs fois...

TEXT

HEXA MACRO $\1 ;macro Ã 1 paramÃ¨tre
SAUVE ;on sauve les registres pour ne pas
;perdre leur contenu
move.l \1,d1 ;on pose le paramÃ¨tre dans d1
moveq #0,d2 ;initialise le nombre de glissement
DECAL addi.b #4,d2 ;on ajoute 4 au nb de glissements
cmpi.b #36,d2 ;si d2=36=32+4=on a finit les 32
beq FIN ;rotations,dans ce cas -> FIN
move.l d1,d3 ;sinon on pose d1 dans d3 et on
rol.l d2,d3 ;fait une rotation de 4 bits
andi.l #%1111,d3 ;et on masque ces 4 bits car seuls
;eux doivent Ã¨tres traitâ€šs.

; d3 contient donc la valeur Ã afficher: 0 Ã 9 ou A Ã F. (car un chiffre
;hexa est codâ€š par 4 bits (voir introduction) )

cmpi.b #9,d3
bgt HEX ;si d3 >9, on va en HEX car il faudra
;afficher une lettre et nom plus un
;chiffre...

DECIMAL addi.b #$30,d3 ;d3=d3+$30 car la valeur ASCII de 0 est $30
;Donc si par exp. d3 vaut 1, on le reprâ€šsente
;par le caractÃ¨re ascii $30+1=$31='1', si il
;vaut 5, par le code ascii $30+5=$35='5',ainsi
;de suite pour tous les chiffres hexa <9
CCONOUT d3 ;â€šdition du contenu de d3

jmp DECAL ;on redâ€šcale le paramÃ¨tre et on continue
;avec les 4 bits suivants en DECAL

HEX addi.b #$37,d3 ;d3=d3+$37 pour les nombres hexa reprâ€šsentâ€šs
;par les lettres car la valeur ASCII de A est
;$37+$A.Donc si par exp. d3 vaut $B,on le re-
;prâ€šsente par le code ascii $37+$B=$42='B'...
CCONOUT d3 ;on affiche la lettre (de A Ã F)

jmp DECAL ;on redâ€šcale le paramÃ¨tre et on continue
;avec les 4 bits suivants en DECAL

FIN RESTORE ;quand on a fini l'oppâ€šration avec tous les
;32 bits, on restore les registres empilâ€šs
ENDM

END

3) Exercice nrÂ°3
-------------
VoilÃ la correction de la macro 'BINAIRE'.

Pour atteindre les 32 bits du paramÃ¨tre et pour les afficher Ã l'â€šcran,
on utilise l'instruction LSL.L #1,paramÃ¨tre dans une boucle et suivant
la valeur du bit sorti, on affiche un '1' (bit actif) ou un '0' ( bit
etteind).
L'instruction de branchement conditionnel correspondant peut par exemple
Ã¨tre bCC (Qui teste si le bit C du CCR est nul: LSL copie le bit sorti
dans le bit C du CCR)
Pour afficher le '1' ou le '0', on utilise la macro CCONOUT #'1' ou
CCONOUT #'0'.

NB:MÃ¨mes remarques que pour la macro HEXA en ce qui conscerne l'utilisa-
-- tion de labels dans la macro 'BINAIRE'.

TEXT

BINAIRE MACRO $\1 ;MACRO Ã 1 paramÃ¨tre
SAUVE ;sauvegarde des registres
move.L \1,d1 ;le paramÃ¨tre dans d1
move #31,d3 ;compteur de boucle pour les dâ€šcalages

LOOK move #'0',d0 ;d0 contient le code ascii de 0
lsl.l #1,d1 ;dâ€šcalage d'un bit de d1:Copie du bit dans
;le code C du CCR
bcc ZERO ;si le bit est nul (C=0):va en 'zero'
move #'1',d0 ;sinon d0 contient le code ascii de '1'
ZERO CCONOUT d0 ;on affiche le contenu de d0 (0 ou 1)
dbf d3,LOOK ;on recommence avec les 31 autres bits
RESTORE ;on restore les registres
ENDM ;fini...

END

4) Exercice nrÂ°4:
--------------

VoilÃ le listing du programme qui permet de formater une disquette.

Il suffisait d'utiliser correctement la fonction FLOPFMT du Gemdos
et de la mettre dans une boucle pour pouvoir faire varier le nrÂ° de
la piste Ã formater.

Pour demander une confirmation d'â€šxecution Ã l'utilisateur du programme,
on affiche un message d'alerte avec PRINTLINE, on attend qu'il enfonce
une touche du clavier (avec 'WAIT') et on teste le code ascii de la
touche selectionnâ€še. (valeur qui retourne dans d0)
Si cette touche est 'F' on formate la disquette, sinon on quitte le prg
avec la macro TERM (fonction TERM du Gemdos).

Si une erreur se produit durant le formatage (d0 nâ€šgatif aprÃ¨s FLOPFMT),
on affiche le code d'erreur en DECIMAL.
Il faudra d'abord rendre le chiffre Ã traiter positif avec NEG dn.
Le chiffre Ã traiter (le code d'erreur) sera donc un nombre positif
et infâ€šrieur Ã 100 (cf. les codes d'erreur du Gemdos).
On effectue une division par 10 de ce chiffre pour obtenir le chiffre
des dixaines (avec DIVU #10,dn) du code d'erreur.
Le quotient retourne dans le mot de poids faible de dn: c'est le chiffre
des dixaine, on l'affiche en lui ajoutant $30 pour obtenir un code ascii
(avec CCONOUT).
Le reste est dans le mot de poids fort de dn:Il reprâ€šsente le chiffre
des unitâ€šs du code d'erreur.On SWAP dn et on l'affiche lui aussi.

Quand le formatage sera terminâ€š, on affichera un message signalant que
tout est OK.

Remarque:
---------
ATTENTION, notre programme va bien formater la disquette, mais si
vous regardez les informations conscernant la disquette en utili-
sant l'option 'INFORMATIONS' du bureau GEM ,on vous indiquera qu'il
reste 0 Octets de libre alors qu'il y en a aussi 0 d'utilisâ€šs...
Ceci s'explique par le fait que nous n'avons pas initialisâ€š le
BOOT SECTOR de la disquette:On ne pourra donc rien y â€šcrire car
il contient toutes les informations nâ€šcessaires aux opâ€šrations de
disk...

NB:Ceux qui ne possÃ¨dent pas PROFIMAT et qui veulent (doivent!) mettre
-- le tampon pour FLOPFMT Ã une adresse PAIRE ne doivent pas â€šcrire la
DIRECTIVE :'ALIGN.W' en zone BSS.
Pour METACOMCO, il existe une DIRECTIVE â€šquivalente:CNOP 0,2
Pour DEVPAC ST: c'est la directive EVEN.
Les autres assemblerons le listing et si il ne marche pas, c'est que
le tampon pour FLOPFMT n'est pas Ã une adresse paire.
Il suffira alors de râ€šserver 1 OCTET juste devant le tampon:celui-ci
passera donc d'une adresse impaire Ã une adresse paire (impaire+1).

TEXT

INCLUDE "INIT_TOS.L"
INCLUDE "MACROS.L"

SETBLOCK

PRINTLINE ATTENTION ;le message d'alerte

WAIT ;attente d'une touche:code ascii dans d0
CMPI.B #'F',d0 ;d0='F' ?
BEQ FORMAT ;alors FORMAT
CMPI.B #'f',d0 ;d0='f' ?
BEQ FORMAT ;alors FORMAT
TERM ;sinon quitter

FORMAT SUPER ;mode SUPERVISEUR

clr.l d0

BOUCLE movem.l d0,-(sp) ;on sauvegarde juste d0
move.w #$e5e5,-(sp) ;virgin
move.l #$87654321,-(sp) ;mot magic
move.w #1,-(sp) ;interleave
move.w #0,-(sp) ;face
move.w d0,-(sp) ;d0=les diffâ€šrentes pistes
move.w #9,-(sp) ;nb de secteurs par piste
move.w #0,-(sp) ;drive A
clr.l -(sp) ;l-m=0
pea TAMPON ;adresse du tampon
move.w #$a,-(sp) ;Flopfmt
trap #14
add.l #26,sp ;mise Ã jour de SP
tst d0
bmi ERROR ;Si d0 est nâ€šgatif: erreur
movem.l (sp)+,d0 ;on restore d0
addi.b #1,d0 ;on incrâ€šmente le nrÂ° de piste
cmpi.b #80,d0 ;a-t-on les 80 pistes ?
bne BOUCLE

PRINTLINE OK ;pas de probleme, OK
GO WAIT ;attente d'une touche
USER ;on revient en mode USER
TERM ;-> retour

ERROR move d0,d5 ;on sauve d0 dans d5 car d0 sera modifiâ€š
PRINTLINE PROBLEME
neg d5 ;d5 devient positif

; affichage DECIMAL de d5

divu #10,d5 ;chiffre des dixaines dans d5.w faible
add #$30,d5 ;chiffre=code ascii
CCONOUT d5 ;on l'affiche
swap d5 ;d5.w faible=reste de la division=chiffre
;des unitâ€šs de d5
add #$30,d5 ;chiffre=code ascii
CCONOUT d5 ;on l'affiche
jmp GO ;--> fin

DATA

ATTENTION DC.B 27,'E','DANGER ! Ce programme FORMATE la disquette,'
DC.B ' inserez une disquette VIERGE puis',10,13,'pressez'
DC.B ' [F] pour FORMATER la disquette ...'
DC.B ' (Ou une autre touche pour QUITTER!)',7,0

OK DC.B 27,'E','Pas d',39,'erreur : OK...',0

PROBLEME DC.B 27,'E',7,'ERREUR de code :-',0

BSS

DS.B 20000 ;tampon en ammont de la nouvelle PILE
PILE DS.B 1 ;le formatage nâ€šcessite beaucoup de place...
ALIGN.W ;SPECIFIQUE Ã PROFIMAT !!!!!
TAMPON DS.B 10000 ;tampon pour le formatage (adresse PAIRE)
SAUV_SP DS.L 1 ;tampon pour SUPER et USER

END

5) Exercice nrÂ°5
-------------

VoilÃ le programme qui rejoue les sons crâ€šes avec PRO SOUND DESIGNER.

Le programme va attendre qu'on enfonce une touche du clavier puis il
la teste (Macro 'WAIT' du gemdos, retour du code et du scancode dans
d0).
Les touches de Fonction n'ont pas de code ascii mais possÃ¨dent toutes
un SCANCODE qui les diffâ€šrencies.
Si l'octet de poids faible de d0 contient un code ascii (d0.w diffâ€šrent
de 0), on quitte le prg car cela voudrait dire qu'on a enfoncâ€š une autre
touche qu'une des 10 touches de fonction.

Vous avez ensuite dâ€” chercher les diffâ€šrents scancodes des touches de
fonction pour pouvoir les utiliser ici.
Pour cela, il suffisait d'â€šcrire le programme suivant,

TEXT

INCLUDE "MACROS.L"

AA WAIT ;attente d'une touche
SWAP d0 ;d0.b de poids faible = scancode
and.l #$FF,d0 ;on ne garde que l'octet de poids faible de
;ce mot (soit le SCANCODE)
HEXA d0 ;affichage en HEXA du scancode
WAIT ;attente d'une touche
CCONOUT #27
CCONOUT #'E' ;on efface l'â€šcran
jmp AA ;et on recommence

END

puis de l'assembler ,de l'â€šxecuter et d'appuyer sur les touches de
fonction pour noter leurs SCANCODES.

Le reste du programme doit identifier les diffâ€šrents scancodes des
touches de fonction et jouer un son.
Pour tester les valeurs du scancode de la touche enfoncâ€še, on compare
la valeur du scancode rentrâ€š aux valeurs des 10 scancodes des touches
de fonction que nous avons placâ€š en zone DATA.
En mÃ¨me temps, on fait varier la valeur d'un registre d'adresse 'an'
qui pointe sur les diffâ€šrentes adresses des sons.
Si un scancode est identifiâ€š, on joue le son pointâ€š par 'an' en le
fournissant comme paramÃ¨tre Ã la macro 'DOSOUND', sinon on incrâ€šmente
les registres d'adresse (mode (an)+) pointant sur les DATAs qui reprâ€š-
sentent les scancodes et les adresses des sons.
Si finalement aucun scancode n'est reconnu, on recommence le test des
touches du clavier au dâ€šbut du programme.

Les donnâ€šes dâ€šfinissant les sons se trouvent dans le fichier
PROSOUND.DAT, il suffit de l'inclure en zone DATA dans le listing.

NB:Je modifie la valeur d'une VARIABLE SYSTEME dans ce listing (avec
-- move.b #0,$484) ceci dans le but d'arrÃ¨ter le 'BIP' qui se fait
entendre quand on appuye sur une touche afin de ne pas perturber
le son rejouâ€š.
Je parlerais bientot des VARIABLES SYSTEME...

TEXT

INCLUDE "INIT_TOS.L"
INCLUDE "MACROS.L"

SETBLOCK

SUPER ;mode SUPERVISEUR

PRINTLINE message ;texte
move.b #0,$484 ;variable systÃ¨me (mettre
;0 enlÃ¨ve râ€špâ€štition et
;bip des touches)

TEZT WAIT ;attente d'une touche
;:CODE dans d0
tst.b d0 ;si code ascii diffâ€šrent de
bne STP ;0, alors SToP, sinon
swap d0 ;d0.w de poids faible
;devient le SCANCODE

lea FONCT,a0 ;a0=adresse des SCANCODES
lea VECTEUR,a1 ;a1=adresse des adresses
;des sons de VECTEUR

LISONS cmp.b (a0)+,d0 ;compare SCANCODE de la
;touche enfoncâ€še (d0) Ã
;ceux de la table DC.B .
move.l (a1)+,a5 ;Pose l'adresse pointâ€še par
;a1 dans a5
beq SON ;si CMP=oui, va jouer le
;son pointâ€š par a5
addq.b #1,d1 ;sinon ajoute 1 Ã d1
cmpi.b #9,d1 ;d1=9 ?
beq TEZT ;alors plus de scancodes
;et on revient en 'TEZT'
jmp LISONS ;sinon on incrâ€šmente a0
;et a1

SON DOSOUND a5 ;Dosound le son pointâ€š par
;a5
jmp TEZT ;puis on revient en 'TEZT'

STP USER ;mode UTILISATEUR
TERM ;on quitte

DATA

MESSAGE DC.B 27,'E','VoilÃ des sons de PRO SOUND DESIGNER'
DC.B ', tapez sur les touches de Fonction :',13,10
DC.B '(Ou une autre touche pour sortir )',7,0

VECTEUR DC.L sound0,sound1,sound2,sound3,sound4,sound5
DC.L sound6,sound7,sound8,sound9
;les adresses des 10 sons.

FONCT DC.B $3B,$3C,$3D,$3E,$3F,$40,$41,$42,$43,$44
;les scancodes des touches de fonction (F1->F10)

;Donnâ€šes dâ€šfinissant les sons de PRO SOUND DESIGNER

sound0 DC.B 0,214
DC.B 1,0
DC.B 2,215
DC.B 3,0
DC.B 4,215
DC.B 5,0
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound1 DC.B 0,24
DC.B 1,1
DC.B 2,25
DC.B 3,1
DC.B 4,23
DC.B 5,1
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound2 DC.B 0,156
DC.B 1,1
DC.B 2,156
DC.B 3,1
DC.B 4,156
DC.B 5,1
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound3 DC.B 0,22
DC.B 1,2
DC.B 2,21
DC.B 3,2
DC.B 4,23
DC.B 5,2
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound4 DC.B 0,55
DC.B 1,3
DC.B 2,59
DC.B 3,3
DC.B 4,57
DC.B 5,3
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound5 DC.B 0,235
DC.B 1,3
DC.B 2,234
DC.B 3,3
DC.B 4,232
DC.B 5,3
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound6 DC.B 0,70
DC.B 1,5
DC.B 2,72
DC.B 3,5
DC.B 4,71
DC.B 5,5
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound7 DC.B 0,84
DC.B 1,7
DC.B 2,84
DC.B 3,7
DC.B 4,84
DC.B 5,7
DC.B 7,248
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,2
DC.B 0,0
DC.B 255,0
sound8 DC.B 0,175
DC.B 1,0
DC.B 2,193
DC.B 3,4
DC.B 4,20
DC.B 5,6
DC.B 7,254
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,0
DC.B 93,63
DC.B 255,0
sound9 DC.B 0,175
DC.B 1,0
DC.B 2,193
DC.B 3,4
DC.B 4,232
DC.B 5,4
DC.B 7,254
DC.B 8,16
DC.B 9,16
DC.B 10,16
DC.B 11,32
DC.B 12,73
DC.B 13,0
DC.B 129,0
DC.B 80,88
DC.B 255,0

BSS

DS.B 40000 ;pour SETBLOCK
PILE DS.B 1
SAUV_SP DS.L 1 ;pour SUPER/USER

END

6) Exercice 6
----------

VoilÃ le programme qui permet de visualiser le directory d'une disquette.

Il fallait simplement utiliser la macro 'SEARCH' et la fonction SEARCH-
NEXT du gemdos qui dâ€šlivrent dans le tampon DTA le nom du fichier et cer-
tains autres renseignements conscernant le fichier reconnu.
Il fallait ensuite afficher le nom de chaque fichier reconnu:
Le nom se trouve en DTA+30, pour l'afficher on utilise la macro PRINTLINE.

NB:MÃ¨mes remarques que pour le listing nrÂ°4 conscernant l'adresse PAIRE
-- du tampon DTA.

TEXT

INCLUDE "INIT_TOS.L"
INCLUDE "MACROS.L"

SETBLOCK

PRINTLINE DIR ;message

SEARCH DTA,#0,PRG ;installe DTA,cherche le prg (L/E)
tst d0 ;erreur ?
bne FIN ;si ? alors FIN
PRINTLINE DTANOM ;en DTANOM se trouve le nom du fichier
CCONOUT #13 ;on saute une ligne
CCONOUT #10 ;on revient colonne 1

BOUCLE move #$4f,-(SP) ;SEARCH-NEXT
trap #1
addq.l #2,SP
tst d0 ;encore des prg ?
bne FIN ;non ?! Alors FIN
PRINTLINE DTANOM ;on affiche le nom du prg
CCONOUT #13 ;on saute une ligne
CCONOUT #10 ;on revient Ã la colonne 1
jmp BOUCLE ;et on continue

FIN PRINTLINE FINI ;message
WAIT ;attente
TERM ;salut !!

DATA

PRG DC.B 'A:\*.*',0 ;= TOUS les fichiers
DIR DC.B 27,'E','LE DIRECTORY DE CETTE DISQUETTE EST:',10,13,0
FINI DC.B 13,10,7,'VoilÃ pour cette Disquette...',0

BSS

DS.B 2000
PILE DS.B 1
ALIGN.W ;SPECIFIQUE Ã PROFIMAT !!!
DTA DS.B 30 ;dâ€šbut tampon
DTANOM DS.B 14 ;ici DTA+30, le NOM du fichier
ZERO DS.B 1 ;octet NUL pour PRINTLINE

END

PETIT PLUS:
-----------
VoilÃ le listing d'un programme qui va parfaitement illuster les termes
de PROGRAMME PERE et PROGRAMME FILS ainsi que les possiblilitâ€šs de
chainage de programme grÃ ce aux fonctions PEXEC et TERM du Gemdos.

TEXT

INCLUDE "INIT_TOS.L"
INCLUDE "MACROS.L"

SETBLOCK

PRINTLINE MESSAGE ;texte
WAIT ;attente
PRINTLINE EFFACE ;texte
PEXEC ZERO,NUL,PRG,#0 ;Pexec en mode 0

PRINTLINE RETOUR ;texte
WAIT ;attente
TERM ;retour

DATA

MESSAGE DC.B 27,'E',7,'Je vais charger le programme SON.PRG'
DC.B ' ,je resterais en mâ€šmoire et quand le',13,10
DC.B 'programme se terminera il me redonnera la '
DC.B 'main car je suis le PRG PERE :',0
EFFACE DC.B 27,'E','je charge mon PRG FILS :',0
RETOUR DC.B 27,'E','PRG PERE: COUCOU !!! me revoilÃ ...',0

NUL DC.B 0 ;pas d'environnenment
ZERO DC.B 0 ;pas de ligne de commande
PRG DC.B 'A:\SON.PRG',0 ;nom du programme FILS

BSS

DS.B 200 ;pour SETBLOCK
PILE DS.B 1

END

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

VoilÃ pour les corrections.

Je vous signale que les macros instructions SAUVE,RESTORE,HEXA,BINAIRE
sont prâ€šsentes dans le fichier MACROS_2.L et vous sont dâ€šsormais entiÃ¨-
rement disponibles. ----------
Il existe aussi des PRG exemples utilisant ces macros instructions dans
les fichiers:

listing :EXEMPLE.L
â€šxecutable:EXEMPLE.PRG

Les listings complets des programmes issus des exercices nrÂ°4,5,6 et du
programme Exemple ci-dessus sont prâ€šsents dans les fichiers:

FORMAT.L
SON.L
DIR.L
PERE.L

ainsi que les programmes dâ€šjÃ assemblâ€šs:

FORMAT.PRG
SON.PRG
DIR.PRG
PERE.PRG

Tous ces fichiers sont sur la disquette nrÂ° 1.
----------------------------------------------

PIECHOCKI Laurent
8,impasse Bellevue Suite dans le fichier:VDI.DOC
57980 TENTELING -------

</pre>
Back to [[ASM_Tutorial]]

Pl2 CORRIG 2.DOC - Revision history

>Wongck at 15:19, 12 October 2011

>Silver Surfer: Added category

>Zorro 2 at 15:05, 9 October 2006