Expérimentation pour AS (j'encourage à mettre dans des tutos,même si je si nioob

)
*************
Utilisation d'un tableau
*intialisé avec des chaines
*affichage avec DlgMessage
Problèmes rencontrés
*****************
des registre utilisés (avant correction), d0,d1 et a0, qui, utilises a long terme,
ont enraine des erreurs
d0,d1==>probleme dans la boucle for
a0==> probleme dans l'affichage des chaines, à partir de eleve[1]
(Pour moi, le court terme se situe entre deux appels de ROMCALL,voire meme fonction si nécessaire, et long terme: si c'est plus large que ca, plus irrégulier)
Programme
*********
include "ams_c"
bra main
even
titre: dc.b 'Eleve',0
even
eleve: ds.l 5
even
eleve1: dc.b 'Jean',0
even
eleve2: dc.b 'Olivier',0
even
eleve3: dc.b 'Jacques',0
even
eleve4: dc.b 'Chantale',0
even
main :
movem.l d3/a5, -(a7)
lea eleve, a5
move.l #eleve1, (a5)
move.l #eleve2, 4(a5)
move.l #eleve3,8(a5)
move.l #eleve4,12(a5)
move.l #eleve5,16(a5)
loopstart:
move.w #0, d3
even
loopmain:
cmp.w #16,d3
bgt loopend
move.w #1,-(a7)
move.w #0,-(a7)
move.l 0(a5,d3.w),-(a7)
pea titre
jsr DlgMessage
lea 12(a7),a7
loopnext:
addq.w #4,d3
bra loopmain
even
loopend:
movem.l (a7)+,d3/a5
rts