;********************* ;* * ;* Program by JEDI * ;* * ;********************* ExecBase = 4 OpenLib = -408 ; librairies CloseLib = -414 Open = -30 ; fenêtre Close = -36 ; fenêtre Write = -48 ; écran Read = -42 ; clavier ; Préparatifs: start move.l execbase,a6 lea dosname,a1 moveq #0,d0 jsr OpenLib(a6) move.l d0,dosbase ; Ouverture de la fenêtre de travail: move.l dosbase,a6 move.l #nomfen,d1 move.l #1005,d2 jsr Open(a6) move.l d0,handle ; Zone de Programmation: ;------------------------------------------------------------------------- Programme move.l #$10000,a0 boucle move.l handle,d1 move.l a0,d2 move.l #1024000,d3 jsr Write(a6) add.l #8,a0 cmp.l #$1ffffe,a0 blt boucle ;------------------------------------------------------------------------- ; Fermeture de la fenêtre de travail & Fin: move.l handle,d1 jsr Close(a6) trap #0 ; Sous-Programmes: ; Personnels: ;------------------------------------------------------------------------- mes1 dc.b '>Entrez une chaine de caractères : ' mes2 ; Système: ;------------------------------------------------------------------------- dosname dc.b 'dos.library',0,0 dosbase blk.l 1 handle blk.l 1 buffer blk.b 255,0 even nomfen dc.b 'CON:0/10/640/200/-*- Fenêtre de Travail by JEDI -*-',0