---------------------- CORRIGÉS 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 DÉCIMAL. 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 DÉCIMAL 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 -------