diff --git a/+AMOS_Includes.s b/+AMOS_Includes.s
new file mode 100644
index 0000000..ecdf5b9
--- /dev/null
+++ b/+AMOS_Includes.s
@@ -0,0 +1,74 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***
+;   ****  *** *** ** ** **
+;  **  ** ** * ** ** **  ***
+;  ****** **   ** ** **    **
+;  **  ** **   ** ** ** *  **
+;  **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+;  Includes all includes - Francois Lionet / Europress 1992
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;----------------------------------------------------------------------
+
+; These ones are for me!
+		IFND	Finale
+Finale:		equ 	1
+		ENDC
+		IFND	VDemo
+VDemo:		equ 	0
+		ENDC
+		IFND	ROnly
+ROnly:		equ 	0
+		ENDC
+;
+		Incdir  "includes/"
+		Include "lvo/exec_lib.i"
+		Include "lvo/dos_lib.i"
+		Include "lvo/layers_lib.i"
+		Include "lvo/graphics_lib.i"
+		Include "lvo/mathtrans_lib.i"
+		Include "lvo/rexxsyslib_lib.i"
+		Include "lvo/mathffp_lib.i"
+		Include "lvo/mathieeedoubbas_lib.i"
+		Include "lvo/intuition_lib.i"
+		Include "lvo/diskfont_lib.i"
+		Include "lvo/icon_lib.i"
+		Include "lvo/console_lib.i"
+
+		Include	"+Debug.s"		Just one flag
+		Include "+Equ.s"
+		RsSet	DataLong
+		Include	"+CEqu.s"
+		Include	"+WEqu.s"
+		Include "+LEqu.s"
+
+		IFNE	Debug
+		Include	"+Music_Labels.s"
+		ENDC
diff --git a/+B.s b/+B.s
new file mode 100644
index 0000000..261f750
--- /dev/null
+++ b/+B.s
@@ -0,0 +1,2985 @@
+; ______________________________________________________________________________
+; ..............................................................................
+; ...................................................................2222222....
+; ................................................................22222222220...
+; ...................................................222........222222.....222..
+; ..............................................2202222222222..22000............
+; ..................................22000.....20222222222200000200002...........
+; .................................2002202...2222200222.220000000200000000022...
+; ....................220002......22222200..2200002.......2200000...20000000000.
+; ....................22222202....2220000022200000..........200002........200000
+; .....200000.........2222200000222200220000000002..........200002........20000.
+; .....00222202........2220022000000002200002000002........2000002000020000000..
+; ....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+; ....220000200002......20000..200002..220000200000000000000002.......22........
+; ...2220002.220000 2....220002...22.....200002..0000000000002...................
+; ...220000..222000002...20000..........200000......2222........................
+; ...000000000000000000..200000..........00002..................................
+; ..220000000022020000002.200002.........22.......______________________________
+; ..0000002........2000000220022.................|
+; .200000............2002........................| AMOSPro Version 2
+; .200002........................................| Loader general
+; 220002.........................................|______________________________
+; ______________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ______________________________________________________________________________
+;
+		Include "+AMOS_Includes.s"
+		Include "+Version.s"
+; ______________________________________________________________________________
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES DE FIN / ROUTINES INTERNES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	SECTION	"E",CODE
+; - - - - - - - - - - - - -
+
+Hunk_1	jmp	Cold_Start
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN DE L'INITIALISATION : ENLEVE LE HUNK INIT!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Init_Fin
+; - - - - - - - - - - - - -
+
+; Enleve le hunk init
+; ~~~~~~~~~~~~~~~~~~~
+	lea	Hunk_1-8(pc),a0
+	lea	Hunk_2-8,a1
+	move.l	4(a1),4(a0)		Deconnecte le hunk 2
+	move.l	(a1),d0			Libere la memoire
+	move.l	$4.w,a6
+	jsr	_LVOFreeMem(a6)
+
+; Ouvre une structure programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	PI_DefSize(a5),d0	Structure programme
+	JJsr	L_Prg_NewStructure
+	move.l	d0,a6
+	beq	TheEnd_OOMem
+
+; Charge AUTOEXEC.AMOS ou le programme voulu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#-2,d0			Pas d'ecran de fond
+	JJsr	L_Prg_New
+	moveq	#-1,d0			Toujours adapter
+	JJsr	L_Prg_Load
+	bne	.NoProg
+	moveq	#-1,d0			Semi Init Graphique
+	lea	RunErr_RunOnly,a1	En cas d'erreur
+	sub.l	a2,a2
+	JJsr	L_Prg_RunIt		Revient si out of memory!
+
+; Pas de programme: on se branche � l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NoProg	jsr	Sys_VerInstall		Verification de l'installation
+	beq	TheEnd_Install
+	jsr	Edit_Load		Charge l'editeur
+	bne.s	TheEnd_Editor
+	moveq	#-1,d0			DefRun normal
+	JJsr	L_Prg_New
+	moveq	#-1,d0			Titre
+	JJsr	L_Ed_Cold
+	bne.s	TheEnd_Editor
+	jsr	WOption			Affiche ou non!
+	JJsr	L_Ed_Title		Le titre
+	JJmp	L_Ed_Loop		Branche � la boucle
+
+; 	Message d'erreur panique residents
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TheEnd_Editor
+	lea	Panic_Editor(pc),a0	Cannot load editor
+	bra	TheEndMm
+TheEnd_OOMem
+	lea	Panic_OOMem(pc),a0	Out of memory
+	bra	TheEndMm
+TheEnd_Install
+	lea	Panic_Install(pc),a0
+	bra	TheEndMm
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SORTIE GENERALE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+TheEndMm
+	move.l	a0,Panic
+TheEnd
+
+	tst.b	Sys_LibStarted(a5)
+	beq	.Nolib
+
+; Les librairies sont demarrees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_EndRoutines(a5),a1	Les routines ajoutees
+	SyCall	CallRoutines
+
+	JJsr	L_CloAll		Fichiers, imprimante
+	JJsr	L_PRT_Close
+	JJsr	L_Equ_Free
+
+	JJsr	L_Includes_Clear	Les includes du dernier programme
+
+	tst.l	Edit_Segment(a5)	Arrete l'editeur
+	beq.s	.NEd
+	JJsr	L_Ed_End
+.NEd
+
+	move.l	Edt_List(a5),d1		Les structures EDT restantes
+	beq.s	.EdtX			en cas de KILL editor
+.ExtL	move.l	d1,a1
+	move.l	Edt_Next(a1),d1
+	move.l	#Edt_Long,d0
+	SyCall	MemFree
+	tst.l	d1
+	bne.s	.ExtL
+
+.EdtX	move.l	Prg_List(a5),d0		Les structure PRG restantes
+	beq.s	.PrgX
+.PrgL	move.l	d0,a6
+	JJsr	L_Prg_DelStructure
+	move.l	Prg_List(a5),d0
+	bne.s	.PrgL
+.PrgX
+	bsr	Edit_Free		Enleve l'editeur
+	bsr	Mon_Free		Enleve le moniteur + banque
+	bsr	EffFSel			Enleve la resource file selector
+	bsr	EffMouse		Enleve la souris
+	JJsr	L_WB_Open		Ouvre le WB en fond
+	bsr	Libraries_Stop		STOP les librairies
+.Nolib
+
+; Partie non dependantes des librairies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	D_Close			Ferme le dernier fichier...
+
+	tst.b	Sys_WStarted(a5)	Arrete W.Lib
+	beq.s	.Skip0
+	move.l	Sys_WAd(a5),a0
+	jsr	4(a0)
+.Skip0
+	lea	Sys_Messages(a5),a0	Enleve config interpreteur
+	jsr	A5_Free
+	lea	PathAct(a5),a0		Enleve pathact
+	jsr	A5_Free
+	move.l	AdrIcon(a5),d0		Enleve l'icone
+	beq.s	.SkipI
+	move.l	d0,a0
+	move.l	IconBase(a5),a6
+	jsr	-90(a6)
+.SkipI
+	move.l	$4.w,a6			Ferme icon.library
+	move.l	IconBase(a5),d0
+	beq.s	.Skip1
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+.Skip1
+	move.l	FloatBase(a5),d0	Ferme les librairies mathematiques
+	beq.s	.SkipM1
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+.SkipM1	bsr	Math_Close
+
+	bsr	Libraries_Free		Libere les librairies
+
+	move.l	Sys_WAd(a5),a0		Enleve AMOS.Library
+	jsr	16(a0)
+	move.l	DosBase(a5),a6
+	move.l	Sys_WSegment(a5),d1
+	jsr	_LVOUnLoadSeg(a6)
+
+	move.l	DosBase(a5),a3		Affiche le message d'erreur
+	move.l	T_IntBase(a5),a4
+	move.l	Sys_Message(a5),d7
+	bsr	Panic_Message
+
+	move.l	$4.w,a6			Ferme graphics.library
+	move.l	T_GfxBase(a5),d0
+	beq.s	.SkipG
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+.SkipG
+	move.l	DosBase(a5),a1		dos
+	jsr	_LVOCloseLibrary(a6)
+	move.l	T_IntBase(a5),a1	Intuition
+	jsr	_LVOCloseLibrary(a6)
+
+	move.l	Sys_Message(a5),d7	Plus de datazone
+	move.l	Sys_AData(a5),a1
+	move.l	Sys_LData(a5),d0
+	move.l	$4.w,a6			Liberation directe!
+	jsr	_LVOFreeMem(a6)
+
+; Sortie d'AMOSPro!
+; ~~~~~~~~~~~~~~~~~
+Get_Out	move.l	SaveSp(pc),a7
+	tst.l	d7
+	beq.s	.PaMe
+	move.l	$4.w,a6
+	jsr	_LVOForbid(a6)
+	move.l 	d7,a1
+	jsr	-378(a6)
+.PaMe	moveq	#0,d0
+	rts
+
+
+; Fermeture des librairies mathematiques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Math_Close
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	move.l	MathBase(a5),d0
+	beq.s	.SkipM2
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	MathBase(a5)
+.SkipM2	move.l	DFloatBase(a5),d0
+	beq.s	.SkipM3
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	DFloatBase(a5)
+.SkipM3	move.l	DMathBase(a5),d0
+	beq.s	.SkipM4
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	DMathBase(a5)
+.SkipM4	move.l	(sp)+,a6
+	rts
+
+; Imprime le message d'erreur dans l'entree courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A3=	DosBase
+;	A4=	IntBase
+;	D7=	Message
+Panic_Message
+	move.l	Panic(pc),d6		Un message?
+	beq.s	.Exit
+	tst.l	d7			Sous WB?
+	bne.s	.Wb
+; Sous DOS-> Message dans la fenetre courante
+	move.l	a3,a6			Handle courant
+	jsr	-60(a6)
+	move.l	d0,d1
+	beq.s	.Exit
+	lea	-128(sp),sp		Buffer de travail
+	move.l	sp,d2
+	move.l	d6,a0
+	move.l	d2,a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+	move.b	#10,-1(a1)
+	clr.b	(a1)
+	move.l	a1,d3
+	sub.l	d2,d3
+	jsr	_LVOWrite(a6)
+	lea	128(sp),sp
+.Exit	rts
+; Sous WB-> ouvre une tchote fenetre
+.Wb	move.l	a4,a6			IntBase
+	lea	H_Click(pc),a0
+	lea	H_AutoBody(pc),a1
+	move.l	d6,12(a1)
+	lea	H_AutoClick(pc),a3
+	move.l	a0,12(a3)
+	sub.l	a2,a2
+	sub.l	a0,a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.l	#560,d2
+	moveq	#50,d3
+	jsr	-348(a6)
+	bra.s	.Exit
+
+; Definition du petit requester
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+H_AutoBody	dc.b	2,0
+		dc.w	1
+		dc.w	8,7
+		dc.l	0
+		dc.l	0
+		dc.l	0
+H_AutoClick	dc.b	0,1
+		dc.w	1
+		dc.w	5,4
+		dc.l	0
+		dc.l	0
+		dc.l	0
+H_Click		dc.b	" Cancel ",0
+		even
+
+
+; Ne pas changer la position du nom, apres dos.library!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		even
+		dc.l	UserSecu-DosName
+DosName		dc.b 	"dos.library",0
+UserReg		dc.w	14
+		dc.b	"R"^$73		0
+		dc.b	"E"^$73		1
+		dc.b	"G"^$73		2
+		dc.b	"I"^$73		3
+		dc.b	"S"^$73		4
+		dc.b	"T"^$73		5
+		dc.b	"R"^$73		6
+		dc.b	"A"^$73		7
+		dc.b	"T"^$73		8
+		dc.b	"I"^$73		9
+		dc.b	"O"^$73		10
+		dc.b	"N"^$73		11
+		dc.b	" "^$73		12
+		dc.b	"#"^$73		13
+UserName	dc.w	14
+		dc.b	"N"^$A5		0
+		dc.b	"o"^$A5		1
+		dc.b	"t"^$A5		2
+		dc.b	" "^$A5		3
+		dc.b	"I"^$A5		4
+		dc.b	"n"^$A5		5
+		dc.b	"s"^$A5		6
+		dc.b	"t"^$A5		7
+		dc.b	"a"^$A5		8
+		dc.b	"l"^$A5		9
+		dc.b	"l"^$A5		10
+		dc.b	"e"^$A5		11
+		dc.b	"d"^$A5		12
+		dc.b	"!"^$A5		13
+		ds.b	32-14+4
+		even
+
+;		Noms des Librairies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SaveSp		dc.l 	0
+Panic		dc.l	0
+
+;		Marqueur de version
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VersionN:	dc.b	" Version "
+		Version
+		dc.b	0,"$VER: "
+		Version
+
+; 		Messages d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Panic_OOMem	dc.b	"Not enough free memory",0
+Panic_Editor	dc.b	"Cannot load editor",0
+Panic_Install	dc.b	'Program not installed, start "Install.AMOS" first',0
+
+; Charge l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edit_Load
+	lea	Edit_Segment(a5),a0
+	lea	Edit_Debug(pc),a1
+	moveq	#6,d0
+	moveq	#L_Ed_Start,d1
+	bsr	Program_Load
+.Err	rts
+
+; Efface l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edit_Free
+	lea	Edit_Segment(a5),a0
+	bra	Program_Free
+
+; Charge le moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mon_Load
+	move.l	Cur_Banks(a5),-(sp)
+; Le moniteur lui-meme
+; ~~~~~~~~~~~~~~~~~~~~
+	lea	Mon_Segment(a5),a0
+	lea	Mon_Debug(pc),a1
+	moveq	#10,d0
+	moveq	#L_Mon_Start,d1
+	bsr	Program_Load
+; Charge la banque de resource, si necessaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Skip1	tst.l	Mon_Banks(a5)
+	bne.s	.Skip2
+	lea	Mon_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	moveq	#11,d0			Nom de la banque
+	bsr	Sys_GetMessage
+	bsr	Sys_AddPath		+ path systeme
+	move.l	#1005,d2
+	bsr	D_Open
+	beq.s	.DErr
+	moveq	#-1,d0
+	JJsr	L_Bnk.Load
+	bne	.Err
+	bsr	D_Close
+.Skip2
+; Ok, pas d'erreur
+; ~~~~~~~~~~~~~~~~
+	move.l	(sp)+,Cur_Banks(a5)
+	moveq	#0,d0
+	rts
+; Erreur: efface tout!
+; ~~~~~~~~~~~~~~~~~~~~
+.DErr	moveq	#-2,d0			File not found
+.Err	move.l	(sp)+,Cur_Banks(a5)
+	move.w	d0,-(sp)
+	bsr	Mon_Free
+	move.w	(sp)+,d0
+	rts
+
+; Efface le moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mon_Free
+	move.l	Cur_Banks(a5),-(sp)
+; Enleve le moniteur
+; ~~~~~~~~~~~~~~~~~~
+	lea	Mon_Segment(a5),a0
+	bsr	Program_Free
+; Enleve les banques
+; ~~~~~~~~~~~~~~~~~~
+.Skip1	tst.l	Mon_Banks(a5)
+	beq.s	.Skip2
+	lea	Mon_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	JJsr	L_Bnk.EffAll
+.Skip2	move.l	(sp)+,Cur_Banks(a5)
+	rts
+
+; Charge le programme (a0) / Nom #D0 / Branchements D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Program_Load
+	move.l	a0,a2			Adresse du segment
+	move.l	d1,d2			Numero de la premiere fonction
+	IFNE	Debug=2
+	move.l	a1,(a2)
+	ENDC
+	IFEQ	Debug=2
+	tst.l	(a2)
+	bne.s	.Skip
+	bsr	Sys_GetMessage		Nom du programme
+	bsr	Sys_AddPath		+ path systeme
+	move.l	Name1(a5),d1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOLoadSeg(a6)
+	move.l	(sp)+,a6
+	move.l	d0,(a2)
+	beq.s	.Err
+	ENDC
+; Loke les adresses des routines dans les branchements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Skip	move.l	(a2),d0
+	IFEQ	Debug=2
+	lsl.l	#2,d0
+	addq.l	#4,d0
+	ENDC
+	move.l	d0,a0
+	move.l	AdTokens(a5),a1
+	lsl.w	#2,d2
+	add.w	#LB_Size+4,d2
+	sub.w	d2,a1
+	bra.s	.In
+.Loop	add.l	d0,d1
+	move.l	d1,-(a1)
+.In	move.l	(a0)+,d1
+	bne.s	.Loop
+; OK, pas d'erreur
+; ~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	rts
+.Err	moveq	#1,d0
+	rts
+; Efface le programme A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Program_Free
+	IFEQ	Debug=2
+	move.l	(a0),d1
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOUnLoadSeg(a6)
+	move.l	(sp)+,a6
+	ENDC
+.Skip	rts
+
+; Effacement du buffer mouse
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+EffMouse
+	lea	PI_AdMouse(a5),a0
+	jmp	A5_Free
+
+; Efface la banque de resource file-selector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EffFSel	lea	Sys_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	moveq	#16,d0
+	JJsr	L_Bnk.Eff
+	rts
+
+; AddPath sur un nom+command line, retourne la command line en A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_AddPathCom
+	movem.l	a1/d1,-(sp)
+	move.l	a0,a1
+.Lim1	move.b	(a1)+,d1
+	beq.s	.Lim2
+	cmp.b	#" ",d1
+	bne.	.Lim1
+.Lim2	move.b	-1(a1),d1
+	clr.b	-1(a1)
+	bsr	Sys_AddPath
+	move.b	d1,-1(a1)
+	bne.s	.Lim3
+	subq.l	#1,a1
+.Lim3	move.l	a1,a0
+	movem.l	(sp)+,a1/d1
+	rts
+
+; Additionne le pathname du dossier AMOS_System, si pas de path defini!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_AddPath
+	movem.l	a1/a2,-(sp)
+	move.l	Name1(a5),a2
+	move.l	a0,a1
+.Ess	move.b	(a1)+,d0
+	cmp.b	#":",d0
+	beq.s	.Cop2
+	tst.b	d0
+	bne.s	.Ess
+	lea	Sys_Pathname(a5),a1
+.Cop1	move.b	(a1)+,(a2)+
+	bne.s	.Cop1
+	subq.l	#1,a2
+.Cop2	move.b	(a0)+,(a2)+
+	bne.s	.Cop2
+	movem.l	(sp)+,a1/a2
+	rts
+
+; Retourne le message default_resource D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Def_GetMessage
+	move.l	Sys_Resource(a5),a0
+	add.l	6(a0),a0
+	bra.s	GetMessage
+; Routine, retourne le message systeme D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_GetMessage
+	move.l	Sys_Messages(a5),a0
+GetMessage
+	move.w	d1,-(sp)
+	clr.w	d1
+	cmp.l	#0,a0
+	beq.s	.Big
+	addq.l	#1,a0
+	bra.s	.In
+.Loop	move.b	(a0),d1
+	cmp.b	#$ff,d1
+	beq.s	.Big
+	lea	2(a0,d1.w),a0
+.In	subq.w	#1,d0
+	bgt.s	.Loop
+.Out	move.w	(sp)+,d1
+	move.b	(a0)+,d0
+	rts
+.Big	lea	.Fake(pc),a0
+	bra.s	.Out
+.Fake	dc.b	0,0,0,0
+
+
+; Verification de l'installation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_VerInstall
+	move.w	d0,-(sp)
+	move.w	UserName(pc),d0
+	beq.s	.Skip
+	move.w	UserReg(pc),d0
+.Skip	movem.w	(sp)+,d0
+	rts
+
+; Enleve le codage: D0=XOR
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_UnCode
+	movem.l	a0/a1/d1/d2/d3,-(sp)
+	moveq	#0,d2
+	move.w	(a0)+,d1
+	move.w	d1,(a1)+
+	subq.w	#1,d1
+	bmi.s	.Skip
+.Loop	move.b	(a0)+,d3
+	eor.b	d0,d3
+	add.b	d3,d2
+	move.b	d3,(a1)+
+	dbra	d1,.Loop
+.Skip	move.w	d2,d0
+	movem.l	(sp)+,a0/a1/d1/d2/d3
+	rts
+
+******************************************************************
+		dc.b	$17,$09,$19,$92
+UserSecu	ds.b	34
+******************************************************************
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Clear CPU Caches, quel que soit le systeme
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Sys_ClearCache
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	cmp.w	#37,WB2.0(a5)			A partir de V37
+	bcc.s	.Skip
+	jsr	FindTask(a6)
+	bra.s	.Exit
+.Skip	jsr	_LVOCacheClearU(a6)		CacheClearU
+.Exit	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Wait vbl multi tache
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Sys_WaitMul
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+; Inhibition
+	SyCall	Test_Cyclique
+; Attente multitache
+	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)
+	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Force le recalcul des listes copper
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+ReCop:	SyCall	WaitVbl
+	EcCall	CopForce
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				ARRET DES LIBRAIRIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Stop
+; - - - - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#26-1,d2
+	lea	ExtAdr+26*16-16(a5),a2
+.Loop	move.l	8(a2),d0
+	beq.s	.Next
+	move.l	d0,a0
+	movem.l	a2/d2,-(sp)
+	jsr	(a0)
+	movem.l	(sp)+,a2/d2
+.Next	lea	-16(a2),a2
+	dbra	d2,.Loop
+	moveq	#0,d0
+	bra	Ll_Out2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				EFFACEMENT DES LIBRARIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Free
+; - - - - - - - - - - - - - - - -
+	bsr	Libraries_FreeSizes
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#27-1,d2
+	lea	AdTokens(a5),a2
+.Loop	move.l	(a2),d0
+	beq.s	.Next
+	move.l	d0,a0			La library elle meme...
+	clr.l	(a2)
+	move.l	LB_MemAd(a0),a1
+	move.l	LB_MemSize(a0),d0
+	SyCall	MemFree
+.Next	addq.l	#4,a2			Library suivante...
+	dbra	d2,.Loop
+	moveq	#0,d0
+	bra	Ll_Out2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				LIBERATION DE LA TABLE DES TAILLES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_FreeSizes
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	AdTokens(a5),a2
+	moveq	#27-1,d2
+.Loop	move.l	(a2)+,d0
+	beq.s	.Skip
+	move.l	d0,a0
+	move.l	LB_LibSizes(a0),d0
+	beq.s	.Skip
+	clr.l	LB_LibSizes(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	jsr	RamFree
+.Skip	dbra	d2,.Loop
+	moveq	#0,d0
+Ll_Out2	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESERVATION / LIBERATION MEMOIRE (ancienne!)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Mise a zero!
+; ~~~~~~~~~~~~~~~~~~
+RamFast	move.l	a0,-(sp)
+	SyCall	MemFastClear
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+RamChip	move.l	a0,-(sp)
+	SyCall	MemChipClear
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+; 	NON mise a zero!
+; ~~~~~~~~~~~~~~~~~~~~~~
+RamFast2
+	move.l	a0,-(sp)
+	SyCall	MemFast
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+RamChip2
+	move.l	a0,-(sp)
+	SyCall	MemChip
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+; 	Liberation
+; ~~~~~~~~~~~~~~~~
+RamFree	move.l	a0,-(sp)
+	SyCall	MemFree
+	move.l	(sp)+,a0
+	rts
+
+; 	Reserve / Libere le buffer temporaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ResTempBuffer
+	movem.l	d1/a1,-(sp)
+	move.l	d0,d1
+; Libere l'ancien buffer
+	move.l	TempBuffer(a5),d0
+	beq.s	.NoLib
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	bsr.s	RamFree
+	clr.l	TempBuffer(a5)
+; Reserve le nouveau
+.NoLib	move.l	d1,d0
+	beq.s	.Exit
+	addq.l	#4,d0
+	bsr	RamFast
+	beq.s	.Exit
+	move.l	d0,a0
+	move.l	d1,(a0)+
+	move.l	a0,TempBuffer(a5)
+	move.l	d1,d0
+; Branche les routines de liberation automatique
+	movem.l	a0-a2/d0-d1,-(sp)
+	lea	.LibClr(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	lea	.LibErr(pc),a1
+	lea	Sys_ErrorRoutines(a5),a2
+	SyCall	AddRoutine
+	movem.l	(sp)+,a0-a2/d0-d1
+.Exit	movem.l	(sp)+,d1/a1
+	rts
+; Structures liberation
+; ~~~~~~~~~~~~~~~~~~~~~
+.LibClr	dc.l	0
+	moveq	#0,d0
+	bra.s	ResTempBuffer
+.LibErr	dc.l	0
+	moveq	#0,d0
+	bra.s	ResTempBuffer
+
+; 	Reserve un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+;	D0=	Longueur
+;	D1=	Flags
+A5_Reserve
+	move.l	a1,-(sp)
+	move.l	a0,a1
+	addq.l	#4,d0
+	SyCall	MemReserve
+	beq.s	.Out
+	subq.l	#4,d0
+	move.l	d0,(a0)+
+	move.l	a0,(a1)
+.Out	move.l	(sp)+,a1
+	rts
+; 	Efface un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+A5_Free
+	movem.l	a0/a1/d0,-(sp)
+	move.l	(a0),d0
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	SyCall	MemFree
+.Skip	movem.l	(sp)+,a0/a1/d0
+	rts
+
+;
+; NOUVELLE ROUTINES DISQUE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+; OPEN: ouvre le fichier systeme (diskname1) access mode D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D_Open	move.l 	Name1(a5),d1
+D_OpenD1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOOpen(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Handle(a5)
+	rts
+
+; READ fichier systeme D3 octets dans D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D_Read	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+
+; WRITE fichier systeme D3 octets de D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D_Write
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+
+; SEEK fichier system D3 mode D2 deplacement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D_Seek	move.l	Handle(a5),d1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	rts
+
+; CLOSE fichier systeme
+; ~~~~~~~~~~~~~~~~~~~~~
+D_Close
+	movem.l	d0/d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	beq.s	.Skip
+	clr.l	Handle(a5)
+	move.l	DosBase(a5),a6
+	jsr	_LVOClose(a6)
+.Skip	movem.l	(sp)+,d0/d1/a0/a1/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MONITOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InMonitor
+; - - - - - - - - - - - - -
+	bsr	Prg_FirstRun		Autorise?
+	tst.l	Edit_Segment(a5)
+	beq.s	.ErrE
+	Ijsr	L_Ed_CloseEditor
+	Ijsr	L_Prg_ReSetBanks	Remet les banques
+	bsr	Mon_Load		Charge le moniteur
+	bne.s	.Err
+	Ijsr	L_Mon_In_Program
+	bne.s	.Mem
+	Ret_Inst
+.ErrE	moveq	#13,d0
+	Ijmp	L_Error
+.Err	cmp.w	#-1,d0
+	beq.s	.Mem
+	Ijmp	L_DiskError
+.Mem	Ijmp	L_OOfMem
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					KILL EDITOR
+; KILL EDITOR: ne fonctionne que le pour le premier programme!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InKillEditor
+; - - - - - - - - - - - - -
+	bsr	Prg_FirstRun		Autorise?
+	tst.l	Edit_Segment(a5)	Deja ferme?
+	beq.s	KEExit
+; Fait un close editor d'abord
+	tst.b	PI_CloseEd(a5)		Autorise?
+	beq.s	CloCloX
+	Ijsr	L_Ed_CloseEditor
+; Peut-on faire le KILL editor?
+	tst.b	PI_KillEd(a5)		Autorise?
+	beq.s	CloCloX
+	tst.l	Mon_Base(a5)		Pas si moniteur en route!
+	bne.s	CloCloX
+	Ijsr	L_Ed_KillEditor
+	bsr	Edit_Free		Enleve de la memoire
+	bsr	Mon_Free		Tant qu'� faire...
+	lea	RunErr_NoEditor(pc),a0
+	move.l	a0,Prg_JError(a5)	Branchement en fin de programme
+ 	clr.w	T_AMOState(a5)		Mode RUN-ONLY
+; Sortie commune
+CloCloX	lea	Equ_Base(a5),a0		Libere les equates
+	bsr	A5_Free
+	Ijsr	L_Prg_ReSetBanks	Remet les banques
+	move.w	ScOn(a5),d1
+	beq.s	KEExit
+	subq.w	#1,d1
+	EcCall	Active
+KEExit	Ret_Inst
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 			CLOSE EDITOR
+;			ne fonctionne que pour le premier programme!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InCloseEditor
+; - - - - - - - - - - - - -
+	bsr	Prg_FirstRun
+	tst.b	PI_CloseEd(a5)		Autorise?
+	beq.s	KEExit
+	tst.l	Edit_Segment(a5)	Deja ferme?
+	beq.s	KEExit
+	Ijsr	L_Ed_CloseEditor
+	bra.s	CloCloX
+
+; Peut-on fermer l'editeur ?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_FirstRun
+	tst.w	Direct(a5)
+	bne.s	.Err
+	tst.b	Prg_Accessory(a5)
+	bne.s	.Non
+	move.l	Prg_Runned(a5),a0	Un programme en dessous?
+	tst.l	Prg_Previous(a0)
+	bne.s	.Non
+	rts
+.Non	addq.l	#4,sp
+	Ret_Inst
+.Err	moveq	#17,d0			Illegal direct mode
+	Ijmp	L_Error
+
+; __________________________________________________________________________
+;
+;	Erreurs RUN-ONLY
+; __________________________________________________________________________
+;
+RunErr_RunOnly
+	move.w	#-1,-(sp)
+	bra.s	RunErr_Reload
+; __________________________________________________________________________
+;
+;	Erreurs editeur ferme...
+; __________________________________________________________________________
+;
+RunErr_NoEditor
+	clr.w	-(sp)
+RunErr_Reload
+	movem.l	a0-a1/d0-d1,-(sp)
+	move.l	Cur_Banks(a5),-(sp)	Donnees courantes...
+	move.l	Cur_Dialogs(a5),-(sp)
+	cmp.w	#1002,d0		System?
+	beq	TheEnd
+	bsr	Sys_VerInstall		Si pas installe!
+	beq	TheEnd
+	bsr	Reset_Request		Requester back to AMOS
+	bsr	Edit_Load		Charge l'editeur
+	bne	.Again
+	JJsr	L_Ed_Cold
+	beq.s	.Ok
+	cmp.b	#1,d0			Out of memory?
+	bne	TheEnd_Editor		Fichiers introuvables : tant pis!
+; Efface au maximum la memoire
+.Again	move.l	(sp),Cur_Dialogs(a5)	Banques du programme
+	move.l	4(sp),Cur_Banks(a5)
+	bsr	MemMaximum		Grab as much memory as possible
+	bsr	Edit_Load		Charge eventuellement
+	bne.s	.AAgain
+	JJsr	L_Ed_Cold
+	beq.s	.Ok
+; Efface les banques du programme!
+.AAgain	tst.w	6*4(sp)			Un run-only?
+	bne 	TheEnd			Oui: on stoppe tout...
+	move.l	(sp),Cur_Dialogs(a5)	Banques du programme
+	move.l	4(sp),Cur_Banks(a5)
+	bsr	MemDelBanks		Peut-on effacer les banques?
+	beq	TheEnd_OOMem
+	JJsr	L_Bnk.EffAll		Efface les banques!
+	JJsr	L_Bnk.Change
+	bsr	Edit_Load		Essaye encore!
+	bne	TheEnd_Editor
+	JJsr	L_Ed_Cold
+	bne	TheEnd_Editor			Tant pis!
+; Branche � l'editeur
+.Ok	tst.l	Edt_Runned(a5)			Pas de programme >>> coldcold
+	bne.s	.Go
+	move.l	Edt_List(a5),Edt_Runned(a5)	Donc, un seul prg!
+.Go	bsr	WOption				AMOS en 1er!
+	move.l	(sp)+,Cur_Dialogs(a5)		Remet les banques
+	move.l	(sp)+,Cur_Banks(a5)
+	movem.l	(sp)+,a0-a1/d0-d1
+	tst.w	(sp)+
+	JJmpR	L_Ed_ErrRun,a2			Erreurs normales
+	bra	TheEnd
+
+;	 Requester back to AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reset_Request
+	move.l	ExtAdr+2*16+4(a5),d0		Request= ext #2
+	beq.s	.Skip
+	move.l	d0,a0
+	jsr	(a0)
+.Skip	rts
+
+;	Recupere autant de memoire que possible
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MemMaximum
+	JJsr	L_ClearVar			Plus de variable
+	move.w	#-2,DefFlag(a5)			Plus d'ecran
+	JJsr	L_DefRun1
+	move.l	PI_ParaTrap+16(a5),-(sp)	Lignes sprites, MINI!
+	move.l	#20,PI_ParaTrap+16(a5)
+	JJsr	L_DefRun2
+	move.l	(sp)+,PI_ParaTrap+16(a5)
+	move.l	#10000*1024,d0			Demande 10 megas de CHIP!
+	SyCall	MemChip
+	tst.l	Mon_Base(a5)			Libere le moniteur
+	bne.s	.Skip
+	bsr	Mon_Free
+.Skip	rts
+
+; 	Ligne de confirmation de l'effacement du programme courant...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MemDelBanks
+	movem.l	a2-a6/d2-d7,-(sp)
+	JJsr	L_Bnk.GetLength		Longueur des banques
+	add.l	d2,d0
+	add.l	d1,d0
+	beq	.Tanpi			Si zero: on ne fait rien!
+
+	bsr	.Puzzle			Ouvre l'ecran
+	move.l	a1,a0
+	moveq	#EcFsel,d0
+	move.l	#640,d1
+	moveq	#48,d2
+	moveq	#0,d3
+	moveq	#-1,d4
+	JJsrR	L_Dia_RScOpen,a3
+	bne.s	.Tanpi
+	bsr	ReCop
+
+	bsr	.Puzzle			Demarre le DBL
+	moveq	#0,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#0,d5
+	move.l	#512,d6			Taille du buffer
+	lea	.DBL(pc),a0
+	JJsrR	L_Dia_RunQuick,a3
+
+	movem.l	d0/d1,-(sp)
+	EcCalD	Del,EcFsel		Efface l'ecran
+	movem.l	(sp)+,d0/d1
+
+	tst.l	d0
+	bne.s	.Tanpi
+	cmp.w	#2,d1
+	beq.s	.Out
+	moveq	#1,d0
+	bra.s	.Out
+.Tanpi	moveq	#0,d0
+.Out	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+; Retourne les adresses dans la banque par defaut
+.Puzzle	move.l	Sys_Resource(a5),a0
+	move.l	a0,a1
+	add.l	2+0(a0),a1		Base des graphiques
+	move.l	a0,a2
+	add.l	2+4(a0),a2		Base des messages
+	add.l	2+8(a0),a0		Base des programmes
+	rts
+; Petit DBL de gestion de la ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.DBL	dc.w	.Fin-.Debut
+.Debut	dc.b	"SI	SW,SH;"
+	dc.b	"BA	0,0;"
+	dc.b 	"BO	0,0,1,SX,SY;"
+	dc.b	"PO	21MECX,4,21ME,0,7;"
+	dc.b	"PO	22MECX,14,22ME,2,3;"
+	dc.b	"BU	1,16,SY22-,64,16,0,0,1;[UN 0,0,13BP+; PR 3MECXBP+,4,3ME,7;][BQ;]"
+	dc.b	"KY	13,0;"
+	dc.b	"BU	2,SX72-,YA,XBXA-,YBYA-,0,0,1;[UN 0,0,13BP+; PR 4MECXBP+,4,4ME,7;][BQ;]"
+	dc.b	"KY	27,0;"
+	dc.b	"BU	3,0,0,SX,SY,0,0,0;[][SM;]"
+	dc.b	"RU	0,3;"
+	dc.b	"EX;",0
+.Fin	even
+
+; Fait passer l'AMOS en 1er juste avant le lancement du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WOption	tst.b	WBench(a5)
+	beq.s	.Skip
+	EcCalD	AMOS_WB,1
+	clr.b	WBench(a5)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Trouve le directory courant >
+;					>>> Buffer + 384
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+AskDir
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	clr.w	(a0)
+	clr.w	384(a0)
+	move.l	a0,d1
+	moveq	#-2,d2
+	DosCall	_LVOLock
+	tst.l	d0
+	bne.s	AskDir2
+	rts
+; - - - - - - - - - - - - -
+AskDir2
+; - - - - - - - - - - - - -
+	clr.l	-(sp)
+ADir0:	move.l	d0,-(sp)
+	move.l	d0,d1
+	DosCall	_LVOParentDir
+	tst.l	d0
+	bne.s	ADir0
+* Redescend les LOCKS en demandant le NOM!
+	move.l	Buffer(a5),a2
+	lea	384(a2),a2
+	clr.b	(a2)
+	moveq	#":",d2
+ADir1:	move.l	(sp)+,d1
+	beq.s	ADir4
+	move.l	Buffer(a5),a1
+	movem.l	d1/d2/a1/a2,-(sp)
+	move.l	a1,d2
+	DosCall	_LVOExamine
+	movem.l	(sp)+,d1/d2/a1/a2
+	tst.l	d0
+	beq.s	ADir3
+	lea	8(a1),a1
+ADir2:	move.b	(a1)+,(a2)+
+	bne.s	ADir2
+	move.b	d2,-1(a2)
+	clr.b	(a2)
+	moveq	#"/",d2
+ADir3	DosCall	_LVOUnLock
+	bra.s	ADir1
+ADir4	moveq	#0,d0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Memory.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Gestion de liste simple NEXT.l LONG.l
+
+; Cree un element de liste en CHIP MEM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.ChipNew
+	move.l	#Chip|Clear|Public,d1
+	bra.s	Lst.Cree
+; Cree une element de liste en FAST MEM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.New
+	move.l	#Clear|Public,d1
+; Cree un �l�ment en tete de liste A0 / longueur D0 / Memoire D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.Cree
+	movem.l	a0/d0,-(sp)
+	addq.l	#8,d0
+	SyCall	MemReserve
+	move.l	a0,a1
+	movem.l	(sp)+,a0/d1
+	beq.s	.Out
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	move.l	d1,4(a1)
+	move.l	a1,d0
+.Out	rts
+
+; Efface une liste entiere A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.DelAll
+	bra.s	.In
+.Loop	move.l	d0,a1
+	bsr	Lst.Del
+.In	move.l	(a0),d0
+	bne.s	.Loop
+	rts
+; Efface un �l�ment de liste A1 / Debut liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.Del
+	movem.l	a0/d0-d2,-(sp)
+	move.l	a1,d0
+	move.l	a0,a1
+	move.l	(a1),d2
+	beq.s	.NFound
+.Loop	move.l	a1,d1
+	move.l	d2,a1
+	cmp.l	d0,a1
+	beq.s	.Found
+	move.l	(a1),d2
+	bne.s	.Loop
+	bra.s	.NFound
+; Enleve de la liste
+.Found	move.l	d1,a0
+	move.l	(a1),(a0)
+	move.l	4(a1),d0
+	addq.l	#8,d0
+	SyCall	MemFree
+.NFound	movem.l	(sp)+,a0/d0-d2
+	rts
+
+; INSERE un �l�ment A1 en tete de liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.Insert
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	rts
+
+; Enleve un �l�ment de liste A1 / Debut liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lst.Remove
+	movem.l	a0/a1/d0-d2,-(sp)
+	move.l	a1,d0
+	move.l	a0,a1
+	move.l	(a1),d2
+	beq.s	.NFound
+.Loop	move.l	a1,d1
+	move.l	d2,a1
+	cmp.l	d0,a1
+	beq.s	.Found
+	move.l	(a1),d2
+	bne.s	.Loop
+	bra.s	.NFound
+; Enleve de la liste
+.Found	move.l	d1,a0
+	move.l	(a1),(a0)
+.NFound	movem.l	(sp)+,a0/a1/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BANQUES PROGRAMME PRECEDENT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Bnk.PrevProgram
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/d0,-(sp)
+	tst.l	Mon_Base(a5)			Pas si moniteur!
+	bne.s	.Non
+	tst.w	Direct(a5)			Pas en mode direct!
+	bne.s	.Non
+	move.l	Prg_Runned(a5),a0		Un programme en dessous
+	move.l	Prg_Previous(a0),d0
+	bne.s	.Ok
+	move.l	Edt_Current(a5),d0		NON! Un programme edite?
+	beq.s	.Non
+	move.l	d0,a1
+	move.l	Edt_Prg(a1),d0			Le meme???
+	cmp.l	d0,a0
+	beq.s	.Non
+.Ok	move.l	d0,a0				On grabbe
+	lea	Prg_Banks(a0),a0
+	move.l	a0,Cur_Banks(a5)
+	bra.s	.Exit
+.Non	moveq	#0,d0
+.Exit	movem.l	(sp)+,a0/a1/d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BANQUE DU PROGRAMME COURANT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Bnk.CurProgram
+; - - - - - - - - - - - - -
+	movem.l	a0/d0,-(sp)
+	move.l	Prg_Runned(a5),a0
+	lea	Prg_Banks(a0),a0
+	move.l	a0,Cur_Banks(a5)
+	movem.l	(sp)+,a0/d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHANGEMENT DANS LES BANQUES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Bnk.Change
+; - - - - - - - - - - - - -
+	movem.l	a0-a3/d0-d7,-(sp)
+; Appelle les extensions
+; ~~~~~~~~~~~~~~~~~~~~~~
+	lea	ExtAdr(a5),a0
+	moveq	#26-1,d0
+.ELoop	move.l	12(a0),d1
+	beq.s	.ESkip
+	move.l	d1,a1
+	movem.l	a0/d0,-(sp)
+	move.l	d1,a1
+	move.l	Cur_Banks(a5),a0
+	move.l	(a0),a0
+	jsr	(a1)
+	movem.l	(sp)+,a0/d0
+.ESkip	lea	16(a0),a0
+	dbra	d0,.ELoop
+; Recherche la banque de sprites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_Bnk.GetBobs
+	SyCall	SetSpBank
+; Ok!
+; ~~~
+	movem.l	(sp)+,a0-a3/d0-d7
+	tst.w	d0
+	rts
+
+;	IFNE	Debug
+PreBug 	btst	#6,$BFE001
+	beq.s	BugBug
+	rts
+BugBug	movem.l	d0-d2/a0-a2,-(sp)
+.Ll	move.w	#$FF0,$DFF180
+ 	btst	#6,$BFE001
+	bne.s	.Ll
+	move.w	#20,d0
+.L0	move.w	#10000,d1
+.L1	move.w	d0,$DFF180
+	dbra	d1,.L1
+	dbra	d0,.L0
+	btst	#6,$BFE001
+	beq.s	.Ill
+	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+.Ill	EcCalD	AMOS_WB,0
+	movem.l	(sp)+,d0-d2/a0-a2
+	illegal
+	rts
+;	ENDC
+
+
+; Inclusion de la verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Include	"+Verif.s"
+
+; Charge le moniteur et l'editeur en mode debug
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	IFNE	Debug=2
+Mon_Debug	Include	"+Monitor.s"
+Edit_Debug	Include "+Edit.s"
+	ENDC
+	IFEQ	Debug=2
+Mon_Debug
+Edit_Debug
+	ENDC
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CHARGEMENT / INITIALISATION - Partie amovible!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	SECTION	"I",CODE
+; - - - - - - - - - - - - -
+
+Ext_Nb		equ	5
+Ext_TkCmp       equ     6
+Ext_TkCOp       equ     $14
+Ext_TkTston     equ     $28
+Ext_TkTstof     equ     $3a
+Ext_TkTst       equ     $4e
+
+; Calcul de la taille des buffers de travail
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LDataWork	equ	32+BbLong+12*2+(AAreaSize*5+6)+24+16+12+70*3+4+20+108+108+256+TBuffer
+
+; Buffer dans la pile pour debuter
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+SP_Message	rs.l	1
+SP_AutoLock	rs.l	1
+SP_AutoName	rs.b	128
+SP_Config	rs.b	128
+SP_DefSize	rs.l	1
+SP_DosBase	rs.l	1
+SP_IntBase	rs.l	1
+SP_Command	rs.l	2
+SP_WSegment	rs.l	1
+SP_WBench	rs.w	1
+SP_CommandLine	rs.l	1
+SP_Buffer	equ	__RS
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEMARRAGE A FROID
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Hunk_2
+Cold_Start
+; - - - - - - - - - - - - -
+	move.l	sp,SaveSp
+
+; Reserve un buffer dans la pile, pour travailler
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	-SP_Buffer(sp),sp
+	movem.l	a0/d0,SP_Command(sp)
+
+; Init dos.library
+; ~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lea	DosName,a1
+	move.l	$4.w,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,SP_DosBase(sp)
+
+; Init INTUITION library / Find version!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	moveq	#0,d0
+	move.l	d0,d3
+	lea	IntName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,SP_IntBase(sp)
+
+; CLI ou WORKBENCH?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.l	SP_WSegment(sp)
+	clr.l	SP_Message(sp)
+	clr.l	SP_AutoLock(sp)
+	clr.l	SP_DefSize(sp)
+	clr.w	SP_AutoName(sp)
+	clr.w	SP_Config(sp)
+	clr.l	SP_CommandLine(sp)
+	move.b	#1,SP_WBench(sp)
+
+; Workbench?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	sub.l	a1,a1
+	move.l	$4.w,a6
+	jsr	_LVOFindTask(a6)
+	move.l	d0,a0
+	tst.l	$ac(a0)
+	bne.s	FromCLI
+; Recupere le message
+; ~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	lea	$5c(a0),a0
+	move.l	a0,-(sp)
+	jsr	-384(a6)		WaitPort
+	move.l	(sp)+,a0
+	jsr	-372(a6)		GetMsg
+	move.l 	d0,SP_Message(sp)
+	move.l 	d0,a2
+	moveq	#-1,d2
+; Change le directory >>> directory AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$24(a2),d0
+	beq.s	.PaLock
+	move.l	d0,a0
+	move.l	(a0),d2
+	beq.s	.PaLock
+	move.l	d2,d1
+	move.l	SP_DosBase(sp),a6
+	jsr	_LVOCurrentDir(a6)
+.PaLock
+; Un programme � charger?
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	#2,$1c(a2)
+	bne.s	.PaAuto
+	move.l	$24(a2),d0
+	beq.s	.PaAuto
+	move.l	d0,a2
+	move.l	8(a2),SP_AutoLock(sp)
+	move.l	12(a2),d0
+	beq.s	.PaAuto
+	move.l	d0,a0
+	lea	SP_AutoName(sp),a1
+.Cop	move.b	(a0)+,(a1)+
+	bne.s	.Cop
+	tst.l	d2
+	bne.s	.PaAuto
+	move.l	SP_AutoLock(sp),d1
+	beq.s	.PaAuto
+	move.l	SP_DosBase(sp),a6
+	jsr	_LVOCurrentDir(a6)
+.PaAuto	bra	CommandX
+
+; CLI!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FromCLI	movem.l	SP_Command(sp),a0/d0
+	cmp.w	#1,d0
+	bls	CommandX
+	clr.b	-1(a0,d0.w)
+; Explore la ligne de commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; Saute le d�but
+.Cli0	move.b	(a0)+,d0
+	beq	CommandX
+	cmp.b	#" ",d0
+	beq.s	.Cli0
+	cmp.b	#"-",d0
+	beq.s	.CliO
+; Nom du programme � charger?
+	subq.l	#1,a0
+	lea	SP_AutoName(sp),a1
+	bsr	.CliNom
+.Spc	cmp.b	#" ",(a0)+		Stocke le debut command line
+	beq.s	.Spc
+	subq.l	#1,a0
+	move.l	a0,SP_CommandLine(sp)
+	bra	CommandX
+; Options
+.CliO	move.b	(a0)+,d0
+	beq	.CliE
+	cmp.b	#"a",d0
+	bcs.s	.PAm
+	cmp.b	#"z",d0
+	bhi.s	.PAm
+	sub.b	#$20,d0
+.PAm	cmp.b	#"C",d0
+	beq	.ClioC
+	cmp.b	#"W",d0
+	beq	.ClioW
+; Erreur dans la command line
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.CliE	move.l	#Panic_Command,Panic
+	bra	Boot_Fatal
+; Option -C "fichier config"
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ClioC	lea	SP_Config(sp),a1
+	bsr	.CliNom
+	bra.s	.Cli0
+; Option -W "workbench"
+; ~~~~~~~~~~~~~~~~~~~~~
+.ClioW	clr.b	SP_WBench(sp)
+	bra.s	.Cli0
+; Prend un nom dans la command line
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.CliNom	move.b	#" ",d1
+	move.b	(a0),d0
+	beq.s	.Clin1
+	cmp.b	#'"',d0
+	beq.s	.ClinB
+	cmp.b	#"'",d0
+	bne.s	.Clin0
+.ClinB	move.b	d0,d1
+	addq.l	#1,a0
+.Clin0	move.b	(a0),d0
+	beq.s	.Clin1
+	addq.l	#1,a0
+	cmp.b	d0,d1
+	beq.s	.Clin1
+	move.b	d0,(a1)+
+	bra.s	.Clin0
+.Clin1	clr.b	(a1)
+	rts
+; Fin de l'exploration des commandes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CommandX
+; Charge amos.library: differents essais si pas installe!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	SP_DosBase(sp),a6
+	lea	LibName2(pc),a0		APSystem/amos.library
+	move.l	a0,d1
+	jsr	_LVOLoadSeg(a6)
+	tst.l	d0
+	bne.s	.Ok
+	lea	LibName3(pc),a0		libs/amos.library
+	move.l	a0,d1
+	jsr	_LVOLoadSeg(a6)
+	tst.l	d0
+	bne.s	.Ok
+	lea	LibName1(pc),a0		libs:amos.library
+	move.l	a0,d1
+	jsr	_LVOLoadSeg(a6)
+	tst.l	d0
+	bne.s	.Ok
+	move.l	#Panic_Lib,Panic	Message d'erreur
+	bra	Boot_Fatal
+.Ok	move.l	d0,SP_WSegment(sp)	Segment library pour fatal!
+	lsl.l	#2,d0
+	addq.l	#4,d0
+	move.l	d0,a4
+
+; Reserve la zone de datas...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#LDataWork,d0		;   Longueur buffers travail
+	add.l	8(a4),d0		; + Longueur datas W
+	add.l	#DataLong,d0		; + Longueur datas BASIC
+	move.l	d0,d2
+	move.l	#Public|Clear,d1	Flags
+	move.l	$4.w,a6			Using default system function!
+	jsr	_LVOAllocMem(a6)
+	tst.l	d0
+	beq	.Mem
+	move.l	d0,a5
+	lea	LDataWork(a5),a5
+	move.l	a5,a0
+	add.l	8(a4),a5
+	move.l	d0,Sys_AData(a5)
+	move.l	d2,Sys_LData(a5)
+; Trouve toutes les adresses de buffers de travail
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	-32(a0),a0
+	move.l	a0,BufLabel(a5)		Buffer label expression
+	lea	-BbLong(a0),a0
+	move.l	a0,BufBob(a5)		Buffer dessin d'un bob
+	lea	-12*2(a0),a0
+	move.l	a0,MnTDraw(a5)		Buffer outline menus
+	lea	-(AAreaSize*5+6)(a0),a0
+	move.l	a0,AAreaBuf(a5)		Zone pour les AREAFILL
+	lea	-24(a0),a0
+	move.l	a0,AAreaInfo(a5)
+	lea	-16(a0),a0
+	move.l	a0,BufAMSC(a5)		Buffers chargement IFF
+	lea	-12(a0),a0
+	move.l	a0,BufCCRT(a5)
+	lea	-70*3(a0),a0
+	move.l	a0,BufCMAP(a5)
+	lea	-4(a0),a0
+	move.l	a0,BufCAMG(a5)
+	lea	-20(a0),a0
+	move.l	a0,BufBMHD(a5)
+	lea	-108(a0),a0
+	move.l	a0,DirFNeg(a5)		Filtre negatif directory
+	lea	-108(a0),a0
+	move.l	a0,Name2(a5)		Buffers nom disque
+	lea	-256(a0),a0
+	move.l	a0,Name1(a5)
+	lea	-TBuffer(a0),a0
+	move.l	a0,Buffer(a5)
+	move.w	a0,d0
+	and.w	#$0003,d0
+	beq.s	.Skipu
+	illegal
+.Mem	move.l	#Panic_OOMem,Panic	Message d'erreur panique
+	bra	Boot_Fatal
+.Skipu
+
+; Poke les donn�es contenues dans SP
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	SP_WSegment(sp),Sys_WSegment(a5)
+	move.l	SP_Message(sp),Sys_Message(a5)
+	move.l	SP_DosBase(sp),DosBase(a5)
+	move.l	SP_IntBase(sp),T_IntBase(a5)
+
+; Start system function of the amos.library
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,Sys_WAd(a5)
+	move.l	#"V2.0",d0		Magic!
+	move.w	#$0200,d1		Version d'AMOSPro
+	jsr	12(a4)
+	cmp.l	#"W2.0",d0		Verifie la version de la librairie
+	beq.s	.Libok
+	move.l	#Panic_Version,Panic
+	jmp	TheEnd
+.Libok
+
+; Stocke la version du systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a0
+	cmp.w	#36,$14(a0)
+	bcs.s	.Pa20
+	move.w	$14(a0),WB2.0(a5)
+.Pa20
+
+; Charge la configuration de l'interpreteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1005,d2
+	lea	SP_Config(sp),a0		Option -C" "
+	tst.b	(a0)
+	bne.s	.Conf
+	lea	NDatas1(pc),a0			AMOSPro_Interpretor_Config
+	move.l	a0,d1
+	jsr	D_OpenD1
+	bne.s	.Open
+	lea	NDatas3(pc),a0			s/AMOSPro_Interpretor_Config
+	move.l	a0,d1
+	jsr	D_OpenD1
+	bne.s	.Open
+	lea	NDatas2(pc),a0			s:AMOSPro_Interpretor_Config
+.Conf	move.l	a0,d1
+	jsr	D_OpenD1
+	bne.s	.Open
+	move.l	#Panic_Config,Panic		Message d'erreur
+	jmp	TheEnd
+.Open	move.l	Buffer(a5),d2
+	move.l	d2,a2
+
+; Charge les donn�es dc.w
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#8,d3
+	jsr	D_Read
+	bne	TheEnd_Cantread
+	cmp.l	#"PId1",(a2)
+	bne	TheEnd_Cantread
+	move.l	4(a2),d3
+	lea	PI_Start(a5),a0
+	move.l	a0,d2
+	jsr	D_Read
+	bne	TheEnd_Cantread
+; Charge les donn�es texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a2,d2
+	moveq	#8,d3
+	jsr	D_Read
+	cmp.l	#"PIt1",(a2)
+	bne	TheEnd_Cantread
+	lea	Sys_Messages(a5),a0
+	move.l	4(a2),d0
+	move.l	d0,d3
+	move.l	#Clear|Public,d1
+	jsr	A5_Reserve
+	beq	JTheEnd_OOMem
+	move.l	a0,d2
+	jsr	D_Read
+	jsr	D_Close
+; La taille du buffer specifiee efface la precedente
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	SP_DefSize(sp),d0
+	beq.s	.Skop
+	move.l	d0,PI_DefSize(a5)
+.Skop
+; Buffer de pathact
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#256,d0
+	move.l	#Public|Clear,d1
+	lea	PathAct(a5),a0
+	jsr	A5_Reserve
+	beq	JTheEnd_OOMem
+; Trouve le path complet du systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d0				Acces au path
+	jsr	Sys_GetMessage
+	move.l	a0,d1				Demande le lock
+	moveq	#-2,d2
+	DosCall	_LVOLock
+	tst.l	d0
+	beq	TheEnd_APSystem
+	jsr	AskDir2				Demande le directory
+	move.l	Buffer(a5),a0			Copie le directory
+	lea	384(a0),a0
+	lea	Sys_Pathname(a5),a1
+.CC	move.b	(a0)+,(a1)+
+	bne.s	.CC
+; Init FLOAT library
+; ~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	moveq	#0,d0
+	lea	FloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,FloatBase(a5)
+; Init GRAPHICS Library
+; ~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lea	GfxName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,T_GfxBase(a5)
+	beq	TheEnd_Cantread
+; Init ICON Library
+; ~~~~~~~~~~~~~~~~~
+	tst.b	PI_Icons(a5)
+	beq.s	.PaIco
+	moveq	#0,d0
+	lea	IconName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,IconBase(a5)
+	beq.s	.PaIco
+	move.l	d0,a6
+	moveq	#4,d0			Nom de Def_Icon
+	jsr	Sys_GetMessage
+	jsr	Sys_AddPath
+	move.l	Name1(a5),a0
+	jsr	-78(a6)			Charge!
+	move.l	d0,AdrIcon(a5)
+	beq.s	.PaIco
+	move.l	d0,a0
+	move.l	#$80000000,d0		RAZ position ecran
+	move.l	d0,$3a(a0)
+	move.l	d0,$3e(a0)
+.PaIco
+
+; Charge les librairies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Libraries_Load
+	bne	TheEnd_Badext
+	bsr	Library_Patch		Insere les routines internes
+	bsr	Libraries_Reloc
+	bne	TheEnd_Badext
+	move.b	#1,Sys_LibStarted(a5)	Flag: les librairies sont demarrees!
+
+; Charge le fichier MOUSE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	LdMouse
+; Charge la banque FSel_Resource
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	LdFSel
+; Fait les ASSIGNS automatiques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	AutoAssigns
+
+; Demarrage des interruptions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#3,d0			A3= fonte / 0
+	jsr	Sys_GetMessage
+	move.l	a0,a3
+	lea	PI_ParaTrap(a5),a0	A0= parametre demarrage
+	move.l	PI_AdMouse(a5),a1	A1= mouse.bak / 0
+	lea	PI_DefEPa(a5),a2	A2= Palette par defaut
+	moveq	#0,d0			D0= pas afficher les ecrans
+	move.l	PI_DefAmigA(a5),d1	D1= default amiga-a
+	move.l	Sys_WAd(a5),a6
+	jsr	(a6)
+	tst.l	d0
+	bne	JTheEnd
+	move.b	#-1,Sys_WStarted(a5)
+
+; Demarre les librairies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Libraries_Init
+	bne	TheEnd_Badext
+
+; Raz du pathact!
+; ~~~~~~~~~~~~~~~
+	move.l	PathAct(a5),a0
+	clr.b	(a0)
+
+; Charger un programme?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Name1(a5),a0
+	clr.w	(a0)
+	move.l	SP_AutoLock(sp),d1
+	beq.s	.PaDir
+	move.l	DosBase(a5),a6
+	jsr	_LVOCurrentDir(a6)
+.PaDir	lea	SP_AutoName(sp),a0		Un programme en commande?
+	tst.b	(a0)
+	bne.s	.CoLo
+	moveq	#5,d0				Non, essaie AUTOEXEC.AMOS
+	jsr	Sys_GetMessage
+.CoLo	move.l	Name1(a5),a1
+.CoCop	move.b	(a0)+,(a1)+
+	bne.s	.CoCop
+	move.b	SP_WBench(sp),WBench(a5)	Flag pour test
+
+; Poke la ligne de commande dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	SP_CommandLine(sp),d0
+	beq.s	.Paco
+	move.l	d0,a0
+	move.l	Buffer(a5),a1
+	lea	TBuffer-256-6(a1),a1
+	move.l	#"CmdL",(a1)+
+	move.l	a1,a2
+	clr.w	(a1)+
+.Cop	move.b	(a0)+,(a1)+
+	bne.s	.Cop
+	subq.l	#1,a0
+	sub.l	d0,a0
+	move.w	a0,(a2)
+.Paco
+
+; Depile
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	SP_Buffer(sp),sp
+	move.l	sp,BasSp(a5)
+
+; Recupere la taille memoire totale au depart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	tst.w	WB2.0(a5)
+	bne.s	.M20
+; En 1.3, demande simplement AVAILMEM>>> valeurs approximatives!
+	move.l	#Public|Chip,d1
+	jsr	_LVOAvailMem(a6)
+	add.l	#38*1024,d0
+	move.l	d0,d2
+	move.l	#Public|Fast,d1
+	jsr	_LVOAvailMem(a6)
+	tst.l	d0
+	beq.s	.QChp
+	add.l	#256*1024,d0
+	bra.s	.Mm
+.QChp	add.l	#256*1024,d2
+	bra.s	.Mm
+; En 2.0, demande la taille totale
+.M20	move.l	#Public|Chip|Total,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,d2
+	move.l	#Public|Fast|Total,d1
+	jsr	_LVOAvailMem(a6)
+.Mm	move.l	d0,MemFastTotal(a5)
+	move.l	d2,MemChipTotal(a5)
+
+; Prend le path de depart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_AskDir
+	JJsr	L_CopyPath
+; Fermeture automatique du WB
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	PI_AutoWB(a5)
+	beq.s	.NoWB
+	jsr	WOption
+	JJsr	L_WB_Close
+.NoWB
+
+; Branchement � la fin de l'initialisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	jmp	Init_Fin
+
+; Relai de saut dans l'autre Hunk
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+JTheEnd_OOMem
+	jmp	TheEnd_OOMem
+JTheEnd	jmp	TheEnd
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fait les assigns automatiquement!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+AutoAssigns
+; - - - - - - - - - - - - -
+	lea	AssInst(pc),a0		ASSIGN present?
+	move.l	Name1(a5),a1
+.CoCop	move.b	(a0)+,(a1)+
+	bne.s	.CoCop
+	JJsr	L_RExist
+	beq.s	.NoAss
+; Fait les assigns...
+	JJsr	L_AskDir
+	lea	AssCon(pc),a0		Ouvre un NIL:
+	move.l	a0,d1
+	move.l	#1004,d2
+	DosCall	_LVOOpen
+	tst.l	d0
+	beq.s	.NoAss
+	move.l	d0,ParamE(a5)
+	moveq	#0,d2
+	lea	Ass1(pc),a0		Productivity1
+	bsr.s	DoAssign
+	add.w	d0,d2
+	lea	Ass2(pc),a0		Productivity1
+	bsr.s	DoAssign
+	add.w	d0,d2
+	lea	Ass3(pc),a0		Tutorial
+	bsr.s	DoAssign
+	add.w	d0,d2
+	lea	Ass4(pc),a0		Examples
+	bsr.s	DoAssign
+	add.w	d0,d2
+	lea	Ass5(pc),a0		Accessories
+	bsr.s	DoAssign
+	add.w	d0,d2
+	lea	Ass6(pc),a0		Compiler
+	bsr.s	DoAssign
+	add.w	d0,d2
+	lea	Ass7(pc),a0		Extras
+	bsr.s	DoAssign
+	add.w	d0,d2
+	beq.s	.Skip			sur les accessoires,
+	lea	Ass0(pc),a0		On assigne AMOSPro_System:
+	bsr.s	DoAssign
+.Skip	move.l	ParamE(a5),d1
+	DosCall	_LVOClose
+.NoAss	rts
+* Routine, fait les assigns, si possible!
+DoAssign
+	movem.l	d1-d7/a0-a6,-(sp)
+	move.l	a0,-(sp)
+	move.l	Name1(a5),a1		* Regarde si existe deja!
+.CoCop1	move.b	(a0)+,(a1)+
+	bne.s	.CoCop1
+	move.l	a0,-(sp)
+	JJsr	L_RExist
+	bne	.NoAss
+
+;	move.l	Buffer(a5),a0		* Fabrique le path normal
+;	lea	384(a0),a0
+;	move.l	Name1(a5),a1
+;.CoCop2	move.b	(a0)+,(a1)+
+;	bne.s	.CoCop2
+;	subq.l	#1,a1
+;	move.l	(sp),a0
+;.CoCop3	move.b	(a0)+,(a1)+
+;	bne.s	.CoCop3
+;	JJsr	L_RExist
+;	bne.s	.DoAss
+
+	lea	Sys_Pathname(a5),a0	* Essaie avec le directory APSystem!
+	move.l	Name1(a5),a1
+.CoCup2	move.b	(a0)+,(a1)+
+	bne.s	.CoCup2
+	move.b	#"/",-1(a1)		En arriere un directory!
+	move.l	(sp),a0
+.CoCup3	move.b	(a0)+,(a1)+
+	bne.s	.CoCup3
+	JJsr	L_RExist
+	beq.s	.NoAss
+
+.DoAss	lea	AssCall(pc),a0		* Appelle la commande
+	move.l	Buffer(a5),a1
+.CoCop4	move.b	(a0)+,(a1)+
+	bne.s	.CoCop4
+	move.l	4(sp),a0
+	subq.l	#1,a1
+.CoCop5	move.b	(a0)+,(a1)+
+	bne.s	.CoCop5
+	move.b	#32,-1(a1)
+	move.b	#'"',(a1)+
+	move.l	Name1(a5),a0
+.CoCop6	move.b	(a0)+,(a1)+
+	bne.s	.CoCop6
+	move.b	#'"',-1(a1)
+	clr.b	(a1)
+	move.l	Buffer(a5),d1
+	move.l	ParamE(a5),d2
+	move.l	ParamE(a5),d3
+	move.l	DosBase(a5),a6
+	jsr	-222(a6)
+	moveq	#1,d0
+	bra.s	.Quit
+.NoAss	moveq	#0,d0
+.Quit	addq.l	#8,sp
+	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+
+; Charge / Efface la souris , fill patterns
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LdMouse
+	moveq	#2,d0			Mouse.Abk
+	jsr	Sys_GetMessage
+	tst.b	(a0)			Utiliser le defaut
+	beq.s	.Skip
+; Charge la banque
+	jsr	Sys_AddPath
+	move.l	#1005,d2
+	jsr	D_Open
+	beq	TheEnd_Cantread
+	moveq	#0,d2			Demande la taille du fichier
+	moveq	#1,d3
+	jsr	D_Seek
+	moveq	#0,d3
+	jsr	D_Seek
+	move.l	d0,d3
+; Reserve un buffer de la taille des sprites
+	move.l	#Chip|Public|Clear,d1
+	lea	PI_AdMouse(a5),a0
+	jsr	A5_Reserve
+	beq	JTheEnd_OOMem
+	move.l	a0,T_MouBank(a5)
+; Lis le fichier dans le buffer
+	move.l	a0,d2
+	move.l	a0,a2
+	jsr	D_Read
+	bne	TheEnd_Cantread
+	cmp.l	#"AmSp",(a2)
+	bne	TheEnd_Cantread
+	cmp.w	#4,(a2)+
+	bcs	TheEnd_Cantread
+; Ferme le fichier!
+	jsr	D_Close
+.Skip	rts
+
+; Charge/Efface la banque de resource file-selector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LdFSel	moveq	#8,d0
+	jsr	Sys_GetMessage
+	jsr	Sys_AddPath
+	lea	Sys_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	move.l	#1005,d2
+	jsr	D_Open
+	beq	TheEnd_Cantread
+	moveq	#16,d0
+	JJsr	L_Bnk.Load
+	bne	JTheEnd_OOMem
+	jsr	D_Close
+; Met l'adresse de la banque de resource
+	moveq	#16,d0
+	JJsr	L_Bnk.GetAdr
+	cmp.l	#"Reso",-8(a0)
+	bne	TheEnd_Cantread
+	move.l	a0,Sys_Resource(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				CHARGEMENT DES LIBRARIES + EXTENSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Load
+; - - - - - - - - - - - - - - - -
+
+; Librairie principale AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#14,d0
+	jsr	Sys_GetMessage
+	jsr	Sys_AddPathCom
+	moveq	#0,d0
+	bsr	Library_Load
+	bne.s	.Err
+; Extensions
+; ~~~~~~~~~~
+	moveq	#1,d2
+.Loop	move.l	d2,d0
+	add.w	#16-1,d0
+	jsr	Sys_GetMessage
+	tst.b	(a0)
+	beq.s	.Next
+	jsr	Sys_AddPathCom
+	move.w	d2,d0
+	bsr	Library_Load
+	bne.s	.Err
+.Next	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop
+	moveq	#0,d0
+.Err	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				RELOCATION DES LIBRAIRIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Reloc
+; - - - - - - - - - - - - - - - -
+	moveq	#0,d2
+.Loop1	move.l	d2,d0
+	bsr	Library_Reloc
+	bne.s	.Err
+	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop1
+	jsr	Libraries_FreeSizes
+	moveq	#0,d2
+.Loop2	move.l	d2,d0
+	bsr	Library_GetParams
+	bne.s	.Err
+	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop2
+	moveq	#0,d0
+.Err	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				INITIALISATION DES LIBRAIRIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Init
+; - - - - - - - - - - - - - - - -
+	moveq	#0,d2
+.Loop	move.l	d2,d0
+	bsr	Library_Init
+	bne.s	.Err
+	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop
+	moveq	#0,d0
+.Err	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				CHARGEMENT D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Name1=	Nom
+;	A0=	Command line
+;	D0=	Numero
+; - - - - - - - - - - - - - - - -
+Library_Load
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+
+	move.l	d0,d6
+	move.l	a0,a4
+	lea	AdTokens(a5),a6
+	lsl.w	#2,d0
+	add.w	d0,a6
+; Ouvre le fichier
+; ~~~~~~~~~~~~~~~~
+	move.l	#1005,d2
+	jsr	D_Open
+	beq	Ll_Disc
+; Lis l'entete dans le buffer
+	move.l	Buffer(a5),d2
+	move.l	#$20+18,d3
+	jsr	D_Read
+	bne	Ll_Disc
+	move.l	d2,a3
+	lea	$20(a3),a3
+	move.l	(a3),d5
+	lsr.l	#1,d5			D5= nombre de fonctions
+; Reserve la zone memoire...
+	move.l	d5,d4
+	lsl.l	#2,d4			Taille des jumps
+	addq.l	#4,d4			+ Dernier jump (taille derniere routine)
+	moveq	#LB_Size,d3		Data zone negative
+	add.l	4(a3),d3		+ Tokens
+	add.l	8(a3),d3		+ Librairie
+	add.l	12(a3),d3		+ Titre
+	move.l	d3,d0
+	add.l	d4,d0
+	move.l	d0,d1
+	SyCall	MemFastClear
+	beq	Ll_OMem
+	lea	LB_Size(a0,d4.l),a2	Saute les jumps et la datazone
+	move.l	a2,(a6)			Extension chargee!!!
+	move.l	d1,LB_MemSize(a2)	Taille de la zone memoire
+	move.l	a0,LB_MemAd(a2)		Adresse de base
+	move.l	(a3),d3			Buffer temporaire pour les tailles
+	move.l	d3,d0
+	addq.l	#4,d0
+	SyCall	MemFastClear
+	beq	Ll_OMem
+	move.l	d3,(a0)+
+	move.l	a0,LB_LibSizes(a2)
+; Une nouvelle / ancienne librarie?
+	clr.w	LB_Flags(a2)		Flags
+	bset	#LBF_20,LB_Flags(a2)
+	moveq	#4,d3
+	move.l	Buffer(a5),d2
+	jsr	D_Read
+	bne	Ll_Disc
+	move.l	d2,a0
+	cmp.l	#"AP20",(a0)
+	beq.s	.Suit
+	bclr	#LBF_20,LB_Flags(a2)
+	moveq	#-4,d2
+	moveq	#0,d3
+	jsr	D_Seek
+; Charge les tailles des routines
+.Suit	move.l	LB_LibSizes(a2),a0
+	move.l	-4(a0),d3
+	move.l	a0,d2
+	jsr	D_Read			des routines
+	bne	Ll_Disc
+; Fabrique la table d'adresse des routines internes
+	move.w	d5,d0
+	subq.w	#1,d0
+	move.l	a2,d1			Base des tokens
+	add.l	4(a3),d1		+ Taille des tokens = Librairie
+	lea	Ll_Rts(pc),a0		RTS pour les fonctions vides
+	move.l	a0,d3
+	move.l	LB_LibSizes(a2),a0	Liste des fonctions
+	lea	-LB_Size(a2),a1		Debut des adresses
+	moveq	#0,d2
+.Loop1	move.l	d1,-(a1)
+	move.w	(a0)+,d2
+	bne.s	.Skip1
+	move.l	d3,(a1)			Si routine vide>>> RTS
+.Skip1	add.l	d2,d1
+	add.l	d2,d1
+	dbra	d0,.Loop1
+; Charge tout le reste
+	move.l	4(a3),d3		Tokens
+	add.l	8(a3),d3		+ Librairie
+	add.l	12(a3),d3		+ Titre
+	move.l	a2,d2
+	jsr	D_Read
+	bne	Ll_Disc
+; Ferme le fichier!
+	jsr	D_Close
+; Rempli la datazone
+	move.w	d5,LB_NRout(a2)		Nombre de routines
+	move.l	4(a3),d0
+	add.l	8(a3),d0
+	add.l	a2,d0
+	move.l	d0,LB_Title(a2)		Adresse du titre
+	move.l	a4,LB_Command(a2)	Command line
+; Pas d'erreur
+	moveq	#0,d0
+	bra	Ll_Out
+
+Ll_Rts	illegal				RTS pour les fonctions vides...
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				INTEGRATION DES LIBRAIRIES INTERNES AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;
+; - - - - - - - - - - - - - - - -
+Library_Patch
+; - - - - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	AdTokens(a5),a2
+	move.l	LB_LibSizes(a2),a3
+	lea	AMOSJmps,a1
+	move.w	(a1)+,d0
+.Loop	lsl.w	#1,d0				Plus de taille => plus de relocation
+	clr.w	0(a3,d0.w)
+	lsl.w	#1,d0				Pointe dans la librarie
+	neg.w	d0
+	lea	-LB_Size-4(a2,d0.w),a0
+	move.l	(a1)+,(a0)
+	move.w	(a1)+,d0
+	bne.s	.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				RELOCATION D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	D0=	Numero
+; - - - - - - - - - - - - - - - -
+Library_Reloc
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	d0,d6
+	lea	AdTokens(a5),a3
+	lsl.w	#2,d0
+	move.l	0(a3,d0.w),d0
+	beq	Ll_Out
+	move.l	d0,a3
+
+;	Une librarie 2.0?
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#LBF_20,LB_Flags(a3)
+	bne.s	.20
+
+; 	Ancienne extension: reloge la table de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a3,a0
+	move.l	a0,d1
+	lea	6(a0),a0
+.Loop2	move.w	(a0),d0
+	beq.s	.Loop4
+	bmi.s	.Loop3
+	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a3,d0.w),d2
+	sub.l	d1,d2
+	move.w	d2,(a0)
+.Loop3	move.w	2(a0),d0
+	beq.s	.Loop4
+	bmi.s	.Loop4
+	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a3,d0.w),d2
+	sub.l	d1,d2
+	move.w	d2,2(a0)
+.Loop4	addq.l	#4,a0
+.Loop5	tst.b	(a0)+
+	bpl.s	.Loop5
+.Loop6	tst.b	(a0)+
+	bpl.s	.Loop6
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	tst.w	(a0)
+	bne.s	.Loop2
+	bra	.Fin20
+
+; 	Nouvelle librarie: exploration de la table de tokens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.20	move.l	a3,a0
+.RLoop	move.w	2(a0),d1
+	move.w	(a0),d0
+	beq	.RExit
+	bmi.s	.RFonc
+	cmp.w	#1,d0
+	beq.s	.RFonc
+; Une Instruction / Instruction ET fonction
+.RInst	addq.w	#1,d0			Instruction pointe direct
+;	bmi.s	.INop			Instruction NOP
+	lsl.w	#2,d0
+	neg.w	d0
+	move.w	d0,(a0)
+	tst.w	d1			Faire un flag?
+	bmi	.RNext
+	moveq	#0,d0
+	bset	#6,d0			Une instruction
+	cmp.w	#1,d1
+	ble.s	.RSuit
+	bset	#7,d0			Une instruction + fonction
+	bra.s	.RSuit
+;.INop	move.w	#1,(a0)			Positif>>> Instruction NOP
+;	moveq	#0,d0
+;	bra.s	.RNext
+; Une fonction / Fonction mathematique
+.RFonc	cmp.w	#1,d1			1, ou 0>>> VIDE!!!
+	ble.s	.RSuit
+	lsl.w	#2,d1			Fonction, pointe AVANT
+	neg.w	d1
+	move.w	d1,(a0)
+	and.w	#$FF00,d0		Fonction normale?
+	beq	.RFn
+	and.w	#%0111111100000000,d0	Faire un flag?
+	beq	.RNext
+.RFn	bset	#7,d0			Une fonction!
+; Fabrication du flag parametres...
+.RSuit	lea	4(a0),a1
+	moveq	#0,d1
+.RNom	tst.b	(a1)+			Saute le nom
+	bpl.s	.RNom
+	moveq	#0,d2			Type de fonction
+	move.b	(a1)+,d1		Definition fonction / instruciton
+	bmi.s	.RDoke
+	cmp.b	#"C",d1			Une constante
+	beq.s	.RCst
+	cmp.b	#"V",d1			Une variable reservee?
+	bne.s	.RSkip1
+	move.b	(a1)+,d1
+	bmi.s	.RDoke
+	or.w	#L_VRes,d0		Flag variable reservee
+.RSkip1	move.b	(a1)+,d1		Prend le parametre
+	bmi.s	.RDoke			Fini?
+	addq.w	#1,d0			Un parametre de plus
+	sub.w	#"0",d1			Pointeur
+	lsl.w	#1,d1
+	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.RSkip2			0 Entier,
+	bra.s	.Float			1 Float: veut un parametre float
+	bra.s	.RSkip2			2 String,
+	bra.s	.RSkip2			3 Indifferent, accepte par le test
+	bra.s	.Math			4 Math, appelle la fonction parametre
+.Angle	or.w	#L_FAngle,d0		5 Angle, veut un float en radian
+	bra.s	.RSkip2
+.Math	or.w	#L_FMath,d0
+	bra.s	.RSkip2
+.Float	or.w	#L_FFloat,d0
+.RSkip2	move.b	(a1)+,d1
+	bpl.s	.RSkip1
+.RDoke	move.w	d0,2(a0)		Doke le flag parametres
+	move.l	a1,d0			On est deja a la fin
+	addq.l	#1,d0
+	and.w	#$FFFE,d0
+	move.l	d0,a0
+	bra	.RLoop			On peut donc reboucler
+.RCst	tst.b	(a1)+			Une constante
+	bpl.s	.RCst
+	bra.s	.RDoke
+.RNext	clr.w	2(a0)			Pas de flag
+	bsr	Ll_TkNext		Saute le token
+	bra	.RLoop
+.RExit
+	addq.l	#2,a0
+; 	Swapper les routines floats?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	#"FSwp",(a0)
+	bne.s	.NoFSwp
+	move.w	4(a0),LB_DFloatSwap(a3)
+	move.w	6(a0),LB_FFloatSwap(a3)
+	addq.l	#8,a0
+.NoFSwp
+;	Des donnees pour le compilateur?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	#"ComP",(a0)		Le code?
+	bne.s	.NoComp
+	move.w	4(a0),d0
+	lea	4+2(a0,d0.w),a0		On les saute
+.NoComp
+; 	Une table de verification rapide?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	#"KwiK",(a0)		Le code?
+	bne.s	.NoKwik
+	lea	4(a0),a0
+	move.l	a0,LB_Verif(a3)		Poke l'adresse...
+.NoKwik
+
+.Fin20
+
+; 	Relocation des routines...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	LB_NRout(a3),d3		Nombre de routines
+	move.w	d3,d5			Pour comparer...
+	subq.w	#1,d3
+	lea	-LB_Size(a3),a2
+	move.l	LB_LibSizes(a3),a4	Tailles des routines
+
+GRou0	move.l	-(a2),a0		Debut routine
+	moveq	#0,d4
+	move.w	(a4)+,d4
+	beq.s	GRouN
+	lsl.l	#1,d4
+	add.l	a0,d4			Fin routine
+GRou1	move.b	(a0),d0
+	cmp.b	#C_Code1,d0
+	beq	GRou10
+GRou2	addq.l	#2,a0
+	cmp.l	d4,a0
+	bcs.s	GRou1
+GRouN	dbra	d3,GRou0
+	bra	GRouX
+; Instruction speciale
+GRou10	move.w	(a0),d0
+	move.b	d0,d2
+	and.b	#$0F,d0
+	cmp.b	#C_Code2,d0
+	bne	GRou2
+	and.w	#$00F0,d2
+	lsr.w	#1,d2
+	lea	GRout(pc),a1
+	jmp	0(a1,d2.w)
+; Table des sauts
+GRout	bra	GRouJ			; 0 - RJmp / Rjmptable
+	dc.w	$4ef9			JMP
+	jmp	(a0)
+	bra	GRouJ			; 1 - RJsr / Rjsrtable
+	dc.w	$4eb9			JSR
+	jsr	(a0)
+	bra	GRouB			; 2 - RBra
+	bra	GRout
+	bra	GRouB			; 3 - RBsr
+	bsr	GRout
+	bra	GRouB			; 4 - RBeq
+	beq	GRout
+	bra	GRouB			; 5 - RBne
+	bne	GRout
+	bra	GRouB			; 6 - RBcs
+	bcs	GRout
+	bra	GRouB			; 7 - RBcc
+	bcc	GRout
+	bra	GRouB			; 8 - RBlt
+	blt	GRout
+	bra	GRouB			; 9 - RBge
+	bge	GRout
+	bra	GRouB			; 10- RBls
+	bls	GRout
+	bra	GRouB			; 11- RBhi
+	bhi	GRout
+	bra	GRouB			; 12- RBle
+	ble	GRout
+	bra	GRouB			; 13- RBpl
+	bpl	GRout
+	bra	GRouB			; 14- RBmi
+	bmi	GRout
+	bra	GRouD			; 15- RData / Ret_Inst
+GRouMve	move.l	0(a4),a0
+GRlea	lea	$0.l,a0
+CJsr	jsr	0(a4)
+CRts	rts
+CNop	nop
+; RJMP / RJSR
+GRouJ	cmp.b	#C_CodeJ,2(a0)
+	beq.s	.Rjsr
+	cmp.b	#C_CodeT,2(a0)
+	bne	GRou2
+; Rjsrt / Rjmpt
+	move.b	3(a0),d0
+	cmp.b	#8,d0
+	bcc.s	.Rlea
+	and.w	#$0007,d0
+	move.w	d0,d1
+	lsl.w	#8,d1
+	lsl.w	#1,d1
+	or.w	GRouMve(pc),d1		Move.l	X(a4),ax
+	move.w	d1,(a0)+
+	move.w	2(a0),d1
+	lsl.w	#2,d1
+	add.w	#LB_Size+4,d1
+	neg.w	d1
+	move.w	d1,(a0)+
+	or.w	6(a1,d2.w),d0		Jsr/Jmp	(ax)
+	move.w	d0,(a0)+
+	bra	GRou1
+; Rlea
+.Rlea	subq.b	#8,d0
+	cmp.b	#8,d0
+	bcc	GRou2
+	lsl.w	#8,d0
+	lsl.w	#1,d0
+	or.w	GRlea(pc),d0
+	move.w	d0,(a0)
+	move.w	4(a0),d0
+	moveq	#0,d1
+	addq.l	#6,a0
+	bra.s	.Qq
+; Rjsr / Rjmp direct
+.Rjsr	moveq	#0,d1			Transforme en JSR direct
+	move.b	3(a0),d1
+	cmp.b	#27,d1			Numero de l'extension
+	bcc	GRou2
+	move.w	4(a1,d2.w),(a0)
+	move.w	4(a0),d0
+	addq.l	#6,a0
+	ext.w	d1
+; Extension quelconque
+.Qq	lsl.w	#2,d1
+	lea	AdTokens(a5),a1
+	move.l	0(a1,d1.w),d1
+	beq	Ll_BadExt
+	move.l	d1,a1			Adresse des tokens de l'extension
+	btst	#LBF_20,LB_Flags(a3)
+	bne.s	.New
+	bsr	Ext_OldLabel		Converti en ancien label
+	bne.s	.AA
+	bra	Ll_BadExt
+.New	cmp.w	LB_NRout(a1),d0		Superieur au maximum?
+	bcc	Ll_BadExt
+.AA	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a1,d0.w),-4(a0)
+	bra	GRou1
+; RBRA etc..
+GRouB	move.w	2(a0),d0
+	cmp.w	d5,d0
+	bcc	GRou2
+	lsl.w	#2,d0
+	move.w	4(a1,d2.w),(a0)+
+	neg.w	d0
+	move.l	-LB_Size-4(a3,d0.w),d0
+	sub.l	a0,d0
+	cmp.l	#-32766,d0
+	ble	Gfaux
+	cmp.l	#32766,d0
+	bge	Gfaux
+	move.w	d0,(a0)+
+	bra	GRou1
+; Instruction RDATA / Ret_Inst
+GRouD	cmp.w	#C_CodeD,2(a0)
+	bne	GRou2
+	move.w	CNop(pc),d0
+	move.w	d0,(a0)+
+	move.w	d0,(a0)+
+	bra	GRouN
+; Fini, pas d'erreur
+GRouX	jsr	Sys_ClearCache		Nettoie les caches
+	moveq	#0,d0
+	bra	Ll_Out
+Gfaux	illegal
+
+; Sortie des chargements/relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ll_BadExt
+	moveq	#2,d0
+	bra.s	Ll_Err
+Ll_Disc	moveq	#1,d0
+	bra.s	Ll_Err
+Ll_OMem	moveq	#2,d0
+Ll_Err
+Ll_Out	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+;	Retrouve le nouveau label a partir des anciens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ext_OldLabel
+	movem.l	a0/d1,-(sp)
+	lea	Ext_Convert(pc),a0
+	bra.s	.In
+.Loop	cmp.w	d0,d1
+	beq.s	.Ok
+	addq.l	#4,a0
+.In	move.w	(a0),d1
+	bne.s	.Loop
+.Out	movem.l	(sp)+,a0/d1
+	rts
+.Ok	move.w	2(a0),d0
+	bra.s	.Out
+;	Table de conversion des labels AMOSPro 1.0 >>> AMOSPro 2.0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ext_Convert
+	dc.w	1024,L_Error
+	dc.w	1025,L_ErrorExt
+	dc.w	207,L_Test_PaSaut
+	dc.w	956,L_WaitRout
+	dc.w	287,L_GetEc
+	dc.w	46,L_Demande
+	dc.w	432,L_RamFast
+	dc.w	433,L_RamChip
+	dc.w	434,L_RamFast2
+	dc.w	435,L_RamChip2
+	dc.w	436,L_RamFree
+	dc.w	1100,L_Bnk.GetAdr
+	dc.w	1101,L_Bnk.GetBobs
+	dc.w	1102,L_Bnk.GetIcons
+	dc.w	1103,L_Bnk.Reserve
+	dc.w	1104,L_Bnk.Eff
+	dc.w	1105,L_Bnk.EffA0
+	dc.w	1106,L_Bnk.EffTemp
+	dc.w	1107,L_Bnk.EffAll
+	dc.w	1234,L_Bnk.Change
+	dc.w	1121,L_Bnk.OrAdr
+	dc.w	1119,L_Dsk.PathIt
+	dc.w	1120,L_Dsk.FileSelector
+	dc.w	1122,L_Dev.Open
+	dc.w	1123,L_Dev.Close
+	dc.w	1124,L_Dev.GetIO
+	dc.w	1125,L_Dev.AbortIO
+	dc.w	1126,L_Dev.DoIO
+	dc.w	1127,L_Dev.SendIO
+	dc.w	1128,L_Dev.CheckIO
+	dc.w	1129,L_Dev.Error
+	dc.w	0,0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Relocation des recoltes de parametres
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Library_GetParams
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	moveq	#0,d5
+	lsl.w	#2,d0
+	beq.s	.Skip
+	moveq	#20,d5			Offset aux routines si ext
+.Skip	move.l	AdTokens(a5,d0.w),d0
+	beq	Ll_Out
+	move.l	d0,a6			Base des tokens explores
+	btst	#LBF_20,LB_Flags(a6)	Une librarie 2.0???
+	beq	.No20			NON!
+
+	move.l	AdTokens(a5),a4		Base des routines principales
+	JLea	L_Parameters,a3		Routines de recolte
+	move.l	a6,a2
+
+; 	Exploration de la table de tokens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	(a2),d3
+.Loop
+;	move.l	4(a2),d0
+;	cmp.l	#"x mo",d0
+;	bne.s	.Skkk
+;	jsr	BugBug
+.Skkk
+	move.w	2(a2),d4
+	beq.s	.Next
+; Une instruction?
+; ~~~~~~~~~~~~~~~~
+	move.w	d4,d1
+	and.w	#%0000000000111111,d1		Nombre de parametres
+	move.w	d1,2(a2)
+	btst	#6,d4
+	beq.s	.NoIns
+	move.w	d4,d2
+	lea	-LB_Size(a6,d3.w),a1
+	moveq	#0,d0
+	bsr	.Rout
+.NoIns
+; Une fonction?
+; ~~~~~~~~~~~~~
+	btst	#7,d4
+	beq.s	.NoFunc
+	move.w	2(a2),d1
+	move.w	d4,d2
+	lea	-LB_Size-4(a6,d3.w),a1
+	moveq	#2,d0
+	bsr	.Rout
+.NoFunc
+; Suivante
+; ~~~~~~~~
+.Next	addq.l	#4,a2
+.Ins	tst.b	(a2)+
+	bpl.s	.Ins
+.Ins2	tst.b	(a2)+
+	bpl.s	.Ins2
+	move.l	a2,d0
+	and.w	#$0001,d0
+	add.w	d0,a2
+	move.w	(a2),d3
+	bne.s	.Loop
+.No20	moveq	#0,d0
+	bra	Ll_Out
+
+;	Branche la routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Rout	and.w	#$7000,d2		Isole le code
+	rol.w	#4,d2			Pointe la table
+	lsl.w	#1,d2
+	jmp	.Jmps(pc,d2.w)		Branche a la routine
+.Jmps	bra.s	.Entier			0
+	bra.s	.Float			1
+	bra.s	.FAngle			2
+	bra.s	.FMath			3
+	bra.s	.Var			4
+.Float	tst.w	d1			Des parametres?
+	beq.s	.Exit
+	addq.w	#6,d1			Float
+	cmp.w	#6+6,d1
+	bcs.s	.Doke
+	moveq	#6+5,d1
+	bra.s	.Doke
+.IVar	add.w	#12,d1			Variable reservee en instruction
+	cmp.w	#12+6,d1
+	bcs.s	.Doke
+	moveq	#12+5,d1
+	bra.s	.Doke
+.FAngle	moveq	#0,d0
+	moveq	#18,d1			Fonction angle
+	bra.s	.Doke
+.FMath	moveq	#0,d0
+	moveq	#19,d1			Fonction math
+	bra.s	.Doke
+.Var	tst.w	d0			Variable reservee en fonction
+	beq.s	.IVar
+.Entier	tst.w	d1			Des parametres?
+	beq.s	.Exit
+	cmp.w	#6,d1			Entier
+	bcs.s	.Doke
+	moveq	#5,d1
+; Doke l'adresse de la fonction
+.Doke	add.w	d5,d1			Plus offset general aux routines
+	lsl.w	#1,d1			Pointe la table des adresses
+	move.w	0(a3,d1.w),d1		Delta au debut
+	sub.w	d0,d1			Moins ADDQ.L #2,a6 si fonction
+	ext.l	d1
+	add.l	a3,d1			Plus debut
+	sub.l	a4,d1			Moins base
+	move.l	(a1),a0			Adresse de la routine
+	move.w	CJsr(pc),d0
+	cmp.l	#"GetP",-(a0)		Un espace pour parametres?
+	beq.s	.Ok
+	cmp.w	4(a0),d0		Deja fait?
+	beq.s	.Exit
+	illegal
+.Ok	move.w	d0,(a0)+		Met le JSR
+	move.w	d1,(a0)+		Doke le delta
+	subq.l	#4,(a1)			Recule la fonction
+.Exit	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				INITIALISATION D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Library_Init
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	AdTokens(a5),a3
+	move.w	d0,d1
+	lsl.w	#2,d0
+	move.l	0(a3,d0.w),d0
+	beq	Ll_Out
+	move.l	d0,a3
+	subq.w	#1,d1			Extension= number-1
+	move.w	d1,-(sp)
+	move.l	-LB_Size-4(a3),a0	Adresse routine #0
+	move.l	LB_Command(a3),a1	Command Line
+	move.l	#"APex",d1		Magic
+	move.l	#VerNumber,d2		Numero de version
+	jsr	(a0)
+	move.w	(sp)+,d3
+	tst.w	d0			Refuse de charger...
+	bpl.s	.Nomi
+	cmp.l	#"Asci",d1		Un Message?
+	bne	Ll_BadExt
+	move.l	a0,d0			Un message?
+	bra	Ll_Mess			Oui,
+.Nomi	ext.w	d0
+	cmp.w	d0,d3			Bon numero d'extension?
+	bne	Ll_BadExt
+	moveq	#0,d0
+	bra	Ll_Out
+Ll_Mess	bra	Ll_BadExt		Illegal
+
+
+; Passe � le prochaine instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ll_TkNext
+	addq.l	#4,a0
+.Loop1	tst.b	(a0)+
+	bpl.s	.Loop1
+.Loop2	tst.b	(a0)+
+	bpl.s	.Loop2
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	rts
+
+; Erreurs lors du chargement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TheEnd_Badext
+	lea	Panic_Badext(pc),a0
+	bra.s	TheEndM
+TheEnd_APSystem
+	lea	Panic_APSystem(pc),a0
+	bra.s	TheEndM
+TheEnd_Cantread
+	lea	Panic_Cantread(pc),a0
+TheEndM	move.l	a0,Panic
+	jmp	TheEnd
+
+; Erreur avec datazone non r�serv�e
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Boot_Fatal
+; Libere amos.library s'il faut
+	move.l	SP_DosBase(sp),a6
+	move.l	SP_WSegment(sp),d1
+	beq.s	.Skip
+	jsr	_LVOUnLoadSeg(a6)
+; Affiche le message d'erreur
+.Skip	move.l	SP_DosBase(sp),a3
+	move.l	SP_IntBase(sp),a4
+	move.l	SP_Message(sp),d7
+	jsr	Panic_Message
+; Ferme DOS / INTUITION
+	move.l	$4.w,a6
+	move.l	SP_DosBase(sp),a1
+	jsr	_LVOCloseLibrary(a6)
+	move.l	SP_IntBase(sp),a1
+	jsr	_LVOCloseLibrary(a6)
+; On peut maintenant sortir!
+	move.l	SP_Message(sp),d7
+; Va a la sortie generale!
+	jmp	Get_Out
+
+
+;		Data initialisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Nom_W		ds.b	32
+NDatas2		dc.b 	"s:"
+NDatas1		dc.b 	"AMOSPro_Interpreter_Config",0
+NDatas3		dc.b 	"s/AMOSPro_Interpreter_Config",0
+LibName1	dc.b	"libs:amos.library",0
+LibName2	dc.b	"APSystem/amos.library",0
+LibName3	dc.b	"libs/amos.library",0
+IconName:	dc.b 	"icon.library",0
+FloatName:	dc.b 	"mathffp.library",0
+IntName:	dc.b 	"intuition.library",0
+GfxName:	dc.b 	"graphics.library",0
+
+AssInst		dc.b	"c:assign",0
+AssCall		dc.b	"c:assign ",0
+Ass0		dc.b	"AMOSPro_System:",0
+		dc.b	0
+Ass1		dc.b	"AMOSPro_Accessories:",0
+		dc.b	"Accessories",0
+Ass2		dc.b	"AMOSPro_Productivity1:",0
+		dc.b	"Productivity1",0
+Ass3		dc.b	"AMOSPro_Productivity2:",0
+		dc.b	"Productivity2",0
+Ass4		dc.b	"AMOSPro_Tutorial:",0
+		dc.b	"Tutorial",0
+Ass5		dc.b	"AMOSPro_Examples:",0
+		dc.b	"Examples",0
+Ass6		dc.b	"AMOSPro_Compiler:",0
+		dc.b	"Compiler",0
+Ass7		dc.b	"AMOSPro_Extras:",0
+		dc.b	"Extras",0
+AssCon		dc.b	"NIL:",0
+
+;		Messages d'erreur d'alerte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Panic_APSystem	dc.b	"Cannot find APSystem folder.",0
+Panic_Lib	dc.b	"Cannot find AMOS.library.",0
+Panic_Config	dc.b	"Cannot find AMOSPro_Interpreter_Config.",0
+Panic_Command	dc.b	"Bad command line.",0
+Panic_Cantread	dc.b	"Cannot read system files: check APSystem folder.",0
+Panic_Badext	dc.b	"Cannot load extension: use default interpreter config.",0
+Panic_Version	dc.b	"I need AMOS.library V2.0 or over!",0
+		even
+
+;		Adresses des routines accessibles aux extensions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOSJmps	Include	"+Internal_Jumps.s"
diff --git a/+CEqu.s b/+CEqu.s
new file mode 100644
index 0000000..c1e1310
--- /dev/null
+++ b/+CEqu.s
@@ -0,0 +1,224 @@
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; EQUATES
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+C_Code1		equ	$FE
+C_Code2		equ	$01
+C_CodeD		equ	$6543
+C_CodeInst	equ	$6545
+C_CodeJ		equ	$F7
+C_CodeT		equ	$F5
+
+CiJSR		equ	$4EB9
+CiJMP		equ	$4EF9
+CodeR		equ	$8F
+
+Ret_Int		MACRO
+		moveq	#0,d2
+		rts
+		ENDM
+Ret_Float	MACRO
+		moveq	#1,d2
+		rts
+		ENDM
+Ret_String	MACRO
+		moveq	#2,d2
+		rts
+		ENDM
+
+Rjmpt		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeT,0
+		dc.w	\1
+		ENDM
+Rjsrt		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeT,0
+		dc.w	\1
+		ENDM
+RjsrtR		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeT,\2
+		dc.w	\1
+		ENDM
+RjmptR		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeT,\2
+		dc.w	\1
+		ENDM
+Rlea		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeT,8+\2
+		dc.w	\1
+		ENDM
+Rjmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Rjsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Ljmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Ljsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Rbra		MACRO
+		dc.b	C_Code1,2*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbsr		MACRO
+		dc.b	C_Code1,3*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbeq		MACRO
+		dc.b	C_Code1,4*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbne		MACRO
+		dc.b	C_Code1,5*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcs		MACRO
+		dc.b	C_Code1,6*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcc		MACRO
+		dc.b	C_Code1,7*16+C_Code2
+		dc.w	\1
+		ENDM
+Rblt		MACRO
+		dc.b	C_Code1,8*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbge		MACRO
+		dc.b	C_Code1,9*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbls		MACRO
+		dc.b	C_Code1,10*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbhi		MACRO
+		dc.b	C_Code1,11*16+C_Code2
+		dc.w	\1
+		ENDM
+Rble		MACRO
+		dc.b	C_Code1,12*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbpl		MACRO
+		dc.b	C_Code1,13*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbmi		MACRO
+		dc.b	C_Code1,14*16+C_Code2
+		dc.w	\1
+		ENDM
+Rdata		MACRO
+		dc.b	C_Code1,15*16+C_Code2
+		dc.w	C_CodeD
+		ENDM
+Ret_Inst	MACRO
+		rts
+;		dc.b	C_Code1,15*16+C_Code2
+;		dc.w	C_CodeInst
+		ENDM
+;Alea		MACRO
+;		move.l	a5,\2
+;		add.w	A\1(a5),\2
+;		ENDM
+*
+GfxC		MACRO
+		movem.l	d0-d7/a0-a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d7/a0-a6
+		ENDM
+
+Hunk_Public	equ	0
+Hunk_Chip	equ	$40000000
+
+N_HunkLib	equ	1		Nombre de hunks amos.library
+N_HunkSys	equ	9		Nombre de hunks systeme
+
+NH_Header	equ	0		Le header
+NH_Prog		equ	1		Le programme
+NH_Libraries	equ	2		Les librairies
+NH_Reloc	equ	3		La relocation
+NH_amoslib	equ	4		amos.library
+NH_Mouse	equ	5		La mouse.abk
+NH_Env		equ	6		L'environement
+NH_DefaultBank	equ	7		La banque par defaut
+NH_ErrorMessage	equ	8		Les messages d'erreur
+NH_Banks	equ	9		Debut des banques
+
+FHead_Run	equ	0
+FHead_Short	equ	1
+FHead_PRun	equ	2
+FHead_Backed	equ	3
+
+FPrg_DefRunAcc	equ	0
+FPrg_Default	equ	1
+FPrg_Wb		equ	2
+
+; 		Zone de sauvegarde des donn�es short-run
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Short_Name	rs.b	128
+Short_Path	rs.b	256
+Short_Command	rs.b	256
+Short_Save	equ	__RS
+
+;		Header procedure compilee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+APrg_MathFlags	rs.w	1		0
+APrg_Relocation	rs.l	1		2
+APrg_EndProc	rs.l	1		6
+APrg_OldReloc	rs.l	1		10
+		rs.b	16-__RS		Jusqu'� 16
+APrg_Program	equ	__RS
+;---------------------------------------------------------------------
diff --git a/+Debug.s b/+Debug.s
new file mode 100644
index 0000000..8996eb2
--- /dev/null
+++ b/+Debug.s
@@ -0,0 +1,32 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+; No Debugging!
+; ~~~---~~~~~~~
+Debug		set	0
diff --git a/+Edit.s b/+Edit.s
new file mode 100644
index 0000000..be8f5b5
--- /dev/null
+++ b/+Edit.s
@@ -0,0 +1,15408 @@
+; ______________________________________________________________________________
+; ..............................................................................
+; ...................................................................2222222....
+; ................................................................22222222220...
+; ...................................................222........222222.....222..
+; ..............................................2202222222222..22000............
+; ..................................22000.....20222222222200000200002...........
+; .................................2002202...2222200222.220000000200000000022...
+; ....................220002......22222200..2200002.......2200000...20000000000.
+; ....................22222202....2220000022200000..........200002........200000
+; .....200000.........2222200000222200220000000002..........200002........20000.
+; .....00222202........2220022000000002200002000002........2000002000020000000..
+; ....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+; ....220000200002......20000..200002..220000200000000000000002.......22........
+; ...2220002.2200002....220002...22.....200002..0000000000002...................
+; ...220000..222000002...20000..........200000......2222........................
+; ...000000000000000000..200000..........00002..................................
+; ..220000000022020000002.200002.........22.......______________________________
+; ..0000002........2000000220022.................|
+; .200000............2002........................| Editor
+; .200002........................................| Modif
+; 220002.........................................|______________________________
+; ______________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ______________________________________________________________________________
+		Include	"+Debug.s"
+		IFEQ	Debug=2
+		Include "+AMOS_Includes.s"
+		Include "+Version.s"
+		ENDC
+;_____________________________________________________________________________
+
+
+; Branchements internes � l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EDebut		dc.l	Ed_Cold-EDebut
+		dc.l	Ed_Title-EDebut
+		dc.l	Ed_End-EDebut
+		dc.l	Ed_Loop-EDebut
+		dc.l	Ed_ErrRun-EDebut
+		dc.l	Ed_CloseEditor-EDebut
+		dc.l	Ed_KillEditor-EDebut
+		dc.l	Ed_ZapFonction-EDebut
+		dc.l	Ed_ZapIn-EDebut
+		dc.l	Ed_RunDirect-EDebut
+		dc.l	Tokenise-EDebut
+		dc.l	Detok-EDebut
+		dc.l	Mon_Detok-EDebut
+		dc.l	TInst-EDebut
+		dc.l	0
+
+; ______________________________________________________________________________
+
+Ed_AutoMarksNb	equ	4
+;______________________________________________________________________________
+;
+Ed_SlHDeltaG	equ	-2
+Ed_SlHDeltaD	equ	1
+Ed_SlHDeltaH	equ	2
+Ed_SlHSy	equ	2
+Ed_SlVDeltaG	equ	6
+Ed_SlVDeltaH	equ	11
+Ed_SlVSx	equ	4
+Ed_SlVDeltaB	equ	-1
+Ed_SlHDy	equ	2
+Ed_SlVDx	equ	4
+
+Ed_ZBoutons	equ	1000
+Ed_XScrollG	equ	20
+Ed_XScrollD	equ	10
+Ed_YScrollH	equ	4
+Ed_YScrollB	equ	4
+
+Ed_YTop		equ	0
+Ed_TitreSy	equ	16
+Edt_EtatSy	equ	11
+Edt_BasSy	equ	5
+Edt_BtSx	equ	24
+
+; Images dans la banque
+; ~~~~~~~~~~~~~~~~~~~~~
+Ed_Pics		equ	1
+Ed_BtPics	equ	Ed_Pics+4
+Ed_BoutonsPics	equ	Ed_BtPics+2*3
+Ed_MemoryPics	equ	Ed_BoutonsPics+2*12
+Es_Pics		equ	Ed_MemoryPics+3
+Es_BoutonsPics	equ	Es_Pics+3
+
+Ed_LogoSx	equ	32*5
+Ed_MemorySy	equ	2
+Ed_MemoryY1	equ	Ed_YTop+3
+Ed_MemoryY2	equ	Ed_YTop+10
+; Gros boutons
+; ~~~~~~~~~~~~
+Ed_BoutonsSx	equ	32
+Ed_BoutonsSy	equ	16
+Ed_TitleSx	equ	Ed_BoutonsSx*5
+Ed_BoutonsX	equ	Ed_BoutonsSx+Ed_TitleSx
+Ed_BoutonsY	equ	Ed_YTop
+Ed_BoutonsZones	equ	128
+
+; Boutons Escape
+; ~~~~~~~~~~~~~~
+Es_BoutonsSx	equ	32
+Es_BoutonsSy	equ	16
+Es_BoutonsZones	equ	1
+Es_TitleSx	equ	Es_BoutonsSx*4
+Es_TitleSy	equ	16
+Es_BoutonsX	equ	Es_BoutonsSx+Es_TitleSx
+Es_BoutonsY	equ	0
+Es_MiniSy	equ	Es_TitleSy+8
+
+; Nombre maximum de programme hidden dans le menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_HiddenMax	equ	12
+
+; Numero du bouton ESCAPE
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Bt_Insert	equ	10
+
+; Messages
+; ~~~~~~~~
+Ed_Mes		equ	0		Debut des messages editeur
+
+Ed_DiaImages	equ	66		Debut des images dialogue dans la banque
+;	IfEQ	ROnly
+
+;______________________________________________________________________________
+;
+;					Initialisation de l'editeur
+;______________________________________________________________________________
+;
+Ed_Cold
+	clr.b	Ed_Ok(a5)		Pas en etat de marche!
+	bsr	Ed_Available
+	cmp.l	#50*1024,d1		Au moins 50k de CHIP
+	bcs.s	.Mem
+	cmp.l	#110*1024,d0		Au moins 110k de memoire en tout!
+	bcs.s	.Mem
+
+; Warm ou Cold?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	Ed_Warm(a5)
+	bne.s	.UnKill
+; Chargement vraiment � froid
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_LoadAllConfig	Charge les fichiers
+	bne.s	.Err
+	bsr	Ed_Computee		Des fenetres vides
+	bne.s	.Err
+	bsr	Ed_OpenEditor		Ouvre l'editeur
+	bne.s	.Err
+	move.b	#1,Ed_Warm(a5)		Flag change!
+	move.w	#-1,EsFlag(a5)		Force appear
+	clr.w	Direct(a5)		Pas mode direct
+	moveq	#0,d0			Pas d'erreur
+	rts
+; Chargement apres un KILL EDITOR
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.UnKill	bsr	Ed_LoadAllConfig	Recharge les configs
+	bne.s	.Err
+	moveq	#0,d0
+	rts
+; Une erreur
+; ~~~~~~~~~~
+.Mem	moveq	#1,d0
+.Err	move.l	d0,-(sp)
+	bsr	Ed_CloseEditor
+	bsr	Ed_FreeAllConfig
+	move.l	(sp)+,d0
+	rts
+
+; Apparition du titre de l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Title
+	bsr	Ed_Appear
+	bsr	Ed_WarmStart		Un Warmstart?
+	moveq	#"A",d0
+	bsr	Ed_SamPlay		Bonjour!
+	bsr	Ed_About		Titre
+	bsr	Ed_Loca			Curseur
+	rts
+
+; Fenetres d'origines d�ja comput�es?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Computee
+	move.l	Prg_List(a5),d0
+	move.l	Edt_List(a5),a4
+	move.w	#2,Ed_WMax(a5)		Par default, au moins
+.Loop	move.l	d0,a6
+	tst.b	Prg_Edited(a6)
+	bne.s	.Deja
+	moveq	#-1,d0			Visible
+	moveq	#-1,d1			Pas de structure PRG
+	bsr	Edt_OpWindow		Va ouvrir >>> fenetre courante
+	bne.s	.Err
+	move.l	a6,Edt_Prg(a4)
+	addq.b	#1,Prg_Edited(a6)
+.Deja	move.l	Prg_Next(a6),d0
+	bne.s	.Loop
+	moveq	#0,d0
+	rts
+.Err	moveq	#1,d0			Out of memory!
+	rts
+
+; Effacement de tous les fichiers de config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_FreeAllConfig
+	bsr	Ed_SamEnd		Les sons
+	bsr	EdMa_End		Les macros
+	bsr	EdC_Free		Les configs
+	bsr	Ed_ResourceFree		La resource
+	rts
+; Chargement de tous les fichiers de config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_LoadAllConfig
+; Charge la configuration de l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#7,d0
+	JJsr	L_Sys_GetMessage
+	JJsrR	L_Sys_AddPath,a1
+	bsr	EdC_Load
+	bne.s	.Err
+; Charge la banque de resource
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#45,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	bsr	Ed_ResourceLoad
+	bne.s	.Err
+; Charge les macros par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#46,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	bsr	EdMa_Load
+	bne.s	.Err
+; Charge les sons par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_SamChanged
+	moveq	#0,d0
+.Err	rts
+
+
+;______________________________________________________________________________
+;
+;							Fin
+;______________________________________________________________________________
+;
+Ed_System
+	JJmp	L_TheEnd
+Ed_End	tst.b	Ed_Ok(a5)			Systeme installe?
+	beq.s	.Skip
+	bsr	Edt_DelWindows			Enleve les fenetres
+.Skip	lea	Ed_Prg2ReLoad(a5),a0		Programme a recharger
+	bsr	Ed_MemFree
+	bsr	Ed_CloseEditor			Ferme l'editeur
+	bsr	Ed_FreeAllConfig		Delete les configs
+	rts
+
+;______________________________________________________________________________
+;
+;							CLOSE/OPEN EDITOR
+;______________________________________________________________________________
+;
+
+Ed_OpenEditor
+	movem.l	d1-d7/a0-a6,-(sp)
+	tst.b	Ed_Opened(a5)
+	bne.s	.Ok
+
+	bsr	Ed_OpenIt		Premier essai
+	beq.s	.Ok
+
+	bsr	Ed_CloseIt		Out of mem, on efface
+	bsr	EdM_Program		Menus du programme
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_SetBanks		Change les banques
+	JJsr	L_MemMaximum		Nettoie au maximum!
+
+	bsr	Ed_OpenIt		Deuxieme essai!
+	beq.s	.Ok
+	bsr	Ed_CloseIt
+	bsr	EdM_Program
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_SetBanks		Change les banques
+	JJsr	L_MemDelBanks		Ligne: effacer les banques?
+	beq	Ed_System		NON: on sort!
+	JJsr	L_Bnk.EffAll		Efface toutes les banques
+	JJsr	L_Bnk.Change		Changement de banques
+
+	bsr	Ed_OpenIt
+	beq.s	.Ok
+	bsr	Ed_CloseIt
+	moveq	#1,d0			Out of mem
+	bra.s	.Out
+.Ok	move.b	#1,Ed_Opened(a5)	Flag!
+	moveq	#0,d0			C'est bon!
+.Out	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+
+; Routine d'ouverture de l'editeur...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_OpenIt
+	bsr	Ed_SetBanks
+	bsr	EdM_Editor
+; Verification de la taille des fenetres / Config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	EdC_Modified(a5)
+	beq	.ModX
+	clr.b	EdC_Modified(a5)
+	move.l	Edt_Current(a5),d0	Des fenetres?
+	beq	.ModX
+; Verification de la taille en Y
+	move.l	d0,a4			Fenetre courante
+	moveq	#-1,d0			Sans toucher les autres
+	bsr	Edt_WMaxSize
+	cmp.w	Edt_WindTy(a4),d0	Pareil?
+	beq.s	.Mod5
+	moveq	#0,d0			Reduit les autres
+	bsr	Edt_WSchrinkAll
+	moveq	#-1,d0
+	bsr	Edt_WMaxSize		Taille maxi acceptable
+	move.w	d0,Edt_WindTy(a4)
+	bgt	.Mod5			Ok!
+.Mod2	move.w	#1,Edt_WindTy(a4)	Taille mini!
+	moveq	#Ed_TitreSy,d1		Compte la taille necessaire!
+	move.l	Edt_List(a5),d0		Toute la liste
+.Mod3	move.l	d0,a0
+	tst.b	Edt_Hidden(a0)		Deja cachee
+	bne.s	.Mod4
+	add.w	#Edt_EtatSy+Edt_BasSy,d1
+	move.w	Edt_WindTy(a0),d0
+	lsl.w	#3,d0
+	add.w	d0,d1
+.Mod4	move.l	Edt_Next(a0),d0
+	bne.s	.Mod3
+	move.w	d1,Ed_Sy(a5)		Change la config!!!!
+; Verification de la position du curseur en X
+.Mod5	move.w	Ed_Sx(a5),d1		Derniere limite curseur
+	lsr.w	#3,d1
+	subq.w	#3,d1
+	move.l	Edt_List(a5),d0		Toute la liste
+.Mod6	move.l	d0,a0
+	tst.b	Edt_Hidden(a0)		Deja cachee
+	bne.s	.Mod7
+	move.w	Edt_XCu(a0),d0
+	cmp.w	d1,d0
+	bcs.s	.Mod7
+	move.w	d1,Edt_XCu(a0)
+	sub.w	d1,d0
+	add.w	d0,Edt_XPos(a0)
+.Mod7	move.l	Edt_Next(a0),d0
+	bne.s	.Mod6
+.ModX
+	bsr	EdC_SetPalette		Update de la palette
+
+	moveq	#EcFonc,d0		Ouverture de l'ecran de fonctions
+	move.w	Ed_Sx(a5),d1
+	ext.l	d1
+	moveq	#Es_TitleSy,d2
+	moveq	#0,d3
+	move.l	Ed_Resource(a5),a0
+	add.l	2(a0),a0
+	moveq	#0,d4
+	JJsrR	L_Dia_RScOpen,a1
+	bne	.Error
+	bset	#BitHide,EcFlags(a0)
+	move.w	Ed_Wx(a5),EcAWX(a0)
+	moveq	#20,d1
+	SyCall	ResZone
+	bne	.Error
+
+	moveq	#EcEdit,d0		Ouverture de l'ecran principal
+	move.w	Ed_Sx(a5),d1
+	ext.l	d1
+	move.w	Ed_Sy(a5),d2
+	addq.w	#7,d2
+	and.w	#$FFF8,d2
+	move.w	d2,d3
+	sub.w	#16,d3
+	sub.w	#Ed_YTop,d3
+	lsr.w	#3,d3
+	move.w	d3,Ed_Ty(a5)
+	ext.l	d2
+	moveq	#1,d3
+	moveq	#0,d4			Interlaced?
+	move.b	Ed_Inter(a5),d4
+	move.l	Ed_Resource(a5),a0
+	add.l	2(a0),a0
+	JJsrR	L_Dia_RScOpen,a1
+	bne.s	.Error
+	bset	#BitHide,EcFlags(a0)
+	move.w	Ed_Wx(a5),EcAWX(a0)
+	move.w	Ed_Wy(a5),EcAWY(a0)
+	moveq	#10,d0
+	bsr	Et_Print
+
+	move.w	Ed_Ty(a5),d0		Buffer d'edition
+	mulu	#256,d0
+	SyCall	MemFast
+	move.l	a0,Ed_BufE(a5)
+	beq	.Error
+
+	moveq	#0,d0			Nombre maximum de programmes
+	move.w	Ed_Ty(a5),d0
+	subq.w	#6,d0
+	divu	#3,d0
+	move.w	d0,Ed_WMax(a5)
+
+	jsr	Tok_Init		Les tables de tokenisation
+	bne.s	.Error
+	bsr	Ed_InitDialogues	Les dialogues
+	bne.s	.Error
+	bsr	EdM_Init		Cree les menus
+	bne.s	.Error
+	bsr	Prg_CreateUndos		Les buffers UNDOS de programmes
+
+; Pas d'erreur
+	clr.b	EdC_Modified(a5)	Config adaptee...
+	moveq	#0,d0			Pas d'erreur!
+	rts
+; Out of memory
+.Error	moveq	#1,d0			Out of memory
+	rts
+
+
+; 	Fermeture generale de l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_KillEditor
+	bsr	Ed_CloseEditor		Plus rien
+	bsr	Ed_FreeAllConfig	Plus aucune configuration
+	clr.b	Ed_Ok(a5)		Plus en etat de marche...
+	rts
+
+;	Fermeture de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CloseEditor
+	tst.b	Ed_Opened(a5)
+	beq.s	.Skip
+	clr.b	Ed_Opened(a5)
+	movem.l	d0-d7/a0-a6,-(sp)
+	bsr	Ed_CloseIt
+	movem.l	(sp)+,d0-d7/a0-a6
+.Skip	rts
+
+; Routine de fermeture..
+; ~~~~~~~~~~~~~~~~~~~~~~
+Ed_CloseIt
+	bsr	Ed_SetBanks		Banques de l'editeur
+	bsr	Prg_FreeUndos		Plus de buffer UNDOS
+	bsr	Esc_KMemEnd		Plus de touches de mode direct
+	bsr	Ed_AllAverFin		Plus d'avertissement
+	bsr	Ed_BlocFree		Plus de bloc
+	bsr	EdM_End			Plus de menus
+	bsr	Ed_EndDialogues		Plus de dialogues
+	bsr	Edt_DelAllZones		Plus de zones de fenetres
+	EcCalD	Del,EcEdit		Plus d'ecrans
+	EcCalD	Del,EcFonc
+	jsr	Tok_Del			Plus de tokenisation
+	move.l	Ed_BufE(a5),d0		Plus de buffer d'edition
+	beq.s	.Skip
+	clr.l	Ed_BufE(a5)
+	move.l	d0,a1
+	move.w	Ed_Ty(a5),d0
+	mulu	#256,d0
+	SyCall	MemFree
+.Skip	rts
+
+; Retourne la memoire libre dans la machine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Available
+	movem.l	a0/a1/a6,-(sp)
+	move.l	$4.w,a6
+	move.l	#Public|Fast,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,d2
+	move.l	#Public|Chip,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,d1
+	add.l	d2,d0
+	movem.l	(sp)+,a0/a1/a6
+	rts
+
+;______________________________________________________________________________
+;
+; 			WARM START Charge le fichier / Prepare l'editeur
+;______________________________________________________________________________
+;
+Ed_WarmStart
+; Fichier "Last Cession" present?
+	moveq	#47,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	JJsr	L_RExist
+	beq	.Out
+; Message
+	move.w	#159,d0
+	bsr	Ed_AverMess
+; Efface la premiere fenetre systeme
+	move.l	Edt_List(a5),d0
+	beq.s	.No1
+	move.l	d0,a4
+	bsr	Edt_DelWindow
+.No1
+; PHASE 1: re-creation des listes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1005,d2		Ouvre le fichier
+	bsr	Ed_Open
+	beq	.Err1
+; Verifie l'entete
+	move.l	Buffer(a5),a3
+	move.l	a3,d2
+	moveq	#8,d3
+	bsr	Ed_Read
+	bne	.Err0
+	cmp.l	#Ed_QuitHead,(a3)
+	bne	.Err0
+; Charge dans un buffer
+	move.l	4(a3),d0		Taille necessaire
+	JJsr	L_ResTempBuffer
+	beq	.Err0
+	move.l	a0,d2
+	move.l	4(a3),d3
+	bsr	Ed_Read
+	bne	.Err0
+	bsr	Ed_Close
+; Trouve les structures
+	move.l	TempBuffer(a5),a6	A6= Structures programmes
+	move.l	a6,a4			A4= Structures edition
+	moveq	#-8,d0
+.GLoop	lea	8(a4,d0.l),a4
+	move.l	4(a4),d0
+	tst.l	(a4)+
+	bne.s	.GLoop
+; Recree la liste PRG
+	lea	Prg_List(a5),a2
+	move.l	a6,a3
+.PCree	move.l	#Prg_Long,d0		Reserve la memoire
+	SyCall	MemFastClear
+	beq	.Err
+	move.l	a0,Prg_Next(a2)		Branche dans la liste
+	move.l	a0,a2
+	move.l	a0,8(a3)		Stocke l'adresse
+	moveq	#Prg_Long/2-1,d0
+	lea	12(a3),a1
+.PCop	move.w	(a1)+,(a0)+		Copie les datas
+	dbra	d0,.PCop
+	move.l	Prg_StTTexte(a2),Prg_StBas(a2)
+	clr.l	Prg_StTTexte(a2)
+	clr.l	Prg_Dialogs(a2)		Erase donnees importantes!
+	clr.l	Prg_Banks(a2)
+	clr.l	Prg_Undo(a2)
+	clr.l	Prg_AdEProc(a2)
+	clr.l	Prg_ZapData(a2)
+	clr.l	Prg_RunData(a2)
+	clr.l	Prg_Previous(a2)
+	move.l	4(a3),d0		Encore un?
+	lea	12(a3,d0.l),a3
+	tst.l	(a3)
+	bne.s	.PCree
+; Recree la liste EDT
+	lea	Edt_List(a5),a2
+	move.l	a4,a3
+.ECree	move.l	#Edt_Long,d0		Reserve la memoire
+	SyCall	MemFastClear
+	beq	.Err
+	move.l	a0,Edt_Next(a2)		Branche dans la liste
+	move.l	a0,a2
+	move.l	a0,8(a3)		Change le pointeur
+	moveq	#Edt_Long/2-1,d0
+	lea	12(a3),a1
+.ECop	move.w	(a1)+,(a0)+		Copie les datas
+	dbra	d0,.ECop
+	move.l	4(a3),d0		Encore un?
+	lea	12(a3,d0.l),a3
+	tst.l	(a3)
+	bne.s	.ECree
+; Relinke les fenetres
+	move.l	Edt_List(a5),a3
+.LLoop	lea	Edt_Prg(a3),a0		Structure programme
+	move.l	a6,a1			Explorer les programmes
+	bsr	.Linke
+	lea	Edt_LinkPrev(a3),a0	Link previous
+	move.l	a4,a1
+	bsr	.Linke
+	lea	Edt_LinkNext(a3),a0	Link next
+	move.l	a4,a1
+	bsr	.Linke
+	lea	Edt_LinkScroll(a3),a0	Link de scroll
+	move.l	a4,a1
+	bsr	.Linke
+	tst.w	Edt_Order(a3)		Programme courant?
+	beq.s	.Pac
+	move.l	a3,Edt_Current(a5)
+.Pac	move.l	Edt_Next(a3),d0
+	move.l	d0,a3
+	bne.s	.LLoop
+; On peut effacer le buffer!
+	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+
+; PHASE 2 : recharge tous les programmes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_List(a5),a6
+.CLoop	lea	Prg_NamePrg(a6),a0	Recopie le nom
+	move.l	Name1(a5),a1
+	bsr	EdCocop
+	move.l	Prg_StBas(a6),d0	Change la taille du buffer
+	JJsr	L_Prg_ChgTTexte
+	beq	.Err
+	moveq	#1,d0			Charge sans adapter
+	JJsr	L_Prg_Load
+	bne	.Err
+	tst.b	Prg_NoNamed(a6)		Enleve le nom si necessaire
+	beq.s	.Name
+	clr.b	Prg_NamePrg(a6)
+	clr.b	Prg_NoNamed(a6)
+	move.b	#1,Prg_Change(a6)	Force une sauvegarde si close...
+	move.l	a6,-(sp)
+	move.l	Name1(a5),d1		Efface, si possible
+	move.l	DosBase(a5),a6		Sans verification...
+	jsr	_LVODeleteFile(a6)
+	move.l	(sp)+,a6
+.Name	move.l	Prg_Next(a6),d0
+	move.l	d0,a6
+	bne.s	.CLoop
+
+; TERMINE: efface le fichier, puis raffiche les fenetres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	.DelFichier
+	bsr	Prg_CreateUndos
+	bsr	EdM_BranchAMOS
+	bsr	Ed_DrawWindows
+.Out	rts
+
+
+; Destruction du fichier d'informations
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.DelFichier
+	bsr	Ed_Close
+	moveq	#47,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	move.l	Name1(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVODeleteFile(a6)
+	tst.l	d0
+	beq.s	.DelPa
+	rts
+.DelPa	moveq	#EdD_WarmDel,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	beq.s	.DelFichier
+; Efface tout, puis FATAL!
+	bsr	.Err
+	bra	Ed_System
+
+; Change les pointeurs de fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Linke	move.l	(a0),d0
+	beq.s	.PoX
+.PoL	cmp.l	(a1),d0
+	beq.s	.PoF
+	move.l	4(a1),d1
+	lea	12(a1,d1.w),a1
+	tst.l	(a1)
+	bne.s	.PoL
+.PoF	move.l	8(a1),(a0)
+.PoX	rts
+
+; Erreur pendant le rechargement: efface tout!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Err
+; Les programmes
+	move.l	Prg_List(a5),d6
+	bra.s	.EPrg1
+.EPrg0	move.l	d6,a6
+	move.l	Prg_Next(a6),d6		Stocke le suivant
+	moveq	#0,d0			Buffer eventuellement reserve
+	JJsr	L_Prg_ChgTTexte
+	move.l	Prg_Banks(a6),Cur_Banks(a5)
+	JJsr	L_Bnk.EffAll		Banques eventuellement reservees
+	move.l	a6,a1			Libere la memoire
+	move.l	#Prg_Long,d0
+	SyCall	SyFree
+.EPrg1	tst.l	d6			Encore un?
+	bne.s	.EPrg0
+	clr.l	Prg_List(a5)
+; Les fenetres
+	move.l	Edt_List(a5),d4
+	bra.s	.EEdt1
+.EEdt0	move.l	d4,a4
+	move.l	Edt_Next(a4),d4		Stocke le suivant
+	move.l	a4,a1			Libere la memoire
+	move.l	#Edt_Long,d0
+	SyCall	SyFree
+.EEdt1	tst.l	d4			Encore un?
+	bne.s	.EEdt0
+	clr.l	Edt_List(a5)
+; Va effacer le fichier
+.Err1	bsr	.DelFichier
+; Ferme le fichier courant
+.Err0	bsr	Ed_Close		Ferme le fichier
+	moveq	#0,d0			Efface le buffer
+	JJsr	L_ResTempBuffer
+; ROuvre la premiere fenetre
+	clr.l	Edt_Current(a5)
+	moveq	#-1,d0			Visible
+	move.l	PI_DefSize(a5),d1	Taille
+	sub.l	a4,a4			Pas de fenetre courante
+	bsr	Edt_OpWindow
+	bsr	EdM_BranchAMOS
+	bsr	Ed_DrawWindows
+; Boite de dialogue
+	moveq	#EdD_WarmErr,d0
+	bsr	Ed_Dialogue
+	rts
+
+;______________________________________________________________________________
+;
+;						Dessin du titre
+;______________________________________________________________________________
+;
+Ed_DrawTop
+
+	movem.l	a2/d2-d7,-(sp)
+
+;
+; Reserve les zones
+; ~~~~~~~~~~~~~~~~~
+	move.l	#Ed_BoutonsZones+15,d1
+	SyCall	ResZone
+	move.w	Ed_Sx(a5),d7
+
+; Unpack le logo AMOS
+; ~~~~~~~~~~~~~~~~~~~
+	moveq	#Ed_Pics,d0
+	moveq	#Ed_BoutonsSx,d1
+	moveq	#Ed_YTop,d2
+	bsr	Ed_Unpack
+	sub.w	#Ed_TitleSx,d7
+;
+; Cree les 12 boutons
+; ~~~~~~~~~~~~~~~~~~~
+	lea	Ed_Boutons(a5),a2
+	move.w	#Ed_BoutonsX,d2
+	moveq	#Ed_BoutonsY,d3
+	moveq	#Ed_BoutonsPics,d4
+	move.w	#Ed_BoutonsZones,d5
+	moveq	#1,d6
+.Loop	move.w	d6,Bt_Number(a2)
+	cmp.w	#1,d6
+	bne.s	.Pa1
+	clr.w	Bt_X(a2)			Bouton DIRECT
+	bra.s	.PaB
+.Pa1	cmp.w	#2,d6
+	bne.s	.Pa2
+	move.w	Ed_Sx(a5),Bt_X(a2)		Bouton WB
+	sub.w	#Ed_BoutonsSx,Bt_X(a2)
+	bra.s	.PaB
+.Pa2	move.w	d2,Bt_X(a2)
+	add.w	#Ed_BoutonsSx,d2
+.PaB	move.w	d3,Bt_Y(a2)
+	move.w	d4,Bt_Image(a2)
+	move.w	d5,Bt_Zone(a2)
+	lea	Bt_RoutIn(pc),a0
+	move.l	a0,Bt_Routines(a2)
+	move.b	#6,Bt_RDraw(a2)
+	clr.b	Bt_RPos(a2)
+	clr.b	Bt_RChange(a2)
+	clr.b	Bt_Flags(a2)
+	clr.w	Bt_Pos(a2)
+	cmp.w	#Bt_Insert,d6			Bouton INSERT?
+	bne.s	.PaI
+	bset	#Bt_FlagOnOf,Bt_Flags(a2)
+	tst.b	Ed_Insert(a5)
+	bne.s	.PaI
+	move.w	#1,Bt_Pos(a2)
+.PaI	move.b	#Ed_BoutonsSx,Bt_Sx(a2)
+	move.b	#Ed_BoutonsSy,Bt_Sy(a2)
+	addq.w	#2,d4
+	addq.w	#1,d5
+	move.l	a2,a0
+	moveq	#1,d0
+	JJsrR	L_Bt_Init,a1
+	sub.w	#Ed_BoutonsSx,d7
+	lea	Bt_Long(a2),a2
+	addq.w	#1,d6
+	cmp.w	#12,d6
+	bls	.Loop
+	clr.w	(a2)
+
+; Dessine les sliders de memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d2,d1
+	moveq	#Ed_YTop,d2
+	move.w	d7,d3
+	lea	Ed_Unpack(pc),a2
+	bsr	Ed_MemoryDraw
+	bsr	Ed_MemoryAff
+
+; Fini!
+; ~~~~~
+	movem.l	(sp)+,a2/d2-d7
+	rts
+
+; Dessine les sliders de memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1=	X
+;	D2=	Y
+;	D3=	Largeur
+;	A2= 	Adresse UNPACK
+Ed_MemoryDraw
+	move.w	d3,d0
+	sub.w	#Ed_BoutonsSx+7,d0
+	move.w	d0,Ed_MemorySx(a5)
+
+	moveq	#Ed_MemoryPics,d0	La gauche
+	jsr	(a2)
+	add.w	#Ed_BoutonsSx,d1
+ 	move.w	d1,Ed_MemoryX(a5)
+
+	divu	#Ed_BoutonsSx,d3
+	subq.w	#2+1,d3
+.Loop	moveq	#Ed_MemoryPics+1,d0
+	jsr	(a2)
+	add.w	#Ed_BoutonsSx,d1
+	dbra	d3,.Loop
+	moveq	#Ed_MemoryPics+2,d0
+	jmp	(a2)
+
+; Dessine le contenu des sliders de memoire.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_MemoryAff
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+; Dessin du slider de CHIP MEM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#Chip|Public,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,-(sp)
+	move.l	MemChipTotal(a5),d4
+	move.l	d4,d3
+	sub.l	d0,d3
+	move.w	Ed_MemoryX(a5),d1
+	move.w	#Ed_MemoryY1,d2
+	bsr	.Memory
+; Dessin du slider de FAST MEM
+	move.l	#Public|Fast,d1
+	jsr	_LVOAvailMem(a6)
+	add.l	d0,(sp)
+	move.l	MemFastTotal(a5),d4
+	move.l	d4,d3
+	sub.l	d0,d3
+	move.w	Ed_MemoryX(a5),d1
+	move.w	#Ed_MemoryY2,d2
+	bsr	.Memory
+; Stocke le resultat memoire globale
+	move.l	(sp)+,Ed_MemCurrent(a5)
+	move.l	(sp)+,a6
+	rts
+
+; Routine de dessin
+; ~~~~~~~~~~~~~~~~~
+.Memory
+; Une place dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),a2
+	move.l	a2,a0
+	moveq	#Sl_Long-1,d0
+.Loop	clr.b	(a0)+
+	dbra	d0,.Loop
+; Longueur du slider
+	lsr.l	#8,d4
+	lsr.l	#8,d3
+	move.w	d4,Sl_Global(a2)
+	move.w	d3,Sl_Window(a2)
+; Position
+	move.w	d1,Sl_X(a2)
+	move.w	d2,Sl_Y(a2)
+	move.w	Ed_MemorySx(a5),Sl_Sx(a2)
+	move.w	#Ed_MemorySy,Sl_Sy(a2)
+; Couleurs
+	moveq	#23,d0
+	bsr	Ed_GetSysteme
+	lea	Sl_Inactive(a2),a1
+	moveq	#16-1,d0
+.Co	moveq	#0,d1
+	move.b	(a0)+,d1
+	move.w	d1,(a1)+
+	dbra	d0,.Co
+; Appelle le dessin
+	move.l	a2,a0
+	JJsrR	L_Sl_Init,a1
+	rts
+
+;______________________________________________________________________________
+;
+;						Boucle principale de l'�diteur
+;______________________________________________________________________________
+;
+Ed_Loop
+
+	move.l	BasSp(a5),sp
+	EcCalD	Active,EcEdit
+
+; Flag: editeur en etat de marche!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	#1,Ed_Ok(a5)
+ 	move.w	#1,T_AMOState(a5)	Editeur present!
+
+; Efface une fenetre en rab
+; __________________________
+;
+	move.l	Ed_WindowToDel(a5),d0
+	beq.s	.PaDel
+	move.l	d0,a4
+	clr.l	Ed_WindowToDel(a5)
+	tst.b	Edt_Hidden(a4)
+	bne.s	.Visi
+	bsr	Ed_CloseWindow
+	bra	Ed_Loop
+.Visi	bsr	Edt_DelWindow
+	bsr	EdM_BranchAMOS
+	bra	Ed_Loop
+.PaDel
+;
+; Eventuellement, efface tous les avertissements
+; ______________________________________________
+;
+	bsr	Ed_AllAverFin
+;
+; Recharge un programme apres PRG COMMAND
+; _______________________________________
+;
+	move.l	Ed_Prg2ReLoad(a5),d0
+	bne	Ed_PrgReLoad
+
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	move.b	Prg_MathFlags(a6),MathFlags(a5)
+;
+; Securites
+; __________________________
+;
+	clr.b	Ed_FUndo(a5)		Undo
+	clr.b	Ed_RunnedHidden(a5)
+
+;
+; Gestion des multi windows
+; ___________________________
+;
+	moveq	#0,d0
+	move.l	a4,a0
+	or.b	Ed_SCallFlags(a5),d0
+	bsr	Ed_Splitted
+	clr.b	Ed_SCallFlags(a5)
+;
+; Gestion des scrollings lies
+; _____________________________
+;
+	bsr	Ed_LinkeScroll
+;
+; Gestion du curseur avec un bloc
+; _______________________________
+;
+	bsr	Ed_BlocAff
+;
+; Gestion de la fenetre d'informations pour toutes les fenetres
+; _____________________________________________________________
+;
+; Exploration de la liste
+	move.l	Edt_List(a5),d0
+.Liip	move.l	d0,a4
+	tst.b	Edt_Hidden(a4)
+	bne.s	.Naxt
+	move.l	Edt_Prg(a4),a6
+; Affichage general
+; ~~~~~~~~~~~~~~~~
+	move.b	Ed_EtatAff(a5),d0
+	or.b	d0,Edt_EtatAff(a4)
+; Efface le message d'alerte?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	Edt_EtMess(a4)
+	beq.s	.PaMess
+	subq.w	#1,Edt_EtMess(a4)
+	bne.s	.PaMess
+	move.b	#EtA_BAll,Edt_EtatAff(a4)
+.PaMess
+; Va reafficher la fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_EtPrintD0
+; Affiche le slider
+; ~~~~~~~~~~~~~~~~~
+	tst.b	Edt_ASlY(a4)
+	beq.s	.PaSlY
+	subq.b	#1,Edt_ASlY(a4)
+	bne.s	.PaSlY
+	bsr	Ed_AffSlV
+.PaSlY
+; Suivant
+; ~~~~~~~
+.Naxt	move.l	Edt_Next(a4),d0
+	bne.s	.Liip
+	clr.b	Ed_EtatAff(a5)
+
+;
+; Demarre les menus si pas definis
+; ________________________________
+;
+	tst.b	Ed_Zappeuse(a5)			Pas en zappeuse
+	bne.s	.Menula
+	cmp.l	#1024*72,Ed_MemCurrent(a5)	Si moins de 72k
+	bcc.s	.Domenu
+	tst.b	Ed_NewAppear(a5)		Peut-on essayer un clearvar?
+	beq.s	.Menula
+	subq.b	#1,Ed_NewAppear(a5)
+	bne.s	.Deuse
+; Fait un peu de place
+	JJsr	L_Mon_Free			Plus de moniteur
+	JJsr	L_Math_Close			Plus de librairie math
+	bsr	Prg_RazUndos			Plus d'UNDO
+	SyCall	MemFlush			Flush la memoire...
+; Essaie d'ouvrir les menus...
+.Deuse	move.w	#186,d0				Low memory!
+	bsr	Ed_GetMessage
+	moveq	#125,d0
+	bsr	Ed_AlertRts
+	clr.b	Ed_Sounds(a5)			Plus de sons
+	bsr	Ed_SamChanged
+	bsr	EdM_Program
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_SetBanks
+	JJsr	L_MemMaximum
+.Domenu	tst.l	EdM_Table(a5)			Les menus sont la?
+	bne.s	.Menula
+	bsr	EdM_Init
+	bra	Ed_Loop
+.Menula
+
+;
+; Gestion du programme courant
+; ____________________________________
+;
+	move.l	Edt_Current(a5),a4		Fenetre
+	move.l	Edt_Prg(a4),a6
+	move.w	Edt_Window(a4),d1
+	WiCall	QWindow
+	tst.b	Ed_CuFlag(a5)			Curseur
+	bne.s	.PaCu
+	move.b	#1,Ed_CuFlag(a5)
+	bsr	Ed_CuOn
+.PaCu
+
+;
+; Scrolling pour recentrer le curseur?
+; ____________________________________
+;
+; 1. A gauche
+; ~~~~~~~~~~~
+	move.w	Edt_XPos(a4),d0
+	move.w	Edt_XCu(a4),d1
+	sub.w	d0,d1
+	cmp.w	#Ed_XScrollG,d1
+	bcc.s	.SkipL
+	tst.w	d0
+	beq.s	.SkipL
+	bsr	Ed_CuOff
+	bsr	Ed_CGo
+	bra	Ed_Loop
+.SkipL
+; 2. A droite
+; ~~~~~~~~~~~
+	move.w	Edt_WindTx(a4),d1
+	sub.w	Edt_XCu(a4),d1
+	add.w	d0,d1
+	cmp.w	#Ed_XScrollD,d1
+	bcc.s	.SkipD
+	cmp.w	#200,d0
+	bcc.s	.SkipD
+	bsr	Ed_CuOff
+	bsr	Ed_CDr
+	bra	Ed_Loop
+.SkipD
+; Haut / Bas, calcule les tailles
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Edt_WindTy(a4),d1
+	cmp.w	#2,d1
+	bls.s	.SEnd
+	moveq	#1,d2
+	moveq	#1,d3
+	cmp.w	#7,d1
+	bcs.s	.SkipT
+	moveq	#Ed_YScrollH/2,d2
+	moveq	#Ed_YScrollB/2,d3
+	cmp.w	#(Ed_YScrollH+Ed_YScrollB)*2,d1
+	bcs.s	.SkipT
+	move.w	d1,d2
+	mulu	#Ed_YScrollH,d2
+	divu	#25,d2
+	move.w	d1,d3
+	mulu	#Ed_YScrollB,d3
+	divu	#25,d3
+.SkipT
+; 3. En haut.
+; ~~~~~~~~~~~
+	cmp.w	Edt_YCu(a4),d2
+	bls.s	.SkipH
+	tst.w	Edt_YPos(a4)
+	beq.s	.SkipH
+	bsr	Ed_CuOff
+	bsr	Ed_SHaut2
+	addq.w	#1,Edt_YCu(a4)
+	bsr	Ed_Loca
+	bra	Ed_Loop
+.SkipH
+; 4. En bas
+; ~~~~~~~~~
+	move.w	Edt_WindTy(a4),d0
+	sub.w	Edt_YCu(a4),d0
+	cmp.w	d0,d3
+	bcs.s	.SEnd
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	cmp.w	Prg_NLigne(a6),d0
+	bcc	.SEnd
+	bsr	Ed_CuOff
+	bsr	Ed_SBas2
+	subq.w	#1,Edt_YCu(a4)
+	bsr	Ed_Loca
+	bra	Ed_Loop
+.SEnd
+
+;
+; Un programme en t�l�commande?
+; _____________________________
+;
+	tst.b	Ed_Zappeuse(a5)
+	beq.s	.PaProg
+	addq.w	#1,Ed_ZapCounter(a5)	Attend que l'editeur soit stabilis�
+	cmp.w	#5,Ed_ZapCounter(a5)
+	bcs	Ed_Loop
+	clr.w	Ed_ZapCounter(a5)
+	bra	Ed_ZapOut
+.PaProg
+;
+; Gestion du clavier
+; __________________
+;
+	bsr	Ed_Key
+	bne	Ed_Loop
+
+;
+; Gestion de la souris
+; ____________________
+;
+	bsr	Ed_Mouse
+	bne	Ed_Loop
+
+;
+; Reafficher le slider de memoire?
+; ________________________________
+;
+	move.w	T_VblCount+2(a5),d0
+	and.w	#63,d0
+	bne.s	.Skip
+	bsr	Ed_MemoryAff
+	bra	Ed_Loop
+.Skip
+;
+; Autosave?
+;____________
+;
+	move.l	Ed_AutoSave(a5),d0
+	beq.s	.PaAS
+	tst.l	Ed_AutoSaveRef(a5)
+	bpl.s	.Pan
+	move.l	T_VblCount(a5),Ed_AutoSaveRef(a5)
+.Pan	move.l	T_VblCount(a5),d1
+	sub.l	Ed_AutoSaveRef(a5),d1
+	cmp.l	d0,d1
+	bcs.s	.PaAS
+	move.l	Edt_Current(a5),a4
+	tst.w	Edt_LEdited(a4)		Seulement si ligne non editee
+	bne.s	.PaAS
+	move.l	#-1,Ed_AutoSaveRef(a5)
+	bsr	Ed_SaveAuto
+	bra	Ed_Loop
+.PaAS
+;
+; Multitache!
+; ___________
+;
+	JJsr	L_Sys_WaitMul
+	bra	Ed_Loop
+
+
+; __________________________________________________________________________
+;
+; 	Teste la souris
+; __________________________
+;
+Ed_Mouse
+
+
+; Une touche?
+; ~~~~~~~~~~~
+	SyCall	MouseKey
+	move.b	d1,Ed_MkIns(a5)
+	cmp.b	Ed_OMKey(a5),d1
+	bne.s	.MkC
+	addq.w	#1,Ed_MkCpt(a5)
+	bra.s	.MkS
+.MkC	clr.w	Ed_MkCpt(a5)
+	move.b	d1,Ed_OMKey(a5)
+.MkS	moveq	#1,d2
+.EdMk0	btst	d2,Ed_MkFl(a5)
+	bne.s	.EdMk1
+; Appuie sur la touche
+	btst	d2,d1
+	beq.s	.EdMk2
+	bset	d2,Ed_MkFl(a5)
+	bset	d2,Ed_MKey(a5)
+	bra.s	.EdMk2
+; Doit relacher la touche
+.EdMk1	bclr	d2,Ed_MKey(a5)
+	btst	d2,d1
+	bne.s	.EdMk2
+	bclr	d2,Ed_MkFl(a5)
+.EdMk2	dbra	d2,.EdMk0
+	move.b	Ed_MkIns(a5),d7
+	and.w	#3,d7
+	beq	Ed_MQuit
+
+; Une macro en route?
+; ~~~~~~~~~~~~~~~~~~~
+	tst.w	EdMa_Tape(a5)
+	bne	EdMa_Stop
+	tst.l	EdMa_Play(a5)
+	beq.s	.PaMacro
+	clr.l	EdMa_Play(a5)
+.PaMacro
+
+; Le menu?
+; ~~~~~~~~
+	btst	#1,d7
+	beq.s	.NoMenu
+	bsr	Ed_MnGere
+	beq	Ed_MEnd
+	bmi.s	.Err
+	moveq	#0,d1
+	bsr	Ed_FCall
+	bra	Ed_MEnd
+.Err	bsr	EdM_Error
+	bra	Ed_MEnd
+.NoMenu
+
+; Une Zone?
+; ~~~~~~~~~
+	SyCall	GetZone
+	cmp.w	#EcEdit,d1
+	bne	Ed_MQuit
+	swap	d1
+	move.w	d1,d6
+; Un bouton du haut?
+	cmp.w	#Ed_BoutonsZones,d1
+	bcc	Ed_MBouton
+; ___________________________
+;
+; Bouge une separation?
+; ___________________________
+;
+	move.w	d6,d0
+	and.w	#$FFF8,d0
+	move.w	d6,d1
+	and.w	#$07,d1
+	cmp.b	#1,d1
+	bne.s	.NoZoHo
+	bsr	Ed_TokCur
+	bsr	Edt_GetAd
+	bsr	Ed_MSepHaut
+	bra	Ed_MEnd
+.NoZoHo
+	cmp.w	#2,d1
+	bne.s	.NoZoBa
+	bsr	Ed_TokCur
+	bsr	Edt_GetAd
+	bsr	Ed_MSepBas
+	bra	Ed_MEnd
+.NoZoBa
+; _____________________
+;
+; Un bouton de fenetre
+; _____________________
+;
+	tst.w	d1
+	beq.s	.NoBt
+	bsr	Edt_GetAd
+	beq.s	.NoBt
+	lea	Edt_Bt1(a0),a0
+	JJsrR	L_Bt_Gere,a1
+	bne	Ed_MEnd
+.NoBt
+; _____________________
+;
+; Changement de fenetre
+; _____________________
+;
+	move.w	d6,d0
+	and.w	#$FFF8,d0
+	cmp.w	Edt_Window(a4),d0
+	beq.s	.Same
+; Doit changer l'�cran actuel
+	bsr	Ed_TokCur
+	bsr	Edt_GetAd
+	beq.s	.Same
+	bsr	Edt_Active
+	bra	Ed_MEnd
+.Same
+
+; ___________________
+;
+; Click dans le texte
+; ___________________
+;
+	SyCall	XyMou
+	moveq	#0,d3
+	SyCall	XyScr
+	SyCall	XyWin
+	move.l	d1,d3
+	or.l	d2,d1
+	bmi	.NoText
+
+; Positionne le curseur
+; ~~~~~~~~~~~~~~~~~~~~~
+	btst	#0,d7
+	beq.s	.NoText
+	move.w	Ed_MkCpt(a5),d0
+	beq.s	.Pos
+	cmp.w	#20,d0
+	bcs	Ed_MQuit
+.Pos
+	add.w	Edt_XPos(a4),d3
+	cmp.w	#250,d3
+	bcc	Ed_MQuit
+	add.w	Edt_YPos(a4),d2
+	cmp.w	Prg_NLigne(a6),d2
+	bhi	Ed_MQuit
+	sub.w	Edt_YPos(a4),d2
+	bsr	Ed_CuOff
+
+	cmp.w	Edt_YCu(a4),d2
+	beq.s	.Notok
+	bsr	Ed_TokCur
+.Notok	move.w	Edt_YCu(a4),d0
+	add.w	Edt_YPos(a4),d0
+	move.w	d0,Edt_YOldBloc(a4)
+
+; Mode bloc / normal
+	cmp.w	Edt_YCu(a4),d2
+	bne.s	.Noe
+	cmp.w	Edt_XCu(a4),d3
+	bne.s	.Noe
+	tst.w	Ed_MkCpt(a5)
+	bne	Ed_MEnd
+	bsr	Ed_BlocOn
+	bra	Ed_MEnd
+; Positionne le curseur
+.Noe	move.w	d2,Edt_YCu(a4)
+	move.w	d3,Edt_XCu(a4)
+	or.b	#EtA_BXY,Edt_EtatAff(a4)
+	bsr	Ed_Loca
+	bra	Ed_MEnd
+.NoText
+; ______________________
+;
+; Click dans les sliders
+; ______________________
+;
+	lea	Edt_SlV(a4),a0
+	cmp.w	Sl_Zone(a0),d6
+	bne.s	.NoSlV
+	bsr	Ed_CuOff
+	bsr	Ed_TokCur
+	JJsrR	L_Sl_Clic,a1
+	bra	Ed_MQuit
+.NoSlV	bra	Ed_MQuit
+
+; ____________________________
+;
+; Click dans un bouton general
+; ____________________________
+;
+Ed_MBouton
+	lea	Ed_Boutons(a5),a0
+	JJsrR	L_Bt_Gere,a1
+	beq.s	Ed_MEnd
+; Appelle la fonction
+	move.l	d0,a0
+	move.w	Bt_Number(a0),d2
+	moveq	#13,d0
+	bsr	Ed_GetSysteme
+	move.b	-1(a0,d2.w),d2
+	subq.w	#1,d2
+	bsr	Ed_FCall
+Ed_MEnd
+	clr.b	Ed_CuFlag(a5)
+	moveq	#-1,d0
+	rts
+Ed_MQuit
+	moveq	#0,d0
+	rts
+; ____________________________
+;
+; CHANGEMENT DE LA SEPARATION du haut, fenetre A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_MSepHaut
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	a0,a4
+	tst.b	Edt_First(a4)
+	bne.s	.NoMve
+	bsr	Ed_RShLimits
+	bsr	Ed_MSep
+; Calcule les changements
+	bsr	Edt_WChangeHaut
+	beq.s	.NoMve
+	bsr	Edt_WVideNext
+; Modifie l'affichage
+	bsr	Ed_DrawWindows
+	moveq	#-1,d0
+	bra.s	.EMve
+.NoMve	moveq	#0,d0
+.EMve	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; Routine
+Ed_RShLimits
+	moveq	#0,d0
+	bsr	Edt_WMaxSize			; Positions max et min
+	tst.b	Edt_Last(a4)
+	bne.s	.Last
+; Une fenetre au milieu, bouge tout!
+	move.w	Edt_WindTy(a4),d0
+	lsl.w	#3,d0
+	add.w	#Edt_EtatSy+Edt_BasSy,d0	; Taille � bouger
+	sub.w	d0,d2				; D2 max
+	move.w	Edt_Y(a4),d3			; Position initiale
+	rts
+; La derniere, bouge juste le haut
+.Last	moveq	#Edt_EtatSy,d0			; Taille � bouger
+	sub.w	#Edt_EtatSy+Edt_BasSy,d2	; D2 max
+	move.w	Edt_Y(a4),d3			; Position initiale
+	rts
+
+;
+; CHANGEMENT DE LA SEPARATION du bas, fenetre A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_MSepBas
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	a0,a4
+	tst.b	Edt_Last(a4)
+	bne.s	.NoMve
+	bsr	Ed_RSbLimits
+	bsr	Ed_MSep
+; Va calculer les changements
+	bsr	Edt_WChangeBas
+	beq.s	.NoMve
+	bsr	Edt_WVideNext
+; Modifie l'affichage
+	bsr	Ed_DrawWindows
+	moveq	#-1,d0
+	bra.s	.EMve
+.NoMve	moveq	#0,d0
+.EMve	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; Routine
+Ed_RSbLimits
+	moveq	#0,d0
+	bsr	Edt_WMaxSize			; Positions max et min
+	moveq	#Edt_BasSy,d0			; Taille � bouger
+	add.w	#Edt_EtatSy,d1
+	move.w	Edt_BasY(a4),d3			; Position initiale
+	rts
+; Separation du haut vers le haut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EtatUp
+	moveq	#-8,d0
+	bra.s	Ed_EtatMove
+;
+; Separation du haut vers le bas
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EtatDown
+	moveq	#8,d0
+	bra.s	Ed_EtatMove
+;
+; Separation du bas vers le haut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BasUp
+	moveq	#-8,d0
+	bra.s	Ed_BasMove
+;
+; Separation du bas vers le bas
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BasDown
+	moveq	#8,d0
+	bra.s	Ed_BasMove
+;
+; Mouvement relatif de la separation du haut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EtatMove
+	bsr	Ed_TokCur
+	tst.b	Edt_First(a4)
+	bne.s	.NoMve
+	move.w	d0,d4
+	bsr	Ed_RShLimits
+	add.w	d4,d3
+	cmp.w	d1,d3
+	bls.s	.NoMve
+	cmp.w	d2,d3
+	bge.s	.NoMve
+; Calcule les changements
+	move.w	d3,d0
+	bsr	Edt_WChangeHaut
+	beq.s	.NoMve
+	bsr	Edt_WVideNext
+	bsr	Ed_DrawWindows
+.NoMve	rts
+;
+; CHANGEMENT relatif de la DE LA SEPARATION du bas
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BasMove
+	bsr	Ed_TokCur
+	tst.b	Edt_Last(a4)
+	bne.s	.NoMve
+	move.w	d0,d4
+	bsr	Ed_RSbLimits
+	add.w	d4,d3
+	cmp.w	d1,d3
+	bls.s	.NoMve
+	cmp.w	d2,d3
+	bge.s	.NoMve
+; Va calculer les changements
+	move.w	d3,d0
+	bsr	Edt_WChangeBas
+	beq.s	.NoMve
+	bsr	Edt_WVideNext
+	bsr	Ed_DrawWindows
+.NoMve	rts
+
+
+; __________________________________________________________________________
+;
+; 	Teste le clavier
+; __________________________
+;
+Ed_Key
+
+; Une macro en lecture?
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	EdMa_Play(a5),d0
+	beq.s	.PaMacro
+	addq.l	#3,d0
+	move.l	d0,a0
+	move.l	d0,EdMa_Play(a5)
+	move.b	-(a0),d1
+	lsl.w	#8,d1
+	move.b	-(a0),d1
+	swap	d1
+	clr.w	d1
+	move.b	-(a0),d1			La fin est marquee par -1
+	cmp.b	#-1,d1
+	bne.s	.EndMac
+	clr.l	EdMa_Play(a5)
+.PaMacro
+; Simule le CONTROL-C
+; ~~~~~~~~~~~~~~~~~~~~
+	bclr	#BitControl-8,T_Actualise(a5)	* Simule CONTROL-C
+	beq.s	.EdPaCc
+	move.l	#$08330043,d1
+	bra.s	.MacIn
+.EdPaCc
+
+; Prend les touches
+; ~~~~~~~~~~~~~~~~~
+	SyCall	Inkey
+.MacIn	tst.l	d1
+	beq	Ed_KEnd
+
+; Une macro en enregistrement?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	EdMa_Tape(a5),d0
+	beq.s	.UneMac
+	move.l	EdMa_List(a5),a0
+	lea	8+4-1(a0,d0.w),a0
+	cmp.b	#-1,(a0)
+	beq.s	.2Big
+	move.l	d1,d0
+	move.b	d0,(a0)+
+	swap	d0
+	move.b	d0,(a0)+
+	lsr.w	#8,d0
+	move.b	d0,(a0)+
+	addq.w	#3,EdMa_Tape(a5)
+.2Big	bra.s	.EndMac
+; La touche en question est-elle une macro?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.UneMac	bsr	EdMa_Adr
+	beq.s	.EndMac
+	lea	12(a1),a1
+	move.l	a1,EdMa_Play(a5)
+	bra	Ed_Key
+.EndMac
+
+; Une fonction?
+; ~~~~~~~~~~~~~
+	bsr	Ed_Ky2Fonc
+	beq.s	.Char
+	bsr	Ed_FCall
+	moveq	#-1,d0
+	bra	Ed_KEnd
+; Stocke la lettre dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Char	move.l	d1,d7
+	move.b	Ed_Insert(a5),d6
+	bsr	Ed_PKey
+	moveq	#"C",d0
+	bsr	Ed_SamPlay
+	moveq	#-1,d0
+;
+; Fini pour les touches
+; ~~~~~~~~~~~~~~~~~~~~~
+Ed_KEnd	rts
+
+
+; Appelle le menu editeur et retourne le choix, si choix
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_MnGere
+	bsr	EdM_Editor
+	tst.l	MnBase(a5)		Menus definis?
+	beq.s	.Err
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	move.l	#Public,d1
+	jsr	_LVOAvailMem(a6)	Au moins 40k de libre!
+	move.l	(sp)+,a6
+	cmp.l	#40*1024,d0
+	bcs.s	.Err
+	moveq	#"H",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+	JJsr	L_MnGere
+	bne.s	.Err
+	moveq	#"H",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+	tst.w	MnChoice(a5)
+	beq	.NoChoix
+	clr.w	MnChoice(a5)
+	lea	MnChoix(a5),a0
+	moveq	#3,d1
+.MnL	lsl.l	#8,d0
+	addq.l	#1,a0
+	move.b	(a0)+,d0
+	dbra	d1,.MnL
+	move.l	EdM_Table(a5),a0
+	bra.s	.MnM1
+.MnM0	addq.l	#8,a0
+.MnM1	move.l	(a0),d1
+	beq.s	.NoChoix
+	cmp.l	d0,d1
+	bne.s	.MnM0
+	moveq	#0,d2
+	move.b	6(a0),d2
+	subq.w	#1,d2
+	bmi	.NoChoix
+	moveq	#1,d0
+	rts
+; Pas de choix finalement....
+.NoChoix
+	moveq	#0,d0
+	rts
+; Erreur out of memory
+.Err	moveq	#-1,d0
+	rts
+
+; Explore la table des touches de fonctions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1=	Touche
+Ed_Ky2Fonc
+	movem.l	d1/d3-d7,-(sp)
+	move.b	d1,d7
+	cmp.b	#"a",d7		* D7= lettre majuscule
+	bcs.s	.EdL5
+	cmp.b	#"z",d7
+	bhi.s	.EdL5
+	sub.b	#"a"-"A",d7
+.EdL5	swap 	d1
+	move.b	d1,d6		* D6= scancode
+	lsr.w	#8,d1
+	and.b	#%11111011,d1
+	move.b	d1,d5		* D5= shifts
+	swap	d1
+* Recherche dans la table
+.EdL5a	clr.w	d2
+	lea	Ed_KFonc(a5),a0
+.EdL6	move.b	d5,d4
+	move.b	(a0),d0		* Boucle de comparaison
+	bpl.s	.EdL7
+	cmp.b	#$FF,d0
+	beq	.EdL10
+	and.b	#$7f,d0		* Compare au scancode
+	cmp.b	d0,d6
+	bne.s	.EdL9
+	bra.s	.EdL8
+.EdL7	beq.s	.EdLN		* Rien, passe au suivant
+	cmp.b	d0,d7		* Compare au code ASCII
+	bne.s	.EdL9
+.EdL8	move.b	1(a0),d3	* Compare le SHIFTS...
+	bne.s	.EdL8a
+	tst.b	d4
+	bne.s	.EdL9
+	bra.s	.EdLG
+.EdL8a	move.b	d4,d0
+	and.b	#Shf,d0		* Teste les shifts
+	beq.s	.EdL8b
+	and.b	d3,d0
+	beq.s	.EdL9
+	and.b	#255^Shf,d3
+	and.b	#255^Shf,d4
+	beq.s	.EdLG
+.EdL8b	move.b	d4,d0
+	and.b	#Ctr,d0		* Teste CONTROL
+	beq.s	.EdL8c
+	and.b	d3,d0
+	beq.s	.EdL9
+	and.b	#255^Ctr,d3
+	and.b	#255^Ctr,d4
+	beq.s	.EdLG
+.EdL8c	move.b	d4,d0
+	and.b	#Alt,d0		* Teste ALTERNATE
+	beq.s	.EdL8d
+	and.b	d3,d0
+	beq.s	.EdL9
+	and.b	#255^Alt,d3
+	and.b	#255^Alt,d4
+	beq.s	.EdLG
+.EdL8d	move.b	d4,d0
+	and.b	#Ami,d0		* Teste AMIGA
+	beq.s	.EdL9
+	and.b	d3,d0
+	beq.s	.EdL9
+	and.b	#255^Ami,d3
+	and.b	#255^Ami,d4
+	beq.s	.EdLG
+.EdL9	lea	2(a0),a0
+	bra	.EdL6
+.EdLN	addq.w	#1,d2
+	addq.l	#1,a0
+	bra	.EdL6
+.EdLG:	or.b	d4,d3
+	bne.s	.EdL9
+	moveq	#-1,d0
+	bra.s	.Out
+.EdL10	moveq	#0,d0
+.Out	movem.l	(sp)+,d1/d3-d7
+	rts
+
+; Pointe la touche affectee � une fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Fonction
+;
+Ed_Fonc2Ky
+	lea	Ed_KFonc(a5),a0
+	bra.s	.Skip4
+.Loop4	addq.l	#2,a0
+	tst.b	(a0)
+	bne.s	.Loop4
+	addq.l	#1,a0
+	cmp.b	#$FF,(a0)
+	beq.s	.NoKey
+.Skip4	subq.b	#1,d0
+	bne.s	.Loop4
+	move.l	a0,d0
+	rts
+.NoKey	moveq	#0,d0
+	rts
+
+;
+; Stocke la lettre dans le buffer
+; 	D6= Insert mode?
+;	D7= caractere
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PKey
+	cmp.b	#32,d7
+	bcs	.EdL15
+* Positionne a la fin de la ligne
+	bsr	Ed_LCourant
+	bne	Ed_NotEdit		Line not editable
+	cmp.w	d0,d1
+	bls.s	.EdL10a
+	move.w	d0,d1
+	lea	0(a0,d1.w),a1
+	move.w	d1,Edt_XCu(a4)
+	movem.l	a0/a1/d0/d1,-(sp)
+	bsr	Ed_Cent
+	movem.l	(sp)+,a0/a1/d0/d1
+* Recupere le code Ascii
+.EdL10a
+* Gestion UNDO
+	bsr	Un_Debut
+	bne.s	.Skip
+	move.b	#$01,(a2)		Flag Lettre
+	move.b	#-1,4(a2)		Move insert
+	move.b	d7,5(a2)		Caractere
+.Skip
+* Recupere le code ASCII
+	tst.b	d6
+	bne.s	.EdL11
+* Mode OVERWRITE
+	cmp.w	d0,d1
+	beq.s	.EdL13
+	move.b	(a1),4(a2)		Ancien caractere
+	bra.s	.EdL14
+* Mode INSERT
+.EdL11	cmp.w	#250,d0
+	bcc	Ed_LToLong
+	cmp.w	d0,d1
+	beq.s	.EdL13
+	lea	1(a0,d0.w),a2
+.EdL12	move.b	-(a2),1(a2)
+	cmp.l	a1,a2
+	bhi.s	.EdL12
+.EdL13	addq.w	#1,d0
+.EdL14	move.b	d7,(a1)
+	move.w	d0,-2(a0)
+	addq.w	#1,Edt_LEdited(a4)		* Flag ligne editee
+; Bouge le curseur
+	bsr	Ed_CDroite
+	move.w	Edt_YCu(a4),d1
+	bsr	Ed_ALigne
+; Reaffiche la ligne
+.EdL15	bsr	Ed_Loca
+; Si la fenetre est splitee
+	move.b	#%01,Ed_SCallFlags(a5)
+	rts
+
+;
+; Insere le mot A0/long D0 dans la ligne courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+R_InsChar
+	movem.l	a0-a3/d0-d2,-(sp)
+	move.l	a0,a2
+	move.w	d0,d2
+	bsr	Ed_LCourant
+	add.w	d2,d0
+	cmp.w	#250,d0
+	bls.s	.Ok
+	sub.w	#250,d0
+	sub.w	d0,d2
+	move.w	#250,d0
+.Ok	tst.w	d2
+	beq.s	.Out
+	add.w	d2,-2(a0)
+	lea	0(a0,d0.w),a0
+	move.l	a0,a3
+	sub.w	d2,a3
+	bra.s	.Test
+.Copy	move.b	-(a3),-(a0)
+.Test	cmp.l	a1,a3
+	bhi.s	.Copy
+	subq.w	#1,d2
+.Loop	move.b	(a2)+,(a1)+
+	dbra	d2,.Loop
+	addq.w	#1,Edt_LEdited(a4)
+.Out	movem.l	(sp)+,a0-a3/d0-d2
+	rts
+;
+; Enleve D0 caracteres en position courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+R_DelChar
+	move.w	d0,d2
+	bsr	Ed_LCourant
+	cmp.w	d0,d2
+	bhi.s	.Skip
+	sub.w	d2,-2(a0)
+	lea	0(a1,d2.w),a0
+	sub.w	d1,d0
+	sub.w	d2,d0
+	subq.w	#1,d0
+	bmi.s	.Del2
+.Del1	move.b	(a0)+,(a1)+
+	dbra	d0,.Del1
+.Del2	addq.w	#1,Edt_LEdited(a4)
+.Skip	rts
+
+; _________________________________________________________________________
+;
+; 	GESTION UNDO MULTIPLE
+; _________________________________________________________________________
+;
+
+
+; 	UNDO
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Undo	move.l	Prg_PUndo(a6),a2
+	bsr	Un_Prev
+	move.b	(a2),d0
+	beq	Ed_NoUndo
+	move.l	a2,Prg_PUndo(a6)
+; Appele la fonction
+	and.w	#$7f,d0
+	lsl.w	#2,d0
+	lea	JUndo(pc),a0
+	addq.b	#1,Ed_FUndo(a5)
+	jsr	-4(a0,d0.w)
+	subq.b	#1,Ed_FUndo(a5)
+	rts
+
+;	REDO
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Redo	move.l	Prg_PUndo(a6),a2
+	move.b	(a2),d0
+	beq	Ed_NoRedo
+; Appelle la fonction
+	and.w	#$7f,d0
+	lsl.w	#2,d0
+	lea	JRedo(pc),a0
+	addq.b	#1,Ed_FUndo(a5)
+	jsr	-4(a0,d0.w)
+	subq.b	#1,Ed_FUndo(a5)
+; Passe au suivant
+	move.l	Prg_PUndo(a6),a2
+	bsr	Un_Next
+	move.l	a2,Prg_PUndo(a6)
+.Out	rts
+
+
+; 	Cree les buffer UNDO de toutes les fenetres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_CreateUndos
+	movem.l	d0/a6,-(sp)
+	move.l	Prg_List(a5),d0
+	beq.s	.Out
+.Loop	move.l	d0,a6
+	bsr	Prg_UndoCreate
+	move.l	Prg_Next(a6),d0
+	bne.s	.Loop
+.Out	movem.l	(sp)+,d0/a6
+	rts
+; 	Efface les buffer UNDO de toutes les fenetres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_FreeUndos
+	movem.l	d0/a6,-(sp)
+	move.l	Prg_List(a5),d0
+	beq.s	.Out
+.Loop	move.l	d0,a6
+	bsr	Prg_UndoFree
+	move.l	Prg_Next(a6),d0
+	bne.s	.Loop
+.Out	movem.l	(sp)+,d0/a6
+	rts
+; 	Mise � zero de tous les buffers UNDO
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_RazUndos
+	movem.l	d0/a6,-(sp)
+	move.l	Prg_List(a5),d0
+	beq.s	.Out
+.Loop	move.l	d0,a6
+	bsr	Prg_UndoRaz
+	move.l	Prg_Next(a6),d0
+	bne.s	.Loop
+.Out	movem.l	(sp)+,d0/a6
+	rts
+;
+; Cree le buffer UNDO
+; ~~~~~~~~~~~~~~~~~~~
+Prg_UndoCreate
+	bsr	Prg_UndoFree
+	movem.l	d0/d1/a0/a1,-(sp)
+	move.l	Ed_NUndo(a5),d0
+	beq.s	.Skip
+	addq.l	#3,d0
+	mulu	#6,d0
+	move.l	d0,d1
+	SyCall	MemFastClear
+	beq.s	.Skip
+	move.l	d1,Prg_LUndo(a6)
+	move.l	a0,Prg_Undo(a6)
+	move.l	a0,a1
+	move.b	#$FF,(a1)
+	addq.l	#6,a1
+	move.l	a1,Prg_PUndo(a6)
+	lea	-12(a1,d1.l),a1
+	move.b	#$FF,(a1)
+	clr.l	Prg_TUndo(a6)
+.Skip	movem.l	(sp)+,d0/d1/a0/a1
+	rts
+;
+; Efface tous les mouvements UNDO
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_UndoRaz
+	movem.l	d0-d2/a0-a2,-(sp)
+	move.l	Prg_Undo(a6),d0
+	beq.s	.Skip
+	move.l	d0,a2
+	lea	6(a2),a2
+	move.l	a2,Prg_PUndo(a6)
+.Loop	bsr	Un_Del
+	addq.l	#6,a2
+	cmp.b	#$FF,(a2)
+	bne.s	.Loop
+.Skip	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+;
+; Efface le buffer UNDO
+; ~~~~~~~~~~~~~~~~~~~~~
+Prg_UndoFree
+	bsr	Prg_UndoRaz
+	movem.l	a0/a1/d0,-(sp)
+	move.l	Prg_Undo(a6),d0
+	beq.s	.Skip
+	clr.l	Prg_Undo(a6)
+	move.l	d0,a1
+	move.l	Prg_LUndo(a6),d0
+	SyCall	MemFree
+.Skip	movem.l	(sp)+,a0/a1/d0
+	rts
+
+
+JUndo	bra	Un_Char		1- Simple caractere
+	bra	Un_Delete	2- Delete
+	bra	Un_Clear	3- Effacement ligne / Fin de ligne
+	bra	Un_DLine	4- Delete ligne du programme
+	bra	Un_Token	5- Tokenisation
+	bra	Un_ILine	6- Insertion ligne
+	bra	Un_Split	7- Split Line
+	bra	Un_Join		8- Join Line
+JRedo	bra	Re_Char		1- Simple caractere
+	bra	Re_Delete	2- Delete
+	bra	Re_Clear	3- Effacement ligne / Fin de ligne
+	bra	Re_DLine	4- Delete ligne du programme
+	bra	Re_Token	5- Tokenisation
+	bra	Re_ILine	6- Insertion ligne
+	bra	Re_Split	7- Split Line
+	bra	Re_Join		8- Join Line
+;
+; UNDO: un caractere
+; ~~~~~~~~~~~~~~~~~~
+Un_Char
+	bsr	Un_XY
+	move.b	4(a2),d0
+	bpl.s	.Over
+; En INSERT
+	bsr	Ed_Delete
+	rts
+; En OVERWRITE
+.Over	bsr	Ed_LCourant
+	move.b	4(a2),(a1)
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_EALiCu
+	rts
+;
+; REDO: un caractere
+; ~~~~~~~~~~~~~~~~~~
+Re_Char	bsr	Un_XY
+	moveq	#0,d6
+	tst.b	4(a2)
+	bpl.s	.Skip
+	moveq	#1,d6
+.Skip	move.b	5(a2),d7
+	bsr	Ed_PKey
+	rts
+;
+; UNDO: Delete
+; ~~~~~~~~~~~~
+Un_Delete
+	bsr	Un_XY
+	move.b	5(a2),d7
+	moveq	#1,d6
+	bsr	Ed_PKey
+	rts
+;
+; REDO: Delete
+; ~~~~~~~~~~~~
+Re_Delete
+	bsr	Un_XY
+	bsr	Ed_Delete
+	rts
+;
+; UNDO: Effacement dans la ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Un_Clear
+	bsr	Un_XYSto
+Un_C2
+	move.w	(a2),d0
+	subq.w	#4,d0
+	bls.s	.Skip
+	lea	4(a2),a0
+	bsr	R_InsChar
+	bsr	Ed_EALiCu
+.Skip	rts
+;
+; REDO: Effacement dans la ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Re_Clear
+	bsr	Un_XYSto
+	move.w	(a2),d0
+	subq.w	#4,d0
+	bls.s	.Skip
+	bsr	R_DelChar
+.Skip	bsr	Ed_EALiCu
+	rts
+;
+; UNDO: Ligne effacee du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Un_DLine
+	bsr	Un_XYSto
+	move.l	a2,-(sp)
+	bsr	Ed_InsLine
+	move.l	(sp)+,a2
+	bra.s	Un_C2
+;
+; REDO: Ligne effacee du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Re_DLine
+	bsr	Un_XYSto
+	bsr	Ed_DelLiCu
+	rts
+;
+; UNDO: Tokenisation
+; ~~~~~~~~~~~~~~~~~~
+Un_Token
+	bsr	Un_XYSto
+	bsr	Ed_LCourant
+; Recopie l'ancienne ligne
+	lea	6(a2),a1
+	moveq	#0,d0
+	move.b	(a1)+,d0
+	move.w	d0,-2(a0)
+	subq.w	#1,d0
+	bmi.s	.Skip
+.Loop	move.b	(a1)+,(a0)+
+	dbra	d0,.Loop
+; Une ligne de moins?
+.Skip	move.w	4(a2),d0
+	sub.w	d0,Prg_NLigne(a6)
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_EALiCu
+	rts
+;
+; REDO: Tokenisation
+; ~~~~~~~~~~~~~~~~~~
+Re_Token
+	bsr	Un_XYSto
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_TokCur
+	rts
+;
+; UNDO: Un-Split line
+; ~~~~~~~~~~~~~~~~~~~
+Re_Join
+Un_Split
+	move.l	a2,-(sp)
+	bsr	Un_XYSto
+	bsr	Ed_DelLiCu
+	move.l	(sp)+,a2
+	bsr	Un_XYSto
+	bsr	Un_RepLine
+	rts
+;
+; UNDO: Un-Join line
+; ~~~~~~~~~~~~~~~~~~
+Re_Split
+Un_Join
+	bsr	Un_XYSto
+	bsr	Un_RepLine
+	bsr	Ed_ReturnQuiet
+	rts
+;
+; Recopie integrale de la ligne
+Un_RepLine
+	bsr	Ed_LCourant
+	move.w	(a2),d0
+	subq.w	#4,d0
+	lea	4(a2),a1
+	move.w	d0,-2(a0)
+	subq.w	#1,d0
+	bmi.s	.Skip
+.Loop	move.b	(a1)+,(a0)+
+	dbra	d0,.Loop
+.Skip	bsr	Ed_EALiCu
+	addq.w	#1,Edt_LEdited(a4)
+	rts
+;
+; UNDO: Ligne inseree dans le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Un_ILine
+	bsr	Un_XY
+	bsr	Ed_DelLiCu
+	rts
+;
+; REDO: Ligne inseree dans le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Re_ILine
+	bsr	Un_XY
+	bsr	Ed_InsLine
+	rts
+;
+; Pointe la ligne stockee
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Un_XYSto
+	bsr	Un_X
+	move.l	2(a2),a2
+	move.w	2(a2),d0
+	bsr	Ed_GotoY
+	rts
+;
+; Positionne le curseur sur la ligne UNDO
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Un_XY	move.w	2(a2),d0
+	bsr	Ed_GotoY
+Un_X	moveq	#0,d0
+	move.b	1(a2),d0
+	bsr	Ed_GotoX
+	rts
+
+;
+; STOCKE en UNDO (A0) D0 caracteres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Un_CLine
+	move.l	a2,-(sp)
+	bsr	Un_Debut
+	bne.s	.Skip
+	movem.l	a0-a1/d0-d2,-(sp)
+	move.l	a0,a1
+	ext.l	d0
+	move.w	d0,d1
+	addq.w	#4,d0
+	SyCall	MemFast
+	beq.s	.No
+	move.w	d0,(a0)
+	add.l	d0,Prg_TUndo(a6)
+	move.w	2(a2),2(a0)
+	move.b	#$83,(a2)
+	move.l	a0,2(a2)
+	subq.l	#1,d1
+	bmi.s	.No
+	addq.l	#4,a0
+.Loop	move.b	(a1)+,(a0)+
+	dbra	d1,.Loop
+.No	moveq	#0,d0
+	movem.l	(sp)+,a0-a1/d0-d2
+.Skip	move.l	(sp)+,a2
+	rts
+
+;
+; Stocke les coordonnees du curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Un_Debut
+	tst.b	Ed_FUndo(a5)		Autorise?
+	bne.s	.OutNo
+	tst.l	Prg_Undo(a6)		Buffer defini?
+	beq.s	.OutNo
+	move.l	d2,-(sp)
+	move.l	Prg_PUndo(a6),a2
+	bsr	Un_Del
+	move.b	Edt_XCu+1(a4),1(a2)
+	move.w	Edt_YPos(a4),d2
+	add.w	Edt_YCu(a4),d2
+	move.w	d2,2(a2)
+	bsr	Un_Avance
+	movem.l	(sp)+,d2
+	move.w	#%00100,CCR		BEQ: undo en route
+	rts
+.OutNo	move.w	#%00000,CCR		BNE: pas d'undo!
+	rts
+
+;
+; Avance UNDO d'un cran
+; ~~~~~~~~~~~~~~~~~~~~~
+Un_Avance
+	move.l	a2,-(sp)
+	move.l	Prg_PUndo(a6),a2
+	bsr	Un_Next
+	bsr	Un_Del
+	move.l	a2,Prg_PUndo(a6)
+	move.l	(sp)+,a2
+	rts
+;
+; Efface le cran UNDO (a2)
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Un_Del
+	movem.l	a0/a1/d0,-(sp)
+	move.b	(a2),d0
+	bpl.s	.Out
+	move.l	2(a2),d0
+	beq.s	.Out
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	sub.l	d0,Prg_TUndo(a6)
+	SyCall	MemFree
+.Out	clr.b	(a2)
+	movem.l	(sp)+,a0/a1/d0
+	rts
+
+
+; Va un cran en arriere
+; ~~~~~~~~~~~~~~~~~~~~~~
+Un_Prev
+	subq.l	#6,a2
+	cmp.b	#$FF,(a2)
+	bne.s	.Skip
+	move.l	Prg_Undo(a6),a2
+	add.l	Prg_LUndo(a6),a2
+	lea	-12(a2),a2
+.Skip	rts
+;
+; Va un cran en avant
+; ~~~~~~~~~~~~~~~~~~~
+Un_Next
+	addq.l	#6,a2
+	cmp.b	#$FF,(a2)
+	bne.s	.Skip
+	move.l	Prg_Undo(a6),a2
+	addq.l	#6,a2
+.Skip	rts
+; __________________________________________________________________________
+;
+
+
+
+; __________________________________________________________________________
+;
+;	GESTION DES FENETRES LIEES EN SCROLLING
+; __________________________________________________________________________
+;
+
+;
+; Link cursor's movements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_LinkCursor
+	bsr	Ed_TokCur
+	moveq	#1,d0
+	bsr	Ed_AverMess
+	clr.l	Edt_LinkScroll(a4)
+; Attend le choix
+; ~~~~~~~~~~~~~~~
+.Loop	JJsr	L_Sys_WaitMul
+	SyCall	MouseKey
+	btst	#0,d1
+	beq.s	.Loop
+	SyCall	GetZone
+	cmp.w	#EcEdit,d1
+	bne	Ed_NotDone
+	swap	d1
+	cmp.w	Edt_Window(a4),d1
+	beq	Ed_NotDone
+	move.w	d1,d0
+	bsr	Edt_GetAd
+	beq	Ed_NotDone
+	bsr	Edt_DelLinkScroll
+	move.l	a0,Edt_LinkScroll(a4)
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	move.w	d0,Edt_LinkYOld(a4)
+	bsr	Ed_AverFin
+	JJsr	L_Dia_NoMKey
+	rts
+;
+; Enleve les links de scrolling sur la fenetre A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_DelLinkScroll
+	move.l	Edt_List(a5),d1
+.Loop	move.l	d1,a1
+	cmp.l	Edt_LinkScroll(a1),a0
+	bne.s	.Skip
+	clr.l	Edt_LinkScroll(a1)
+.Skip	move.l	Edt_Next(a1),d1
+	bne.s	.Loop
+	rts
+
+; Gestion proprement dite
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_LinkeScroll
+	tst.l	Edt_LinkScroll(a4)
+	beq.s	.Nolink
+	bsr	.Recurse		Fait le changement
+	move.w	Edt_Window(a4),d1	Reactive la fenetre
+	WiCall	QWindow
+.Nolink	rts
+; Routine recursive
+; ~~~~~~~~~~~~~~~~~
+.Recurse
+	move.l	Edt_LinkScroll(a4),d0
+	beq.s	.Out
+	move.w	Edt_YCu(a4),d1
+	add.w	Edt_YPos(a4),d1
+	cmp.w	Edt_LinkYOld(a4),d1
+	beq.s	.Out
+; Fait les changements
+	move.w	d1,d2
+	sub.w	Edt_LinkYOld(a4),d1
+	move.w	d2,Edt_LinkYOld(a4)
+	move.b	#1,Edt_LinkFlag(a4)
+	movem.l	a4/a6,-(sp)
+	move.l	d0,a4
+	move.l	Edt_Prg(a4),a6
+	tst.b	Edt_LinkFlag(a4)
+	bne.s	.PaBoucle
+	move.w	Edt_YPos(a4),d0
+	add.w	d1,d0
+	bpl.s	.Plus
+	moveq	#0,d0
+.Plus	move.w	d0,d1
+	add.w	Edt_YCu(a4),d1
+	cmp.w	Prg_NLigne(a6),d1
+	bcs.s	.2Dan
+	move.w	Prg_NLigne(a6),d0
+	sub.w	Edt_YCu(a4),d0
+	bpl.s	.2Dan
+	move.w	Prg_NLigne(a6),Edt_YCu(a4)
+	moveq	#0,d0
+.2Dan	move.w	d0,Edt_YPos(a4)
+	tst.w	Edt_WindTy(a4)
+	beq.s	.Skip
+	bsr	Ed_NewBuf
+.Skip	bset	#EtA_Y,Edt_EtatAff(a4)
+; Appelle la fenetre suivante - RECURSIF : youpi youpla
+	bsr	.Recurse
+; Revient � la precedente fenetre
+.PaBoucle
+	movem.l	(sp)+,a4/a6
+	clr.b	Edt_LinkFlag(a4)
+; Revient � le precedente
+.Out	rts
+
+
+; __________________________________________________________________________
+;
+;	GESTION DES FENETRES SPLITTEES
+; __________________________________________________________________________
+;
+
+;
+; Split program's view
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SplitWindow
+	bsr	Ed_TokCur
+; Ouvre la fenetre
+	move.l	a4,-(sp)
+	moveq	#-1,d0			Vue
+	moveq	#-1,d1			Pas de structure programme
+	bsr	Edt_OpWindow		Va ouvrir
+	blt	Ed_OMm
+	bgt	Ed_2ManyWindow
+; Insere la fenetre dans la liste LINK
+	move.l	(sp),a0
+	move.l	a0,Edt_LinkPrev(a4)
+	move.l	Edt_LinkNext(a0),d0
+	move.l	a4,Edt_LinkNext(a0)
+	move.l	d0,Edt_LinkNext(a4)
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	a4,Edt_LinkPrev(a1)
+.Skip
+; Copie la zone de donnees
+	move.l	a6,Edt_Prg(a4)		Met le programme
+	addq.b	#1,Prg_Edited(a6)	Une fenetre de plus sur le prog.
+	lea	Edt_SSplit(a0),a0	Copie positions curseur / texte
+	lea	Edt_SSplit(a4),a1
+	move.w	#(Edt_ESplit-Edt_SSplit)/2-1,d0
+.Loop	move.w	(a0)+,(a1)+
+	dbra	d0,.Loop
+; Affiche
+	bsr	Ed_DrawWindows
+.Out	addq.l	#4,sp
+.Out2	rts
+
+;
+; 	Gestion proprement dite
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	D0=	Flags
+;	A0= 	Fenetre origine
+Ed_Splitted
+	move.l	Edt_LinkPrev(a0),d1
+	or.l	Edt_LinkNext(a0),d1
+	beq	.SplitX
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.w	d0,-(sp)
+	move.l	a0,a3
+; Trouve la premiere
+	move.l	a3,a4
+	bra.s	.Deuse
+.Preums	move.l	d0,a4
+.Deuse	move.l	Edt_LinkPrev(a4),d0
+	bne.s	.Preums
+; Actualise les fenetres une a une
+.Autre	cmp.l	a3,a4
+	beq	.Next
+	tst.w	Edt_WindTy(a4)
+	beq	.Next
+	move.l	Edt_Prg(a4),a6
+; Changer les flags comme l'autre fenetre
+	move.b	Edt_EtatAff(a3),Edt_EtatAff(a4)
+; Redessiner tout le buffer, en verifiant la position
+	move.w	(sp),d0
+	btst	#1,d0
+	beq.s	.PaAll
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	cmp.w	Prg_NLigne(a6),d0
+	bcs.s	.2dan
+	move.w	Prg_NLigne(a6),d0
+	sub.w	Edt_YCu(a4),d0
+	bpl.s	.Sz
+	move.w	Prg_NLigne(a6),Edt_YCu(a4)
+	moveq	#0,d0
+.Sz	move.w	d0,Edt_YPos(a4)
+.2dan	bsr	Ed_NewBuf
+.PaAll
+; Update simple de la ligne courante
+	move.w	(sp),d0
+	btst	#0,d0
+	beq.s	.PaLicu
+	move.w	Edt_YPos(a3),d1
+	add.w	Edt_YCu(a3),d1
+	sub.w	Edt_YPos(a4),d1
+	bmi.s	.Next
+	cmp.w	Edt_WindTy(a4),d1
+	bcc.s	.Next
+	move.w	d1,-(sp)
+	move.w	Edt_YCu(a3),d0
+	lsl.w	#8,d0
+	lsl.w	#8,d1
+	move.l	Edt_BufE(a3),a0
+	move.l	Edt_BufE(a4),a1
+	add.w	d0,a0
+	add.w	d1,a1
+	moveq	#256/4-1,d0
+.Copy	move.l	(a0)+,(a1)+
+	dbra	d0,.Copy
+	move.w	Edt_Window(a4),d1
+	WiCall	QWindow
+	move.w	(sp)+,d1
+	bsr	Ed_EALigne
+.PaLicu
+; Encore une fenetre?
+.Next	move.l	Edt_LinkNext(a4),d0
+	move.l	d0,a4
+	bne	.Autre
+; Reactive la fenetre originelle
+	move.w	Edt_Window(a3),d1
+	WiCall	QWindow
+	addq.l	#2,sp
+	movem.l	(sp)+,a2-a6/d2-d7
+; Fini
+.SplitX	rts
+
+
+
+; ___________________________________________________________________
+;
+; 	APPEL D'UNE FONCTION DE L'EDITEUR
+;
+;	D2	Numero de la fonction
+; ___________________________________________________________________
+;
+Ed_FCall
+; Nettoyage
+; ~~~~~~~~~
+	bsr	Ed_ClEProc
+	bsr	EdM_Program
+	bsr	Ed_CuOff
+; Stocke les flags pour le splitter
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	FlagFonc(pc),a0
+	move.b	0(a0,d2.w),d0
+	tst.w	EdMa_Tape(a5)
+	beq.s	.PaM
+	btst	#5,d0
+	beq.s	.NoMacro
+.PaM	move.b	d0,Ed_SCallFlags(a5)
+	btst	#2,d0
+	beq.s	.Notst
+	bsr	Ed_LCourant
+	bne	Ed_NotEdit
+.Notst	move.w	Edt_YCu(a4),d0
+	add.w	Edt_YPos(a4),d0
+	move.w	d0,Edt_YOldBloc(a4)
+; Fonction ou programme?
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d2,d1
+	ext.l	d1
+	cmp.w	#HiddenCommands-1,d2
+	bcs.s	.Fonc
+; Hidden programs
+	sub.w	#HiddenCommands-1,d1
+	divu	#3,d1
+	swap	d1
+	moveq	#HiddenCall-1,d2		RUN / EDIT ou NEW?
+	add.w	d1,d2
+	clr.w	d1
+	swap	d1
+	add.w	EdM_PosHidden(a5),d1		Plus position courante!
+	bra.s	.Call
+; Autoload?
+.Fonc	move.w	d2,d0
+	mulu	#3,d0
+	lea	Ed_AutoLoad(a5),a0
+	tst.b	0(a0,d0.w)
+	bne.s	.Prg
+; Appelle la fonction!
+.Call	lsl.w	#2,d2
+	clr.w	T_Actualise(a5)
+	lea	JFonc(pc),a0
+	moveq	#0,d0
+	jmp	0(a0,d2.w)
+; Appel d'un programme externe, si pas zappeuse!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Prg	tst.b	Ed_Zappeuse(a5)
+	bne.s	.Call
+	lea	0(a0,d0.w),a0
+	tst.w	EdMa_Tape(a5)	Pas si macro record
+	beq	Ed_PrgCommand
+; On ne peut utiliser cette commande dans une macro!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NoMacro
+	subq.w	#3,EdMa_Tape(a5)	Recule le pointeur
+	moveq	#EdD_Macro3,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loop
+
+; Branchement � HELP par F5
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_GoHelp
+	moveq	#26,d2
+	bra	Ed_FCall
+
+; ___________________________________________________________________
+;
+;	ENTREE DE LA TELECOMMANDE
+;
+;	D0	Fonction
+;	D1	Parametre
+;	Name1	Chaine de commande
+; ___________________________________________________________________
+;
+Ed_ZapIn
+; Pas le meme programme!
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_Runned(a5),a2
+	cmp.l	Edt_Current(a5),a2
+	beq	.NoAcc
+	tst.b	Prg_Accessory(a5)
+	beq	.NoAcc
+; Sauve les donnees du programme appelant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	d0,d2
+	move.l	d1,Ed_ZapParam(a5)
+	move.l	Edt_Prg(a2),a0
+	lea	Prg_ZapData(a0),a0
+	JJsrR	L_Prg_DataSave,a1
+	JJsrR	L_Prg_DataNew,a1
+; Prepare le terrain
+; ~~~~~~~~~~~~~~~~~~
+	clr.w	Ed_ZapError(a5)
+	subq.w	#1,d2
+	cmp.w	#HiddenCommands,d2
+	bcc.s	.PaCom
+	lea	FlagFonc(pc),a0
+	move.b	0(a0,d2.w),d1		Commande Zappable?
+	bpl.s	.PaCom
+	btst	#6,d1			Une ligne de commande?
+	beq.s	.Branch
+	move.l	Name2(a5),a0		Oui, est-elle fournie?
+	tst.w	(a0)			Longueur en NAME2,
+	beq.s	.BadCh			String en NAME1...
+; Branche � la fonction!
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Branch	and.b	#$F0,d1			Mode zappeuse!
+	move.b	d1,Ed_Zappeuse(a5)
+	EcCalD	Active,EcEdit		Active l'ecran editeur
+	move.l	BasSp(a5),sp
+	move.l	Edt_Current(a5),a4	Programme courant branche!
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_SetBanks
+	clr.b	Ed_YaUTest(a4)		Flags utiles
+	move.b	Prg_MathFlags(a6),MathFlags(a5)
+	clr.w	Ed_ZapCounter(a5)
+	bsr	Ed_FCall		Appel de la fonction
+	bra	Ed_Loop
+; Erreur, commande non Zappable
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaCom	move.w	#-4,Ed_ZapError(a5)
+	moveq	#13,d0
+	bra.s	.Err
+; Erreur, pas de chaine de commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.BadCh	move.w	#-5,Ed_ZapError(a5)
+	moveq	#14,d0
+.Err	bsr	Ed_GetMessage
+	move.l	a0,Ed_ZapMessage(a5)
+	bra.s	Ed_ZapOut
+; Erreur immediate, pas un accessoire / Deja runne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NoAcc	move.w	#-6,Ed_ZapError(a5)
+	moveq	#15,d0
+	bsr	Ed_GetMessage
+	move.l	a0,Ed_ZapMessage(a5)
+	bra.s	Ed_ZapX
+; _________________________________________________
+;
+;	SORTIE DE LA TELECOMMANDE
+; _________________________________________________
+;
+Ed_ZapOut
+; Rebranche le programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	bsr	EdM_Program
+	tst.b	Ed_YaUTest(a5)		Nettoyer les variables
+	beq.s	.NoNew
+	illegal				Ne doit JAMAIS se produire!
+;	bsr	Edt_ClearVar
+.NoNew	move.l	Edt_Runned(a5),a4	Remet les variables du programme
+	move.l	Edt_Prg(a4),a6
+	lea	Prg_ZapData(a6),a0
+	JJsrR	L_Prg_DataLoad,a1
+; Reactive l'�cran courant, si ouvert
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EcCalD	Last,EcEdit		En dernier!
+	bsr	EdReCop
+	move.w	ScOn(a5),d1
+	beq.s	Ed_ZapX
+	subq.w	#1,d1
+	EcCall	Active
+Ed_ZapX	move.w	Ed_ZapError(a5),d0
+	ext.l	d0
+	move.l	Ed_ZapMessage(a5),a0
+	clr.w	Ed_ZapError(a5)
+; Retour au programme appelant!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	BasSp(a5),sp
+	rts
+
+; ZAP: remplacement d'une chaine dans la config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdZ_NewConfig
+	lea	Sys_Messages(a5),a2	Trouve la bonne config
+	move.l	Ed_ZapParam(a5),d0
+	beq.s	.Skp
+	cmp.l	#5,d0			Met le flag seulement
+	bhi.s	.Skip
+	lea	Ed_Systeme-4(a5),a2
+	lsl.w	#2,d0
+	add.l	d0,a2
+.Skp	move.l	(a2),a0			Trouve le nombre de messages
+	bsr	Ed_GetNbMessage
+	move.l	d0,d1
+	move.l	Name1(a5),a1		Pas trop loin?
+	move.l	(a1)+,d0		Numero
+	cmp.l	d1,d0
+	bhi.s	.Skip
+	move.l	a2,a0
+	bsr	EdC_ChangeTexte		Va changer!
+	bne	Ed_OMm
+.Skip	move.b	#1,EdC_Modified(a5)	On a change le menu
+	move.b	#1,EdC_Changed(a5)	On a change la config!
+	rts
+; ZAP: remplacement d'une ligne dans le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdZ_NewLineTok
+	bsr.s	EdZ_NewLine
+	bsr	Ed_TokCur
+	rts
+EdZ_NewLine
+; Remplace la ligne par la nouvelle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_LCourant
+	move.l	a0,a1
+	move.l	Name1(a5),a2
+.Loop	move.b	(a2)+,(a1)+
+	bne.s	.Loop
+	subq.l	#1,a1
+	sub.l	a0,a1
+	move.w	a1,-2(a0)
+; Reaffiche la ligne courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_EALiCu
+	rts
+; _________________________________________________
+;
+;	FONCTIONS TELECOMMANDE
+; _________________________________________________
+;
+Ed_ZapFonction
+	tst.b	Prg_Accessory(a5)
+	beq.s	.PaAcc
+	subq.l	#1,d0
+	cmp.l	#EdZ_NFonc,d0
+	bcc	.IlFonc
+	move.l	Edt_Current(a5),a2
+	lsl.w	#2,d0
+	lea	EdZ_Jump(pc),a0
+	moveq	#0,d2
+	jsr	0(a0,d0.w)
+	rts
+; Pas un accessoire
+; ~~~~~~~~~~~~~~~~~
+.PaAcc	moveq	#15,d0
+	moveq	#-6,d1
+	bra.s	.Err
+; Illegal function call
+; ~~~~~~~~~~~~~~~~~~~~~
+.IlFonc	moveq	#16,d0
+	moveq	#-7,d1
+; Retour avec le message
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Err	bsr	Ed_GetMessage
+	move.l	d1,d0
+	moveq	#2,d2
+	rts
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdZ_Jump
+	bra	EdZ_GetLine		1 La ligne courante
+	bra	EdZ_GetName		2 Nom du programme courant
+	bra	EdZ_GetX		3 Position en X
+	bra	EdZ_GetY		4 Position en Y
+	bra	EdZ_GetNLigne		5 Nombre de lignes
+	bra	EdZ_X1Bloc		6 Debut X du bloc ombre
+	bra	EdZ_Y1Bloc		7 Debut Y du bloc ombre
+	bra	EdZ_X2Bloc		8 Fin X du bloc ombre
+	bra	EdZ_Y2Bloc		9 Fin Y du bloc ombre
+	bra	EdZ_GetFree		10 Espace libre
+	bra	EdZ_GetStruc		11 Adresse de la structure
+	bra	EdZ_Token		12 Tokenise la ligne
+	bra	EdZ_GetConfig		13 Adresse de la config
+EdZ_NFonc	equ	11
+;
+;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdZ_GetConfig
+	lea	Ed_Config(a5),a0
+	move.l	a0,d0
+	bra.s	EdZ_Coo
+EdZ_X1Bloc
+	bsr	EdZ_Bloc
+	move.w	d4,d0
+	bra.s	EdZ_Coo
+EdZ_Y1Bloc
+	bsr	EdZ_Bloc
+	bra.s	EdZ_Coo
+EdZ_X2Bloc
+	bsr	EdZ_Bloc
+	move.w	d5,d0
+	bra.s	EdZ_Coo
+EdZ_Y2Bloc
+	bsr	EdZ_Bloc
+	move.w	d1,d0
+	bra.s	EdZ_Coo
+EdZ_GetX
+	move.w	Edt_XCu(a2),d0
+	bra.s	EdZ_Coo
+EdZ_GetY
+	move.w	Edt_YPos(a2),d0
+	add.w	Edt_YCu(a2),d0
+EdZ_Coo	addq.w	#1,d0
+	ext.l	d0
+	rts
+EdZ_GetNLigne
+	move.l	Edt_Prg(a2),a0
+	move.w	Prg_NLigne(a0),d0
+	ext.l	d0
+	rts
+EdZ_GetFree
+	move.l	Edt_Prg(a2),a0
+	move.l	Prg_StBas(a0),d0
+	sub.l	Prg_StMini(a0),d0
+	rts
+EdZ_GetStruc
+	move.l	a2,d0
+	rts
+EdZ_GetName
+	move.l	Edt_Prg(a2),a0
+	lea	Prg_NamePrg(a0),a0
+	moveq	#0,d0
+	moveq	#2,d2
+	rts
+EdZ_GetLine
+	movem.l	a4/a6,-(sp)
+	move.l	a2,a4
+	move.l	Edt_Prg(a4),a6
+	move.l	Ed_BufT(a5),a1
+	clr.w	(a1)
+	move.l	d1,d0
+	ble.s	.LiCu
+; Ligne quelconque
+	subq.w	#1,d0
+	cmp.w	Prg_NLigne(a6),d1
+	bhi.s	.Out
+	bra.s	.Li
+; Ligne sous le curseur
+.LiCu	move.w	Edt_YCu(a4),d0
+	add.w	Edt_YPos(a4),d0
+.Li	bsr	Ed_FindL
+	beq.s	.Out
+	moveq	#0,d0
+	bsr	Detok
+.Out	move.l	Ed_BufT(a5),a0
+	move.w	(a0)+,d0
+	clr.b	0(a0,d0.w)
+	moveq	#0,d0
+	moveq	#2,d2
+	movem.l	(sp)+,a4/a6
+	rts
+EdZ_Bloc
+	move.w	Edt_YBloc(a2),d0
+	bmi.s	.No
+	move.w	Edt_YCu(a2),d1
+	add.w	Edt_YPos(a2),d1
+	move.w	Edt_XBloc(a2),d4
+	move.w	Edt_XCu(a2),d5
+	cmp.w	d0,d1
+	bhi.s	.Ok
+	bne.s	.Sw
+	cmp.w	d4,d5
+	bcc.s	.Ok
+.Sw	exg	d0,d1
+	exg	d4,d5
+.Ok	rts
+.No	addq.l	#4,sp
+	moveq	#-1,d0
+	rts
+; Tokenise la ligne du buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdZ_Token
+	move.l	a2,-(sp)
+	move.l	Buffer(a5),a0
+	move.l	Ed_BufT(a5),a1
+	bsr	Tokenise
+	move.l	Ed_BufT(a5),d0
+	moveq	#0,d2
+	move.l	(sp)+,a2
+	rts
+
+
+; ______________________________________________________________________
+;
+;						LISTES / MEMOIRE
+; ______________________________________________________________________
+
+; Reserve un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+;	D0=	Longueur
+Ed_MemReserve
+	movem.l	d1/a1,-(sp)
+	move.l	a0,a1
+	move.l	d0,d1
+	addq.l	#4,d0
+	SyCall	MemFastClear
+	beq.s	.Out
+	move.l	d1,(a0)+
+	move.l	a0,(a1)
+.Out	movem.l	(sp)+,d1/a1
+	rts
+; Efface un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+Ed_MemFree
+	movem.l	a0/a1,-(sp)
+	move.l	(a0),d0
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	SyCall	SyFree
+.Skip	movem.l	(sp)+,a0/a1
+	rts
+
+;
+; Cree un �l�ment en tete de liste A0 / longueur D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ListeNew
+	movem.l	a0/d0/d1,-(sp)
+	addq.l	#8,d0
+	exg	a0,a1
+	SyCall	MemFastClear
+	exg	a0,a1
+	beq.s	.Err
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	subq.l	#8,d0
+	move.l	d0,4(a1)
+.Err	movem.l	(sp)+,a0/d0/d1
+	rts
+
+; Efface une liste entiere A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ListeDelAll
+	bra.s	.In
+.Loop	move.l	d0,a1
+	bsr	Ed_ListeDel
+.In	move.l	(a0),d0
+	bne.s	.Loop
+	rts
+; Efface un �l�ment de liste A1 / Debut liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ListeDel
+	movem.l	a0/d0-d2,-(sp)
+	move.l	a1,d0
+	move.l	a0,a1
+	move.l	(a1),d2
+	beq.s	.NFound
+.Loop	move.l	a1,d1
+	move.l	d2,a1
+	cmp.l	d0,a1
+	beq.s	.Found
+	move.l	(a1),d2
+	bne.s	.Loop
+	bra.s	.NFound
+; Enleve de la liste
+.Found	move.l	d1,a0
+	move.l	(a1),(a0)
+	move.l	4(a1),d0
+	addq.l	#8,d0
+	SyCall	MemFree
+.NFound	movem.l	(sp)+,a0/d0-d2
+	rts
+
+; Clearvar du programme courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_ClearVar
+	bsr	EdM_Program
+	JJsr	L_Prg_SetBanks
+	JJsr	L_ClearVar
+	rts
+;
+; Actualisation des ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdReCop	SyCall	WaitVbl
+	EcCall	CopForce
+	rts
+
+; ______________________________________________________________________
+;
+;						BOITES DE DIALOGUE
+; ______________________________________________________________________
+
+; Initialisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_InitDialogues
+	bsr	Ed_SetBanks
+	moveq	#1,d0			Canal #1
+	move.l	#1024,d1		1024 octets
+	moveq	#16,d2			16 variables
+	moveq	#0,d3			Ne pas recopier la chaine
+	move.l	Ed_Resource(a5),a0
+	move.l	a0,a1
+	add.l	2+8(a0),a0		Base des programmes
+	add.l	2+0(a0),a0		Programme numero 1
+	add.l	2(a1),a1		Base des graphiques
+	move.l	Ed_Messages(a5),a2	Base des messages
+	JJsrP	L_Dia_OpenChannel,a3
+	bne.s	.Err
+	move.l	a0,Ed_ADialogues(a5)
+	move.l	a1,Ed_VDialogues(a5)
+	move.l	#Ed_DiaImages,Dia_PuzzleI(a0)
+	bsr	Ed_IChaine
+	moveq	#0,d0
+.Err	rts
+
+; Fin des dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EndDialogues
+	bsr	Ed_SetBanks
+	moveq	#1,d0
+	JJsr	L_Dia_CloseChannel
+	rts
+
+; Copie une chaine dans le buffer de dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_IChaine
+	move.l	Ed_BufT(a5),Ed_DiaCopyC(a5)
+	rts
+Ed_DChaine
+	move.l	Ed_DiaCopyC(a5),Ed_DiaCopyD(a5)
+	addq.l	#2,Ed_DiaCopyC(a5)
+Ed_AChaine
+	move.l	Ed_DiaCopyC(a5),a1
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+	subq.l	#1,a1
+	move.l	a1,Ed_DiaCopyC(a5)
+	move.l	a1,d0
+	move.l	Ed_DiaCopyD(a5),a1
+	sub.l	a1,d0
+	subq.b	#2,d0
+	clr.b	(a1)
+	move.b	d0,1(a1)
+	rts
+
+; Appel general des dialogues, avec protection memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Dialogue:
+	tst.b	Ed_Zappeuse(a5)
+	beq.s	.NoZap
+	move.l	Ed_ZapParam(a5),d0		Zappeuse: retourne parametre
+	rts
+; Au moins 48k de CHIP pour un effacement...
+.NoZap	clr.l	Dia_Magic(a5)
+	movem.l	d0/a6,-(sp)
+	move.l	$4.w,a6
+	move.l	#Public|Chip,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,d1
+	movem.l	(sp)+,d0/a6
+	cmp.l	#48*1024,d1
+	bcc.s	Ed_DoDialog
+; Sans effacement!
+	move.l	#"NobL",Dia_Magic(a5)
+	bsr	Ed_DoDialog
+	movem.l	d0-d1/a0-a1,-(sp)
+	bsr	Ed_DrawWindows
+	movem.l	(sp)+,d0-d1/a0-a1
+	rts
+; Appel des dialogues
+; ~~~~~~~~~~~~~~~~~~~
+Ed_DoDialog
+	bsr	Ed_SetBanks
+	movem.l	d2-d3,-(sp)
+	move.l	d0,d1
+	moveq	#1,d0
+	move.l	#EntNul,d2
+	move.l	d2,d3
+	JJsr	L_Dia_RunProgram
+	movem.l	(sp)+,d2-d3
+	clr.l	Dia_Magic(a5)
+	move.l	d1,d0
+	bsr	Ed_IChaine
+	rts
+
+
+; _________________________________________________________________________
+;
+; Jumps aux touches de fonction
+; _________________________________________________________________________
+;
+JFonc:	bra	Ed_CHaut		* 1  Cur Haut
+	bra	Ed_CBas			* 2  Cur Bas
+	bra	Ed_CGauche		* 3  Cur Gauche
+	bra	Ed_CDroite		* 4  Cur Droite
+	bra	Ed_HPage		* 5  Haut Page
+	bra	Ed_BPage		* 6  Bas Page
+	bra	Ed_MGauche		* 7  Mot gauche
+	bra	Ed_MDroite		* 8  Mot Droite
+	bra	Ed_PHaut		* 9  Page Haut
+	bra	Ed_PBas			* 10 Page Bas
+	bra	Ed_DLigne		* 11 Debut Ligne
+	bra	Ed_FLigne		* 12 Fin Ligne
+	bra	Ed_EtatUp		* 13 Bar Haut Haut
+	bra	Ed_EtatDown		* 14 Bar haut Bas
+	bra	Ed_BasUp		* 15 Bar Bas Haut
+	bra	Ed_BasDown		* 16 Bar Bas Bas
+	bra	Ed_HTexte		* 17 Haut Texte
+	bra	Ed_BTexte		* 18 Bas Texte
+	bra	Ed_Return		* 19 Return
+	bra	Ed_Back			* 20 Backspace
+	bra	Ed_Delete		* 21 Delete
+	bra	Ed_EffLigne		* 22 Effacement Ligne
+	bra	Ed_DelLiCu		* 23 Delete Ligne
+	bra	Ed_Tab			* 24 Plus Tab
+	bra	Ed_ShTab		* 25 Moins Tab
+	bra	Ed_STab			* 26 Set Tab
+	bra	Ed_UserMenu		* 27 Help
+	bra	Ed_Escape		* 28 Escape
+	bra	Ed_InsLine		* 29 Insert Ligne
+	bra	Ed_DelFin		* 30 Delete Fin Ligne
+	bra	Ed_PLabel		* 31 Previous Label
+	bra	Ed_NLabel		* 32 Next Label
+	bra	Ed_Load			* 33 Load
+	bra	Ed_SaveAs		* 34 SaveAs
+	bra	Ed_Save			* 35 Save
+	bra	Ed_DelMot		* 36 Del Mot
+	bra	Ed_BackMot		* 37 Back Mot
+	bra	Ed_WindowHide		* 38 Hide Project
+	bra	Ed_SMark0		* 39 Set Marks
+	bra	Ed_SMark1
+	bra	Ed_SMark2
+	bra	Ed_SMark3
+	bra	Ed_SMark4
+	bra	Ed_SMark5
+	bra	Ed_SMark6
+	bra	Ed_SMark7
+	bra	Ed_SMark8
+	bra	Ed_SMark9
+	bra	Ed_GMark0		* 49 Goto Mark
+	bra	Ed_GMark1
+	bra	Ed_GMark2
+	bra	Ed_GMark3
+	bra	Ed_GMark4
+	bra	Ed_GMark5
+	bra	Ed_GMark6
+	bra	Ed_GMark7
+	bra	Ed_GMark8
+	bra	Ed_GMark9
+	bra	Ed_BlocOn		* 59 Marche / Arret Bloc
+	bra	Ed_BlocForget		* 60 Forget Bloc
+	bra	Ed_OpenLoad		* 61 Open + Load
+	bra	Ed_BlocCut		* 62 Cut Bloc
+	bra	Ed_BlocPaste		* 63 Paste Bloc
+	bra	Ed_DelDebut		* 64 Delete to S.O.L
+	bra	Ed_Undo			* 65 Undo
+	bra	Ed_Search		* 66 Search
+	bra	Ed_SearchNext		* 67 Search Next
+	bra	Ed_SearchPrev		* 68 Search Previous
+	bra	EdZ_NewLine		* 69 ZAPPEUSE: replace line
+	bra	Ed_RAlert		* 70 Recall last alert
+	bra	EdZ_NewLineTok		* 71 ZAPPEUSE: replace+tokenise
+	bra	Ed_BlocStore		* 72 Store bloc
+
+	bra	Ed_Key2Menu		* 73 Set Key Shortcut
+	bra	Ed_Prg2Menu		* 74 Affect Program to menu
+	bra	Ed_Ins			* 75 Flip Insert Mode
+	bra	Ed_GotoL		* 76 Goto Line Number
+	bra	Ed_Run			* 77 Run
+	bra	Ed_Test			* 78 Test
+	bra	Ed_Indent		* 79 Indent
+	bra	Ed_New			* 80 Clear
+	bra	Ed_CloseWindowQuit	* 81 Close
+	bra	Ed_Quit			* 82 Quit
+	bra	Ed_Infos		* 83 Editor Informations
+	bra	Ed_Merge		* 84 Merge
+	bra	Ed_LoadA		* 85 Merge Ascii
+	bra	Ed_BlocPrint		* 86 Print Bloc
+	bra	Ed_ProcOpen		* 87 Open / Close
+	bra	Ed_LoadHidden		* 88 Load Hidden program
+	bra	Ed_ProcsOpen		* 89 Open All
+	bra	Ed_ProcsClose		* 90 Close All
+	bra	Ed_PrevWindow		* 91 Previous Window
+	bra	Ed_NextWindow		* 92 Next Window
+	bra	Ed_FlipSizeWindow	* 93 Enlarge Window
+	bra	Ed_Redo			* 94 Redo
+	bra	Ed_SplitWindow		* 95 Split View
+	bra	Ed_LinkCursor		* 96 Link Cursor
+	bra	Ed_BlocSaveAscii	* 97 Save Block as Ascii
+	bra	Ed_BlocSave		* 98 Save Block
+	bra	Ed_Replace		* 99 Replace New
+	bra	Ed_ReplaceNext		* 100 Replace Next
+	bra	Ed_ReplacePrev		* 101 Replace Previous
+	bra	Ed_NewAllHidden		* 102 New All Hidden Programs
+	bra	Ed_OpenWindow		* 103 Open New
+	bra	Ed_ShowKey		* 104 Show Key shortcuts
+	bra	Ed_Wb			* 105 Workbench
+	bra	EdMa_New		* 106 Set new Macro
+	bra	EdMa_Del		* 107 Clear One Macro
+	bra	EdMa_DelAll		* 108 Clear All Macros
+	bra	EdMa_LoadAs		* 109 Load Macros
+	bra	EdMa_SaveAs		* 110 Save Macros
+HiddenCommands	equ	184
+HiddenCall	equ	111
+	bra	Ed_RunHidden		* 111 Run
+	bra	Ed_EditHidden		* 112 Edit
+	bra	Ed_NewHidden		* 113 New
+	bra	Ed_SetBuffer		* 114 Set Buffer
+EdM_UserCommands	equ	115
+EdM_UserLong		equ	16
+EdM_UserMax		equ	20
+	bra	Ed_UserMenu		* 0
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 5
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 10
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 15
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+
+	bra	Ed_AddUser		* 135 Add user option
+	bra	Ed_DelUser		* 136 Del user option
+	bra	EdC_SaveDefault		* 137 Save default config
+	bra	EdC_SaveAs		* 138 Save As
+	bra	EdC_LoadDefault		* 139 Load default config
+	bra	EdC_LoadAs		* 140 Load As
+	bra	Ed_QuitOptions		* 141 Quit Options
+	bra	Ed_SetAutoSave		* 142 Autosave
+	bra	EdMa_LoadDefault	* 143 Load Default Macros
+	bra	EdMa_SaveDefault	* 144 Save Default Macros
+	bra	Ed_GoMonitor		* 145 Monitor
+	bra	Ed_PrgPrint		* 146 Program Print
+	bra	Ed_Check1.3		* 147 Check 1.3
+	bra	Ed_SamOn		* 148 Sound On / Off
+ 	bra	Ed_AboutExt		* 149 About extensions
+	bra	Ed_About		* 150 About AMOS
+	bra	Ed_ProcML		* 151 Insert machine langage
+
+; HELP: Insersion des commandes ZAP additionnelles
+	bra	Ed_SaveAsName		* 152 Sauve sans changer nom
+	bra	Ed_CloseName		* 153 Ferme une fenetre nom
+	bra	Ed_Rename		* 154 Rename le programme courant
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 157
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 162
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 167
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu
+	bra	Ed_UserMenu		* 172 Interpretor Setup
+	bra	Ed_UserMenu		* 173 Editor Setup
+	bra	Ed_UserMenu		* 174 Editor Menus
+	bra	Ed_UserMenu		* 175 Editor Dialogs
+	bra	Ed_UserMenu		* 176 Test-Time
+	bra	Ed_UserMenu		* 177 Run-Time
+	bra	Ed_UserMenu		* 178 Colour Palette
+	bra	EdM_PrevHidden		* 179 Previous programs
+	bra	EdM_NextHidden		* 180 Next programs
+	bra	Ed_BlocAll		* 181 All text as block
+	bra	EdZ_NewConfig		* 182 ZAP: remplace chaine dans config
+	bra	Ed_GoHelp		* 183 Branche au HELP
+	bra	Ed_UserMenu		* 184
+
+; Flags pour chaque fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+FlagFonc
+; Bit 0: redessiner le buffer
+; Bit 1: redessiner la ligne
+; Bit 2: Interdit si procedure fermee
+; Bit 5: autorise en macro!
+; Bit 6: transmettre une ligne de commande
+; Bit 7: commande t�l�commandable
+	dc.b	%10100000		* 1  Cur Haut
+	dc.b	%10100000 		* 2  Cur Bas
+	dc.b	%10100000		* 3  Cur Gauche
+	dc.b	%10100000		* 4  Cur Droite
+	dc.b	%10100000		* 5  Haut Page
+	dc.b	%10100000		* 6  Bas Page
+	dc.b	%10100000		* 7  Mot gauche
+	dc.b	%10100000		* 8  Mot Droite
+	dc.b	%10100000		* 9  Page Haut
+	dc.b	%10100000		* 10 Page Bas
+	dc.b	%10100000		* 11 Debut Ligne
+	dc.b	%10100000		* 12 Fin Ligne
+	dc.b	%10100000		* 13 Bar Haut Haut
+	dc.b	%10100000		* 14 Bar haut Bas
+	dc.b	%10100000		* 15 Bar Bas Haut
+	dc.b	%10100000		* 16 Bar Bas Bas
+	dc.b	%10100000  		* 17 Haut Texte
+	dc.b	%10100000		* 18 Bas Texte
+	dc.b	%10100011 		* 19 Return
+	dc.b	%10100101		* 20 Backspace
+	dc.b	%10100101		* 21 Delete
+	dc.b	%10100110		* 22 Effacement Ligne
+	dc.b	%10100110		* 23 Delete Ligne
+	dc.b	%10100101		* 24 Plus Tab
+	dc.b	%10100101		* 25 Moins Tab
+	dc.b	%00000000		* 26 Set Tab
+	dc.b	%00000000		* 27 Help
+	dc.b	%00000000		* 28 Escape
+	dc.b	%10100010		* 29 Insert Ligne
+	dc.b	%10100101		* 30 Delete Fin Ligne
+	dc.b	%10100000		* 31 Previous Label
+	dc.b	%10100000		* 32 Next Label
+	dc.b	%10000010		* 33 Load
+	dc.b	%10000010		* 34 SaveAs
+	dc.b	%10000000		* 35 Save
+	dc.b	%10100100		* 36 Del Mot
+	dc.b	%10100100		* 37 Back Mot
+	dc.b	%00000000		* 38 Hide Project
+	dc.b	%10100000		* 39 Set Marks
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000		* 49 Goto Mark
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000
+	dc.b	%10100000	 	* 59 Marche / Arret Bloc
+	dc.b	%10100010		* 60 Forget Bloc
+	dc.b	%10000010		* 61 Open + Load
+	dc.b	%10100010		* 62 Cut Bloc
+	dc.b	%10100010		* 63 Paste Bloc
+	dc.b	%10100110		* 64 Delete to S.O.L
+	dc.b	%10000001		* 65 Undo
+	dc.b	%10000000		* 66 Search
+	dc.b	%10100000		* 67 Search Next
+	dc.b	%10100001		* 68 Search Previous
+	dc.b	%10000100		* 69 ZAPPEUSE: Newline
+	dc.b	%00000000		* 70 Recall last alert
+	dc.b	%10000110		* 71 ZAPPEUSE: Newline+Tokenise
+	dc.b	%10100000		* 72 Store bloc
+
+	dc.b	%00000010		* 73 Set Key Shortcut
+	dc.b	%00000010		* 74 Affect Program to menu
+	dc.b	%00100000		* 75 Flip Insert Mode
+	dc.b	%10000000		* 76 Goto Line Number
+	dc.b	%00000000		* 77 Run
+	dc.b	%00000000		* 78 Test
+	dc.b	%00000010		* 79 Indent
+	dc.b	%10000010		* 80 Clear
+	dc.b	%10000000		* 81 Close
+	dc.b	%00000000		* 82 Quit
+	dc.b	%00000000		* 83 Informations
+	dc.b	%10100110		* 84 Merge
+	dc.b	%10100110  		* 85 Merge Ascii
+	dc.b	%10000000		* 86 Print Bloc
+	dc.b	%00000010		* 87 Open / Close
+	dc.b	%00000010		* 88 Load Hidden program
+	dc.b	%10000010		* 89 Open All
+	dc.b	%00000010		* 90 Close All
+	dc.b	%10000000		* 91 Previous Window
+	dc.b	%10000000		* 92 Next Window
+	dc.b	%10000000		* 93 Enlarge Window
+	dc.b	%10000000		* 94 Redo
+	dc.b	%00000000		* 95 Split View
+	dc.b	%00000000		* 96 Link Cursor
+	dc.b	%10100000		* 97 Save Block as Ascii
+	dc.b	%10100000		* 98 Save Block
+	dc.b	%10100010		* 99 Replace
+	dc.b	%10000010		* 100 Replace Next
+	dc.b	%10000000		* 101 Replace Previous
+	dc.b	%00000000		* 102 New All Hidden Programs
+	dc.b	%10000000		* 103 Open New
+	dc.b	%00000000		* 104 Show Key shortcuts
+	dc.b	%00000000		* 105 Workbench
+	dc.b	%00000000		* 106 Set New Macro
+	dc.b	%00000000		* 107 Clear Macro
+	dc.b	%00000000		* 108 Clear All Macros
+	dc.b	%00000000		* 109 Load Macros
+	dc.b	%00000000		* 110 Save Macros
+	dc.b	%00000000		* 111 Run
+	dc.b	%00000000		* 112 Edit
+	dc.b	%00000000		* 113 New
+	dc.b	%00000000		* 114 Set TextBuffer
+
+	dc.b	%00000000		* 0  User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		* 5  User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		* 10 User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		* 15 User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+	dc.b	%00000000		*    User Menu
+
+	dc.b	%00000000		* 135 Add user option
+	dc.b	%00000000		* 136 Del user option
+	dc.b	%00000000		* 137 Save default config
+	dc.b	%00000000		* 138 Save As
+	dc.b	%00000000		* 139 Load default config
+	dc.b	%00000000		* 140 Load As
+	dc.b	%00000000		* 141 Quit Options
+	dc.b	%00000000		* 142 Autosave
+	dc.b	%00000000		* 143 Load Default Macros
+	dc.b	%00000000		* 144 Save Default Macros
+	dc.b	%00000000		* 145 Monitor
+	dc.b	%10000000		* 146 Program Print
+	dc.b	%00000000		* 147 Check 1.3
+	dc.b	%00000000		* 148 Sound On / Off
+	dc.b	%00000000		* 149 About extensions
+	dc.b	%00000000		* 150 About AMOS
+	dc.b 	%00000000		* 151 Insert machine langage
+; HELP: Insersion des commandes ZAP additionnelles
+	dc.b	%11000000		* 152 Save As Name
+	dc.b	%11000000
+	dc.b	%11000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000		* 157
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000		* 162
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000		* 167
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000
+	dc.b	%00000000		* 172 Interpretor Setup
+	dc.b	%00000000		* 173 Editor Setup
+	dc.b	%00000000		* 174 Editor Menus
+	dc.b	%00000000		* 175 Editor Dialogs
+	dc.b	%00000000		* 176 Test-Time
+	dc.b	%00000000		* 177 Run-Time
+	dc.b	%00000000		* 178 Colour Palette
+	dc.b	%00000000		* 179 Previous programs
+	dc.b	%00000000		* 180 Next programs
+	dc.b	%10000000		* 181 All text as block
+	dc.b	%11000000		* 182 Change config string
+	dc.b	%00000000		* 183
+	dc.b	%00000000		* 184
+	even
+
+;
+; BACKSPACE
+; ~~~~~~~~~
+Ed_Back
+	tst.w	Edt_XCu(a4)
+	beq	Ed_Join
+	bsr	Ed_CGauche
+	bsr	Ed_Delete
+.Skip	rts
+
+;
+; DELETE
+; ~~~~~~
+Ed_Delete
+	moveq	#"F",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+	bsr	Ed_LCourant
+	sub.w	Edt_XCu(a4),d0
+	subq.w	#1,d0
+	bmi	CFin
+; Gestion de l'UNDO
+	bsr	Un_Debut
+	bne.s	.Skip
+	move.b	#$02,(a2)
+	move.b	(a1),5(a2)
+.Skip
+; Enleve la lettre
+	moveq	#1,d0
+	bsr	R_DelChar
+	bra	Ed_EALiCu
+
+;
+; EFFACEMENT LIGNE
+; ~~~~~~~~~~~~~~~~
+Ed_EffLigne
+	addq.w	#1,Edt_LEdited(a4)
+	clr.w	Edt_XCu(a4)
+	bsr	Ed_LCourant
+	moveq	#0,d0
+	move.w	-2(a0),d0
+	clr.w	-2(a0)
+	bsr	Un_CLine
+	bsr	Ed_EALiCu
+	bra	Ed_Cent
+
+;
+; DELETE JUSQUA LA FIN DE LA LIGNE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DelFin
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_LCourant
+	cmp.w	d0,d1
+	bcc.s	.EdFin
+	move.w	-2(a0),d0
+	move.w	d1,-2(a0)
+	sub.w	d1,d0
+	ext.l	d0
+	move.l	a1,a0
+	bsr	Un_CLine
+	bra	Ed_EALiCu
+.EdFin	rts
+;
+; DELETE JUSQU'AU DEBUT DE LA LIGNE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DelDebut
+	bsr	Ed_LCourant
+	tst.w	d1
+	beq.s	.Out
+	cmp.w	d0,d1
+	bcc.s	.Skip
+	move.w	d1,d0
+.Skip	clr.w	Edt_XCu(a4)
+	ext.l	d0
+	bsr	Un_CLine
+	bsr	R_DelChar
+	bsr	Ed_EALiCu
+.Out	rts
+;
+; SHIFT-DELETE MOT A DROITE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DelMot
+	bsr	R_MotDroi
+	move.w	Edt_XCu(a4),d0
+	cmp.w	d0,d1
+	bls.s	.Skip
+	sub.w	d0,d1
+	move.w	d1,d2
+	bsr	Ed_LCourant
+	cmp.w	d0,d1
+	bcc.s	.Skip
+	move.w	d2,d0
+	move.l	a1,a0
+	ext.l	d0
+	bsr	Un_CLine
+	move.w	d2,d0
+	bsr	R_DelChar
+	bsr	Ed_EALiCu
+.Skip	rts
+
+;
+; SHIFT-BACKSPACE MOT A GAUCHE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BackMot
+	bsr	R_MotGoch
+	move.w	Edt_XCu(a4),d0
+	cmp.w	d0,d1
+	bcc.s	.Skip
+	move.w	d1,Edt_XCu(a4)
+	bsr	Ed_Cent
+	bra.s	Ed_DelMot
+.Skip	rts
+
+;
+; TAB
+; ~~~
+Ed_Tab
+	bsr	Ed_LCourant
+	lea	0(a0,d0.w),a1		* Fin actuelle
+	move.w	Ed_Tabs(a5),d2
+	add.w	d2,d0
+	cmp.w	#250,d0
+	bcc	Ed_LToLong
+	add.w	d2,-2(a0)
+	lea	0(a0,d0.w),a2		* Nouvelle fin
+	bra.s	.ETab2
+.ETab1	move.b	-(a1),-(a2)
+.ETab2	cmp.l	a0,a1
+	bhi.s	.ETab1
+	add.w	d2,Edt_XCu(a4)
+	subq.w	#1,d2
+	bmi.s	ETab4
+.ETab3	move.b	#" ",(a1)+
+	dbra	d2,.ETab3
+ETab4	addq.w	#1,Edt_LEdited(a4)
+	move.w	Edt_YCu(a4),d1
+	bsr	Ed_EALigne
+	bsr	Ed_Cent
+ETabX	rts
+
+;
+; SHIFT TAB (enleve les tabs)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ShTab
+	bsr	Ed_LCourant
+	lea	0(a0,d0.w),a2
+	move.l	a0,a1
+	moveq	#0,d0
+	move.w	Ed_Tabs(a5),d1
+	subq.w	#1,d1
+	bmi.s	ETabX
+.ShT1	cmp.b	#" ",(a0)
+	bne.s	.ShT2
+	addq.l	#1,a0
+	cmp.l	a2,a0
+	bcc.s	.ShT2
+	addq.w	#1,d0
+	dbra	d1,.ShT1
+.ShT2	tst.w	d0
+	beq.s	ETabX
+	sub.w	d0,-2(a1)
+	sub.w	d0,Edt_XCu(a4)
+	bpl.s	.ShT4
+	clr.w	Edt_XCu(a4)
+	bra.s	.ShT4
+.ShT3	move.b	(a0)+,(a1)+
+.ShT4	cmp.l	a2,a0
+	bls.s	.ShT3
+	bra.s	ETab4
+
+;
+; SET TAB VALUE
+; ~~~~~~~~~~~~~
+Ed_STab	bsr	Ed_TokCur
+	move.l	Ed_VDialogues(a5),a2
+	moveq	#0,d0
+	move.w	Ed_Tabs(a5),d0
+	move.l	d0,2*4(a2)
+	moveq	#EdD_SetTab,d0
+	bsr	Ed_Dialogue
+	moveq	#1,d0
+	moveq	#3,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.w	d1,Ed_Tabs(a5)
+; Flag pour QUIT
+	move.b	#1,EdC_Changed(a5)
+	bra	Ed_Loca
+
+;
+; Curseur vers le haut
+; ~~~~~~~~~~~~~~~~~~~~
+Ed_CHaut
+	bsr	Ed_TokCur
+	moveq	#"F",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+Ed_ChtT
+	bset	#EtA_Y,Edt_EtatAff(a4)
+	tst.w	Edt_YCu(a4)
+	beq.s	CHt1
+	subq.w	#1,Edt_YCu(a4)
+	bra	Ed_Loca
+CHt1	tst.w	Edt_YPos(a4)
+	beq	Ed_CHtE
+	subq.w	#1,Edt_YPos(a4)
+; Scrolle l'ecran graphique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CHt
+	move.b	#SlDelai,Edt_ASlY(a4)
+	cmp.w	#1,Edt_WindTy(a4)
+	beq.s	.Skip
+	WiCalD	ChrOut,20
+; Scrolle l'ecran texte
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_BufE(a4),a1
+	move.w	Edt_WindTy(a4),d0
+	lsl.w	#8,d0
+	add.w	d0,a1
+	lea	-256(a1),a0
+	move.w	Edt_WindTy(a4),d0
+	subq.w	#1,d0
+	lsl.w	#4,d0
+	subq.w	#1,d0
+.CBs2	move.l	-(a0),-(a1)
+	move.l	-(a0),-(a1)
+	move.l	-(a0),-(a1)
+	move.l	-(a0),-(a1)
+	dbra	d0,.CBs2
+; Affiche la derniere ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+.Skip	move.w	Edt_YPos(a4),d0
+	moveq	#0,d1
+	bsr	Ed_Untok
+	bsr	Ed_EALigne
+	bra	Ed_Loca
+;
+; Pitit retour.
+; ~~~~~~~~~~~~~
+CFin:	rts
+
+;
+; Curseur vers le bas
+; ~~~~~~~~~~~~~~~~~~~
+Ed_CBas
+	bsr	Ed_TokCur
+	moveq	#"F",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+
+; Entree pour la tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CBasT
+	bset	#EtA_Y,Edt_EtatAff(a4)
+	move.w	Edt_YPos(a4),d0		* Deja la derniere ligne
+	add.w	Edt_YCu(a4),d0
+	cmp.w	Prg_NLigne(a6),d0
+	bcc	Ed_CBasE
+
+	move.w	Edt_YCu(a4),d0
+	move.w	Edt_WindTy(a4),d1
+	subq.w	#1,d1
+	cmp.w	d1,d0
+	bcc.s	.CBs1
+	addq.w	#1,Edt_YCu(a4)
+	bra	Ed_Loca
+
+.CBs1:	addq.w	#1,Edt_YPos(a4)
+; Scrolle l'ecran graphique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CBs
+	move.b	#SlDelai,Edt_ASlY(a4)
+	cmp.w	#1,Edt_WindTy(a4)
+	beq.s	.Skip
+	WiCalD	ChrOut,22
+; Scrolle l'ecran texte
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_BufE(a4),a1
+	lea	256(a1),a0
+	move.w	Edt_WindTy(a4),d0
+	subq.w	#1,d0
+	lsl.w	#4,d0
+	subq.w	#1,d0
+.CHt2	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	dbra	d0,.CHt2
+; Affiche la derniere ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+.Skip	move.w	Edt_YPos(a4),d0
+	move.w	Edt_WindTy(a4),d1
+	subq.w	#1,d1
+	add.w	d1,d0
+	bsr	Ed_Untok
+	bsr	Ed_EALigne
+	bra	Ed_Loca
+
+;
+; Curseur vers la gauche
+; ~~~~~~~~~~~~~~~~~~~~~~
+Ed_CGauche
+	moveq	#"F",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+
+	bset	#EtA_X,Edt_EtatAff(a4)
+	move.w	Edt_XCu(a4),d0
+	beq	CFin
+	subq.w	#1,d0
+	move.w	d0,Edt_XCu(a4)
+	sub.w	Edt_XPos(a4),d0
+	cmp.w	#15,d0
+	bcc.s	CGo1
+	tst.w	Edt_XPos(a4)
+	beq.s	CGo1
+Ed_CGo
+	subq.w	#1,Edt_XPos(a4)
+	WiCalD	ChrOut,19
+	moveq	#0,d1
+	bsr	Ed_AffBufCar
+CGo1	bra	Ed_Loca
+
+;
+; Curseur vers la droite
+; ~~~~~~~~~~~~~~~~~~~~~~
+Ed_CDroite
+	moveq	#"F",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+
+	bset	#EtA_X,Edt_EtatAff(a4)
+	move.w	Edt_XCu(a4),d0
+	cmp.w	#250,d0
+	bcc	CFin
+	addq.w	#1,d0
+	move.w	d0,Edt_XCu(a4)
+	sub.w	Edt_XPos(a4),d0
+	cmp.w	#WiTx-10,d0
+	bcs.s	CDr0
+Ed_CDr
+	addq.w	#1,Edt_XPos(a4)
+	WiCalD	ChrOut,17
+	move.w	Edt_WindTx(a4),d1
+	subq.w	#1,d1
+	bsr	Ed_AffBufCar
+CDr0	bra	Ed_Loca
+
+;
+; Haut page
+; ~~~~~~~~~
+Ed_HPage
+	bsr	Ed_TokCur
+	clr.w	Edt_YCu(a4)
+Ed_LXY
+	or.b	#EtA_BXY,Edt_EtatAff(a4)
+	bra	Ed_Loca
+
+;
+; Bas page
+; ~~~~~~~~
+Ed_BPage
+	bsr	Ed_TokCur
+	move.w	Edt_WindTy(a4),d0
+	subq.w	#1,d0
+	move.w	Edt_YPos(a4),d1
+	add.w	d0,d1
+	cmp.w	Prg_NLigne(a6),d1
+	bcs.s	.BPag
+	sub.w	Prg_NLigne(a6),d1
+	sub.w	d1,d0
+.BPag	move.w	d0,Edt_YCu(a4)
+	bra	Ed_LXY
+
+;
+; Mot gauche
+; ~~~~~~~~~~
+Ed_MGauche
+	bsr	R_MotGoch
+	move.w	d1,Edt_XCu(a4)
+	bra	Ed_Cent
+;
+; Mot droit
+; ~~~~~~~~~
+Ed_MDroite
+	bsr	R_MotDroi
+	move.w	d1,Edt_XCu(a4)
+	bra	Ed_Cent
+;
+; Pointe le mot PRECEDENT
+; ~~~~~~~~~~~~~~~~~~~~~~~
+R_MotGoch
+	bsr	Ed_LCourant
+	cmp.w	d0,d1
+	bls.s	.MGo0
+	move.w	d0,d1
+	bra.s	.MGo4
+.MGo0	subq.w	#1,d1
+	bmi.s	.MGo3
+	cmp.b	#32,-(a1)
+	bne.s	.MGo2
+.MGo1	subq.w	#1,d1
+	bmi.s	.MGo3
+	cmp.b	#32,-(a1)
+	beq.s	.MGo1
+.MGo2	subq.w	#1,d1
+	bmi.s	.MGo3
+	move.b	-(a1),d2
+	bsr	Une_Lettre
+	bne.s	.MGo2
+.MGo3	addq.w	#1,d1
+.MGo4	rts
+
+; Pointe le mot DROIT
+; ~~~~~~~~~~~~~~~~~~~
+R_MotDroi
+	bsr	Ed_LCourant
+.MDr1	addq.w	#1,d1
+	cmp.w	d0,d1
+	bcc.s	.MDr2
+	move.b	(a1)+,d2
+	bsr	Une_Lettre
+	bne.s	.MDr1
+	cmp.b	#32,(a1)
+	beq.s	.MDr1
+.MDr2	rts
+
+
+;
+; Debut ligne
+; ~~~~~~~~~~~
+Ed_DLigne
+Ed_DLigneT
+	clr.w	Edt_XCu(a4)
+	bra	Ed_Cent
+
+;
+; Fin ligne
+; ~~~~~~~~~
+Ed_FLigne
+	bsr	Ed_LCourant
+	move.w	d0,Edt_XCu(a4)
+	bra	Ed_Cent
+
+;
+; Page up
+; ~~~~~~~
+Ed_PHaut
+	bsr	Ed_TokCur
+	bset	#EtA_Y,Edt_EtatAff(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	tst.w	Edt_YPos(a4)
+	beq	Ed_HTex
+	move.w	Edt_WindTy(a4),d0
+	subq.w	#2,d0
+	bpl.s	.Skip
+	moveq	#1,d0
+.Skip	sub.w	d0,Edt_YPos(a4)
+	bcc	Ed_NewBuf
+	clr.w	Edt_YPos(a4)
+	bra	Ed_NewBuf
+;
+; Page down
+; ~~~~~~~~~
+Ed_PBas
+	bsr	Ed_TokCur
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	move.w	Edt_WindTy(a4),d1
+	subq.w	#2,d1
+	bpl.s	.Skip
+	moveq	#1,d1
+.Skip	add.w	d1,d0
+	cmp.w	Prg_NLigne(a6),d0
+	bcc	Ed_BTex
+	add.w	d1,Edt_YPos(a4)
+	bset	#EtA_Y,Edt_EtatAff(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	bra	Ed_NewBuf
+
+;
+; Scrolling sous le curseur HAUT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SHaut
+	bsr	Ed_TokCur
+	tst.w	Edt_YPos(a4)
+	beq	CFin
+Ed_SHaut2
+	subq.w	#1,Edt_YPos(a4)
+	moveq	#0,d1
+	moveq	#0,d2
+	WiCall	Locate
+	bra	Ed_CHt
+
+;
+; Scrolling sous le curseur BAS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SBas
+	bsr	Ed_TokCur
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	cmp.w	Prg_NLigne(a6),d0
+	bcc	CFin
+Ed_SBas2
+	addq.w	#1,Edt_YPos(a4)
+	moveq	#0,d1
+	move.w	Edt_WindTy(a4),d2
+	subq.w	#1,d2
+	WiCall	Locate
+	bra	Ed_CBs
+
+;
+; Scrolling sous le curseur GAUCHE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SGauche
+	bsr	Ed_TokCur
+	tst.w	Edt_XPos(a4)
+	beq	CFin
+	subq.w	#1,Edt_XCu(a4)
+	bra	Ed_CGo
+
+;
+; Scrolling sous le curseur DROITE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SDroite
+	bsr	Ed_TokCur
+	move.w	Edt_XCu(a4),d0
+	cmp.w	#250,d0
+	bcc	CFin
+	addq.w	#1,Edt_XCu(a4)
+	bra	Ed_CDr
+
+;
+; Haut du texte
+; ~~~~~~~~~~~~~
+Ed_HTexte
+	bsr	Ed_TokCur
+	bsr	Ed_AutoMarks
+Ed_HTex
+	clr.w	Edt_YPos(a4)
+	clr.w	Edt_XPos(a4)
+	clr.w	Edt_YCu(a4)
+	clr.w	Edt_XCu(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	bsr	Ed_NewBuf
+	bra	Ed_CHtE
+
+;
+; Bas du texte
+; ~~~~~~~~~~~~
+Ed_BTexte
+	bsr	Ed_TokCur
+	bsr	Ed_AutoMarks
+Ed_BTex
+	move.w	Prg_NLigne(a6),d0
+	move.w	Edt_WindTy(a4),d1
+	lsr.w	#1,d1				*XXX EdTy-EdTY/3
+	sub.w	d1,d0
+	bcc.s	.BTx1
+	moveq	#0,d0
+.BTx1	move.w	d0,Edt_YPos(a4)
+	neg.w	d0
+	add.w	Prg_NLigne(a6),d0
+	move.w	d0,Edt_YCu(a4)
+	clr.w	Edt_XPos(a4)
+	clr.w	Edt_XCu(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	bsr	Ed_NewBuf
+	bra	Ed_CBasE
+
+;
+; NEXT / PREVIOUS label
+; ~~~~~~~~~~~~~~~~~~~~~
+Ed_PLabel
+	bsr	Ed_TokCur
+	bsr	Ed_NLab
+	move.w	d1,d0
+	beq	Ed_HTexte
+	bra.s	NLb1
+Ed_NLabel
+	bsr	Ed_TokCur
+	bsr	Ed_NLab
+	move.w	d2,d0
+	beq	Ed_HTexte
+NLb1	cmp.w	Prg_NLigne(a6),d0
+	bcc	Ed_BTexte
+	bsr	Ed_AutoMarks
+	or.b	#EtA_BXY,Edt_EtatAff(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	move.w	d0,d1
+	sub.w	Edt_YCu(a4),d0
+	bpl.s	NLb2
+	clr.w	d0
+	move.w	d1,Edt_YCu(a4)
+NLb2:	move.w	d0,Edt_YPos(a4)
+	clr.w	Edt_XCu(a4)
+	bra	Ed_NewBuf
+
+;
+; Copie chaine
+; ~~~~~~~~~~~~
+EdCocop	move.b	(a0)+,(a1)+
+	bne.s	EdCocop
+	rts
+;
+; D0 > majuscule
+; ~~~~~~~~~~~~~~
+MajD0ed	cmp.b	#"a",d0
+	bcs.s	.skip
+	cmp.b	#"z",d0
+	bhi.s	.skip
+	sub.b	#$20,d0
+.skip	rts
+;
+; Ramene VRAI si D2 est une lettre ou un chiffre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Une_Lettre
+	cmp.b	#"0",d2
+	bcs.s	LFaux
+	cmp.b	#"9",d2
+	bls.s	LVrai
+	cmp.b	#"A",d2
+	bcs.s	LFaux
+	cmp.b	#"Z",d2
+	bls.s	LVrai
+	cmp.b	#"a",d2
+	bcs.s	LFaux
+	cmp.b	#"z",d2
+	bls.s	LVrai
+	cmp.b	#128,d2
+	bcc.s	LVrai
+LFaux:	moveq	#0,d2
+	rts
+LVrai:	moveq	#-1,d2
+	rts
+
+
+; ___________________________________________________________________
+;
+;								MARKS
+; ___________________________________________________________________
+
+; Effacement des marques programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_MarkRaz
+	lea	Prg_Marks(a6),a0
+	moveq	#10-1,d0
+.Cl	clr.l	(a0)+
+	dbra	d0,.Cl
+	rts
+
+; Positionne la premiere system-mark
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AutoMarks
+	movem.l	a0-a1/d0-d1,-(sp)
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	swap	d0
+	move.b	#$FF,d0
+	lsl.w	#8,d0
+	move.b	Edt_XCu+1(a4),d0
+	lea	Prg_Marks(a6),a0
+	cmp.l	(a0),d0
+	beq.s	.Rien
+; Remonte toutes les marques
+	lea	Ed_AutoMarksNb*4-4(a0),a1
+	moveq	#Ed_AutoMarksNb-2,d1
+.Loop	move.l	-(a1),4(a1)
+	dbra	d1,.Loop
+; Met la nouvelle
+	move.l	d0,(a0)
+.Rien	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+
+; Set MARK
+; ~~~~~~~~
+Ed_SMark9
+	addq.w	#1,d0
+Ed_SMark8
+	addq.w	#1,d0
+Ed_SMark7
+	addq.w	#1,d0
+Ed_SMark6
+	addq.w	#1,d0
+Ed_SMark5
+	addq.w	#1,d0
+Ed_SMark4
+	addq.w	#1,d0
+Ed_SMark3
+	addq.w	#1,d0
+Ed_SMark2
+	addq.w	#1,d0
+Ed_SMark1
+	addq.w	#1,d0
+Ed_SMark0
+	bsr	Ed_TokCur
+	lea	Prg_Marks(a6),a2
+	lsl.w	#2,d0
+	add.w	d0,a2
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	move.w	d0,(a2)+
+	move.b	#$FF,(a2)+
+	move.b	Edt_XCu+1(a4),(a2)
+	moveq	#64,d0
+	bra	Ed_Al100
+;
+; Va a une marque
+; ~~~~~~~~~~~~~~~
+Ed_GMark9
+	addq.w	#1,d0
+Ed_GMark8
+	addq.w	#1,d0
+Ed_GMark7
+	addq.w	#1,d0
+Ed_GMark6
+	addq.w	#1,d0
+Ed_GMark5
+	addq.w	#1,d0
+Ed_GMark4
+	addq.w	#1,d0
+Ed_GMark3
+	addq.w	#1,d0
+Ed_GMark2
+	addq.w	#1,d0
+Ed_GMark1
+	addq.w	#1,d0
+Ed_GMark0
+	bsr	Ed_TokCur
+	lea	Prg_Marks(a6),a2
+	lsl.w	#2,d0
+	add.w	d0,a2
+	tst.l	(a2)
+	beq	Ed_NoMark
+	bsr	Ed_AutoMarks
+	move.w	(a2),d0
+	move.l	a2,-(sp)
+	bsr	Ed_GotoY
+	move.l	(sp)+,a2
+	moveq	#0,d0
+	move.b	3(a2),d0
+	bra	Ed_GotoX
+
+; Passe les marks en adresses dans le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Marks2Adress
+	movem.l	a0-a2/d0-d2,-(sp)
+	moveq	#9,d2
+	lea	Prg_Marks(a6),a2
+.Loop	tst.l	(a2)
+	beq.s	.Nx
+	move.w	(a2),d0
+	bsr	Ed_FindL
+	beq.s	.Clr
+	sub.l	Prg_StBas(a6),a0
+	move.l	a0,d0
+	lsl.l	#8,d0
+	move.b	3(a2),d0
+	move.l	d0,(a2)
+	bra.s	.Nx
+.Clr	clr.l	(a2)
+.Nx	addq.l	#4,a2
+	dbra	d2,.Loop
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+; Repasse en numero de lignes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Marks2Number
+	movem.l a0-a2/d0-d2,-(sp)
+	moveq	#9,d2
+	lea	Prg_Marks(a6),a2
+.Loop	move.l	(a2),d0
+	beq.s	.Nx
+	lsr.l	#8,d0
+	add.l	Prg_StBas(a6),d0
+	move.l	d0,a0
+	bsr	Ed_FindA
+	move.w	d0,(a2)
+	move.b	#$FF,2(a2)
+	bra.s	.Nx
+.Clr	clr.l	(a2)
+.Nx	addq.l	#4,a2
+	dbra	d2,.Loop
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+;
+;  Change les marks
+;  ~~~~~~~~~~~~~~~~
+;	D0= Numero ligne
+;	D1= Nombre de lignes
+Ed_MarksChange
+	movem.l	d1/d2/d3/d4/a0,-(sp)
+	moveq	#9,d2
+	move.w	d0,d3
+	lea	Prg_Marks(a6),a0
+	tst.w	d1
+	bmi.s	.DLi
+; Insertion d'une ligne
+.ILi1	tst.l	(a0)
+	beq.s	.ILi2
+	cmp.w	(a0),d0
+	bgt.s	.ILi2
+	add.w	d1,(a0)
+.ILi2	addq.l	#4,a0
+	dbra	d2,.ILi1
+	bra.s	.Out
+; Suppression d'une ligne
+.DLi	sub.w	d1,d3
+.DLi1	tst.l	(a0)
+	beq.s	.DLi2
+	cmp.w	(a0),d3
+	ble.s	.DLiA
+	cmp.w	(a0),d0
+	bgt.s	.DLi2
+	clr.l	(a0)
+	bra.s	.DLi2
+.DLiA	add.w	d1,(a0)
+.DLi2	addq.l	#4,a0
+	dbra	d2,.DLi1
+; Sortie!
+.Out	movem.l	(sp)+,d1/d2/d3/d4/a0
+	rts
+
+; ____________________________________________________________________________
+;
+;								QUIT
+; ____________________________________________________________________________
+;
+
+
+; QUIT ALL!
+; ~~~~~~~~~
+Ed_Quit	bsr	Ed_TokCur
+
+; Demander confirmation?
+; ~~~~~~~~~~~~~~~~~~~~~~
+	btst	#0,Ed_QuitFlags(a5)
+	beq.s	.NoDia
+	moveq	#EdD_Quit,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_Loop
+.NoDia
+
+Ed_DoQuit
+	bsr	Ed_TokCur
+	bsr	Edt_ClearVar
+; Au revoir!
+; ~~~~~~~~~~
+	moveq	#"B",d0
+	bsr	Ed_SamPlay
+; Sauver la config?
+; ~~~~~~~~~~~~~~~~~
+	btst	#1,Ed_QuitFlags(a5)		Sauver?
+	beq.s	.NoConf
+	tst.b	EdC_Changed(a5)			Modification?
+	beq.s	.NoConf
+	bsr	EdC_SaveDef			Va sauver
+.NoConf
+; Sauver les macros?
+; ~~~~~~~~~~~~~~~~~~
+	btst	#2,Ed_QuitFlags(a5)
+	beq.s	.NoMac
+	tst.b	EdMa_Changed(a5)
+	beq.s	.NoMac
+	bsr	EdMa_SaveDef			Va sauver
+.NoMac
+; Sauver les d�finitions des programmes?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#3,Ed_QuitFlags(a5)
+	bne.s	.SavAll
+;
+; Sauvegarde des programmes non sauves, et QUIT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_List(a5),a4
+.SLoop	move.l	Edt_Prg(a4),a6
+	bsr	Ed_Saved
+	move.l	Edt_Next(a4),d0
+	move.l	d0,a4
+	bne.s	.SLoop
+	bra	Ed_System
+;
+; Sauvegarde de la configuration de l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.SavAll
+	move.w	#149,d0
+	bsr	Ed_AverMess
+; Sauve toutes structures programmes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d7
+	move.l	Edt_List(a5),a4
+.QLp	move.l	Edt_Prg(a4),a6		Structure programme...
+	tst.l	Edt_LinkPrev(a4)	Sauve une seule fois!
+	bne.s	.PNext
+	tst.b	Prg_NamePrg(a6)		Un nom?
+	beq.s	.NoName
+	tst.b	Prg_Change(a6)		Deja sauve!
+	beq.s	.PNext
+; Programme avec un nom.
+	clr.b	Prg_NoNamed(a6)
+	lea	Prg_NamePrg(a6),a0
+	move.l	Name1(a5),a1
+	bsr	EdCocop
+	bra.s	.Save
+; Programme sans nom: NEW_PROJECT_XX.AMOS
+.NoName	addq.b	#1,Prg_NoNamed(a6)	Flag pour reload!
+	moveq	#49,d0
+	bsr	Ed_GetSysteme		New_Project_
+	move.l	Name1(a5),a1
+	bsr	EdCocop
+	lea	-1(a1),a0
+	move.l	d7,d0			##
+	JJsrR	L_LongToDec,a2
+	move.l	a0,a1
+	moveq	#22,d0			.AMOS
+	bsr	Ed_GetSysteme
+	bsr	EdCocop
+.Save	JJsr	L_Dsk.PathIt
+	JJsr	L_Prg_Save
+	bne	.Err
+.PNext	addq.w	#1,d7
+	move.l	Prg_Next(a4),d0
+	move.l	d0,a4
+	bne.s	.QLp
+; Ouvre le fichier last cession
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#47,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	move.l	#1006,d2
+	bsr	Ed_Open
+	beq	.Err
+; Place pour l'entete + longueur
+	move.l	Buffer(a5),a3
+	clr.l	(a3)
+	clr.l	4(a3)
+	move.l	a3,d2
+	moveq	#8,d3
+	bsr	Ed_Write
+	bne	.Err
+; Sauve toutes les structures PRG
+	move.l	Prg_List(a5),a6
+.PLoop	move.l	a6,a0
+	move.l	#Prg_Long,d0
+	bsr	.StructureSave
+	bne	.Err
+	move.l	Prg_Next(a6),d0
+	move.l	d0,a6
+	bne.s	.PLoop
+	sub.l	a0,a0
+	bsr	.StructureSave
+	bne	.Err
+; Sauve toutes les structures EDT
+	move.l	Edt_List(a5),a4
+.ELoop	clr.w	Edt_Order(a4)		Programme courant
+	cmp.l	Edt_Current(a5),a4
+	bne.s	.ESkip
+	move.w	#1,Edt_Order(a4)	Edt_Order<>0
+.ESkip	move.l	a4,a0
+	move.l	#Edt_Long,d0
+	bsr	.StructureSave
+	bne	.Err
+	move.l	Edt_Next(a4),d0
+	move.l	d0,a4
+	bne.s	.ELoop
+	sub.l	a0,a0
+	bsr	.StructureSave
+	bne	.Err
+; Met la reconnaissance en tete de fichier
+	moveq	#0,d2
+	moveq	#-1,d3
+	bsr	Ed_Seek
+	move.l	#Ed_QuitHead,(a3)
+	subq.l	#8,d0
+	move.l	d0,4(a3)
+	move.l	a3,d2
+	moveq	#8,d3
+	bsr	Ed_Write
+	bne.s	.Err
+; On s'en va!
+	bsr	Ed_Close
+	bsr	Ed_AllAverFin
+	bra	Ed_System
+; Erreur: message et retour!
+.Err	bsr	Ed_Close
+	bsr	Ed_AllAverFin
+	moveq	#EdD_NoWarm,d0
+	bsr	Ed_Dialogue
+	bsr	Ed_DrawWindows
+	rts
+; Sauve une structure avec son adresse en premier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.StructureSave
+	movem.l	a0/d0,-(sp)
+	move.l	a0,(a3)
+	beq.s	.Vide
+	move.l	d0,4(a3)
+	clr.l	8(a3)
+	move.l	a3,d2
+	moveq	#12,d3
+	bsr	Ed_Write
+	bne.s	.SErr
+	movem.l	(sp)+,a0/d0
+	move.l	a0,d2
+	move.l	d0,d3
+	bsr	Ed_Write
+	rts
+.Vide	move.l	a3,d2
+	moveq	#4,d3
+	bsr	Ed_Write
+.SErr	addq.l	#8,sp
+	rts
+
+;
+; Set QUIT OPTIONS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_QuitOptions
+	bsr	Ed_TokCur
+	move.l	Ed_VDialogues(a5),a0
+	move.b	Ed_QuitFlags(a5),d0
+	moveq	#4,d1
+	JJsrR	L_Dia_SetVFlags,a1
+	moveq	#EdD_OQuit,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_Loca
+	move.l	Ed_VDialogues(a5),a0
+	moveq	#4,d1
+	JJsrR	L_Dia_GetVFlags,a1
+	move.b	d0,Ed_QuitFlags(a5)
+	move.b	#1,EdC_Changed(a5)
+	rts
+
+; ______________________________________________________________________________
+;
+;							EDITOR INFORMATIONS
+; ______________________________________________________________________________
+;
+
+; About
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_About
+	JLea	L_VersionN,a0
+	bsr	Ed_DChaine
+	move.l	Ed_VDialogues(a5),a2
+	move.l	a1,0*4(a2)
+	lea	AdTokens+4(a5),a0	Compte les extensions
+	moveq	#26-1,d0
+	moveq	#0,d2
+.Cpt	tst.l	(a0)+
+	beq.s	.PaE
+	addq.w	#1,d2
+.PaE	dbra	d0,.Cpt
+	move.l	d2,1*4(a2)
+	JLea	L_UserReg,a0		Registration #
+	move.l	Name2(a5),a1
+	moveq	#$73,d0
+	JJsrP	L_Sys_UnCode,a2
+	move.l	a1,3*4(a2)
+	lea	16(a0),a0		Registred user
+	lea	16(a1),a1
+	move.b	#$A5,d0
+	JJsrP	L_Sys_UnCode,a2
+	move.l	a1,2*4(a2)
+	moveq	#EdD_Title,d0
+	bsr	Ed_Dialogue
+	rts
+
+; About extensions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AboutExt
+	move.l	Ed_VDialogues(a5),a2
+; Trouve la premiere extension
+	lea	AdTokens(a5),a3
+	moveq	#0,d3
+	bsr	.Next
+	tst.w	d3
+	beq.s	.Out
+; Appelle le dialogue
+.Loop	move.l	d3,0*4(a2)
+	lea	.Empty(pc),a1
+	move.l	(a3),a0
+	move.l	LB_Title(a0),d0
+	beq.s	.Sk
+	move.l	d0,a1
+.Sk	move.l	a1,1*4(a2)
+	moveq	#EdD_AboutE,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	beq.s	.Prv
+	cmp.w	#2,d0
+	beq.s	.Nxt
+.Out	rts
+; Suivant
+.Nxt	bsr	.Next
+	bra.s	.Loop
+; Precedent
+.Prv	bsr	.Prev
+	bra.s	.Loop
+; Previous extension
+.Prev	move.l	d3,d0
+	move.l	a3,a0
+.Pr1	cmp.w	#1,d0
+	bls.s	.POut
+	subq.w	#1,d0
+	tst.l	-(a0)
+	beq.s	.Pr1
+	move.l	d0,d3
+	move.l	a0,a3
+.POut	rts
+; Next extension
+.Next	move.l	d3,d0
+	move.l	a3,a0
+.Ne1	cmp.w	#26,d0
+	bcc.s	.NOut
+	addq.w	#1,d0
+	addq.l	#4,a0
+	tst.l	(a0)
+	beq.s	.Ne1
+	move.l	d0,d3
+	move.l	a0,a3
+.NOut	rts
+.Empty	dc.w	0
+
+; Informations
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Infos
+	bsr	Ed_TokCur
+	bsr	Ed_VaTester
+	move.l	Ed_VDialogues(a5),a2
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+; Chip Free
+	move.l	#Chip,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,0*4(a2)
+; Fast Free
+	move.l	#Fast,d1
+	jsr	_LVOAvailMem(a6)
+	move.l	d0,1*4(a2)
+	move.l	(sp)+,a6
+; Text length
+	move.l	Prg_StHaut(a6),d0
+	sub.l	Prg_StBas(a6),d0
+	move.l	d0,2*4(a2)
+; Bank length
+	JJsr	L_Bnk.GetLength
+	add.l	d2,d0
+	add.l	d1,d0
+	move.l	d0,3*4(a2)		Banques totales
+	move.l	d1,5*4(a2)		Bobs
+	move.l	d2,6*4(a2)		Icones
+; Number of lines
+	moveq	#0,d0
+	move.w	Prg_NLigne(a6),d0
+	move.l	d0,4*4(a2)
+; Number of instructions
+	move.l	BMenage(a5),5*4(a2)
+	move.l	VerNInst(a5),5*4(a2)
+; Appelle les dialogues
+	moveq	#EdD_Infos,d0
+	bsr	Ed_Dialogue
+	rts
+
+; __________________________________________________________________________
+;
+;						BANQUES / CONFIG EDITEUR
+; __________________________________________________________________________
+;
+;
+; Chargement/Effacement de la banque de resource (pas de gestion d'erreurs)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ResourceLoad
+; Charge la banque
+	bsr	Ed_SetBanks
+	move.l	#1005,d2
+	bsr	Ed_Open
+	beq.s	.DErr
+	moveq	#6,d0
+	JJsr	L_Bnk.Load
+	bne.s	.MErr
+	bsr	Ed_Close
+; Change les adresses
+	moveq	#6,d0
+	JJsr	L_Bnk.GetAdr
+	beq.s	.2Err
+	cmp.l	#"Reso",-8(a0)
+	bne.s	.2Err
+	move.l	a0,Ed_Resource(a5)
+	bsr	EdC_SetPalette
+	moveq	#0,d0
+	rts
+.DErr	moveq	#2,d0
+	rts
+.MErr	moveq	#1,d0
+	rts
+.2Err	moveq	#3,d0
+	rts
+; Effacement de la banque de configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ResourceFree
+	bsr	Ed_SetBanks
+	moveq	#6,d0
+	JJsr	L_Bnk.Eff
+	rts
+; Change la palette de couleur en fonction des prefs de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_SetPalette
+	move.l	Ed_Resource(a5),d0
+	beq.s	.Skip
+	move.l	d0,a0
+	add.l	2(a0),a0
+	move.w	(a0),d0
+	lsl.w	#2,d0
+	lea	2+2+2(a0,d0.w),a0
+	lea	Ed_Palette(a5),a1
+	moveq	#7,d0
+.Copy	move.w	(a1)+,(a0)+
+	dbra	d0,.Copy
+.Skip	rts
+
+; Chargement/Effacement de la banque de samples (pas de gestion d'erreurs)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SamChanged
+	bsr	Ed_SetBanks
+	tst.b	Ed_Sounds(a5)
+	bne.s	.Sons
+; Pas de sons, effacer la banque?
+	moveq	#5,d0
+	JJsr	L_Bnk.GetAdr
+	bne.s	Ed_SamEnd
+	bra.s	.Out
+; Il faut faire des sons, charger la banque?
+.Sons	moveq	#5,d0
+	JJsr	L_Bnk.GetAdr
+	bne.s	.Out
+	moveq	#48,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+; Charge la banque
+	move.l	#1005,d2
+	bsr	Ed_Open
+	beq.s	.Out
+	bsr	Ed_SetBanks
+	moveq	#5,d0
+	JJsr	L_Bnk.Load
+	bsr	Ed_Close
+; Ok
+.Out	rts
+
+; Effacement de la banque de samples
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SamEnd
+	bsr	Ed_SetBanks
+	moveq	#5,d0
+	JJsr	L_Bnk.Eff
+	rts
+;
+; Joue le sample D0 (lettre de A � Z)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SamPlay
+	movem.l	d0-d3/a0-a2,-(sp)
+	tst.b	Ed_Sounds(a5)
+	beq.s	.Out
+	tst.b	Ed_Zappeuse(a5)
+	bne.s	.Out
+	move.w	d0,d2
+	bsr	Ed_SetBanks
+	moveq	#5,d0
+	JJsr	L_Bnk.GetAdr
+	beq.s	.Out
+	cmp.l	#"Samp",-8(a0)
+	bne.s	.Out
+; Trouve le sample
+	move.w	(a0),d1
+	subq.w	#1,d1
+	bmi.s	.Out
+	lea	2(a0),a1
+.Loop	move.l	(a1)+,d0
+	lea	0(a0,d0.l),a2
+	cmp.b	(a2),d2
+	beq.s	.Found
+	dbra	d1,.Loop
+	bra.s	.Out
+; Appelle la trappe
+.Found	moveq	#0,d3
+	move.w	8(a2),d3
+	move.l	10(a2),d2
+	lea	14(a2),a1
+	moveq	#%1111,d1
+	move.l	ExtAdr(a5),d0
+	beq.s	.Out
+	move.l	d0,a0
+	jsr	-4(a0)
+; Fini!
+.Out	movem.l	(sp)+,d0-d3/a0-a2
+	rts
+
+
+; ___________________________________________________________________
+;
+;							CONFIG!
+; ___________________________________________________________________
+;
+
+; Met les banques de m�moire/dialogue de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SetBanks
+	move.l	a0,-(sp)
+	lea	Ed_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	lea	Ed_Dialogs(a5),a0
+	move.l	a0,Cur_Dialogs(a5)
+	move.l	(sp)+,a0
+	rts
+
+; Sauvegarde configuration par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_SaveDefault
+	bsr	Ed_TokCur
+	moveq	#EdD_SvConf,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+EdC_SaveDef
+	moveq	#7,d0
+	JJsr	L_Sys_GetMessage
+	JJsrR	L_Sys_AddPath,a1
+	bsr	EdC_SaveIt
+	rts
+; Sauvegarde de la configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_SaveAs
+	bsr	Ed_TokCur
+	move.w	#130,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	bsr	Ed_SaveOver
+EdC_SaveIt
+	move.w	#152,d0
+	bsr	Ed_GetMessage
+	bsr	Ed_Avertir
+	bsr	EdC_Save
+	bne.s	.Err
+	bsr	Ed_AverFin
+	clr.b	EdC_Changed(a5)
+	rts
+; Erreur disque
+.Err	move.w	#139,d0
+	bra	Ed_Al100
+
+; Chargement de la configuration par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_LoadDefault
+	bsr	Ed_TokCur
+	bsr	EdC_Saved
+EdC_LoadDef
+	moveq	#7,d0
+	JJsr	L_Sys_GetMessage
+	JJsrR	L_Sys_AddPath,a1
+	bsr	EdC_LoadIt
+	move.b	#2,EdC_Changed(a5)
+	rts
+; Chargement de la configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_LoadAs
+	bsr	Ed_TokCur
+	bsr	EdC_Saved
+	move.w	#134,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	bsr	EdC_LoadIt
+	move.b	#2,EdC_Changed(a5)
+	rts
+EdC_LoadIt
+	move.w	#153,d0
+	bsr	Ed_AverMess
+	bsr	EdC_Load
+	bne	.Err
+	bsr	Ed_AverFin
+	move.w	#218,d0			Message
+	bsr	Ed_AverMess
+	moveq	#75,d0			Attente
+	bsr	Ed_TiWait
+	bsr	EdC_Redraw
+	rts
+; Erreur
+.Err	move.w	#139,d0
+	bra	Ed_Al100
+
+; Redessin de TOUT l'editeur en cas de changement de config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_Redraw
+	bsr	Ed_SamChanged
+	bsr	Ed_Hide
+	bsr	Ed_CloseEditor
+	move.b	#1,EdC_Modified(a5)
+	bsr	Ed_OpenEditor
+	bsr	Ed_Appear
+	rts
+;
+; Sauvegarde de la configuration si modifiee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_Saved
+	cmp.b	#1,EdC_Changed(a5)
+	bne.s	.Skip
+	moveq	#EdD_CSaved,d0
+	bsr	Ed_Dialogue
+	cmp.w	#2,d0
+	beq.s	.Skip
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	bsr	EdC_SaveAs
+.Skip	rts
+
+;
+; Chargement de la configuration A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_Load
+	move.l	#1005,d2
+	bsr	Ed_Open
+	beq	.DErr
+; Charge la config elle meme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),a0
+	move.l	a0,d2
+	moveq	#4,d3
+	bsr	Ed_Read
+	bne	.DErr
+	move.l	d2,a0
+	move.l	#Ed_FConfig-Ed_DConfig,d3
+	cmp.l	(a0),d3
+	bne	.Err2
+	lea	Ed_DConfig(a5),a0
+	move.l	a0,d2
+	bsr	Ed_Read
+	bne	.DErr
+	move.l	d2,Ed_Config(a5)
+; Charge les chaines systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_Systeme(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les chaines menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EdM_Messages(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les messages dialog
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_Messages(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les messages erreur TEST TIME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_TstMessages(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les messages erreur RUN TIME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_RunMessages(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les programmes � lancer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_MnPrograms(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les user menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EdM_User(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Charge les definitions menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EdM_Definition(a5),a0
+	bsr	EdC_LoadTextes
+	bne	EdC_Out
+; Calcule les positions dans la ligne de config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d0
+	bsr	Ed_GetSysteme
+	moveq	#-1,d1
+	lea	Ed_EtXX(a5),a1
+.Loop1	addq.l	#1,d1
+	move.b	(a0)+,d0
+	beq.s	.Out1
+	cmp.b	#" ",d0
+	beq.s	.Loop1
+	sub.b	#"0",d0
+	cmp.b	#8,d0
+	bcc.s	.Loop1
+	ext.w	d0
+	move.b	d1,0(a1,d0.w)
+	bra.s	.Loop1
+.Out1
+; Ok!
+	moveq	#0,d0
+	bra	EdC_Out
+; File not found
+.DErr	moveq	#1,d0
+	bra	EdC_Out
+; Bad config
+.Err2	moveq	#2,d0
+	bra	EdC_Out
+
+; Effacement de la configuration courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_Free
+	lea	Ed_Systeme(a5),a0		1
+	bsr	Ed_MemFree
+	lea	EdM_Messages(a5),a0		2
+	bsr	Ed_MemFree
+	lea	Ed_Messages(a5),a0		3
+	bsr	Ed_MemFree
+	lea	Ed_TstMessages(a5),a0		4
+	bsr	Ed_MemFree
+	lea	Ed_RunMessages(a5),a0		5
+	bsr	Ed_MemFree
+	lea	Ed_MnPrograms(a5),a0		6
+	bsr	Ed_MemFree
+	lea	EdM_User(a5),a0			7
+	bsr	Ed_MemFree
+	lea	EdM_Definition(a5),a0		8
+	bsr	Ed_MemFree
+	rts
+
+;
+; Sauvegarde de la configuration courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Nom
+EdC_Save
+	move.l	#1006,d2
+	bsr	Ed_Open
+	beq	.DErr
+; Sauve la config elle meme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),a0
+	move.l	#Ed_FConfig-Ed_DConfig,(a0)
+	move.l	a0,d2
+	moveq	#4,d3
+	bsr	Ed_Write
+	bne.s	.DErr
+	lea	Ed_DConfig(a5),a0
+	move.l	a0,d2
+	move.l	#Ed_FConfig-Ed_DConfig,d3
+	bsr	Ed_Write
+	bne.s	.DErr
+; Sauve les chaines systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_Systeme(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les chaines menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EdM_Messages(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les messages dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_Messages(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les messages d'erreur TEST TIME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_TstMessages(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les messages d'erreur RUN TIME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_RunMessages(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les programmes � lancer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Ed_MnPrograms(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les user menus
+; ~~~~~~~~~~~~~~~~~~~~
+	lea	EdM_User(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Sauve les definitions menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EdM_Definition(a5),a0
+	bsr	EdC_SaveTextes
+	bne.s	EdC_Out
+; Ok!
+; ~~~
+	moveq	#0,d0
+	bra	EdC_Out
+.DErr	moveq	#1,d0
+; Sortie chargement/sauvegarde fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdC_Out	move.l	d0,-(sp)
+	bsr	Ed_Close
+	move.l	(sp)+,d0
+EdC_Out2
+	tst.l	d0
+	rts
+
+;
+; Charge un fichier de textes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse du pointeur dans (a5)
+;	D7=	Lock
+EdC_LoadTextes
+	movem.l	a0-a2/d2-d3,-(sp)
+	move.l	a0,a2
+	bsr	Ed_MemFree
+	move.l	Buffer(a5),d2
+	moveq	#4,d3
+	bsr	Ed_Read
+	bne.s	.Err
+	move.l	d2,a0
+	move.l	(a0),d3
+	beq.s	.Skip
+	move.l	d3,d0
+	move.l	a2,a0
+	bsr	Ed_MemReserve
+	beq.s	.Err
+	move.l	a0,d2
+	bsr	Ed_Read
+	bne.s	.Err
+.Skip	moveq	#0,d0
+	bra.s	.Out
+.Err	move.l	a2,a0
+	bsr	Ed_MemFree
+	moveq	#-1,d0
+.Out	movem.l	(sp)+,a0-a2/d2-d3
+	rts
+;
+; Sauve un fichier de textes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse du pointeur dans (a5)
+;	D7=	Lock
+EdC_SaveTextes
+	movem.l	a0-a2/d2-d3,-(sp)
+	move.l	a0,a2
+	move.l	(a2),d0
+	bne.s	.Plin
+	move.l	a2,d2
+	moveq	#0,d3
+	bra.s	.Wri
+.Plin	move.l	d0,a0
+	move.l	-(a0),d3
+	move.l	a0,d2
+.Wri	addq.l	#4,d3
+	bsr	Ed_Write
+	bne.s	.Err
+	moveq	#0,d0
+	bra.s	.Out
+.Err	moveq	#-1,d0
+.Out	movem.l	(sp)+,a0-a2/d2-d3
+	rts
+
+; Change / Ajoute un message dans un fichier de textes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0= 	Base des textes
+;	A1=	Nouveau message
+;	D0=	Numero du message
+EdC_ChangeTexte
+	movem.l	a2-a4/d2-d5,-(sp)
+	move.l	a0,a2
+	move.l	a1,a3
+	move.w	d0,d2
+; Taille du nouveau message
+.Lg	tst.b	(a1)+
+	bne.s	.Lg
+	sub.l	a3,a1
+	subq.l	#1,a1
+	move.l	a1,d3
+; Nombre de messages
+	move.l	(a2),a0
+	bsr	Ed_GetNbMessage
+	cmp.w	d0,d2
+	bhi.s	.New
+; Un ancien message, calcul de la taille
+	move.w	d2,d0
+	move.l	(a2),a0
+	bsr	Ed_GetMessageA0
+	neg.w	d0
+	add.w	d3,d0
+	ext.l	d0
+	bra.s	.Res
+; Un nouveau message
+.New	moveq	#2,d0
+	add.l	d3,d0
+; Reserve la nouvelle memoire
+.Res	move.l	(a2),a0
+	add.l	-(a0),d0
+	move.l	d0,d1
+	addq.l	#4,d0
+	SyCall	MemFastClear
+	beq.s	.Err
+	move.l	d1,(a0)+
+	move.l	a0,d5
+; Recopie les anciens messages
+	move.l	(a2),a1
+	addq.l	#1,a1
+	clr.b	(a0)+
+	moveq	#0,d1
+	moveq	#0,d4
+.Cp0	addq.w	#1,d1
+	moveq	#0,d4
+	move.b	(a1),d4
+	bmi.s	.CpX
+	lea	1(a1),a4
+	lea	2(a1,d4.w),a1
+	cmp.b	d1,d2
+	bne.s	.Cp1
+	move.l	a3,a4
+	move.b	d3,d4
+	moveq	#-1,d2
+.Cp1	move.b	d4,(a0)+
+	beq.s	.Cp3
+	subq.w	#1,d4
+.Cp2	move.b	(a4)+,(a0)+
+	dbra	d4,.Cp2
+.Cp3	clr.b	(a0)+
+	bra.s	.Cp0
+; Le dernier message?
+.CpX	tst.w	d2
+	bmi.s	.CpY
+	move.b	d3,(a0)+
+	beq.s	.Cp5
+.Cp4	move.b	(a3)+,(a0)+
+	subq.b	#1,d3
+	bne.s	.Cp4
+.Cp5	clr.b	(a0)+
+.CpY
+; Marque la fin
+	move.b	#-1,(a0)+
+; Efface l'ancien texte
+	move.l	a2,a0
+	bsr	Ed_MemFree
+; Branche le nouveau, et fini!
+	move.l	d5,(a2)
+	moveq	#0,d0
+	bra.s	.Out
+; Erreur, out of mem!
+.Err	moveq	#-1,d0
+.Out	movem.l	(sp)+,a2-a4/d2-d5
+	rts
+;
+; Get FIRST message free
+; ~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Base des messages
+Ed_GetFsMessage
+	moveq	#0,d0
+	moveq	#0,d1
+	move.l	a0,a1
+.Loop	addq.l	#1,d0
+	move.b	1(a0),d1
+	beq.s	.Out
+	lea	2(a0,d1.w),a0
+	bpl.s	.Loop
+.New	move.l	a1,a0
+	bsr	Ed_GetNbMessage
+	addq.w	#1,d0
+.Out	rts
+
+;
+; Get number of messages
+; ~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Base des messages
+Ed_GetNbMessage
+	moveq	#0,d0
+	moveq	#0,d1
+	bra.s	.In
+.Loop	addq.w	#1,d0
+	lea	2(a0,d1.w),a0
+.In	move.b	1(a0),d1
+	bpl.s	.Loop
+	rts
+;
+; Get new editor message
+; ~~~~~~~~~~~~~~~~~~~~~~
+Ed_GetSysteme
+	move.l	Ed_Systeme(a5),a0
+	bra.s	Ed_GetMessageA0
+Ed_GetMessage
+	move.l	Ed_Messages(a5),a0
+Ed_GetMessageA0
+	move.w	d1,-(sp)
+	clr.w	d1
+	addq.l	#1,a0
+	bra.s	.In
+.Loop	move.b	(a0),d1
+	lea	2(a0,d1.w),a0
+.In	subq.w	#1,d0
+	bgt.s	.Loop
+	move.w	(sp)+,d1
+	move.b	(a0)+,d0
+	rts
+; Get NEXT message
+; ~~~~~~~~~~~~~~~~
+Ed_GetNMessage
+	moveq	#0,d0
+	move.b	-(a0),d0
+	lea	2(a0,d0.w),a0
+	move.b	(a0)+,d0
+	rts
+
+
+; ___________________________________________________________________
+;
+;							AUTOSAVE
+; ___________________________________________________________________
+
+;
+; Set AUTOSAVE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SetAutoSave
+	bsr	Ed_TokCur
+	move.l	Ed_VDialogues(a5),a2
+	move.l	Ed_AutoSaveMn(a5),2*4(a2)
+	moveq	#EdD_ASave,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	moveq	#1,d0
+	moveq	#3,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,d2
+	cmp.l	Ed_AutoSaveMn(a5),d2
+	beq	Ed_Loca
+	move.l	d2,Ed_AutoSaveMn(a5)
+; PAL ou NTSC
+	moveq	#50,d3
+	EcCall	NTSC
+	tst.w	d1
+	beq.s	.PAL
+	moveq	#60,d3
+; Calcule le temps en 1/50
+.PAL	mulu	d3,d2
+	mulu	#60,d2
+	move.l	d2,Ed_AutoSave(a5)
+	move.l	#-1,Ed_AutoSaveRef(a5)
+	move.b	#1,EdC_Changed(a5)
+	bra	Ed_Loca
+;
+; AUTOSAVE de tous les programmes modifies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SaveAuto
+	move.w	#-1,-(sp)
+	move.l	Edt_List(a5),a4
+.Loop	tst.b	Edt_Hidden(a4)
+	bne.s	.Skip
+	tst.l	Edt_LinkPrev(a4)
+	bne.s	.Skip
+	addq.w	#1,(sp)
+	bne.s	.Snd
+	moveq	#"I",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+.Snd	move.l	Edt_Prg(a4),a6
+	bsr	Ed_Saved
+.Skip	move.l	Edt_Next(a4),d0
+	move.l	d0,a4
+	bne.s	.Loop
+	addq.l	#2,sp
+	rts
+
+; ___________________________________________________________________
+;
+;					USER MENU / FONCTION TO MENU
+; ___________________________________________________________________
+
+;
+; Appel d'une fonction USER MENU>>> il faut affecter un programme!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_UserMenu
+	bsr	Ed_TokCur
+	moveq	#EdD_MnUs,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loca
+;
+; Add user option to menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AddUser
+	bsr	Ed_TokCur
+; Nombre d'options
+; ~~~~~~~~~~~~~~~~
+	move.l	EdM_User(a5),a0
+	bsr	Ed_GetFsMessage
+	cmp.w	#EdM_UserMax,d0
+	bcc.s	.2Many
+; Flag pour QUIT
+	move.b	#1,EdC_Changed(a5)
+	move.w	d0,d3
+; Boite de dialogue
+; ~~~~~~~~~~~~~~~~~
+	move.l	Ed_VDialogues(a5),a0
+	clr.l	2*4(a0)
+	move.l	#EdM_UserLong,3*4(a0)
+	moveq	#EdD_MnUsA,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	moveq	#1,d0
+	moveq	#3,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,a1
+	tst.b	(a1)
+	beq	Ed_NotDone
+; Ajoute la fonction
+; ~~~~~~~~~~~~~~~~~~
+	lea	EdM_User(a5),a0
+	move.w	d3,d0
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+; Recalcule le menu et branche � PRG TO MENU
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	EdM_Init
+	bsr	Ed_Prg2Menu
+	bsr	Ed_Key2Menu
+	bra	Ed_Loca
+; Too many options
+; ~~~~~~~~~~~~~~~~
+.2Many	moveq	#EdD_MnUs2,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loca
+
+; Delete User Option
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DelUser
+	bsr	Ed_TokCur
+; Boite de dialogue
+; ~~~~~~~~~~~~~~~~~
+	moveq	#EdD_MnUsD,d0
+	bsr	Mn_GetOption
+	beq	Ed_NotDone
+	cmp.w	#EdM_UserCommands-1,d2
+	bcs.s	.PaOpt
+	cmp.w	#EdM_UserCommands-1+EdM_UserMax,d2
+	bcc.s	.PaOpt
+; Flag pour QUIT
+	move.b	#1,EdC_Changed(a5)
+; Change dans le texte
+; ~~~~~~~~~~~~~~~~~~~~
+	move.w	d2,d0
+	sub.w	#EdM_UserCommands-1-1,d0
+	lea	EdM_User(a5),a0
+	move.l	Buffer(a5),a1
+	clr.w	(a1)
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+; Enleve les programmes affectes dans la liste
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d2,d0
+	mulu	#3,d0
+	lea	Ed_AutoLoad(a5),a2
+	add.w	d0,a2
+	tst.b	(a2)
+	beq.s	.np2
+	clr.b	(a2)+
+	moveq	#0,d0
+	move.b	(a2)+,d0
+	beq.s	.np1
+	lea	Ed_MnPrograms(a5),a0
+	move.l	Buffer(a5),a1
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+.np1	moveq	#0,d0
+	move.b	(a2)+,d0
+	beq.s	.np2
+	lea	Ed_MnPrograms(a5),a0
+	move.l	Buffer(a5),a1
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+; Change dans les touches
+; ~~~~~~~~~~~~~~~~~~~~~~~
+.np2	move.w	d2,d0
+	bsr	Ed_Fonc2Ky
+	beq.s	.Skip
+	move.b	#1,(a0)+
+	move.b	#0,(a0)
+; Recalcule le menu
+; ~~~~~~~~~~~~~~~~~
+.Skip	bsr	EdM_Init
+	bra	Ed_Loca
+; Pas une option USER
+; ~~~~~~~~~~~~~~~~~~~
+.PaOpt	moveq	#EdD_MnUsE,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loop
+;
+; Set Program to Menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Prg2Menu
+	bsr	Ed_TokCur
+; Va chercher l'option de menu
+	moveq	#EdD_PrgMn1,d0
+	bsr	Mn_GetOption
+	beq	Ed_NotDone
+	cmp.w	#HiddenCommands-1,d2
+	bcc	.PaAff
+	cmp.w	#152,d2			Pas un menu HELP
+	bcs.s	.Ok
+	cmp.w	#181,d2			Ou CONFIG
+	bcs	.PaAff
+; Flag pour QUIT
+.Ok	move.b	#1,EdC_Changed(a5)
+	move.w	d2,d3
+	move.l	a1,a3			Libelle de l'option
+	moveq	#0,d3			Pour EXIT plus loin
+; Un programme d�ja affecte?
+	mulu	#3,d2
+	lea	Ed_AutoLoad(a5),a2
+	add.w	d2,a2
+	tst.b	(a2)
+	beq.s	.NoP
+; Boite de dialogue
+	moveq	#0,d0
+	move.b	1(a2),d0
+	beq.s	.NoP
+	move.l	Ed_MnPrograms(a5),a0
+	bsr	Ed_GetMessageA0
+	move.l	Ed_VDialogues(a5),a1
+	move.l	a3,0*4(a1)
+	move.l	a0,1*4(a1)
+	moveq	#EdD_PrgMn2,d0
+	bsr	Ed_Dialogue
+	move.w	d0,d3
+	cmp.w	#3,d3
+	beq	Ed_NotDone
+; Effacement
+	move.b	1(a2),d0			Efface le programme
+	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	lea	Ed_MnPrograms(a5),a0
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+	move.b	2(a2),d0			Efface la command line
+	beq.s	.NoP
+	move.l	Buffer(a5),a1
+	lea	Ed_MnPrograms(a5),a0
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+.NoP	clr.b	(a2)
+	clr.b	1(a2)
+	clr.b	2(a2)
+	cmp.w	#2,d3
+	beq	.Exit
+; Selecteur de fichiers
+	moveq	#100,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	move.l	Ed_VDialogues(a5),a0
+	move.l	a3,(a0)+			0= Option
+	move.l	Name1(a5),(a0)+			1= Program
+	clr.l	(a0)+				2= Pas de chaine en entree
+	move.l	#48,(a0)+			3= Longueur
+	moveq	#%001,d0
+	moveq	#3,d1
+	JJsrP	L_Dia_SetVFlags,a2
+	moveq	#EdD_PrgMn3,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	move.l	Ed_VDialogues(a5),a0
+	lea	4*4(a0),a0
+	moveq	#3,d1
+	JJsrP	L_Dia_GetVFlags,a2
+	or.b	#$80,d0				Met les flags
+	move.b	d0,(a2)
+	move.l	Ed_MnPrograms(a5),a0
+	bsr	Ed_GetFsMessage
+	move.b	d0,1(a2)			Pointe le message
+	lea	Ed_MnPrograms(a5),a0
+	move.l	Name1(a5),a1			Change le message
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+; Une command line?
+	moveq	#1,d0
+	moveq	#7,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,a1
+	tst.b	(a1)
+	beq.s	.Exit
+	move.l	a1,-(sp)
+	move.l	Ed_MnPrograms(a5),a0
+	bsr	Ed_GetFsMessage
+	move.b	d0,2(a2)			Met la command line
+	lea	Ed_MnPrograms(a5),a0
+	move.l	(sp)+,a1
+	bsr	EdC_ChangeTexte
+	bne	Ed_OMm
+; Fini
+.Exit	bra	Ed_Loca
+; This menu option cannot be affected!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaAff	moveq	#EdD_PrgMnE,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loca
+
+;
+; Set Key to menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Key2Menu
+	bsr	Ed_TokCur
+; Va chercher l'option de menu
+	moveq	#EdD_KyMn1,d0
+	bsr	Mn_GetOption
+	beq	Ed_NotDone
+	cmp.w	#HiddenCommands-1,d2
+	bcc	.PaAff
+	move.w	d2,d3
+; Trouve la position dans les definitions
+	move.w	d3,d0
+	lea	Ed_KFonc(a5),a0
+	bra.s	.Skip4
+.Loop4	addq.l	#2,a0
+	tst.b	(a0)
+	bne.s	.Loop4
+	addq.l	#1,a0
+	cmp.b	#$FF,(a0)
+	beq	.PaAff
+.Skip4	dbra	d0,.Loop4
+	move.b	#1,(a0)			Efface l'ancienne definition
+	move.b	#0,1(a0)
+	move.l	a0,-(sp)
+	bsr	EdM_Init
+; Va chercher la touche
+	moveq	#EdD_KyMn2,d0
+	bsr	Ed_Dialogue
+	tst.w	d0
+	bne	Ed_NotDone
+	move.l	Ed_ADialogues(a5),a0
+	move.l	Dia_LastKey(a0),d1
+	move.l	d1,d4
+        beq     Ed_NotDone
+	bsr	Ed_Ky2Fonc
+	beq.s	.NoAff
+; Flag pour QUIT
+	move.b	#1,EdC_Changed(a5)
+; Key already affected
+	moveq	#EdD_KyMn3,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+.NoAff
+; Change dans la table
+	move.b	d4,d0
+        swap    d4
+	bsr	MajD0ed
+; Met le code ASCII quand on peut!
+	move.l	(sp)+,a0
+        cmp.b   #"A",d0
+        bcs.s   .Scan
+        cmp.b   #"Z",d0
+        bhi.s   .Scan
+        move.b  d0,(a0)
+        bra.s   .Shift
+; Met le scan code
+.Scan   or.b    #$80,d4
+        move.b  d4,(a0)
+; Met les shifts
+.Shift  lsr.w   #8,d4
+	moveq	#0,d0
+	lea	.Table(pc),a1
+.Lp	move.b	(a1)+,d1
+	beq.s	.Ot
+	move.b	d4,d2
+	and.b	d1,d2
+	beq.s	.Lp
+	or.b	d1,d0
+	bra.s	.Lp
+.Ot     move.b  d0,1(a0)
+; Reactualiser le menu?
+.Out    tst.b   EdM_Keys(a5)
+        beq.s   .NoMn
+        bsr     EdM_Init
+; Retour � l'�diteur
+.NoMn   bra     Ed_Loca
+; This menu option cannot be affected!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaAff	moveq	#EdD_KyMnE,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loca
+.Table	dc.b	Shf,Ami,Ctr,Alt,0
+	even
+
+; Routine: attend le choix d'une option de menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;       D0=     Boite de dialogue
+;
+Mn_GetOption
+	movem.l	d3-d7/a2-a3,-(sp)
+; Boite de dialog
+	bsr	Ed_Dialogue		Affiche le dialogue
+	moveq	#1,d0			Efface le canal!
+	JJsr	L_Dia_EffChannel
+; Boucle d'attente
+.Loop	JJsr     L_Sys_WaitMul
+        SyCall	Inkey
+	moveq	#0,d0
+	tst.l	d1
+	bne	.Out
+	SyCall	MouseKey
+	btst	#1,d1
+	beq.s	.Loop
+	bsr	Ed_MnGere
+	beq.s	.Loop
+; Trouve le libelle de l'option
+.Out	movem.l	a0/d0/d2,-(sp)
+	bsr	Ed_DrawWindows
+	movem.l	(sp)+,a0/d0/d2
+	tst.w	d0
+	beq.s	.Exit
+	bpl.s	.Tab
+	bsr	EdM_Error
+	moveq	#0,d0
+	bra.s	.Exit
+.Tab	move.l	EdM_Messages(a5),a1
+	move.w	4(a0),d1
+	bpl.s	.Mn
+	move.l	EdM_User(a5),a1
+	neg.w	d1
+.Mn	add.w	d1,a1
+.Exit	movem.l	(sp)+,d3-d7/a2-a3
+	tst.w	d0
+	rts
+
+
+;_____________________________________________________________________________
+;
+;					MARQUEURS MENU CONFIG
+;_____________________________________________________________________________
+;
+;
+; Insert / Overwrite
+; ~~~~~~~~~~~~~~~~~~
+Ed_Ins	not.b	Ed_Insert(a5)
+	bset	#EtA_Ins,Ed_EtatAff(a5)
+	bsr	EdM_MarkAll
+	bsr	EdK_MarkAll
+	rts
+; Sound On / Off
+; ~~~~~~~~~~~~~~
+Ed_SamOn
+	not.b	Ed_Sounds(a5)
+	bsr	EdM_MarkAll
+	move.b	#1,EdC_Changed(a5)
+	bsr	Ed_SamChanged
+	rts
+
+;_____________________________________________________________________________
+;
+;							BLOCS
+;_____________________________________________________________________________
+;
+
+;
+; Bloc en route, reaffiche les lignes concernees par le mouvement du curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocAff
+	tst.w	Edt_YBloc(a4)
+	bmi.s	.Out
+	move.w	Edt_YOldBloc(a4),d2
+	bmi.s	.Out
+	move.w	#-1,Edt_YOldBloc(a4)
+	move.w	Edt_YPos(a4),d3
+	add.w	Edt_YCu(a4),d3
+	cmp.w	d2,d3
+	bcc.s	.Skip
+	exg	d2,d3
+.Skip	move.w	d2,d1
+	sub.w	Edt_YPos(a4),d1
+	bmi.s	.Hors
+	cmp.w	Edt_WindTy(a4),d1
+	bcc.s	.Hors
+	movem.w	d2/d3,-(sp)
+	bsr	Ed_ALigne
+	bsr	Ed_Loca
+	movem.w	(sp)+,d2/d3
+.Hors	addq.w	#1,d2
+	cmp.w	d3,d2
+	bls.s	.Skip
+.Out	rts
+
+;
+; Start / Stop block
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocOn
+	tst.w	Edt_YBloc(a4)
+	bpl.s	Ed_BlocHide
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	move.w	d0,Edt_YBloc(a4)
+	move.w	Edt_XCu(a4),Edt_XBloc(a4)
+	clr.w	Edt_YOldBloc(a4)
+Ed_BlocCu
+	lea	CurBloc(pc),a1
+	WiCall	SCurWi
+	rts
+Ed_BlocHide
+	move.w	#-1,Edt_YBloc(a4)
+	bsr	Ed_AffBuf
+; Remet le curseur normal
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CuNor
+	lea	CurNor(pc),a1
+	WiCall	SCurWi
+	rts
+;
+; All text as block
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocAll
+	bsr	Ed_BlocCu
+	clr.w	Edt_XCu(a4)
+	clr.w	Edt_YCu(a4)
+	clr.w	Edt_XPos(a4)
+	clr.w	Edt_YPos(a4)
+	clr.w	Edt_XBloc(a4)
+	move.w	Prg_NLigne(a6),Edt_YBloc(a4)
+	bsr	Ed_NewBufAff
+	rts
+;
+; Block STORE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocStore
+	bsr	Ed_BlockLimits
+	lea	Ed_Block(a5),a0
+	bsr	Ed_BlockCopyA0
+	bmi	Ed_OMm
+	bne	Ed_BlocWhat
+	bsr	Ed_BlocHide
+	moveq	#7,d0
+	bra	Ed_ProAlert
+;
+; Block Forget
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocForget
+	tst.l	Ed_Block(a5)
+	beq	Ed_BlocWhat
+	bsr	Ed_BlocFree
+	moveq	#8,d0
+	bra	Ed_ProAlert
+;
+; Block CUT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocCut
+	bsr	Ed_BlockLimits
+	lea	Ed_Block(a5),a0
+	bsr	Ed_BlockCopyA0
+	bmi	Ed_OMm
+	bne	Ed_BlocWhat
+	bsr	Ed_BlocHide
+	lea	Ed_Block(a5),a0
+	bsr	Ed_BlockDeleteA0
+	bsr	Prg_UndoRaz		Illegal: remettre plus tard!
+	moveq	#7,d0
+	bra	Ed_ProAlert
+;
+; Block PASTE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocPaste
+	tst.l	Ed_Block(a5)
+	beq	Ed_BlocWhat
+	lea	Ed_Block(a5),a0
+	bsr	Ed_BlockInsertA0
+	bsr	Prg_UndoRaz		Illegal: remettre plus tard!
+	rts
+;
+; Libere le bloc
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocFree
+	lea	Ed_Block(a5),a0
+Ed_BlockFreeA0
+	bra	Ed_MemFree
+;
+; Trouve les limites du bloc dans d4-d7
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlockLimits
+	tst.w	Edt_YBloc(a4)
+	bmi	Ed_BlocWhat
+	moveq	#0,d4
+	move.w	Edt_YBloc(a4),d4
+	move.w	Edt_YPos(a4),d5
+	add.w	Edt_YCu(a4),d5
+	move.w	Edt_XBloc(a4),d6
+	move.w	Edt_XCu(a4),d7
+	cmp.w	d4,d5
+	bhi.s	.L0
+	bne.s	.Sw
+	cmp.w	d6,d7
+	bcc.s	.L0
+.Sw	exg	d4,d5
+	exg	d6,d7
+.L0	cmp.w	Prg_NLigne(a6),d5
+	bcs.s	.Blu
+	move.w	Prg_NLigne(a6),d5
+	moveq	#0,d7
+.Blu	rts
+
+;
+; Insert le bloc du texte en position courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlockInsertA0
+	movem.l	d2-d7/a2,-(sp)
+	addq.b	#1,Ed_FUndo(a5)
+	move.l	(a0),d0
+	beq	.Vide
+	move.l	d0,a2
+; Met le curseur � la bonne position
+	movem.w	(a2)+,d4-d6
+	move.l	(a2)+,d7
+	bsr	Ed_LCourant
+	beq.s	.Edit
+	tst.w	(a2)			Si ligne non editable,
+	bne	Ed_NotEdit		il faut un bloc sans 1ere ligne!
+.Edit	cmp.w	d0,d1
+	bls.s	.Pl
+	move.w	d0,Edt_XCu(a4)
+.Pl	move.w	Edt_YPos(a4),d3		Position courante
+	add.w	Edt_YCu(a4),d3
+; Premiere ligne
+	move.w	(a2),d0
+	beq.s	.Pa1
+	lea	2(a2),a0		Insere la ligne
+	bsr	R_InsChar
+	bsr	Ed_EALiCu
+	move.w	(a2),d0
+	add.w	Edt_XCu(a4),d0		Positionne le curseur
+	bsr	Ed_GotoX
+.Pa1	btst	#30,d7			Une seule ligne?
+	bne.s	.Ok
+	btst	#31,d7			Un procedure sur la ligne?
+	bne.s	.Proc
+; Si pas une seule ligne, on fait un RETURN
+	movem.l	a2/d2-d7,-(sp)
+	bsr	Ed_ReturnQuiet		Return
+	bsr	Ed_TokCur		Ligne suivante
+	movem.l	(sp)+,a2/d2-d7
+	addq.w	#1,d3
+.Proc	add.w	(a2)+,a2		Saute la 1ere ligne
+	move.l	a2,d0			Rend pair
+	Pair	d0
+	move.l	d0,a2
+; Corps du bloc
+	tst.w	(a2)
+	beq.s	.NoCor
+	lea	6(a2),a0		Insere le bloc en 1 coup
+	move.l	2(a2),d0
+	move.w	d3,d1
+	bsr	Ed_StoBlock
+	bne	Ed_OofBuf
+	move.w	d3,d0			Change les marques
+	move.w	(a2),d1
+	bsr	Ed_MarksChange
+	add.w	(a2),d3			Plus nombre de lignes
+.NoCor	move.l	2(a2),d0
+	lea	6(a2,d0.l),a2
+; Derniere ligne
+	JJsr	L_Prg_CptLines
+	move.w	d3,d0
+	bsr	Ed_GotoY
+	bsr	Ed_NewBufAff
+	move.w	(a2),d0
+	beq.s	.PaD
+	lea	2(a2),a0
+	bsr	R_InsChar
+	bsr	Ed_EALiCu
+	bsr	Ed_TokCur
+.PaD	move.w	d7,d0
+	bsr	Ed_GotoX
+; Termine!
+.Ok	moveq	#-1,d0
+.Vide	subq.b	#1,Ed_FUndo(a5)
+	movem.l	(sp)+,d2-d7/a2
+	tst.l	d0
+	rts
+
+;
+; Delete le bloc du texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlockDeleteA0
+	movem.l	d2-d7/a2-a3,-(sp)
+	addq.b	#1,Ed_FUndo(a5)
+	move.l	(a0),d0
+	beq	.Vide
+	move.l	d0,a2
+	movem.w	(a2)+,d4-d6		Positions
+	move.l	(a2)+,d7		Flags
+	move.w	d6,d0			Locate en ligne 1
+	bsr	Ed_GotoX
+	move.w	d4,d0
+	bsr	Ed_GotoY
+	move.l	a2,a3			Milieu>>> A3
+	add.w	(a3)+,a3
+	move.l	a3,d0
+	Pair	d0
+	move.l	d0,a3
+	btst	#31,d7			Une procedure en premier?
+	bne	.Proc1
+	btst	#30,d7			Juste le milieu?
+	bne.s	.NoMi
+; Enleve le milieu s'il faut
+	tst.w	(a3)
+	beq.s	.NoMi
+	move.l	2(a3),d0		Enleve le programme
+	move.w	d4,d1
+	addq.w	#1,d1
+	bsr	Ed_DelChunk
+	move.w	d4,d1			Change les marques
+	addq.w	#1,d1
+	move.w	(a3),d1
+	neg.w	d1
+	bsr	Ed_MarksChange
+	JJsr	L_Prg_CptLines		Compte
+	bsr	Ed_NewBufAff		Afiche
+; Enleve la premiere ligne
+.NoMi	move.w	(a2),d0
+	beq.s	.Pa1
+	bsr	R_DelChar
+	bsr	Ed_EALiCu
+.Pa1	btst	#30,d7			Pas de tokenisation si juste milieu
+	bne.s	.Ok
+	bsr	Ed_TokCur
+; Derniere ligne
+.Der	move.l	2(a3),d0		Pointe la derniere ligne
+	lea	6(a3,d0.l),a3
+	moveq	#0,d0			Locate debut ligne suivante
+	bsr	Ed_GotoX
+	move.w	d4,d0
+	addq.w	#1,d0
+	bsr	Ed_GotoY
+	move.w	(a3),d0
+	beq.s	.Join
+	bsr	R_DelChar		Enleve les caracteres
+	bsr	Ed_TokCur
+.Join	bsr	Ed_Join			Join la ligne du dessus
+	bsr	Ed_TokCur
+	bra.s	.Ok
+; Une procedure sur la premiere ligne
+.Proc1	move.l	2(a3),d0		Enleve le programme
+	move.w	d4,d1
+	bsr	Ed_DelChunk
+	move.w	d4,d0			Change les marques
+	move.w	(a3),d1
+	neg.w	d1
+	bsr	Ed_MarksChange
+	JJsr	L_Prg_CptLines
+	bsr	Ed_NewBufAff
+	move.l	2(a3),d0
+	lea	6(a3,d0.l),a3
+	moveq	#0,d0			Locate debut ligne
+	bsr	Ed_GotoX
+	move.w	(a3),d0
+	beq.s	.Ok
+	bsr	R_DelChar		Enleve les caracteres
+	bsr	Ed_TokCur
+; Termine!
+.Ok	moveq	#-1,d0
+.Vide	subq.b	#1,Ed_FUndo(a5)
+	movem.l	(sp)+,d2-d7/a2-a3
+	tst.l	d0
+	rts
+
+
+;
+; Fabrique le bloc. (a0) adresse ou poker la structure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0	adresse du pointeur
+;	D4-D7	limites du bloc
+Ed_BlockCopyA0
+	movem.l	a2-a3/d2-d7,-(sp)
+	move.l	a0,-(sp)
+; Calcule la taille
+; ~~~~~~~~~~~~~~~~~
+	move.l	Ed_BufT(a5),a3
+	lea	256(a3),a3
+	move.l	a3,d3
+	neg.l	d3
+	and.l	#$0000FFFF,d7		Libere les flags
+; Copie la premiere ligne
+	move.w	Edt_YPos(a4),d0		La ligne courante?
+	add.w	Edt_YCu(a4),d0
+	cmp.w	d0,d4
+	bne.s	.NoCur
+	bsr	Ed_LCourant		Ligne sous le curseur
+	bne	.NoCur
+	tst.w	d0
+	beq	.NoBloc
+	lea	-2(a0),a1
+	bra.s	.Copy1
+.NoCur	move.w	d4,d0			Trouve la ligne
+	bsr	Ed_FindL
+	beq	.NoBloc
+	JJsrR	L_Tk_EditL,a1		Peut on couper la ligne?
+	beq.s	.Proc1
+	move.l	Ed_BufT(a5),a1		Detokenise la ligne...
+	moveq	#0,d0
+	bsr	Detok
+	move.l	Ed_BufT(a5),a1
+.Copy1	move.w	(a1)+,d0
+	cmp.w	d0,d6
+	bcs.s	.Sk1
+	move.w	d0,d6
+.Sk1	cmp.w	d4,d5
+	beq	.Seul
+	sub.w	d6,d0
+	move.b	d0,(a3)+
+	beq.s	.Der
+	subq.w	#1,d0
+	add.w	d6,a1
+.Cp1	move.b	(a1)+,(a3)+
+	dbra	d0,.Cp1
+	bra.s	.Der
+; Une procedure sur la premiere ligne
+.Proc1	tst.w	d6			X=0?
+	bne	Ed_NotEdit
+	cmp.w	d4,d5			Au moins une ligne?
+	ble	Ed_NotEdit
+	bset	#31,d7			X1= Flag
+	clr.b	(a3)+			1ere ligne vide
+; Copie la derniere ligne
+.Der	clr.b	(a3)+
+	move.w	Edt_YPos(a4),d0		La ligne courante?
+	add.w	Edt_YCu(a4),d0
+	cmp.w	d0,d5
+	bne.s	.NoCur2
+	bsr	Ed_LCourant		Ligne sous le curseur
+	bne.s	.NoCur2
+	tst.w	d0
+	beq.s	.Nc2
+	lea	-2(a0),a1
+	bra.s	.Copy2
+.NoCur2	move.w	d5,d0
+	bsr	Ed_FindL
+	beq	.Nc2
+	bsr	Ed_EditL
+	beq.s	.Proc2
+	move.l	Ed_BufT(a5),a1
+	moveq	#0,d0
+	bsr	Detok
+	move.l	Ed_BufT(a5),a1
+.Copy2	move.w	(a1)+,d0
+	cmp.w	d0,d7
+	bcs.s	.Sk2
+	move.w	d0,d7
+.Sk2	move.w	d7,d0
+	move.b	d0,-1(a3)
+	beq.s	.Nc2
+	subq.w	#1,d0
+.Cp2	move.b	(a1)+,(a3)+
+	dbra	d0,.Cp2
+.Nc2	bra.s	.Mil
+; Une procedure sur la derniere ligne: le curseur doit etre � gauche
+.Proc2	tst.w	d7			Curseur � gauche donc
+	bne	Ed_NotEdit		rien � copier!
+; Evalue la taille du milieu
+.Mil	move.w	d4,d2
+	btst	#31,d7			Si closed procedure
+	bne.s	.Ccp
+	addq.w	#1,d2
+.Ccp	cmp.w	d2,d5
+	beq.s	.NoM
+	move.w	d2,d0
+	bsr	Ed_FindL
+	beq.s	.NoM
+.Ct3	bsr	Ed_SizeL
+	add.l	d0,d3
+	bsr	Ed_NextL
+	beq.s	.NoM
+	addq.w	#1,d2
+	cmp.w	d5,d2
+	bcs.s	.Ct3
+.NoM	addq.l	#4+2,d3
+	bra.s	.Reserve
+; Une seule ligne: copie le bout
+.Seul	cmp.w	d0,d7
+	bcs.s	.SkS
+	move.w	d0,d7
+.SkS	move.w	d7,d0
+	sub.w	d6,d0
+	beq	.NoBloc
+	move.b	d0,(a3)+
+	beq.s	.Sl2
+	subq.w	#1,d0
+	add.w	d6,a1
+.Sl1	move.b	(a1)+,(a3)+
+	dbra	d0,.Sl1
+.Sl2	bset	#30,d7
+; Reserve la m�moire
+; ~~~~~~~~~~~~~~~~~~
+.Reserve
+	add.l	a3,d3
+	tst.l	d3
+	beq	.NoBloc
+	move.l	(sp),a0
+	bsr	Ed_BlockFreeA0
+	add.l	#24,d3
+	move.l	d3,d0
+	move.l	(sp),a0
+	bsr	Ed_MemReserve
+	beq	.OOm
+	move.l	a0,a1
+	movem.w	d4-d6,(a1)	Stocke les positions
+	lea	6(a1),a1
+	move.l	d7,(a1)+	Flags
+; Copie la premiere ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ed_BufT(a5),a2
+	lea	256(a2),a2
+	moveq	#0,d0
+	move.b	(a2)+,d0
+	move.w	d0,(a1)+
+	beq.s	.Pc1
+	subq.w	#1,d0
+.Co1	move.b	(a2)+,(a1)+
+	dbra	d0,.Co1
+	move.l	a1,d0
+	Pair	d0
+	move.l	d0,a1
+.Pc1	btst	#30,d7			Seul?
+	bne.s	.Ok
+; Copie le milieu
+; ~~~~~~~~~~~~~~~
+.CMil	move.l	a1,a3
+	clr.w	(a1)+			Nombre de lignes
+	clr.l	(a1)+			Taille
+	clr.w	(a1)
+	move.w	d4,d3
+	btst	#31,d7			Si closed
+	bne.s	.Cpr
+	addq.w	#1,d3
+.Cpr	cmp.w	d5,d3
+	bcc.s	.Sc2
+	move.w	d3,d0
+	bsr	Ed_FindL
+	beq.s	.Sc2
+.Lo2	addq.w	#1,(a3)			Une ligne de plus
+	bsr	Ed_SizeL
+	add.l	d0,2(a3)		Taille en plus
+	lsr.l	#1,d0
+.Mc2	move.w	(a0)+,(a1)+
+	subq.l	#1,d0
+	bne.s	.Mc2
+	bsr	Ed_NextL
+	beq.s	.Sc2
+	addq.w	#1,d3
+	cmp.w	d5,d3
+	bcs.s	.Lo2
+.Sc2
+; Copie la derniere ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	move.b	(a2)+,d0
+	move.w	d0,(a1)+
+	beq.s	.Ok
+	subq.w	#1,d0
+.Co2	move.b	(a2)+,(a1)+
+	dbra	d0,.Co2
+	bra.s	.Ok
+; Finito!
+; ~~~~~~~
+.OOm	moveq	#-1,d0
+	bra.s	.End
+.NoBloc	moveq	#1,d0
+	bra.s	.End
+.Ok	moveq	#0,d0
+.End	move.l	(sp)+,a0
+	movem.l	(sp)+,d2-d7/a2-a3
+	rts
+
+; ________________________________________
+;
+;	SAVE BLOCK
+; ________________________________________
+;
+Ed_BlocSave
+	bsr	Ed_TokCur
+	tst.l	Ed_Block(a5)
+	beq	Ed_BlocWhat
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#90,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	bsr	Ed_SaveOver
+; Message saving block
+; ~~~~~~~~~~~~~~~~~~~~
+	move.w	#154,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+; Ouvre le fichier
+; ~~~~~~~~~~~~~~~~
+	move.l	#1006,d2
+	bsr	Ed_Open
+	beq	Ed_DError
+; Sauve l'entete AMOS BASIC V1.00 illegal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EnHead(pc),a0
+	move.b	#"v",11(a0)
+	move.l	a0,d2
+	moveq	#16,d3
+	bsr	Ed_Write
+	bne	Ed_DError
+; Place pour la taille
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	Ed_BufT(a5),d2
+	moveq	#4,d3
+	bsr	Ed_Write
+	bne	Ed_DError
+; Premiere ligne du bloc
+; ~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d4
+	move.l	Ed_Block(a5),a2
+	movem.w	(a2)+,d4-d6
+	move.l	(a2)+,d7
+	moveq	#0,d4
+	move.w	(a2),d3
+	beq.s	.Pa1
+	lea	2(a2),a0		Tokenise la premiere ligne
+	move.l	Ed_BufT(a5),a1
+	bsr	Tokenise
+	move.l	d1,d3
+	beq.s	.Pa1
+	add.l	d3,d4			Plus taille
+	move.l	Ed_BufT(a5),d2		Sauve
+	bsr	Ed_Write
+	bne	Ed_DError
+.Pa1	add.w	(a2)+,a2
+	move.l	a2,d0
+	Pair	d0
+	move.l	d0,a2
+; Milieu du bloc!
+; ~~~~~~~~~~~~~~~
+	move.l	2(a2),d3		Taille du milieu
+	beq.s	.NoMi
+	add.l	d3,d4			Plus Taille
+	lea	6(a2),a0		Va ecrire le chunk
+	move.l	a0,d2
+	bsr	Ed_Write
+	bne	Ed_DError
+.NoMi	move.l	2(a2),d0
+	lea	6(a2,d0.l),a2
+; Fin du bloc
+; ~~~~~~~~~~~
+	move.w	(a2)+,d3
+	beq.s	.PaF
+	move.l	a2,a0			Tokenise la fin
+	move.l	Ed_BufT(a5),a1
+	bsr	Tokenise
+	move.l	d1,d3			Quelquechose � sauver?
+	beq.s	.PaF
+	add.l	d3,d4			Plus taille
+	move.l	Ed_BufT(a5),d2
+	bsr	Ed_Write		Sauve
+	bne	Ed_DError
+.PaF
+; Banques vides
+; ~~~~~~~~~~~~~
+.Seul	JJsr	L_Bnk.SaveVide
+; Va changer la taille du fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#16,d2			Locate au debut
+	moveq	#-1,d3
+	bsr	Ed_Seek
+	move.l	Ed_BufT(a5),a0		Poke et sauve la taille
+	move.l	d4,(a0)
+	move.l	a0,d2
+	moveq	#4,d3
+	bsr	Ed_Write
+	bne	Ed_DError
+; Finito!
+; ~~~~~~~
+	bsr	Ed_Close
+	bsr	Ed_AverFin
+	rts
+
+; ___________________________________________________
+;
+;	SAUVEGARDE BLOC EN ASCII
+; ___________________________________________________
+;
+Ed_BlocSaveAscii
+	bsr	Ed_TokCur
+	tst.l	Ed_Block(a5)
+	beq	Ed_BlocWhat
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#82,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	bsr	Ed_SaveOver
+; Ouvre le fichier MODE_NEW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1006,d2
+	bsr	Ed_Open
+	beq	Ed_DError
+	move.w	#156,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+; Detokenise tout le bloc
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	BlToA0
+	beq.s	.Vide
+.Loop	move.b	#10,(a0)
+	addq.l	#1,d3
+	bsr	Ed_Write
+	bne	Ed_DError
+	bsr	BlToA1
+	bne.s	.Loop
+; Ca y est!
+; ~~~~~~~~~
+.Vide	bsr	Ed_Close
+	bsr	Ed_AverFin
+	rts
+
+;
+; PRINT PROGRAM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PrgPrint
+	bsr	Ed_TokCur
+; Boite de dialogue
+; ~~~~~~~~~~~~~~~~~
+	moveq	#EdD_PProg,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+; Avertissement
+; ~~~~~~~~~~~~~
+	move.w	#217,d0
+	bsr	Ed_AverMess
+	bsr	Ed_PRTOpen
+; Boucle d'impression
+; ~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	bsr	Ed_FindL
+	beq.s	.Exit
+.Loop	bclr	#BitControl-8,T_Actualise(a5)
+	bne.s	.Exit
+	move.l	Ed_BufT(a5),a1
+	moveq	#0,d0
+	bsr	Detok
+	move.l	Ed_BufT(a5),a0
+	move.w	(a0)+,d0
+	lea	0(a0,d0.w),a1
+	move.b	#13,(a1)+
+	move.b	#10,(a1)+
+	clr.b	(a1)
+	bsr	Ed_PRTPrint
+.In	bsr	Ed_NextL
+	bne.s	.Loop
+; Ca y est!
+; ~~~~~~~~~
+.Exit	bsr	Ed_Close
+	bsr	Ed_AverFin
+	SyCall	ClearKey
+	rts
+;
+; PRINT BLOC
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocPrint
+	bsr	Ed_TokCur
+	tst.l	Ed_Block(a5)
+	beq	Ed_BlocWhat
+; Boite de dialogue
+; ~~~~~~~~~~~~~~~~~
+	moveq	#EdD_PBloc,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+; Avertissement
+; ~~~~~~~~~~~~~
+	move.w	#157,d0
+	bsr	Ed_AverMess
+	bsr	Ed_PRTOpen
+; Boucle d'impression
+; ~~~~~~~~~~~~~~~~~~~
+	bsr	BlToA0
+	beq.s	.Exit
+.Loop	bclr	#BitControl-8,T_Actualise(a5)
+	bne.s	.Exit
+	move.b	#13,(a0)+
+	move.b	#10,(a0)+
+	clr.b	(a0)
+	move.l	d2,a0
+	bsr	Ed_PRTPrint
+.In	bsr	BlToA1
+	bne.s	.Loop
+; Ca y est!
+; ~~~~~~~~~
+.Exit	bsr	Ed_Close
+	bsr	Ed_AverFin
+	SyCall	ClearKey
+	rts
+
+; Routines de transformation du bloc en ASCII
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+BlToA0	move.l	Ed_Block(a5),a2
+	movem.w	(a2)+,d4-d6
+	move.l	(a2)+,d7
+	moveq	#1,d4
+; Ramene la ligne en D2/D3
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+BlToA1	moveq	#0,d3
+	tst.w	d4
+	beq.s	.Rien
+	cmp.w	#2,d4
+	bge.s	.Deuse
+; Premiere / Derniere ligne
+	move.w	(a2),d0
+	beq.s	.1Vide
+	lea	2(a2),a1
+	move.l	Ed_BufT(a5),a0
+	move.l	a0,d2
+	subq.w	#1,d0
+	bmi.s	.Cp
+.Co	move.b	(a1)+,(a0)+
+	dbra	d0,.Co
+.Cp	move.l	a0,d3
+	sub.l	d2,d3
+	add.w	(a2)+,a2
+	move.l	a2,d0
+	Pair	d0
+	move.l	d0,a2
+.Rien	move.w	d4,d0
+	addq.w	#1,d4
+	tst.w	d0
+	rts
+.1Vide	addq.w	#1,d4
+	addq.l	#2,a2			Saute la longueur
+	bra.s	BlToA1
+; Milieu du bloc
+.Deuse	cmp.w	#2,d4			Le premier?
+	bne.s	.Corps
+	move.w	(a2),d5			Oui, prend la taille
+	addq.l	#6,a2			Pointe la 1ere ligne
+.Corps	subq.w	#1,d5			Encore a faire?
+	bmi.s	.2Vide
+	move.l	a2,a0			Detokenise
+	move.l	Ed_BufT(a5),a1
+	moveq	#0,d0
+	bsr	Detok
+	move.l	a2,a0			Pointe la ligne suivante
+	JJsrP	L_Tk_FindN,a2
+	move.l	a0,a2
+	move.l	Ed_BufT(a5),a0		Retourne la ligne
+	moveq	#0,d3
+	move.w	(a0)+,d3
+	move.l	a0,d2
+	add.w	d3,a0
+	bra.s	.Rien
+.2Vide	moveq	#-1,d4			Derniere ligne
+	bra	BlToA1			Recommence
+
+; Retourne les limites du bloc en d0/d1/d2/d3
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BlocLimits
+	move.w	Edt_YBloc(a4),d1
+	bmi	Ed_BlocWhat
+	move.w	Edt_YPos(a4),d3
+	add.w	Edt_YCu(a4),d3
+	move.w	Edt_XBloc(a4),d0
+	move.w	Edt_XCu(a4),d2
+	cmp.w	d1,d3
+	bhi.s	.PaSw
+	bne.s	.Sw
+	cmp.w	d0,d2
+	bcc.s	.PaSw
+.Sw	exg	d0,d2
+	exg	d1,d3
+.PaSw	rts
+
+;____________________________________________________________________
+;
+;						MACROS
+;____________________________________________________________________
+;
+; Chargement des macros par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_LoadDefault
+	moveq	#46,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	bsr	EdMa_LoadIt
+	clr.b	EdMa_Changed(a5)
+	rts
+; Chargement des macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_LoadAs
+	moveq	#55,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	bsr	EdMa_LoadIt
+	move.b	#1,EdMa_Changed(a5)
+	rts
+
+; Charge le fichier macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_LoadIt
+	tst.l	EdMa_List(a5)		Erase old macros?
+	beq.s	.Skip
+	moveq	#EdD_MacroEra,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+; Averti et charge
+.Skip	moveq	#62,d0
+	bsr	Ed_AverMess
+	bsr	EdMa_Load
+	bsr	Ed_AverFin
+	beq	.Ok
+	bmi	Ed_OMm
+	subq.w	#1,d0
+	beq	Ed_DError
+; Pas un fichier MACRO
+	moveq	#EdD_MacroPas,d0
+	bsr	Ed_Dialogue
+	bsr	Ed_Loca
+; Fini
+.Ok	rts
+
+; Sauvegarde des macros par default
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_SaveDefault
+EdMa_SaveDef
+	moveq	#46,d0
+	bsr	Ed_GetSysteme
+	JJsrR	L_Sys_AddPath,a1
+	bsr	EdMa_SaveIt
+	rts
+; Sauvegarde des macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_SaveAs
+	moveq	#51,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+	bsr	Ed_SaveOver
+	bsr	EdMa_SaveIt
+	rts
+; Averti et sauve
+EdMa_SaveIt
+	moveq	#61,d0
+	bsr	Ed_AverMess
+	bsr	EdMa_Save
+	bsr	Ed_AverFin
+	bne	Ed_DError
+	clr.b	EdMa_Changed(a5)
+	rts
+
+; Chargement du fichier de macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Out	D0=0	Pas d'erreur
+;		D0=-1	Erreur disque
+;		D0=1	Pas macros
+EdMa_Load
+; Effacer les precedentes
+	bsr	EdMa_End
+	clr.b	EdMa_Change(a5)
+; Ouvre le fichier
+	move.l	#1005,d2
+	bsr	Ed_Open
+	beq	.Err
+; Charge l'entete AMOSPro MACROS
+	move.l	Buffer(a5),a2
+	move.l	a2,d2
+	moveq	#4,d3
+	bsr	Ed_Read
+	bne	.Err
+	cmp.l	#EdMa_Head,(a2)
+	bne.s	.Noma
+; Charge les macros une par une
+.Loop	move.l	a2,d2
+	moveq	#8,d3
+	bsr	Ed_Read
+	bne.s	.Err
+	move.l	4(a2),d3
+	beq.s	.End
+	move.l	d3,d0
+	lea	EdMa_List(a5),a0
+	bsr	Ed_ListeNew
+	beq.s	.Out
+	addq.l	#8,a1
+	move.l	a1,d2
+	bsr	Ed_Read
+	bne.s	.Err
+	bra.s	.Loop
+; Ferme le fichier
+.End	bsr	Ed_Close
+	moveq	#0,d0
+	rts
+; Erreur de chargement
+.Err	bsr	Ed_Close
+	moveq	#1,d0
+	rts
+; Pas un fichier macro
+.Noma	bsr	Ed_Close
+	moveq	#2,d0
+	rts
+; Out of memory
+.Out	bsr	Ed_Close
+	moveq	#-1,d0
+	rts
+
+; Sauvegarde du fichier de macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	OUT	D0=0 	Pas d'erreur
+;		D0=-1	Erreur disque
+EdMa_Save
+	move.l	#1006,d2
+	bsr	Ed_Open
+	beq	Ed_DError
+; Sauve l'entete AMOSPro MACROS
+	move.l	Buffer(a5),a0
+	move.l	#EdMa_Head,(a0)
+	move.l	a0,d2
+	moveq	#4,d3
+	bsr	Ed_Write
+	bne.s	.Err
+; Sauve les macros une par une
+	move.l	EdMa_List(a5),d2
+	beq.s	.Fin
+.Loop	move.l	d2,a2
+	move.l	4(a2),d3
+	addq.l	#8,d3
+	bsr	Ed_Write
+	bne.s	.Err
+	move.l	(a2),d2
+	bne.s	.Loop
+; Fin : 0/0
+.Fin	move.l	Buffer(a5),d2
+	move.l	d2,a0
+	clr.l	(a0)+
+	clr.l	(a0)+
+	moveq	#8,d3
+	bsr	Ed_Write
+	bne.s	.Err
+; Ferme le fichier
+	bsr	Ed_Close
+	moveq	#0,d0
+	rts
+; Erreur disque
+.Err	bsr	Ed_Close
+	moveq	#1,d0
+	rts
+
+; Effacement d'une macro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_Del
+	bsr	Ed_TokCur
+	tst.l	EdMa_List(a5)
+	beq	EdMa_No
+	moveq	#EdD_MacroD,d0
+	bsr	Ed_Dialogue
+	tst.w	d0
+	bne	Ed_NotDone
+	move.l	Ed_ADialogues(a5),a0
+	move.l	Dia_LastKey(a0),d2
+	beq	Ed_NotDone
+	move.l	d2,d1
+	bsr	EdMa_Adr
+	beq.s	.NotA
+	bsr	Ed_ListeDel
+; Marque pour QUIT
+	move.b	#1,EdMa_Change(a5)
+	bra	Ed_Loca
+; Key not assigned to a macro
+.NotA	moveq	#EdD_MacroNA,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loca
+; Effacement de toutes les macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_DelAll
+	bsr	Ed_TokCur
+	tst.l	EdMa_List(a5)
+	beq	EdMa_No
+	moveq	#EdD_MacroAll,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	bsr	EdMa_End
+; Marque pour QUIT
+	move.b	#1,EdMa_Change(a5)
+	bra	Ed_Loca
+; D�marre l'enregistrement d'une nouvelle macro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_New
+	bsr	Ed_TokCur
+; Boite de dialogue 1
+	moveq	#EdD_Macro1,d0
+	bsr	Ed_Dialogue
+	tst.w	d0
+	bne	Ed_NotDone
+	move.l	Ed_ADialogues(a5),a0
+	move.l	Dia_LastKey(a0),d2
+	beq	Ed_NotDone
+	move.l	d2,d1
+	bsr	EdMa_Adr
+	beq.s	.Skip
+; Key already assigned to a macro
+	move.l	a1,-(sp)
+	moveq	#EdD_Macro2,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	move.l	(sp)+,a1
+	lea	EdMa_List(a5),a0
+	bsr	Ed_ListeDel
+; R�serve le buffer temporaire
+.Skip	move.l	#1024,d0
+	move.l	d0,d1
+	lea	EdMa_List(a5),a0
+	bsr	Ed_ListeNew
+	move.w	#1,EdMa_Tape(a5)
+	move.l	d2,8(a1)
+	move.l	#-1,8-4(a1,d1.w)
+; Provoque l'affichage de la ligne infos
+	bsr	Ed_AverFin
+	bsr	Ed_Loca
+	rts
+
+; Termine l'enregistrement de la macro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_Stop
+; Plus de souris
+	JJsr	L_Dia_NoMKey
+	move.b	#1,EdMa_Change(a5)
+; Reserve le buffer d�finitif
+	lea	EdMa_List(a5),a0
+	move.l	(a0),a2
+	move.l	a2,d3
+	lea	8(a2),a2
+	move.w	EdMa_Tape(a5),d2
+	clr.w	EdMa_Tape(a5)
+	subq.w	#1,d2
+	beq	.Vide
+	moveq	#8,d0
+	add.w	d2,d0
+	bsr	Ed_ListeNew
+; Copie le buffer
+	lea	8(a1),a1
+	move.l	(a2)+,(a1)+
+	subq.w	#1,d2
+.Loop	move.b	(a2)+,(a1)+
+	dbra	d2,.Loop
+	move.b	#-1,(a1)+
+; Enleve le buffer temporaire
+	move.l	d3,a1
+	bsr	Ed_ListeDel
+; Avertissement
+	moveq	#45,d0
+	bra	Ed_Al100
+; Pas de touches!
+.Vide	move.l	d3,a1
+	bsr	Ed_ListeDel
+	bra	Ed_NotDone
+
+; Trouve une macro de code D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_Adr
+	lea	EdMa_List(a5),a0
+	move.l	(a0),d0
+	beq.s	.NFound
+.Loop	move.l	d0,a1
+	cmp.l	8(a1),d1
+	beq.s	.Found
+.In	move.l	(a1),d0
+	bne.s	.Loop
+.NFound	rts
+; Trouve
+.Found	move.l	a1,d0
+	rts
+; Efface l'arbre des macros
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdMa_End
+	lea	EdMa_List(a5),a0
+	bra	Ed_ListeDelAll
+; Pas une macro
+; ~~~~~~~~~~~~~
+EdMa_No
+	moveq	#EdD_MacroNo,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loca
+
+;_____________________________________________________________________________
+;
+;						Search / Replace / Goto
+;_____________________________________________________________________________
+;
+
+; Goto line number
+; ~~~~~~~~~~~~~~~~
+Ed_GotoL
+	bsr	Ed_TokCur
+	tst.b	Ed_Zappeuse(a5)
+	beq.s	.PaZap
+	move.l	Ed_ZapParam(a5),d0
+	bra.s	.Zap
+.PaZap	moveq	#EdD_GotoL,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	moveq	#1,d0
+	moveq	#3,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,d0
+.Zap	subq.l	#1,d0
+	bmi	Ed_NotDone
+	cmp.w	Prg_NLigne(a6),d0
+	bcs.s	.Skip
+	move.w	Prg_NLigne(a6),d0
+.Skip	bsr	Ed_AutoMarks
+	bsr	Ed_GotoY
+	rts
+
+
+; Appel le dialogue pour SEARCH, d0DIALOG A APPELER
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DiaS	move.w	d0,d2
+	lea	Ed_SchBuf(a5),a0		Chaine d'origine
+	bsr	Ed_DChaine
+	move.l	Ed_VDialogues(a5),a2
+	move.l	a1,(a2)+
+	move.l	#32,(a2)+			Taille de la ligne
+	move.w	Ed_SchMode(a5),d0		Met les flags
+	and.w	#%0001,d0			Garde LOWUP / Bloc limits
+	moveq	#4,d1
+	move.l	a2,a0
+	JJsrP	L_Dia_SetVFlags,a2
+; Appelle les dialogues
+	move.w	d2,d0
+	bsr	Ed_Dialogue
+	move.w	d0,-(sp)
+; Reprend les variables
+	move.l	Ed_VDialogues(a5),a0
+	lea	2*4(a0),a0
+	moveq	#4,d1
+	JJsrP	L_Dia_GetVFlags,a2
+	move.w	d0,Ed_SchMode(a5)
+; Reprend la chaine
+	moveq	#1,d0
+	moveq	#3,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,a0
+	lea	Ed_SchBuf(a5),a1
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+; Ramene le retour
+	move.w	(sp)+,d0
+	rts
+
+; SEARCH
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Search
+	bsr	Ed_TokCur
+	moveq	#EdD_Search,d0
+	bsr	Ed_DiaS
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	move.w	Ed_SchMode(a5),d5	Garde Low/UP, et direction!
+	and.w	#%0011,d5
+	bra	Ed_SR
+; SEARCH PREVIOUS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SearchPrev
+	bsr	Ed_TokCur
+	tst.b	Ed_SchBuf(a5)			Quelque chose � trouver?
+	beq.s	Ed_Search
+	move.w	Ed_SchMode(a5),d5
+	and.w	#%0001,d5			Garde LowUp
+	bset	#1,d5				En arriere!
+	bra.s	Ed_SR
+; SEARCH NEXT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SearchNext
+	bsr	Ed_TokCur
+	tst.b	Ed_SchBuf(a5)			Quelque chose � trouver?
+	beq.s	Ed_Search
+	move.w	Ed_SchMode(a5),d5
+	and.w	#%0001,d5			Garde LowUp, en avant!
+; Fait la recherche / Remplacement, D5flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SR
+	bsr	Ed_SRCompte
+; Fait le remplacement
+	move.w	Edt_YPos(a4),d7
+	add.w	Edt_YCu(a4),d7
+	move.w	Edt_XCu(a4),d6
+	move.w	#32000,d4			Limites en bas
+	move.w	#32000,d3
+; Va chercher
+	moveq	#36,d0
+	bsr	Ed_AverMess
+	bsr	Ed_SchBoth
+	beq	Ed_NoFound
+; Positionne le curseur
+	bsr	Ed_AutoMarks
+	movem.w	d2-d7,-(sp)
+	move.w	d7,d0
+	bsr	Ed_GotoY
+	movem.w	(sp),d2-d7
+	move.w	d6,d0
+	bsr	Ed_GotoX
+	movem.w	(sp)+,d2-d7
+; Trouve, faire une remplacement?
+	btst	#15,d5
+	beq.s	.NoRep
+	bsr	Ed_LCourant
+	move.w	d6,d0
+	bsr	RepBuffer
+	bne	Ed_LToLong
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_TokCur
+	move.w	d6,d0
+	bsr	Ed_GotoX
+.NoRep
+; Fini!
+	bsr	Ed_AverFin
+	bsr	Ed_Loca
+	rts
+
+
+; Compte les buffers SEARCH/REPLACE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SRCompte
+	lea	Ed_SchBuf(a5),a0
+	moveq	#-1,d0
+.LoopS	addq.w	#1,d0
+	tst.b	(a0)+
+	bne.s	.LoopS
+	move.b	d0,Ed_SchLong(a5)
+	lea	Ed_RepBuf(a5),a0
+	moveq	#-1,d0
+.LoopR	addq.w	#1,d0
+	tst.b	(a0)+
+	bne.s	.LoopR
+	move.b	d0,Ed_RepLong(a5)
+	rts
+
+; Routines de recherche en AVANT / ARRIERE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SchBoth
+	btst	#1,d5
+	bne	Ed_SchBack
+;
+; Recherche en avant
+; ~~~~~~~~~~~~~~~~~~
+;	D7=	Y
+;	D6=	X
+;	D5=	Flags
+;	D4=	YMax
+;	D3=	XMax
+Ed_SchFront
+	addq.w	#1,d6
+.Fst	move.w	d7,d0
+	bsr	Ed_FindL
+	beq	.SrchN
+; Sort des limites?
+.SrchL	cmp.w	d4,d7
+	bgt.s	.SrchN
+	bne.s	.Srch1
+	cmp.w	d3,d6
+	bgt.s	.SrchN
+; Detokenise, et recherche
+.Srch1	moveq	#0,d0
+	move.l	Ed_BufT(a5),a1
+	bsr	Detok
+	move.l	Ed_BufT(a5),a0
+	move.w	(a0),d0
+	clr.b	2(a0,d0.w)
+	cmp.w	d0,d6
+	bcc.s	.Srch2
+	lea	2(a0,d6.w),a0
+	lea	Ed_SchBuf(a5),a1
+	bsr	SchBuffer
+	bpl.s	.Srch3
+; Ligne suivante
+.Srch2	moveq	#0,d6
+	bclr	#BitControl-8,T_Actualise(a5)
+	bne.s	.SrchN
+	bsr	Ed_NextL
+	beq.s	.SrchN
+	addq.w	#1,d7
+	bra.s	.SrchL
+; Vraiment trouve?
+.Srch3	add.w	d0,d6
+	cmp.w	d4,d7
+	bne.s	.SrchT
+	cmp.w	d3,d6
+	bls.s	.SrchT
+; Pas trouve, FAUX
+.SrchN	moveq	#0,d0
+	rts
+; Trouve, VRAI
+.SrchT	moveq	#-1,d0
+	rts
+; Recherche en arriere
+; ~~~~~~~~~~~~~~~~~~~~
+;	D7=	Y
+;	D6=	X
+;	D5=	Flags
+;	D4=	YMax
+;	D3=	XMax
+Ed_SchBack
+	movem.w	d6-d7,-(sp)
+	move.w	d7,d4		Jusqu'� la position actuelle -1
+	move.w	d6,d3
+	subq.w	#1,d3
+	bpl.s	.Mm
+	move.w	#255,d3
+	subq.w	#1,d4
+	bmi.s	.NFound
+.Mm	clr.w	d6		A partir du d�but
+	clr.w	d7
+	move.l	#-1,-(sp)
+.Loop	bsr	Ed_SchFront	Tant que l'on trouve
+	beq.s	.PaT
+	move.w	d6,2(sp)
+	move.w	d7,(sp)
+	addq.w	#1,d6
+	bra.s	.Loop
+.PaT	move.w	(sp)+,d7
+	move.w	(sp)+,d6
+	bmi.s	.NFound
+; Trouve! Retourne VRAI
+	addq.l	#4,sp
+	moveq	#-1,d0
+	rts
+; Pas trouve: FAUX
+.NFound	movem.w	(sp)+,d6-d7
+	moveq	#0,d0
+	rts
+;
+; Routine SEARCH
+; ~~~~~~~~~~~~~~
+;	A1=	Chaine � chercher
+;	A0=	Chaine dans laquelle cherche
+;	D5-> 	Flags
+;	D6->	X Debut
+SchBuffer
+	movem.l	a1/d1-d4,-(sp)
+	move.l	a0,d4
+	move.b	(a1)+,d0
+	bsr.s	.MajS
+	move.b	d0,d1
+	move.l	a1,d3
+.RSe1	move.b	(a0)+,d0		* Cherche la 1ere lettre
+	beq.s	.RSeN
+	bsr.s	.MajS
+	cmp.b	d0,d1
+	bne.s	.RSe1
+	move.l	a0,d2
+	swap	d1
+.RSe2	move.b	(a1)+,d0
+	beq.s	.RSeT
+	bsr.s	.MajS
+	move.b	d0,d1
+	move.b	(a0)+,d0
+	bsr.s	.MajS
+	cmp.b	d0,d1
+	beq.s	.RSe2
+	move.l	d2,a0
+	move.l	d3,a1
+	swap	d1
+	bra.s	.RSe1
+.RSeN	movem.l	(sp)+,a1/d1-d4
+	moveq	#-1,d0
+	rts
+.RSeT	move.l	d2,d0
+	sub.l	d4,d0
+	subq.l	#1,d0
+	movem.l	(sp)+,a1/d1-d4
+	rts
+.MajS	btst	#0,d5
+	beq.s	.Skip
+	cmp.b	#"a",d0
+	bcs.s	.Skip
+	cmp.b	#"z",d0
+	bhi.s	.Skip
+	sub.b	#$20,d0
+.Skip	rts
+
+
+; REPLACE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Replace
+	bsr	Ed_TokCur
+	lea	Ed_RepBuf(a5),a0		Buffer d'edition
+	bsr	Ed_DChaine
+	move.l	Ed_VDialogues(a5),a2
+	move.l	a1,8*4(a2)
+	moveq	#EdD_Replace,d0
+	bsr	Ed_DiaS
+	move.w	d0,-(sp)
+; Reprend la chaine Replace
+	moveq	#1,d0
+	moveq	#4,d1
+	moveq	#1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,a0
+	lea	Ed_RepBuf(a5),a1
+.Bli	move.b	(a0)+,(a1)+
+	bne.s	.Bli
+; Ou se brancher?
+	cmp.w	#1,(sp)+
+	bne	Ed_Loop
+	move.w	Ed_SchMode(a5),d5		Mode TURBO?
+	move.w	d5,d0
+	and.w	#%1100,d0
+	bne.s	.Turbo
+; Mode normal, quelle dir?
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#1,d5
+	beq	Ed_ReplaceNext
+	bne	Ed_ReplacePrev
+; En mode turbo
+; ~~~~~~~~~~~~~
+.Turbo
+; Boite de dialogue, pour confirmer...
+	move.l	Ed_VDialogues(a5),a0
+	moveq	#EdD_WBlock,d0
+	btst	#2,d5
+	bne.s	.Skip
+	moveq	#EdD_WText,d0
+.Skip	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+; Quelque chose � chercher?
+	tst.b	Ed_SchBuf(a5)
+	beq.s	Ed_Replace
+	tst.b	Ed_RepBuf(a5)
+	beq.s	Ed_Replace
+	bsr	Ed_SRCompte
+; Fait le remplacement
+	moveq	#0,d7				Limites en haut
+	moveq	#0,d6
+	move.w	#32000,d4			Limites en bas
+	move.w	#32000,d3
+; Dans le bloc?
+	btst	#2,d5				Si bloc
+	beq.s	.Pab
+	bsr	Ed_BlocLimits
+	move.w	d1,d7
+	move.w	d0,d6
+	move.w	d3,d4
+	move.w	d2,d3
+	beq.s	.Pab
+	subq.b	#1,d3
+.Pab
+; Averti
+	moveq	#37,d0
+	bsr	Ed_AverMess
+; Boucle de recherche / remplacement
+	clr.w	-(sp)
+.Loop	subq.w	#1,d6			Reste sur la derniere lettre
+	bpl.s	.Pos
+	moveq	#0,d6
+.Pos	bsr	Ed_SchFront
+	beq	.Finish
+	move.l	Ed_BufT(a5),a0
+	addq.l	#2,a0
+	move.w	d6,d0
+	bsr	RepBuffer
+	bne	Ed_LToLong
+	move.l	Ed_BufT(a5),a0
+	addq.l	#2,a0
+	move.l	Buffer(a5),a1
+	bsr	Tokenise
+	beq.s	.Llong
+	move.l	Buffer(a5),a1
+	move.w	d7,d1
+	moveq	#0,d0
+	bsr	Ed_Stocke
+	bne	.Outb
+	addq.w	#1,(sp)
+	bra.s	.Loop
+; Fini, et une boite de dialogue!
+.Finish	bsr	Ed_NewBuf
+	bsr	Ed_AverFin
+	move.b	#EtA_BAll,Edt_EtatAff(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	move.w	(sp)+,d0
+	beq	Ed_NoFound
+	ext.l	d0
+	move.l	Ed_VDialogues(a5),a0
+	move.l	d0,(a0)
+	moveq	#EdD_Changes,d0
+	bsr	Ed_Dialogue
+	rts
+; Line too long
+.Llong	bsr	Ed_NewBufAff
+	bra	Ed_LToLong
+; Out of buffer space
+.Outb	bsr	Ed_NewBufAff
+	bra	Ed_OofBuf
+; REPLACE NEXT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ReplaceNext
+	move.w	Ed_SchMode(a5),d5
+	and.w	#$0001,d5		Vers le bas,
+	or.w	#$8000,d5		Flag remplacer
+Ed_RSR	bsr	Ed_TokCur
+	tst.b	Ed_SchBuf(a5)
+	beq	Ed_Replace
+	tst.b	Ed_RepBuf(a5)
+	beq	Ed_Replace
+	bra	Ed_SR
+; REPLACE PREVIOUS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ReplacePrev
+	move.w	Ed_SchMode(a5),d5
+	and.w	#$0001,d5		Vers le haut
+	or.w	#$8002,d5		Flag remplacer
+	bra.s	Ed_RSR
+
+;
+; Routine REPLACE
+; ~~~~~~~~~~~~~~~
+;	A0= 	Ligne � changer
+; 	D0=	Position du changement
+RepBuffer
+	movem.l	a0-a2/d2-d3,-(sp)
+	lea	0(a0,d0.w),a1		Position du changement
+	move.w	-2(a0),d0		Marque la fin de la ligne
+	move.l	a0,d1
+	clr.b	0(a0,d0.w)
+	moveq	#0,d2			Longueur des buffers
+	moveq	#0,d3
+	move.b	Ed_SchLong(a5),d2
+	move.b	Ed_RepLong(a5),d3
+	move.l	a1,a2
+	move.l	a1,a0
+	add.w	d2,a0
+.RChg1	move.b	(a0)+,(a1)+
+	bne.s	.RChg1
+; Place pour le nouveau
+	move.l	a1,a0
+	add.w	d3,a1
+	sub.l	a1,d1
+	neg.l	d1
+	cmp.w	#252,d1
+	bcc	.Tool
+.RChg2	move.b	-(a0),-(a1)
+	cmp.l	a2,a0
+	bcc.s	.RChg2
+; Poke le nouveau
+	lea	Ed_RepBuf(a5),a0
+	move.w	d3,d0
+	subq.w	#1,d0
+.RChg3	move.b	(a0)+,(a2)+
+	dbra	d0,.RChg3
+* Change la longueur de la ligne / pointe la fin du mot
+	add.w	d3,d6
+	subq.w	#1,d1
+	movem.l	(sp)+,a0-a2/d2-d3
+	move.w	d1,-2(a0)
+	moveq	#0,d0
+	rts
+* Line too long
+.Tool	movem.l	(sp)+,a0-a2/d2-d3
+	moveq	#-1,d0
+	rts
+
+;_____________________________________________________________________________
+;
+;					Procedures actualisations sliders
+;_____________________________________________________________________________
+;
+Edt_SliderY
+	bra	Edt_SlUpdateY
+	bra	Edt_SlMinusY
+	bra	Edt_SlPlusY
+	bra	Edt_SlDrawY
+Edt_SlUpdateY
+	move.w	Edt_WindTy(a4),Edt_SlV+Sl_Window(a4)
+	move.w	Edt_YPos(a4),Edt_SlV+Sl_Position(a4)
+	move.w	Prg_NLigne(a6),Edt_SlV+Sl_Global(a4)
+	rts
+Edt_SlMinusY
+Edt_SlPlusY
+Edt_SlDrawY
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.w	Edt_SlV+Sl_Position(a4),Edt_YPos(a4)
+	bsr	Ed_NewBuf
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+;_____________________________________________________________________________
+;
+;							Ligne d'�tat
+;_____________________________________________________________________________
+;
+
+;
+; Imprime la ligne
+; ~~~~~~~~~~~~~~~~
+Ed_EtLine
+	move.w	Edt_YPos(a4),d0		Ligne #
+	add.w	Edt_YCu(a4),d0
+	addq.w	#1,d0
+	ext.l	d0
+	move.b	Ed_EtXX+3(a5),d1	Position ligne etat
+	moveq	#5,d2			Longueur ligne
+	bra	Et_Chiffre
+;
+; Imprime la colonne
+; ~~~~~~~~~~~~~~~~~~
+Ed_EtCol
+	move.w	Edt_XCu(a4),d0
+	addq.w	#1,d0
+	move.b	Ed_EtXX+4(a5),d1
+	moveq	#3,d2
+	bra	Et_Chiffre
+;
+; Imprime la ligne
+; ~~~~~~~~~~~~~~~~
+Ed_EtFree
+	move.l	Prg_StBas(a6),d0	Place libre
+	sub.l	Prg_StMini(a6),d0
+	move.b	Ed_EtXX+5(a5),d1	Position ligne etat
+	moveq	#7,d2			Longueur
+	bra	Et_Chiffre
+;
+; Imprime le numero d'ordre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EtOrder
+	move.w	Edt_Order(a4),d0
+	ext.l	d0
+	move.b	Ed_EtXX+1(a5),d1
+	moveq	#2,d2
+	bra	Et_Chiffre
+
+
+; Impression d'un chiffre dans la ligne d'etat
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1.b=	X
+;	D0=	Chiffre
+;	D3=	Nombre de decimales
+Et_Chiffre
+	movem.l	d0/d2,-(sp)
+	ext.w	d1
+	moveq	#0,d2
+	WiCall	Locate
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+	move.l	#"    ",(a1)
+	move.l	(a1)+,(a1)
+	move.l	(a1)+,(a1)
+	movem.l	(sp)+,d0/d7
+	JJsrP	L_LongToDec,a2
+	move.l	Buffer(a5),a1
+	clr.b	0(a1,d7.w)
+	WiCall	Print
+	rts
+;
+; Insert / Overwrite
+; ~~~~~~~~~~~~~~~~~~
+Ed_EtIns
+	move.b	Ed_EtXX+2(a5),d1
+	ext.w	d1
+	moveq	#0,d2
+	WiCall	Locate
+	moveq	#5,d0
+	tst.b	Ed_Insert(a5)
+	beq.s	.Skip
+	moveq	#6,d0
+.Skip	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	rts
+;
+; Imprime le NOM DU PROGRAMME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EtNom
+	move.b	Ed_EtXX+6(a5),d1
+	ext.w	d1
+	moveq	#0,d2
+	WiCall	Locate
+	moveq	#3,d0
+	move.l	Edt_LinkPrev(a4),d1
+	or.l	Edt_LinkNext(a4),d1
+	beq.s	.Skip
+	moveq	#4,d0
+.Skip	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	move.b	Ed_EtXX+7(a5),d1
+	ext.w	d1
+	move.w	d1,d7
+	moveq	#0,d2
+	WiCall	Locate
+	move.w	Edt_WindESx(a4),d0
+	lsr.w	#3,d0
+	sub.w	d7,d0
+	subq.w	#2,d0
+	move.l	Buffer(a5),a0
+.Clr	move.b	#" ",(a0)+
+	dbra	d0,.Clr
+	clr.b	(a0)
+	move.l	Buffer(a5),a0
+	bsr	Ed_NPrgToBuf
+	move.l	Buffer(a5),a1
+	WiCall	Print
+	rts
+
+; Copie le nom du programme dans le buffer A0
+; Termine par <32
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NPrgToBuf
+	move.l	a0,a1
+	lea	Prg_NamePrg(a6),a0
+	tst.b	(a0)
+	beq.s	.Vide
+	move.l	a1,-(sp)
+	bsr	Ed_DNom
+	move.l	(sp)+,a1
+	bra.s	.Suit
+.Vide	moveq	#7,d0			VIDE: "New Project"
+	bsr	Ed_GetSysteme
+.Suit	tst.b	(a0)
+	beq.s	.Glo
+	move.b	(a0)+,(a1)+
+	cmp.b	#32,(a1)
+	bcc.s	.Suit
+.Glo	move.l	a1,a0
+.Fin	cmp.b	#32,(a1)
+	bcs.s	.Out
+	move.b	#" ",(a1)+
+	bra.s	.Fin
+.Out	rts
+;
+; Recall MESSAGE D'ALERTE
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ed_RAlert
+	moveq	#127,d0
+	move.l	Ed_BufT(a5),a0
+	lea	256(a0),a0
+	cmp.l	#$FFFE0102,(a0)+
+	bne.s	.Skip
+	move.l	a0,Edt_EtAlert(a4)
+	move.w	#150,Edt_EtMess(a4)
+	bset	#EtA_Alert,Edt_EtatAff(a4)
+	bsr	Ed_EtPrintD0
+.Skip	rts
+
+;
+; MESSAGE D'ALERTE
+; ~~~~~~~~~~~~~~~~
+Ed_Alert
+	tst.b	Ed_Zappeuse(a5)
+	bne.s	Ed_ZapAlert
+	moveq	#"G",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+; Pas de programme en t�l�commande!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d0,Edt_EtMess(a4)
+	move.l	a0,Edt_EtAlert(a4)
+	bset	#EtA_Alert,Edt_EtatAff(a4)
+	move.l	Ed_BufT(a5),a1
+	lea	256(a1),a1
+	move.l	#$FFFE0102,(a1)+
+.Alrt	move.b	(a0)+,(a1)+
+	bne.s	.Alrt
+	bsr	Ed_RazAlert
+	bra	Ed_Loop
+; Un programme en t�l�commande!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ZapAlert
+	move.w	d0,Edt_EtMess(a4)
+	move.l	a0,Edt_EtAlert(a4)
+	bset	#EtA_Alert,Edt_EtatAff(a4)
+	move.l	a0,Ed_ZapMessage(a5)
+	move.w	#-1,Ed_ZapError(a5)
+	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	bsr	Ed_Close
+	bra	Ed_Loop
+; En Cas d'alerte, un peu de menage...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_RazAlert
+	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	bsr	Ed_Close
+	rts
+
+; MESSAGE D'ALERTE en routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AlertRts
+	tst.b	Ed_Zappeuse(a5)
+	bne.s	Ed_ZapAlert
+	movem.l	a2-a3/d2-d4,-(sp)
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	move.w	d0,Edt_EtMess(a4)
+	move.l	a0,Edt_EtAlert(a4)
+	bset	#EtA_Alert,Edt_EtatAff(a4)
+	bsr	Ed_EtPrintD0
+	movem.l	(sp)+,a2-a3/d2-d4
+	rts
+
+; Affiche un avertissement avec nom A0=nom / D0=Mess
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AvName
+	movem.l	a0-a1/d0-d1,-(sp)
+	move.l	a0,-(sp)
+	bsr	Ed_GetMessage
+	move.l	Ed_BufT(a5),a1
+	bsr	EdCocop
+	subq.l	#1,a1
+	move.l	(sp)+,a0
+	bsr	EdCocop
+	move.l	Ed_BufT(a5),a0
+	clr.b	72(a0)
+	bsr	Ed_Avertir
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+; Avertissement message editeur D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AverMess
+	move.l	a0,-(sp)
+	bsr	Ed_GetMessage
+	bsr	Ed_Avertir
+	move.l	(sp)+,a0
+	rts
+;
+; Affiche un AVERTISSEMENT, boite de dialogue DEVANT le texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Avertir
+	movem.l	d0-d6/a0-a2,-(sp)
+	bsr	Ed_SetBanks
+	move.l	#EntNul,d0
+	move.l	d0,d1
+	move.l	a0,d2
+	addq.w	#1,Ed_Avert(a5)
+	move.w	Ed_Avert(a5),d3
+	add.w	#10,d3
+	ext.l	d3
+	moveq	#0,d4
+	moveq	#0,d5				Ne pas copier le programme
+	move.l	#1024,d6
+	move.l	Ed_Resource(a5),a0
+	move.l	a0,a1
+	add.l	2+8(a0),a0		Base des programmes
+	add.l	6(a0),a0		Programme numero deux
+	add.l	2(a1),a1		= Graphiques
+	move.l	Ed_Messages(a5),a2	Base des messages
+	JJsrP	L_Dia_RunQuick,a3
+	movem.l	(sp)+,d0-d6/a0-a2
+	rts
+;
+; Efface le dernier avertissement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AverFin
+	movem.l	d0-d7/a0-a4,-(sp)
+	move.w	Ed_Avert(a5),d1
+	beq.s	.Out
+	subq.w	#1,Ed_Avert(a5)
+	add.w	#10,d1
+	ext.l	d1
+	move.l	d1,-(sp)
+	move.l	#EntNul,d2
+	move.l	d2,d3
+	move.l	d3,d4
+	move.l	d4,d5
+	move.l	Buffer(a5),a1
+	EcCall	BlPut
+	move.l	(sp)+,d1
+	EcCall	BlDel
+.Out	movem.l	(sp)+,d0-d7/a0-a4
+	tst.w	d0
+	rts
+;
+; Effacement de tous les avertissements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AllAverFin
+	tst.w	Ed_Avert(a5)
+	bne.s	.Skip
+	rts
+.Skip	bsr	Ed_AverFin
+	bra.s	Ed_AllAverFin
+;
+; Reaffichage de la ligne d'etat complete
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EtPrint
+	move.b	#EtA_BAll,Edt_EtatAff(a4)
+Ed_EtPrintD0
+	tst.b	Edt_EtatAff(a4)
+	beq	.EndX
+	tst.b	Edt_Hidden(a4)
+	bne	.EndX
+	movem.l	d2-d7/a2,-(sp)
+; Message d'alerte
+; ~~~~~~~~~~~~~~~~
+	bclr	#EtA_Alert,Edt_EtatAff(a4)
+	beq.s	.Skip0
+	clr.b	Edt_EtatAff(a4)
+	tst.l	Edt_EtAlert(a4)
+	beq	.End2
+	move.w	Edt_WindEtat(a4),d1
+	WiCall	QWindow
+	moveq	#8,d0
+	bsr	Et_Print
+	move.l	Edt_EtAlert(a4),a1
+	WiCall	Centre
+	clr.l	Edt_EtAlert(a4)
+	move.w	Edt_Window(a4),d1
+	WiCall	QWindow
+	bra	.End
+.Skip0	tst.w	Edt_EtMess(a4)
+	bne	.End2
+	move.w	Edt_WindEtat(a4),d1
+	WiCall	QWindow
+; Une macro en route: message dans la fenetre courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	EdMa_Tape(a5)
+	beq.s	.PaMacro
+	cmp.l	Edt_Current(a5),a4
+	bne.s	.PaMacro
+	moveq	#8,d0
+	bsr	Et_Print
+	moveq	#30,d0
+	bsr	Ed_GetMessage
+	move.l	a0,a1
+	WiCall	Centre
+	clr.b	Edt_EtatAff(a4)
+	bra.s	.End
+.PaMacro
+; Effacement Active/Inactive
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bclr	#EtA_Clw,Edt_EtatAff(a4)
+	beq.s	.Skip1
+	moveq	#10,d0
+	cmp.l	Edt_Current(a5),a4
+	beq.s	.Okd
+	moveq	#11,d0
+.Okd	bsr	Et_Print		Efface,
+	moveq	#2,d0
+	bsr	Et_Print		Imprime le fond
+	moveq	#12,d0
+	bsr	Et_Print		Met les couleurs des informations
+; Num�ro d'ordre de la fenetre
+	bsr	Ed_EtOrder
+.Skip1
+; Ins
+	bclr	#EtA_Ins,Edt_EtatAff(a4)
+	beq.s	.Skip3
+	bsr	Ed_EtIns
+.Skip3
+; Line, bit 2
+	bclr	#EtA_Y,Edt_EtatAff(a4)
+	beq.s	.Skip4
+	bsr	Ed_EtLine
+.Skip4
+; Col, bit 3
+	bclr	#EtA_X,Edt_EtatAff(a4)
+	beq.s	.Skip5
+	bsr	Ed_EtCol
+.Skip5
+; Free,
+	bclr	#EtA_Free,Edt_EtatAff(a4)
+	beq.s	.Skip6
+	bsr	Ed_EtFree
+.Skip6
+; Nom du programme
+	bclr	#EtA_Nom,Edt_EtatAff(a4)
+	beq.s	.Skip7
+	bsr	Ed_EtNom
+.Skip7
+; Fini! Que de labels....
+.End
+.End2	movem.l	(sp)+,a2/d2-d7
+.EndX	rts
+
+; Routine, imprime le message systeme D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Et_Print
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	rts
+
+
+;____________________________________________________________________
+;
+;				RUN / MULTIRUN / TEST / INDENT
+;____________________________________________________________________
+;
+;
+; 	APPEL DU MONITEUR PAR LE MENU
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_GoMonitor
+	bsr	Ed_TokCur
+	bsr	Edt_ClearVar		Plus aucune variable, si HELP!
+	bsr	Ed_Hide			Plein de memoire
+	bsr	Ed_CloseEditor
+	JJsr	L_Prg_SetBanks
+	JJsr	L_Mon_Load		Va charger le moniteur
+	bne.s	.Load
+	move.l	a4,Edt_Runned(a5)	Programme >> runn�
+	lea	Ed_ErrRun(pc),a0	Retour du moniteur
+	move.l	a0,Prg_JError(a5)
+	JJsr	L_Mon_In_Editor
+	clr.l	Edt_Runned(a5)		Revient >>> Out of memory!
+.Mem	move.w	#204,d0
+.Err	move.l	d0,-(sp)
+	bsr	Ed_OpenEditor		Rouvre l'editeur
+	bsr	Ed_Appear
+	move.l	(sp)+,d0
+	bra	Ed_Al100
+.Load	cmp.w	#-1,d0
+	beq.s	.Mem
+	move.w	#222,d0
+	bra.s	.Err
+
+; ___________________________________________________________________
+;
+; 	LANCE/CHARGE UN PROGRAMME COMME OPTION EDITEUR
+; ___________________________________________________________________
+;
+;	A0=	Definition du programme
+;
+Ed_PrgCommand
+	move.l	a0,a2
+; Gestion ligne de commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	move.b	2(a2),d0
+	beq.s	.NoCom
+; Copie la ligne de commande
+	move.l	Ed_MnPrograms(a5),a0
+	bsr	Ed_GetMessageA0
+	moveq	#0,d0
+	move.b	-1(a0),d0
+	bra.s	.Cop
+; Copie la ligne courante � partir du curseur
+.NoCom	bsr	Ed_LCourant
+	move.l	a0,d0
+	sub.l	a1,d0
+	add.w	-2(a0),d0
+	move.l	a1,a0
+; Copie
+.Cop	move.l	Buffer(a5),a1
+	lea	TBuffer-256-6(a1),a1
+	move.l	#"CmdL",(a1)+
+	move.w	d0,(a1)+
+	subq.w	#1,d0
+	bmi.s	.Sko
+.Loop	move.b	(a0)+,(a1)+
+	dbra	d0,.Loop
+.Sko
+; On peut tokeniser maintenant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_TokCur
+	btst	#0,(a2)
+	bne	.Hidden
+; Charger le programme dans la fenetre courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a2,-(sp)
+	bsr	Ed_Saved		Va sauver le programme
+	move.l	(sp)+,a2
+; Recharger le programme?
+	btst	#2,(a2)
+	beq.s	.Sauv
+	lea	Ed_ErrRun(pc),a0	Un message de fin...
+	bra.s	.NLRun
+; Sauve le programme
+.Sauv	move.l	#Edt_EReload-Edt_SReload+4+4*10+128,d0
+	lea	Ed_Prg2ReLoad(a5),a0
+	bsr	Ed_MemReserve
+	beq	Ed_OMm
+	move.l	Prg_StTTexte(a6),(a0)+
+	lea	Prg_Marks(a6),a1
+	moveq	#9,d0
+.Cm	move.l	(a1)+,(a0)+
+	dbra	d0,.Cm
+	lea	Edt_SReload(a4),a1
+	move.w	#Edt_EReload-Edt_SReload-1,d0
+.Cc	move.b	(a1)+,(a0)+
+	dbra	d0,.Cc
+	lea	Prg_NamePrg(a6),a1
+.Cn	move.b	(a1)+,(a0)+
+	bne.s	.Cn
+	lea	Ed_ErrRunHidden(pc),a0		Pas de message
+	move.b	#1,Ed_RunnedHidden(a5)		Flag, si Kill Editor
+; NEW + LOAD + RUN!
+; ~~~~~~~~~~~~~~~~~
+.NLRun	move.l	a0,-(sp)
+; Copie le nom
+	moveq	#0,d0
+	move.b	1(a2),d0
+	move.l	Ed_MnPrograms(a5),a0	Prend le nom
+	bsr	Ed_GetMessageA0
+	move.l	Name1(a5),a1
+.Bli	move.b	(a0)+,(a1)+
+	bne.s	.Bli
+	bsr	Ed_New2			New!
+; Charge le programme
+	move.w	#155,d0			Message, je charge!
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+	moveq	#-1,d0			Adapter la taille
+	JJsr	L_Prg_Load
+	bne	Ed_PrgLoadErr
+	bsr	Ed_AverFin
+; Run special
+	move.l	Ed_BufT(a5),a0		Plus de Ed_RAlert
+	clr.l	256(a0)
+	bsr	Ed_BlocFree		Un peu de place
+	bsr	Prg_RazUndos
+	bsr	EdM_End
+	bsr	EdM_Program
+	move.l	a4,Edt_Runned(a5)	Programme runn�
+	move.l	(sp)+,a1		Retour de fin variable!
+	lea	Ed_TestMessage(pc),a2	Affichage tests
+	moveq	#0,d0			Programme normal
+	JJsr	L_Prg_RunIt
+	clr.l	Edt_Runned(a5)		Si revient!
+	bra	Ed_OMm			Out of mem si revient
+
+; Charger le programme en HIDDEN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Hidden	moveq	#0,d0
+	move.b	1(a2),d0
+	move.l	Ed_MnPrograms(a5),a0
+	bsr	Ed_GetMessageA0
+	move.l	Name1(a5),a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+; Recherche un accessoire deja charge
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Edt_AccAdr
+	bne.s	.Deja
+; Charge dans une fenetre cachee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_Dsk.PathIt
+	bsr	Ed_RLoadHidden
+	clr.l	Ed_WindowToDel(a5)
+	btst	#2,(a2)
+	bne.s	.Garde
+	move.b	#-1,Edt_PrgDelete(a4)
+	bra.s	.Skip
+.Garde	bsr	EdM_BranchAMOS
+	bsr	EdM_Program
+.Skip	move.l	a4,a0
+; Branche au RUN HIDDEN normal!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Deja	bra	Ed_RunHide
+;
+; Recharge le programme pr�c�dent
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PrgReLoad
+; New du programme pr�c�dent
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_New2
+; Taille du buffer
+; ~~~~~~~~~~~~~~~~
+	move.l	Ed_Prg2ReLoad(a5),a2
+	move.l	(a2)+,d0
+	JJsr	L_Prg_ChgTTexte
+	beq.s	.Out
+; Marks
+; ~~~~~
+	lea	Prg_Marks(a6),a0
+	moveq	#9,d0
+.Cm	move.l	(a2)+,(a0)+
+	dbra	d0,.Cm
+; Donnee d'edition
+; ~~~~~~~~~~~~~~~~
+	lea	Edt_SReload(a4),a0
+	move.w	#Edt_EReload-Edt_SReload-1,d0
+.Cc	move.b	(a2)+,(a0)+
+	dbra	d0,.Cc
+; Recharge le programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	(a2)
+	beq.s	.Nol
+	move.l	Name1(a5),a0
+.Cn	move.b	(a2)+,(a0)+
+	bne.s	.Cn
+; Chargement!
+; ~~~~~~~~~~~
+	move.w	#155,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+	moveq	#1,d0			Revenir si pas assez grand
+	JJsr	L_Prg_Load
+	bne.s	.Nol
+	move.b	#1,Prg_StModif(a6)	Force le test
+	bsr	Ed_AverFin
+	bsr	Ed_NewBufAff
+.Nol	bsr	Ed_AverFin
+	bsr.s	.Free			Liberation de la structure
+	bsr	Ed_RAlert		Si erreur dans le programme precedent
+	bra	Ed_Loop
+; Out of mem
+; ~~~~~~~~~~
+.Out	move.l	#1024,d0
+	JJsr	L_Prg_ChgTTexte
+	bsr	Edt_New
+	bsr	.Free
+	bra	Ed_OMm
+; Libere la structure + reaffiche le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Free	lea	Ed_Prg2ReLoad(a5),a0
+	bsr	Ed_MemFree
+	move.l	a4,a0
+	moveq	#%10,d0
+	bsr	Ed_Splitted
+	rts
+
+;
+; TROUVE L'ADRESSE DU PROGRAMME NAME1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	In	Name1	Nom � cherche
+;	Out	Trouve	BNE, A0=adresse
+;		Non	BEQ
+;
+Edt_AccAdr
+	movem.l	a2/d2,-(sp)
+	move.l	Name1(a5),a0
+	bsr	Ed_DNom
+	move.l	a0,d2
+	move.l	Edt_List(a5),d0
+	beq.s	.Out
+.Loop0	move.l	d0,a2
+	move.l	Edt_Prg(a2),a0
+	lea	Prg_NamePrg(a0),a0
+	bsr	Ed_DNom
+	move.l	d2,a1
+.Loop1	move.b	(a0)+,d0
+	bsr	MajD0ed
+	move.b	d0,d1
+	move.b	(a1)+,d0
+	bsr	MajD0ed
+	cmp.b	d0,d1
+	bne.s	.Next
+	or.b	d1,d0
+	bne.s	.Loop1
+	move.l	a2,d0
+	bra.s	.Ok
+.Next	move.l	Edt_Next(a2),d0
+	bne.s	.Loop0
+.Out	moveq	#0,d0
+.Ok	move.l	d0,a0
+	movem.l	(sp)+,a2/d2
+	rts
+
+
+; ___________________________________________________________________
+;
+; 						RUN / TEST / INDENT
+; ___________________________________________________________________
+;
+
+;
+; RUN HIDDEN PROGRAM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_RunHidden
+	bsr	Ed_TokCur		Ligne courante
+	bsr	Ed_GetHidden		Cherche le programme
+	beq	Ed_NotDone
+	move.l	Buffer(a5),a1		Pas de command line!
+	lea	TBuffer-256-6(a1),a1
+	clr.l	(a1)
+; Entree 2: run le programme A0
+Ed_RunHide
+	move.l	a0,Edt_Runned(a5)	Programme editeur runne
+	move.l	Edt_Prg(a0),a6		Structure programme
+	bsr	Ed_BlocFree		Un peu de place
+	bsr	Prg_RazUndos
+	bsr	EdM_End
+	bsr	EdM_Program
+	move.b	#1,Ed_RunnedHidden(a5)	Flag en cas de KILL EDITOR
+	lea	Ed_ErrRunHidden(pc),a1	Retour de fin, sans ligne
+	lea	Ed_TestMessage(pc),a2	Affichage tests
+	moveq	#1,d0			Accessoire!
+	JJsr	L_Prg_RunIt
+	clr.l	Edt_Runned(a5)		Si revient
+	beq	Ed_OMm			Out of memory
+	bra	Ed_AlRunned		Already runned
+
+;
+; RUN EN MODE DIRECT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_RunDirect
+	move.l	Edt_Current(a5),a4	Prend le programme courant
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_BlocFree		Un peu de place
+	bsr	Prg_RazUndos
+	bsr	EdM_End
+	bsr	EdM_Program
+	move.l	Buffer(a5),a1		Pas de command line!
+	lea	TBuffer-256-6(a1),a1
+	clr.l	(a1)
+	move.l	a4,Edt_Runned(a5)	Programme runn�
+	lea	Ed_DErrRun(pc),a1	Retour de fin normal
+	lea	Ed_DTestMessage(pc),a2	Affichage tests
+	moveq	#0,d0			Programme normal
+	JJsr	L_Prg_RunIt
+	clr.l	Edt_Runned(a5)		Si revient!
+	bsr	Esc_Hide
+	bsr	Ed_Appear
+	bra	Ed_OMm			Out of mem si revient
+Ed_DErrRun
+	tst.w	Direct(a5)		Si ESC plus la >>> Erreurs normales
+	beq	Ed_ErrRun
+	bne	Ed_ErrDirect
+Ed_DTestMessage
+	rts				0 -> Rien
+	nop
+	rts				1 -> Rien
+	nop
+	bra	Esc_Hide		2 -> Fermeture de l'ecran
+
+;
+; RUN PROGRAMME COURANT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Run	bsr	Ed_TokCur		Ligne courante
+	bsr	Ed_BlocFree		Un peu de place
+	bsr	Prg_RazUndos
+	bsr	EdM_End
+	bsr	EdM_Program
+	move.l	Buffer(a5),a1		Pas de command line!
+	lea	TBuffer-256-6(a1),a1
+	clr.l	(a1)
+	move.l	a4,Edt_Runned(a5)	Programme runn�
+	lea	Ed_ErrRun(pc),a1	Retour de fin normal
+	lea	Ed_TestMessage(pc),a2	Affichage tests
+	moveq	#0,d0			Programme normal
+	JJsr	L_Prg_RunIt
+	clr.l	Edt_Runned(a5)		Si revient!
+	bra	Ed_OMm			Out of mem si revient
+
+; RETOUR DE PROGRAMME HIDDEN SOUS EDITEUR
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ErrRunHidden
+	move.l	Edt_Runned(a5),a4	Prend le programme courant
+	move.l	Edt_Prg(a4),a6
+	clr.l	Edt_Runned(a5)
+	clr.b	Ed_RunnedHidden(a5)	Enleve le flag
+; Prend le message
+	bsr	Ed_GetError
+	move.l	a0,-(sp)
+	move.l	d0,-(sp)
+; Configuration modifiee?
+	tst.b	EdC_Modified(a5)	Tout modifie?
+	beq.s	.Normal
+	bsr	EdC_Redraw		Ferme et ouvre!
+	bra.s	.Suite
+; Configuration non modifiee
+.Normal	tst.b	Prg_Accessory(a5)	Si accessoire
+	beq.s	.Paac
+	bsr	Ed_Redraw		Redessin de l'editeur
+	bra.s	.Suite
+.Paac	bsr	Ed_OpenEditor		ROuvre l'editeur
+	bsr	Esc_Hide		Inutile, mais bon
+	bsr	Ed_Appear
+; Efface le programme si necessaire
+.Suite	bsr	Edt_ClearVar
+	tst.b	Edt_PrgDelete(a4)
+	beq.s	.No
+	bsr	Edt_DelWindow
+	bsr	EdM_BranchAMOS
+; Affiche le message dans le programme courant
+.No	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_SetBanks		Change les banques
+	JJsr	L_Bnk.Change		Envoie aux trappes / Musiques
+	bsr	Ed_SetBanks		Retour aux banques editeur
+	move.l	(sp)+,d0
+	bmi.s	.Aue
+	cmp.w	#10,d0			END / EDIT
+	beq	Ed_Loop
+	cmp.w	#1000,d0		Retour simple � l'editeur
+	beq	Ed_Loop
+	cmp.w	#1002,d0		Retour au workbench
+	beq	Ed_System
+.Aue	move.l	(sp)+,a0
+; Fabrique le message Error in hidden
+	move.l	a0,-(sp)
+	moveq	#9,d0
+	bsr	Ed_GetMessage
+	move.l	Ed_BufT(a5),a1
+.CopM1	move.b	(a0)+,(a1)+
+	bne.s	.CopM1
+	subq.l	#1,a1
+	move.l	(sp)+,a0
+.CopM2	move.b	(a0)+,(a1)+
+	bne.s	.CopM2
+	move.b	#".",-1(a1)
+	clr.b	(a1)
+; Imprime
+	move.l	Ed_BufT(a5),a0
+	move.w	#200,d0
+	bra	Ed_Alert
+
+; RETOUR DE TEST SOUS EDITEUR
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ErrTest
+	move.l	Edt_Current(a5),a4	Pas d'effacement Edt_Runned!
+	move.l	Edt_Prg(a4),a6
+	bra.s	Ed_Errr
+; RETOUR DE PROGRAMME NORMAL SOUS EDITEUR
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ErrRun
+	tst.b	Ed_RunnedHidden(a5)
+	bne	Ed_ErrRunHidden
+	move.l	Edt_Runned(a5),a4	Prend le programme courant
+	move.l	Edt_Prg(a4),a6
+	clr.l	Edt_Runned(a5)
+	tst.b	Prg_Reloaded(a6)	On a change le programme???
+	beq.s	Ed_Errr
+	clr.b	Prg_Reloaded(a6)
+	move.w	#-1,Edt_YBloc(a4)
+Ed_Errr	tst.l	d0			Error TESTING
+	bmi	Ed_ErrEdit
+	cmp.w	#1000,d0		Edit
+	beq	Ed_ErrEdit
+	cmp.w	#1001,d0		Direct
+	beq	Ed_ErrDirect
+	cmp.w	#1002,d0		System
+	beq	Ed_System
+	bsr	Ed_Ligne		Ligne de choix direct / edit
+	cmp.w	#1,d1
+	beq	Ed_ErrDirect
+; Retour � l'�diteur
+; ~~~~~~~~~~~~~~~~~~
+Ed_ErrEdit
+	bsr	Ed_GetError
+	move.l	a0,-(sp)
+	move.l	d0,-(sp)
+; Apparition de l'�diteur
+	bsr	Ed_OpenEditor		ROuvre l'editeur
+	bsr	Esc_Hide
+	bsr	Ed_Appear
+; Retour � l'editeur si END ou EDIT
+	move.l	(sp)+,d0		Message de test?
+	bmi.s	.Skip
+	cmp.w	#10,d0
+	beq	Ed_Loop
+	cmp.w	#1000,d0
+	beq	Ed_Loop
+; Positionne le curseur sur l'erreur
+.Skip	move.l	VerPos(a5),a0
+	bsr	Ed_FindA		Cherche le numero / adresse
+	clr.l	Prg_AdEProc(a6)
+	tst.l	d1
+	beq.s	.Ski
+	move.l	a0,Prg_AdEProc(a6)	Si procedure fermee--> Stocke!
+	move.w	d0,-(sp)
+	move.l	d1,-(sp)
+	move.l	Buffer(a5),a1
+	move.l	VerPos(a5),d0
+	bsr	Detok
+	move.w	d0,Prg_XEProc(a6)
+	clr.l	VerPos(a5)
+	move.l	(sp)+,a0
+	move.w	(sp)+,d0
+.Ski	bsr	Ed_SetY			Localise en Y
+	move.l	Buffer(a5),a1		Offset de l'erreur
+	move.l	VerPos(a5),d0
+	bsr	Detok
+	bsr	Ed_SetX
+	bsr	Ed_NewBufAff
+	move.l	(sp)+,a0		Affiche le message
+	move.l	Ed_BufT(a5),a1		Avec un "." a la fin
+	bsr	EdCocop
+	move.b	#".",-1(a1)
+	clr.b	(a1)
+	move.l	Ed_BufT(a5),a0
+	move.w	#200,d0
+	bra	Ed_Alert
+
+; Trouve le libelle de l'erreur en retour de programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_GetError
+	ext.l	d0
+	move.l	d0,d2
+	move.l	a0,d1
+	bne.s	.Clair
+	cmp.w	#256,d0			Un message?
+	bge.s	.Clair
+	move.l	Ed_TstMessages(a5),a0	Message testing
+	neg.w	d0
+	move.w	d0,d2
+	bpl.s	.MTest
+	neg.w	d0
+	move.w	d0,d2
+	move.l	Ed_RunMessages(a5),a0
+	addq.w	#1,d0
+.MTest	bsr	Ed_GetMessageA0
+	move.l	d2,d0
+.Clair	rts
+
+; Ligne EDITOR <-> DIRECT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Ligne
+	movem.l	a0/d0,-(sp)
+	bsr	Ed_GetError
+	movem.l	a0/d0,-(sp)
+; Ouvre l'editeur
+	bsr	Ed_OpenEditor
+; Fabrique les chaines de caractere
+	move.l	Ed_VDialogues(a5),a2
+	move.l	4(sp),a0		Message d'erreur
+	bsr	Ed_DChaine
+	move.l	a1,(a2)
+
+	move.l	VerPos(a5),a0
+	bsr	Ed_FindA
+	addq.l	#1,d0
+	move.l	d0,1*4(a2)		Numero de la ligne
+
+	move.l	Buffer(a5),a1
+	move.l	VerPos(a5),d0
+	bsr	Detok
+	move.w	d0,d3
+
+	move.l	Buffer(a5),a3
+	move.w	(a3)+,d2
+	clr.b	0(a3,d2.w)
+	moveq	#60,d4
+	add.w	d3,d4
+	clr.b	0(a3,d4.w)
+	sub.w	#73,d4
+	bpl.s	.S1
+	moveq	#0,d4
+.S1	lea	0(a3,d3.w),a0
+	bsr	Ed_DChaine
+	move.l	a1,3*4(a2)
+	clr.b	0(a3,d3.w)
+	lea	0(a3,d4.w),a0
+	bsr	Ed_DChaine
+	move.l	a1,2*4(a2)
+	lea	EdReCop(pc),a0
+	move.l	a0,4*4(a2)
+
+; Fait apparaitre l'ecran
+	moveq	#0,d2
+	EcCalD	EHide,EcEdit
+	EcCalD	First,EcEdit
+	move.w	Ed_Wx(a5),d2
+	move.w	Es_Y1(a5),d3
+	move.l	#EntNul,d4
+	moveq	#56,d5
+	EcCalD	AView,EcEdit
+	moveq	#0,d2
+	moveq	#0,d3
+	EcCalD	OffSet,EcEdit
+; Fait apparaitre la souris
+	SyCalD	Show,-1
+	bsr	Esc_MaxMouse
+; Positionne la souris sur l'ecran
+	move.w	Ed_Wx(a5),d1
+	move.w	Es_Y1(a5),d2
+	addq.w	#1,d1
+	addq.w	#1,d2
+	SyCall	SetM
+; Va demarrer le dialogue
+	moveq	#EdD_Ligne,d0
+	bsr	Ed_DoDialog
+	move.w	d0,-(sp)
+; Efface l'ecran
+	moveq	#-1,d2
+	EcCalD	EHide,EcEdit
+	bsr	EdReCop
+	move.w	(sp)+,d1
+; Retourne a l'appelant
+	addq.l	#8,sp
+	movem.l	(sp)+,a0/d0
+	rts
+
+;
+; TEST
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_Test	bsr	Ed_TokCur
+	moveq	#-1,d0
+	bsr	Ed_VaTester
+; Message de warning si mix de constantes float
+	move.w	#197,d0			***-No Errors
+	move.b	Ver_SPConst(a5),d1
+	tst.b	MathFlags(a5)
+	bmi.s	.Test
+	move.b	Ver_DPConst(a5),d1
+.Test	tst.b	d1
+	beq	Ed_Al100
+	move.w	#221,d0			***-Precision mismatch
+	bra	Ed_Al100
+
+;
+; CHECK 1.3
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Check1.3
+	bsr	Ed_TokCur
+	move.b	#1,VerCheck1.3(a5)	Force l'arret
+	move.b	#1,Prg_StModif(a6)	Force le test
+	bsr	Ed_VaTester
+	moveq	#49,d0			Compatible
+	tst.b	VerNot1.3(a5)
+	beq.s	.Go
+	moveq	#48,d0			Too many banks
+.Go	move.l	Ed_TstMessages(a5),a0
+	bsr	Ed_GetMessageA0
+	moveq	#127,d0
+	bra	Ed_Alert
+
+;
+; INDENTATION AUTOMATIQUE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Indent
+	bsr	Ed_TokCur
+	bsr	Ed_VaTester
+	move.w	Ed_Tabs(a5),d0
+	move.l	Prg_StBas(a6),a0
+	bsr	Indent
+	bsr	Ed_NewBuf
+	rts
+
+;	Indentation du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0:	Debut programme
+;	D0:	Valeur du Tab
+Indent	movem.l	d2-d7,-(sp)
+	move.w	d0,d3
+	moveq	#0,d6
+IndLine	move.l	a0,a1		* Adresse de debut de ligne
+	moveq	#0,d4
+	moveq	#0,d7
+	move.w	d6,d5
+	tst.w	(a0)+
+	beq	IndX
+IndLoop	move.w	(a0)+,d0
+	beq	IndFL
+	bsr	TInst
+	cmp.w	#_TkProc,d0
+	beq.s	IndPro
+	cmp.w	#_TkEndP,d0
+	beq.s	IndProF
+	cmp.w	#_TkFor,d0
+	beq.s	IndPls
+	cmp.w	#_TkRpt,d0
+	beq.s	IndPls
+	cmp.w	#_TkWhl,d0
+	beq.s	IndPls
+	cmp.w	#_TkDo,d0
+	beq.s	IndPls
+	cmp.w	#_TkIf,d0
+	beq.s	IndPls
+	cmp.w	#_TkThen,d0
+	beq.s	IndThen
+	cmp.w	#_TkElse,d0
+	beq.s	IndElse
+	cmp.w	#_TkElsI,d0
+	beq.s	IndElse
+	cmp.w	#_TkEndI,d0
+	beq.s	IndMns
+	cmp.w	#_TkNxt,d0
+	beq.s	IndMns
+	cmp.w	#_TkUnt,d0
+	beq.s	IndMns
+	cmp.w	#_TkWnd,d0
+	beq.s	IndMns
+	cmp.w	#_TkLoo,d0
+	beq.s	IndMns
+	bra.s	IndLoop
+* Debut d'une procedure: RAZ
+IndPro:	moveq	#0,d5
+	move.w	d3,d6
+	tst.b	10(a1)
+	bpl.s	IndLoop
+	moveq	#0,d6
+	move.l	4(a1),d0
+	lea	12+2(a1,d0.l),a0
+	bra	IndFL
+* Fin d'une procedure
+IndProF	moveq	#0,d5
+	moveq	#0,d6
+	bra	IndLoop
+* Debut d'une boucle: + pour la ligne suivante
+IndPls:	addq.w	#1,d7
+	add.w	d3,d6
+	bra	IndLoop
+* Fin d'une boucle: - pour cette ligne et la suivante
+IndMns:	subq.w	#1,d7
+	bpl.s	IndM
+	clr.w	d7
+	sub.w	d3,d5
+	sub.w	d3,d6
+	bra	IndLoop
+IndM:	sub.w	d3,d6
+	bra	IndLoop
+* THEN: met le flag pour ELSE
+IndThen:moveq	#1,d4
+	bra.s	IndMns
+* ELSE: si FLAG, ne fait RIEN
+IndElse tst.w	d4
+	bne	IndLoop
+	sub.w	d3,d5
+	bra	IndLoop
+* Fin d'une ligne: poke D5!
+IndFL:	tst.w	d5
+	bpl.s	IndFl1
+	clr.w	d5
+IndFl1:	cmp.w	#127,d5
+	bcs.s	IndFl2
+	moveq	#127,d5
+IndFl2:	addq.w	#1,d5
+	move.b	d5,1(a1)
+	bra	IndLine
+* Fin de l'indentation automatique
+IndX:	movem.l	(sp)+,d2-d7
+	rts
+
+;
+; Teste le programme s'il faut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0	Flag affichage ou non
+;
+Ed_VaTester
+	tst.b	Prg_StModif(a6)		Vraiment tester?
+	beq.s	.Ok
+	move.b	#1,Ed_YaUTest(a5)	Un test!
+	lea	Ed_ErrTest(pc),a1	En cas d'erreur
+	lea	Ed_TestMessage(pc),a2	Affichage
+	JJsr	L_Prg_TestIt		Va tester
+	bne	Ed_AlRunned		Seule erreur possible
+.Ok	rts
+
+
+Ed_TestMessage
+	bra	Ed_Test1
+	bra	Ed_Test2
+	bra	Ed_Test3
+; Affiche le test si programme > 8K
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Test1
+	movem.l	a0-a6/d0-d7,-(sp)
+	clr.b	Ed_TstMesOn(a5)		Plus de flag
+	move.l	Prg_StHaut(a6),d0
+	sub.l	Prg_StBas(a6),d0
+	cmp.l	#1024*4,d0
+	bcs.s	.Non
+	addq.b	#1,Ed_TstMesOn(a5)
+	move.w	#198,d0
+	bsr	Ed_GetMessage
+	bsr	Ed_Avertir
+	JJsr	L_Prg_SetBanks
+.Non	movem.l	(sp)+,a0-a6/d0-d7
+Ed_Rts	rts
+; Effacement du message
+; ~~~~~~~~~~~~~~~~~~~~~
+Ed_Test2
+	movem.l	a0-a6/d0-d7,-(sp)
+	tst.b	Ed_TstMesOn(a5)
+	beq.s	.Non
+	clr.b	Ed_TstMesOn(a5)
+	bsr	Ed_AverFin
+	JJsr	L_Prg_SetBanks
+.Non	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+; Effacement de l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Test3
+	bsr	EdM_End
+	bra	Ed_Hide
+
+
+; ___________________________________________________________________
+;
+;					PROCEDURES
+; ___________________________________________________________________
+
+;
+; OPEN / CLOSE ALL PROCEDURES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ProcsOpen
+	moveq	#0,d2
+	bra.s	Ed_Procs
+Ed_ProcsClose
+	moveq	#-1,d2
+Ed_Procs
+	bsr	Ed_TokCur
+	tst.w	d2
+	beq.s	.Skip
+	moveq	#-1,d0
+	bsr	Ed_VaTester
+.Skip
+; Sauve les marques
+; ~~~~~~~~~~~~~~~~~
+	bsr	Ed_Marks2Adress
+; Trouve la position actuelle du curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	bsr	Ed_FindL
+	move.l	a0,d3
+; Boucle d'exploration du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.w	d0
+	bsr	Ed_FindL
+	beq.s	.EdFa3
+.EdFa1	cmp.w	#_TkProc,2(a0)
+	bne.s	.EdFa2
+	btst	#6,10(a0)
+	bne.s	.EdFa2
+	bclr	#7,10(a0)
+	tst.w	d2
+	beq.s	.EdFa2
+	bset	#7,10(a0)
+.EdFa2	bsr	Ed_NextL
+	bne.s	.EdFa1
+; Reaffiche le programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+.EdFa3	JJsr	L_Prg_CptLines
+; Recalcule les marques
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_Marks2Number
+; Recentre le curseur
+; ~~~~~~~~~~~~~~~~~~~
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	tst.l	d3
+	beq.s	.EdFa4
+	move.l	d3,a0
+	bsr	Ed_FindA
+.EdFa4	bsr	Ed_SetY
+	bsr	Ed_NewBuf
+	rts
+
+;
+; INSERT MACHINE LANGAGE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ProcML
+	bsr	Ed_TokCur
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	move.w	#178,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+; Trouve la ligne
+; ~~~~~~~~~~~~~~~
+.Reloop	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	bsr	Ed_FindL
+	move.l	Edt_DebProc(a4),d0
+	beq	Ed_FoE
+	move.l	d0,a2
+; Va fermer la procedure, s'il faut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#7,10(a2)
+	bne.s	.PaOu
+	bsr	Ed_ProcOpen
+	bra.s	.Reloop
+.PaOu
+; Trouve la longueur du fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1005,d2
+	bsr	Ed_Open
+	beq	Ed_DError
+; Saute les premiers HUNKS!
+	bsr	.GetH
+	cmp.l	#$3F3,d0
+	bne	.NoGood
+.Plo0	bsr	.GetH
+	cmp.l	#$3E9,d0
+	bne.s	.Plo0
+	bsr	.GetH
+	lsl.l	#2,d0
+	move.l	d0,d3
+	add.l	#512,d0
+	JJsr	L_ResTempBuffer
+	move.l	a0,a3
+	move.l	a0,a1
+; Cree le faux programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a2,a0
+	moveq	#0,d0				Copie PROCEDURE
+	move.b	(a0),d0
+	lsl.w	#1,d0
+	subq.w	#1,d0
+.Cp1	move.b	(a0)+,(a1)+
+	dbra	d0,.Cp1
+	or.w	#%0101000000000000,10(a3)	Procedure machine langage
+	move.w	#$0301,(a1)+
+	move.w	#_TkML,(a1)+
+	lea	10+6(a3),a0			Pointe les parametres
+	moveq	#0,d0
+	move.b	(a0),d0
+	lea	2+2(a0,d0.w),a0
+	move.l	a0,d0
+	sub.l	a1,d0
+	cmp.w	#_TkBra1,-2(a0)
+	beq.s	.Par
+	moveq	#0,d0
+.Par	move.w	d0,(a1)+
+; Charge le langage machine dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a1,d2
+	bsr	Ed_Read
+	bne	Ed_DError
+	bsr	Ed_Close
+; Met le ENDPROC
+; ~~~~~~~~~~~~~~
+	move.l	d2,a1
+	add.l	d3,a1
+	move.w	#$0301,(a1)+
+	move.w	#_TkEndP,(a1)+
+	clr.w	(a1)+
+	move.l	a1,d0
+	sub.l	a3,d0
+	sub.l	#14,d0
+	move.l	d0,4(a3)
+	move.l	a1,d3
+	sub.l	a3,d3				D3= Longueur totale
+; Efface l'ancienne proc�dure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Edt_YCu(a4),d0
+	add.w	Edt_YPos(a4),d0
+	bsr	Ed_FindL
+	move.l	a0,-(sp)
+	bsr	Ed_NextL
+	move.l	a0,a1
+	move.l	(sp)+,a0
+	bsr	Ed_StDelChunk
+; Insere la nouvelle procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a3,a0
+	move.l	d3,d0
+	move.w	Edt_YCu(a4),d1
+	add.w	Edt_YPos(a4),d1
+	bsr	Ed_StoBlock
+; Voili Voila
+; ~~~~~~~~~~~
+	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	JJsr	L_Prg_CptLines
+	bsr	Ed_AverFin
+	rts
+; Routinette
+; ~~~~~~~~~~
+.GetH	move.l	Buffer(a5),d2
+	moveq	#4,d3
+	bsr	Ed_Read
+	bne	Ed_DError
+	move.l	Buffer(a5),a0
+	move.l	(a0),d0
+	rts
+; Pas un bon programme!
+; ~~~~~~~~~~~~~~~~~~~~~
+.NoGood	move.w	#182,d0
+	bsr	Ed_GetMessage
+	move.w	#250,d0
+	bra	Ed_Alert
+
+;
+; OPEN / CLOSE PROCEDURE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ProcOpen
+	bsr	Ed_TokCur
+; Trouve la ligne
+; ~~~~~~~~~~~~~~~
+	move.w	Edt_YPos(a4),d0
+	add.w	Edt_YCu(a4),d0
+	bsr	Ed_FindL
+	move.l	Edt_DebProc(a4),d0
+	beq	Ed_FoE
+; Peut-on ouvrir?
+; ~~~~~~~~~~~~~~~
+	move.l	d0,a2
+	btst	#6,10(a2)
+	bne.s	.Out
+; Ouverture ou fermeture?
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#7,10(a2)
+	bne.s	.PaOu
+	move.l	a2,-(sp)		Si fermeture, on teste
+	moveq	#-1,d0
+	bsr	Ed_VaTester
+	move.l	(sp)+,a2
+.PaOu
+; Sauve les marques
+; ~~~~~~~~~~~~~~~~~
+	bsr	Ed_Marks2Adress
+; Change la procedure
+; ~~~~~~~~~~~~~~~~~~~
+	bchg	#7,10(a2)
+; Recalcule les marques
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_Marks2Number
+; Recentre (autour de l'erreur s'il faut)!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_Prg_CptLines
+	move.l	a2,a0
+	tst.w	10(a0)
+	bmi.s	.Skip
+	tst.l	Prg_AdEProc(a6)
+	beq.s	.Out
+	bsr	Ed_RAlert
+	move.w	Prg_XEProc(a6),d0
+	bsr	Ed_SetX
+	move.l	Prg_AdEProc(a6),d0
+	bclr	#31,d0
+	move.l	d0,a0
+.Skip	bsr	Ed_FindA
+	bsr	Ed_SetY
+.Out	bsr	Ed_NewBuf
+	rts
+
+;
+; Arret de l'auto-centrage en cas d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ClEProc
+	tst.l	Prg_AdEProc(a6)
+	beq.s	.Out
+	bmi.s	.Skip
+	bset	#7,Prg_AdEProc(a6)
+	rts
+.Skip	clr.l	Prg_AdEProc(a6)
+.Out	rts
+
+;_____________________________________________________________________________
+;
+;							Mode Escape
+;_____________________________________________________________________________
+;
+
+Ed_Escape
+	moveq	#"E",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+	bsr	Ed_TokCur
+	bsr	Ed_Hide
+	bsr	Esc_Appear
+
+; _________________________________________
+;
+; Boucle du mode escape
+; _________________________________________
+;
+Esc_Loop
+	move.l	BasSp(a5),sp
+	move.w	#1,T_AMOState(a5)	Editor present!
+	lea	Ed_ErrDirect(pc),a0	Jump si error
+	move.l	a0,Prg_JError(a5)
+;	move.l	Edt_Current(a5),a4	Change les banques >>> programme!
+;	move.l	Edt_Prg(a4),a6
+;	JJsr	L_Prg_SetBanks
+
+; Affiche les sliders de m�moire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EcCalD	Active,EcFonc
+	bsr	Ed_MemoryAff
+
+	EcCalD	Active,EcEdit
+
+; Met le curseur
+	moveq	#14,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+; Initialise l'editeur ligne
+	lea	Es_LEd(a5),a0
+	move.l	Buffer(a5),a1
+	move.l	a1,a2
+	clr.b	(a1)
+	move.w	#(1<<LEd_FMulti)|(1<<LEd_FTests)|(1<<LEd_FKeys)|(1<<LEd_FMouse)|(1<<LEd_FCursor)|(1<<LEd_FMouCur),d0
+	moveq	#0,d1			Curseur=0
+	move.w	#160,d2			Longueur
+	moveq	#-1,d3			Largeur maximum
+	moveq	#"*",d4			Curseur
+	JJsrP	L_LEd_Init,a3
+	bra	Esc_Aff
+
+Esc_L1	JJsr	L_Sys_WaitMul	Multitache + Inhibition
+	lea	Es_LEd(a5),a0
+	JJsrR	L_LEd_Loop,a1
+	bmi.s	Esc_L1		Control-C
+	cmp.w	#1,d2		Return?
+	beq	Esc_R
+	cmp.w	#2,d2		La souris?
+	beq	Esc_MKey
+	swap	d1
+	move.w	d1,d0		Isole les SHIFTS
+	lsr.w	#8,d0
+	cmp.b	#$45,d1		ESC?
+	beq	Esc_Esc
+	cmp.b	#$4C,d1		Fleche vers le HAUT
+	beq	Esc_H
+	cmp.b	#$4D,d1		Fleche vers le BAS
+	beq	Esc_B
+	cmp.b	#$5F,d1		HELP
+	beq	Esc_Help
+	cmp.b	#$50,d1		Touches de fonction
+	bcs	Esc_F
+	cmp.b	#$59,d1
+	bls	Esc_Fonc
+Esc_F	EcCalD	Active,EcEdit
+	bra.s	Esc_L1
+Esc_Aff	bsr	Es_Display
+	bset	#4,T_Actualise(a5)
+	bset	#4,ActuMask(a5)
+	SyCall	WaitVbl
+	bra.s	Esc_F
+;
+; Bouton escape
+; ~~~~~~~~~~~~~
+Esc_Bouton
+	move.l	d0,a0
+	move.w	d1,d0
+	move.w	Bt_Number(a0),d1
+	subq.w	#1,d1				0 > retour editeur
+	beq	Esc_Esc
+	subq.w	#1,d1				1 > Workbench
+	bne.s	.Pa2
+	bsr	Ed_Wb
+	bra	Esc_F
+.Pa2	subq.w	#1,d1				2 > Out
+	bne.s	.Pa3
+	move.b	Bt_Pos+1(a0),Esc_Output(a5)
+	bra	Esc_F
+.Pa3	subq.w	#1,d1				3 > Fonctions
+	btst	#1,d0				  > Bouton droit, fonction 10-20
+	beq	Esc_BtFonc
+	add.w	#10,d1
+	bra	Esc_BtFonc
+;
+; Click souris
+; ~~~~~~~~~~~~
+Esc_MKey
+	SyCall	GetZone
+	cmp.w	#EcFonc,d1
+	beq.s	Esc_MBoutons
+	cmp.w	#EcEdit,d1
+	beq.s	Esc_MEcran
+	bra	Esc_F
+; Dans l'�cran du haut
+; ~~~~~~~~~~~~~~~~~~~~
+Esc_MBoutons
+	lea	Ed_Boutons(a5),a0
+	JJsrR	L_Bt_Gere,a1
+	bne	Esc_Bouton
+	bra.s	Esc_MMove
+; Dans l'�cran
+; ~~~~~~~~~~~~
+Esc_MEcran
+	swap	d1
+	cmp.w	#1,d1
+	beq.s	Esc_MMove
+; Change la taille
+	SyCall	XyMou
+	sub.w	Es_Y2(a5),d2
+	move.w	d2,-(sp)
+.SLoop	SyCall	XyMou
+	sub.w	(sp),d2
+	move.w	Es_Y1(a5),d0
+	move.w	d0,d1
+	add.w	#Es_MiniSy,d0
+	add.w	Ed_Sy(a5),d1
+	cmp.w	d0,d2
+	bge.s	.SOk1
+	move.w	d0,d2
+.SOk1	cmp.w	d1,d2
+	ble.s	.SOk2
+	move.w	d1,d2
+.SOk2	cmp.w	Es_Y2(a5),d2
+	beq.s	.SSkip
+	move.w	d2,Es_Y2(a5)
+	bsr	Es_Display
+	bsr	EdReCop
+.SSkip	SyCall	MouseKey
+	btst	#0,d1
+	bne.s	.SLoop
+	tst.w	(sp)+
+	bra	Esc_F
+; Change la position
+Esc_MMove
+	SyCall	XyMou
+	sub.w	Es_Y1(a5),d2
+	move.w	d2,-(sp)
+.MLoop	SyCall	XyMou
+	sub.w	(sp),d2
+	cmp.w	Es_Y1(a5),d2
+	beq.s	.MSkip
+	move.w	Es_Y2(a5),d0
+	sub.w	Es_Y1(a5),d0
+	move.w	d2,Es_Y1(a5)
+	add.w	d0,d2
+	move.w	d2,Es_Y2(a5)
+	bsr	Es_Display
+	bsr	EdReCop
+.MSkip	SyCall	MouseKey
+	btst	#0,d1
+	bne.s	.MLoop
+	tst.w	(sp)+
+	bra	Esc_F
+;
+; Fleche vers le HAUT
+; ~~~~~~~~~~~~~~~~~~~
+Esc_H	move.b	d0,d1
+	and.b	#Ctr,d1
+	bne.s	Esc_HH
+	and.b	#Shf,d0
+	bne.s	Esc_BH
+; Recupere une touche AVANT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Esc_KMem(a5),a0
+	move.l	Esc_KMemPos(a5),d0
+	beq.s	.Sk1
+	move.l	d0,a0
+.Sk1	move.l	(a0),d0
+	beq	Esc_F
+	move.l	d0,a0
+	bra	Esc_Recall
+; Monte toute la fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~
+Esc_HH	tst.w	Es_Y2(a5)
+	bmi	Esc_F
+	subq.w	#8,Es_Y1(a5)
+	subq.w	#8,Es_Y2(a5)
+	bra	Esc_Aff
+; Monte la ligne du bas
+; ~~~~~~~~~~~~~~~~~~~~~
+Esc_BH	move.w	Es_Y1(a5),d0
+	add.w	#Es_MiniSy,d0
+	subq.w	#8,Es_Y2(a5)
+	cmp.w	Es_Y2(a5),d0
+	ble	Esc_Aff
+	move.w	d0,Es_Y2(a5)
+	bra	Esc_Aff
+;
+; Fleche vers le BAS
+; ~~~~~~~~~~~~~~~~~~
+Esc_B	move.b	d0,d1
+	and.b	#Ctr,d1
+	bne.s	Esc_HB
+	and.b	#Shf,d0
+	bne.s	Esc_BB
+; Recupere une touche APRES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Esc_KMemPos(a5),d0
+	beq	Esc_F
+	move.l	Esc_KMem(a5),d1
+	beq	Esc_F
+	cmp.l	d0,d1
+	beq.s	.Spec
+.Loop	move.l	d1,a0
+	move.l	(a0),d1
+	beq	Esc_F
+	cmp.l	d1,d0
+	bne.s	.Loop
+	bra	Esc_Recall
+.Spec	clr.l	Esc_KMemPos(a5)
+	move.l	Buffer(a5),a1
+	clr.w	(a1)
+	bra	Esc_Recall2
+
+; Descend toute la fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_HB	move.w	Es_Y1(a5),d0
+	cmp.w	#312,d0
+	bge	Esc_F
+	addq.w	#8,Es_Y1(a5)
+	addq.w	#8,Es_Y2(a5)
+	bra	Esc_Aff
+; Descend la ligne du bas
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Esc_BB	move.w	Es_Y1(a5),d0
+	add.w	Ed_Sy(a5),d0
+	addq.w	#8,Es_Y2(a5)
+	cmp.w	Es_Y2(a5),d0
+	bge	Esc_Aff
+	move.w	d0,Es_Y2(a5)
+	bra	Esc_Aff
+;
+; ESCAPE ---> Retour a l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_Esc
+	moveq	#"E",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+	bsr	Esc_Hide
+	clr.w	Edt_EtMess(a4)
+	bsr	Ed_Appear
+	bra	Ed_Loop
+;
+; HELP ---> recentre la souris dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_Help
+	SyCalD	Show,-1
+	bsr	Esc_MaxMouse
+	move.w	Ed_Wx(a5),d1
+	move.w	Es_Y1(a5),d2
+	add.w	#16,d2
+	SyCall	SetM
+	bra	Esc_Aff
+;
+; Touches de fonction 1-10
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_Fonc
+	and.b	#Shf,d0
+	beq.s	.NoShf
+	add.w	#10,d1
+.NoShf	and.w	#$00FF,d1
+	sub.w	#$0050,d1
+Esc_BtFonc
+	moveq	#24,d0
+	add.w	d1,d0
+	bsr	Ed_GetSysteme
+	move.l	Buffer(a5),a1
+.Test	move.b	(a0)+,d2
+	move.b	d2,(a1)+
+	beq.s	.NoRet
+	cmp.b	#"`",d2
+	bne.s	.Test
+	clr.b	-(a1)
+.NoRet	lea	Es_LEd(a5),a0
+	move.l	Buffer(a5),a1
+	moveq	#-1,d0
+	JJsrP	L_LEd_New,a2
+	tst.b	d2
+	beq	Esc_F
+	bra	Esc_R
+;
+; Rappel d'une sequence memorisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_Recall
+	move.l	a0,Esc_KMemPos(a5)
+	lea	6(a0),a1
+Esc_Recall2
+	lea	Es_LEd(a5),a0
+	moveq	#-1,d0
+	JJsrP	L_LEd_New,a2
+	bra	Esc_F
+;
+; Return en mode ESCAPE
+; ~~~~~~~~~~~~~~~~~~~~~
+Esc_R	move.l	Buffer(a5),a2
+	tst.b	(a2)
+	beq	Esc_Loop
+	move.w	Esc_KMemMax(a5),d0
+	bsr	Esc_KMemEffD0
+	move.l	a2,a0
+.Count	tst.b	(a0)+
+	bne.s	.Count
+	sub.l	a2,a0
+	move.l	a0,d2
+	addq.l	#6,d2
+; Met dans la liste
+	lea	Esc_KMem(a5),a0
+	move.l	d2,d0
+	SyCall	MemFastClear
+	beq	.Egal
+	move.l	Esc_KMem(a5),(a0)
+	move.l 	a0,Esc_KMem(a5)
+	clr.l	Esc_KMemPos(a5)
+	addq.l	#4,a0
+	move.w	d2,(a0)+
+.Copy	move.b	(a2)+,(a0)+
+	bne.s	.Copy
+; Retour chariot
+.Egal	lea	CRet(pc),a1
+	WiCall	Print
+	move.w	Ed_Sx(a5),d0
+	lsr.w	#3,d0
+	sub.w	#9,d0
+	cmp.w	d0,d2
+	bls.s	.SkipR
+	lea	CRet(pc),a1
+	WiCall	Print
+.SkipR
+; Tokenise la ligne
+; ~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),a0
+	move.l	Ed_BufT(a5),a1
+	bsr	Tokenise
+	beq	Esc_Loop
+; Appelle l'interpreteur
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_Current(a5),a4		Change les banques
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_SetBanks
+	clr.l	Edt_Runned(a5)			Securites!
+	clr.l	Prg_Runned(a5)
+	lea	Ed_ErrDirect(pc),a0		Jump si error
+	move.l	a0,Prg_JError(a5)
+	JJsr	L_VerDirect
+;	move.w	VarLong(a5),d0			Verification longueur vars.
+;	cmp.w	TVMax(a5),d0
+;	bcc	VerVTo
+	move.w	ScOn(a5),d1			Branche l'ecran
+	beq.s	.Pa
+	subq.w	#1,d1
+	EcCall	Active
+.Pa	JJmp	L_New_ChrGet			Branche au chrget
+
+;
+; Efface le dernier si >D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_KMemEffD0
+	movem.l	d2/d3,-(sp)
+	moveq	#0,d2
+	sub.l	a1,a1
+	move.l	Esc_KMem(a5),d1
+	beq.s	.Out
+.Loop	move.l	a1,d3
+	move.l	d1,a1
+	addq.w	#1,d2
+	move.l	(a1),d1
+	bne.s	.Loop
+.Exit	cmp.w	d0,d2
+	bcs.s	.Out
+	tst.l	d3
+	beq.s	.Skip
+	move.l	d3,a0
+	clr.l	(a0)
+	bra.s	.Eff
+.Skip	clr.l	Esc_KMem(a5)
+.Eff	move.l	a0,-(sp)
+	moveq	#0,d0
+	move.w	4(a1),d0
+	SyCall	MemFree
+	move.l	(sp)+,a0
+.Out	movem.l	(sp)+,d2/d3
+	rts
+;
+; Efface tous les KMEM
+; ~~~~~~~~~~~~~~~~~~~~
+Esc_KMemEnd
+	bra.s	.In
+.Loop	moveq	#0,d0
+	bsr	Esc_KMemEffD0
+.In	tst.l	Esc_KMem(a5)
+	bne.s	.Loop
+	rts
+;
+; Retourne la position du bouton OUTPUT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_BtGetOutput
+	move.b	Esc_Output(a5),Bt_Pos+1(a2)
+	rts
+
+;
+;
+; Entree des erreurs en mode direct
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ErrDirect
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_GetError			Va chercher le message
+	movem.l	a0/d0,-(sp)
+	bsr	Ed_OpenEditor
+	clr.l	Edt_Runned(a5)			Plus de programme!
+	or.b	#%00010001,ActuMask(a5)
+	EcCalD	CopOnOff,-1
+	EcCalD	First,EcEdit
+	EcCalD	First,EcFonc
+	EcCalD	Active,EcEdit
+	bsr	EdReCop
+	bsr	Ed_Hide
+	bsr	Esc_Appear
+	movem.l	(sp)+,a1/d1
+	cmp.w	#1002,d1
+	beq	Ed_System
+	cmp.w	#1000,d1
+	beq	Esc_Esc
+	cmp.w	#1000,d1
+	bcc	Esc_Loop
+	cmp.w	#10,d1
+	beq	Esc_Loop
+	WiCall	Print
+	bra	Esc_Loop
+
+
+; ___________________________________________________________________
+;
+; 	ECRAN ESCAPE
+; ___________________________________________________________________
+;
+
+; Apparition de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_Appear
+	movem.l	a2-a4/a6/d2-d7,-(sp)
+; Flag!
+; ~~~~~
+	tst.w	Direct(a5)
+	bne	.Out
+	move.w	#1,Direct(a5)
+	move.w	Ed_Sx(a5),d7
+
+; Active l'�cran de titre
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	EcCalD	Active,EcFonc
+	EcCalD	First,EcEdit
+; Unpack le logo AMOS
+; ~~~~~~~~~~~~~~~~~~~
+	moveq	#Es_Pics,d0
+	moveq	#Es_BoutonsSx,d1
+	moveq	#Es_BoutonsY,d2
+	bsr	Es_Unpack
+	sub.w	#Es_TitleSx,d7
+;
+; Cree les 13 boutons
+; ~~~~~~~~~~~~~~~~~~~
+	lea	Ed_Boutons(a5),a2
+	move.w	#Es_BoutonsX,d2
+	moveq	#Es_BoutonsY,d3
+	moveq	#Es_BoutonsPics,d4
+	move.w	#Es_BoutonsZones,d5
+	moveq	#1,d6
+.Loop	move.w	d6,Bt_Number(a2)
+	cmp.w	#1,d6
+	bne.s	.Pa1
+	clr.w	Bt_X(a2)			Bouton DIRECT
+	bra.s	.PaB
+.Pa1	cmp.w	#2,d6
+	bne.s	.Pa2
+	move.w	Ed_Sx(a5),Bt_X(a2)		Bouton WB
+	sub.w	#Ed_BoutonsSx,Bt_X(a2)
+	bra.s	.PaB
+.Pa2	move.w	d2,Bt_X(a2)
+	add.w	#Ed_BoutonsSx,d2
+.PaB	move.w	d3,Bt_Y(a2)
+	move.w	d4,Bt_Image(a2)
+	move.w	d5,Bt_Zone(a2)
+	lea	Bt_RoutIn(pc),a0
+	move.l	a0,Bt_Routines(a2)
+	move.b	#4,Bt_RDraw(a2)
+	clr.b	Bt_RPos(a2)
+	clr.b	Bt_RChange(a2)
+	clr.b	Bt_Flags(a2)
+	clr.w	Bt_Pos(a2)
+	move.b	#Es_BoutonsSx,Bt_Sx(a2)
+	move.b	#Es_BoutonsSy,Bt_Sy(a2)
+	addq.w	#2,d4
+	addq.w	#1,d5
+	sub.w	#Es_BoutonsSx,d7
+	lea	Bt_Long(a2),a2
+	addq.w	#1,d6
+	cmp.w	#13,d6
+	bls.s	.Loop
+	clr.w	(a2)
+
+; Dessine les sliders de memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d2,d1
+	moveq	#Es_BoutonsY,d2
+	move.w	d7,d3
+	lea	Es_Unpack(pc),a2
+	bsr	Ed_MemoryDraw
+	bsr	Ed_MemoryAff
+
+; Position  du bouton "OUT"
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	#5,Ed_Boutons+Bt_Long*2+Bt_RPos(a5)
+	bset	#Bt_FlagOnOf,Ed_Boutons+Bt_Long*2+Bt_Flags(a5)
+; Init des boutons
+; ~~~~~~~~~~~~~~~~
+	lea	Ed_Boutons(a5),a0
+	moveq	#1,d0
+	JJsrR	L_Bt_InitList,a1
+; Reserve la zone de fond
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d2
+	moveq	#0,d3
+	move.w	Ed_Sx(a5),d4
+	moveq	#Es_TitleSy,d5
+	SyCalD	SetZone,14
+
+; Active l'�cran de texte
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	EcCalD	Active,EcEdit
+; Dessine le bord droit
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.w	Ed_Ty(a5),d6
+	addq.w	#1,d6
+	moveq	#0,d7
+.Loopa	moveq	#Es_Pics+1,d0
+	move.w	Ed_Sx(a5),d1
+	sub.w	#16,d1
+	ext.l	d1
+	move.w	d7,d2
+	moveq	#-1,d3
+	bsr	Ed_Unpack
+	addq.w	#8,d7
+	subq.w	#1,d6
+	bne.s	.Loopa
+; Dessine le bas
+; ~~~~~~~~~~~~~~
+	moveq	#Es_Pics+2,d0
+	moveq	#0,d1
+	move.w	d7,d2
+	moveq	#-1,d3
+	bsr	Ed_Unpack
+	move.w	d7,d0
+	addq.w	#8,d7
+	move.w	d7,d1
+	bsr	Ed_Enlarge
+; Ouvre la fenetre
+; ~~~~~~~~~~~~~~~~
+	moveq	#1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.w	Ed_Sx(a5),d4
+	lsr.w	#3,d4
+	subq.w	#2,d4
+	move.w	Ed_Ty(a5),d5
+	addq.w	#1,d5
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	WiCall	WindOp
+	moveq	#16,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+; Defini les zones
+; ~~~~~~~~~~~~~~~~
+	SyCalD	RazZone,0
+	moveq	#0,d2
+	moveq	#0,d3
+	move.w	Ed_Sx(a5),d4
+	move.w	Ed_Sy(a5),d5
+	SyCalD	SetZone,2
+	sub.w	#16,d4
+	subq.w	#8,d5
+	SyCalD	SetZone,1
+; Descend l'�cran du bas
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Es_Y1(a5),d0
+	move.w	d0,d1
+	add.w	#Es_MiniSy,d1
+.Loop1	move.w	d1,d2
+	add.w	Ed_VScrol(a5),d1
+	cmp.w	Es_Y2(a5),d1
+	ble.s	.Skip1
+	move.w	Es_Y2(a5),d1
+.Skip1	movem.w	d0-d2,-(sp)
+	bsr	Es_DisplayD0
+	bsr	EdReCop
+	movem.w	(sp)+,d0-d2
+	cmp.w	d1,d2
+	bne.s	.Loop1
+	bsr	Esc_MaxMouse
+.Out	movem.l	(sp)+,a2-a4/a6/d2-d7
+	rts
+; Elargi les limites de la souris
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_MaxMouse
+	moveq	#128-16,d1
+	moveq	#35,d2
+	move.l	#500,d3
+	move.l	#312,d4
+	SyCall	LimitM
+	rts
+
+;
+; Disparition de l'�cran de mode direct
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Esc_Hide
+	movem.l	a0-a4/a6/d0-d7,-(sp)
+	tst.w	Direct(a5)
+	beq	.Out
+	clr.w	Direct(a5)
+; Remonte l'�cran du bas
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Es_Y1(a5),d0
+	move.w	Es_Y2(a5),d1
+.Loop1	move.w	d1,d2
+	sub.w	Ed_VScrol(a5),d1
+	move.w	d0,d3
+	add.w	#Es_MiniSy,d3
+	cmp.w	d3,d1
+	bge.s	.Skip1
+	move.w	d3,d1
+.Skip1	movem.w	d0-d2,-(sp)
+	bsr	Es_DisplayD0
+	bsr	EdReCop
+	movem.w	(sp)+,d0-d2
+	cmp.w	d1,d2
+	bne.s	.Loop1
+	move.l	T_EcAdr+EcEdit*4(a5),a0
+	bset	#BitHide,EcFlags(a0)
+; Efface l'�cran du haut
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_EcAdr+EcFonc*4(a5),a0
+	bset	#BitHide,EcFlags(a0)
+	bsr	EdReCop
+; Efface la fenetre de fond
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	EcCalD	Active,EcEdit
+	WiCall	WinDel
+; Efface les zones
+; ~~~~~~~~~~~~~~~~
+	SyCalD	RazZone,0
+.Out 	movem.l	(sp)+,a0-a4/a6/d0-d7
+	rts
+
+;
+; Positionne les ecrans du mode escape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Es_Display
+	move.w	Es_Y1(a5),d0
+	move.w	Es_Y2(a5),d1
+Es_DisplayD0
+	move.l	T_EcAdr+EcFonc*4(a5),a0
+	move.l	T_EcAdr+EcEdit*4(a5),a1
+; Ecran du haut
+	move.w	d0,EcAWY(a0)
+	bset	#2,EcAW(a0)
+	add.w	#Es_TitleSy,d0
+; Ecran du bas
+	move.w	d0,EcAWY(a1)		Position
+	bset	#2,EcAW(a1)
+	sub.w	d0,d1			Hauteur
+	move.w	d1,EcAWTY(a1)
+	bset	#2,EcAWT(a1)
+	move.w	Ed_Sy(a5),d0		D�but de la fenetre
+	sub.w	d1,d0
+	move.w	d0,EcAVY(a1)
+	bset	#2,EcAV(a1)
+; Fait apparaitre les �crans
+	bclr	#BitHide,EcFlags(a0)
+	bclr	#BitHide,EcFlags(a1)
+; Ecran de l'�diteur en premier
+	EcCalD	First,EcFonc
+	EcCalD	First,EcEdit
+	rts
+;
+; Cache l'�cran de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Hide
+	movem.l	a0-a4/a6/d0-d7,-(sp)
+	tst.w	EsFlag(a5)
+	bne	.Out
+	move.w	#-1,EsFlag(a5)
+; Plus d'avertissements
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_AllAverFin
+; Fait disparaitre lentement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_EcAdr+EcEdit*4(a5),a2
+	move.w	Ed_VScrol(a5),d7
+	neg.w	d7
+	move.w	EcTy(a2),d6
+	lsr.w	#1,d6
+	move.w	Ed_Wy(a5),d5
+	add.w	d6,d5
+	JJsr	L_AppCentre
+	bset	#BitHide,EcFlags(a2)
+	bsr	EdReCop
+; Efface les d�finitions de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EcCalD	Active,EcEdit
+	bsr	Edt_EffWindows
+; Met la couleur du fond
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	ColBack(a5),d1
+	EcCall	SColB
+; Remet les rainbows
+; ~~~~~~~~~~~~~~~~~~
+	EcCalD	RainHide,0
+; Remet les limites souris
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	LimSave(a5),a0
+	lea	T_MouXMin(a5),a1
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+; Remet tous les sprites
+; ~~~~~~~~~~~~~~~~~~~~~~
+	SyCall	RecallM
+	SyCall	ReActHs
+	SyCall	AMALUFrz
+	SyCall	WaitVbl
+	SyCall	ActHs
+	SyCall	AffHs
+; Initialise les touches de fonction AMIGA illegal--> en verif!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	moveq	#0,d1
+;	Alea	AmiDef,a1
+;.Ami	SyCall	SetFunk
+;	move.l	a0,a1
+;	addq.w	#1,d1
+;	cmp.w	#20,d1
+;	bcs.s	.Ami
+; Nettoie les touches / Demarre AMAL
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Out	SyCall	ClearKey
+	SyCall	AMALUFrz
+; Menus >>> Program
+; ~~~~~~~~~~~~~~~~~
+	bsr	EdM_Program
+	movem.l	(sp)+,a0-a4/a6/d0-d7
+	rts
+
+;
+; Apparition de l'�cran l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Appear
+	movem.l	a2-a4/a6/d2-d7,-(sp)
+	tst.w	EsFlag(a5)
+	beq	.Out
+	clr.w	EsFlag(a5)
+; Enleve les touches de fonction AMIGA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d1
+.Ami	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	SyCall	SetFunk
+	addq.w	#1,d1
+	cmp.w	#20,d1
+	bcs.s	.Ami
+; Enleve tous les sprites
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	SyCall	AMALFrz
+	SyCall	StActHs
+	SyCall	StoreM
+; Enleve les rainbows
+; ~~~~~~~~~~~~~~~~~~~
+	EcCalD	RainHide,-1
+; Remet le fond!
+; ~~~~~~~~~~~~~~
+	move.w	Ed_ColB(a5),d1
+	EcCall	SColB
+; Dessine le fond
+; ~~~~~~~~~~~~~~~
+	EcCalD	Active,EcEdit
+	bsr	Ed_DrawTop
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_DrawWindows
+; Apparition de l'�cran
+; ~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d2
+	EcCalD	EHide,EcEdit
+	EcCalD	First,EcEdit
+	move.l	T_EcAdr+EcEdit*4(a5),a0
+	move.w	Ed_Wy(a5),EcAWY(a0)
+	bset	#2,EcAW(a0)
+; Fait apparaitre lentement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_EcAdr+EcEdit*4(a5),a2
+	move.w	Ed_VScrol(a5),d7
+	move.w	#1,d6
+	move.w	Ed_Wy(a5),d5
+	move.w	Ed_Sy(a5),d0
+	lsr.w	#1,d0
+	add.w	d0,d5
+	JJsr	L_AppCentre
+; Limite de la souris
+; ~~~~~~~~~~~~~~~~~~~
+	lea	T_MouXMin(a5),a0
+	lea	LimSave(a5),a1
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	bsr	Ed_LimM
+; Affiche le tout!
+; ~~~~~~~~~~~~~~~~
+	bclr	#BitControl-8,T_Actualise(a5)
+	bsr	EdM_Editor
+; Flag si peu de memoire...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	#2,Ed_NewAppear(a5)
+; Plus de touches
+; ~~~~~~~~~~~~~~~
+.Out	SyCall	ClearKey
+	movem.l	(sp)+,a2-a4/a6/d2-d7
+	rts
+; Redessine le fond, lors de retour d'accessoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Redraw
+	movem.l	a2-a6/d2-d7,-(sp)
+	EcCalD	Active,EcEdit
+;	bsr	Ed_DrawTop			Voir si redessin!
+;	move.l	Edt_Current(a5),a4
+;	move.l	Edt_Prg(a4),a6
+;	bsr	Ed_DrawWindows
+	EcCalD	First,EcEdit
+	bsr	EdReCop
+	bsr	Ed_LimM
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; Routine, limite la souris
+Ed_LimM	moveq	#EcEdit+1,d3
+	move.w	Ed_Sx(a5),d1
+	subq.w	#4,d1
+	move.w	Ed_Sy(a5),d2
+	subq.w	#1,d2
+	SyCall	XyHard
+	movem.w	d1/d2,-(sp)
+	moveq	#EcEdit+1,d3
+	moveq	#2,d1
+	moveq	#2,d2
+	SyCall	XyHard
+	movem.w	(sp)+,d3/d4
+	SyCall	LimitM
+	SyCalD	Show,-1
+	rts
+
+;_____________________________________________________________________________
+;
+;							Messages editeur
+;_____________________________________________________________________________
+;
+; Line not editable
+; ~~~~~~~~~~~~~~~~~
+Ed_NotEdit
+	move.w	#183,d0
+	bsr	Ed_GetMessage
+	moveq	#100,d0
+	bra	Ed_Alert
+;
+; Line too long
+; ~~~~~~~~~~~~~
+Ed_LToLong
+	move.w	#199,d0			***- Line too long
+	bsr	Ed_GetMessage
+	moveq	#50,d0
+	bra	Ed_Alert
+;
+; Top of text
+; ~~~~~~~~~~~
+Ed_CHtE
+	move.w	#200,d0			***- Top of text
+	bsr	Ed_GetMessage
+	moveq	#25,d0
+	bra	Ed_Alert
+;
+; Bottom of text
+; ~~~~~~~~~~~~~~
+Ed_CBasE
+	move.w	#201,d0			***- Bottom of text
+	bsr	Ed_GetMessage
+	moveq	#25,d0
+	bra	Ed_Alert
+;
+; Mark not set
+; ~~~~~~~~~~~~
+Ed_NoMark
+	moveq	#65,d0
+	bra	Ed_Al100
+;
+; Out of mem tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ed_OofBuf
+	bsr	Ed_NewBuf		Reaffiche la ligne!
+	move.w	#202,d0			***- Out of buffer space
+	bsr	Ed_GetMessage
+	move.w	#200,d0
+	bra	Ed_Alert
+;
+; Can't fold procedure
+; ~~~~~~~~~~~~~~~~~~~~
+Ed_FoE	move.w	#203,d0			***- Not a procedure
+Ed_Al100
+	bsr	Ed_GetMessage
+	moveq	#100,d0
+	bra	Ed_Alert
+
+; Out of memory / alert
+; ~~~~~~~~~~~~~~~~~~~~~
+Ed_OMm	move.w	#204,d0			***- Out of memory
+	bsr	Ed_GetMessage
+	moveq	#120,d0
+	bra	Ed_Alert
+;
+; Not found
+; ~~~~~~~~~
+Ed_NoFound
+	bsr	Ed_NewBuf
+	move.w	#205,d0			***- Not found
+	bsr	Ed_GetMessage
+	moveq	#100,d0
+	bra	Ed_Alert
+;
+; NOT DONE
+; ~~~~~~~~
+Ed_NotDone
+	bsr	Ed_NewBuf
+Ed_NotDone2
+	move.w	#206,d0			***- Not done
+	bsr	Ed_GetMessage
+	moveq	#100,d0
+	bra	Ed_Alert
+
+;
+; Not an AMOS Program
+; ~~~~~~~~~~~~~~~~~~~
+Ed_PaAMOS
+	bsr	Ed_Close
+	move.w	#207,d0			***- Not an amos program
+	bsr	Ed_GetMessage
+	moveq	#100,d0
+	bra	Ed_Alert
+;
+; Pas de place pour le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PaPlace
+	bsr	Ed_Close
+	move.w	#208,d0			***- Buffer too small
+	bsr	Ed_GetMessage
+	moveq	#100,d0
+	bra	Ed_Alert
+
+; What bloc?
+; ~~~~~~~~~~
+Ed_BlocWhat
+	moveq	#6,d0
+	bra.s	Ed_ProAlert
+; Too many windows
+; ~~~~~~~~~~~~~~~~
+Ed_2ManyWindow
+	moveq	#3,d0
+	bsr	Ed_GetMessage
+	bra.s	Ed_AlertDialog
+
+; Hide window, last window
+;~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NoHide
+	moveq	#2,d0
+	bra	Ed_Al100
+
+; Program already runned
+;~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AlRunned
+	moveq	#12,d0
+	bra	Ed_Al100
+
+; No more UNDO
+; ~~~~~~~~~~~~
+Ed_NoUndo
+	moveq	#4,d0
+	bra	Ed_Al100
+; No more REDO
+; ~~~~~~~~~~~~
+Ed_NoRedo
+	moveq	#5,d0
+	bra	Ed_Al100
+;
+; Appel alerte message indexe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ProAlert
+	bsr	Ed_GetMessage
+	moveq	#127,d0
+	bra	Ed_Alert
+; Branche un message en dialog box
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AlertDialog
+	moveq	#127,d0
+	bra	Ed_Alert
+
+;_____________________________________________________________________________
+;
+;						Routines diverses
+;_____________________________________________________________________________
+;
+
+
+;____________________________________________________________________
+;
+;	LOAD / SAVE PROGRAMME
+; ___________________________________________________________________
+;
+
+;
+; LOADING: Demande plus de place / D0= Taille voulue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_GetPlace
+	move.l	d0,d2
+; Dialogues
+	moveq	#EdD_TooSmall,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne.s	.GtPl2
+; Change la taille
+	move.l	Prg_StTTexte(a6),d3
+	move.l	d2,d0
+	JJsr	L_Prg_ChgTTexte
+	beq.s	.GtPl1
+	rts
+; Out of mem, remet l'ancien buffer
+.GtPl1	move.l	d3,d0
+	JJsr	L_Prg_ChgTTexte
+	bne	.GtPl0
+; Vraiment out of mem: TOUT petit buffer!
+	move.l	#1024,d0
+	JJsr	L_Prg_ChgTTexte
+; Totalement Out of Mem!
+.GtPl0	bsr	Ed_NewBufAff
+	bra	Ed_OMm
+; Appelle SETBUFFER, et revient!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.GtPl2	clr.b	Prg_Change(a6)
+	move.l	d2,d0
+	bra.s	Ed_SB
+;
+; Option SET BUFFER SIZE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SetBuffer
+	bsr	Ed_TokCur
+	bsr	Edt_ClearVar
+	move.l	Prg_StTTexte(a6),d0
+Ed_SB
+; Boite de dialogue
+	move.l	Ed_VDialogues(a5),a2
+	move.l	d0,2*4(a2)
+	moveq	#EdD_SetBuf,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+	moveq	#1,d0
+	moveq	#3,d1
+	moveq	#-1,d2
+	JJsr	L_Dia_GetValue
+	move.l	d1,d0
+	and.l	#$FFFFFFFE,d0
+	cmp.l	#1024,d0
+	bcs	Ed_NotDone
+	move.l	d0,d2
+	move.l	Prg_StTTexte(a6),d3
+	cmp.l	d3,d2
+	beq	Ed_NotDone
+; Peut-on recopier le buffer?
+	bcs.s	.PaCop
+; Essaie de changer sans effacer le programme courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_StTTexte(a6),-(sp)
+	move.l	Prg_StMini(a6),-(sp)
+	move.l	Prg_StHaut(a6),-(sp)
+	move.l	Prg_StBas(a6),-(sp)
+	clr.l	Prg_StTTexte(a6)	Plus rien
+	move.l	d2,d0			Reserve la nouvelle
+	JJsr	L_Prg_ChgTTexte
+	beq.s	.PaCop
+	move.l	(sp)+,a0		Recopie le programme dans le buffer
+	move.l	(sp)+,d0
+	sub.l	a0,d0
+	moveq	#0,d1
+	bsr	Ed_StoBlock
+	move.l	(sp)+,a1		Libere le precedent
+	move.l	(sp)+,d0
+	SyCall	SyFree
+	bra.s	.Out
+; Change le buffer en effacant le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaCop	movem.l	d2/d3,-(sp)
+	bsr	Ed_Saved
+	bsr	Ed_New2
+	movem.l	(sp)+,d2/d3
+	move.l	d2,d0
+	JJsr	L_Prg_ChgTTexte
+	beq.s	.OMm
+; Fini!
+.Out	JJsr	L_Prg_SetBanks
+	bsr	Ed_NewBufAff
+	rts
+; Out of mem!
+; ~~~~~~~~~~~
+.OMm	move.l	d3,d0
+	JJsr	L_Prg_ChgTTexte
+	bne.s	.OMmX
+	move.l	#1024,d0
+	JJsr	L_Prg_ChgTTexte
+.OMmX	bsr	Ed_NewBufAff
+	bra	Ed_OMm
+
+
+; ___________________________________________________________________
+;
+;	ROUTINES AFFICHAGE / POSITIONNEMENT FENETRES
+; ___________________________________________________________________
+;
+; Affiche les sliders
+; ~~~~~~~~~~~~~~~~~~~
+Ed_AffSlV
+	tst.w	Edt_WindTy(a4)
+	beq.s	.Skip
+	bsr	Edt_SlUpdateY
+	lea	Edt_SlV(a4),a0
+	moveq	#0,d0
+	JJsrR	L_Sl_Draw,a1
+.Skip	rts
+
+;
+; Curseur ON/OFF
+; ~~~~~~~~~~~~~~
+Ed_CuOn
+	movem.l	d0/a0/a1,-(sp)
+	lea	ChCuOn(pc),a1
+	WiCall	Print
+	movem.l	(sp)+,d0/a0/a1
+	rts
+Ed_CuOff
+	movem.l	d0/a0/a1,-(sp)
+	lea	ChCuOff(pc),a1
+	WiCall	Print
+	clr.b	Ed_CuFlag(a5)
+	movem.l	(sp)+,d0/a0/a1
+	rts
+
+;
+; Reaffichage de la ligne courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EALiCu
+	move.w	Edt_YCu(a4),d1
+	bsr	Ed_EALigne
+	bra	Ed_Loca
+
+;
+; Routine: centre la fenetre editeur sur la position du curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Cent
+	bset	#EtA_X,Edt_EtatAff(a4)
+	moveq	#15,d1
+	move.w	Edt_XCu(a4),d0
+	sub.w	Edt_XPos(a4),d0
+	bcs.s	.AGoch
+	cmp.w	Edt_WindTx(a4),d0
+	bcc.s	.ADroi
+	bra	Ed_Loca
+; Curseur trop � droite
+.ADroi	sub.w	Edt_WindTx(a4),d0
+	addq.w	#1,d0
+	add.w	d0,Edt_XPos(a4)
+	bra	Ed_AffBuf
+; Curseur trop � gauche
+.AGoch	add.w	d0,Edt_XPos(a4)
+	bra	Ed_AffBuf
+
+;
+; Positionne l'�cran en X
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ed_GotoX
+	cmp.w	Edt_XCu(a4),d0
+	beq.s	.Skip
+	move.w	Edt_XPos(a4),d1
+	bsr	Ed_SetX
+	cmp.w	Edt_XPos(a4),d1
+	beq	Ed_EALiCu
+	bne	Ed_AffBuf
+.Skip	rts
+;
+; Positionne l'ecran en Y
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ed_GotoY
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	cmp.w	d0,d1
+	beq.s	.Skip
+	bsr	Ed_TokCur
+	move.w	Edt_YPos(a4),d1
+	bsr	Ed_SetY
+	cmp.w	Edt_YPos(a4),d1
+	beq	Ed_Loca
+	bne	Ed_NewBuf
+.Skip	rts
+;
+; Centre l'ecran en X, sans affichage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SetX
+	movem.w	d0-d1,-(sp)
+	bset	#EtA_X,Edt_EtatAff(a4)
+	move.w	d0,Edt_XCu(a4)
+	clr.w	d1
+	cmp.w	#70,d0
+	bcs.s	EdSx2
+EdSx1	add.w	#20,d1
+	sub.w	#20,d0
+	cmp.w	#60,d0
+	bcc.s	EdSx1
+EdSx2	move.w	d1,Edt_XPos(a4)
+	movem.w	(sp)+,d0-d1
+	rts
+;
+; Centre l'ecran en Y, sans affichage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SetY
+	movem.w	d0/d1,-(sp)
+	bset	#EtA_Y,Edt_EtatAff(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+; Limite en bas
+	cmp.w	Prg_NLigne(a6),d0
+	bls.s	.Sk1
+	move.w	Prg_NLigne(a6),d0
+.Sk1	move.w	d0,d1
+	sub.w	Edt_YPos(a4),d1
+	bcs.s	.Remonte
+	cmp.w	Edt_WindTy(a4),d1
+	bcc.s	.Descend
+	bra.s	.Out
+; Remonte la fenetre
+.Remonte
+	add.w	d1,Edt_YPos(a4)
+	bra.s	.Out
+; Descend la fenetre
+.Descend
+	sub.w	Edt_WindTy(a4),d1
+	addq.w	#1,d1
+	add.w	d1,Edt_YPos(a4)
+; Position du curseur
+.Out	sub.w	Edt_YPos(a4),d0
+	move.w	d0,Edt_YCu(a4)
+	movem.w	(sp)+,d0/d1
+	rts
+
+;
+; Centre l'ecran en X et Y, gere les procedures....
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0= adresse dans programme
+;	D0= X curseur
+;
+Ed_SetXY
+	clr.l	Prg_AdEProc(a6)
+	move.w	d0,Prg_XEProc(a6)
+	move.w	d0,-(sp)
+	bsr	Ed_FindA
+	tst.l	d1
+	beq.s	EdSxy1
+	move.l	a0,Prg_AdEProc(a6)
+	clr.w	(sp)
+EdSxy1	bsr	Ed_SetY
+	move.w	(sp)+,d0
+	bsr	Ed_SetX
+	bsr	Ed_AverFin
+	bra	Ed_NewBuf
+
+;
+; Routine situe le label AVANT et APRES LCour: D1= avant / D2= apres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NLab
+	move.w	Edt_YPos(a4),d3
+	add.w	Edt_YCu(a4),d3
+	moveq	#0,d1
+	moveq	#-1,d2
+	bsr	Ed_FindL
+	bra.s	.NLab1
+.NLab0	bsr	Ed_NextL
+.NLab1	beq.s	.NLab3
+	addq.l	#1,d2
+	move.w	2(a0),d0
+	cmp.w	#_TkProc,d0
+	beq.s	.NLab2
+	cmp.w	#_TkLab,d0
+	bne.s	.NLab0
+.NLab2	cmp.w	d3,d2
+	beq.s	.NLab0
+	bhi.s	.NLab3
+	move.w	d2,d1
+	bra.s	.NLab0
+.NLab3	rts
+
+;
+; Locate le curseur dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Loca
+	move.l	d2,-(sp)
+	move.w	Edt_YCu(a4),d2
+	move.w	Edt_XCu(a4),d1
+	sub.w	Edt_XPos(a4),d1
+	ext.l	d1
+	ext.l	d2
+	WiCall	Locate
+	move.l	(sp)+,d2
+	rts
+
+;
+; Affiche le caractere ECRAN D1 de tout le buffer d'edition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AffBufCar
+	moveq	#0,d2
+.ABufC	bsr	Ed_ACar
+	addq.w	#1,d2
+	cmp.w	Edt_WindTy(a4),d2
+	bcs.s	.ABufC
+	bra	Ed_Loca
+
+;
+; Imprime le caractere ECRAN D1 de la ligne D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ACar
+	movem.l	d0-d7/a0-a1,-(sp)
+; Locate en debut de ligne
+	move.w	d1,d4
+	move.w	d2,d5
+	WiCall	Locate
+; Pointe la ligne dans le buffer
+	move.w	d5,d0
+	lsl.w	#8,d0
+	move.l	Edt_BufE(a4),a0
+	lea	0(a0,d0.w),a0
+	add.w	Edt_XPos(a4),d4
+	moveq	#" ",d6
+	cmp.w	(a0)+,d4
+	bcc.s	.NoBloc
+	move.b	0(a0,d4.w),d6
+; Machine le bloc
+	move.w	Edt_YBloc(a4),d0
+	bmi	.NoBloc
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	move.w	Edt_XBloc(a4),d2
+	move.w	Edt_XCu(a4),d3
+	cmp.w	d0,d1
+	bcs.s	.Sw
+	bhi.s	.Sk2
+	cmp.w	d2,d3
+	beq.s	.NoBloc
+	bcc.s	.Sk2
+.Sw	exg	d0,d1
+	exg	d2,d3
+.Sk2	cmp.w	d0,d5
+	bcs.s	.NoBloc
+	beq.s	.DBloc
+	cmp.w	d1,d5
+	bcs.s	.InBloc
+	bhi.s	.NoBloc
+	cmp.w	d3,d4
+	bcc.s	.NoBloc
+	bra.s	.InBloc
+.DBloc	cmp.w	d1,d5
+	beq.s	.LBloc
+	cmp.w	d2,d4
+	bcs.s	.InBloc
+	bra.s	.NoBloc
+.LBloc	cmp.w	d2,d4
+	bcs.s	.NoBloc
+	cmp.w	d3,d4
+	bcc.s	.NoBloc
+; Dessin en inverse
+.InBloc	moveq	#17,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	move.w	d6,d1
+	WiCall	ChrOut
+	moveq	#18,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	bra.s	.Out
+; Dessin normal
+.NoBloc	move.w	d6,d1
+	WiCall	ChrOut
+; Ouf!
+.Out	movem.l	(sp)+,d0-d7/a0-a1
+	rts
+
+; Detokenise le buffer et raffiche les infos.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NewBufAff
+	move.b	#EtA_BAll,Edt_EtatAff(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+; Detokenise et affiche le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NewBuf
+	move.w	Edt_Window(a4),d1
+	WiCall	QWindow
+	bsr	Ed_BufUntok
+; Affiche tout le buffer d'edition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_AffBuf
+; Enleve tous les avertissements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_AllAverFin
+; Reaffiche les lignes
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d1
+.Loop	bsr	Ed_EALigne
+	addq.w	#1,d1
+	cmp.w	Edt_WindTy(a4),d1
+	bcs.s	.Loop
+;	move.b	#2,Edt_ASlY(a4)			Affichage du slider
+;	move.b	#EtA_BAll,Edt_EtatAff(a4)	Affichage de l'etat
+	bra	Ed_Loca
+;
+; Imprime la ligne du buffer D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EALigne
+	movem.l	d0-d6/a0-a2,-(sp)	* Efface
+	moveq	#-1,d6
+	bra.s	EALi
+Ed_ALigne
+	movem.l	d0-d6/a0-a2,-(sp)	* Affiche seulement
+	moveq	#0,d6
+EALi
+; Locate en debut de ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d1,d6
+	move.w	d1,d2
+	moveq	#0,d1
+	ext.l	d2
+	WiCall	Locate
+; Pointe la ligne dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d6,d0
+	lsl.w	#8,d0
+	move.l	Edt_BufE(a4),a2
+	lea	0(a2,d0.w),a2
+	move.w	Edt_XPos(a4),d4
+	move.w	(a2)+,d0		* Longueur de la ligne
+	cmp.w	d0,d4
+	bcc	.End
+	lea	0(a2,d4.w),a2		* Pointe le debut
+	move.w	d4,d5
+	add.w	Edt_WindTx(a4),d5	* Pointe la fin
+	cmp.w	d0,d5
+	bls.s	.Sk1
+	move.w	d0,d5
+.Sk1	move.w	d5,d0
+	sub.w	d4,d0
+	cmp.w	Edt_WindTx(a4),d0
+	bcs.s	.Sz
+	bclr	#31,d6
+.Sz
+; Un bloc en route?
+; ~~~~~~~~~~~~~~~~~
+	add.w	Edt_YPos(a4),d6
+	move.w	Edt_YBloc(a4),d0
+	bmi	.NoBloc
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	move.w	Edt_XBloc(a4),d2
+	move.w	Edt_XCu(a4),d3
+	cmp.w	d0,d1
+	bcs.s	.Sw
+	bhi.s	.Sk2
+	cmp.w	d2,d3
+	beq	.NoBloc
+	bcc.s	.Sk2
+.Sw	exg	d0,d1
+	exg	d2,d3
+.Sk2	cmp.w	d5,d3
+	bls.s	.SkQ
+	move.w	d5,d3
+.SkQ	cmp.w	d0,d6
+	bcs	.NoBloc
+	beq.s	.DBloc
+	cmp.w	d1,d6
+	bhi	.NoBloc
+	beq.s	.EBloc
+; Au milieu du bloc, TOUT en inverse
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	.Inverse
+	move.l	a2,a1
+	move.w	d5,d1
+	sub.w	d4,d1
+	bsr	.Print
+	bsr	.Normal
+	bra	.End
+; Bloc sur une seule ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.DEBloc	cmp.w	d5,d2
+	bcc	.NoBloc
+	move.w	d2,d1
+	sub.w	d4,d1
+	bls.s	.S1
+	move.l	a2,a1
+	add.w	d1,a2
+	add.w	d1,d4
+	bsr	.Print
+.S1	bsr	.Inverse
+	move.w	d3,d1
+	sub.w	d4,d1
+	bls.s	.S2
+	move.l	a2,a1
+	add.w	d1,d4
+	add.w	d1,a2
+	bsr	.Print
+.S2	bsr	.Normal
+	bra.s	.NoBloc
+; Au debut du bloc, passe en inverse
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.DBloc	cmp.w	d1,d6
+	beq.s	.DEBloc
+	cmp.w	d5,d2
+	bcc.s	.NoBloc
+	move.w	d2,d1
+	sub.w	d4,d1
+	bls.s	.Sk3
+	move.l	a2,a1
+	add.w	d1,a2
+	add.w	d1,d4
+	bsr	.Print
+.Sk3	bsr	.Inverse
+	move.w	d5,d1
+	sub.w	d4,d1
+	bls.s	.Sk4
+	move.l	a2,a1
+	bsr	.Print
+.Sk4	bsr	.Normal
+	bra	.End
+; A la fin du bloc, passe en normal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.EBloc	cmp.w	d0,d6
+	beq.s	.DEBloc
+	bsr	.Inverse
+	move.w	d3,d1
+	sub.w	d4,d1
+	bls.s	.Sk5
+	move.l	a2,a1
+	add.w	d1,a2
+	add.w	d1,d4
+	bsr	.Print
+.Sk5	bsr	.Normal
+; Pas de bloc, NORMAL!
+; ~~~~~~~~~~~~~~~~~~~~
+.NoBloc	move.w	d5,d1
+	sub.w	d4,d1
+	bls.s	.End
+	move.l	a2,a1
+	bsr	.Print
+; Efface jusqu'� la fin de la ligne?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.End	tst.l	d6
+	bpl.s	.Sk7
+	WiCalD	ChrOut,7
+.Sk7
+; Fini!
+; ~~~~~
+	movem.l	(sp)+,d0-d6/a0-a2
+	rts
+.Inverse
+	moveq	#17,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	rts
+.Normal
+	moveq	#18,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	rts
+.Print
+	move.b	0(a1,d1.w),d0
+	clr.b	0(a1,d1.w)
+	move.w	d0,-(sp)
+	WiCall	Print
+	move.w	(sp)+,d0
+	move.b	d0,0(a1,d1.w)
+	rts
+
+
+
+
+;_____________________________________________________________________________
+;
+;						STOCKAGE DU PROGRAMME
+;_____________________________________________________________________________
+;
+
+;
+; DELETION LIGNE DANS PROGRAMME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Retourne 	0: si ligne deletee
+;			1: si ligne non deletee
+Ed_DelLiCu
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	move.w	d1,-(sp)
+; Stocke dans UNDO
+	bsr	Ed_LCourant
+	bne	Ed_NotEdit
+	move.w	Edt_XCu(a4),-(sp)
+	clr.w	Edt_XCu(a4)
+	move.l	Prg_PUndo(a6),a2
+	ext.l	d0
+	bsr	Un_CLine
+	bne.s	.SkipU
+	move.b	#$84,(a2)
+.SkipU	move.w	(sp)+,Edt_XCu(a4)
+	move.w	(sp)+,d1
+; Enleve dans le programme
+	bsr	Ed_DeLigne
+	move.w	d0,-(sp)
+	bne.s	.RetV3
+; Enleve dans l'affichage
+	WiCalD	ChrOut,23
+	bsr	Ed_LCourant
+	lea	-2(a0),a0
+	lea	256(a0),a1
+	move.w	Edt_WindTy(a4),d0
+	mulu	#256,d0
+	add.l	Edt_BufE(a4),d0
+	move.l	d0,a2
+	sub.l	a1,d0
+	bls.s	.RetV2
+	lsr.w	#2,d0
+	subq.w	#1,d0
+.RetV1:	move.l	(a1)+,(a0)+
+	dbra	d0,.RetV1
+.RetV2:	clr.w	-256(a2)
+.RetV3	move.w	Edt_YPos(a4),d0
+	move.w	Edt_WindTy(a4),d1
+	subq.w	#1,d1
+	add.w	d1,d0
+	bsr	Ed_Untok
+	bsr	Ed_EALigne
+	move.b	#SlDelai,Edt_ASlY(a4)
+	bsr	Ed_Loca
+	move.w	(sp)+,d0
+	rts
+
+;
+; Joint la ligne et celle du dessus!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_Join	tst.w	Edt_YCu(a4)
+	beq	.Out
+	tst.w	Edt_XCu(a4)
+	bne	.Out
+	addq.b	#1,Ed_FUndo(a5)
+
+	bsr	Ed_LCourant
+	lea	-256(a0),a1
+; Peut-on joindre les lignes?
+	tst.w	-2(a0)
+	beq.s	.Vide
+	tst.b	255-2(a1)		Previous ligne editable?
+	bne	Ed_NotEdit
+; Ok!
+.Vide	move.w	-2(a1),d1
+	move.w	d0,d2
+	add.w	d1,d2
+	cmp.w	#250,d2			Line too long!
+	bcc	Ed_LToLong
+	clr.w	-2(a0)
+	move.w	d2,-2(a1)
+	lea	0(a1,d1.w),a1
+	subq.w	#1,d0
+	bmi.s	.Bac1
+.Bac0:	move.b	(a0)+,(a1)+
+	dbra	d0,.Bac0
+.Bac1:	move.w	d1,-(sp)
+; Efface la ligne actuelle
+	bsr	Ed_DelLiCu
+; Ligne non effacee: c'est la derniere
+	tst.w	d0
+	beq.s	.Skk
+	move.w	Prg_NLigne(a6),d1
+	beq.s	.Skk
+	subq.w	#1,d1
+	move.w	d1,d0
+	bsr	Ed_FindL		Est-ce une derniere ligne
+	beq.s	.Skk
+	cmp.l	#$02000000,(a0)		Instruction vide?
+	bne.s	.Skk
+	bsr	Ed_DeLigne		On l'enleve!
+; Affiche la pr�c�dente
+.Skk	bsr	Ed_ChtT
+	addq.w	#1,Edt_LEdited(a4)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	move.w	(sp)+,Edt_XCu(a4)
+	bsr	Ed_EALiCu
+	bsr	Ed_Cent
+; UNDO
+	or.b	#%11,Ed_SCallFlags(a5)
+	subq.b	#1,Ed_FUndo(a5)
+	bsr	Ed_LCourant
+	move.l	Prg_PUndo(a6),a2
+	ext.l	d0
+	bsr	Un_CLine
+	bne.s	.Out
+	move.b	#$88,(a2)
+.Out	rts
+
+;
+; RETURN >>> recupere la droite de la ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Return
+; Fait du bruit
+	moveq	#"D",d0
+	bsr	Ed_SamPlay
+Ed_ReturnQuiet
+; A gauche de la ligne
+	tst.w	Edt_XCu(a4)
+	beq	.Goch
+; Bas du buffer= stockage temporaire
+	move.l	Prg_StMini(a6),a2	* Adresse dans STMINI
+	clr.w	(a2)+			* CHAINE VIDE!
+	clr.w	(a2)
+	move.l	Prg_StBas(a6),a0
+	lea	-256(a0),a0
+	cmp.l	a0,a2
+	bcc	Ed_OofBuf
+; Gestion UNDO
+	bsr	Ed_LCourant
+	bne	.PaEd
+	move.l	Prg_PUndo(a6),a1
+	ext.l	d0
+	bsr	Un_CLine
+	bne.s	.Skip
+	move.b	#$87,(a1)
+.Skip	addq.b	#1,Ed_FUndo(a5)
+; Copie la droite de la ligne
+	bsr	Ed_LCourant
+	move.w	d1,d2
+	cmp.w	d0,d2
+	bcs.s	.RtI1
+	move.w	d0,d2
+.RtI1:	move.w	d2,-2(a0)		* Change la taille ligne origine
+.RtI2:	cmp.w	d0,d1
+	bcc.s	.RtI3
+	move.b	(a1)+,(a2)+
+	addq.w	#1,d1
+	bra.s	.RtI2
+.RtI3:	clr.b	(a2)
+; Tokenise
+	move.w	Prg_NLigne(a6),-(sp)
+	moveq	#1,d0			Une ligne de plus si a la fin!
+	bsr	Ed_TokStok2
+; D�but de la ligne suivante
+	bsr	Ed_CBasT
+	bsr	Ed_DLigneT
+; Insere la ligne, si pas � la fin du texte
+	move.w	(sp)+,d2
+	cmp.w	Prg_NLigne(a6),d2
+	bne.s	.Sk
+	bsr	Ed_InsLine
+; Recopie la nouvelle
+.Sk	bsr	Ed_LCourant
+	move.l	a0,a2
+	clr.b	255-2(a2)		La ligne est editable!
+	clr.w	d0
+	move.l	Prg_StMini(a6),a1
+	lea	2(a1),a1
+.RtI4:	move.b	(a1)+,d1
+	beq.s	.RtI5
+	move.b	d1,(a2)+
+	addq.w	#1,d0
+	bra.s	.RtI4
+.RtI5:	move.w	d0,-2(a0)
+; Affiche la nouvelle ligne/revient a l'editeur
+	addq.w	#1,Edt_LEdited(a4)
+	bsr	Ed_EALiCu
+	subq.b	#1,Ed_FUndo(a5)
+	rts
+; A gauche de la ligne: INS puis bas
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Goch	bsr	Ed_InsLine
+	bsr	Ed_CBasT
+	bra	Ed_DLigneT
+; Ligne non editable
+; ~~~~~~~~~~~~~~~~~~
+.PaEd	bsr	Ed_CBasT
+	bsr	Ed_DLigneT
+	bra	Ed_InsLine
+
+;
+; Insere une ligne � la position du curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_InsLine
+; Ligne courante
+	bsr	Ed_TokCur
+; Tokenise une ligne vide
+	move.l	Ed_BufT(a5),a1
+	lea	128(a1),a0
+	clr.b	(a0)
+	bsr	Tokenise
+; Va l'inserer dans le texte
+	move.l	Ed_BufT(a5),a1
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	moveq	#-1,d0
+	bsr	Ed_Stocke
+	bne	Ed_OofBuf
+; Gestion UNDO
+	bsr	Un_Debut
+	bne.s	.Skip
+	move.b	#$06,(a2)
+; Une ligne de plus
+.Skip	addq.w	#1,Prg_NLigne(a6)
+	move.b	#SlDelai,Edt_ASlY(a4)
+	bsr	Ed_NewBuf
+	rts
+
+;
+; TOKENISE / STOCKE la ligne courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_TokCur
+	tst.w	Edt_LEdited(a4)
+	beq.s	.Skip
+	movem.l	a0-a1/d0-d1,-(sp)
+	moveq	#0,d0
+	bsr.s	Ed_TokStok2
+	bsr	Ed_Loca
+	move.l	a4,a0
+	moveq	#%01,d0
+	bsr	Ed_Splitted
+	movem.l	(sp)+,a0-a1/d0-d1
+.Skip	rts
+
+Ed_TokStok
+	tst.w	Edt_LEdited(a4)
+	beq	TokX
+Ed_TokStok2
+	movem.l	d2-d7/a2,-(sp)
+	move.w	d0,d2
+; Va tokeniser la ligne
+; ~~~~~~~~~~~~~~~~~~~~~
+	clr.w	Edt_LEdited(a4)
+	bsr	Ed_LCourant	* Adresse de la ligne courante
+	clr.b	0(a0,d0.w)	* Marque la fin
+	moveq	#0,d0
+	move.l	Ed_BufT(a5),a1	* Buffer de tokenisation
+	bsr	Tokenise
+	bmi	Ed_LToLong
+	add.w	d0,d2
+; Stocke la ligne
+; ~~~~~~~~~~~~~~~
+	move.l	Ed_BufT(a5),a1
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	moveq	#0,d0
+	bsr	Ed_Stocke
+	bne	Ed_OofBuf
+	move.l	a0,a2		Adresse ligne dans le programme
+	add.w	d1,d2		Une ligne de plus???
+; Copie l'ancienne ligne dans le buffer de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_LCourant
+	move.l	Ed_BufT(a5),a1
+	move.w	d0,d5
+	subq.w	#1,d0
+	bmi.s	.NC
+.C1	move.b	(a0)+,(a1)+
+	dbra	d0,.C1
+.NC
+; Une ligne de plus, si � la fin, et non vide
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d6
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	cmp.w	Prg_NLigne(a6),d1
+	bne.s	.Rien
+	tst.w	d2
+	beq.s	.Rien
+	moveq	#1,d6
+	addq.w	#1,Prg_NLigne(a6)
+.Rien
+; Reaffiche la ligne tokenisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_LCourant
+	lea	-2(a0),a1
+	move.l	a2,a0
+	moveq	#0,d0
+	bsr	Detok
+	move.w	Edt_YCu(a4),d1
+	bsr	Ed_EALigne
+; Gestion du UNDO
+; ~~~~~~~~~~~~~~~
+	bsr	Un_Debut
+	bne.s	.NoUndo
+	move.b	#$85,(a2)
+	bsr	Ed_LCourant
+	move.l	a0,a1
+	move.w	d0,d7
+	add.w	d5,d0
+	moveq	#8,d1
+	add.w	d0,d1
+	move.l	d1,d0
+	SyCall	MemFastClear
+	move.w	d1,(a0)
+	add.l	d1,Prg_TUndo(a6)
+	move.w	2(a2),2(a0)
+	move.l	a0,2(a2)
+	move.w	d6,4(a0)
+; Copie l'ancienne ligne
+	move.l	Ed_BufT(a5),a2
+	lea	6(a0),a0
+	move.b	d5,(a0)+
+	subq.w	#1,d5
+	bmi.s	.Sk1
+.Co1	move.b	(a2)+,(a0)+
+	dbra	d5,.Co1
+.Sk1
+; Copie la nouvelle
+	move.b	d7,(a0)+
+	subq.w	#1,d7
+	bmi.s	.Sk2
+.Co2	move.b	(a1)+,(a0)+
+	dbra	d7,.Co2
+.Sk2
+.NoUndo
+; Copie du flag double precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	MathFlags(a5),Prg_MathFlags(a6)
+; Ok!
+; ~~~
+	movem.l	(sp)+,d2-d7/a2
+TokX	rts
+
+
+; DETOKENISE TOUT LE BUFFER
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BufUntok
+	clr.w	-(sp)
+	move.w	Edt_YPos(a4),d0
+	bsr	Ed_FindL
+	bra.s	.BUnt1
+.BUnt0	bsr	Ed_NextL
+.BUnt1	move.w	(sp),d1
+	move.l	Edt_BufE(a4),a1
+	lsl.w	#8,d1
+	lea	0(a1,d1.w),a1
+	clr.w	(a1)
+	clr.b	255(a1)			Ligne editable
+	tst.w	d0
+	beq.s	.BUnt2
+	JJsrP	L_Tk_EditL,a2
+	bne.s	.Edit
+	move.b	#-1,255(a1)		Ligne NON editable!
+.Edit	moveq	#0,d0
+	bsr	Detok
+.BUnt2	addq.w	#1,(sp)
+	move.w	(sp),d0
+	cmp.w	Edt_WindTy(a4),d0
+	bcs.s	.BUnt0
+	addq.l	#2,sp
+	rts
+
+;
+; DETOKENISE la LIGNE D0 dans le BUFFER ligne D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Untok
+	movem.l	d0-d1/a0-a2,-(sp)
+	move.l	Edt_BufE(a4),a1
+	lsl.w	#8,d1
+	lea	0(a1,d1.w),a1
+	clr.w	(a1)
+	clr.b	255(a1)
+	move.l	a1,-(sp)
+	bsr	Ed_FindL
+	move.l	(sp)+,a1
+	beq.s	.Fin
+	JJsrR	L_Tk_EditL,a2
+	bne.s	.Edit
+	move.b	#-1,255(a1)
+.Edit	moveq	#0,d0
+	bsr	Detok
+.Fin	movem.l	(sp)+,d0-d1/a0-a2
+	rts
+
+;
+; NEW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_New
+	bsr	Ed_TokCur
+	bsr	Ed_Saved
+Ed_New2
+	bsr	EdM_Program
+	moveq	#1,d0
+	tst.b	Ed_Zappeuse(a5)
+	beq.s	.No
+	moveq	#0,d0
+.No	JJsr	L_Prg_New
+	bsr	Edt_New
+	bsr	Ed_NewBufAff
+	rts
+;
+; New du contenu d'une fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_New
+; Editeur par devant
+	tst.b	Ed_Zappeuse(a5)
+	bne.s	.Skp
+	EcCalD	Last,0
+	bsr	EdReCop
+.Skp	EcCalD	Active,EcEdit
+; Init des donn�es editeur
+	lea	Edt_SInit(a4),a0
+	moveq	#(Edt_EInit-Edt_SInit)/2-1,d0
+.Loop	clr.w	(a0)+
+	dbra	d0,.Loop
+	move.w	#-1,Edt_YBloc(a4)
+	move.w	#-1,Edt_YOldBloc(a4)
+; Init des donnees programme
+	bsr	Prg_UndoCreate		Effacement / Creation du buffer undo
+	bsr	Prg_MarkRaz
+	clr.b	MathFlags(a5)		Simple precision par defaut
+	rts
+
+;
+; INSERE LE BLOC A0 LONGUEUR D0 EN POSITION D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_StoBlock
+	movem.l	a2-a3/d2-d7,-(sp)
+	move.l	a0,a1
+	move.l	d0,d2
+	move.w	d1,d0
+	moveq	#0,d7			Ne pas changer les marques
+	bsr	Ed_FindL
+	bra	StoI
+;
+; STOCKE LA LIGNE (A1) EN POSITION D1, INSERT D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Retour:	A0=	Ligne tokenisee
+;		A1=
+;		D0=	Erreur?
+;		D1=	Flag un ligne de plus!
+Ed_Stocke
+	movem.l	a2-a3/d2-d7,-(sp)
+
+	move.w	d0,d7
+	move.w	d1,d6
+	moveq	#0,d5
+
+; Longueur de la nouvelle ligne
+	moveq	#0,d2
+	move.b	(a1),d2
+	lsl.w	#1,d2
+; Pointe la ligne courante
+	move.w	d1,d0
+	bsr	Ed_FindL		Cherche l'adresse ---> A0
+	moveq	#0,d1
+	move.b	(a0),d1
+	lsl.l	#1,d1			Derniere ligne?
+	beq.s	StoD
+	tst.w	d7			Insertion
+	bne.s	StoI
+
+; Remplacement d'une ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#_TkProc,2(a0)		On est sur une procedure fermee???
+	bne.s	.Stck1
+	tst.w	10(a0)
+	bmi	StoClo
+.Stck1	cmp.l	d1,d2
+	beq	StoCop
+	bhi.s	StoR5
+* Nouvelle plus petite
+	move.l	a0,a2
+	sub.l	d2,d1
+	add.l	d1,a0
+	move.l	a0,a3
+	move.l	Prg_StBas(a6),d0
+	bra.s	StoR2
+StoR1	move.w	-(a2),-(a3)
+StoR2	cmp.l	d0,a2
+	bhi.s	StoR1
+	move.l	a3,Prg_StBas(a6)
+	move.l	d1,d0
+	bra.s	StoCop
+* Nouvelle plus grande
+StoR5	move.l	d2,d0
+	sub.l	d1,d0
+	bra.s	StoI0
+
+; Derniere ligne: pas une ligne vide, si non insert!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+StoD	cmp.w	#4,d2			Ligne vide= 4 octets
+	bne.s	StoI
+	move.l	a0,d4
+	tst.w	d7
+	beq.s	StoV
+; Insersion ligne / Block
+; ~~~~~~~~~~~~~~~~~~~~~~~
+StoI	move.l	d2,d0
+	moveq	#1,d5
+StoI0	move.l	Prg_StBas(a6),a2
+	move.l	a2,a3
+	sub.l	d0,a3
+	cmp.l	Prg_StMini(a6),a3
+	bls.s	StoMem
+	move.l	a3,Prg_StBas(a6)
+	bra.s	StoI2
+StoI1	move.w	(a2)+,(a3)+		* Fait de la place
+StoI2	cmp.l	a0,a2
+	bcs.s	StoI1
+	sub.l	d0,a0
+; Copie de la ligne
+; ~~~~~~~~~~~~~~~~~
+StoCop	move.l	a0,a2
+	move.l	a0,d4
+	lsr.l	#1,d2
+StoC	move.w	(a1)+,(a2)+		* Copie la ligne
+	subq.l	#1,d2
+	bne.s	StoC
+; Change les marks
+; ~~~~~~~~~~~~~~~~
+	tst.w	d7
+	beq.s	.Skip
+	move.w	d6,d0
+	moveq	#1,d1
+	bsr	Ed_MarksChange
+.Skip
+; Nettoie les variables (si pas MERGE!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bset	#EtA_Free,Edt_EtatAff(a4)
+	move.b	#1,Prg_Change(a6)
+	move.b	#1,Prg_StModif(a6)
+StoV	move.l	d5,d1
+	move.l	d4,a0
+	moveq	#0,d0
+	bra.s	StX
+; Procedure fermee
+StoClo	moveq	#-1,d0
+	bra.s	StX
+; Out of mem
+StoMem:	moveq	#1,d0
+StX	movem.l	(sp)+,a2-a3/d2-d7
+	rts
+;
+; ENLEVE UN CHUNK DE PROGRAMME
+;	D1=	Ligne debut
+;	D0=	Longueur chunk
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DelChunk
+	move.l	d0,-(sp)
+	move.w	d1,d0
+	bsr	Ed_FindL
+	beq.s	.Out
+	move.l	a0,a1
+	add.l	(sp),a1
+	bsr	Ed_StDelChunk
+.Out	addq.l	#4,sp
+	rts
+
+; ENLEVE LA LIGNE D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Retourne	0: si ligne deletee (NLIGNE=NLIGNE-1)
+;			1: si ligne non deletee
+;			-1 si ligne non editable
+Ed_DeLigne
+	move.w	d1,-(sp)
+	move.w	d1,d0
+	bsr	Ed_FindL
+	beq.s	.DelLL
+; Dans procedure. Ferm�e?
+	cmp.w	#_TkProc,2(a0)		* Pas si procedure fermee!
+	bne.s	.DelL0
+	tst.w	10(a0)
+	bmi.s	.DelLN
+; Enleve la ligne
+.DelL0	moveq	#0,d0
+	move.b	(a0),d0
+	lsl.w	#1,d0
+	lea	0(a0,d0.w),a1
+	bsr	Ed_StDelChunk
+; Marks
+	move.w	(sp),d0
+	moveq	#-1,d1
+	bsr	Ed_MarksChange
+; Nombre de lignes
+	subq.w	#1,Prg_NLigne(a6)
+.DelLX	moveq	#0,d0
+	bra.s	.Out
+.DelLN	moveq	#-1,d0
+	bra.s	.Out
+.DelLL	moveq	#1,d0
+.Out	addq.l	#2,sp
+	rts
+; Enleve le chunk de programme A0-A1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_StDelChunk
+	move.l	a2,-(sp)
+	move.l	Prg_StBas(a6),a2
+	move.l	a0,d1
+	bra.s	DelL2
+DelL1:	move.w	-(a0),-(a1)
+DelL2:	cmp.l	a2,a0
+	bhi.s	DelL1
+	move.l	a1,Prg_StBas(a6)
+; Flags
+	move.b	#1,Prg_Change(a6)
+	move.b	#1,Prg_StModif(a6)
+	bset	#EtA_Free,Edt_EtatAff(a4)
+	move.l	(sp)+,a2
+	rts
+
+;
+; TROUVE L'ADRESSE DE LA LIGNE D0 (coord editeur)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; Si au milieu d'une procedure, AD ---> ADPROC
+;
+Ed_FindL
+	move.l	a1,-(sp)
+	move.l	Prg_StBas(a6),a0
+	JJsrR	L_Tk_FindL,a1
+	move.l	a0,Edt_CurLigne(a4)
+	move.l	a1,Edt_DebProc(a4)
+	move.l	(sp)+,a1
+	tst.w	d0
+	rts
+; Trouve la ligne suivante
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NextL
+	move.l	a1,-(sp)
+	move.l	Edt_CurLigne(a4),a0
+	JJsrR	L_Tk_FindN,a1
+	move.l	a0,Edt_CurLigne(a4)
+	move.l	a1,Edt_DebProc(a4)
+	move.l	(sp)+,a1
+	tst.w	d0
+	rts
+
+; Trouve la taille de la CURLIGNE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SizeL
+	move.l	Edt_CurLigne(a4),a0
+	JJsrP	L_Tk_SizeL,a1
+	rts
+
+; La ligne courante est-elle editable?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EditL
+	move.l	Edt_CurLigne(a4),a0
+	JJsrP	L_Tk_EditL,a1
+	rts
+
+;
+; TROUVE LE NUMERO ET LE DEBUT DE LA LIGNE A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; D0-> Numero
+; D1-> Adresse debut proc
+;
+Ed_FindA
+	movem.l	a1/a2,-(sp)
+	move.l	Prg_StBas(a6),a1
+	JJsrR	L_Tk_FindA,a2
+	movem.l	(sp)+,a1/a2
+	rts
+;
+; Ramene l'adresse de la ligne sous le curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; A0= adresse
+; A1= lettre sous le curseur
+; D0= longueur
+; D1= position curseur
+;
+Ed_LCourant:
+	move.w	Edt_YCu(a4),d0
+	lsl.w	#8,d0
+	move.l	Edt_BufE(a4),a0
+	lea	0(a0,d0.w),a0
+	move.w	(a0)+,d0
+	move.w	Edt_XCu(a4),d1
+	lea	0(a0,d1.w),a1
+	tst.b	255-2(a0)
+	rts
+
+
+;____________________________________________________________________
+;
+;						GESTION WINDOWS
+;____________________________________________________________________
+;
+;
+; Back to Workbench
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Wb	EcCalD	AMOS_WB,0
+	rts
+
+
+; ZAP: Ferme un fenetre contenant un programme donne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CloseName
+	bsr	Edt_AccAdr		Deja en memoire?
+	beq.s	.Fini
+	move.l	a0,a4			Active la fenetre
+	move.l	Edt_Prg(a4),a6
+	JJsr	L_Prg_DejaRunned	En train de tourner?
+	bne.s	.Fini
+	bsr	Ed_CloseWindow		Ferme la fenetre
+	bra.s	Ed_CloseName		Encore une fenetre a fermer?
+.Fini	rts
+
+; Ouvre une nouvelle fenetre+Charge prg
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_OpenLoad
+	bsr	Ed_OpenWindow
+	bra	Ed_Load
+
+;
+; Ouvre une nouvelle fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_OpenWindow
+	bsr	Ed_TokCur
+	moveq	#-1,d0				Visible
+	move.l	PI_DefSize(a5),d1		Taille par defaut
+	bsr	Edt_OpWindow
+	blt	Ed_OMm
+	bgt	Ed_2ManyWindow
+	bsr	Ed_DrawWindows
+	rts
+
+;
+; Routine d'ouverture de fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Hidden(0) / Vue(-1)
+;	D1=	Taille buffer voulue
+;	A4=	Edt Courant
+Edt_OpWindow
+	movem.l	d2-d7/a2-a3,-(sp)
+	move.l	d1,d3
+	move.w	d0,d2
+	beq.s	.Res
+; Si fenetre visible, peut-on l'ouvrir?
+	sub.l	a0,a0
+	bsr	Edt_WCount		Nombre de fenetres ouvertes
+	cmp.w	Ed_WMax(a5),d0
+	bcc	.Rate
+; Ouvre la structure EDT
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Res	move.l	#Edt_Long,d0
+	SyCall	MemFastClear
+	beq	.Omm2
+; Insere dans la liste
+	move.l	a4,d0
+	beq.s	.First
+	move.l	Edt_Next(a4),d0		Branche dans la liste
+	move.l	d0,Edt_Next(a0)
+	move.l	a0,Edt_Next(a4)
+	bra.s	.Prg
+.First	move.l	Edt_List(a5),Edt_Next(a0)
+	move.l	a0,Edt_List(a5)
+; Ouvre la structure Prg
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Prg	move.l	a0,a4
+	move.l	d3,d0			Taille
+	bmi.s	.NoStru
+	JJsr	L_Prg_NewStructure	Fabrique une structure fenetre
+	beq.s	.Omm1
+	move.l	d0,Edt_Prg(a4)		Branche dans la structure!
+	move.l	d0,a6
+	addq.b	#1,Prg_Edited(a6)	Flag: edite!
+; Active la fenetre si visible
+.NoStru	move.b	#2,Edt_Hidden(a4)	2 car aucune zone cr��e
+	tst.w	d2
+	beq.s	.Skip2
+	clr.b	Edt_Hidden(a4)
+	move.l	a4,Edt_Current(a5)
+	moveq	#1,d0
+	bsr	Edt_WSchrinkAll		Reduit toutes les fenetres
+	moveq	#-1,d0
+	bsr	Edt_WMaxSize
+	move.w	d0,Edt_WindTy(a4)
+; New des donnees
+.Skip2	bsr	Edt_New
+	moveq	#0,d0			Pas d'erreur
+.Out	movem.l	(sp)+,d2-d7/a2-a3
+	rts
+; Trop de fenetres
+.Rate	moveq	#1,d0
+	bra.s	.Out
+; Out of memory
+.Omm1	bsr	Edt_DelWindow
+.Omm2	moveq	#-1,d0
+	bra.s	.Out
+
+;
+; Cache la fenetre editeur courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_WindowHide
+	bsr	Ed_TokCur
+; Si fenetre link�e, on ferme d'abord!
+	move.l	Edt_LinkPrev(a4),d0
+	or.l	Edt_LinkNext(a4),d0
+	beq.s	.PaLink
+; Ferme toutes les fenetres linkees
+.Loop	move.l	Edt_LinkPrev(a4),d0
+	bne.s	.Skip
+	move.l	Edt_LinkNext(a4),d0
+	beq.s	.PaLink
+.Skip	move.l	a4,-(sp)
+	move.l	d0,a4
+	bsr	Ed_CloseWindow
+	move.l	(sp)+,a4
+	move.l	a4,Edt_Current(a5)
+	bra.s	.Loop
+.PaLink
+; Une fenetre seule?
+	bsr	Edt_WAlone
+	bne	Ed_NoHide
+; Enleve les links de scrolling, et cache
+	move.l	a4,a0
+	bsr	Edt_DelLinkScroll
+	move.b	#1,Edt_Hidden(a4)
+; Active une autre fenetre, quelle que soit sa taille!
+	bsr	Edt_WAutre		D'abord une fenetre OUVERTE!
+	bne.s	.Ok
+	moveq	#0,d1
+	move.l	a4,a0
+	bsr	Edt_WAutre3		Sinon meme une fermee!
+.Ok	moveq	#-1,d0
+	bsr	Edt_WMaxSize
+	move.w	d0,Edt_WindTy(a4)
+	bsr	Ed_DrawWindows
+	bsr	EdM_BranchAMOS
+	rts
+
+;
+; Bouton de fermeture d'un fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_BtWindowClose
+	move.w	Bt_Number(a2),d0
+	bsr	Edt_GetAd
+	beq.s	.Skip
+	move.l	a0,a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_CloseWindowQuit
+.Skip	rts
+
+;
+; Bouton Hide fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_BtWindowHide
+	bsr	Ed_TokCur
+	move.w	Bt_Number(a2),d0
+	bsr	Edt_GetAd
+	beq.s	.Skip
+	move.l	a0,a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_WindowHide
+.Skip	rts
+
+;
+; Bouton Scrhink / Expand fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Ed_BtWindowSize
+	bsr	Ed_TokCur
+	move.w	Bt_Number(a2),d0
+	bsr	Edt_GetAd
+	beq.s	.Skip
+	move.l	a0,a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_FlipSizeWindow
+.Skip	rts
+
+;
+; Ferme la fenetre editeur courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_CloseWindowQuit			* Avec option QUIT
+	tst.b	Ed_Zappeuse(a5)		Pas si zappeuse!
+	bne.s	Ed_CloseWindow
+	move.w	#-1,-(sp)
+	bra.s	EdClo
+Ed_CloseWindow				* Sans option QUIT
+	clr.w	-(sp)
+EdClo	bsr	Ed_TokCur
+; Fenetre linkee?
+	move.l	Edt_LinkPrev(a4),d0
+	or.l	Edt_LinkNext(a4),d0
+	bne.s	.Linked
+; Pas linkee, fait un new
+	bsr	Ed_New
+; Derniere fenetre
+.Linked	tst.b	Edt_First(a4)			Derniere fenetre?
+	beq.s	.Closit
+	tst.b	Edt_Last(a4)
+	beq.s	.Closit
+	tst.w	(sp)				Quitter?
+	beq.s	.Fini
+	tst.b	Ed_Zappeuse(a5)			Pas si zappeuse
+	bne.s	.Fini
+; Derniere fenetre: Quit AMOSPRO?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#0,Ed_QuitFlags(a5)
+	beq	Ed_DoQuit
+	moveq	#EdD_WQuit,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	beq	Ed_DoQuit
+	bra.s	.Fini
+; Ferme la fenetre
+; ~~~~~~~~~~~~~~~~
+.Closit	bsr	Edt_EffWindows
+	bsr	Edt_DelWindow
+	moveq	#-1,d0
+	bsr	Edt_WMaxSize
+	move.w	d0,Edt_WindTy(a4)
+	bsr	Ed_DrawWindows
+.Fini	addq.l	#2,sp
+	rts
+
+;
+; Ferme un programme cach�
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NewHidden
+	bsr	Ed_TokCur
+	bsr	Ed_GetHidden
+	beq	Ed_NotDone
+	move.l	a0,a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_Saved
+	bsr	Edt_DelWindow
+	bsr	EdM_BranchAMOS
+	rts
+
+;
+; Ferme TOUS les programmes cach�s
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NewAllHidden
+	bsr	Ed_TokCur
+	moveq	#EdD_NAll,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_Loop
+	bra.s	.In
+.Loop	move.l	a0,a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_Saved
+	bsr	Edt_DelWindow
+.In	moveq	#0,d1
+	bsr	Ed_GetHidden
+	bne.s	.Loop
+	bsr	EdM_BranchAMOS
+	rts
+
+;
+; Montre un programme cach�
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_EditHidden
+	bsr	Ed_TokCur
+	bsr	Ed_GetHidden
+	beq	Ed_NotDone
+	move.l	a0,-(sp)
+	sub.l	a0,a0
+	bsr	Edt_WCount		Nombre de fenetres ouvertes
+	cmp.w	Ed_WMax(a5),d0
+	bcc	Ed_2ManyWindow
+	move.l	(sp)+,a4
+	move.l	a4,Edt_Current(a5)
+	move.l	Edt_Prg(a4),a6
+	clr.b	Edt_Hidden(a4)
+	moveq	#1,d0
+	bsr	Edt_WSchrinkAll		Reduit toutes les fenetres
+	moveq	#-1,d0
+	bsr	Edt_WMaxSize
+	move.w	d0,Edt_WindTy(a4)
+	bsr	Prg_UndoCreate		Cree le buffer UNDO
+	bsr	Ed_DrawWindows
+	bsr	EdM_BranchAMOS
+	rts
+
+;
+; Trouve le programme cach� en venant de l'appel des fonctions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1=	Numero du programme
+Ed_GetHidden
+	move.l	Edt_List(a5),d0
+.Loop	move.l	d0,a0
+	tst.b	Edt_Hidden(a0)
+	beq.s	.Next
+	subq.w	#1,d1
+	bmi.s	.Ok
+.Next	move.l	Edt_Next(a0),d0
+	bne.s	.Loop
+	rts
+.Ok	move.l	a0,d0
+	rts
+
+;
+; Efface une structure fenetre quelconque (A4)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_DelWindow
+
+; Ferme la structure programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_Prg(a4),d0
+	beq.s	.NoProg
+	move.l	d0,a6
+; Si derniere fenetre sur le programme, enleve la structure
+	subq.b	#1,Prg_Edited(a6)
+	bne.s	.NoProg
+	bsr	EdM_Program
+	JJsr	L_Prg_DelStructure
+	bsr	Prg_UndoFree
+.NoProg
+
+; Ferme la fenetre Editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	Edt_Current(a5),a4
+	bne.s	.Split
+	move.l	a4,a0				Qui suit
+	bsr	Edt_WNext
+	bne.s	.Link
+	move.l	a4,a0				Qui precede
+	bsr	Edt_WPrev
+.Link	move.l	Edt_LinkPrev(a4),d1		Linke?
+	bne.s	.Skp
+	move.l	Edt_LinkNext(a4),d1
+	beq.s	.Act
+.Skp	move.l	d1,d0
+.Act	move.l	d0,Edt_Current(a5)
+; Enleve les SPLITS
+.Split	move.l	Edt_LinkNext(a4),d0
+	move.l	d0,a0
+	beq.s	.Skip1
+	move.l	Edt_LinkPrev(a4),Edt_LinkPrev(a0)
+.Skip1	move.l	Edt_LinkPrev(a4),d0
+	beq.s	.Scrol
+	move.l	d0,a0
+	move.l	Edt_LinkNext(a4),Edt_LinkNext(a0)
+; Enleve les links de scroll sur cette fenetre
+.Scrol	move.l	a4,a0
+	bsr	Edt_DelLinkScroll
+; Enleve les zones de cette fenetre
+	bsr	Edt_DelZones
+; Enleve de la liste
+	move.l	Edt_List(a5),d0
+	cmp.l	d0,a4
+	beq.s	.First
+.Loop	move.l	d0,a0
+	move.l	Edt_Next(a0),d0
+	cmp.l	d0,a4
+	bne.s	.Loop
+	move.l	Edt_Next(a4),Edt_Next(a0)
+	bra.s	.End
+.First	move.l	Edt_Next(a4),Edt_List(a5)
+.End	move.l	#Edt_Long,d0		Efface la structure
+	move.l	a4,a1
+	SyCall	SyFree
+; Prend la fenetre active maintenant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	sub.l	a4,a4
+	sub.l	a6,a6
+	move.l	Edt_Current(a5),d0
+	beq.s	.Ss
+	move.l	d0,a4
+	move.l	Edt_Prg(a4),a6
+.Ss	rts
+
+; Efface toutes les fenetres editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_DelWindows
+	movem.l	a4/a6,-(sp)
+.Loop	move.l	Edt_List(a5),d0
+	beq.s	.End
+	move.l	d0,a4
+	bsr	Edt_DelWindow
+	bra.s	.Loop
+.End	movem.l	(sp)+,a4/a6
+	rts
+
+;
+; Dessine les fenetres editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DrawWindows
+
+	movem.l	a2-a4/d2-d7,-(sp)
+
+	bsr	Ed_CuOff
+	bsr	Ed_AllAverFin
+	bsr	Edt_EffWindows
+	bsr	Edt_OrderWindows
+	bsr	Edt_WFirstLast
+
+;
+; Boucle de dessin des programmes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ed_BufE(a5),-(sp)
+	move.w	#16+Ed_YTop,-(sp)
+	move.l	Edt_List(a5),a4
+
+.PLoop
+	move.l	Edt_Prg(a4),a6
+; Programme visible?
+; ~~~~~~~~~~~~~~~~~~
+	tst.b	Edt_Hidden(a4)
+	bne	.NextP
+; Pas plus loin que la longueur du programme
+	move.w	Edt_YCu(a4),d0
+	add.w	Edt_YPos(a4),d0
+	cmp.w	Prg_NLigne(a6),d0
+	ble.s	.Sl
+	clr.w	Edt_YCu(a4)
+	clr.w	Edt_YPos(a4)
+; Centre le curseur dans la fenetre
+.Sl	move.w	Edt_YCu(a4),d0
+	move.w	Edt_WindTy(a4),d1
+	subq.w	#1,d1
+	bmi.s	.Dedans
+	cmp.w	d1,d0
+	bls.s	.Dedans
+	move.w	d1,Edt_YCu(a4)
+	sub.w	d1,d0
+	add.w	d0,Edt_YPos(a4)
+.Dedans
+;
+; Numero fenetre >>> numero zones
+	move.w	Edt_Order(a4),d0
+	lsl.w	#3,d0
+	move.w	d0,Edt_Zones(a4)
+	move.w	d0,Edt_Window(a4)
+	addq.w	#1,d0
+	move.w	d0,Edt_WindEtat(a4)
+;
+; Tailles / Positions de la fenetre
+	move.w	(sp),d7
+	move.w	d7,Edt_Y(a4)
+	move.w	#0,Edt_WindX(a4)
+	move.w	d7,Edt_WindY(a4)
+	add.w	#Edt_EtatSy,Edt_WindY(a4)
+	moveq	#32,d1
+	move.w	d1,Edt_WindEX(a4)
+	move.w	Ed_Sx(a5),d0
+	sub.w	d1,d0
+	sub.w	#64,d0
+	move.w	d0,Edt_WindESx(a4)
+	move.w	d7,Edt_WindEY(a4)
+	addq.w	#1,Edt_WindEY(a4)
+	move.w	Ed_Sx(a5),d0
+	sub.w	#16,d0
+	move.w	d0,Edt_WindSx(a4)
+	lsr.w	#3,d0
+	move.w	d0,Edt_WindTx(a4)
+	move.w	Edt_WindTy(a4),d0
+	lsl.w	#3,d0
+	move.w	d0,Edt_WindSy(a4)
+	add.w	#Edt_EtatSy+Edt_BasSy,d0
+	move.w	d0,Edt_Sy(a4)
+	move.w	Edt_WindTy(a4),d6
+
+	move.w	Edt_WindY(a4),d0
+	add.w	Edt_WindSy(a4),d0
+	move.w	d0,Edt_BasY(a4)
+
+	move.w	Edt_Zones(a4),Edt_ZEtat(a4)
+	addq.w	#1,Edt_ZEtat(a4)
+	move.w	Edt_Zones(a4),Edt_ZBas(a4)
+	addq.w	#2,Edt_ZBas(a4)
+
+; Initialisation du slider vertical
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; Position / Taille
+	move.w	Edt_WindX(a4),d0
+	add.w	Edt_WindSx(a4),d0
+	add.w	#Ed_SlVDeltaG,d0
+	move.w	d0,Edt_SlV+Sl_X(a4)
+	move.w	d7,Edt_SlV+Sl_Y(a4)
+	add.w	#Ed_SlVDeltaH,Edt_SlV+Sl_Y(a4)
+	move.w	#Ed_SlVSx,Edt_SlV+Sl_Sx(a4)
+	move.w	Edt_WindSy(a4),d0
+	add.w	#Ed_SlVDeltaB,d0
+	move.w	d0,Edt_SlV+Sl_Sy(a4)
+	move.w	Edt_WindTy(a4),Edt_SlV+Sl_Scroll(a4)
+	sub.w	#2,Edt_SlV+Sl_Scroll(a4)
+	move.w	#Ed_SlVDx,Edt_SlV+Sl_ZDx(a4)
+; Zone
+	move.w	Edt_Zones(a4),Edt_SlV+Sl_Zone(a4)
+	addq.w	#3,Edt_SlV+Sl_Zone(a4)
+; Adresses des routines
+	lea	Edt_SliderY(pc),a1
+	move.l	a1,Edt_SlV+Sl_Routines(a4)
+	bset	#Sl_FlagVertical,Edt_SlV+Sl_Flags(a4)
+; Couleurs active / inactive
+	moveq	#19,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	lea	Edt_SlV+Sl_Inactive(a4),a0
+	moveq	#16-1,d0
+.Co	moveq	#0,d1
+	move.b	(a1)+,d1
+	move.w	d1,(a0)+
+	dbra	d0,.Co
+
+; Initialisation des boutons
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Ed_Sx(a5),d0
+	sub.w	#Edt_BtSx,d0
+	move.w	d0,Edt_Bt3+Bt_X(a4)
+	sub.w	#Edt_BtSx,d0
+	move.w	d0,Edt_Bt2+Bt_X(a4)
+	clr.w	Edt_Bt1+Bt_X(a4)
+	move.w	Edt_Y(a4),d1
+	move.w	d1,Edt_Bt1+Bt_Y(a4)
+	move.w	d1,Edt_Bt2+Bt_Y(a4)
+	move.w	d1,Edt_Bt3+Bt_Y(a4)
+; Prepare les boutons
+	moveq	#Ed_BtPics,d0
+	move.w	Edt_Zones(a4),d1
+	addq.w	#4,d1
+	moveq	#2,d2
+	lea	Edt_Bt1(a4),a1
+.BLoop	move.w	Edt_Window(a4),Bt_Number(a1)
+	addq.w	#1,d1
+	move.w	d1,Bt_Zone(a1)
+	move.w	d0,Bt_Image(a1)
+	move.b	#24,Bt_Sx(a1)
+	move.b	#Edt_EtatSy,Bt_Sy(a1)
+	lea	Bt_RoutIn(pc),a0
+	move.l	a0,Bt_Routines(a1)
+	move.b	#6,Bt_RDraw(a1)
+	addq.w	#2,d0
+	lea	Bt_Long(a1),a1
+	dbra	d2,.BLoop
+; Routines de branchement boutons
+	move.b	#1,Edt_Bt1+Bt_RChange(a4)
+	move.b	#2,Edt_Bt2+Bt_RChange(a4)
+	move.b	#3,Edt_Bt3+Bt_RChange(a4)
+;
+; Fond de l'image
+; ~~~~~~~~~~~~~~~
+; Unpack le haut
+	moveq	#Ed_Pics+1,d0
+	moveq	#0,d1
+	move.w	d7,d2
+	moveq	#-1,d3
+	bsr	Ed_Unpack
+	move.w	d7,d0
+	add.w	#11,d7
+	move.w	d7,d1
+	bsr	Ed_Enlarge
+	tst.w	d6
+	beq.s	.Skip0
+.Loop1	moveq	#Ed_Pics+2,d0
+	move.w	Ed_Sx(a5),d1
+	sub.w	#16,d1
+	ext.l	d1
+	move.w	d7,d2
+	moveq	#-1,d3
+	bsr	Ed_Unpack
+	addq.w	#8,d7
+	subq.w	#1,d6
+	bne.s	.Loop1
+; Met le bas
+.Skip0	moveq	#Ed_Pics+3,d0
+	moveq	#0,d1
+	move.w	d7,d2
+	moveq	#-1,d3
+	bsr	Ed_Unpack
+	move.w	d7,d0
+	addq.w	#5,d7
+	move.w	d7,d1
+	bsr	Ed_Enlarge
+	move.w	d7,(sp)
+; Initialise la fenetre d'etat
+	move.w	Edt_WindEtat(a4),d1
+	move.w	Edt_WindEX(a4),d2
+	move.w	Edt_WindEY(a4),d3
+	move.w	Edt_WindESx(a4),d4
+	lsr.w	#3,d4
+	moveq	#1,d5
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	WiCall	WindOp
+	bsr	Ed_EtPrint
+	move.w	Edt_ZEtat(a4),d1
+	move.w	Edt_WindEX(a4),d2
+	move.w	Edt_WindEY(a4),d3
+	move.w	d2,d4
+	move.w	d3,d5
+	add.w	Edt_WindESx(a4),d4
+	add.w	#Edt_EtatSy,d5
+	SyCall	SetZone
+; Initialise la zone du bas
+	move.w	Edt_ZBas(a4),d1
+	moveq	#0,d2
+	move.w	Edt_BasY(a4),d3
+	move.w	d2,d4
+	move.w	d3,d5
+	add.w	Ed_Sx(a5),d4
+	add.w	#Edt_BasSy,d5
+	SyCall	SetZone
+; Initialise la fenetre de fond, si pas vide
+	tst.w	Edt_WindTy(a4)
+	beq	.Vide
+	move.w	Edt_Window(a4),d1
+	move.w	Edt_WindX(a4),d2
+	move.w	Edt_WindY(a4),d3
+	move.w	Edt_WindTx(a4),d4
+	move.w	Edt_WindTy(a4),d5
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	WiCall	WindOp
+	moveq	#20,d0
+	bsr	Ed_GetSysteme
+	move.l	a0,a1
+	WiCall	Print
+	bsr	Ed_CuNor
+	move.w	Edt_Zones(a4),d1
+	move.w	Edt_WindX(a4),d2
+	move.w	Edt_WindY(a4),d3
+	move.w	d2,d4
+	move.w	d3,d5
+	add.w	Edt_WindSx(a4),d4
+	add.w	Edt_WindSy(a4),d5
+	SyCall	SetZone
+	bsr	Edt_SlUpdateY
+	lea	Edt_SlV(a4),a0
+	JJsrR	L_Sl_Init,a1
+	clr.b	Edt_ASlY(a4)
+;
+; Affiche le texte
+; ~~~~~~~~~~~~~~~~
+	move.l	2(sp),d0
+	move.l	d0,Edt_BufE(a4)
+	move.w	Edt_WindTy(a4),d0
+	mulu	#256,d0
+	add.l	d0,2(sp)
+	bsr	Ed_NewBuf
+.Vide
+;
+; Active les boutons
+; ~~~~~~~~~~~~~~~~~~
+	lea	Edt_Bt1(a4),a0
+	moveq	#0,d0
+	JJsrR	L_Bt_InitList,a1
+;
+; Programme suivant?
+; ~~~~~~~~~~~~~~~~~~
+.NextP	move.l	Edt_Next(a4),d0
+	move.l	d0,a4
+	bne	.PLoop
+;
+; Active le premier programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	move.w	Edt_Window(a4),d1
+	WiCall	QWindow
+	bsr	Ed_Loca
+; Fini!
+; ~~~~~
+	addq.l	#6,sp
+	movem.l	(sp)+,a2-a4/d2-d7
+	rts
+
+;
+; Boucle d'effacement des fenetres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_EffWindows
+	move.l	a4,-(sp)
+	move.l	Edt_List(a5),d0
+	beq.s	.Out
+.ELoop	move.l	d0,a4
+	tst.w	Edt_Window(a4)			Initialisee?
+	beq.s	.ENext
+	cmp.b	#2,Edt_Hidden(a4)		Deja fermee?
+	beq.s	.ENext
+	cmp.b	#1,Edt_Hidden(a4)
+	bne.s	.Cl
+	move.b	#2,Edt_Hidden(a4)		On ferme!
+; Ferme les anciennes fenetres
+.Cl	move.w	Edt_Window(a4),d1
+	WiCall	QWindow
+	WiCall	WinDel
+	move.w	Edt_WindEtat(a4),d1
+	WiCall	QWindow
+	WiCall	WinDel
+; Efface les zones
+	bsr	Edt_DelZones
+; Fenetre non initialisee
+	clr.w	Edt_Window(a4)
+; Fenetre suivante
+.ENext	move.l	Edt_Next(a4),d0
+	bne.s	.ELoop
+.Out	move.l	(sp)+,a4
+	rts
+;
+; Numerote les fenetres affichees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_OrderWindows
+	moveq	#1,d1
+	move.l	Edt_List(a5),d0
+	beq.s	.Out
+.Loop	move.l	d0,a0
+	tst.b	Edt_Hidden(a0)
+	bne.s	.Hid
+	move.w	d1,Edt_Order(a0)
+	addq.w	#1,d1
+.Hid	move.l	Edt_Next(a0),d0
+	bne.s	.Loop
+.Out	rts
+
+;
+; Enleve toutes les zones de toutes les fenetres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_DelAllZones
+	move.l	Edt_List(a5),d0
+	beq.s	.Skip
+.Loop	move.l	d0,a0
+	clr.w	Edt_Zones(a0)
+	move.l	Edt_Next(a0),d0
+	bne.s	.Loop
+.Skip	rts
+
+;
+; Enleve les zones de la fenetre A4
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_DelZones
+	move.w	Edt_Zones(a4),d2
+	beq.s	.NIni
+	moveq	#7,d3
+.Zraz	move.w	d2,d1
+	SyCall	RazZone
+	addq.w	#1,d2
+	dbra	d3,.Zraz
+	clr.w	Edt_Zones(a4)
+.NIni	rts
+
+;
+; Si la fenetre courante est vide, active la suivante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WVideNext
+	move.l	Edt_Current(a5),a0
+	tst.w	Edt_WindTy(a0)
+	beq.s	Edt_WAutre2
+	rts
+; Active une autre fenetre que la courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WAutre
+	move.l	a4,a0
+Edt_WAutre2
+	moveq	#1,d1
+Edt_WAutre3
+; Prend la fenetre suivante
+.Loop1	bsr	Edt_WNext
+	beq.s	.Loop2
+	move.l	d0,a0
+	cmp.w	Edt_WindTy(a0),d1
+	bgt.s	.Loop1
+	bra.s	.Exit
+; Prend la fenetre pr�cedente
+.Loop2	bsr	Edt_WPrev
+	beq.s	.Skip
+	move.l	d0,a0
+	cmp.w	Edt_WindTy(a0),d1
+	bgt.s	.Loop2
+.Exit	move.l	a0,Edt_Current(a5)
+	move.l	a0,a4
+	move.l	Edt_Prg(a4),a6
+.Skip	rts
+
+;
+; Routine de bougeation de la s�paration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_MSep
+	move.w	d0,-(sp)
+	move.w	d1,-(sp)
+	move.w	d2,-(sp)
+	move.w	d3,-(sp)
+	bsr	XYMouEced
+	move.w	(sp)+,d0
+	sub.w	d0,d2
+	move.w	d2,-(sp)		Decalage souris/bloc
+	move.w	d0,-(sp)		Ancien bloc
+	move.w	d0,-(sp)		Nouveau bloc
+; Fabrique le bloc de dessin
+	moveq	#0,d2
+	move.w	(sp),d3
+	ext.l	d3
+	move.w	Ed_Sx(a5),d4
+	move.w	10(sp),d5
+	ext.l	d5
+	moveq	#0,d6
+	move.l	Ed_BufT(a5),a1
+	move.w	#128,d1
+	EcCall	BlGet
+.Loop0
+; Fabrique le bloc de sauvegarde
+	moveq	#0,d2
+	move.w	(sp),d3
+	ext.l	d3
+	move.w	Ed_Sx(a5),d4
+	move.w	10(sp),d5
+	ext.l	d5
+	moveq	#0,d6
+	move.l	Ed_BufT(a5),a1
+	move.l	#129,d1
+	EcCall	BlGet
+	move.w	(sp),2(sp)
+; Dessine l'image
+	moveq	#0,d2
+	move.w	(sp),d3
+	ext.l	d3
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	move.l	Ed_BufT(a5),a1
+	move.w	#128,d1
+	EcCall	BlPut
+; Prend la souris
+.Loop1	SyCall	MouseKey
+	btst	#0,d1
+	beq.s	.Skip
+	bsr	XYMouEced
+	sub.w	4(sp),d2
+	cmp.w	8(sp),d2
+	bge.s	.In1
+	move.w	8(sp),d2
+.In1	cmp.w	6(sp),d2
+	ble.s	.In2
+	move.w	6(sp),d2
+.In2	cmp.w	(sp),d2
+	beq.s	.Loop1
+	move.w	d2,(sp)
+; Efface l'ancien
+.Skip	moveq	#0,d2
+	move.w	2(sp),d3
+	ext.l	d3
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	move.l	Buffer(a5),a1
+	move.w	#129,d1
+	EcCall	BlPut
+; Lache la souris?
+	SyCall	MouseKey
+	btst	#0,d1
+	bne	.Loop0
+; Efface les bloc
+	move.w	#128,d1
+	EcCall	BlDel
+	move.w	#129,d1
+	EcCall	BlDel
+; Fini
+	move.w	(sp)+,d0
+	lea	10(sp),sp
+	rts
+
+;
+; XY Mouse dans l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+XYMouEced
+	SyCall	XyMou
+	moveq	#0,d3
+	SyCall	XyScr
+	rts
+;
+; Active la fenetre A0, si on peut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_Active
+	bsr	Ed_TokCur
+	tst.w	Edt_WindTy(a0)
+	beq.s	.Out
+; Inactive la fenetre courante
+	move.l	a0,Edt_Current(a5)
+	clr.b	Edt_ASlY(a4)
+	bsr	Ed_AffSlV
+	bsr	Ed_EtPrint
+; Active la nouvelle
+	move.l	Edt_Current(a5),a4
+	move.l	Edt_Prg(a4),a6
+	bsr	Ed_NewBufAff
+	moveq	#-1,d0
+.Out	rts
+
+;
+; Passage � la fenetre suivante (ouverte)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_NextWindow
+	bsr	Ed_TokCur
+	move.l	a4,a0
+.Loop	bsr	Edt_WNext
+	bne.s	.Skip
+	move.l	Edt_List(a5),a0
+.Skip	cmp.l	a4,a0
+	beq.s	.Out
+	move.l	a0,-(sp)
+	bsr	Edt_Active
+	move.l	(sp)+,a0
+	beq.s	.Loop
+.Out	rts
+;
+; Passage � la fenetre precedente (ouverte)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PrevWindow
+	bsr	Ed_TokCur
+	move.l	a4,a0
+.Loop	bsr	Edt_WPrev
+	bne.s	.Skip
+	tst.b	Edt_Last(a4)
+	bne.s	.Out
+	move.l	a4,d0
+.Loop2	move.l	d0,a0
+	bsr	Edt_WNext
+	bne.s	.Loop2
+	move.l	a0,d0
+.Skip	cmp.l	a4,d0
+	beq.s	.Out
+	move.l	d0,a0
+	move.l	d0,-(sp)
+	bsr	Edt_Active
+	move.l	(sp)+,a0
+	beq.s	.Loop
+.Out	rts
+
+;
+; Ferme/Ouvre la fenetre courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_FlipSizeWindow
+	bsr	Ed_TokCur
+	move.w	Edt_WindTy(a4),d1
+	beq.s	.Big
+	move.w	d1,Edt_WindOldTy(a4)
+	moveq	#0,d0
+	bsr	Ed_SchrinkWindow
+	rts
+; Agrandi?
+.Big	move.w	Edt_WindOldTy(a4),d0
+	bne.s	.Skip
+	moveq	#1,d0
+	bsr	Edt_WMaxSize
+.Skip	move.w	d0,Edt_WindTy(a4)
+	moveq	#1,d1
+	bsr	Edt_WPlaceBas
+	beq.s	.Out
+	moveq	#1,d1
+	bsr	Edt_WPlaceHaut
+	beq.s	.Out
+	sub.w	d0,Edt_WindTy(a4)
+.Out	bsr	Ed_DrawWindows
+	rts
+
+; Fenetre courante aussi grande que possible
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_BiggerWindow
+	bsr	Ed_TokCur
+	bsr	Edt_WAlone
+	bne.s	.Out
+	moveq	#0,d0
+	bsr	Edt_WSchrinkAll
+	add.w	d0,Edt_WindTy(a4)
+	bsr	Ed_DrawWindows
+.Out	rts
+;
+; Agrandi la fenetre courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ExpandWindow
+	bsr	Ed_TokCur
+	bsr	Edt_WAlone
+	bne.s	.Out
+	moveq	#1,d0
+	bsr	Edt_WSchrinkAll
+	add.w	d0,Edt_WindTy(a4)
+	bsr	Ed_DrawWindows
+.Out	rts
+;
+; Reduit la fenetre courante, D0=valeur mini
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SchrinkWindow
+	bsr	Ed_TokCur
+	bsr	Edt_WAlone
+	bne.s	.Out
+	move.w	Edt_WindTy(a4),d2
+	cmp.w	d2,d0
+	bcc.s	.Out
+	move.w	d0,Edt_WindTy(a4)
+	sub.w	d0,d2
+; Retreci en haut
+	move.l	a4,a0
+	bsr	Edt_WNext
+	beq.s	.Bas
+	move.l	d0,a0
+	add.w	d2,Edt_WindTy(a0)
+	bra.s	.Aff
+; Retreci en bas
+.Bas	move.l	a4,a0
+	bsr	Edt_WPrev
+	move.l	d0,a0
+	add.w	d2,Edt_WindTy(a0)
+; Affiche
+.Aff	bsr	Edt_WVideNext
+	bsr	Ed_DrawWindows
+.Out	rts
+
+;
+; Ramene VRAI si la fenetre est la seule sur l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WAlone
+	tst.b	Edt_First(a4)
+	beq.s	.Out
+	tst.b	Edt_Last(a4)
+.Out	rts
+
+;
+; Changement en haut de la fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WChangeHaut
+	and.w	#$FFF8,d0
+	move.w	d0,d2
+	cmp.w	Edt_Y(a4),d0
+	beq.s	.Rien
+	tst.b	Edt_Last(a4)
+	bne.s	.Last
+; Une fenetre au milieu, bouge tout
+	sub.w	Edt_Y(a4),d0
+	beq.s	.Rien
+	move.w	Edt_BasY(a4),d3
+	add.w	d0,d3
+	bra	Edt_WChange
+; La derniere, juste le haut
+.Last	move.w	Edt_BasY(a4),d3
+	add.w	#Edt_EtatSy,d0
+	cmp.w	d0,d3
+	bcc	Edt_WChange
+	move.w	d0,d3
+	bra	Edt_WChange
+.Rien	rts
+
+; Changement en bas de la fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WChangeBas
+	addq.w	#Edt_BasSy,d0
+	and.w	#$FFF8,d0
+	subq.w	#Edt_BasSy,d0
+	cmp.w	Edt_BasY(a4),d0
+	beq.s	.Rien
+	move.w	d0,d3
+	move.w	Edt_Y(a4),d2
+	sub.w	#Edt_EtatSy,d0
+.Skip	cmp.w	d2,d0
+	bcc.s	Edt_WChange
+	move.w	d0,d2
+	bra.s	Edt_WChange
+.Rien 	rts
+; Calcule la nouvelle taille de la fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WChange
+	move.w	d3,d0
+	sub.w	d2,d0
+	sub.w	#Edt_EtatSy,d0
+	lsr.w	#3,d0
+	move.w	d0,Edt_WindTy(a4)
+; Modifications en haut
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.w	Edt_Y(a4),d0
+	move.w	d2,Edt_Y(a4)
+	cmp.w	d0,d2
+	beq.s	.Bas
+	bcc.s	.HBas
+; On remonte le haut
+	sub.w	d2,d0
+	lsr.w	#3,d0
+	moveq	#1,d1
+	bsr	Edt_WPlaceHaut
+	beq.s	.Bas
+	moveq	#0,d1
+	bsr	Edt_WPlaceHaut
+	bra.s	.Bas
+; On descend le haut
+.HBas	sub.w	d0,d2
+	lsr.w	#3,d2
+	move.l	a4,a0
+	bsr	Edt_WPrev
+	move.l	d0,a0
+	add.w	d2,Edt_WindTy(a0)
+; Modifications en bas?
+; ~~~~~~~~~~~~~~~~~~~~~
+.Bas	move.w	Edt_BasY(a4),d0
+	move.w	d3,Edt_BasY(a4)
+	cmp.w	d0,d3
+	beq.s	.Fini
+	bcc.s	.BBas
+; On remonte le bas
+	sub.w	d3,d0
+	lsr.w	#3,d0
+	move.w	d0,d3
+	move.l	a4,a0
+	bsr	Edt_WNext
+	move.l	d0,a0
+	add.w	d3,Edt_WindTy(a0)
+	bra.s	.Fini
+; On descend le bas
+.BBas	sub.w	d0,d3
+	lsr.w	#3,d3
+	move.w	d3,d0
+	moveq	#1,d1
+	bsr	Edt_WPlaceBas
+	beq.s	.Fini
+	moveq	#0,d1
+	bsr	Edt_WPlaceBas
+; Ouf
+; ~~~
+.Fini	moveq	#-1,d0
+	rts
+
+;
+; Fait D0 lignes de place en haut de A4, minimum D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WPlaceHaut
+	move.w	d2,-(sp)
+	move.w	d1,d2
+	move.w	d0,d1
+	move.l	a4,a0
+.Loop	bsr	Edt_WPrev
+	beq.s	.Out
+	move.l	d0,a0
+	cmp.w	Edt_WindTy(a0),d2
+	bge.s	.Loop
+	sub.w	Edt_WindTy(a0),d1
+	bcs.s	.Ok
+	add.w	d2,d1
+	move.w	d2,Edt_WindTy(a0)
+	bra.s	.Loop
+.Ok	neg.w	d1
+	move.w	d1,Edt_WindTy(a0)
+	moveq	#0,d1
+.Out	move.w	(sp)+,d2
+	move.w	d1,d0
+	rts
+;
+; Fait D0 lignes de place en bas de A4
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WPlaceBas
+	move.w	d2,-(sp)
+	move.w	d1,d2
+	move.l	d0,d1
+	move.l	a4,a0
+.Loop	bsr	Edt_WNext
+	beq.s	.Out
+	move.l	d0,a0
+	cmp.w	Edt_WindTy(a0),d2
+	bge.s	.Loop
+	sub.w	Edt_WindTy(a0),d1
+	bcs.s	.Ok
+	add.w	d2,d1
+	move.w	d2,Edt_WindTy(a0)
+	bra.s	.Loop
+.Ok	neg.w	d1
+	move.w	d1,Edt_WindTy(a0)
+	moveq	#0,d1
+.Out	move.w	(sp)+,d2
+	move.w	d1,d0
+	rts
+
+;
+; Verifie la validite des WindTy
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;Edt_WOk
+;	move.l	Prg_List(a5),a0
+;	moveq	#Ed_TitreSy,d0
+;.Loop	tst.b	Edt_Hidden(a0)
+;	bne.s	.Skip
+;	add.w	#Edt_EtatSy+Edt_BasSy,d0
+;	move.w	Edt_WindTy(a0),d1
+;	lsl.w	#3,d1
+;	add.w	d1,d0
+;.Skip	move.l	Edt_Next(a0),d1
+;	move.l	d1,a0
+;	bne.s	.Loop
+;; Verification
+;	cmp.w	Ed_Sy(a5),d0
+;	rts
+
+;
+; Trouve l'adresse d'une fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_GetAd
+	move.l	Edt_List(a5),d1
+	beq.s	.Out
+.Loop	move.l	d1,a0
+	cmp.w	Edt_Window(a0),d0
+	beq.s	.Out
+	move.l	Edt_Next(a0),d1
+	move.l	d1,a0
+	bne.s	.Loop
+	moveq	#0,d0
+	rts
+.Out	moveq	#-1,d1
+	rts
+;
+; Calcule les flags first et last
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WFirstLast
+	move.l	Edt_List(a5),d0
+	beq.s	.Out
+	moveq	#0,d1
+.Loop	move.l	d0,a0
+	clr.b	Edt_First(a0)
+	clr.b	Edt_Last(a0)
+	tst.b	Edt_Hidden(a0)
+	bne.s	.Next
+	tst.l	d1
+	bne.s	.Skip
+	addq.b	#1,Edt_First(a0)
+.Skip	move.l	a0,d1
+.Next	move.l	Edt_Next(a0),d0
+	bne.s	.Loop
+	move.l	d1,a0
+	addq.b	#1,Edt_Last(a0)
+.Out	rts
+;
+; Compte le nombre de fenetres affichees >>> A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WCount
+	moveq	#0,d0
+	move.l	Edt_List(a5),d1
+	beq.s	.Out
+.Loop	move.l	d1,a1
+	tst.b	Edt_Hidden(a1)
+	bne.s	.Skip
+	addq.w	#1,d0
+.Skip	cmp.l	d1,a0
+	beq.s	.Out
+	move.l	Edt_Next(a1),d1
+	bne.s	.Loop
+.Out	rts
+;
+;
+; Reduit toutes les fenetres � la taille D0
+; Retourne le gain en taille
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WSchrinkAll
+	move.l	d2,-(sp)
+	move.w	d0,d1
+	moveq	#0,d0
+	move.l	Edt_List(a5),d2
+	beq.s	.Out
+.Loop	move.l	d2,a0
+	tst.b	Edt_Hidden(a0)
+	bne.s	.Skip
+	cmp.w	Edt_WindTy(a0),d1
+	bcc.s	.Skip
+	add.w	Edt_WindTy(a0),d0
+	sub.w	d1,d0
+	move.w	d1,Edt_WindTy(a0)
+.Skip	move.l	Edt_Next(a0),d2
+	bne.s	.Loop
+.Out	move.l	(sp)+,d2
+	rts
+;
+; Ramene la fenetre affich�e precedent A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WPrev
+	movem.l	d1/a1,-(sp)
+	moveq	#0,d0
+	move.l	Edt_List(a5),d1
+	beq.s	.Out
+.Loop	cmp.l	a0,d1
+	beq.s	.Out
+	move.l	d1,a1
+	tst.b	Edt_Hidden(a1)
+	bne.s	.Next
+	move.l	a1,d0
+.Next	move.l	Edt_Next(a1),d1
+	bne.s	.Loop
+.Out	movem.l	(sp)+,d1/a1
+	tst.l	d0
+	rts
+;
+; Ramene la fenetre affiche suivant A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_WNext
+	movem.l	d1/a1,-(sp)
+	moveq	#0,d0
+.Next	move.l	Edt_Next(a0),d1
+	beq.s	.Out
+	move.l	d1,a0
+	tst.b	Edt_Hidden(a0)
+	bne.s	.Next
+	move.l	a0,d0
+.Out	movem.l	(sp)+,d1/a1
+	tst.l	d0
+	rts
+;
+; Ramene la taille maximum admissible pour la fenetre courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	Entree, D0>=0 si taille reduite � D0
+;		D0<1 si taille sans reduire les autres
+;	D0=	WindTy
+;	D1=	WindY
+;	D2=	WindSy
+Edt_WMaxSize
+	move.w	d0,-(sp)
+	moveq	#0,d1
+	moveq	#Ed_TitreSy,d2
+; Exploration de la liste
+	move.l	Edt_List(a5),d0
+	beq.s	.Exit
+.Loop	move.l	d0,a0
+	cmp.l	a0,a4			Stocke position fenetre courante
+ 	bne.s	.Skip0
+	move.w	d2,d1
+	add.w	#Edt_EtatSy+Edt_BasSy,d2
+	bra.s	.Skip2
+.Skip0	tst.b	Edt_Hidden(a0)
+	bne.s	.Skip2
+	add.w	#Edt_EtatSy+Edt_BasSy,d2
+	move.w	Edt_WindTy(a0),d0
+	tst.w	(sp)
+	bmi.s	.Skip1
+	cmp.w	(sp),d0
+	bls.s	.Skip1
+	move.w	(sp),d0
+.Skip1	lsl.w	#3,d0
+	add.w	d0,d2
+.Skip2	move.l	Edt_Next(a0),d0
+	bne.s	.Loop
+; Calcule la taille
+.Exit	addq.l	#2,sp
+	move.w	Ed_Sy(a5),d0
+	sub.w	d2,d0
+	move.w	d1,d2
+	add.w	d0,d2
+	add.w	#Edt_EtatSy+Edt_BasSy,d2
+	asr.w	#3,d0
+	rts
+
+; __________________________________________________________________________
+;
+; 	Creation du menu
+; __________________________________________________________________________
+;
+
+; Effacement de tous les menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_End
+	bsr	EdM_Editor
+	JJsr	L_MnRaz
+	move.l	EdM_Table(a5),d0
+	beq.s	.Skip
+	clr.l	EdM_Table(a5)
+	move.l	d0,a1
+	move.l	EdM_TableSize(a5),d0
+	SyCall	MemFree
+.Skip	rts
+
+;
+; Erreur, on ne peut pas ouvrir les menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_Error
+	move.w	#185,d0			Out of memory: cannot open menu
+	bsr	Ed_GetMessage
+	move.w	#1,d0			Relache tout de suite!
+	bsr	Ed_AlertRts
+	JJsr	L_Dia_NoMKey		Plus de touche souris
+	rts
+
+; Initialisation generale des menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_Init
+	movem.l	d2-d7/a2-a6,-(sp)
+
+; Enleve les anciens menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	EdM_End
+
+; Assez de memoire?
+; ~~~~~~~~~~~~~~~~~
+	bsr	Ed_Available			40k minimum!
+	cmp.l	#40*1024,d0
+	bcs	.Error
+
+; Reserve la table
+; ~~~~~~~~~~~~~~~~
+	move.l	#EdM_HiddenMax*8*5+16,d0	Menus hiddens
+	add.l	#EdM_UserMax*8+8,d0
+	move.l	EdM_Definition(a5),a0		Definitions normals
+	add.l	-4(a0),d0
+	add.l	#16,d0				Un chouuya de securite
+	move.l	d0,EdM_TableSize(a5)
+	SyCall	MemFastClear
+	move.l	a0,EdM_Table(a5)
+	beq	.Error
+
+; Reset des definitions
+; ~~~~~~~~~~~~~~~~~~~~~
+	clr.w	MnMouse(a5)
+	lea	MnDFlags(a5),a0
+	moveq	#0,d0			* Barre de menu
+*	bset	#MnBar,d0
+	bset	#MnTotal,d0
+*	bset	#MnBouge,d0
+*	bset	#MnTBouge,d0
+	move.b	d0,(a0)+
+	moveq	#0,d0
+	bset	#MnBar,d0
+*	bset	#MnBouge,d0
+*	bset	#MnTBouge,d0
+	moveq	#MnNDim-1-1,d1		* Autres dimensions
+.DRex3	move.b	d0,(a0)+
+	dbra	d1,.DRex3
+	moveq	#MnNDim-1,d0
+	lea	MnChoix(a5),a0
+.DRex4	clr.w	(a0)+
+	dbra	d0,.DRex4
+	move.l	T_EcAdr+EcEdit*4(a5),MnAdEc(a5)
+*	move.w	#1,MnMouse(a5)
+
+; Creation de l'arbre de menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	EdM_Definition(a5),a2
+	move.l	EdM_Table(a5),a3
+	move.l	EdM_Messages(a5),a4
+	addq.l	#2,a4
+.MnCr	bsr	EdM_CreObjet
+	addq.l	#8,a2
+	add.w	d4,a4
+	cmp.b	#"*",(a2)
+	bne.s	.MnCr
+	addq.l	#8,a2
+	move.l	a2,EdM_MenuAMOS(a5)
+	move.l	a4,EdM_MessAMOS(a5)
+
+; Cree la branche de menu USER
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	EdM_User(a5),d0
+	beq	.PaUser
+	move.l	d0,a4
+	addq.l	#2,a4
+; Cree les objets user
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d7			Premier programme
+.Loop	move.l	Ed_BufT(a5),a2
+	move.l	a2,a1
+	move.b	d7,(a1)			Met les donnees
+	add.b	#"0"+EdM_UserCommands-1,(a1)+
+	move.b	#"3",(a1)+
+	move.b	#"0",(a1)+
+	move.b	#"1",(a1)+
+	move.b	#"7",(a1)+
+	move.b	d7,(a1)
+	add.b	#"0",(a1)+
+	move.b	#"0",(a1)+
+	move.b	#"0",(a1)+
+	clr.b	(a1)
+	move.l	a4,-(sp)
+; Met la chaine au propre
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	(a4)
+	beq.s	.Cree
+	lea	8(a2),a0
+	moveq	#EdM_UserLong-1,d0
+.Lp1	move.b	#" ",(a0)+
+	dbra	d0,.Lp1
+	clr.b	(a0)
+	lea	9(a2),a0
+	moveq	#EdM_UserLong-2-1,d0
+.Lp2	move.b	(a4)+,d1
+	beq.s	.Cree
+	move.b	d1,(a0)+
+	dbeq	d0,.Lp2
+; Va fabriquer l'objet
+; ~~~~~~~~~~~~~~~~~~~~
+.Cree	lea	8(a2),a4
+	bsr	EdM_CreObjet
+	move.l	(sp)+,a4
+	moveq	#2,d4
+	add.b	-1(a4),d4
+	tst.b	(a4)
+	beq.s	.PaOb
+	move.l	a4,d0
+	sub.l	EdM_User(a5),d0
+	neg.w	d0
+	move.w	d0,-4(a3)
+; Encore un objet?
+; ~~~~~~~~~~~~~~~~
+.PaOb	add.w	d4,a4
+	addq.w	#1,d7
+	cmp.w	#EdM_UserMax,d7
+	ble.s	.Loop
+.PaUser
+
+; Va creer la branche AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a3,EdM_TableAMOS(a5)
+	bsr	EdM_BranchAMOS
+
+; Yo, marque les marques
+; ~~~~~~~~~~~~~~~~~~~~~~
+	bsr	EdM_MarkAll
+
+; Demarrage du menu
+; ~~~~~~~~~~~~~~~~~
+.Bug	clr.w	MnChoice(a5)
+; Pas d'erreur...
+	moveq	#0,d0
+	bra.s	.Out
+; Out of memory
+.Error	bsr	EdM_End
+	moveq	#1,d0
+.Out	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+; Compte les programmes caches
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Edt_CountHidden
+	moveq	#0,d0
+	move.l	Edt_List(a5),d1
+	beq.s	.Out
+.Loop	move.l	d1,a0
+	tst.b	Edt_Hidden(a0)
+	beq.s	.Skip
+	addq.w	#1,d0
+.Skip	move.l	Edt_Next(a0),d1
+	bne.s	.Loop
+.Out	rts
+
+; Previous programs in AMOS menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_PrevHidden
+	bsr	Ed_TokCur
+	move.w	EdM_PosHidden(a5),d0
+	beq	Ed_NotDone
+	sub.w	#EdM_HiddenMax-1,d0
+	bpl.s	.Skip
+	clr.w	d0
+.Skip	move.w	d0,EdM_PosHidden(a5)
+	bsr	EdM_BranchAMOS
+	rts
+; Next programs in AMOS Menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_NextHidden
+	bsr	Ed_TokCur
+	add.w	#EdM_HiddenMax-1,EdM_PosHidden(a5)
+	bsr	EdM_BranchAMOS
+	rts
+
+; _____________________________________
+;
+; Efface / Cree la branche de menu AMOS
+; _____________________________________
+;
+EdM_BranchAMOS
+	movem.l	a2-a4/d2-d7,-(sp)
+	bsr	EdM_Editor
+	tst.l	MnBase(a5)		Menus definis?
+	beq	.Pamenu
+; Efface la branche AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ed_BufT(a5),a3
+	addq.l	#8,a3
+	move.l	#1,-(a3)
+	moveq	#1,d5
+	JJsr	L_MnFind
+	beq.s	.ExistPa
+	move.l	a2,d0
+	moveq	#0,d5
+	JJsr	L_MnEff
+.ExistPa
+; Cree les objets normaux
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	EdM_MenuAMOS(a5),a2
+	move.l	EdM_TableAMOS(a5),a3
+	movem.l	EdM_MessAMOS(a5),a4
+.MnCr	move.b	#"1",4(a2)
+	bsr	EdM_CreObjet
+	addq.l	#8,a2
+	add.l	d4,a4
+	cmp.b	#"*",(a2)
+	bne.s	.MnCr
+	addq.l	#8,a2
+
+; Des programmes cach�s?
+; ~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d7			Flags � zero
+	move.b	4+1(a2),d7		Prend le numero du premier programme
+	bsr	Edt_CountHidden
+	move.w	d0,d1			Pas de programme
+	beq	.EHidden
+; Centre au mieux
+	sub.w	#EdM_HiddenMax,d0
+	bpl.s	.Plus
+	clr.w	EdM_PosHidden(a5)
+	bra.s	.Hidden
+.Plus	cmp.w	EdM_PosHidden(a5),d0
+	bcc.s	.Hidden
+	move.w	d0,EdM_PosHidden(a5)
+; Flags pour les lignes haut / bas
+.Hidden	move.w	EdM_PosHidden(a5),d0
+	beq.s	.S1
+	bset	#31,d7
+.S1	add.w	#EdM_HiddenMax,d0
+	cmp.w	d0,d1
+	ble.s	.S2
+	bset	#30,d7
+.S2
+
+; Cree les objets de programmes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; Met le titre
+	move.b	#"1",4(a2)
+	move.b	d7,4+1(a2)
+	bsr	EdM_CreObjet
+	addq.l	#8,a2
+	add.l	d4,a4
+	addq.b	#1,d7
+; Met ... previous programs ...
+	bclr	#31,d7
+	beq.s	.PHo
+	movem.l	a2/a4,-(sp)
+	move.b	#"1",4(a2)
+	move.b	d7,4+1(a2)
+	bsr	EdM_CreObjet
+	addq.b	#1,d7
+	movem.l	(sp)+,a2/a4
+; Saute le ... previous ...
+.PHo	addq.l	#8,a2
+	move.b	-(a4),d4
+	lea	3(a4,d4.w),a4
+; Boucle d'exploration
+; ~~~~~~~~~~~~~~~~~~~~
+	movem.l	a2/a4,-(sp)
+	move.b	#"0"+HiddenCommands,d6
+	moveq	#EdM_HiddenMax,d3
+; Recherche le premier programme cache a afficher
+	move.w	EdM_PosHidden(a5),d1
+	bsr	Ed_GetHidden		Programme >>> D0
+	bra	.PIn
+; Boucle !
+.PLoop	move.b	#"1",4(a2)
+	move.b	d7,4+1(a2)		Numero de la branche
+; Nom du programme
+	move.l	a6,-(sp)
+	move.l	Edt_Prg(a6),a6
+	move.l	a4,a0
+	move.b	#" ",(a0)+
+	bsr	Ed_NPrgToBuf
+	move.l	(sp)+,a6
+	move.b	#" ",-1(a1)
+; Va fabriquer l'objet
+	bsr	EdM_CreObjet
+	addq.l	#8,a2
+	add.l	d4,a4
+; Sous menu sp�cifique
+.Loop2	move.b	#"1",4(a2)
+	move.b	d7,4+1(a2)
+	cmp.b	#"0",(a2)
+	beq.s	.Skip
+	move.b	d6,(a2)
+	addq.b	#1,d6
+.Skip	bsr	EdM_CreObjet
+	addq.l	#8,a2
+	add.l	d4,a4
+	cmp.b	#"*",(a2)
+	bne.s	.Loop2
+	addq.l	#8,a2
+	addq.b	#1,d7			Un menu de plus
+	movem.l	(sp),a2/a4		Restaure les chaines
+; Passe au programme suivant
+.PNext	move.l	Edt_Next(a6),d0		Programme suivant
+.PIn	beq.s	.EHid
+	move.l	d0,a6
+	tst.b	Edt_Hidden(a6)
+	beq.s	.PNext
+	dbra	d3,.PLoop		Encore un?
+.EHid	addq.l	#8,sp
+.EHidden
+; Trouve la fin des menus sp�ciaux
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d4
+.FLoop	addq.l	#8,a2
+	move.b	-(a4),d4
+	lea	3(a4,d4.w),a4
+	cmp.b	#"*",(a2)
+	bne.s	.FLoop
+	addq.l	#8,a2
+; Met ... next programs ...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	bclr	#30,d7
+	beq.s	.PBa
+	movem.l	a2/a4,-(sp)
+	move.b	#"1",4(a2)
+	move.b	d7,4+1(a2)
+	bsr	EdM_CreObjet
+	addq.b	#1,d7
+	movem.l	(sp)+,a2/a4
+; Saute le ... next ...
+.PBa	addq.l	#8,a2
+	move.b	-(a4),d4
+	lea	3(a4,d4.w),a4
+
+; Termine le menu
+; ~~~~~~~~~~~~~~~
+.MnC	move.b	#"1",4(a2)
+	move.b	d7,4+1(a2)
+	bsr	EdM_CreObjet
+	addq.l	#8,a2
+	add.l	d4,a4
+	addq.b	#1,d7
+	cmp.b	#32,(a2)
+	bcc.s	.MnC
+
+; Fini!
+	clr.l	(a3)
+	move.w	#1,MnChange(a5)
+.Pamenu	movem.l	(sp)+,a2-a4/d2-d7
+	rts
+
+
+; _____________________________________
+;
+; Marque tous les objets markables
+; _____________________________________
+;
+EdM_MarkAll
+	bsr	EdM_Editor
+; Les touches dans le menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#104,d0
+	move.b	EdM_Keys(a5),d1
+	bsr	EdM_SetMark
+; Mode insert / Replace
+; ~~~~~~~~~~~~~~~~~~~~~
+	moveq	#75,d0
+	move.b	Ed_Insert(a5),d1
+	bsr	EdM_SetMark
+; Sound On / Off
+; ~~~~~~~~~~~~~~
+	move.w	#148,d0
+	move.b	Ed_Sounds(a5),d1
+	bsr	EdM_SetMark
+	rts
+
+; _____________________________________
+;
+; Marque Active ou non un objet de menu
+;
+;	D0= 	numero de la fonction
+;	D1=	Active ou non
+; _____________________________________
+;
+EdM_SetMark
+	movem.l	a2/a4,-(sp)
+	tst.l	MnBase(a5)			Menus definis?
+	beq.s	.Pamenu
+	move.l	EdM_Definition(a5),a2
+	move.l	EdM_Table(a5),a0
+	move.l	EdM_Messages(a5),a4
+.FLoop	cmp.b	6(a0),d0
+	addq.l	#8,a0
+	bne.s	.FLoop
+	subq.l	#8,a0
+	add.w	4(a0),a4
+	moveq	#0,d0
+	move.b	7(a0),d0
+	lsl.w	#3,d0
+	add.w	d0,a2
+	move.l	a4,a1
+	lea	MenuMark0(pc),a0
+	tst.b	d1
+	beq.s	.Skip
+	lea	MenuMark1(pc),a0
+.Skip	move.b	(a0)+,d0
+	beq.s	.Out
+	move.b	d0,(a1)+
+	bra.s	.Skip
+.Out	moveq	#1,d0
+	bsr	EdM_ObCree
+	move.w	#1,MnChange(a5)
+.Pamenu	movem.l	(sp)+,a2/a4
+	rts
+
+
+; ____________________________________________
+;
+; Montre / Efface les touches dans les menus
+; ____________________________________________
+;
+Ed_ShowKey
+	bsr	Ed_TokCur
+	not.b	EdM_Keys(a5)
+	bsr	EdM_Init
+	rts
+
+;
+; Routine de cr�ation du menu A2 / Table A3
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdM_CreObjet
+	tst.b	(a4)			Un objet?
+	beq.s	.Skip
+	moveq	#3,d0
+	lea	4(a2),a0		.B Definition de l'arbre
+.MnCrL	move.b	(a0)+,(a3)
+	sub.b	#"0",(a3)+
+	dbra	d0,.MnCrL
+	move.l	a4,d0			.W Adresse dans les messages
+	sub.l	EdM_Messages(a5),d0
+	move.w	d0,(a3)+
+	move.b	(a2),d0			.B Touche
+	sub.b	#"0",d0
+	move.b	d0,(a3)+
+	move.l	a2,d1			.B Definition
+	sub.l	EdM_Definition(a5),d1
+	lsr.l	#3,d1
+	move.b	d1,(a3)+
+	ext.w	d0
+	bsr	EdM_ObCree
+.Skip	moveq	#2,d4
+	add.b	-1(a4),d4
+; ILLEGAL verification table
+	move.l	EdM_Table(a5),a0
+	add.l	EdM_TableSize(a5),a0
+	cmp.l	a0,a3
+	bcs.s	.Ok
+	illegal
+.Ok	rts
+
+
+; ____________________________________
+;
+; Initialisation de l'objet de menu A2/A4
+; D0=	Actif / Inactif (0/1)
+; ____________________________________
+;
+EdM_ObCree
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	Ed_BufT(a5),a3
+	lea	256(a3),a3
+	move.l	a2,a6
+	move.w	d0,-(sp)
+
+; Recupere la position de l'objet
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d5
+	lea	4(a6),a0
+	moveq	#0,d0
+	moveq	#3,d1
+.Loop0	move.b	(a0)+,d0
+	sub.b	#"0",d0
+	beq.s	.Exit0
+	move.l	d0,-(a3)
+	addq.w	#1,d5
+	dbra	d1,.Loop0
+.Exit0	move.w	d5,-(sp)
+
+; Fabrique la structure de l'objet
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_MnFind
+	bne.s	.Exist
+	JJsr	L_MnIns
+.Exist
+
+; Inactive?
+; ~~~~~~~~~
+	move.w	(sp)+,d7
+	bclr	#MnOff,MnFlag(a2)
+	tst.w	(sp)+
+	bne.s	.Act
+	bset	#MnOff,MnFlag(a2)
+.Act
+
+; Couleurs de l'objet
+; ~~~~~~~~~~~~~~~~~~~
+	move.b	1(a6),d1
+	sub.b	#"0",d1
+	move.b	2(a6),d0
+	sub.b	#"0",d0
+	move.b	d0,MnInkA1(a2)
+	move.b	d1,MnInkB1(a2)
+	move.b	d0,MnInkC1(a2)
+	move.b	d1,MnInkA2(a2)
+	move.b	d0,MnInkB2(a2)
+	move.b	d0,MnInkC2(a2)
+; Fabrique la chaine
+; ~~~~~~~~~~~~~~~~~~
+	move.l	a4,a0
+	move.l	Ed_BufT(a5),a1
+	lea	2(a3),a1
+.Loop2	move.b	(a0)+,d0
+	move.b	d0,(a1)+
+	cmp.b	#32,d0
+	bcc.s	.Loop2
+	subq.l	#1,a1
+	move.l	a1,d1
+	sub.l	a3,d1
+	subq.l	#2,d1
+	move.w	d1,(a3)
+	clr.w	-2(a3)
+
+; Met les codes de touche si necessaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	EdM_Keys(a5)
+	beq	.NoKey2
+L_KDef	equ	11
+	cmp.w	#1,d7
+	beq	.NoKey2
+	move.l	a2,-(sp)
+	cmp.b	#"0",(a6)		Rien si SubMenu
+	bcs	.NoKey
+	moveq	#L_KDef+1,d0
+	add.w	d0,(a3)
+	move.b	(a4),d1
+	move.l	a1,a0
+.Loop3	move.b	d1,(a0)+
+	subq.w	#1,d0
+	bne.s	.Loop3
+; Trouve la touche
+	move.b	(a6),d0
+	sub.b	#"0",d0
+	beq	.NoKey
+	bsr	Ed_Fonc2Ky
+	beq	.NoKey
+	move.l	a0,a2
+; Fabrique le texte
+	move.b	1(a2),d1
+	move.b	(a2),d2
+	cmp.b	#1,d2
+	bls	.NoKey
+	lea	Menus_Touches1(pc),a2
+	move.l	a2,a0
+.Lp1	cmp.b	(a0)+,d1
+	addq.l	#1,a0
+	bne.s	.Lp1
+	moveq	#0,d0
+	move.b	-1(a0),d0
+	add.w	d0,a2
+.Lp2	move.b	(a2)+,(a1)+
+	bne.s	.Lp2
+	subq.l	#1,a1
+; Touche ASCII
+	tst.b	d2
+	bmi.s	.SkipSc
+	move.b	#'"',(a1)+
+	move.b	d2,(a1)+
+	move.b	#'"',(a1)+
+	bra.s	.EndKey
+; Scancode
+.SkipSc	lea	Menus_Touches2(pc),a0
+	addq.l	#1,a0
+	bra.s	.SkipS1
+.LoopS1	tst.b	(a0)+
+	bpl.s	.LoopS1
+	tst.b	(a0)
+	beq.s	.ExitS1
+.SkipS1	cmp.b	-1(a0),d2
+	bne.s	.LoopS1
+.LoopS2	move.b	(a0)+,(a1)+
+	bpl.s	.LoopS2
+	subq.l	#1,a1
+	bra.s	.EndKey
+.ExitS1	moveq	#2,d3
+	move.l	a1,a0
+	move.b	d2,d0
+	and.b	#$7f,d0
+	JJsrP	L_LongToHex,a2
+	move.l	a0,a1
+; Termine la touche
+.EndKey	move.b	(a2)+,(a1)+
+	bne.s	.EndKey
+	bra.s	.FinKey
+; Vers un autre niveau de menu
+.NLevel	lea	Menus_Touches3(pc),a2
+.LoopL	move.b	(a2)+,(a1)+
+	bne.s	.LoopL
+; Termine la chaine
+.FinKey	move.b	#" ",-1(a1)
+.NoKey	move.l	(sp)+,a2
+.NoKey2
+
+; Chaine normale
+; ~~~~~~~~~~~~~~
+	lea	MnOb1(a2),a0
+	move.l	a3,a1
+	bsr	Ed_MnOb
+; Chaine activee
+; ~~~~~~~~~~~~~~
+	lea	MnOb2(a2),a0
+	lea	-2(a3),a1
+	bsr	Ed_MnOb
+; Chaine inactive?
+; ~~~~~~~~~~~~~~~~
+	lea	MnOb3(a2),a0
+	lea	-2(a3),a1
+	bsr	Ed_MnOb
+; Chaine du fond
+; ~~~~~~~~~~~~~~
+	lea	MnObF(a2),a0
+	lea	-2(a3),a1
+	bsr	Ed_MnOb
+; Finito
+; ~~~~~~
+	move.l	a2,a0
+	move.w	#1,MnChange(a5)
+	moveq	#0,d0
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+
+; Routine de creation de la chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0= 	chaine dans l'objet
+;	A1= 	chaine � affecter � l'objet A2
+;
+Ed_MnOb
+	tst.w	(a1)
+	beq	.MnObE
+; Cree une chaine!
+; ~~~~~~~~~~~~~~~~
+	movem.l	a0/a1,-(sp)		* Efface l'ancienne
+	bsr.s	.MnObE
+	movem.l	(sp)+,a0/a1
+	JJsrP	L_MnObjet,a2		* Cree la nouvelle
+	beq.s	.Err			* Illegal: tester low mem!
+	bmi.s	.Err
+	move.l	d0,(a0)
+	rts
+; Efface la chaine
+; ~~~~~~~~~~~~~~~~
+.MnObE	move.l	(a0),d0
+	beq.s	.Out
+	clr.l	(a0)
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	SyCall	MemFree
+.Out	rts
+.Err	illegal
+	rts
+
+
+; _______________________________________________
+;
+; Copie la zone de menus editeur
+; _______________________________________________
+;
+EdM_Editor
+	tst.b	EdM_Flag(a5)
+	bne.s	.Done
+	move.b	#1,EdM_Flag(a5)
+	movem.l	a0/a1/d0/d1,-(sp)
+	lea	EdM_Copie(a5),a0
+	lea	Mn_SSave(a5),a1
+	moveq	#(Mn_ESave-Mn_SSave)/2-1,d0
+.Swap	move.w	(a0),d1
+	move.w	(a1),(a0)+
+	move.w	d1,(a1)+
+	dbra	d0,.Swap
+	movem.l	(sp)+,a0/a1/d0/d1
+.Done	rts
+; _______________________________________________
+;
+; Copie la zone de menus programme
+; _______________________________________________
+;
+EdM_Program
+	tst.b	EdM_Flag(a5)
+	beq.s	.Done
+	clr.b	EdM_Flag(a5)
+	movem.l	a0/a1/d0/d1,-(sp)
+	lea	EdM_Copie(a5),a1
+	lea	Mn_SSave(a5),a0
+	moveq	#(Mn_ESave-Mn_SSave)/2-1,d0
+.Swap	move.w	(a0),d1
+	move.w	(a1),(a0)+
+	move.w	d1,(a1)+
+	dbra	d0,.Swap
+	movem.l	(sp)+,a0/a1/d0/d1
+.Done	rts
+
+;_____________________________________________________________________________
+;
+;					Access Disque sous editeur
+;_____________________________________________________________________________
+;
+; Entete AMOS Basic
+; ~~~~~~~~~~~~~~~~~
+EnHead	dc.b	"AMOS ProEd.v    "
+	even
+
+;
+; NAME1 already exist. Overwrite?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SaveOver
+	JJsr	L_RExist
+	beq.s	.Skip
+	move.l	Ed_VDialogues(a5),a0
+	move.l	Name1(a5),(a0)
+	moveq	#EdD_AExist,d0
+	bsr	Ed_Dialogue
+	cmp.w	#1,d0
+	bne	Ed_NotDone
+.Skip	rts
+;
+; Sauve le programme si on l'a change!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Saved
+	tst.b	Prg_Change(a6)
+	beq.s	.Skip
+; Cree la chaine avec le nom, en 0VA
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+	moveq	#31,d0
+.Clr	move.b	#" ",(a1)+
+	dbra	d0,.Clr
+	clr.b	(a1)
+	bsr	Ed_NPrgToBuf
+	clr.b	(a0)
+	move.l	Buffer(a5),a0
+	bsr	Ed_DChaine
+	move.l	Ed_VDialogues(a5),a0
+	move.l	a1,0*4(a0)
+; Appelle la boite de dialogue
+	moveq	#EdD_Saved,d0
+	bsr	Ed_Dialogue
+	cmp.w	#2,d0
+	beq.s	.Skip
+	cmp.w	#1,d0
+	bne	Ed_NotDone2
+	bsr	Ed_SaveIt
+.Skip	rts
+
+
+;
+; Routine LOAD HIDDEN PROGRAM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_RLoadHidden
+	move.w	#155,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+; Ouvre la structure fenetre cachee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0				Hidden
+	moveq	#0,d1				Structure vide
+	bsr	Edt_OpWindow
+	bne	Ed_OMm
+	move.l	a4,Ed_WindowToDel(a5)
+; Va charger le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#-1,d0				Adapter la taille du buffer
+	JJsr	L_Prg_Load
+	bne	Ed_PrgLoadErr
+	move.b	#1,Prg_StModif(a6)		Force le test
+; C'est bon!
+; ~~~~~~~~~~
+	bsr	Ed_AverFin
+	rts
+
+;
+; LOAD HIDDEN PROGRAM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_LoadHidden
+	bsr	Ed_TokCur
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#66,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+; Appelle la routine
+; ~~~~~~~~~~~~~~~~~~
+	bsr	Ed_RLoadHidden
+	clr.l	Ed_WindowToDel(a5)
+; Recalcule le menu
+; ~~~~~~~~~~~~~~~~~
+	bsr	EdM_BranchAMOS
+	rts
+
+;
+; LOAD PROGRAMME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Load
+	bsr	Ed_TokCur
+	bsr	Ed_Saved
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#70,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+; NEW
+; ~~~
+	bsr	Ed_New2
+; Message LOADING
+; ~~~~~~~~~~~~~~~
+Ed_ReLoad
+	move.w	#155,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+; Charge
+; ~~~~~~
+	moveq	#1,d0			Revenir si pas assez grand
+	JJsr	L_Prg_Load
+	beq.s	EdLok
+	bmi	Ed_PrgLoadErr
+	move.l	d1,d0
+	bsr	Ed_GetPlace
+	bsr	Ed_AverFin
+	bra.s	Ed_ReLoad
+; Chargement correct
+; ~~~~~~~~~~~~~~~~~~
+EdLok	move.b	#1,Prg_StModif(a6)		Force le test
+	bsr	Ed_AverFin
+	bsr	Ed_NewBufAff
+	rts
+
+;
+; Pointe le debut du nom reel du fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DNom
+	move.l	a0,a1
+.FaL1	tst.b	(a0)+
+	bne.s	.FaL1
+	subq.l	#1,a0
+.FaL2	move.b	-(a0),d0
+	cmp.b	#"/",d0
+	beq.s	.FaL3
+	cmp.b	#":",d0
+	beq.s	.FaL3
+	cmp.l	a1,a0
+	bcc.s	.FaL2
+.FaL3	addq.l	#1,a0
+	rts
+
+;
+; MERGE PROGRAMME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Merge
+	bsr	Ed_TokCur
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#78,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+; Libere de la memoire
+; ~~~~~~~~~~~~~~~~~~~~
+	bsr	Edt_ClearVar
+	bsr	Ed_BlocFree
+	bsr	Prg_UndoRaz
+; Charge le programme dans une fenetre cach�e
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ed_RLoadHidden
+; Copie le bout dans le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_StBas(a6),a0		Bas du source
+	move.l	Prg_StHaut(a6),d0		Longueur du source
+	sub.l	a0,d0
+	subq.l	#2,d0
+	ble.s	.Skip
+	move.w	Prg_NLigne(a6),d7		Nombre de lignes
+	move.l	Edt_Current(a5),a4		Program courant
+	move.l	Edt_Prg(a4),a6
+	move.w	Edt_YPos(a4),d1
+	add.w	Edt_YCu(a4),d1
+	move.w	d1,d6				Insere le programme
+	bsr	Ed_StoBlock
+	bne	Ed_OofBuf
+	move.w	d6,d0				Change les marques
+	move.w	d7,d1
+	bsr	Ed_MarksChange
+; La fenetre sera lib�r�e au retour
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Skip	JJsr	L_Prg_CptLines
+	bsr	Ed_NewBufAff
+	rts
+
+;
+; CHARGEMENT FICHIER ASCII
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_LoadA:
+	bsr	Ed_TokCur
+	bsr	Prg_UndoRaz
+; Selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#86,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+; Message
+; ~~~~~~~
+	move.w	#158,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+; Charge tout le fichier dans un buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1005,d2		Mode OLD
+	bsr	Ed_Open
+	beq	Ed_DError
+	moveq	#0,d2			Seek --> fin
+	moveq	#1,d3
+	bsr	Ed_Seek
+	move.l	d0,d2			Seek --> debut!
+	moveq	#-1,d3
+	bsr	Ed_Seek
+	move.l	d0,d3			Reserve le buffer
+	addq.l	#4,d0			Plus zero � la fin
+	JJsr	L_ResTempBuffer
+	beq	Ed_OMm
+	move.l	a0,d2			Charge tout d'un bloc
+	bsr	Ed_Read
+	bne	Ed_DError		Ferme le fichier
+	bsr	Ed_Close
+; Boucle de tokenisation dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Edt_YPos(a4),d7
+	add.w	Edt_YCu(a4),d7
+	move.l	TempBuffer(a5),a3	Cherche la fin
+; Control-C?
+.MergL	bclr	#BitControl-8,T_Actualise(a5)
+	bne	.MergX
+; Trouve la longueur de la ligne
+	lea	-1(a3),a2
+.Fin1	addq.l	#1,a2
+	move.b	(a2),d0
+	beq.s	.Fin4
+	cmp.b	#32,d0
+	bcc.s	.Fin1
+	cmp.b	#10,d0
+	beq.s	.Fin2
+	cmp.b	#13,d0
+	beq.s	.Fin2
+	cmp.b	#9,d0			Tabs >>> Espace
+	bne	.Bad
+	move.b	#" ",(a2)
+	bra.s	.Fin1
+.Fin2	clr.b	(a2)
+	cmp.b	#32,1(a2)
+	bcc.s	.Fin4
+	addq.l	#1,a2
+.Fin4	move.l	a2,d0			Verifie la longueur
+	sub.l	a3,d0
+	cmp.l	#250,d0
+	bcc.s	.Long
+; Va tokeniser
+	move.l	a3,a0
+	lea	1(a2),a3
+	move.l	Ed_BufT(a5),a1
+	bsr	Tokenise
+	bmi.s	.Long
+; Stocke!
+	moveq	#-1,d0			Insert
+	move.w	d7,d1			Ligne courante
+	move.l	Ed_BufT(a5),a1
+	bsr	Ed_Stocke
+	bne	.OBuf
+	addq.w	#1,d7
+	addq.w	#1,Prg_NLigne(a6)
+; Reaffiche le slider
+	movem.l	a2/a3/d7,-(sp)
+	bsr	Ed_AffSlV
+	movem.l	(sp)+,a2/a3/d7
+; Encore une ligne?
+	tst.b	(a3)
+	bne	.MergL
+; Termine
+.MergX	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	bsr	Ed_AverFin
+	JJsr	L_Prg_CptLines
+	bsr	Ed_NewBufAff
+	SyCall	ClearKey
+	rts
+; Out of buffer space
+.OBuf	bsr	.MergX
+	bra	Ed_OofBuf
+; Line too long / Bad file
+.Bad
+.Long	bsr	.MergX
+	bra	Ed_LToLong
+
+;
+; SAUVEGARDE PROGRAMME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; Rename le programme cournant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Rename
+	move.l	Name1(a5),a0
+	lea	Prg_NamePrg(a6),a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+	move.b	#1,Prg_Change(a6)
+	bset	#EtA_Nom,Edt_EtatAff(a4)
+	rts
+
+; Sauvegarde speciale COMPILER_SHELL.AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SaveAsName
+; Sauvegarde le non dans la pile
+	lea	Prg_NamePrg(a6),a0
+	lea	-128(sp),sp
+	move.l	sp,a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+; Sauve le programme, sans .BAK
+	bsr	Ed_SavePrg2
+; Remet le nom
+	move.l	sp,a0
+	lea	Prg_NamePrg(a6),a1
+.Copy1	move.b	(a0)+,(a1)+
+	bne.s	.Copy1
+	lea	128(sp),sp
+; Erreur?
+	tst.w	d0
+	bne	Ed_DError
+	rts
+
+Ed_SaveAs
+	bsr	Ed_TokCur
+	bra.s	Ed_SvAs
+Ed_Save
+	bsr	Ed_TokCur
+Ed_SaveIt
+; Demander le nom?
+; ~~~~~~~~~~~~~~~~
+	lea	Prg_NamePrg(a6),a0
+	tst.b	(a0)
+	beq.s	Ed_SvAs
+	move.l	Name1(a5),a1
+	bsr	EdCocop
+	JJsr	L_Dsk.PathIt
+	bra.s	Ed_Sv
+; Ouvre le selecteur de fichiers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SvAs	moveq	#74,d0
+	bsr	Ed_File_Selector
+	beq	Ed_NotDone
+	JJsr	L_Dsk.PathIt
+; Sauve le programme!
+; ~~~~~~~~~~~~~~~~~~~
+Ed_Sv	move.w	#154,d0
+	move.l	Name1(a5),a0
+	bsr	Ed_AvName
+	bsr	Ed_SavePrg
+	bne	Ed_DError
+	bsr	Ed_AverFin
+	bset	#EtA_Nom,Edt_EtatAff(a4)
+	rts
+; Sauve le programme (a4), nom NAME1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SavePrg
+; Fabrique NOM.BAK
+; ~~~~~~~~~~~~~~~~
+	tst.b	Ed_SvBak(a5)
+	beq	.PaBak
+	bsr	Ed_MakeBak
+	bne.s	SError
+.PaBak
+Ed_SavePrg2
+; Fait le m�nage!
+; ~~~~~~~~~~~~~~~
+	bsr	Edt_ClearVar
+	JJsr	L_Prg_CptLines
+; Va sauver
+; ~~~~~~~~~
+	JJsr	L_Prg_Save
+	bne.s	SError
+	move.b	#1,Prg_StModif(a6)	Force le menage
+; Sauve l'icone
+; ~~~~~~~~~~~~~
+	bsr	Ed_SaveIcon
+; Pas d'erreur
+; ~~~~~~~~~~~~
+	moveq	#0,d0
+SOut	rts
+; Erreur dans la sauvegarde
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+SError	moveq	#-1,d0
+	bra.s	SOut
+
+
+;
+; FABRIQUE UN .BAK de NAME1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_MakeBak
+	movem.l	a0-a2/a6/d0-d2,-(sp)
+	move.l	Name1(a5),a0
+	move.l	Name2(a5),a1
+.Bak1	move.b	(a0)+,(a1)+
+	bne.s	.Bak1
+; Trouve le DERNIER "."
+	move.l	a1,a0
+	subq.l	#1,a1
+.Bak2	cmp.l	Name2(a5),a0
+	ble.s	.Bak3
+	cmp.b	#".",-(a0)
+	bne.s	.Bak2
+	move.l	a0,a1
+; Recopie le .BAK
+; ~~~~~~~~~~~~~~~
+.Bak3	moveq	#21,d0
+	bsr	Ed_GetSysteme
+.Bak4	move.b	(a0)+,(a1)+
+	bne.s	.Bak4
+; Renomme NOM.AMOS si present
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Bak5	move.l	DosBase(a5),a6
+	move.l	Name1(a5),d1
+	move.l	Name2(a5),d2
+	jsr	_LVORename(a6)
+	tst.l	d0
+	bne.s	.Ok
+	jsr	_LVOIoErr(a6)
+	cmp.w	#215,d0			D'un periph � l'autre?
+	beq.s	.Ok
+	cmp.w	#205,d0			Existe pas
+	beq.s	.Ok
+	cmp.w	#203,d0			Existe DEJA
+	bne	.Err
+; Efface NOM.BAK et recommence!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Name2(a5),d1
+	jsr	_LVODeleteFile(a6)
+	tst.l	d0
+	bne	.Bak5
+; Une erreur!
+; ~~~~~~~~~~~
+.Err	moveq	#-1,d0
+	bra.s	.Out
+; Ok!
+; ~~~
+.Ok	moveq	#0,d0
+.Out	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+
+;
+; SAUVEGARDE ICONE PROGRAMME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_SaveIcon
+	movem.l	d0-d1/a0-a1/a6,-(sp)
+	tst.b	PI_Icons(a5)
+	beq.s	.Ok
+	move.l	IconBase(a5),d0
+	beq.s	.Ok
+	move.l	d0,a6
+	move.l	AdrIcon(a5),d0
+	beq.s	.Ok
+	move.l	d0,a1
+	move.l	Name1(a5),a0
+	jsr	-84(a6)
+.Ok	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+;
+; ERREUR DISQUE SOUS EDITEUR
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;Ed_DiskError
+; Arret du flag
+; ~~~~~~~~~~~~~
+;	clr.w	Ed_Disk(a5)
+; Trouve l'erreur
+; ~~~~~~~~~~~~~~~
+;	move.l	Ed_RunMessages(a5),a0
+;	addq.w	#1,d0
+;	bsr	Ed_GetMessageA0
+;	movem.l	a0/d0,-(sp)
+;	bsr	Ed_BufUntok
+;	movem.l	(sp)+,a0/d0
+; ALERTE!
+; ~~~~~~~
+;	moveq	#125,d0
+;	bra	Ed_Alert
+
+; ___________________________________________________________________
+;
+; 					DIVERS
+; ___________________________________________________________________
+;
+; Agrandi une image aux dimensions de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	D0=	Y1
+;	D1= 	Y2
+;
+Ed_Enlarge
+	movem.l	a0-a2/d0-d5,-(sp)
+	move.l	T_EcAdr+EcEdit*4(a5),a0
+	move.l	a0,a1
+	ext.l	d0
+	ext.l	d1
+	move.l	d1,d5
+	move.l	d0,d1
+	move.l	d0,d3
+	move.l	#160,d0
+	move.l	#480,d4
+	move.w	Ed_Sx(a5),d2
+	sub.w	#480-160,d2
+	ext.l	d2
+	JJsrR	L_ScCopy,a2
+	movem.l	(sp)+,a0-a2/d0-d5
+	rts
+
+;
+; Copie la palette de la souris dans l'�cran A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Ecran Destination
+;
+Ed_CopyPal
+	lea	EcPal+32(a0),a0
+	lea	PI_DefEPa+32(a5),a1
+	moveq	#16-1,d0
+.loop	move.w	(a1)+,(a0)+
+	dbra	d0,.loop
+	rts
+; _____________________________________________________
+;
+;	Attente souris dans le titre
+; _____________________________________________________
+;
+Ed_TiWait
+	move.w	d0,-(sp)
+.loop	JJsr	L_Sys_WaitMul
+	SyCall	Inkey
+	tst.l	d1
+	bne.s	.end
+	SyCall	MouseKey
+	and.w	#%111,d1
+	bne.s	.end
+	subq.w	#1,(sp)
+	bne.s	.loop
+.end	addq.l	#2,sp
+	rts
+
+;
+; Unpack Image de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Numero
+;	D1=	X
+;	D2=	Y
+;
+Es_Unpack
+	move.l	T_EcAdr+EcFonc*4(a5),a1
+	bra.s	EdU
+Ed_Unpack
+	move.l	T_EcAdr+EcEdit*4(a5),a1
+EdU	move.l	Ed_Resource(a5),a0
+	add.l	2(a0),a0
+	lsl.w	#2,d0
+	add.l	-4+2(a0,d0.w),a0
+	ext.l	d1
+	ext.l	d2
+	JJsrP	L_UnPack_Bitmap,a2
+	rts
+
+; ___________________________________________________________________
+;
+; 						ROUTINES BOUTONS
+; ___________________________________________________________________
+;
+Bt_RoutIn
+	bra	Ed_BtWindowClose		1- Close window
+	bra	Ed_BtWindowHide			2- Hide window
+	bra	Ed_BtWindowSize			3- Shrink window
+	bra	Bt_EsCDraw			4- Dessin bouton escape
+	bra	Esc_BtGetOutput			5- Position actuelle OUTPUT
+	bra	Bt_EdDraw			6- Dessin d'un bouton
+; Dessin d'un bouton ESCAPE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Bt_EsCDraw
+	move.l	d2,-(sp)
+	move.w	Bt_Image(a2),d0
+	add.w	Bt_Pos(a2),d0
+	move.w	Bt_X(a2),d1
+	move.w	Bt_Y(a2),d2
+	bsr	Es_Unpack
+	move.l	(sp)+,d2
+	rts
+; Dessin d'un bouton EDITOR!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Bt_EdDraw
+	move.l	d2,-(sp)
+	move.w	Bt_Image(a2),d0
+	add.w	Bt_Pos(a2),d0
+	move.w	Bt_X(a2),d1
+	move.w	Bt_Y(a2),d2
+	bsr	Ed_Unpack
+	move.l	(sp)+,d2
+	rts
+
+;
+; Gestion des boutons speciaux
+; ____________________________________
+;
+EdK_MarkAll
+	move.b	Ed_Insert(a5),d0
+	and.w	#$0001,d0
+	bchg	#0,d0
+	lea	Ed_Boutons+(Bt_Insert-1)*Bt_Long(a5),a2
+	move.w	d0,Bt_Pos(a2)
+	bsr	Bt_EdDraw
+.Skip	rts
+
+; ___________________________________________________________________
+;
+;						ACCES DISQUE EDITEUR
+; ___________________________________________________________________
+;
+
+
+; OPEN: ouvre le fichier systeme (diskname1) access mode D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Open	move.l 	Name1(a5),d1
+Ed_OpenD1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOOpen(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Handle(a5)
+	rts
+
+; CLOSE fichier systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Close
+	move.l	Handle(a5),d1
+	beq.s	.Skip
+	clr.l	Handle(a5)
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOClose(a6)
+	move.l	(sp)+,a6
+.Skip	rts
+
+; READ fichier systeme D3 octets dans D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Read	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+
+; WRITE fichier systeme D3 octets de D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Write
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+
+; SEEK fichier system D3 mode D2 deplacement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Seek	move.l	Handle(a5),d1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	rts
+;
+; Ouverture de l'imprimante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PRTOpen
+	moveq	#43,d0
+	JJsr	L_Sys_GetMessage
+	move.l	a0,d1
+	move.l	#1005,d2
+	bsr	Ed_OpenD1
+	beq.s	Ed_PErr
+	rts
+Ed_PErr	move.w	#216,d0
+	bra.s	Ed_DBis
+;
+; Imprime la chaine A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PRTPrint
+	move.l	a0,d2
+	move.l	a0,a1
+.Ip1	move.b	(a0)+,d0
+	move.b	d0,(a1)+
+	beq.s	.Ip2
+	cmp.b	#13,d0
+	bne.s	.Ip1
+	tst.b	PI_PrtRet(a5)
+	bne.s	.Ip1
+	cmp.b	#10,(a0)
+	bne.s	.Ip1
+	move.b	(a0)+,-1(a1)
+	bra.s	.Ip1
+; Nouvelle longueur
+.Ip2	sub.l	d2,a0
+	subq.l	#1,a0
+	move.l	a0,d3
+	bsr	Ed_Write
+	bne	Ed_PErr
+	rts
+;
+; Erreurs dans le chargement programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_PrgLoadErr
+	cmp.w	#-2,d0
+	beq	Ed_OMm
+	cmp.w	#-3,d0
+	beq	Ed_PaAMOS
+;
+; Gestion des erreurs disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DError
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOIoErr(a6)
+	move.l	(sp)+,a6
+	lea	ErDisked(pc),a0
+	moveq	#DEBase-1,d1
+.Explo	addq.l	#1,d1
+	move.b	(a0)+,d2
+	beq.s	Paerr
+	cmp.b	d0,d2
+	bne.s	.Explo
+	move.w	d1,d0
+	addq.w	#1,d0
+; Imprime le message
+Ed_DBis	move.l	Ed_RunMessages(a5),a0
+	bsr	Ed_GetMessageA0
+; En cas de ZAPPEUSE, branche � ALERT normal
+	tst.b	Ed_Zappeuse(a5)
+	bne	Ed_ZapAlert
+; Boite de dialogue
+	move.l	Ed_VDialogues(a5),a1
+	move.l	a0,0*4(a1)
+	bsr	Ed_RazAlert
+	moveq	#"G",d0			Va faire du bruit!
+	bsr	Ed_SamPlay
+	moveq	#EdD_DiskErr,d0
+	bsr	Ed_Dialogue
+	bra	Ed_Loop
+Paerr	moveq	#DEBase+22+1,d0
+	bra.s	Ed_DBis
+; Table des erreurs reconnues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ErDisked
+	dc.b 203,204,205,210,213,214,216,218
+	dc.b 220,221,222,223,224,225,226,0
+	even
+
+; Appel du selecteur de fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_File_Selector
+	tst.b	Ed_Zappeuse(a5)		Zappeuse>>> on revient !
+	bne.s	.Zap
+	movem.l	a2-a3/d2-d7,-(sp)
+	bsr	Ed_GetMessage
+	pea	-2(a0)
+	bsr	Ed_GetNMessage
+	pea	-2(a0)
+	bsr	Ed_GetNMessage
+	pea	-2(a0)
+	bsr	Ed_GetNMessage
+	pea	-2(a0)
+	move.l	sp,a3
+	move.w	#1,Ed_FSel(a5)
+	bsr	Ed_SetBanks
+	JJsr	L_Dsk.FileSelector
+	clr.w	Ed_FSel(a5)
+	lea	16(sp),sp
+	movem.l	(sp)+,a2-a3/d2-d7
+	tst.w	d0
+	rts
+.Zap	moveq	#1,d0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TOKENISATION / DETOKENISATION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; Initialisation des tables de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tok_Init
+	tst.l	Ed_BufT(a5)
+	bne	MTokX
+; Reserve le buffer de tokenisation...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#EdBTT,d0
+	SyCall	MemFastClear
+	beq	MTError
+	move.l	a0,Ed_BufT(a5)
+; Fabrique les tables de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1024*12,d0
+	JJsr	L_ResTempBuffer
+	beq	MTError
+	lea	AdTokens(a5),a3
+	lea	AdTTokens(a5),a4
+	moveq	#-4,d7
+MTok1	addq.w	#4,d7
+	cmp.w	#26*4,d7
+	bcc	MTokX
+	move.l	0(a3,d7.w),d6
+	beq.s	MTok1
+	move.l	d6,a1
+	addq.l	#6,a1
+; Premiere table
+	move.l	TempBuffer(a5),a6
+	move.l	a6,a0
+	lea	2048(a0),a2
+	moveq	#0,d0
+MTok2	move.l	a1,d1
+	lea	4(a1),a1
+MTok0	move.b	(a1)+,d0
+	bpl.s	MTok3
+	and.w	#$7f,d0
+	subq.l	#1,a1
+MTok3	cmp.b	#"!",d0
+	beq.s	MTok0
+	cmp.b	#" ",d0
+	beq.s	MTok0
+	bsr	MnD0
+	cmp.b	#"a",d0
+	bcs.s	MTok4
+	cmp.b	#"z",d0
+	bhi.s	MTok4
+	move.w	d0,(a0)+
+	sub.l	d6,d1
+	move.w	d1,(a2)+
+MTok4	bsr	EdlNext
+	bne.s	MTok2
+	move.w	#-1,(a0)+
+; Deuxieme table
+	move.l	a0,d0
+	sub.l	a6,d0
+	add.l	#26*4+2+4,d0
+	move.l	d0,d1
+	SyCall	MemFastClear
+	beq	MTError
+	move.l	a0,0(a4,d7.w)
+	move.l	a0,a1
+	move.l	a0,d3
+	move.l	d1,(a1)+
+	lea	26*2+2(a1),a2
+	moveq	#"a",d5
+	move.w	#2048,d4
+MTok5	move.l	a2,d0
+	sub.l	d3,d0
+	move.w	d0,(a1)+
+	move.l	a6,a0
+MTok6	move.w	(a0)+,d0
+	bmi.s	MTok7
+	cmp.w	d0,d5
+	bne.s	MTok6
+	move.w	-2(a0,d4.w),(a2)+
+	bra.s	MTok6
+MTok7	clr.w	(a2)+
+	addq.w	#1,d5
+	cmp.w	#"z",d5
+	bls.s	MTok5
+	clr.w	(a1)+
+	bra	MTok1
+MTokX	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	moveq	#0,d0
+	rts
+; Out of memory!
+; ~~~~~~~~~~~~~~
+MTError	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	moveq	#1,d0
+	rts
+; Routine: token suivant
+; ~~~~~~~~~~~~~~~~~~~~~~
+EdlNext	tst.b	(a1)+			; Saute le nom
+	bpl.s	EdlNext
+.Tkln1	tst.b	(a1)+			; Saute les params
+	bpl.s	.Tkln1
+	move.w	a1,d1
+	btst	#0,d1			; Rend pair
+	beq.s	.Tkln2
+	addq.l	#1,a1
+.Tkln2	tst.w	(a1)
+	rts
+; Routine: D0 minuscule
+MnD0	cmp.b	#"A",d0
+	bcs.s	.Mnd0a
+	cmp.b	#"Z",d0
+	bhi.s	.Mnd0a
+	add.b	#32,d0
+.Mnd0a	rts
+
+; Effacement de la tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tok_Del
+; Efface le buffer de tokenisation
+	move.l	Ed_BufT(a5),d0
+	beq.s	DlTkX
+	clr.l	Ed_BufT(a5)
+	move.l	d0,a1
+	move.l	#EdBTT,d0
+	SyCall	MemFree
+; Efface les tables de tokens rapide
+	lea	AdTTokens(a5),a2
+	moveq	#25,d1
+DlTk1	move.l	(a2)+,d0
+	beq.s	DlTk2
+	clr.l	-4(a2)
+	move.l	d0,a1
+	move.l	(a1),d0
+	SyCall	MemFree
+DlTk2	dbra	d1,DlTk1
+DlTkX	rts
+
+
+***********************************************************
+*	TOKENISE LA LIGNE COURANTE
+***********************************************************
+Tokenise:
+	movem.l	a1-a6/d2-d7,-(sp)	* Sauve le debut de la ligne
+	move.l	a1,a4
+	move.l	a0,a3
+	pea	512(a4)
+	clr.w	d5			* RAZ de tous les flags
+	clr.w	(a4)+
+
+******* Compte les TABS
+	moveq	#0,d1
+TokT:	addq.w	#1,d1
+	move.b	(a3)+,d0
+	beq	TokVide
+	cmp.b	#32,d0
+	beq.s	TokT
+	subq.l	#1,a3
+	cmp.w	#127,d1
+	bcs.s	TokT1
+	moveq	#127,d1
+TokT1:	move.b	d1,-1(a4)
+
+******* Un chiffre au debut de la ligne?
+	move.b	(a3),d0
+	cmp.b	#"0",d0
+	bcs.s	TokT2
+	cmp.b	#"9",d0
+	bhi.s	TokT2
+	bset	#1,d5		* Flag VARIABLE
+	bset 	#4,d5		* Flag LABEL
+	move.l	a4,TkAd(a5)
+	move.w	#_TkVar,(a4)+
+	clr.l	(a4)+
+	move.b	(a3)+,(a4)+
+
+******* Une apostrophe en debut de ligne?
+TokT2:	cmp.b 	#"'",d0
+	bne.s	TokLoop
+	addq.l	#1,a3
+	move.w	#_TkRem2,(a4)+
+	bra	TkKt2
+
+*******	Prend une lettre
+TokLoop:
+	cmp.l	(sp),a4
+	bhi	TokFin
+	move.b	(a3)+,d0
+	beq	TokFin
+
+* Rem en route?
+	btst	#5,d5
+	beq.s	TkROn
+	move.b	d0,(a4)+
+	bra.s	TokLoop
+TkROn:
+
+* Variable en route?
+	btst	#1,d5
+	bne	TkVD
+
+* Chaine en route?
+	btst	#0,d5
+	beq.s	TkC2
+	cmp.b	TkChCar(a5),d0
+	beq.s	TkC1
+	move.b	d0,(a4)+
+	bra.s	TokLoop
+* Fin d'une chaine alphanumerique
+TkChf:	subq.l	#1,a3
+TkC1:	bclr	#0,d5
+	move.l	a4,d0
+	btst	#0,d0
+	beq.s	TkC0
+	clr.b	(a4)+
+TkC0:	move.l	TkAd(a5),a0
+	sub.l	a0,d0
+	subq.w	#4,d0
+	move.w	d0,2(a0)
+	bra.s	TokLoop
+* Debut d'une chaine alphanumerique?
+TkC2:	cmp.b	#'"',d0
+	beq 	TkC2a
+	cmp.b	#"'",d0
+	bne	TkOtre
+TkC2a:	move.b	d0,TkChCar(a5)
+	move.l	a4,TkAd(a5)
+	cmp.b	#"'",d0
+	beq.s	TkC2b
+	move.w	#_TkCh1,(a4)+
+	bra.s	TkC2c
+TkC2b:	move.w	#_TkCh2,(a4)+
+TkC2c:	clr.w	(a4)+
+	bset	#0,d5
+	bra.s	TokLoop
+
+* Variable en route
+TkVD:	bsr	Minus
+* Numero de ligne en route
+TkFV:	moveq	#0,d1
+	move.l	TkAd(a5),a0
+	btst	#4,d5
+	beq.s	TkV2
+	cmp.b	#"0",d0
+	bcs.s	TkV0
+	cmp.b	#"9",d0
+	bls.s	TkV3
+TkV0:	bset	#3,d5		Fin du debut de ligne!
+	bclr	#4,d5		Fin du numero de ligne
+	cmp.b	#":",d0
+	beq.s	TkV1
+	subq.l	#1,a3
+	bra.s	TkV1
+* Variable normale / label
+TkV2:	cmp.b	#"_",d0
+	beq.s	TkV3
+	cmp.b	#"0",d0
+	bcs.s	TkV4
+	cmp.b	#"9",d0
+	bls.s	TkV3
+	cmp.b	#"a",d0
+	bcs.s	TkV4
+	cmp.b	#"z",d0
+	bls.s	TkV3
+	cmp.b	#128,d0
+	bls.s	TkV4
+TkV3:	move.b	d0,(a4)+
+	bra	TokLoop
+* Fin de la variable/label/label goto
+TkV4:	bset	#3,d5		* Si pas debut de ligne
+	bne.s	TkV5
+	cmp.b	#":",d0		* Si :
+	bne.s	TkV5
+TkV1:	move.w	#_TkLab,(a0)
+	bra.s	TkV7
+
+TkV5:	subq.l	#1,a3
+	moveq	#2,d1
+	cmp.b	#"$",d0
+	beq.s	TkV6
+	moveq	#1,d1
+	cmp.b	#"#",d0
+	beq.s	TkV6
+	moveq	#0,d1
+	bra.s	TkV7
+TkV6:	addq.w	#1,a3
+TkV7:	move.w	a4,d2		* Rend pair
+	btst	#0,d2
+	beq.s	TkV8
+	clr.b	(a4)+
+TkV8:	move.l	a4,d0
+	sub.l	a0,d0
+	subq.l	#6,d0
+	move.b	d0,4(a0)	* Poke la longueur
+	move.b	d1,5(a0)	* Poke le flag
+	bclr	#1,d5
+	bra	TokLoop
+
+* Saute les 32
+TkOtre:	cmp.b	#" ",d0
+	beq	TokLoop
+
+* Est-ce un chiffre?
+	lea	-1(a3),a0	Pointe le debut du chiffre
+	moveq	#0,d0		Ne pas tenir compte du signe (valtok)
+	move.l	a4,-(sp)
+	move.l	AdTokens(a5),a4	Prend la base des jumps
+	JJsrR	L_ValRout,a1
+	move.l	(sp)+,a4
+	bne.s	TkK
+	move.l	a0,a3
+	move.w	d1,(a4)+
+	move.l	d3,(a4)+
+	cmp.w	#_TkDFl,d1
+	bne	TokLoop
+	move.l	d4,(a4)+
+	bra	TokLoop
+TkK:
+
+******* Tokenisation RAPIDE!
+	moveq	#-4,d7			* D7--> Numero de l'extension
+	lea	AdTokens(a5),a6
+	moveq	#0,d3
+	lea	-10(sp),sp
+* Prend le premiere caractere...
+	moveq	#0,d0
+	move.b	-1(a3),d0
+	bsr	MinD0
+	move.l	d0,d2
+	lea	Dtk_Operateurs(pc),a1	Operateur, LENTS en 1er...
+	bra	TkLIn
+* Lent ou rapide?
+TkUn	cmp.b	#"a",d2
+	bcs.s	Tkl1
+	cmp.b	#"z",d2
+	bhi.s	Tkl1
+	bset	#31,d2
+	move.w	d2,d6
+	sub.w	#"a",d6
+	lsl.w	#1,d6
+* Mode rapide: init!
+Tkr1	lea	AdTTokens(a5),a2
+	move.l	0(a2,d7.w),d0
+	beq.s	Tkl1
+	move.l	d0,a2
+	move.w	4(a2,d6.w),d0
+	add.w	d0,a2			* A2-> Adresse des adresses
+	bset	#31,d6
+	bra	TkRNext
+* Tokens lents
+Tkl1	move.l	0(a6,d7.w),d0
+	beq	TkNext
+	move.l	d0,a1
+	addq.l	#6,a1
+TkLIn	bclr	#31,d6
+	cmp.b	#"!",d2			Entree pour les operateurs...
+	beq	TkKF
+	cmp.b	#"?",d2
+	bne.s	Tkl2
+	move.l	a3,a0
+Tkl1a	move.b	(a0)+,d0		* ? PRINT / ? PRINT #
+	beq.s	Tkl1b
+	cmp.b	#"#",d0
+	beq.s	Tkl1c
+	cmp.s	#" ",d0
+	beq.s	Tkl1a
+Tkl1b	move.w	#_TkPr,d4
+	bra	TkKt0
+Tkl1c	move.l	a0,a3
+	move.w	#_TkHPr,d4
+	bra	TkKt0
+Tkl2	move.l	a1,d4			* Recherche la 1ere lettre
+	lea	4(a1),a1
+	move.w	d2,d0
+Tkl0	move.b	(a1)+,d1
+	bmi	Tkl4
+	cmp.b	#" ",d1
+	beq.s	Tkl0
+	cmp.b	#"!",d1
+	beq.s	Tkl0
+	cmp.b	d0,d1
+	beq.s	TkRe0
+Tkl3	bsr	TklNext
+	bne.s	Tkl2
+* Tableau de token suivant!
+TkNext	addq.l	#4,d7
+	beq	TkUn
+	cmp.l	#4*26,d7
+	bcc.s	.TrouV
+	tst.l	d2
+	bpl.s	Tkl1
+	bra	Tkr1
+.TrouV	tst.w	d3
+	beq	TkKF
+	move.l	(sp),d4
+	move.l	4(sp),a3
+	move.w	8(sp),d7
+	bra	TklT
+* Trouve 1 lettre lent?
+Tkl4	subq.l	#1,a1
+	and.b	#$7f,d1
+	cmp.b	#" ",d1
+	beq	TklT
+	cmp.b	d0,d1
+	bne.s	Tkl3
+	bra	TklT
+* Token rapide suivant
+TkRNext	move.w	(a2)+,d0
+	beq	TkNext
+	move.l	0(a6,d7.w),a1
+	add.w	d0,a1
+	move.l	a1,d4
+	lea	5(a1),a1
+	move.b	-1(a1),d0
+	cmp.b	#"!",d0
+	beq.s	TkRe0a
+	cmp.b	#" ",d0
+	bne.s	TkRe0
+TkRe0a	addq.l	#1,a1
+* Explore les autres lettres du token
+TkRe0	move.l	a3,a0
+TkRe1	move.b	(a0)+,d0
+	bsr	MinD0
+TkRe2	move.b	(a1)+,d1
+	bmi.s	TkKt
+	cmp.b	#" ",d1
+	bne.s	TkRe3
+	cmp.b	d1,d0
+	bne.s	TkRe2
+	beq.s	TkRe1
+TkRe3	cmp.b	d0,d1
+	beq.s	TkRe1
+* Mot cle suivant
+TkRe4	tst.l	d6
+	bpl	Tkl3
+	bmi.s	TkRNext
+* Mot trouve?
+TkKt:	subq.l	#1,a0
+	subq.l	#1,a1
+	and.b	#$7f,d1
+	cmp.b	#" ",d1
+	beq.s	TkKt1
+	cmp.b	d0,d1
+	bne.s	TkRe4
+	addq.l	#1,a0
+TkKt1:
+	tst.l	d6
+	bpl.s	TklTl
+	move.l	a1,d0
+	sub.l	d4,d0
+	cmp.w	d3,d0
+	bls.s	TkRe4
+	move.w	d0,d3
+	move.l	d4,(sp)
+	move.l	a0,4(sp)
+	move.w	d7,8(sp)
+	bra.s	TkRe4
+TklTl	move.l	a0,a3
+*** Token trouve!
+TklT	tst.w	d7			Une extension
+	bgt	TkKtE
+	beq.s	.Norm			Un operateur?
+	lea	Dtk_OpFin(pc),a0
+	sub.l	a0,d4
+	bra.s	TkKt0
+.Norm	sub.l	AdTokens(a5),d4		Un token librairie principale
+TkKt0:	lea	10(sp),sp
+	move.w	d4,(a4)+
+	bclr	#4,d5			Plus de numero de ligne
+	bset	#3,d5			Plus debut de ligne
+	cmp.w	#_TkEqu,d4		Tokens de structure?
+	bcs.s	.SkS
+	cmp.w	#_TkStruS,d4
+	bls	TkKt5
+.SkS	cmp.w	#_TkOn,d4
+	beq.s	TkKt7
+	cmp.w	#_TkData,d4
+	beq	TkKt3
+	cmp.w	#_TkRem1,d4
+	beq.s	TkKt2
+	cmp.w	#_TkFor,d4
+	beq.s	TkKt3
+	cmp.w	#_TkRpt,d4
+	beq.s	TkKt3
+	cmp.w	#_TkWhl,d4
+	beq.s	TkKt3
+	cmp.w	#_TkDo,d4
+	beq.s	TkKt3
+	cmp.w	#_TkExit,d4
+	beq.s	TkKt4
+	cmp.w	#_TkExIf,d4
+	beq.s	TkKt4
+	cmp.w	#_TkIf,d4
+	beq.s	TkKt3
+	cmp.w	#_TkElse,d4
+	beq.s	TkKta
+	cmp.w	#_TkElsI,d4
+	beq.s	TkKt3
+	cmp.w	#_TkThen,d4
+	beq.s	TkKtb
+	cmp.w	#_TkProc,d4
+	beq.s	TkKt6
+	cmp.w	#_TkDPre,d4
+	beq.s	TkKDPre
+	bra	TokLoop
+* ON
+TkKt7:	clr.l	(a4)+
+	bra	TokLoop
+* Debut d'une REM
+TkKt2:	clr.w	(a4)+
+	move.l	a4,TkAd(a5)
+	bset	#5,d5
+	bra	TokLoop
+* Poke les blancss
+TkKt6	clr.w	(a4)+		8 octets
+TkKt5	clr.w	(a4)+		6 octets
+TkKt4	clr.w	(a4)+		4 octets
+TkKt3	clr.w	(a4)+		2 octets
+	bra	TokLoop
+* Token double precision: flags � 1
+TkKDPre	or.b	#%10000011,MathFlags(a5)
+	bra	TokLoop
+* Token d'extension! .w EXT/.b #Ext/.b Nb Par/.w TOKEN
+TkKtE:	lea	10(sp),sp
+	move.w	#_TkExt,(a4)+
+	move.w	d7,d0
+	lsr.w	#2,d0
+	move.b	d0,(a4)+
+	clr.b	(a4)+
+	lea	AdTokens(a5),a6
+	sub.l	0(a6,d7.w),d4
+	move.w	d4,(a4)+
+	bclr	#4,d5
+	bset	#3,d5
+	bra	TokLoop
+* ELSE/THEN: regarde si numero de ligne apres!
+TkKta:	clr.w	(a4)+
+TkKtb:	move.l	a3,a0
+TkKtc:	move.b	(a0)+,d0
+	beq	TokLoop
+	cmp.b	#" ",d0
+	beq	TkKtc
+	cmp.b	#"0",d0
+	bcs	TokLoop
+	cmp.b	#"9",d0
+	bhi	TokLoop
+	move.l	a0,a3
+	move.w	#_TkLGo,d1
+	bra.s	TkKf2
+
+******* Rien trouve ===> debut d'une variable
+TkKF:	lea	10(sp),sp
+	move.w	#_TkVar,d1
+	move.b	-1(a3),d0
+TkKf0:	cmp.b	#"A",d0
+	bcs.s	TkKf1
+	cmp.b	#"Z",d0
+	bhi.s	TkKf1
+	add.b	#"a"-"A",d0
+TkKf1:	cmp.b	#"_",d0
+	beq.s	TkKf2
+	cmp.b	#128,d0
+	bcc.s	TkKf2
+	cmp.b	#"a",d0
+	bcs	TokLoop
+	cmp.b	#"z",d0
+	bhi	TokLoop
+TkKf2:	move.l	a4,TkAd(a5)
+	move.w	d1,(a4)+
+	clr.l	(a4)+
+	move.b	d0,(a4)+
+	bset 	#1,d5
+	bra	TokLoop
+* Appel d'un label?
+TkKf3:	move.w	#_TkLGo,d1
+	cmp.b	#"0",d0
+	bcs.s	TkKf0
+	cmp.b	#"9",d0
+	bls.s	TkKf2
+	bra.s	TkKf0
+
+******* Fin de la tokenisation
+TokFin:	btst	#1,d5		Fin de variable
+	bne	TkFV
+	btst	#0,d5		Fin de chaine alphanumerique
+	bne	TkChf
+
+	moveq	#1,d0		* Quelquechose dans la ligne!
+
+	btst	#5,d5		REM
+	beq.s	TokPaR
+	move.w	a4,d1
+	btst	#0,d1		Rend pair la REM!
+	beq.s	FRem
+	move.b	#" ",(a4)+
+FRem:	move.l	a4,d1		Calcule et stocke la longueur
+	move.l	TkAd(a5),a0
+	sub.l	a0,d1
+	move.w	d1,-2(a0)
+* Marque la fin
+TokPaR:	clr.w	(a4)+
+	clr.w	(a4)
+* Poke la longueur de la ligne / 2
+	move.l	a4,d1
+	addq.l	#4,sp
+	movem.l	(sp)+,a1-a6/d2-d7
+	sub.l	a1,d1
+	cmp.w	#510,d1
+	bcc.s	.Long
+	lsr.w	#1,d1
+	move.b	d1,(a1)
+	lsl.w	#1,d1
+	ext.l	d1
+* Fini!
+	tst.w	d0
+	rts
+* Trop longue!
+.Long	clr.w	(a1)		* <0= Trop longue
+	moveq	#0,d1
+	moveq	#-1,d0
+	rts
+* Ligne vide!
+TokVide	moveq	#0,d0		* = 0 Vide
+	moveq	#0,d1
+	bra.s	TokPaR
+
+* Routine: D0 minuscule
+MinD0	cmp.b	#"A",d0
+	bcs.s	Mnd0a
+	cmp.b	#"Z",d0
+	bhi.s	Mnd0a
+	add.b	#32,d0
+Mnd0a	rts
+* Routine: token suivant
+TklNext	tst.b	(a1)+			* Saute le nom
+	bpl.s	TklNext
+Tkln1	tst.b	(a1)+			* Saute les params
+	bpl.s	Tkln1
+	move.w	a1,d1
+	btst	#0,d1			* Rend pair
+	beq.s	Tkln2
+	addq.l	#1,a1
+Tkln2	tst.w	(a1)
+	rts
+
+
+; ___________________________________________________________________________
+;
+;							DETOKENISATION
+; ___________________________________________________________________________
+;
+;	A0:	Ligne � detokeniser
+; 	A1:	Buffer
+;	D0:	Adresse � d�tecter
+; ___________________________________________________________________________
+;
+Mon_Detok
+	moveq	#-1,d1
+	bra.s	Dtk
+Detok:
+	moveq	#0,d1
+Dtk
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	2(a1),a4		* Place pour la taille
+	move.l	a0,a6
+	move.l	d0,a3
+	move.l	a4,a2
+	clr.w	-(sp)			* Position du curseur
+
+******* Met les espaces devant?
+	tst.w	d1			Mode monitor
+	bne.s	DtkMon
+	tst.b	(a6)			Mode normal
+	beq	DtkFin
+	clr.w	d0
+	move.b	1(a6),d0
+	subq.w	#2,d0
+	bmi.s	Dtk2
+Dtk1:	move.b	#" ",(a4)+
+	dbra	d0,Dtk1
+Dtk2:	addq.l	#2,a6
+DtkMon	clr.w	d5
+
+******* Boucle de detokenisation
+DtkLoop:cmp.l	a3,a6			Trouve la P en X?
+	bne.s	Dtk0
+	move.l	a4,d0
+	sub.l	a2,d0
+	move.w	d0,(sp)
+Dtk0:	move.l	a3,d0			Detournement?
+	bpl.s	.Skip
+	neg.l	d0
+	move.l	d0,a0
+	jsr	(a0)
+.Skip	move.w	(a6)+,d0
+	beq	DtkFin
+	cmp.w	#_TkLGo,d0
+	bls	DtkVar
+	cmp.w	#_TkExt,d0
+	bcs	DtkCst
+	bclr	#0,d5
+	tst.w	d0
+	bmi	DtkOpe				Un operateur?
+	lea	AdTokens(a5),a0
+	cmp.w	#_TkPar1,d0
+	beq	DtkP
+	cmp.w	#_TkDFl,d0
+	beq	DtkCst
+	cmp.w	#_TkExt,d0
+	bne.s	Dtk0a
+
+* Detokenise une extension
+	move.w	2(a6),d1
+	move.b	(a6),d2
+	ext.w	d2
+	move.w	d2,d3
+	lsl.w	#2,d2
+	tst.l	0(a0,d2.w)
+	beq.s	DtkEe
+	move.l	0(a0,d2.w),a0
+	lea	4(a0,d1.w),a0
+	move.l	a0,a1
+	bra.s	Dtk3
+* Extension not present
+DtkEe:	lea	ExtNot(pc),a0
+	add.b	#"A",d3
+	add.b	#$80,d3
+	move.l	a0,a1
+DtkEee	tst.b	(a1)+
+	bpl.s	DtkEee
+	move.b	d3,-1(a1)
+	move.w	#"I",d3
+	bra.s	Dtk3a
+
+* Un operateur
+DtkOpe	lea	Dtk_OpFin(pc),a0
+	bra.s	Dtk0b
+* Instruction normale
+Dtk0a	move.l	AdTokens(a5),a0
+Dtk0b	lea	4(a0,d0.w),a0
+	move.l	a0,a1
+Dtk3:	tst.b	(a1)+
+	bpl.s	Dtk3
+	move.b	(a1),d3
+	cmp.b	#"O",d3
+	beq.s	Dtk4
+	cmp.b	#"V",d3
+	beq.s	Dtk4
+	cmp.b	#"0",d3		0->8 des fonctions
+	bcs.s	Dtk3a
+	cmp.b	#"9",d3
+	bcs.s	Dtk4
+* Instruction : met un espace avant s'il n'y en a pas!
+Dtk3a:	cmp.l	a4,a2		* Debut de la ligne?
+	beq.s	Dtk4
+	cmp.b	#" ",-1(a4)
+	beq.s	Dtk4
+	move.b	#" ",(a4)+
+* Doit prendre le token prececent?
+Dtk4:	move.b	(a0),d1
+	cmp.b	#$80,d1
+	bcs.s	Dtk4x
+	cmp.b	#$9f,d1
+	bhi.s	Dtk4x
+	subq.l	#4,a0
+	sub.b	#$80,d1
+	beq.s	Dtk4a
+	ext.w	d1
+	sub.w	d1,a0
+	bra.s	Dtk4x
+Dtk4a:	move.b	-(a0),d1
+	cmp.b	#"!",d1
+	beq.s	Dtk4x
+	cmp.b	#$80,d1
+	bne.s	Dtk4a
+	bra.s	Dtk4
+* Ecrit le mot
+Dtk4x:	cmp.b	#"!",d1
+	bne.s	Dtk4y
+	addq.l	#1,a0
+Dtk4y:	move.b	DtkMaj1(a5),d1
+	beq.s	Dtk5
+	cmp.b	#1,d1
+	beq.s	Dtk6
+	bne.s	Dtk8
+* 0- Ecrit en MINUSCULES
+Dtk5:	move.b	(a0)+,(a4)+
+	bpl.s	Dtk5
+	and.b	#$7f,-1(a4)
+	bra.s	DtkE
+* 1- Ecrit en MAJUSCULES
+Dtk6:	move.b	(a0)+,d1
+	move.b	d1,d2
+	and.b	#$7f,d1
+	cmp.b	#"a",d1
+	bcs.s	Dtk7
+	cmp.b	#"z",d1
+	bhi.s	Dtk7
+	sub.b	#"a"-"A",d1
+Dtk7:	move.b	d1,(a4)+
+	tst.b	d2
+	bpl.s	Dtk6
+	bra	DtkE
+* 2- Ecrit AVEC UNE MAJUSCULE
+Dtk8:	move.b	(a0)+,d1
+	move.b	d1,d2
+	and.b	#$7f,d1
+	cmp.b	#"a",d1
+	bcs.s	Dtk9
+	cmp.b	#"z",d1
+	bhi.s	Dtk9
+	sub.b	#"a"-"A",d1
+Dtk9:	move.b	d1,(a4)+
+	tst.b	d2
+	bmi.s	DtkE
+Dtk9a:	move.b	(a0)+,d1
+	move.b	d1,(a4)+
+	bmi.s	Dtk9b
+	cmp.b	#" ",d1
+	bne.s	Dtk9a
+	bra.s	Dtk8
+Dtk9b:	and.b	#$7f,-1(a4)
+* Met une espace si c'est une INSTRUCTION
+DtkE:	cmp.w	#_TkRem1,d0
+	beq	DtkRem
+	cmp.w	#_TkRem2,d0
+	beq	DtkRem
+	cmp.b	#"I",d3
+	bne.s	DtkE1
+	move.b	#" ",(a4)+
+* Saute le token...
+DtkE1:	move.l	a6,a0
+	bsr	TInst
+	move.l	a0,a6
+	bra	DtkLoop
+* Ouverture de parenthese, jamais d'espace!
+DtkP:	cmp.l	a4,a2
+	beq.s	DtkP1
+	cmp.b 	#" ",-1(a4)
+	bne.s	DtkP1
+	subq.l	#1,a4
+DtkP1:	move.b	#"(",(a4)+
+	bra.s	DtkE1
+
+******* Detokenisation de VARIABLE
+DtkVar:	btst	#0,d5		* Si variable juste avant, met 32
+	beq.s	DtkV0
+	cmp.b	#" ",-1(a4)
+	beq.s	DtkV0
+	move.b	#" ",(a4)+
+DtkV0:	moveq	#0,d2
+	move.b	2(a6),d2	* Longueur
+	move.w	d2,d1
+	subq.w	#1,d1
+	move.b	3(a6),d3	FLAG
+	lea	4(a6),a0
+	moveq	#0,d4
+	cmp.w	#_TkLab,d0
+	bne.s	DtkV1
+	moveq	#1,d4		D4: 0=> Variable
+	cmp.b	#"0",(a0)	    1=> Label
+	bcs.s	DtkV1		   -1=> Numero ligne
+	cmp.b	#"9",(a0)
+	bhi.s	DtkV1
+	moveq	#-1,d4
+DtkV1:	move.b	DtkMaj2(a5),d0
+	beq.s	DtkV2
+	cmp.b	#1,d0
+	beq.s	DtkV3
+	bne.s	DtkV5
+* 0- En MINUSCULES
+DtkV2:	move.b	(a0)+,d0
+	beq	DtkVF
+	move.b	d0,(a4)+
+	dbra	d1,DtkV2
+	bra	DtkVF
+* 1- En MAJUSCULES
+DtkV3:	move.b	(a0)+,d0
+	beq	DtkVF
+	cmp.b	#"a",d0
+	bcs.s	DtkV4
+	cmp.b	#"z",d0
+	bhi.s	DtkV4
+	sub.b	#"a"-"A",d0
+DtkV4:	move.b	d0,(a4)+
+	dbra	d1,DtkV3
+	bra	DtkVF
+* 2- Avec UNE MAJUSCULE
+DtkV5:	move.b	(a6)+,d0
+	cmp.b	#"a",d0
+	bcs.s	DtkV6
+	cmp.b	#"z",d0
+	bhi.s	DtkV6
+	sub.b	#"a"-"A",d0
+DtkV6:	move.b	d0,(a4)+
+	dbra	d1,DtkV2
+* Saute la variable / met le flag de la variable
+DtkVF:	bset	#0,d5
+	lea	4(a6,d2.w),a6
+	moveq	#":",d0
+	tst.w	d4
+	bmi	DtkLoop
+	bne.s	DtkV7
+	moveq	#"#",d0
+	and.b	#3,d3
+	cmp.b	#1,d3
+	beq.s	DtkV7
+	moveq	#"$",d0
+	cmp.b	#2,d3
+	bne	DtkLoop
+DtkV7:	move.b	d0,(a4)+
+	bra	DtkLoop
+
+******* Detokenise des constantes
+DtkCst:	bclr	#0,d5		Si variable avant, met un espace!
+	beq.s	DtkC0
+	cmp.b	#" ",-1(a4)
+	beq.s	DtkC0
+	move.b	#" ",(a4)+
+DtkC0:	cmp.w	#_TkEnt,d0
+	beq.s	DtkC3
+	cmp.w	#_TkHex,d0
+	beq.s	DtkC4
+	cmp.w	#_TkBin,d0
+	beq.s	DtkC5
+	cmp.w	#_TkFl,d0
+	beq.s	DtkC6
+	cmp.w	#_TkDFl,d0
+	beq.s	DtkC7
+* Detokenise une chaine alphanumerique
+	cmp.w	#_TkCh1,d0
+	bne.s	DtkC0a
+	moveq	#'"',d0
+	bra.s	DtkC0b
+DtkC0a:	moveq	#"'",d0
+DtkC0b:	move.b	d0,(a4)+
+	move.w	(a6)+,d1
+	subq.w	#1,d1
+	bmi.s	DtkC2
+DtkC1:	move.b	(a6)+,(a4)+
+	dbra	d1,DtkC1
+	move.w	a6,d1
+	btst	#0,d1
+	beq.s	DtkC2
+	addq.l	#1,a6
+DtkC2:	move.b	d0,(a4)+
+	bra	DtkLoop
+* Detokenise un chiffre entier
+DtkC3:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToDec,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre HEXA
+DtkC4:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToHex,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre BINAIRE
+DtkC5:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToBin,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre FLOAT simple precision
+DtkC6:	move.l	(a6)+,d0
+	move.l	a4,a0
+	moveq	#-1,d4
+	moveq	#0,d5
+ 	JJsrR	L_FloatToAsc,a1
+	exg	a0,a4
+	bra.s	DtkC8
+* Detokenise un chiffre FLOAT double precision
+DtkC7	move.l	(a6)+,d0
+	move.l	(a6)+,d1
+	pea	2.w			Automatique
+	pea	15.w			15 maxi
+	move.l	a4,-(sp)		Buffer
+	move.l	d1,-(sp)		Le chiffre
+	move.l	d0,-(sp)
+	JJsrR	L_DoubleToAsc,a1
+	lea	20(sp),sp
+	move.l	a4,a0
+.Fin	tst.b	(a4)+
+	bne.s	.Fin
+	subq.l	#1,a4
+; Si pas 0.0, le met!
+DtkC8	move.b	(a0)+,d0		* Si pas de .0, le met!
+	beq.s	DtkC9
+	cmp.b	#".",d0
+	beq	DtkLoop
+	cmp.b	#"E",d0
+	beq	DtkLoop
+	bra.s	DtkC8
+DtkC9	move.b	#".",(a4)+
+	move.b	#"0",(a4)+
+	bra	DtkLoop
+
+******* Token d'extension
+DtkX:	bra	DtkLoop
+
+******* REMarque
+DtkRem:	addq.w	#2,a6		Saute la longueur
+DtkR:	tst.b	(a6)
+	beq	DtkLoop
+	move.b	(a6)+,(a4)+
+	bra.s	DtkR
+
+******* Fin de la DETOKENISATION
+DtkFin:	sub.l	a2,a4		* Ramene PX
+	move.w	a4,-2(a2)
+	move.l	a4,a0
+	move.w	(sp)+,d0
+	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+;	RAMENE LA TAILLE DE L'INSTRUCTION D0 en D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TInst:	tst.w	d0
+	beq	TFin
+	cmp.w	#_TkLGo,d0
+	bls	TVar
+	cmp.w	#_TkCh1,d0
+	beq	TCh
+	cmp.w	#_TkCh2,d0
+	beq	TCh
+	cmp.w	#_TkRem1,d0
+	beq	TCh
+	cmp.w	#_TkRem2,d0
+	beq	TCh
+	cmp.w	#_TkDFl,d0
+	beq.s	T8
+	cmp.w	#_TkFl,d0
+	bls.s	T4
+	cmp.w	#_TkExt,d0
+	beq.s	T4
+	cmp.w	#_TkFor,d0
+	beq.s	T2
+	cmp.w	#_TkRpt,d0
+	beq.s	T2
+	cmp.w	#_TkWhl,d0
+	beq.s	T2
+	cmp.w	#_TkDo,d0
+	beq.s	T2
+	cmp.w	#_TkExit,d0
+	beq.s	T4
+	cmp.w	#_TkExIf,d0
+	beq.s	T4
+	cmp.w	#_TkIf,d0
+	beq.s	T2
+	cmp.w	#_TkElse,d0
+	beq.s	T2
+	cmp.w	#_TkElsI,d0
+	beq.s	T2
+	cmp.w	#_TkData,d0
+	beq.s	T2
+	cmp.w	#_TkProc,d0
+	beq.s	T8
+	cmp.w	#_TkOn,d0
+	beq.s	T4
+	cmp.w	#_TkEqu,d0
+	bcs.s	T0
+	cmp.w	#_TkStruS,d0
+	bls.s	T6
+T0:	moveq	#1,d1
+TFin:	rts
+T2:	addq.l	#2,a0
+	bra.s	T0
+T4:	addq.l	#4,a0
+	bra.s	T0
+T8:	addq.l	#8,a0
+	bra.s	T0
+T6:	addq.l	#6,a0
+	bra.s	T0
+TCh:	add.w	(a0)+,a0
+	move.w	a0,d1
+	btst	#0,d1
+	beq.s	T0
+	addq.l	#1,a0
+	bra.s	T0
+TVar:	moveq	#0,d1
+	move.b	2(a0),d1
+	lea	4(a0,d1.w),a0
+	bra.s	T0
+
+;	Passe en minuscules
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Minus:	cmp.b 	#"A",d0
+	bcs.s	.Skip
+	cmp.b	#"Z",d0
+	bhi.s	.Skip
+	add.b	#"a"-"A",d0
+.Skip	rts
+
+
+;						Table des operateurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dtk_Operateurs
+	dc.w	1,1
+	dc.b 	" xor"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	" or"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	" and"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"<",">"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	">","<"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"<","="+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"=","<"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	">","="+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"=",">"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"="+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"<"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	">"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"+"+$80,"O22",-1
+	dc.w	1,1
+	dc.b 	"-"+$80,"O22",-1
+	dc.w	1,1
+	dc.b 	" mod"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"*"+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"/"+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"^"+$80,"O00",-1
+	even
+Dtk_OpFin
+	dc.l 	0
+ExtNot	dc.b	"Extension ",$80
+
+	Even
+
+
+; _____________________________________________________________________________
+
+Ed_Vide		dc.w 0
+CurNor		dc.b	%00000000
+		dc.b	%00000000
+		dc.b	%00000000
+		dc.b	%00000000
+		dc.b	%00000000
+		dc.b	%11111111
+		dc.b	%11111111
+		dc.b	%00000000
+CurBloc		dc.b	%10101010
+		dc.b	%01010101
+		dc.b	%10101010
+		dc.b	%01010101
+		dc.b	%10101010
+		dc.b	%01010101
+		dc.b	%10101010
+		dc.b	%01010101
+
+; Controle curseur
+; ~~~~~~~~~~~~~~~~
+CRet		dc.b	13,10,0,0
+ChCuOn		dc.b	27,"C1",0
+ChCuOff		dc.b	27,"C0",0
+
+; Marque des menus actives
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+MenuMark0	dc.b	"   ",0
+MenuMark1	dc.b	" ->",0
+; Nom des touches de fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mt1
+Menus_Touches1	dc.b	0,K0-Mt1			0
+		dc.b	Shf,K1-Mt1			1
+		dc.b	Ctr,K2-Mt1			2
+		dc.b	Ami,K3-Mt1			3
+		dc.b	Alt,K4-Mt1			4
+		dc.b	Ctr+Shf,K5-Mt1
+		dc.b	Ctr+Ami,K6-Mt1
+		dc.b	Ctr+Alt,K7-Mt1
+		dc.b	Ami+Shf,K8-Mt1
+		dc.b	Ami+Alt,K9-Mt1
+		dc.b	Alt+Shf,K10-Mt1			0
+		dc.b	Shf+Alt+Ami,K11-Mt1		11
+		dc.b	Ctr+Alt+Ami,K12-Mt1		12
+		dc.b	Ctr+Shf+Ami,K13-Mt1		13
+		dc.b	Ctr+Shf+Alt,K14-Mt1		14
+		dc.b	Ctr+Shf+Alt+Ami,K15-Mt1		5
+K0		dc.b	"[   ",0,"   ]",0		0
+K1		dc.b	"[Shift+",0,"]",0		1
+K2		dc.b	"[Contr+",0,"]",0		2
+K3		dc.b	"[Amiga+",0,"]",0		3
+K4		dc.b	"[Alter+",0,"]",0		4
+K5		dc.b 	"[Ct+Sh+",0,"]",0		5
+K6		dc.b	"[Ct+Am+",0,"]",0		6
+K7		dc.b	"[Ct+Al+",0,"]",0		7
+K8		dc.b	"[Am+Sh+",0,"]",0		8
+K9		dc.b	"[Am+Al+",0,"]",0		9
+K10		dc.b	"[Al+Sh+",0,"]",0		10
+K11		dc.b	"[SAlAm+",0,"]",0		11
+K12		dc.b	"[CAlAm+",0,"]",0		12
+K13		dc.b 	"[CShAm+",0,"]",0		13
+K14		dc.b	"[CShAl+",0,"]",0		14
+K15		dc.b	"[CSAAm+",0,"]",0		15
+Menus_Touches3	dc.b	"[ SubMenu ]",0
+Menus_Touches2	dc.b	$80+$45,"Esc"
+		dc.b	$80+$42,"Tab"
+		dc.b	$80+$46,"Del"
+		dc.b	$80+$41,"Bck"
+		dc.b	$80+$5f,"Hlp"
+		dc.b	$80+$44,"Ret"
+		dc.b	$80+$4c,"Up "
+		dc.b	$80+$4f,"Lft"
+		dc.b	$80+$4e,"Rgt"
+		dc.b	$80+$4d,"Dwn"
+		dc.b	$80+$0f,"N0"
+		dc.b	$80+$1d,"N1"
+		dc.b	$80+$1e,"N2"
+		dc.b	$80+$1f,"N3"
+		dc.b	$80+$2d,"N4"
+		dc.b	$80+$2e,"N5"
+		dc.b	$80+$2f,"N6"
+		dc.b	$80+$3d,"N7"
+		dc.b	$80+$3e,"N8"
+		dc.b	$80+$3f,"N9"
+		dc.b	$80+$3c,"N."
+		dc.b	$80+$43,"Ent"
+		dc.b	$80+$50,"F1 "
+		dc.b	$80+$51,"F2 "
+		dc.b	$80+$52,"F3 "
+		dc.b	$80+$53,"F4 "
+		dc.b	$80+$54,"F5 "
+		dc.b	$80+$55,"F6 "
+		dc.b	$80+$56,"F7 "
+		dc.b	$80+$57,"F8 "
+		dc.b	$80+$58,"F9 "
+		dc.b	$80+$59,"F10"
+		dc.b	$80,$00
+		Even
+
+; Numero des messages dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EdD_Title	equ	0
+EdD_Quit	equ	2
+EdD_NAll	equ	3
+EdD_Search	equ	4
+EdD_Replace	equ	6
+EdD_WBlock	equ	8
+EdD_WText	equ	9
+EdD_Changes	equ	10
+EdD_Saved	equ	11
+EdD_Macro1	equ	13
+EdD_Macro2	equ	14
+EdD_Macro3	equ	15
+EdD_MacroD	equ	18
+EdD_MacroNA	equ	19
+EdD_MacroAll	equ	20
+EdD_MacroEra	equ	21
+EdD_MacroNo	equ	22
+EdD_MacroPas	equ	23
+EdD_KyMn1       equ     24
+EdD_KyMn2       equ     27
+EdD_KyMn3       equ     28
+EdD_KyMnE       equ     26
+EdD_PrgMn1	equ	30
+EdD_PrgMn2	equ	31
+EdD_PrgMn3	equ	32
+EdD_PrgMnE	equ	33
+EdD_GotoL	equ	35
+EdD_SetBuf	equ	36
+EdD_TooSmall	equ	37
+EdD_SetTab	equ	38
+EdD_MnUsA	equ	40
+EdD_MnUsD	equ	41
+EdD_MnUs2	equ	42
+EdD_MnUsE	equ	43
+EdD_MnUs	equ	44
+EdD_SvConf	equ	45
+EdD_CSaved	equ	46
+EdD_AExist	equ	47
+EdD_ASave	equ	48
+EdD_OQuit	equ	49
+EdD_Avert	equ	50
+EdD_NoWarm	equ	51
+EdD_WarmErr	equ	52
+EdD_WarmDel	equ	53
+EdD_Infos	equ	54
+EdD_AboutE	equ	55
+EdD_DiskErr	equ	58
+EdD_Ligne	equ	59
+EdD_PBloc	equ	60
+EdD_PProg	equ	61
+EdD_WQuit	equ	62
+;	ENDC
diff --git a/+Editor_Config.s b/+Editor_Config.s
new file mode 100644
index 0000000..39f3597
--- /dev/null
+++ b/+Editor_Config.s
@@ -0,0 +1,1167 @@
+
+	OPT	D-
+	Include	"+Equ.s"
+; _____________________________________________________________________________
+;
+;						DEFINITION DES MESSAGES AMOS
+; _____________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ______________________________________________________________________________
+
+EdT	Macro
+	dc.b	0
+	dc.b	.\@E-.\@D
+.\@D	dc.b	"\2"
+.\@E
+	EndM
+EdD	Macro
+	dc.b	0
+	dc.b	.\@E-.\@D
+.\@D	\2
+.\@E
+	EndM
+
+Debut
+
+
+; Config par default
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		dc.l	.Ed_FConfig-.Ed_DConfig
+.Ed_DConfig
+; Screen definition
+.Ed_Sx		dc.w	640		0
+.Ed_Sy		dc.w	256		2 >>> Change par install
+.Ed_Wx		dc.w	129		4
+.Ed_Wy		dc.w	50		6
+.Ed_VScrol	dc.w	300		8
+.Ed_Inter	dc.b	0		10
+		dc.b	0		11
+; Colour back
+.Ed_ColB	dc.w	$000		12
+; Length UNDO
+.Ed_LUndo	dc.l	4096		14 >>> Change par install
+.Ed_NUndo	dc.l	1000		18 >>> Change par install
+; Untok case
+.DtkMaj1	dc.b	2		22
+.DtkMaj2	dc.b	1		23
+; Flags
+.Ed_SvBak	dc.b	-1		24
+.EdM_Keys	dc.b	-1		25
+.Esc_KMemMax	dc.w	20		26
+; Editor palette
+.Ed_Palette	dc.w	$000,$06f,$077,$eee,$f00,$0dd,$0aa,$FF3		28
+; Escape mode position
+		dc.w	200		44
+		dc.w	256		46
+		ds.l	7		48 Securite
+; Flags
+.Ed_AutoSave	dc.l	0		76
+.Ed_AutoSaveMn	dc.l	0		80
+.Ed_SchMode	dc.w 	0		84
+.Ed_Tabs	dc.w	3		86
+.Esc_Output	dc.b	1		88
+.Ed_QuitFlags	dc.b	1		89 Par default: confirm quit
+.Ed_Insert	dc.b	-1		90
+.Ed_Sounds	dc.b	0		91
+
+; Programmes autoload
+; ~~~~~~~~~~~~~~~~~~~
+.Ed_AutoLoad
+		dc.b 	0,0,0		92	1 Curseur HAUT
+		dc.b 	0,0,0			2 Curseur BAS
+		dc.b 	0,0,0			3 Curseur GAUCHE
+		dc.b 	0,0,0			4 Curseur DROITE
+		dc.b 	0,0,0			5 Haut page
+		dc.b 	0,0,0			6 Bas page
+		dc.b 	0,0,0			7 Mot gauche
+		dc.b 	0,0,0			8 Mot droite
+		dc.b 	0,0,0			9 Page UP
+		dc.b 	0,0,0			10 Page down
+		dc.b 	0,0,0			11 Debut ligne
+		dc.b 	0,0,0			12 Fin ligne
+		dc.b 	0,0,0			13 Etat Haut
+		dc.b 	0,0,0			14 Etat Bas
+		dc.b 	0,0,0			15 Bas Haut
+		dc.b 	0,0,0			16 Bas Bas
+		dc.b 	0,0,0			17 Haut texte
+		dc.b 	0,0,0			18 Bas texte
+		dc.b 	0,0,0			19 Return
+		dc.b 	0,0,0			20 Backspace
+		dc.b 	0,0,0			21 Delete
+		dc.b 	0,0,0			22 Efface ligne
+		dc.b 	0,0,0			23 Delete ligne
+		dc.b 	0,0,0			24 Tab
+		dc.b 	0,0,0			25 Del tab
+		dc.b 	0,0,0			26 Fix tab
+		dc.b 	1,1,0			27 Help
+		dc.b 	0,0,0			28 ESC
+		dc.b 	0,0,0			29 Insert ligne
+		dc.b 	0,0,0			30 Delete-FIN ligne
+		dc.b 	0,0,0			31 Previous label
+		dc.b 	0,0,0			32 Next label
+		dc.b 	0,0,0			33 Load
+		dc.b 	0,0,0			34 Save As
+		dc.b 	0,0,0			35 Save
+		dc.b 	0,0,0			36 Delete Mot
+		dc.b 	0,0,0			37 Backspace Mot
+		dc.b 	0,0,0			38 Hide Current Window
+		dc.b 	0,0,0			39 Set Marks
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0			49 Goto Marks
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0
+		dc.b 	0,0,0			59 Switch Bloc
+		dc.b 	0,0,0			60 Forget Bloc
+		dc.b 	0,0,0			61 Open + Load
+		dc.b 	0,0,0			62 Cut
+		dc.b 	0,0,0			63 Paste
+		dc.b 	0,0,0			64 Delete to SOL
+		dc.b 	0,0,0			65 Undo
+		dc.b 	0,0,0			66 Search
+		dc.b 	0,0,0			67 Search Next
+		dc.b 	0,0,0			68 Search Previous
+		dc.b 	0,0,0			69 Set All block
+		dc.b 	0,0,0			70 Recall alert
+		dc.b 	0,0,0			71
+		dc.b 	0,0,0			72 Store bloc
+		dc.b 	0,0,0			73 Set Key Shortcut
+		dc.b 	0,0,0			74 Set Program Menu
+		dc.b 	0,0,0			75 Flip Insert Mode
+		dc.b 	0,0,0			76 Goto Line Number
+		dc.b 	0,0,0			77 Run
+		dc.b 	0,0,0			78 Test
+		dc.b 	0,0,0			79 Indent
+		dc.b 	0,0,0			80 New (Clear Project)
+		dc.b 	0,0,0			81 Close
+		dc.b 	0,0,0			82 Quit
+		dc.b 	0,0,0			83 Informations
+		dc.b 	0,0,0			84 Merge
+		dc.b 	0,0,0			85 Merge Ascii
+		dc.b 	0,0,0			86 Print Bloc
+		dc.b 	0,0,0			87 Open/Close Proc
+		dc.b 	0,0,0			88 Load Hidden Program
+		dc.b 	0,0,0			89 Open All
+		dc.b 	0,0,0			90 Close All
+		dc.b 	0,0,0			91 Previous Window
+		dc.b 	0,0,0			92 Next Window
+		dc.b 	0,0,0			93 Enlarge/Schrink Window
+		dc.b 	0,0,0			94 Redo
+		dc.b 	0,0,0			95 Split View
+		dc.b 	0,0,0			96 Link cursor
+		dc.b 	0,0,0			97 Save Block as Ascii
+		dc.b 	0,0,0			98 Save Block
+		dc.b 	0,0,0			99 Replace
+		dc.b 	0,0,0			100 Replace Next
+		dc.b 	0,0,0			101 Replace Previous
+		dc.b 	0,0,0			102 New All Hidden Programs
+		dc.b 	0,0,0			103 Open New
+		dc.b 	0,0,0			104 Show/Hide key shortcuts
+		dc.b 	0,0,0			105 Goto WB
+		dc.b 	0,0,0			106 Set New Macro
+		dc.b 	0,0,0			107 Clear One Macro
+		dc.b 	0,0,0			108 Clear All Macros
+		dc.b 	0,0,0			109 Save Macros
+		dc.b 	0,0,0			110 Load Macros
+		dc.b 	0,0,0			111 Run Hidden
+		dc.b 	0,0,0			112 Edit Hidden
+		dc.b 	0,0,0			113 New Hidden
+		dc.b 	0,0,0			114 Text Buffer
+		dc.b 	1,32,33			0   Edit Objects
+		dc.b 	1,34,35			    Edit Icons
+		dc.b 	1,36,37			    Edit Samples
+		dc.b 	1,38,39			    Edit Resource
+		dc.b 	0,0,0			    -------------
+		dc.b 	1,40,0			5   Disc Manager
+		dc.b 	1,41,0			    Object Editor
+		dc.b 	1,42,0			    Sample Maker
+		dc.b 	1,43,0			    Resource Maker
+		dc.b 	0,0,0			    -------------
+		dc.b 	1,44,0			10  Re-tokeniser
+		dc.b 	1,45,0			    Compiler Shell
+		dc.b 	1,46,0			    Compile
+		dc.b 	0,0,0			    User Menu
+		dc.b 	0,0,0			    User Menu
+		dc.b 	0,0,0			15  User Menu
+		dc.b 	0,0,0			    User Menu
+		dc.b 	0,0,0			    User Menu
+		dc.b 	0,0,0			    User Menu
+		dc.b 	0,0,0			    User Menu
+		dc.b 	0,0,0			135 Add User menu
+		dc.b 	0,0,0			136 Del User menu
+		dc.b 	0,0,0			137 Save Default config
+		dc.b 	0,0,0			138 Save as
+		dc.b 	0,0,0			139 Load default config
+		dc.b 	0,0,0			140 Load as
+		dc.b 	0,0,0			141
+		dc.b 	0,0,0			142
+		dc.b 	0,0,0			143
+		dc.b 	0,0,0			144
+		dc.b 	0,0,0			145
+		dc.b 	0,0,0			146
+		dc.b 	0,0,0			147
+		dc.b 	0,0,0			148
+		dc.b 	0,0,0			149
+		dc.b 	0,0,0			150
+		dc.b 	0,0,0			151
+		dc.b 	1,1,2			152 Help Menu
+		dc.b 	1,1,3			153 Using Help
+		dc.b 	1,1,4			154 Editor
+		dc.b 	1,1,5			155 Direct mode
+		dc.b 	1,1,6			156 Syntax
+		dc.b 	1,1,7			157 Basics
+		dc.b 	1,1,8			158 Screen
+		dc.b 	1,1,9			159 Object
+		dc.b 	1,1,10			160 Audio
+		dc.b 	1,1,11			161 Interface
+		dc.b 	1,1,12			162 Input
+		dc.b 	1,1,13			163 AmigaDos
+		dc.b 	1,1,14			164 Debugging
+		dc.b 	1,1,15			165 Machine
+		dc.b 	1,1,16			166 Tables
+		dc.b 	1,1,17			167 News
+		dc.b 	1,1,2			168 Vide
+		dc.b 	1,1,2			169 Vide
+		dc.b 	0,0,0			170
+		dc.b 	0,0,0			171
+		dc.b 	1,25,0			172 Interpreter Setup
+		dc.b 	1,26,27			173 Editor Setup
+		dc.b 	1,26,28			174 Editor Menus
+		dc.b 	1,26,29			175 Editor Dialogs
+		dc.b 	1,26,30			176 Editor Test-Time
+		dc.b 	1,26,31			177 Editor Run-Time
+		dc.b 	1,26,24			178 Editor Colour Palette
+		dc.b 	0,0,0			179 Previous programs
+		dc.b 	0,0,0			180 Next programs
+		dc.b 	0,0,0			181 Previous programs
+		dc.b 	0,0,0			182 All text as block
+		dc.b 	0,0,0			183
+		dc.b 	0,0,0			184
+
+; Touches de fonction
+; ~~~~~~~~~~~~~~~~~~~
+.Ed_KFonc:	dc.b 	$80+$4C,$00,0		1 Curseur HAUT
+		dc.b 	$80+$4D,$00,0		2 Curseur BAS
+		dc.b 	$80+$4F,$00,0		3 Curseur GAUCHE
+		dc.b 	$80+$4E,$00,0		4 Curseur DROITE
+		dc.b 	$80+$4C,Shf,0		5 Haut page
+		dc.b 	$80+$4D,Shf,0		6 Bas page
+		dc.b 	$80+$4F,Shf,0		7 Mot gauche
+		dc.b 	$80+$4E,Shf,0		8 Mot droite
+		dc.b 	$80+$4C,Ctr,0		9 Page UP
+		dc.b 	$80+$4D,Ctr,0		10 Page down
+		dc.b 	$80+$4F,Ctr,0		11 Debut ligne
+		dc.b 	$80+$4E,Ctr,0		12 Fin ligne
+		dc.b 	$80+$3e,Ami+Shf,0	13 Etat Haut
+		dc.b 	$80+$1e,Shf+Ami,0	14 Etat Bas
+		dc.b 	$80+$3e,Ami,0		15 Bas Haut
+		dc.b 	$80+$1e,Ami,0		16 Bas Bas
+		dc.b 	$80+$4C,Ctr+Shf,0	17 Haut texte
+		dc.b 	$80+$4D,Ctr+Shf,0	18 Bas texte
+		dc.b 	13,$00,0		19 Return
+		dc.b 	$80+$41,0,0		20 Backspace
+		dc.b 	$80+$46,0,0		21 Delete
+		dc.b 	"Q",Ctr,0		22 Efface ligne
+		dc.b 	"Y",Ctr,0		23 Delete ligne
+		dc.b 	$80+$42,0,0		24 Tab
+		dc.b 	$80+$42,Shf,0		25 Del tab
+		dc.b 	$80+$42,Ctr,0		26 Fix tab
+		dc.b 	$80+$5F,0,0		27 Help
+		dc.b 	$80+$45,0,0		28 ESC
+		dc.b 	$80+$59,0,0		29 Insert ligne
+		dc.b 	$80+$46,Ctr,0		30 Delete-FIN ligne
+		dc.b 	$80+$4C,Alt,0		31 Previous label
+		dc.b 	$80+$4D,Alt,0		32 Next label
+		dc.b 	"L",Ami,0		33 Load
+		dc.b 	"S",Ami+Shf,0		34 Save As
+		dc.b 	"S",Ami,0		35 Save
+		dc.b 	$80+$46,Shf,0		36 Delete Mot
+		dc.b 	$80+$41,Shf,0		37 Backspace Mot
+		dc.b 	"H",Ami,0		38 Hide Current Window
+		dc.b 	1,0,0			39 Set Marks
+		dc.b 	1,0,0
+		dc.b 	1,0,0
+		dc.b 	1,0,0
+		dc.b 	$80+$2d,Ctr+Shf,0
+		dc.b 	$80+$2e,Ctr+Shf,0
+		dc.b 	$80+$2f,Ctr+Shf,0
+		dc.b 	$80+$3d,Ctr+Shf,0
+		dc.b 	$80+$3e,Ctr+Shf,0
+		dc.b 	$80+$3f,Ctr+Shf,0
+		dc.b 	$80+$0f,Ctr,0		49 Goto Marks
+		dc.b 	$80+$1d,Ctr,0
+		dc.b 	$80+$1e,Ctr,0
+		dc.b 	$80+$1f,Ctr,0
+		dc.b 	$80+$2d,Ctr,0
+		dc.b 	$80+$2e,Ctr,0
+		dc.b 	$80+$2f,Ctr,0
+		dc.b 	$80+$3d,Ctr,0
+		dc.b 	$80+$3e,Ctr,0
+		dc.b 	$80+$3f,Ctr,0
+		dc.b 	"B",Ctr,0		59 Switch Bloc
+		dc.b 	"F",Ctr,0		60 Forget Bloc
+		dc.b 	"L",Ami+Shf,0		61 Open + Load
+		dc.b 	"C",Ctr,0		62 Cut
+		dc.b 	"P",Ctr,0		63 Paste
+		dc.b 	$80+$41,Ctr,0		64 Delete to SOL
+		dc.b 	"U",Ctr,0		65 Undo
+		dc.b 	"F",Ami,0		66 Search
+		dc.b 	"N",Ami,0		67 Search Next
+		dc.b 	"B",Ami,0		68 Search Previous
+		dc.b 	1,0,0			69 Set All block
+		dc.b 	"K",Ctr,0		70 Recall alert
+		dc.b 	1,0,0			71
+		dc.b 	"S",Ctr,0		72 Store bloc
+		dc.b 	1,0,0			73 Set Key Shortcut
+		dc.b 	1,0,0			74 Set Program Menu
+		dc.b 	$80+$57,0,0		75 Flip Insert Mode
+		dc.b 	"G",Ami,0		76 Goto Line Number
+		dc.b 	$80+$50,0,0		77 Run
+		dc.b 	$80+$51,0,0		78 Test
+		dc.b 	$80+$52,0,0		79 Indent
+		dc.b 	"Q",Ami,0		80 New
+		dc.b 	"Q",Ami+Shf,0		81 Close
+		dc.b 	1,0,0  			82 Quit
+		dc.b 	"I",Ami,0		83 Informations
+		dc.b 	"M",Ami,0		84 Merge
+		dc.b 	"M",Ami+Shf,0		85 Merge Ascii
+		dc.b 	"P",Ctr+Shf,0		86 Print Bloc
+		dc.b 	$80+$58,0,0		87 Open/Close Proc
+		dc.b 	1,0,0			88 Load Hidden Program
+		dc.b 	"O",Ami+Shf,0		89 Open All
+		dc.b 	"C",Ami+Shf,0		90 Close All
+		dc.b 	$80+$55,0,0		91 Previous Window
+		dc.b 	$80+$56,0,0		92 Next Window
+		dc.b 	$80+$2e,Ami,0		93 Enlarge/Schrink Window
+		dc.b 	"U",Ctr+Shf,0		94 Redo
+		dc.b 	"V",Shf+Ami,0		95 Split View
+		dc.b 	"C",Ami,0		96 Link cursor
+		dc.b 	"A",Ctr+Shf,0		97 Save Block as Ascii
+		dc.b 	"S",Ctr+Shf,0		98 Save Block
+		dc.b 	"F",Ami+Shf,0		99 Replace
+		dc.b 	"N",Ami+Shf,0		100 Replace Next
+		dc.b 	"B",Ami+Shf,0		101 Replace Previous
+		dc.b 	1,0,0			102 New All Hidden Programs
+		dc.b 	"W",Shf+Ami,0		103 Open New
+		dc.b 	"K",Ami,0		104 Show/Hide key shortcuts
+		dc.b 	1,0,0			105 Goto WB
+		dc.b 	"M",Ctr,0		106 Set New Macro
+		dc.b 	1,0,0			107 Clear One Macro
+		dc.b 	1,0,0			108 Clear All Macros
+		dc.b 	1,0,0			109 Save Macros
+		dc.b 	1,0,0			110 Load Macros
+		dc.b 	1,0,0			111 Run Hidden
+		dc.b 	1,0,0			112 Edit Hidden
+		dc.b 	1,0,0			113 New Hidden
+		dc.b 	"T",Ami+Shf,0		114 Text Buffer
+		dc.b 	1,0,0			0   User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			5   User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			10  User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			15  User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	1,0,0			    User Menu
+		dc.b 	"U",Ami,0		135 Add User menu
+		dc.b 	"U",Ami+Shf,0		136 Del User menu
+		dc.b 	1,0,0			137 Save Default config
+		dc.b 	1,0,0			138 Save as
+		dc.b 	1,0,0			139 Load default config
+		dc.b 	1,0,0			140 Load as
+		dc.b 	1,0,0			141 Quit options
+		dc.b 	1,0,0			142 Autosave
+		dc.b 	1,0,0			143 Load Defalt macros
+		dc.b 	1,0,0			144 Save default macros
+		dc.b 	$80+$53,0,0		145 Monitor
+		dc.b 	"P",Ami,0		146 Print text
+		dc.b 	"I",Ami+Shf,0		147 Check 1.3
+		dc.b 	1,0,0			148 Sound On.Off
+		dc.b 	1,0,0			149 About
+		dc.b 	1,0,0			150 About
+		dc.b 	1,0,0			151 Insert ML
+		dc.b 	1,0,0			152
+		dc.b 	1,0,0			153
+		dc.b 	1,0,0			154
+		dc.b 	1,0,0			155
+		dc.b 	1,0,0			156
+		dc.b 	1,0,0			157
+		dc.b 	1,0,0			158
+		dc.b 	1,0,0			159
+		dc.b 	1,0,0			160
+		dc.b 	1,0,0			161
+		dc.b 	1,0,0			162
+		dc.b 	1,0,0			163
+		dc.b 	1,0,0			164
+		dc.b 	1,0,0			165
+		dc.b 	1,0,0			166
+		dc.b 	1,0,0			167
+		dc.b 	1,0,0			168
+		dc.b 	1,0,0			169
+		dc.b 	1,0,0			170
+		dc.b 	1,0,0			171
+		dc.b 	1,0,0			172Interpreter Setup
+		dc.b 	1,0,0			173Editor Setup
+		dc.b 	1,0,0			174Editor Menus
+		dc.b 	1,0,0			175Editor Dialogs
+		dc.b 	1,0,0			176Test-Time
+		dc.b 	1,0,0			177Run-Time
+		dc.b 	1,0,0			178Colour Palette
+		dc.b 	1,0,0			179Previous programs
+		dc.b 	1,0,0			180Next programs
+		dc.b 	"A",Ctr,0		181All text as block
+		dc.b 	1,0,0			182
+		dc.b 	$80+$54,0,0		183Go Help
+		dc.b 	1,0,0			184
+		dc.b 	$FF,0
+
+.Ed_Code	dc.l	"1.10"
+
+.Ed_FConfig
+
+; Chaines systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	.Sys2-.Sys1
+.Sys1
+; D�finitions ligne d'etat
+	EdT	1,<       1  2   3       4        5       6     7>
+	EdT	2,<Window-     L-      C-    Free-         Edit- >
+	EdT	3,< Edit>
+	EdT	4,<Split>
+	EdT	5,<O>
+	EdT	6,<I>
+	EdT	7,<New project>
+; Alert, Couleurs messages
+	EdD	8,<dc.b 27,"B4",27,"P3",25>
+; Etat, Init ligne
+	EdD	9,<dc.b 27,"J7",27,"B6",27,"P7",27,"D1",27,"V0",25,27,"C0">
+; Etat, CLW ligne activee
+	EdD	10,<dc.b 27,"B6",27,"P7",27,"S0",25,27,"C0">
+; Etat, CLW ligne inactivee
+	EdD	11,<dc.b 27,"B6",27,"P7",25,27,"C0",27,"S1">
+; Etat, definition des couleurs des zones active
+	EdD	12,<dc.b 27,"B6",27,"P7">
+; Touches de fonction de la barre de menu
+	EdD	13,<dc.b 28,105,77,78,79,145,27,91,92,75,87,29>
+; ESC, Attente caractere
+	EdD	14,<dc.b 13,10,31,30,27,"I1","AMOS Pro",62,27,"I0",27,"C1",0>
+; Vide!
+	EdT	15,<>
+; ESC, Initialisation
+	EdD	16,<dc.b 27,"C0",27,"J7",27,"B2",27,"P3",27,"D1",25,27,"V0",30,30,27,"V1",27,"B2",27,"P3",27,"J1",0>
+; Inverse, debut bloc
+	EdD	17,<dc.b 27,"B3",27,"P2",27,"J1",0>
+; Fin bloc, retour normale
+	EdD	18,<dc.b 27,"B2",27,"P3",27,"J1",0>
+; Definition des sliders editeur
+	EdD	19,<dc.b 0,0,0,1,4,4,4,1,0,0,0,1,3,3,3,1>
+; Effacement de l'ecran
+	EdD	20,<dc.b 27,"J7",27,"B2",27,"P3",27,"D1",27,"V0",25,27,"C0",27,"J1",0>
+; Suffixes
+	EdT	21,<.Bak>
+	EdT	22,<.AMOS>
+; Sliders editeur II
+	EdD	23,<dc.b 0,0,0,1,4,4,4,1,0,0,0,1,3,3,3,1>
+; Boutons du mode direct
+	EdT	24,<ListBank`>
+	EdT	25,<Default`>
+	EdT	26,<Dir`>
+	EdT	27,<Dir$='>
+	EdT	28,<Parent`>
+	EdT	29,<Load Fsel$('*.Abk')>
+	EdT	30,<Save Fsel$('*.Abk')>
+	EdT	31,<Load Iff '>
+	EdT	32,<Save Iff '>
+	EdT	33,<? Fsel$('**')`>
+	EdT	34,<Screen Close >
+	EdT	35,<Screen Open >
+	EdT	36,<Wind Open >
+	EdT	37,<Wind Close`>
+	EdT	38,<Bob Off : Sprite Off`>
+	EdT	39,<Freeze`>
+	EdT	40,<UnFreeze`>
+	EdT	41,<Amal Off`>
+	EdT	42,<Edit`>
+	EdT	43,<System>
+	EdT	44,<>
+; Fichiers systeme
+	EdT	45,<AMOSPro_Editor_Resource.Abk>
+	EdT	46,<AMOSPro_Editor_Macros>
+	EdT	47,<AMOSPro_Editor_LastSession>
+	EdT	48,<AMOSPro_Editor_Samples.Abk>
+	EdT	49,<New_Project_>
+	dc.b	0,$FF
+	even
+.Sys2
+
+; Chaines Menus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	.Mn2-.Mn1
+.Mn1	IncBin	"bin/Editor_Menus.asc"
+	Even
+.Mn2
+
+; Messages de l'�diteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	Ed2-Ed1
+Ed1	EdT	1,<Link cursor movement: please click on the window to link...>
+	EdT	2,<Cannot hide the last window.>
+	EdT	3,<Too many windows.>
+	EdT	4,<No more Undo.>
+	EdT	5,<No mode Redo.>
+	EdT	6,<What block?>
+	EdT	7,<Block stored in memory.>
+	EdT	8,<Block deleted from memory.>
+	EdT	9,<Error in previous program: >
+	EdT	10,<Out of memory! Cannot load program.>
+	EdT	11,< already exists. Overwrite?>
+	EdT	12,<Program already run.>
+	EdT	13,<Editor command not runnable.>
+	EdT	14,<This editor command needs a string.>
+	EdT	15,<Program is not an accessory.>
+	EdT	16,<Editor function not found.>
+	EdT	17,<Yes>
+	EdT	18,<No>
+	EdT	19,<Cancel>
+	EdT	20,<Quit AMOS Professional. Are you sure?>
+	EdT	21,<AMOS Professional>
+	EdT	22,<By Fran�ois Lionet>
+	EdT	23,<� 1992 Europress Software Ltd.>
+	EdT	24,< extensions loaded.>
+	EdT	25,<New all hidden programs. Are you sure?>
+	EdT	26,<Search>
+	EdT	27,<Enter string to look for:>
+	EdT	28,<[F2] Upper Case = Lower Case>
+	EdT	29,<Ok>
+	EdT	30,<Recording your macro. Click mouse button to end.>
+	EdT	31,<Enter replace string:>
+	EdT	32,<All in Marked Block>
+	EdT	33,<Search and Replace>
+	EdT	34,<All Occurences>
+	EdT	35,<[F1] Backward>
+	EdT	36,<...Searching [Control]+[C] to abort...>
+	EdT	37,<...Searching & Replacing [Control]+[C] to abort...>
+	EdT	38,<Replace in whole block. Are you sure?>
+	EdT	39,<Replace in whole text. Are you sure?>
+	EdT	40,< change(s) done.>
+	EdT	41,< not saved. Save?>
+	EdT	42,<Macro Definition>
+	EdT	43,<Please press a key to assign the macro to.>
+	EdT	44,<This key is already assigned to a macro. Erase the current macro?>
+	EdT	45,<Macro successfully recorded.>
+	EdT	46,<This function cannot be used in a macro!>
+	EdT	47,<Erase a macro>
+	EdT	48,<Please press the key assigned to the macro you want to erase.>
+	EdT	49,<This key is not assigned to a macro!>
+	EdT	50,<Erase all the macro definitions. Are you sure?>
+	EdT	51,<AMOSPro.*>
+	EdT	52,<AMOSPro.Macros>
+	EdT	53,<Save Macro Definitions>
+	EdT	54,<Ensure the filename begins with 'AMOSPro.'>
+	EdT	55,<AMOSPro.*>
+	EdT	56,<AMOSPro.Macros>
+	EdT	57,<Load Macro Definitions>
+	EdT	58,<Please choose a macro file.>
+	EdT	59,<Erase old macro definition. Are you sure?>
+	EdT	60,<No macros defined.>
+	EdT	61,<Saving macro definitions.>
+	EdT	62,<Loading macro definitions.>
+	EdT	63,<This file is not an AMOSPro Macro file!>
+	EdT	64,<Mark set.>
+	EdT	65,<Mark not defined.>
+	EdT	66,<*.AMOS>
+	EdT	67,<>
+	EdT	68,<Load a hidden program>
+	EdT	69,<Please choose program to load.>
+	EdT	70,<*.AMOS>
+	EdT	71,<>
+	EdT	72,<Load an AMOS program>
+	EdT	73,<>
+	EdT	74,<*.AMOS>
+	EdT	75,<>
+	EdT	76,<Save an AMOS program>
+	EdT	77,<Ensure filename ends with '.AMOS'>
+	EdT	78,<*.AMOS>
+	EdT	79,<>
+	EdT	80,<Merge an AMOS Program>
+	EdT	81,<>
+	EdT	82,<*.Asc>
+	EdT	83,<>
+	EdT	84,<Save the block as an ASCII file>
+	EdT	85,<>
+	EdT	86,<*.Asc>
+	EdT	87,<>
+	EdT	88,<Merge an ASCII file>
+	EdT	89,<>
+	EdT	90,<*.AMOS>
+	EdT	91,<>
+	EdT	92,<Save the block as an AMOS program>
+	EdT	93,<Ensure filename ends in '.AMOS'>
+	EdT	94,<Keyboard shortcuts>
+	EdT	95,<Please choose the option to assign in the menu.>
+	EdT	96,<Press any key to abort>
+	EdT	97,<Now, press the desired keyboard combination.>
+	EdT	98,<This key is already used. Proceed anyway?>
+	EdT	99,<This menu option cannot be assigned to a key.>
+	EdT	100,<*.AMOS>
+	EdT	101,<>
+	EdT	102,<Program to Menu>
+	EdT	103,<Please choose the program to run>
+	EdT	104,<Program to Menu>
+	EdT	105,<This menu option cannot be assigned to a program!>
+	EdT	106,<This menu option is already assigned to a program!>
+	EdT	107,<Option: >
+	EdT	108,<Program: >
+	EdT	109,<Replace>
+	EdT	110,<Erase>
+	EdT	111,<[F1] Load as hidden program>
+	EdT	112,<Goto Line>
+	EdT	113,<Please enter line number:>
+	EdT	114,<Set Buffer Size>
+	EdT	115,<Please enter new buffer size:>
+	EdT	116,<Text buffer too small. Adapt size?>
+	EdT	117,<Set Tab Value>
+	EdT	118,<Please enter new tab value:>
+	EdT	119,<Command line:>
+	EdT	120,<[F2] Load in current program window>
+	EdT	121,<[F3] Keep after run>
+	EdT	122,<New current program. Are you sure?>
+	EdT	123,<Delete User Option>
+	EdT	124,<Please choose the option in the 'User' menu.>
+	EdT	125,<This is not a 'User' menu option!>
+	EdT	126,<Add User Option>
+	EdT	127,<Please enter option name:>
+	EdT	128,<User Menu Call>
+	EdT	129,<You should assign a program to this option!>
+	EdT	130,<**>
+	EdT	131,<>
+	EdT	132,<Save the current configuration>
+	EdT	133,<>
+	EdT	134,<**>
+	EdT	135,<>
+	EdT	136,<Load an AMOS Professional configuration>
+	EdT	137,<>
+	EdT	138,<Cannot save configuration>
+	EdT	139,<Cannot load configuration>
+	EdT	140,<Save default configuration. Are you sure?>
+	EdT	141,<Current configuration not saved. Save it?>
+	EdT	142,<Autosave>
+	EdT	143,<Number of minutes between warnings, (0 to prevent autosave):>
+	EdT	144,<Quit Options>
+	EdT	145,<[F1] Confirm quit>
+	EdT	146,<[F2] Save configuration>
+	EdT	147,<[F3] Save macros>
+	EdT	148,<[F4] Enable Auto-resume>
+	EdT	149,<Saving auto-resume information>
+	EdT	150,<WARNING!>
+	EdT	151,<Cannot save editor setup: warm-start not enabled.>
+	EdT	152,<Saving current configuration>
+	EdT	153,<Loading configuration>
+	EdT	154,<Saving >
+	EdT	155,<Loading >
+	EdT	156,<Saving as ASCII >
+	EdT	157,<Printing block>
+	EdT	158,<Merging >
+	EdT	159,<Loading auto-resume information.>
+	EdT	160,<Warm start Error>
+	EdT	161,<Sorry, Editor configuration not recoverable!>
+	EdT	162,<Cannot delete warm-start information!>
+	EdT	163,<Make sure your AMOSPro disc is not protected, and click on 'OK'>
+	EdT	164,<Retry>
+	EdT	165,<Cancel>
+	EdT	166,<AMOS Professional Editor Information>
+	EdT	167,<Free chip-ram: >
+	EdT	168,<Free fast-ram: >
+	EdT	169,<About current program>
+	EdT	170,<Text length: >
+	EdT	171,<Bank length: >
+	EdT	172,<Number of visible lines: >
+	EdT	173,<Number of instructions: >
+	EdT	174,< byte(s)>
+	EdT	175,<Next>
+	EdT	176,<Prev>
+	EdT	177,<Extension number >
+	EdT	178,<**>
+	EdT	179,<>
+	EdT	180,<Insert machine language into procedure>
+	EdT	181,<Please choose a RELOCATABLE program!>
+	EdT	182,<This is not a relocatable executable routine!>
+	EdT	183,<This line can't be modified>
+	EdT	184,<Disc error>
+	EdT	185,<Out of memory: cannot open menus.>
+	EdT	186,<Low memory: clearing program display.>
+	EdT	187,<This was the last window. Quit AMOS Professional?>		v1.1
+	EdT	188,<See Latest News in the Help menu>				v1.1
+	EdT	189,<for information about this version.>			v1.1
+	EdT	190,<>
+	EdT	191,<>
+	EdT	192,<>
+	EdT	193,<>
+	EdT	194,<>
+	EdT	195,<AMOS Professional Text Reader>
+	EdT	196,<Line # >
+	EdT	197,<No errors>
+	EdT	198,<...Testing...>
+	EdT	199,<Line too long.>
+	EdT	200,<Top of text.>
+	EdT	201,<Bottom of text.>
+	EdT	202,<Out of buffer space.>
+	EdT	203,<Not a procedure.>
+	EdT	204,<Out of memory.>
+	EdT	205,<Not found.>
+	EdT	206,<Not done.>
+	EdT	207,<Not an AMOS program.>
+	EdT	208,<Text buffer too small.>
+	EdT	209,<Check printer then select OK.>
+	EdT	210,>>>
+	EdT	211,< at line >
+	EdT	212,<Direct mode [ESC]>
+	EdT	213,<Editor [RETURN]>
+	EdT	214,<Print block>
+	EdT	215,<Print program>
+	EdT	216,<Printer not ready.>
+	EdT	217,<Printing program>
+	EdT	218,<Editor display being reset!>
+	EdT	219,<         Registered User: >
+	EdT	220,<     Registration Number: >
+	EdT	221,<Warning: precision mismatch. Please read help file.>
+	EdT	222,<Monitor not found.>
+	dc.b	0,$ff
+	even
+Ed2
+
+;
+; Messages d'erreur TEST-TIME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	.Test2-.Test1
+.Test1
+	EdT	1,<Bad structure>
+	EdT	2,<User function not defined>
+	EdT	3,<Variable buffer can't be changed in the middle of a program!>
+	EdT	4,<This instruction must be alone on a line>
+	EdT	5,<Extension not loaded>
+	EdT	6,<Too many direct mode variables>
+	EdT	7,<Illegal direct mode>
+	EdT	8,<Variable buffer too small>
+	EdT	9,<No jumps allowed into the middle of a loop!>
+	EdT	10,<Structure too long>
+	EdT	11,<This instruction must be used within a procedure>
+	EdT	12,<This variable is already defined as SHARED>
+	EdT	13,<This array is not defined in the main program>
+	EdT	14,<Use empty brakets when defining a shared array>
+	EdT	15,<Shared must be alone on a line>
+	EdT	16,<Procedure's limits must be alone on a line>
+	EdT	17,<Procedure not closed>
+	EdT	18,<Procedure not opened>
+	EdT	19,<Illegal number of parameters>
+	EdT	20,<Undefined procedure>
+	EdT	21,<ELSE without IF>
+	EdT	22,<IF without ENDIF>
+	EdT	23,<ENDIF without IF>
+	EdT	24,<ELSE without ENDIF>
+	EdT	25,<No THEN in a structured test>
+	EdT	26,<Not enough loops to exit>
+	EdT	27,<DO without LOOP>
+	EdT	28,<LOOP without DO>
+	EdT	29,<WHILE without matching WEND>
+	EdT	30,<WEND without WHILE>
+	EdT	31,<REPEAT without matching UNTIL>
+	EdT	32,<UNTIL without REPEAT>
+	EdT	33,<FOR without matching NEXT>
+	EdT	34,<NEXT without FOR>
+	EdT	35,<Syntax error>
+	EdT	36,<Out of memory>
+	EdT	37,<Variable name's buffer too small>
+	EdT	38,<Array not dimensioned>
+	EdT	39,<Array already dimensioned>
+	EdT	40,<Type mismatch error>
+	EdT	41,<Undefined label>
+	EdT	42,<Label defined twice>
+	EdT	43,<Trap must be immediately followed by an instruction>
+	EdT	44,<No ELSE IF after an ELSE>
+	EdT	45,<Cannot load included file>
+	EdT	46,<Included file is not an AMOS program>
+	EdT	47,<Instruction not compatible with AMOS 1.3>
+	EdT	48,<This program holds too many banks for AMOS 1.3>
+	EdT	49,<This program is compatible with AMOS 1.3>
+	EdT	50,<This command must begin your program (but AFTER 'Set Buffer')>
+	EdT	51,<Equate not defined>
+	EdT	52,<Cannot load equate file>
+	EdT	53,<Bad format in equate file>
+	EdT	54,<Equate not of the right type>
+	dc.b	0,$FF
+	Even
+.Test2
+;
+; Messages d'erreur RUN TIME
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l .Error2-.Error1
+
+; 0-19 FATALS
+; ~~~~~~~~~~~
+.Error1	EdT	0,<>
+	EdT	1,<RETURN without GOSUB>
+	EdT	2,<POP without GOSUB>
+	EdT	3,<Error not resumed>
+	EdT	4,<Can't resume to a label>
+	EdT	5,<No ON ERROR PROC before this instruction>
+	EdT	6,<Resume label not defined>
+	EdT	7,<Resume without error>
+	EdT	8,<Error procedure must RESUME to end>
+	EdT	9,<Program interrupted>
+	EdT	10,<End of program>
+	EdT	11,<Out of variable space>
+	EdT	12,<Cannot open math libraries>
+	EdT	13,<Out of stack space>
+	EdT	14,<>
+	EdT	15,<User function not defined>
+	EdT	16,<Illegal user function call>
+	EdT	17,<Illegal direct mode>
+	EdT	18,<>
+	EdT	19,<>
+; 20- Messages normaux
+; ~~~~~~~~~~~~~~~~~~~~
+	EdT	20,<Division by zero>
+	EdT	21,<String too long>
+	EdT	22,<Syntax error>
+	EdT	23,<Illegal function call>
+	EdT	24,<Out of memory>
+	EdT	25,<Address error>
+	EdT	26,<>
+	EdT	27,<Non dimensioned array>
+	EdT	28,<Array already dimensioned>
+	EdT	29,<Overflow>
+	EdT	30,<Bad IFF format>
+	EdT	31,<IFF compression not recognised>
+	EdT	32,<Can't fit picture in current screen>
+	EdT	33,<Out of data>
+	EdT	34,<Type mismatch>
+	EdT	35,<Bank already reserved>
+	EdT	36,<Bank not reserved>
+	EdT	37,<Fonts not examined>
+	EdT	38,<Menu not opened>
+	EdT	39,<Menu item not defined>
+	EdT	40,<Label not defined>
+	EdT	41,<No data after this label>
+	EdT	42,<>
+	EdT	43,<>
+	EdT	44,<Font not available>
+; Messages d'erreur ecrans/fenetres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EdT	45,<>
+	EdT	46,<Block not defined>
+	EdT	47,<Screen not opened>
+	EdT	48,<Illegal screen parameter>
+	EdT	49,<Illegal number of colours>
+	EdT	50,<Valid screen numbers range 0 to 7>
+	EdT	51,<Too many colours in flash>
+	EdT	52,<Flash declaration error>
+	EdT	53,<Shift declaration error>
+	EdT	54,<Text window not opened>
+	EdT	55,<Text window already opened>
+	EdT	56,<Text window too small>
+	EdT	57,<Text window too large>
+	EdT	58,<>
+	EdT	59,<Bordered text windows not on edge of screen>
+	EdT	60,<Illegal text window parameter>
+	EdT	61,<>
+	EdT	62,<Text window 0 can't be closed>
+	EdT	63,<This text window has no border>
+	EdT	64,<>
+	EdT	65,<Block not found>
+	EdT	66,<Illegal block parameters>
+	EdT	67,<Screens can't be animated>
+	EdT	68,<Bob not defined>
+	EdT	69,<Screen already in double buffering>
+	EdT	70,<Can't set dual playfield>
+	EdT	71,<Screen not in dual playfield mode>
+	EdT	72,<Scrolling zone not defined>
+	EdT	73,<No zones defined>
+	EdT	74,<Icon not defined>
+	EdT	75,<Rainbow not defined>
+	EdT	76,<Copper not disabled>
+	EdT	77,<Copper list too long>
+	EdT	78,<Illegal copper parameter>
+; Messages d'erreur disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	EdT	79,<File already exists>
+	EdT	80,<Directory not found>			204
+	EdT	81,<File not found>				205
+	EdT	82,<Illegal file name>				210
+	EdT	83,<Disc is not validated>			213
+	EdT	84,<Disc is write protected>			214
+	EdT	85,<Directory not empty>			216
+	EdT	86,<Device not available>			218
+	EdT	87,<>						220
+	EdT	88,<Disc full>					221
+	EdT	89,<File is protected against deletion>		222
+	EdT	90,<File is write protected>			223
+	EdT	91,<File is protected against reading>		224
+	EdT	92,<Not an AmigaDOS disc>			225
+	EdT	93,<No disc in drive>				226
+	EdT	94,<I/O error>
+	EdT	95,<File format not recognised>
+	EdT	96,<File already opened>
+	EdT	97,<File not opened>
+	EdT	98,<File type mismatch>
+	EdT	99,<Input too long>
+	EdT	100,<End of file>
+	EdT	101,<Disc error>
+	EdT	102,<Instruction not allowed here>
+	EdT	103,<>
+; Message d'erreur sprites/souris
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EdT	104,<>
+	EdT	105,<Sprite error>
+	EdT	106,<>
+	EdT	107,<Syntax error in animation string>
+	EdT	108,<Next without For in animation string>
+	EdT	109,<Label not defined in animation string>
+	EdT	110,<Jump To/Within autotest in animation string>
+	EdT	111,<Autotest already opened>
+	EdT	112,<Instruction only valid in autotest>
+	EdT	113,<Animation string too long>
+	EdT	114,<Label already defined in animation string>
+	EdT	115,<Illegal instruction during autotest>
+	EdT	116,<Amal bank not reserved>
+	EdT	117,<>
+	EdT	118,<>
+	EdT	119,<>
+; Messages d'erreur dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EdT	120,<Interface error: bad syntax>
+	EdT	121,<Interface error: out of memory>
+	EdT	122,<Interface error: label defined twice>
+	EdT	123,<Interface error: label not defined>
+	EdT	124,<Interface error: channel already defined>
+	EdT	125,<Interface error: channel not defined>
+	EdT	126,<Interface error: screen modified>
+	EdT	127,<Interface error: variable not defined>
+	EdT 	128,<Interface error: illegal function call>
+	EdT	129,<Interface error: type mismatch>
+	EdT	130,<Interface error: buffer to small>
+	EdT	131,<Interface error: illegal number of parameters>
+	EdT	132,<>
+	EdT	133,<>
+	EdT	134,<>
+	EdT	135,<>
+	EdT	136,<>
+	EdT	137,<>
+	EdT	138,<>
+	EdT	139,<>
+; Messages d'erreur DEVICE / PRINTER / SERIAL
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	EdT	140,<Device already opened>
+	EdT	141,<Device not opened>
+	EdT	142,<Device cannot be opened>
+	EdT	143,<Command not supported by device>
+	EdT	144,<Device error>
+; Messages Serie
+	EdT	145,<Serial device already in use>
+	EdT	146,<>
+	EdT	147,<Invalid baud rate>
+	EdT	148,<Out of memory (serial device)>
+	EdT	149,<Bad parameter>
+	EdT	150,<Hardware data overrun>
+	EdT	151,<>
+	EdT	152,<>
+	EdT	153,<>
+	EdT	154,<>
+	EdT	155,<Timeout error>
+	EdT	156,<Buffer overflow>
+	EdT	157,<No data set ready>
+	EdT	158,<>
+	EdT	159,<Break detected>
+	EdT	160,<Selected unit already in use>
+; Message Printer
+	EdT	161,<User canceled request>
+	EdT	162,<Printer cannot output graphics>
+	EdT	163,<>
+	EdT	164,<Illegal print dimensions>
+	EdT	165,<>
+	EdT	166,<Out of memory (printer device)>
+	EdT	167,<Out of internal memory (printer device)>
+; Messages libraries
+	EdT	168,<Library already opened>
+	EdT	169,<Library not opened>
+	EdT	170,<Cannot open library>
+; Messages parallel
+	EdT	171,<Parallel device already used>
+	EdT	172,<Out of memory (parallel device)>
+	EdT	173,<Invalid parallel parameter>
+	EdT	174,<Parallel line error>
+	EdT	175,<>
+	EdT	176,<Parallel port reset>
+	EdT	177,<Parallel initialisation error>
+; Music errors
+	EdT	178,<Wave not defined>				0
+	EdT	179,<Sample not defined>			1
+	EdT	180,<Sample bank not found>			2
+	EdT	181,<256 characters for a wave>			3
+	EdT	182,<Wave 0 and 1 are reserved>			4
+	EdT	183,<Music bank not found>			5
+	EdT	184,<Music not defined>				6
+	EdT	185,<Can't open narrator>			7
+	EdT	186,<Not a tracker module>			8
+	EdT	187,<Cannot load med.library>			9
+	EdT	188,<Cannot start med.library>			10
+	EdT	189,<Not a med module>				11
+	EdT	190,<>
+	EdT	191,<>
+	EdT	192,<>
+; AREXX
+; ~~~~~
+	EdT	193,<Arexx port already opened>
+	EdT	194,<Arexx library not found>
+	EdT	195,<Cannot open Arexx port>
+	EdT	196,<Arexx port not opened>
+	EdT	197,<No Arexx message waiting>
+	EdT	198,<Arexx message not answered to>
+	EdT	199,<Arexx Device not interactive>
+; Misc
+; ~~~~
+	EdT	200,<Cannot open powerpacker.library (v35)>
+	dc.b	0,$ff
+	even
+.Error2
+
+; Programmes AUTOLOAD
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	Auto2-Auto1
+Auto1	EdT	1,<AMOSPro_Accessories:AMOSPro_Help/AMOSPro_Help.AMOS>
+	EdT	2,<HelpMenu>
+	EdT	3,<HelpHelp>
+	EdT	4,<HelpKeyHelp>
+	EdT	5,<HelpDirect>
+	EdT	6,<HelpSyntax>
+	EdT	7,<HelpBasics>
+	EdT	8,<HelpScreenCon>
+	EdT	9,<HelpObjects>
+	EdT	10,<HelpAudio>
+	EdT	11,<HelpInterface>
+	EdT	12,<HelpIO>
+	EdT	13,<HelpAmigaDos>
+	EdT	14,<HelpDebug>
+	EdT	15,<HelpMC>
+	EdT	16,<HelpTables>
+	EdT	17,<HelpInfo>
+	EdT	18,<A>
+	EdT	19,<A>
+	EdT	20,<A>
+	EdT	21,<B>
+	EdT	22,<C>
+	EdT	23,<D>
+	EdT	24,<EDIT6>
+	EdT	25,<AMOSPro_System:Interpreter_Config.AMOS>
+	EdT	26,<AMOSPro_System:Editor_Config.AMOS>
+	EdT	27,<EDIT1>
+	EdT	28,<EDIT2>
+	EdT	29,<EDIT3>
+	EdT	30,<EDIT4>
+	EdT	31,<EDIT5>
+	EdT	32,<AMOSPro_Accessories:Object_Editor.AMOS>
+	EdT	33,<GRABO>
+	EdT	34,<AMOSPro_Accessories:Object_Editor.AMOS>
+	EdT	35,<GRABI>
+	EdT	36,<AMOSPro_Accessories:Sample_Bank_Maker.AMOS>
+	EdT	37,<GRAB>
+	EdT	38,<AMOSPro_Accessories:Resource_Bank_Maker.AMOS>
+	EdT	39,<GRAB>
+	EdT	40,<AMOSPro_Accessories:Disc_Manager.AMOS>
+	EdT	41,<AMOSPro_Accessories:Object_Editor.AMOS>
+	EdT	42,<AMOSPro_Accessories:Sample_Bank_Maker.AMOS>
+	EdT	43,<AMOSPro_Accessories:Resource_Bank_Maker.AMOS>
+	EdT	44,<AMOSPro_Tutorial:ReTokenise.AMOS>
+	EdT	45,<AMOSPro_Compiler:Compiler_Shell.AMOS>
+	EdT	46,<AMOSPro_Compiler:Tiny_Shell.AMOS>
+	dc.b	0,$ff
+	even
+Auto2
+
+; USER Menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	Menu2-Menu1
+Menu1	EdT	1,<Edit Objects>
+	EdT	2,<Edit Icons>
+	EdT	3,<Edit Samples>
+	EdT	4,<Edit Resource>
+	EdT	5,<>
+	EdT	6,<Disc Manager>
+	EdT	7,<Object Ed.>
+	EdT	8,<Sample Maker>
+	EdT	9,<Resource Ed.>
+	EdT	10,<>
+	EdT	11,<Re-tokeniser>
+	EdT	12,<Compiler Shell>
+	EdT	13,<Compile>
+	EdT	14,<>
+	EdT	15,<>
+	EdT	16,<>
+	EdT	17,<>
+	EdT	18,<>
+	EdT	19,<>
+	EdT	20,<>
+	dc.b	0,$ff
+	even
+Menu2
+
+; Definitions Menu
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.l	DMenu2-DMenu1
+DMenu1	Incbin	"bin/Editor_Menus.bin"
+	Even
+DMenu2
+
+Fin
+		END
diff --git a/+Equ.s b/+Equ.s
new file mode 100644
index 0000000..df950cc
--- /dev/null
+++ b/+Equ.s
@@ -0,0 +1,2409 @@
+
+		IFND	EZFlag
+EZFlag		set	0
+		ENDC
+*
+Switcher_Signal	equ	24
+Except_Signal	equ	26
+*
+***********************************************************
+*
+*		AMOSPro EQUATES DEFINITION
+*
+*		By Francois Lionet
+*		AMOS (c) 1990-1992 Europress Software Ltd.
+*
+*		Last change 23/09/1992
+*
+***********************************************************
+*	This file contains all the equates of the AMOSPro
+* programs and extension.
+* Be patient, we will soon (I hope) publish informations
+* about the functions of the amos.library.
+***********************************************************
+* 	Only for multi-lingual readers: half english
+* half french. That's Europe!
+***********************************************************
+*
+*  Published under the MIT Licence
+*
+*  Copyright (c) 1992 Europress Software
+*  Copyright (c) 2020 Francois Lionet
+*
+*  Permission is hereby granted, free of charge, to any person
+*  obtaining a copy of this software and associated documentation
+*  files (the "Software"), to deal in the Software without
+*  restriction, including without limitation the rights to use,
+*  copy, modify, merge, publish, distribute, sublicense, and/or
+*  sell copies of the Software, and to permit persons to whom the
+*  Software is furnished to do so, subject to the following
+*  conditions:
+*
+*  The above copyright notice and this permission notice shall be
+*  included in all copies or substantial portions of the Software.
+*
+*  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+*  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+*  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+*  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+*  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+*  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+*  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+*  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+*
+***********************************************************
+
+BFORM_ILBM	equ	%00000001
+BFORM_ACBM	equ	%00000010
+BFORM_ANIM	equ	%00000100
+BCHUNK_BMHD	equ	0
+BCHUNK_CAMG	equ	1
+BCHUNK_CMAP	equ	2
+BCHUNK_CCRT	equ	3
+BCHUNK_BODY	equ	4
+BCHUNK_AMSC	equ	5
+BCHUNK_ABIT	equ	6
+
+EntNul:		equ $80000000
+
+Circuits:	equ $dff000
+
+IntReq:		equ $9c
+IntEna:		equ $9a
+DmaCon:		equ $96
+DmaConR:	equ $02
+
+Color00:	equ $180
+VhPosR:		equ $6
+
+; Copper
+Cop1lc:		equ $80
+Cop2lc:		equ $84
+CopJmp1:	equ $88
+CopJmp2:	equ $8a
+
+; Souris
+CiaAprA:	equ $bfe001
+Joy0Dat:	equ $a
+Joy1Dat:	equ $c
+JoyTest:	equ $36
+PotGo:		equ $34
+PotGoR:		equ $16
+Pot0Dat:	equ $12
+Pot1Dat:	equ $14
+
+; Bitplanes
+BplCon0:	equ $100
+BplCon1:	equ $102
+BplCon2:	equ $104
+Bpl1PtH:	equ $0e0
+Bpl1PtL:	equ $0e2
+Bpl1Mod:	equ $108
+Bpl2Mod:	equ $10a
+DiwStrt:	equ $08e
+DiwStop:	equ $090
+DdfStrt:	equ $092
+DdfStop:	equ $094
+
+; Blitter
+BltSize:	equ $058
+BltAdA:		equ $050
+BltAdB:		equ $04c
+BltAdC:		equ $048
+BltAdD:		equ $054
+BltModA:	equ $064
+BltModB:	equ $062
+BltModC:	equ $060
+BltModD:	equ $066
+BltCon0:	equ $040
+BltCon1:	equ $042
+BltDatA:	equ $074
+BltDatB:	equ $072
+BltDatC:	equ $070
+BltDatD:	equ $000
+BltMaskG:	equ $044
+BltMaskD:	equ $046
+
+;-------------> WFlags
+WFlag_AA	equ 	0
+WFlag_Event	equ	1
+WFlag_AmigaA	equ	2
+WFlag_WBClosed	equ	3
+WFlag_LoadView	equ	4
+
+;-------------> Systeme
+		IFND	ExecBase
+ExecBase:	equ 4
+		ENDC
+StartList:	equ 38
+Forbid:		equ -132
+Permit:		equ -138
+OwnBlitter:	equ -30-426
+DisOwnBlitter:	equ -30-432
+WaitBlit:	equ -228
+OpenLib:	equ -552
+CloseLib:	equ -414
+AllocMem:	equ -198
+AvailMem:	equ -216
+FreeMem:	equ -210
+Chip:		equ $02
+Fast:		equ $04
+Clear:		equ $10000
+Public:		equ $01
+Total		equ $80000
+SetFunction:	equ -420
+CloseWB:	equ -78
+FindTask:	equ -294
+AddPort:	equ -354
+RemPort:	equ -360
+OpenDev:	equ -444
+CloseDev:	equ -450
+DoIO:		equ -456
+SendIO:		equ -462
+
+;-------------> Intuition
+OpenScreen:	equ -198
+CloseScreen:	equ -66
+ScreenToBack:	equ -$F6
+OpenWindow:	equ -204
+CloseWindow:	equ -72
+LoadView:	equ -$DE
+CUFLayer:	equ -36
+DelLayer:	equ -90
+
+;-------------> Graphic library
+InitRastPort:	equ -198
+InitTmpRas:	equ -$1d4
+TextLength:	equ -54
+Text:		equ -60
+SetFont:	equ -66
+OpenFont:	equ -72
+CloseFont:	equ -78
+AskSoftStyle:	equ -84
+SetSoftStyle:	equ -90
+RMove:		equ -240
+RDraw:		equ -246
+DrawEllipse:	equ -$b4
+AreaEllipse:	equ -$ba
+AreaMove:	equ -252
+AreaDraw:	equ -258
+AreaEnd:	equ -264
+InitArea:	equ -282
+RectFill:	equ -306
+ReadPixel:	equ -318
+WritePixel:	equ -324
+Flood:		equ -330
+PolyDraw:	equ -336
+ScrollRaster:	equ -396
+AskFont:	equ -474
+AddFont:	equ -480
+RemFont:	equ -486
+ClipBlit:	equ -552
+BltBitMap:	equ -30
+SetAPen:	equ -342
+SetBPen:	equ -348
+SetDrMd:	equ -354
+AvailFonts:	equ -$24
+OpenDiskFont	equ -$1e
+
+;-------------> Dos
+Input:		equ -54
+WaitChar:	equ -204
+Read:		equ -42
+
+Execall:	MACRO
+		move.l	$4.w,a6
+		jsr	\1(a6)
+		ENDM
+GfxCa5		MACRO
+		movem.l	d0/d1/a0/a1/a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0/d1/a0/a1/a6
+		ENDM
+
+*************** COPIE
+CoCopy		MACRO
+.Loop\@		move.b	(a0)+,(a1)+
+		bne.s	.Loop\@
+		ENDM
+*************** DOS
+DosCall		MACRO
+		move.l	a6,-(sp)
+		move.l	DosBase(a5),a6
+		jsr	\1(a6)
+		move.l	(sp)+,a6
+		ENDM
+DosOpen:	equ -30
+DosClose:	equ -36
+DosRead:	equ -42
+DosWrite:	equ -48
+DosSeek:	equ -66
+DosDel:		equ -72
+DosRen:		equ -78
+DosLock:	equ -84
+DosUnLock:	equ -90
+DosDupLock:	equ -96
+DosExam:	equ -102
+DosExNext:	equ -108
+Dosinfo:	equ -114
+DosMkDir:	equ -120
+DosCuDir:	equ -126
+DosIOErr:	equ -132
+DosDProc:	equ -174
+DosParent:	equ -210
+DosLoadSeg:	equ -150
+DosULoadSeg:	equ -156
+DosWChar:	equ -204
+
+*************** FLOAT
+SPFix:		equ -30
+SPFlt:		equ -36
+SPCmp:		equ -42
+SPTst:		equ -48
+SPAbs:		equ -54
+SPNeg:		equ -60
+SPAdd:		equ -66
+SPSub:		equ -72
+SPMul:		equ -78
+SPDiv:		equ -84
+SPFloor:	equ -90
+SPCeil:		equ -96
+
+SPATan:		equ -30
+SPSin:		equ -36
+SPCos:		equ -42
+SPTan:		equ -48
+SPSinCos:	equ -54
+SPSinH:		equ -60
+SPCosH:		equ -66
+SPTanH:		equ -72
+SPExp:		equ -78
+SPLog:		equ -84
+SPPow:		equ -90
+SPSqrt:		equ -96
+SPTIeee:	equ -102
+SPFIeee:	equ -108
+SPASin:		equ -114
+SPACos:		equ -120
+SPLog10:	equ -126
+
+*************** AMOS system library
+Inkey:		equ 0
+ClearKey:	equ 1
+Shifts:		equ 2
+Instant:	equ 3
+KeyMap:		equ 4
+Joy:		equ 5
+PutKey:		equ 6
+Hide:		equ 7
+Show:		equ 8
+ChangeM:	equ 9
+XyMou:		equ 10
+XyHard:		equ 11
+XyScr:		equ 12
+MouseKey:	equ 13
+SetM:		equ 14
+ScIn:		equ 15
+XyWin:		equ 16
+LimitM:		equ 17
+ZoHd:		equ 18
+ResZone:	equ 19
+RazZone:	equ 20
+SetZone:	equ 21
+GetZone:	equ 22
+WaitVbl:	equ 23
+SetHs:		equ 24
+USetHs:		equ 25
+SetFunk:	equ 26
+GetFunk:	equ 27
+AffHs:		equ 28
+SetSpBank:	equ 29
+NXYAHs:		equ 30
+XOffHs:		equ 31
+OffHs:		equ 32
+ActHs:		equ 33
+SBufHs:		equ 34
+StActHs:	equ 35
+ReActHs:	equ 36
+StoreM:		equ 37
+RecallM:	equ 38
+PriHs:		equ 39
+AMALTok:	equ 40
+AMALCre:	equ 41
+AMALMvO:	equ 42
+AMALDAll:	equ 43
+AMAL:		equ 44
+AMALReg:	equ 45
+AMALClr:	equ 46
+AMALFrz:	equ 47
+AMALUFrz:	equ 48
+SetBob:		equ 49
+OffBob:		equ 50
+OffBobS:	equ 51
+ActBob:		equ 52
+AffBob:		equ 53
+EffBob:		equ 54
+SyChip:		equ 55
+SyFast:		equ 56
+LimBob:		equ 57
+ZoGr:		equ 58
+SprGet:		equ 59
+MaskMk:		equ 60
+SpotHot:	equ 61
+ColBob:		equ 62
+ColGet:		equ 63
+ColSpr:		equ 64
+SetSync:	equ 65
+Synchro:	equ 66
+PlaySet:	equ 67
+XYBob:		equ 68
+XYSp:		equ 69
+PutBob:		equ 70
+Patch:		equ 71
+MouRel:		equ 72
+LimitMEc:	equ 73
+SyFree:		equ 74
+SetHCol:	equ 75
+GetHCol:	equ 76
+MovOn:		equ 77
+KeySpeed:	equ 78
+ChanA:		equ 79
+ChanM:		equ 80
+SPrio:		equ 81
+GetDisc:	equ 82
+RestartVBL	equ 83
+StopVBL		equ 84
+KeyWaiting	equ 85		(P) Une touche en attente?
+MouScrFront	equ 86		(P) Souris dans ecran de front
+MemReserve	equ 87		(P) Reservation memoire
+MemFree		equ 88		(P) Liberation memoire
+MemCheck	equ 89		(P) Verification memoire
+MemFastClear	equ 90
+MemChipClear	equ 91
+MemFast		equ 92
+MemChip		equ 93
+Send_FakeEvent	equ 94		Envoi d'un faux event clavier
+Test_Cyclique	equ 95		Tests cyclique AMOS
+AddFlushRoutine	equ 96		Ajoute une routine flush
+MemFlush	equ 97		Force un flush memoire
+AddRoutine	equ 98		Ajoute une routine
+CallRoutines	equ 99		Appelle une liste de routines
+Request_OnOff	equ 100		Set requester AMOS/WB
+
+SyCall:		MACRO
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalA:		MACRO
+		lea	\2,a1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+***********************************************************
+*		EQUATES BOBS
+		RsReset
+BbPrev:		rs.l 1
+BbNext:		rs.l 1
+BbNb:		rs.w 1
+BbAct:		rs.w 1
+BbX:		rs.w 1
+BbY:		rs.w 1
+BbI:		rs.w 1
+BbEc:		rs.l 1
+BbAAEc:		rs.l 1
+BbAData:	rs.l 1
+BbAMask:	rs.l 1
+BbNPlan:	rs.w 1
+BbAPlan:	rs.w 1
+BbASize:	rs.w 1
+BbAMaskG:	rs.w 1
+BbAMaskD:	rs.w 1
+BbTPlan:	rs.w 1
+BbTLigne:	rs.w 1
+BbAModO:	rs.w 1
+BbAModD:	rs.w 1
+BbACon:		rs.w 1
+BbACon0:	rs.w 1
+BbACon1:	rs.w 1
+BbADraw:	rs.l 1
+BbLimG:		rs.w 1
+BbLimD:		rs.w 1
+BbLimH:		rs.w 1
+BbLimB:		rs.w 1
+* Datas retournement des bobs
+BbARetour	rs.l 1
+BbRetour	rs.w 1
+* Datas decor
+BbDecor:	rs.w 1
+BbEff:		rs.w 1
+BbDCur1:	rs.w 1
+BbDCur2:	rs.w 1
+BbDCpt:		rs.w 1
+BbEMod:		rs.w 1
+BbECpt:		rs.w 1
+BbEAEc:		rs.w 1
+BbESize:	rs.w 1
+BbETPlan:	rs.w 1
+* Datas pour une sauvegarde de decor
+BbDABuf:	rs.l 1		* 0  Adresse buffer
+BbDLBuf:	rs.w 1		* 4  Longueur buffer
+BbDAEc:		rs.w 1		* 6  Decalage ecran
+BbDAPlan:	rs.l 1		* 8  Plans sauves
+BbDNPlan:	rs.l 1		* 12 Max plans
+BbDMod:		rs.w 1		* 16 Modulo ecran
+BbDASize:	rs.w 1		* 18 Taille blitter
+Decor:		equ 20		* 20 Taille totale
+* Datas pour seconde sauvegarde!
+		rs.l Decor
+BbLong:		equ __RS
+
+
+
+*************** AMOS Screen library
+
+BitHide:	equ 7
+BitClone:	equ 6
+BitDble:	equ 5
+EcMaxPlans	equ		6		6 Plans pour le moment!
+
+		RsReset
+* Bitmap address
+EcLogic:	rs.l 6		*
+EcPhysic	rs.l 6		*
+EcCurrent:	rs.l 6		*
+
+* Datas!
+EcCon0:		rs.w 1		*
+EcCon2:		rs.w 1		*
+EcTx:		rs.w 1		*
+EcTy:		rs.w 1		*
+EcNPlan:	rs.w 1		*
+EcWX:		rs.w 1		*
+EcWY:		rs.w 1		*
+EcWTx:		rs.w 1		*
+EcWTy:		rs.w 1		*
+EcVX:		rs.w 1		*
+EcVY:		rs.w 1		*
+
+EcColorMap	rs.w 1
+EcNbCol		rs.w 1
+EcPal		rs.w 32
+EcDEcran:	rs.l 1		*
+
+EcTPlan:	rs.l 1		*
+EcWindow:	rs.l 1		*
+EcTxM:		rs.w 1		*
+EcTyM:		rs.w 1		*
+EcTLigne:	rs.w 1		*
+EcFlags:	rs.w 1		*
+EcDual:		rs.w 1		*
+EcWXr:		rs.w 1		*
+EcWTxr:		rs.w 1		*
+EcNumber:	rs.w 1		*
+EcAuto:		rs.w 1		*
+
+* Link with AMAL
+EcAW:		rs.w 1
+EcAWX:		rs.w 1
+EcAWY:		rs.w 1
+EcAWT:		rs.w 1
+EcAWTX:		rs.w 1
+EcAWTY:		rs.w 1
+EcAV:		rs.w 1
+EcAVX:		rs.w 1
+EcAVY:		rs.w 1
+* Zone table
+EcAZones:	rs.l 1
+EcNZones:	rs.w 1
+* Save the background for window
+EcWiDec:	rs.w 1
+* Graphic functions
+EcInkA:		rs.b 1
+EcInkB:		rs.b 1
+EcMode:		rs.b 1
+EcOutL:		rs.b 1
+EcLine:		rs.w 1
+EcCont:		rs.w 1
+EcX:		rs.w 1
+EcY:		rs.w 1
+EcPat:		rs.l 1
+EcPatL:		rs.w 1
+EcPatY:		rs.w 1
+EcClipX0:	rs.w 1
+EcClipY0:	rs.w 1
+EcClipX1:	rs.w 1
+EcClipY1:	rs.w 1
+EcFontFlag:	rs.w 1
+EcText:		rs.b 14
+EcFInkA:	rs.b 1
+EcFInkB:	rs.b 1
+EcFInkC:	rs.b 1
+EcIInkA:	rs.b 1
+EcIInkB:	rs.b 1
+EcIInkC:	rs.b 1
+EcFPat:		rs.w 1
+EcIPat:		rs.w 1
+* Cursor saving
+EcCurS:		rs.b 8*6
+
+;		Donnees ecran intuition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ec_LayerInfo	rs.l	1
+Ec_Layer	rs.l	1
+Ec_RastPort	rs.l	1
+Ec_Region	rs.l	1
+Ec_BitMap	rs.l	1
+
+; Length of a screen
+EcLong:		equ __RS
+
+; Y Screen base
+EcYBase:	equ $1000
+EcYStrt:	equ EcYBase+26
+PalMax:		equ 16
+
+***********************************************************
+*		FUNCTIONS
+***********************************************************
+
+Raz:		equ 0
+CopMake:	equ 1
+*		equ 2
+Cree:		equ 3
+Del:		equ 4
+First:		equ 5
+Last:		equ 6
+Active:		equ 7
+CopForce:	equ 8
+AView:		equ 9
+OffSet:		equ 10
+Visible:	equ 11
+DelAll:		equ 12
+GCol:		equ 13
+SCol:		equ 14
+SPal:		equ 15
+SColB:		equ 16
+FlRaz:		equ 17
+Flash:		equ 18
+ShRaz:		equ 19
+Shift:		equ 20
+EHide:		equ 21
+CBlGet:		equ 22
+CBlPut:		equ 23
+CBlDel:		equ 24
+CBlRaz:		equ 25
+Libre:		equ 26
+CCloEc:		equ 27
+Current:	equ 28
+Double:		equ 29
+SwapSc:		equ 30
+SwapScS:	equ 31
+AdrEc:		equ 32
+SetDual:	equ 33
+PriDual:	equ 34
+ClsEc:		equ 35
+Pattern:	equ 36
+GFonts:		equ 37
+FFonts:		equ 38
+GFont:		equ 39
+SFont:		equ 40
+SetClip:	equ 41
+BlGet:		equ 42
+BlDel:		equ 43
+BlRaz:		equ 44
+BlPut:		equ 45
+VerSli:		equ 46
+HorSli:		equ 47
+SetSli:		equ 48
+MnStart:	equ 49
+MnStop:		equ 50
+RainDel:	equ 51
+RainSet:	equ 52
+RainDo:		equ 53
+RainHide:	equ 54
+RainVar:	equ 55
+FadeOn:		equ 56
+FadeOf:		equ 57
+CopOnOff:	equ 58
+CopReset:	equ 59
+CopSwap:	equ 60
+CopWait:	equ 61
+CopMove:	equ 62
+CopMoveL:	equ 63
+CopBase:	equ 64
+AutoBack1:	equ 65
+AutoBack2:	equ 66
+AutoBack3:	equ 67
+AutoBack4:	equ 68
+SuPaint:	equ 69
+BlRev:		equ 70
+DoRev:		equ 71
+AMOS_WB		equ 72
+ScCpyW		equ 73
+MaxRaw		equ 74
+NTSC		equ 75
+PourSli		equ 76
+
+EcCall:		MACRO
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalA:		MACRO
+		lea	\2,a1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+*************** AMOS Window library
+
+* Window structure
+WiPrev:		equ 0
+WiNext:		equ WiPrev+4
+WiFont:		equ WiNext+4
+WiAdhg:		equ WiFont+4
+WiAdhgR:	equ WiAdhg+4
+WiAdhgI:	equ WiAdhgR+4
+WiAdCur:	equ WiAdhgI+4
+WiColor:	equ WiAdCur+4
+WiColFl:	equ WiColor+4*6
+
+WiX:		equ WiColFl+4*6
+WiY:		equ WiX+2
+WiTx:		equ WiY+2
+WiTy:		equ WiTx+2
+WiTyCar:	equ WiTy+2
+WiTLigne:	equ WiTyCar+2
+WiTxR:		equ WiTLigne+2
+WiTyR:		equ WiTxR+2
+WiDxI:		equ WiTyR+2
+WiDyI:		equ WiDxI+2
+WiTxI:		equ WiDyI+2
+WiTyI:		equ WiTxI+2
+WiDxR:		equ WiTyI+2
+WiDyR:		equ WiDxR+2
+WiFxR:		equ WiDyR+2
+WiFyR:		equ WiFxR+2
+WiTyP:		equ WiFyR+2
+WiDBuf:		equ WiTyP+2
+WiTBuf:		equ WiDBuf+4
+WiTxBuf:	equ WiTBuf+4
+
+WiPaper:	equ WiTxBuf+2
+WiPen:		equ WiPaper+2
+WiBorder:	equ WiPen+2
+WiFlags:	equ WiBorder+2
+WiGraph:	equ WiFlags+2
+WiNPlan:	equ WiGraph+2
+WiNumber:	equ WiNPlan+2
+WiSys:		equ WiNumber+2
+WiEsc:		equ WiSys+2
+WiEscPar:	equ WiEsc+2
+WiTab:		equ WiEscPar+2
+
+WiBord:		equ WiTab+2
+WiBorPap:	equ WiBord+2
+WiBorPen:	equ WiBorPap+2
+
+WiMx:		equ WiBorPen+2
+WiMy:		equ WiMx+2
+WiZoDx:		equ WiMy+2
+WiZoDy:		equ WiZoDx+2
+
+WiCuDraw:	equ WiZoDy+2
+WiCuCol:	equ WiCuDraw+8
+
+WiTitH:		equ WiCuCol+2
+WiTitB:		equ WiTitH+80
+WiLong:		equ WiTitB+80
+WiSAuto:	equ WiTitH
+
+***********************************************************
+*		WINDOW INSTRUCTIONS
+***********************************************************
+ChrOut:		equ 0
+Print:		equ 1
+Centre:		equ 2
+WindOp:		equ 3
+Locate:		equ 4
+QWindow:	equ 5
+WinDel:		equ 6
+SBord:		equ 7
+STitle:		equ 8
+GAdr:		equ 9
+MoveWi:		equ 10
+ClsWi:		equ 11
+SizeWi:		equ 12
+SCurWi:		equ 13
+XYCuWi:		equ 14
+XGrWi:		equ 15
+YGrWi:		equ 16
+Print2		equ 17
+Print3		equ 18
+SXSYCuWi	equ 19
+
+WiCall:		MACRO
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalA:		MACRO
+		lea	\2,a1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+**************	Equates basic
+EcFonc:		equ 8
+EcEdit:		equ 9
+EcFsel:		equ 10
+EcReq:		equ 11
+
+EdTx:		equ 78
+
+EdBTT:		equ 512+256
+NbEnd:		equ 10
+EcEBase		equ 45
+DEBase		equ EcEBase+35-1
+SpEBase 	equ DEBase+25
+FkLong:		equ 26
+Shf:		equ %00000011
+Ctr:		equ %00001000
+Alt:		equ %00110000
+Ami:		equ %11000000
+
+***************	Menu definition
+		RsReset
+MnPrev:		rs.l 	1	0
+MnNext:		rs.l 	1	4
+MnLat:		rs.l	1	8
+MnNb:		rs.w	1	12
+MnFlag:		rs.w	1	14
+MnX:		rs.w	1	16
+MnY:		rs.w	1	18
+MnTx:		rs.w	1	20
+MnTy:		rs.w	1	22
+MnMX:		rs.w	1	24
+MnMY:		rs.w	1	26
+MnXX:		rs.w	1	28
+MnYY:		rs.w	1	30
+MnZone:		rs.w	1	32
+MnKFlag:	rs.b	1	34
+MnKAsc:		rs.b	1	35
+MnKSc:		rs.b 	1	36
+MnKSh:		rs.b	1	37
+* Menu objects
+MnObF:		rs.l	1	38
+MnOb1:		rs.l	1	42
+MnOb2:		rs.l	1	46
+MnOb3:		rs.l	1	50
+MnAdSave:	rs.l	1	54
+MnDatas:	rs.l	1	58
+MnLData:	rs.w 	1	62
+MnInkA1:	rs.b	1	64
+MnInkB1:	rs.b	1	65
+MnInkC1:	rs.b	1	66
+MnInkA2:	rs.b	1	67
+MnInkB2:	rs.b	1	68
+MnInkC2:	rs.b	1	69
+MnLong:		equ __RS
+
+* Flags
+MnFlat:		equ 	0
+MnFixed:	equ 	1
+MnSep:		equ 	2
+MnBar:		equ 	3
+MnOff:		equ 	4
+MnTotal:	equ 	5
+MnTBouge:	equ 	6
+MnBouge:	equ 	7
+
+*************** Test control bits
+BitControl:	equ 	8
+BitMenu:	equ 	9
+BitJump:	equ 	10
+BitEvery:	equ 	11
+BitEcrans:	equ 	12
+BitBobs:	equ 	13
+BitSprites:	equ 	14
+BitVBL:		equ 	15
+
+; __________________________________
+;
+; 	Definition d'un slider
+; __________________________________
+;
+Sl_FlagVertical	equ 	0
+		RsReset
+; Variables positionnement
+Sl_Sx		rs.w	1
+Sl_Sy		rs.w	1
+Sl_Global	rs.w	1
+Sl_Position	rs.w	1
+Sl_Window	rs.w	1
+Sl_X		rs.w	1
+Sl_Y		rs.w	1
+Sl_ZDx		rs.w	1
+Sl_ZDy		rs.w	1
+; Variables fonctionnement
+Sl_Flags	rs.w	1
+Sl_Start	rs.w	1
+Sl_Size		rs.w	1
+Sl_Scroll	rs.w	1
+Sl_Mouse1	rs.w	1
+Sl_Mouse2	rs.w	1
+Sl_Zone		rs.w	1
+Sl_Routines	rs.l	1
+; Encres
+Sl_Inactive	rs.w	3+3+2
+Sl_Active	rs.w	3+3+2
+Sl_Long		equ	__RS
+; __________________________________
+;
+; 	Definition d'un bouton
+; __________________________________
+;
+Bt_FlagNew	equ	0
+Bt_FlagNoWait	equ	1
+Bt_FlagOnOf	equ	2
+		RsReset
+Bt_Number	rs.w	1
+Bt_X		rs.w	1
+Bt_Y		rs.w	1
+Bt_Image	rs.w	1
+Bt_Zone		rs.w	1
+Bt_Pos		rs.w	1
+Bt_Routines	rs.l	1
+Bt_Dx		rs.b	1
+Bt_Dy		rs.b	1
+Bt_Sx		rs.b	1
+Bt_Sy		rs.b	1
+Bt_RDraw	rs.b	1
+Bt_RChange	rs.b	1
+Bt_RPos		rs.b	1
+Bt_Flags	rs.b	1
+Bt_Long		equ	__RS
+
+; ___________________________________
+;
+; 	BITMAP PACKER/UNPACKER
+; ___________________________________
+
+; Packed screen header
+		RsReset
+PsCode		rs.l 1
+PsTx		rs.w 1
+PsTy		rs.w 1
+PsAWx		rs.w 1
+PsAWy		rs.w 1
+PsAWTx		rs.w 1
+PsAWTy		rs.w 1
+PsAVx		rs.w 1
+PsAVy		rs.w 1
+PsCon0		rs.w 1
+PsNbCol		rs.w 1
+PsNPlan		rs.w 1
+PsPal		rs.w 32
+PsLong		equ __RS
+SCCode		equ $12031990
+; Packed bitmap header
+; ~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Pkcode   	rs.l 1
+Pkdx     	rs.w 1
+Pkdy     	rs.w 1
+Pktx     	rs.w 1
+Pkty     	rs.w 1
+Pktcar   	rs.w 1
+Pknplan		rs.w 1
+PkDatas2 	rs.l 1
+PkPoint2 	rs.l 1
+PkLong  	equ __RS
+PkDatas1	equ __RS
+BMCode		equ $06071963
+
+; ______________________________________________________________________________
+;
+;		EDITEUR LIGNE
+;
+		RsReset
+LEd_Buffer	rs.l	1
+LEd_Start	rs.w	1
+LEd_Large	rs.w	1
+LEd_Max		rs.w	1
+LEd_Long	rs.w	1
+LEd_Cur		rs.w	1
+LEd_X		rs.w	1
+LEd_Y		rs.w	1
+LEd_Screen	rs.w	1
+LEd_Flags	rs.w	1
+LEd_Mask	rs.l	3
+LEd_Size	equ	__RS
+LEd_FKeys	equ	0
+LEd_FOnce	equ	1
+LEd_FCursor	equ	2
+LEd_FFilter	equ	3
+LEd_FMouse	equ	4
+LEd_FTests	equ	5
+LEd_FMulti	equ	6
+LEd_FMouCur	equ	7
+
+; _____________________________________________________________________________
+;
+; 	GESTION DES DIALOGUES
+;
+
+; __________________________________________
+;
+;	Base de la zone de dialogue
+;
+		RsReset
+Dia_Channel	rs.l	1
+Dia_NVar	rs.l	1
+Dia_Sp		rs.l	1
+Dia_Screen	rs.l	1
+Dia_ScreenNb	rs.w	1
+Dia_ScreenOld	rs.w	1
+Dia_WindOld	rs.w	1
+Dia_WindOn	rs.w	1
+Dia_Programs	rs.l	1
+Dia_ProgLong	rs.l	1
+Dia_Labels	rs.l	1
+Dia_Messages	rs.l	1
+Dia_ABuffer	rs.l	1
+Dia_PBuffer	rs.l	1
+Dia_Buffer	rs.l	1
+Dia_Pile	rs.l	1
+Dia_PUsers	rs.l	1
+Dia_NPUsers	rs.w	1
+Dia_Users	rs.w	1
+Dia_Edited	rs.l	1
+Dia_Timer	rs.l	1
+Dia_TimerPos	rs.l	1
+Dia_LastZone	rs.l	1
+Dia_NextZone	rs.l	1
+Dia_Release	rs.l	1
+Dia_BaseX	rs.l	1
+Dia_BaseY	rs.l	1
+Dia_Sx		rs.l	1
+Dia_Sy		rs.l	1
+Dia_XA		rs.w	1
+Dia_YA		rs.w	1
+Dia_XB		rs.w	1
+Dia_YB		rs.w	1
+Dia_Puzzle	rs.l	1
+Dia_PuzzleSx	rs.l	1
+Dia_PuzzleSy	rs.l	1
+Dia_PuzzleI	rs.l	1
+Dia_LastKey	rs.l	1
+Dia_Error	rs.w	1
+Dia_ErrorPos	rs.w	1
+Dia_Return	rs.w	1
+Dia_Exit	rs.w	1
+Dia_Writing	rs.w	1
+Dia_RFlags	rs.b	1
+Dia_Flags	rs.b	1
+Dia_SlDefault	rs.b	16
+		rs.l	4
+Dia_Vars	equ	__RS
+Dia_Source	equ	Dia_LastKey
+Dia_FSource	equ	Dia_Edited
+
+; Entete d'une zone active
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Dia_Ln		rs.w	1		0 Long
+Dia_Id		rs.w	1		2 Id
+Dia_ZoId	rs.w	1		4 ZoId
+Dia_ZoX		rs.w	1		6 ZoX
+Dia_ZoY		rs.w	1		8 ZoY
+Dia_ZoSx	rs.w	1		10 ZoSx
+Dia_ZoSy	rs.w	1		12 ZoSy
+Dia_ZoNumber	rs.w	1		14 ZoNumber
+Dia_ZoRChange	rs.w	1		16 Routine change
+Dia_ZoPos	rs.l	1		18 Position
+Dia_ZoVar	rs.l	1		22 Variable interne
+Dia_ZoFlags	rs.b	1		26
+		rs.b	1
+Dia_ZoLong	equ	__RS
+; Entete d'un bouton dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_BtRDraw	rs.w	1
+Dia_BtRChange	rs.w	1
+Dia_BtMin	rs.w	1
+Dia_BtMax	rs.w	1
+Dia_BtLong	equ	__RS
+; Entete d'une ligne d'edition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_LEd		rs.b	LEd_Size
+Dia_EdLong	equ	__RS
+Dia_DiValue	rs.l	1
+Dia_DiBuffer	rs.b	16
+Dia_DiLong	equ	__RS
+; Entete d'une liste active
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_LiTx	rs.w	1
+Dia_LiTy	rs.w	1
+Dia_LiPos	rs.w	1
+Dia_LiMaxAct	rs.w	1
+Dia_LiArray	rs.l	1
+Dia_LiLArray	rs.w	1
+Dia_LiActNumber	rs.w	1
+Dia_LiLong	equ	__RS
+; Entete d'un texte actif
+; ~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_TxTx	rs.w	1
+Dia_TxTy	rs.w	1
+Dia_TxPos	rs.w	1
+Dia_TxNLine	rs.w	1
+Dia_TxText	rs.l	1
+Dia_TxDisplay	rs.l	1
+Dia_TxDispSize	rs.w	1
+Dia_TxDispMax	rs.w	1
+Dia_TxAdress	rs.l	1
+Dia_TxAct	rs.l	1
+Dia_TxYAct	rs.w	1
+Dia_TxPen	rs.b	1
+Dia_TxPaper	rs.b	1
+Dia_TxPp	rs.b	8
+Dia_TxBuffer	rs.b	64
+Dia_TxBufferEnd	equ	__RS
+Dia_TxLong	equ	__RS
+; Definition des zones actives
+Dia_TxDispZone	equ	8
+
+; Entete d'un slider
+; ~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_Sl		rs.b	Sl_Long		Donn�es gestion slider
+Dia_SlLong	equ	__RS
+; Entete d'une definition de touche
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.w	2
+Dia_KyCode	rs.b	1
+Dia_KyShift	rs.b	1
+Dia_KyZone	rs.l	1
+Dia_KyLong	equ	__RS
+; Entete d'une sauvegarde de block
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.w	2
+Dia_BlNumber	rs.w	1
+Dia_BlLong	equ	__RS
+; Marques de reconnaissance
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_BtMark	equ	"Bt"
+Dia_StMark	equ	"St"
+Dia_EdMark	equ	"Ed"
+Dia_KyMark	equ	"Ky"
+Dia_BlMark	equ	"Bl"
+Dia_ZoMark	equ	"Zo"
+Dia_SlMark	equ	"Sl"
+Dia_LiMark	equ	"Li"
+Dia_TxMark	equ	"Tx"
+Dia_TaMark	equ	"Ta"
+Dia_TdMark	equ	"Td"
+; Numero des messages d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EDia_Syntax	equ	1
+EDia_OMem	equ	2
+EDia_LabAD	equ	3
+EDia_LabND	equ	4
+EDia_ChanAD	equ	5
+EDia_ChanND	equ	6
+EDia_Screen	equ	7
+EDia_VarND	equ	8
+EDia_FCall	equ	9
+EDia_Type	equ	10
+EDia_OBuffer	equ	11
+EDia_NPar	equ	12
+
+
+;		Longueur maxi d'une chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+String_Max	equ	$FFC0
+
+***************************************************************
+*		Interpretor datas zone
+*		Pointed to by A5
+***************************************************************
+Bit_PaSaut	equ	0
+
+		RsReset
+
+;		VBL Routines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VblRout:	rs.l 	8
+
+;		Extensions
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+AdTokens:	rs.l 	27
+AdTTokens:	rs.l 	27
+ExtAdr:		rs.l 	26*4
+ExtTests:	rs.l 	8
+
+; 		Adresses Kickstart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DosBase:	rs.l 	1
+DFloatBase	rs.l	1
+DMathBase	rs.l	1
+FloatBase:	rs.l	1
+MathBase:	rs.l 	1
+IconBase:	rs.l 	1
+
+; 		Donn�es systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_AData	rs.l	1
+Sys_LData	rs.l	1
+Sys_Message	rs.l	1
+Sys_WAd		rs.l	1
+Sys_WSegment	rs.l	1
+Sys_Messages	rs.l	1
+Sys_Banks	rs.l	1
+		rs.l	1		Libre
+		rs.l	1		Libre
+		rs.l	1		Libre
+Sys_Editor	rs.l	1
+Fs_Liste	rs.l	1
+Sys_Resource	rs.l	1
+Sys_WStarted	rs.b	1
+Sys_LibStarted	rs.b	1
+Sys_Pathname	rs.b	76
+Sys_DefaultRoutines	rs.l	1		A modifier!
+
+Sys_Jumps	rs.l	1
+Prg_List	rs.l	1
+Prg_Runned	rs.l	1
+
+;		Graphics
+; ~~~~~~~~~~~~~~~~~~~~~~
+AAreaSize:	equ 	16
+AAreaInfo:	rs.b 	24
+AAreaBuf:	rs.b 	AAreaSize*5+10
+		rs.b 	16
+ATmpRas:	rs.l 	2
+AppNPlan	rs.w 	1
+SccEcO:		rs.l 	1
+SccEcD:		rs.l 	1
+
+;		File selector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mon_Base	rs.l 	1
+Mon_Banks	rs.l 	1
+
+TRd_OldEc	rs.w 	1
+CurTab		rs.w 	1
+FillFPosPoke	rs.w	1
+Mon_Segment	rs.l 	1
+Edit_Segment	rs.l 	1
+Sys_ClearRoutines 	rs.l 	1	Routines appellees par ClearVar
+Sys_ErrorRoutines	rs.l	1	Routines appellees par RunErr
+
+WB2.0:		rs.w 	1
+Fs_Base		rs.l	1
+Fs_Saved	rs.l	1
+Fs_SaveList	rs.l	1
+Test_Flags	rs.b	1
+FillFSorted	rs.b	1
+
+BasSp:		rs.l 	1
+Fs_PosStore	rs.w 	1
+ColBack:	rs.w 	1
+DefFlag:	rs.w 	1
+
+;		Float
+; ~~~~~~~~~~~~~~~~~~~
+BuFloat:	rs.b 	64
+DeFloat:	rs.b 	32
+TempFl:		rs.l 	1
+TempBuf:	rs.l 	1
+MemChipTotal	rs.l 	1
+MemFastTotal	rs.l 	1
+
+;		Disque I/O
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+IffParam:	rs.l 	1
+IffFlag:	rs.l 	1
+IffReturn	rs.l 	1
+BufFillF:	rs.l 	1
+FillFLong:	rs.w 	1
+FillFSize:	rs.w 	1
+FillFNb:	rs.w 	1
+FillF32:	rs.w 	1
+DirLong:	rs.l 	1
+DirComp:	rs.w 	1
+DirLNom:	rs.w 	1
+PathAct:	rs.l 	1
+DirFNeg:	rs.l 	1
+BufBMHD:	rs.l 	1
+BufCMAP:	rs.l 	1
+BufCAMG:	rs.l 	1
+BufCCRT:	rs.l 	1
+BufAMSC:	rs.l 	1
+
+; 		Tokenisation / Stockage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TkAd:		rs.l 	1
+TkChCar:	rs.w 	1
+VerPos:		rs.l 	1
+VerBase:	rs.l 	1
+VerNInst	rs.l	1
+VerNot1.3	rs.b	1
+VerCheck1.3	rs.b	1
+Parenth:	rs.w 	1
+WBench		rs.b	1
+WB_Closed	rs.b	1
+
+TBuffer:	equ 	1024
+TMenage:	equ 	160*10-64
+Buffer:		rs.l 	1
+BMenage:	rs.l 	1
+
+LimSave:	rs.w 	4
+FsLimSave:	rs.w 	4
+Name1:		rs.l 	1
+Name2:		rs.l 	1
+
+Access:		rs.l 	1
+AcLdTemp:	rs.l 	1
+AccFlag:	rs.w 	1
+
+RasAd:		rs.l 	1
+RasLong:	rs.l 	1
+RasSize:	rs.w 	1
+RasLock:	rs.l 	1
+ScOn:		rs.w 	1
+ScOnAd:		rs.l 	1
+BufBob:		rs.l 	1
+BufLabel:	rs.l 	1
+LMouse:		rs.l 	1
+VBLOCount:	rs.w 	1
+VBLDelai:	rs.w 	1
+SScan:		rs.w 	1
+Seed:		rs.l 	1
+OldRnd:		rs.l 	1
+PAmalE:		rs.w 	1
+ReqSave:	rs.l 	1
+ReqSSave:	rs.l 	1
+SNoFlip:	rs.w 	1
+LockSave:	rs.l 	1
+Handle:		rs.l 	1
+PrtHandle:	rs.l 	1
+PosFillF:	rs.w 	1
+TempBuffer	rs.l 	1
+
+;		Canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AnCanaux:	rs.w 64
+InterOff:	rs.w 1
+
+; ____________________________________________________________________________
+;
+;							VARIABLES RUN-TIME
+; ____________________________________________________________________________
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;					Debut de la zone poussee par PRUN
+;
+DebSave:	equ __RS
+
+;		Adresse de la liste de Banques/Dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cur_Banks	rs.l 	1
+Cur_Dialogs	rs.l	1
+Cur_ChrJump	rs.l	1
+
+; 		Donnnes du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Stack_ProcSize	equ	42
+Stack_Size	rs.w 	1
+Stack_CSize	rs.w 	1
+Prg_Source	rs.l 	1
+Prg_FullSource	rs.l	1
+Prg_Includes	rs.l	1
+Prg_Run		rs.l	1
+Prg_Test	rs.l	1
+Prg_JError	rs.l	1
+Prg_ChrGet	rs.l	1
+
+; 		Verification / Buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Passe:		rs.w 1
+VarBuf:		rs.l 1
+VarBufL:	rs.l 1
+VarBufFlg:	rs.w 1
+LabHaut:	rs.l 1
+LabBas:		rs.l 1
+LabMini:	rs.l 1
+DVNmBas:	rs.l 1
+DVNmHaut:	rs.l 1
+VNmLong:	rs.l 1
+VNmHaut:	rs.l 1
+VNmBas:		rs.l 1
+VNmMini:	rs.l 1
+VDLigne:	rs.l 1
+Ver_TablA	rs.l 1
+Ver_CTablA	rs.l 1
+VarLong:	rs.w 1
+GloLong:	rs.w 1
+VarGlo:		rs.l 1
+VarLoc:		rs.l 1
+TabBas:		rs.l 1
+ChVide:		rs.l 1
+LoChaine:	rs.l 1
+HiChaine:	rs.l 1
+HoLoop:		rs.l 1
+BaLoop:		rs.l 1
+
+;		Donnees RUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+PLoop:		rs.l 1
+MinLoop:	rs.l 1
+BasA3:		rs.l 1
+ErrRet:		rs.l 1
+ErrRAd:		rs.l 1
+Phase:		rs.w 1
+Ver_FTablA	rs.l 1
+Ver_MainTablA	rs.l 1
+Ver_PTablA	rs.l 1
+Ver_SPConst	rs.b 1
+Ver_DPConst	rs.b 1
+ActuMask:	rs.w 1
+IffMask:	rs.l 1
+ExpFlg:		rs.w 1
+FixFlg:		rs.w 1
+
+; 		DEVICES / LIBRARIES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dev_Max		equ	7
+Dev_List	rs.b	12*Dev_Max
+Lib_Max		equ	7
+Lib_List	rs.l	4*Lib_Max
+
+; 		MENUS
+; ~~~~~~~~~~~~~~~~~~~
+MnNDim:		equ 8
+Mn_SSave	equ	__RS		Debut du flip de l'editeur
+MnBase:		rs.l 	1		~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnBaseX:	rs.w 	1
+MnBaseY:	rs.w 	1
+MnChange:	rs.w 	1
+MnMouse:	rs.w 	1
+MnError:	rs.w 	1
+MnAdEc:		rs.l 	1
+MnScOn:		rs.w 	1
+MgFlags:	rs.w 	1
+MnNZone:	rs.w 	1
+MnZoAct:	rs.w	1
+MnAct:		rs.l	1
+MnTDraw:	rs.l	1
+MnTable:	rs.l 	MnNDim+1
+MnChoix:	rs.w 	MnNDim
+MnDFlags:	rs.b 	MnNDim
+MnDAd:		rs.l 	1
+MnProc:		rs.w 	1
+Mn_ESave	equ	__RS		Fin du flip editeur
+MnRA3:		rs.l 	1		~~~~~~~~~~~~~~~~~~~
+MnRA4:		rs.l 	1
+MnPile:		rs.l 	1
+OMnBase:	rs.l 	1
+OMnNb:		rs.w 	1
+OMnType:	rs.w	1
+
+;		Def Scroll, reduit � 10 zones!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+NDScrolls	equ	10
+DScrolls:	rs.w 	6*NDScrolls
+
+;		Zone extra en plus, 72 octets libres!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+GoTest_Dialog	rs.l	1		* 0
+GoTest_Menus	rs.l	1		* 4
+GoTest_MenuKey	rs.l	1		* 8
+GoTest_GoMenu	rs.l	1		* 12
+GoTest_Every	rs.l	1		* 16
+GoTest_OnBreak	rs.l	1		* 20
+		rs.l	1		* 24
+Cmp_CurBanks	rs.l	1		* 28
+Cmp_CurDialogs	rs.l	1		* 32
+Cmp_AForNext	rs.l	1		* 36
+Cmp_AdLabels	rs.l	1		* 40
+Cmp_LowPile	rs.l	1		* 44
+Cmp_LowPileP	rs.l	1		* 48
+Cmp_NumProc	rs.l	1		* 52
+Cmp_ListInst	rs.l	1		* 56
+Cmp_Ligne	rs.w	1		* 60
+					* 62
+		rs.b	72-(__RS-GoTest_Dialog)
+
+
+; 		Dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~
+IDia_BankPuzzle	rs.l	1
+IDia_Error	rs.l	1
+
+;		Patch monitor
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Patch_ScCopy	rs.l	1
+Patch_ScFront	rs.l	1
+Patch_Errors	rs.l	1
+Patch_Menage	rs.l	1
+
+; Verification ��
+; ~~~~~~~~~~~~~~~
+Ver_TableVerif	rs.b	1
+Ver_NoReloc	rs.b	1
+
+; 		Fichiers
+; ~~~~~~~~~~~~~~~~~~~~~~
+FhA:		equ 0
+FhT:		equ 4
+FhF:		equ 6
+TFiche:		equ 10
+NFiche:		equ 10
+ChrInp:		rs.w 1
+Fichiers:	rs.b TFiche*NFiche
+
+; 		AREXX
+; ~~~~~~~~~~~~~~~~~~~
+Arx_Port	rs.l	1
+Arx_Base	rs.l	1
+Arx_Answer	rs.l	1
+Arx_PortName	rs.b	32
+
+;		Every
+; ~~~~~~~~~~~~~~~~~~~
+EveType:	rs.w 	1
+EveLabel:	rs.l 	1
+EveCharge:	rs.w 	1
+
+;		Miscellenous
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+BuffSize:	rs.l 	1
+AdrIcon:	rs.l 	1
+DefPal:		rs.w 	32
+DBugge		rs.l 	1
+CallAd:		rs.l 	1
+VarLongs	rs.b	8
+VarLsls		rs.b	8
+MathFlags	rs.b	1
+		rs.b	1
+
+; 		Donn�es t�l�commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_Accessory	rs.b	1
+Ed_Zappeuse	rs.b	1
+
+
+;		Variables mises � zero par un RUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DebRaz:		equ 	__RS
+PrintFlg:	rs.w 	1
+PrintPos:	rs.l 	1
+PrinType:	rs.w 	1
+PrintFile:	rs.l 	1
+UsingFlg:	rs.w 	1
+ImpFlg:		rs.w 	1
+ParamE:		rs.l 	1
+ParamF:		rs.l 	1
+ParamC:		rs.l 	1
+InputFlg:	rs.w 	1
+ContFlg:	rs.w 	1
+ContChr:	rs.l 	1
+ErrorOn:	rs.w 	1
+ErrorChr:	rs.l 	1
+OnErrLine:	rs.l 	1
+TrapAdr		rs.l	1
+TrapErr		rs.w	1
+TVMax:		rs.w 	1
+DProc:		rs.l 	1
+AData:		rs.l 	1
+PData:		rs.l 	1
+MenA4:		rs.l 	1
+LockOld:	rs.l 	1
+MnChoice:	rs.w 	1
+Angle:		rs.w 	1
+Ed_YaUTest	rs.b	1
+ErrorRegs	rs.b	1
+CallReg:	rs.l 	8+7
+OnBreak		rs.l	1
+Long_Var	rs.l	1
+ParamF2		rs.l	1
+ErrorSave	rs.l	2		Sauvegarde D6-D7 pour erreurs
+Chr_Debug	rs.l	3		*** Debuggage!
+
+FinRaz:		equ 	__RS
+FinSave:	equ 	__RS
+;		Fin de la zone pousse par PRUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+Ver_Reloc	rs.l	1		Table de relocation
+Ver_CReloc	rs.l	1		Current
+Ver_FReloc	rs.l	1		Maxi
+Ver_NBoucles	rs.w	1
+Ver_PBoucles	rs.w	1
+Ver_PrevTablA	rs.l	1
+FakeEvent_Cpt	rs.w	1		Compteur pour blanker
+Fs_ErrPatch	rs.l	1		Patch erreurs file selector...
+Sys_EndRoutines	rs.l	2		Routines de fin...
+Prg_InsRet	rs.l	1		Retour de zappeuse...
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;             	Donn�es de Configuration Interpr�teur
+;
+PI_Start	equ	__RS
+; Initialisation de la trappe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_ParaTrap	rs.l	1		0 - Adresse actualisation
+PI_AdMouse	rs.l	1		4 - Adresse souris
+		rs.w	1		8 - Nombre de bobs
+		rs.w	1		10- Position par defaut ecran!!
+		rs.l	1		12- Taille liste copper
+		rs.l	1		16- Nombre lignes sprites
+; Taille des buffers
+; ~~~~~~~~~~~~~~~~~~
+PI_VNmMax	rs.l	1		20- Buffer des noms de variable
+PI_TVDirect	rs.w	1		24- Variables mode direct
+PI_DefSize	rs.l	1		26- Taille buffer par defaut
+; Directory
+; ~~~~~~~~~
+PI_DirSize	rs.w	1		30- Taille nom directory
+PI_DirMax	rs.w	1		32- Nombre max de noms
+; Faire carriage return lors de PRINT?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_PrtRet	rs.b	1		34- Return lors de 10
+; Faire des icones?
+; ~~~~~~~~~~~~~~~~~
+PI_Icons	rs.b	1		35- Faire de icones
+; Autoclose workbench?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_AutoWB	rs.b	1		36- Fermer automatiquement
+PI_AllowWB	rs.b	1		37- Close Workbench effective?
+; Close editor?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_CloseEd	rs.b	1		38- Autoriser fermeture
+PI_KillEd	rs.b	1		39- Autoriser fermeture
+PI_FsSort	rs.b	1		40- Sort files
+PI_FsSize	rs.b	1		41- Size of files
+PI_FsStore	rs.b	1		42- Store directories
+; Securite flags
+; ~~~~~~~~~~~~~~
+		rs.b	1		43- Flag libre
+		rs.b	4		44- 4 flags libres!
+; Text reader
+; ~~~~~~~~~~~
+PI_RtSx		rs.w	1		48- Taille X ecran Readtext
+PI_RtSy		rs.w	1		50- Taille Y ecran Readtext
+PI_RtWx		rs.w	1		52- Position X
+PI_RtWy		rs.w	1		54- Position Y
+PI_RtSpeed	rs.w	1		56- Vitesse apparition
+; File selector
+; ~~~~~~~~~~~~
+PI_FsDSx	rs.w	1		58- Taille X fsel
+PI_FsDSy	rs.w	1		60- Taille Y fsel
+PI_FsDWx	rs.w	1		62- Position X
+PI_FsDWy	rs.w	1		64- Position Y
+PI_FsDVApp	rs.w	1		66- Vitesse app
+; Ecran par defaut
+; ~~~~~~~~~~~~~~~~
+PI_DefETx	rs.w	1
+PI_DefETy	rs.w	1
+PI_DefECo	rs.w	1
+PI_DefECoN	rs.w	1
+PI_DefEMo	rs.w	1
+PI_DefEBa	rs.w	1
+PI_DefEPa	rs.w	32
+PI_DefEWx	rs.w	1
+PI_DefEWy	rs.w	1
+PI_DefAmigA	rs.l	1
+		rs.l	6		Pour extension!
+PI_End		equ	__RS
+;
+;		Fin de la zone configuration interpreteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; Ici et pas ailleurs!
+; ~~~~~~~~~~~~~~~~~~~~
+ValPi:		rs.l 	2
+Val180:		rs.l 	2
+Equ_Base	rs.l	1
+
+; __________________________
+;
+; 		Mode Escape
+; __________________________
+;
+Esc_TFonc	rs.l 	1
+Esc_Buf		rs.l 	1
+Esc_KMem	rs.l	1
+Esc_KMemPos	rs.l	1
+Direct		rs.w 	1
+DirFlag		rs.w 	1
+EsFlag		rs.w 	1
+Es_LEd		rs.b	LEd_Size
+; _______________________
+;
+; 		Editeur
+; _______________________
+;
+
+; Pointeurs sur zones de chaines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ConfigHead	equ	"ApCf"
+Ed_QuitHead	equ	"ApLC"
+
+; Adresse des elements de configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Config	rs.l	1
+Ed_Systeme	rs.l	1		Ne pas changer l'ordre
+EdM_Messages	rs.l	1
+Ed_Messages	rs.l	1
+Ed_TstMessages	rs.l	1
+Ed_RunMessages	rs.l	1
+Ed_MnPrograms	rs.l	1
+EdM_User	rs.l	1
+EdM_Definition	rs.l	1
+
+
+; Donn�es normales
+; ~~~~~~~~~~~~~~~~
+Ed_Banks	rs.l	1
+Ed_Dialogs	rs.l	1
+
+Edt_List	rs.l	1
+Edt_Current	rs.l	1
+Edt_Runned	rs.l	1
+
+Ed_Prg2ReLoad	rs.l	1
+Ed_BankGrab	rs.w 	1
+Ed_BankFlag	rs.w 	1
+Ed_ZapCounter	rs.w	1
+Ed_ZapError	rs.w	1
+Ed_ZapMessage	rs.l	1
+Ed_ZapParam	rs.l	1
+Ed_ADialogues	rs.l	1
+Ed_VDialogues	rs.l	1
+Ed_DiaCopyD	rs.l	1
+Ed_DiaCopyC	rs.l	1
+
+EdMa_Changed	rs.b	1
+Ed_FUndo	rs.b	1
+Ed_SCallFlags	rs.b	1
+EdC_Changed	rs.b	1
+
+EdMa_Head	equ	"ApMa"
+EdMa_List	rs.l	1
+EdMa_Play	rs.l	1
+EdMa_Tape	rs.w	1
+EdMa_Change	rs.b	1
+Ed_CuFlag	rs.b	1
+
+Ed_AutoSaveRef	rs.l	1
+Ed_Avert	rs.w	1
+
+Ed_Ty		rs.w	1
+Ed_Block	rs.l	1
+Ed_BufE:	rs.l 	1
+Ed_BufT:	rs.l 	1
+Ed_WindowToDel	rs.l	1
+Ed_EtCps	rs.b 	1
+Ed_EtatAff	rs.b	1
+Ed_EtXX		rs.b	8
+Ed_EtOCps	rs.b 	1
+EdC_Modified	rs.b	1
+Ed_MemoryX	rs.w	1
+Ed_MemorySx	rs.w	1
+
+Ed_Resource	rs.l	1
+
+Ed_ExtTitles	rs.l	26
+
+Ed_MKey		rs.b	1
+Ed_MkFl		rs.b	1
+Ed_MkIns	rs.b	1
+Ed_OMKey	rs.b	1
+Ed_BigView	rs.b	1
+Ed_LinkTokCur	rs.b	1
+
+Ed_MkCpt	rs.w	1
+Ed_WMax		rs.w	1
+Ed_SchLong	rs.b	1
+Ed_RepLong	rs.b 	1
+Ed_Opened	rs.b	1
+Ed_TstMesOn	rs.b	1
+Ed_NewAppear	rs.b	1
+Ed_Ok		rs.b	1
+
+Ed_NoAff	rs.b	1
+Ed_Warm		rs.b	1
+Ed_Disk		rs.w	1
+Ed_FSel		rs.w	1
+
+Ed_SchBuf	rs.b 	34
+Ed_RepBuf	rs.b 	34
+
+EdM_Table	rs.l	1
+EdM_TableSize	rs.l	1
+EdM_TableAMOS	rs.l	1
+EdM_MenuAMOS	rs.l	1
+EdM_MessAMOS	rs.l	1
+EdM_PosHidden	rs.w	1
+EdM_Flag	rs.b	1
+Ed_RunnedHidden	rs.b	1
+Ed_MemCurrent	rs.l	1
+Dia_Magic	rs.l	1
+
+EdM_Copie	rs.b	Mn_ESave-Mn_SSave
+Ed_Boutons	rs.b	Bt_Long*14
+
+
+SlDelai		equ 	10
+
+; Zone de sauvegarde de la config Editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DConfig	equ	__RS
+; Screen definition
+Ed_Sx		rs.w	1
+Ed_Sy		rs.w	1
+Ed_Wx		rs.w	1
+Ed_Wy		rs.w	1
+Ed_VScrol	rs.w	1
+Ed_Inter	rs.b	1
+		rs.b	1
+; Colour back
+Ed_ColB		rs.w	1
+; Length UNDO
+Ed_LUndo	rs.l	1
+Ed_NUndo	rs.l	1
+; Untok case
+DtkMaj1		rs.b	1
+DtkMaj2		rs.b	1
+; Flags
+Ed_SvBak	rs.b	1
+EdM_Keys	rs.b	1
+Esc_KMemMax	rs.w	1
+; Colour palette
+Ed_Palette	rs.w	8
+; Escape mode positions
+Es_Y1		rs.w	1
+Es_Y2		rs.w	1
+; Security!
+		rs.l	7
+; Flags change within the editor
+Ed_AutoSave	rs.l	1
+Ed_AutoSaveMn	rs.l	1
+Ed_SchMode	rs.w 	1
+Ed_Tabs		rs.w	1
+Esc_Output	rs.b	1
+Ed_QuitFlags	rs.b	1
+Ed_Insert	rs.b	1
+Ed_Sounds	rs.b	1
+
+; Programmes autoload
+; ~~~~~~~~~~~~~~~~~~~
+Ed_AutoLoad	rs.b	3*184
+; Touches par defaut
+; ~~~~~~~~~~~~~~~~~~
+Ed_KFonc	rs.b	3*184
+		rs.b	2
+
+Ed_Code		rs.l	1
+
+Ed_FConfig	equ	__RS
+
+; Find de la config editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+********************************* Total data length
+DataLong:	equ __RS
+
+;	Flags banques
+; ~~~~~~~~~~~~~~~~~~~
+Bnk_BitData	equ	0		Banque de data
+Bnk_BitChip	equ	1		Banque en chip
+Bnk_BitBob	equ	2		Banque de Bobs
+Bnk_BitIcon	equ	3		Banque d'icons
+
+; _____________________________________________________________________________
+;
+;				 	D�finition d'un programme
+; _____________________________________________________________________________
+;
+
+		RsReset
+
+Prg_Next	rs.l	1		0 Prochain dans la liste
+
+Prg_NLigne:	rs.w 	1		2 Nombre de lignes
+
+Prg_StMini	rs.l	1		6 Buffer de stockage
+Prg_StTTexte	rs.l 	1		10
+Prg_StHaut	rs.l 	1		14
+Prg_StBas	rs.l 	1		18
+Prg_Banks	rs.l	1
+Prg_Dialogs	rs.l	1
+Prg_StModif	rs.b 	1		Listing modifie
+Prg_Change	rs.b	1		Sauver le programme
+Prg_Edited	rs.b	1		Une fenetre?
+Prg_NoNamed	rs.b	1		Numero de la structure
+Prg_Not1.3	rs.b	1		Compatible 1.3?
+Prg_Reloaded	rs.b	1		Program modified?
+Prg_MathFlags	rs.b	1		Flags mathematiques
+		rs.b	1
+
+Prg_Previous	rs.l	1		Programme precedent
+Prg_RunData	rs.l	1		Donn�e si PRUN
+Prg_ZapData	rs.l	1
+Prg_AdEProc	rs.l 	1		Procedure d'erreur
+Prg_XEProc	rs.w 	1
+
+Prg_Undo	rs.l	1		Buffer undo
+Prg_PUndo	rs.l	1		Position dans buffer
+Prg_LUndo	rs.l	1		Longueur du buffer actuel
+Prg_TUndo	rs.l	1		Longueur totale buffer
+Prg_Marks	rs.l 	10
+
+Prg_NamePrg	rs.b	128		Nom du programme
+Prg_Long	equ	__RS
+
+
+; _____________________________________________________________________________
+;
+;				 	D�finition d'une edition
+; _____________________________________________________________________________
+;
+
+		RsReset
+Edt_Next	rs.l	1		Edition suivante
+Edt_Prg		rs.l	1		Adresse structure programme
+Edt_BufE	rs.l	1		Adresse buffer edition
+
+; Donn�es affichage
+Edt_Order	rs.w	1		Numero d'ordre dans l'affichage
+Edt_Window	rs.w	1		Numero des diverse zones / fenetres
+Edt_WindEtat	rs.w	1
+Edt_Zones	rs.w	1
+Edt_ZEtat	rs.w	1
+Edt_ZBas	rs.w	1
+
+Edt_X		rs.w	1		Coordonnees de la fenetre
+Edt_Y		rs.w	1
+Edt_Sy		rs.w	1
+Edt_WindX	rs.w	1
+Edt_WindY	rs.w	1
+Edt_WindSx	rs.w	1
+Edt_WindSy	rs.w	1
+Edt_WindTx	rs.w	1
+Edt_WindTy	rs.w	1
+Edt_WindOldTy	rs.w	1
+Edt_WindEX	rs.w	1
+Edt_WindEY	rs.w	1
+Edt_WindESx	rs.w	1
+Edt_BasY	rs.w	1
+Edt_EtMess	rs.w 	1
+Edt_EtAlert	rs.l 	1
+
+Edt_SInit	equ	__RS		Zone � remettre � zero
+Edt_SReload	equ	__RS
+Edt_SSplit	equ	__RS
+Edt_XPos	rs.w 	1		Positions texte dans fenetre
+Edt_YPos	rs.w 	1
+Edt_XCu		rs.w 	1		Positions curseur
+Edt_YCu		rs.w 	1
+Edt_DebProc	rs.l 	1
+Edt_CurLigne	rs.l 	1		Recherche
+Edt_LEdited	rs.w	1		Flag ligne editee
+Edt_EInit	equ	__RS
+Edt_EReload	equ	__RS
+Edt_ESplit	equ	__RS
+
+Edt_XBloc	rs.w	1		Position bloc
+Edt_YBloc	rs.w	1
+Edt_YOldBloc	rs.w	1
+
+Edt_LinkPrev	rs.l	1		Links de fenetre
+Edt_LinkNext	rs.l	1
+Edt_LinkScroll	rs.l	1
+Edt_LinkYOld	rs.w	1
+
+Edt_Hidden	rs.b	1		Fenetre cachee
+Edt_LinkFlag	rs.b	1		Fenetre linkee
+Edt_First	rs.b	1		Premiere fenetre affichee?
+Edt_Last	rs.b	1		Derniere fenetre affichee?
+Edt_EtatAff	rs.b	1		Flags ligne d'etat
+Edt_PrgDelete	rs.b	1		Programme � effacer en retour
+Edt_ASlY	rs.b	1		Compteur affichage slider
+		rs.b	1
+
+Edt_SlV		rs.b	Sl_Long		Structure slider
+Edt_Bt1		rs.b	Bt_Long		Structures bouton
+Edt_Bt2		rs.b	Bt_Long
+Edt_Bt3		rs.b	Bt_Long
+		rs.w	1
+Edt_Long	equ	__RS		Longueur de la structure
+
+;						Flags de la ligne d'etat
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EtA_Caps	equ	0
+EtA_Ins		equ	1
+EtA_X		equ	2
+EtA_Y		equ	3
+EtA_Nom		equ	4
+EtA_Free	equ	5
+EtA_Clw		equ	6
+EtA_Alert	equ	7
+EtA_BXY		equ	%00001100
+EtA_BAll	equ	%01111111
+
+;			AREXX
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+RC_OK			equ	0
+RC_WARN			equ	5
+RC_ERROR		equ	10
+RC_FATAL		equ	20
+RXCODEMASK		equ 	$FF000000
+RXCOMM			equ	$01000000
+RXFUNC			equ	$02000000
+RXFF_RESULT		equ	$00020000
+ra_Length		equ	4
+ra_Buff			equ	8
+rm_Result1		equ	$20
+rm_Result2		equ	$24
+rm_Sdtin		equ	$74
+rm_Sdout		equ	$78
+rm_Args			equ	$28
+rm_Action		equ	$1c
+
+;		Main Token list Special Tokens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+_TkEg           equ     $FFFFFFA2
+_TkM            equ     $FFFFFFCA
+_TkPow          equ     $FFFFFFF6
+_TkVar          equ     $00000006
+_TkLab          equ     $0000000C
+_TkPro          equ     $00000012
+_TkLGo          equ     $00000018
+_TkBin          equ     $0000001E
+_TkCh1          equ     $00000026
+_TkCh2          equ     $0000002E
+_TkHex          equ     $00000036
+_TkEnt          equ     $0000003E
+_TkFl           equ     $00000046
+_TkExt          equ     $0000004E
+_TkDP           equ     $00000054
+_TkVir          equ     $0000005C
+_TkPVir         equ     $00000064
+_TkDieze        equ     $0000006C
+_TkPar1         equ     $00000074
+_TkPar2         equ     $0000007C
+_TkBra1         equ     $00000084
+_TkBra2         equ     $0000008C
+_TkTo           equ     $00000094
+_TkNot          equ     $0000009C
+_TkSwap         equ     $000000A6
+_TkDFn          equ     $000000B0
+_TkFn           equ     $000000BC
+_TkFol          equ     $000000D4
+_TkAs           equ     $000001E6
+_TkCall         equ     $000001EE
+_TkBcl1         equ     $0000023C
+_TkFor          equ     $0000023C
+_TkNxt          equ     $00000246
+_TkRpt          equ     $00000250
+_TkUnt          equ     $0000025C
+_TkWhl          equ     $00000268
+_TkWnd          equ     $00000274
+_TkDo           equ     $0000027E
+_TkLoo          equ     $00000286
+_TkExIf         equ     $00000290
+_TkExit         equ     $0000029E
+_TkGto          equ     $000002A8
+_TkGsb          equ     $000002B2
+_TkIf           equ     $000002BE
+_TkThen         equ     $000002C6
+_TkElse         equ     $000002D0
+_TkEndI         equ     $000002DA
+_TkOnE          equ     $000002E6
+_TkOnB          equ     $000002F4
+_TkOMen         equ     $00000308
+_TkOn           equ     $00000316
+_TkRLab         equ     $0000031E
+_TkRes          equ     $00000330
+_TkPpp          equ     $0000033C
+_TkEve          equ     $0000034A
+_TkBcl2         equ     $00000355
+_TkStp          equ     $00000356
+_TkProc         equ     $00000376
+_TkPrc          equ     $00000386
+_TkEndP         equ     $00000390
+_TkSha          equ     $0000039E
+_TkGlo          equ     $000003AA
+_TkData         equ     $00000404
+_TkRead         equ     $0000040E
+_TkRest         equ     $00000418
+_TkInc          equ     $00000444
+_TkDec          equ     $0000044E
+_TkAd2          equ     $00000458
+_TkAd4          equ     $00000462
+_TkHPr          equ     $0000046A
+_TkPr           equ     $00000476
+_TkLPr          equ     $00000482
+_TkUsing        equ     $000004A6
+_TkDInp         equ     $000004B2
+_TkDLInp        equ     $000004BE
+_TkInp          equ     $000004D0
+_TkLInp         equ     $000004DC
+_TkSBu          equ     $000004FE
+_TkMid1         equ     $0000050E
+_TkMid2         equ     $00000546
+_TkVptr         equ     $00000614
+_TkDim          equ     $00000640
+_TkRem1         equ     $0000064A
+_TkRem2         equ     $00000652
+_TkSort         equ     $00000658
+_TkFnd1         equ     $00000662
+_TkMin          equ     $000006EA
+_TkMax          equ     $000006F6
+_TkMat1         equ     $00000702
+_TkMat2         equ     $00000790
+_TkDMn          equ     $0000081E
+_TkSMn          equ     $0000081E
+_TkXMn          equ     $00000832
+_TkYMn          equ     $00000840
+_TkMnK          equ     $0000084E
+_TkIMn1         equ     $00000862
+_TkMnCl         equ     $00000934
+_TkIMn2         equ     $00000956
+_TkMnD          equ     $00000956
+_TkMenu         equ     $00000964
+_TkFMn          equ     $00000970
+_TkScD          equ     $00000A18
+_TkScO          equ     $00000A36
+_TkScS          equ     $00000A4E
+_TkScr          equ     $00000C6E
+_TkDPal         equ     $00000CD8
+_TkPal          equ     $00000CFC
+_TkRn           equ     $00000DDC
+_TkFade         equ     $00000DFE
+_TkPoL          equ     $00000EAC
+_TkPoG          equ     $00000EBA
+_TkFld          equ     $00001948
+_TkSpr          equ     $00001A94
+_TkBob          equ     $00001B9E
+_TkChan         equ     $00001F94
+_TkAMOSPro      equ     $00002561
+_TkSetA         equ     $00002578
+_TkML           equ     $0000258C
+_TkTrap         equ     $0000259A
+_TkElsI         equ     $000025A4
+_TkIncl         equ     $000025B2
+_TkArray        equ     $000025C0
+_TkEqu          equ     $00002A40
+_TkLVO          equ     $00002A4A
+_TkStru         equ     $00002A54
+_TkStruS        equ     $00002A64
+_TkDFl          equ     $00002B6A
+_TkDPre         equ     $00002B84
+_TkStack        equ     $00002B9E
+_TkAPCmp	equ	$00002BF4
+
+;		File Selector specials
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Fs_Sp		rs.l	1
+Fs_OldEc	rs.w	1
+Fs_AdEc		rs.l	1
+Fs_Channel	rs.l	1
+Fs_Variables	rs.l	1
+Fs_Input	rs.w	1
+Fs_Command	rs.w	1
+Fs_Waiting	rs.w	1
+Fs_Click	rs.w	1
+
+Fs_Array	rs.b	1
+		rs.b	1
+Fs_ASize	rs.w	1
+Fs_AMagic	rs.l	1
+Fs_ACall	rs.l	1
+
+Fs_LimSave	rs.w	4
+
+Fs_Opened	rs.b	1
+Fs_Blocked	rs.b	1
+Fs_DirOn	rs.b	1
+Fs_DevFlag	rs.b	1
+Fs_Long		equ	__RS
+
+Fs_ChannelN	equ	$AABBCCDD
+Fs_SliderN	equ	12
+Fs_ListN	equ	13
+Fs_PathN	equ	14
+Fs_FileN	equ	15
+Fs_SliderS	equ	18
+
+FsV_Titre0	equ	0*4
+FsV_Titre1	equ	1*4
+FsV_Sort	equ	7*4
+FsV_Size	equ	8*4
+FsV_PList	equ	10*4
+FsV_Array	equ	11*4
+FsV_Tx		equ	12*4
+FsV_Ty		equ	13*4
+FsV_Path	equ	15*4
+FsV_File	equ	14*4
+FsV_Store	equ	16*4
+FsV_PosFirst	equ	25*4
+FsV_AffFlag	equ	26*4
+FsV_Max		equ	27
+Fs_MaxStore	equ	10
+
+;		Macros pour librairie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Ini		MACRO
+Lib_Count	set	\1
+		ENDM
+Lib_Def		MACRO
+L\<Lib_Count>:
+Lib_Count	set	Lib_Count+1
+		ENDM
+Lib_Par		MACRO
+		IFNE	Debug
+		dc.b	"**"
+		dc.w	Lib_Count
+		ENDC
+		dc.b	"GetP"
+L\<Lib_Count>:
+Lib_Count	set	Lib_Count+1
+		ENDM
+Lib_Int		MACRO
+L\<Lib_Count>:
+Lib_Count	set	Lib_Count+1
+		ENDM
+Lib_End		MACRO
+L\<Lib_Count>
+Lib_Count	set	Lib_Count+1
+		ENDM
+Lib_Empty	MACRO
+L\<Lib_Count>
+Lib_Count	set	Lib_Count+1
+		ENDM
+Lib_Cmp		MACRO
+		IFNE	Lib_Count>L_\1
+		Fail
+		ENDC
+		Lib_Pos	L_\1
+		Lib_Empty
+		ENDM
+Lib_Pos		MACRO
+		IFNE	\1>Lib_Count
+		REPT	\1-Lib_Count
+		Lib_Empty
+		ENDR
+		ENDC
+		ENDM
+Lib_Ext		MACRO
+L\<Lib_Count>:
+Lib_Count	set	Lib_Count+1
+		ENDM
+
+
+
+MCInit		MACRO
+LC		set	0
+LC0		set	0
+		ENDM
+MC		MACRO
+LC0		set	LC
+LC		set	LC+1
+		dc.w	(L\<LC>-L\<LC0>)/2
+		ENDM
+
+;		Zone de donn�es propre a chaque librairie...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LB_MemAd	equ	-4
+LB_MemSize	equ	-8
+LB_NRout	equ	-10
+LB_Free		equ	-11
+LB_Flags	equ	-12
+LB_Title	equ	-16
+LB_Command	equ	-20
+LB_Verif	equ	-24
+LB_LibSizes	equ	-28
+LB_DFloatSwap	equ	-30
+LB_FFloatSwap	equ	-32
+LB_Append	equ	-36
+LB_Size		equ	36
+LBF_Verif	equ	0
+LBF_DFloat	equ	1
+LBF_20		equ	2
+LBF_Called	equ	3
+LBF_AlwaysInit	equ	4
+;		Macros pour branchements internes aux librairies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+JJsrIns		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		move.l	AdTokens+\2*4(a5),a0
+		move.l	-LB_Size-4-\1*4(a0),a0
+		jsr	4(a0)
+		ENDM
+JJsr		MACRO
+		IFEQ	NARG=1
+		FAIL
+		ENDC
+		move.l	AdTokens(a5),a0
+		move.l	-LB_Size-4-\1*4(a0),a0
+		jsr	(a0)
+		ENDM
+JJmp		MACRO
+		IFEQ	NARG=1
+		FAIL
+		ENDC
+		move.l	AdTokens(a5),a0
+		move.l	-LB_Size-4-\1*4(a0),a0
+		jmp	(a0)
+		ENDM
+JJsrR		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		move.l	AdTokens(a5),\2
+		move.l	-LB_Size-4-\1*4(\2),\2
+		jsr	(\2)
+		ENDM
+JJsrP		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		move.l	\2,-(sp)
+		move.l	AdTokens(a5),\2
+		move.l	-LB_Size-4-\1*4(\2),\2
+		jsr	(\2)
+		move.l	(sp)+,\2
+		ENDM
+JJmpR		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		move.l	AdTokens(a5),\2
+		move.l	-LB_Size-4-\1*4(\2),\2
+		jmp	(\2)
+		ENDM
+JLea		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		move.l	AdTokens(a5),\2
+		move.l	-LB_Size-4-\1*4(\2),\2
+		ENDM
+
+; 		For internal branch from AMOSPro to library (where A4= AdTokens)
+;		Or Library to internal AMOSPro: changed to BSR under compiled!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ijsr		MACRO
+		IFEQ	NARG=1
+		FAIL
+		ENDC
+		IFD	Lib_Includes
+		FAIL
+		ENDC
+		move.l	-LB_Size-4-\1*4(a4),a0
+		jsr	(a0)
+		ENDM
+Ijmp		MACRO
+		IFEQ	NARG=1
+		FAIL
+		ENDC
+		IFD	Lib_Includes
+		FAIL
+		ENDC
+		move.l	-LB_Size-4-\1*4(a4),a0
+		jmp	(a0)
+		ENDM
+IjsrR		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		IFD	Lib_Includes
+		FAIL
+		ENDC
+		move.l	-LB_Size-4-\1*4(a4),\2
+		jsr	(\2)
+		ENDM
+IjmpR		MACRO
+		IFEQ	NARG=2
+		FAIL
+		ENDC
+		IFD	Lib_Includes
+		FAIL
+		ENDC
+		move.l	-LB_Size-4-\1*4(a4),\2
+		jmp	(\2)
+		ENDM
+
+Pair		MACRO
+		addq.l	#1,\1
+		and.w	#$FFFE,\1
+		ENDM
+IDia_Errors	equ	120-1
+
+;		Taille des boucles
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TForNxt	equ 	24		24 octets pour une FOR/NEXT
+TRptUnt	equ 	10
+TWhlWnd	equ 	10
+TDoLoop	equ 	10
+
+;		Token table flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Nul		equ	1
+L_NoFlag	equ	%1000000000000000
+L_Entier	equ	%0000000000000000
+L_FFloat	equ	%0001000000000000
+L_FAngle	equ	%0010000000000000
+L_FMath		equ	%0011000000000000
+L_VRes		equ	%0100000000000000
diff --git a/+ILib.s b/+ILib.s
new file mode 100644
index 0000000..4edcf99
--- /dev/null
+++ b/+ILib.s
@@ -0,0 +1,7773 @@
+
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+;---------------------------------------------------------------------
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INITIALISATION LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Init
+Init
+; - - - - - - - - - - - - -
+	move.w	#$00FF,d0		Librairie numero 0
+	move.w	#Ver_Number,d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES A NETTOYER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Routines de chargement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Int	Edit_Load
+	Lib_Int	Edit_Free
+	Lib_Int	Mon_Load
+	Lib_Int	Mon_Free
+
+;	Entrees dans le moniteur (5 places)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Def	Mon_Start
+	Lib_Def	Mon_In_Editor
+	Lib_Def	Mon_In_Program
+	Lib_Def	Mon_MonitorChr
+	Lib_Def	Mon_Free2
+	Lib_Def	Mon_Free3
+
+; 	Entrees dans l'editeur (15 places)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Def	Ed_Start
+	Lib_Def	Ed_Cold				0
+	Lib_Def	Ed_Title			1
+	Lib_Def	Ed_End				2
+	Lib_Def	Ed_Loop				3
+	Lib_Def	Ed_ErrRun			4
+	Lib_Def	Ed_CloseEditor			5
+	Lib_Def	Ed_KillEditor			6
+	Lib_Def	Ed_ZapFonction			7
+	Lib_Def	Ed_ZapIn			8
+	Lib_Def	Ed_RunDirect			9
+	Lib_Def	Tokenise			10
+	Lib_Def	Detok				11
+	Lib_Def	Mon_Detok			12
+	Lib_Def	TInst				13
+	Lib_Def	Ed_Free1			14
+	Lib_Def	Ed_Free2			15
+	Lib_Def	Ed_Free3			16
+	Lib_Def	Ed_Free1			17
+	Lib_Def	Ed_Free2			18
+
+; 	Routines dans la verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Int	Tk_FindA
+	Lib_Int	Tk_EditL
+	Lib_Int	Tk_FindL
+	Lib_Int	Tk_FindN
+	Lib_Int	Tk_SizeL
+	Lib_Int	Prg_RunIt
+	Lib_Int	Prg_TestIt
+	Lib_Int	Prg_Save
+	Lib_Int	Prg_Load
+	Lib_Int	Prg_New
+	Lib_Int	Prg_NewStructure
+	Lib_Int	Prg_DelStructure
+	Lib_Int	Prg_AccAdr
+	Lib_Int	Prg_DejaRunned
+	Lib_Int	Prg_DataLoad
+	Lib_Int	Prg_DataSave
+	Lib_Int	Prg_DataNew
+	Lib_Int	Prg_CptLines
+	Lib_Int	Prg_ChgTTexte
+	Lib_Int	Prg_SetBanks
+	Lib_Int	Prg_ReSetBanks
+	Lib_Int	Prg_SetBanks
+	Lib_Int	Prg_Pull
+	Lib_Int	ClearVar
+	Lib_Int	PTest
+	Lib_Int	SsTest
+	Lib_Int	ResVNom
+	Lib_Int	ResDir
+	Lib_Int	ResVarBuf
+	Lib_Int	VerDirect
+	Lib_Int	Stack_Reserve
+	Lib_Int	Includes_Clear
+	Lib_Int	Includes_Adr
+	Lib_Int	Equ_Free
+
+; 	Routines internes � "+b.s"
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Int	RamFast			Ram Access
+	Lib_Int	RamFast2
+	Lib_Int	RamChip
+	Lib_Int	RamChip2
+	Lib_Int	RamFree
+	Lib_Int	ResTempBuffer
+
+	Lib_Int	Math_Close
+	Lib_Int	Sys_WaitMul
+	Lib_Int	Def_GetMessage
+	Lib_Int	Sys_GetMessage
+	Lib_Int	GetMessage
+	Lib_Int	Sys_AddPath
+	Lib_Def	Sys_GetPath		Pour le compilateur!
+	Lib_Int	Sys_UnCode
+	Lib_Int	MemMaximum
+	Lib_Int	MemDelBanks
+	Lib_Int	TheEnd
+	Lib_Int	UserReg
+	Lib_Int	VersionN
+	Lib_Int	BugBug
+	Lib_Int	PreBug
+	Lib_Int	Sys_ClearCache
+	Lib_Int	WOption
+	Lib_Int	ReCop
+
+	Lib_Int	Lst.ChipNew		Gestion des listes
+	Lib_Int	Lst.New
+	Lib_Int	Lst.Cree
+	Lib_Int	Lst.DelAll
+	Lib_Int	Lst.Del
+	Lib_Int	Lst.Insert
+	Lib_Int	Lst.Remove
+	Lib_Int	Bnk.PrevProgram
+	Lib_Int	Bnk.CurProgram
+	Lib_Int	AskDir
+	Lib_Int	AskDir2
+
+;	Special compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Def	Tokenisation		Routines pour APCMP
+	Lib_Def	Testing
+	Lib_Def	CValRout
+
+	Lib_Def	CmpInit1		Routines d'initialisation
+	Lib_Def	CmpInit2
+	Lib_Def	AMOSInit
+	Lib_Def	CmpDbMode
+	Lib_Def	CmpLineCLI
+	Lib_Def	CmpLineSER
+	Lib_Def	CmpPrintCLI
+	Lib_Def	CmpPrintSER
+	Lib_Def	CmpEffVarBuf
+	Lib_Def	CmpLibrariesInit
+	Lib_Def	CmpLibrariesStop
+	Lib_Def	CmpEndRoutines
+	Lib_Def	CmpLibClose
+	Lib_Def	CmpClearVar
+
+	Lib_Def	PlusF			Routines d'operateurs
+	Lib_Def	PlusC
+	Lib_Def	MoinsF
+	Lib_Def	MoinsC
+	Lib_Def	MultE
+	Lib_Def	MultF
+	Lib_Def	DiviseE
+	Lib_Def	DiviseF
+	Lib_Def	Puissance
+	Lib_Def	Modulo
+	Lib_Def	Chaine_Compare
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEFRUN: initialisation graphique
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DefRun1
+; - - - - - - - - - - - - -
+	tst.w	DefFlag(a5)
+	beq	DRunX
+	movem.l	d0-d7/a0-a6,-(sp)
+; Enleve les animations
+; ~~~~~~~~~~~~~~~~~~~~~
+	SyCall	AMALClr
+	clr.w	PAmalE(a5)
+; Enleve les rainbows
+; ~~~~~~~~~~~~~~~~~~~
+	EcCalD	RainDel,-1
+; Appel des routines de nettoyage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+; Enleve tous les ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	PI_DefEBa(a5),ColBack(a5)
+	moveq	#0,d1
+	moveq	#7,d2
+	EcCall	DelAll
+	clr.w	ScOn(a5)
+	clr.l	ScOnAd(a5)
+	move.w	#8,CurTab(a5)		Tab par defaut
+; Enleve le tempras
+; ~~~~~~~~~~~~~~~~~
+	clr.l	RasLock(a5)
+	Rjsr	L_FreeRas
+; Enleve les blocs!
+; ~~~~~~~~~~~~~~~~~
+	EcCall	CBlRaz
+	EcCall	BlRaz
+; Enleve les font-infos
+; ~~~~~~~~~~~~~~~~~~~~~
+	EcCall	FFonts
+; RAZ des canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AnCanaux(a5),a0
+	moveq	#0,d0
+DRun1:	clr.b	(a0)+
+	move.b	d0,(a0)+
+	addq.w	#1,d0
+	cmp.w	#64,d0
+	bne.s	DRun1
+; Priority off
+; ~~~~~~~~~~~~
+	moveq	#0,d1
+	moveq	#0,d2
+	SyCall	SPrio
+; RAZ des scrollings
+; ~~~~~~~~~~~~~~~~~~
+	moveq	#NDScrolls-1,d0
+	lea	DScrolls(a5),a0
+DRun2:	move.w	#$8000,(a0)
+	lea	12(a0),a0
+	dbra	d0,DRun2
+; Interruptions branchees
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	clr.w	InterOff(a5)
+	move.w	InterOff(a5),d1
+	SyCall	SetSync
+	move.w	#%0111000100000000,ActuMask(a5)
+	clr.w	VBLDelai(a5)
+	clr.w	VBLOCount(a5)
+; Copie la palette par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	PI_DefEPa(a5),a0
+	lea	DefPal(a5),a1
+	moveq	#31,d0
+EdTr:	move.w	(a0)+,(a1)+
+	dbra	d0,EdTr
+; Cree l'ecran (si pas system!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#-2,DefFlag(a5)
+	beq.s	DRex0
+	move.w	PI_DefETx(a5),d2
+	ext.l	d2
+	move.w	PI_DefETy(a5),d3
+	ext.l	d3
+	move.w	PI_DefECo(a5),d4
+	ext.l	d4
+	move.w	PI_DefEMo(a5),d5
+	move.w	PI_DefECoN(a5),d6
+	moveq	#0,d7
+	lea	DefPal(a5),a1
+	EcCalD	Cree,0
+	bne.s	DRex0
+	move.l	a0,ScOnAd(a5)
+	move.w	#1,ScOn(a5)
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	move.w	PI_DefEWx(a5),d2	Si non initialise...
+	bne.s	.Skip1
+	move.l	d4,d2
+.Skip1	move.w	PI_DefEWy(a5),d3
+	bne.s	.Skip2
+	move.l	d4,d3
+.Skip2	EcCalD	AView,0
+; Fait flasher la couleur 3 (si plus de 2 couleurs)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#1,PI_DefECo(a5)
+	beq.s	DRex0
+	moveq	#3,d1
+	moveq	#46,d0
+	Rjsr	L_Sys_GetMessage
+	move.l	a0,a1
+	EcCall	Flash
+; Call extensions
+; ~~~~~~~~~~~~~~~
+	Rbsr	L_DefRunExtensions
+; Fini
+; ~~~~
+DRex0	movem.l	(sp)+,d0-d7/a0-a6
+DRunX:	rts
+
+; - - - - - - - - - - - - -
+	Lib_Def	DefRun2
+; - - - - - - - - - - - - -
+	tst.w	DefFlag(a5)
+	beq.s	DRunX
+	clr.w	DefFlag(a5)
+; Limite la souris
+; ~~~~~~~~~~~~~~~~
+	move.w	T_DefWX(a5),d1
+	move.w	T_DefWY(a5),d2
+	move.w	PI_DefETx(a5),d3
+	move.w	PI_DefETy(a5),d4
+	subq.w	#1,d3
+	subq.w	#1,d4
+	add.w	d1,d3
+	add.w	d2,d4
+	lsl.w	#1,d1
+	lsl.w	#1,d2
+	lsl.w	#1,d3
+	lsl.w	#1,d4
+	lea	LimSave(a5),a0
+	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	move.w	d3,(a0)+
+	move.w	d4,(a0)+
+	lea	T_MouXMin(a5),a0
+	tst.l	(a0)
+	bne.s	.Skip
+	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	move.w	d3,(a0)+
+	move.w	d4,(a0)+
+.Skip	move.l	PI_ParaTrap+16(a5),d1	* Nombre de lignes
+	SyCall	SBufHs
+	SyCall	OffHs
+	SyCall	StoreM
+	SyCall	StoreM
+	SyCall	AffHs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEFRUNACC: semi initialisation graphique pour accessoires
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DefRunAcc
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a6,-(sp)
+; Appel des routines de nettoyage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+; Enleve les animations
+; ~~~~~~~~~~~~~~~~~~~~~
+	SyCall	AMALClr
+	clr.w	PAmalE(a5)
+; RAZ des canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AnCanaux(a5),a0
+	moveq	#0,d0
+.DRun1	clr.b	(a0)+
+	move.b	d0,(a0)+
+	addq.w	#1,d0
+	cmp.w	#64,d0
+	bne.s	.DRun1
+; Priority off
+; ~~~~~~~~~~~~
+	moveq	#0,d1
+	moveq	#0,d2
+	SyCall	SPrio
+; RAZ des scrollings
+; ~~~~~~~~~~~~~~~~~~
+	moveq	#NDScrolls-1,d0
+	lea	DScrolls(a5),a0
+.DRun2	move.w	#$8000,(a0)
+	lea	12(a0),a0
+	dbra	d0,.DRun2
+; Interruptions branchees
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	clr.w	InterOff(a5)
+	move.w	InterOff(a5),d1
+	SyCall	SetSync
+ 	move.w	#%0111000100000000,ActuMask(a5)
+	clr.w	VBLDelai(a5)
+	clr.w	VBLOCount(a5)
+; Call extensions
+; ~~~~~~~~~~~~~~~
+	Rbsr	L_DefRunExtensions
+; Sprites
+; ~~~~~~~
+	SyCall	OffHs
+	SyCall	AffHs
+	move.w	#1,DefFlag(a5)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INITIALISATION ECRAN DES EXTENSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DefRunExtensions
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+.DRex0	lea	ExtAdr(a5),a0
+	moveq	#26-1,d0
+.DRex1	move.l	4(a0),d1
+	beq.s	.DRex2
+	move.l	d1,a1
+	movem.l	a0/d0,-(sp)
+	jsr	(a1)
+	movem.l	(sp)+,a0/d0
+.DRex2	lea	16(a0),a0
+	dbra	d0,.DRex1
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Set Patch sur CHRGET
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SetChrPatch
+; - - - - - - - - - - - - -
+	move.w	d0,Cur_ChrJump(a5)
+	lea	_Poke(pc),a1
+	tst.w	d0
+	beq.s	.Norm
+	move.w	.Mon(pc),(a1)+
+	lsl.w	#2,d0
+	neg.w	d0
+	sub.w	#LB_Size+4,d0
+	move.w	d0,(a1)+
+	bra.s	.Clear
+.Norm	move.l	.Chr(pc),(a1)+
+.Clear	Rjsr	L_Sys_ClearCache
+	rts
+.Chr	move.l	-LB_Size(a4,d1.w),a0
+.Mon	move.l	0(a4),a0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 						ENTREE DU CHRGET
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Pos_IRet
+; - - - - - - - - - - - - -
+	dc.w	_IRet-_DChr
+; - - - - - - - - - - - - -
+	Lib_Def	New_ChrGet
+; - - - - - - - - - - - - - - -
+_DChr	move.l	BasSp(a5),sp
+	move.l	AdTokens(a5),a4
+
+; Adresse du retour d'instructions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	_IRet(pc),a0
+	move.l	a0,Prg_InsRet(a5)
+; Buffer des boucles
+; ~~~~~~~~~~~~~~~~~~
+	Rjsrt	L_Stack_Reserve
+;	beq	VerOut				*** Illegal!
+	move.l	HoLoop(a5),a3
+	move.l	a3,PLoop(a5)
+	move.l	a3,BasA3(a5)
+	move.l	BaLoop(a5),MinLoop(a5)
+	add.l	#64,MinLoop(a5)
+
+; Ouverture des librairies mathematiques / Choix des routines dans la librarie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Open_MathLibraries
+
+; Autres inits
+; ~~~~~~~~~~~~
+	clr.w	T_Actualise(a5)
+	clr.l	AData(a5)
+	move.w	#1,DefFlag(a5)
+	move.l	Prg_Run(a5),a6
+	move.l	a6,DProc(a5)
+	move.l	a6,PData(a5)
+
+; Debuggage
+	IFNE	Debug>1
+	move.l	VarBufL(a5),d0
+	cmp.l	#1024*1,d0
+	bne.s	.NoBug
+	Rjsr	L_PreBug
+.NoBug
+	ENDC
+
+;	Boucle du ChrGet
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	AdTokens(a5),a4
+_NLine	tst.w	(a6)+
+	beq.s	InEnd
+_ILoop	move.w	(a6)+,d0
+	beq.s	_NLine
+_Inst	move.l	a6,d7
+	move.w	0(a4,d0.w),d1		Pointe la table de tokens
+_Poke	move.l	-LB_Size(a4,d1.w),a0
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	jsr	(a0)
+_IRet
+	IFNE	Debug>1
+	move.l	Chr_Debug(a5),a0
+	movem.l	Chr_Debug+4(a5),d0/d1
+ 	cmp.l	a0,a3			Test valide PLOOP
+	bne.s	.Bug
+	cmp.l	d0,d6			Test sauvegarde D6/D7
+	bne.s	.Bug
+	cmp.l	d1,d7
+	beq.s	.Skip
+.Bug	Rjsr	L_BugBug
+	Rjsr	L_InMonitor
+	ENDC
+	IFNE	Debug
+	move.l	Chr_Debug(a5),a0
+	movem.l	Chr_Debug+4(a5),d0/d1
+ 	cmp.l	a0,a3			Test valide PLOOP
+	bne.s	.Bug1
+	cmp.l	d0,d6			Test sauvegarde D6/D7
+	bne.s	.Bug1
+	cmp.l	d1,d7
+	beq.s	.Skip
+.Bug1	Rjsr	L_InMonitor
+	ENDC
+.Skip
+	move.w	(a6)+,d0
+	bne.s	_Inst
+	tst.w	(a6)+
+	bne.s	_ILoop
+	bra.s	InEnd
+
+; - - - - - - - - - - - - -
+	Lib_Par InEnd
+; - - - - - - - - - - - - -
+InEnd	moveq	#NbEnd,d0
+	bra	RunErr
+
+;		Librairies ouvertes par le ChrGet
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MathName	dc.b 	"mathtrans.library",0
+DFloatName	dc.b 	"mathieeedoubbas.library",0
+DMathName	dc.b 	"mathieeedoubtrans.library",0
+		even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EXTENSION INSTRUCTION CALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InExtCall
+; - - - - - - - - - - - - -
+	move.b	(a6)+,d1		# Extension
+	move.b	(a6)+,d0		Nombre de params
+	bpl.s	.Old			NOUVELLE extension?
+;	Nouvelle extension AMOSPro II
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	ext.w	d1
+	lsl.w	#2,d1
+	move.l	AdTokens(a5,d1.w),a0
+	move.w	(a6)+,d0
+	move.w	0(a0,d0.w),d1		# du jump dans la librarie
+	move.w	2(a0,d0.w),d2		Nombre de parametres
+	move.l	-LB_Size(a0,d1.w),a0	Adresse du saut
+	jmp	(a0)			On y va!
+; 	Ancienne extension
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Old	move.w	(a6)+,d2
+	ext.w	d1
+	lsl.w	#2,d1
+	move.l	AdTokens(a5,d1.w),a0
+	add.w	0(a0,d2.w),a0
+	ext.w	d0
+	beq.s	.Skip
+	move.l	a0,-(sp)
+	move.w	d0,-(sp)
+.Loop	bsr	New_Evalue
+	cmp.b	#1,d2
+	bne.s	.Ent
+	Rjsrt	L_FlToInt1
+.Ent	move.l	d3,-(a3)
+	addq.l	#2,a6
+	subq.w	#1,(sp)
+	bne.s	.Loop
+	subq.l	#2,a6
+	addq.l	#2,sp
+	move.l	(sp)+,a0
+.Skip	movem.l	d6-d7,ErrorSave(a5)
+	move.b	#1,ErrorRegs(a5)
+	jsr	(a0)
+	movem.l	ErrorSave(a5),d6-d7
+	clr.b	ErrorRegs(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EXTENSION FUNCTION CALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FnExtCall
+; - - - - - - - - - - - - -
+	move.b	(a6)+,d1
+	move.b	(a6)+,d0
+	bpl.s	.Old			NOUVELLE extension?
+;	Nouvelle extension AMOSPro II
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	ext.w	d1
+	lsl.w	#2,d1
+	move.l	AdTokens(a5,d1.w),a0
+	move.w	(a6)+,d0
+	move.w	0(a0,d0.w),d1		# du jump dans la librarie
+	move.w	2(a0,d0.w),d2		Nombre de parametres
+	move.l	-LB_Size-4(a0,d1.w),a0	Adresse du saut
+	jmp	(a0)			On y va!
+; 	Ancienne extension
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Old	move.w	(a6)+,d2
+	ext.w	d1
+	lsl.w	#2,d1
+	move.l	AdTokens(a5,d1.w),a0
+	add.w	2(a0,d2.w),a0
+	ext.w	d0
+	beq.s	.Skip
+	move.l	a0,-(sp)
+	move.w	d0,-(sp)
+.Loop	bsr	Fn_New_Evalue
+	cmp.b	#1,d2
+	bne.s	.Ent
+	Rjsrt	L_FlToInt1
+.Ent	move.l	d3,-(a3)
+	subq.w	#1,(sp)
+	bne.s	.Loop
+	addq.l	#2,sp
+	move.l	(sp)+,a0
+.Skip	movem.l	d6-d7,ErrorSave(a5)
+	move.b	#1,ErrorRegs(a5)
+	jsr	(a0)
+	movem.l	ErrorSave(a5),d6-d7
+	clr.b	ErrorRegs(a5)
+	rts
+
+;	Ouverture / Echange des routines mathemetiques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Open_MathLibraries
+; - - - - - - - - - - - - -
+Open_MathLibraries
+	move.l	a6,-(sp)
+	move.l	#$c90fd942,ValPi(a5)		Simple precision
+	move.l	#$b4000048,Val180(a5)
+	move.l	#$04040404,Long_Var(a5)
+	move.l	$4.w,a6
+	btst	#1,MathFlags(a5)		Simple precision
+	beq.s	.M1
+	tst.l	MathBase(a5)
+	bne.s	.M1
+	moveq	#0,d0
+	lea	MathName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,MathBase(a5)
+	beq	ErrMLibs
+.M1	tst.b	MathFlags(a5)			Double precicion
+	bpl.s	.M3
+	move.l	#$40668000,Val180(a5)
+	move.l	#$00000000,Val180+4(a5)
+	move.l	#$400921fb,ValPi(a5)
+	move.l	#$54442eea,ValPi+4(a5)
+	move.l	#$04080404,Long_Var(a5)
+	tst.l	DFloatBase(a5)
+	bne.s	.M2
+	moveq	#0,d0
+	lea	DFloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,DFloatBase(a5)
+	beq	ErrMLibs
+.M2	tst.l	DMathBase(a5)
+	bne.s	.M3
+	moveq	#0,d0
+	lea	DMathName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,DMathBase(a5)
+	beq	ErrMLibs
+.M3	bsr	Lib_FloatSwap		Echange les routines float
+	Rjsr	L_Sys_ClearCache
+	move.l	(sp)+,a6
+	rts
+
+; 			Echange des routines float dans la librarie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_FloatSwap
+	movem.l	a2/d2,-(sp)
+	lea	AdTokens(a5),a2
+	moveq	#27-1,d2
+.Loop	tst.l	(a2)
+	beq.s	.MSkip
+	move.l	(a2),a1
+	tst.w	LB_FFloatSwap(a1)
+	beq.s	.MSkip
+	tst.b	MathFlags(a5)
+	bmi.s	.MDble
+	btst	#LBF_DFloat,LB_Flags(a4)
+	bne.s	.MSwap
+	beq.s	.MSkip
+.MDble	btst	#LBF_DFloat,LB_Flags(a4)
+	bne.s	.MSkip
+.MSwap	bsr	Lib_FSwap
+.MSkip	addq.l	#4,a2
+	dbra	d2,.Loop
+	movem.l	(sp)+,a2/d2
+	rts
+; Routine d'echange
+; ~~~~~~~~~~~~~~~~~
+Lib_FSwap
+	bchg	#LBF_DFloat,LB_Flags(a4)
+	move.w	LB_DFloatSwap(a1),d0
+	lsl.w	#2,d0
+	neg.w	d0
+	lea	-LB_Size-4(a1,d0.w),a0
+	move.w	LB_FFloatSwap(a1),d1
+	sub.w	LB_DFloatSwap(a1),d1
+	ext.l	d1
+	lsr.l	#1,d1
+	subq.w	#1,d1
+	bmi.s	.Skip
+.Loop	move.l	-4(a0),d0
+	move.l	-8(a0),-4(a0)
+	move.l	d0,-8(a0)
+	lea	-8(a0),a0
+	dbra	d1,.Loop
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INTERPRETEUR SEUL: recuperation des parametres...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Parameters
+; - - - - - - - - - - - - -
+Par	dc.w	Ent_0-Par		0>>> Entier normal
+	dc.w	Ent_1-Par		1
+	dc.w	Ent_2-Par		2
+	dc.w	Ent_3-Par		3
+	dc.w	Ent_4-Par		4
+	dc.w	Ent_N-Par		5
+	dc.w	Flt_0-Par		6>>> Float normal
+	dc.w	Flt_1-Par		7
+	dc.w	Flt_2-Par		8
+	dc.w	Flt_N-Par		9
+	dc.w	Flt_N-Par		10
+	dc.w	Flt_N-Par		11
+	dc.w	IVar_0-Par		12>> Variable reservee
+	dc.w	IVar_1-Par		13
+	dc.w	IVar_2-Par		14
+	dc.w	IVar_3-Par		15
+	dc.w	IVar_4-Par		16
+	dc.w	IVar_N-Par		17
+	dc.w	Par_Angle-Par		18>> Fonction angle
+	dc.w	Par_Math-Par		19>> Fonction math
+; Si extensions (D2= nombre de params)
+	dc.w	Ent_0-Par		0>>> Entier normal
+	dc.w	Ent_1-Par		1
+	dc.w	Ent_2-Par		2
+	dc.w	Ent_3-Par		3
+	dc.w	Ent_4-Par		4
+	dc.w	EEnt_N-Par		5
+	dc.w	Flt_0-Par		6>>> Float normal
+	dc.w	Flt_1-Par		7
+	dc.w	Flt_2-Par		8
+	dc.w	EFlt_N-Par		9
+	dc.w	EFlt_N-Par		10
+	dc.w	EFlt_N-Par		11
+	dc.w	IVar_0-Par		12>> Variable reservee
+	dc.w	IVar_1-Par		13
+	dc.w	IVar_2-Par		14
+	dc.w	IVar_3-Par		15
+	dc.w	IVar_4-Par		16
+	dc.w	EIVar_N-Par		17
+	dc.w	Par_Angle-Par		18>> Fonction angle
+	dc.w	Par_Math-Par		19>> Fonction math
+
+; 	Variable reserve en instruction, 1 param
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EIVar_N
+	bsr	EFEnt_N
+	bra.s	IVar
+IVar_N	bsr	FEnt_N
+	bra.s	IVar
+IVar_4	bsr.s	FEnt_4
+	bra.s	IVar
+IVar_3	bsr.s	FEnt_3
+	bra.s	IVar
+IVar_2	bsr.s	FEnt_2
+	bra.s	IVar
+IVar_1	bsr.s	FEnt_1
+IVar	move.l	d3,-(a3)
+IVar_0	bsr	Fn_New_Evalue		Recolte du parametre a affecter
+	cmp.b	#1,d2
+	beq.s	.Ent
+	rts
+.Ent	Rjmpt	L_FlToInt1
+
+;	QUATRE parametres ENTIER / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FEnt_4	addq.l	#2,a6
+Ent_4	bsr	New_Evalue
+	cmp.b	#1,d2
+	bne.s	.Ent
+	Rjsrt	L_FlToInt1
+.Ent	move.l	d3,-(a3)
+;	TROIS parametres ENTIER / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FEnt_3	addq.l	#2,a6
+Ent_3	bsr	New_Evalue
+	cmp.b	#1,d2
+	bne.s	.Ent
+	Rjsrt	L_FlToInt1
+.Ent	move.l	d3,-(a3)
+;	DEUX parametres ENTIER / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FEnt_2	addq.l	#2,a6
+Ent_2	bsr	New_Evalue
+	cmp.b	#1,d2
+	bne.s	.Ent
+	Rjsrt	L_FlToInt1
+.Ent	move.l	d3,-(a3)
+;	UN parametre ENTIER / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FEnt_1	addq.l	#2,a6
+Ent_1	bsr	New_Evalue
+	cmp.b	#1,d2
+	beq.s	Ent
+Ent_0	rts
+Ent	Rjmpt	L_FlToInt1
+
+; 	Fonction ANGLE, toujours float, appel FAngle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Par_Angle
+	bsr	Fn_New_Evalue
+	tst.b	d2
+	bne.s	.Flaot
+	Rjsrt	L_IntToFl1
+.Flaot	Rjmpt	L_FFAngle
+
+; 	Fonction mathematique: 1 param, branchement >entier >float
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Par_Math
+	addq.l	#4,sp
+	move.w	d1,-(sp)
+	bsr	Fn_New_Evalue
+	move.w	(sp)+,d0
+	tst.b	d2
+	bne.s	.Float
+	move.l	-LB_Size-4(a4,d0.w),a0		Saute l'appel params
+	jmp	4(a0)
+.Float	move.l	-LB_Size-8(a4,d0.w),a0		Pas d'appel params ici...
+	jmp	(a0)
+
+; 	N Parametres FLOAT / CHAINES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EFFlt_N	addq.l	#2,a6
+EFlt_N	move.w	d2,-(sp)
+	bra.s	SOne
+FFlt_N	addq.l	#2,a6
+Flt_N	move.w	2(a4,d0.w),-(sp)
+	bra.s	SOne
+SLoop	move.l	d3,-(a3)
+	addq.l	#2,a6
+SOne	bsr	New_Evalue
+	tst.b	d2
+	bne.s	SOk
+	Rjsrt	L_IntToFl1
+SOk	subq.w	#1,(sp)
+	bne.s	SLoop
+	rtr
+;	DEUX parametres FLOAT / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FFlt_2	addq.l	#2,a6
+Flt_2	bsr	New_Evalue
+	tst.b	d2
+	bne.s	.Ent
+	Rjmpt	L_IntToFl1
+.Ent	move.l	d3,-(a3)
+;	UN parametre FLOAT / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FFlt_1	addq.l	#2,a6
+Flt_1	bsr	New_Evalue
+	tst.b	d2
+	beq.s	Flt
+Flt_0	rts
+Flt	Rjmpt	L_IntToFl1
+
+; 	N parametres ENTIERS / CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EFEnt_N	addq.l	#2,a6
+EEnt_N	move.w	d2,-(sp)
+	bra.s	_POne
+FEnt_N	addq.l	#2,a6
+Ent_N	move.w	2(a4,d0.w),-(sp)
+	bra.s	_POne
+_PLoop	move.l	d3,-(a3)
+	addq.l	#2,a6
+_POne	bsr	New_Evalue
+	cmp.b	#1,d2
+	bne.s	_POk
+	Rjsrt	L_FlToInt1
+_POk	subq.w	#1,(sp)
+	bne.s	_PLoop
+	rtr
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEST INTER SANS SAUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Test_PaSaut
+Test_PaSaut
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a6,-(sp)
+	bset	#Bit_PaSaut,Test_Flags(a5)
+	bsr.s	Test_Normal
+	bclr	#Bit_PaSaut,Test_Flags(a5)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEST NORMAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Test_Normal
+Test_Normal
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	Test_Force
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEST FORCE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Test_Force
+Test_Force
+; - - - - - - - - - - - - -
+	move.w	ActuMask(a5),d4
+
+; Inhibition par un autre AMOS?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	SyCall	Test_Cyclique
+
+; Les dialogues???
+; ~~~~~~~~~~~~~~~~
+	move.l	Cur_Dialogs(a5),a0	Un dialogue?
+	tst.l	(a0)
+	beq.s	.NoDia
+	Rjsr	L_Dia_AutoTest
+	beq.s	.NoDia
+	add.w	#IDia_Errors,d0
+	Rbra	L_Error
+.NoDia
+; Les menus???
+; ~~~~~~~~~~~~
+	btst	#BitMenu,d4		Menus en route?
+	beq.s	Tst0
+	tst.l	MnBase(a5)		Un menu defini?
+	beq.s	Tst0
+	tst.w	MnProc(a5)		Pas dans une procedure menu
+	bne.s	Tst0
+	tst.l	T_ClLast(a5)		Une touche?
+	beq.s	Tst0a
+	tst.w	Direct(a5)		Pas en mode direct
+	bne.s	Tst0a
+	Rjsr	L_MenuKeyExplore
+Tst0a	btst	#10,$dff016		Afficher le menu?
+	bne.s	Tst0
+	Rjsr	L_MnGere
+	bne	RunErr
+
+; Autres choses???
+; ~~~~~~~~~~~~~~~~
+Tst0	move.w	T_Actualise(a5),d3
+	bclr	#BitControl,d3
+	bne.s	Tst00
+	and.w	d4,d3
+	beq	TstX1
+	bra.s	Tst1
+; CONTROLE-C?
+; ~~~~~~~~~~~
+Tst00	tst.l	Mon_Base(a5)			Retour au moniteur?
+	bne.s	IStop
+	btst	#BitControl,d4			Break autorise?
+	beq.s	Tst01
+IStop	move.w	d3,T_Actualise(a5)
+	moveq	#9,d0
+	bra	RunErr
+Tst01	move.w	d3,T_Actualise(a5)
+	Rjsr	L_OnBreakGo
+	bra.s	Tst1a
+
+; Branchement automatique aux menus?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst1	bclr	#BitJump,d3
+	beq.s	Tst1a
+	Rjsr	L_GoMenu
+
+; Actualisation des ecrans/animations
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst1a	move.w	T_VblCount+2(a5),d0
+	sub.w	VBLOCount(a5),d0
+	cmp.w	VBLDelai(a5),d0
+	bcs	TstX1
+	move.w	T_VblCount+2(a5),VBLOCount(a5)
+; Bobs?
+	bclr	#BitBobs,d3
+	beq.s	Tst2
+	SyCall	EffBob
+	SyCall	ActBob
+	SyCall	AffBob
+	EcCall	SwapScS
+; Hard Sprites?
+Tst2:	bclr	#BitSprites,d3
+	beq.s	Tst3
+	SyCall	ActHs
+	SyCall	AffHs
+; Extensions?
+Tst3:	lsr.b	#1,d3
+	beq.s	Tst4
+	lea	ExtTests(a5),a1
+	bra.s	Tst3b
+Tst3a	move.l	(a1),d0
+	beq.s	Tst3b
+	move.l	d0,a0
+	jsr	(a0)
+Tst3b	addq.l	#4,a1
+	lsr.b	#1,d3
+	bcs.s	Tst3a
+	bne.s	Tst3b
+; Ecrans?
+Tst4:	bclr	#BitEcrans,d3
+	beq.s	Tst5
+	EcCall	CopMake
+Tst5:
+
+; Correction du bug CONTROL-C / Beaucoup de sprites
+	move.w	T_Actualise(a5),d0
+	and.w	#%0000000100000000,d0		BITCONTROL=8
+	or.w	d0,d3
+; Every
+; ~~~~~
+TstX1	move.w	d3,T_Actualise(a5)
+	btst	#BitEvery,d4
+	beq.s	TstX2
+	tst.w	T_EveCpt(a5)
+	bgt.s	TstX2
+	move.w	EveCharge(a5),T_EveCpt(a5)
+	bclr	#BitEvery,d4
+	Rjsr	L_EveJump
+
+TstX2	bclr 	#BitVBL,T_Actualise(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Fait le branchement ON MENU
+;					Appele par TESTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GoMenu
+GoMenu
+; - - - - - - - - - - - - -
+	btst	#Bit_PaSaut,Test_Flags(a5)	* Sauts autorises?
+	bne.s	GoMX
+	tst.w	Direct(a5)			* Mode direct???
+	bne	GoMX
+	lea	MnChoix(a5),a0
+	move.w	(a0),d0
+	beq.s	GoMX
+	cmp.w	OMnNb(a5),d0
+	bls.s	GoMGo
+* Rien trouve: FINI!
+GoMX:	rts
+;	Fait le branchement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+GoMGo	bclr	#BitJump,d4		* Plus de jump!
+	move.w	d4,ActuMask(a5)
+	move.w	d3,T_Actualise(a5)	* Derniere bug avant master!
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.l	OMnBase(a5),a0
+	lsl.w	#2,d0
+	move.l	-4(a0,d0.w),d0
+	move.w	OMnType(a5),d1
+	cmp.w	#_TkGto,d1
+	beq.s	GoMG2
+	cmp.w	#_TkGsb,d1
+	beq.s	GoMG1
+; Procedure!
+; ~~~~~~~~~~
+	move.l	d7,a6
+	subq.l	#2,a6
+	move.l	d0,a2
+	clr.w	-(sp)
+	bra	InProE
+; Gosub
+; ~~~~~
+GoMG1	move.l	d7,a6
+	subq.l	#2,a6
+	bra	Gos2
+; Goto
+; ~~~~
+GoMG2	move.l	d0,a6
+	bra	LGoto
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ON BREAK : Fait le branchement en cas de BREAK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	OnBreakGo
+; - - - - - - - - - - - - -
+	btst	#Bit_PaSaut,Test_Flags(a5)
+	beq.s	.Jmp
+.Skip	rts
+.Jmp	move.l	OnBreak(a5),d0
+	beq.s	.Skip
+	move.l	d0,a2
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.l	d7,a6
+	subq.l	#2,a6
+	clr.w	-(sp)
+	bra	InProE
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fait le branchement a EVERY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	EveJump
+EveJump
+; - - - - - - - - - - - - -
+	tst.l	EveLabel(a5)
+	bne.s	.Jmp
+.Skip	rts
+.Jmp	btst	#Bit_PaSaut,Test_Flags(a5)
+	bne.s	.Skip
+	move.w	d4,ActuMask(a5)
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.w	EveType(a5),d0
+	cmp.w	#_TkGsb,d0
+	beq.s	.Gsb
+; Procedure!
+; ~~~~~~~~~~
+	move.l	d7,a6
+	subq.l	#2,a6
+	move.l	EveLabel(a5),a2
+	clr.w	-(sp)
+	bra	InProE
+; Gosub
+; ~~~~~
+.Gsb	move.l	EveLabel(a5),d0
+	move.l	d7,a6
+	subq.l	#2,a6
+	bra	Gos2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: b.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERREURS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+ErrMLibs
+; - - - - - - - - - - - - -		Cannot open math libraries
+	move.l	Prg_Run(a5),a6		Au debut du programme!
+	moveq	#12,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+MnINDef
+; - - - - - - - - - - - - -
+	moveq	#39,d0
+	bra.s	RunErr
+
+
+
+; - - - - - - - - - - - - -
+	Lib_Def	RIllDir
+RIllDir
+; - - - - - - - - - - - - -
+	moveq	#17,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	OOfData
+; - - - - - - - - - - - - -
+OOfData	moveq	#33,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	OOfBuf
+; - - - - - - - - - - - - -
+OOfBuf	moveq	#11,d0			Out of buffer space
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	InpTL
+InpTL
+; - - - - - - - - - - - - -
+	moveq	#DEBase+20,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	EProErr
+EProErr
+; - - - - - - - - - - - - -
+	moveq	#8,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	ResLNo
+ResLNo
+; - - - - - - - - - - - - -
+	moveq	#6,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	NoOnErr
+NoOnErr
+; - - - - - - - - - - - - -
+	moveq	#5,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	ResPLab
+ResPLab
+; - - - - - - - - - - - - -
+	moveq	#4,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	NoResume
+NoResum
+; - - - - - - - - - - - - -
+	moveq	#3,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	NoErr
+NoErr
+; - - - - - - - - - - - - -
+	moveq	#7,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	OofStack
+OofStack
+; - - - - - - - - - - - - -
+	moveq 	#13,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	NonDim
+NonDim
+; - - - - - - - - - - - - -
+	moveq 	#27,d0
+	bra.s 	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	AlrDim
+AlrDim
+; - - - - - - - - - - - - -
+	moveq 	#28,d0
+	bra.s 	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	DByZero
+DByZero
+; - - - - - - - - - - - - -
+	moveq 	#20,d0
+	bra.s 	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	OverFlow
+OverFlow
+; - - - - - - - - - - - - -
+	moveq 	#29,d0
+	bra.s 	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	RetGsb
+RetGsb
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	PopGsb
+PopGsb
+; - - - - - - - - - - - - -
+	moveq	#2,d0
+	bra.s	RunErr
+; - - - - - - - - - - - - -
+TypeMis
+; - - - - - - - - - - - - -
+	moveq	#34,d0
+
+; __________________________________________________________________________
+;
+;	Traitement des erreurs RUN TIME
+; __________________________________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Error
+; - - - - - - - - - - - - -
+RunErr:	moveq	#19,d1
+	moveq	#-1,d2
+; - - - - - - - - - - - - -
+	Lib_Def	ErrorExt
+; - - - - - - - - - - - - -
+RunErrExt
+; Recupere les registres?
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	ErrorRegs(a5)
+	beq.s	.Skip
+	clr.b	ErrorRegs(a5)
+	movem.l	ErrorSave(a5),d6-d7
+.Skip
+; Appel des routines de fermeture
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	d0-d2/a0,-(sp)
+	lea	Sys_ErrorRoutines(a5),a1
+	SyCall	CallRoutines
+	movem.l	(sp)+,d0-d2/a0
+; Erreurs patchees?
+; ~~~~~~~~~~~~~~~~~
+	tst.l	Patch_Errors(a5)
+	bne	J_EPatch
+; Peut-on detourner l'erreur?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.l	PrintPos(a5)
+	clr.w	InputFlg(a5)
+	clr.w	ContFlg(a5)
+	cmp.w	#11,d0			* Variable space?
+	beq.s	.skip
+	cmp.w	d1,d0
+	bcs	rErr1
+.skip	cmp.w	#1000,d0		* Edit / Direct?
+	bcc	rErr1
+	tst.w	Direct(a5)		* Mode direct
+	bne	rErr1
+	tst.w	ErrorOn(a5)		* Erreur en route
+	bne	rErr1
+	cmp.l	TrapAdr(a5),d7		* TRAP?
+	beq.s	.ETrap
+	tst.l	OnErrLine(a5)		* On error goto
+	beq	rErr1
+; ON ERROR GOTO
+; ~~~~~~~~~~~~~
+	clr.l	TrapAdr(a5)		Plus de trap
+	clr.w	TrapErr(a5)
+	addq.w	#1,d0
+	addq.w	#1,d2
+	lsl.w	#8,d2
+	or.w	d2,d0
+	move.w	d0,ErrorOn(a5)		Numero de l'erreur
+	move.l	PLoop(a5),a3		Position pile expression
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.l	d7,d5
+	subq.l	#2,d5
+	tst.w	ErrorChr(a5)
+	bmi.s	.rErr0
+	move.l	d5,ErrorChr(a5)		On error GOTO
+	move.l	OnErrLine(a5),a6
+	rts
+; ON ERROR PROC
+; ~~~~~~~~~~~~~
+.rErr0	move.l	d5,a6			Retour procedure= RESUME
+	move.l	OnErrLine(a5),a2
+	move.w	ErrorOn(a5),-(sp)
+	bra	InProE
+; Nouvelle intruction TRAP
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.ETrap	clr.l	TrapAdr(a5)
+	addq.w	#1,d2
+	lsl.w	#8,d2
+	or.w	d2,d0
+	move.w	d0,TrapErr(a5)
+	move.l	PLoop(a5),a3
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.l	d7,d5
+	subq.l	#2,d5
+	move.l	d5,a0
+.ResN1	move.w	(a0)+,d0
+	bsr	TInst
+	bne.s	.ResN2
+	tst.w	(a0)
+	beq.s	.ResN2
+	addq.l	#2,a0
+.ResN2	tst.w	d0
+	bsr	FinieB
+	bne.s	.ResN1
+	move.l	a0,a6
+	rts
+
+; Erreurs non d�tourn�es : les menus sont ouverts.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+E_Retour:
+rErr1:
+; Un peu de menage...
+; ~~~~~~~~~~~~~~~~~~~
+	movem.l	a0/d0-d2,-(sp)
+; Effacement des includes
+	move.l	d7,a0
+	subq.l	#2,a0
+	Rjsr	L_Includes_Adr
+	move.l	a0,VerPos(a5)
+	Rjsr	L_Includes_Clear
+; Depile le programme
+	move.l	Prg_JError(a5),a2
+	Rjsr	L_Prg_Pull
+; Une erreur extension?
+; ~~~~~~~~~~~~~~~~~~~~~
+	movem.l	(sp)+,a0/d0-d2
+	move.w	d0,d1
+	tst.w	d2
+	bpl.s	.Ext
+; Erreur normale, branche a l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	sub.l	a0,a0
+	bra.s	.Jmp
+; Erreur extension: trouve le message
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ELoop	tst.b	(a0)+
+	bne.s	.ELoop
+.Ext	dbra	d1,.ELoop
+	moveq	#1,d0			Change le numero message!
+; Branche � la routine courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Jmp	jmp	(a2)
+; Branchement � un detournement des erreurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+J_EPatch
+	move.l	Patch_Errors(a5),a0
+	jmp	(a0)
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEBUT DES ROUTINES AMOS / CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Start_Type
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	||APCMP|| appel de procedure compilee
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	InAPCmp
+; - - - - - - - - - - - - -
+	jsr	APrg_Program(a6)	Appelle le programme
+	move.l	AdTokens(a5),a4		Recharge a4
+	tst.l	d0
+	bmi	RunII			-1 >>> deuxieme partie de RUN
+	bne.s	.Err			Si erreur >>> BREAK!
+	lea	APrg_EndProc(a6),a6	Pointe le delta a la fin
+	add.l	(a6),a6
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	rts
+.Err	move.l	#512,d1			Force l'arret!
+	moveq	#-1,d2
+	Rbra	L_ErrorExt
+
+; - - - - - - - - - - - - -
+	Lib_Def	InAPCmpCLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INSTRUCTION RUN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRun0
+; - - - - - - - - - - - - -
+	tst.w	Direct(a5)
+	beq	Synt
+	Rjmpt	L_Ed_RunDirect
+; - - - - - - - - - - - - -
+	Lib_Def	InRun0CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InRun1
+; - - - - - - - - - - - - -
+	tst.w	Direct(a5)
+	bne	RIllDir
+	tst.l	Mon_Base(a5)
+	bne	PRun_Acc
+	tst.b	Prg_Accessory(a5)
+	bne	PRun_Acc
+; Verifie la presence du programme
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	move.l	Name1(a5),a0
+	Rjsr	L_ChVerBuf2
+	Rjsr	L_Dsk.PathIt
+	move.l	#1005,d2		Verifie la presence du fichier!
+	Rbsr	L_D_Open
+	beq	JDisk
+	Rbsr	L_D_Close		Le ferme!
+; Effacement des includes
+	lea	-2(a4),a0
+	Rjsr	L_Includes_Adr
+	move.l	a0,VerPos(a5)
+	Rjsr	L_Includes_Clear
+; - - - - - - - - - - - - -
+RunII
+; - - - - - - - - - - - - -
+; Fait un new, sans effacer les ecrans
+	move.l	Prg_Runned(a5),a6
+	moveq	#0,d0			Pas d'effacement
+	Rjsr	L_Prg_New
+; Depile le programme
+	Rjsr	L_Prg_Pull
+; Charge le nouveau programme dans la structure
+	move.b	#1,Prg_Reloaded(a6)
+	moveq	#-1,d0			Toujours adapter!
+	Rjsr	L_Prg_Load
+	cmp.w	#-1,d0
+	beq.s	.DErr
+	cmp.w	#-2,d0
+	ble.s	.OMem
+; Run le nouveau programme
+	moveq	#-1,d0			Semi init graphique
+	move.l	Prg_JError(a5),a1	Ou se brancher en erreur
+	sub.l	a2,a2			Pas de message
+	Rjsr	L_Prg_RunIt
+; Erreurs
+; ~~~~~~~
+.OMem	moveq	#36,d0
+	bra.s	.Err
+.DErr	moveq	#101,d0
+.Err	sub.l	a0,a0
+	move.l	Prg_JError(a5),a1
+	jmp	(a1)
+Rn_NoF	moveq	#81,d0			Erreur normale!
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	InRun1CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		INSTRUCTION PRUN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPRun
+; - - - - - - - - - - - - -
+	tst.w	Direct(a5)
+	bne	RIllDir
+	tst.l	Mon_Base(a5)
+	bne	PRun_Acc
+;	tst.b	Prg_Accessory(a5)
+;	bne	PRun_Acc
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	move.l	Name1(a5),a0
+	Rjsr	L_ChVerBuf2
+; Sauve le programme courant
+	movem.l	a3-a6/d6/d7,-(sp)
+; Le programme est-il deja charge?
+	Rjsr	L_Prg_AccAdr
+	beq.s	.Loadit
+	move.l	a0,a6
+	Rjsr	L_Prg_DejaRunned
+	beq.s	.Runit
+; Il faut charger: verifie la presence du programme
+.Loadit	Rjsr	L_Dsk.PathIt
+	move.l	#1005,d2		Verifie la presence du fichier!
+	Rbsr	L_D_Open
+	beq	JDisk
+	Rbsr	L_D_Close		Le ferme!
+; Ouvre une nouvelle structure
+	moveq	#0,d0			Pas de buffer
+	Rjsr	L_Prg_NewStructure	Ouvre la structure
+	beq	OOfMem
+	move.l	d0,a6
+; Charge le programme
+	moveq	#-1,d0			Toujours adapter
+	Rjsr	L_Prg_Load
+	tst.w	d0
+	bne	.LErr
+	move.l	a6,-(sp)		Remet les banques
+	move.l	Prg_Runned(a5),a6	du premier programme
+	Rjsr	L_Prg_SetBanks
+	move.l	(sp)+,a6
+; Programme charge: on le demarre!
+.Runit	moveq	#-1,d0			Semi init graphique
+	lea	PRun_Errors(pc),a1	Retour en cas d'erreur
+	sub.l	a2,a2			Pas de message
+	move.l	sp,BasSp(a5)		Bas de la pile
+	Rjsr	L_Prg_RunIt
+	bra.s	.OMm
+; Erreur lors du chargement
+.LErr	move.w	d0,d1
+	moveq	#101,d0
+	cmp.w	#-1,d1
+	beq.s	.Goerr
+.OMm	moveq	#36,d0
+; Revient au programme, avec un message d'erreur
+.Goerr	move.l	d0,-(sp)
+	tst.b	Prg_Edited(a6)		Efface la structure s'il faut
+	bne.s	.Edited
+	Rjsr	L_Prg_DelStructure
+.Edited	move.l	Prg_Runned(a5),a6
+	Rjsr	L_Prg_SetBanks
+	Rjsr	L_Bnk.Change
+	move.l	(sp)+,d0
+	move.l	Ed_RunMessages(a5),a0
+	Rjsr	L_GetMessage
+	movem.l	(sp)+,a3-a6/d6/d7
+	move.l	sp,BasSp(a5)
+	Rbra	L_ZapReturn
+PRun_Acc
+ 	moveq	#102,d0
+	Rjmp	L_Error
+;	Retour d'erreur lors de PRUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PRun_Errors
+	move.l	BasSp(a5),sp
+	movem.l	(sp)+,a3-a6/d6/d7	Restore le programme
+	move.l	sp,BasSp(a5)
+	movem.l	d6/d7,ErrorSave(a5)	Au cas zou
+	IFNE	Debug
+	movem.l	d6/d7,Chr_Debug+4(a5)	Pour empecher le plantage
+	ENDC
+	movem.l	a0-a1/d0-d1,-(sp)
+	bsr	Open_MathLibraries	Rouvre les libraries
+	movem.l	(sp)+,a0-a1/d0-d1
+
+	cmp.w	#10,d0
+	beq.s	.Nul
+	cmp.w	#1000,d0
+	blt.s	.Null
+.Nul	moveq	#0,d0
+.Null	move.l	ChVide(a5),a0
+	Rbra	L_ZapReturn
+JDisk	Rjmp	L_DiskError
+; - - - - - - - - - - - - -
+	Lib_Def	InPRunCLI
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		ASK EDITOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAskEditor1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InAskEditor3
+; - - - - - - - - - - - - -
+	Lib_Def	InAskEditor1CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par	InAskEditor2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InAskEditor3
+; - - - - - - - - - - - - -
+	Lib_Def	InAskEditor2CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InAskEditor3
+; - - - - - - - - - - - - -
+	bsr	Ed_Par
+	tst.l	Edit_Segment(a5)
+	beq	FonCall
+	Rjsrt	L_Ed_ZapFonction
+	move.l	d0,ParamE(a5)
+	move.l	ChVide(a5),ParamC(a5)
+	tst.w	d2
+	beq.s	.Skip
+	Rjsr	L_A0ToChaine
+	move.l	a0,ParamC(a5)
+.Skip	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InAskEditor3CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		ZAPPEUSE D'EDITEUR!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCallEditor1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InCallEditor3
+; - - - - - - - - - - - - -
+	Lib_Def	InCallEditor1CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InCallEditor2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InCallEditor3
+; - - - - - - - - - - - - -
+	Lib_Def	InCallEditor2CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InCallEditor3
+; - - - - - - - - - - - - -
+	bsr	Ed_Par			Recupere les parametres
+	tst.l	Edit_Segment(a5)
+	beq	FonCall
+	move.l	BasSp(a5),-(sp)		Pousse la pile
+	movem.l	a3-a6/d6/d7,-(sp)	Pousse le programme
+	move.l	sp,BasSp(a5)
+	subq.l	#4,BasSp(a5)
+	Rjsrt	L_Ed_ZapIn		Appel de l'editeur
+	movem.l	(sp)+,a3-a6/d6/d7
+	move.l	(sp)+,BasSp(a5)
+	Rbra	L_ZapReturn
+; - - - - - - - - - - - - -
+	Lib_Def	InCallEditor3CLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Int	Bnk.PrevProgram
+	Lib_Def	Bnk.PrevProgramCLI
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Int	Bnk.CurProgram
+	Lib_Def	Bnk.CurProgramCLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=Prg Under
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnPrgUnder
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	tst.l	Mon_Base(a5)		Si moniteur: RIEN!
+	bne.s	.Exit
+	move.l	Prg_Runned(a5),a0	Un programme en dessous?
+	move.l	Prg_Previous(a0),d0	Non!
+	bne.s	.Out
+	move.l	Edt_Current(a5),d0	Le programme courant?
+	beq.s	.Exit
+	move.l	d0,a1
+	move.l	Edt_Prg(a1),d0
+	cmp.l	d0,a0			Non!
+	beq.s	.Exit
+	tst.l	Edit_Segment(a5)	Editeur KILL?
+	beq.s	.Out
+	moveq	#1,d3			OUIIIIIII
+	bra.s	.Out
+.Exit	moveq	#0,d3
+.Out	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Def	FnPrgUnderCLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Int	InCloseEditor
+	Lib_Def	InCloseEditorCLI
+	Lib_Int	InKillEditor
+	Lib_Def	InKillEditorCLI
+	Lib_Int	InMonitor
+	Lib_Def	InMonitorCLI
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN DES ROUTINES AMOS / CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	End_Type
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Def	RunName
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Recupere les parametres
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Ed_Par
+; - - - - - - - - - - - - -
+Ed_Par	move.l	Name1(a5),a0
+	move.l	Name2(a5),a1
+	clr.w	(a1)
+	cmp.l	#EntNul,d3
+	beq.s	.Skip
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	move.w	d2,(a1)
+	Rjsr	L_ChVerBuf2
+.Skip	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retour de zappeuse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	ZapReturn
+; - - - - - - - - - - - - -
+	move.l	ChVide(a5),ParamC(a5)
+	ext.l	d0
+	move.l	d0,ParamE(a5)
+	beq.s	.Bof
+	Rjsr	L_A0ToChaine
+	move.l	a0,ParamC(a5)
+.Bof	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=Prg State
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnPrgState
+; - - - - - - - - - - - - -
+	move.w	T_AMOState(a5),d3
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - -
+	Lib_Def	GetInstruction
+	Lib_Def	GetInstruction2
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					REM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRem
+; - - - - - - - - - - - - -
+	add.w	(a6)+,a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET BUFFER  / SET STACK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetBuffer
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: branch.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						SAUTE UN LABEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLab
+; - - - - - - - - - - - - - - - -
+	moveq	#0,d0
+	move.b	2(a6),d0
+	lea	4(a6,d0.w),a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SYSTEM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSystem
+InSystem
+; - - - - - - - - - - - - -
+	move.w	#1002,d0
+	bra	RunErr
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EDIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEdit
+InEdit
+; - - - - - - - - - - - - -
+	move.w	#1000,d0
+	bra	RunErr
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DIRECT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDirect
+InDirect
+; - - - - - - - - - - - - -
+	move.w	#1001,d0
+	bra	RunErr
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BREAK ON / OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBreakOn
+InBreakOn
+; - - - - - - - - - - - - -
+	bset	#BitControl,ActuMask(a5)
+	clr.l	OnBreak(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InBreakOff
+InBreakOff
+; - - - - - - - - - - - - -
+	bclr	#BitControl,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ON BREAK PROC label
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOnBreak
+InOnBreak
+; - - - - - - - - - - - - -
+	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,OnBreak(a5)
+	bclr	#BitControl,ActuMask(a5)
+;	Rlea	L_OnBreakGo,0		Pas de routine de branchement
+;	move.l	a0,GoTest_OnBreak(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ON ERROR ...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOnError
+InOnError
+; - - - - - - - - - - - - -
+	tst.w	ErrorOn(a5)		Error not resumed!
+	bne	NoResum
+	clr.l	OnErrLine(a5)
+	clr.l	ErrorChr(a5)
+	cmp.w	#_TkPrc,(a6)
+	beq.s	OnEPrc
+	cmp.w	#_TkGto,(a6)
+	bne.s	.Skip
+	addq.l	#2,a6
+	cmp.w	#_TkEnt,(a6)
+	bne.s	OnEg1
+	move.l	2(a6),d0
+	bne.s	OnEg1
+	addq.l	#6,a6
+.Skip	rts
+
+OnEg1	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,OnErrLine(a5)
+	rts
+
+* ON ERROR PROC
+OnEPrc:	addq.l	#4,a6
+	move.w	(a6)+,d0
+	move.b	(a6),d1
+	ext.w	d1
+	lea	2(a6,d1.w),a6
+	move.l	LabHaut(a5),a2
+	move.l	0(a2,d0.w),OnErrLine(a5)
+	bset	#7,ErrorChr(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InOnErrorGoto
+	Lib_Def	InOnErrorProc
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESUME LABEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResumeLabel
+InResumeLabel
+; - - - - - - - - - - - - -
+	bsr	Finie
+	beq.s	ResL1
+	tst.l	OnErrLine(a5)
+	beq	NoOnErr
+	tst.w	ErrorChr(a5)
+	bpl	NoOnErr
+	bsr	GetLabel
+	beq	LbNDef
+	bset	#31,d0
+	move.l	d0,ErrorChr(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InResumeLabel1
+; - - - - - - - - - - - - -
+* Resume label proprement dit
+ResL1:	bsr	Test_Normal
+	tst.w	ErrorOn(a5)
+	beq	NoErr
+	bsr	PopP
+	clr.w	ErrorOn(a5)
+	move.l	ErrorChr(a5),d0
+	bclr	#31,d0
+	beq	NoOnErr
+	tst.l	d0
+	beq	ResLNo
+	move.l	d0,a6
+	bra	LGoto
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESUME [label]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResume
+InResume
+; - - - - - - - - - - - - -
+	bsr	Test_Normal
+	tst.w	ErrorOn(a5)
+	beq	NoErr
+	tst.w	ErrorChr(a5)
+	bmi.s	ResP
+	bsr	Finie
+	bne.s	ResL
+	clr.w	ErrorOn(a5)
+	move.l	ErrorChr(a5),a6
+	bra	LGoto
+ResL:	bsr	GetLabel
+	beq	LbNDef
+	clr.w	ErrorOn(a5)
+	move.l	d0,a6
+	bra	LGoto
+* PROCEDURE ERREUR!
+ResP:	bsr	Finie			* Pas de label!
+	bne	ResPLab
+	bsr	PopP			* POPpe la procedure
+	clr.w	ErrorOn(a5)
+	bra	LGoto
+; - - - - - - - - - - - - -
+	Lib_Def	InResume1
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESUME NEXT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResumeNext
+InResumeNext
+; - - - - - - - - - - - - -
+	bsr	Test_Normal
+	tst.w	ErrorOn(a5)
+	beq	NoErr
+	tst.w	ErrorChr(a5)
+	bmi.s	ResNP
+	clr.w	ErrorOn(a5)
+	move.l	ErrorChr(a5),a0
+ResN1:	move.w	(a0)+,d0
+	bsr	TInst
+	bne.s	ResN2
+	tst.w	(a0)
+	beq.s	ResN2
+	addq.l	#2,a0
+ResN2:	tst.w	d0
+	bsr	FinieB
+	bne.s	ResN1
+	move.l	a0,a6
+	bra	LGoto
+* Procedure erreur!
+ResNP:	bsr	PopP
+	move.l	a6,a0
+	clr.w	ErrorOn(a5)
+	bra.s	ResN1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TRAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InTrap
+InTrap
+; - - - - - - - - - - - - -
+	lea	2(a6),a0
+	move.l	a0,TrapAdr(a5)
+	clr.w	TrapErr(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=TRAPERR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnErrTrap
+FnErrTrap
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	TrapErr(a5),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EVERY n PROC GOSUB label
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	InEveryGosub
+	Lib_Def	InEveryProc
+	Lib_Par InEvery
+InEvery
+; - - - - - - - - - - - - -
+;	Rlea	L_EveJump,0		Pas de routine de branchement!
+;	move.l	a0,GoTest_Every(a5)
+	bclr	#BitEvery,ActuMask(a5)
+	bsr	New_Expentier
+	tst.l	d3
+	beq	FonCall
+	cmp.l	#32767,d3
+	bcc	FonCall
+	move.w	d3,EveCharge(a5)
+	move.w	d3,T_EveCpt(a5)
+	move.w	(a6)+,EveType(a5)
+	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,EveLabel(a5)
+	bset	#BitEvery,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EVERY OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEveryOff
+InEveryOff
+; - - - - - - - - - - - - -
+	bclr	#BitEvery,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EVERY ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEveryOn
+InEveryOn
+; - - - - - - - - - - - - -
+	bset	#BitEvery,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InFor
+InFor
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0		Pousse l'adresse du NEXT
+	pea	0(a6,d0.w)
+	bsr	FindVar
+	move.w	d2,-(sp)
+	move.l	a0,-(sp)
+	bsr	Fn_New_Evalue		Egalise la variable
+	move.w	4(sp),d1
+	bsr	MMType
+	move.l	(sp)+,a0
+	move.l	d3,(a0)
+	move.l	a0,-(a3)
+	bsr	Fn_New_Evalue		Cherche la limite
+	move.w	(sp),d1
+	bsr	MMType
+	move.l	d3,-(a3)
+	moveq	#0,d2
+	moveq	#1,d3
+	cmp.w	#_TkStp,(a6)
+	bne.s	For3
+	bsr	Fn_New_Evalue		Cherche la STEP
+For3:	move.w	(sp)+,d1
+	bsr	MMType
+	move.l	d3,-(a3)
+	move.w	d2,-(a3)		Poke le type
+	move.l	(sp)+,a0
+	moveq	#TForNxt,d0
+	bra	Rpt0
+* Egalise le type D3 au type demande (D1)
+MMType:	cmp.b	d1,d2
+	bne.s	MMt1
+	rts
+MMt1:	tst.b	d2
+	beq.s	.Int
+	Rjmpt	L_FlToInt1
+.Int	Rjmpt	L_IntToFl1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					NEXT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InNext
+InNext
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TNext
+RNext	move.l	20(a3),a2
+	tst.b	11(a3)
+	bne.s	NextF
+	move.l	12(a3),d3
+	move.l	16(a3),d4
+; TRAVAILLE SUR ENTIERS
+	add.l 	d3,(a2)         ;ENTIER
+        tst.l 	d3
+        bpl.s 	next1
+; step negative: inferieur
+	cmp.l 	(a2),d4
+        ble.s 	nextR
+        bra.s 	nextS
+; step positive: superieur
+next1:  cmp.l 	(a2),d4
+        blt.s 	nextS
+; ON RESTE DANS LA BOUCLE!
+nextR:  move.l	6(a3),a6
+	rts
+; ON SORT DE LA BOUCLE!
+nextS: 	add.w	#TForNxt,a3
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	cmp.w	#_TkVar,(a6)	Saute la variable
+	bne.s	.Skip
+	bsr	FindVar
+.Skip	rts
+; Appel du test
+TNext:	bsr	Test_Force
+	bra.s	RNext
+; TRAVAILLE SUR FLOAT simple precision
+NextF:	move.l	12(a3),d3
+	move.l	16(a3),d4
+	move.l	a6,-(sp)
+	move.l	FloatBase(a5),a6
+	move.l	d3,d1
+	jsr	SPTst(a6)
+	move.l	d0,d2
+	move.l	d3,d0
+	move.l 	(a2),d1
+	jsr	SPAdd(a6)
+	move.l	d0,(a2)
+	move.l	d4,d1
+	jsr	SPCmp(a6)
+	move.l	(sp)+,a6
+	blt	NextF1
+	tst.l	d2
+	bpl.s	nextS
+	bmi.s	nextR
+NextF1	tst.l	d2
+	bpl.s	nextR
+	bmi.s	nextS
+; - - - - - - - - - - - - -
+	Lib_Def	InNextF
+	Lib_Def	InNextD
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					REPEAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRepeat
+InRepeat
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0
+	lea	0(a6,d0.w),a0
+	moveq	#TRptUnt,d0
+Rpt0:	tst.w	(a6)+
+	bne.s	Rpt1
+	addq.l	#2,a6
+Rpt1:	move.l	a6,-(a3)
+	move.l	a0,-(a3)
+	move.w	d0,-(a3)
+	cmp.l	MinLoop(a5),a3
+	bcs	OofStack
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					UNTIL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InUntil
+InUntil
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TUnt
+RUnt	bsr	New_Expentier
+	tst.l	d3
+	bne.s	Unt1
+* On reste dans la boucle
+	move.l	6(a3),a6
+	rts
+* On sort de la boucle
+Unt1:	lea	TRptUnt(a3),a3
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	rts
+TUnt	bsr	Test_Force
+	bra.s	RUnt
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WHILE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWhile
+InWhile
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0
+	move.l	a6,-(a3)
+	add.w	d0,a6
+	move.l	a6,-(a3)
+	move.w	#TWhlWnd,-(a3)
+	cmp.l	MinLoop(a5),a3
+	bcs	OofStack
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	bra	RWend
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WEND
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWend
+InWend
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TWend
+RWend	move.l	a6,-(sp)
+	move.l	6(a3),a6
+	bsr	New_Expentier
+	tst.l	d3
+	beq.s	Wnd1
+* On reste dans la boucle
+	addq.l	#4,sp
+	rts
+* On sort de la boucle
+Wnd1:	move.l	(sp)+,a6
+	lea	TWhlWnd(a3),a3
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	rts
+TWend	bsr	Test_Force
+	bra.s	RWend
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DO
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDo
+InDo
+; - - - - - - - - - - - - -
+	bra	InRepeat
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LOOP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLoop
+InLoop
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TLoop
+RLoop	move.l	6(a3),a6
+	rts
+TLoop	bsr	Test_Force
+	bra.s	RLoop
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EXIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InExit
+InExit
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TExit
+RExit	move.w	(a6)+,d0
+	add.w	(a6)+,a3
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	add.w	d0,a6
+	rts
+TExit:	bsr	Test_Force
+	bra.s	RExit
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EXIT IF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InExitIf
+InExitIf
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	addq.l	#4,a6
+	bsr	New_Expentier
+	tst.l	d3
+	beq.s	Exi1
+	move.l	(sp)+,a6
+	bra	InExit
+Exi1:	addq.l	#4,sp
+	cmp.w	#_TkVir,(a6)
+	bne.s	.Skip
+	addq.l	#8,a6
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					IF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InIf
+InIf
+; - - - - - - - - - - - - -
+.Loop	move.l	a6,-(sp)
+	addq.l	#2,a6
+	bsr	New_Expentier
+	tst.l	d3
+	bne.s	.IfV
+; Faux: ELSE/ENDIF ou ELSE IF
+	move.l	(sp)+,a6
+	move.w	(a6)+,d0
+	bclr	#0,d0			Bit 0=0 => ELSE / ENDIF
+	add.w	d0,a6
+	beq	LGoto			ENDIF ou ELSE => fini
+	subq.l	#2,a6
+	bra.s	.Loop
+; Vrai
+.IfV	addq.l	#4,sp
+	cmp.w	#_TkThen,(a6)
+	bne.s	.Skip
+	addq.l	#2,a6
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ELSE IF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InElseIf
+InElseIf
+; - - - - - - - - - - - - -
+	subq.l	#2,a6
+	bra	InElse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ELSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InElse
+InElse
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0
+	bclr	#0,d0
+	add.w	d0,a6
+	bne.s	InElseIf
+	cmp.w	#_TkElse,-4(a6)
+	beq.s	InElseIf
+	bra	LGoto
+; - - - - - - - - - - - - -
+	Lib_Def	FnElse
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GOSUB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGosub
+InGosub
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TGosub
+RGosub	bsr	GetLabel
+	beq	LbNDef
+Gos2:	move.l	BasA3(a5),-(a3)
+	move.l	a6,-(a3)
+	move.l	#"Gosb",-(a3)
+	cmp.l	MinLoop(a5),a3
+	bcs	OofStack
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	move.l	a3,BasA3(a5)
+	move.l	d0,a6
+	rts
+TGosub:	bsr	Test_Force
+	bra.s	RGosub
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RETURN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InReturn
+InReturn
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TRetN
+RRetN	move.l	BasA3(a5),a3
+	move.l	#"Gosb",d0
+	cmp.l	(a3)+,d0
+	bne	RetGsb
+	move.l	(a3)+,a6
+	move.l	(a3)+,BasA3(a5)
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	rts
+TRetN	bsr	Test_Force
+	bra.s	RRetN
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					POP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPop
+InPop
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TPop
+RPop	move.l	BasA3(a5),a3		BUG si POP au milieu d'une boucle
+	move.l	#"Gosb",d0
+	cmp.l	(a3)+,d0
+	bne	PopGsb
+	addq.l	#4,a3
+	move.l	(a3)+,BasA3(a5)
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	bra	LGoto
+TPop:	bsr	Test_Force
+	bra	RPop
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PASSAGE SUR PROCEDURE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DProc1
+	Lib_Def	DProc2F
+	Lib_Def	DProc2D
+	Lib_Def	FProc
+	Lib_Def	PrgInF
+	Lib_Def	PrgInD
+; - - - - - - - - - - - - -
+	Lib_Par InProcedure
+InProcedure
+; - - - - - - - - - - - - -
+	move.l	(a6)+,d0
+	lea	4(a6,d0.l),a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PROC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InProc
+InProc
+; - - - - - - - - - - - - -
+	addq.w	#2,a6
+	bra	CallProc
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					APPEL PROCEDURE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CallProc
+CallProc
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi	TInPro
+RInPro	move.w	(a6)+,d0
+	move.b	(a6),d1
+	ext.w	d1
+	lea	2(a6,d1.w),a6
+	move.l	LabHaut(a5),a2
+	move.l	0(a2,d0.w),a2
+	clr.w	-(sp)
+* Entree pour la routine d'erreur
+InProE	clr.l	-(sp)
+* Bas de la zone de variables
+InPrOn2	addq.l	#6,a2
+* Assez de m�moire?
+	move.l	TabBas(a5),a1
+	lea	-6-4(a1),a0
+	sub.w	(a2),a0
+	cmp.l	HiChaine(a5),a0
+	bcc.s	InP0b
+	move.l	a1,-(sp)
+	moveq	#0,d3
+	Rbsr	L_Menage
+	move.l	(sp)+,a1
+
+;	IFNE	Debug>1
+;	movem.l	d0-d7/a0-a6,-(sp)
+;	moveq	#20,d3
+;	JJsrIns	L_InBell1,1
+;	movem.l	(sp)+,d0-d7/a0-a6
+;	ENDC
+;	IFNE	Debug>3
+;	Rjsr	L_PreBug
+;	ENDC
+
+* Recule les piles de variables
+InP0b	move.l	VarLoc(a5),-(a1)
+	move.w	#$FFFF,-(a1)
+	move.l	a1,a0
+	sub.w	(a2)+,a0
+	addq.l	#2,a2
+	move.l	a0,-(sp)
+* Nettoie les variables
+	move.l	a1,d0
+	sub.l	a0,d0
+	beq.s	.Clr3
+	lsr.l	#2,d0
+	bcc.s	.Clr1
+	clr.w	(a0)+
+.Clr1	subq.w	#1,d0
+.Clr2	clr.l	(a0)+
+	dbra	d0,.Clr2
+.Clr3	move.b	4(a2),d0
+	ext.w	d0
+	lea	6(a2,d0.w),a2
+	cmp.w	#_TkBra1,(a6)
+	bne.s	InPx
+* Recupere les variables
+InPa:	addq.l	#2,a6
+	pea	4(a2)
+	bsr	New_Evalue
+	move.l	(sp)+,a2
+	move.w	(a2)+,d0
+	bmi	InPaGlo
+	move.l	(sp),a1
+	lea	2(a1,d0.w),a1
+InPa0	move.b	(a2)+,d0
+	ext.w	d0
+	move.b	(a2)+,d1
+	add.w	d0,a2
+	and.w	#$0F,d1
+	lea	Long_Var(a5),a0
+	move.b	0(a0,d1.w),-2(a1)	Longueur de la variable
+	move.b	d1,-1(a1)		Flag
+	cmp.b	d1,d2			Des conversions?
+	beq.s	InPe
+	move.l	a1,-(sp)
+	tst.b	d2
+	bne.s	InPc
+	Rjsrt	L_IntToFl1
+	bra.s	InPd
+InPc	Rjsrt	L_FlToInt1
+InPd	move.l	(sp)+,a1
+InPe	move.l	d3,(a1)
+	cmp.b	#8,-2(a1)		Si Float double
+	bne.s	.Skip
+	move.l	d4,4(a1)		Met la suite
+.Skip	cmp.w	#_TkVir,(a6)
+	beq.s	InPa
+	addq.l	#2,a6
+	addq.l	#2,a2
+* Descend les limites
+InPx	move.l	(sp)+,a0
+	lea	-8(a0),a1
+	cmp.l	HiChaine(a5),a1
+	bcs.s	ReFaire
+	move.l	(sp)+,d0
+	beq.s	InPx1
+	move.l	d0,a6
+InPx1	move.l	BasA3(a5),-(a3)
+	move.l	VarLoc(a5),-(a3)
+	move.l	TabBas(a5),-(a3)
+	move.l	OnErrLine(a5),-(a3)
+	move.l	ErrorChr(a5),-(a3)
+	move.w	ErrorOn(a5),-(a3)
+	move.l	PData(a5),-(a3)
+	move.l	AData(a5),-(a3)
+	move.l	DProc(a5),-(a3)
+	move.l	a6,-(a3)
+	move.l	#"Proc",-(a3)		* Code anti crash!!!
+	cmp.l	MinLoop(a5),a3
+	bcs	OofStack
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	move.l	a3,BasA3(a5)
+	move.l	a0,VarLoc(a5)
+	move.l	a0,TabBas(a5)
+	clr.l	OnErrLine(a5)
+	move.l	a2,a6
+	addq.l	#2,a2
+	move.l	a2,DProc(a5)
+	move.l	a2,PData(a5)
+	clr.l	AData(a5)
+* Erreurs
+	move.w	(sp)+,ErrorOn(a5)
+* Branche a la procedure
+	rts
+* Les variables ont ete effacees par les chaines!
+ReFaire	move.l	TabBas(a5),d3
+	lea	-16(a0),a0
+	sub.l	a0,d3
+	bra	Demande
+* Test entree de procedure
+TInPro	bsr	Test_Force
+	bra	RInPro
+* Si variable globale
+InPaGlo	move.l	VarGlo(a5),a1
+	neg.w	d0
+	lea	1(a1,d0.w),a1
+	bra	InPa0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					END PROC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEndProc
+InEndProc
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TEProc
+REProc	cmp.w	#_TkBra1,(a6)
+	bne.s	EPro1
+	bsr	FnEProc
+EPro1:	tst.w	ErrorOn(a5)
+	bne	EProErr
+* Protection anti crash!!!
+EPro2	move.l	(a3),d0
+	addq.l	#2,a3
+	cmp.l	#"Proc",d0
+	bne.s	EPro2
+	addq.l	#2,a3
+* Ok!
+	move.l	(a3)+,d0
+	move.l	(a3)+,DProc(a5)
+	move.l	(a3)+,AData(a5)
+	move.l	(a3)+,PData(a5)
+	move.w	(a3)+,ErrorOn(a5)
+	move.l	(a3)+,ErrorChr(a5)
+	move.l	(a3)+,OnErrLine(a5)
+	move.l	(a3)+,TabBas(a5)
+	move.l	(a3)+,VarLoc(a5)
+	move.l	(a3)+,BasA3(a5)
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	move.l	d0,a6
+	tst.l	d0
+	beq.s	.Menu
+	rts
+* Retour au MENU!!!
+.Menu	move.l	MnPile(a5),a0
+	lea	-4(a0),sp
+	rts
+TEProc:	bsr	Test_Force
+	bra.s	REProc
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: retourne ENDPROC[x]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+FnEProc
+; - - - - - - - - - - - - -
+	bsr	Fn_New_Evalue
+	subq.b	#1,d2
+	bmi.s	FnE1
+	beq.s	FnE2
+	move.l	d3,ParamC(a5)
+	rts
+FnE1:	move.l	d3,ParamE(a5)
+	rts
+FnE2:	move.l	d3,ParamF(a5)
+	tst.b	MathFlags(a5)
+	bmi.s	.Dble
+	rts
+.Dble	move.l	d4,ParamF2(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					POP PROC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPopProc
+InPopProc
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TPopPro
+RPopPro	tst.w	ErrorOn(a5)
+	bne	EProErr
+	cmp.w	#_TkBra1,(a6)
+	bne.s	.Skip
+	bsr.s	FnEProc
+.Skip	bsr	PopP
+	rts
+TPopPro	bsr	Test_Force
+	bra.s	RPopPro
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine Pop Proc
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	PopP
+PopP
+; - - - - - - - - - - - - -
+	move.l	BasA3(a5),a3
+* Protection anti crash!!!
+.Loop	move.l	(a3),d0
+	addq.l	#2,a3
+	cmp.l	#"Proc",d0
+	bne.s	.Loop
+	addq.l	#2,a3
+* Ok!
+	move.l	(a3)+,d0
+	move.l	(a3)+,DProc(a5)
+	move.l	(a3)+,AData(a5)
+	move.l	(a3)+,PData(a5)
+	move.w	(a3)+,ErrorOn(a5)
+	move.l	(a3)+,ErrorChr(a5)
+	move.l	(a3)+,OnErrLine(a5)
+	move.l	(a3)+,TabBas(a5)
+	move.l	(a3)+,VarLoc(a5)
+	tst.l	d0
+	beq	FonCall
+	move.l	d0,a6
+	move.l	(a3)+,BasA3(a5)
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GOTO interne: appel direct
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Goto2
+Goto2
+; - - - - - - - - - - - - -
+	move.w	(a6),d0
+	move.l	LabHaut(a5),a0
+	move.l	0(a0,d0.w),a6
+	bra.s	LGoto
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GOTO
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGoto
+InGoto
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi.s	TGoto
+RGoto	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,a6
+;	Routine GOTO
+; ~~~~~~~~~~~~~~~~~~
+LGoto	move.l	BasA3(a5),d0
+.Loop	cmp.l	d0,a3
+	bcc.s	.Ret
+	cmp.l	6(a3),a6
+	bcs.s	.Skip
+	cmp.l	2(a3),a6
+	bls.s	.Ret
+.Skip	add.w	(a3),a3
+	bra.s	.Loop
+.Ret	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	rts
+; Test pour GOTO
+; ~~~~~~~~~~~~~~
+TGoto:	bsr	Test_Force
+	bra.s	RGoto
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOn
+InOn
+; - - - - - - - - - - - - -
+	tst.b	T_Actualise(a5)
+	bmi	TOn
+ROn	move.w	(a6)+,d0
+	pea	2(a6,d0.w)
+	move.w	(a6)+,-(sp)
+	bsr	New_Expentier
+	moveq	#0,d2
+	move.w	(sp),d2
+	move.w	(a6)+,(sp)
+	subq.l	#1,d3
+	bmi.s	OnR
+	beq.s	OnG
+	cmp.l	d2,d3
+	bcc.s	OnR
+* Pointe le bon label et fait le saut
+	move.w	d3,-(sp)
+On1	bsr	GetLabel
+* Pour version 2!
+*	cmp.w	#_TkBra1,(a6)+
+*	bne.s	On1b
+*On1a	cmp.w	#_TkBra2,(a6)+
+*	bne.s	On1a
+*	cmp.w	#_TkVir,(a6)
+*	bne.s	On1a
+	addq.l	#2,a6
+On1b	subq.w	#1,(sp)
+	bne.s	On1
+	addq.l	#2,sp
+OnG:	move.w	(sp)+,d1
+	move.l	(sp)+,a0
+	cmp.w	#_TkGto,d1
+	beq	InGoto
+	cmp.w	#_TkPrc,d1
+	beq.s	ROnP
+	move.l	BasA3(a5),-(a3)		On Gosub
+	move.l	a0,-(a3)
+	move.l	#"Gosb",-(a3)
+	cmp.l	MinLoop(a5),a3
+	bcs	OofStack
+	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,a6
+	move.l	a3,PLoop(a5)
+	IFNE	Debug
+	move.l	a3,Chr_Debug(a5)
+	ENDC
+	move.l	a3,BasA3(a5)
+	rts
+* Appel d'une procedure
+ROnP	clr.w	-(sp)			* Flag
+	move.l	a0,-(sp)		* Adresse de retour
+	bsr	GetLabel
+	move.l	d0,a2			* Adresse procedure
+	bra	InPrOn2
+* Passe a l'instruction suivante
+OnR:	addq.l	#2,sp
+	move.l	(sp)+,a6
+	rts
+; Test pour ON
+; ~~~~~~~~~~~~
+TOn	bsr	Test_Force
+	bra	ROn
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GETLABEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetLabelE
+	Lib_Def	GetLabelA
+	Lib_Def	GetLabel
+GetLabel
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0
+	cmp.w	#_TkPro,d0
+	beq.s	GLb0
+	cmp.w	#_TkLGo,d0
+	bne.s	GLb1
+* Un label NORMAL!!!
+GLb0	move.w	(a6)+,d0
+	move.l	LabHaut(a5),a0
+	move.b	(a6),d1
+	ext.w	d1
+	lea	2(a6,d1.w),a6
+	move.l	0(a0,d0.w),d0
+	rts
+* Une expression
+GLb1	subq.l	#2,a6
+	bsr	New_Evalue
+	subq.b	#1,d2
+	bmi.s	GLb2
+	bne.s	GLb3
+	Rjsrt	L_FlToInt1
+* Ecrit le chiffre dans le buffer!
+GLb2	move.l	BufLabel(a5),a1
+	move.l	a1,a0
+	move.l	d3,d0
+	Rjsr	L_LongToDec
+	move.l	a0,d2
+	sub.l	a1,d2
+	beq.s	GLabE
+	move.l	a1,d3
+	bra.s	GLab
+* Chaine alphanumerique
+GLb3	move.l	d3,a2
+	move.w	(a2)+,d2
+	beq.s	GLabE
+	cmp.w	#32,d2
+	bcc.s	GLabE
+	move.w	d2,d1
+	subq.w	#1,d1
+	move.l	BufLabel(a5),a0
+	move.l	a0,d3
+GLab0	move.b	(a2)+,d0
+	cmp.b	#"A",d0
+	bcs.s	GLab1
+	cmp.b	#"Z",d0
+	bhi.s	GLab1
+	add.b	#32,d0
+GLab1	move.b	d0,(a0)+
+	dbra	d1,GLab0
+* Rend pair
+GLab	btst	#0,d2
+	beq.s	GLab2
+	clr.b	(a0)+
+	addq.w	#1,d2
+* Trouve le label
+GLab2	move.l	LabBas(a5),a1
+GLab3	move.l	a1,a0
+	move.b	(a0),d1
+	beq.s	GLabE
+	ext.w	d1
+	cmp.w	d2,d1
+	bne.s	GLabN
+	move.l	d3,a2
+	addq.l	#8,a0
+	move.w	d1,d0
+	subq.w	#1,d0
+GLab4	cmp.b	(a0)+,(a2)+
+	bne.s	GLabN
+	dbra	d0,GLab4
+* Label trouve!
+GLabT	move.l	4(a1),d0
+	rts
+* Label suivant
+GLabN	lea	8(a1,d1.w),a1
+	bra.s	GLab3
+* Label pas trouve!
+GLabE	moveq	#0,d0
+	rts
+* Erreur!
+LbNDef:	moveq	#40,d0
+	bra	RunErr
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Instruction finie?
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Finie
+Finie
+; - - - - - - - - - - - - -
+	move.w	(a6),d0
+FinieB	beq.s	.Skip
+	cmp.w	#_TkDP,d0
+	beq.s	.Skip
+	cmp.w	#_TkThen,d0
+	beq.s	.Skip
+	cmp.w	#_TkElse,d0
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	RAMENE LA TAILLE DE L'INSTRUCTION D0 en D1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	TInst
+TInst
+; - - - - - - - - - - - - -
+	tst.w	d0
+	beq	TFin
+	cmp.w	#_TkLGo,d0
+	bls	TVar
+	cmp.w	#_TkCh1,d0
+	beq	TCh
+	cmp.w	#_TkCh2,d0
+	beq	TCh
+	cmp.w	#_TkRem1,d0
+	beq	TCh
+	cmp.w	#_TkRem2,d0
+	beq	TCh
+	cmp.w	#_TkDFl,d0
+	beq.s	T8
+	cmp.w	#_TkFl,d0
+	bls.s	T4
+	cmp.w	#_TkExt,d0
+	beq.s	T4
+	cmp.w	#_TkFor,d0
+	beq.s	T2
+	cmp.w	#_TkRpt,d0
+	beq.s	T2
+	cmp.w	#_TkWhl,d0
+	beq.s	T2
+	cmp.w	#_TkDo,d0
+	beq.s	T2
+	cmp.w	#_TkExit,d0
+	beq.s	T4
+	cmp.w	#_TkExIf,d0
+	beq.s	T4
+	cmp.w	#_TkIf,d0
+	beq.s	T2
+	cmp.w	#_TkElse,d0
+	beq.s	T2
+	cmp.w	#_TkElsI,d0
+	beq.s	T2
+	cmp.w	#_TkData,d0
+	beq.s	T2
+	cmp.w	#_TkProc,d0
+	beq.s	T8
+	cmp.w	#_TkOn,d0
+	beq.s	T4
+	cmp.w	#_TkEqu,d0
+	bcs.s	T0
+	cmp.w	#_TkStruS,d0
+	bls.s	T6
+T0:	moveq	#1,d1
+TFin:	rts
+T2:	addq.l	#2,a0
+	bra.s	T0
+T4:	addq.l	#4,a0
+	bra.s	T0
+T8:	addq.l	#8,a0
+	bra.s	T0
+T6:	addq.l	#6,a0
+	bra.s	T0
+TCh:	add.w	(a0)+,a0
+	move.w	a0,d1
+	btst	#0,d1
+	beq.s	T0
+	addq.l	#1,a0
+	bra.s	T0
+TVar:	moveq	#0,d1
+	move.b	2(a0),d1
+	lea	4(a0,d1.w),a0
+	bra.s	T0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Evalue.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					EVALUATION D'EXPRESSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Operateur nul (:)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	L_OpeNul
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	Ret_Int
+;						Table des operateurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tk_Operateurs
+	bra	Op_Xor
+	dc.b 	" xor"," "+$80,"O00",-1
+	bra	Op_Or
+	dc.b 	" or"," "+$80,"O00",-1
+	bra	Op_And
+	dc.b 	" and"," "+$80,"O00",-1
+	bra	Op_Diff
+	dc.b 	"<",">"+$80,"O20",-1
+	bra	Op_Diff
+	dc.b 	">","<"+$80,"O20",-1
+	bra	Op_InfEg
+	dc.b 	"<","="+$80,"O20",-1
+	bra	Op_InfEg
+	dc.b 	"=","<"+$80,"O20",-1
+	bra	Op_SupEg
+	dc.b 	">","="+$80,"O20",-1
+	bra	Op_SupEg
+	dc.b 	"=",">"+$80,"O20",-1
+TOpEg	bra	Op_Egal
+	dc.b 	"="+$80,"O20",-1
+	bra	Op_Inf
+	dc.b 	"<"+$80,"O20",-1
+	bra	Op_Sup
+	dc.b 	">"+$80,"O20",-1
+	bra	Op_Plus
+	dc.b 	"+"+$80,"O22",-1
+TOpM	bra	Op_Moins
+	dc.b 	"-"+$80,"O22",-1
+	bra	Op_Modulo
+	dc.b 	" mod"," "+$80,"O00",-1
+	bra	Op_Mult
+	dc.b 	"*"+$80,"O00",-1
+	bra	Op_Div
+	dc.b 	"/"+$80,"O00",-1
+TOpPuis	bra	Op_Puis
+	dc.b 	"^"+$80,"O00",-1
+	even
+OP_Jumps
+	dc.l 	0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Entree evaluation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par Fn_New_Evalue
+Fn_New_Evalue
+; - - - - - - - - - - - - -
+	addq.l	#2,a6
+
+; Debut de parenthese
+; ~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Entree de l'evaluation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	New_Evalue
+New_Evalue
+; - - - - - - - - - - - - -
+
+	IFNE	Debug>1
+	move.l	VarBufL(a5),d0		Debuggage
+	cmp.l	#1024*1,d0
+	bne.s	.NoBug
+	Rjsr	L_PreBug
+.NoBug
+	ENDC
+
+	move.w	#$7FFF,d0
+	bra.s	Eva1
+Eva0	movem.l	d2/d3/d4,-(a3)
+Eva1	move.w	d0,-(a3)
+; Recolte d'un operande
+; ~~~~~~~~~~~~~~~~~~~~~
+	clr.w	-(sp)
+OpeRe	move.w	(a6)+,d0
+	bmi.s	OpeM
+	move.w	0(a4,d0.w),d1
+	move.l	-LB_Size-4(a4,d1.w),a0
+	jsr	(a0)
+	tst.w	(sp)+
+	bne.s	Chs0
+; Nouvel operateur
+; ~~~~~~~~~~~~~~~~
+OP_Ret	move.w	(a6)+,d0
+	cmp.w	(a3),d0
+	bhi.s	Eva0
+	subq.l	#2,a6
+	move.w	(a3)+,d1
+	bpl.s	Eva3
+	jmp	OP_Jumps(pc,d1.w)
+Eva3	cmp.w	#_TkPar2,d0
+	beq.s	Eva4
+	rts
+Eva4	move.w	(a6)+,d0
+	rts
+; Changement de signe avant l'operande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Chs0	tst.b	d2
+	bne.s	Chs1
+	neg.l	d3
+	bra.s	OP_Ret
+Chs1	tst.b	MathFlags(a5)
+	bmi.s	Dble
+	bchg	#7,d3
+	bra.s	OP_Ret
+Dble	bchg	#31,d3
+	bra.s	OP_Ret
+; Signe moins devant
+; ~~~~~~~~~~~~~~~~~~
+OpeM	addq.w	#1,(sp)
+	bra	OpeRe
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR PLUS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Plus
+; - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	plus1
+        bne.s 	plus2
+; Plus float!
+	moveq	#_LVOSPAdd,d2
+	Rjsrt	L_Float_Operation
+	lea	12(a3),a3
+	bra	OP_Ret
+; Addition entiere
+plus1:  add.l 	4(a3),d3
+        bvs 	OverFlow
+	lea	12(a3),a3
+	bra	OP_Ret
+; Addition de chaines
+plus2:  move.l 	d3,a2
+        move.l	d3,-(sp)
+        clr.l 	d3
+        move 	(a2),d3        ;taille de la deuxieme chaine
+        beq.s 	plus11        ;deuxieme chaine nulle
+        move.l 	4(a3),a2
+        clr.l 	d0
+        move 	(a2),d0
+        beq.s 	plus10          ;premiere chaine nulle
+        add.l 	d0,d3
+        cmp.l 	#String_Max,d3
+        bcc 	StooLong        ;string too long!
+        bsr 	Demande
+        move 	d3,(a0)+       ;poke la taille resultante
+        move 	(a2)+,d0
+        beq.s 	plus4
+        subq 	#1,d0
+plus3:  move.b 	(a2)+,(a0)+  ;recopie de la premiere chaine
+        dbra 	d0,plus3
+plus4:  move.l 	(sp)+,a2
+        move 	(a2)+,d0
+        beq.s 	plus6
+        subq 	#1,d0
+plus5:  move.b 	(a2)+,(a0)+
+        dbra 	d0,plus5
+plus6:  move 	a0,d0          ;rend pair
+        btst 	#0,d0
+        beq.s 	plus7
+        addq.l 	#1,a0
+plus7:  move.l 	a0,HiChaine(a5)
+        move.l 	a1,d3
+	lea	12(a3),a3
+	bra	OP_Ret
+plus10: move.l 	(sp)+,d3     ;premiere chaine nulle: ramene la deuxieme
+	lea	12(a3),a3
+        bra	OP_Ret
+plus11: addq.l 	#4,sp        ;deuxieme chaine nulle: ramene la premiere
+        move.l 	4(a3),d3
+	lea	12(a3),a3
+ 	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR MOINS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Moins
+; - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	ms1
+        bne.s 	ms2
+; Moins float
+	moveq	#_LVOSPSub,d2
+	Rjsrt	L_Float_Operation
+	lea	12(a3),a3
+	bra	OP_Ret
+; Moins entier
+ms1:    move.l	4(a3),d0
+	sub.l	d3,d0          ;soustraction entiere
+        bvs 	OverFlow
+        move.l 	d0,d3
+	lea	12(a3),a3
+	bra	OP_Ret
+; Soustraction de chaines EXCLUSIF!!!
+ms2:    move.l	d5,-(sp)
+	move.l	d3,d4        	;sauve pour plus tard
+        move.l 	4(a3),a2
+        clr.l 	d3
+        move.w 	(a2)+,d3
+        move.l 	d3,d1
+        bsr 	Demande         ;prend la place une fois pour toute!
+        move.w 	d3,(a0)+
+        beq.s 	ms4
+        addq 	#1,d3
+        lsr 	#1,d3
+        subq 	#1,d3
+ms3:    move.w 	(a2)+,(a0)+  	;recopie la chaine
+        dbra 	d3,ms3
+ms4:    move.l 	a0,HiChaine(a5)
+        addq.l 	#2,a1        	;chaine dont auquelle on soustrait en a1/d1
+        move.l 	d4,a2
+        clr.l 	d2
+        move 	(a2)+,d2       	;chaine a soustraire en a2/d2
+
+ms5:    clr.l 	d4
+        movem.l d1-d2/a1-a3,-(sp)
+	Rjsr	L_InstrFind
+        movem.l (sp)+,d1-d2/a1-a3
+        tst.l 	d3
+        beq.s 	ms9
+        move.l 	a1,a0
+        move.l 	a1,d4        	;pour plus tard!
+        subq.l 	#1,d3
+        move.l 	d3,d5        	;taille du debut a garder
+        add.l 	d3,a1         	;pointe ou transferer la fin
+        add.l 	d2,d3
+        add.l 	d3,a0         	;pointe la fin a recopier
+        sub.l 	d3,d1
+        add.l 	d1,d5         	;taille finale en memoire
+        subq.l 	#1,d1
+        bmi.s 	ms7
+ms6:    move.b 	(a0)+,(a1)+
+        dbra 	d1,ms6
+ms7:    move 	a0,d0          	;rend pair
+        btst 	#0,d0
+        beq.s 	ms8
+        addq.l 	#1,a0
+ms8:    move.l 	a0,HiChaine(a5)
+        move.l 	d4,a1
+        move.w 	d5,-2(a1)
+        move.l 	d5,d1
+        bra.s 	ms5
+ms9:    moveq 	#2,d2
+        move.l 	a1,d3
+        subq.l 	#2,d3
+	move.l	(sp)+,d5
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR ETOILE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Mult
+; - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	milt1
+; Multiplie float
+	moveq	#_LVOSPMul,d2
+	Rjsrt	L_Float_Operation
+	lea	12(a3),a3
+	bra	OP_Ret
+; Entier!
+milt1:  move.l	4(a3),d2
+	clr 	d4              ;multiplication signee 32*32 bits
+        tst.l 	d3            ;aabb*ccdd
+        bpl.s 	mlt1
+        neg.l 	d3
+        not 	d4
+mlt1:   tst.l 	d2            ;tests des signes
+        bpl.s 	mlt2
+        neg.l 	d2
+        not 	d4
+* Peut on faire une mult rapide?
+mlt2:  	cmp.l 	#$00010000,d3
+        bcc.s 	mlt0
+        cmp.l 	#$00010000,d2
+        bcc.s 	mlt0
+        mulu 	d2,d3          ;quand on le peut: multiplication directe!
+	tst.w 	d4
+	beq.s	mltF
+	neg.l 	d3
+	bra.s 	mltF
+* Multipcation lente
+mlt0:   move 	d2,d1
+        mulu 	d3,d1
+        bmi 	OverFlow
+        swap 	d2
+        move 	d2,d0
+        mulu 	d3,d0
+        swap 	d0
+        bmi 	OverFlow
+        tst 	d0
+        bne 	OverFlow
+        add.l 	d0,d1
+        bvs 	OverFlow
+        swap 	d3
+        move 	d2,d0
+        mulu 	d3,d0
+        bne 	OverFlow
+        swap 	d2
+        move 	d2,d0
+        mulu 	d3,d0
+        swap 	d0
+        bmi 	OverFlow
+        tst 	d0
+        bne 	OverFlow
+        add.l 	d0,d1
+        bvs 	OverFlow
+        tst 	d4              ;signe du resultat
+        beq.s 	mlt3
+        neg.l 	d1
+mlt3:   move.l 	d1,d3
+mltF:	moveq	#0,d2
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR DIVISE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Div
+; - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	div1
+; Divise float
+	Rjsrt	L_Float_Test
+	beq	DByZero
+	move.w	#_LVOSPDiv,d2
+	Rjsrt	L_Float_Operation
+	lea	12(a3),a3
+	bra	OP_Ret
+; Divise entier
+div1: 	move.l	4(a3),d2
+        moveq	#0,d4
+        tst.l 	d2
+        bpl.s 	dva
+        bset	#31,d4
+        neg.l 	d2
+dva:    tst.l 	d3
+        beq 	DByZero         ;division par zero!
+        bpl.s 	dvb
+    	bchg	#31,d4
+        neg.l 	d3
+dvb:	cmp.l 	#$10000,d3    	;Division rapide ou non?
+        bcc.s 	dv0
+        move.l 	d2,d0
+        divu 	d3,d0          	;division rapide: 16/16 bits
+        bvs.s 	dv0
+        moveq 	#0,d3
+        move.w	d0,d3
+        bra.s 	dvc
+dv0:	move.w 	#31,d4         ;division lente: 32/32 bits
+        moveq 	#-1,d5
+        clr.l 	d1
+dv2:    lsl.l 	#1,d2
+        roxl.l	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	dv1
+        sub.l 	d3,d1
+        lsr.l	#1,d5           ;met X a un!
+dv1:    roxl.l 	#1,d0
+        dbra 	d4,dv2
+        move.l 	d0,d3
+dvc:    tst.l	d4
+        bpl.s 	dvd
+        neg.l 	d3
+dvd:    moveq	#0,d2
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR PUISSANCE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Puis
+; - - - - - - - - - - - - -
+	bsr 	QueFloat        	;que des float
+	move.w	#_LVOSPPow,d2
+	Rjsrt	L_Math_Operation	Fait une operation math
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						OPERATEUR MODULO
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Modulo
+	bsr 	QuEntier      ;Que des entiers!
+	move.l	d6,-(sp)
+	move.l	4(a3),d6
+	tst.l 	d3
+        bpl.s 	mdv3
+        neg.l 	d3
+mdv3:   moveq 	#31,d2         ;division lente: 32/32 bits
+        moveq 	#-1,d4
+        clr.l 	d1
+mdv2:   lsl.l 	#1,d6
+        roxl.l 	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	mdv1
+        sub.l 	d3,d1
+        lsr 	#1,d4           ;met X a un!
+mdv1:   roxl.l 	#1,d0
+        dbra 	d2,mdv2
+	move.l 	d1,d3        ;prend le reste!
+	moveq	#0,d2
+	move.l	(sp)+,d6
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						OPERATEUR EGAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Egal
+; - - - - - - - - - - - - - - - -
+	bsr 	Compat
+egbis	bmi.s 	eg1             ;entree pour find
+        bne.s 	eg2
+	Rjsrt	L_Float_Compare
+	bne.s	Faux
+	bra.s	Vrai
+eg1:    cmp.l 	4(a3),d3
+        beq.s 	Vrai
+Faux:   moveq 	#0,d3
+	moveq 	#0,d2
+	lea	12(a3),a3
+	bra	OP_Ret
+Vrai:   moveq 	#-1,d3
+        moveq 	#0,d2
+	lea	12(a3),a3
+	bra	OP_Ret
+eg2:    bsr 	compch
+	cmp.l	d4,d3
+	beq.s	Vrai
+	bra.s	Faux
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR INFERIEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Inf
+; - - - - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	inf1
+        bne.s 	inf2
+	Rjsrt	L_Float_Compare
+	blt	Vrai
+	bra	Faux
+inf1:   cmp.l 	4(a3),d3
+        bgt.s 	Vrai
+        bra.s 	Faux
+inf2:   bsr 	compch
+	cmp.l	d4,d3
+        bgt.s 	Vrai
+        bra.s 	Faux
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR INFERIEUR OU EGAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_InfEg
+; - - - - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	infeg1
+        bne.s 	infeg2
+	Rjsrt	L_Float_Compare
+	ble	Vrai
+	bra	Faux
+infeg1: cmp.l 	4(a3),d3
+        bge 	Vrai
+        bra 	Faux
+infeg2: bsr 	compch
+	cmp.l	d4,d3
+        bge 	Vrai
+        bra 	Faux
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR DIFFERENT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Diff
+; - - - - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	dif1
+        bne.s 	dif2
+	Rjsrt	L_Float_Compare
+	bne	Vrai
+	bra	Faux
+dif1:   cmp.l 	4(a3),d3
+        bne 	Vrai
+        bra 	Faux
+dif2:   bsr 	compch
+	cmp.l	d4,d3
+        bne 	Vrai
+        bra 	Faux
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR SUPERIEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Sup
+; - - - - - - - - - - - - - - - -
+	bsr 	Compat
+	bmi.s 	sup1
+        bne.s 	sup2
+	Rjsrt	L_Float_Compare
+	bgt	Vrai
+	bra	Faux
+sup1:   cmp.l 	4(a3),d3
+        blt 	Vrai
+        bra 	Faux
+sup2:   bsr 	compch
+	cmp.l	d4,d3
+        blt 	Vrai
+        bra 	Faux
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					OPERATEUR SUPERIEUR OU EGAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_SupEg
+; - - - - - - - - - - - - - - - -
+	bsr 	Compat
+        bmi.s 	supeg1
+        bne.s 	supeg2
+	Rjsrt	L_Float_Compare
+	bge	Vrai
+	bra	Faux
+supeg1: cmp.l 	4(a3),d3
+        ble 	Vrai
+        bra 	Faux
+supeg2: bsr 	compch
+	cmp.l	d4,d3
+        ble 	Vrai
+        bra 	Faux
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						OPERATEUR AND
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_And
+; - - - - - - - - - - - - - - - -
+	bsr 	QuEntier
+        and.l 	4(a3),d3
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						OPERATEUR OR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Or
+; - - - - - - - - - - - - - - - -
+	bsr 	QuEntier
+        or.l 	4(a3),d3
+	lea	12(a3),a3
+	bra	OP_Ret
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						OPERATEUR XOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Op_Xor
+; - - - - - - - - - - - - - - - -
+	bsr 	QuEntier
+	move.l	4(a3),d0
+        eor.l 	d0,d3
+	lea	12(a3),a3
+	bra	OP_Ret
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						ROUTINES INTERNES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Que des floats
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+QueFloat
+	tst.b 	d2
+	bne.s 	Compat
+	Rjsrt 	L_IntToFl1
+; 	Rend compatible les deux operandes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Compat:	move.b	3(a3),d1
+	cmp.b	d1,d2
+	bne.s 	Cpt1
+	subq.b 	#1,d1
+	rts
+Cpt1	tst.b	d2
+	bne.s 	Cpt2
+	Rjsrt	L_IntToFl1		Change D2/D3/D4 en float
+	moveq 	#0,d1
+	rts
+Cpt2	Rjsrt	L_IntToFl2		Change (a3) en float
+	moveq 	#0,d1
+	rts
+; 	Que des entiers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+QuEntier
+	tst.b 	d2
+	beq.s 	.Quent1
+	Rjsrt 	L_FlToInt1		Change d2-d4 en entier
+.Quent1	tst.b	3(a3)
+	bne.s 	.Cpt3
+	rts
+.Cpt3	Rjmpt	L_FlToInt2		Change (a3) en entier
+
+; 	COMPARAISON DE DEUX CHAINES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+compch: move.l	4(a3),a0
+        move.l 	d3,a1
+ 	moveq	#0,d3
+ 	moveq	#0,d4
+        clr.b 	d2
+        move.w 	(a0)+,d0
+        move.w 	(a1)+,d1
+        beq.s 	cpch8
+        tst 	d0
+        beq.s	cpch7
+cpch1:  cmpm.b 	(a0)+,(a1)+
+        bne.s 	cpch6
+        subq 	#1,d0
+        beq.s 	cpch3
+        subq	#1,d1
+        bne.s 	cpch1
+; on estrrive au bout d'une des chaines
+cpch2:  moveq 	#1,d4         ;A$>B$
+        rts
+cpch3:  subq 	#1,d1         ;egalite!
+        beq.s 	cpch5
+cpch4:  moveq 	#1,d3         ;B$>A$
+cpch5:  rts
+; on estas arrive au bout des chaines
+cpch6:  bcc.s 	cpch4
+        bcs.s 	cpch2
+; a$ estulle
+cpch7:  tst 	d1
+        beq.s 	cpch5           ;deux chaines nulles
+        bne.s 	cpch4           ;B$>A$
+; b$ estulle
+cpch8:  tst 	d0
+        beq.s 	cpch5           ;deux chaines nulles
+        bne.s 	cpch2           ;A$>B$
+
+;	Saute D0 params
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Saut_D0Param
+	subq.l	#2,a6
+Fn_Saut_D0Param
+	move.w	d0,-(sp)
+.Loop	bsr	Fn_New_Evalue
+	subq.w	#1,(sp)
+	bne.s	.Loop
+	addq.l	#2,sp
+	rts
+;	Recupere D0 params
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ParD0	subq.l	#2,a6
+FnParD0	move.w	d0,-(sp)
+.Loop	bsr	Fn_New_Evalue
+	cmp.b	#1,d2
+	bne.s	.Skip
+	Rjsrt	L_FlToInt1
+.Skip	move.l	d3,-(a3)
+	subq.w	#1,(sp)
+	bne.s	.Loop
+	addq.l	#2,sp
+	rts
+
+;	Expentier: retourne un parametre entier / chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fn_New_Expentier
+	addq.l	#2,a6
+New_Expentier
+	bsr	New_Evalue
+	cmp.b	#1,d2
+	beq.s	.Skip
+	rts
+.Skip	Rjmpt	L_FlToInt1
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Instruction vide
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	InNull
+; - - - - - - - - - - - - -
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					OPERATEUR NULL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnNull
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	subq.l	#2,a6
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					VARIABLE EN INSTRUCTION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InVar
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0
+	bmi.s	.Glo
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+.Glo2	moveq	#0,d1
+	move.b	(a6)+,d1
+	move.b	(a6)+,d2
+	add.w	d1,a6
+	btst	#6,d2		* Si tableau, pointe l'interieur
+	bne.s	InVarT
+	move.l	a0,-(sp)
+	move.w	d2,-(sp)
+	bsr	Fn_New_Evalue	* Va evaluer
+	move.w	(sp)+,d5
+	cmp.b	d5,d2		??? Possible probleme si autres flags?
+	beq.s	.Skip2
+	tst.b	d2
+	bne.s	.Skip1
+	Rjsrt	L_IntToFl1
+	bra.s	.Skip2
+.Skip1	Rjsrt	L_FlToInt1
+.Skip2	move.l	(sp)+,a0
+	cmp.b	#1,d2
+	beq.s	.Flt
+.Ent	move.b	#4,-2(a0)	La longueur
+	move.b	d5,-1(a0)	Le flag
+	move.l	d3,(a0)		La valeur
+	rts
+; Si variable globale
+.Glo	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra.s	.Glo2
+; Si float
+; ~~~~~~~~
+.Flt	tst.b	MathFlags(a5)
+	bpl.s	.Ent
+	move.b	#8,-2(a0)
+	move.b	d5,-1(a0)
+	move.l	d3,(a0)
+	move.l	d4,4(a0)
+	rts
+;	Un tableau: ne poke pas les flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InVarT	bsr	GetTablo
+	and.w	#$000F,d2
+	move.l	a0,-(sp)
+	move.w	d2,-(sp)
+	bsr	Fn_New_Evalue	* Va evaluer
+	move.w	(sp)+,d1
+	cmp.b	d1,d2
+	beq.s	.Skip2
+	tst.b	d2
+	bne.s	.Skip1
+	Rjsrt	L_IntToFl1
+	bra.s	.Skip2
+.Skip1	Rjsrt	L_FlToInt1
+.Skip2	move.l	(sp)+,a0
+	cmp.b	#1,d2
+	beq.s	.Flt
+.Ent	move.l	d3,(a0)
+	rts
+.Flt	tst.b	MathFlags(a5)
+	bpl.s	.Ent
+	move.l	d3,(a0)
+	move.l	d4,4(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					VARIABLE EN FONCTION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnVar
+; - - - - - - - - - - - - -
+	move.w	(a6)+,d0
+	bmi.s	.Glo
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+.Glo2	moveq	#0,d1
+	move.b	(a6)+,d1
+	move.b	(a6)+,d2
+	add.w	d1,a6
+	btst	#6,d2
+	beq.s	.FnV1			* Tableau
+	bsr	GetTablo
+.FnV1	and.w	#$F,d2
+	beq.s	.Ent
+	cmp.b	#2,d2
+	beq.s	.Str
+; Float : simple ou double?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	MathFlags(a5)
+	bpl.s	.Ent
+	move.l	(a0)+,d3
+	move.l	(a0),d4
+	rts
+; Si variable globale
+; ~~~~~~~~~~~~~~~~~~~
+.Glo	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra.s	.Glo2
+; Ramene la valeur ENTIERE / FLOAT simple
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Ent	move.l	(a0),d3
+	rts
+; Ramene la valeur CHAINE
+; ~~~~~~~~~~~~~~~~~~~~~~~
+.Str	move.l	(a0),d3
+	beq.s	.Vide
+	rts
+.Vide	move.l	ChVide(a5),d3		Initialise la variable
+	move.w	#$0402,-2(a0)		Le flag
+	move.l	d3,(a0)			La variable
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Trouve l'adresse d'une variable > A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+FindVar
+; - - - - - - - - - - - - -
+	addq.l	#2,a6
+	move.w	(a6)+,d0
+	bmi.s	.Glo
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+.Glo2	moveq	#0,d1
+	move.b	(a6)+,d1
+	move.b	(a6)+,d2
+	add.w	d1,a6
+	btst	#6,d2
+	beq.s	.FdV0
+	bsr	GetTablo			Tableau: pas de flag
+	and.w	#$0F,d2				Isole le flag
+	cmp.b	#2,d2
+	beq.s	.Str
+	rts
+; Si variable globale
+.Glo	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra.s	.Glo2
+; Si pas tableau
+.FdV0	move.b	#4,-2(a0)			Met la longueur
+	move.b	d2,-1(a0)			Variable simple: met le flag
+;	and.w	#$F,d2				???
+	beq.s	.Fin
+	cmp.b	#1,d2
+	beq.s	.Flt
+.Str	tst.l	(a0)				Une chaine, initialisee?
+	bne.s	.Fin
+	move.l	ChVide(a5),(a0)
+	rts
+.Flt	tst.b	MathFlags(a5)			Un float simple ou double?
+	bpl.s	.Fin
+	move.b	#8,-2(a0)
+.Fin	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						DIM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDim
+InDim
+; - - - - - - - - - - - - - - - -
+	addq.l	#2,a6
+	move.w	(a6)+,d0
+	bmi	DimGlo
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+Dim0	moveq	#0,d1
+	move.b	(a6)+,d1
+	move.b	(a6)+,d2
+	add.w	d1,a6
+	tst.l	(a0)		Already dimensionned
+	bne	AlrDim
+	moveq	#2,d1		Taille variable (nombre de LSL)
+	and.w	#$F,d2
+	cmp.b	#1,d2
+	bne.s	.Skip
+	tst.b	MathFlags(a5)
+	bpl.s	.Skip
+	moveq	#3,d1		Variable double
+.Skip	move.w	d2,-(sp)	Nombre de dims
+	move.l	a0,-(sp)	Adresse du tableau
+	move.w	d1,-(sp)	Taille variable
+* Recupere et compte les params
+	clr.w	-(sp)
+	move.w	#1,-(sp)
+Dim1:	bsr	Fn_New_Evalue
+	tst.b	d2
+	beq.s	Dim2
+	move.w	d0,-(sp)
+	Rjsrt	L_FlToInt1
+	move.w	(sp)+,d0
+Dim2:	cmp.l	#$FFFF,d3
+	bcc	FonCall
+	move.w	d3,-(a3)
+	addq.w	#1,d3
+	addq.w	#1,2(sp)
+	mulu	(sp),d3
+	cmp.w	#_TkPar2,d0
+	beq.s	Dim3
+	cmp.l	#$10000,d3
+	bcc	FonCall
+	move.w	d3,(sp)
+	cmp.w	#_TkVir,(a6)
+	beq.s	Dim1
+	bra	Synt
+Dim3:	addq.l	#2,sp
+	move.w	(sp)+,d2		Nb de dimensions
+	move.l	d3,d0
+	move.w	(sp)+,d4		Taille variable
+	lsl.l	d4,d3
+	move.l	d3,d5
+	lsr.l	#2,d5			Nombre de mots long a nettoyer
+	move.l	TabBas(a5),a0		Descend le bas tableaux
+	move.l	a0,a2			Pour le nettoyage
+	sub.l	d3,a0
+	move.w	d2,d0			Taille du header
+	lsl.w	#2,d0
+	addq.l	#2,d0
+	sub.w	d0,a0
+	cmp.l	HiChaine(a5),a0
+	bcc	DimM1
+	movem.l	a0-a1/d0-d1,-(sp)
+	Rbsr	L_Menage
+	movem.l	(sp)+,a0-a1/d0-d1
+	cmp.l	HiChaine(a5),a0
+	bcs	OOfBuf
+DimM1	move.l	(sp),a1			Stocke l'adresse du tableau
+	move.l	a0,(a1)
+	move.l	a0,TabBas(a5)
+	move.b	d2,(a0)			Stocke le nb de dim
+	move.b	d4,1(a0)		Nombre de LSL
+	lea	0(a0,d0.w),a0
+	move.l	a0,a1			Pointe le premier element
+	moveq	#1,d1
+	subq.w	#1,d2
+Dim4:	move.w	d1,-(a0)		Stocke taille et multiplicateur
+	move.w	(a3)+,d0
+	move.w	d0,-(a0)
+	addq.w	#1,d0
+	mulu	d0,d1
+	dbra	d2,Dim4
+; Poke le flag du tableau
+	move.l	(sp)+,a0		Adresse du pointeur
+	move.w	(sp)+,d2		Flag
+	move.w	d2,d0
+	or.w	#$0440,d0		4 octets / Tableau
+	move.w	d0,-2(a0)
+; Nettoyage
+	moveq	#0,d0
+	cmp.w	#2,d2
+	bne.s	.Clean
+	move.l	ChVide(a5),d0
+.Clean	move.l	d0,(a1)+
+	subq.l	#1,d5
+	bne.s	.Clean
+; Une autre variable
+	cmp.w	#_TkVir,(a6)+
+	beq	InDim
+; Fin du dim!
+	subq.l	#2,a6
+	rts
+; Si variable globale
+DimGlo	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra	Dim0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						TROUVE ELEMENT DE TABLEAU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetTablo
+GetTablo
+; - - - - - - - - - - - - - - - -
+	movem.l	d2/d3/d4,-(sp)
+	move.l	(a0),d0
+	beq	NonDim
+	move.l	d0,a0
+	moveq	#0,d0
+	move.b	(a0)+,d0	Nombre de dims
+	move.w	d0,-(sp)
+	move.b	(a0)+,d0	Taille variables
+	move.w	d0,-(sp)
+	move.l	a0,-(sp)
+	clr.l	-(sp)
+GetT1:	bsr	Fn_New_Evalue
+	subq.w	#1,10(sp)
+	beq.s	GetT3
+	tst.b	d2
+	beq.s	GetT2
+	Rjsrt	L_FlToInt1
+GetT2:	move.l	4(sp),a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	cmp.l	d0,d3
+	bhi	FonCall
+	mulu	(a0)+,d3
+	add.l	d3,(sp)
+	move.l	a0,4(sp)
+	bra.s	GetT1
+GetT3:	tst.b	d2
+	beq.s	GetT4
+	Rjsrt	L_FlToInt1
+GetT4:	move.l	(sp)+,d2
+	move.l	(sp)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	cmp.l	d0,d3
+	bhi	FonCall
+	add.l	d3,d2
+	move.w	(sp)+,d0		Taille variable
+	lsl.l	d0,d2
+	addq.l	#2,sp
+	lea	2(a0,d2.l),a0
+	movem.l	(sp)+,d2/d3/d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						VARPTR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnVarPtr
+; - - - - - - - - - - - - -
+	addq.l	#2,a6
+	bsr	FindVar
+	addq.l	#2,a6
+	cmp.b	#2,d2
+	beq.s	.Str
+.Ent	move.l	a0,d3
+	Ret_Int
+.Str	move.l	(a0),d3
+	addq.l	#2,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					=ARRAY$(a$(0))
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnArray
+; - - - - - - - - - - - - -
+	addq.l	#4,a6
+	move.w	(a6)+,d0
+	bmi.s	.Glo
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+.Glo2	moveq	#0,d1
+	move.b	(a6)+,d1
+	move.b	(a6)+,d2
+	add.w	d1,a6
+	move.l	(a0),d0
+	beq	NonDim
+; Saute les params
+	move.l	d0,-(sp)
+	move.l	d0,a0
+	moveq	#0,d0
+	move.b	(a0),d0
+	bsr	Saut_D0Param
+	move.l	(sp)+,d3
+; Retour valeur
+	Ret_Int
+; Si variable globale
+.Glo	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra.s	.Glo2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					PREND UNE CONSTANTE ENTIERE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCEntier
+; - - - - - - - - - - - - -
+	move.l	(a6)+,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					PREND UN FLOAT SIMPLE PRECISION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCstFl
+; - - - - - - - - - - - - -
+	tst.b	MathFlags(a5)
+	bmi.s	.DFlt
+	move.l	(a6)+,d3
+	Ret_Float
+.DFlt	move.l	(a6)+,d0
+	Rjsr	L_FFP2Ieee
+	Rjsr	L_Sp2Dp
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					PREND UN FLOAT DOUBLE PRECISION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCstDFl
+; - - - - - - - - - - - - -
+	tst.b	MathFlags(a5)
+	bpl.s	.SFlt
+	move.l	(a6)+,d3
+	move.l	(a6)+,d4
+	Ret_Float
+.SFlt	move.l	(a6)+,d0
+	move.l	(a6)+,d1
+	Rjsr	L_Dp2Sp
+	Rjsr	L_Ieee2FFP
+	move.l	d0,d3
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					PREND UNE CHAINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCstCh
+; - - - - - - - - - - - - -
+	move.l	a6,d3
+	move.w	(a6)+,d0
+	add.w	d0,a6
+	btst	#0,d0
+	beq.s	.CstC0
+	addq.l	#1,a6
+.CstC0:	tst.w	Direct(a5)
+	bne.s	.CstC1
+	Ret_String
+; Mode direct: recopier la chaine
+.CstC1:	move.l	d3,a2
+	moveq	#0,d3
+	move.w	(a2)+,d3
+	bsr	Demande
+	move.w	d3,(a0)+
+	addq.w	#1,d3
+	lsr.w	#1,d3
+	subq.w	#1,d3
+	bmi.s	.CstC3
+.CstC2:	move.w	(a2)+,(a0)+
+	dbra	d3,.CstC2
+.CstC3:	move.l	a1,d3
+	move.l	a0,HiChaine(a5)
+	Ret_String
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						SHARED / GLOBAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShared
+; - - - - - - - - - - - - - - - -
+Sha0	move.b	4(a6),d0
+	ext.w	d0
+	lea	6(a6,d0.w),a6
+	cmp.w	#_TkPar1,(a6)
+	bne.s	Sha1
+	addq.l	#4,a6
+Sha1:	cmp.w	#_TkVir,(a6)+
+	beq.s	Sha0
+	subq.l	#2,a6
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						DEF FN / =FN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDFn
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	move.l	a6,(a0)
+	move.l	d7,a6
+	subq.l	#4,a6
+	moveq	#0,d0
+	move.b	(a6),d0
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a6			Branche a la fin de la ligne
+	rts
+; - - - - - - - - - - - - - - - -
+	Lib_Par FnFn
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	move.l	(a0),d0
+	beq	FnNDef
+	move.l	d0,a2
+; Egalise les params
+	move.w	(a6),d0
+	cmp.w	#_TkPar1,d0
+	bne.s	FFn5
+	addq.l	#2,a6
+FFn1	cmp.w	(a2)+,d0
+	bne	FnIlNb
+	move.l	a2,-(sp)
+	bsr	New_Evalue
+	movem.l	d2/d3/d4/a6,-(sp)
+	move.l	4*4(sp),a6
+	bsr	FindVar
+	move.w	d2,d1
+	move.l	a6,a2
+	movem.l	(sp)+,d2/d3/d4/a6
+	addq.l	#4,sp
+	cmp.b	d1,d2
+	beq.s	FFn3
+	cmp.b	#1,d1
+	bhi	TypeMis
+	bne.s	FFn2
+	move.l	a0,-(sp)
+	Rjsrt	L_IntToFl1
+	move.l	(sp)+,a0
+	bra.s	FFn3
+FFn2	cmp.b	#1,d2
+	bhi	TypeMis
+	move.l	a0,-(sp)
+	Rjsrt	L_FlToInt1
+	move.l	(sp)+,a0
+FFn3	cmp.b	#1,d1
+	bne.s	.Ent
+	tst.b	MathFlags(a5)
+	bpl.s	.Ent
+	move.l	d4,4(a0)
+.Ent	move.l	d3,(a0)
+	move.w	(a6)+,d0
+	cmp.w	#_TkVir,d0
+	beq.s	FFn1
+	subq.l	#2,a6
+	cmp.w	#_TkPar2,(a2)+
+	bne.s	FnIlNb
+FFn5	cmp.w	#_TkEg,(a2)+
+	bne.s	FnIlNb
+; Appelle la fonction
+; ~~~~~~~~~~~~~~~~~~~
+	movem.l	a3-a6,-(sp)
+	move.l	a2,a6
+	bsr	New_Evalue
+	movem.l	(sp)+,a3-a6
+	rts
+FnIlNb	moveq	#16,d0
+	bra	RunErr
+FnNDef	moveq	#15,d0
+	bra	RunErr
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						SWAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSwap
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	move.l	a0,-(sp)
+	addq.l	#2,a6
+	bsr	FindVar
+	move.l	(sp)+,a1
+	move.l	(a0),d0
+	move.l	(a1),(a0)
+	move.l	d0,(a1)
+	cmp.b	#1,d2
+	bne.s	.Fin
+	tst.b	MathFlags(a5)
+	bpl.s	.Fin
+	move.l	4(a0),d0
+	move.l	4(a1),4(a0)
+	move.l	d0,4(a1)
+.Fin	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InSwapD
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						NOT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnNot
+; - - - - - - - - - - - - - - - -
+	bsr	New_Evalue
+	tst.b	d2
+	beq.s	.Skip
+	Rjsrt	L_FlToInt1
+.Skip	not.l	d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						MAX / MIN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMax
+; - - - - - - - - - - - - - - - -
+	bsr	MinMax
+	ble.s	FMx2
+FMx1	movem.l	4(a3),d3/d4
+FMx2	lea	12(a3),a3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FnMaxS
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - - - - -
+	Lib_Par FnMin
+; - - - - - - - - - - - - - - - -
+	bsr	MinMax
+	ble.s	FMx1
+	bra.s	FMx2
+; Routine min max
+; ~~~~~~~~~~~~~~~
+MinMax	bsr	Fn_New_Evalue
+	movem.l	d2/d3/d4,-(a3)
+	bsr	Fn_New_Evalue
+	bsr	Compat
+	bmi.s	MMx1
+	bne.s	MMx2
+	movem.l	d2-d4,-(sp)		* Float
+	Rjsrt	L_Float_Compare
+	movem.l	(sp)+,d2-d4
+	rts
+MMx1	move.l	4(a3),d4
+	cmp.l	d3,d4			* Int
+	rts
+MMx2	movem.l	d2-d4,-(sp)		* Chaine
+	bsr	compch
+	move.l	d3,d0
+	move.l	d4,d1
+	movem.l	(sp)+,d2-d4
+	cmp.l	d3,d4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FnMinS
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						INC + DEC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InInc
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	addq.l	#1,(a0)
+	rts
+; - - - - - - - - - - - - - - - -
+	Lib_Par InDec
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	subq.l	#1,(a0)
+	rts
+; - - - - - - - - - - - - - - - -
+	Lib_Par InAdd2
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	move.l	a0,-(sp)
+	bsr	Fn_New_Evalue
+	move.l	(sp)+,a0
+	add.l	d3,(a0)
+	rts
+; - - - - - - - - - - - - - - - -
+	Lib_Par InAdd4
+; - - - - - - - - - - - - - - - -
+	bsr	FindVar
+	move.l	a0,-(sp)
+	moveq	#3,d0
+	bsr	FnParD0
+	move.l	(sp)+,a0
+	move.l	(a0),d0
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	add.l	(a3)+,d0
+	cmp.l	d1,d0
+	blt.s	IAdd4m
+	cmp.l	d2,d0
+	bgt.s	IAdd4p
+	move.l	d0,(a0)
+	rts
+IAdd4m:	move.l	d2,(a0)
+	rts
+IAdd4p:	move.l	d1,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						SORT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSort
+; - - - - - - - - - - - - - - - -
+	bsr 	GTablo       	;va chercher les caracteristiques du tableau
+        move.l 	d6,d3
+or4:    lsr.l 	#1,d3         	;E=d3
+        beq 	XSort
+	moveq 	#1,d5         	;NA=d5
+or5:    move.l 	d5,d4        	;NR=d4 -> NR=NA
+or6:    movem.l	d3-d6/a1,-(sp)
+        move.l 	a1,a0
+        subq.l 	#1,d4
+	move.l	d4,d0
+	move.l	d3,d1
+	bsr	AdSort
+	movem.l	a0/a1/d2,-(sp)
+	move.l	4(a0),-(a3)
+	move.l	(a0),-(a3)
+	subq.l	#4,a3
+	movem.l	(a1),d3-d4
+	bsr	CpBis
+	lea	12(a3),a3
+	movem.l	(sp)+,a0/a1/d2
+  	ble.s	or8
+; fait le swap
+        move.l 	(a0),d0
+        move.l 	(a1),(a0)
+        move.l 	d0,(a1)
+	cmp.b	#3,d7
+	bne.s	.Skip
+	move.l	4(a0),d0
+	move.l	4(a1),4(a0)
+	move.l	d0,4(a1)
+.Skip	movem.l (sp)+,d3-d6/a1
+        sub.l 	d3,d4         	;NR=NR-E
+        beq.s 	or9
+        bcc.s 	or6
+        bra.s 	or9
+or8:    movem.l (sp)+,d3-d6/a1
+or9:    addq.l 	#1,d5        	;NA=NA+1
+        move.l 	d6,d0
+        sub.l 	d3,d0
+        cmp.l 	d0,d5
+        bls.s 	or5
+        bra.s 	or4
+XSort	Rjsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						=MATCH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMatch
+; - - - - - - - - - - - - - - - -
+	addq.l	#2,a6
+	bsr	GTablo
+        movem.l a1/d2/d6/d7,-(sp)
+	bsr	Fn_New_Evalue
+        movem.l (sp)+,a1/d5/d6/d7
+* Etabli la compatibilite entre variables
+        cmp.b 	d2,d5
+        beq.s 	di3
+        subq.w	#1,d5
+	beq.s	di2
+	bpl	TypeMis
+        Rjsrt 	L_FlToInt1
+        bra.s 	di3
+di2:    Rjsrt 	L_IntToFl1
+; recherche!
+di3:    moveq	#0,d5
+        move.l 	d6,d1
+        lsr.l	#1,d6
+di4:    movem.l a1/d1-d7,-(sp)
+        add.l 	d6,d5
+	move.l	d5,d1
+	move.l	a1,a0
+	moveq	#0,d0
+	bsr	AdSort
+	move.l	4(a1),-(a3)
+	move.l	(a1),-(a3)
+	subq.l	#4,a3
+	bsr	CpBis
+	lea	12(a3),a3
+	movem.l	(sp)+,a1/d1-d7
+        beq.s 	di11
+        bgt.s	di5
+	add.l 	d6,d5
+di5:    tst.l 	d6
+        beq.s 	di7
+        lsr.l 	#1,d6
+        bra.s 	di4
+; pas trouve: cherche le premier element superieur
+di7:    cmp.l 	d1,d5
+        bcc.s 	di8
+        movem.l a1/d1-d7,-(sp)
+	move.l	d5,d1
+	move.l	a1,a0
+	moveq	#0,d0
+	bsr	AdSort
+	move.l	4(a1),-(a3)
+	move.l	(a1),-(a3)
+	subq.l	#4,a3
+	bsr	CpBis
+	lea	12(a3),a3
+        movem.l (sp)+,a1/d1-d7
+        beq.s 	di11
+        bgt.s 	di8
+        addq.l 	#1,d5
+        bra.s 	di7
+di8:    move.l 	d5,d3
+        addq.l 	#1,d3
+        neg.l 	d3
+	bra.s	di12
+; trouve!
+di11:   move.l 	d5,d3
+        add.l 	d6,d3
+; Sortie
+di12	Rjsr	L_LoadRegs
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve les parametres tableau pour SORT et FIND
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GTablo
+; - - - - - - - - - - - - -
+GTablo	Rjsr	L_SaveRegs
+	addq.l	#2,a6
+	move.w	(a6)+,d0
+	bmi.s	GTbG
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+GTb0	move.b	(a6)+,d1
+	move.b	(a6)+,d2
+	ext.w	d1
+	add.w	d1,a6
+	move.l	(a0),d0
+	beq	NonDim
+	move.l	d0,a1
+	moveq	#0,d0
+	move.b	(a1)+,d0		Nombre de dims
+	move.b	(a1)+,d7		Taille des variables
+	move.w	d0,d1
+	moveq	#1,d6
+GTb1:	move.w	(a1)+,d3
+	addq.l	#2,a1
+	addq.w	#1,d3
+	mulu	d3,d6
+	subq.w	#1,d1
+	bne.s	GTb1
+	and.w	#$F,d2
+* Saute les params
+	movem.l	a1/a3/d2/d6/d7,-(sp)
+	bsr	FnParD0
+	movem.l	(sp)+,a1/a3/d2/d6/d7
+	rts
+; Si variable globale
+GTbG	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra.s	GTb0
+
+* Trouve l'adresse D0/D1 >>> A0/A1
+; - - - - - - - - - - - - -
+	Lib_Def	AdSort
+AdSort
+; - - - - - - - - - - - - -
+	lsl.l	d7,d0
+	add.l	d0,a0
+	move.l	a0,a1
+	lsl.l	d7,d1
+	add.l	d1,a1
+	rts
+* Comparaison pour SORT/FIND
+; - - - - - - - - - - - - -
+	Lib_Def	CpBis
+CpBis
+; - - - - - - - - - - - - -
+	cmp.b	#1,d2
+	beq.s	.Flt
+	bcs.s	.Ent
+	bsr 	compch
+	cmp.l	d3,d4
+	rts
+.Ent	move.l	4(a3),d4
+	cmp.l 	d3,d4
+	rts
+.Flt	Rjmpt	L_Float_Compare
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						Instruction DATA
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InData
+; - - - - - - - - - - - - - - - -
+	move.w	(a6),d0			Passe a la fin de la ligne
+	sub.w	d0,a6
+	moveq	#0,d0
+	move.b	(a6),d0
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						Instruction READ
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRead
+; - - - - - - - - - - - - - - - -
+* Va chercher la variable
+LRead	bsr	FindVar
+* Va chercher le data
+	move.l	a0,-(sp)
+	move.w	d2,-(sp)
+	move.l	a6,-(sp)
+	move.l	AData(a5),d0
+	beq.s	NxD0
+	move.l	d0,a6
+	bra.s	NxD3
+NxD0:	move.l	PData(a5),d0
+	beq	OOf
+	move.l	d0,a6
+NxD1:	tst.w	(a6)
+	beq	OOf
+	lea	2(a6),a0
+	move.w	(a0),d0
+	cmp.w	#_TkEndP,d0
+	beq	OOf
+	cmp.w	#_TkProc,d0
+	beq.s	NxD6
+	cmp.w	#_TkData,d0		* DATA direct
+	beq.s	NxD2
+	cmp.w	#_TkLab,d0		* LABEL: DATA
+	bne.s	NxD5
+	move.b	6(a6),d0
+	ext.w	d0
+	lea	8(a6,d0.w),a0
+	cmp.w	#_TkData,(a0)
+	beq.s	NxD2
+NxD5:	moveq	#0,d0
+	move.b	(a6),d0
+	lsl.w	#1,d0
+	lea	0(a6,d0.w),a6
+	bra.s	NxD1
+NxD6:	move.l	2(a0),d0
+	lea	10(a0,d0.l),a6
+	bra.s	NxD1
+NxD2:	moveq	#0,d0
+	move.b	(a6),d0
+	lsl.w	#1,d0
+	lea	0(a6,d0.w),a6
+	move.l	a6,PData(a5)
+	lea	4(a0),a6
+* Virgule---> SPECIAL!
+NxD3:	move.w	(a6),d0
+	beq.s	InRdV
+	cmp.w	#_TkVir,d0
+	bne.s	InRd0
+InRdV:	moveq	#0,d3
+	moveq	#0,d2
+	move.w	4(sp),d5
+	subq.w	#2,d5
+	bmi.s	InRd1
+	move.l	ChVide(a5),d3
+	moveq	#2,d2
+	bra.s	InRd1
+* Evaluation normale
+InRd0:	bsr	New_Evalue
+* Pointe la fin du data
+InRd1:	tst.w	(a6)+
+	bne.s	InRd2
+	sub.l	a6,a6
+InRd2:	move.l	a6,AData(a5)
+* Egalise
+	move.l	(sp)+,a6
+	move.w	(sp)+,d1
+	move.l	(sp)+,a2
+	cmp.b	d2,d1
+	beq.s	InRd5
+	cmp.b	#2,d1
+	beq	RTypeM
+	cmp.b	#2,d2
+	beq	RTypeM
+	tst.b	d1
+	beq.s	InRd4
+	Rjsrt	L_IntToFl1
+	bra.s	InRd5
+InRd4	Rjsrt	L_FlToInt1
+InRd5	cmp.b	#1,d2			Float?
+	bne.s	InRd6
+	tst.b	MathFlags(a5)		Double precision?
+	bpl.s	InRd6
+	move.l	d4,4(a2)
+InRd6	move.l	d3,(a2)
+* Encore une variable?
+	cmp.w	#_TkVir,(a6)+
+	beq	LRead
+	subq.l	#2,a6
+	rts
+OOf	clr.l	PData(a5)
+	bra	OOfData
+RTypeM:	moveq	#34,d0
+	bra	RunErr
+
+; - - - - - - - - - - - - -
+	Lib_Def	InReadF
+	Lib_Def	InReadS
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						Instruction RESTORE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRestore
+; - - - - - - - - - - - - - - - -
+	bsr	Finie
+	bne.s	InRs1
+* Sans label
+	move.l	DProc(a5),PData(a5)
+	clr.l	AData(a5)
+	rts
+* Avec label
+InRs1:	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,a0
+	cmp.w	#_TkData,(a0)+
+	bne.s	InRs2
+	move.w	(a0),d0
+	sub.w	d0,a0
+	move.l	a0,PData(a5)
+	clr.l	AData(a5)
+	rts
+InRs2	moveq	#41,d0
+	bra	RunErr
+; - - - - - - - - - - - - -
+	Lib_Def	InRestore1
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source:	Diskio.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FIELD n,AA as A$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InField
+; - - - - - - - - - - - - -
+	bsr	New_Expentier
+	move.l	d3,d0
+	Rjsr	L_GetFile
+	beq	FilNO
+	move.l	a3,-(sp)
+	move.l	a2,-(sp)
+	clr.w	-(sp)
+* Recupere les variables
+Fld1	addq.l	#2,a6
+	bsr	New_Expentier
+	move.l	d3,-(a3)
+	addq.l	#2,a6
+	bsr	FindVar
+	move.l	a0,-(a3)
+	addq.w	#1,(sp)
+	cmp.w	#_TkVir,(a6)
+	beq.s	Fld1
+* Reserve la memoire necessaire
+	move.w	(sp),d0
+	mulu	#6,d0
+	addq.l	#8,d0
+	SyCall	MemFastClear
+	beq	OOfMem
+	move.w	(sp)+,d1
+	move.l	(sp)+,a2
+	move.l	a0,FhF(a2)
+	move.l	a0,a1
+	lea	8(a1),a0
+	move.w	d1,(a1)
+	subq.w	#1,d1
+	moveq	#0,d2
+	move.l	(sp),a3
+Fld2	move.l	-(a3),d0
+	beq	FldFonc
+	add.l	d0,d2
+	cmp.l	#String_Max,d2
+	bcc	FldFonc
+	move.w	d0,(a0)+
+	move.l	-(a3),(a0)+
+	dbra	d1,Fld2
+	move.w	d2,2(a1)
+* Taille du fichier
+	move.l	(sp)+,a3
+	move.l	a1,-(sp)
+	move.l	FhA(a2),d1
+	moveq	#0,d2
+	moveq	#1,d3
+	DosCall	_LVOSeek
+	move.l	FhA(a2),d1
+	moveq	#0,d2
+	moveq	#-1,d3
+	DosCall	_LVOSeek
+	move.l	(sp)+,a1
+	move.l	d0,4(a1)
+	rts
+* FonCall field!
+FldFonc	Rjsr	L_Cloa1
+	bra	FonCall
+FilNO	moveq	#DEBase+18,d0
+	bra	RunErr
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INPUT #
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLineInputH
+; - - - - - - - - - - - - -
+	clr.w	-(sp)
+	bra.s	DInp0
+; - - - - - - - - - - - - -
+	Lib_Par InInputH
+; - - - - - - - - - - - - -
+	move.w	#",",-(sp)
+DInp0	bsr	New_Expentier
+	addq.l	#2,a6
+	move.l	d3,d0
+	Rjsr	L_GetFile
+	beq	FilNO
+	move.l	a2,PrintFile(a5)
+	clr.l	DeFloat(a5)
+	Rjsr	L_SaveRegs
+	bra	ReInp
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INPUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InInput
+; - - - - - - - - - - - - -
+	move.w	#",",-(sp)
+	bra.s	IInp0
+; - - - - - - - - - - - - -
+	Lib_Par InLineInput
+; - - - - - - - - - - - - -
+	clr.w	-(sp)
+IInp0:	Rjsr	L_SaveRegs
+	clr.l	DeFloat(a5)
+	clr.l	PrintFile(a5)
+	tst.w	ScOn(a5)
+	beq	ScNOp
+	move.l	Buffer(a5),a0
+	clr.b	(a0)
+	moveq	#1,d7
+* Chaine a imprimer?
+	cmp.w	#_TkVar,(a6)
+	beq.s	IInp1
+	bsr	New_Evalue
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	addq.l	#2,a6
+	moveq	#0,d7
+	tst.w	d2
+	beq.s	IInp1
+	move.b	0(a2,d2.w),d6
+	clr.b	0(a2,d2.w)
+	move.l	a2,a1
+	WiCall	Print
+	move.b	d6,0(a2,d2.w)
+* Imprime le ?
+IInp1:	tst.w	d7
+	beq.s	ReInp
+	WiCalA	Print,InnInt(pc)
+	clr.l	DeFloat(a5)
+
+;	 Rempli le buffer!
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+ReInp:	tst.l	PrintFile(a5)
+	bne.s	ReDInp
+* Clavier
+	lea	Es_LEd(a5),a0
+	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	move.l	a1,a2
+	move.w	#(1<<LEd_FCursor)|(1<<LEd_FTests)|(1<<LEd_FMulti),d0
+	moveq	#0,d1			Curseur � zero
+	move.w	#256,d2			256 caracteres maxi
+	moveq	#-1,d3			Largeur maxi
+	move.l	a3,-(sp)
+	Rjsr	L_LEd_Init
+	bne	FonCall			Trop � droite...
+	Rjsr	L_LEd_Loop
+	move.l	(sp)+,a3
+	move.l	d0,d3
+	tst.w	d2
+	bmi	IStop
+	bra	InnPut
+* Fichier!
+ReDInp	move.l	PrintFile(a5),a2
+	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	moveq	#0,d1
+	move.w	(sp),d2
+	move.b	ChrInp+1(a5),d3
+	move.b	ChrInp(a5),d4
+	bra.s	InpD1
+InpD0	move.b	d0,(a1)+
+	addq.w	#1,d1
+	cmp.w	#1000,d1
+	bcc	InpTL
+InpD1	Rjsr	L_GetByte
+	cmp.b	d0,d2			* Stop aux virgules
+	beq.s	InpD2
+	cmp.b	d0,d3			* Premier caractere?
+	bne.s	InpD0
+ 	tst.b	d4			* Sauter le deuxieme?
+	bmi.s	InpD2
+	Rjsr	L_GetByte
+InpD2	clr.b	(a1)
+	move.l	a1,d3
+	sub.l	Buffer(a5),d3		* Nombre de caracteres -> D3
+
+******* INPUT/LINE INPUT: interprete le buffer!
+InnPut	move.l	Buffer(a5),a2
+Inn1:	move.l	a2,-(sp)
+	bsr	FindVar
+	move.l	(sp)+,a2
+	movem.l	a0/d2,-(sp)
+	cmp.b	#2,d2
+	bne.s	Inn5
+* Variable alphanumerique
+	move.l	ChVide(a5),(a0)		* Libere la memoire!
+	bsr	DDemande
+	addq.l	#2,a0
+	move.b	8+1(sp),d1
+Inn2:	move.b	(a2)+,d0
+	move.b	d0,(a0)+
+	beq.s	Inn3
+	cmp.b	d0,d1
+	bne.s	Inn2
+Inn3:	subq.l	#1,a0
+	subq.l	#1,a2
+	move.l	a0,d0
+	sub.l	a1,d0
+	subq.l	#2,d0
+	move.w	d0,(a1)
+	btst	#0,d0
+	beq.s	Inn4
+	addq.l	#1,a0
+Inn4:	move.l	a0,HiChaine(a5)
+	movem.l	(sp)+,a0/d2
+	move.l	a1,(a0)
+	bra.s	Inn10
+* Variable numerique
+Inn5:	move.l	a2,a0
+	moveq	#1,d0			Tenir compte du signe
+	Rjsr	L_ValRout
+	move.l	a0,a2
+	movem.l	(sp)+,a1/d1
+	move.b	(a2),d0
+	beq.s	Inn6
+	cmp.b	1(sp),d0
+	bne	InnRedo
+Inn6:	cmp.b	d1,d2
+	beq.s	Inn8
+	tst.b	d1
+	beq.s	Inn7
+	move.l	a1,-(sp)
+	Rjsrt	L_IntToFl1
+	move.l	(sp)+,a1
+	bra.s	Inn8
+Inn7:	move.l	a1,-(sp)
+	Rjsrt	L_FlToInt1
+	move.l	(sp)+,a1
+Inn8:	move.l	d3,(a1)			Poke la variable
+	cmp.b	#1,d2			Float?
+	bne.s	Inn10
+	tst.b	MathFlags(a5)		Double?
+	bpl.s	Inn10
+	move.l	d4,4(a1)		Poke la 2eme partie
+* Encore une variable a prendre???
+Inn10:	cmp.w	#_TkVir,(a6)+
+	bne.s	Inn11
+	cmp.b	#",",(a2)+
+	beq	Inn1
+* ??
+	tst.l	PrintFile(a5)
+	bne	ReInp
+	WiCalA	Print,InnEnc(pc)
+	move.l	Buffer(a5),a0
+	clr.b	(a0)
+	bra	ReInp
+* Fini!
+Inn11:	subq.l	#2,a6
+	addq.l	#2,sp
+	Rjsr	L_EndByte
+	tst.l	PrintFile(a5)
+	bne.s	InnFin
+	cmp.w	#_TkPVir,(a6)+
+	beq.s	InnFin
+	subq.l	#2,a6
+	WiCalA	Print,InnRet(pc)
+	bra.s	InnFin
+* Redo from start
+InnRedo	Rjsr	L_EndByte
+	tst.l	PrintFile(a5)
+	bne	TypeMis
+	WiCalA	Print,InnRet(pc)
+	moveq	#15,d0
+	Rjsr	L_Def_GetMessage
+	move.l	a0,a1
+	WiCall	Print
+	WiCalA	Print,InnRet(pc)
+	Rjsr	L_LoadRegs
+	move.l	d7,a6
+	bra	IInp0
+* Fini!
+InnFin	Rjsr	L_LoadRegs
+	rts
+InnRet:	dc.b 	13,10,0
+InnInt:	dc.b	"? ",0
+InnEnc:	dc.b	13,10,"?? ",0
+	even
+; - - - - - - - - - - - - -
+	Lib_Def	Input
+	Lib_Def	CRet
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PRINT #n,"kjfdjkf";
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPrintH
+; - - - - - - - - - - - - -
+	bsr	New_Expentier
+	addq.l	#2,a6
+	move.l	d3,d0
+	Rjsr	L_GetFile
+	tst.l	FhA(a2)
+	beq	FilNO
+	btst	#0,FhT(a2)
+	beq	FilTM
+	cmp.w	#1,d0
+	beq	FilTM
+	move.l	a2,PrintFile(a5)
+	clr.w	ImpFlg(a5)
+	bra.s	Print0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LPRINT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLPrint
+; - - - - - - - - - - - - -
+ 	clr.l	PrintFile(a5)
+	move 	#1,ImpFlg(a5)
+        bra.s 	Print0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PRINT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPrint
+; - - - - - - - - - - - - -
+  	clr 	ImpFlg(a5)
+	clr.l	PrintFile(a5)
+* Entree commune
+Print0	Rjsr	L_SaveRegs
+	move.l 	PrintPos(a5),d0
+        beq.s 	Print1
+	move.l	d0,a6
+        bclr 	#7,PrintFlg(a5)
+* Boucle
+Print1	clr 	PrintFlg(a5)
+Prunt2	bsr 	ssprint
+        beq 	FinPrint
+        tst.w 	d7
+        beq.s 	Prunt2
+	move.l	PrintFile(a5),d0
+	bne.s	Print4
+* A l'ecran / Imprimante
+	move.l	Buffer(a5),a0
+	Rjsr	L_ImpChaine
+	bra.s	Prunt2
+* Impression dans un fichier
+Print4	move.l	d0,a0
+	move.l	FhA(a0),d1
+Print5	move.l	Buffer(a5),d2
+	move.l	d3,-(sp)
+	moveq	#0,d3
+	move.w	d7,d3
+	DosCall	_LVOWrite
+	move.l	d3,d1
+	move.l	(sp)+,d3
+	cmp.l	d0,d1
+	beq.s	Prunt2
+	Rjmp	L_DiskError
+* Fin du print
+FinPrint:
+	Rjsr	L_LoadRegs
+	clr.l 	PrintPos(a5)
+        clr.l 	PrintFile(a5)
+	rts
+
+; ROUTINE DE PRINT: REMPLI LE BUFFER, REVIENT D7=LONGUEUR A IMPRIMER!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ssprint	btst 	#7,PrintFlg(a5)    impression de chaine en route!
+        bne 	sp2a
+        btst 	#6,PrintFlg(a5)    fini?
+        bne 	sp17
+ 	move.l 	Buffer(a5),a0
+        cmp.w 	#_TkUsing,(a6)	Using?
+	beq.s 	sp20
+	bsr 	Finie		Print termine?
+	beq 	sp11
+	bra.s 	spa
+; USING "+ - #### . ^^^^ ~~~~": debut, STOCKE LA CHAINE
+sp20:   bsr	Fn_New_Evalue
+	move.l	d3,a2
+	move.w	(a2)+,d2
+        cmp 	#120,d2         	pas plus de 200 caracteres
+        bcc 	FonCall
+        move.l 	Buffer(a5),a0
+	lea 	256(a0),a0
+        Rjsr 	L_ChVerBuf2       	copie la chaine dans le buffer
+        move 	#1,UsingFlg(a5)
+	addq.l 	#2,a6		Saute le ;
+	bra.s 	spb
+* Prend le param
+spa:    clr 	UsingFlg(a5)
+spb:    bsr	New_Evalue
+	move.l 	d7,d0
+	bne.s 	spb0
+	move.l 	MenA4(a5),d7
+spb0:   move.l 	Buffer(a5),a0
+        subq.b 	#1,d2
+        bmi.s 	sp1
+        bne.s 	sp2
+; IMPRESSION D'UN CHIFFRE FLOAT
+        RjsrtR 	L_Float2Ascii,1        	;va ecrire dans le buffer
+        bra 	using1
+; IMPRESSION D'UN CHIFFRE ENTIER
+sp1:	move.l 	d3,d0
+	moveq	#-1,d3         		;proportionnel
+        moveq 	#1,d4         		;avec signe
+        Rjsr 	L_LongToAsc
+        bra 	using1
+; IMPRESSION D'UNE CHAINE -debut-
+sp2:    move.l 	d3,a2
+        move.w 	(a2)+,d3
+        bne.s 	sp3
+        bra 	using50
+; IMPRESSION D'UNE CHAINE -milieu-
+sp2a:   move.l 	Buffer(a5),a0
+sp3:    moveq 	#120,d0
+sp4:    move.b 	(a2)+,(a0)+  	;imprime par salves de 120 caracteres,
+        subq 	#1,d3
+        beq.s 	sp5
+        dbra 	d0,sp4
+        bset 	#7,PrintFlg(a5)    ;on a pas fini d'imprimer la chaine!
+        bra.s 	sp11
+sp5:    bclr 	#7,PrintFlg(a5)    ;on a fini!
+        bra 	using50
+; fin du sspgm/retour du USING
+sp11:   clr 	UsingFlg(a5)        ;une seule expression par USING
+        btst 	#7,PrintFlg(a5)    ;pas fini: ne fait rien!
+        bne.s 	sp15
+        move.w 	(a6),d0
+        cmp.w 	#_TkVir,d0
+        beq.s 	sp12
+        cmp.b 	#_TkPVir,d0     ;point virgule: ne fait rien!
+        beq.s 	sp13
+        bra.s 	sp14
+sp12:   move.b 	#9,(a0)+         	;TAB
+sp13:   addq.l	#2,a6
+        bsr 	Finie
+	beq.s 	sp14a
+        bne.s 	sp15
+sp14:   move.b 	#13,(a0)+        	;met le RETURN
+        move.b 	#10,(a0)+
+sp14a:  bset 	#6,PrintFlg(a5)    	;flag: c'est fini apres!
+sp15:   clr.b 	(a0)
+        sub.l 	Buffer(a5),a0
+        move.l 	a0,d7            	;taille du buffer
+        btst 	#7,PrintFlg(a5)
+        bne.s 	sp16
+        move.l 	a6,PrintPos(a5)  	;position du CHRGET PRINT
+sp16:   moveq 	#1,d0             	;retour: quelque chose a imprimer!
+        rts
+sp17: 	moveq 	#0,d0
+        rts
+
+; USING pour les CHIFFRES
+using1: tst 	UsingFlg(a5)        Si pas using: revient imprimer
+        beq 	sp11
+        clr.b 	(a0)          	Stoppe la chaine
+        move.l 	Buffer(a5),a1
+        lea 	128(a1),a2
+        moveq 	#127,d0
+us2:    move.b 	(a1),(a2)+   	recopie la chaine, et fait le menage!!!
+        move.b 	#32,(a1)+
+        dbra 	d0,us2
+        move.l 	Buffer(a5),a0
+        lea 	128(a0),a1      	a1 pointe la chaine
+        move.l 	a1,d6        	debut chaine a formatter
+	move.l 	Buffer(a5),a2
+	lea 	256(a2),a2		a2 pointe la chaine de definition
+        move.l 	a2,d7        	debut chaine de format
+us3:    move.b 	(a2),d0
+        beq.s 	us5
+        cmp.b 	#".",d0       	cherche la fin du format de chiffre
+        beq.s 	us5
+        cmp.b 	#";",d0
+        beq.s 	us5
+        cmp.b 	#"^",d0
+        beq.s 	us5
+        addq.l 	#1,a0
+        addq.l 	#1,a2
+        bra.s 	us3
+us5:    move.b 	(a1),d0
+        beq.s 	us6
+        cmp.b 	#".",d0       	trouve le point de la chaine a formatter
+        beq.s 	us6             	ou la fin
+        cmp.b 	#"E",d0
+        beq.s 	us6
+        addq.l 	#1,a1
+        bra.s 	us5
+us6:    movem.l	a0-a3,-(sp)
+; ecris la gauche du chiffre
+us7:    cmp.l 	d7,a2         	fini a gauche???
+        beq 	us15
+        move.b 	-(a2),d0
+        cmp.b 	#"#",d0
+        beq.s 	us8
+        cmp.b 	#"-",d0
+        beq.s 	us11
+        cmp.b 	#"+",d0
+        beq.s 	us12
+        move.b 	d0,-(a0)     	aucun signe reserve: le met simplement!
+        bra.s 	us7
+us8:    cmp.l 	d6,a1         	-----> "#"
+        bne.s 	us10
+us9:    move.b 	#" ",-(a0)   	arrive au debut du chiffre!
+        bra.s 	us7
+us10:   move.b 	-(a1),d0
+        cmp.b 	#"0",d0       	pas un chiffre (signe)
+        bcs.s 	us9
+        cmp.b 	#"9",d0
+        bhi.s 	us9
+        move.b 	d0,-(a0)     	OK, chiffre: poke!
+        bra.s 	us7
+us11:   move.l 	d6,a3        	-----> "-"
+        move.b 	(a3),-(a0)   	met le "signe": 32 ou "-"
+        bra.s 	us7
+us12:   move.l 	d6,a3
+        move.b 	(a3),d0
+        cmp.b 	#"-",d0
+        beq.s 	us13
+        move.b 	#"+",d0
+us13:   move.b 	d0,-(a0)     	-----> "+"
+        bra 	us7
+; ecrit la droite du chiffre
+us15:   movem.l (sp)+,a0-a3 	recupere les adresses pivot
+        clr.l 	d2            	flag puissance
+        cmp.b 	#".",(a1)     	saute le point dans le chiffre a afficher
+        bne.s 	us16
+        addq.l 	#1,a1
+us16:   move.b 	(a2)+,d0
+        beq 	sp11        	fini OUF!
+        cmp.b 	#";",d0       	";" marque la virgule sans l'ecrire!
+        beq.s 	us18z
+        cmp.b 	#"#",d0
+        beq.s 	us17
+        cmp.b 	#"^",d0
+        beq.s 	us20
+        move.b 	d0,(a0)+     	ne correspond a rien: POKE!
+        bra.s 	us16
+us17:   move.b 	(a1),d0      	-----> "#"
+        bne.s 	us19
+us18:   tst 	d2
+        beq.s 	us18a
+us18z:  move.b 	#" ",(a0)+   	si puissance passee: met des espaces
+        bra.s 	us16
+us18a:  move.b 	#"0",(a0)+   	Fin du chiffre: met un zero apres la virgule
+        bra.s 	us16
+us19:   cmp.b 	#"0",d0
+        bcs.s 	us18
+        cmp.b 	#"9",d0
+        bhi.s 	us18
+        addq.l 	#1,a1
+        move.b 	d0,(a0)+
+        bra 	us16
+us20:   tst 	d2              	-----> "^"
+        bmi.s 	us24
+        bne.s 	us25
+us21:   move.b 	(a1),d0
+        beq.s 	us22
+        cmp.b 	#"E",d0
+        beq.s 	us23
+        addq.l 	#1,a1
+        bra.s 	us21
+us22:   move 	#1,d2          	pas de puissance: en fabrique une!
+        bra.s 	us25
+us23:   move 	#-1,d2
+us24:   move.b 	(a1),d0      	si fin du chiffre: met des espaces
+        beq 	us18
+        addq.l 	#1,a1
+        cmp.b 	#32,d0        	saute l'espace entre E et +/-
+        beq.s 	us24
+        move.b 	d0,(a0)+
+        bra 	us16
+us25:   move.l	a3,-(sp)
+	lea 	UsPuiss(pc),a3
+        move.b 	-1(a3,d2.w),(a0)+ 	met une fausse puissance!
+	move.l	(sp)+,a3
+        cmp.b 	#6,d2
+        beq 	us16
+        addq 	#1,d2
+        bra 	us16
+
+; PRINT USING POUR DES CHAINES +++facile
+using50:tst 	UsingFlg(a5)	si pas using, va imprimer
+        beq 	sp11
+	move.l 	a2,-(sp)
+        clr.b 	(a0)        	stoppe la chaine
+        move.l 	Buffer(a5),a0
+        lea 	128(a0),a1
+        moveq 	#127,d0
+us51:   move.b 	(a0)+,(a1)+  	recopie la chaine, et fait le menage!!!
+        dbra 	d0,us51
+        move.l 	Buffer(a5),a0
+        lea 	128(a0),a1      	a1 pointe la chaine
+        lea 	128(a1),a2		a2 pointe la chaine de definition
+; ecris la chaine dans le buffer
+us52:   move.b 	(a2)+,d0
+        beq.s 	us55        	fini!
+        cmp.b 	#"~",d0
+        beq.s 	us53
+        move.b 	d0,(a0)+
+        bra.s 	us52
+us53:   move.b 	(a1),d0      	----> "~"
+        bne.s 	us54
+        move.b 	#32,(a0)+
+        bra.s 	us52
+us54:   addq.l 	#1,a1
+        move.b 	d0,(a0)+
+        bra.s 	us52
+us55:	move.l	(sp)+,a2
+	bra 	sp11
+UsPuiss dc.b "E+000  "
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Pour le compilateur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	PrintE
+	Lib_Def	PrintF
+	Lib_Def	PrintS
+	Lib_Def	PrintX
+	Lib_Def	LPrintX
+	Lib_Def	CRPrint
+	Lib_Def	HPrintS
+	Lib_Def	PrtRet
+	Lib_Def	PrtVir
+	Lib_Def	HPrintX
+	Lib_Def	UsingC
+	Lib_Def	UsingS
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Ecrans.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEFAULT PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDefaultPalette
+; - - - - - - - - - - - - -
+	lea	DefPal(a5),a0
+	bsr	Plt
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPalette
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	beq	ScNOp
+	moveq	#15,d0
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+Pal1:	move.l	#-1,(a1)+
+	dbra	d0,Pal1
+	bsr	Plt
+	EcCall	SPal
+	bne	EcWiErr
+	rts
+
+* Routine palette
+; - - - - - - - - - - - - -
+	Lib_Def	Plt
+; - - - - - - - - - - - - -
+Plt:	move.l	a0,-(sp)
+	bsr	New_Evalue
+	subq.b	#1,d2
+	bmi.s	Plt1
+	Rjsrt	L_IntToFl1
+Plt1:	move.l	(sp)+,a0
+	tst.l	d3
+	bmi.s	Plt2
+	and.w	#$FFF,d3
+	move.w	d3,(a0)
+Plt2:	addq.l	#2,a0
+	move.w	(a6)+,d0
+	cmp.w	#_TkVir,d0
+	beq.s	Plt
+	subq.l	#2,a6
+	move.l	Buffer(a5),a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FADE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	InFade1
+	Lib_Def	InFade2
+	Lib_Def	InFade3
+	Lib_Def	InFadePal
+	Lib_Par InFade
+; - - - - - - - - - - - - -
+	bsr	New_Expentier
+	move.l	d3,-(a3)
+	move.w	(a6),d0
+	cmp.w	#_TkTo,d0
+	beq.s	IFaTo
+	cmp.w	#_TkVir,d0
+	beq.s	IFaPal
+* FADE n
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+	moveq	#31,d0
+IFad0	clr.w	(a0)+
+	dbra	d0,IFad0
+	bra.s	IFadT
+* FADE TO
+IFaTo	bsr	Fn_New_Expentier
+	tst.l	d3
+	bpl.s	IFat1
+	Rjsr	L_Bnk.GetBobs		<0 -->> sprite palette
+	beq	BkNoRes
+	move.w	(a0)+,d0
+	lsl.w	#3,d0
+	lea	0(a0,d0.w),a0
+	bra.s	IFat2
+IFat1	move.l	d3,d1			* Dans un ecran
+	Rjsr	L_GetEc
+	lea	EcPal(a0),a0
+IFat2	moveq	#-1,d3
+	cmp.w	#_TkVir,(a6)
+	bne.s	IFat3
+	move.l	a0,-(sp)
+	bsr	Fn_New_Expentier
+	move.l	(sp)+,a0
+IFat3	Rjsr	L_PalRout
+	bra.s	IFadT
+* FADE palette
+IFaPal	moveq	#15,d0
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+IFap	move.l	#-1,(a1)+
+	dbra	d0,IFap
+	addq.l	#2,a6
+	bsr	Plt
+* Appelle!
+IFadT	tst.w	ScOn(a5)
+	beq	ScNOp
+	move.l	(a3)+,d1
+	bls	FonCall
+	EcCall	FadeOn
+	bne	FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					POLYLINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPolyline
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	beq	ScNOp
+	clr.w	-(sp)
+	move.l	T_RastPort(a5),a1
+	move.l	Buffer(a5),a2
+	cmp.w	#_TkTo,(a6)
+	bne.s	PLi1
+	move.w	36(a1),d0
+	move.w	38(a1),d1
+	bra.s	PLi2
+PLi1:	movem.l	a1/a2,-(sp)
+	bsr	New_Expentier
+	move.l	d3,-(a3)
+	bsr	Fn_New_Expentier
+	movem.l	(sp)+,a1/a2
+	move.l	d3,d1
+	move.l	(a3)+,d0
+PLi2:	move.w	d0,(a2)+
+	move.w	d1,(a2)+
+	addq.w	#1,(sp)
+	cmp.w	#_TkTo,(a6)+
+	beq.s	PLi1
+	subq.l	#2,a6
+	move.w	(sp)+,d0
+	cmp.w	#1,d0
+	bls	FonCall
+	move.l	Buffer(a5),a0
+	move.w	(a0),36(a1)
+	move.w	2(a0),38(a1)
+	move.w	#PolyDraw,d5
+	Rjsr	L_GfxFunc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					POLYGON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPolygon
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	beq	ScNOp
+
+; Initialise le buffer AREADRAW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AAreaInfo(a5),a0
+	lea	AAreaBuf(a5),a1
+	moveq	#AAreaSize,d0
+	move.l	T_RastPort(a5),a2
+	move.l	a0,16(a2)
+	GfxCa5	InitArea
+
+	move.l	T_RastPort(a5),a1
+	move.l	Buffer(a5),a2
+	cmp.w	#_TkTo,(a6)
+	bne.s	PGi0
+	addq.l	#2,a6
+	move.w	36(a1),d0
+	move.w	38(a1),d1
+	bra.s	PGi1
+PGi0:	move.l	a1,-(sp)
+	bsr	New_Expentier
+	move.l	d3,-(a3)
+	bsr	Fn_New_Expentier
+	move.l	(sp)+,a1
+	addq.l	#2,a6
+	move.l	d3,d1
+	move.l	(a3)+,d0
+PGi1:	GfxCa5	AreaMove
+PGi2:	move.l	a1,-(sp)
+	bsr	New_Expentier
+	move.l	d3,-(a3)
+	bsr	Fn_New_Expentier
+	move.l	(sp)+,a1
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	GfxCa5	AreaDraw
+	cmp.w	#_TkTo,(a6)+
+	beq.s	PGi2
+	subq.l	#2,a6
+FinRas	Rjsr	L_GetRas
+	GfxCa5	AreaEnd
+	Rjsr	L_FreeRas
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source:	Sprite.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHANNEL x TO SPRITE x
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	ChannelToSprite
+	Lib_Def	ChannelToBob
+	Lib_Def	ChannelToSDisplay
+	Lib_Def	ChannelToSSize
+	Lib_Def	ChannelToSOffset
+	Lib_Def	ChannelToRainbow
+; - - - - - - - - - - - - -
+	Lib_Par InChannel
+; - - - - - - - - - - - - -
+	bsr	New_Expentier
+	cmp.l	#64,d3
+	bcc	FonCall
+	addq.l	#2,a6
+	move.w	(a6)+,d0
+	moveq	#0,d4			* 0-> Sprites
+	moveq	#64,d5
+	cmp.w	#_TkSpr,d0
+	beq.s	ChaX
+	addq.w	#1,d4			* 1-> Bobs
+	moveq	#64,d5
+	cmp.w	#_TkBob,d0
+	beq.s	ChaX
+	addq.w	#1,d4			* 2-> Screen display
+	moveq	#8,d5
+	cmp.w	#_TkScD,d0
+	beq.s	ChaX
+	addq.w	#1,d4			* 3-> Screen size
+	cmp.w	#_TkScS,d0
+	beq.s	ChaX
+	addq.w	#1,d4			* 4-> Screen offset
+	cmp.w	#_TkScO,d0
+	beq.s	ChaX
+	addq.w	#2,d4			* 6-> Rainbow
+	moveq	#4,d5
+ChaX:	movem.l	d3-d5,-(sp)
+	bsr	New_Expentier
+	move.l	d3,d2
+	movem.l	(sp)+,d3-d5
+	cmp.l	d5,d2
+	bcc	FonCall
+	lsl.w	#1,d3
+	lea	AnCanaux(a5),a0
+	move.b	d4,0(a0,d3.w)		* 1 => TYPE
+	move.b	d2,1(a0,d3.w)		* 2 => NUMERO
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: memory.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BSET / BTST / BCHG / BCLR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBset
+; - - - - - - - - - - - - -
+IBset:	bsr	BsRout
+	bmi.s	IBs1
+	move.l	(a0),d1
+	bset	d0,d1
+	move.l	d1,(a0)
+	rts
+IBs1:	bset	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InBset1
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Par InBclr
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	IBc1
+	move.l	(a0),d1
+	bclr	d0,d1
+	move.l	d1,(a0)
+	rts
+IBc1:	bclr	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InBclr1
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Par InBchg
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	IBh1
+	move.l	(a0),d1
+	bchg	d0,d1
+	move.l	d1,(a0)
+	rts
+IBh1:	bchg	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InBchg1
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Par FnBtst
+; - - - - - - - - - - - - -
+	addq.w	#2,a6
+	bsr	BsRout
+	bmi.s	IBt1
+	move.l	(a0),d1
+	btst	d0,d1
+	bne.s	IbtT
+	bra.s	IbtF
+IBt1:	btst	d0,(a0)
+	bne.s	IbtT
+IbtF:	moveq	#0,d3
+	Ret_Int
+IbtT:	moveq	#-1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Def	FnBtst1
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROR ROL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRorB
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	Brr1
+	move.b	3(a0),d1
+	ror.b	d0,d1
+	move.b	d1,3(a0)
+	rts
+Brr1:	move.b	(a0),d1
+	ror.b	d0,d1
+	move.b	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InRorB1
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Par InRorW
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	Wrr1
+	move.w	2(a0),d1
+	ror.w	d0,d1
+	move.w	d1,2(a0)
+	rts
+Wrr1:	move.w	(a0),d1
+	ror.w	d0,d1
+	move.w	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InRorW1
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Par InRorL
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	Lrr1
+	move.l	(a0),d1
+	ror.l	d0,d1
+	move.l	d1,(a0)
+	rts
+Lrr1:	move.l	(a0),d1
+	ror.l	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InRorL1
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InRolB
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	Brl1
+	move.b	3(a0),d1
+	rol.b	d0,d1
+	move.b	d1,3(a0)
+	rts
+Brl1:	move.b	(a0),d1
+	rol.b	d0,d1
+	move.b	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InRolB1
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InRolW
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	Wrl1
+	move.w	2(a0),d1
+	rol.w	d0,d1
+	move.w	d1,2(a0)
+	rts
+Wrl1:	move.w	(a0),d1
+	rol.w	d0,d1
+	move.w	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InRolW1
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Par InRolL
+; - - - - - - - - - - - - -
+	bsr	BsRout
+	bmi.s	Lrl1
+	move.l	(a0),d1
+	rol.l	d0,d1
+	move.l	d1,(a0)
+	rts
+Lrl1:	move.l	(a0),d1
+	rol.l	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InRolL1
+; - - - - - - - - - - - - -
+
+******* Routine: ramene l'adresse a affecter!
+BsRout	bsr	New_Expentier
+	tst.l	d3
+	bmi	FonCall
+	addq.w	#2,a6
+	cmp.w	#_TkVar,(a6)
+	beq.s	BsR1
+* Une adresse
+	bset	#31,d3
+	move.l	d3,-(a3)
+	bsr	New_Expentier
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	rts
+* Une variable
+BsR1	move.l	a6,-(sp)
+	move.l	d3,-(a3)
+	bsr	FindVar
+	cmp.w	#_TkPar2,(a6)+
+	beq.s	BsR2
+	subq.l	#2,a6
+	bsr	Finie
+	bne.s	BsR3
+BsR2	addq.l	#4,sp
+	move.l	(a3)+,d0
+	rts
+* He non! Une adresse!
+BsR3	move.l	(sp)+,a6
+	bsr	New_Expentier
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	moveq	#-1,d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CALL PROCEDURE LANGAGE MACHINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par In_apml_
+; - - - - - - - - - - - - -
+; Des parametres � empiler?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	(a6)+,d0
+	beq.s	.PaPar
+	moveq	#0,d1
+	lea	-2+2(a6,d0.w),a2
+.PaL	move.w	(a2)+,d0
+	bmi.s	.Glo
+	move.l	VarLoc(a5),a0
+	lea	2(a0,d0.w),a0
+.Glo2	move.l	(a0),-(a3)
+	move.b	(a2)+,d1
+	lea	1(a2,d1.w),a2
+	cmp.w	#_TkVir,(a2)+
+	addq.l	#2,a2
+	beq.s	.PaL
+; Appelle la routine
+; ~~~~~~~~~~~~~~~~~~
+.PaPar	movem.l	a3-a6/d6-d7,-(sp)
+	lea	CallReg(a5),a4
+	move.l	a4,-(sp)
+	movem.l	(a4),d0-d7/a0-a2
+	jsr	(a6)
+.Return	move.l	(sp)+,a4
+	movem.l	d0-d7/a0-a2,(a4)
+	movem.l	(sp)+,a3-a6/d6-d7
+	move.l	d0,ParamE(a5)
+	bra	PopP
+; Si variable globale
+.Glo	move.l	VarGlo(a5),a0
+	neg.w	d0
+	lea	1(a0,d0.w),a0
+	bra.s	.Glo2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCall
+; - - - - - - - - - - - - -
+	bsr	New_Expentier
+	move.l	d3,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	a0,-(sp)
+; Evalue les params!
+.Loop	cmp.w	#_TkVir,(a6)
+	bne.s	.Call
+	addq.l	#2,a6
+	bsr	New_Expentier
+	move.l	d3,-(a3)
+	bra.s	.Loop
+; Appel
+.Call	move.l	(sp)+,a0
+	movem.l	d6-d7/a3-a6,-(sp)
+	move.l	a0,a4
+	lea	CallReg(a5),a6
+	move.l	a6,-(sp)
+	movem.l	(a6),d0-d7/a0-a2
+	jsr	(a4)
+.Return	move.l	(sp)+,a6
+	movem.l	d0-d7/a0-a2,(a6)
+	movem.l	(sp)+,d6-d7/a3-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LVO =EQU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnEqu
+; - - - - - - - - - - - - -
+	move.l	(a6),d3
+	moveq	#0,d2
+	move.w	6+2+2(a6),d0
+	move.w	d0,d1
+	and.w	#1,d1
+	add.w	d1,d0
+	lea	6+2+4+2(a6,d0.w),a6
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=STRUC=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InStruc
+; - - - - - - - - - - - - -
+	bsr	GStruc
+	movem.l	a0/d0/d1,-(sp)
+	addq.l	#2,a6
+	bsr	New_Expentier
+	movem.l	(sp)+,a0/d0/d1
+	lsl.w	#1,d0
+	jmp	.Jmp(pc,d0.w)
+.Jmp	bra.s	.Byte
+	bra.s	.Word
+	bra.s	.Long
+	bra.s	.Byte
+	bra.s	.Word
+	bra.s	.Long
+	bra.s	.Long
+.Byte	move.b	d0,(a0)
+	rts
+.Word	btst	#0,d1
+	bne	AdrErr
+	move.w	d3,(a0)
+	rts
+.Long	btst	#0,d1
+	bne	AdrErr
+	move.l	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnStruc
+; - - - - - - - - - - - - -
+	bsr	GStruc
+	moveq	#0,d3
+	lsl.w	#1,d0
+	jmp	.Jmp(pc,d0.w)
+.Jmp	bra.s	.Byte
+	bra.s	.Word
+	bra.s	.Long
+	bra.s	.UByte
+	bra.s	.UWord
+	bra.s	.ULong
+	bra.s	.ULong
+.Byte	move.b	(a0),d3
+	ext.w	d3
+	ext.l	d3
+	Ret_Int
+.Word	btst	#0,d1
+	bne	AdrErr
+	move.w	(a0),d3
+	ext.l	d3
+	Ret_Int
+.Long	btst	#0,d1
+	bne	AdrErr
+	move.l	(a0),d3
+	Ret_Int
+.UByte	move.b	(a0),d3
+	Ret_Int
+.UWord	btst	#0,d1
+	bne	AdrErr
+	move.w	(a0),d3
+	Ret_Int
+.ULong	btst	#0,d1
+	bne	AdrErr
+	move.l	(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=STRUC$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InStrucD
+; - - - - - - - - - - - - -
+	bsr	GStruc
+	btst	#0,d1
+	bne	AdrErr
+	clr.l	(a0)
+	move.l	a0,-(sp)
+	bsr	Fn_New_Evalue
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	cmp.l	#"|00|",(a2)
+	beq.s	.Skp
+	moveq	#2,d3
+	add.w	d2,d3
+	bsr	Demande
+	lea	2(a0,d3.w),a0
+	move.w	a0,d0
+	and.w	#1,d0
+	add.w	d0,a0
+	move.l	a0,HiChaine(a5)
+	move.l	(sp)+,a0
+	move.l	a1,(a0)
+	move.w	d2,(a1)
+	addq.w	#1,(a1)+
+	subq.w	#1,d2
+	bmi.s	.Skp
+.Lop	move.b	(a2)+,(a1)+
+	dbra	d2,.Lop
+	clr.b	(a1)
+.Skp	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnStrucD
+; - - - - - - - - - - - - -
+	bsr	GStruc
+	btst	#0,d1
+	bne	AdrErr
+	move.l	(a0),d0
+	beq.s	.Vide
+	move.l	d0,a0
+	Rjsr	L_A0ToChaine
+	move.l	a0,d3
+	Ret_String
+.Vide	Rjmp	L_Ret_ChVide
+; Routine de saisie des parametres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+GStruc	move.l	(a6)+,-(sp)	Equate
+	move.w	(a6)+,-(sp)	Type
+	addq.l	#2,a6		Saute (
+	bsr	New_Expentier	Adresse de base
+	move.w	2+2(a6),d0	Saute la chaine et la )
+	move.w	d0,d1
+	and.w	#1,d1
+	add.w	d1,d0
+	lea	2+4+2(a6,d0.w),a6
+	move.w	(sp)+,d0
+	lsr.w	#8,d0
+	move.l	d3,d1
+	add.l	(sp)+,d1
+	move.l	d1,a0		Adresse resultante
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: String.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				Demande de l'espace pour les chaines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Demande
+Demande
+; - - - - - - - - - - - - -
+	move.l 	HiChaine(a5),a0
+        move.l 	a0,a1
+	add.l	d3,a1
+	addq.l	#4,a1
+	cmp.l	TabBas(a5),a1
+	bcc.s	dem1
+	move.l	a0,a1
+        rts
+; Va faire le menage
+dem1	tst.b	ErrorRegs(a5)		Recharger les registres?
+	beq.s	.NoReg
+	movem.l	ErrorSave(a5),d6-d7
+.NoReg	Rbsr	L_Menage		Va faire le menage
+; Ca marche maintenant?
+	move.l	HiChaine(a5),a1		Ca marche maintenant?
+	add.l	d3,a1
+	addq.l	#4,a1
+	cmp.l	TabBas(a5),a1
+	bcc	FinMenE
+; Ca a marche, un patch?
+	tst.l	Patch_Menage(a5)
+	bne.s	dem3
+	move.l	d7,d0			Ou en est-ton?
+	bmi.s	Demande			Menage simple: ca va revenir!
+	beq.s	FinMenE			Deux fois sur la meme instruction
+; Rebranche au debut de l'instruction
+	move.l	PLoop(a5),a3
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.l	d7,a6
+	move.l	d7,MenA4(a5)
+	moveq	#0,d7			Signal pour nouveau menage
+	movem.l	d6-d7,ErrorSave(a5)	Au cas zou!
+	IFNE	Debug
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	move.w	-2(a6),d0
+	move.w	0(a4,d0.w),d1		Pointe la table de tokens
+	move.l	-LB_Size(a4,d1.w),a0
+	jmp	(a0)			Rebranche
+; Branche au patch
+dem3	move.l	Patch_Menage(a5),a0
+	jmp	(a0)
+; Erreur: out of string space!
+FinMenE	move.l	d7,d0			A4>0
+	bgt	OOfBuf
+	move.l	MenA4(a5),d7		Non, charge l'instruction
+	bra	OOfBuf
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Demande chaine sans erreur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DDemande
+DDemande
+; - - - - - - - - - - - - -
+	move.l	d7,MenA4(a5)
+	moveq	#-1,d7
+	movem.l	d6-d7,ErrorSave(a5)
+	IFNE	Debug
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	bsr	Demande
+	move.l	MenA4(a5),d7
+	movem.l	d6-d7,ErrorSave(a5)
+	IFNE	Debug
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	rts
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENAGE ALPHANUMERIQUE
+;	Taille maximum chaine: 65472 ($FFC0)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Menage
+; - - - - - - - - - - - - -
+	movem.l d1-d7/a2-a6,-(sp)
+
+	IFNE	Debug>1
+	movem.l	d0-d7/a0-a6,-(sp)
+	moveq	#70,d3
+	JJsrIns	L_InBell1,1
+	movem.l	(sp)+,d0-d7/a0-a6
+	ENDC
+	IFNE	Debug>1
+	Rjsr	L_PreBug
+	ENDC
+
+******* Essaie de proceder � un FAST-MENAGE!
+	move.l	HiChaine(a5),d7
+	move.l	LoChaine(a5),d6
+	move.l	d7,d0
+	sub.l	d6,d0
+	cmp.l	#$3FFFFE*2,d0			8 Megas maximum!
+	bcc	SLOW_MENAGE
+	move.l	d0,d5
+	SyCall	MemFast
+	beq	SLOW_MENAGE
+
+*********************************************************************
+FAST_MENAGE
+	move.l	a0,a4
+	move.l	a0,a2
+	clr.w	(a2)+
+FfMen0  move.l 	VarLoc(a5),a6			;Debut des variables
+        moveq 	#-1,d2                    	;Maxi dans le tableau
+; Rempli la table intermediaire
+FfMen1	moveq	#0,d4
+.Loop	move.w	(a6)+,d0			Prend le flag
+	beq.s	.Loop				Nul: non initialise!
+	bmi.s	.Proc				Negatif: fin de chunk
+.Var	btst	#1,d0				Une chaine?
+	bne.s	.Alpha
+	lsr.w	#8,d0				Recupere la taille
+	add.w	d0,a6
+	move.w	(a6)+,d0			Suivante
+	beq.s	.Loop
+	bpl.s	.Var
+.Proc	move.l	(a6),d0				Chunk suivant
+	beq	FfMenX				Le dernier?
+	move.l	d0,a6				Non, on boucle!
+	bra.s	.Loop
+; Variable alphanumerique
+.Alpha	move.l	a6,a3
+	move.l	(a6)+,d1
+	beq.s	.Loop				Non initialise!
+	btst 	#6,d0				Un tableau?
+	beq.s 	FfMen4
+	move.l	d1,a3				Un tableau!
+	moveq	#0,d0
+	move.b	(a3)+,d0			Nombre de dimensions
+	addq.l	#1,a3				Taille des variables
+	subq.w 	#1,d0
+	moveq 	#1,d4
+FfMen2	move.w 	(a3)+,d1			Calcule nombre de variable
+	addq.l	#2,a3
+	addq.w	#1,d1
+	mulu	d1,d4
+	dbra 	d0,FfMen2
+	subq.l	#1,d4
+; Recopie la chaine dans le buffer intermediaire
+FfMen4	move.l	(a3),a0
+	cmp.l	d6,a0				Dans le buffer?
+	bcs.s	FfMenN
+	cmp.l	d7,a0
+	bcc.s	FfMenN
+	move.w	(a0),d0				Chaine vide?
+	beq.s	FfMenV
+	move.w	d0,d1
+	and.w	#$FFC0,d1			Chaine deja copiee?
+	cmp.w	#$FFC0,d1
+	beq.s	FfMenD				Deja fait!
+	move.l	a2,d2
+	sub.l	a4,d2
+	move.l	d2,d1
+	add.l	d6,d1
+	move.l	d1,(a3)+			Change le pointeur
+	move.w	d0,(a2)+
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	subq.w	#1,d0
+	lea	2(a0),a1
+FfMen5	move.w	(a1)+,(a2)+
+	dbra	d0,FfMen5
+	lsr.l	#1,d2				/ 2 car pair
+	or.l	#$FFC00000,d2			Masque
+	move.l	d2,(a0)				Marque la chaine...
+FfSuiv	subq.l	#1,d4
+        bpl.s 	FfMen4
+        bmi	FfMen1
+; Chaine deja copiee
+FfMenD	move.l	(a0),d0
+	and.l	#$003FFFFF,d0
+	lsl.l	#1,d0
+	add.l	d6,d0
+	move.l	d0,(a3)+
+	bra.s	FfSuiv
+; Chaine vide
+FfMenV	move.l	ChVide(a5),(a3)+
+	bra.s	FfSuiv
+; Chaine en dehors du buffer
+FfMenN	addq.l	#4,a3
+	bra.s	FfSuiv
+; Recopie le tout dans le buffer
+FfMenX	move.l	a4,a0
+	move.l	d6,a1
+FfMenX1	move.w	(a0)+,(a1)+
+	cmp.l	a2,a0
+	bcs.s	FfMenX1
+	move.l	a1,HiChaine(a5)
+; Libere le buffer temporaire
+	move.l	a4,a1
+	move.l	d5,d0
+	SyCall	MemFree
+	bra	FinMenS
+*********************************************************************
+SLOW_MENAGE
+* Reserve la memoire, ou prend le BUFFER si rien du tout!!!
+	move.l	#TMenage+16,d0
+	SyCall	MemFast
+	bne.s	L47a
+	move.l	#-1,BMenage(a5)
+	move.l	Buffer(a5),d5
+	bra.s	L47b
+L47a	move.l	a0,BMenage(a5)
+	move.l	a0,d5
+* Menage
+L47b   	move.l 	d5,d6
+	add.l 	#TMenage,d6                  	;Fin TI
+	move.l 	LoChaine(a5),d7               	;Ad mini de recopie
+	move.l	HiChaine(a5),a4			;Ad maxi des chaines!
+	addq.l 	#2,d7		  		;Chaine vide
+	move.l 	d7,a1		  		;Si ya pas de variable!
+
+Men0:  	move.l 	VarLoc(a5),a6			;Debut des variables
+        moveq 	#-1,d2                    	;Maxi dans le tableau
+        moveq 	#0,d4                     	;Cpt tableau---> 0
+        move.l 	d5,d3                    	;Rien dans la TI
+        move.l 	d3,a0
+        move.l 	#$7fffffff,(a0)
+; Rempli la table intermediaire
+Men1
+.Loop	move.w	(a6)+,d0			Prend le flag
+	beq.s	.Loop				Nul: non initialise!
+	bmi.s	.Proc				Negatif: fin de chunk
+.Var	btst	#1,d0				Une chaine?
+	bne.s	.Alpha
+	lsr.w	#8,d0				Recupere la taille
+	add.w	d0,a6
+	move.w	(a6)+,d0			Suivante
+	beq.s	.Loop
+	bpl.s	.Var
+.Proc	move.l	(a6),d0				Chunk suivant
+	beq	Men20				Le dernier?
+	move.l	d0,a6				Non, on boucle!
+	bra.s	.Loop
+; Variable alphanumerique
+.Alpha	move.l	a6,a3
+	move.l	(a6)+,d1			Initialise?
+	beq.s	Men1
+	btst 	#6,d0
+	beq.s 	Men4
+	move.l	d1,a3
+	moveq	#0,d0
+	move.b	(a3)+,d0
+	addq.l	#1,a3
+	subq.w 	#1,d0
+	moveq 	#1,d4
+Men2:	move.w 	(a3)+,d1			Calcule nombre de variable
+	addq.l	#2,a3
+	addq.w	#1,d1
+	mulu	d1,d4
+	dbra 	d0,Men2
+Men3:	subq.l 	#1,d4
+; Essai de poker dans la TI
+Men4:   move.l 	(a3),d0
+        cmp.l 	d7,d0                     	;< au minimum?
+        bcs.s 	Men10
+	cmp.l	a4,d0				;Dans le source?
+	bcc.s	Men10
+        cmp.l 	d2,d0                     	;>= au maximum?
+        bcc.s 	Men10
+        move.l 	d5,a0
+Men6:   cmp.l 	(a0),d0
+        lea 	8(a0),a0
+        bcc.s 	Men6
+        cmp.l 	d6,a0
+        bne.s 	Men7
+        move.l 	d0,d2                    	;C'est le dernier element!
+        move.l 	d6,d3
+        bra.s 	Men9
+Men7:   move.l 	d3,a1                    	;Decale les adresses au dessus
+        cmp.l 	d6,d3
+        bcs.s 	Men7a
+        lea 	-8(a1),a1
+        move.l 	-8(a1),d2                	;Remonte la limite haute
+        bra.s 	Men8
+Men7a:  addq.l 	#8,d3
+        move.l 	#$7fffffff,8(a1)
+Men8:   move.l 	-(a1),8(a1)
+        move.l 	-(a1),8(a1)
+        cmp.l 	a0,a1
+        bcc.s 	Men8
+Men9:   move.l 	a3,-(a0)                 	;Poke dans la table
+        move.l 	d0,-(a0)
+Men10:  addq.l	#4,a3
+	tst.l 	d4
+        bne.s 	Men3
+        beq 	Men1
+
+; Recopie toutes les chaines du buffer
+Men20:  move.l 	d5,a3                    	;Adresse TI
+        move.l 	d7,a1                    	;Adresse de recopie
+        moveq 	#0,d7
+Men21:  cmp.l 	d3,a3                     	;Fini-ni?
+        bcc.s 	Men26
+        move.l 	(a3),a0                  	;Adresse de la chaine
+        lea 	8(a3),a3
+        cmp.l 	a0,d7                    	;Chaine deja bougee?
+        beq.s 	Men25
+        move.l 	a0,d7
+        cmp.l 	a0,a1                     	;Au meme endroit?
+        bne.s 	Men22
+; Les 2 chaines sont au meme endroit!
+        move.l 	a1,d1
+	moveq 	#0,d0
+        move.w 	(a1)+,d0
+	add.l 	d0,a1
+        move.w 	a1,d0
+        btst 	#0,d0
+        beq.s 	Men21
+        addq.l 	#1,a1
+        bra.s 	Men21
+; Recopie la chaine
+Men22:  move.l 	-4(a3),a2                	;Change la variable
+        move.l 	a1,(a2)
+        move.l 	a1,d1
+        move.w 	(a0)+,d0                 	;Recopie la chaine
+        beq.s 	Men24
+        move.w 	d0,(a1)+
+        subq.w 	#1,d0
+        lsr.w 	#1,d0
+Men23:  move.w 	(a0)+,(a1)+
+        dbra 	d0,Men23
+        bra.s 	Men21
+; Chaine vide au milieu: pointe la vraie
+Men24:  move.l 	ChVide(a5),d1
+        move.l 	d1,(a2)
+        bra.s 	Men21
+; La variable pointait la meme chaine que la precedente
+Men25:  move.l 	-4(a3),a2
+        move.l 	d1,(a2)
+        bra.s 	Men21
+; Est-ce completement fini?
+Men26:  cmp.l 	d6,d3                     	;Buffer TI rempli?
+        bcs.s 	FinMen                    	;NON---> c'est fini!
+
+;-----> Reexplore les variables a la recherche de la DERNIERE CHAINE
+        move.l 	VarLoc(a5),a6             	;Table des ad strings
+        moveq 	#0,d4                     	;Cpt tableau---> 0
+	move.l 	d1,d2		  		;Feneant!
+; Rempli la table intermediaire
+Men31:
+.Loop	move.w	(a6)+,d0			Prend le flag
+	beq.s	.Loop				Nul: non initialise!
+	bmi.s	.Proc				Negatif: fin de chunk
+.Var	btst	#1,d0				Une chaine?
+	bne.s	.Alpha
+	lsr.w	#8,d0				Recupere la taille
+	add.w	d0,a6
+	move.w	(a6)+,d0			Suivante
+	beq.s	.Loop
+	bpl.s	.Var
+.Proc	move.l	(a6),d0				Chunk suivant
+	beq	Men40				Le dernier?
+	move.l	d0,a6				Non, on boucle!
+	bra.s	.Loop
+; Variable alphanumerique
+.Alpha	move.l	a6,a3
+	move.l	(a6)+,d1
+	beq.s	Men31
+	btst 	#6,d0
+	beq.s 	Men34
+	move.l	d1,a3
+	moveq	#0,d0
+	move.b	(a3)+,d0
+	addq.l	#1,a3
+	subq.w 	#1,d0
+	moveq 	#1,d4
+Men32:	move.w 	(a3)+,d1			;Calcule nombre de variable
+	addq.l	#2,a3
+	addq.w	#1,d1
+	mulu	d1,d4
+	dbra 	d0,Men32
+Men33:	subq.l 	#1,d4
+; La variable pointe elle la meme chaine?
+Men34:  cmp.l 	(a3)+,d7
+        beq.s 	Men36
+        tst.l 	d4
+        bne.s 	Men33
+        beq.s 	Men31
+Men36:  move.l 	d2,-4(a3)
+        tst.l 	d4
+        bne.s 	Men33
+        beq.s 	Men31
+
+;-----> Refait un tour!
+Men40:  move.l 	a1,d7    	                ;Monte la limite <
+        bra 	Men0
+;-----> Menage fini!
+FinMen	move.l 	a1,HiChaine(a5)
+; Libere la m�moire
+	move.l	BMenage(a5),d0
+	bmi.s	Finm1
+	move.l	d0,a1
+	move.l	#TMenage+16,d0
+	SyCall	MemFree
+Finm1   clr.l	BMenage(a5)
+
+;-----> FIN DES DEUX MENAGES
+FinMenS movem.l (sp)+,d1-d7/a2-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LEFT$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLeft
+; - - - - - - - - - - - - -
+	bsr 	RInMid
+	movem.l a2/d2,-(sp)
+	bsr 	Fn_New_Expentier
+        move.l 	d3,d4
+        moveq 	#0,d5
+	bra 	RInMid2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Fonction LEFT$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnLeft
+; - - - - - - - - - - - - -
+	bsr	FEnt_2
+        move.l 	d3,d4
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+        moveq 	#0,d5
+	bra 	RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=RIGHT$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRight
+; - - - - - - - - - - - - -
+	bsr 	RInMid
+	movem.l a2/d2,-(sp)
+	bsr 	Fn_New_Expentier
+	move.l 	d3,d4
+        bmi 	FonCall
+	move.l 	(sp),d2
+        moveq 	#0,d5
+        cmp.l 	d2,d4
+        bcc 	RInMid2
+        move.l 	d2,d5
+	sub.l 	d4,d5
+        addq.l 	#1,d5
+	bra 	RInMid2
+; - - - - - - - - - - - - -
+	Lib_Par FnRight
+; - - - - - - - - - - - - -
+	bsr	FEnt_2
+        move.l 	d3,d5
+        bmi 	FonCall
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+        move.l 	#$ffff,d4
+        cmp.l 	d2,d5
+        bcs 	L73c
+        move.l 	d2,d5
+L73c:   neg.l 	d5
+        add.l 	d2,d5
+        addq.l 	#1,d5
+	bra 	RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MID$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMid2
+; - - - - - - - - - - - - -
+	bsr 	RInMid
+	movem.l a2/d2,-(sp)
+	bsr 	Fn_New_Expentier
+	move.l 	d3,d5
+*	addq.l 	#1,d5
+        move.l 	#$FFFF,d4
+	bra 	RInMid2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMid2
+; - - - - - - - - - - - - -
+	bsr	FEnt_2
+        move.l 	d3,d5
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+        move.l 	#$FFFF,d4
+	bra 	RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=MID$() 3 params
+; - - - - - - - - - - - - -
+	Lib_Par InMid3
+; - - - - - - - - - - - - -
+	bsr 	RInMid
+	movem.l a2/d2,-(sp)
+	bsr	Fn_New_Expentier
+	move.l	d3,-(sp)
+	bsr	Fn_New_Expentier
+	move.l	d3,d4
+	move.l	(sp)+,d5
+*	addq.l #1,d5
+	bra	RInMid2
+; - - - - - - - - - - - - -
+	Lib_Par FnMid3
+; - - - - - - - - - - - - -
+	bsr	FEnt_3
+        move.l 	d3,d4
+        move.l 	(a3)+,d5
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+	bra	RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Commun LEFT MID RIGHT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	RFnMid
+RFnMid
+; - - - - - - - - - - - - -
+        tst.l 	d5                        ;pointe au milieu de la chaine
+        bmi 	FonCall
+        beq.s 	mi2
+        subq.l 	#1,d5
+mi2:    add.l 	d5,a2
+        cmp.l 	d2,d5                     ;pas pointe trop loin??
+        bcc.s 	RVide                     ;si! chaine vide
+mi3:    tst.l 	d4
+        beq.s 	RVide
+        bmi 	FonCall
+mi4:    add.l 	d5,d4
+        cmp.l 	d2,d4
+        bls.s 	mi5
+        move.l 	d2,d4
+mi5:    sub.l 	d5,d4
+mi6:    move.l 	d4,d3
+	bsr 	Demande
+        move 	d4,(a0)+                   ;poke la longueur
+        subq.l 	#1,d4
+        bmi.s 	mi8
+mi7:    move.b 	(a2)+,(a0)+
+        dbra 	d4,mi7
+        move 	a0,d0                      ;rend pair
+        btst 	#0,d0
+        beq.s 	mi8
+        addq.l 	#1,a0
+mi8:    move.l 	a0,HiChaine(a5)
+        move.l 	a1,d3
+	Ret_String
+RVide:  move.l 	ChVide(a5),d3          	;ramene la chaine vide
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Commun MID LEFT RIGHT =
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	RInMid
+RInMid
+; - - - - - - - - - - - - -
+	addq.w 	#2,a6		Saute la parenthese
+	bsr 	FindVar
+        move.l 	(a0),a2		Recopie la variable!
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+	beq.s 	L77c
+L77a:   move.l 	a0,-(sp)	Sauve l'adresse de la variable
+	move.l 	d2,d3
+	bsr 	Demande		Recopie la chaine dans le source
+        move.w 	d2,(a1)+	Longueur
+	move.w 	d2,d0
+        subq.w 	#1,d0
+        lsr.w 	#2,d0
+L77b:   move.l 	(a2)+,(a1)+
+        dbra 	d0,L77b
+        move.l 	a1,HiChaine(a5)
+	move.l 	(sp)+,a1
+	move.l 	a0,(a1)		Change la variable
+	lea 	2(a0),a2
+L77c:   rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Commun LEFT MID RIGHT II
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	RInMid2
+RInMid2
+; - - - - - - - - - - - - -
+	movem.l d4/d5,-(sp)
+	bsr 	Fn_New_Expentier
+	move.l	d3,a2
+	moveq	#0,d2
+	move.w	(a2)+,d2
+	movem.l (sp)+,d4/d5
+	movem.l (sp)+,a1/d1
+        tst.l 	d5
+        bmi 	FonCall
+        beq.s 	mdst2
+        subq.l 	#1,d5
+mdst2:  add.l 	d5,a1             ;situe dans la chaine a changer
+        cmp.l 	d1,d5
+        bcc.s 	mdst10            ;trop loin: ne change rien
+        tst.l 	d4
+        bmi 	FonCall
+        beq.s 	mdst10
+        add.l 	d5,d4
+        cmp.l 	d1,d4
+        bls.s 	mdst3
+        move.l 	d1,d4
+mdst3:  sub.l 	d5,d4
+        cmp.l 	d2,d4             ;limite par la taille de la chaine source
+        bls.s 	mdst4
+        move.l 	d2,d4
+mdst4:  subq.l 	#1,d4            ;la chaine source est nulle!
+        bmi.s 	mdst10
+mdst5:  move.b 	(a2)+,(a1)+
+        dbra 	d4,mdst5
+mdst10:	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=VAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnVal
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	beq.s	val11
+        Rjsr 	L_ChVerBuf        	recopie la chaine dans le buffer
+        move.l	Buffer(a5),a0
+	moveq	#1,d0			Tenir compte du signe
+        Rjsr 	L_ValRout
+	rts
+val11 	moveq	#0,d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		=RESOURCE$(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnResource
+; - - - - - - - - - - - - -
+; Un message normal?
+	move.l	d3,d0
+	ble.s	.Skip1
+	Rjsr	L_Dia_GetPuzzle
+	move.l	a2,a0
+	move.l	d3,d0
+	Rjsr	L_GetMessage
+	bra	.Fin
+; Le path du systeme? (0)
+.Skip1	neg.l	d0
+	bne.s	.Skip2
+	lea	Sys_Pathname(a5),a0
+	bra.s	.Fin
+; Un message systeme? (-1)
+.Skip2	cmp.l	#1001,d0
+	bcc.s	.Skip3
+	move.l	Sys_Messages(a5),a0
+	bra.s	.Fin0
+; Un message systeme editeur? (-1000)
+.Skip3	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip4
+	move.l	Ed_Systeme(a5),a0
+	bra.s	.Fin0
+; Un message de menu editeur? (-2000)
+.Skip4	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip5
+	move.l	EdM_Messages(a5),a0
+	bra.s	.Fin0
+; Un message editeur? (-3000)
+.Skip5	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip6
+	move.l	Ed_Messages(a5),a0
+	bra.s	.Fin0
+; Un message de test? (-4000)
+.Skip6	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip7
+	move.l	Ed_TstMessages(a5),a0
+	bra.s	.Fin0
+; Un message run-time? (-5000)
+.Skip7	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc	FonCall
+	move.l	Ed_RunMessages(a5),a0
+; Retourne la chaine
+.Fin0	Rjsr	L_GetMessage
+.Fin	move.l	a0,a2
+	Rjmp	L_Str2Chaine
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Menus.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MENU KEY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuKey
+; - - - - - - - - - - - - -
+	bsr	MnDim
+	tst.l	MnLat(a2)
+	bne	FonCall
+	cmp.w	#_TkTo,(a6)
+	bne.s	IMnk2
+	move.l	a2,-(sp)
+	addq.l	#2,a6
+	bsr	New_Evalue
+	cmp.b	#2,d2
+	beq.s	IMnk1
+* Scancode, shifts
+	move.l	d3,-(sp)
+	moveq	#0,d3
+	cmp.w	#_TkVir,(a6)
+	bne.s	IMnk0
+	bsr	Fn_New_Expentier
+IMnk0	move.l	(sp)+,d2
+	move.l	(sp)+,a2
+	cmp.l	#256,d3
+	bcc	FonCall
+	move.b	d3,MnKSh(a2)
+	cmp.l	#128,d2
+	bcc	FonCall
+	move.b	d2,MnKSc(a2)
+	move.b	#-1,MnKFlag(a2)
+	rts
+* "n"
+IMnk1	move.l	(sp)+,a2
+	move.l	d3,a0
+	tst.w	(a0)+
+	beq	FonCall
+	move.b	(a0),MnKAsc(a2)
+	move.b	#1,MnKFlag(a2)
+	rts
+* Arret!
+IMnk2	clr.b	MnKFlag(a2)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InMenuKey1
+	Lib_Def	InMenuKey2
+	Lib_Def	InMenuKey3
+	Lib_Def	MnKy
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ON MENU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOnMenu
+; - - - - - - - - - - - - -
+	Rjsr	L_OMnEff
+;	Rlea	L_GoMenu,0		Pas de routine de branchement
+;	move.l	a0,GoTest_GoMenu(a5)
+	move.w	(a6)+,-(sp)
+*	Cherche les labels
+	clr.w	-(sp)
+OnMn1	bsr	GetLabel
+	beq	LbNDef
+	move.l	d0,-(a3)
+	addq.w	#1,(sp)
+	cmp.w	#_TkVir,(a6)+
+	beq.s	OnMn1
+	subq.l	#2,a6
+* 	Taille
+	move.w	(sp)+,d2
+	move.w	d2,OMnNb(a5)
+	moveq	#0,d1
+	move.w	d2,d1			* Nb de labesl*4
+	lsl.w	#2,d1
+	move.l	d1,d0
+	SyCall	MemFast
+	beq	OOfMem
+	move.l	a0,OMnBase(a5)
+	add.l	d1,a0
+* Poke les jumps
+	subq.w	#1,d2
+OnMn2	move.l	(a3)+,-(a0)
+	dbra	d2,OnMn2
+* Goto/Gosub/Proc
+	move.w	(sp)+,OMnType(a5)
+* Plus de branchements
+	bclr	#BitJump,ActuMask(a5)
+* Branche la routine Clearvar
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	rts
+; Structure clearvar
+; ~~~~~~~~~~~~~~~~~~
+.Struc	dc.l	0
+	Rjmp	L_OMnEff
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MENU$(,,,)=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenu
+; - - - - - - - - - - - - -
+	move.l	a3,-(sp)
+	clr.w	-(sp)
+* Branche la routine pour CLEARVAR
+	Rjsr	L_MnClearVar
+* Empile les parametres
+IMen1:	addq.w	#1,(sp)
+	bsr	Fn_New_Expentier
+	move.l	d3,-(a3)
+	cmp.w	#_TkVir,(a6)
+	beq.s	IMen1
+* Trouve le menu
+	move.w	(sp)+,d5
+	Rjsr	L_MnFind
+	bne.s	IMenA
+	Rjsr	L_MnIns
+IMenA:	move.l	(sp)+,a3
+* Prend les parametres
+*	cmp.w	#_TkEg,(a6)
+*	bne.s	IMenI
+******* Fonction MENU$="jfkjdkfjkdj"
+	move.l	ScOnAd(a5),a0
+	cmp.l	MnAdEc(a5),a0
+	beq.s	IMen6
+	tst.l	MnAdEc(a5)
+	bne	ScNOp
+	move.l	a0,MnAdEc(a5)
+IMen6:	move.l	EcWindow(a0),a0
+	move.b	WiPaper+1(a0),d0
+	move.b	WiPen+1(a0),d1
+	move.b	d0,MnInkA1(a2)
+	move.b	d1,MnInkB1(a2)
+	move.b	d0,MnInkC1(a2)
+	move.b	d1,MnInkA2(a2)
+	move.b	d0,MnInkB2(a2)
+	move.b	d0,MnInkC2(a2)
+* Prend la chaine OB1
+	lea	MnOb1(a2),a0
+	bsr	MnOob
+* Prend la chaine OB2
+IMen7	cmp.w	#_TkVir,(a6)
+	bne.s	IMenX
+	lea	MnOb2(a2),a0
+	bsr	MnOob
+* Prend la chaine OBOFF
+IMen8	cmp.w	#_TkVir,(a6)
+	bne.s	IMenX
+	lea	MnOb3(a2),a0
+	bsr	MnOob
+* Prend la chaine OBF
+IMen9	cmp.w	#_TkVir,(a6)
+	bne.s	IMenX
+	lea	MnObF(a2),a0
+	bsr	MnOob
+* Ca y est!!!
+IMenX:	addq.w	#1,MnChange(a5)
+	rts
+
+*	bclr	#BitMenu,ActuMask(a5)
+
+;	Petite routine de creation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnOob	movem.l	a0-a2,-(sp)
+	bsr	Fn_New_Evalue			*** ?
+	movem.l	(sp)+,a0-a2
+	cmp.l	#EntNul,d3
+	beq	MnOob0
+	move.l	d3,a1
+	tst.w	(a1)
+	bne	MnOob1
+* Efface la chaine
+MnOobE	move.l	(a0),d0
+	beq.s	MnOob0
+	clr.l	(a0)
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	SyCall	MemFree
+MnOob0	rts
+* Une chaine!
+MnOob1	movem.l	a0/a1,-(sp)		* Efface l'ancienne
+	bsr.s	MnOobE
+	movem.l	(sp)+,a0/a1
+	Rjsr	L_MnObjet		* Cree la nouvelle
+	beq	OOfMem
+	bmi	FonCall
+	move.l	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InMenu2
+	Lib_Def	InMenu3
+	Lib_Def	InMenu4
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU DEL [(coordonnees,,)]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuDel
+; - - - - - - - - - - - - -
+	cmp.w	#_TkPar1,(a6)
+	beq.s	IMnD1
+	Rjsr	L_MnRaz
+	rts
+IMnD1	bsr	MnDim
+	move.l	a2,d0
+	moveq	#0,d5
+	addq.w	#1,MnChange(a5)
+	Rjsr	L_MnEff
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	InMenuDel1
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SET MENU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetMenu
+; - - - - - - - - - - - - -
+	bsr	MnDim
+	move.l	a2,-(sp)
+	bsr	Fn_New_Expentier
+	move.l	d3,-(a3)
+	bsr	Fn_New_Expentier
+	move.l	(sp)+,a2
+	move.l	#EntNul,d0
+	cmp.l	d0,d3
+	beq.s	ISMn1
+	move.w	d3,MnY(a2)
+	bset	#MnFixed,MnFlag(a2)
+ISMn1	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	ISMn2
+	move.w	d1,MnX(a2)
+	bset	#MnFixed,MnFlag(a2)
+ISMn2	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Routine-> adresse du flag
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnDim
+MnDim
+; - - - - - - - - - - - - -
+	cmp.w	#_TkPar1,(a6)
+	beq.s	MnDim1
+	bsr	New_Expentier
+	tst.l	d3
+	beq	FonCall
+	cmp.l	#MnNDim,d3
+	bhi	FonCall
+	lea	MnDFlags(a5),a0
+	lea	-1(a0,d3.w),a0
+	rts
+;	Cherche l'adresse D'UN objet
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnDim1	move.l	a3,-(sp)
+	clr.w	-(sp)
+MnDim2	addq.w	#1,(sp)
+	bsr	Fn_New_Expentier
+	move.l	d3,-(a3)
+	cmp.w	#_TkVir,(a6)
+	beq.s	MnDim2
+* Trouve le menu
+	move.w	(sp)+,d5
+	Rjsr	L_MnFind
+	move.l	(sp)+,a3
+	tst.l	d0
+	beq	MnINDef
+	lea	MnFlag(a2),a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Entree appel de procedure menu
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MenuProcedure
+; - - - - - - - - - - - - -
+	move.l	a0,d3			Le nom du label
+	bsr	GLb3			Va chercher le label
+	beq.s	.Err
+	move.l	d0,a2			Adresse de la procedure
+	sub.l	a6,a6			Pas de retour!
+	move.l	Prg_InsRet(a5),-(sp)
+	clr.w	-(sp)			Pas d'erreur
+	bra	InProE			Va a la procedure
+.Err	moveq	#-1,d0			Une Erreur!
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SOUS PROGRAMME UTILISE PAR VAL ET INPUT
+;	D0=	Tenir compte du signe (TRUE)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	ValRout
+; - - - - - - - - - - - - -
+        movem.l a1-a2/d5-d7,-(sp)
+	move.l	a0,d7
+	moveq	#0,d4
+	move.l	a0,a2
+	tst.w	d0
+	beq.s	val1c
+; y-a-t'il un signe devant?
+val1:   move.b 	(a0)+,d0
+        beq 	val10
+        cmp.b 	#32,d0
+        beq.s 	val1
+        move.l 	a0,a2
+        subq.l 	#1,a2
+        cmp.b 	#"-",d0
+        bne.s 	val1a
+        not 	d4
+        bra.s 	val1c
+val1a:  cmp.b 	#"+",d0
+        beq.s 	val1c
+val1b:  subq.l 	#1,a0
+val1c
+; Explore le chiffre
+; ~~~~~~~~~~~~~~~~~~
+	move.b 	(a0)+,d0
+        beq 	val10
+        cmp.b 	#32,d0
+        beq.s 	val1c
+        cmp.b 	#"$",d0      	;chiffre HEXA
+        beq 	val5
+        cmp.b	#"%",d0       	;chiffre BINAIRE
+        beq 	val6
+        cmp.b 	#".",d0
+        beq.s 	val2
+        cmp.b 	#"0",d0
+        bcs 	val10
+        cmp.b 	#"9",d0
+        bhi 	val10
+; c'estn chiffre DECIMAL: entier ou float?
+val2:   subq.l	#1,a0
+	move.l 	a0,a1        	;si float: trouve la fin du chiffre
+        clr 	d3
+val3:   move.b 	(a1)+,d0
+        beq.s 	val4
+        cmp.b 	#32,d0
+        beq.s 	val3
+        cmp.b 	#"0",d0
+        bcs.s 	val3z
+        cmp.b 	#"9",d0
+        bls.s 	val3
+val3z:  cmp.b 	#".",d0       	;cherche une "virgule"
+        bne.s	val3a
+        bset 	#0,d3          	;si deux virgules: fin du chiffre
+        beq.s 	val3
+        bne.s 	val4
+val3a:  cmp.b 	#"e",d0       	;cherche un exposant
+        beq.s 	val3b
+        cmp.b 	#"E",d0       	;autre caractere: fin du chiffre
+        bne.s 	val4
+val3ab: move.b 	#"e",-1(a1)  	;met un E minuscule!!!
+val3b:  move.b 	(a1)+,d0     	;apres un E, accepte -/+ et chiffres
+        cmp.b 	#32,d0
+        beq.s 	val3b
+        cmp.b 	#"+",d0
+        beq.s 	val3c
+        cmp.b 	#"-",d0
+        bne.s 	val3e
+val3c:  bset 	#1,d3          	;+ ou -: c'est un float!
+val3d:  move.b 	(a1)+,d0     	;puis cherche la fin de l'exposant
+        cmp.b 	#32,d0
+        beq.s 	val3d
+val3e:  cmp.b 	#"0",d0
+        bcs.s 	val4
+        cmp.b 	#"9",d0       	;chiffre! c'est un float
+        bls.s 	val3c
+val4:   tst 	d3              ;si d3=0: c'est un entier
+        beq 	val7
+; conversion ASCII--->FLOAT
+	move.l	a2,a0
+        subq.l 	#1,a1
+	movem.l	a1/a3-a6,-(sp)
+	lea 	BuFloat(a5),a2
+	moveq 	#32,d1
+Ca1:	cmp.l	a0,a1
+	beq.s	Ca2
+	move.b 	(a0)+,d0
+	cmp.b 	#32,d0
+	beq.s 	Ca1
+	move.b 	d0,(a2)+
+	dbra 	d1,Ca1
+Ca2:	clr.b 	(a2)
+	clr.b 	1(a2)
+	tst.b	MathFlags(a5)		Simple ou double precision?
+	bmi.s	.Double
+; Simple precision
+	lea	BuFloat(a5),a0
+	move.l	a0,-(sp)
+	Rjsr	L_AscToFloat
+	addq.l	#4,sp
+	move.l	d0,d3
+        moveq 	#1,d2
+        move.w 	#_TkFl,d1    	    ;chiffre FLOAT
+	bra.s	.FQuit
+; Double precision
+.Double	lea	BuFloat(a5),a0
+	move.l	a0,-(sp)
+	Rjsr	L_AscToDouble
+	addq.l	#4,sp
+	move.l	d0,d3
+	move.l	d1,d4
+	moveq	#1,d2
+	move.w	#_TkDFl,d1
+.FQuit	movem.l	(sp)+,a0/a3-a6
+	moveq	#0,d0
+	bra.s	valOut
+; chiffre hexa
+val5:   bsr 	hexalong
+        move.w 	#_TkHex,d2
+        bra.s 	val8
+; chiffre binaire
+val6:   bsr 	binlong
+        move.w 	#_TkBin,d2
+        bra.s 	val8
+; chiffre entier
+val7:   bsr 	declong
+        move.w 	#_TkEnt,d2
+val8:   exg 	d2,d1           ;type de conversion--->d1
+        tst 	d2
+        bne.s 	val10           ;si probleme: ramene zero!
+        move.l 	d0,d3
+; Test du signe, si entier
+        tst 	d4
+        beq.s 	val8a
+        neg.l 	d3
+val8a:	moveq	#0,d2
+	bra.s	valOut
+; ramene zero
+val10:  moveq	#0,d2           		Erreur: ramene zero!
+        moveq	#0,d3
+	move.l	d7,a0
+	moveq	#1,d0
+; Sortie
+valOut 	movem.l (sp)+,a1-a2/d5-d7
+        rts
+
+; 	MINI CHRGET POUR LES CONVERSIONS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+minichr	move.b 	(a0)+,d2
+        beq.s 	mc1
+        cmp.b 	#32,d2
+        beq.s 	minichr
+        cmp.b 	#"a",d2       ;si minuscule: majuscule
+        bcs.s 	mc0
+        sub.b 	#"a"-"A",d2
+mc0     sub.b 	#48,d2
+        rts
+mc1     move.b 	#-1,d2
+        rts
+; Minichr pour hexa
+; ~~~~~~~~~~~~~~~~~
+minichr2
+	move.b (a0)+,d2
+        beq.s .mc1
+        cmp.b #"a",d2       ;si minuscule: majuscule
+        bcs.s .mc0
+        sub.b #"a"-"A",d2
+.mc0:   sub.b #48,d2
+        rts
+.mc1:   move.b #-1,d2
+        rts
+
+; 	CONVERSION DECIMAL->HEXA SUR QUATRE OCTETS, SIGNE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+declong moveq	#0,d0
+ 	moveq	#0,d2
+        moveq	#0,d3
+        move.l 	a0,-(sp)
+ddh1:   bsr 	minichr
+ddh1a:  cmp.b 	#10,d2
+        bcc.s 	ddh5
+        move 	d0,d1
+        mulu 	#10,d1
+        swap 	d0
+        mulu 	#10,d0
+        swap 	d0
+        tst 	d0
+        bne.s 	ddh2
+        add.l 	d1,d0
+        bcs.s 	ddh2
+        add.l	d2,d0
+        bmi.s 	ddh2
+        addq 	#1,d3
+        bra.s 	ddh1
+ddh2:   move.l 	(sp)+,a0
+        moveq	#1,d1          	;out of range: bpl, et recupere l'adresse
+        rts
+ddh5:   subq.l 	#1,a0
+	addq.l 	#4,sp
+        tst	d3
+        beq.s 	ddh7
+        moveq	#0,d1           ;OK: chiffre en d0, et beq
+        rts
+ddh7:   moveq	#-1,d1     	;pas de chiffre: bmi
+        rts
+
+; 	CONVERSION HEXA-ASCII EN HEXA-HEXA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+hexalong
+	moveq	#0,d0
+	moveq	#0,d2
+	moveq	#0,d3
+        move.l 	a0,-(sp)
+hh1:    bsr 	minichr2
+        cmp.b 	#10,d2
+        bcs.s 	hh2
+        cmp.b 	#17,d2
+        bcs.s 	ddh5
+        subq.w 	#7,d2
+hh2:    cmp.b 	#16,d2
+        bcc.s 	ddh5
+        lsl.l 	#4,d0
+        or.b 	d2,d0
+        addq.w 	#1,d3
+        cmp 	#9,d3
+        bne.s 	hh1
+        beq.s 	ddh2
+
+; 	CONVERSION BINAIRE ASCII ---> HEXA SUR QUATRE OCTETS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+binlong	moveq	#0,d0
+	moveq	#0,d2
+	moveq	#0,d3
+        move.l 	a0,-(sp)
+bh1:    bsr 	minichr
+        cmp.b 	#2,d2
+        bcc.s 	ddh5
+        roxr 	#1,d2
+        roxl.l 	#1,d0
+        bcs.s 	ddh2
+        addq.w	#1,d3
+        cmp.w 	#33,d3
+        bne.s 	bh1
+        beq 	ddh1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEBUT DES SWAP FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Start_FloatSwap
+; - - - - - - - - - - - - -
+	Lib_Def	CmpInitFloat
+	Lib_Def	CmpInitDouble
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ENTIER >>> FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion entier >>> float dans le dernier operateur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IntToFl1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFlt(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	DIntToFl1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFlt(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ENTIER >>> FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion entier >>> float dans la pile
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IntToFl2
+; - - - - - - - - - - - - -
+	move.l	4(a3),d0
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFlt(a6)
+	move.l	d4,a6
+	move.l	d0,4(a3)
+	move.b	#1,3(a3)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	DIntToFl2
+; - - - - - - - - - - - - -
+	movem.l	4(a3),d0-d1
+	move.l	a6,-(sp)
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFlt(a6)
+	move.l	(sp)+,a6
+	movem.l	d0-d1,4(a3)
+	move.b	#1,3(a3)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FLOAT >>> ENTIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion float >>> entier dans le dernier operateur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FlToInt1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFix(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Def	DFlToInt1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d3
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFix(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FLOAT >>> ENTIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion float >>> entier dans la pile
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FlToInt2
+; - - - - - - - - - - - - -
+	move.l	4(a3),d0
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFix(a6)
+	move.l	d4,a6
+	move.l	d0,4(a3)
+	clr.b	3(a3)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	DFlToInt2
+; - - - - - - - - - - - - -
+	movem.l	4(a3),d0-d1
+	move.l	a6,-(sp)
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFix(a6)
+	move.l	(sp)+,a6
+	movem.l	d0-d1,4(a3)
+	clr.b	3(a3)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FONCTION MATHEMATIQUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une fonction mathematique
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Math_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	MathBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	DMath_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d3
+	move.l	DMathBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COMPARAISONS FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une comparaison float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Float_Compare
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	4(a3),d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPCmp(a6)
+	move.l	d3,a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	DFloat_Compare
+; - - - - - - - - - - - - -
+	movem.l	4(a3),d0-d1
+	move.l	d3,d2
+	move.l	d4,d3
+	move.l	a6,d4
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPCmp(a6)
+	move.l	d4,a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Operation FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une operation float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Float_Operation
+; - - - - - - - - - - - - -
+	move.l	4(a3),d0
+	move.l	d3,d1
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d4,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	DFloat_Operation
+; - - - - - - - - - - - - -
+	movem.l	4(a3),d0-d1
+	exg	d3,d2
+	exg	d4,d3
+	move.l	a6,-(sp)
+	move.l	DFloatBase(a5),a6
+	jsr	0(a6,d4.w)
+	move.l	(sp)+,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FLOAT= ZERO?
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait un TST sur le float D3
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Float_Test
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPTst(a6)
+	move.l	d4,a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	Float_TestF
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d5
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPTst(a6)
+	move.l	d5,a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Operation MATH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une operation Math
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Math_Operation
+; - - - - - - - - - - - - -
+	move.l	4(a3),d0
+	move.l	d3,d1
+	move.l	a6,d4
+	move.l	MathBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d4,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	DMath_Operation
+; - - - - - - - - - - - - -
+	movem.l	4(a3),d0-d1
+	exg	d3,d2
+	exg	d4,d3
+	move.l	a6,-(sp)
+	move.l	DMathBase(a5),a6
+	jsr	0(a6,d4.w)
+	move.l	(sp)+,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FONCTION FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une fonction float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Float_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	DFloat_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d3
+	move.l	DFloatBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Verifie que le float est positif
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FlPos			Simple precision
+; - - - - - - - - - - - - -
+	btst	#7,d3
+	Rbne	L_FonCall
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FlPosD			Double precision
+; - - - - - - - - - - - - -
+	btst	#31,d3
+	Rbne	L_FonCall
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RETOURNE UN ANGLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	AAngle			SFloat
+; - - - - - - - - - - - - -
+	move.l	d3,d0			Appel de la fonction
+	move.l	a6,d3
+	move.l	MathBase(a5),a6
+	jsr	0(a6,d2.w)
+	tst.w	Angle(a5)
+	beq.s	.AAnX
+	move.l	FloatBase(a5),a6
+	move.l	ValPi(a5),d1
+	jsr	_LVOSPDiv(a6)
+	move.l	Val180(a5),d1
+	jsr	_LVOSPMul(a6)
+.AAnX	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	AAngleD			DFloat
+; - - - - - - - - - - - - -
+	move.l	d3,d0			Appel de la fonction
+	move.l	d4,d1
+	move.l	a6,-(sp)
+	move.l	DMathBase(a5),a6
+	jsr	0(a6,d2.w)
+	tst.w	Angle(a5)
+	beq.s	.AAnY
+	move.l	DFloatBase(a5),a6
+	move.l	ValPi(a5),d2
+	move.l	ValPi+4(a5),d3
+	jsr	_LVOSPDiv(a6)
+	move.l	Val180(a5),d2
+	move.l	Val180+4(a5),d3
+	jsr	_LVOSPMul(a6)
+.AAnY	move.l	(sp)+,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TRANSFORME EN ANGLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FFAngle			SFloat
+; - - - - - - - - - - - - -
+	tst.w	Angle(a5)
+	bne.s	.Conv
+	rts
+; Conversion--> radian
+.Conv	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	move.l	Val180(a5),d1
+	jsr	_LVOSPDiv(a6)
+	move.l	ValPi(a5),d1
+	jsr	_LVOSPMul(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def	FAngleD			DFloat
+; - - - - - - - - - - - - -
+	tst.w	Angle(a5)
+	bne.s	.Conv
+	rts
+; Conversion--> radian
+.Conv	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,-(sp)
+	move.l	DFloatBase(a5),a6
+	move.l	Val180(a5),d2
+	move.l	Val180+4(a5),d3
+	jsr	_LVOSPDiv(a6)
+	move.l	ValPi(a5),d2
+	move.l	ValPi+4(a5),d3
+	jsr	_LVOSPMul(a6)
+	move.l	(sp)+,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PARAM FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def FnParamF		SFloat
+; - - - - - - - - - - - - -
+	move.l	ParamF(a5),d3
+	Ret_Float
+; - - - - - - - - - - - - -
+	Lib_Def FnParamD		DFloat
+; - - - - - - - - - - - - -
+	move.l	ParamF(a5),d3
+	move.l	ParamF2(a5),d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ASCII Vers Float
+;	A0	Buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Ascii2Float
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	Rjsr	L_AscToFloat
+	addq.l	#4,sp
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	Ascii2FloatD
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	Rjsr	L_AscToDouble
+	addq.l	#4,sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Float vers ascii
+;	D3/D4	Float
+;	A0	Buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Float2Ascii
+; - - - - - - - - - - - - -
+	move.l 	d3,d0			Simple precision
+	move.w	FixFlg(a5),d4
+        move.w 	ExpFlg(a5),d5
+	bclr	#31,d4
+	Rjmp	L_FloatToAsc
+; - - - - - - - - - - - - -
+	Lib_Def	Float2AsciiD
+; - - - - - - - - - - - - -
+	moveq	#2,d0			Double precision
+	moveq	#15,d1
+	tst.w	FixFlg(a5)
+	bmi.s	.Ok
+	move.w	FixFlg(a5),d1		Nombre de chiffres
+	tst.w	ExpFlg(a5)
+	beq.s	.Ok
+	moveq	#0,d0
+.Ok	movem.l	a0-a1,-(sp)
+	btst	#31,d3			Si positif
+	bne.s	.Neg
+	move.b	#" ",(a0)+		Un espace devant
+.Neg	move.l	d0,-(sp)
+	move.l	d1,-(sp)
+	move.l	a0,-(sp)
+	move.l	d4,-(sp)
+	move.l	d3,-(sp)
+	Rjsr	L_DoubleToAsc
+	lea	20(sp),sp
+	movem.l	(sp)+,a0/a1
+.Lop	tst.b	(a0)+
+	bne.s	.Lop
+	subq.l	#1,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Pour le compilateur, fonctions internes
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FnMaxF
+	Lib_Def	FnMaxD
+	Lib_Def	FnMinF
+	Lib_Def	FnMinD
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FIN DES SWAP FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	End_FloatSwap
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Relai de saut aux erreurs principales
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+FonCall		Rbra	L_FonCall
+Synt		Rbra	L_Syntax
+OOfMem		Rbra	L_OOfMem
+StooLong	Rbra	L_StooLong
+ScNOp		Rbra	L_ScNOp
+FilTM		Rbra	L_FilTM
+AdrErr		Rbra	L_AdrErr
+EcWiErr		Rbra	L_EcWiErr
+BkNoRes		Rbra	L_BkNoRes
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Espace pour le compilateur!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Pos 500
+; - - - - - - - - - - - - -
diff --git a/+Interpreter_Config.s b/+Interpreter_Config.s
new file mode 100644
index 0000000..49f5105
--- /dev/null
+++ b/+Interpreter_Config.s
@@ -0,0 +1,193 @@
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;             	Donn�es de Configuration Interpr�teur
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+EdT	Macro
+	dc.b	0
+	dc.b	.\@E-.\@D
+.\@D	dc.b	"\2"
+.\@E
+	EndM
+EdD	Macro
+	dc.b	0
+	dc.b	.\@E-.\@D
+.\@D	\2
+.\@E
+	EndM
+
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;		Zone de donn�es DC
+		dc.l 	"PId1"		Code de securite!
+		dc.l	Dat2-Dat1
+Dat1
+; Initialisation de la trappe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_ParaTrap	dc.l 0			* 0 - Adresse actualisation
+PI_AdMouse	dc.l 0			* 4 - Adresse souris
+		dc.w 68			* 8 - Nombre de bobs
+		dc.w 50			* 10- Position par defaut ecran!!
+		dc.l 12*1024		* 12- Taille liste copper
+		dc.l 128		* 16- Nombre lignes sprites
+; Taille des buffers
+; ~~~~~~~~~~~~~~~~~~
+PI_VNmMax	dc.l 1024*4		* 20- Buffer des noms de variable
+PI_TVDirect	dc.w 42*6		* 24- Variables mode direct
+PI_DefSize	dc.l 1024*32		* 26- Taille buffer par defaut
+; Directory
+; ~~~~~~~~~
+PI_DirSize	dc.w 30			* 30-
+PI_DirMax	dc.w 128		* 32-
+; Faire carriage return lors de PRINT?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_PrtRet	dc.b 	1		34-
+; Faire des icones?
+; ~~~~~~~~~~~~~~~~~
+PI_Icons	dc.b	0		35-
+; Autoclose workbench?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_AutoWB	dc.b	0		36- Fermer automatiquement
+PI_AllowWB	dc.b	1		37- Close Workbench effective?
+; Close editor?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_CloseEd	dc.b	1		38- Close editor effective
+PI_KillEd	dc.b	1		39- Kill editor effective
+PI_FsSort	dc.b	1		40- Sort files
+PI_FsSize	dc.b	1		41- Size of files
+PI_FsStore	dc.b	1		42- Store directories
+; Securite flags
+; ~~~~~~~~~~~~~~
+		dc.b	0		43- Flag libre
+		ds.b 	4		44- 4 libres
+; Text reader
+; ~~~~~~~~~~~
+PI_RtSx		dc.w	640		48- Taille X ecran Readtext
+PI_RtSy		dc.w	200		50- Taille Y ecran Readtext
+PI_RtWx		dc.w	129		52- Position X
+PI_RtWy		dc.w	50		54- Position Y
+PI_RtSpeed	dc.w	8		56- Vitesse apparition
+; File selector
+; ~~~~~~~~~~~~
+PI_FsDSx	dc.w	448		58- Taille X fsel
+PI_FsDSy	dc.w	158		60- Taille Y fsel
+PI_FsDWx	dc.w	129+48		62- Position X
+PI_FsDWy	dc.w	50+20		64- Position Y
+PI_FsDVApp	dc.w	8		66- Vitesse app
+; Ecran par defaut
+; ~~~~~~~~~~~~~~~~
+PI_DefETx	dc.w 320		68- Tx default
+PI_DefETy	dc.w 200		70- Ty default
+PI_DefECo	dc.w 4			72- Nplan default
+PI_DefECoN	dc.w 16			74- NColor default
+PI_DefEMo	dc.w 0			76- Mode default
+PI_DefEBa	dc.w 0			78- Default colour back
+PI_DefEPa	dc.w $000,$A40,$FFF,$000,$F00,$0F0,$00F,$666
+		dc.w $555,$333,$733,$373,$773,$337,$737,$377
+		dc.w 0,0,0,0,0,0,0,0
+		dc.w 0,0,0,0,0,0,0,0
+PI_DefEWx	dc.w 0			144- Position par defaut
+PI_DefEWy	dc.w 0			146-
+PI_DefAmigA	dc.l $00404161		148- Touche AMIGA-A par defaut
+
+; Zone de securite!
+; ~~~~~~~~~~~~~~~~~
+		ds.l	6
+Dat2
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;		Zone de donn�es TEXTE
+
+		dc.l 	"PIt1"		Code de securite!
+		dc.l	Txt2-Txt1
+
+; Liste des fichiers syst�me
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Txt1		EdT	1,<APSystem/>
+		EdT	2,<>
+		EdT	3,<>
+		EdT	4,<Def_Icon>
+		EdT	5,<AutoExec.AMOS>
+		EdT	6,<AMOSPro_Editor>
+		EdT	7,<AMOSPro_Editor_Config>
+		EdT	8,<AMOSPro_Default_Resource.Abk>
+		EdT	9,<AMOSPro_Productivity1:Equates/AMOSPro_System_Equates>
+		EdT	10,<AMOSPro_Monitor>
+		EdT	11,<AMOSPro_Monitor_Resource.Abk>
+		EdT	12,<AMOSPro_Accessories:AMOSPro_Help/AMOSPro_Help>
+		EdT	13,<AMOSPro_Accessories:AMOSPro_Help/LatestNews>
+		EdT	14,<AMOSPro.Lib>
+		EdT	15,<>
+; Liste des 26 extensions
+; ~~~~~~~~~~~~~~~~~~~~~~~
+		EdT	16,<AMOSPro_Music.Lib>
+		EdT	17,<AMOSPro_Compact.Lib>
+		EdT	18,<AMOSPro_Request.Lib>
+		EdT	19,<>
+		EdT	20,<AMOSPro_Compiler.Lib>
+		EdT	21,<AMOSPro_IOPorts.Lib>
+		EdT	22,<>
+		EdT	23,<>
+		EdT	24,<>
+		EdT	25,<>
+		EdT	26,<>
+		EdT	27,<>
+		EdT	28,<>
+		EdT	29,<>
+		EdT	30,<>
+		EdT	31,<>
+		EdT	32,<>
+		EdT	33,<>
+		EdT	34,<>
+		EdT	35,<>
+		EdT	36,<>
+		EdT	37,<>
+		EdT	38,<>
+		EdT	39,<>
+		EdT	40,<>
+		EdT	41,<>
+		EdT	42,<>
+; Ports de communication
+; ~~~~~~~~~~~~~~~~~~~~~~
+		EdT	43,<Par:>
+		EdT	44,<Aux:>
+		EdT	45,<>
+; Flash curseur
+; ~~~~~~~~~~~~~
+		EdT	46,<(000,2)(440,2)(880,2)(bb0,2)(dd0,2)(ee0,2)(ff2,2)(ff8,2)(ffc,2)(fff,2)(aaf,2)(88c,2)(66a,2)(226,2)(004,2)(001,2)>
+; Filtre negatif directory
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+		EdT	47,<>
+
+		dc.b	0,$FF
+		even
+Txt2
diff --git a/+Lib.s b/+Lib.s
new file mode 100644
index 0000000..2deab67
--- /dev/null
+++ b/+Lib.s
@@ -0,0 +1,28451 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+		OPT 	P+
+
+;		Nombre de fonctions dans la librairie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		Include	"+Lib_Size.s"
+
+; 		Includes
+; ~~~~~~~~~~~~~~~~~~~~~~
+		Include "+AMOS_Includes.s"
+
+; 		Versions
+; ~~~~~~~~~~~~~~~~~~~~~~
+Version		MACRO
+		dc.b	"2.00"
+		ENDM
+Ver_Number	equ	$0200
+
+;---------------------------------------------------------------------
+;   +++  +++  ++   ++ ++++  ++++ ++    ++    ++   ++   ++  +++   +++
+;  ++   ++ ++ +++ +++ ++ ++  ++  ++    ++   ++++  +++ +++ ++ ++ ++
+;  ++   ++ ++ ++ + ++ ++ ++  ++  ++   ++   ++  ++ ++ + ++ ++ ++  +++
+;  ++   ++ ++ ++   ++ ++++   ++  ++        ++++++ ++   ++ ++ ++    ++
+;  ++   ++ ++ ++   ++ ++     ++  ++        ++  ++ ++   ++ ++ ++ +  ++
+;   +++  +++  ++   ++ ++    ++++ ++++      ++  ++ ++   ++  +++   +++
+;---------------------------------------------------------------------
+		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	0
+		dc.b	"AP20"
+
+;---------------------------------------------------------------------
+;		Pointeurs sur fonctions
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+;---------------------------------------------------------------------
+;		Table des tokens
+;---------------------------------------------------------------------
+;	TOKEN_START
+
+C_Tk	dc.w L_Nul,L_FnNull			//$2F$03$05$00
+	dc.b $80,-1
+
+* Variables
+	dc.w L_InVar,L_FnVar			//$06$07$05$01
+	dc.b $80,-1
+	dc.w L_InLab,L_Nul    			//$07$01$05$02
+	dc.b $80,-1
+	dc.w L_CallProc,L_Nul			//$08$01$05$03
+	dc.b $80,-1
+	dc.w L_Goto2,L_Nul    			//$01$01$05$04
+	dc.b $80,-1
+
+* Constantes
+	dc.w L_Nul,L_FnCEntier			//$01$14$05$05
+	dc.b $80,"C0",-1
+	dc.w L_Nul,L_FnCstCh			//$01$17$05$06
+	dc.b $80,"C2",-1
+	dc.w L_Nul,L_FnCstCh			//$01$17$05$06
+	dc.b $80,"C2",-1
+	dc.w L_Nul,L_FnCEntier			//$01$14$05$05
+	dc.b $80,"C0",-1
+	dc.w L_Nul,L_FnCEntier			//$01$14$05$05
+	dc.b $80,"C0",-1
+	dc.w L_Nul,L_FnCstFl			//$01$15$05$05
+	dc.b $80,"C1",-1
+* Token d'extension
+	dc.w L_InExtCall,L_FnExtCall 		//$28$06$05$07
+	dc.b $80,-1
+
+* Deux points, ...
+	dc.w L_InNull,L_FnNull 			//$01$02$06$00
+	dc.b ":"," "+$80,-1
+	dc.w L_Nul,L_FnNull   			//$01$03$05$00
+	dc.b ","+$80,"O",-1
+	dc.w L_Nul,L_Nul   			//$01$01$05$00
+	dc.b ";"+$80,"O",-1
+	dc.w L_Nul,L_Nul   			//$01$01$05$00
+	dc.b "#"+$80,"O",-1
+
+* Parentheses
+	dc.w L_Nul,L_New_Evalue			//$01$04$05$00
+	dc.b "("+$80,"O",-1
+	dc.w L_Nul,L_FnNull   			//$01$02$05$00
+	dc.b ")"+$80,"O",-1
+	dc.w L_Nul,L_New_Evalue			//$01$01$05$00
+	dc.b "["+$80,"O",-1
+	dc.w L_Nul,L_Nul     			//$01$01$05$00
+	dc.b "]"+$80,"O",-1
+
+* Instructions normales
+	dc.w L_Nul,L_FnNull			//$01$02$07$00
+	dc.b "to"," "+$80,-1
+	dc.w L_Nul,L_FnNot			//$01$0A$08$00
+	dc.b "not"," "+$80,-1
+	dc.w L_InSwap,L_Nul			//$22$01$09$00
+	dc.b "swap"," "+$80,-1
+	dc.w L_InDFn,L_Nul			//$fc$01$0B$00
+	dc.b "def fn"," "+$80,-1
+	dc.w L_Nul,L_FnFn			//$01$09$07$00
+	dc.b "fn"," "+$80,-1
+	dc.w L_Syntax,L_Nul			//$00$01$0E$00
+	dc.b "follow of","f"+$80,"I",-1
+	dc.w L_Syntax,L_Nul			//$23$01$0A$00
+	dc.b "follo","w"+$80,"I",-1
+	dc.w L_InResumeNext,L_Nul		//$00$01$0F$00
+	dc.b "resume nex","t"+$80,"I",-1
+* Tokens AVANT les autres!
+	dc.w L_Nul,L_FnInkey			//$01$00$0A$00
+	dc.b "inkey","$"+$80,"2",-1
+	dc.w L_Nul,L_FnRepeat			//$01$00$0B$00
+	dc.b "repeat","$"+$80,"22,0",-1
+	dc.w L_Nul,L_FnZoneD			//$01$00$09$00
+	dc.b "zone","$"+$80,"22,0",-1
+	dc.w L_Nul,L_FnBorderD			//$01$00$0B$00
+	dc.b "border","$"+$80,"22,0",-1
+	dc.w L_InDoubleBuffer,L_Nul		//$00$01$11$00
+	dc.b "double buffe","r"+$80,"I",-1
+	dc.w L_Nul,L_FnStart			//$01$00$09$00
+	dc.b "star","t"+$80,"00",-1
+	dc.w L_Nul,L_FnLength			//$01$00$0A$00
+	dc.b "lengt","h"+$80,"00",-1
+	dc.w L_InDoke,L_Nul			//$00$01$08$00
+	dc.b "dok","e"+$80,"I0,0",-1
+	dc.w L_InOnMenuDel,L_Nul		//$00$01$0F$00
+	dc.b "on menu de","l"+$80,"I",-1
+	dc.w L_InOnMenuOn,L_Nul			//$00$01$0E$00
+	dc.b "on menu o","n"+$80,"I",-1
+	dc.w L_InOnMenuOff,L_Nul		//$00$01$0F$00
+	dc.b "on menu of","f"+$80,"I",-1
+	dc.w L_InEveryOn,L_Nul			//$00$01$0C$00
+	dc.b "every o","n"+$80,"I",-1
+	dc.w L_InEveryOff,L_Nul			//$00$01$0D$00
+	dc.b "every of","f"+$80,"I",-1
+	dc.w L_Nul,L_FnLogBase			//$01$00$0B$00
+	dc.b "logbas","e"+$80,"00",-1
+	dc.w L_Nul,L_FnLogic0			//$01$00$0A$00
+	dc.b "!logi","c"+$80,"0",-2
+	dc.w L_Nul,L_FnLogic1			//$01$19$05$00
+	dc.b $80,"00",-1
+	dc.w L_Nul,L_FnAsc			//$01$00$07$00
+	dc.b "as","c"+$80,"02",-1
+	dc.w L_Syntax,L_Syntax			//$01$01$06$00
+	dc.b "a","s"+$80,"I",-1
+	dc.w L_InCall,L_Nul			//$1A$01$08$00
+	dc.b "cal","l"+$80,"I",-1
+	dc.w L_Nul,L_FnExeCall			//$01$00$0B$00
+	dc.b "execal","l"+$80,"00",-1
+	dc.w L_Nul,L_FnGfxCall			//$01$00$0B$00
+	dc.b "gfxcal","l"+$80,"00",-1
+	dc.w L_Nul,L_FnDosCall			//$01$00$0B$00
+	dc.b "doscal","l"+$80,"00",-1
+	dc.w L_Nul,L_FnIntCall			//$01$00$0B$00
+	dc.b "intcal","l"+$80,"00",-1
+	dc.w L_InFreeze,L_Nul			//$00$01$0A$00
+	dc.b "freez","e"+$80,"I",-1
+
+* Boucles / Branchements
+	dc.w L_InFor,L_Nul			//$30$01$08$00
+	dc.b "for"," "+$80,-1
+	dc.w L_InNext,L_Nul			//$31$01$09$00
+	dc.b "next"," "+$80,-1
+	dc.w L_InRepeat,L_Nul			//$32$01$0B$12
+	dc.b "repeat"," "+$80,-1
+	dc.w L_InUntil,L_Nul			//$33$01$0A$12
+	dc.b "until"," "+$80,-1
+	dc.w L_InWhile,L_Nul			//$34$01$0A$12
+	dc.b "while"," "+$80,-1
+	dc.w L_InWend,L_Nul			//$35$01$09$12
+	dc.b "wend"," "+$80,-1
+	dc.w L_InDo,L_Nul			//$36$01$07$12
+	dc.b "do"," "+$80,-1
+	dc.w L_InLoop,L_Nul			//$37$01$09$12
+	dc.b "loop"," "+$80,-1
+	dc.w L_InExitIf,L_Nul			//$39$01$0C$12
+	dc.b "exit if"," "+$80,-1
+	dc.w L_InExit,L_Nul			//$38$01$09$12
+	dc.b "exit"," "+$80,-1
+	dc.w L_InGoto,L_Nul			//$3E$01$09$12
+	dc.b "goto"," "+$80,-1
+	dc.w L_InGosub,L_Nul			//$3F$01$0A$12
+	dc.b "gosub"," "+$80,-1
+	dc.w L_InIf,L_Nul			//$3A$01$07$12
+	dc.b "if"," "+$80,-1
+	dc.w L_Nul,L_FnNull			//$52$02$09$12
+	dc.b "then"," "+$80,-1
+	dc.w L_InElse,L_FnElse			//$3B$02$09$12
+	dc.b "else"," "+$80,-1
+	dc.w L_InNull,L_FnNull			//$3D$01$0B$12
+	dc.b "end if"," "+$80,-1
+	dc.w L_InOnError,L_Nul			//$40$01$0D$12
+	dc.b "on error"," "+$80,-1
+	dc.w L_InOnBreak,L_Nul			//$41$01$12$12
+	dc.b "on break proc"," "+$80,-1
+	dc.w L_InOnMenu,L_NoFlag		//$42$01$0B$12
+	dc.b "on men","u"+$80,"I0",-1
+	dc.w L_InOn,L_Nul			//$43$01$07$12
+	dc.b "on"," "+$80,-1
+	dc.w L_InResumeLabel,L_Nul		//$45$01$11$12
+	dc.b "resume label"," "+$80,-1
+	dc.w L_InResume,L_Nul			//$44$01$0B$12
+	dc.b "resume"," "+$80,-1
+	dc.w L_InPopProc,L_Nul			//$46$01$0C$12
+	dc.b "pop pro","c"+$80,-1
+	dc.w L_InEvery,L_Nul			//$47$01$09$12
+	dc.b "ever","y"+$80,"I",-1
+
+	dc.w L_Syntax,L_Nul			//$01$01$09$00
+	dc.b "step"," "+$80,-1
+	dc.w L_InReturn,L_Nul			//$53$01$0A$00
+	dc.b "retur","n"+$80,"I",-1
+	dc.w L_InPop,L_Nul			//$54$01$07$00
+	dc.b "po","p"+$80,"I",-1
+	dc.w L_InProcedure,L_Nul		//$ff$01$0E$0A
+	dc.b "procedure"," "+$80,-1
+	dc.w L_InProc,L_Nul			//$0F$01$09$0F
+	dc.b "proc"," "+$80,-1
+	dc.w L_InEndProc,L_Nul			//$fe$01$0C$0B
+	dc.b "end pro","c"+$80,-1
+	dc.w L_InShared,0     			//$fb$01$0B$00
+	dc.b "shared"," "+$80,-1
+	dc.w L_InShared,0     			//$fb$01$0B$00
+	dc.b "global"," "+$80,-1
+	dc.w L_InEnd,L_Nul			//$00$01$07$00
+	dc.b "en","d"+$80,"I",-1
+	dc.w L_InStop,L_Nul			//$00$01$08$00
+	dc.b "sto","p"+$80,"I",-1
+	dc.w L_Nul,L_FnParamF			//$01$1C$0A$00
+	dc.b "param","#"+$80,"0",-1
+	dc.w L_Nul,L_FnParamS			//$01$1D$0A$00
+	dc.b "param","$"+$80,"2",-1
+	dc.w L_Nul,L_FnParamE			//$01$1B$09$00
+	dc.b "para","m"+$80,"0",-1
+	dc.w L_InError,L_Nul			//$00$01$09$00
+	dc.b "erro","r"+$80,"I0",-1
+	dc.w L_Nul,L_FnErrn			//$01$00$08$00
+	dc.b "err","n"+$80,"0",-1
+	dc.w L_InData,L_Nul			//$fd$01$09$00
+	dc.b "data"," "+$80,-1
+	dc.w L_InRead,L_Nul			//$13$01$09$00
+	dc.b "read"," "+$80,-1
+	dc.w L_InRestore,L_Nul			//$14$01$0C$00
+	dc.b "restore"," "+$80,-1
+	dc.w L_InBreakOff,L_Nul			//$00$01$0D$00
+	dc.b "break of","f"+$80,"I",-1
+	dc.w L_InBreakOn,L_Nul			//$00$01$0C$00
+	dc.b "break o","n"+$80,"I",-1
+	dc.w L_InInc,L_Nul			//$16$01$07$00
+	dc.b "in","c"+$80,"I",-1
+	dc.w L_InDec,L_Nul			//$0E$01$07$00
+	dc.b "de","c"+$80,"I",-1
+	dc.w L_InAdd2,L_Nul			//$17$01$08$00
+	dc.b "!ad","d"+$80,"I",-2
+	dc.w L_InAdd4,L_Nul			//$4F$01$05$00
+	dc.b $80,"I",-1
+* Print/Input
+	dc.w L_InPrintH,L_Nul			//$0B$01$0B$00
+	dc.b "print ","#"+$80,-1
+	dc.w L_InPrint,L_Nul  			//$0A$01$09$00
+	dc.b "prin","t"+$80,"I",-1
+	dc.w L_InLPrint,L_Nul			//$48$01$0A$00
+	dc.b "lprin","t"+$80,"I",-1
+	dc.w L_Nul,L_FnInputD1			//$01$00$0B$00
+	dc.b "!input","$"+$80,"20",-2
+	dc.w L_Nul,L_FnInputD2			//$01$19$05$00
+	dc.b $80,"20,0",-1
+	dc.w L_Syntax,L_Syntax			//$01$01$09$00
+	dc.b "usin","g"+$80,"I",-1
+	dc.w L_InInputH,L_Nul			//$0D$01$0B$00
+	dc.b "input ","#"+$80,-1
+	dc.w L_InLineInputH,L_Nul		//$4A$01$10$00
+	dc.b "line input ","#"+$80,-1
+	dc.w L_InInput,L_Nul			//$0C$01$09$00
+	dc.b "inpu","t"+$80,"I",-1
+	dc.w L_InLineInput,L_Nul		//$49$01$0E$00
+	dc.b "line inpu","t"+$80,"I",-1
+	dc.w L_InRun0,L_Nul			//$00$01$08$00
+	dc.b "!ru","n"+$80,"I",-2
+	dc.w L_InRun1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I2",-1
+	dc.w L_InSetBuffer,L_Nul		//$03$01$0E$00
+	dc.b "set buffe","r"+$80,"I",-1
+* Gestion des chaines
+	dc.w L_InMid3,L_NoFlag			//$4B$21$09$00
+	dc.b "!mid","$"+$80,"22,0,0",-2
+	dc.w L_InMid2,L_NoFlag			//$4C$22$05$00
+	dc.b $80,"22,0",-1
+	dc.w L_InLeft,L_NoFlag			//$4D$23$09$00
+	dc.b "left","$"+$80,"22,0",-1
+	dc.w L_InRight,L_NoFlag			//$4E$24$0A$00
+	dc.b "right","$"+$80,"22,0",-1
+	dc.w L_Nul,L_FnFlip			//$01$00$09$00
+	dc.b "flip","$"+$80,"22",-1
+	dc.w L_Nul,L_FnChr			//$01$00$08$00
+	dc.b "chr","$"+$80,"20",-1
+	dc.w L_Nul,L_FnSpace			//$01$00$0A$00
+	dc.b "space","$"+$80,"20",-1
+	dc.w L_Nul,L_FnString			//$01$00$0B$00
+	dc.b "string","$"+$80,"22,0",-1
+	dc.w L_Nul,L_FnUpper			//$01$00$0A$00
+	dc.b "upper","$"+$80,"22",-1
+	dc.w L_Nul,L_FnLower			//$01$00$0A$00
+	dc.b "lower","$"+$80,"22",-1
+	dc.w L_Nul,L_FnStrE			//$01$00$08$00
+	dc.b "str","$"+$80,"24",-1
+	dc.w L_Nul,L_FnVal			//$01$05$07$00
+	dc.b "va","l"+$80,"02",-1
+	dc.w L_Nul,L_FnBin1			//$01$00$09$00
+	dc.b "!bin","$"+$80,"20",-2
+	dc.w L_Nul,L_FnBin2			//$01$19$05$00
+	dc.b $80,"20,0",-1
+	dc.w L_Nul,L_FnHex1			//$01$00$09$00
+	dc.b "!hex","$"+$80,"20",-2
+	dc.w L_Nul,L_FnHex2			//$01$19$05$00
+	dc.b $80,"20,0",-1
+	dc.w L_Nul,L_FnLen			//$01$00$07$00
+	dc.b "le","n"+$80,"02",-1
+	dc.w L_Nul,L_FnInstr2			//$01$00$0A$00
+	dc.b "!inst","r"+$80,"02,2",-2
+	dc.w L_Nul,L_FnInstr3			//$01$19$05$00
+	dc.b $80,"02,2,0",-1
+	dc.w L_Nul,L_FnTab			//$01$00$08$00
+	dc.b "tab","$"+$80,"2",-1
+	dc.w L_Nul,L_FnFree			//$01$00$08$00
+	dc.b "fre","e"+$80,"0",-1
+	dc.w L_Nul,L_FnVarPtr			//$01$08$0A$00
+	dc.b "varpt","r"+$80,"0",-1
+	dc.w L_InRememberX,L_Nul		//$00$01$0E$00
+	dc.b "remember ","x"+$80,"I",-1
+	dc.w L_InRememberY,L_Nul		//$00$01$0E$00
+	dc.b "remember ","y"+$80,"I",-1
+
+	dc.w L_InDim,L_Nul			//$09$01$07$00
+	dc.b "di","m"+$80,"I",-1
+	dc.w L_InRem,L_Nul			//$02$01$07$0E
+	dc.b "re","m"+$80,-1
+	dc.w L_InRem,L_Nul			//$02$01$05$0E
+	dc.b "'"+$80,-1
+	dc.w L_InSort,L_NoFlag			//$21$01$08$00
+	dc.b "sor","t"+$80,"I",-1
+	dc.w L_NoFlag,L_FnMatch			//$01$0D$09$00
+	dc.b "matc","h"+$80,"03,3",-1
+	dc.w L_InEdit,L_Nul			//$00$01$08$00
+	dc.b "edi","t"+$80,"I",-1
+	dc.w L_InDirect,L_Nul			//$00$01$0A$00
+	dc.b "direc","t"+$80,"I",-1
+* Fonctions
+	dc.w L_Nul,L_FnRnd			//$01$00$07$00
+	dc.b "rn","d"+$80,"00",-1
+	dc.w L_InRandom,L_Nul			//$00$01$0D$00
+	dc.b "randomiz","e"+$80,"I0",-1
+	dc.w L_Nul,L_FnSgn			//$01$00$07$00
+	dc.b "sg","n"+$80,"04",-1
+	dc.w L_Nul,L_FnAbs			//$01$00$07$00
+	dc.b "ab","s"+$80,"44",-1
+	dc.w L_Nul,L_FnInt			//$01$00$07$00
+	dc.b "in","t"+$80,"44",-1
+	dc.w L_InRadian,L_Nul			//$00$01$0A$00
+	dc.b "radia","n"+$80,"I",-1
+	dc.w L_InDegree,L_Nul			//$00$01$0A$00
+	dc.b "degre","e"+$80,"I",-1
+	dc.w L_Nul,L_FnPi			//$01$00$07$00
+	dc.b "pi","#"+$80,"1",-1
+	dc.w L_InFix,L_Nul			//$00$01$07$00
+	dc.b "fi","x"+$80,"I0",-1
+	dc.w L_NoFlag,L_FnMin			//$01$0F$07$00
+	dc.b "mi","n"+$80,"00,0",-1
+	dc.w L_NoFlag,L_FnMax			//$01$20$07$00
+	dc.b "ma","x"+$80,"00,0",-1
+	dc.w L_Nul,L_FnSin			//$01$13$07$00
+	dc.b "si","n"+$80,"15",-1
+	dc.w L_Nul,L_FnCos 			//$01$13$07$00
+	dc.b "co","s"+$80,"15",-1
+	dc.w L_Nul,L_FnTan			//$01$13$07$00
+	dc.b "ta","n"+$80,"15",-1
+	dc.w L_Nul,L_FnASin			//$01$13$08$00
+	dc.b "asi","n"+$80,"11",-1
+	dc.w L_Nul,L_FnACos			//$01$13$08$00
+	dc.b "aco","s"+$80,"11",-1
+	dc.w L_Nul,L_FnATan			//$01$13$08$00
+	dc.b "ata","n"+$80,"11",-1
+	dc.w L_Nul,L_FnHSin			//$01$13$08$00
+	dc.b "hsi","n"+$80,"15",-1
+	dc.w L_Nul,L_FnHCos			//$01$13$08$00
+	dc.b "hco","s"+$80,"15",-1
+	dc.w L_Nul,L_FnHTan			//$01$13$08$00
+	dc.b "hta","n"+$80,"15",-1
+	dc.w L_Nul,L_FnSqr			//$01$13$07$00
+	dc.b "sq","r"+$80,"11",-1
+	dc.w L_Nul,L_FnLog			//$01$13$07$00
+	dc.b "lo","g"+$80,"11",-1
+	dc.w L_Nul,L_FnLn			//$01$13$06$00
+	dc.b "l","n"+$80,"11",-1
+	dc.w L_Nul,L_FnExp			//$01$13$07$00
+	dc.b "ex","p"+$80,"11",-1
+* MENUS!!!
+	dc.w L_InMenuToBank,L_Nul		//$00$01$10$00
+	dc.b "menu to ban","k"+$80,"I0",-1
+	dc.w L_InBankToMenu,L_Nul		//$00$01$10$00
+	dc.b "bank to men","u"+$80,"I0",-1
+	dc.w L_InMenuOn,L_Nul			//$00$01$0B$00
+	dc.b "menu o","n"+$80,"I",-1
+	dc.w L_InMenuOff,L_Nul			//$00$01$0C$00
+	dc.b "menu of","f"+$80,"I",-1
+	dc.w L_InMenuCalc,L_Nul			//$00$01$0D$00
+	dc.b "menu cal","c"+$80,"I",-1
+	dc.w L_InMenuMouseOn,L_Nul		//$00$01$11$00
+	dc.b "menu mouse o","n"+$80,"I",-1
+	dc.w L_InMenuMouseOff,L_Nul		//$00$01$12$00
+	dc.b "menu mouse of","f"+$80,"I",-1
+	dc.w L_InMenuBase,L_Nul			//$00$01$0D$00
+	dc.b "menu bas","e"+$80,"I0,0",-1
+
+	dc.w L_InSetMenu,L_NoFlag		//$1D$01$0C$00
+	dc.b "set men","u"+$80,"I0t0,0",-1
+	dc.w L_NoFlag,L_FnXMenu			//$01$0B$0A$00
+	dc.b "x men","u"+$80,"00",-1
+	dc.w L_NoFlag,L_FnYMenu			//$01$0B$0A$00
+	dc.b "y men","u"+$80,"00",-1
+	dc.w L_InMenuKey,L_NoFlag		//$1E$01$0C$00
+	dc.b "menu ke","y"+$80,"I0t0,0",-1
+	dc.w L_InMenuBar,L_NoFlag		//$1F$01$0C$00
+	dc.b "menu ba","r"+$80,"I0",-1
+	dc.w L_InMenuLine,L_NoFlag		//$1F$01$0D$00
+	dc.b "menu lin","e"+$80,"I0",-1
+	dc.w L_InMenuTline,L_NoFlag		//$1F$01$0E$00
+	dc.b "menu tlin","e"+$80,"I0",-1
+	dc.w L_InMenuMovable,L_NoFlag		//$1F$01$10$00
+	dc.b "menu movabl","e"+$80,"I0",-1
+	dc.w L_InMenuStatic,L_NoFlag		//$1F$01$0F$00
+	dc.b "menu stati","c"+$80,"I0",-1
+	dc.w L_InMenuItemMovable,L_NoFlag	//$1F$01$15$00
+	dc.b "menu item movabl","e"+$80,"I0",-1
+	dc.w L_InMenuItemStatic,L_NoFlag	//$1F$01$14$00
+	dc.b "menu item stati","c"+$80,"I0",-1
+	dc.w L_InMenuActive,L_NoFlag		//$1F$01$0F$00
+	dc.b "menu activ","e"+$80,"I0",-1
+	dc.w L_InMenuInactive,L_NoFlag		//$1F$01$11$00
+	dc.b "menu inactiv","e"+$80,"I0",-1
+	dc.w L_InMenuSeparate,L_NoFlag		//$1F$01$11$00
+	dc.b "menu separat","e"+$80,"I0",-1
+	dc.w L_InMenuLink,L_NoFlag		//$1F$01$0D$00
+	dc.b "menu lin","k"+$80,"I0",-1
+	dc.w L_InMenuCalled,L_NoFlag		//$1F$01$0F$00
+	dc.b "menu calle","d"+$80,"I0",-1
+	dc.w L_InMenuOnce,L_NoFlag		//$1F$01$0D$00
+	dc.b "menu onc","e"+$80,"I0",-1
+
+	dc.w L_InMenuDel,L_NoFlag		//$1C$01$0C$00
+	dc.b "menu de","l"+$80,"I",-1
+	dc.w L_InMenu,L_NoFlag			//$1B$01$09$00
+	dc.b "menu","$"+$80,"V",-1
+	dc.w L_Nul,L_FnChoice0			//$01$00$0B$00
+	dc.b "!choic","e"+$80,"0",-2
+	dc.w L_Nul,L_FnChoice1			//$01$19$05$00
+	dc.b $80,"00",-1
+
+* Screen instructions
+	dc.w L_InScreenCopy2,L_Nul		//$00$01$10$00
+	dc.b "!screen cop","y"+$80,"I0t0",-2
+	dc.w L_InScreenCopy3,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0t00",-2
+	dc.w L_InScreenCopy8,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0,0t0,0,0",-2
+	dc.w L_InScreenCopy9,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0,0t0,0,0,0",-1
+	dc.w L_InScreenClone,L_Nul		//$00$01$10$00
+	dc.b "screen clon",$80+"e","I0",-1
+	dc.w L_InScreenOpen,L_Nul		//$00$01$0F$00
+	dc.b "screen ope","n"+$80,"I0,0,0,0,0",-1
+	dc.w L_InScreenClose,L_Nul		//$00$01$10$00
+	dc.b "screen clos",$80+"e","I0",-1
+	dc.w L_InScreenDisplay,L_Nul		//$00$01$12$00
+	dc.b "screen displa","y"+$80,"I0,0,0,0,0",-1
+	dc.w L_InScreenOffset,L_Nul		//$00$01$11$00
+	dc.b "screen offse","t"+$80,"I0,0,0",-1
+	dc.w L_Syntax,L_Syntax			//$01$01$0F$00
+	dc.b "screen siz","e"+$80,-1
+	dc.w L_Nul,L_FnScreenColour		//$01$00$11$00
+	dc.b "screen colou","r"+$80,"0",-1
+	dc.w L_InScreenToFront0,L_Nul		//$00$01$14$00
+	dc.b "!screen to fron","t"+$80,"I",-2
+	dc.w L_InScreenToFront1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InScreenToBack0,L_Nul		//$00$01$13$00
+	dc.b "!screen to bac","k"+$80,"I",-2
+	dc.w L_InScreenToBack1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InScreenHide0,L_Nul		//$00$01$10$00
+	dc.b "!screen hid","e"+$80,"I",-2
+	dc.w L_InScreenHide1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InScreenShow0,L_Nul		//$00$01$10$00
+	dc.b "!screen sho","w"+$80,"I",-2
+	dc.w L_InScreenShow1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InScreenSwap0,L_Nul		//$00$01$10$00
+	dc.b "!screen swa","p"+$80,"I",-2
+	dc.w L_InScreenSwap1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InSaveIff1,L_Nul			//$00$01$0D$00
+	dc.b "!save if","f"+$80,"I2",-2
+	dc.w L_InSaveIff2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I2,0",-1
+	dc.w L_InView,L_Nul			//$00$01$08$00
+	dc.b "vie","w"+$80,"I",-1
+	dc.w L_InAutoViewOff,L_Nul		//$00$01$11$00
+	dc.b "auto view of","f"+$80,"I",-1
+	dc.w L_InAutoViewOn,L_Nul		//$00$01$10$00
+	dc.b "auto view o","n"+$80,"I",-1
+	dc.w L_Nul,L_FnScreenBase		//$01$00$0F$00
+	dc.b "screen bas","e"+$80,"0",-1
+	dc.w L_Nul,L_FnScreenWidth0		//$01$00$11$00
+	dc.b "!screen widt","h"+$80,"0",-2
+	dc.w L_Nul,L_FnScreenWidth1		//$01$19$05$00
+	dc.b $80,"00",-1
+	dc.w L_Nul,L_FnScreenHeight0		//$01$00$12$00
+	dc.b "!screen heigh","t"+$80,"0",-2
+	dc.w L_Nul,L_FnScreenHeight1		//$01$19$05$00
+	dc.b $80,"00",-1
+	dc.w L_InGetPalette1,L_Nul		//$00$01$10$00
+	dc.b "!get palett","e"+$80,"I0",-2
+	dc.w L_InGetPalette2,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0",-1
+	dc.w L_InCls0,L_Nul			//$00$01$08$00
+	dc.b "!cl","s"+$80,"I",-2
+	dc.w L_InCls1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-2
+	dc.w L_InCls5,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0t0,0",-1
+	dc.w L_InDefScroll,L_Nul		//$00$01$0E$00
+	dc.b "def scrol","l"+$80,"I0,0,0t0,0,0,0",-1
+* Conversions de coordonnees
+	dc.w L_Nul,L_FnXHard1			//$01$00$0B$00
+	dc.b "!x har","d"+$80,"00",-2
+	dc.w L_Nul,L_FnXHard2			//$01$19$05$00
+	dc.b $80,"00,0",-1
+	dc.w L_Nul,L_FnYHard1			//$01$00$0B$00
+	dc.b "!y har","d"+$80,"00",-2
+	dc.w L_Nul,L_FnYHard2			//$01$19$05$00
+	dc.b $80,"00,0",-1
+	dc.w L_Nul,L_FnXScreen1			//$01$00$0D$00
+	dc.b "!x scree","n"+$80,"00",-2
+	dc.w L_Nul,L_FnXScreen2			//$01$19$05$00
+	dc.b $80,"00,0",-1
+	dc.w L_Nul,L_FnYScreen1			//$01$00$0D$00
+	dc.b "!y scree","n"+$80,"00",-2
+	dc.w L_Nul,L_FnYScreen2			//$01$19$05$00
+	dc.b $80,"00,0",-1
+	dc.w L_Nul,L_FnXText			//$01$00$0A$00
+	dc.b "x tex","t"+$80,"00",-1
+	dc.w L_Nul,L_FnYText			//$01$00$0A$00
+	dc.b "y tex","t"+$80,"00",-1
+
+	dc.w L_InScreen,L_Nul			//$00$18$0B$00
+	dc.b "!scree","n"+$80,"I0",-3
+	dc.w L_Nul,L_FnScreen			//$01$19$05$00
+	dc.b $80,"0",-1
+	dc.w L_Nul,L_FnHires			//$01$00$09$00
+	dc.b "hire","s"+$80,"0",-1
+	dc.w L_Nul,L_FnLowres			//$01$00$0A$00
+	dc.b "lowre","s"+$80,"0",-1
+	dc.w L_InDualPlayfield,L_Nul		//$00$01$12$00
+	dc.b "dual playfiel","d"+$80,"I0,0",-1
+	dc.w L_InDualPriority,L_Nul		//$00$01$11$00
+	dc.b "dual priorit","y"+$80,"I0,0",-1
+	dc.w L_InWtVbl,L_Nul			//$00$01$0C$00
+	dc.b "wait vb","l"+$80,"I",-1
+	dc.w L_InDefaultPalette,L_Nul		//$11$01$13$00
+	dc.b "default palett","e"+$80,"I",-1
+	dc.w L_InDefault,L_Nul			//$00$01$0B$00
+	dc.b "defaul","t"+$80,"I",-1
+	dc.w L_InPalette,L_Nul			//$12$01$0B$00
+	dc.b "palett","e"+$80,"I",-1
+	dc.w L_InColourBack,L_Nul		//$00$01$0F$00
+	dc.b "colour bac","k"+$80,"I0",-1
+	dc.w L_InColour,L_Nul			//$00$18$0B$00
+	dc.b "!colou","r"+$80,"I0,0",-3
+	dc.w L_Nul,L_FnColour			//$01$19$05$00
+	dc.b $80,"00",-1
+	dc.w L_InFlashOff,L_Nul			//$00$01$0D$00
+	dc.b "flash of","f"+$80,"I",-1
+	dc.w L_InFlash,L_Nul			//$00$01$09$00
+	dc.b "flas","h"+$80,"I0,2",-1
+	dc.w L_InShiftOff,L_Nul			//$00$01$0D$00
+	dc.b "shift of","f"+$80,"I",-1
+	dc.w L_InShiftUp,L_Nul			//$00$01$0C$00
+	dc.b "shift u","p"+$80,"I0,0,0,0",-1
+	dc.w L_InShiftDown,L_Nul		//$00$01$0E$00
+	dc.b "shift dow","n"+$80,"I0,0,0,0",-1
+	dc.w L_InSetRainbow6,L_Nul		//$00$01$10$00
+	dc.b "!set rainbo","w"+$80,"I0,0,0,2,2,2",-2
+	dc.w L_InSetRainbow7,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,2,2,2,0",-1
+	dc.w L_InRainbowDel0,L_Nul		//$00$01$10$00
+	dc.b "!rainbow de","l"+$80,"I",-2
+	dc.w L_InRainbowDel1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InRainbow,L_Nul			//$00$01$0B$00
+	dc.b "rainbo","w"+$80,"I0,0,0,0",-1
+	dc.w L_InRain,L_FnRain			//$2B$1A$08$00
+	dc.b "rai","n"+$80,"V00,0",-1
+	dc.w L_InFade,L_Nul			//$20$01$08$00
+	dc.b "fad","e"+$80,"I",-1
+	dc.w L_Nul,L_FnPhyBase			//$01$00$0B$00
+	dc.b "phybas","e"+$80,"00",-1
+	dc.w L_Nul,L_FnPhysic0			//$01$00$0B$00
+	dc.b "!physi","c"+$80,"0",-2
+	dc.w L_Nul,L_FnPhysic1			//$01$19$05$00
+	dc.b $80,"00",-1
+	dc.w L_InAutoback,L_Nul			//$00$01$0C$00
+	dc.b "autobac","k"+$80,"I0",-1
+* Instructions graphiques
+	dc.w L_InPlot2,L_Nul			//$00$01$09$00
+	dc.b "!plo","t"+$80,"I0,0",-2
+	dc.w L_InPlot3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0",-1
+	dc.w L_Nul,L_FnPoint			//$01$00$09$00
+	dc.b "poin","t"+$80,"00,0",-1
+	dc.w L_InDrawTo,L_Nul			//$00$01$0B$00
+	dc.b "draw t","o"+$80,"I0,0",-1
+	dc.w L_InDraw,L_Nul			//$00$01$08$00
+	dc.b "dra","w"+$80,"I0,0t0,0",-1
+	dc.w L_InEllipse,L_Nul			//$00$01$0B$00
+	dc.b "ellips","e"+$80,"I0,0,0,0",-1
+	dc.w L_InCircle,L_Nul			//$00$01$0A$00
+	dc.b "circl","e"+$80,"I0,0,0",-1
+	dc.w L_InPolyline,L_Nul			//$18$01$0C$00
+	dc.b "polylin","e"+$80,"I",-1
+	dc.w L_InPolygon,L_Nul			//$18$01$0B$00
+	dc.b "polygo","n"+$80,"I",-1
+	dc.w L_InBar,L_Nul			//$00$01$07$00
+	dc.b "ba","r"+$80,"I0,0t0,0",-1
+	dc.w L_InBox,L_Nul			//$00$01$07$00
+	dc.b "bo","x"+$80,"I0,0t0,0",-1
+	dc.w L_InPaint2,L_Nul			//$00$01$0A$00
+	dc.b "!pain","t"+$80,"I0,0",-2
+	dc.w L_InPaint3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0",-1
+	dc.w L_InGrLocate,L_Nul			//$00$01$0D$00
+	dc.b "gr locat","e"+$80,"I0,0",-1
+	dc.w L_Nul,L_FnTextLength		//$01$00$0F$00
+	dc.b "text lengt","h"+$80,"02",-1
+	dc.w L_Nul,L_FnTextStyle		//$01$00$0F$00
+	dc.b "text style","s"+$80,"0",-1
+	dc.w L_Nul,L_FnTextBase			//$01$00$0D$00
+	dc.b "text bas","e"+$80,"0",-1
+	dc.w L_InText,L_Nul			//$00$01$08$00
+	dc.b "tex","t"+$80,"I0,0,2",-1
+	dc.w L_InSetText,L_Nul			//$00$01$0C$00
+	dc.b "set tex","t"+$80,"I0",-1
+	dc.w L_InSetPaint,L_Nul			//$00$01$0D$00
+	dc.b "set pain","t"+$80,"I0",-1
+	dc.w L_InGetFonts,L_Nul			//$00$01$0D$00
+	dc.b "get font","s"+$80,"I",-1
+	dc.w L_InGetDiscFonts,L_Nul		//$00$01$12$00
+	dc.b "get disc font","s"+$80,"I",-1
+	dc.w L_InGetRomFonts,L_Nul		//$00$01$11$00
+	dc.b "get rom font","s"+$80,"I",-1
+	dc.w L_InSetFont,L_Nul			//$00$01$0C$00
+	dc.b "set fon","t"+$80,"I0",-1
+	dc.w L_Nul,L_FnFont			//$01$00$09$00
+	dc.b "font","$"+$80,"20",-1
+	dc.w L_InHSlider,L_Nul			//$00$01$0B$00
+	dc.b "hslide","r"+$80,"I0,0t0,0,0,0,0",-1
+	dc.w L_InVSlider,L_Nul			//$00$01$0B$00
+	dc.b "vslide","r"+$80,"I0,0t0,0,0,0,0",-1
+	dc.w L_InSetSlider,L_Nul		//$00$01$0E$00
+	dc.b "set slide","r"+$80,"I0,0,0,0,0,0,0,0",-1
+	dc.w L_InSetPattern,L_Nul		//$00$01$0F$00
+	dc.b "set patter","n"+$80,"I0",-1
+	dc.w L_InSetLine,L_Nul			//$00$01$0C$00
+	dc.b "set lin","e"+$80,"I0",-1
+	dc.w L_InInk1,L_Nul			//$00$01$08$00
+	dc.b "!in","k"+$80,"I0",-2
+	dc.w L_InInk2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0",-2
+	dc.w L_InInk3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0",-1
+	dc.w L_InGrWriting,L_Nul		//$00$01$0E$00
+	dc.b "gr writin","g"+$80,"I0",-1
+	dc.w L_InClip0,L_Nul			//$00$01$09$00
+	dc.b "!cli","p"+$80,"I",-2
+	dc.w L_InClip4,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0t0,0",-1
+	dc.w L_InSetTempras0,L_Nul		//$00$01$10$00
+	dc.b "!set tempra","s"+$80,"I",-2
+	dc.w L_InSetTempras1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-2
+	dc.w L_InSetTempras2,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0",-1
+	dc.w L_InAppear3,L_Nul			//$00$01$0B$00
+	dc.b "!appea","r"+$80,"I0t0,0",-2
+	dc.w L_InAppear4,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0t0,0,0",-1
+	dc.w L_InZoom,L_Nul			//$00$01$08$00
+	dc.b "zoo","m"+$80,"I0,0,0,0,0t0,0,0,0,0",-1
+
+* Blocs
+	dc.w L_InGetCBlock,L_Nul		//$00$01$0E$00
+	dc.b "get cbloc","k"+$80,"I0,0,0,0,0",-1
+	dc.w L_InPutCBlock1,L_Nul		//$00$01$0F$00
+	dc.b "!put cbloc","k"+$80,"I0",-2
+	dc.w L_InPutCBlock3,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0",-1
+	dc.w L_InDelCBlock0,L_Nul		//$00$01$0F$00
+	dc.b "!del cbloc","k"+$80,"I",-2
+	dc.w L_InDelCBlock1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InGetBlock5,L_Nul		//$00$01$0E$00
+	dc.b "!get bloc","k"+$80,"I0,0,0,0,0",-2
+	dc.w L_InGetBlock6,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0,0,0",-1
+	dc.w L_InPutBlock1,L_Nul		//$00$01$0E$00
+	dc.b "!put bloc","k"+$80,"I0",-2
+	dc.w L_InPutBlock3,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0",-2
+	dc.w L_InPutBlock4,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0",-2
+	dc.w L_InPutBlock5,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0,0",-1
+	dc.w L_InDelBlock0,L_Nul		//$00$01$0E$00
+	dc.b "!del bloc","k"+$80,"I",-2
+	dc.w L_InDelBlock1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+
+* Instructions clavier
+	dc.w L_InKeySpeed,L_Nul			//$00$01$0D$00
+	dc.b "key spee","d"+$80,"I0,0",-1
+	dc.w L_Nul,L_FnKeyState			//$01$00$0D$00
+	dc.b "key stat","e"+$80,"00",-1
+	dc.w L_Nul,L_FnKeyShift			//$01$00$0D$00
+	dc.b "key shif","t"+$80,"0",-1
+	dc.w L_Nul,L_FnJoy			//$01$00$07$00
+	dc.b "jo","y"+$80,"00",-1
+	dc.w L_Nul,L_FnJup			//$01$00$07$00
+	dc.b "ju","p"+$80,"00",-1
+	dc.w L_Nul,L_FnJdown			//$01$00$09$00
+	dc.b "jdow","n"+$80,"00",-1
+	dc.w L_Nul,L_FnJleft			//$01$00$09$00
+	dc.b "jlef","t"+$80,"00",-1
+	dc.w L_Nul,L_FnJright			//$01$00$0A$00
+	dc.b "jrigh","t"+$80,"00",-1
+	dc.w L_Nul,L_FnFire			//$01$00$08$00
+	dc.b "fir","e"+$80,"00",-1
+	dc.w L_Nul,L_FnTrue			//$01$1F$08$00
+	dc.b "tru","e"+$80,"0",-1
+	dc.w L_Nul,L_FnFalse			//$01$1E$09$00
+	dc.b "fals","e"+$80,"0",-1
+	dc.w L_InPutKey,L_Nul			//$00$01$0B$00
+	dc.b "put ke","y"+$80,"I2",-1
+	dc.w L_Nul,L_FnScancode			//$01$00$0C$00
+	dc.b "scancod","e"+$80,"0",-1
+	dc.w L_Nul,L_FnScanshift		//$01$00$0D$00
+	dc.b "scanshif","t"+$80,"0",-1
+	dc.w L_InClearKey,L_Nul			//$00$01$0D$00
+	dc.b "clear ke","y"+$80,"I",-1
+	dc.w L_InWtKy,L_Nul			//$00$01$0C$00
+	dc.b "wait ke","y"+$80,"I",-1
+	dc.w L_InWait,L_Nul			//$00$01$08$00
+	dc.b "wai","t"+$80,"I0",-1
+	dc.w L_InKeyD,L_FnKeyD			//$2B$1A$08$00
+	dc.b "key","$"+$80,"V20",-1
+	dc.w L_Nul,L_FnScan1			//$01$00$0A$00
+	dc.b "!scan","$"+$80,"20",-2
+	dc.w L_Nul,L_FnScan2			//$01$19$05$00
+	dc.b $80,"20,0",-1
+	dc.w L_InTimer,L_FnTimer		//$2B$1A$09$00
+	dc.b "time","r"+$80,"V0",-1
+
+* Instruction fenetres
+	dc.w L_InWindopen5,L_Nul		//$00$01$0E$00
+	dc.b "!wind ope","n"+$80,"I0,0,0,0,0",-2
+	dc.w L_InWindopen6,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_InWindopen7,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0,0,0,0",-1
+	dc.w L_InWindclose,L_Nul		//$00$01$0E$00
+	dc.b "wind clos","e"+$80,"I",-1
+	dc.w L_InWindsave,L_Nul			//$00$01$0D$00
+	dc.b "wind sav","e"+$80,"I",-1
+	dc.w L_InWindmove,L_Nul			//$00$01$0D$00
+	dc.b "wind mov","e"+$80,"I0,0",-1
+	dc.w L_InWindsize,L_Nul			//$00$01$0D$00
+	dc.b "wind siz","e"+$80,"I0,0",-1
+	dc.w L_InWindow,L_Nul			//$00$01$0A$00
+	dc.b "windo","w"+$80,"I0",-1
+	dc.w L_Nul,L_FnWindon			//$01$00$0A$00
+	dc.b "windo","n"+$80,"0",-1
+
+	dc.w L_InLocate,L_Nul			//$00$01$0A$00
+	dc.b "locat","e"+$80,"I0,0",-1
+	dc.w L_InClw,L_Nul			//$00$01$07$00
+	dc.b "cl","w"+$80,"I",-1
+	dc.w L_InHome,L_Nul			//$00$01$08$00
+	dc.b "hom","e"+$80,"I",-1
+	dc.w L_InCursPen,L_Nul			//$00$01$0C$00
+	dc.b "curs pe","n"+$80,"I0",-1
+	dc.w L_Nul,L_FnPenD			//$01$00$08$00
+	dc.b "pen","$"+$80,"20",-1
+	dc.w L_Nul,L_FnPaperD			//$01$00$0A$00
+	dc.b "paper","$"+$80,"20",-1
+	dc.w L_Nul,L_FnAt			//$01$00$06$00
+	dc.b "a","t"+$80,"20,0",-1
+	dc.w L_InPen,L_Nul			//$00$01$07$00
+	dc.b "pe","n"+$80,"I0",-1
+	dc.w L_InPaper,L_Nul			//$00$01$09$00
+	dc.b "pape","r"+$80,"I0",-1
+	dc.w L_InCentre,L_Nul			//$00$01$0A$00
+	dc.b "centr","e"+$80,"I2",-1
+	dc.w L_InBorder,L_Nul			//$00$01$0A$00
+	dc.b "borde","r"+$80,"I0,0,0",-1
+	dc.w L_InWriting1,L_Nul			//$00$01$0C$00
+	dc.b "!writin","g"+$80,"I0",-2
+	dc.w L_InWriting2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0",-1
+	dc.w L_InTitleTop,L_Nul			//$00$01$0D$00
+	dc.b "title to","p"+$80,"I2",-1
+	dc.w L_InTitleBottom,L_Nul		//$00$01$10$00
+	dc.b "title botto","m"+$80,"I2",-1
+	dc.w L_InCursOff,L_Nul			//$00$01$0C$00
+	dc.b "curs of","f"+$80,"I",-1
+	dc.w L_InCursOn,L_Nul			//$00$01$0B$00
+	dc.b "curs o","n"+$80,"I",-1
+	dc.w L_InInverseOff,L_Nul		//$00$01$0F$00
+	dc.b "inverse of","f"+$80,"I",-1
+	dc.w L_InInverseOn,L_Nul		//$00$01$0E$00
+	dc.b "inverse o","n"+$80,"I",-1
+	dc.w L_InUnderOff,L_Nul			//$00$01$0D$00
+	dc.b "under of","f"+$80,"I",-1
+	dc.w L_InUnderOn,L_Nul			//$00$01$0C$00
+	dc.b "under o","n"+$80,"I",-1
+	dc.w L_InShadeOff,L_Nul			//$00$01$0D$00
+	dc.b "shade of","f"+$80,"I",-1
+	dc.w L_InShadeOn,L_Nul			//$00$01$0C$00
+	dc.b "shade o","n"+$80,"I",-1
+	dc.w L_InScrollOff,L_Nul		//$00$01$0E$00
+	dc.b "scroll of","f"+$80,"I",-1
+	dc.w L_InScrollOn,L_Nul			//$00$01$0D$00
+	dc.b "scroll o","n"+$80,"I",-1
+	dc.w L_InScroll,L_Nul			//$00$01$0A$00
+	dc.b "scrol","l"+$80,"I0",-1
+	dc.w L_Nul,L_FnCup			//$01$00$08$00
+	dc.b "cup","$"+$80,"2",-1
+	dc.w L_Nul,L_FnCdown			//$01$00$0A$00
+	dc.b "cdown","$"+$80,"2",-1
+	dc.w L_Nul,L_FnCleft			//$01$00$0A$00
+	dc.b "cleft","$"+$80,"2",-1
+	dc.w L_Nul,L_FnCright			//$01$00$0B$00
+	dc.b "cright","$"+$80,"2",-1
+	dc.w L_InCup,L_Nul			//$00$01$07$00
+	dc.b "cu","p"+$80,"I",-1
+	dc.w L_InCdown,L_Nul			//$00$01$09$00
+	dc.b "cdow","n"+$80,"I",-1
+	dc.w L_InCleft,L_Nul			//$00$01$09$00
+	dc.b "clef","t"+$80,"I",-1
+	dc.w L_InCright,L_Nul			//$00$01$0A$00
+	dc.b "crigh","t"+$80,"I",-1
+	dc.w L_InMemorizeX,L_Nul		//$00$01$0E$00
+	dc.b "memorize ","x"+$80,"I",-1
+	dc.w L_InMemorizeY,L_Nul		//$00$01$0E$00
+	dc.b "memorize ","y"+$80,"I",-1
+	dc.w L_Nul,L_FnCMoveD			//$01$00$0A$00
+	dc.b "cmove","$"+$80,"20,0",-1
+	dc.w L_InCmove,L_Nul			//$00$01$09$00
+	dc.b "cmov","e"+$80,"I0,0",-1
+	dc.w L_InCline0,L_Nul			//$00$01$0A$00
+	dc.b "!clin","e"+$80,"I",-2
+	dc.w L_InCline1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InHScroll,L_Nul			//$00$01$0B$00
+	dc.b "hscrol","l"+$80,"I0",-1
+	dc.w L_InVScroll,L_Nul			//$00$01$0B$00
+	dc.b "vscrol","l"+$80,"I0",-1
+	dc.w L_InSetTab,L_Nul			//$00$01$0B$00
+	dc.b "set ta","b"+$80,"I0",-1
+	dc.w L_InSetCurs,L_Nul			//$00$01$0C$00
+	dc.b "set cur","s"+$80,"I0,0,0,0,0,0,0,0",-1
+	dc.w L_Nul,L_FnXCurs			//$01$00$0A$00
+	dc.b "x cur","s"+$80,"0",-1
+	dc.w L_Nul,L_FnYCurs			//$01$00$0A$00
+	dc.b "y cur","s"+$80,"0",-1
+	dc.w L_Nul,L_FnXGraphic			//$01$00$0D$00
+	dc.b "x graphi","c"+$80,"00",-1
+	dc.w L_Nul,L_FnYGraphic			//$01$00$0D$00
+	dc.b "y graphi","c"+$80,"00",-1
+	dc.w L_Nul,L_FnXGr			//$01$00$07$00
+	dc.b "xg","r"+$80,"0",-1
+	dc.w L_Nul,L_FnYGr			//$01$00$07$00
+	dc.b "yg","r"+$80,"0",-1
+
+
+* Zones
+	dc.w L_InReserveZone0,L_Nul		//$00$01$11$00
+	dc.b "!reserve zon","e"+$80,"I",-2
+	dc.w L_InReserveZone1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InResetZone0,L_Nul		//$00$01$0F$00
+	dc.b "!reset zon","e"+$80,"I",-2
+	dc.w L_InResetZone1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InSetZone,L_Nul			//$00$01$0C$00
+	dc.b "set zon","e"+$80,"I0,0,0t0,0",-1
+	dc.w L_Nul,L_FnZone2			//$01$00$09$00
+	dc.b "!zon","e"+$80,"00,0",-2
+	dc.w L_Nul,L_FnZone3			//$01$19$05$00
+	dc.b $80,"00,0,0",-1
+	dc.w L_Nul,L_FnHZone2			//$01$00$0A$00
+	dc.b "!hzon","e"+$80,"00,0",-2
+	dc.w L_Nul,L_FnHZone3			//$01$19$05$00
+	dc.b $80,"00,0,0",-1
+	dc.w L_Nul,L_FnScIn2			//$01$00$09$00
+	dc.b "!sci","n"+$80,"00,0",-2
+	dc.w L_Nul,L_FnScIn3			//$01$19$05$00
+	dc.b $80,"00,0,0",-1
+	dc.w L_Nul,L_FnMouseScreen		//$01$00$10$00
+	dc.b "mouse scree","n"+$80,"0",-1
+	dc.w L_Nul,L_FnMouseZone		//$01$00$0E$00
+	dc.b "mouse zon","e"+$80,"0",-1
+
+
+* Instructions disques
+	dc.w L_InSetInput,L_Nul			//$00$01$0D$00
+	dc.b "set inpu","t"+$80,"I0,0",-1
+	dc.w L_InCloseWorkbench,L_Nul		//$00$01$13$00
+	dc.b "close workbenc","h"+$80,"I",-1
+	dc.w L_InCloseEditor,L_Nul		//$00$01$10$00
+	dc.b "close edito","r"+$80,"I",-1
+	dc.w L_Nul,L_FnDirFirst			//$01$00$0E$00
+	dc.b "dir first","$"+$80,"22",-1
+	dc.w L_Nul,L_FnFillNext			//$01$00$0D$00
+	dc.b "dir next","$"+$80,"2",-1
+	dc.w L_Nul,L_FnExist			//$01$00$09$00
+	dc.b "exis","t"+$80,"02",-1
+	dc.w L_InDirD,L_FnDirD			//$2B$1A$08$00
+	dc.b "dir","$"+$80,"V2",-1
+	dc.w L_InLDirW0,L_Nul			//$51$01$0B$00
+	dc.b "!ldir/","w"+$80,"I",-2
+	dc.w L_InLDirW1,L_Nul			//$51$01$05$00
+	dc.b $80,"I2",-1
+	dc.w L_InDirW0,L_Nul			//$51$01$0A$00
+	dc.b "!dir/","w"+$80,"I",-2
+	dc.w L_InDirW1,L_Nul			//$51$01$05$00
+	dc.b $80,"I2",-1
+	dc.w L_InLDir0,L_Nul			//$51$01$09$00
+	dc.b "!ldi","r"+$80,"I",-2
+	dc.w L_InLDir1,L_Nul			//$51$01$05$00
+	dc.b $80,"I2",-1
+	dc.w L_InDir0,L_Nul			//$51$01$08$00
+	dc.b "!di","r"+$80,"I",-2
+	dc.w L_InDir1,L_Nul			//$51$01$05$00
+	dc.b $80,"I2",-1
+	dc.w L_InSetDir1,L_Nul			//$00$01$0B$00
+	dc.b "set di","r"+$80,"I0",-2
+	dc.w L_InSetDir2,L_Nul			//$2D$01$0B$00
+	dc.b "set di","r"+$80,"I0,2",-1
+	dc.w L_InLoadIff1,L_Nul			//$00$01$0D$00
+	dc.b "!load if","f"+$80,"I2",-2
+	dc.w L_InLoadIff2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I2,0",-1
+	dc.w L_InMaskIff,L_Nul			//$00$01$0C$00
+	dc.b "mask if","f"+$80,"I0",-1
+	dc.w L_Nul,L_FnPicture			//$01$00$0B$00
+	dc.b "pictur","e"+$80,"0",-1
+	dc.w L_InBload,L_Nul			//$00$01$09$00
+	dc.b "bloa","d"+$80,"I2,0",-1
+	dc.w L_InBSave,L_Nul			//$00$01$09$00
+	dc.b "bsav","e"+$80,"I2,0t0",-1
+	dc.w L_InPLoad,L_Nul			//$00$01$09$00
+	dc.b "ploa","d"+$80,"I2,0",-1
+	dc.w L_InSave1,L_Nul			//$00$01$09$00
+	dc.b "!sav","e"+$80,"I2",-2
+	dc.w L_InSave2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I2,0",-1
+	dc.w L_InLoad1,L_Nul			//$00$01$09$00
+	dc.b "!loa","d"+$80,"I2",-2
+	dc.w L_InLoad2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I2,0",-1
+
+	dc.w L_Nul,L_FnDFree			//$01$00$09$00
+	dc.b "dfre","e"+$80,"0",-1
+	dc.w L_InMkDir,L_Nul			//$00$01$09$00
+	dc.b "mkdi","r"+$80,"I2",-1
+	dc.w L_Nul,L_FnLof			//$01$00$07$00
+	dc.b "lo","f"+$80,"00",-1
+	dc.w L_Nul,L_FnEof			//$01$00$07$00
+	dc.b "eo","f"+$80,"00",-1
+	dc.w L_InPof,L_FnPof			//$2B$1A$07$00
+	dc.b "po","f"+$80,"V00",-1
+	dc.w L_Nul,L_FnPort			//$01$00$08$00
+	dc.b "por","t"+$80,"00",-1
+	dc.w L_InOpenRandom,L_Nul		//$00$01$0F$00
+	dc.b "open rando","m"+$80,"I0,2",-1
+	dc.w L_InOpenIn,L_Nul			//$00$01$0B$00
+	dc.b "open i","n"+$80,"I0,2",-1
+	dc.w L_InOpenOut,L_Nul			//$00$01$0C$00
+	dc.b "open ou","t"+$80,"I0,2",-1
+	dc.w L_InOpenPort,L_Nul			//$00$01$0D$00
+	dc.b "open por","t"+$80,"I0,2",-1
+	dc.w L_InAppend,L_Nul			//$00$01$0A$00
+	dc.b "appen","d"+$80,"I0,2",-1
+	dc.w L_InClose0,L_Nul			//$00$01$0A$00
+	dc.b "!clos","e"+$80,"I",-2
+	dc.w L_InClose1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InParent,L_Nul			//$00$01$0A$00
+	dc.b "paren","t"+$80,"I",-1
+	dc.w L_InRename,L_Nul			//$00$01$0A$00
+	dc.b "renam","e"+$80,"I2t2",-1
+	dc.w L_InKill,L_Nul			//$00$01$08$00
+	dc.b "kil","l"+$80,"I2",-1
+	dc.w L_Nul,L_FnDrive			//$01$00$09$00
+	dc.b "driv","e"+$80,"02",-1
+	dc.w L_InField,L_Nul			//$19$01$09$00
+	dc.b "fiel","d"+$80,"I",-1
+	dc.w L_Nul,L_FnFileSelector1		//$01$26$0A$00
+	dc.b "!fsel","$"+$80,"22",-2
+	dc.w L_Nul,L_FnFileSelector2		//$01$26$05$00
+	dc.b $80,"22,2",-2
+	dc.w L_Nul,L_FnFileSelector3		//$01$26$05$00
+	dc.b $80,"22,2,2",-2
+	dc.w L_Nul,L_FnFileSelector4		//$01$26$05$00
+	dc.b $80,"22,2,2,2",-1
+
+* Instructions SPRITES
+	dc.w L_InSetSpriteBuffer,L_Nul		//$00$01$15$00
+	dc.b "set sprite buffe","r"+$80,"I0",-1
+	dc.w L_InSpriteOff0,L_Nul		//$00$01$0F$00
+	dc.b "!sprite of","f"+$80,"I",-2
+	dc.w L_InSpriteOff1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InSpritePriority,L_Nul		//$00$01$13$00
+	dc.b "sprite priorit","y"+$80,"I0",-1
+	dc.w L_InSpriteUpdateOff,L_Nul		//$00$01$15$00
+	dc.b "sprite update of","f"+$80,"I",-1
+	dc.w L_InSpriteUpdateOn,L_Nul		//$00$01$14$00
+	dc.b "sprite update o","n"+$80,"I",-1
+	dc.w L_InSpriteUpdate,L_Nul		//$00$01$11$00
+	dc.b "sprite updat","e"+$80,"I",-1
+	dc.w L_Nul,L_FnSpriteBobCol1		//$01$00$12$00
+	dc.b "!spritebob co","l"+$80,"00",-2
+	dc.w L_Nul,L_FnSpriteBobCol3		//$01$19$05$00
+	dc.b $80,"00,0t0",-1
+	dc.w L_Nul,L_FnSpriteCol1		//$01$00$0F$00
+	dc.b "!sprite co","l"+$80,"00",-2
+	dc.w L_Nul,L_FnSpriteCol3		//$01$19$05$00
+	dc.b $80,"00,0t0",-1
+	dc.w L_InSetHardcol,L_Nul		//$00$01$0F$00
+	dc.b "set hardco","l"+$80,"I0,0",-1
+	dc.w L_Nul,L_FnHardcol			//$01$00$0B$00
+	dc.b "hardco","l"+$80,"00",-1
+	dc.w L_Nul,L_FnSpriteBase		//$01$00$0F$00
+	dc.b "sprite bas","e"+$80,"00",-1
+	dc.w L_Nul,L_FnIconBase			//$01$00$0D$00
+	dc.b "icon bas","e"+$80,"00",-1
+	dc.w L_InSprite,L_Nul			//$00$01$0A$00
+	dc.b "sprit","e"+$80,"I0,0,0,0",-1
+
+	dc.w L_InBobOff0,L_Nul			//$00$01$0C$00
+	dc.b "!bob of","f"+$80,"I",-2
+	dc.w L_InBobOff1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InBobUpdateOff,L_Nul		//$00$01$12$00
+	dc.b "bob update of","f"+$80,"I",-1
+	dc.w L_InBobUpdateOn,L_Nul		//$00$01$11$00
+	dc.b "bob update o","n"+$80,"I",-1
+	dc.w L_InBobUpdate,L_Nul		//$00$01$0E$00
+	dc.b "bob updat","e"+$80,"I",-1
+	dc.w L_InBobClear,L_Nul			//$00$01$0D$00
+	dc.b "bob clea","r"+$80,"I",-1
+	dc.w L_InBobDraw,L_Nul			//$00$01$0C$00
+	dc.b "bob dra","w"+$80,"I",-1
+	dc.w L_Nul,L_FnBobSpriteCol1		//$01$00$12$00
+	dc.b "!bobsprite co","l"+$80,"00",-2
+	dc.w L_Nul,L_FnBobSpriteCol3		//$01$19$05$00
+	dc.b $80,"00,0t0",-1
+	dc.w L_Nul,L_FnBobCol1			//$01$00$0C$00
+	dc.b "!bob co","l"+$80,"00",-2
+	dc.w L_Nul,L_FnBobCol3			//$01$19$05$00
+	dc.b $80,"00,0t0",-1
+	dc.w L_Nul,L_FnCol			//$01$00$07$00
+	dc.b "co","l"+$80,"00",-1
+	dc.w L_InLimitBob0,L_Nul		//$00$01$0E$00
+	dc.b "!limit bo","b"+$80,"I",-2
+	dc.w L_InLimitBob4,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0t0,0",-2
+	dc.w L_InLimitBob5,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0t0,0",-1
+	dc.w L_InSetBob,L_Nul			//$00$01$0B$00
+	dc.b "set bo","b"+$80,"I0,0,0,0",-1
+	dc.w L_InBob,L_Nul			//$00$01$07$00
+	dc.b "bo","b"+$80,"I0,0,0,0",-1
+	dc.w L_InGetSpritePalette0,L_Nul	//$00$01$17$00
+	dc.b "!get sprite palett","e"+$80,"I",-2
+	dc.w L_InGetSpritePalette1,L_Nul	//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InGetSprite5,L_Nul		//$00$01$0F$00
+	dc.b "!get sprit","e"+$80,"I0,0,0t0,0",-2
+	dc.w L_InGetSprite6,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0t0,0",-1
+	dc.w L_InGetSprite5,L_Nul		//$00$01$0C$00
+	dc.b "!get bo","b"+$80,"I0,0,0t0,0",-2
+	dc.w L_InGetSprite6,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0,0,0t0,0",-1
+	dc.w L_InDelSprite1,L_Nul		//$00$01$0F$00
+	dc.b "!del sprit","e"+$80,"I0",-2
+	dc.w L_InDelSprite2,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0t0",-1
+	dc.w L_InDelSprite1,L_Nul		//$00$01$0C$00
+	dc.b "!del bo","b"+$80,"I0",-2
+	dc.w L_InDelSprite2,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0t0",-1
+	dc.w L_InDelIcon1,L_Nul			//$00$01$0D$00
+	dc.b "!del ico","n"+$80,"I0",-2
+	dc.w L_InDelIcon2,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0t0",-1
+	dc.w L_InInsSprite,L_Nul		//$00$01$0E$00
+	dc.b "ins sprit","e"+$80,"I0",-1
+	dc.w L_InInsSprite,L_Nul		//$00$01$0B$00
+	dc.b "ins bo","b"+$80,"I0",-1
+	dc.w L_InInsIcon,L_Nul			//$00$01$0C$00
+	dc.b "ins ico","n"+$80,"I0",-1
+	dc.w L_InGetIconPalette0,L_Nul		//$00$01$15$00
+	dc.b "!get icon palett","e"+$80,"I",-2
+	dc.w L_InGetIconPalette1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InGetIcon5,L_Nul			//$00$01$0D$00
+	dc.b "!get ico","n"+$80,"I0,0,0t0,0",-2
+	dc.w L_InGetIcon6,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0,0t0,0",-1
+	dc.w L_InPutBob,L_Nul			//$00$01$0B$00
+	dc.b "put bo","b"+$80,"I0",-1
+	dc.w L_InPasteBob,L_Nul			//$00$01$0D$00
+	dc.b "paste bo","b"+$80,"I0,0,0",-1
+	dc.w L_InPasteIcon,L_Nul		//$00$01$0E$00
+	dc.b "paste ico","n"+$80,"I0,0,0",-1
+	dc.w L_InMakeMask0,L_Nul		//$00$01$0E$00
+	dc.b "!make mas","k"+$80,"I",-2
+	dc.w L_InMakeMask1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InNoMask0,L_Nul			//$00$01$0C$00
+	dc.b "!no mas","k"+$80,"I",-2
+	dc.w L_InNoMask1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InMakeIconMask0,L_Nul		//$00$01$13$00
+	dc.b "!make icon mas","k"+$80,"I",-2
+	dc.w L_InMakeIconMask1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InNoIconMask0,L_Nul		//$00$01$11$00
+	dc.b "!no icon mas","k"+$80,"I",-2
+	dc.w L_InNoIconMask1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InHotSpot2,L_Nul			//$00$01$0D$00
+	dc.b "!hot spo","t"+$80,"I0,0",-2
+	dc.w L_InHotSpot3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0",-1
+	dc.w L_InPriorityOn,L_Nul		//$00$01$0F$00
+	dc.b "priority o","n"+$80,"I",-1
+	dc.w L_InPriorityOff,L_Nul		//$00$01$10$00
+	dc.b "priority of","f"+$80,"I",-1
+
+	dc.w L_InHideOn,L_Nul			//$00$01$0B$00
+	dc.b "hide o","n"+$80,"I",-1
+	dc.w L_InHide,L_Nul			//$00$01$08$00
+	dc.b "hid","e"+$80,"I",-1
+	dc.w L_InShowOn,L_Nul			//$00$01$0B$00
+	dc.b "show o","n"+$80,"I",-1
+	dc.w L_InShow,L_Nul			//$00$01$08$00
+	dc.b "sho","w"+$80,"I",-1
+	dc.w L_InChangeMouse,L_Nul		//$00$01$10$00
+	dc.b "change mous","e"+$80,"I0",-1
+	dc.w L_InXMouse,L_FnXMouse		//$2B$1A$0B$00
+	dc.b "x mous","e"+$80,"V0",-1
+	dc.w L_InYMouse,L_FnYMouse		//$2B$1A$0B$00
+	dc.b "y mous","e"+$80,"V0",-1
+	dc.w L_Nul,L_FnMouseKey			//$01$00$0D$00
+	dc.b "mouse ke","y"+$80,"0",-1
+	dc.w L_Nul,L_FnMouseClick		//$01$00$0F$00
+	dc.b "mouse clic","k"+$80,"0",-1
+	dc.w L_InLimitMouse0,L_Nul		//$00$01$10$00
+	dc.b "!limit mous","e"+$80,"I",-2
+	dc.w L_InLimitMouse1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-2
+	dc.w L_InLimitMouse4,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0,0t0,0",-1
+
+* AMAL!
+	dc.w L_InUnFreeze,L_Nul			//$00$01$0C$00
+	dc.b "unfreez","e"+$80,"I",-1
+	dc.w L_InMoveX2,L_Nul			//$00$01$0B$00
+	dc.b "!move ","x"+$80,"I0,3",-2
+	dc.w L_InMoveX3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,2t0",-1
+	dc.w L_InMoveY2,L_Nul			//$00$01$0B$00
+	dc.b "!move ","y"+$80,"I0,3",-2
+	dc.w L_InMoveY3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,2t0",-1
+	dc.w L_InMoveOff0,L_Nul			//$00$01$0D$00
+	dc.b "!move of","f"+$80,"I",-2
+	dc.w L_InMoveOff1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InMoveOn0,L_Nul			//$00$01$0C$00
+	dc.b "!move o","n"+$80,"I",-2
+	dc.w L_InMoveOn1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InMoveFreeze0,L_Nul		//$00$01$10$00
+	dc.b "!move freez","e"+$80,"I",-2
+	dc.w L_InMoveFreeze1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InAnimOff0,L_Nul			//$00$01$0D$00
+	dc.b "!anim of","f"+$80,"I",-2
+	dc.w L_InAnimOff1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InAnimOn0,L_Nul			//$00$01$0C$00
+	dc.b "!anim o","n"+$80,"I",-2
+	dc.w L_InAnimOn1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InAnimFreeze0,L_Nul		//$00$01$10$00
+	dc.b "!anim freez","e"+$80,"I",-2
+	dc.w L_InAnimFreeze1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InAnim2,L_Nul			//$00$01$08$00
+	dc.b "ani","m"+$80,"I0,3",-2
+	dc.w L_InAnim3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,2t0",-1
+	dc.w L_Nul,L_FnMovon			//$01$00$09$00
+	dc.b "movo","n"+$80,"00",-1
+	dc.w L_Nul,L_FnChanAn			//$01$00$0A$00
+	dc.b "chana","n"+$80,"00",-1
+	dc.w L_Nul,L_FnChanMv			//$01$00$0A$00
+	dc.b "chanm","v"+$80,"00",-1
+	dc.w L_InChannel,L_Nul			//$15$01$0B$00
+	dc.b "channe","l"+$80,"I",-1
+	dc.w L_InAmreg1,L_FnAmreg1		//$2B$1A$0A$00
+	dc.b "!amre","g"+$80,"V00",-2
+	dc.w L_InAmreg2,L_FnAmreg2		//$2B$1A$05$00
+	dc.b $80,"V00,0",-1
+	dc.w L_InAmalOn0,L_Nul			//$00$01$0C$00
+	dc.b "!amal o","n"+$80,"I",-2
+	dc.w L_InAmalOn1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InAmalOff0,L_Nul			//$00$01$0D$00
+	dc.b "!amal of","f"+$80,"I",-2
+	dc.w L_InAmalOff1,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InAmalFreeze0,L_Nul		//$00$01$10$00
+	dc.b "!amal freez","e"+$80,"I",-2
+	dc.w L_InAmalFreeze1,L_Nul		//$2D$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_Nul,L_FnAmalerr			//$01$00$0B$00
+	dc.b "amaler","r"+$80,"0",-1
+	dc.w L_InAmal2,L_Nul			//$00$01$09$00
+	dc.b "!ama","l"+$80,"I0,3",-2
+	dc.w L_InAmal3,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,2t0",-1
+	dc.w L_InAmPlay2,L_Nul			//$00$01$0B$00
+	dc.b "!ampla","y"+$80,"I0,0",-2
+	dc.w L_InAmPlay4,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0t0",-1
+	dc.w L_InSynchroOn,L_Nul		//$00$01$0E$00
+	dc.b "synchro o","n"+$80,"I",-1
+	dc.w L_InSynchroOff,L_Nul		//$00$01$0F$00
+	dc.b "synchro of","f"+$80,"I",-1
+	dc.w L_InSynchro,L_Nul			//$00$01$0B$00
+	dc.b "synchr","o"+$80,"I",-1
+	dc.w L_InUpdateOff,L_Nul		//$00$01$0E$00
+	dc.b "update of","f"+$80,"I",-1
+	dc.w L_InUpdateOn,L_Nul			//$00$01$0D$00
+	dc.b "update o","n"+$80,"I",-1
+	dc.w L_InUpdateEvery,L_Nul		//$00$01$10$00
+	dc.b "update ever","y"+$80,"I0",-1
+	dc.w L_InUpdate,L_Nul			//$00$01$0A$00
+	dc.b "updat","e"+$80,"I",-1
+	dc.w L_Nul,L_FnXBob			//$01$00$09$00
+	dc.b "x bo","b"+$80,"00",-1
+	dc.w L_Nul,L_FnYBob			//$01$00$09$00
+	dc.b "y bo","b"+$80,"00",-1
+	dc.w L_Nul,L_FnXSprite			//$01$00$0C$00
+	dc.b "x sprit","e"+$80,"00",-1
+	dc.w L_Nul,L_FnYSprite			//$01$00$0C$00
+	dc.b "y sprit","e"+$80,"00",-1
+
+* Memoire / Banques
+	dc.w L_InResWork,L_Nul			//$00$01$13$00
+	dc.b "reserve as wor","k"+$80,"I0,0",-1
+	dc.w L_InResChipWork,L_Nul		//$00$01$18$00
+	dc.b "reserve as chip wor","k"+$80,"I0,0",-1
+	dc.w L_InResData,L_Nul			//$00$01$13$00
+	dc.b "reserve as dat","a"+$80,"I0,0",-1
+	dc.w L_InResChipData,L_Nul		//$00$01$18$00
+	dc.b "reserve as chip dat","a"+$80,"I0,0",-1
+	dc.w L_InErase,L_Nul			//$00$01$09$00
+	dc.b "eras","e"+$80,"I0",-1
+	dc.w L_InListBank,L_Nul			//$00$01$0D$00
+	dc.b "list ban","k"+$80,"I",-1
+	dc.w L_Nul,L_FnChipFree			//$01$00$0D$00
+	dc.b "chip fre","e"+$80,"0",-1
+	dc.w L_Nul,L_FnFastFree			//$01$00$0D$00
+	dc.b "fast fre","e"+$80,"0",-1
+	dc.w L_InFill,L_Nul			//$00$01$08$00
+	dc.b "fil","l"+$80,"I0t0,0",-1
+	dc.w L_InCopy,L_Nul			//$00$01$08$00
+	dc.b "cop","y"+$80,"I0,0t0",-1
+	dc.w L_Nul,L_FnHunt			//$01$00$08$00
+	dc.b "hun","t"+$80,"00t0,2",-1
+	dc.w L_InPoke,L_Nul			//$00$01$08$00
+	dc.b "pok","e"+$80,"I0,0",-1
+	dc.w L_InLoke,L_Nul			//$00$01$08$00
+	dc.b "lok","e"+$80,"I0,0",-1
+	dc.w L_Nul,L_FnPeek			//$01$00$08$00
+	dc.b "pee","k"+$80,"00",-1
+	dc.w L_Nul,L_FnDeek			//$01$00$08$00
+	dc.b "dee","k"+$80,"00",-1
+	dc.w L_Nul,L_FnLeek			//$01$00$08$00
+	dc.b "lee","k"+$80,"00",-1
+	dc.w L_InBset,L_NoFlag			//$56$01$08$00
+	dc.b "bse","t"+$80,"I0,0",-1
+	dc.w L_InBclr,L_NoFlag			//$56$01$08$00
+	dc.b "bcl","r"+$80,"I0,0",-1
+	dc.w L_InBchg,L_NoFlag			//$56$01$08$00
+	dc.b "bch","g"+$80,"I0,0",-1
+	dc.w L_NoFlag,L_FnBtst			//$01$27$08$00
+	dc.b "bts","t"+$80,"00,0",-1
+ 	dc.w L_InRorB,L_NoFlag			//$56$01$09$00
+	dc.b "ror.","b"+$80,"I0,0",-1
+ 	dc.w L_InRorW,L_NoFlag			//$56$01$09$00
+	dc.b "ror.","w"+$80,"I0,0",-1
+ 	dc.w L_InRorL,L_NoFlag			//$56$01$09$00
+	dc.b "ror.","l"+$80,"I0,0",-1
+ 	dc.w L_InRolB,L_NoFlag			//$56$01$09$00
+	dc.b "rol.","b"+$80,"I0,0",-1
+ 	dc.w L_InRolW,L_NoFlag			//$56$01$09$00
+	dc.b "rol.","w"+$80,"I0,0",-1
+ 	dc.w L_InRolL,L_NoFlag			//$56$01$09$00
+	dc.b "rol.","l"+$80,"I0,0",-1
+	dc.w L_InAReg,L_FnAReg			//$2B$1A$08$00
+	dc.b "are","g"+$80,"V00",-1
+	dc.w L_InDReg,L_FnDReg			//$2B$1A$08$00
+	dc.b "dre","g"+$80,"V00",-1
+
+* Copper
+	dc.w L_InCopOn,L_Nul			//$00$01$0D$00
+	dc.b "copper o","n"+$80,"I",-1
+	dc.w L_InCopOff,L_Nul			//$00$01$0E$00
+	dc.b "copper of","f"+$80,"I",-1
+	dc.w L_InCopSwap,L_Nul			//$00$01$0C$00
+	dc.b "cop swa","p"+$80,"I",-1
+	dc.w L_InCopReset,L_Nul			//$00$01$0D$00
+	dc.b "cop rese","t"+$80,"I",-1
+	dc.w L_InCopWait2,L_Nul	 		//$00$01$0D$00
+	dc.b "!cop wai","t"+$80,"I0,0",-2
+	dc.w L_InCopWait4,L_Nul			//$2D$01$05$00
+	dc.b $80,"I0,0,0,0",-1
+	dc.w L_InCopMoveL,L_Nul			//$00$01$0D$00
+	dc.b "cop move","l"+$80,"I0,0",-1
+	dc.w L_InCopMove,L_Nul			//$00$01$0C$00
+	dc.b "cop mov","e"+$80,"I0,0",-1
+	dc.w L_Nul,L_FnCopLogic			//$01$00$0D$00
+	dc.b "cop logi","c"+$80,"0",-1
+
+* Instructions programmes/accessoires
+	dc.w L_Nul,L_FnPrgFirst			//$01$00$0E$00
+	dc.b "prg first","$"+$80,"22",-1
+	dc.w L_Nul,L_FnFillNext			//$01$00$0D$00
+	dc.b "prg next","$"+$80,"2",-1
+	dc.w L_Nul,L_FnPSel			//$01$00$0A$00
+	dc.b "!psel","$"+$80,"22",-2
+	dc.w L_Nul,L_FnPSel			//$01$19$05$00
+	dc.b $80,"22,2",-2
+	dc.w L_Nul,L_FnPSel			//$01$19$05$00
+	dc.b $80,"22,2,2",-2
+	dc.w L_Nul,L_FnPSel			//$01$19$05$00
+	dc.b $80,"22,2,2,2",-1
+	dc.w L_InPRun,L_Nul			//$00$01$08$00
+	dc.b "pru","n"+$80,"I2",-1
+	dc.w L_InBGrab,L_Nul			//$00$01$09$00
+	dc.b "bgra","b"+$80,"I0",-1
+
+* En dernier!
+	dc.w L_InPut,L_Nul			//$00$01$07$00
+	dc.b "pu","t"+$80,"I0,0",-1
+	dc.w L_InGet,L_Nul			//$00$01$07$00
+	dc.b "ge","t"+$80,"I0,0",-1
+	dc.w L_InSystem,L_Nul			//$00$01$0A$00
+	dc.b "syste","m"+$80,"I",-1
+	dc.w L_InMWait,L_Nul			//$00$01$0E$00
+	dc.b "multi wai","t"+$80,"I",-1
+	dc.w L_Nul,L_FnIBob			//$01$00$09$00
+	dc.b "i bo","b"+$80,"00",-1
+	dc.w L_Nul,L_FnISprite			//$01$00$0C$00
+	dc.b "i sprit","e"+$80,"00",-1
+	dc.w L_InPriorityReverseOn,L_Nul	//$00$01$17$00
+	dc.b "priority reverse o","n"+$80,"I",-1
+	dc.w L_InPriorityReverseOff,L_Nul	//$00$01$18$00
+	dc.b "priority reverse of","f"+$80,"I",-1
+	dc.w L_Nul,L_FnDevFirst			//$01$00$0E$00
+	dc.b "dev first","$"+$80,"22",-1
+	dc.w L_Nul,L_FnFillNext			//$01$00$0D$00
+	dc.b "dev next","$"+$80,"2",-1
+	dc.w L_InHRevBlock,L_Nul		//$00$01$0E$00
+	dc.b "hrev bloc","k"+$80,"I0",-1
+	dc.w L_InVRevBlock,L_Nul		//$00$01$0E$00
+	dc.b "vrev bloc","k"+$80,"I0",-1
+	dc.w L_Nul,L_FnHRev			//$01$00$08$00
+	dc.b "hre","v"+$80,"00",-1
+	dc.w L_Nul,L_FnVRev			//$01$00$08$00
+	dc.b "vre","v"+$80,"00",-1
+	dc.w L_Nul,L_FnRev			//$01$00$07$00
+	dc.b "re","v"+$80,"00",-1
+	dc.w L_InBankSwap,L_Nul			//$00$01$0D$00
+	dc.b "bank swa","p"+$80,"I0,0",-1
+	dc.w L_InAmosToFront,L_Nul		//$00$01$11$00
+	dc.b "amos to fron","t"+$80,"I",-1
+	dc.w L_InAmosToBack,L_Nul		//$00$01$10$00
+	dc.b "amos to bac","k"+$80,"I",-1
+	dc.w L_Nul,L_FnAmosHere			//$01$00$0D$00
+	dc.b "amos her","e"+$80,"0",-1
+	dc.w L_InAmosLock,L_Nul			//$10$01$0D$00
+	dc.b "amos loc","k"+$80,"I",-1
+	dc.w L_InAmosUnlock,L_Nul		//$00$01$0F$00
+	dc.b "amos unloc","k"+$80,"I",-1
+	dc.w L_Nul,L_FnDisplayHeight		//$01$00$12$00
+	dc.b "display heigh","t"+$80,"0",-1
+	dc.w L_Nul,L_FnNTSC			//$01$00$08$00
+	dc.b "nts","c"+$80,"0",-1
+	dc.w L_Nul,L_FnLaced			//$01$00$09$00
+	dc.b "lace","d"+$80,"0",-1
+	dc.w L_Nul,L_FnPrgState			//$01$00$0D$00
+	dc.b "prg stat","e"+$80,"0",-1
+	dc.w L_InCommandLine,L_FnCommandLine	//$2B$1A$11$00
+	dc.b "command line","$"+$80,"V2",-1
+	dc.w L_Nul,L_FnDiscInfo			//$01$00$0E$00
+	dc.b "disc info","$"+$80,"22",-1
+; Nouvelles fonctions AMOSPro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.w L_Syntax,L_Syntax			//$01$01$14$00
+	dc.b "\\\\\\\\\\\\\\\","/"+$80,"I",-1
+	dc.w L_InNull,L_Nul			//$24$01$11$00
+	dc.b "set accessor","y"+$80,"I",-1
+	dc.w L_In_apml_,L_Nul			//$55$01$0C$00
+	dc.b "@_apml_","@"+$80,"I",-1
+	dc.w L_InTrap,L_Nul			//$25$01$08$00
+	dc.b "tra","p"+$80,"I",-1
+	dc.w L_InElse,L_Nul			//$3C$02$0C$12
+	dc.b "else if"," "+$80,-1
+	dc.w L_Nul,L_Nul			//$29$01$0B$00
+	dc.b "includ","e"+$80,"I2",-1
+	dc.w L_NoFlag,L_FnArray			//$01$0E$09$00
+	dc.b "arra","y"+$80,"03",-1
+
+	dc.w L_Nul,L_FnFormLoad2		//$01$00$0F$00
+	dc.b "!frame loa","d"+$80,"00t0",-2
+	dc.w L_Nul,L_FnFormLoad3		//$01$19$05$00
+	dc.b $80,"00t0,0",-1
+	dc.w L_Nul,L_FnFormPlay2		//$01$00$0F$00
+	dc.b "!frame pla","y"+$80,"00,0",-2
+	dc.w L_Nul,L_FnFormPlay3		//$01$19$05$00
+	dc.b $80,"00,0,0",-1
+	dc.w L_InIffAnim2,L_Nul			//$29$01$0D$00
+	dc.b "!iff ani","m"+$80,"I2t0",-2
+	dc.w L_InIffAnim3,L_Nul			//$29$01$05$00
+	dc.b $80,"I2t0,0",-1
+	dc.w L_Nul,L_FnFormLength1		//$01$00$11$00
+	dc.b "!frame lengt","h"+$80,"00",-2
+	dc.w L_Nul,L_FnFormLength2		//$01$19$05$00
+	dc.b $80,"00,0",-1
+	dc.w L_Nul,L_FnFormSkip1		//$01$00$0F$00
+	dc.b "!frame ski","p"+$80,"00",-2
+	dc.w L_Nul,L_FnFormSkip2		//$01$19$05$00
+	dc.b $80,"00,0",-1
+	dc.w L_Nul,L_FnFormParam		//$01$00$10$00
+	dc.b "!frame para","m"+$80,"0",-1
+	dc.w L_InCallEditor1,L_Nul		//$29$01$10$00
+	dc.b "!call edito","r"+$80,"I0",-2
+	dc.w L_InCallEditor2,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0,0",-2
+	dc.w L_InCallEditor3,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0,0,2",-1
+	dc.w L_InAskEditor1,L_Nul		//$29$01$0F$00
+	dc.b "!ask edito","r"+$80,"I0",-2
+	dc.w L_InAskEditor2,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0,0",-2
+	dc.w L_InAskEditor3,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0,0,2",-1
+	dc.w L_InEraseTemp,L_Nul		//$29$01$0E$00
+	dc.b "erase tem","p"+$80,"I",-1
+	dc.w L_InEraseAll,L_Nul			//$29$01$0D$00
+	dc.b "erase al","l"+$80,"I",-1
+; Dialogues
+	dc.w L_Nul,L_FnDialogBox1		//$01$25$0F$00
+	dc.b "!dialog bo","x"+$80,"03",-2
+	dc.w L_Nul,L_FnDialogBox2		//$01$25$05$00
+	dc.b $80,"03,0",-2
+	dc.w L_Nul,L_FnDialogBox3		//$01$25$05$00
+	dc.b $80,"03,0,2",-2
+	dc.w L_Nul,L_FnDialogBox5		//$01$25$05$00
+	dc.b $80,"03,0,2,0,0",-1
+	dc.w L_InDialogOpen2,L_Nul		//$50$01$10$00
+	dc.b "!dialog ope","n"+$80,"I0,3",-2
+	dc.w L_InDialogOpen3,L_Nul		//$50$01$05$00
+	dc.b $80,"I0,3,0",-2
+	dc.w L_InDialogOpen4,L_Nul		//$50$01$05$00
+	dc.b $80,"I0,3,0,0",-1
+	dc.w L_InDialogClose0,L_Nul		//$50$01$11$00
+	dc.b "!dialog clos","e"+$80,"I",-2
+	dc.w L_InDialogClose1,L_Nul		//$50$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_Nul,L_FnDialogRun1		//$01$25$0F$00
+	dc.b "!dialog ru","n"+$80,"00",-2
+	dc.w L_Nul,L_FnDialogRun2		//$01$25$05$00
+	dc.b $80,"00,0",-2
+	dc.w L_Nul,L_FnDialogRun4		//$01$25$05$00
+	dc.b $80,"00,0,0,0",-1
+	dc.w L_Nul,L_FnDialog			//$01$25$0A$00
+	dc.b "dialo","g"+$80,"00",-1
+	dc.w L_InVDialog,L_FnVDialog		//$2C$1A$0B$00
+	dc.b "vdialo","g"+$80,"V00,0",-1
+	dc.w L_InVDialogD,L_FnVDialogD		//$2C$1A$0C$00
+	dc.b "vdialog","$"+$80,"V20,0",-1
+	dc.w L_Nul,L_FnRDialog2			//$01$25$0C$00
+	dc.b "!rdialo","g"+$80,"00,0",-2
+	dc.w L_Nul,L_FnRDialog3			//$01$25$05$00
+	dc.b $80,"00,0,0",-1
+	dc.w L_Nul,L_FnRDialogD2		//$01$25$0D$00
+	dc.b "!rdialog","$"+$80,"20,0",-2
+	dc.w L_Nul,L_FnRDialogD3		//$01$25$05$00
+	dc.b $80,"20,0,0",-1
+	dc.w L_Nul,L_FnEDialog			//$01$25$0B$00
+	dc.b "edialo","g"+$80,"0",-1
+	dc.w L_InDialogClr,L_Nul		//$50$01$0E$00
+	dc.b "dialog cl","r"+$80,"I0",-1
+	dc.w L_InDialogUpdate2,L_Nul		//$50$01$12$00
+	dc.b "!dialog updat","e"+$80,"I0,0",-2
+	dc.w L_InDialogUpdate3,L_Nul		//$50$01$05$00
+	dc.b $80,"I0,0,3",-2
+	dc.w L_InDialogUpdate4,L_Nul		//$50$01$05$00
+	dc.b $80,"I0,0,3,0",-2
+	dc.w L_InDialogUpdate5,L_Nul		//$50$01$05$00
+	dc.b $80,"I0,0,3,0,0",-1
+	dc.w L_InDialogFreeze0,L_Nul		//$50$01$12$00
+	dc.b "!dialog freez","e"+$80,"I",-2
+	dc.w L_InDialogFreeze1,L_Nul		//$50$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InDialogUnFreeze0,L_Nul		//$50$01$14$00
+	dc.b "!dialog unfreez","e"+$80,"I",-2
+	dc.w L_InDialogUnFreeze1,L_Nul		//$50$01$05$00
+	dc.b $80,"I0",-1
+
+	dc.w L_InPokeD,L_Nul			//$29$01$09$00
+	dc.b "poke","$"+$80,"I0,2",-1
+	dc.w L_Nul,L_FnPeekD2			//$01$00$0A$00
+	dc.b "!peek","$"+$80,"20,0",-2
+	dc.w L_Nul,L_FnPeekD3			//$01$19$05$00
+	dc.b $80,"20,0,2",-1
+	dc.w L_InResourceBank,L_Nul		//$50$01$11$00
+	dc.b "resource ban","k"+$80,"I0",-1
+	dc.w L_Nul,L_FnResource			//$01$25$0D$00
+	dc.b "resource","$"+$80,"20",-1
+	dc.w L_InResourceScreenOpen,L_Nul	//$50$01$18$00
+	dc.b "resource screen ope","n"+$80,"I0,0,0,0",-1
+	dc.w L_InResourceUnpack,L_Nul		//$50$01$13$00
+	dc.b "resource unpac","k"+$80,"I0,0,0",-1
+	dc.w L_InReadText1,L_Nul		//$50$01$0D$00
+	dc.b "read tex","t"+$80,"I2",-2
+	dc.w L_InReadText3,L_Nul		//$50$01$05$00
+	dc.b $8C,"I2,0,0",-1
+	dc.w L_Nul,L_FnErrD			//$01$00$08$00
+	dc.b "err","$"+$80,"20",-1
+	dc.w L_InAssign,L_Nul			//$29$01$0A$00
+	dc.b "assig","n"+$80,"I2t2",-1
+	dc.w L_Nul,L_FnErrTrap			//$01$00$0B$00
+	dc.b "errtra","p"+$80,"0",-1
+	dc.w L_InDevOpen,L_Nul			//$29$01$0C$00
+	dc.b "dev ope","n"+$80,"I0,2,0,0,0",-1
+	dc.w L_InDevClose0,L_Nul		//$29$01$0E$00
+	dc.b "!dev clos","e"+$80,"I",-2
+	dc.w L_InDevClose1,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_Nul,L_FnDevBase			//$01$00$0C$00
+	dc.b "dev bas","e"+$80,"00",-1
+	dc.w L_InDevDo,L_Nul			//$29$01$0A$00
+	dc.b "dev d","o"+$80,"I0,0",-1
+	dc.w L_InDevSend,L_Nul			//$29$01$0C$00
+	dc.b "dev sen","d"+$80,"I0,0",-1
+	dc.w L_InDevAbort,L_Nul			//$29$01$0D$00
+	dc.b "dev abor","t"+$80,"I0",-1
+        dc.w L_Nul,L_FnDevCheck			//$29$00$0D$00
+        dc.b "dev chec","k"+$80,"00",-1
+	dc.w L_InLibOpen,L_Nul			//$29$01$0C$00
+	dc.b "lib ope","n"+$80,"I0,2,0",-1
+	dc.w L_InLibClose0,L_Nul		//$29$01$0E$00
+	dc.b "!lib clos","e"+$80,"I",-2
+	dc.w L_InLibClose1,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_Nul,L_FnLibCall			//$01$00$0C$00
+	dc.b "lib cal","l"+$80,"00,0",-1
+	dc.w L_Nul,L_FnLibBase			//$01$00$0C$00
+	dc.b "lib bas","e"+$80,"00",-1
+	dc.w L_NoFlag,L_FnEqu			//$01$0C$07$10
+	dc.b "eq","u"+$80,"02",-1
+	dc.w L_NoFlag,L_FnEqu			//$01$10$07$10
+        dc.b "lv","o"+$80,"02",-1
+	dc.w L_InStruc,L_NoFlag			//$26$11$09$10
+	dc.b "stru","c"+$80,"V00,2",-1
+	dc.w L_InStrucD,L_NoFlag		//$27$12$0A$10
+	dc.b "struc","$"+$80,"V20,2",-1
+	dc.w L_Nul,L_FnBStart			//$01$00$0A$00
+	dc.b "bstar","t"+$80,"00",-1
+	dc.w L_Nul,L_FnBLength			//$01$00$0B$00
+	dc.b "blengt","h"+$80,"00",-1
+	dc.w L_InBSend,L_Nul			//$29$01$09$00
+	dc.b "bsen","d"+$80,"I0",-1
+	dc.w L_InBankSchrink,L_Nul		//$29$01$0F$00
+	dc.b "bank shrin","k"+$80,"I0t0",-1
+	dc.w L_Nul,L_FnPrgUnder			//$01$00$0D$00
+	dc.b "prg unde","r"+$80,"0",-1
+	dc.w L_InArexxOpen,L_Nul		//$29$01$0E$00
+	dc.b "arexx ope","n"+$80,"I2",-1
+	dc.w L_InArexxClose,L_Nul		//$29$01$0F$00
+	dc.b "arexx clos","e"+$80,"I",-1
+	dc.w L_Nul,L_FnArexxExist		//$01$00$0F$00
+	dc.b "arexx exis","t"+$80,"02",-1
+	dc.w L_Nul,L_FnArexx			//$01$00$09$00
+	dc.b "arex","x"+$80,"0",-1
+	dc.w L_Nul,L_FnArexxD			//$01$00$0A$00
+	dc.b "arexx","$"+$80,"20",-1
+	dc.w L_InArexxWait,L_Nul		//$29$01$0E$00
+	dc.b "arexx wai","t"+$80,"I",-1
+	dc.w L_InArexxAnswer1,L_Nul		//$29$01$11$00
+	dc.b "!arexx answe","r"+$80,"I0",-2
+	dc.w L_InArexxAnswer2,L_Nul		//$2A$01$05$00
+	dc.b $80,"I0,2",-1
+	dc.w L_InExec,L_Nul			//$29$01$08$00
+	dc.b "exe","c"+$80,"I2",-1
+	dc.w L_InMonitor,L_Nul			//$29$01$0B$00
+	dc.b "monito","r"+$80,"I",-1
+	dc.w L_Nul,L_FnScreenMode		//$01$00$0F$00
+	dc.b "screen mod","e"+$80,"0",-1
+* Constante double precision!
+	dc.w L_Nul,L_FnCstDFl			//$01$16$05$11
+	dc.b $80,"C3",-1
+	dc.w L_InKillEditor,L_Nul		//$29$01$0F$00
+	dc.b "kill edito","r"+$80,"I",-1
+	dc.w L_InNull,L_Nul     		//$04$01$18$00
+	dc.b "set double precisio","n"+$80,"I",-1
+	dc.w L_InSetBuffer,L_Nul		//$05$01$0D$00
+	dc.b "set stac","k"+$80,"I",-1
+	dc.w L_InGetSpritePalette0,L_Nul	//$29$01$14$00
+	dc.b "!get bob palett","e"+$80,"I",-2
+	dc.w L_InGetSpritePalette1,L_Nul	//$2A$01$05$00
+	dc.b $80,"I0",-1
+	dc.w L_InSetBuffer,L_Nul		//$29$01$13$00
+	dc.b "set equate ban","k"+$80,"I0",-1
+	dc.w L_Nul,L_FnZDialog			//$01$00$0B$00
+	dc.b "zdialo","g"+$80,"00,0,0",-1
+	dc.w L_InAPCmp,L_Nul			//$57$01$0D$00
+	dc.b "||apcmp|","|"+$80,"I",-1
+	dc.w 0
+
+;	TOKEN_END
+.TokenEnd
+; 	Indication des swap floats
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.b	"FSwp"
+	dc.w	L_Start_FloatSwap,L_End_FloatSwap
+
+;	Prive pour le compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.b	"ComP"
+	dc.w	3*4+2
+	dc.w	L_MainLibrary
+	dc.w	L_Start_Externes,L_End_Externes
+	dc.w	L_Start_FloatSwap,L_End_FloatSwap
+	dc.w	L_Start_Type,L_End_Type
+
+; 	Inclusion de la table de test rapide...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.b 	"KwiK"
+	dc.w	.Fin-.Debut
+.Debut	IncBin	"+Toktab_Verif.Bin"
+.Fin
+
+;	Decalage au debut de la librairie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Here	dc.l	.TokenEnd-.Here
+
+;---------------------------------------------------------------------
+;   +++  +++  ++   ++ ++++  ++++ ++    ++    ++   ++   ++  +++   +++
+;  ++   ++ ++ +++ +++ ++ ++  ++  ++    ++   ++++  +++ +++ ++ ++ ++
+;  ++   ++ ++ ++ + ++ ++ ++  ++  ++   ++   ++  ++ ++ + ++ ++ ++  +++
+;  ++   ++ ++ ++   ++ ++++   ++  ++        ++++++ ++   ++ ++ ++    ++
+;  ++   ++ ++ ++   ++ ++     ++  ++        ++  ++ ++   ++ ++ ++ +  ++
+;   +++  +++  ++   ++ ++    ++++ ++++      ++  ++ ++   ++  +++   +++
+;---------------------------------------------------------------------
+; ROUTINES
+;---------------------------------------------------------------------
+C_Lib
+;---------------------------------------------------------------------
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INCLUSION DE LA LIBRARIE INTERNE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Include	"+ILib.s"
+; - - - - - - - - - - - - -
+	Lib_Def	MainLibrary
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERRN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnErrn
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	ErrorOn(a5),d3
+	beq.s	.Skip
+	subq.w	#1,d3
+.Skip	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=ERR$(b)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnErrD
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	addq.l	#1,d0
+	move.l	Ed_RunMessages(a5),a0
+	Rjsr	L_GetMessage
+	move.l	a0,a2
+	Rbra	L_Mes2Chaine
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SGN (fmath)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnSgn			Integer
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbmi	L_FnTrue
+	Rbne	L_FnOne
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FnSgnF			Float / Double
+; - - - - - - - - - - - - -
+	Rjsrt	L_Float_Test
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=STR$ (fmath)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnStrE			ENTIER
+; - - - - - - - - - - - - -
+	move.l 	d3,d2
+        moveq	#16,d3
+        Rjsr 	L_Demande
+        lea 	2(a0),a0
+        move.l 	d2,d0
+	moveq	#-1,d3         		;proportionnel
+	moveq 	#1,d4         		;avec signe
+        Rjsr 	L_LongToAsc	      	;fait la conversion
+        Rbra 	L_FinBin
+; - - - - - - - - - - - - -
+	Lib_Def FnStrF			FLOAT/DOUBLE
+; - - - - - - - - - - - - -
+	movem.l	d3/d4,-(sp)
+        moveq 	#40,d3
+        Rjsr 	L_Demande
+        movem.l	(sp)+,d3/d4
+	lea	2(a0),a0
+	RjsrtR	L_Float2Ascii,2
+        Rbra 	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ABS (FMath)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnAbs			Integer
+; - - - - - - - - - - - - -
+	tst.l	d3
+	bpl.s	.Skip
+	neg.l	d3
+.Skip	rts
+; - - - - - - - - - - - - -
+	Lib_Def FnAbsF			Float + DFloat
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPAbs,d2
+	Rjmpt	L_Float_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INT (FMath)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnInt			Integer
+; - - - - - - - - - - - - -
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def FnIntF			Float + DFloat
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPFloor,d2
+	Rjmpt	L_Float_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TAN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnTan
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPTan,d2		Float + DFloat
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SQR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSqr
+; - - - - - - - - - - - - -
+	Rjsrt	L_FlPos
+	moveq	#_LVOSPSqrt,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Log10
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLog
+; - - - - - - - - - - - - -
+	Rjsrt	L_FlPos
+	moveq	#_LVOSPLog10,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Ln
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLn
+; - - - - - - - - - - - - -
+	Rjsrt	L_FlPos
+	moveq	#_LVOSPLog,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EXP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnExp
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPExp,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SIN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSin
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPSin,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnCos
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPCos,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ASIN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnASin
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPAsin,d2
+	Rjmpt	L_AAngle
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ACOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnACos
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPAcos,d2
+	Rjmpt	L_AAngle
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ATAN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnATan
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPAtan,d2
+	Rjmpt	L_AAngle
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HSIN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnHSin
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPSinh,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HCOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnHCos
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPCosh,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HTAN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnHTan
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPTanh,d2
+	Rjmpt	L_Math_Fonction
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RADIUS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRadian
+; - - - - - - - - - - - - -
+	clr.w	Angle(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEGREE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDegree
+; - - - - - - - - - - - - -
+	move.w	#-1,Angle(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FIX
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InFix
+; - - - - - - - - - - - - -
+        tst.l 	d3
+        bmi.s 	.ifx2
+        clr 	ExpFlg(a5)
+.ifx0   cmp.l 	#16,d3
+        bcs.s 	.ifx1
+        move 	#-1,d3
+.ifx1   move 	d3,FixFlg(a5)
+	bra.s	.Ret
+.ifx2   neg.l 	d3
+        move.w 	#1,ExpFlg(a5)
+        bra.s 	.ifx0
+.Ret	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RND
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnRnd
+; - - - - - - - - - - - - -
+	tst.l	d3
+	bne.s	Rnd1
+* Ramene le dernier
+	move.l	OldRnd(a5),d3
+	Ret_Int
+* Calcule!
+Rnd1	moveq	#0,d2
+	tst.l	d3
+	bmi.s	Rnd0
+	moveq	#-1,d2
+	bra.s	Rnd0a
+Rnd0	neg.l	d3
+Rnd0a	move.l	#$FFFFFF,d4
+	moveq	#23,d0
+Rnd2	lsr.l	#1,d4
+	cmp.l	d3,d4
+	dbcs	d0,Rnd2
+	roxl.l	#1,d4
+Rnd4	bsr	RRnd
+	move.w	$dff006,d0
+	and.w	d2,d0
+	add.w	d0,d1
+	and.l	d4,d1
+	cmp.l	d3,d1
+	bhi.s	Rnd4
+	move.l	d1,OldRnd(a5)
+	move.l	d1,d3
+	Ret_Int
+RRnd:	movem.l	d2-d3,-(sp)
+	move.l 	Seed(a5),d3
+	move.l	#$bb40e62d,d2
+	Rbsr	L_Mulu32
+	addq.l	#1,d1
+	move.l	d1,Seed(a5)
+	lsr.l	#8,d1
+	movem.l	(sp)+,d2-d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MULTIPLICATION 32 BITS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Mulu32
+; - - - - - - - - - - - - -
+	move d2,d1
+        mulu d3,d1
+        swap d2
+        move d2,d0
+        mulu d3,d0
+        swap d0
+        add.l d0,d1
+        swap d3
+        move d2,d0
+        mulu d3,d0
+        swap d2
+        move d2,d0
+        mulu d3,d0
+        swap d0
+        add.l d0,d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RANDOMIZE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InRandom
+; - - - - - - - - - - - - -
+	move.l	d3,Seed(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TIMER=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTimer
+; - - - - - - - - - - - - -
+	move.l	d3,T_VblTimer(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=TIMER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnTimer
+; - - - - - - - - - - - - -
+	move.l	T_VblTimer(a5),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=PI#
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnPi
+; - - - - - - - - - - - - -
+	move.l	ValPi(a5),d3
+	move.l	ValPi+4(a5),d4
+	Ret_Float
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WAIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InWait
+; - - - - - - - - - - - - -
+InWait	tst.l	d3
+	Rbmi	L_FonCall
+	beq.s	.Event
+	Rbsr	L_Wait_Normal
+	bra.s	.Ret
+.Event	Rbsr	L_Wait_Event
+.Ret	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Wait avec branchement
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def Wait_Normal
+; - - - - - - - - - - - - -
+	add.l	T_VblCount(a5),d3
+.Loop	cmp.l	T_VblCount(a5),d3
+	bls.s	.Ok
+	move.l	d3,-(sp)
+	Rjsr	L_Sys_WaitMul
+	Rjsr	L_Test_Normal
+	move.l	(sp)+,d3
+	bra.s	.Loop
+.Ok	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Wait sans branchement (extensions)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	WaitRout
+; - - - - - - - - - - - - -
+	add.l	T_VblCount(a5),d3
+.Loop	cmp.l	T_VblCount(a5),d3
+	bls.s	.Exit
+	move.l	d3,-(sp)
+	Rjsr	L_Test_PaSaut
+	move.l	(sp)+,d3
+	bra.s	.Loop
+.Exit	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Wait Event
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Wait_Event
+; - - - - - - - - - - - - -
+.Loop	Rjsr	L_Sys_WaitMul
+	Rjsr	L_Test_Normal
+	bra.s	.Loop
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Multi Wait
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMWait
+; - - - - - - - - - - - - -
+	Rjsr	L_Sys_WaitMul
+	Rjsr	L_Test_Normal
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Wait VBL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWtVbl
+; - - - - - - - - - - - - -
+	SyCall	WaitVbl
+	Rjsr	L_Test_Normal
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Wait Key
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWtKy
+; - - - - - - - - - - - - -
+.Loop	SyCall	Inkey
+
+	IFNE	Debug>1
+	btst	#6,$BFE001
+	bne.s	.skip
+	moveq	#25,d2
+.wt	SyCall	WaitVbl
+	dbra	d2,.wt
+	Rjsr	L_BugBug
+.skip
+	ENDC
+	tst.l	d1
+	bne.s	.Ok
+	Rjsr	L_Sys_WaitMul
+	Rjsr	L_Test_Normal
+	bra.s	.Loop
+.Ok	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					KEY SPEED delai,vitesse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InKeySpeed
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	move.l	Buffer(a5),a1
+	SyCall	KeySpeed
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PARAM string
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnParamS
+; - - - - - - - - - - - - -
+	move.l	ParamC(a5),d3
+	Ret_String
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PARAM entier
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnParamE
+; - - - - - - - - - - - - -
+	move.l	ParamE(a5),d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LISTBANK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InListBank
+; - - - - - - - - - - - - -
+	moveq	#0,d5			Valeur minimum du numero
+.Loop	Rbsr	L_Bnk.List
+	beq.s	.Out
+	move.b	#13,(a1)+
+	move.b	#10,(a1)+
+	clr.b	(a1)
+	Rbsr	L_ImpChaine
+	bra.s	.Loop
+.Out	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERASE n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InErase
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Bnk.Eff
+	Rjmp	L_Bnk.Change
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERASE TEMP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEraseTemp
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.EffTemp
+	Rjmp	L_Bnk.Change
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERASE ALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEraseAll
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.EffAll
+	Rjmp	L_Bnk.Change
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BANK SWAP a,b
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBankSwap
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0		Banque "b"
+	Rble	L_FonCall
+	cmp.l	#$10000,d0
+	Rbge	L_FonCall
+	move.l	d0,d2
+	Rbsr	L_Bnk.GetAdr
+	move.l	a1,a2
+	move.l	d3,d0			Banque "a"
+	Rble	L_FonCall
+	cmp.l	#$10000,d0
+	Rbge	L_FonCall
+	Rbsr	L_Bnk.GetAdr
+	move.l	a0,a1
+	move.l	a1,d0
+	beq.s	.B1Null
+	move.l	a2,d0
+	beq.s	.B2Null
+; Veritable swap, des numeros seulement
+	move.l	-16(a2),d0
+	move.l	-16(a1),-16(a2)
+	move.l	d0,-16(a1)
+	bra.s	.Chg
+; Banque 2 vide: changement de numero de la banque 1
+.B2Null	move.l	d2,-16(a1)
+	bra.s	.Chg
+; Banque 1 vide: changement de numero de la banque 2
+.B1Null	move.l	d3,-16(a2)
+; Envoie les changements
+.Chg	Rjmp	L_Bnk.Change
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=BSTART()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnBStart
+; - - - - - - - - - - - - -
+	Rjsr	L_Bnk.PrevProgram
+	Rbeq	L_BkNoRes
+	move.l	d3,d0
+	Rbsr	L_Bnk.GetAdr
+	Rjsr	L_Bnk.CurProgram
+	move.l	a1,d3
+	Rbeq	L_BkNoRes
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=BLENGTH()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnBLength
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	moveq	#0,d3
+	Rjsr	L_Bnk.PrevProgram
+	beq.s	.Skip
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Skip
+	move.l	-8*3+4(a1),d3
+	sub.l	#2*8,d3
+	btst	#Bnk_BitBob,d0
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d0
+	beq.s	.Skip
+.BB	moveq	#0,d3
+	move.w	(a1),d3
+.Skip	Rjsr	L_Bnk.CurProgram
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BGRAB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBGrab
+; - - - - - - - - - - - - -
+; Efface la banque destination
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rbsr	L_Bnk.Eff
+; Demenage la banque source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rjsr	L_Bnk.PrevProgram
+	beq.s	.Err
+	move.l	d3,d0
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Err
+	lea	-3*8(a1),a1		Enleve de la liste origine
+	move.l	Cur_Banks(a5),a0
+	Rjsr	L_Lst.Remove
+	Rjsr	L_Bnk.CurProgram	Remet dans la liste destination
+	move.l	Cur_Banks(a5),a0
+	Rjsr	L_Lst.Insert
+	Rjmp	L_Bnk.Change
+.Err	Rjsr	L_Bnk.CurProgram
+	Rjsr	L_Bnk.Change
+	Rbra	L_BkNoRes
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BSEND bank
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBSend
+; - - - - - - - - - - - - -
+; Efface la banque destination
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rjsr	L_Bnk.PrevProgram
+	Rbeq	L_FonCall
+	Rbsr	L_Bnk.Eff
+; Demenage la banque
+; ~~~~~~~~~~~~~~~~~~
+	Rjsr	L_Bnk.CurProgram
+	move.l	d3,d0
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Ok
+	lea	-3*8(a1),a1		Enleve de la liste actuelle
+	move.l	Cur_Banks(a5),a0
+	Rjsr	L_Lst.Remove
+	Rjsr	L_Bnk.PrevProgram	Remet dans la liste destination
+	move.l	Cur_Banks(a5),a0
+	Rjsr	L_Lst.Insert
+	Rjsr	L_Bnk.CurProgram
+.Ok	Rjmp	L_Bnk.Change
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INS BOB / INS SPRITE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InInsSprite
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.GetBobs
+	Rbeq	L_BkNoRes
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rbsr	L_Bnk.InsBob
+	Rjsr	L_Bnk.Change
+	Rbne	L_OOfMem
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INS ICON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InInsIcon
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.GetIcons
+	Rbeq	L_BkNoRes
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rbsr	L_Bnk.InsBob
+	Rjsr	L_Bnk.Change
+	Rbne	L_OOfMem
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEL ICON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDelIcon1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	Rbra	L_InDelIcon2
+; - - - - - - - - - - - - -
+	Lib_Par	InDelIcon2
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.GetIcons
+	Rbeq	L_BkNoRes
+	Rbra	L_IDIc3
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEL SPRITE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDelSprite1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	Rbra	L_InDelSprite2
+; - - - - - - - - - - - - -
+	Lib_Par	InDelSprite2
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.GetBobs
+	Rbeq	L_BkNoRes
+	Rbra	L_IDIc3
+; - - - - - - - - - - - - -
+	Lib_Def	IDIc3
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d1
+	Rble	L_FonCall
+	move.l	d3,d0
+	Rble	L_FonCall
+	cmp.l	d1,d0
+	Rbhi	L_FonCall
+	Rbsr	L_Bnk.DelBob
+	Rjmp	L_Bnk.Change
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESERVE AS WORK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InResWork
+; - - - - - - - - - - - - -
+	Rlea	L_BkWrk,0
+	moveq	#0,d1
+	Rbra	L_RsBqX
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESERVE AS CHIP WORK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InResChipWork
+; - - - - - - - - - - - - -
+	Rlea	L_BkWrk,0
+	moveq	#(1<<Bnk_BitChip),d1
+	Rbra	L_RsBqX
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESERVE AS DATA
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InResData
+; - - - - - - - - - - - - -
+	Rlea	L_BkDat,0
+	moveq	#(1<<Bnk_BitData),d1
+	Rbra	L_RsBqX
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESERVE AS CHIPDATA
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InResChipData
+; - - - - - - - - - - - - -
+	Rlea	L_BkDat,0
+	moveq	#(1<<Bnk_BitData)+(1<<Bnk_BitChip),d1
+	Rbra	L_RsBqX
+; - - - - - - - - - - - - -
+	Lib_Def	RsBqX
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	Rble	L_FonCall
+	move.l	(a3)+,d0
+	Rble	L_FonCall
+	cmp.l	#$10000,d0
+	Rbge	L_FonCall
+	Rbsr	L_Bnk.Reserve
+	Rbeq	L_OOfMem
+	Rjmp	L_Bnk.Change
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BANK SCHRINK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBankSchrink
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.Schrink
+	Rbne	L_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=START()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnStart
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Bnk.GetAdr
+	Rbeq	L_BkNoRes
+	move.l	a1,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LENGTH()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLength
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	moveq	#0,d3
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Skip
+	move.l	-8*3+4(a1),d3
+	sub.l	#2*8,d3
+	btst	#Bnk_BitBob,d0
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d0
+	beq.s	.Skip
+.BB	moveq	#0,d3
+	move.w	(a1),d3
+.Skip	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHIPFREE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnChipFree
+; - - - - - - - - - - - - -
+	move.l	#Chip,d1
+	Rbra	L_FFree
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=FASTFREE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnFastFree
+; - - - - - - - - - - - - -
+	move.l	#Fast,d1
+	Rbra	L_FFree
+; - - - - - - - - - - - - -
+	Lib_Def	FFree
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOAvailMem(a6)
+	move.l	(sp)+,a6
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TRANSFERT DE MEMOIRE
+;	A0>A1, D0 octets
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	TransMem
+; - - - - - - - - - - - - -
+	move.w 	d0,d1
+
+	move.w	a0,d2
+	btst	#0,d2
+	bne.s	trimp
+	move.w	a1,d2
+	btst	#0,d2
+	bne.s	trimp
+	btst	#0,d0
+	bne.s	trimp
+
+* Copy rapide
+	and.w	#$0F,d1
+        cmp.l 	a0,a1
+        bcs.s 	trsmm
+; a1>a0: remonter le programme
+        add.l 	d0,a0
+        add.l 	d0,a1
+        movem.l a0/a1,-(sp)
+        lsr.l 	#4,d0         ;nombre de mots longs
+        beq.s 	trsmm2
+trsmm1: move.l 	-(a0),-(a1)
+	move.l 	-(a0),-(a1)
+	move.l 	-(a0),-(a1)
+	move.l 	-(a0),-(a1)  ;transfert mots longs
+	subq.l	#1,d0
+	bne.s	trsmm1
+trsmm2: subq.w 	#1,d1
+        bmi.s 	trsmm3b
+trsmm3: move.b 	-(a0),-(a1)  ;transfert octets
+	dbra	d1,trsmm3
+trsmm3b:movem.l	(sp)+,a0/a1 ;pointe la fin des zones
+        rts
+; a0<a1: descendre le programme
+trsmm:  lsr.l 	#4,d0
+        beq.s 	trsmm5
+trsmm4: move.l 	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	subq.l	#1,d0
+	bne.s	trsmm4
+trsmm5: subq.w	#1,d1
+        bmi.s 	trsmm7
+trsmm6: move.b 	(a0)+,(a1)+
+	dbra	d1,trsmm6
+trsmm7: rts
+
+* Copie lente
+trimp	and.w	#$03,d1
+	cmp.l 	a0,a1
+        bcs.s 	triup
+; a1>a0: remonter le programme
+        add.l 	d0,a0
+        add.l 	d0,a1
+        movem.l a0/a1,-(sp)
+        lsr.l 	#2,d0
+        beq.s 	trsmm2
+.trsmm1 move.b 	-(a0),-(a1)
+	move.b 	-(a0),-(a1)
+	move.b 	-(a0),-(a1)
+	move.b 	-(a0),-(a1)
+	subq.l	#1,d0
+	bne.s	.trsmm1
+.trsmm2 subq.w 	#1,d1
+        bmi.s 	.trsmm3b
+.trsmm3 move.b 	-(a0),-(a1)
+	dbra	d1,.trsmm3
+.trsmm3b
+	movem.l	(sp)+,a0/a1
+        rts
+; Vers le bas
+triup	lsr.l 	#2,d0
+        beq.s 	.trsmm5
+.trsmm4 move.b 	(a0)+,(a1)+
+	move.b	(a0)+,(a1)+
+	move.b	(a0)+,(a1)+
+	move.b	(a0)+,(a1)+
+	subq.l	#1,d0
+	bne.s	.trsmm4
+.trsmm5 subq.w	#1,d1
+        bmi.s 	.trsmm7
+.trsmm6 move.b 	(a0)+,(a1)+
+	dbra	d1,.trsmm6
+.trsmm7 rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COPY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InCopy
+; - - - - - - - - - - - - -
+	move.l	d3,a1
+	move.l	(a3)+,d0
+	move.l	(a3)+,a0
+	sub.l	a0,d0
+	Rbls	L_FonCall
+	Rbsr	L_TransMem
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FILL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InFill
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.OrAdr
+	Rbsr	L_FillBis
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FillBis
+; - - - - - - - - - - - - -
+	sub.l 	a0,d2
+        Rbcs 	L_FonCall
+        move.w 	d2,d1
+        lsr.l 	#4,d2         	;travaille par mot long
+        beq.s 	fil2
+	subq.w	#1,d2
+fil1:   move.l 	d4,(a0)+
+	move.l	d4,(a0)+
+	move.l	d4,(a0)+
+	move.l	d4,(a0)+
+	dbra	d2,fil1
+fil2:   and 	#$000F,d1
+        beq.s 	fil4
+	subq.w	#1,d1
+fil3:   rol.l 	#8,d4
+        move.b 	d4,(a0)+
+	dbra	d1,fil3
+fil4:  	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HUNT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnHunt
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+        move.l 	(a3)+,d4     	;adresse de fin
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.OrAdr	;adresse de recherche
+        subq.w	#1,d2
+        bcs.s 	ht3           	;si chaine nulle: ramene zero!
+        move.l 	Buffer(a5),d3
+        subq.l 	#1,a0
+ht1:    addq.l 	#1,a0        	;passe a l'octet suivant
+        move.l 	a0,a1
+        cmp.l 	d4,a0         	;pas trouve!
+        bcc.s 	ht3
+        move.l 	d3,a2        	;pointe la chaine recherchee
+        move.w 	d2,d1
+ht2:    cmpm.b 	(a2)+,(a1)+
+        bne.s 	ht1
+        dbra 	d1,ht2
+        move.l 	a0,d3        	;TROUVE!
+	bra.s	ht4
+ht3:    moveq	#0,d3
+ht4	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=AREG=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InAReg
+; - - - - - - - - - - - - -
+	moveq	#7,d0
+	moveq	#8,d1
+	move.l	(a3)+,d2
+	Rbra	L_IReg
+; - - - - - - - - - - - - -
+	Lib_Par	FnAReg
+; - - - - - - - - - - - - -
+	moveq	#7,d0
+	moveq	#8,d1
+	move.l	d3,d2
+	Rbra	L_FReg
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DREG=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDReg
+; - - - - - - - - - - - - -
+	moveq	#8,d0
+	moveq	#0,d1
+	move.l	(a3)+,d2
+	Rbra	L_IReg
+; - - - - - - - - - - - - -
+	Lib_Par	FnDReg
+; - - - - - - - - - - - - -
+	moveq	#8,d0
+	moveq	#0,d1
+	move.l	d3,d2
+	Rbra	L_FReg
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routines AREG / DREG
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IReg
+; - - - - - - - - - - - - -
+	Rbsr	L_RReg
+	move.l	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FReg
+; - - - - - - - - - - - - -
+	Rbsr	L_RReg
+	move.l	(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Def	RReg
+; - - - - - - - - - - - - -
+	cmp.l	d0,d2
+	Rbcc	L_FonCall
+	add.w	d1,d2
+	lsl.w	#2,d2
+	lea	CallReg(a5),a0
+	lea	0(a0,d2.w),a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					POKEDOKELOKE ameliores
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPoke
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a0
+	move.b	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InDoke
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	d0,a0
+	btst	#0,d0
+	bne.s	.Skip
+	move.w	d3,(a0)
+	rts
+.Skip	move.b	d3,1(a0)
+	lsr.w	#8,d3
+	move.b	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InLoke
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	d0,a0
+	btst	#0,d0
+	bne.s	.Skip
+	move.l	d3,(a0)
+	rts
+.Skip	addq.l	#4,a0
+	move.b	d3,-(a0)
+	ror.l	#8,d3
+	move.b	d3,-(a0)
+	ror.l	#8,d3
+	move.b	d3,-(a0)
+	ror.w	#8,d3
+	move.b	d3,-(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PEEKDEEKLEEK ameliores
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPeek
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	moveq	#0,d3
+	move.b	(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par	FnDeek
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	btst	#0,d3
+	bne.s	.Skip
+	moveq	#0,d3
+	move.w	(a0),d3
+	rts
+.Skip	moveq	#0,d3
+	move.b	(a0)+,d3
+	lsl.w	#8,d3
+	move.b	(a0),d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	FnLeek
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	btst	#0,d3
+	bne.s	.Skip
+	move.l	(a0),d3
+	rts
+.Skip	move.b	(a0)+,d3
+	rol.w	#8,d3
+	move.b	(a0)+,d3
+	rol.l	#8,d3
+	move.b	(a0)+,d3
+	rol.l	#8,d3
+	move.b	(a0)+,d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					POKE$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPokeD
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.l	(a3)+,a0
+	move.w	(a2)+,d2
+	beq.s	.Skip
+.Loop	move.b	(a2)+,(a0)+
+	subq.w	#1,d2
+	bne.s	.Loop
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=PEEK$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPeekD2
+; - - - - - - - - - - - - -
+	moveq	#-1,d2
+	Rbra	L_FPeekD
+; - - - - - - - - - - - - -
+	Lib_Par	FnPeekD3
+; - - - - - - - - - - - - -
+	moveq	#-1,d2
+	move.l	d3,a0
+	move.l	(a3)+,d3
+	move.w	(a0)+,d0
+	Rbeq	L_FPeekD
+	moveq	#0,d2
+	move.b	(a0),d2
+	Rbra	L_FPeekD
+; - - - - - - - - - - - - -
+	Lib_Par	FPeekD
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	cmp.l	#String_Max,d4
+	bcs.s	.Ln
+	move.w	#String_Max,d4
+.Ln	move.l	(a3)+,a2
+	move.l	a2,a0
+; Compte le nombre de caracteres
+	moveq	#-1,d3
+.Cnt	addq.l	#1,d3
+	cmp.w	d4,d3
+	bcc.s	.COut
+	move.b	(a0)+,d0
+	tst.l	d2
+	bmi.s	.Cnt
+	cmp.b	d0,d2
+	bne.s	.Cnt
+.COut	tst.l	d3
+	Rbeq	L_Ret_ChVide
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	move.l	d3,d0
+	move.l	a1,d3
+.Copy	move.b	(a2)+,(a0)+
+	subq.w	#1,d0
+	bne.s	.Copy
+	Rbra	L_Set_HiChaine
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine LIB CLOSE ALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Lib.Close
+; - - - - - - - - - - - - -
+	moveq	#Lib_Max,d2
+.Loop	move.l	d2,d0
+	Rbsr	L_Lib.CloseD0
+	dbra	d2,.Loop
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine Lib Close D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Lib.CloseD0
+; - - - - - - - - - - - - -
+	Rbsr	L_Lib.GetA2
+	move.l	(a2),d0
+	beq.s	.Skip
+	clr.l	(a2)
+	move.l	d0,a1
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOCloseLibrary(a6)
+	move.l	(sp)+,a6
+.Skip	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Retourne l'adresse de la librarie
+;	D0=	Numero canal
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Lib.GetA2
+; - - - - - - - - - - - - -
+	cmp.l	#Lib_Max,d0
+	Rbhi	L_FonCall
+	lsl.w	#2,d0
+	lea	Lib_List(a5),a2
+	add.w	d0,a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Appel librarie A0 / D3=fonction
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Lib.Call
+; - - - - - - - - - - - - -
+	movem.l	a3-a6/d6-d7,-(sp)
+	pea	.Return(pc)
+	pea	0(a0,d3.l)
+	move.l	a0,-(sp)
+	lea	CallReg(a5),a6
+	movem.l	(a6),d0-d7/a0-a5
+	move.l	(sp)+,a6
+	rts
+.Return	movem.l	(sp)+,a3-a6/d6-d7
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EXEDOSINTGFXCALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnExeCall
+; - - - - - - - - - - - - -
+	move.l	$4.W,a0
+	Rbra	L_Lib.Call
+; - - - - - - - - - - - - -
+	Lib_Par	FnGfxCall
+; - - - - - - - - - - - - -
+	move.l	T_GfxBase(a5),a0
+	Rbra	L_Lib.Call
+; - - - - - - - - - - - - -
+	Lib_Par	FnDosCall
+; - - - - - - - - - - - - -
+	move.l	DosBase(a5),a0
+	Rbra	L_Lib.Call
+; - - - - - - - - - - - - -
+	Lib_Par	FnIntCall
+; - - - - - - - - - - - - -
+	move.l	T_IntBase(a5),a0
+	Rbra	L_Lib.Call
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LIB OPEN canal,"lib",flags
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLibOpen
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a2
+	move.w	(a2)+,d2
+	Rbeq	L_FonCall
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a1
+	move.l	(a3)+,d0
+	Rbsr	L_Lib.GetA2
+	tst.l	(a2)
+	bne.s	.Err0
+	move.l	d3,d0
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Err1
+	move.l	d0,(a2)
+; Branche la routine de fermeture
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	rts
+.Err0	move.w	#168,d0			Lib already opened
+	Rbra	L_GoError
+.Err1	move.w	#170,d0			Cant open library
+	Rbra	L_GoError
+.Struc	dc.l	0			Structure pour CLEARVAR
+	Rbra	L_Lib.Close
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LIB CLOSE [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLibClose0
+; - - - - - - - - - - - - -
+	Rbra	L_Lib.Close
+; - - - - - - - - - - - - -
+	Lib_Par	InLibClose1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbra	L_Lib.CloseD0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LIB CALL lib,function
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLibCall
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	Rbsr	L_Lib.GetA2
+	move.l	(a2),a0
+	bne.s	.Ok
+	move.w	#169,d0			Library not opened
+	Rbra	L_GoError
+.Ok	Rbra	L_Lib.Call
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LIB BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLibBase
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Lib.GetA2
+	move.l	(a2),d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine dev: pointe le dev en A2
+;	D0= numero canal
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.GetA2
+; - - - - - - - - - - - - -
+	cmp.l	#Dev_Max,d0
+	Rbhi	L_FonCall
+	mulu	#12,d0
+	lea	Dev_List(a5),a2
+	add.l	d0,a2
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: Ouvre un device
+;	A0=	nom
+;	A2=	Pointeur structure
+;	D0=	Longueur structure
+;	D1=	Numero
+;	D2=	Flags
+;	D3= 	First error message
+;	D4=	Number of errors
+;	D5=	Flags dans structure IO
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.Open
+; - - - - - - - - - - - - -
+	movem.l	a0/d0/d1/d2,-(sp)
+	tst.b	8(a2)
+	bne	.AOp
+; Branche la routine de fermeture
+	movem.l	a0-a2/d0-d1,-(sp)
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	movem.l	(sp)+,a0-a2/d0-d1
+; Store error data
+	clr.b	9(a2)
+	move.b	d3,10(a2)
+	move.b	d4,11(a2)
+; Opens communication port
+	clr.l	-(sp)
+	clr.l	-(sp)
+	Rbsr	L_CreatePort
+	addq.l	#8,sp
+	move.l	d0,4(a2)
+	beq	.Err
+; Opens IO structure
+	move.l	(sp),-(sp)
+	move.l	d0,-(sp)
+	Rbsr	L_CreateExtIO
+	addq.l	#8,sp
+	move.l	d0,(a2)
+	beq.s	.Err
+; Des flags?
+	move.l	d0,a1
+	tst.l	d5
+	beq.s	.Paf
+	swap	d5
+	lea	0(a1,d5.w),a0
+	swap	d5
+	move.b	d5,(a0)
+; Ouvre le device
+.Paf	move.l	12(sp),a0
+	move.l	4(sp),d0
+	move.l	8(sp),d1
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOOpenDevice(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	bne.s	.Err
+	move.b	#1,8(a2)
+	lea	16(sp),sp
+	rts
+.Err	move.w	d0,-(sp)
+	Rbsr	L_Dev.CloseA2
+	move.w	(sp)+,d0
+	Rbra	L_Dev.Error
+.AOp	move.w	#140,d0
+	Rbra	L_GoError
+.Struc	dc.l	0			Structure pour CLEARVAR
+	Rbra	L_Dev.Close
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine Device Close All
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.Close
+; - - - - - - - - - - - - -
+	move.l	d2,-(sp)
+	moveq	#Dev_Max,d2
+.Loop	move.l	d2,d0
+	Rbsr	L_Dev.GetA2
+	Rbsr	L_Dev.CloseA2
+	subq.w	#1,d2
+	bpl.s	.Loop
+	move.l	(sp)+,d2
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: ferme un device
+;	A2=	Pointeur structure
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.CloseA2
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d0-d1/a6,-(sp)
+	move.l	$4.w,a6
+; AbortIO
+	Rbsr	L_Dev.AbortIO
+; Close the device
+.Skip1	tst.b	8(a2)
+	beq.s	.Skip2
+	clr.b	8(a2)
+	move.l	(a2),a1
+	jsr	_LVOCloseDevice(a6)
+; Delete IO structure
+.Skip2	tst.l	(a2)
+	beq.s	.Skip3
+	move.l	(a2),-(sp)
+	clr.l	(a2)
+	Rbsr	L_DeleteExtIO
+	addq.l	#4,sp
+; Remove message port
+.Skip3	tst.l	4(a2)
+	beq.s	.Skip4
+	move.l	4(a2),-(sp)
+	clr.l	4(a2)
+	Rbsr	L_DeletePort
+	addq.l	#4,sp
+.Skip4	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: retourne l'adresse IO
+;	A2= pointeur device
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.GetIO
+; - - - - - - - - - - - - -
+	tst.b	8(a2)
+	beq.s	.Err
+	move.l	(a2),a1
+	rts
+.Err	move.w	#141,d0			Device not opened
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: SEND
+;	A2= 	Base device
+;	D0=	Numero fonction
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.SendIO
+; - - - - - - - - - - - - -
+	Rbsr	L_Dev.GetIO
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	movem.l	a1/d0,-(sp)
+	cmp.b	#2,9(a2)		Une fonction deja utilisee?
+	bne.s	.Skip
+	jsr	_LVOWaitIO(a6)
+	movem.l	(sp),a1/d0
+.Skip	move.w	d0,28(a1)		IO_COMMAND
+	jsr	_LVOSendIO(a6)
+	movem.l	(sp)+,a1/d1
+	move.l	(sp)+,a6
+	move.b	#2,9(a2)		Une fonction lancee, non stoppee...
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine DO
+;	A2= 	Base device
+;	D0=	Numero fonction
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.DoIO
+; - - - - - - - - - - - - -
+	Rbsr	L_Dev.GetIO
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	movem.l	a1/d0,-(sp)
+	cmp.b	#2,9(a2)		Une fonction deja utilisee?
+	bne.s	.Skip
+	jsr	_LVOWaitIO(a6)
+	movem.l	(sp),a1/d0
+.Skip	move.w	d0,28(a1)		IO_COMMAND
+	jsr	_LVODoIO(a6)
+	movem.l	(sp)+,a1/d1
+	move.l	(sp)+,a6
+	move.b	#1,9(a2)		Une fonction faite!
+	tst.w	d0
+	Rbne	L_Dev.Error
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine Check io
+;	A2= 	Base device
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.CheckIO
+; - - - - - - - - - - - - -
+	Rbsr	L_Dev.GetIO
+	tst.b	9(a2)			Une fonction deja effectuee?
+	bne.s	.Deja
+	moveq	#-1,d0			Simule le TRUE
+	rts
+.Deja	movem.l	a1/a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOCheckIO(a6)
+	movem.l	(sp)+,a1/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Abort IO
+;	A2=	Base device
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.AbortIO
+; - - - - - - - - - - - - -
+	movem.l	a1/a6,-(sp)
+	move.l	$4.w,a6
+	tst.b	8(a2)
+	beq.s	.Skip
+	tst.b	9(a2)
+	beq.s	.Skip
+;	move.l	(a2),a1
+;	jsr	_LVOCheckIO(a6)
+;	tst.l	d0
+;	bne.s	.Skip
+	move.l	(a2),a1
+	jsr	_LVOAbortIO(a6)
+	move.l	(a2),a1
+	jsr	_LVOWaitIO(a6)
+.Skip	movem.l	(sp)+,a1/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Appel des erreurs device
+;	D0=	Erreur Device
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dev.Error
+; - - - - - - - - - - - - -
+	move.w	d0,d1
+	bpl.s	.DErr
+; Erreur IO
+	move.w	#142,d0		Cannot be opened
+	cmp.w	#-1,d1
+	Rbeq	L_GoError
+	move.w	#143,d0		Command not supported
+	cmp.w	#-3,d1
+	Rbeq	L_GoError
+	move.w	#144,d0		Device error
+	Rbra	L_GoError
+; Erreur device
+.DErr	moveq	#0,d1
+	move.b	11(a2),d1
+	cmp.w	d1,d0
+	bhi.s	.Gen
+	move.b	10(a2),d1
+	add.w	d1,d0
+	subq.w	#1,d0
+	Rbra	L_GoError
+.Gen	move.w	#144,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEVICE OPEN c,n$,l,unit,flags
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDevOpen
+; - - - - - - - - - - - - -
+	move.l	2*4(a3),a2		Chaine
+	move.w	(a2)+,d2
+	Rbeq	L_FonCall
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a0
+	move.l	3*4(a3),d0
+	Rbsr	L_Dev.GetA2
+	move.l	d3,d2			Flags
+	move.l	(a3)+,d1		Unit
+	move.l	(a3)+,d0		Length
+	Rble	L_FonCall
+	addq.l	#8,a3
+	move.w	#145,d3			1 seul message d'erreur
+	moveq	#1,d4
+	moveq	#0,d5
+	Rbra	L_Dev.Open
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEVICE CLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDevClose0
+; - - - - - - - - - - - - -
+	Rbra	L_Dev.Close
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEVICE CLOSE D
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDevClose1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Dev.GetA2
+	Rbra	L_Dev.CloseA2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DEV BASE(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDevBase
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Dev.GetA2
+	move.l	(a2),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEV DO dev,command
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDevDo
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	Rbsr	L_Dev.GetA2
+	move.l	d3,d0
+	Rbra	L_Dev.DoIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEV SEND dev,command
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDevSend
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	Rbsr	L_Dev.GetA2
+	move.l	d3,d0
+	Rbra	L_Dev.SendIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEV ABORT dev
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDevAbort
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Dev.GetA2
+	Rbra	L_Dev.AbortIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DEV CHECK(dev)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDevCheck
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Dev.GetA2
+	Rbsr	L_Dev.CheckIO
+	move.l	d0,d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EXEC "Program Name"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InExec
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbeq	L_FonCall
+	Rbsr	L_ChVerBuf
+	move.l	a6,-(sp)
+; Ouvre le device
+	lea	.Nil(pc),a1
+	move.l	a1,d1
+	move.l	DosBase(a5),a6
+	move.l	#1005,d2
+	jsr	_LVOOpen(a6)
+	move.l	d0,d5
+; Appelle le programme
+	move.l	Buffer(a5),d1
+	move.l	d5,d2
+	move.l	d5,d3
+	move.l	DosBase(a5),a6
+	jsr	_LVOExecute(a6)
+; Ferme le device
+	move.l	d0,d3
+	move.l	d5,d1
+	jsr	_LVOClose(a6)
+; Fini!
+.Skip	move.l	(sp)+,a6
+	tst.l	d3
+	Rbeq	L_DiskError
+	rts
+.Nil	dc.b	"NIL:",0
+	Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CODE AMIGA.LIB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CreatePort
+; - - - - - - - - - - - - -
+	move.l	#_CreatePort-_AmigaJmp,d0
+	Rbra	L_AmigaLib
+; - - - - - - - - - - - - -
+	Lib_Def	DeletePort
+; - - - - - - - - - - - - -
+	move.l	#_DeletePort-_AmigaJmp,d0
+	Rbra	L_AmigaLib
+; - - - - - - - - - - - - -
+	Lib_Def	CreateExtIO
+; - - - - - - - - - - - - -
+	move.l	#_CreateExtIO-_AmigaJmp,d0
+	Rbra	L_AmigaLib
+; - - - - - - - - - - - - -
+	Lib_Def	DeleteExtIO
+; - - - - - - - - - - - - -
+	move.l	#_DeleteExtIO-_AmigaJmp,d0
+	Rbra	L_AmigaLib
+; - - - - - - - - - - - - -
+	Lib_Def	AmigaLib
+; - - - - - - - - - - - - -
+_AmigaJmp
+	jmp	_AmigaJmp(pc,d0.l)
+_CreatePort
+	MOVEM.L	D2-7/A2,-(A7)
+	MOVE.L	$20(A7),D4
+	MOVE.B	$27(A7),D3
+	MOVE.L	#$FFFFFFFF,-(A7)
+	BSR	L7C7DB14
+	MOVE.L	D0,D5
+	MOVE.L	D5,D6
+	MOVEQ	#-1,D2
+	CMP.L	D5,D2
+	ADDQ.L	#4,A7
+	BNE.S	L7C7D97A
+	MOVEQ	#0,D0
+	BRA	L7C7D9E6
+
+L7C7D97A	MOVE.L	#$10001,-(A7)
+	PEA	$22.W
+	BSR	L7C7DAD0
+	MOVEA.L	D0,A2
+	EXG	D7,A2
+	TST.L	D7
+	EXG	D7,A2
+	ADDQ.L	#8,A7
+	BNE.S	L7C7D9A4
+	MOVE.L	D6,-(A7)
+	BSR	L7C7DB28
+	MOVEQ	#0,D0
+	ADDQ.L	#4,A7
+	BRA.S	L7C7D9E6
+L7C7D9A4	MOVE.L	D4,$A(A2)
+	MOVE.B	D3,9(A2)
+	MOVE.B	#4,8(A2)
+	CLR.B	$E(A2)
+	MOVE.B	D6,$F(A2)
+	CLR.L	-(A7)
+	BSR	L7C7DB00
+	MOVE.L	D0,$10(A2)
+	TST.L	D4
+	ADDQ.L	#4,A7
+	BEQ.S	L7C7D9D8
+	MOVE.L	A2,-(A7)
+	BSR	L7C7DB3C
+	ADDQ.L	#4,A7
+	BRA.S	L7C7D9E4
+L7C7D9D8	PEA	$14(A2)
+	BSR	_NewList
+	ADDQ.L	#4,A7
+L7C7D9E4	MOVE.L	A2,D0
+L7C7D9E6	MOVEM.L	(A7)+,D2-7/A2
+	RTS
+
+_DeletePort
+	MOVEM.L	D2/A2,-(A7)
+	MOVEA.L	$C(A7),A2
+	TST.L	$A(A2)
+	BEQ.S	L7C7DA04
+	MOVE.L	A2,-(A7)
+	BSR	L7C7DB50
+	ADDQ.L	#4,A7
+L7C7DA04	MOVE.B	#$FF,8(A2)
+	MOVEQ	#-1,D2
+	MOVE.L	D2,$14(A2)
+	MOVEQ	#0,D2
+	MOVE.B	$F(A2),D2
+	MOVE.L	D2,-(A7)
+	BSR	L7C7DB28
+	PEA	$22.W
+	MOVE.L	A2,-(A7)
+	BSR	L7C7DAE8
+	LEA	$C(A7),A7
+	MOVEM.L	(A7)+,D2/A2
+	RTS
+_CreateExtIO
+	MOVEM.L	D2-4,-(A7)
+	MOVE.L	$10(A7),D2
+	MOVE.L	$14(A7),D3
+	TST.L	D2
+	BNE.S	L7C7DA54
+	MOVEQ	#0,D0
+	BRA.S	L7C7DA82
+L7C7DA54	MOVE.L	#$10001,-(A7)
+	MOVE.L	D3,-(A7)
+	BSR	L7C7DAD0
+	MOVEA.L	D0,A0
+	EXG	D4,A0
+	TST.L	D4
+	EXG	D4,A0
+	ADDQ.L	#8,A7
+	BNE.S	L7C7DA72
+	MOVEQ	#0,D0
+	BRA.S	L7C7DA82
+L7C7DA72	MOVE.B	#5,8(A0)
+	MOVE.W	D3,$12(A0)
+	MOVE.L	D2,$E(A0)
+	MOVE.L	A0,D0
+L7C7DA82	MOVEM.L	(A7)+,D2-4
+	RTS
+
+_DeleteExtIO
+	MOVEM.L	D2-3,-(A7)
+	MOVEA.L	$C(A7),A0
+	EXG	D3,A0
+	TST.L	D3
+	EXG	D3,A0
+	BEQ	L7C7DABE
+	MOVE.B	#$FF,8(A0)
+	MOVEQ	#-1,D2
+	MOVE.L	D2,$14(A0)
+	MOVEQ	#-1,D2
+	MOVE.L	D2,$18(A0)
+	MOVEQ	#0,D2
+	MOVE.W	$12(A0),D2
+	MOVE.L	D2,-(A7)
+	MOVE.L	A0,-(A7)
+	BSR	L7C7DAE8
+	ADDQ.L	#8,A7
+L7C7DABE	MOVEM.L	(A7)+,D2-3
+	RTS
+L7C7DAD0
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEM.L	8(A7),D0-1
+	JSR	-$C6(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DAE8
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	MOVE.L	$C(A7),D0
+	JSR	-$D2(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB00
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	JSR	-$126(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB14
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVE.L	8(A7),D0
+	JSR	-$14A(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB28
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVE.L	8(A7),D0
+	JSR	-$150(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB3C
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	JSR	-$162(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB50
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	JSR	-$168(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+_NewList
+	move.l	4(a7),a0
+	move.l	a0,(a0)
+	addq.l	#4,(a0)
+	clr.l	4(a0)
+	move.l	a0,8(a0)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Entete des banques
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	BkSpr
+; - - - - - - - - - - - - -
+	dc.b "Sprites "
+; - - - - - - - - - - - - -
+	Lib_Def	BkIco
+; - - - - - - - - - - - - -
+	dc.b "Icons   "
+; - - - - - - - - - - - - -
+	Lib_Def	BkMus
+; - - - - - - - - - - - - -
+	dc.b "Music   "
+; - - - - - - - - - - - - -
+	Lib_Def	BkAmal
+; - - - - - - - - - - - - -
+	dc.b "Amal    "
+; - - - - - - - - - - - - -
+	Lib_Def	BkMenu
+; - - - - - - - - - - - - -
+	dc.b "Menu    "
+; - - - - - - - - - - - - -
+	Lib_Def	BkDat
+; - - - - - - - - - - - - -
+	dc.b "Data    "
+; - - - - - - - - - - - - -
+	Lib_Def	BkWrk
+; - - - - - - - - - - - - -
+	dc.b "Work    "
+; - - - - - - - - - - - - -
+	Lib_Def	BkAsm
+; - - - - - - - - - - - - -
+	dc.b "Asm     "
+; - - - - - - - - - - - - -
+	Lib_Def	BkIff
+; - - - - - - - - - - - - -
+	dc.b "Iff     "
+; - - - - - - - - - - - - -
+	Lib_Def	Bnk_NoLoad
+; - - - - - - - - - - - - -
+	dc.b "Loading!"
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHVERBUF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	ChVerBuf
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	Rbra	L_ChVerBuf2
+; - - - - - - - - - - - - -
+	Lib_Def	ChVerBuf2
+; - - - - - - - - - - - - -
+	move.l	a2,a1
+	move.w	d2,d0
+	beq.s	Chv2
+	subq.w	#1,d0
+	cmp.w	#510,d0
+	bcs.s	Chv1
+	move.w	#509,d0
+Chv1:	move.b	(a1)+,(a0)+
+	dbra	d0,Chv1
+Chv2:	clr.b	(a0)+
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Str2Chaine
+; Recopie un message systeme (a0) fini par zero dans le buffer chaines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Str2Chaine
+; - - - - - - - - - - - - -
+	move.l	a2,a0
+.c	tst.b	(a0)+
+	bne.s	.c
+	sub.l	a2,a0
+	move.l	a0,d3
+	subq.l	#1,d3
+	Rbne	L_MCSuit
+	Rbra	L_Ret_ChVide
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Chaine (a2) >>> buffer chaines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Mes2Chaine
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.b	-1(a2),d3
+	Rbeq	L_Ret_ChVide
+	cmp.b	#$FF,d3
+	Rbne	L_MCSuit
+	Rbra	L_Ret_ChVide
+; - - - - - - - - - - - - -
+	Lib_Def	MCSuit
+; - - - - - - - - - - - - -
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	move.w	d3,d0
+	move.l	a1,d3
+.Loop	move.b	(a2)+,(a0)+
+	subq.w	#1,d0
+	bne.s	.Loop
+	Rbra	L_Set_HiChaine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Retourne une chaine > hichaine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Set_HiChaine
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	addq.w	#1,d0
+	and.w	#$FFFE,d0
+	add.l	d0,a0
+	move.l	a0,HiChaine(a5)
+	Ret_String
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Retourne une chaine vide
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Ret_ChVide
+; - - - - - - - - - - - - -
+	move.l	ChVide(a5),d3
+	Ret_String
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Copie A0 en chaine AMOS + RTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	A0ToChaine
+; - - - - - - - - - - - - -
+	move.l	a0,a2
+.Count	tst.b	(a0)+
+	bne.s	.Count
+	subq.l	#1,a0
+	move.l	a0,d3
+	sub.l	a2,d3
+	Rjsr	L_DDemande
+	move.w	d3,(a1)+
+	move.w	d3,d0
+.Copy	move.b	(a2)+,(a1)+
+	dbra	d0,.Copy
+	move.l	a1,d0
+	Pair	d0
+	move.l	d0,HiChaine(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Fin de BIN, HEX et autres
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FinBin
+; - - - - - - - - - - - - -
+        move.l 	a0,d0        	;rend pair
+        btst 	#0,d0
+        beq.s 	hx5
+        addq.l 	#1,d0
+hx5:    move.l 	d0,HiChaine(a5)
+        sub.l 	a1,a0
+        subq.l 	#2,a0
+        move 	a0,(a1)        	;poke la longueur
+        move.l	a1,d3		;Ramene la chaine
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;			Demande l'espace chaine, positionne Hichaine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	AskD3
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbeq	L_FonCall
+	Rbmi	L_FonCall
+	Rjsr	L_Demande
+	move.l	d3,d2
+	move.l	a1,d3
+	lea	2(a0,d2.l),a0
+	btst	#0,d2
+	beq.s	AskD
+	addq.l	#1,a0
+AskD:	move.l	a0,HiChaine(a5)
+	move.l	a1,a0
+	move.w	d2,(a1)+
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SAUVE HUNK BANQUE D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SHunk
+; - - - - - - - - - - - - -
+	movem.l	a0/d0/d2/d3,-(sp)
+	Rlea	L_NHunk,0
+	lsl.w	#2,d0
+	lea	-4(a0,d0.w),a0
+	move.l	a0,d2
+	moveq	#4,d3
+	Rjsr	L_D_Write
+	movem.l	(sp)+,a0/d0/d2/d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	NHunk
+; - - - - - - - - - - - - -
+	dc.b 	"AmBk"
+	dc.b 	"AmSp"
+	dc.b 	"AmBs"
+	dc.b 	"AmIc"
+	dc.l 	0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SAVE "Banque", n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSave2
+; - - - - - - - - - - - - -
+; Ouvre le fichier / Mode NEW
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1006,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+; Va sauver la banque
+	move.l	d3,d0
+	Rbsr	L_Bnk.GetAdr
+	Rbeq	L_BkNoRes
+	Rbsr	L_Bnk.SaveA0
+; Ferme le fichier
+	Rbsr	L_D_Close
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SAVE "banques"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSave1
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l	#1006,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+	Rbsr	L_Bnk.SaveAll
+	Rbsr	L_D_Close
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				Routine: Sauve toutes les banques
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.SaveAll
+; - - - - - - - - - - - - -
+	movem.l	a2/d2/d3,-(sp)
+	moveq	#3,d0
+	Rbsr	L_SHunk
+	bne.s	.DErr
+; Nombre de banques
+; ~~~~~~~~~~~~~~~~~
+	moveq	#0,d3
+	move.l	Cur_Banks(a5),a0
+	move.l	(a0),d0
+	beq.s	.BNo
+.BCpt	move.l	d0,a0
+	addq.w	#1,d3
+	move.l	(a0),d0
+	bne.s	.BCpt
+.BNo	move.l	Buffer(a5),a2
+	move.w	d3,(a2)
+	move.l	a2,d2
+	moveq	#2,d3
+	Rbsr	L_D_Write
+	bne.s	.DErr
+; Boucle de sauvegarde
+	move.l	Cur_Banks(a5),a2
+	move.l	(a2),d2
+	beq.s	.SNo
+.SLoop	move.l	d2,a2
+	lea	8*3(a2),a0
+	Rbsr	L_Bnk.SaveA0
+	bne.s	.DErr
+	move.l	(a2),d2
+	bne.s	.SLoop
+.SNo	moveq	#0,d0
+	bra.s	.Out
+.DErr	moveq	#-1,d0
+.Out	movem.l	(sp)+,a2/d2/d3
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				Routine: sauve les banques VIDES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.SaveVide
+; - - - - - - - - - - - - -
+	movem.l	a2/d2/d3,-(sp)
+	moveq	#3,d0
+	Rbsr	L_SHunk
+	bne.s	.Err
+	move.l	Buffer(a5),a0
+	clr.w	(a0)
+	move.l	a0,d2
+	moveq	#2,d3
+	Rbsr	L_D_Write
+	bne.s	.Err
+	moveq	#0,d0
+	bra.s	.Out
+.Err	moveq	#-1,d0
+.Out	movem.l	(sp)+,a2/d2/d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve la banque A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.SaveA0
+; - - - - - - - - - - - - -
+	movem.l	a2/a3/d2-d4,-(sp)
+	move.l	a0,a2
+	move.w	-16+4(a2),d2		Flags
+	btst	#Bnk_BitBob,d2
+	bne.s	SB_Bob
+	btst	#Bnk_BitIcon,d2
+	bne.s	SB_Icon
+; Sauve une banque normale!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d0			AmBk
+	Rbsr	L_SHunk
+	bne	SB_Err
+	move.l	Buffer(a5),a0
+	move.w	-8*2+2(a2),(a0)		NUMERO.W
+	clr.w	2(a0)			0-> CHIP / 1-> FAST
+	btst	#Bnk_BitChip,d2
+	bne.s	.Chp
+	addq.w	#1,2(a0)
+.Chp	move.l	-8*3+4(a2),d4		Taille banque
+	subq.l	#8,d4			Moins header
+	move.l	d4,4(a0)		Puis LONGUEUR.L
+	btst	#Bnk_BitData,d2		Data / Work?
+	beq.s	.Wrk
+	bset	#7,4(a0)
+.Wrk	move.l	a0,d2
+	moveq	#8,d3
+	Rbsr	L_D_Write
+	bne	SB_Err
+	lea	-8(a2),a2		Pointe le nom
+	move.l	a2,d2
+	move.l	d4,d3
+	Rbsr	L_D_Write
+	bne.s	SB_Err
+	bra.s	SB_Ok
+;	Sauve une banque d'icones
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SB_Icon	moveq	#4,d0			AmIc
+	bra.s	SB_Sp
+; 	Sauve une banque de sprites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SB_Bob	moveq	#2,d0			AmSp
+SB_Sp	Rbsr	L_SHunk
+	bne.s	SB_Err
+	move.l	a2,a0			Remet les sprites droit
+	Rjsr	L_Bnk.UnRev
+	move.l	a2,d2
+	moveq	#2,d3
+	Rbsr	L_D_Write
+	bne.s	SB_Err
+	move.l	Buffer(a5),a3
+	clr.l	(a3)
+	clr.l	4(a3)
+	clr.w	8(a3)
+	move.w	(a2)+,d4
+	subq.w	#1,d4
+	bmi.s	.NoSpr
+; Sprite vide
+.SS1:	move.l	(a2),d0
+	bne.s	.SS2
+	move.l	a3,d2
+	moveq	#10,d3
+	Rbsr	L_D_Write
+	bne.s	SB_Err
+	bra.s	.SS3
+; Un sprite
+.SS2	move.l	d0,a0
+	move.l	d0,d2
+	move.w	(a0)+,d3
+	mulu	(a0)+,d3
+	mulu	(a0)+,d3
+	lsl.w	#1,d3
+	add.l	#10,d3
+	Rbsr	L_D_Write
+	bne.s	SB_Err
+; Suivant
+.SS3	addq.l	#8,a2
+	dbra	d4,.SS1
+; Sauve la palette
+; ~~~~~~~~~~~~~~~~
+.NoSpr	move.l	a2,d2
+	moveq	#32*2,d3
+	Rbsr	L_D_Write
+	bne.s	SB_Err
+SB_Ok	moveq	#0,d0
+	bra.s	SB_Out
+SB_Err	moveq	#-1,d0
+SB_Out	movem.l	(sp)+,a2/a3/d2-d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Load "Banque",n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLoad1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_Load0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Load "Banque"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLoad2
+; - - - - - - - - - - - - -
+	cmp.l	#$10000,d3
+	Rbge	L_FonCall
+	Rbra	L_Load0
+; - - - - - - - - - - - - -
+	Lib_Def	Load0
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+; Va charger!
+; ~~~~~~~~~~~
+	move.l	d3,d0
+	Rbsr	L_Bnk.Load
+	Rbsr	L_D_Close
+	Rjsr	L_Bnk.Change
+; Des erreurs?
+; ~~~~~~~~~~~~
+	tst.w	d0
+	Rbmi	L_DiskError
+	Rbne	L_OOfMem
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine chargement de banque
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Load
+; - - - - - - - - - - - - -
+	movem.l	a2/a3/d2-d7,-(sp)
+	move.l	d0,d5
+; Charge l'entete de la banque (4 octets de debut!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),d2
+	moveq	#4,d3
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	move.l	d2,a1
+	move.l	(a1),d1
+	Rlea	L_NHunk,0
+	moveq	#1,d0
+.NHu1	cmp.l	(a0)+,d1
+	beq.s	.NHu2
+	addq.l	#1,d0
+	tst.l	(a0)
+	bne.s	.NHu1
+	bra	LB_Pabank
+.NHu2	cmp.w	#4,d0				Icones
+	beq	LB_Icons
+	cmp.w	#3,d0				Multiples banques
+	beq	LB_Multiples
+	cmp.w	#2,d0				Sprites
+	beq	LB_Sprites
+; Une banque normale
+; ~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),d2			Charge l'entete
+	move.l	d2,a2
+	moveq	#8,d3
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	move.l	d5,d3			Si negatif>>> par d�faut
+	bpl.s	.Skip1
+	moveq	#0,d3
+	move.w	(a2),d3
+	bne.s	.Skip1			Si pas de numero,
+	moveq	#5,d3			Numero 5 par defaut!
+.Skip1	move.l	d3,d0			Numero
+	moveq	#0,d1			Type de banque
+	move.l	4(a2),d3		Longueur
+	move.l	d3,d2
+	and.l	#$0FFFFFFF,d2
+	subq.l	#8,d2			Moins le nom!
+	tst.l	d3			Data ou Work?
+	bpl.s	.Skip2
+	bset	#Bnk_BitData,d1
+.Skip2	tst.w	2(a2)			Chip ou Fast?
+	bne.s	.Skip3
+	bset	#Bnk_BitChip,d1
+.Skip3	Rlea	L_Bnk_NoLoad,0
+	Rbsr	L_Bnk.Reserve
+	beq	LB_MErr
+; Charge la banque
+	move.l	a0,d2
+	subq.l	#8,d2
+	and.l	#$0FFFFFFF,d3
+	Rbsr	L_D_Read
+	beq	LB_Ok
+	bra	LB_DErr
+; Charge une banque d'icones
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+LB_Icons
+	moveq	#2,d3			Charge le nombre de sprites
+	move.l	Buffer(a5),d2
+	move.l	d2,a2
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	move.w	(a2),d6
+; Overwrite ou append?
+	tst.w	d5
+	beq.s	.Over
+	Rbsr	L_Bnk.GetIcons
+	beq.s	.Over
+; Append
+	moveq	#1,d0
+	move.w	d6,d1
+	move.w	(a0),d5
+	add.w	d5,d1
+	bra.s	.Res
+; Overwrite
+.Over	moveq	#0,d0
+	move.w	d6,d1
+	clr.w	d5
+; Va reserver la place
+.Res	Rbsr	L_Bnk.ResIco
+	bne	LB_MErr
+	bra.s	LB_FIcons
+; Charge la banque de sprites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LB_Sprites
+	moveq	#2,d3			Charge le nombre de sprites
+	move.l	Buffer(a5),d2
+	move.l	d2,a2
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	move.w	(a2),d6
+; Overwrite ou append?
+	tst.w	d5
+	beq.s	.Over
+	Rbsr	L_Bnk.GetBobs
+	beq.s	.Over
+; Append
+	moveq	#1,d0
+	move.w	d6,d1
+	move.w	(a0),d5
+	add.w	d5,d1
+	bra.s	.Res
+; Overwrite
+.Over	moveq	#0,d0
+	move.w	d6,d1
+	clr.w	d5
+; Va reserver la place
+.Res	Rbsr	L_Bnk.ResBob
+	bne	LB_MErr
+; Fin du chargement SPRITES/ICONES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LB_FIcons
+; Pointe le debut des nouveaux
+	lsl.w	#3,d5
+	lea	2(a0,d5.w),a2
+; Charge tous les sprites
+	subq.w	#1,d6
+	bmi.s	.LSSkip
+	move.l	Buffer(a5),a3
+.LSLoop	clr.l	(a2)+
+	clr.l	(a2)+
+	move.l	a3,d2
+	moveq	#10,d3
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	move.w	(a3),d0
+	mulu	2(a3),d0
+	mulu	4(a3),d0
+	lsl.l	#1,d0
+	beq.s	.Rien
+	move.l	d0,d3
+	add.l	#10,d0
+	SyCall	MemChip
+	beq	LB_MErr
+	move.l	a0,-8(a2)		Poke le pointeur
+	clr.l	-4(a2)
+	move.l	(a3),(a0)+		TX/TY
+	move.w	4(a3),(a0)+
+	move.w	6(a3),(a0)		Plus de FLAGS!
+	and.w	#$3FFF,(a0)+
+	move.w	8(a3),(a0)+
+	move.l	a0,d2			Charge l'image
+	Rbsr	L_D_Read
+	bne	LB_DErr
+.Rien	dbra	d6,.LSLoop
+; Charge la palette
+.LSSkip	move.l	a2,d2
+	moveq	#32*2,d3
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	bra	LB_Ok
+; Charge plusieurs banques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+LB_Multiples
+	Rbsr	L_Bnk.EffAll
+	move.l	Buffer(a5),d2
+	move.l	d2,a2
+	moveq	#2,d3
+	Rbsr	L_D_Read
+	bne	LB_DErr
+	move.w	(a2),d2
+	beq.s	LB_Ok
+; Boucle de chargement
+.MLoop	move.l	#EntNul,d0
+	Rbsr	L_Bnk.Load
+	bne	LB_Out
+	subq.w	#1,d2
+	bne.s	.MLoop
+; Fin du chargement des banques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LB_Ok	moveq	#0,d0
+	bra.s	LB_Out
+; Erreur disque
+; ~~~~~~~~~~~~~
+LB_DErr	moveq	#-1,d0
+	bra.s	LB_Out
+; Out of mem
+; ~~~~~~~~~~
+LB_MErr	moveq	#-2,d0
+	bra.s	LB_Out
+; Pas une banque
+; ~~~~~~~~~~~~~~
+LB_Pabank
+	moveq	#-3,d0
+; Sortie
+; ~~~~~~
+LB_Out	movem.l	(sp)+,a2/a3/d2-d7
+	tst.w	d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PLOAD "prog",banque
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPLoad
+; - - - - - - - - - - - - -
+	clr.w	-(sp)
+	move.l	d3,d4			Numero <0 => charge en CHIP RAM
+	Rbeq	L_FonCall
+	bpl.s	.Pl3
+	neg.l	d4
+	addq.w	#1,(sp)
+; Nom disque
+.Pl3	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+; Saute les premiers HUNKS!
+	bsr	GetH
+	cmp.l	#$3F3,d0
+	Rbne	L_DiForm
+.Plo0	bsr	GetH
+	cmp.l	#$3E9,d0
+	bne.s	.Plo0
+	bsr	GetH
+	lsl.l	#2,d0
+	move.l	d0,d3
+; Reserve la banque
+	move.l	d4,d0			Numero
+	moveq	#(1<<Bnk_BitData),d1	Type
+	tst.w	(sp)+
+	beq.s	.Plo1
+	bset	#Bnk_BitChip,d1
+.Plo1	move.l	d3,d2			Longueur
+	Rlea	L_BkAsm,0
+	Rbsr	L_Bnk.Reserve
+	Rjsr	L_Bnk.Change
+	Rbeq	L_OOfMem
+; Charge!
+	move.l	a0,d2
+	Rbsr	L_D_Read
+	Rbne	L_DiskError
+	Rbsr	L_D_Close
+	rts
+;	 ROUTINE
+GetH	move.l	Buffer(a5),d2
+	moveq	#4,d3
+	Rbsr	L_D_Read
+	Rbne	L_DiskError
+	move.l	Buffer(a5),a0
+	move.l	(a0),d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BLOAD "fichier",adresse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBload
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_Bnk.OrAdr
+	move.l	d0,-(sp)
+* Ouvre le fichier
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+* Trouve la taille du fichier!
+	moveq	#0,d2
+	moveq	#1,d3
+	Rbsr	L_D_Seek
+	Rbmi	L_DiskError
+	moveq	#0,d2
+	moveq	#-1,d3
+	Rbsr	L_D_Seek
+	Rbmi	L_DiskError
+* Charge!
+	move.l	d0,d3
+	move.l	(sp)+,d2
+	Rbsr	L_D_Read
+	Rbne	L_DiskError
+* Ferme!
+	Rbsr	L_D_Close
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BSAVE  "fichier",ad to fin
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBSave
+; - - - - - - - - - - - - -
+	move.l	d3,-(sp)
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.OrAdr
+	sub.l	d0,(sp)
+	Rbls	L_FonCall
+	move.l	d0,-(sp)
+* Ouvre le fichier / Mode NEW
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1006,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+* Sauve!
+	move.l	(sp)+,d2
+	move.l	(sp)+,d3
+	Rbsr	L_D_Write
+	Rbne	L_DiskError
+* Ferme!
+	Rbsr	L_D_Close
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					IFF MASK a%
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMaskIff
+; - - - - - - - - - - - - -
+	move.l	d3,IffMask(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=PICTURE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPicture
+; - - - - - - - - - - - - -
+	moveq	#%1111111,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LOAD IFF "fichier"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLoadIff1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InLoadIff2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LOAD IFF "nom",param
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLoadIff2
+; - - - - - - - - - - - - -
+	Rbsr	L_IffInit
+	move.l	d3,IffParam(a5)
+* Ouvre le fichier
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+* Lis un chunk image
+	Rbsr	L_SaveRegs
+	move.l	Handle(a5),d5
+	moveq	#1,d7
+	Rbsr	L_IffForm
+	Rbsr	L_LoadRegs
+* Ferme le fichier
+	Rbsr	L_D_Close
+* Ca y est!
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				=FORM LOAD(N To Ad[banque][,NForms])
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFormLoad2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_FnFormLoad3
+; - - - - - - - - - - - - -
+	Lib_Par	FnFormLoad3
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	Rbsr	L_SaveRegs
+	move.l	d3,d7
+	Rble	L_FonCall
+	move.l	(a3)+,d6
+	Rbmi	L_FonCall
+	move.l	(a3)+,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	btst	#2,FhT(a2)
+	Rbne	L_FilTM
+	move.l	FhA(a2),d5
+; Reserver une banque?
+	tst.l	d6
+	Rbeq	L_FonCall
+	cmp.l	#1024,d6
+	bcc.s	.PaBk
+	move.l	d6,d0		Efface l'ancienne
+	Rbsr	L_Bnk.Eff
+	Rbsr	L_IffFormSize	Demande la taille
+	move.l	d0,d2		Longueur
+	moveq	#0,d1		Flags= WORK / FAST
+	move.l	d6,d0		Numero
+	Rlea	L_BkIff,0
+	Rbsr	L_Bnk.Reserve
+	Rjsr	L_Bnk.Change
+	Rbeq	L_OOfMem
+	move.l	a0,d6
+* Appelle la fonction
+.PaBk	Rbsr	L_IffFormLoad
+	move.l	d0,d3
+	Rbsr	L_LoadRegs
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=FORM LENGTH(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFormLength1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_FnFormLength2
+; - - - - - - - - - - - - -
+	Lib_Par	FnFormLength2
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)	Monitor present?
+	Rbne	L_FonCall
+	Rbsr	L_SaveRegs
+	move.l	d3,d7
+	cmp.l	#32768,d7
+	Rbcc	L_FonCall
+	move.l	(a3)+,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	btst	#2,FhT(a2)
+	Rbne	L_FilTM
+	move.l	FhA(a2),d5
+	Rbsr	L_IffFormSize		Demande la taille
+	move.l	d0,d3
+	Rbsr	L_LoadRegs
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					=Form Play(Ad,Number[,param])
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFormPlay2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_FnFormPlay3
+; - - - - - - - - - - - - -
+	Lib_Par	FnFormPlay3
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	Rbsr	L_SaveRegs
+	move.l	d3,IffParam(a5)
+	move.l	(a3)+,d7
+	cmp.l	#32768,d7
+	Rbcc	L_FonCall
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.OrAdr
+	move.l	d0,d6
+	Rbsr	L_IffFormPlay
+	move.l	d6,d3
+	Rbsr	L_LoadRegs
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=FORM SKIP(ad,[number])
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFormSkip1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_FnFormSkip2
+; - - - - - - - - - - - - -
+	Lib_Par	FnFormSkip2
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	Rbsr	L_SaveRegs
+	move.l	d3,d7
+	cmp.l	#32768,d7
+	Rbcc	L_FonCall
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.OrAdr
+	move.l	d0,d6
+	bset	#30,d7
+	Rbsr	L_IffFormPlay
+	move.l	d6,d3
+	Rbsr	L_LoadRegs
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					IFF ANIM "name",screen[,ntimes]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InIffAnim2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_InIffAnim3
+; - - - - - - - - - - - - -
+	Lib_Par	InIffAnim3
+; - - - - - - - - - - - - -
+	move.l	d3,-(sp)
+	Rbmi	L_FonCall
+	move.l	(a3)+,IffParam(a5)
+* Ouvre le fichier
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+* Trouve la taille du fichier!
+	moveq	#0,d2
+	moveq	#1,d3
+	Rbsr	L_D_Seek
+	Rbmi	L_DiskError
+	moveq	#0,d2
+	moveq	#-1,d3
+	Rbsr	L_D_Seek
+	Rbmi	L_DiskError
+* Reserve un espace memoire
+	addq.l	#8,d0
+	Rjsr	L_ResTempBuffer
+	Rbeq	L_OOfMem
+* Charge le fichier
+	Rbsr	L_SaveRegs
+	illegal
+	move.l	Handle(a5),d5
+	move.l	a0,d6
+	move.w	#32767,d7
+	Rbsr	L_IffFormLoad
+* Ferme le ficher
+	Rbsr	L_D_Close
+* Execute le fichier
+	move.l	TempBuffer(a5),a0
+	cmp.l	#"ILBM",8(a0)
+	Rbne	L_IffFor2
+	move.l	a0,d6
+* Premiere image
+	moveq	#1,d7
+	Rbsr	L_IffFormPlay
+	EcCall	Double
+	move.l	d6,-(sp)
+* Images suivantes
+.Loop	move.l	d6,-(sp)
+	move.w	ScOn(a5),d1
+	subq.w	#1,d1
+	EcCall	SwapSc
+.WLoop	Rjsr	L_Test_PaSaut
+	SyCall	WaitVbl
+	subq.l	#1,IffReturn(a5)
+	bge.s	.WLoop
+.WSkip	move.l	(sp)+,a0
+	cmp.l	#"AenD",(a0)
+	beq.s	.End
+	move.l	a0,d6
+	moveq	#1,d7
+	Rbsr	L_IffFormPlay
+	bra.s	.Loop
+* Fini!
+.End	move.l	(sp),d6
+	subq.l	#1,4(sp)
+	bne.s	.Loop
+	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+	Rbsr	L_LoadRegs
+	addq.l	#8,sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=FRAME PARAM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFormParam
+; - - - - - - - - - - - - -
+	move.l	IffReturn(a5),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SAVE IFF a$,comp
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSaveIff1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_InSaveIff2
+; - - - - - - - - - - - - -
+	Lib_Par	InSaveIff2
+; - - - - - - - - - - - - -
+	tst.l	ScOnAd(a5)
+	Rbeq	L_ScNOp
+	cmp.l	#3,d3
+	Rbcc	L_FonCall
+	move.l	d3,d7
+* Ouvre le fichier / Mode NEW
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	#1006,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+* Sauve l'ecran
+	Rbsr	L_IffSaveScreen
+* Ferme
+	Rbsr	L_D_Close
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TROUVE LE DESCRIPTEUR FICHIER
+;					D0= numero
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetFile
+; - - - - - - - - - - - - -
+	cmp.l	#10,d0
+	Rbcc	L_FonCall
+	subq.l	#1,d0
+	Rbmi	L_FonCall
+	mulu	#TFiche,d0
+	lea	Fichiers(a5),a2
+	add.w	d0,a2
+	move.l	FhA(a2),d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					NETTOIE LE DESCRIPTEUR FICHIER
+;					A2 descripteur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FiClean
+; - - - - - - - - - - - - -
+	movem.l	a0/d0,-(sp)
+	move.l	a2,a0
+	moveq	#TFiche-1,d0
+Ficl	clr.b	(a0)+
+	dbra	d0,Ficl
+	movem.l	(sp)+,a0/d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET INPUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSetInput
+; - - - - - - - - - - - - -
+	lsl.w	#8,d3
+	move.l	(a3)+,d0
+	cmp.l	#256,d0
+	Rbcc	L_FonCall
+	or.w	d3,d0
+	move.w	d0,ChrInp(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=INPUT$(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnInputD1
+; - - - - - - - - - - - - -
+	Rbsr	L_AskD3
+	tst.w	d2
+	beq.s	FInp1b
+FInp1a:	Rjsr	L_Test_PaSaut
+	movem.l	a1/d2/d3,-(sp)
+	SyCall	Inkey
+	movem.l	(sp)+,a1/d2/d3
+	tst.l	d1
+	beq.s	FInp1a
+	cmp.b	#32,d1
+	bcs.s	FInp1a
+	move.b	d1,(a1)+
+	subq.w	#1,d2
+	bne.s	FInp1a
+FInp1b:	Ret_String
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=INPUT$(#1,2)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnInputD2
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	Rbsr	L_AskD3
+	tst.w	d2
+	beq	FInp1b
+	btst	#1,FhT(a2)
+	Rbeq	L_FilTM
+	btst	#2,FhT(a2)
+	beq.s	FInp2b
+* Port E/S
+FInp2a	Rbsr	L_GetByte
+	move.b	d0,(a1)+
+	subq.w	#1,d2
+	bne.s	FInp2a
+	bra.s	FInpX
+* Disque
+FInp2b 	move.l	d3,-(sp)
+	addq.l	#2,d3
+	exg	d2,d3
+	move.l	FhA(a2),d1
+	DosCall	_LVORead
+	tst.l	d0
+	Rbeq	L_EOFil
+	Rbmi	L_DiskError
+	move.l	(sp)+,d3
+FInpX	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ENTREE UN BYTE DANS UN FICHIER
+;					A2= Descripteur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetByte
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/d1-d4,-(sp)
+	btst	#1,FhT(a2)
+	Rbeq	L_FilTM
+	btst	#2,FhT(a2)
+	beq.s	GBy2
+* PORT--> Attend un caractere en gerant les interruptions...
+GBy1	move.l	FhA(a2),d1
+	moveq	#50,d2
+	DosCall	_LVOWaitForChar
+	tst.l	d0
+	bne.s	GBy1a
+	Rjsr	L_Test_PaSaut
+	bra.s	GBy1
+GBy1a	move.l	FhA(a2),d1
+	lea	DeFloat(a5),a0
+	addq.l	#8,a0
+	move.l	a0,d2
+	move.l	a0,-(sp)
+	moveq	#1,d3
+	DosCall	_LVORead
+	tst.l	d0
+	Rbeq	L_EOFil
+	Rbmi	L_DiskError
+	move.l	(sp)+,a0
+	move.b	(a0),d0
+	bra.s	EByE
+* Va prendre le caractere
+GBy2	move.l	FhA(a2),d1
+	lea	DeFloat(a5),a0
+	cmp.l	(a0),d1
+	beq.s	GBy4
+* Charge 64 caracteres
+GBy3	move.l	a0,-(sp)
+	move.l	d1,(a0)
+	clr.w	4(a0)
+	clr.w	6(a0)
+	move.l	a0,d2
+	addq.l	#8,d2
+	moveq	#32-8,d3
+	DosCall	_LVORead
+	move.l	(sp)+,a0
+	tst.l	d0
+	Rbeq	L_EOFil
+	Rbmi	L_DiskError
+	move.w	d0,6(a0)
+* Prend un caractere
+GBy4	move.w	4(a0),d0
+	cmp.w	6(a0),d0
+	bcc.s	GBy3
+	addq.w	#1,4(a0)
+	move.b	8(a0,d0.w),d0
+EByE	movem.l	(sp)+,a0/a1/d1-d4
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FIN DE GETBYTE
+;					A2= Descripteur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	EndByte
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/d1-d4,-(sp)
+	lea	DeFloat(a5),a0
+	move.l	(a0),d1
+	beq.s	.EBye
+	clr.l	(a0)
+	move.w	4(a0),d2
+	sub.w	6(a0),d2
+	beq.s	.EBye
+	ext.l	d2
+	moveq	#0,d3
+	DosCall	_LVOSeek
+	tst.l	d0
+.EBye	movem.l	(sp)+,a0/a1/d1-d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DIR$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDirD
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	Rbsr	L_LockGet
+	move.l	LockSave(a5),d1
+	move.l	Buffer(a5),d2
+	DosCall	_LVOExamine
+	move.l	d2,a0
+	tst.w	4(a0)
+	Rbmi	L_DiskError
+	move.l	LockSave(a5),d0
+	Rjsr	L_AskDir2
+	Rbne	L_DiskError
+	Rbsr	L_LockFree
+	Rbsr	L_CopyPath
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	FnDirD
+; - - - - - - - - - - - - -
+	moveq	#126,d3
+	Rjsr	L_Demande
+	move.l	PathAct(a5),a2
+	tst.b	(a2)
+	bne.s	.Skip
+* Si pas de path courant, demande le path reel
+	movem.l	a0/a1,-(sp)
+	Rjsr	L_AskDir
+	Rbne	L_DiskError
+	movem.l	(sp)+,a0/a1
+	move.l	Buffer(a5),a2
+	lea	384(a2),a2
+* Copie
+.Skip	clr.w	(a1)+
+FDi1	move.b	(a2)+,(a1)+
+	bne.s	FDi1
+	move.l	a1,d0
+	sub.l	a0,d0
+	btst	#0,d0
+	beq.s	FDi2
+	addq.l	#1,a1
+FDi2	move.l	a1,HiChaine(a5)
+	subq.w	#3,d0
+	move.w	d0,(a0)
+	move.l	a0,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PARENT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InParent
+; - - - - - - - - - - - - -
+	move.l	PathAct(a5),a0
+	tst.b	(a0)
+	bne.s	.Loop
+	Rjsr	L_AskDir
+	Rbsr	L_CopyPath
+	move.l	PathAct(a5),a0
+.Loop	tst.b	(a0)+
+	bne.s	.Loop
+	subq.l	#1,a0
+	cmp.b	#"/",-(a0)
+	bne.s	.Out
+.Loop1	move.b	-(a0),d0
+	cmp.b	#"/",d0
+	beq.s	.Skip1
+	cmp.b	#":",d0
+	bne.s	.Loop1
+.Skip1	clr.b	1(a0)
+.Out	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					KILL a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InKill
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l 	Name1(a5),d1
+	DosCall	_LVODeleteFile
+	tst.l	d0
+	Rbeq	L_DiskError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RENAME a$ TO b$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InRename
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l	Name1(a5),a0
+	move.l	Name2(a5),a1
+IRen1	move.b	(a0)+,(a1)+
+	bne.s	IRen1
+	move.l	(a3)+,a2
+	Rbsr	L_NomDisc
+	move.l	Name1(a5),d1
+	move.l	Name2(a5),d2
+	DosCall	_LVORename
+	tst.l	d0
+	Rbeq	L_DiskError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MAKEDIR a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMkDir
+; - - - - - - - - - - - - -
+	Rbsr	L_LockFree
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l	Name1(a5),d1
+	DosCall	_LVOCreateDir
+	tst.l	d0
+	Rbeq	L_DiskError
+	move.l	d0,LockSave(a5)
+	Rbsr	L_LockFree
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DRIVE(a$)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDrive
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	cmp.b	#":",-1(a2,d2.w)
+	Rbne	L_FnFalse
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),d1
+	Rbsr	L_NoReq
+	DosCall	_LVODeviceProc
+	Rbsr	L_YesReq
+	tst.l	d0
+	Rbeq	L_FnFalse
+	Rbra	L_FnTrue
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DFREE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDFree
+; - - - - - - - - - - - - -
+	move.l	PathAct(a5),a0
+	move.l	Name1(a5),a1
+	CoCopy
+	Rbsr	L_LockGet
+	move.l	Buffer(a5),d2
+	addq.l	#4,d2
+	lsr.l	#2,d2
+	lsl.l	#2,d2
+	move.l	d2,-(sp)
+	DosCall	_LVOInfo
+	tst.l	d0
+	Rbeq	L_DiskError
+	move.l	(sp)+,a0
+	move.l	12(a0),d3
+	sub.l	16(a0),d3
+	move.l	20(a0),d2
+	Rbsr	L_Mulu32
+	move.l	d1,d3
+	Rbsr	L_LockFree
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DISC INFO$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDiscInfo
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	moveq	#126,d3
+	Rjsr	L_Demande
+	move.l	a0,-(sp)
+	Rbsr	L_LockGet
+	move.l	LockSave(a5),d1
+	move.l	Buffer(a5),d2
+	DosCall	_LVOInfo
+	tst.l	d0
+	Rbeq	L_DiskError
+	Rbsr	L_LockFree
+	move.l	(sp),a0
+	addq.w	#2,a0
+	move.l	Buffer(a5),a2
+	move.l	12(a2),d3
+	sub.l	16(a2),d3
+	move.l	20(a2),d2
+	Rbsr	L_Mulu32
+	move.l	d1,d3
+	moveq	#0,d2
+	move.l	28(a2),d0
+	beq.s	.skip
+	lsl.l	#2,d0
+	move.l	d0,a2
+	move.l	$28(a2),d0
+	beq.s	.skip
+	lsl.l	#2,d0
+	move.l	d0,a2
+	addq.l	#1,a2
+.loop	addq.w	#1,d2
+	move.b	(a2)+,(a0)+
+	bne.s	.loop
+	move.b	#":",-1(a0)
+.skip	move.l	a0,a1
+	moveq	#9,d0
+.loop1	move.b	#32,(a1)+
+	dbra	d0,.loop1
+	add.w	#10,d2
+	move.l	d3,d0
+	Rjsr	L_LongToDec
+	move.l	(sp)+,a0
+	move.w	d2,(a0)
+	move.l	a0,d3
+	addq.w	#1,d2
+	and.w	#$FFFE,d2
+	lea	2(a0,d2.w),a0
+	move.l	a0,HiChaine(a5)
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PORT(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPort
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	btst	#2,FhT(a2)
+	Rbeq	L_FilTM
+	moveq	#50,d2
+	DosCall	_LVOWaitForChar
+	tst.l	d0
+	Rbeq	L_FnTrue
+* Va prendre le caractere
+	move.l	FhA(a2),d1
+	lea	DeFloat(a5),a0
+	move.l	a0,d2
+	moveq	#1,d3
+	DosCall	_LVORead
+	tst.l	d0
+	Rbmi	L_DiskError
+	moveq	#0,d2
+	moveq	#0,d3
+	lea	DeFloat(a5),a0
+	move.b	(a0),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					OPEN PORT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InOpenPort
+; - - - - - - - - - - - - -
+	move.w	#%111,-(sp)
+	move.l	#1005,-(sp)
+	Rbra	L_OpIn
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					OPEN OUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InOpenOut
+; - - - - - - - - - - - - -
+	move.w	#%001,-(sp)
+	move.l	#1006,-(sp)
+	Rbra	L_OpIn
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					OPEN IN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InOpenIn
+; - - - - - - - - - - - - -
+	move.w	#%010,-(sp)
+	move.l	#1005,-(sp)		* Mode OLD
+	Rbra	L_OpIn
+; - - - - - - - - - - - - -
+	Lib_Def	OpIn
+; - - - - - - - - - - - - -
+	Rbsr	L_DiskClear
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l	(a3)+,d0
+	Rbsr	L_GetFile
+	Rbne	L_FilOO
+	Rbsr	L_FiClean
+	move.l	Name1(a5),d1
+	move.l	(sp)+,d2
+	DosCall	_LVOOpen
+	tst.l	d0
+	Rbeq	L_DiskError
+	move.l	d0,FhA(a2)		* Handle!
+	move.w	(sp)+,d0
+	move.b	d0,FhT(a2)		* Type
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Branche la structure CLEARVAR pour le disque
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DiskClear
+; - - - - - - - - - - - - -
+	movem.l	d0-d2/a0-a2,-(sp)
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+.Struc	dc.l	0
+	Rbra	L_CloAll
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LOF(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLof
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_RLof
+	moveq	#0,d2			* Seek --> fin
+	moveq	#1,d3
+	DosCall	_LVOSeek
+	move.l	FhA(a2),d1
+	move.l	d0,d2			* Seek --> debut!
+	moveq	#-1,d3
+	DosCall	_LVOSeek
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=POF(n)=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPof
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	Rbsr	L_RLof
+	move.l	d3,d2
+	Rbmi	L_FonCall
+	moveq	#-1,d3
+	DosCall	_LVOSeek
+	tst.l	d0
+	Rbmi	L_DiskError
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	FnPof
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_RLof
+	moveq	#0,d2
+	moveq	#0,d3
+	DosCall	_LVOSeek
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EOF(n) illegal a refaire
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnEof
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_RLof
+	moveq	#0,d2			* Seek --> fin
+	moveq	#1,d3
+	DosCall	_LVOSeek
+	move.l	d0,d4
+	move.l	FhA(a2),d1
+	move.l	d0,d2			* Seek --> debut!
+	moveq	#-1,d3
+	DosCall	_LVOSeek
+	cmp.l	d0,d4
+	Rbcs	L_FnFalse
+	Rbra	L_FnTrue
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine POFLOFEOF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	RLof
+; - - - - - - - - - - - - -
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	btst	#2,FhT(a2)
+	Rbne	L_FilTM
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLOSE [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InClose1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	Rbsr	L_Cloa1
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InClose0
+; - - - - - - - - - - - - -
+	Rbsr	L_CloAll
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine CLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CloAll
+; - - - - - - - - - - - - -
+	lea	Fichiers(a5),a2
+	moveq	#NFiche-1,d2
+.Loop	Rbsr	L_Cloa1
+	lea	TFiche(a2),a2
+	dbra	d2,.Loop
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	Cloa1
+; - - - - - - - - - - - - -
+	move.l	FhA(a2),d1		* Fichier
+	beq.s	.Skip
+	clr.l	FhA(a2)
+	DosCall	_LVOClose
+	move.l	FhF(a2),d0		* Field
+	beq.s	.Skip
+	move.l	d0,a1
+	clr.l	FhF(a2)
+	move.w	(a1),d0
+	mulu	#6,d0
+	addq.l	#8,d0
+	SyCall	MemFree
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					OPEN RANDOM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InOpenRandom
+; - - - - - - - - - - - - -
+	move.w	#$80,d0
+	Rbsr	L_RanApp
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					APPEND canal,nom
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InAppend
+; - - - - - - - - - - - - -
+	move.w	#%001,d0
+	Rbsr	L_RanApp
+	moveq	#0,d2
+	moveq	#1,d3
+	DosCall	_LVOSeek
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	RanApp
+; - - - - - - - - - - - - -
+	Rbsr	L_DiskClear
+	move.w	d0,-(sp)
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l	(a3)+,d0
+	Rbsr	L_GetFile
+	Rbne	L_FilOO
+	Rbsr	L_FiClean
+	move.l	Name1(a5),d1		* Essaie en OLD
+	move.l	#1005,d2
+	DosCall	_LVOOpen
+	tst.l	d0
+	bne.s	IOpr1
+	move.l	Name1(a5),d1		* NEW!
+	move.l	#1006,d2
+	DosCall	_LVOOpen
+	tst.l	d0
+	Rbeq	L_DiskError
+IOpr1	move.l	d0,FhA(a2)		* Handle!
+	move.l	d0,d1
+	move.w	(sp)+,d0
+	move.b	d0,FhT(a2)		* Type
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET #n,vv
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InGet
+; - - - - - - - - - - - - -
+	Rbsr	L_GetPut
+	cmp.l	d3,d4
+	Rbcc	L_EOFil
+	move.l	d1,-(sp)
+	move.w	(a2),d4
+	subq.w	#1,d4
+	lea	8(a2),a2
+IGet1	moveq	#0,d3
+	move.w	(a2)+,d3
+	Rjsr	L_DDemande
+	move.l	(a2)+,a1
+	move.l	a0,(a1)
+	move.w	d3,(a0)+
+	move.l	a0,d2
+	add.w	d3,a0
+	btst	#0,d3
+	beq.s	IGet2
+	addq.l	#1,a0
+IGet2	move.l	a0,HiChaine(a5)
+	move.l	(sp),d1
+	DosCall	_LVORead
+	cmp.l	d0,d3
+	Rbne	L_DiskError
+	dbra	d4,IGet1
+	addq.l	#4,sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPut
+; - - - - - - - - - - - - -
+ 	Rbsr	L_GetPut
+	cmp.l	d3,d4
+	Rbhi	L_EOFil
+	move.w	(a2),-(sp)
+	move.l	a2,-(sp)
+	lea	8(a2),a2
+IPut1:  moveq	#0,d3
+	move.w	(a2)+,d3
+	move.l	(a2)+,a0
+        move.l 	(a0),a0
+        moveq	#0,d4
+        move.w 	(a0)+,d4
+        cmp.w	d3,d4
+        beq.s 	IPut2
+        bcs.s 	IPut2
+        move.w 	d3,d4
+IPut2:  movem.l	a0/d1-d4,-(sp)
+	move.l	a0,d2
+	move.l	d4,d3
+	DosCall	_LVOWrite
+	cmp.l	d0,d3
+	Rbne	L_DiskError
+	movem.l	(sp)+,a0/d1-d4
+        cmp.w	d3,d4
+        bcc.s 	IPut4
+        sub.l 	d4,d3
+        Rjsr 	L_DDemande
+        move.w 	d3,d0
+	subq.w	#1,d0
+IPut3:  move.b 	#32,(a1)+
+	dbra	d0,IPut3
+	move.l	a0,d2
+	movem.l	d1-d3,-(sp)
+	DosCall	_LVOWrite
+	cmp.l	d0,d3
+	Rbne	L_DiskError
+	movem.l	(sp)+,d1-d3
+IPut4	subq.w	#1,4(sp)
+	bne.s	IPut1
+* Taille augmente?
+	move.l	(sp)+,a2
+	addq.l	#2,sp
+	moveq	#0,d2
+	moveq	#0,d3
+	DosCall	_LVOSeek
+	cmp.l	4(a2),d0
+	bls.s	.Skip
+	move.l	d0,4(a2)
+.Skip	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINE GET ET PUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetPut
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	subq.w	#1,d4
+	cmp.l	#65500,d4
+	Rbcc	L_FonCall
+	move.l	(a3)+,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	move.l	d1,-(sp)
+	tst.b	FhT(a2)
+	Rbpl	L_FilTM
+	move.l	FhF(a2),a2
+	mulu	2(a2),d4
+	move.l	4(a2),d3
+	move.l	d4,d2
+	cmp.l	d3,d4
+	bls.s	GP1
+	move.l	d3,d2
+GP1	move.l	(sp),d1
+	moveq	#-1,d3
+	movem.l	d3/d4,-(sp)
+	DosCall	_LVOSeek
+	movem.l	(sp)+,d3/d4
+	move.l	(sp)+,d1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					IMPRESSION CHAINE A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	ImpChaine
+; - - - - - - - - - - - - -
+	tst.w	ImpFlg(a5)		Imprimante?
+	Rbne	L_PRT_Print
+	tst.w	Direct(a5)
+	bne.s	.Dir
+.Norm	tst.w	ScOn(a5)		Mode programme
+	Rbeq	L_ScNOp
+	move.l	a0,a1
+	WiCall	Print
+	rts
+.Dir	tst.b	Esc_Output(a5)		Mode direct > ESC / Normal
+	beq.s	.Norm
+	move.l	a0,-(sp)
+	EcCalD	Active,EcEdit
+        move.l	(sp)+,a1
+	WiCall	Print
+	move.w	ScOn(a5),d1
+	beq.s	.Skip
+	subq.w	#1,d1
+	EcCall	Active
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					OUVERTURE DE L'IMPRIMANTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	PRT_Open
+; - - - - - - - - - - - - -
+	move.l	PrtHandle(a5),d1
+	bne.s	.OpPrx
+	movem.l	a0-a2/d2-d7,-(sp)
+	moveq	#43,d0
+	Rjsr	L_Sys_GetMessage
+	move.l	a0,d1
+	move.l	#1005,d2
+	DosCall	_LVOOpen
+	move.l	d0,PrtHandle(a5)
+	Rbeq	L_DiskError
+; Branche la routine de fermeture
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+; Ok!
+	move.l	PrtHandle(a5),d0
+	move.l	d0,d1
+	movem.l	(sp)+,a0-a2/d2-d7
+.OpPrx	rts
+.Struc	dc.l	0
+	Rbra	L_PRT_Close
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FERMETURE IMPRIMANTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	PRT_Close
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	DosBase(a5),a6
+	move.l	PrtHandle(a5),d1
+	beq.s	.Skip
+	clr.l	PrtHandle(a5)
+	jsr	DosClose(a6)
+.Skip	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Imprime la chaine A0 > imprimante
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	PRT_Print
+; - - - - - - - - - - - - -
+	Rbsr	L_PRT_Open
+	movem.l	a0-a2/d2-d7,-(sp)
+	move.l	a0,d2
+	move.l	a0,a1
+* Compte et enleve les CARRIAGE RETURN
+Ip1:	move.b	(a0)+,d0
+	move.b	d0,(a1)+
+	beq.s	Ip2
+	cmp.b	#13,d0
+	bne.s	Ip1
+	tst.b	PI_PrtRet(a5)
+	bne.s	Ip1
+	cmp.b	#10,(a0)
+	bne.s	Ip1
+	move.b	(a0)+,-1(a1)
+	bra.s	Ip1
+* Envoie!
+Ip2	sub.l	d2,a0
+	subq.l	#1,a0
+	move.l	a0,d3
+	beq.s	Ip3
+	DosCall	_LVOWrite
+	tst.l	d0
+	Rbmi	L_DiskError
+Ip3:	movem.l	(sp)+,a0-a2/d2-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET DIR A,[a$]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSetDir2
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	cmp.l	#EntNul,a2
+	beq.s	.Skip
+	move.w	(a2)+,d2
+	cmp.w	#106,d2
+	Rbcc	L_StooLong
+	move.l	DirFNeg(a5),a0
+	Rbsr	L_ChVerBuf2
+.Skip	move.l	(a3)+,d3
+	Rbra	L_InSetDir1
+; - - - - - - - - - - - - -
+	Lib_Par	InSetDir1
+; - - - - - - - - - - - - -
+	cmp.l	#EntNul,d3
+	beq.s	.Skip
+	and.l	#$FFFFFFFE,d3
+	Rbeq	L_FonCall
+	cmp.l	#106,d3
+	Rbcc	L_FonCall
+	move.w	d3,DirLNom(a5)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DEV FIRST$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPrgFirst
+; - - - - - - - - - - - - -
+	Rlea	L_FillDev,0
+	move.l	a0,-(sp)
+	Rbra	L_DevAcc
+; - - - - - - - - - - - - -
+	Lib_Par	FnDevFirst
+; - - - - - - - - - - - - -
+	Rlea	L_FillDev,0
+	move.l	a0,-(sp)
+	Rbra	L_DevAcc
+; - - - - - - - - - - - - -
+	Lib_Def	DevAcc
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	move.l	d3,a2
+	Rbsr	L_NomDir
+	move.w	#1,FillF32(a5)
+	clr.w	DirComp(a5)
+	move.w	DirLNom(a5),FillFSize(a5)
+	move.l	(sp)+,a0
+	jsr	(a0)
+	Rbra	L_FnFillNext
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DIR FIRST("filter")
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDirFirst
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	move.l	d3,a2
+	Rbsr	L_NomDir
+	Rbsr	L_LockGet
+	move.w	#1,FillF32(a5)
+	clr.w	DirComp(a5)
+	move.w	DirLNom(a5),FillFSize(a5)
+	Rbsr	L_FillAll
+	Rbsr	L_FillSort
+	Rbra	L_FnFillNext
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=DIR NEXT$
+;					=ACC NEXT$
+;					=DEV NEXT$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFillNext
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	move.w	PosFillF(a5),d0
+	Rbsr	L_FillGet
+	beq.s	FDirV
+	lea	6(a0),a2
+	addq.w	#1,PosFillF(a5)
+	move.w	FillFSize(a5),d3
+	ext.l	d3
+	move.w	d3,d2
+	addq.l	#8,d3
+	Rjsr	L_DDemande
+	move.l	a0,-(sp)
+	move.w	d3,(a1)+
+	lea	2(a0,d3.w),a0
+	move.l	a0,HiChaine(a5)
+	lea	4(a2),a0
+	subq.w	#1,d2
+FDirN1	move.b	(a0)+,(a1)+
+	dbra	d2,FDirN1
+	moveq	#7,d1
+FDirN2	move.b	#" ",(a1)+
+	dbra	d1,FDirN2
+	lea	-8(a1),a0
+	cmp.b	#"*",4(a2)
+	beq.s	FDirN3
+	move.l	(a2),d0
+	bmi.s	FDirN3
+	Rjsr	L_LongToDec
+FDirN3	move.l	(sp)+,d3
+	Ret_String
+* Enleve le buffer--> vide!
+FDirV	Rbsr	L_FillFFree
+	move.l	ChVide(a5),d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ASSIGN "name" TO "pathname"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InAssign
+; - - - - - - - - - - - - -
+	tst.w	WB2.0(a5)
+	beq.s	.1_3
+; WB2.0, appel direct de l'instruction ASSIGN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_LockFree		Plus de LOCK
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	beq.s	.Vide
+	cmp.w	#108,d2
+	Rbcc	L_FonCall
+	move.l	Name1(a5),a0
+	Rbsr	L_ChVerBuf2
+	Rbsr	L_Dsk.PathIt
+	Rbsr	L_LockGet
+.Vide	move.l	(a3)+,a2		Prend l'assign
+	move.w	(a2)+,d2
+	Rbeq	L_FonCall
+	cmp.w	#108,d2
+	Rbcc	L_FonCall
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a0
+.DP	tst.b	(a0)+			Enleve le ":"
+	bne.s	.DP
+	cmp.b	#":",-2(a0)
+	Rbne	L_FonCall
+	clr.b	-2(a0)
+	move.l	Buffer(a5),d1		Appelle la fonction
+	move.l	LockSave(a5),d2
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOAssignLock(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Err
+	clr.l	LockSave(a5)		Success: enleve le lock!
+	rts
+.Err	Rbsr	L_LockFree
+	Rbra	L_DiskError
+; Version 1.3: appelle la commande ASSIGN dans le directory C:
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.1_3	move.l	d3,-(a3)
+; Assign disponible?
+	lea	.AssI(pc),a0
+	move.l	Name1(a5),a1
+	CoCopy
+	Rbsr	L_RExist
+	Rbeq	L_DiskError
+; Pathname
+	move.l	Name1(a5),a0
+	clr.b	(a0)
+	move.l	(a3)+,a2		Prend le pathname
+	move.w	(a2)+,d2
+	beq.s	.Vide2
+	cmp.w	#108,d2
+	Rbcc	L_FonCall
+	Rbsr	L_ChVerBuf2
+	Rbsr	L_Dsk.PathIt
+	Rbsr	L_LockGet		Verifie le path
+	Rbsr	L_LockFree
+; Nom
+.Vide2	move.l	Buffer(a5),a2
+	lea	.AssI(pc),a0		Command ASSIGN
+.Copy1	move.b	(a0)+,(a2)+
+	bne.s	.Copy1
+	move.b	#" ",-1(a2)
+	move.l	(a3)+,a1		Nom a affecter
+	move.w	(a1)+,d1
+	Rbeq	L_FonCall
+	cmp.w	#64,d1
+	Rbcc	L_FonCall
+.Copy2	move.b	(a1)+,d0		Nom disque
+	move.b	d0,(a2)+
+	cmp.b	#32,d0
+	Rbls	L_FonCall
+	cmp.b	#":",d0
+	beq.s	.Fini
+	subq.w	#1,d1
+	bne.s	.Copy2
+	Rbra	L_FonCall
+.Fini	move.b	#" ",(a2)+
+	move.l	Name1(a5),a1
+.Copy3	move.b	(a1)+,(a2)+
+	bne.s	.Copy3
+; Appel de la fonction
+	lea	.AssC(pc),a0		Ouvre le NIL:
+	move.l	a0,d1
+	Rbsr	L_D_OpenD1
+	Rbeq	L_DiskError
+	move.l	Buffer(a5),d1		Execute >NIL: >NIL:
+	move.l	Handle(a5),d2
+	move.l	d2,d3
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOExecute(a6)
+	move.l	(sp)+,a6
+	Rbsr	L_D_Close
+	tst.l	d0
+	Rbeq	L_DiskError
+	rts
+.AssI	dc.b	"c:assign",0
+.AssC	dc.b	"NIL:",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=EXIST("name")
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnExist
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	tst.w	(a2)
+	Rbeq	L_FnFalse
+	Rbsr	L_NomDisc
+	Rbsr	L_RExist
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINE EXIST
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	RExist
+; - - - - - - - - - - - - -
+	Rbsr	L_NoReq
+	move.l 	Name1(a5),d1
+	DosCall	_LVOLock
+	Rbsr	L_YesReq
+	move.l	d0,d1
+	beq.s	FExF
+	DosCall	_LVOUnLock
+	moveq	#-1,d3
+	rts
+FExF	moveq	#0,d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PLUS DE REQUESTER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	NoReq
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	sub.l	a1,a1
+	jsr	FindTask(a6)
+	move.l	d0,a0
+	cmp.l	#-1,$b8(a0)
+	beq.s	.Skip
+	move.l	$b8(a0),ReqSave(a5)
+	move.l	#-1,$b8(a0)
+.Skip	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					REMET LE REQUESTER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	YesReq
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	sub.l	a1,a1
+	jsr	FindTask(a6)
+	move.l	d0,a0
+	cmp.l	#-1,$b8(a0)
+	bne.s	.Skip
+	move.l	ReqSave(a5),$b8(a0)
+.Skip	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DIR/W LDIR/W
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLDirW0
+; - - - - - - - - - - - - -
+	move.w	#1,ImpFlg(a5)
+	Rbra	L_DirW0a
+; - - - - - - - - - - - - -
+	Lib_Par InDirW0
+; - - - - - - - - - - - - -
+	clr.w	ImpFlg(a5)
+	Rbra	L_DirW0a
+; - - - - - - - - - - - - -
+	Lib_Def	DirW0a
+; - - - - - - - - - - - - -
+	move.l	Name1(a5),a0
+	clr.b	(a0)
+	move.l	Name2(a5),a0
+	clr.b	(a0)
+	Rbsr	L_Dsk.PathIt
+	Rbra	L_DirW2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DIR/w LDIR/W a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLDirW1
+; - - - - - - - - - - - - -
+	move.w	#1,ImpFlg(a5)
+	Rbra	L_DirW1a
+; - - - - - - - - - - - - -
+	Lib_Par	InDirW1
+; - - - - - - - - - - - - -
+	clr.w	ImpFlg(a5)
+	Rbra	L_DirW1a
+; - - - - - - - - - - - - -
+	Lib_Def	DirW1a
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDir
+	Rbra	L_DirW2
+; - - - - - - - - - - - - -
+	Lib_Def	DirW2
+; - - - - - - - - - - - - -
+	move.w	#1,DirComp(a5)
+	move.l	ScOnAd(a5),a0
+	move.l	EcWindow(a0),a0
+	move.w	WiTx(a0),d0
+	lsr.w	#1,d0
+	move.w	d0,FillFSize(a5)
+	Rbra	L_Dir3
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DIR / LDIR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLDir0
+; - - - - - - - - - - - - -
+	move.w	#1,ImpFlg(a5)
+	Rbra	L_Dir0a
+; - - - - - - - - - - - - -
+	Lib_Par InDir0
+; - - - - - - - - - - - - -
+	clr.w	ImpFlg(a5)
+	Rbra	L_Dir0a
+; - - - - - - - - - - - - -
+	Lib_Def	Dir0a
+; - - - - - - - - - - - - -
+	move.l	Name1(a5),a0
+	clr.b	(a0)
+	move.l	Name2(a5),a0
+	clr.b	(a0)
+	Rbsr	L_Dsk.PathIt
+	Rbra	L_Dir2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DIR/LDIR a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLDir1
+; - - - - - - - - - - - - -
+	move.w	#1,ImpFlg(a5)
+	Rbra	L_Dir1a
+; - - - - - - - - - - - - -
+	Lib_Par	InDir1
+; - - - - - - - - - - - - -
+	clr.w	ImpFlg(a5)
+	Rbra	L_Dir1a
+; - - - - - - - - - - - - -
+	Lib_Def	Dir1a
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDir
+	Rbra	L_Dir2
+; - - - - - - - - - - - - -
+	Lib_Def	Dir2
+; - - - - - - - - - - - - -
+	clr.w	DirComp(a5)
+	move.w	DirLNom(a5),FillFSize(a5)
+	Rbra	L_Dir3
+; - - - - - - - - - - - - -
+	Lib_Def	Dir3
+; - - - - - - - - - - - - -
+	move.w	#1,FillF32(a5)
+	clr.l	DirLong(a5)
+	Rbsr	L_FillFirst
+	moveq	#17,d0
+	Rjsr	L_Def_GetMessage
+	Rbsr	L_ImpChaine
+	move.l	BufFillF(a5),a0
+	lea	6+4(a0),a0
+	Rbsr	L_ImpChaine
+	lea	ChRet(pc),a0
+	Rbsr	L_ImpChaine
+
+;	Boucle du directory
+DirLoop
+	Rbsr	L_FillNxt
+	Rbmi	L_DiskError
+	beq	DirL5
+	cmp.w	#1,d0
+	beq.s	DirLoop
+	lea	6(a0),a2
+	tst.w	DirComp(a5)
+	beq.s	DirL0
+* Affichage condense!
+	lea	4(a2),a0
+	Rbsr	L_ImpChaine
+	bra.s	DirL3
+* Affichage normal
+DirL0:	cmp.b	#"*",4(a2)
+	bne.s	DirL1
+* Directory
+	moveq	#16,d0
+	Rjsr	L_Def_GetMessage
+	Rbsr	L_ImpChaine
+	lea	5(a2),a0
+	Rbsr	L_ImpChaine
+	bra.s	DirL2
+* Fichier normal
+DirL1:	lea	ChDir4(pc),a0
+	Rbsr	L_ImpChaine
+	lea	5(a2),a0
+	Rbsr	L_ImpChaine
+	lea	ChDir5(pc),a0
+	Rbsr	L_ImpChaine
+	move.l	Name1(a5),a0
+	move.l	(a2),d0
+	and.l	#$00FFFFFF,d0
+	add.l	d0,DirLong(a5)
+	Rjsr	L_LongToDec
+	clr.b	(a0)
+	move.l	Name1(a5),a0
+	Rbsr	L_ImpChaine
+* Encore un?
+DirL2:	lea	ChRet(pc),a0
+	Rbsr	L_ImpChaine
+DirL3:	Rbsr	L_TTDir
+	beq	DirLoop
+* Message de fin
+DirL5:	tst	DirComp(a5)
+	beq.s	DirL6
+	lea	ChRet(pc),a0
+	Rbsr	L_ImpChaine
+	bra.s	DirL7
+DirL6:	move.l	Buffer(a5),a0
+	move.l	DirLong(a5),d0
+	Rjsr	L_LongToDec
+	clr.b	(a0)
+	move.l	Buffer(a5),a0
+	Rbsr	L_ImpChaine
+	moveq	#19,d0
+	Rjsr	L_Def_GetMessage
+	Rbsr	L_ImpChaine
+* Va liberer la memoire FILL FILE
+DirL7:	Rbsr	L_FillFFree
+	rts
+ChDir1a	dc.b 	26,13,0
+ChDir2	dc.b 	" ",0
+ChDir4 	dc.b 	"  ",0
+ChDir5	dc.b 	" ",0
+ChRet	dc.b 	13,10,0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Test touches dir
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	TTDir
+; - - - - - - - - - - - - -
+	Rjsr	L_Test_PaSaut
+	SyCall	Inkey			* SPACE/ESC?
+	tst.l	d1
+	beq.s	TTdiC
+	cmp.b	#" ",d1
+	beq.s	TTdiW
+	swap 	d1
+	cmp.b	#$45,d1
+	beq.s	TTdiF
+TTdiC:	SyCall	Shifts			* CONTROL?
+	and.w	#%00001000,d1
+	beq.s	TTdiX
+	move.w	#25,-(sp)
+TTdiL:	Rjsr	L_Test_PaSaut
+	SyCall	WaitVbl
+	subq.w	#1,(sp)
+	bne.s	TTdiL
+	addq.l	#2,sp
+TTdiX:	moveq	#0,d0
+	rts
+* Boucle d'attente
+TTdiW:	Rjsr	L_Test_PaSaut
+	SyCall	Inkey
+	tst.l	d1
+	beq.s	TTdiW
+	swap	d1
+	cmp.b	#$45,d1
+	bne.s	TTdiX
+* Fin du directory!
+TTdiF:	moveq	#1,d0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Trouve le lock NAME1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LockGet			Egalement LockGet
+; - - - - - - - - - - - - -
+	move.l	Name1(a5),d1
+	Rbsr	L_LockFree
+	moveq	#-2,d2
+	DosCall	_LVOLock
+	move.l	d0,d1
+	Rbeq	L_DiskError
+	move.l	d1,LockSave(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ENLEVE LE LOCK COURANT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LockFree
+; - - - - - - - - - - - - -
+	movem.l	d0-d2/a0-a2,-(sp)
+	move.l	LockSave(a5),d1
+	beq.s	.Skip
+	DosCall	_LVOUnLock
+	clr.l	LockSave(a5)
+.Skip	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FILL FILL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillAll
+; - - - - - - - - - - - - -
+	Rbsr	L_FillFirst
+FlAl1	Rbsr	L_FillNxt
+	bmi.s	FlAl2
+	bne.s	FlAl1
+FlAl2	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Retourne le nom selectionne d0->A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillGet
+; - - - - - - - - - - - - -
+	movem.l	d1/d2,-(sp)
+	move.l	BufFillF(a5),d2
+	beq.s	FlGNo
+	move.l	d2,a0
+	moveq	#-1,d1
+FlG0	move.l	(a0),d2
+	beq.s	FlGNo
+	move.l	d2,a0
+	addq.w	#1,d1
+	cmp.w	d0,d1
+	bne.s	FlG0
+	movem.l	(sp)+,d1/d2
+	moveq	#-1,d0
+	rts
+FlGNo	movem.l	(sp)+,d1/d2
+	moveq	#0,d0
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: FILL FILE DEVICES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillDev
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a6,-(sp)
+	bsr	FfDeb
+; Cherche les devices
+	move.l	$4,a6
+	jsr	Forbid(a6)
+	move.l	DosBase(a5),a3
+	move.l	34(a3),a3
+	move.l	24(a3),d0
+	lsl.l	#2,d0
+	move.l	d0,a3
+	move.l	4(a3),d0
+	lsl.l	#2,d0
+	move.l	d0,a3
+* Boucle d'exploration
+FDev1	tst.l	8(a3)
+	beq.s	FDev5
+
+; Prend le filtre...
+	move.l	Name1(a5),a0
+	move.b	(a0),d0
+	cmp.b	#"a",d0
+	bcs.s	.Maj
+	cmp.b	#"z",d0
+	bhi.s	.Maj
+	sub.b	#$20,d0
+.Maj	cmp.b	#"D",d0			Un device?
+	bne.s	.PaD
+	tst.l	4(a3)
+	beq.s	.Ok
+	bra.s	FDev5
+.PaD	cmp.b	#"A",d0			Un assign?
+	bne.s	.Ok
+	tst.l	4(a3)
+	beq.s	FDev5
+
+.Ok	move.l	40(a3),d0
+	beq.s	FDev5
+	lsl.l	#2,d0
+	move.l	d0,a0
+	move.b	(a0)+,d0
+	ext.w	d0
+	move.l	Buffer(a5),a2
+	lea	8(a2),a1
+	subq.w	#1,d0
+	bmi.s	FDev5
+FDev2	move.b	(a0)+,(a1)+
+	dbra	d0,FDev2
+	move.b	#":",(a1)+
+FDev3	clr.b	(a1)
+* Filtre
+	move.l	Name2(a5),a0		* Filtre POSITIF
+	tst.b	(a0)
+	beq.s	FDev4
+	lea	8(a2),a1
+	Rbsr	L_Joker
+	beq.s	FDev5
+* Poke dans la liste
+FDev4	move.l	#-1,124(a2)
+	moveq	#" ",d2
+	Rbsr	L_FillFPoke
+* Device suivant
+FDev5	move.l	(a3),d0
+	lsl.l	#2,d0
+	move.l	d0,a3
+	bne	FDev1
+* C'est fini!
+	jsr	Permit(a6)
+	Rbsr	L_FillSort
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+; Enleve l'ancien buffer -si present-
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FfDeb	Rbsr	L_FillFFree
+* Premier faux fichier
+	move.l	Buffer(a5),a2
+	clr.w	8(a2)
+	clr.l	124(a2)
+	moveq	#0,d2
+	Rbsr	L_FillFPoke
+	clr.w	FillFNb(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Cree le buffer fill files
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillFirst
+; - - - - - - - - - - - - -
+* Enleve l'ancien buffer -si present-, reserve le nouveau
+	Rbsr	L_FillFFree
+* Branche la routine sur la liste CLEARVAR
+	movem.l	a0-a2/d0-d1,-(sp)
+	lea	FlFStru(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	movem.l	(sp)+,a0-a2/d0-d1
+* Trouve le nom du disque
+	Rbsr	L_LockGet
+	move.l	Buffer(a5),d2
+	DosCall	_LVOExamine
+	move.l	Buffer(a5),a0
+	tst.w	4(a0)			* Si FICHIER-> filtre
+	bpl.s	FlF2
+	move.l	d3,a0
+	move.l	Name2(a5),a1
+FlF1	move.b	(a0)+,(a1)+
+	bne.s	FlF1
+	move.l	d3,a0
+	clr.b	(a0)
+FlF2	Rbsr	L_LockGet
+	Rjsr	L_AskDir2
+	clr.l	LockSave(a5)
+	move.l	#6+4+128,d0
+	move.l	d0,d1
+	SyCall	MemFastClear
+	Rbeq	L_OOfMem
+	move.l	a0,BufFillF(a5)
+	move.l	a0,a1
+	move.w	d1,4(a1)
+	lea	6+4(a1),a1
+	move.l	Buffer(a5),a0
+	lea	384(a0),a0
+FlF3	move.b	(a0)+,(a1)+
+	bne.s	FlF3
+* Saute le nom du disque...
+	Rbsr	L_LockGet
+	move.l	LockSave(a5),d1
+	move.l	Buffer(a5),d2
+	DosCall	_LVOExamine
+	rts
+* Structure pour clearvar
+FlFStru	dc.l	0
+	Rbra	L_FillFFree
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Boucle de recherche des fichiers
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillNxt
+; - - - - - - - - - - - - -
+	move.l	LockSave(a5),d1
+	move.l	Buffer(a5),a2
+	move.l	a2,d2
+	DosCall	_LVOExNext
+	tst.l	d0
+	beq	FfFini
+* Filtre les noms, si pas directory...
+	tst.w	4(a2)
+	bpl.s	Ff6b
+	move.l	DirFNeg(a5),a0		* Filtre NEGATIF
+	tst.b	(a0)
+	beq.s	Ff6
+	lea	8(a2),a1
+	Rbsr	L_Joker
+	bne.s	Ff8
+Ff6:	move.l	Name2(a5),a0		* Filtre POSITIF
+	tst.b	(a0)
+	beq.s	Ff6a
+	lea	8(a2),a1
+	Rbsr	L_Joker
+	beq.s	Ff8
+Ff6a	moveq	#" ",d2
+	bra.s	Ff7
+* Une *
+Ff6b	moveq	#"*",d2
+* Poke dans le buffer
+Ff7	Rbsr	L_FillFPoke
+	beq.s	FfFini
+* OK! Ramene le nom = A0 / D0>0
+	move.l	d0,a0
+	moveq	#2,d0
+	rts
+* Pas filtre!
+Ff8	moveq	#1,d0
+	rts
+;	Plus de nom. D0=0 fin / D0<0 erreur
+FfFini	DosCall	_LVOIoErr
+	cmp.w	#232,d0
+	bne.s	FfErr
+	moveq	#0,d0
+	rts
+FfErr	moveq	#-1,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Lebere les buffers fill file
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillFFree
+; - - - - - - - - - - - - -
+	Rbsr	L_LockFree
+	move.l	BufFillF(a5),d1
+	beq.s	FFr2
+FFr1	move.l	d1,a1
+	move.l	(a1),d1
+	move.w	4(a1),d0
+	ext.l	d0
+	SyCall	MemFree
+	tst.l	d1
+	bne.s	FFr1
+	clr.l	BufFillF(a5)
+	clr.w	FillFNb(a5)
+	clr.w	PosFillF(a5)
+	clr.b	FillFSorted(a5)
+FFr2	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Trie le buffer fill file
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillSort
+; - - - - - - - - - - - - -
+	movem.l	a0-a4/d0-d7,-(sp)
+Fss1	moveq	#0,d7
+	move.l	BufFillF(a5),d0
+	beq.s	FssX
+	move.l	d0,a0
+	move.l	(a0),d0
+	beq.s	FssX
+	move.l	d0,a1
+	bra.s	Fss4
+* Compare les chaines
+Fss2	move.l	d0,a1
+	lea	10(a0),a3
+	lea	10(a1),a4
+Fss3	move.b	(a4)+,d0
+	Rbsr	L_MajD0
+	cmp.b	#"*",d0
+	bne.s	Fss3a
+	moveq	#1,d0
+Fss3a	move.b	d0,d1
+	move.b	(a3)+,d0
+	Rbsr	L_MajD0
+	cmp.b	#"*",d0
+	bne.s	Fss3b
+	moveq	#1,d0
+Fss3b	move.b	d0,d2
+	or.b	d1,d2
+	beq.s	Fss4
+	cmp.b	d0,d1
+	beq.s	Fss3
+	bhi.s	Fss4
+* Echange
+	move.l	(a1),(a0)
+	move.l	a0,(a1)
+	move.l	a1,(a2)
+	addq.w	#1,d7
+	exg.l	a0,a1
+* La chaine suivante?
+Fss4	move.l	a0,a2
+	move.l	a1,a0
+	move.l	(a0),d0
+	bne.s	Fss2
+* Encore une fois?
+	tst.w	d7
+	bne.s	Fss1
+* Ca y est!
+FssX	movem.l	(sp)+,a0-a4/d0-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Poke dans le buffer sans classement
+;					D2= Premier caractere
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillFPoke
+; - - - - - - - - - - - - -
+	movem.l	a2-a3/d2-d4,-(sp)
+	move.w	#-1,FillFPosPoke(a5)	Rien de poke!
+	move.w	FillFSize(a5),d0	Longueur maxi
+	tst.w	FillF32(a5)
+	bne.s	.Skip
+	lea	8(a2),a0		Si pas de 32, longueur r�elle!
+.Long	tst.b	(a0)+
+	bne.s	.Long
+	sub.l	a2,a0
+	move.l	a0,d0
+.Skip	add.w	#4+2+4+2,d0
+	ext.l	d0
+	move.l	d0,d1
+	SyCall	MemFastClear
+	beq.s	.Out
+	move.l	a0,a1
+	move.w	d1,4(a1)
+	move.l	a1,a3
+; Recopie du nom, en le tronquant.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	6(a1),a1
+	move.l	124(a2),(a1)+
+	move.w	FillFSize(a5),d1
+	subq.w	#2,d1
+	move.b	d2,(a1)+
+	lea 	8(a2),a0
+.pfD    move.b 	(a0)+,(a1)+
+	beq.s	.pfE
+        dbra 	d1,.pfD
+	bra.s	.pfG
+.pfE:	tst.w	FillF32(a5)
+	beq.s	.pfG
+	subq.l	#1,a1
+.pfF:	move.b	#" ",(a1)+
+	dbra	d1,.pfF
+; Insert le nom dans la liste.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.pfG:	addq.w	#1,FillFNb(a5)
+	move.l	BufFillF(a5),d2
+	bne.s	.pfA
+	move.l	a3,BufFillF(a5)
+	bra.s	.Out
+; Faut-il classer dans la foulee (pour file selector)
+.pfA	tst.b	FillFSorted(a5)
+	bne.s	.Classe
+; Non classe, met � la fin...
+.pfB	move.l	d2,a2
+	move.l	(a2),d2
+	bne.s	.pfB
+	moveq	#-1,d3
+	bra.s	.Ins
+; Classe: trouve le bon endroit
+.Classe	move.l	d2,a2
+	moveq	#-1,d3			Compte la position d'insertion
+.Cla	addq.w	#1,d3
+	move.l	(a2),d2
+	beq.s	.Ins
+	exg	d2,a2
+	Rbsr	L_FfComp
+	bne.s	.Cla
+	move.l	d2,a2
+; Insere dans la liste...
+.Ins	move.l	(a2),(a3)
+	move.l	a3,(a2)
+	move.w	d3,FillFPosPoke(a5)
+.Out	move.l	a3,d0
+.Err	movem.l	(sp)+,a2-a3/d2-d4
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine, compare A0 a A1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FfComp
+; - - - - - - - - - - - - -
+	lea	10(a2),a0
+	lea	10(a3),a1
+	Rbra	L_FfComp2
+; - - - - - - - - - - - - -
+	Lib_Def	FfComp2
+; - - - - - - - - - - - - -
+.Fss3	move.b	(a1)+,d0
+	Rbsr	L_MajD0
+	cmp.b	#"*",d0
+	bne.s	.Fss3a
+	moveq	#1,d0
+.Fss3a	move.b	d0,d1
+	move.b	(a0)+,d0
+	Rbsr	L_MajD0
+	cmp.b	#"*",d0
+	bne.s	.Fss3b
+	moveq	#1,d0
+.Fss3b	cmp.b	d0,d1
+	bhi.s	.Fss4
+	bne.s	.Fss5
+	tst.b	d0
+	bne.s	.Fss3
+.Fss5	move.w	#%00100,CCR		BEQ
+	rts
+.Fss4	move.w	#%00000,CCR		BNE
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve la position de la chaine A0 dans la liste,
+;	a partir de #D0. D1= mode de recherche
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FillFFind
+; - - - - - - - - - - - - -
+	movem.l	a2/a3/d2/d3,-(sp)
+	move.l	a0,a3
+; Localise le debut demande
+	moveq	#0,d3
+	move.l	BufFillF(a5),d2
+	beq.s	.Exit
+	move.l	d2,a2			Saute le pathname
+	move.l	(a2),d2
+	beq.s	.Exit
+.Lp1	move.l	d2,a2
+	cmp.w	d0,d3
+	bcc.s	.Rech
+	addq.w	#1,d3
+	move.l	(a2),d2
+	bne.s	.Lp1
+	moveq	#-1,d3
+	bra.s	.Exit
+; Boucle de recherche
+.Rech	tst.b	FillFSorted(a5)
+	bne.s	.Loop2
+; Recherche dans liste non triee
+.Loop1	move.l	d2,a2
+	lea	10(a2),a1
+	move.l	a3,a0
+.Fss3	move.b	(a1)+,d0
+	Rbsr	L_MajD0
+	cmp.b	#"*",d0
+	bne.s	.Fss3a
+	moveq	#1,d0
+.Fss3a	move.b	d0,d1
+	move.b	(a0)+,d0
+	beq.s	.Exit
+	Rbsr	L_MajD0
+	cmp.b	#"*",d0
+	bne.s	.Fss3b
+	moveq	#1,d0
+.Fss3b	cmp.b	d0,d1
+	beq.s	.Fss3
+	addq.w	#1,d3
+	move.l	(a2),d2
+	bne.s	.Loop1
+	moveq	#-1,d3
+	bra.s	.Exit
+; Recherche dans liste triee
+.Loop2	move.l	d2,a2
+	lea	10(a2),a1
+	move.l	a3,a0
+	Rbsr	L_FfComp2
+	bne.s	.Exit
+	addq.w	#1,d3
+	move.l	(a2),d2
+	bne.s	.Loop2
+	moveq	#-1,d3
+; Ok, position trouvee
+.Exit	move.l	d3,d0
+	movem.l	(sp)+,a2/a3/d2/d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES DISQUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				Routine: pointe le debut d'un nom de fichier
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dsk.DNom
+; - - - - - - - - - - - - -
+	move.l	a0,a1
+.FaL1	tst.b	(a0)+
+	bne.s	.FaL1
+	subq.l	#1,a0
+.FaL2	move.b	-(a0),d0
+	cmp.b	#"/",d0
+	beq.s	.FaL3
+	cmp.b	#":",d0
+	beq.s	.FaL3
+	cmp.l	a1,a0
+	bcc.s	.FaL2
+.FaL3	addq.l	#1,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					NAME1+PATHACT >>> NAME1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dsk.PathIt
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d0-d1,-(sp)
+* Cherche un ":" dans le nom
+	move.l	Name1(a5),a0
+	cmp.b	#":",(a0)
+	beq.s	.Dp
+.Loop1	move.b	(a0)+,d0
+	beq.s	.NoDp
+	cmp.b	#":",d0
+	bne.s	.Loop1
+	bra.s	.Fini
+* Recopie � la fin du pathact
+.NoDp	move.l	PathAct(a5),a0
+.Loop2	tst.b	(a0)+
+	bne.s	.Loop2
+	move.l	Name1(a5),a1
+.Loop3	move.b	(a1)+,(a0)+
+	bne.s	.Loop3
+* Remet dans NAME1
+	move.l	PathAct(a5),a0
+	move.l	Name1(a5),a1
+.Loop4	move.b	(a0)+,(a1)+
+	bne.s	.Loop4
+	subq.l	#1,a1
+.Loop5	move.b	(a0)+,(a1)+
+	bne.s	.Loop5
+* Ok
+.Fini	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+** Deux points au d�but
+.Dp	move.l	PathAct(a5),a1
+.Dpl1	tst.b	(a1)+
+	bne.s	.Dpl1
+	move.l	a1,d1
+.Dpl2	move.b	(a0)+,(a1)+
+	bne.s	.Dpl2
+	move.l	Name1(a5),a1
+	move.l 	PathAct(a5),a0
+.Dpl3	move.b	(a0)+,d0
+	beq.s	.Dpl4
+	cmp.b	#":",d0
+	beq.s	.Dpl4
+	move.b	d0,(a1)+
+	bra.s	.Dpl3
+.Dpl4	move.l	d1,a0
+.Dpl5	move.b	(a0)+,(a1)+
+	bne.s	.Dpl5
+	bra.s	.Fini
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COPIE LE NOM (a2) dans le buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	NomDisc
+; - - - - - - - - - - - - -
+	move.w	(a2)+,d2
+	Rbeq	L_FonCall
+	cmp.w	#108,d2
+	Rbcc	L_FonCall
+	move.l	Name1(a5),a0
+	Rbsr	L_ChVerBuf2
+	Rbra	L_Dsk.PathIt
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					NOMDIR: (a2) >>> Name1 / Name2
+;	Met la racine en NAME1
+;	Met le filtre en NAME2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	NomDir
+; - - - - - - - - - - - - -
+	move.w	(a2)+,d2
+	cmp.w	#256,d2
+	Rbcc	L_StooLong
+	moveq	#0,d4
+NDir:	move.l	Name1(a5),a0
+	clr.b	(a0)
+	move.l	Name2(a5),a1
+	clr.b	(a1)
+	moveq	#-1,d1
+	move.l	a0,d3
+NmD1	addq.w	#1,d1
+	cmp.w	d1,d2
+	beq.s	NmD5
+	move.b	(a2)+,d0
+	move.b	d0,(a0)+
+	clr.b	(a0)
+	cmp.b	#"*",d0
+	beq.s	NmD2
+	cmp.b	#"?",d0
+	bne.s	NmD3
+NmD2	bset	#0,d4
+NmD3	cmp.b	#":",d0
+	beq.s	NmD4
+	cmp.b	#"/",d0
+	bne.s	NmD1
+NmD4	bclr	#0,d4
+	Rbne	L_FonCall
+	move.l	a0,d3
+	bra.s	NmD1
+NmD5	tst.w	d4
+	beq.s	NmDx
+	move.l	d3,a0
+NmD6	move.b	(a0)+,(a1)+
+	bne.s	NmD6
+	move.l	d3,a0
+	clr.b	(a0)
+NmDx	Rbra	L_Dsk.PathIt
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FILTRE LES NOMS DISQUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Joker
+; - - - - - - - - - - - - -
+	move.l	a0,d2
+	move.l	a1,d3
+JokLoop	move.b	(a1)+,d1
+	beq.s	JokX
+JokL0	move.b	(a0)+,d0
+	beq.s	JokNON
+	cmp.b	#"/",d0
+	beq.s	ReJok
+	cmp.b	#"?",d0
+	beq.s	JokC
+	cmp.b	#".",d0
+	beq.s	JokD
+	cmp.b	#"*",d0
+	beq.s	JokE
+* Veut une lettre normale!
+	cmp.b	#"a",d0
+	bcs.s	JokA
+	cmp.b	#"z",d0
+	bhi.s	JokA
+	sub.b	#"a"-"A",d0
+JokA:	cmp.b	#"a",d1
+	bcs.s	JokB
+	cmp.b	#"z",d1
+	bhi.s	JokB
+	sub.b	#"a"-"A",d1
+JokB:	cmp.b	d0,d1
+	beq.s	JokLoop
+	bra.s	ReJok
+* N'importe quelle lettre!
+JokC:	cmp.b 	#".",d1
+	bne.s	JokLoop
+	bra.s	ReJok
+* Un Point!
+JokD:	cmp.b	#".",d1
+	beq.s	JokLoop
+	bra.s	ReJok
+* Une etoile
+JokE:	cmp.b	#"*",(a0)
+	beq.s	JokOUI
+JokF:	cmp.b	#".",d1
+	beq.s	JokL0
+	move.b	(a1)+,d1
+	bne.s	JokF
+* Fin du mot sur le disque
+JokX:	move.b	(a0)+,d0
+	beq.s	JokOUI
+	cmp.b	#"/",d0
+	beq.s	JokOUI
+* Recommence!
+ReJok:	move.l	d2,a0
+	move.l	d3,a1
+ReJ:	move.b	(a0)+,d0
+	beq.s	JokNON
+	cmp.b	#"/",d0
+	bne.s	ReJ
+	move.l	a0,d2
+	bra	JokLoop
+* Reponses...
+JokNON:	moveq	#0,d0
+	rts
+JokOUI:	moveq	#1,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES DISQUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	D_Open
+; - - - - - - - - - - - - -
+	move.l 	Name1(a5),d1
+	Rbra	L_D_OpenD1
+; - - - - - - - - - - - - -
+	Lib_Def	D_OpenD1
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOOpen(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Handle(a5)
+; Branche la routine de nettoyage en cas d'erreur
+	move.l	a2,-(sp)
+	lea	.Struc(pc),a1
+	lea	Sys_ErrorRoutines(a5),a2
+	SyCall	AddRoutine
+	lea	.Struc2(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	move.l	(sp)+,a2
+	move.l	Handle(a5),d0
+	rts
+.Struc	dc.l	0
+	Rbra	L_D_Close
+.Struc2	dc.l	0
+	Rbra	L_D_Close
+; - - - - - - - - - - - - -
+	Lib_Def	D_Close
+; - - - - - - - - - - - - -
+	movem.l	d0/d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	beq.s	.Skip
+	clr.l	Handle(a5)
+	move.l	DosBase(a5),a6
+	jsr	_LVOClose(a6)
+.Skip	movem.l	(sp)+,d0/d1/a0/a1/a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	D_Read
+; - - - - - - - - - - - - -
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	D_Write
+; - - - - - - - - - - - - -
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	D_Seek
+; - - - - - - - - - - - - -
+	move.l	Handle(a5),d1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PSEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPSel
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FSEL(a$,b$,c$,d$)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnFileSelector1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	ChVide(a5),d3
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	Rbra	L_FnFileSelector4
+; - - - - - - - - - - - - -
+	Lib_Par	FnFileSelector2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	ChVide(a5),d3
+	move.l	d3,-(a3)
+	Rbra	L_FnFileSelector4
+; - - - - - - - - - - - - -
+	Lib_Par	FnFileSelector3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	ChVide(a5),d3
+	Rbra	L_FnFileSelector4
+; - - - - - - - - - - - - -
+	Lib_Par	FnFileSelector4
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	Rjsr	L_Dsk.FileSelector
+	move.l	d0,d3
+	Rbeq	L_Ret_ChVide
+; Recopie la chaine
+	move.l	a0,a2
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	lsr.w	#1,d3
+.Copy	move.w	(a2)+,(a0)+
+	dbra	d3,.Copy
+	move.l	a0,HiChaine(a5)
+	move.l	a1,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Apparition / disparition par le centre
+;	A2= ecran
+;	d7= vitesse
+;	d6= WTy
+;	d5= WY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	AppCentre
+; - - - - - - - - - - - - -
+FsApp1	move.w	d6,d4
+	move.w	d6,EcAWTY(a2)
+	add.w	d6,EcAWTY(a2)
+	bset	#2,EcAWT(a2)
+	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	sub.w	d6,d0
+	move.w	d0,EcAVY(a2)
+	bset	#2,EcAV(a2)
+	move.w	d5,EcAWY(a2)
+	sub.w	d6,EcAWY(a2)
+	bset	#2,EcAW(a2)
+	movem.l	a2/d4-d7,-(sp)
+	Rjsr	L_ReCop
+	movem.l	(sp)+,a2/d4-d7
+	add.w	d7,d6
+	bpl.s	FsApp2
+	moveq	#1,d6
+FsApp2:	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	cmp.w	d0,d6
+	bcs.s	FsApp3
+	move.w	d0,d6
+FsApp3:	cmp.w	d4,d6
+	bne.s	FsApp1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FORM LOAD
+;	Chargement de formes IFF en memoire
+;	D7=	Nombre de FORM a voir
+;	D6=	Adresse de chargement / 0 si Skip
+;	D5=	Handle fichier
+;	Sauver D5-D7 dans SaveRegs
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffFormLoad
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d1-d4/d7,-(sp)
+	moveq	#0,d4
+.Loop	move.l	Buffer(a5),d2
+	moveq	#12,d3
+	Rbsr	L_IffRead
+	beq.s	.Skip
+	cmp.l	#12,d0
+	Rbne	L_DiskError
+	move.l	d2,a0
+	move.l	(a0)+,d0
+	move.l	(a0)+,d2
+	move.l	(a0)+,d1
+	cmp.l	#"FORM",d0
+	Rbne	L_IffFor
+	cmp.l	#"ANIM",d1
+	beq.s	.Loop
+	tst.l	d6
+	beq.s	.SkipIt
+	move.l	d6,a1
+	move.l	d0,(a1)+
+	move.l	d2,(a1)+
+	move.l	d1,(a1)+
+	move.l	d2,d3
+	Pair	d3
+	subq.l	#4,d3
+	move.l	a1,d6
+	move.l	a1,d2
+	Rbsr	L_IffRead
+	cmp.l	d0,d3
+	Rbne	L_DiskError
+	add.l	d3,d6
+	addq.l	#1,d4
+	subq.l	#1,d7
+	bne.s	.Loop
+.Skip	move.l	d6,a0
+	move.l	#"AenD",(a0)
+	bra.s	.End
+.SkipIt	Pair	d2
+	subq.l	#4,d2
+	moveq	#0,d3
+	Rbsr	L_IffSeek
+	addq.l	#1,d4
+	subq.l	#1,d7
+	bne.s	.Loop
+.End	move.l	d4,d0
+	movem.l	(sp)+,a0-a1/d1-d4/d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Ramene la taille des FORMS, sans changer la position...
+;	D7=	Nombre de FORM a voir
+;	D5=	Handle fichier
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffFormSize
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a0/a1,-(sp)
+	sub.l	a1,a1
+	moveq	#0,d4
+	moveq	#0,d6
+* Boucle d'exploration
+.Loop	move.l	Buffer(a5),d2
+	moveq	#12,d3
+	Rbsr	L_IffRead
+	beq.s	.Skip
+	move.l	d2,a0
+	move.l	(a0),d0
+	cmp.l	#"FORM",d0
+	Rbne	L_IffFor
+	sub.l	d3,d4
+	move.l	8(a0),d0
+	cmp.l	#"ANIM",d0
+	beq.s	.Loop
+	add.l	d3,d6
+	addq.l	#1,a1
+	move.l	4(a0),d2
+	Pair	d2
+	subq.l	#4,d2
+	add.l	d2,d6
+	subq.l	#1,d7
+	beq.s	.Skip
+	sub.l	d2,d4
+	moveq	#0,d3
+	Rbsr	L_IffSeek
+	bra.s	.Loop
+* Remet au debut
+.Skip	move.l	d4,d2
+	moveq	#0,d3
+	Rbsr	L_IffSeek
+	move.l	d6,d0
+	addq.l	#4,d0
+	move.l	a1,d1
+	movem.l	(sp)+,d2-d7/a0/a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Lecture pour IFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffRead
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/a6/d1,-(sp)
+	move.l	d5,d1
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,a0/a1/a6/d1
+	tst.l	d0
+	Rbmi	L_DiskError
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Seek pour IFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffSeek
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/a6/d1,-(sp)
+	move.l	d5,d1
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	movem.l	(sp)+,a0/a1/a6/d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Initialisation des flags IFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffInit
+; - - - - - - - - - - - - -
+	clr.l	IffFlag(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				Charge et joue les formes dans un buffer
+;	D5=	Handle fichier
+;	D6=
+;	D7=	Nombre de formes
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffForm
+; - - - - - - - - - - - - -
+	Rbsr	L_IffFormSize	Demande la taille
+	add.l	#16,d0
+	Rjsr	L_ResTempBuffer
+	beq	.Err
+	move.l	a0,d6
+	Rbsr	L_IffFormLoad
+	cmp.w	d0,d7
+	Rbne	L_DiskError
+	move.l	TempBuffer(a5),d6
+	Rbsr	L_IffFormPlay
+	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+	rts
+.Err	moveq	#-1,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Interpretation des formes chargees
+;	D7=	Nombre de formes a interpreter
+;	Bit #30 >>> Sauter tout
+;	D6= 	Adresse � voir
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffFormPlay
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d5/d7,-(sp)
+	clr.l	IffFlag(a5)
+	clr.l	IffReturn(a5)
+	bclr	#31,d7
+.FLoop	move.l	d6,a0
+	cmp.l	#"FORM",(a0)
+	beq.s	.Form
+	cmp.l	#"AenD",(a0)
+	beq.s	.End
+	btst	#31,d7
+	Rbeq	L_IffFor
+*
+* Un chunk.
+	lea	Chunks(pc),a1
+	bsr	GetIff
+	bmi.s	.Saute
+* Positionne les flags
+	btst	#30,d7
+	bne.s	.Saute
+	move.l	IffMask(a5),d1		* Peut charger le chunk?
+	btst	d0,d1
+	beq.s	.Saute
+	move.l	IffFlag(a5),d1
+	bset	d0,d1
+	move.l	d1,IffFlag(a5)
+* Appelle la routine
+	lsl.w	#2,d0
+	lea	IffJumps(pc),a0
+	movem.l	d6/d7,-(sp)
+	jsr	0(a0,d0.w)
+	movem.l	(sp)+,d6/d7
+	bra.s	.Saute
+*
+* Une forme.
+.Form	subq.w	#1,d7
+	bmi.s	.End
+	bset	#31,d7
+	addq.l	#8,a0
+	lea	Forms(pc),a1
+	bsr	GetIff
+	bmi.s	.Saute
+	add.l	#12,d6
+	bra	.FLoop
+* Termine!
+.End	movem.l	(sp)+,a0-a2/d0-d5/d7
+	rts
+*
+* Saute le form/chunk courant
+.Saute	move.l	d6,a0
+	move.l	4(a0),d0
+	Pair	d0
+	addq.l	#8,d0
+	add.l	d0,d6
+	bra	.FLoop
+
+;	Explore les noms iff (a0)<>(a1)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+GetIff	moveq	#-1,d0
+	move.l	(a0),d1
+Giff1:	tst.b	(a1)
+	bmi.s	Giff2
+	addq.l	#1,d0
+	cmp.l	(a1)+,d1
+	bne.s	Giff1
+	tst.l	d0
+Giff2:	rts
+
+; 	Fin des routines
+; ~~~~~~~~~~~~~~~~~~~~~~
+IffOk	moveq	#-1,d1
+IffEnd	rts
+
+
+;		FORMES iff
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Forms		dc.b 	"ILBM"		0
+		dc.b 	"ANIM"		1
+		dc.b 	-1
+		even
+;		CHUNKS iff
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Chunks		dc.b 	"BMHD"		0
+		dc.b 	"CAMG"		1
+		dc.b 	"CMAP"		2
+		dc.b	"CCRT"		3
+		dc.b	"BODY"		4
+		dc.b 	"AMSC"		5
+		dc.b	"ANHD"		6
+		dc.b	"DLTA"		7
+		dc.b 	-1
+		even
+;		Table des sauts aux chunks
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IffJumps	bra	IffBMHD
+		bra	IffCAMG
+		bra	IffCMAP
+		bra	IffCCRT
+		bra	IffBODY
+		bra	IffAMSC
+		bra	IffANHD
+		bra	IffDLTA
+
+;	BMHD!
+IffBMHD:move.l	d6,BufBMHD(a5)
+	addq.l	#8,BufBMHD(a5)
+	rts
+;------ CMAP!
+IffCMAP:move.l	d6,BufCMAP(a5)
+	rts
+;------ CAMG
+IffCAMG:move.l	d6,BufCAMG(a5)
+	addq.l	#8,BufCAMG(a5)
+	rts
+;------ CCRT
+IffCCRT:move.l	d6,BufCCRT(a5)
+	addq.l	#8,BufCCRT(a5)
+	rts
+;------ AMSC / ANHD
+IffANHD
+IffAMSC move.l	d6,BufAMSC(a5)
+	addq.l	#8,BufAMSC(a5)
+	rts
+
+;------ BODY
+IffBODY
+	move.l	a3,-(sp)
+	move.l	d6,a3
+	addq.l	#8,a3
+	cmp.l	#EntNul,IffParam(a5)
+	beq.s	IffB1
+* Fabrique l'ecran!
+	bsr	IffScreen
+	Rbeq	L_IffFor
+	move.l	IffParam(a5),d1
+	cmp.l	#8,d1
+	Rbcc	L_IllScN
+	lea	DefPal(a5),a1
+	EcCall	Cree
+	Rbne	L_EcWiErr
+	move.l	a0,ScOnAd(a5)
+	move.w	EcNumber(a0),ScOn(a5)
+	addq.w	#1,ScOn(a5)
+	bsr	IffCentre
+*
+*
+IffB1:	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	bsr	IffPal
+	bsr	IffShift
+* Charge les plans de bits
+	moveq	#0,d1			* Trouve l'adresse ecran
+	move.w	ScOn(a5),d1
+	subq.w	#1,d1
+	Rbmi	L_ScNOp
+	EcCall	Active
+	move.l	a0,a2
+	move.l	IffFlag(a5),d7		* BMHD charge?
+	btst	#0,d7
+	Rbeq	L_FonCall
+	move.l	BufBMHD(a5),a1
+* Regarde si l'image n'est pas + grande que l'ecran!
+	move.w	(a1),d5			* Largeur du dessin
+	ext.l	d5
+	cmp.w	EcTx(a2),d5
+	Rbhi	L_CantFit
+	move.w	2(a1),d6		* Hauteur du dessin
+	cmp.w	EcTy(a2),d6
+	bls	IffB3
+	move.w	EcTy(a2),d6
+IffB3:	move.b	8(a1),d7		* Nombre de plans
+	ext.w	d7
+	cmp.w	EcNPlan(a2),d7
+	Rbhi	L_CantFit
+	addq.w	#7,d5
+	lsr.w	#3,d5
+	subq.w	#1,d7
+* Enleve le curseur
+	movem.l	a0-a6/d0-d7,-(sp)
+	lea	ChCuOff(pc),a1
+	WiCall	Print
+	movem.l	(sp)+,a0-a6/d0-d7
+
+* Format compresse?
+	tst.b	10(a1)
+	bne.s	BodyC
+*
+* Pas de compression
+	move.l	d5,d3
+	lsr.w	#1,d3
+	subq.w	#1,d3
+	move.w	d7,d5
+	subq.w	#1,d6
+	moveq	#0,d4
+.Bd2:	lea	EcLogic(a2),a0
+	move.w	d5,d7
+.Bd3:	move.l	(a0)+,a1
+	add.l	d4,a1
+	move.w	d3,d0
+.Bd4	move.w	(a3)+,(a1)+
+	dbra	d0,.Bd4
+	dbra	d7,.Bd3
+	move.w	EcTLigne(a2),d0
+	ext.l	d0
+	add.l	d0,d4
+	dbra	d6,.Bd2
+	bra	FinBody
+*
+* Compression! BYTE RUN 1
+BodyC:	cmp.b	#1,10(a1)
+	Rbne	L_IffCmp
+	movem.l	a4-a6,-(sp)
+	move.w	d7,d3
+	move.w	d6,d2
+	subq.w	#1,d2
+	moveq	#0,d6
+Bb2:	lea	EcLogic(a2),a6
+	move.w	d3,d7
+Bb3:	move.l	(a6)+,a4
+	add.l	d6,a4
+	moveq	#0,d4
+Bb4:	moveq	#0,d0
+	move.b	(a3)+,d0
+	bmi.s	Bb5
+* Lire N octets decodes
+	add.w	d0,d4
+	addq.w	#1,d4
+Bb4a:	move.b	(a3)+,(a4)+
+	dbra	d0,Bb4a
+	bra.s	Bb7
+* Repeter N fois...
+Bb5:	cmp.b	#128,d0
+	beq.s	Bb7
+	move.b	(a3)+,d1
+	neg.b	d0
+	add.w	d0,d4
+	addq.w	#1,d4
+Bb6:	move.b	d1,(a4)+
+	dbra	d0,Bb6
+* Encore pour la ligne?
+Bb7:	cmp.w	d5,d4
+	bcs.s	Bb4
+* Encore un plan?
+	dbra	d7,Bb3
+* Encore une ligne?
+	move.w	EcTLigne(a2),d0
+	ext.l	d0
+	add.l	d0,d6
+	dbra	d2,Bb2
+* Libere le buffer
+	movem.l	(sp)+,a4-a6
+*
+* Fin du BODY: saute le CHUNK
+FinBody move.l	(sp)+,a3
+	rts
+
+;------ Fabrique l'ecran avec les donnees
+IffScreen:
+* Peut-on fabriquer un ecran?
+	move.l	IffFlag(a5),d7
+	btst	#0,d7		* Une BMHD?
+	beq	IffEnd
+* Parametre?
+	moveq	#0,d5
+	move.l	BufBMHD(a5),a0
+	move.w	0(a0),d2	* Largeur, MOT superieur!
+	add.w	#15,d2
+	and.w	#$FFF0,d2
+	ext.l	d2
+	move.w	2(a0),d3	* Hauteur
+	ext.l	d3
+	move.b	8(a0),d4
+	ext.w	d4		* Nb plans
+	ext.l	d4
+	moveq	#2,d6		* Calcule le nb de couleurs
+	move.w	d4,d0
+IfS0:	subq.w	#1,d0
+	beq.s	IfS0a
+	lsl.w	#1,d6
+	bra.s	IfS0
+* Trouve les modes graphiques
+IfS0a:	moveq	#0,d5
+
+*	moveq	#0,d0		* Analyse du ratio HAUTEUR/LARGEUR
+*	move.b	14(a0),d0
+*	beq.s	IfS0b
+*	lsl.w	#8,d0
+*	moveq	#0,d1
+*	move.b	15(a0),d1
+*	beq.s	IfS0b
+*	divu	d1,d0
+*	cmp.w	#174,d0
+*	bcc.s	IfS0b
+*	bset	#2,d5
+*IfS0b	cmp.w	#348,d0
+*	bcc.s	IfS0c
+
+	cmp.w	#640,16(a0)
+	bcs.s	IfS0d
+IfS0c	cmp.w	#4,d4
+	bhi.s	IfS0d
+	bset	#15,d5
+IfS0d	cmp.w	#400,18(a0)
+	bcs.s	IfS0e
+	bset	#2,d5
+IfS0e
+* CAMG chunk
+	btst	#1,d7
+	beq.s	IfS5
+	moveq	#0,d5
+	move.l	BufCAMG(a5),a0	* Modes graphiques
+	move.l	(a0),d0
+IfS1:	btst	#11,d0			* HAM?
+	beq.s	IfS2
+	moveq	#6,d4
+	move.w	#$0800,d5
+	moveq	#64,d6
+IfS2:	and.w	#%1000000000000100,d0	* HIRES? INTERLACED?
+	or.w	d0,d5
+IfS5:	moveq	#-1,d0
+	rts
+
+;------ Centre l'ecran IFF dans l'ecran
+IffCentre:
+* Prend les parametres de l'IMAGE
+	moveq	#0,d1			* Trouve l'adresse ecran
+	move.w	ScOn(a5),d1
+	subq.w	#1,d1
+	Rbmi	L_ScNOp
+	EcCall	Active
+* Un chunk AMSC?
+	btst	#5,d7
+	beq	IffEnd
+	move.l	a0,a1
+	move.l	BufAMSC(a5),a0
+	move.w	(a0)+,EcAWX(a1)
+	move.w	(a0)+,EcAWY(a1)
+	move.w	(a0)+,EcAWTX(a1)
+	move.w	(a0)+,EcAWTY(a1)
+	move.w	(a0)+,EcAVX(a1)
+	move.w	(a0)+,EcAVY(a1)
+	move.w	(a0)+,EcFlags(a1)
+	moveq	#6,d0
+	move.b	d0,EcAW(a1)
+	move.b	d0,EcAWT(a1)
+	move.b	d0,EcAV(a1)
+	bset	#BitEcrans,T_Actualise(a5)
+	rts
+
+;------ Fait shifter les couleurs
+IffShift:
+	move.l	IffFlag(a5),d7
+	btst	#3,d7
+	beq.s	IffShX
+	move.l	BufCCRT(a5),a0
+	move.w	(a0),d5
+	beq.s	IffShX
+	bpl.s	IffSh0
+	moveq	#0,d5
+IffSh0	move.b	2(a0),d3
+	bmi.s	IffShX
+	ext.w	d3
+	move.b	3(a0),d4
+	bmi.s	IffShX
+	ext.w	d4
+	cmp.w	d4,d3
+	bcc.s	IffShX
+	move.l	8(a0),d2		* 1/1000 ---> 1/50
+	divu	#20,d2
+	tst.w	d2
+	beq.s	IffShX
+	moveq	#1,d1
+	moveq	#1,d6			* Boucle!
+	EcCall	Shift
+	Rbne	L_EcWiErr
+IffShX:	rts
+
+;------ Recupere la palette IFF
+IffPal:	lea	DefPal(a5),a2
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+	moveq	#31,d0
+IfSa:	move.w	(a2)+,(a0)+
+	dbra	d0,IfSa
+	move.l	IffFlag(a5),d7
+	btst	#2,d7
+	beq	IfSc
+	move.l	a1,a0
+	move.l	BufCMAP(a5),a2
+	move.l	4(a2),d0
+	divu	#3,d0
+	subq.w	#1,d0
+	addq.l	#8,a2
+IfSb:	move.b	(a2)+,d1
+	and.w	#$00F0,d1
+	move.b	(a2)+,d2
+	lsr.b	#4,d2
+	or.b	d2,d1
+	lsl.w	#4,d1
+	move.b	(a2)+,d2
+	lsr.b	#4,d2
+	or.b	d2,d1
+	move.w	d1,(a0)+
+	dbra	d0,IfSb
+IfSc:	EcCall	SPal
+	rts
+
+;------ Chunk DLTA, animation IFF!!!
+IffDLTA
+	move.l	a4,-(sp)
+* Regarde le chunk ANHD
+	move.l	IffFlag(a5),d7
+	btst	#6,d7
+	Rbeq	L_IffFor
+	move.l	BufAMSC(a5),a0
+	cmp.b	#5,(a0)			* Bon mode d'anim?
+	Rbne	L_IffFor		Illegal >> message d'erreur
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_EcCourant(a5),a1
+	moveq	#0,d0			* X
+	moveq	#0,d1			* Y
+	move.w	EcTLigne(a1),d2		* Taille ligne
+	ext.l	d2
+	moveq	#-1,d3
+	move.l	d2,d4			* Nombre de colonnes
+*	move.b	1(a0),d3		* Masque des plans
+	move.l	14(a0),IffReturn(a5)	* Temps d'attente
+* Adresse dans l'ecran
+	mulu	d2,d1
+	lsr.w	#3,d0
+	ext.l	d0
+	add.l	d0,d1
+* Boucle d'appel des routines
+	move.l	d6,a4
+	addq.l	#8,a4
+	moveq	#0,d5
+	moveq	#0,d6
+	move.w	EcNPlan(a1),d7
+	subq.w	#1,d7
+	lea	EcLogic(a1),a1
+.Loop	move.l	(a1)+,a2
+	add.l	d1,a2
+	move.l	0(a4,d6.w),d0
+	beq.s	.Skip
+	lea	0(a4,d0.w),a0
+	btst	d5,d3
+	beq.s	.Skip
+	bsr.s	_decode_vkplane
+.Skip	addq.l	#1,d5
+	addq.l	#4,d6
+	dbra	d7,.Loop
+* Fini!
+	movem.l	(sp)+,a4
+	rts
+
+;------ Decodage d'un bitplane by Jim Kent
+*	A0->	source
+*	A2->	bitplane
+*	D2->	Taille ligne
+*	D4->	Nombre de lignes
+*	A3->	Table multiplication
+_decode_vkplane
+	movem.l	a0-a3/d0-d5,-(sp)  ; save registers for Aztec C
+	bra	zdcp	; And go to the "columns" loop
+
+dcp
+	move.l	a2,a1     ; get copy of dest pointer
+	clr.w	d0	; clear hi byte of op_count
+	move.b	(a0)+,d0  ; fetch number of ops in this column
+	bra	zdcvclp   ; and branch to the "op" loop.
+
+dcvclp	clr.w	d1	; clear hi byte of op
+	move.b	(a0)+,d1	; fetch next op
+	bmi.s	dcvskuniq ; if hi-bit set branch to "uniq" decoder
+	beq.s 	dcvsame	; if it's zero branch to "same" decoder
+
+skip			; otherwise it's just a skip
+*	add.w	d1,d1	; use amount to skip as index into word-table
+*	adda.w	0(a3,d1),a1
+	mulu	d2,d1
+	add.l	d1,a1
+	dbra	d0,dcvclp ; go back to top of op loop
+	bra.s	z1dcp     ; go back to column loop
+
+dcvsame			;here we decode a "vertical same run"
+	move.b	(a0)+,d1	;fetch the count
+	move.b	(a0)+,d3  ; fetch the value to repeat
+	move.w	d1,d5     ; and do what it takes to fall into a "tower"
+	asr.w	#3,d5     ; d5 holds # of times to loop through tower
+	and.w	#7,d1     ; d1 is the remainder
+	add.w	d1,d1
+	add.w	d1,d1
+	neg.w	d1
+	jmp	Ici0(pc,d1) ; why 34?  8*size of tower
+                                         ;instruction pair, but the extra 2's
+                                         ;pure voodoo.
+same_tower
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+	move.b	d3,(a1)
+	adda.w	d2,a1
+Ici0	dbra	d5,same_tower
+	dbra	d0,dcvclp
+	bra.S	z1dcp
+
+dcvskuniq                     ; here we decode a "unique" run
+	and.b	#$7f,d1       ; setting up a tower as above....
+	move.w	d1,d5
+	asr.w	#3,d5
+	and.w	#7,d1
+	add.w	d1,d1
+	add.w	d1,d1
+	neg.w	d1
+	jmp	Ici1(pc,d1)
+uniq_tower
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+	move.b	(a0)+,(a1)
+	adda.w	d2,a1
+Ici1	dbra	d5,uniq_tower  ; branch back up to "op" loop
+zdcvclp dbra	d0,dcvclp      ; branch back up to "column loop"
+
+	; now we've finished decoding a single column
+z1dcp	addq.l	#1,a2  ; so move the dest pointer to next column
+zdcp	dbra	d4,dcp ; and go do it again what say?
+	movem.l	(sp)+,a0-a3/d0-d5
+	rts
+;		Arret du curseur...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ChCuOff		dc.b	27,"C0",0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauvegarde d'ecran IFF
+;	D7	Compression
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IffSaveScreen
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),a2
+	move.l	Buffer(a5),a1
+	move.l	#"FORM",(a1)+		* FORM
+	clr.l	(a1)+			* Espace
+	move.l	#"ILBM",(a1)+		* ILBM
+	Rbsr	L_SaveA1
+	Rbsr	L_SaveBMHD
+	Rbsr	L_SaveCAMG
+	Rbsr	L_SaveAMSC
+	Rbsr	L_SaveCMAP
+	Rbsr	L_SaveBODY
+.Fin	moveq	#-1,d3
+	moveq	#4,d2
+	Rbsr	L_D_Seek
+	subq.l	#8,d0
+	move.l	Buffer(a5),a1
+	move.l	d0,(a1)+
+	Rbsr	L_SaveA1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve le BMHD
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveBMHD
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	move.l	#"BMHD",(a1)+
+	move.l	#20,(a1)+
+	move.w	EcTx(a2),(a1)+
+	move.w	EcTy(a2),(a1)+
+	clr.w	(a1)+
+	clr.w	(a1)+
+	move.b	EcNPlan+1(a2),(a1)+
+	clr.b	(a1)+
+	move.b	d7,(a1)+
+	clr.b	(a1)+
+	clr.w	(a1)+
+	moveq	#20,d0
+	moveq	#22,d1
+	move.w	EcWTx(a2),d2
+	move.w	EcWTy(a2),d3
+	move.w	EcCon0(a2),d4
+	bpl.s	Sbmhd1
+	lsr.w	#1,d0
+	lsl.w	#1,d2
+Sbmhd1	btst	#2,d4
+	beq.s	Sbmhd2
+	lsr.w	#1,d1
+	lsl.w	#1,d3
+Sbmhd2	move.b	d0,(a1)+
+	move.b	d1,(a1)+
+	move.w	d2,(a1)+
+	move.w	d3,(a1)+
+	Rbra	L_SaveA1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve la CMAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveCMAP
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	move.l	#"CMAP",(a1)+
+	move.l	#32*3,(a1)+
+	moveq	#31,d0
+	lea	EcPal(a2),a0
+SCm1	move.w	(a0)+,d1
+	lsl.w	#4,d1
+	moveq	#2,d2
+SCm2	rol.w	#4,d1
+	move.w	d1,d3
+	and.w	#$000F,d3
+	lsl.w	#4,d3
+	move.b	d3,(a1)+
+	dbra	d2,SCm2
+	dbra	d0,SCm1
+	Rbra	L_SaveA1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve la CAMG
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveCAMG
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	move.l	#"CAMG",(a1)+
+	move.l	#4,(a1)+
+	moveq	#0,d0
+	move.w	EcCon0(a2),d0
+	and.w	#%1000100000000110,d0
+	cmp.w	#64,EcNbCol(a2)
+	bne.s	SCa
+	btst	#11,d0
+	bne.s	SCa
+	bset	#7,d0
+SCa	move.l	d0,(a1)+
+	Rbra	L_SaveA1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve le AMSC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveAMSC
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	move.l	#"AMSC",(a1)+
+	move.l	#7*2,(a1)+
+	move.w	EcAWX(a2),(a1)+
+	move.w	EcAWY(a2),(a1)+
+	move.w	EcAWTX(a2),(a1)+
+	move.w	EcAWTY(a2),(a1)+
+	move.w	EcAVX(a2),(a1)+
+	move.w	EcAVY(a2),(a1)+
+	move.w	EcFlags(a2),d0
+	and.w	#$8000,d0
+	move.w	d0,(a1)+
+	Rbra	L_SaveA1
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve le BODY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveBODY
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	move.l	#"BODY",(a1)+
+	tst.b	d7
+	bne.s	SBc
+* Non compacte
+	move.l	EcTPlan(a2),d0		* Entete
+	mulu	EcNPlan(a2),d0
+	move.l	d0,(a1)+
+	Rbsr	L_SaveA1
+	move.w	EcTy(a2),d7		* Image
+	moveq	#0,d3
+	move.w	EcTLigne(a2),d3
+	moveq	#0,d4
+SBo1	move.w	EcNPlan(a2),d6
+	lea	EcLogic(a2),a0
+SBo2	move.l	(a0)+,d2
+	add.l	d4,d2
+	Rbsr	L_D_Write
+	Rbne	L_DiskError
+	subq.w	#1,d6
+	bne.s	SBo2
+	add.l	d3,d4
+	subq.w	#1,d7
+	bne.s	SBo1
+	rts
+* Compacte!
+SBc:	clr.l	(a1)+
+	Rbsr	L_SaveA1
+	moveq	#0,d2			* Position dans le fichier
+	moveq	#0,d3
+	Rbsr	L_D_Seek
+	move.l	d0,-(sp)
+	moveq	#0,d7
+	move.w	EcTy(a2),d6
+	moveq	#0,d5
+	move.w	EcTLigne(a2),d5
+	moveq	#0,d4
+	move.l	a3,-(sp)
+	move.w	EcNPlan(a2),-(sp)
+	pea	EcLogic(a2)
+SBc1	move.l	(sp),a2
+	move.w	4(sp),d3
+	move.l	Buffer(a5),a1
+SBc2	move.w	d5,d2
+	move.l	(a2)+,a0
+	add.l	d4,a0
+SBc3	moveq	#0,d1
+	move.b	(a0)+,d0
+	subq.w	#1,d2
+	beq.s	SBc5a
+SBc4	cmp.b	(a0),d0
+	bne.s	SBc5
+	addq.l	#1,d1
+	addq.l	#1,a0
+	cmp.w	#127,d1
+	bcc.s	SBc5
+	subq.w	#1,d2
+	bne.s	SBc4
+SBc5	tst.w	d1
+	beq.s	SBc6
+	neg.b	d1
+	move.b	d1,(a1)+
+	move.b	d0,(a1)+
+	tst.w	d2
+	bne.s	SBc3
+	bra.s	SBc10
+SBc5a	clr.b	(a1)+
+	move.b	d0,(a1)+
+	bra.s	SBc10
+SBc6	move.l	a1,a3
+	moveq	#0,d1
+	clr.b	(a1)+
+	move.b	d0,(a1)+
+SBc7	move.b	(a0),d0
+	cmp.b	1(a0),d0
+	bne.s	SBc8
+	cmp.b	2(a0),d0
+	beq.s	SBc9
+SBc8	move.b	(a0)+,(a1)+
+	addq.w	#1,d1
+	subq.w	#1,d2
+	beq.s	SBc9
+	cmp.w	#127,d1
+	bcs.s	SBc7
+SBc9	move.b	d1,(a3)
+	tst.w	d2
+	bne.s	SBc3
+* Autre plan?
+SBc10	subq.w	#1,d3
+	bne.s	SBc2
+* Sauve le buffer
+	move.l	Buffer(a5),d2
+	move.l	a1,d3
+	sub.l	d2,d3
+	add.l	d3,d7
+	Rbsr	L_D_Write
+	Rbne	L_DiskError
+* Encore une ligne?
+	add.l	d5,d4
+	subq.w	#1,d6
+	bne	SBc1
+* A y est!
+	addq.l	#6,sp
+	move.l	(sp)+,a3
+* Rend le chunk pair
+	btst	#0,d7
+	beq.s	SBc11
+	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	move.l	a1,d2
+	moveq	#1,d3
+	Rbsr	L_D_Write
+	Rbne	L_DiskError
+	addq.l	#1,d7
+* Marque la longueur du chunk!
+SBc11	move.l	(sp)+,d2		* Debut du chunk
+	subq.l	#4,d2
+	moveq	#-1,d3
+	Rbsr	L_D_Seek
+	move.l	d0,-(sp)
+	move.l	Buffer(a5),a1		* Sauve la longueur
+	move.l	d7,(a1)
+	move.l	a1,d2
+	moveq	#4,d3
+	Rbsr	L_D_Write
+	Rbne	L_DiskError
+	move.l	(sp)+,d2		* Remet a la fin
+	moveq	#-1,d3
+	Rbsr	L_D_Seek
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauve jusqu'a A1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveA1
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),d2
+	move.l	a1,d3
+	sub.l	d2,d3
+	beq	.Skip
+	Rbsr	L_D_Write
+	Rbne	L_DiskError
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Sauvegarde les registres D5-D7
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SaveRegs
+; - - - - - - - - - - - - -
+	movem.l	d6-d7,ErrorSave(a5)
+	move.b	#1,ErrorRegs(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Recupere les registres D5-D7
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LoadRegs
+; - - - - - - - - - - - - -
+	movem.l	ErrorSave(a5),d6-d7
+	clr.b	ErrorRegs(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	COMMAND LINE$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InCommandLine
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	cmp.w	#256,d2
+	Rbcc	L_FonCall
+	move.l	Buffer(a5),a1
+	lea	TBuffer-256-6(a1),a1
+	move.l	#"CmdL",(a1)+
+	move.w	d2,(a1)+
+	addq.w	#1,d2
+	lsr.w	#1,d2
+	subq.w	#1,d2
+	bmi.s	.skip
+.loop	move.w	(a2)+,(a1)+
+	dbra	d2,.loop
+.skip	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=COMMAND LINE$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnCommandLine
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a2
+	lea	TBuffer-256-6(a2),a2
+	cmp.l	#"CmdL",(a2)+
+	Rbne	L_Ret_ChVide
+	moveq	#0,d3
+	move.w	(a2)+,d3
+	Rbeq	L_Ret_ChVide
+	cmp.w	#256,d3
+	Rbcc	L_Ret_ChVide
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	move.w	d3,d0
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	subq.w	#1,d0
+.loop	move.w	(a2)+,(a0)+
+	dbra	d0,.loop
+	move.l	a0,HiChaine(a5)
+	move.l	a1,d3
+	Ret_String
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TROUVE L'ADRESSE DE LA BANQUE D0
+;	OUT	BEQ Pas trouve, BNE Trouve, D0=Flags / A1=Adresse
+;	Ne pas changer sans voir GETBOB / GETICON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.GetAdr
+; - - - - - - - - - - - - -
+	move.l	Cur_Banks(a5),a0
+	move.l	(a0),d1
+	beq.s	.Nof
+.Loop	move.l	d1,a1
+	cmp.l	8(a1),d0
+	beq.s	.Fnd
+	move.l	(a1),d1
+	bne.s	.Loop
+.Nof	sub.l	a1,a1
+	move.l	a1,a0
+	rts
+.Fnd	move.w	8+4(a1),d0
+	lea	8*3(a1),a0
+	move.l	a0,a1
+	move.w	#%00000,CCR
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TROUVE ADRESSE BANQUE SPRITES
+;	OUT	BNE trouve A0/A1=adresse (D0/D1 inchanges)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.GetBobs
+; - - - - - - - - - - - - -
+	movem.l	d0/d1,-(sp)
+	moveq	#1,d0
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Nof
+	btst	#Bnk_BitBob,d0
+.Nof	movem.l	(sp)+,d0/d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TROUVE L'ADRESSE BANQUE ICONES
+;	OUT	D0/A0/A1=	adresse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.GetIcons
+; - - - - - - - - - - - - -
+	movem.l	d0/d1,-(sp)
+	moveq	#2,d0
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Nof
+	btst	#Bnk_BitIcon,d0
+.Nof	movem.l	(sp)+,d0/d1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EFFACEMENT BANQUE D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Eff
+; - - - - - - - - - - - - -
+	movem.l	d0-d2/a0-a2,-(sp)
+; Trouve l'adresse
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Out
+; Appelle la routine d'effacement
+	Rbsr	L_Bnk.EffA0
+; Fin de l'effacement des banques
+.Out	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EFFACEMENT BANQUE A0=Adresse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.EffA0
+; - - - - - - - - - - - - -
+	move.w	-16+4(a0),d0
+	btst	#Bnk_BitIcon,d0
+	bne.s	.Spr
+	btst	#Bnk_BitBob,d0
+	beq.s	.Nor
+; Une banque de Sprites / Icones
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Spr	movem.l	a0/a2/d2,-(sp)
+	move.l	a0,a2
+; Efface les sprites
+	move.w	(a2)+,d2		Nombre de bobs
+	subq.w	#1,d2
+	bmi.s	.Skip
+.Loop	move.l	a2,a0			Va effacer la definition
+	Rbsr	L_Bnk.EffBobA0
+	addq.l	#8,a2
+	dbra	d2,.Loop
+.Skip	movem.l	(sp)+,a0/a2/d2		Recharge les pointeurs zone de def
+; Une banque normale
+; ~~~~~~~~~~~~~~~~~~
+.Nor	clr.l	-8(a0)			Efface le NOM de la banque
+	clr.l	-8+4(a0)
+	lea	-8*3(a0),a1		Pointe le debut dans la liste
+	move.l	Cur_Banks(a5),a0
+	Rjmp	L_Lst.Del
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EFFACEMENT BOBS/ICONS A0=Adresse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.EffBobA0
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/a2/d0/d1,-(sp)
+	move.l	a0,a2
+; Efface le bob
+	move.l	(a2),d1
+	beq.s	.No1
+	move.l	d1,a1
+	move.w	(a1),d0
+	mulu	2(a1),d0
+	lsl.l	#1,d0
+	mulu	4(a1),d0
+	add.l	#10,d0
+	SyCall	MemFree
+; Efface le masque
+.No1	move.l	4(a2),d1
+	ble.s	.No2
+	move.l	d1,a1
+	move.l	(a1),d0
+	SyCall	MemFree
+.No2	clr.l	(a2)+
+	clr.l	(a2)+
+	movem.l	(sp)+,a0/a1/a2/d0/d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EFFACEMENT TOUTES LES BANQUES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.EffAll
+; - - - - - - - - - - - - -
+	movem.l	a2/d2,-(sp)
+	move.l	Cur_Banks(a5),a2
+	move.l	(a2),d2
+	beq.s	.Out
+.Loop	move.l	d2,a2
+	move.l	(a2),d2
+	lea	8*3(a2),a0
+	Rbsr	L_Bnk.EffA0
+	tst.l	d2
+	bne.s	.Loop
+.Out	movem.l	(sp)+,a2/d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EFFACEMENT TOUTES BANQUES TEMP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.EffTemp
+; - - - - - - - - - - - - -
+	movem.l	a2/d2,-(sp)
+	move.l	Cur_Banks(a5),a2
+	move.l	(a2),d2
+	beq.s	.Out
+.Loop	move.l	d2,a2
+	move.l	(a2),d2
+	move.w	8+4(a2),d0
+	btst	#Bnk_BitData,d0
+	bne.s	.Skip
+	lea	8*3(a2),a0
+	Rbsr	L_Bnk.EffA0
+.Skip	tst.l	d2
+	bne.s	.Loop
+.Out	movem.l	(sp)+,a2/d2
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ADRESS OR BANK
+;	D0>>>D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.OrAdr
+; - - - - - - - - - - - - -
+	cmp.l	#1024,d0
+	bge.s	.Skip
+	Rbsr	L_Bnk.GetAdr
+	Rbeq	L_BkNoRes
+	move.l	a0,d0
+.Skip	move.l	d0,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TROUVE L'ADRESSE BOB D0>A0
+;	IN	D0	Numero
+;	OUT	A0/D0	Adresse (BNE)
+;		D1	Max de bobs
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.AdBob
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	Rbsr	L_Bnk.GetBobs
+	beq.s	.Rien
+	move.w	(a1),d1
+	cmp.w	d1,d0
+	bhi.s	.Rien
+	lsl.w	#3,d0
+	lea	-8+2(a1,d0.w),a0
+	bra.s	.Out
+.Rien	sub.l	a0,a0
+.Out	move.l	a0,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ADRESSE ICONE
+;	IN	D0	Numero
+;	OUT	A0/D0	Adresse (BNE)
+;		D1	Max de bobs
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.AdIcon
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	Rbsr	L_Bnk.GetIcons
+	beq.s	.Rien
+	move.w	(a1),d1
+	cmp.w	d1,d0
+	bhi.s	.Rien
+	lsl.w	#3,d0
+	lea	-8+2(a1,d0.w),a0
+	bra.s	.Out
+.Rien	sub.l	a0,a0
+.Out	move.l	a0,d0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	RESERVATION DE LA BANQUE DE SPRITES ou ICONES
+;	D0=	Effacer ou non 0 Efface, 1 Append, -1 pas recopie+garde
+;	D1= 	Nombre de sprites/icons
+;	Retour: A0= Debut banque A1= ancienne bank
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.ResIco
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a3,-(sp)
+	Rbsr	L_Bnk.GetIcons
+	moveq	#(1<<Bnk_BitIcon)+(1<<Bnk_BitData),d2
+	Rbra	L_Bnk.Ric2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BOBS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.ResBob
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a3,-(sp)
+	Rbsr	L_Bnk.GetBobs
+	moveq	#(1<<Bnk_BitBob)+(1<<Bnk_BitData),d2
+	Rbra	L_Bnk.Ric2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; Entree 2
+;	A1=	Banque origine (si definie)
+;	D0=	Flag
+;	D1=	Nombre
+;	D2=	Flags
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Ric
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a3,-(sp)
+	Rbra	L_Bnk.Ric2
+; - - - - - - - - - - - - -
+	Lib_Def	Bnk.Ric2
+; - - - - - - - - - - - - -
+	move.w	d2,d4
+	moveq	#0,d3
+	move.w	d1,d3
+	move.l	d0,d2
+	move.l	a1,a3
+; Reserve une nouvelle table de pointeurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	d3,d0
+	lsl.l	#3,d0
+	add.l	#8*2+2+64,d0
+	move.l	Cur_Banks(a5),a0
+	Rjsr	L_Lst.New
+	beq	.Err
+	lea	8(a1),a2
+; Entete de la banque
+; ~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d0			Numero (1 ou 2)
+	Rlea	L_BkSpr,0
+	btst	#Bnk_BitIcon,d4
+	beq.s	.Pai
+	moveq	#2,d0
+	Rlea	L_BkIco,0
+.Pai	move.l	d0,(a2)+		Numero
+	move.w	d4,(a2)+		Flag
+	clr.w	(a2)+			Vide!
+	move.l	(a0)+,(a2)+		Nom
+	move.l	(a0)+,(a2)+
+	move.l	a2,a1
+; Recopier l'ancienne banque?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d3,(a1)+		Nombre de bobs
+	tst.w	d2			Negatif>>> copie la palette
+	bmi.s	.ECop
+	beq	.PaCopy
+	move.l	a3,d0
+	beq.s	.PaCopy
+	move.l	a3,a0
+	move.w	(a0)+,d0
+	cmp.w	d3,d0			Moins de bobs dans la nouvelle?
+	bls.s	.Paplu
+	move.w	d3,d0
+.Paplu	subq.w	#1,d0			Copie des bobs
+	bmi.s	.ECop
+.BCop	move.l	(a0),(a1)+		Efface leur origine,
+	clr.l	(a0)+			car la banque sera effacee!
+	move.l	(a0),(a1)+
+	clr.l	(a0)+
+	dbra	d0,.BCop
+.ECop	move.w	(a3),d0			Copie de la palette
+	lsl.w	#3,d0
+	lea	2(a3,d0.w),a0
+	bra.s	.PPal
+; Pas de recopie de l'ancienne banque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaCopy	lea	DefPal(a5),a0
+	move.l	ScOnAd(a5),d0
+	beq.s	.PPal
+	move.l	d0,a0
+	lea	EcPal(a0),a0
+.PPal	move.w	d3,d1
+	lsl.w	#3,d1
+	lea	2(a2,d1.w),a1
+	moveq	#32-1,d0
+.CPal	move.w	(a0)+,(a1)+
+	dbra	d0,.CPal
+; Efface l'ancienne banque
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.EBank	tst.w	d2
+	bmi.s	.Paeff
+	move.l	a3,d0
+	beq.s	.Paeff
+	move.l	d0,a0
+	Rbsr	L_Bnk.EffA0
+.Paeff
+; Pas d'erreur
+; ~~~~~~~~~~~~
+	move.l	a2,a0
+	move.l	a3,a1
+	moveq	#0,d0
+	bra.s	.Out
+; Out of mem!
+; ~~~~~~~~~~~
+.Err	sub.l	a0,a0
+	moveq	#-1,d0
+; Sortie, envoie l'adresse des bobs � la trappe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Out	movem.l	(sp)+,d2-d7/a2-a3
+	tst.w	d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine Bank Schrink
+;	D0=	Bank Number
+;	D1=	New size
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Schrink
+; - - - - - - - - - - - - -
+	movem.l	a2/d2-d5,-(sp)
+	move.l	d1,d3
+	ble.s	.Fonc
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Nores
+	btst	#Bnk_BitBob,d0		Pas une banque de bobs!
+	bne.s	.Fonc
+	btst	#Bnk_BitIcon,d0
+	bne.s	.Fonc
+	lea	-8*3(a1),a2
+	move.l	4(a2),d2		Verifie la longueur!
+	addq.l	#8,d2			Taille reservation
+	add.l	#3*8,d3			Taille nouvelle reservation
+	cmp.l	d2,d3
+	bgt.s	.Fonc
+; Fait la relocation!
+	movem.l	(a2),d4/d5
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOForbid(a6)
+	move.l	a2,a1
+	move.l	d2,d0
+	jsr	_LVOFreeMem(a6)
+	move.l	a2,a1
+	move.l	d3,d0
+	jsr	_LVOAllocAbs(a6)
+	jsr	_LVOPermit(a6)
+	move.l	(sp)+,a6
+	movem.l	d4/d5,(a2)
+; Change la taille
+	subq.l	#8,d3
+	move.l	d3,4(a2)
+	moveq	#0,d0
+.Out	movem.l	(sp)+,a2/d2-d5
+	rts
+.Fonc	moveq	#23,d0
+	bra.s	.Out
+.Nores	moveq	#36,d0
+	bra.s	.Out
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INSERTION BOB / ICON
+;	IN	D0=	Numero Bob/Icon
+;		A0=	Adresse Banque Origine
+;	OUT	BEQ	Ok
+;		BNE	Out of mem!
+;		A0	Adresse Nouvelle Structure
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.InsBob
+; - - - - - - - - - - - - -
+	movem.l	d2-d4/a2,-(sp)
+	move.l	d0,d3
+	move.l	a0,a1
+; Agrandi la banque d'une unite
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#-1,d0			Garder l'ancienne, ne pas copier
+	move.w	(a1),d1
+	addq.w	#1,d1			Un bob de plus
+	move.w	-16+4(a1),d2		Flag de la banque
+	Rbsr	L_Bnk.Ric
+	bne.s	.Out
+	move.l	a1,a2
+; Recopie l'ancienne dans la nouvelle, en faisant un trou!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	addq.l	#2,a0
+	move.w	(a1)+,d1
+	subq.w	#1,d1
+	moveq	#1,d0
+	moveq	#0,d4
+.Copy	cmp.w	d0,d3
+	bne.s	.Old
+	move.l	a0,d4
+	addq.l	#8,a0
+	addq.w	#1,d1
+	bra.s	.Skip
+.Old	move.l	(a1),(a0)+
+	clr.l	(a1)+
+	move.l	(a1),(a0)+
+	clr.l	(a1)+
+.Skip	addq.w	#1,d0
+	dbra	d1,.Copy
+	tst.l	d4
+	bne.s	.Skup
+	move.l	a0,d4
+.Skup
+; Efface l'ancienne
+; ~~~~~~~~~~~~~~~~~
+	move.l	a2,a0
+	Rbsr	L_Bnk.EffA0
+	moveq	#0,d0
+	move.l	d4,a0
+	bra.s	.Out
+; Out of mem
+; ~~~~~~~~~~
+.Err	moveq	#-1,d0
+.Out	movem.l	(sp)+,a2/d2-d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DELETION BOB / ICON
+;	IN	D0=	Numero1 Bob/Icon
+;		D1=	Numero2 Bob/Icon
+;		A0=	Adresse Banque Origine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.DelBob
+; - - - - - - - - - - - - -
+	movem.l	a2/d2-d4,-(sp)
+	move.l	d0,d3
+	move.l	d1,d4
+	move.l	a0,a1
+	move.l	a1,a2
+; Efface les bobs / Compte le nombre restant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	(a0)+,d0		Compteur DBRA
+	subq.w	#1,d0
+	bmi.s	.DBank
+	moveq	#0,d1			Nombre de bobs restant
+	moveq	#1,d2			Numero du bob courant
+.ELoop	cmp.l	d3,d2
+	blt.s	.ESkip
+	cmp.l	d4,d2
+	bgt.s	.ESkip
+	Rbsr	L_Bnk.EffBobA0
+	bra.s	.ESkup
+.ESkip	addq.w	#1,d1
+.ESkup	addq.l	#8,a0
+	addq.w	#1,d2
+	dbra	d0,.ELoop
+; Plus de bobs >>> efface la banque!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	d1
+	beq.s	.DBank
+; Reduit la banque
+; ~~~~~~~~~~~~~~~~
+	moveq	#-1,d0			Garder l'ancienne
+;					D1= nombre de bobs
+	move.w	-16+4(a1),d2		Flag de la banque
+	Rbsr	L_Bnk.Ric
+	bne.s	.Out
+	move.l	a1,a2
+; Recopie uniquement les bobs conserves
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	(a1)+,d0
+	subq.w	#1,d0
+	addq.l	#2,a0
+	moveq	#1,d1
+.CLoop	cmp.l	d3,d1
+	blt.s	.CCopy
+	cmp.l	d4,d1
+	ble.s	.CSkip
+.CCopy	move.l	(a1),(a0)+
+	move.l	4(a1),(a0)+
+.CSkip	clr.l	(a1)+
+	clr.l	(a1)+
+	addq.w	#1,d1
+	dbra	d0,.CLoop
+; Efface la banque
+; ~~~~~~~~~~~~~~~~
+.DBank	move.l	a2,a0
+	Rbsr	L_Bnk.EffA0
+; Sortie
+; ~~~~~~
+.Out	moveq	#0,d0
+	movem.l	(sp)+,a2/d2-d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					REMET LES BOBS DROITS BANQUE A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.UnRev
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	a0,a2
+	move.w	(a2)+,d2
+	subq.w	#1,d2
+	bmi.s	.URbx
+; Va retourner
+; ~~~~~~~~~~~~
+.URb1	move.l	a2,a1
+	moveq	#0,d1
+	EcCall	DoRev
+; Remet le point chaud, si negatif!!!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	(a2),d0
+	beq.s	.URb2
+	move.l	d0,a0
+	move.w	6(a0),d0
+	lsl.w	#2,d0
+	asr.w	#2,d0
+	move.w	d0,6(a0)
+.URb2	lea	8(a2),a2
+	dbra	d2,.URb1
+.URbx	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESERVE BANK
+;	D0=	Numero
+;	D1=	Flags
+;	D2= 	Longueur
+;	A0=	Nom de la banque
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Reserve
+; - - - - - - - - - - - - -
+	movem.l	a2/d2-d5,-(sp)
+	moveq	#0,d4
+	move.w	d0,d4
+	move.l	d1,d5
+	move.l	a0,a2
+; Efface la banque si d�ja d�finie
+	move.l	d4,d0
+	Rbsr	L_Bnk.GetAdr
+	beq.s	.Pares
+	Rbsr	L_Bnk.EffA0
+.Pares
+; Reserve
+	add.l	#16,d2			Flags + Nom
+	move.l	d2,d0
+	move.l	#Public|Clear,d1
+	btst	#Bnk_BitChip,d5
+	beq.s	.SkipC
+	move.l	#Public|Clear|Chip,d1
+.SkipC	move.l	Cur_Banks(a5),a0
+	Rjsr	L_Lst.Cree
+	beq.s	.Err
+; Poke les entetes
+	addq.l	#8,a1
+	move.l	d4,(a1)+
+	move.w	d5,(a1)+
+	clr.w	(a1)+
+; Poke le nom
+	moveq	#7,d0
+.Loo	move.b	(a2)+,(a1)+
+	dbra	d0,.Loo
+; Ok!
+	move.l	a1,a0
+	move.l	a0,d0
+	bra.s	.Out
+.Err	moveq	#0,d0
+.Out	movem.l	(sp)+,a2/d2-d5
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CALCULE LA TAILLE DES BANQUES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.GetLength
+; - - - - - - - - - - - - -
+	movem.l	a2/d3-d7,-(sp)
+	moveq	#0,d7			Taille globale
+	moveq	#0,d6			Taille icons
+	moveq	#0,d5			Taille bobs
+	move.l	Cur_Banks(a5),a1
+	bra.s	.Next
+; Boucle d'exploration
+.Loop	move.l	d1,a1
+	lea	3*8(a1),a0
+	Rbsr	L_Bnk.Length
+	move.w	8+4(a1),d1
+	btst	#Bnk_BitBob,d1
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d1
+	bne.s	.II
+	add.l	d0,d7			Plus normal
+	bra.s	.Next
+.BB	add.l	d0,d5			Plus Objects
+	bra.s	.Next
+.II	add.l	d0,d6			Plus Icons
+; Banque suivante
+.Next	move.l	(a1),d1
+	bne.s	.Loop
+; Termine!
+	move.l	d5,d1
+	move.l	d6,d2
+	move.l	d7,d0
+	movem.l	(sp)+,a2/d3-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CALCULE LA TAILLE D'UNE BANQUE
+;	A0= banque
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Length
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d1-d2,-(sp)
+	move.w	-8*2+4(a0),d0
+	btst	#Bnk_BitBob,d0
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d0
+	bne.s	.BB
+	move.l	-8*3+4(a0),d0
+	sub.l	#16,d0
+	bra.s	.BBOut
+; Une banque de bobs / icones
+.BB	move.l	-8*3+4(a0),d0
+	sub.l	#16,d0
+	move.w	(a0)+,d1
+	subq.w	#1,d1
+	bmi.s	.BBOut
+.BBLoop	move.l	(a0),d2
+	beq.s	.BBNext
+	move.l	d2,a1
+	move.w	(a1)+,d2		SX
+	mulu	(a1)+,d2		SY
+	mulu	(a1)+,d2		NPlan
+	lsl.l	#1,d2			En mots
+	add.l	d2,d0
+.BBNext	addq.l	#8,a0
+	dbra	d1,.BBLoop
+.BBOut	movem.l	(sp)+,a0-a1/d1-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CHANGEMENT DANS LES BANQUES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.Change
+; - - - - - - - - - - - - -
+	movem.l	a0-a3/d0-d7,-(sp)
+; Appelle les extensions
+; ~~~~~~~~~~~~~~~~~~~~~~
+	lea	ExtAdr(a5),a0
+	moveq	#26-1,d0
+.ELoop	move.l	12(a0),d1
+	beq.s	.ESkip
+	move.l	d1,a1
+	movem.l	a0/d0,-(sp)
+	move.l	d1,a1
+	move.l	Cur_Banks(a5),a0
+	move.l	(a0),a0
+	jsr	(a1)
+	movem.l	(sp)+,a0/d0
+.ESkip	lea	16(a0),a0
+	dbra	d0,.ELoop
+; Recherche la banque de sprites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_Bnk.GetBobs
+	SyCall	SetSpBank
+; Ok!
+; ~~~
+	movem.l	(sp)+,a0-a3/d0-d7
+	tst.w	d0
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine LISTBANK
+;	Ecrit la definition dans un buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Bnk.List
+; - - - - - - - - - - - - -
+	movem.l	d1-d4/a2,-(sp)
+; Trouve la bonne banque, dans l'ordre
+	move.l	#65536,d1
+	move.l	Cur_Banks(a5),a0
+	bra.s	.B2
+.B1	move.l	d0,a0
+	cmp.l	8(a0),d5
+	bcc.s	.B2
+	cmp.l	8(a0),d1
+	bcs.s	.B2
+	move.l	a0,a2
+	move.l	8(a0),d1
+.B2	move.l	(a0),d0
+	bne.s	.B1
+	cmp.l	#65536,d1
+	beq	.Vide
+	move.l	d1,d5
+; Numero de la banque
+	move.l	8(a2),d0
+	move.l	Buffer(a5),a0
+	cmp.w	#10,d0
+	bcc.s	.Skip1
+	move.b	#" ",(a0)+
+.Skip1	Rjsr	L_LongToDec
+	move.b	#" ",(a0)+
+	move.b	#"-",(a0)+
+	move.b	#" ",(a0)+
+; Nom de la banque
+	moveq	#7,d0
+	lea	16(a2),a1
+.Loop1	move.b	(a1)+,(a0)+
+	dbra	d0,.Loop1
+	move.b	#" ",(a0)+
+; Start
+	move.b	#"S",(a0)+
+	move.b	#":",(a0)+
+	move.b	#" ",(a0)+
+	move.l	a2,d0
+	add.l	#8*3,d0
+	moveq	#8,d3
+	Rjsr	L_LongToHex
+	move.b	#" ",(a0)+
+; Length
+	move.l	4(a2),d0
+	sub.l	#2*8,d0
+	move.w	8+4(a2),d1
+	btst	#Bnk_BitBob,d1
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d1
+	beq.s	.Skip2
+.BB	moveq	#0,d0
+	move.w	8*3(a2),d0
+.Skip2	move.b	#"L",(a0)+
+	move.b	#":",(a0)+
+	move.b	#" ",(a0)+
+	Rjsr	L_LongToDec
+; Ok!
+	clr.b	(a0)
+	move.l	a0,a1
+	move.l	Buffer(a5),a0
+	moveq	#1,d0
+	bra.s	.Out
+.Vide	moveq	#0,d0
+.Out	movem.l	(sp)+,d1-d4/a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TRUE / FALSE / ONE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnTrue
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnOne
+; - - - - - - - - - - - - -
+	moveq	#1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnFalse
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Ecran.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEFAULT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDefault
+; - - - - - - - - - - - - -
+	Rjsr	L_DefRun1
+	Rjsr	L_ReCop
+	Rjsr	L_DefRun2
+	Rjsr	L_ReCop
+	move.w	#1,DefFlag(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InCls0
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	ClsWi
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InCls1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.w	#10000,d4
+	move.w	d4,d0
+	Rbra	L_Cls5a
+; - - - - - - - - - - - - -
+	Lib_Par	InCls5
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	Rbra	L_Cls5a
+; - - - - - - - - - - - - -
+	Lib_Def	Cls5a
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d0,d5
+	EcCall	ClsEc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN HEIGHT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnScreenHeight0
+; - - - - - - - - - - - - -
+	Rbsr	L_GetScreen0
+	moveq	#0,d3
+	move.w	EcTy(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par	FnScreenHeight1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	AdrEc
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	EcTy(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN WIDTH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnScreenWidth0
+; - - - - - - - - - - - - -
+	Rbsr	L_GetScreen0
+	moveq	#0,d3
+	move.w	EcTx(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par	FnScreenWidth1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	AdrEc
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	EcTx(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnScreenBase
+; - - - - - - - - - - - - -
+	Rbsr	L_GetScreen0
+	move.l	a0,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN COLOUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnScreenColour
+; - - - - - - - - - - - - -
+	Rbsr	L_GetScreen0
+	moveq	#0,d3
+	move.w	EcNbCol(a0),d3
+	btst	#3,EcCon0(a0)
+	beq.s	.Skip
+	move.l	#4096,d3
+.Skip	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN MODE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnScreenMode
+; - - - - - - - - - - - - -
+	Rbsr	L_GetScreen0
+	moveq	#0,d3
+	move.w	EcCon0(a0),d3
+	and.l	#$00008004,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	GetScreen0
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DISPLAY INFOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnDisplayHeight
+; - - - - - - - - - - - - -
+	EcCall	MaxRaw
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par	FnNTSC
+; - - - - - - - - - - - - -
+	EcCall	CopForce
+	EcCall	NTSC
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LOG BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnLogBase
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	cmp.w	EcNPlan(a0),d3
+	Rbcc	L_FonCall
+	lsl.w	#2,d3
+	move.l	EcLogic(a0,d3.w),d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=PHY BASE(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPhyBase
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	cmp.w	EcNPlan(a0),d3
+	Rbcc	L_FonCall
+	lsl.w	#2,d3
+	move.l	EcPhysic(a0,d3.w),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DOUBLE BUFFER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDoubleBuffer
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	EcCall	Double
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN SWAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenSwap0
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	EcCall	SwapScS
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InScreenSwap1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	SwapSc
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DUAL PLAYFIELD n,m
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDualPlayfield
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	move.l	d1,d2
+	move.l	(a3)+,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	SetDual
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DUAL PRIORITY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDualPriority
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	move.l	d1,d2
+	move.l	(a3)+,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	PriDual
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN CLONE n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenClone
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	CCloEc
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN OPEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenOpen
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d5			* Mode
+	and.l	#$8004,d5
+* Ham?
+	move.l	(a3)+,d6
+	cmp.l	#4096,d6
+	bne.s	ScOo0
+	tst.w	d5			* Lowres only!
+	Rbmi	L_FonCall
+	moveq	#6,d4
+	or.w	#$0800,d5
+	moveq	#64,d6
+	bra.s	ScOo2
+* Nombre de couleurs-> plans
+ScOo0:	moveq	#1,d4			* Nb de plans
+	moveq	#2,d1
+ScOo1:	cmp.l	d1,d6
+	beq.s	ScOo2
+	lsl.w	#1,d1
+	addq.w	#1,d4
+	cmp.w	#7,d4
+	bcs.s	ScOo1
+IlNCo:	moveq	#5,d0			* Illegal number of colours
+	Rbra	L_EcWiErr
+ScOo2:	move.l	(a3)+,d3		* TY
+	move.l	(a3)+,d2		* TX
+	move.l	(a3)+,d1		* Numero
+	Rbsr	L_CheckScreenNumber
+	tst.w	d5			* Si HIRES, pas plus de 16 couleurs
+	bpl.s	ScOo3
+	cmp.w	#4,d4
+	Rbhi	L_FonCall
+ScOo3:	lea	DefPal(a5),a1
+	EcCall	Cree
+	Rbne	L_EcWiErr
+	move.l	a0,ScOnAd(a5)
+	move.w	EcNumber(a0),ScOn(a5)
+	addq.w	#1,ScOn(a5)
+* Fait flasher la couleur 3 (si plus de 2 couleurs)
+	cmp.w	#1,d4
+	beq.s	ScOo4
+	moveq	#3,d1
+	moveq	#46,d0
+	Rjsr	L_Sys_GetMessage
+	move.l	a0,a1
+	EcCall	Flash
+ScOo4	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN CLOSE n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenClose
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	Del
+	Rbne	L_EcWiErr
+	clr.w	ScOn(a5)
+	clr.l	ScOnAd(a5)
+	cmp.l	#0,a0
+	beq.s	.Skip
+	move.w	EcNumber(a0),d0
+	cmp.w	#8,d0
+	bcc.s	.Skip
+	addq.w	#1,d0
+	move.w	d0,ScOn(a5)
+	move.l	a0,ScOnAd(a5)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN DISPLAY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenDisplay
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	AView
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN OFFSET
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenOffset
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	OffSet
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN SHOW [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenShow0
+; - - - - - - - - - - - - -
+	moveq	#0,d2
+	Rbra	L_ScShHi0
+; - - - - - - - - - - - - -
+	Lib_Par	InScreenShow1
+; - - - - - - - - - - - - -
+	moveq	#0,d2
+	Rbra	L_ScShHi
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN HIDE [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenHide0
+; - - - - - - - - - - - - -
+	moveq	#-1,d2
+	Rbra	L_ScShHi0
+; - - - - - - - - - - - - -
+	Lib_Def	ScShHi0
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	ScOn(a5),d3
+	Rbeq	L_ScNOp
+	subq.w	#1,d3
+	Rbra	L_ScShHi
+; - - - - - - - - - - - - -
+	Lib_Par	InScreenHide1
+; - - - - - - - - - - - - -
+	moveq	#-1,d2
+	Rbra	L_ScShHi
+; - - - - - - - - - - - - -
+	Lib_Def	ScShHi
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	EHide
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					AUTO VIEW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InAutoViewOn
+; - - - - - - - - - - - - -
+	bset	#BitEcrans,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InAutoViewOff
+; - - - - - - - - - - - - -
+	bclr	#BitEcrans,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					VIEW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InView
+; - - - - - - - - - - - - -
+	EcCall	CopMake
+	bclr	#BitEcrans,T_Actualise(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN TO FRONT [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenToFront0
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	ScOn(a5),d3
+	Rbeq	L_ScNOp
+	subq.w	#1,d3
+	Rbra	L_InScreenToFront1
+; - - - - - - - - - - - - -
+	Lib_Par	InScreenToFront1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	First
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN TO BACK [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InScreenToBack0
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	ScOn(a5),d3
+	Rbeq	L_ScNOp
+	subq.w	#1,d3
+	Rbra	L_InScreenToBack1
+; - - - - - - - - - - - - -
+	Lib_Par InScreenToBack1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	Last
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InScreen
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_CheckScreenNumber
+	EcCall	Active
+	Rbne	L_EcWiErr
+	move.w	EcNumber(a0),d0
+	addq.w	#1,d0
+	move.w	d0,ScOn(a5)
+	move.l	a0,ScOnAd(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnScreen
+; - - - - - - - - - - - - -
+	move.w	ScOn(a5),d3
+	subq.w	#1,d3
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Fonctions resolutions
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnLaced
+; - - - - - - - - - - - - -
+	moveq	#4,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnHires
+; - - - - - - - - - - - - -
+	move.l	#%1000000000000000,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnLowres
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Verification du parametre ecran D1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CheckScreenNumber
+; - - - - - - - - - - - - -
+	tst.b	Prg_Accessory(a5)
+	bne.s	.Skip
+	cmp.l	#8,d1
+	Rbcc	L_IllScN
+	rts
+.Skip	cmp.l	#10,d1
+	Rbcc	L_IllScN
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COLOUR n,xxx
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InColour
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	EcCall	SCol
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnColour
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	EcCall	GCol
+	Rbne	L_EcWiErr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COLOUR BACK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InColourBack
+; - - - - - - - - - - - - -
+	move.w	d3,ColBack(a5)
+	move.l	d3,d1
+	EcCall	SColB
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET ICON PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetIconPalette0
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	Rbra	L_InGetIconPalette1
+; - - - - - - - - - - - - -
+	Lib_Par InGetIconPalette1
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.GetIcons
+	Rbeq	L_BkNoRes
+	move.w	(a0)+,d0
+	lsl.w	#3,d0
+	lea	0(a0,d0.w),a0
+	Rbra	L_GSPal
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET SPRITE PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetSpritePalette0
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	Rbra	L_InGetSpritePalette1
+; - - - - - - - - - - - - -
+	Lib_Par InGetSpritePalette1
+; - - - - - - - - - - - - -
+	Rbsr	L_Bnk.GetBobs
+	Rbeq	L_BkNoRes
+	move.w	(a0)+,d0
+	lsl.w	#3,d0
+	lea	0(a0,d0.w),a0
+	Rbra	L_GSPal
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetPalette1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#-1,d3
+	Rbra	L_InGetPalette2
+; - - - - - - - - - - - - -
+	Lib_Par InGetPalette2
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d1
+	Rbsr	L_GetEc
+	lea	EcPal(a0),a0
+	Rbra	L_GSPal
+; - - - - - - - - - - - - -
+	Lib_Def	GSPal
+; - - - - - - - - - - - - -
+	Rbsr	L_PalRout
+	EcCall	SPal
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	PalRout
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	Buffer(a5),a1
+	moveq	#0,d0
+PalR1:	move.w	#$FFFF,(a1)
+	btst	d0,d3
+	beq.s	PalR2
+	move.w	(a0),(a1)
+PalR2:	addq.l	#2,a0
+	addq.l	#2,a1
+	addq.w	#1,d0
+	cmp.w	#32,d0
+	bcs.s	PalR1
+	move.l	Buffer(a5),a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FLASH OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InFlashOff
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	EcCall	FlRaz
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FLASH n,xxx
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InFlash
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a1
+	move.l	(a3)+,d1
+	EcCall	Flash
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SHIFT OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShiftOff
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	EcCall	ShRaz
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SHIFT UP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShiftUp
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	Rbra	L_ShD1
+; - - - - - - - - - - - - -
+	Lib_Par InShiftDown
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	Rbra	L_ShD1
+; - - - - - - - - - - - - -
+	Lib_Def	ShD1
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	Rbsr	L_SaveRegs
+	move.l	d3,d6
+	move.l	d0,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	bpl.s	ShD3
+	moveq	#1,d3
+ShD3:	move.l	(a3)+,d2
+	moveq	#1,d1
+	EcCall	Shift
+	Rbne	L_EcWiErr
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET RAINBOW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetRainbow6
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_InSetRainbow7
+; - - - - - - - - - - - - -
+	Lib_Par InSetRainbow7
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d7
+	move.l	(a3)+,d6
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d2
+	cmp.l	#16,d2
+	Rbcs	L_FonCall
+	cmp.l	#32700,d2
+	Rbcc	L_FonCall
+	move.l	(a3)+,d3
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	cmp.l	#4,d1
+	Rbcc	L_FonCall
+	EcCall	RainSet
+	Rbmi	L_OOfMem
+	Rbne	L_FonCall
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RAINBOW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRainbow
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	EcCall	RainDo
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RAINBOW DEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRainbowDel0
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	Rbra	L_InRainbowDel1
+; - - - - - - - - - - - - -
+	Lib_Par InRainbowDel1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	EcCall	RainDel
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=RAIN=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRain
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	EcCall	RainVar
+	Rbne	L_EcWiErr
+	and.w	#$0FFF,d3
+	move.w	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnRain
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	EcCall	RainVar
+	Rbne	L_EcWiErr
+	moveq	#0,d3
+	move.w	(a0),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COPPER ON/OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCopOn
+; - - - - - - - - - - - - -
+	EcCalD	CopOnOff,-1
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InCopOff
+; - - - - - - - - - - - - -
+	EcCalD	CopOnOff,0
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COPPER SWAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCopSwap
+; - - - - - - - - - - - - -
+	EcCall	CopSwap
+	Rbne	L_CopErr
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COP RESET
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCopReset
+; - - - - - - - - - - - - -
+	EcCall	CopReset
+	Rbne	L_CopErr
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COP WAIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCopWait2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#-1,d3
+	move.l	d3,-(a3)
+	Rbra	L_InCopWait4
+; - - - - - - - - - - - - -
+	Lib_Par InCopWait4
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	EcCall	CopWait
+	Rbne	L_CopErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COP MOVE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCopMove
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	EcCall	CopMove
+	Rbne	L_CopErr
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COP MOVEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCopMoveL
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	EcCall	CopMoveL
+	Rbne	L_CopErr
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=COP LOGIC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCopLogic
+; - - - - - - - - - - - - -
+	EcCall	CopBase
+	Rbne	L_CopErr
+	move.l	d1,d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					AUTOBACK n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAutoback
+; - - - - - - - - - - - - -
+	cmp.l	#3,d3
+	Rbcc	L_FonCall
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	move.w	d3,EcAuto(a0)
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PLOT x,y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPlot2
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GrXY
+	move.w	36(a1),d0
+	move.w	38(a1),d1
+	move.w	#WritePixel,d5
+	Rbsr	L_GfxFunc
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InPlot3
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	move.l	d3,d0
+	Rbmi	L_FonCall
+	cmp.l	#EntNul,d0
+	beq.s	.Skip
+	GfxCa5	SetAPen
+.Skip	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GrXY
+	move.w	36(a1),d0
+	move.w	38(a1),d1
+	move.w	#WritePixel,d5
+	Rbsr	L_GfxFunc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=POINT(x,y)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnPoint
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_RPoint
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Def	RPoint
+; - - - - - - - - - - - - -
+	Rbsr	L_GrXY
+	move.w	36(a1),d0
+	move.w	38(a1),d1
+	movem.l	a3-a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	ReadPixel(a6)
+	movem.l	(sp)+,a3-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DRAW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDrawTo
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	move.l	T_RastPort(a5),a1
+	move.w	#RDraw,d5
+	Rbsr	L_GfxFunc
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InDraw
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GrXY
+	move.l	d2,d0
+	move.l	d3,d1
+	move.w	#RDraw,d5
+	Rbsr	L_GfxFunc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CIRCLE x,y,n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCircle
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	Rbls	L_FonCall
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	tst.w	EcCon0(a0)
+	Rbpl	L_EllCir
+	lsl.w	#1,d2
+	Rbra	L_EllCir
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ELIPSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InEllipse
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbls	L_FonCall
+	move.l	(a3)+,d2
+	Rbls	L_FonCall
+	Rbra	L_EllCir
+; - - - - - - - - - - - - -
+	Lib_Def	EllCir
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GrXY
+	move.w	36(a1),d0
+	move.w	38(a1),d1
+	move.w	#DrawEllipse,d5
+	Rbsr	L_GfxFunc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				XCURS / YCURS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXGr
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a0
+	moveq	#0,d3
+	move.w	36(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnYGr
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a0
+	moveq	#0,d3
+	move.w	38(a0),d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Gr Locate
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGrLocate
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GrXY
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BOX x,y TO x,y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBox
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	move.l	T_RastPort(a5),a1
+	move.l	Buffer(a5),a0
+	move.l	a0,a2
+	move.w	d0,36(a1)
+	move.w	d1,38(a1)
+	move.w	d0,(a2)+
+	move.w	d3,(a2)+
+	move.w	d2,(a2)+
+	move.w	d3,(a2)+
+	move.w	d2,(a2)+
+	move.w	d1,(a2)+
+	move.w	d0,(a2)+
+	move.w	d1,(a2)+
+	addq.w	#1,d1
+	cmp.w	d3,d1
+	bcc.s	IBx1
+	subq.w	#2,d1
+IBx1	moveq	#4,d0
+	move.w	#PolyDraw,d5
+	Rbsr	L_GfxFunc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Fonctions CLIP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InClip0
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	EcCalD	SetClip,-1
+	Rbne	L_FonCall
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InClip4
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	moveq	#0,d1
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	EcCall	SetClip
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET ROM FONTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetRomFonts
+; - - - - - - - - - - - - -
+	moveq	#1,d1
+	Rbra	L_Igf
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET DISC FONTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetDiscFonts
+; - - - - - - - - - - - - -
+	moveq	#2,d1
+	Rbra	L_Igf
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET FONTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetFonts
+; - - - - - - - - - - - - -
+	moveq	#3,d1
+	Rbra	L_Igf
+; - - - - - - - - - - - - -
+	Lib_Def	Igf
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	EcCall	GFonts
+	Rbne	L_OOfMem
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=FONT$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnFont
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	EcCall	GFont
+	Rbmi	L_FftE
+	Rbne	L_Ret_ChVide
+	move.l	a0,a2
+	moveq	#40,d3
+	Rjsr	L_Demande
+	move.l	a1,-(sp)
+	move.w	#38,(a1)+
+	move.l	a1,a0
+	moveq	#37,d0
+Fft1:	move.b	#" ",(a0)+
+	dbra	d0,Fft1
+	lea	40(a1),a0
+	move.l	a0,HiChaine(a5)
+* Copie le nom
+	move.l	2(a2),a0
+Fft2:	move.b	(a0)+,(a1)+
+	bne.s	Fft2
+	move.b	#" ",-1(a1)
+* Taille des caracteres
+	move.l	(sp),a0
+	lea	30+2(a0),a0
+	moveq	#0,d0
+	move.w	6(a2),d0
+	Rjsr	L_LongToDec
+* Disque ou mem
+	move.l	(sp),a0
+	lea	34+2(a0),a0
+	lea	FtRom(pc),a1
+	cmp.w	#1,(a2)
+	beq.s	Fft3
+	lea	FtDisc(pc),a1
+Fft3:	move.b	(a1)+,(a0)+
+	bne.s	Fft3
+* Ramene la chaine!
+	move.l	(sp)+,d3
+	Ret_String
+FtRom:	dc.b 	"Rom ",0
+FtDisc:	dc.b	"Disc",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET FONT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetFont
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	EcCall	SFont
+	Rbmi	L_FftE
+	Rbne	L_FnfE
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEXT x,y,a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InText
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GrXY
+	move.l	d3,a0
+	move.w	(a0)+,d0
+	tst.w	d0
+	beq.s	.Skip
+	moveq	#Text,d5
+	Rbsr	L_GfxFunc
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=TEXT BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnTextBase
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	moveq	#0,d3
+	move.w	62(a1),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=TEXT LENGTH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnTextLength
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,a0
+	move.w	(a0)+,d0
+	move.l	T_RastPort(a5),a1
+	movem.l	a3-a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	TextLength(a6)
+	movem.l	(sp)+,a3-a6
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=TEXT STYLES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnTextStyle
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	moveq	#0,d3
+	move.b	56(a1),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET TEXT n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetText
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	move.b	d3,56(a1)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET PATTERN n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetPattern
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	EcCall	Pattern
+	Rbne	L_FonCall
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET PAINT n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetPaint
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	move.w	32(a1),d0
+	bclr 	#3,d0
+	tst.l	d3
+	beq.s	ISpt
+	bset	#3,d0
+ISpt:	move.w	d0,32(a1)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PAINT x,y[,mode]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPaint2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#-1,d3
+	Rbra	L_InPaint3
+; - - - - - - - - - - - - -
+	Lib_Par InPaint3
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	moveq	#0,d1
+	Rbsr	L_GetRas
+	move.l	d3,d4
+	and.w	#$01,d4
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_RPoint
+	move.l	d0,d3
+	move.l	T_RastPort(a5),a1
+	move.w	36(a1),d1
+	move.w	38(a1),d2
+	move.l	Buffer(a5),d5
+	Rbsr	L_GfxPnt
+	Rbsr	L_FreeRas
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BAR x,y TO x,y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBar
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	cmp.w	d0,d2
+	Rble	L_FonCall
+	cmp.w	d1,d3
+	Rble	L_FonCall
+	move.w	d0,36(a1)
+	move.w	d1,38(a1)
+	move.w	#RectFill,d5
+	Rbsr	L_GfxFunc
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET TEMPRAS n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Par InSetTempras1
+; - - - - - - - - - - - - -
+	cmp.l	#65536,d3
+	Rbcc	L_FonCall
+	cmp.l	#256,d3
+	Rbcs	L_FonCall
+	move.w	d3,RasSize(a5)
+	Rbra	L_InSetTempras0
+; - - - - - - - - - - - - -
+	Lib_Par InSetTempras0
+; - - - - - - - - - - - - -
+	clr.l	RasLock(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSetTempras2
+; - - - - - - - - - - - - -
+	clr.l	RasLock(a5)
+	move.l	d3,d2
+	cmp.l	#65536,d2
+	Rbcc	L_FonCall
+	cmp.l	#256,d2
+	Rbcs	L_FonCall
+	move.l	(a3)+,d0
+	Rbsr	L_Bnk.OrAdr
+	move.w	d2,RasSize(a5)
+	move.l	d0,RasLock(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Reserve le tempras
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetRas
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/d0/d1,-(sp)
+	Rbsr	L_FreeRas
+	bmi.s	GRas2
+	bne.s	GRas1
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	move.l	EcTPlan(a0),d0
+GRas1:	move.l	d0,d1
+	move.l	Buffer(a5),a1
+	cmp.l	#TBuffer,d0
+	bls.s	GRas2
+	SyCall	MemChip
+	Rbeq	L_OOfMem
+	move.l	a0,RasAd(a5)
+	move.l	d1,RasLong(a5)
+	move.l	a0,a1
+GRas2:	move.l	d1,d0
+	lea	ATmpRas(a5),a0
+	move.l	T_RastPort(a5),a2
+	move.l	a0,12(a2)
+	GfxCa5	InitTmpRas
+	movem.l	(sp)+,a0/a1/d0/d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Libere le tempras
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FreeRas
+; - - - - - - - - - - - - -
+	move.l	RasAd(a5),d0
+	beq.s	FriRX
+	move.l	d0,a1
+	move.l	RasLong(a5),d0
+	SyCall	MemFree
+	clr.l	RasAd(a5)
+	clr.l	RasLong(a5)
+	move.l	T_RastPort(a5),a1
+	clr.l	12(a1)
+FriRX:	tst.l	RasLock(a5)
+	bne.s	FriRY
+	moveq	#0,d0
+	move.w	RasSize(a5),d0
+	clr.w	RasSize(a5)
+	tst.l	d0
+	rts
+* Raster locke!
+FriRY:	move.l	RasLock(a5),a1
+	moveq	#0,d1
+	move.w	RasSize(a5),d1
+	moveq	#-1,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INK a,b,c
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InInk1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InInk3
+; - - - - - - - - - - - - -
+	Lib_Par InInk2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InInk3
+; - - - - - - - - - - - - -
+	Lib_Par InInk3
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a1
+	cmp.l	#EntNul,d3
+	beq.s	Iik0
+	move.b	d3,27(a1)
+Iik0:	move.l	(a3)+,d0
+	cmp.l	#EntNul,d0
+	beq.s	Iik1
+	GfxCa5	SetBPen
+Iik1:	move.l	(a3)+,d0
+	cmp.l	#EntNul,d0
+	beq.s	Iik2
+	GfxCa5	SetAPen
+Iik2:	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GR WRITING n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGrWriting
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d0
+	Rbmi	L_FonCall
+	move.l	T_RastPort(a5),a1
+	GfxCa5	SetDrMd
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET LINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetLine
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	T_RastPort(a5),a0
+	move.w	d3,34(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SLIDER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InHSlider
+; - - - - - - - - - - - - -
+	Rbsr	L_GetSli
+	EcCall	HorSli
+	Rbne	L_FonCall
+	Rbsr	L_LoadRegs
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InVSlider
+; - - - - - - - - - - - - -
+	Rbsr	L_GetSli
+	EcCall	VerSli
+	Rbne	L_FonCall
+	Rbsr	L_LoadRegs
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	GetSli
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d5
+	Rbmi	L_FonCall
+	move.l	(a3)+,d4
+	Rbmi	L_FonCall
+	move.l	(a3)+,d3
+	Rbmi	L_FonCall
+	move.l	(a3)+,d2
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	move.l	(a3)+,d7
+	Rbmi	L_FonCall
+	move.l	(a3)+,d6
+	Rbmi	L_FonCall
+	sub.l	d6,d1
+	Rbls	L_FonCall
+	sub.l	d7,d2
+	Rbls	L_FonCall
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET SLIDER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetSlider
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d7
+	move.l	(a3)+,d6
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	EcCall	SetSli
+	Rbne	L_FonCall
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEF SCROLL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDefScroll
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,-(a3)
+	movem.l	(a3)+,d1-d7
+	tst.l	d7
+	Rbeq	L_FonCall
+	cmp.l	#NDScrolls,d7
+	Rbhi	L_FonCall
+	mulu	#6*2,d7
+	lea	DScrolls(a5),a1
+	add.w	d7,a1
+	movem.w	d1-d6,-(a1)
+	Rbsr	L_LoadRegs
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCROLL n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InScroll
+; - - - - - - - - - - - - -
+	subq.l	#1,d3
+	cmp.l	#NDScrolls,d3
+	Rbcc	L_FonCall
+	mulu	#6*2,d3
+	lea	DScrolls(a5),a1
+	lea	0(a1,d3.w),a1
+	cmp.w	#$8000,(a1)
+	beq	ScNoDef
+* Gestion AUTOBACK scroll
+	move.l	ScOnAd(a5),a2
+	tst.w	EcAuto(a2)
+	bne.s	ScrF1
+	Rbsr	L_DoScroll
+	rts
+* Autoback!!
+ScrF1	movem.l	a1/a2,-(sp)
+	EcCall	AutoBack1
+	movem.l	(sp),a1/a2
+	btst	#BitDble,EcFlags(a2)
+	beq.s	ScrF2
+	Rbsr	L_DoScroll
+	EcCall	AutoBack2
+	movem.l	(sp),a1/a2
+	Rbsr	L_DoScroll
+	EcCall	AutoBack3
+ScrFX	movem.l	(sp)+,a1/a2
+	rts
+* Single buffer
+ScrF2	Rbsr	L_DoScroll
+	EcCall	AutoBack4
+	bra.s	ScrFX
+ScNoDef	moveq	#28,d0
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	DoScroll
+; - - - - - - - - - - - - -
+	movem.l	d6/d7,-(sp)
+	move.w	(a1)+,d3
+	move.w	(a1)+,d2
+	move.w	(a1)+,d5
+	move.w	(a1)+,d4
+	move.w	(a1)+,d1
+	move.w	(a1)+,d0
+	add.w	d0,d2
+	add.w	d1,d3
+	move.l	#$CC,d6
+	move.l	a2,a0
+	move.l	a2,a1
+	add.l	#EcCurrent,a2
+	move.l	a2,SccEcO(a5)
+	move.l	a2,SccEcD(a5)
+	Rbsr	L_Sco0
+	movem.l	(sp)+,d6/d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCREEN COPY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InScreenCopy2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#$CC,d3
+	Rbra	L_InScreenCopy3
+; - - - - - - - - - - - - -
+	Lib_Par InScreenCopy3
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d1
+	Rbsr	L_GetEc
+	move.l	d0,SccEcD(a5)
+	move.l	a0,a1
+* Adresse ecran 1
+	move.l	(a3)+,d1
+	Rbsr	L_GetEc
+	move.l	d0,SccEcO(a5)
+	movem.l	d5-d7,-(sp)
+	move.l	d3,d6
+	moveq	#0,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.w	#10000,d4
+	move.w	#10000,d5
+	Rbsr	L_Sco0
+	movem.l	(sp)+,d5-d7
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InScreenCopy8
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#$CC,d3
+	Rbra	L_InScreenCopy9
+; - - - - - - - - - - - - -
+	Lib_Par InScreenCopy9
+; - - - - - - - - - - - - -
+* Adresse ecran 2
+	move.l	8(a3),d1
+	Rbsr	L_GetEc
+	move.l	d0,SccEcD(a5)
+	move.l	a0,a1
+* Adresse ecran 1
+	move.l	28(a3),d1
+	Rbsr	L_GetEc
+	move.l	d0,SccEcO(a5)
+* Prend les coordonnees
+	movem.l	d5-d7,-(sp)
+	move.l	d3,d6
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	addq.l	#4,a3
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	addq.l	#4,a3
+* Appelle la routine
+	Rbsr	L_Sco0
+	movem.l	(sp)+,d5-d7
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine SCREEN COPY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Sco0
+; - - - - - - - - - - - - -
+	movem.l	a3/a6,-(sp)
+	tst.w	d0
+	bpl.s	Sco1
+	sub.w	d0,d2
+	clr.w	d0
+Sco1:	tst.w	d1
+	bpl.s	Sco2
+	sub.w	d1,d3
+	clr.w	d1
+Sco2:	tst.w	d2
+	bpl.s	Sco3
+	sub.w	d2,d0
+	clr.w	d2
+Sco3:	tst.w	d3
+	bpl.s	Sco4
+	sub.w	d3,d1
+	clr.w	d3
+Sco4:	cmp.w	EcTx(a0),d0
+	bcc	ScoX
+	cmp.w	EcTy(a0),d1
+	bcc	ScoX
+	cmp.w	EcTx(a1),d2
+	bcc	ScoX
+	cmp.w	EcTy(a1),d3
+	bcc	ScoX
+
+	tst.w	d4
+	bmi	ScoX
+	cmp.w	EcTx(a0),d4
+	bls.s	Sco5
+	move.w	EcTx(a0),d4
+Sco5:	tst.w	d5
+	bmi	ScoX
+	cmp.w	EcTy(a0),d5
+	bls.s	Sco6
+	move.w	EcTy(a0),d5
+Sco6:	sub.w	d0,d4
+	bls	ScoX
+	sub.w	d1,d5
+	bls	ScoX
+
+	move.w	d2,d7
+	add.w	d4,d7
+	sub.w	EcTx(a1),d7
+	bls.s	Sco7
+	sub.w	d7,d4
+	bls	ScoX
+Sco7:	move.w	d3,d7
+	add.w	d5,d7
+	sub.w	EcTy(a1),d7
+	bls.s	Sco8
+	sub.w	d7,d5
+	bls.s	ScoX
+Sco8:	ext.l	d0
+	ext.l	d1
+	ext.l	d2
+	ext.l	d3
+	ext.l	d4
+	ext.l	d5
+; Cree des faux bitmaps
+	move.l	T_ChipBuf(a5),a2	Buffer en CHIP
+	lea	40(a2),a3
+	move.w	EcTLigne(a0),(a2)+
+	move.w	EcTLigne(a1),(a3)+
+	move.w	EcTy(a0),(a2)+
+	move.w	EcTy(a1),(a3)+
+	move.w	EcNPlan(a0),(a2)+
+	move.w	EcNPlan(a1),(a3)+
+	clr.w	(a2)+
+	clr.w	(a3)+
+	move.l	SccEcO(a5),a0
+	move.l	SccEcD(a5),a1
+	moveq	#5,d7
+.BM	move.l	(a0)+,(a2)+
+	move.l	(a1)+,(a3)+
+	dbra	d7,.BM
+; Appelle les routines
+	move.l	T_ChipBuf(a5),a0
+	lea	40(a0),a1
+	lea	40(a1),a2
+	move.l	T_EcVect(a5),a6
+	jsr	ScCpyW*4(a6)
+	beq.s	ScoX
+	moveq	#-1,d7
+	move.l	T_GfxBase(a5),a6
+	jsr	BltBitMap(a6)
+ScoX	movem.l	(sp)+,a3/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=PHYSIC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnPhysic0
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnPhysic1
+; - - - - - - - - - - - - -
+	bset	#31,d3
+	bset	#30,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LOGIC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnLogic0
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	bclr	#30,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnLogic1
+; - - - - - - - - - - - - -
+	bset	#31,d3
+	bclr	#30,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					APPEAR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAppear3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_InAppear4
+; - - - - - - - - - - - - -
+	Lib_Par InAppear4
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d6
+	Rbmi	L_FonCall
+	move.l	(a3)+,d7
+	Rbls	L_FonCall
+	move.l	(a3)+,d1
+	Rbsr	L_GetEc
+	move.l	(a3)+,d1
+	movem.l	a3-a6,-(sp)
+	move.l	a0,a3
+	move.l	d0,SccEcD(a5)
+	Rbsr	L_GetEc
+	move.l	a0,a2
+	move.l	d0,SccEcO(a5)
+	moveq	#0,d4
+	move.w	EcNPlan(a2),d0		* Nb max de plans
+	cmp.w	EcNPlan(a3),d0
+	bls.s	LAppa
+	move.w	EcNPlan(a3),d0
+LAppa	subq.w	#1,d0
+	move.w	d0,AppNPlan(a5)
+	move.w	EcTLigne(a2),d5		* Nb Max de pixels
+	mulu	EcTy(a2),d5
+	lsl.l	#3,d5
+	tst.l	d6
+	bne.s	LApp0
+	move.l	d5,d6
+LApp0	cmp.l	d6,d7
+	bcs.s	LApp1
+	sub.l	d6,d7
+	bra.s	LApp0
+* Boucle!
+LApp1	add.l	d7,d4
+	cmp.l	d5,d4
+	bcs.s	LApp2
+	sub.l	d5,d4
+LApp2
+* Point / Plot
+	move.l	d4,d0
+	lsr.l	#3,d0			* D0-> Adresse image source
+	move.l	d0,d1
+	divu	EcTLigne(a2),d1
+	move.w	d1,d2
+	cmp.w	EcTy(a3),d2
+	bcc.s	LApp5
+	move.w	EcTLigne(a3),d3
+	mulu	d3,d2
+	clr.w	d1
+	swap	d1
+	cmp.w	d3,d1
+	bcc.s	LApp5
+	add.l	d2,d1			* D1-> Adresse image dest
+	move.w	d4,d3
+	and.w	#$0007,d3
+	moveq	#7,d2
+	sub.w	d3,d2			* D2-> decalage bits
+	move.w	AppNPlan(a5),d3		* Nb max de plan
+	move.l	SccEcO(a5),a4
+	move.l	SccEcD(a5),a6
+LApp3	move.l	(a4)+,a0
+	move.l	(a6)+,a1
+	btst	d2,0(a0,d0.l)
+	bne.s	LApp4
+	bclr	d2,0(a1,d1.l)
+	dbra	d3,LApp3
+	bra.s	LApp5
+LApp4	bset	d2,0(a1,d1.l)
+	dbra	d3,LApp3
+* Encore?
+LApp5	subq.l	#1,d6
+	beq.s	LApp6
+	tst.b	T_Actualise(a5)
+	bpl.s	LApp1
+	movem.l a2-a3,-(sp)
+	movem.l	2*4(sp),a3-a6
+	Rjsr	L_Test_PaSaut
+	movem.l	(sp)+,a2-a3
+	bra.s	LApp1
+* A y est!
+LApp6	movem.l	(sp)+,a3-a6
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ZOOM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InZoom
+; - - - - - - - - - - - - -
+		RsReset
+ZSpTablX	rs.l	1
+ZSpTablY	rs.l	1
+ZSpASrce	rs.l	1
+ZSpADest	rs.l	1
+ZSpDSrce	rs.l	1
+ZSpDDest	rs.l	1
+ZSpNPlan	rs.w	1
+ZSpSize		equ	__RS
+	Rbsr	L_SaveRegs
+	move.l	d3,-(a3)
+	movem.l	a3-a6,-(sp)
+	lea	-ZSpSize(sp),sp
+	move.l	9*4(a3),d1
+	Rbsr	L_GetEc
+	move.l	a0,a1			* Source
+	move.l	d0,ZSpASrce(sp)
+	move.l	4*4(a3),d1
+	Rbsr	L_GetEc
+	move.l	a0,a2			* Destination
+	move.l	d0,ZSpADest(sp)
+* Adresses des ecrans
+	move.w	EcNPlan(a1),d0
+	cmp.w	EcNPlan(a2),d0
+	bls.s	IZooD1
+	move.w	EcNPlan(a2),d0
+IZooD1	subq.w	#1,d0
+	move.w	d0,ZSpNPlan(sp)
+* Reserve le buffer 4k!
+	move.l	#4096,d0
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,ZSpTablX(sp)
+* X3/X4/X2/X1
+	move.l	1*4(a3),d5
+	Rbmi	L_FonCall
+	cmp.w	EcTx(a2),d5
+	bhi	ZooF
+	move.l	3*4(a3),d4
+	cmp.l	d5,d4
+	bcc	ZooF
+	move.l	6*4(a3),d3
+	bmi	ZooF
+	cmp.w	EcTx(a1),d3
+	bhi	ZooF
+	move.l	8*4(a3),d2
+	cmp.l	d3,d2
+	bcc	ZooF
+	moveq	#0,d0			* Position en X
+	move.w	d2,d0
+	lsr.w	#3,d0
+	move.l	d0,ZSpDSrce(sp)
+	moveq	#7,d6
+	move.w	d2,d0
+	and.w	#$0007,d0
+	sub.w	d0,d6
+	move.w	d4,d0
+	lsr.w	#3,d0
+	move.l	d0,ZSpDDest(sp)
+	move.w	d4,d0
+	and.w	#$0007,d0
+	moveq	#7,d7
+	sub.w	d0,d7
+	bsr	ZooTab
+* Y3/Y4/Y2/Y1
+	move.l	0*4(a3),d5
+	bmi	ZooF
+	cmp.w	EcTy(a2),d5
+	bhi	ZooF
+	move.l	2*4(a3),d4
+	cmp.l	d5,d4
+	bcc	ZooF
+	move.l	5*4(a3),d3
+	bmi	ZooF
+	cmp.w	EcTy(a1),d3
+	bhi	ZooF
+	move.l	7*4(a3),d2
+	cmp.l	d3,d2
+	bcc	ZooF
+	move.w	d2,d0
+	mulu	EcTLigne(a1),d0
+	add.l	d0,ZSpDSrce(sp)
+	move.w	d4,d0
+	mulu	EcTLigne(a2),d0
+	add.l	d0,ZSpDDest(sp)
+	move.l	a0,ZSpTablY(sp)
+	bsr	ZooTab
+* Zoom / Reduce en Y
+	moveq	#0,d4
+	moveq	#0,d5
+	move.w	EcTLigne(a1),d4
+	move.w	EcTLigne(a2),d5
+	move.l	ZSpTablX(sp),a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	beq.s	ZooD2
+	bmi	ZooX
+ZooD0	move.w	d0,d1
+	lsr.w	#3,d0
+	and.w	#7,d1
+	sub.w	d1,d6
+	bcc.s	ZooD1
+	addq.l	#1,d0
+	addq.w	#8,d6
+ZooD1	add.l	d0,ZSpDSrce(sp)
+ZooD2	move.w	ZSpNPlan(sp),d1
+	move.l	ZSpASrce(sp),a4
+	move.l	ZSpADest(sp),a5
+ZooD3	move.l	(a4)+,a2
+	move.l	(a5)+,a3
+	move.l	ZSpDSrce(sp),d2
+	move.l	ZSpDDest(sp),d3
+	move.l	ZSpTablY(sp),a1
+	move.w	(a1)+,d0
+* Boucle de pokage en Y
+ZooD4	bmi.s	ZooD9
+	mulu	d4,d0
+	add.l	d0,d2
+ZooD5	btst	d6,0(a2,d2.l)
+	beq.s	ZooD7
+	bset	d7,0(a3,d3.l)
+	add.l	d5,d3
+	move.w	(a1)+,d0
+	bne.s	ZooD4
+ZooD6	bset	d7,0(a3,d3.l)
+	add.l	d5,d3
+	move.w	(a1)+,d0
+	beq.s	ZooD6
+	bra.s	ZooD4
+ZooD7	bclr	d7,0(a3,d3.l)
+	add.l	d5,d3
+	move.w	(a1)+,d0
+	bne.s	ZooD4
+ZooD8	bclr	d7,0(a3,d3.l)
+	add.l	d5,d3
+	move.w	(a1)+,d0
+	beq.s	ZooD8
+	bra.s	ZooD4
+* Encore un plan?
+ZooD9	dbra	d1,ZooD3
+* Position en X suivante!
+	subq.w	#1,d7
+	bcc.s	ZooDA
+	moveq	#7,d7
+	addq.l	#1,ZSpDDest(sp)
+ZooDA	moveq	#0,d0
+	move.w	(a0)+,d0
+	beq.s	ZooD2
+	bpl.s	ZooD0
+* Fini! Youpi!
+ZooX	move.l	ZSpTablX(sp),a1
+	lea	ZSpSize(sp),sp
+	movem.l	(sp)+,a3-a6
+	lea	10*4(a3),a3
+	Rbsr	L_LoadRegs
+	move.l	#4096,d0
+	SyCall	MemFree
+	rts
+* FonCall!
+ZooF	move.l	ZSpTablX(sp),a1
+	move.l	#4096,d0
+	SyCall	MemFree
+	Rbra	L_FonCall
+
+;------ Fabrique la table de zoom
+*	D2= X1
+*	D3= X2
+*	D4= X3
+*	D5= X4
+*	A0= Table
+ZooTab	sub.w 	d2,d3
+	sub.w	d4,d5
+	cmp.w	d3,d5
+	bcc.s	ZooZ
+* Reduce!
+	moveq	#-1,d0
+	move.w	d3,d2
+	move.w	d3,d4
+	subq.w	#1,d4
+	subq.w	#1,d2
+ZooR1	addq.w	#1,d0
+	sub.w	d5,d4
+	bcc.s	ZooR2
+	add.w	d3,d4
+	move.w	d0,(a0)+
+	moveq	#0,d0
+ZooR2	dbra	d2,ZooR1
+	move.w	#-1,(a0)+
+	rts
+* Zoom
+ZooZ	clr.w	(a0)+
+	move.w	d5,d4
+	move.w	d5,d2
+	subq.w	#2,d2
+	bmi.s	ZooZ3
+	subq.w	#1,d5
+ZooZ1	sub.w	d3,d5
+	bcc.s	ZooZ2
+	add.w	d4,d5
+	move.w	#1,(a0)+
+	dbra	d2,ZooZ1
+	bra.s	ZooZ3
+ZooZ2	clr.w	(a0)+
+	dbra	d2,ZooZ1
+ZooZ3	move.w	#-1,(a0)+
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					X HARD / YHARD
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXHard1
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	moveq	#0,d3
+	Rbra	L_XHr1
+; - - - - - - - - - - - - -
+	Lib_Par FnXHard2
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d3
+	addq.w	#1,d3
+	Rbra	L_XHr1
+; - - - - - - - - - - - - -
+	Lib_Def	XHr1
+; - - - - - - - - - - - - -
+	moveq	#0,d2
+	SyCall	XyHard
+	Rbne	L_EcWiErr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=YHARD
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnYHard1
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	moveq	#0,d3
+	Rbra	L_YHr1
+; - - - - - - - - - - - - -
+	Lib_Par FnYHard2
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d3
+	addq.l	#1,d3
+	Rbra	L_YHr1
+; - - - - - - - - - - - - -
+	Lib_Def	YHr1
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	SyCall	XyHard
+	Rbne	L_EcWiErr
+	move.l	d2,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=X SCREEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXScreen1
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	moveq	#0,d3
+	Rbra	L_XSc1
+; - - - - - - - - - - - - -
+	Lib_Par FnXScreen2
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d3
+	addq.l	#1,d3
+	Rbra	L_XSc1
+; - - - - - - - - - - - - -
+	Lib_Def	XSc1
+; - - - - - - - - - - - - -
+	moveq	#0,d2
+	SyCall	XyScr
+	Rbne	L_EcWiErr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=YSCREEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnYScreen1
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	moveq	#0,d3
+	Rbra	L_YSc1
+; - - - - - - - - - - - - -
+	Lib_Par FnYScreen2
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d3
+	addq.l	#1,d3
+	Rbra	L_YSc1
+; - - - - - - - - - - - - -
+	Lib_Def	YSc1
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	SyCall	XyScr
+	Rbne	L_EcWiErr
+	move.l	d2,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=X TEXT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXText
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	moveq	#0,d2
+	SyCall	XyWin
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=YTEXT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnYText
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	moveq	#0,d1
+	SyCall	XyWin
+	move.l	d2,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					XYGRAPHIC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXGraphic
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	WiCall	XGrWi
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnYGraphic
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	WiCall	YGrWi
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESERVE ZONES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InReserveZone0
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	Rbra	L_InReserveZone1
+; - - - - - - - - - - - - -
+	Lib_Par InReserveZone1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	ResZone
+	Rbne	L_OOfMem
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RESET ZONE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResetZone0
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	Rbra	L_InResetZone1
+; - - - - - - - - - - - - -
+	Lib_Par InResetZone1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	RazZone
+	bne.s	.Err
+	rts
+.Err	moveq	#73,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET ZONE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetZone
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	Rbls	L_FonCall
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	SetZone
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=ZONE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnZone2
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	moveq	#-1,d3
+	Rbra	L_FZo
+; - - - - - - - - - - - - -
+	Lib_Par FnZone3
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d3
+	Rbra	L_FZo
+; - - - - - - - - - - - - -
+	Lib_Def	FZo
+; - - - - - - - - - - - - -
+	addq.l	#1,d3
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	moveq	#8,d5			??? Nb d'ecrans
+	SyCall	ZoGr
+	tst.w	d0
+	Rbne	L_EcWiErr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=HZONE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnHZone2
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	moveq	#-1,d3
+	Rbra	L_FHZo
+; - - - - - - - - - - - - -
+	Lib_Par FnHZone3
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d3
+	Rbra	L_FHZo
+; - - - - - - - - - - - - -
+	Lib_Def	FHZo
+; - - - - - - - - - - - - -
+	addq.l	#1,d3
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	moveq	#8,d5
+	SyCall	ZoHd			??? Nb d'ecrans
+	tst.w	d0
+	Rbne	L_EcWiErr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SCIn
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnScIn2
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	moveq	#-1,d3
+	Rbra	L_ScIn
+; - - - - - - - - - - - - -
+	Lib_Par FnScIn3
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d3
+	Rbra	L_ScIn
+; - - - - - - - - - - - - -
+	Lib_Def	ScIn
+; - - - - - - - - - - - - -
+	addq.l	#1,d3
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	moveq	#8,d4			??? Nb d'ecrans
+	SyCall	ScIn
+	Rbne	L_EcWiErr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=MOUSE SCREEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMouseScreen
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	XyMou
+	moveq	#0,d3
+	moveq	#8,d4			??? Nb d'ecrans
+	SyCall	ScIn
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=MOUSEZONE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMouseZone
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	XyMou
+	moveq	#0,d3
+	moveq	#8,d5			??? Nb d'ecrans
+	SyCall	ZoHd
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET CBLOCK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetCBlock
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d5
+	Rbeq	L_BFonCall
+	cmp.l	#65536,d5
+	Rbcc	L_BFonCall
+	EcCall	CBlGet
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PUT CBLOCK n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPutCBlock1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#-1,d3
+	move.l	d3,-(a3)
+	Rbra	L_InPutCBlock3
+; - - - - - - - - - - - - -
+	Lib_Par InPutCBlock3
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d5
+	Rbeq	L_BFonCall
+	cmp.l	#65536,d5
+	Rbcc	L_BFonCall
+	EcCall	CBlPut
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEL CBLOCK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDelCBlock0
+; - - - - - - - - - - - - -
+	EcCall	CBlRaz
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InDelCBlock1
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	Rbeq	L_BFonCall
+	cmp.l	#65536,d5
+	Rbcc	L_BFonCall
+	EcCall	CBlDel
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET BLOCK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetBlock5
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_InGetBlock6
+; - - - - - - - - - - - - -
+	Lib_Par InGetBlock6
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	Rbeq	L_BFonCall
+	cmp.l	#65536,d1
+	Rbcc	L_BFonCall
+	move.l	d6,-(sp)
+	move.l	d0,d6
+	EcCall	BlGet
+	movem.l	(sp)+,d6
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PUT BLOCK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPutBlock1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	Rbra	L_InPutBlock5
+; - - - - - - - - - - - - -
+	Lib_Par InPutBlock3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InPutBlock5
+; - - - - - - - - - - - - -
+	Lib_Par InPutBlock4
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InPutBlock5
+; - - - - - - - - - - - - -
+	Lib_Par InPutBlock5
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	tst.l	d1
+	Rbeq	L_BFonCall
+	cmp.l	#65536,d1
+	Rbcc	L_BFonCall
+	move.l	Buffer(a5),a1
+	EcCall	BlPut
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEL BLOC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDelBlock0
+; - - - - - - - - - - - - -
+	EcCall	BlRaz
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InDelBlock1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbeq	L_BFonCall
+	cmp.l	#65536,d1
+	Rbcc	L_BFonCall
+	EcCall	BlDel
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Bloc Reverse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InHRevBlock
+; - - - - - - - - - - - - -
+	move.w	#%1000000000000000,d2
+	Rbra	L_Rev
+; - - - - - - - - - - - - -
+	Lib_Par InVRevBlock
+; - - - - - - - - - - - - -
+	move.w	#%0100000000000000,d2
+	Rbra	L_Rev
+; - - - - - - - - - - - - -
+	Lib_Def	Rev
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	EcCall	BlRev
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: set XY curseur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GrXY
+; - - - - - - - - - - - - -
+	move.l	T_RastPort(a5),a1
+	cmp.l	#EntNul,d1
+	beq.s	GrXy1
+	move.w	d1,38(a1)
+GrXy1:	cmp.l	#EntNul,d0
+	beq.s	GrXy2
+	move.w	d0,36(a1)
+GrXy2:	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routines d'appel GFX avec AUTOBACK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Def	GfxPnt
+; - - - - - - - - - - - - -
+; Entree speciale pour PAINT!
+	movem.l	a3-a6/d6-d7,-(sp)
+	move.l	T_EcVect(a5),a3
+	lea	SuPaint*4(a3),a3
+	Rbra	L_GfxF0
+; - - - - - - - - - - - - -
+	Lib_Def	GfxFunc
+; - - - - - - - - - - - - -
+; Appel d'une fonction GFX avec autoback!
+	movem.l	a3-a6/d6-d7,-(sp)
+	move.l	T_GfxBase(a5),a6
+	lea	0(a6,d5.w),a3
+	Rbra	L_GfxF0
+; - - - - - - - - - - - - -
+	Lib_Def	GfxF0
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),a2
+	tst.w	EcAuto(a2)
+	bne.s	GfxF1
+	jsr	(a3)
+	bra.s	GfxX1
+* Autoback!!
+GfxF1	move.l 	36(a1),a4
+	moveq	#0,d7
+	movem.l	d0-d7/a0-a3,-(sp)
+	EcCall	AutoBack1
+	movem.l	(sp),d0-d7/a0-a3
+	btst	#BitDble,EcFlags(a2)
+	beq.s	GfxF2
+	jsr	(a3)
+	EcCall	AutoBack2
+	movem.l	(sp),d0-d7/a0-a3
+	move.l	a4,36(a1)
+	jsr	(a3)
+	EcCall	AutoBack3
+GfxX	movem.l	(sp)+,d0-d7/a0-a3
+GfxX1	movem.l	(sp)+,a3-a6/d6-d7
+	rts
+* Single buffer
+GfxF2	jsr	(a3)
+	EcCall	AutoBack4
+	bra.s	GfxX
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: #ecran D1 >>> adresse D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetEc
+; - - - - - - - - - - - - -
+	tst.l	d1
+	bmi.s	GtE1
+* >0 , <8
+	cmp.l	#8,d1
+	Rbcc	L_FonCall
+	EcCall	AdrEc
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	add.l	#EcLogic,d0
+	rts
+* <0
+GtE1	tst.w	d1
+	bpl.s	GtE2
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	bra.s	GtE3
+GtE2	cmp.w	#8,d1
+	Rbcc	L_FonCall
+	EcCall	AdrEc
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+GtE3	btst	#30,d1
+	bne.s	GtE4
+	add.l	#EcLogic,d0
+	rts
+GtE4	add.l	#EcPhysic,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLOSE WORKBENCH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCloseWorkbench
+; - - - - - - - - - - - - -
+	tst.b	PI_AllowWB(a5)
+	beq.s	.Skip
+	Rbsr	L_WB_Close
+.Skip	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					AMOS TO FRONT / BACK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAmosToFront
+; - - - - - - - - - - - - -
+	EcCalD	AMOS_WB,1
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InAmosToBack
+; - - - - - - - - - - - - -
+	EcCalD	AMOS_WB,0
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnAmosHere
+; - - - - - - - - - - - - -
+	EcCalD	AMOS_WB,-1
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par InAmosLock
+; - - - - - - - - - - - - -
+	EcCalD	AMOS_WB,1
+	move.w	#-1,T_NoFlip(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InAmosUnlock
+; - - - - - - - - - - - - -
+	clr.w	T_NoFlip(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine: ferme le WB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	WB_Close
+; - - - - - - - - - - - - -
+	tst.b	WB_Closed(a5)
+	bne.s	.Skip
+	move.l	a6,-(sp)
+	bclr	#WFlag_WBClosed,T_WFlags(a5)
+	move.l	T_IntBase(a5),a6
+	jsr	-78(a6)
+	move.b	d0,WB_Closed(a5)
+	beq.s	.Skup
+	bset	#WFlag_WBClosed,T_WFlags(a5)
+.Skup	move.l	(sp)+,a6
+.Skip	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Reouvre le WB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	WB_Open
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	T_IntBase(a5),a6
+	jsr	-210(a6)
+	move.l	(sp)+,a6
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: b.s, ERREURS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERROR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InError
+; - - - - - - - - - - - - -
+	cmp.l	#256,d3
+	bcs.s	.skip
+	move.l	#255,d3
+.skip	move.l	d3,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					D0>>>> majuscule
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MajD0
+; - - - - - - - - - - - - -
+	cmp.b	#"a",d0
+	bcs.s	.Ski
+	cmp.b	#"z",d0
+	bhi.s	.Ski
+	sub.b	#$20,d0
+.Ski	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: SPRITE.S
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Update et assimiles
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InUpdateOff
+; - - - - - - - - - - - - -
+	bclr	#5,ActuMask(a5)
+	bclr	#6,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InUpdateOn
+; - - - - - - - - - - - - -
+	bset	#5,ActuMask(a5)
+	bset	#6,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InUpdate
+; - - - - - - - - - - - - -
+	movem.l	a3-a6,-(sp)		* Bobs
+	move.l	a5,-(sp)		*** CHANGER!!!
+	SyCall	EffBob
+	SyCall	ActBob
+	SyCall	AffBob
+	EcCall	SwapScS
+	move.l	(sp)+,a5
+	SyCall	ActHs			* Hard sprites
+	SyCall	AffHs
+	movem.l	(sp)+,a3-a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InBobUpdateOff
+; - - - - - - - - - - - - -
+	bclr	#5,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InBobUpdateOn
+; - - - - - - - - - - - - -
+	bset	#5,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InBobUpdate
+; - - - - - - - - - - - - -
+	movem.l	a3-a6,-(sp)		* Bobs
+	SyCall	EffBob
+	SyCall	ActBob
+	SyCall	AffBob
+	EcCall	SwapScS
+	movem.l	(sp)+,a3-a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSpriteUpdateOff
+; - - - - - - - - - - - - -
+	bclr	#6,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSpriteUpdateOn
+; - - - - - - - - - - - - -
+	bset	#6,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSpriteUpdate
+; - - - - - - - - - - - - -
+	movem.l	a3-a6,-(sp)
+	SyCall	ActHs
+	SyCall	AffHs
+	movem.l	(sp)+,a3-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					UPDATE EVERY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InUpdateEvery
+; - - - - - - - - - - - - -
+	cmp.l	#65536,d3
+	Rbcc	L_FonCall
+	move.w	d3,VBLDelai(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BOB CLEAR / DRAW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBobClear
+; - - - - - - - - - - - - -
+	movem.l	a3-a6,-(sp)
+	SyCall	EffBob
+	movem.l	(sp)+,a3-a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InBobDraw
+; - - - - - - - - - - - - -
+	movem.l	a3-a6,-(sp)
+	SyCall	ActBob
+	SyCall	AffBob
+	movem.l	(sp)+,a3-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LIMIT BOB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLimitBob0
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	move.l	#EntNul,d2
+	move.l	d2,d3
+	move.l	d3,d4
+	move.l	d4,d5
+	SyCall	LimBob
+	Rbne	L_FonCall
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InLimitBob4
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	SyCall	LimBob
+	Rbne	L_FonCall
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InLimitBob5
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	SyCall	LimBob
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PRIORITY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPriorityOn
+; - - - - - - - - - - - - -
+	moveq	#1,d1
+	moveq	#-1,d2
+	Rbra	L_Prooo
+; - - - - - - - - - - - - -
+	Lib_Par InPriorityOff
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	moveq	#-1,d2
+	Rbra	L_Prooo
+; - - - - - - - - - - - - -
+	Lib_Par InPriorityReverseOn
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	moveq	#1,d2
+	Rbra	L_Prooo
+; - - - - - - - - - - - - -
+	Lib_Par InPriorityReverseOff
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	moveq	#0,d2
+	Rbra	L_Prooo
+; - - - - - - - - - - - - -
+	Lib_Def	Prooo
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	SPrio
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=AMAL ERR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnAmalerr
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	PAmalE(a5),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FREEZE / UNFREEZE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InFreeze
+; - - - - - - - - - - - - -
+	SyCall	AMALFrz
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InUnFreeze
+; - - - - - - - - - - - - -
+	SyCall	AMALUFrz
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SYNCHRO ON / OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSynchroOn
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	clr.w	InterOff(a5)
+	SyCall	SetSync
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSynchroOff
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	move.w	d1,InterOff(a5)
+	SyCall	SetSync
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSynchro
+; - - - - - - - - - - - - -
+	SyCall	Synchro
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					AMAL/MOVE/ANIM on/off/freeze
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAmalOn0
+; - - - - - - - - - - - - -
+	moveq	#%0001,d2
+	moveq	#1,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InAmalOff0
+; - - - - - - - - - - - - -
+	moveq	#%0001,d2
+	moveq	#-1,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InAmalFreeze0
+; - - - - - - - - - - - - -
+	moveq	#%0001,d2
+	moveq	#0,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InMoveOn0
+; - - - - - - - - - - - - -
+	moveq	#%1100,d2
+	moveq	#1,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InAnimOn0
+; - - - - - - - - - - - - -
+	moveq	#%0010,d2
+	moveq	#1,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InMoveOff0
+; - - - - - - - - - - - - -
+	moveq	#%1100,d2
+	moveq	#-1,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InAnimOff0
+; - - - - - - - - - - - - -
+	moveq	#%0010,d2
+	moveq	#-1,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InMoveFreeze0
+; - - - - - - - - - - - - -
+	moveq	#%1100,d2
+	moveq	#0,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Par InAnimFreeze0
+; - - - - - - - - - - - - -
+	moveq	#%0010,d2
+	moveq	#0,d3
+	Rbra	L_MvOnOf0
+; - - - - - - - - - - - - -
+	Lib_Def	MvOnOf0
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	SyCall	AMALMvO
+	rts
+
+; - - - - - - - - - - - - -
+	Lib_Par InAmalOn1
+; - - - - - - - - - - - - -
+	moveq	#%0001,d2
+	moveq	#1,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InAmalOff1
+; - - - - - - - - - - - - -
+	moveq	#%0001,d2
+	moveq	#-1,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InAmalFreeze1
+; - - - - - - - - - - - - -
+	moveq	#%0001,d2
+	moveq	#0,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InMoveOn1
+; - - - - - - - - - - - - -
+	moveq	#%1100,d2
+	moveq	#1,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InAnimOn1
+; - - - - - - - - - - - - -
+	moveq	#%0010,d2
+	moveq	#1,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InMoveOff1
+; - - - - - - - - - - - - -
+	moveq	#%1100,d2
+	moveq	#-1,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InAnimOff1
+; - - - - - - - - - - - - -
+	moveq	#%0010,d2
+	moveq	#-1,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InMoveFreeze1
+; - - - - - - - - - - - - -
+	moveq	#%1100,d2
+	moveq	#0,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Par InAnimFreeze1
+; - - - - - - - - - - - - -
+	moveq	#%0010,d2
+	moveq	#0,d0
+	Rbra	L_MvOnOf1
+; - - - - - - - - - - - - -
+	Lib_Def	MvOnOf1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	d0,d3
+	SyCall	AMALMvO
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MOVE X/Y etc...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMoveX3
+; - - - - - - - - - - - - -
+	moveq	#2,d0
+	Rbra	L_AMm3
+; - - - - - - - - - - - - -
+	Lib_Par InMoveY3
+; - - - - - - - - - - - - -
+	moveq	#3,d0
+	Rbra	L_AMm3
+; - - - - - - - - - - - - -
+	Lib_Par InAnim3
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	Rbra	L_AMm3
+; - - - - - - - - - - - - -
+	Lib_Par InAmal3
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	Rbra	L_AMm3
+; - - - - - - - - - - - - -
+	Lib_Def	AMm3
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	and.l	#$FFFFFFFE,d5
+	move.l	(a3)+,d3
+	Rbra	L_MvA3
+; - - - - - - - - - - - - -
+	Lib_Par InMoveX2
+; - - - - - - - - - - - - -
+	moveq	#2,d0
+	Rbra	L_MvA
+; - - - - - - - - - - - - -
+	Lib_Par InMoveY2
+; - - - - - - - - - - - - -
+	moveq	#3,d0
+	Rbra	L_MvA
+; - - - - - - - - - - - - -
+	Lib_Par InAmal2
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	Rbra	L_MvA
+; - - - - - - - - - - - - -
+	Lib_Par InAnim2
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	Rbra	L_MvA
+; - - - - - - - - - - - - -
+	Lib_Def	MvA
+; - - - - - - - - - - - - -
+	moveq	#0,d5
+	Rbra	L_MvA3
+; - - - - - - - - - - - - -
+	Lib_Def	MvA3
+; - - - - - - - - - - - - -
+	move.l	d3,a1
+	move.l	d0,d3
+	Rbsr	L_SaveRegs
+	move.l	(a3)+,d6
+	clr.w	PAmalE(a5)
+* 16 si inter / 64 sinon!
+	moveq	#16,d0
+	tst.w	InterOff(a5)
+	beq.s	InMva1
+	moveq	#64,d0
+InMva1:	cmp.l	d0,d6			* Nombre autorise
+	Rbcc	L_FonCall
+* Trouve la banque AMAL (numero 2)
+	moveq	#0,d7
+	moveq	#4,d0
+	move.l	a1,a2
+	Rbsr	L_Bnk.GetAdr
+	move.l	a2,a1
+	beq.s	InMb1
+	move.l	-8(a0),d0
+	cmp.l	#"Amal",d0
+	bne.s	InMb1
+	move.l	a0,d7
+* Est-ce une chaine ou un numero?
+InMb1:	cmp.l	#1024,a1
+	bcc.s	InMb2
+* Dans la banque!
+	tst.l	d7
+	Rbeq	L_BkNoRes
+	tst.l	(a0)
+	Rbeq	L_FonCall
+	add.l	(a0),a0
+	move.w	a1,d0
+	move.l	ChVide(a5),a1
+	cmp.w	(a0)+,d0
+	Rbhi	L_FonCall
+	lsl.w	#1,d0
+	move.w	0(a0,d0.w),d0
+	beq.s	InMb2
+	lsl.w	#1,d0
+	lea	0(a0,d0.w),a1
+* Une chaine!
+InMb2:	move.w	(a1)+,d0		* Met un zero a la fin de la chaine
+	lea	0(a1,d0.w),a0
+	move.b	(a0),d0
+	clr.b	(a0)
+	move.w	d0,-(sp)
+	move.l	a0,-(sp)
+	move.l	Buffer(a5),a2		* Buffer de tokenisation
+	move.l	#TBuffer-256-64,d2
+	move.l	a2,d1			* Buffer variables
+	add.l	#TBuffer-256,d1
+	tst.l	d5			* Numeros des canaux
+	beq.s	InAMv0
+	moveq	#5,d4
+	bra.s	InAMv2
+InAMv0:	lea	AnCanaux(a5),a0
+	add.w	d6,a0
+	add.w	d6,a0
+	moveq	#0,d4
+	moveq	#0,d5
+	move.b	(a0)+,d4
+	move.b	(a0)+,d5
+InAMv2:	SyCall	AMALCre
+	move.l	(sp)+,a1		* Remet la chaine!
+	move.w	(sp)+,d7
+	move.b	d7,(a1)
+	tst.w	d0
+	beq.s	.Exit
+	bpl.s	IAmE
+	cmp.w	#-1,d0
+	Rbeq	L_OOfMem
+	neg.w	d0
+	Rbra	L_EcWiErr
+.Exit	Rbsr	L_LoadRegs
+	rts
+IAmE:	move.w	a0,PAmalE(a5)		* Offset de l'erreur
+	add.w	#SpEBase+2,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=MOVON =CHANAM etc...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMovon
+; - - - - - - - - - - - - -
+	Rbsr	L_FnAm1
+	movem.l	d6/d7,-(sp)
+	SyCall	MovOn
+	movem.l	(sp)+,d6/d7
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnChanAn
+; - - - - - - - - - - - - -
+	Rbsr	L_FnAm1
+	movem.l	d6/d7,-(sp)
+	SyCall	ChanA
+	movem.l	(sp)+,d6/d7
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnChanMv
+; - - - - - - - - - - - - -
+	Rbsr	L_FnAm1
+	movem.l	d6/d7,-(sp)
+	SyCall	ChanM
+	movem.l	(sp)+,d6/d7
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnAm1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	cmp.l	#64,d1
+	Rbcc	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=AMREG(n,[n])=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAmreg1
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d3
+	move.l	#EntNul,d1
+	Rbra	L_IAmR
+; - - - - - - - - - - - - -
+	Lib_Par FnAmreg1
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d1
+	Rbra	L_FAmR
+; - - - - - - - - - - - - -
+	Lib_Par InAmreg2
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d3
+	move.l	(a3)+,d1
+	Rbra	L_IAmR
+; - - - - - - - - - - - - -
+	Lib_Par FnAmreg2
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d1
+	Rbra	L_FAmR
+; - - - - - - - - - - - - -
+	Lib_Def	IAmR
+; - - - - - - - - - - - - -
+	Rbsr	L_AmRR
+	move.w	d5,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	FAmR
+; - - - - - - - - - - - - -
+	Rbsr	L_AmRR
+	move.w	(a0),d3
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Def	AmRR
+; - - - - - - - - - - - - -
+	moveq	#0,d2
+	cmp.l	#EntNul,d1
+	bne.s	IAmRa
+	cmp.l	#26,d3
+	Rbcc	L_FonCall
+	moveq	#-1,d1
+	bra.s	IAmRb
+IAmRa:	cmp.l	#64,d1
+	Rbcc	L_FonCall
+	cmp.l	#10,d3
+	Rbcc	L_FonCall
+IAmRb:	SyCall	AMALReg
+	Rbmi	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					AMPLAY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InAmPlay2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	clr.l	-(a3)
+	moveq	#63,d3
+	Rbra	L_InAmPlay4
+; - - - - - - - - - - - - -
+	Lib_Par InAmPlay4
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	cmp.l	#64,d2
+	Rbcc	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	cmp.l	d1,d2
+	Rbcs	L_FonCall
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	SyCall	PlaySet
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=X BOB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXBob
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	XYBob
+	Rbne	L_FonCall
+	move.w	d1,d3
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnYBob
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	XYBob
+	Rbne	L_FonCall
+	move.w	d2,d3
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=XY SPRITE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXSprite
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	XYSp
+	Rbne	L_FonCall
+	move.w	d1,d3
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnYSprite
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	XYSp
+	Rbne	L_FonCall
+	move.w	d2,d3
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=IBOB = ISPRITE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnIBob
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	XYBob
+	Rbne	L_FonCall
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnISprite
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	XYSp
+	Rbne	L_FonCall
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					= XY MOUSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InXMouse
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	#EntNul,d2
+	SyCall	SetM
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnXMouse
+; - - - - - - - - - - - - -
+	SyCall	XyMou
+	move.w	d1,d3
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par InYMouse
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	#EntNul,d1
+	SyCall	SetM
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnYMouse
+; - - - - - - - - - - - - -
+	SyCall	XyMou
+	move.w	d2,d3
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=MOUSEKEY / CLICK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMouseKey
+; - - - - - - - - - - - - -
+	SyCall	MouseKey
+	moveq	#0,d3
+	move.w	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnMouseClick
+; - - - - - - - - - - - - -
+	SyCall	MouRel
+	moveq	#0,d3
+	move.w	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HIDE ON HIDE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InHide
+; - - - - - - - - - - - - -
+	SyCalD	Hide,0
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InHideOn
+; - - - - - - - - - - - - -
+	SyCalD	Hide,-1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SHOW SHOW ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShow
+; - - - - - - - - - - - - -
+	SyCalD	Show,0
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InShowOn
+; - - - - - - - - - - - - -
+	SyCalD	Show,-1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LIMIT MOUSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLimitMouse0
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	Rbra	L_LimMX
+; - - - - - - - - - - - - -
+	Lib_Par InLimitMouse1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	addq.l	#1,d1
+	Rbra	L_LimMX
+; - - - - - - - - - - - - -
+	Lib_Def	LimMX
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	LimitMEc		??? Nb d'ecrans
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InLimitMouse4
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	SyCall	LimitM
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHANGE MOUSE n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InChangeMouse
+; - - - - - - - - - - - - -
+	subq.l	#1,d3
+	Rbmi	L_FonCall
+	move.l	d3,d1
+	SyCall	ChangeM
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET BOB n,back,plane,minterm
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetBob
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d7
+	move.l	(a3)+,d6
+	move.l	(a3)+,d5
+	move.l	#EntNul,d4
+	move.l	d4,d3
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	cmp.l	d4,d7
+	bne.s	IStb1
+	moveq	#0,d7
+IStb1	cmp.l	d4,d6
+	bne.s	IStb2
+	moveq	#-1,d6
+IStb2	cmp.l	d4,d5
+	bne.s	IStb3
+	moveq	#0,d5
+IStb3	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	SyCall	SetBob
+	Rbmi	L_OOfMem
+	Rbne	L_FonCall
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BOB n,x,y,a
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBob
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	movem.l	d6-d7,-(sp)
+	moveq	#0,d7
+	moveq	#-1,d6
+	moveq	#0,d5
+	SyCall	SetBob
+	movem.l	(sp)+,d6-d7
+	Rbmi	L_OOfMem
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BOB OFF x
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBobOff0
+; - - - - - - - - - - - - -
+	SyCall	OffBobS
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InBobOff1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	SyCall	OffBob
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET SPRITE BUFFER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetSpriteBuffer
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	cmp.l	#16,d1
+	Rbcs	L_FonCall
+	SyCall	SBufHs
+	Rbne	L_SpErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SPRITE PRIORITY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSpritePriority
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	cmp.l	#4,d1
+	Rbhi	L_FonCall
+	SyCall	PriHs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SPRITE n,x,y,a
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSprite
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	SyCall	NXYAHs
+	Rbne	L_FonCall
+	bset	#6,T_Actualise(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SPRITE OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSpriteOff0
+; - - - - - - - - - - - - -
+	SyCall	OffHs
+	bset	#6,T_Actualise(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InSpriteOff1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	SyCall	XOffHs
+	Rbne	L_FonCall
+	bset	#6,T_Actualise(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Collision hard
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetHardcol
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d2
+	moveq	#$0F,d1
+	SyCall	SetHCol
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnHardcol
+; - - - - - - - - - - - - -
+	tst.l	d3
+	bmi.s	FHc1
+	cmp.l	#8,d3
+	Rbcc	L_FonCall
+FHc1	move.w	d3,d1
+	SyCall	GetHCol
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=BOB SPRITE COL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnBobSpriteCol1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	moveq	#0,d2
+	bset	#31,d2
+	moveq	#63,d3
+	SyCall	ColBob
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnBobSpriteCol3
+; - - - - - - - - - - - - -
+	cmp.l	#63,d3
+	Rbhi	L_FonCall
+	move.l	(a3)+,d2
+	Rbmi	L_FonCall
+	bset	#31,d2
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	SyCall	ColBob
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=BOB COL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnBobCol1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	moveq	#0,d2
+	move.l	#10000,d3
+	SyCall	ColBob
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnBobCol3
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbmi	L_FonCall
+	move.l	(a3)+,d2
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	SyCall	ColBob
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SPRITEBOBCOL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnSpriteBobCol1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	moveq	#0,d2
+	bset	#31,d2
+	move.l	#10000,d3
+	SyCall	ColSpr
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnSpriteBobCol3
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbmi	L_FonCall
+	move.l	(a3)+,d2
+	Rbmi	L_FonCall
+	bset	#31,d2
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	SyCall	ColSpr
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SPRITE COL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnSpriteCol1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	moveq	#0,d2
+	moveq	#63,d3
+	SyCall	ColSpr
+	move.l	d0,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnSpriteCol3
+; - - - - - - - - - - - - -
+	cmp.l	#63,d3
+	Rbhi	L_FonCall
+	move.l	(a3)+,d2
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	SyCall	ColSpr
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=COL(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCol
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	SyCall	ColGet
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MASK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMakeIconMask0
+; - - - - - - - - - - - - -
+	moveq	#1,d1
+	Rbsr	L_AdIcon
+	Rbne	L_GoError
+	subq.w	#1,d5
+	Rbra	L_MkMa1
+; - - - - - - - - - - - - -
+	Lib_Par InMakeIconMask1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_AdIcon
+	Rbne	L_GoError
+	moveq	#0,d5
+	Rbra	L_MkMa1
+; - - - - - - - - - - - - -
+	Lib_Par InNoIconMask0
+; - - - - - - - - - - - - -
+	moveq	#1,d1
+	Rbsr	L_AdIcon
+	Rbne	L_GoError
+	subq.w	#1,d5
+	Rbra	L_NoMa1
+; - - - - - - - - - - - - -
+	Lib_Par InNoIconMask1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_AdIcon
+	Rbne	L_GoError
+	moveq	#0,d5
+	Rbra	L_NoMa1
+; - - - - - - - - - - - - -
+	Lib_Par InMakeMask0
+; - - - - - - - - - - - - -
+	moveq	#1,d1
+	Rbsr	L_AdBob
+	Rbne	L_GoError
+	subq.w	#1,d5
+	Rbra	L_MkMa1
+; - - - - - - - - - - - - -
+	Lib_Par InMakeMask1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_AdBob
+	Rbne	L_GoError
+	moveq	#0,d5
+	Rbra	L_MkMa1
+; - - - - - - - - - - - - -
+	Lib_Def	MkMa1
+; - - - - - - - - - - - - -
+.Loop	tst.l	(a2)
+	beq.s	.Skip
+	SyCall	MaskMk
+	Rbne	L_OOfMem
+.Skip	addq.l	#8,a2
+	dbra	d5,.Loop
+	rts
+
+; - - - - - - - - - - - - -
+	Lib_Par InNoMask0
+; - - - - - - - - - - - - -
+	moveq	#1,d1
+	Rbsr	L_AdBob
+	Rbne	L_GoError
+	subq.w	#1,d5
+	Rbra	L_NoMa1
+; - - - - - - - - - - - - -
+	Lib_Par InNoMask1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbsr	L_AdBob
+	Rbne	L_GoError
+	moveq	#0,d5
+	Rbra	L_NoMa1
+; - - - - - - - - - - - - -
+	Lib_Def	NoMa1
+; - - - - - - - - - - - - -
+.Loop	tst.l	(a2)
+	beq.s	.Skip2
+	tst.l	4(a2)
+	ble.s	.Skip1
+	move.l	4(a2),a1
+	move.l	(a1),d0
+	SyCall	MemFree
+.Skip1	move.l	#$C0000000,4(a2)
+.Skip2	addq.l	#8,a2
+	dbra	d5,.Loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HOT SPOT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InHotSpot3
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d2
+	moveq	#0,d1
+	Rbra	L_HotSp
+; - - - - - - - - - - - - -
+	Lib_Par InHotSpot2
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	and.w	#%01110111,d1
+	addq.w	#1,d1
+	Rbra	L_HotSp
+; - - - - - - - - - - - - -
+	Lib_Def	HotSp
+; - - - - - - - - - - - - -
+	movem.w	d1-d3,-(sp)
+	move.l	(a3)+,d1
+	Rbsr	L_AdBob
+	movem.w	(sp)+,d1-d3
+	SyCall	SpotHot
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET SPRITE / BOB [sc],n,x,y to x,y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetSprite6
+; - - - - - - - - - - - - -
+	move.l	4*4(a3),d1
+	EcCall	AdrEc
+	Rbeq	L_ScNOp
+	move.l	d0,-(sp)
+	move.l	d0,a0
+	Rbsr	L_Ritoune
+	move.l	(a3),4(a3)
+	addq.l	#4,a3
+	Rbra	L_GS
+; - - - - - - - - - - - - -
+	Lib_Par InGetSprite5
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),a0
+	move.l	a0,-(sp)
+	Rbeq	L_ScNOp
+	Rbsr	L_Ritoune
+	Rbra	L_GS
+; - - - - - - - - - - - - -
+	Lib_Def	GS
+; - - - - - - - - - - - - -
+	move.l	(a3),d0
+	Rble	L_FonCall
+	Rbsr	L_Bnk.AdBob
+	beq.s	.New
+	move.l	a0,a2
+	Rbsr	L_Bnk.EffBobA0
+	bra.s	.Suite
+; Appelle l'agrandissement (soit pas banque, soit trop grand)
+.New	moveq	#1,d0			Recopier l'ancienne!
+	move.l	(a3),d1			Taille nouvelle banque
+	Rbsr	L_Bnk.ResBob
+	Rbne	L_OOfMem
+	Rjsr	L_Bnk.Change		Changement de banque
+	move.l	(a3),d0			Adresse du nouveau bob
+	Rbsr	L_Bnk.AdBob
+	Rbeq	L_FonCall
+	move.l	a0,a2
+.Suite	addq.l	#4,a3
+; Appelle la trappe
+	move.l	(sp)+,a1		Ecran en A1
+	SyCall	SprGet
+	Rbne	L_OOfMem
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GET ICON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InGetIcon6
+; - - - - - - - - - - - - -
+	move.l	4*4(a3),d1
+	EcCall	AdrEc
+	Rbeq	L_ScNOp
+	move.l	d0,-(sp)
+	move.l	d0,a0
+	Rbsr	L_Ritoune
+	move.l	(a3),4(a3)
+	addq.l	#4,a3
+	Rbra	L_GI
+; - - - - - - - - - - - - -
+	Lib_Par InGetIcon5
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),a0
+	move.l	a0,-(sp)
+	Rbeq	L_ScNOp
+	Rbsr	L_Ritoune
+	Rbra	L_GI
+; - - - - - - - - - - - - -
+	Lib_Def	GI
+; - - - - - - - - - - - - -
+	move.l	(a3),d0
+	Rble	L_FonCall
+	Rbsr	L_Bnk.AdIcon
+	beq.s	.New
+	move.l	a0,a2
+	Rbsr	L_Bnk.EffBobA0
+	bra.s	.Suite
+; Appelle l'agrandissement (soit pas banque, soit trop grand)
+.New	moveq	#1,d0			Recopier la banque
+	move.l	(a3),d1			Adresse nouvel icone
+	Rbsr	L_Bnk.ResIco
+	Rbne	L_OOfMem
+	Rjsr	L_Bnk.Change
+	move.l	(a3),d0
+	Rbsr	L_Bnk.AdIcon
+	Rbeq	L_FonCall
+	move.l	a0,a2
+.Suite	addq.l	#4,a3
+; Appelle la trappe
+	move.l	(sp)+,a1		Ecran en A1
+	SyCall	SprGet
+	Rbne	L_OOfMem
+	move.l	#$C0000000,4(a2)	Pas de masque!
+	Rbsr	L_LoadRegs
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	Ritoune
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+	move.l	d3,d5
+	Rbmi	L_FonCall
+	move.l	(a3)+,d4
+	Rbmi	L_FonCall
+	move.l	(a3)+,d3
+	Rbmi	L_FonCall
+	move.l	(a3)+,d2
+	Rbmi	L_FonCall
+* Calcule taille
+	cmp.w	EcTx(a0),d4
+	Rbhi	L_FonCall
+	move.w	d4,d6
+	cmp.w	EcTy(a0),d5
+	Rbhi	L_FonCall
+	sub.w	d2,d4
+	Rbls	L_FonCall
+	sub.w	d3,d5
+	Rbls	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PUT BOB n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPutBob
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	SyCall	PutBob
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FONCTIONS RETOURNEMENT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnHRev
+; - - - - - - - - - - - - -
+	bset	#15,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnVRev
+; - - - - - - - - - - - - -
+	bset	#14,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnRev
+; - - - - - - - - - - - - -
+	bset	#15,d3
+	bset	#14,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PASTE BOB x,y,n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPasteBob
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	Rbsr	L_AdBob
+	tst.l	(a2)
+	Rbne	L_Paste
+	moveq	#24,d0			Paste bob error
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Par InPasteIcon
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_FonCall
+	Rbsr	L_AdIcon
+	tst.l	(a2)
+	beq.s	.Err
+	tst.l	4(a2)
+	Rbne	L_Paste
+	move.l	#$C0000000,4(a2)
+	Rbra	L_Paste
+.Err	moveq	#30,d0
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	Paste
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	BufBob(a5),a1
+	moveq	#0,d4
+	moveq	#-1,d5
+	SyCall	Patch
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SPRITE / ICON BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnSpriteBase
+; - - - - - - - - - - - - -
+	Rlea	L_AdBob,0
+	Rbra	L_Sb
+; - - - - - - - - - - - - -
+	Lib_Par FnIconBase
+; - - - - - - - - - - - - -
+	Rlea	L_AdIcon,0
+	Rbra	L_Sb
+; - - - - - - - - - - - - -
+	Lib_Def	Sb
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	bpl.s	FsBi1
+	neg.l	d1
+FsBi1	jsr	(a0)
+	tst.l	d3
+	bpl.s	FsBi2
+	addq.l	#4,a2
+FsBi2	move.l	(a2),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; Trouve l'adresse d'un bob / Icone,
+; Avec gestion des erreurs
+; 	IN	D1=	Numero
+;	OUT	A2=	Adresse
+;		D5=	Max de bobs
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	AdBob
+; - - - - - - - - - - - - -
+	and.l	#$3FFF,d1
+	Rbeq	L_FonCall
+	move.l	d1,d0
+	Rbsr	L_Bnk.AdBob
+	Rbeq	L_AdBErr
+	move.l	a0,a2
+	move.w	d1,d5
+	moveq	#0,d0
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	AdIcon
+; - - - - - - - - - - - - -
+	and.l	#$3FFF,d1
+	Rbeq	L_FonCall
+	move.l	d1,d0
+	Rbsr	L_Bnk.AdIcon
+	Rbeq	L_AdBErr
+	move.l	a0,a2
+	move.w	d1,d5
+	moveq	#0,d0
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	AdBErr
+; - - - - - - - - - - - - -
+	tst.w	d1
+	Rbeq	L_BkNoRes
+	moveq	#EcEBase+30-1,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Routine, copie le path dans PATHACT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CopyPath
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	lea	384(a0),a0
+	move.l	PathAct(a5),a1
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Branchements aux erreurs
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - -
+	Lib_Def	DiskError
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOIoErr(a6)
+	move.l	(sp)+,a6
+	Rbra	L_DiskErr
+; - - - - - - - - - - - - -
+	Lib_Def	DiskErr
+; - - - - - - - - - - - - -
+	lea	ErDisk(pc),a0
+	moveq	#-1,d1
+DiE1:	addq.l	#1,d1
+	move.w	(a0)+,d2
+	bmi.s	DiE2
+	cmp.w	d0,d2
+	bne.s	DiE1
+	add.w	#DEBase,d1
+	move.w	d1,d0
+	move.l	Fs_ErrPatch(a5),d3
+	Rbeq	L_GoError
+	move.l	d3,a0
+	jmp	(a0)
+DiE2:	moveq	#DEBase+15,d0
+	Rbra	L_GoError
+; Table des erreurs reconnues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ErDisk:	dc.w 203,204,205,210,213,214,216,218
+	dc.w 220,221,222,223,224,225,226,-1
+
+; - - - - - - - - - - - - -
+	Lib_Def	TypeMis
+; - - - - - - - - - - - - -
+	moveq	#34,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	FilOO
+; - - - - - - - - - - - - -
+	moveq	#DEBase+17,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	FilNO
+; - - - - - - - - - - - - -
+	moveq	#DEBase+18,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	FilTM
+; - - - - - - - - - - - - -
+	moveq	#DEBase+19,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	EOFil
+; - - - - - - - - - - - - -
+	moveq	#DEBase+21,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	IffFor2
+; - - - - - - - - - - - - -
+	moveq	#30,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	DiForm
+; - - - - - - - - - - - - -
+	moveq	#DEBase+16,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	ScNOp
+; - - - - - - - - - - - - -
+	moveq	#3,d0
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	RainErr
+; - - - - - - - - - - - - -
+	moveq	#31,d0
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	EcWiErr
+; - - - - - - - - - - - - -
+	cmp.w	#1,d0
+	Rbeq	L_OOfMem
+	add.w	#EcEBase-1,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	CopErr
+; - - - - - - - - - - - - -
+	add.w	#EcEBase+32-2,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	BkAlRes
+; - - - - - - - - - - - - -
+	moveq	#35,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	BkNoRes
+; - - - - - - - - - - - - -
+	moveq	#36,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	OOfMem
+; - - - - - - - - - - - - -
+	moveq 	#24,d0
+	Rbra 	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Par	Syntax
+; - - - - - - - - - - - - -
+	moveq 	#22,d0
+	Rbra 	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Par	Syntax2
+; - - - - - - - - - - - - -
+	Rbra	L_Syntax
+; - - - - - - - - - - - - -
+	Lib_Def	StooLong
+; - - - - - - - - - - - - -
+	moveq 	#21,d0
+	Rbra 	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	FonCall
+; - - - - - - - - - - - - -
+	moveq 	#23,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	AdrErr
+; - - - - - - - - - - - - -
+	moveq	#25,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	CantFit
+; - - - - - - - - - - - - -
+	moveq	#32,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	IffFor
+; - - - - - - - - - - - - -
+	moveq	#30,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	IffCmp
+; - - - - - - - - - - - - -
+	moveq	#31,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	IllScN
+; - - - - - - - - - - - - -
+	moveq	#6,d0			* Illegal screen number
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	FftE			* Error font
+; - - - - - - - - - - - - -
+	moveq	#37,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Par FnfE			* Font not found
+; - - - - - - - - - - - - -
+	moveq	#44,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	BFonCall		* Erreur blocks
+; - - - - - - - - - - - - -
+	moveq	#22,d0
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	WFonCall
+; - - - - - - - - - - - - -
+	moveq	#16,d0
+	Rbra	L_EcWiErr
+; - - - - - - - - - - - - -
+	Lib_Def	SpErr
+; - - - - - - - - - - - - -
+	moveq	#SpEBase,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Par InStop
+; - - - - - - - - - - - - -
+	moveq	#9,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - -
+	Lib_Def	GoError
+; - - - - - - - - - - - - -
+	Rjmp	L_Error
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: ecrans.s / FENETRES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WINDOPEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWindopen5
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	move.l	d3,-(a3)
+	Rbra	L_InWindopen7
+; - - - - - - - - - - - - -
+	Lib_Par InWindopen6
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_InWindopen7
+; - - - - - - - - - - - - -
+	Lib_Par InWindopen7
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	Rbsr	L_SaveRegs
+	move.l	d3,a1
+	move.l	(a3)+,d7
+	moveq	#1,d6			Faire un CLW!
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	cmp.l	#65536,d1
+	Rbcc	L_WFonCall
+	WiCall	WindOp
+	Rbne	L_EcWiErr
+	Rbsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WINDSAVE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWindsave
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	move.w	#-1,EcWiDec(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WINDMODE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWindmove
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	WiCall	MoveWi
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WINDSIZE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWindsize
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	Rbmi	L_FonCall
+	move.l	(a3)+,d1
+	Rbmi	L_FonCall
+	WiCall	SizeWi
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WINDCLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWindclose
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	WinDel
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WINDOW n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWindow
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d1
+	WiCall	QWindow
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=WINDON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnWindon
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	GAdr
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					WRITING
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InWriting1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_InWriting2
+; - - - - - - - - - - - - -
+	Lib_Par InWriting2
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	cmp.l	#3,d0
+	Rbcc	L_WFonCall
+	lsl.w	#3,d0
+	move.l	(a3)+,d1
+	cmp.l	#5,d1
+	Rbcc	L_WFonCall
+	or.w	d1,d0
+	add.b	#"0",d0
+	lea	ChWrt(pc),a1
+	move.b	d0,2(a1)
+	Rbra	L_GoWn
+ChWrt:	dc.b 	27,"W0",0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BORDER n,paper,n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBorder
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	WiCall	SBord
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TITLE TOP a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InTitleTop
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),d1
+	moveq	#0,d2
+	Rbra	L_WnTT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TITLE BOTTOM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InTitleBottom
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),d2
+	moveq	#0,d1
+	Rbra	L_WnTT
+; - - - - - - - - - - - - -
+	Lib_Def	WnTT
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	STitle
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=XYCURS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXCurs
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	XYCuWi
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnYCurs
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	XYCuWi
+	move.l	d2,d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET CURS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetCurs
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	Buffer(a5),a1
+	lea	8(a1),a0
+	moveq	#7,d0
+WnSCu1:	move.l	(a3)+,d1
+	move.b	d1,-(a0)
+	dbra	d0,WnSCu1
+	WiCall	SCurWi
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LOCATE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InLocate
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	WiCall	Locate
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CENTRE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCentre
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a1
+	WiCall	Centre
+	Rbne	L_EcWiErr
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CMOVE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCmove
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	cmp.l	#EntNul,d0
+	bne.s	WnCm2
+WnCm1:	moveq	#0,d0
+WnCm2:	move.l	(a3)+,d1
+	cmp.l	#EntNul,d1
+	bne.s	WnCm4
+WnCm3:	moveq	#0,d1
+WnCm4:	add.l	#128,d0
+	add.l	#128,d1
+	cmp.l	#255,d0
+	Rbhi	L_WFonCall
+	cmp.l	#255,d1
+	Rbhi	L_WFonCall
+	lea	ChCMv(pc),a1
+	move.b	d1,2(a1)
+	move.b	d0,5(a1)
+	Rbra	L_GoWn
+ChCMv:	dc.b 27,"N0",27,"O0",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CURSPEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCursPen
+; - - - - - - - - - - - - -
+	lea	ChCPe(pc),a1
+	Rbra	L_WnPp
+ChCPe	dc.b 27,"D0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PAPER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPaper
+; - - - - - - - - - - - - -
+	lea	ChPap(pc),a1
+	Rbra	L_WnPp
+ChPap	dc.b 27,"B0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPen
+; - - - - - - - - - - - - -
+	lea	ChPen(pc),a1
+	Rbra	L_WnPp
+ChPen:	dc.b 27,"P0",0
+; - - - - - - - - - - - - -
+	Lib_Def	WnPp
+; - - - - - - - - - - - - -
+	add.b	#"0",d3
+	move.b	d3,2(a1)
+	Rbra	L_GoWn
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLW
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InClw
+; - - - - - - - - - - - - -
+	lea	ChClw(pc),a1
+	Rbra	L_GoWn
+ChClw:	dc.b 	25,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HOME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InHome
+; - - - - - - - - - - - - -
+	lea	ChHom(pc),a1
+	Rbra	L_GoWn
+ChHom:	dc.b 	12,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLEFT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCleft
+; - - - - - - - - - - - - -
+	lea	ChCLf(pc),a1
+	Rbra	L_GoWn
+ChCLf:	dc.b 	29,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CRIGHT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCright
+; - - - - - - - - - - - - -
+	lea	ChCRt(pc),a1
+	Rbra	L_GoWn
+ChCRt:	dc.b 	28,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CUP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCup
+; - - - - - - - - - - - - -
+	lea	ChCUp(pc),a1
+	Rbra	L_GoWn
+ChCUp:	dc.b 	30,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CDOWN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCdown
+; - - - - - - - - - - - - -
+	lea	ChCDn(pc),a1
+	Rbra	L_GoWn
+ChCDn:	dc.b 	31,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CURSOFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCursOff
+; - - - - - - - - - - - - -
+	lea	ChCOf(pc),a1
+	Rbra	L_GoWn
+ChCOf:	dc.b 	27,"C0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CURSON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCursOn
+; - - - - - - - - - - - - -
+	lea	ChCOn(pc),a1
+	Rbra	L_GoWn
+ChCOn:	dc.b 	27,"C1",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INVERSE ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InInverseOn
+; - - - - - - - - - - - - -
+	lea	ChIOn(pc),a1
+	Rbra	L_GoWn
+ChIOn:	dc.b 	27,"I1",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INVERSE OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InInverseOff
+; - - - - - - - - - - - - -
+	lea	ChIOf(pc),a1
+	Rbra	L_GoWn
+ChIOf:	dc.b 	27,"I0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					UNDER ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InUnderOn
+; - - - - - - - - - - - - -
+	lea	ChUOn(pc),a1
+	Rbra	L_GoWn
+ChUOn:	dc.b 	27,"U1",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					UNDER OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InUnderOff
+; - - - - - - - - - - - - -
+	lea	ChUOf(pc),a1
+	Rbra	L_GoWn
+ChUOf:	dc.b 	27,"U0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCROLLING ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InScrollOn
+; - - - - - - - - - - - - -
+	lea	ChScOn(pc),a1
+	Rbra	L_GoWn
+ChScOn:	dc.b 	27,"V1",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SCROLLING OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InScrollOff
+; - - - - - - - - - - - - -
+	lea	ChScOf(pc),a1
+	Rbra	L_GoWn
+ChScOf:	dc.b 	27,"V0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SHADE ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShadeOn
+; - - - - - - - - - - - - -
+	lea	ChSOn(pc),a1
+	Rbra	L_GoWn
+ChSOn:	dc.b 	27,"S1",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SHADE OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShadeOff
+; - - - - - - - - - - - - -
+	lea	ChSOf(pc),a1
+	Rbra	L_GoWn
+ChSOf:	dc.b 	27,"S0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLEAR LINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCline0
+; - - - - - - - - - - - - -
+	lea	ChCll(pc),a1
+	Rbra	L_GoWn
+ChCll:	dc.b 26,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MEMORIZE X
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMemorizeX
+; - - - - - - - - - - - - -
+	lea	ChMx1(pc),a1
+	Rbra	L_GoWn
+ChMx1:	dc.b 	27,"M0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MEMORIZE Y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMemorizeY
+; - - - - - - - - - - - - -
+	lea	ChMy1(pc),a1
+	Rbra	L_GoWn
+ChMy1:	dc.b 	27,"M2",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					REMEMBER X
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRememberX
+; - - - - - - - - - - - - -
+	lea	ChMx2(pc),a1
+	Rbra	L_GoWn
+ChMx2:	dc.b 	27,"M1",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					REMEMBER Y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InRememberY
+; - - - - - - - - - - - - -
+	lea	ChMy2(pc),a1
+	Rbra	L_GoWn
+ChMy2:	dc.b 	27,"M3",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLEAR LINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InCline1
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbeq	L_WFonCall
+	cmp.l	#255-48,d3
+	Rbcc	L_WFonCall
+	add.w	#48,d3
+	lea	ChCln(pc),a1
+	move.b	d3,2(a1)
+	Rbra	L_GoWn
+ChCln:	dc.b 	27,"Q0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					HSCROLL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InHScroll
+; - - - - - - - - - - - - -
+	lea	ChHSc(pc),a1
+	Rbra	L_HVSc
+ChHSc:	dc.b 	16,0,17,0,18,0,19,0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					VSCROLL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InVScroll
+; - - - - - - - - - - - - -
+	lea	ChVSc(pc),a1
+	Rbra	L_HVSc
+ChVSc:	dc.b 20,0,21,0,22,0,23,0
+; - - - - - - - - - - - - -
+	Lib_Def	HVSc
+; - - - - - - - - - - - - -
+	cmp.l	#4,d3
+	Rbhi	L_WFonCall
+Hv1:	subq.l	#1,d3
+	Rbmi	L_WFonCall
+	beq.s	Hv3
+Hv2:	tst.b	(a1)+
+	bne.s	Hv2
+	bra.s	Hv1
+Hv3	Rbra	L_GoWn
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SET TAB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSetTab
+; - - - - - - - - - - - - -
+	cmp.l	#255-48,d3
+	Rbhi	L_WFonCall
+	add.w	#48,d3
+	lea	ChSTa(pc),a1
+	move.b	d3,2(a1)
+	Rbra	L_GoWn
+ChSTa:	dc.b 27,"T0",0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Envoie a la trappe
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GoWn
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	WiCall	Print
+	Rbne	L_EcWiErr
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: String.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FREE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnFree
+; - - - - - - - - - - - - -
+	moveq	#-100,d3
+	Rjsr	L_Menage
+	move.l	TabBas(a5),d3
+	sub.l	HiChaine(a5),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=INKEY$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnInkey
+; - - - - - - - - - - - - -
+	SyCall	Inkey
+	tst.l	d1
+	Rbeq	L_Ret_ChVide
+	move.w	d1,d2
+	swap	d1
+	move.w	d1,SScan(a5)
+	moveq	#2,d3
+	Rjsr	L_Demande
+	move.w	#1,(a0)+
+	move.b	d2,(a0)+
+	addq.l	#1,a0
+	move.l	a0,HiChaine(a5)
+	move.l	a1,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SCANCODE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnScancode
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.b	SScan+1(a5),d3
+	clr.b	SScan+1(a5)
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SCANSHIFT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnScanshift
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.b	SScan(a5),d3
+	clr.b	SScan(a5)
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=KEY STATE(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnKeyState
+; - - - - - - - - - - - - -
+	cmp.l	#128,d3
+	Rbcc	L_FonCall
+	move.l	d3,d1
+	SyCall	Instant
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=KEY SHIFT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnKeyShift
+; - - - - - - - - - - - - -
+	SyCall	Shifts
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=JOY(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnJoy
+; - - - - - - - - - - - - -
+	cmp.l	#1,d3
+	Rbhi	L_FonCall
+	move.l	d3,d1
+	SyCall	Joy
+	move.l	d1,d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnJup
+; - - - - - - - - - - - - -
+	Rbsr	L_FJ
+	btst	#0,d1
+	Rbeq	L_FnFalse
+	Rbra	L_FnTrue
+; - - - - - - - - - - - - -
+	Lib_Par FnJdown
+; - - - - - - - - - - - - -
+	Rbsr	L_FJ
+	btst	#1,d1
+	Rbeq	L_FnFalse
+	Rbra	L_FnTrue
+; - - - - - - - - - - - - -
+	Lib_Par FnJleft
+; - - - - - - - - - - - - -
+	Rbsr	L_FJ
+	btst	#2,d1
+	Rbeq	L_FnFalse
+	Rbra	L_FnTrue
+; - - - - - - - - - - - - -
+	Lib_Par FnJright
+; - - - - - - - - - - - - -
+	Rbsr	L_FJ
+	btst	#3,d1
+	Rbeq	L_FnFalse
+	Rbra	L_FnTrue
+; - - - - - - - - - - - - -
+	Lib_Par FnFire
+; - - - - - - - - - - - - -
+	Rbsr	L_FJ
+	btst	#4,d1
+	Rbeq	L_FnFalse
+	Rbra	L_FnTrue
+; - - - - - - - - - - - - -
+	Lib_Def	FJ
+; - - - - - - - - - - - - -
+	cmp.l	#1,d3
+	Rbhi	L_FonCall
+	move.l	d3,d1
+	SyCall	Joy
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PUTKEY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InPutKey
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	cmp.w	#64,d2
+	Rbcc	L_StooLong
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a1
+	SyCall	PutKey
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CLEARKEY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InClearKey
+; - - - - - - - - - - - - -
+	SyCall	ClearKey
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					KEY$()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InKeyD
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a1
+	move.l	(a3)+,d1
+	subq.l	#1,d1
+	cmp.l	#20,d1
+	Rbcc	L_FonCall
+	SyCall	SetFunk
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnKeyD
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	subq.l	#1,d1
+	cmp.l	#20,d1
+	Rbcc	L_FonCall
+	move.l	Buffer(a5),a2
+	bsr.s	SsGtKy
+	Rbra	L_Str2Chaine
+;	Routine
+; ~~~~~~~~~~~~~
+SsGtKy:	movem.l	d0-d2/a0-a2,-(sp)
+	SyCall	GetFunk
+	moveq	#0,d3
+SGk0:	clr.b	(a2)
+	move.b	(a0)+,d0
+	beq.s	SGkX
+	cmp.b	#13,d0			* RETURN
+	beq.s	SGk2
+	cmp.b	#"'",d0			* REM
+	beq.s	SGk0
+	cmp.b	#1,d0			* SCAN CODE
+	beq.s	SGk4
+	cmp.b	#32,d0
+	bcc.s	SGk1
+	moveq	#".",d0
+SGk1:	move.b	d0,(a2)+
+	addq.w	#1,d3
+	bra.s	SGk0
+SGk2:	move.b	#"`",d0
+	cmp.b	#10,(a0)+
+	beq.s	SGk1
+	subq.l	#1,a1
+	bra.s	SGk1
+SGk4:	addq.l	#3,a1
+	bra.s	SGk0
+SGkX:	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SCAN$()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnScan1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_FnScan2
+; - - - - - - - - - - - - -
+	Lib_Par FnScan2
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d5
+	cmp.l	#256,d5
+	Rbcc	L_FonCall
+	cmp.l	#256,d4
+	Rbcc	L_FonCall
+	moveq	#4,d3
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	move.b	#1,(a0)+
+	move.b	d4,(a0)+
+	move.b	d5,(a0)+
+	move.b	#0,(a0)+
+	move.l	a0,HiChaine(a5)
+	move.l	a1,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=INSTR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnInstr2
+; - - - - - - - - - - - - -
+        moveq 	#0,d2
+        move.l 	d3,a2
+        move.w 	(a2)+,d2
+        moveq 	#0,d1
+        move.l 	(a3)+,a1
+        move.w 	(a1)+,d1
+        moveq 	#0,d4
+	Rbsr 	L_InstrFind
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnInstr3
+; - - - - - - - - - - - - -
+        move.l 	d3,d4
+        Rbmi 	L_FonCall
+        moveq 	#0,d2
+        move.l 	(a3)+,a2
+        move.w 	(a2)+,d2
+        moveq 	#0,d1
+        move.l 	(a3)+,a1
+        move.w 	(a1)+,d1
+	Rbsr 	L_InstrFind
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINE INSTRFIND
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       INSTR FIND: trouve une sous chaine dans une chaine a partir de d4
+;       routine appelee par - chaine et INSTR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InstrFind
+; - - - - - - - - - - - - -
+	move.l	a3,-(sp)
+        tst.l 	d2
+        beq.s 	.if11
+        tst.l 	d4
+        beq.s 	.if1
+        subq.l 	#1,d4
+.if1	add.l 	d4,a1         ;situe dans la chaine
+.if3	clr 	d3
+.if4	move.l 	a2,a3
+        addq 	#1,d4
+        cmp 	d1,d4
+        bhi.s 	.if11
+        cmpm.b 	(a1)+,(a3)+
+        bne.s 	.if4
+        move.l	a1,a0
+        move 	d4,d0
+.if5	addq 	#1,d3
+        cmp 	d2,d3
+        bcc.s 	.if10
+        addq 	#1,d0
+        cmp 	d1,d0
+        bhi.s 	.if11
+        cmpm.b 	(a0)+,(a3)+
+        beq.s 	.if5
+        bra.s 	.if3
+.if10	move.l	(sp)+,a3
+        move.l 	d4,d3                  ;trouve!
+        rts
+.if11	move.l	(sp)+,a3
+        moveq 	#0,d3
+        rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=FLIP$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnFlip
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+        Rbeq 	L_Ret_ChVide
+	move.l	d2,d3
+	Rjsr 	L_Demande
+	move.w	d2,(a0)+
+        add.l 	d2,a2
+Flp1:   move.b 	-(a2),(a0)+
+	subq.l	#1,d2
+	bne.s	Flp1
+	Rbra	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnLen
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	moveq	#0,d3
+	move.w	(a2)+,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=SPACE$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnSpace
+; - - - - - - - - - - - - -
+        move.w 	#$2020,d1
+	Rbra 	L_RString
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=STRING$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnString
+; - - - - - - - - - - - - -
+        move.l 	(a3)+,a2
+        move.w 	(a2)+,d2
+        bne.s 	L88a
+        moveq 	#0,d3
+        Rbra 	L_RString
+L88a:   move.b 	(a2),d1
+        lsl.w 	#8,d1
+        move.b 	(a2),d1
+	Rbra	L_RString
+; - - - - - - - - - - - - -
+	Lib_Def	RString
+; - - - - - - - - - - - - -
+        tst.l 	d3
+        Rbmi 	L_FonCall
+	Rjsr 	L_Demande
+        move.w 	d3,(a0)+
+        beq.s 	L89c
+        subq.w 	#1,d3
+        lsr.w 	#1,d3
+L89b:   move.w 	d1,(a0)+
+        dbra 	d3,L89b
+L89c:   move.l 	a0,HiChaine(a5)
+	move.l 	a1,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=CHR$()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnChr
+; - - - - - - - - - - - - -
+	move.l 	d3,d2
+	cmp.l 	#$100,d3
+	Rbcs	L_FinChr
+        Rbra 	L_FonCall
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=TAB$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnTab
+; - - - - - - - - - - - - -
+	moveq	#9,d2
+	Rbra	L_FinChr
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=Cleft$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCleft
+; - - - - - - - - - - - - -
+	moveq	#29,d2
+	Rbra	L_FinChr
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=Cright
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCright
+; - - - - - - - - - - - - -
+	moveq	#28,d2
+	Rbra	L_FinChr
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=Cup
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCup
+; - - - - - - - - - - - - -
+	moveq	#30,d2
+	Rbra	L_FinChr
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=Cdown
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCdown
+; - - - - - - - - - - - - -
+	moveq	#31,d2
+	Rbra	L_FinChr
+; - - - - - - - - - - - - -
+	Lib_Def	FinChr
+; - - - - - - - - - - - - -
+        moveq 	#2,d3
+	Rjsr 	L_Demande
+        move.w 	#1,(a0)+
+        move.b 	d2,(a0)
+	addq.w	#2,a0
+        move.l 	a0,HiChaine(a5)
+	move.l 	a1,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=PAPER$=PEN$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnPenD
+; - - - - - - - - - - - - -
+	lea	L144a(pc),a2
+	Rbra	L_FPn
+L144a	dc.b 	27,"P0",0
+	even
+; - - - - - - - - - - - - -
+	Lib_Par FnPaperD
+; - - - - - - - - - - - - -
+	lea	L145a(pc),a2
+	Rbra	L_FPn
+L145a	dc.b 	27,"B0",0
+	even
+; - - - - - - - - - - - - -
+	Lib_Def	FPn
+; - - - - - - - - - - - - -
+	cmp.l	#32,d3
+	Rbcc	L_WFonCall
+	add.b	#"0",d3
+	move.b	d3,2(a2)
+	moveq	#4,d3
+	Rjsr	L_Demande
+	move.w	#3,(a0)+
+	move.l	(a2)+,(a0)+
+	move.l	a0,HiChaine(a5)
+	move.l	a1,d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					AT(x,y)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnAt
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#0,d1
+	cmp.l	#EntNul,d2
+	beq.s	FnAt1
+	cmp.l	#255-48,d2
+	Rbhi	L_WFonCall
+	move.w	d2,d1
+	moveq	#3,d3
+	bset	#1,d4
+FnAt1:	moveq	#0,d0
+	move.l	(a3)+,d2
+	cmp.l	#EntNul,d2
+	beq.s	FnAt2
+	cmp.l	#255-48,d2
+	Rbhi	L_WFonCall
+	move.w	d2,d0
+	addq.l	#3,d3
+	bset	#0,d4
+FnAt2:	tst.w	d4
+	Rbeq	L_Ret_ChVide
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	btst	#0,d4
+	beq.s	FnAt3
+	add.w	#"0",d0
+	move.b	#27,(a0)+
+	move.b	#"X",(a0)+
+	move.b	d0,(a0)+
+FnAt3:	btst	#1,d4
+	beq.s	FnAt4
+	add.w	#"0",d1
+	move.b	#27,(a0)+
+	move.b	#"Y",(a0)+
+	move.b	d1,(a0)+
+FnAt4:	Rbra	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=CMOVE$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnCMoveD
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#0,d1
+	tst.l	d2
+	beq.s	FnCMv1
+	cmp.l	#EntNul,d2
+	beq.s	FnCMv1
+	cmp.l	#128,d2
+	Rbge	L_WFonCall
+	cmp.l	#-128,d2
+	Rble	L_WFonCall
+	move.w	d2,d1
+	moveq	#3,d3
+	bset	#1,d4
+FnCMv1:	moveq	#0,d0
+	move.l	(a3)+,d2
+	beq.s	FnCMv2
+	cmp.l	#EntNul,d2
+	beq.s	FnCMv2
+	cmp.l	#128,d2
+	Rbge	L_WFonCall
+	cmp.l	#-128,d2
+	Rble	L_WFonCall
+	move.w	d2,d0
+	addq.l	#3,d3
+	bset	#0,d4
+FnCMv2:	tst.w	d4
+	Rbeq	L_Ret_ChVide
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+	btst	#0,d4
+	beq.s	FnCMv3
+	move.b	#27,(a0)+
+	move.b	#"N",(a0)+
+	add.b	#128,d0
+	move.b	d0,(a0)+
+FnCMv3:	btst	#1,d4
+	beq.s	FnCMv4
+	move.b	#27,(a0)+
+	move.b	#"O",(a0)+
+	add.b	#128,d1
+	move.b	d1,(a0)+
+FnCMv4:	Rbra	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=REPEAT$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnRepeat
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbeq	L_WFonCall
+	cmp.l	#207,d3
+	Rbcc	L_WFonCall
+	lea	ChRpt(pc),a0
+	Rbra	L_FinRpt
+ChRpt:	dc.b 	27,"R0",0,27,"R0",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=BORDER$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnBorderD
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbeq	L_WFonCall
+	cmp.l	#16,d3
+	Rbcc	L_WFonCall
+	lea	ChSur(pc),a0
+	Rbra	L_FinRpt
+ChSur:	dc.b 	27,"E0",0,27,"E0",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=ZONE$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnZoneD
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbeq	L_WFonCall
+	cmp.l	#255-48,d3
+	Rbcc	L_WFonCall
+	lea	ChZon(pc),a0
+	Rbra	L_FinRpt
+ChZon:	dc.b 	27,"Z0",0,27,"Z0",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Routine Zone/Border
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FinRpt
+; - - - - - - - - - - - - -
+	add.b	#"0",d3
+	move.b	d3,6(a0)
+	move.l	(a3)+,a2
+	moveq	#0,d2
+	move.w	(a2)+,d2
+	move.l	a3,-(sp)
+	move.l	a0,a3
+	move.l	d2,d3
+	addq.l	#6,d3
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+FnR1:	move.b	(a3)+,(a0)+
+	bne.s	FnR1
+	tst.b	-(a0)
+	subq.w	#1,d2
+	bmi.s	FnR3
+FnR2:	move.b	(a2)+,(a0)+
+	dbra	d2,FnR2
+FnR3:	move.b	(a3)+,(a0)+
+	bne.s	FnR3
+	tst.b	-(a0)
+	move.l	(sp)+,a3
+	Rbra	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=LOWER$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnLower
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	moveq	#0,d2
+	move.w	(a2)+,d2
+        move.l 	d2,d3
+        Rbeq 	L_Ret_ChVide
+        Rjsr 	L_Demande         ;meme taille de chaine
+        move.w 	d3,(a0)+
+        subq 	#1,d3
+fnup1:  move.b 	(a2)+,d0
+        cmp.b 	#"A",d0
+        bcs.s 	fnup2
+        cmp.b 	#"Z",d0
+        bhi.s 	fnup2
+        add.b 	#$20,d0
+fnup2:  move.b 	d0,(a0)+
+        dbra 	d3,fnup1
+        Rbra 	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=UPPER$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnUpper
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	moveq	#0,d2
+	move.w	(a2)+,d2
+        move.l 	d2,d3
+        Rbeq 	L_Ret_ChVide
+        Rjsr 	L_Demande
+        move.w 	d3,(a0)+
+        subq 	#1,d3
+fnlw1:  move.b 	(a2)+,d0
+        cmp.b 	#"a",d0
+        bcs.s 	fnlw2
+        cmp.b 	#"z",d0
+        bhi.s	fnlw2
+        sub.b 	#$20,d0
+fnlw2:  move.b 	d0,(a0)+
+        dbra 	d3,fnlw1
+        Rbra 	L_FinBin
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=ASC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnAsc
+; - - - - - - - - - - - - -
+	move.l 	d3,a2
+        moveq 	#0,d3
+        move.w 	(a2)+,d0
+        beq.s 	L91a
+        move.b 	(a2),d3
+L91a:   Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=BIN$()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnBin1
+; - - - - - - - - - - - - -
+	move.l 	d3,d1
+        moveq 	#-1,d2
+        moveq 	#33,d3
+	Rbra 	L_BinHex
+; - - - - - - - - - - - - -
+	Lib_Par FnBin2
+; - - - - - - - - - - - - -
+    	move.l 	d3,d2
+        move.l 	(a3)+,d1
+        moveq 	#33,d3
+	Rbra 	L_BinHex
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=HEX$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnHex1
+; - - - - - - - - - - - - -
+        move.l 	d3,d1
+        moveq 	#-1,d2
+        moveq 	#9,d3
+	Rbra 	L_BinHex
+; - - - - - - - - - - - - -
+	Lib_Par FnHex2
+; - - - - - - - - - - - - -
+        move.l 	d3,d2
+        move.l 	(a3)+,d1
+        moveq 	#9,d3
+	Rbra	L_BinHex
+; - - - - - - - - - - - - -
+	Lib_Def	BinHex
+; - - - - - - - - - - - - -
+	Rjsr 	L_Demande
+	addq.l	#2,a0
+        move.l 	d1,d0
+        exg 	d2,d3
+        cmp 	#9,d2
+        bne.s 	hx3
+	Rjsr 	L_LongToHex
+        Rbra 	L_FinBin
+hx3:    Rjsr 	L_LongToBin
+	Rbra	L_FinBin
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: IO.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Initialisation � chaud des dialogues
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_WarmInit
+; - - - - - - - - - - - - -
+	clr.l	IDia_BankPuzzle(a5)
+	clr.l	IDia_Error(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIALOG OPEN channel,programmes[,variable,buffer]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDialogOpen2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#16,-(a3)
+	move.l	#1024,d3
+	Rbra	L_InDialogOpen4
+; - - - - - - - - - - - - -
+	Lib_Par InDialogOpen3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#1024,d3
+	Rbra	L_InDialogOpen4
+; - - - - - - - - - - - - -
+	Lib_Par InDialogOpen4
+; - - - - - - - - - - - - -
+; Adresse de la banque puzzle
+	Rbsr	L_Dia_GetPuzzle
+	move.l	d0,d5
+; Parametres
+	move.l	d3,d1			Taille du buffer
+	cmp.l	#256,d1
+	Rbls	L_FonCall
+	move.l	(a3)+,d2		Nombre de variables
+	Rbmi	L_FonCall
+; Chaine ou numero?
+	moveq	#1,d3			Recopier la chaine
+	move.l	(a3)+,d0
+	cmp.l	#1024,d0
+	bcc.s	.Ch
+; Numero de programme dans la banque de ressource
+	cmp.w	d5,d0			Programme defini?
+	Rbhi	L_FonCall
+	subq.w	#1,d0
+	Rbmi	L_FonCall
+	lsl.w	#2,d0
+	add.l	2(a0,d0.w),a0		Pointe le programme
+	moveq	#0,d3			Ne plus recopier la chaine
+	bra.s	.Suite
+; Numero du canal
+.Ch	move.l	d0,a0
+.Suite	move.l	(a3)+,d0
+	Rble	L_FonCall
+; Appelle l'initialisation
+	clr.l	IDia_Error(a5)
+	Rjsr	L_Dia_OpenChannel
+	tst.w	d0
+	bne.s	.Err
+	rts
+; Une erreur
+.Err	move.l	d1,IDia_Error(a5)
+	Rbra	L_Dia_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Branchement aux erreurs IO
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GoError
+; - - - - - - - - - - - - -
+	add.w	#IDia_Errors,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=Edialog: position de la derniere erreur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnEDialog
+; - - - - - - - - - - - - -
+	move.l	IDia_Error(a5),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIALOG CLOSE [n]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDialogClose0
+; - - - - - - - - - - - - -
+	Rjsr	L_Dia_CloseChannels
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InDialogClose1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rjsr	L_Dia_CloseChannel
+	Rbne	L_Dia_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIALOG CLR c
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDialogClr
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rjsr	L_Dia_EffChannel
+	Rbne	L_Dia_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIALOG FREEZE [c]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDialogFreeze0
+; - - - - - - - - - - - - -
+	moveq	#-1,d1
+	Rjsr	L_Dia_FreezeChannels
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InDialogFreeze1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rble	L_FonCall
+	moveq	#-1,d1
+	Rjsr	L_Dia_FreezeChannel
+	Rbne	L_Dia_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIALOG UNFREEZE [c]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDialogUnFreeze0
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	Rjsr	L_Dia_FreezeChannels
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InDialogUnFreeze1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rble	L_FonCall
+	moveq	#0,d1
+	Rjsr	L_Dia_FreezeChannel
+	Rbne	L_Dia_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIALOG UPDATE n,z,[value]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InDialogUpdate2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	Rbra	L_InDialogUpdate5
+; - - - - - - - - - - - - -
+	Lib_Par InDialogUpdate3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InDialogUpdate5
+; - - - - - - - - - - - - -
+	Lib_Par InDialogUpdate4
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InDialogUpdate5
+; - - - - - - - - - - - - -
+	Lib_Par InDialogUpdate5
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rble	L_FonCall
+	Rjsr	L_Dia_Update
+	Rbne	L_Dia_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=DIALOG RUN( channel[,label][,x,y] )
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnDialogRun1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#-1,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_FnDialogRun4
+; - - - - - - - - - - - - -
+	Lib_Par FnDialogRun2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_FnDialogRun4
+; - - - - - - - - - - - - -
+	Lib_Par FnDialogRun4
+; - - - - - - - - - - - - -
+;	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	cmp.l	#65536,d1
+	Rbge	L_FonCall
+	move.l	(a3)+,d0
+	Rble	L_FonCall
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	clr.l	IDia_Error(a5)
+	Rjsr	L_Dia_RunProgram
+	tst.w	d0
+	bne.s	.Err
+	move.l	d1,d3
+	Ret_Int
+.Err	move.l	d1,IDia_Error(a5)
+	Rbra	L_Dia_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=DIALOG(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnDialog
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rble	L_FonCall
+	Rjsr	L_Dia_GetReturn
+	Rbne	L_Dia_GoError
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=VDIALOG(n,n)=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InVDialog
+; - - - - - - - - - - - - -
+;	move.l	(a3)+,d3
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rjsr	L_Dia_GetVariable
+	Rbne	L_Dia_GoError
+	move.l	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par FnVDialog
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rjsr	L_Dia_GetVariable
+	Rbne	L_Dia_GoError
+	move.l	(a0),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		=VDIALOG$()=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InVDialogD
+; - - - - - - - - - - - - -
+	Rbra	L_InVDialog
+; - - - - - - - - - - - - -
+	Lib_Par FnVDialogD
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rjsr	L_Dia_GetVariable
+	Rbne	L_Dia_GoError
+	move.l	(a0),d3
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=RDIALOG(n,n[,n])
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnRDialog2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_FnRDialog3
+; - - - - - - - - - - - - -
+	Lib_Par FnRDialog3
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rjsr	L_Dia_GetValue
+	Rbne	L_Dia_GoError
+	tst.b	d2
+	beq.s	.Nul
+	moveq	#0,d1
+	moveq	#0,d2
+.Nul	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=RDIALOG$()
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnRDialogD2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#1,d3
+	Rbra	L_FnRDialogD3
+; - - - - - - - - - - - - -
+	Lib_Par FnRDialogD3
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rjsr	L_Dia_GetValue
+	Rbne	L_Dia_GoError
+	tst.b	d2
+	Rbeq	L_Ret_ChVide
+	move.l	d1,a2
+	Rbra	L_Str2Chaine
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		=ZDIALOG(channel,x,y)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnZDialog
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rjsr	L_Dia_GetZone
+	Rbne	L_Dia_GoError
+	move.l	d1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=DIALOG BOX(a$[,v][,v$][,x,y])
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnDialogBox1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)		a$
+	move.l	#EntNul,d3		y
+	move.l	d3,-(a3)		v
+	move.l	ChVide(a5),-(a3)	v$
+	move.l	d3,-(a3)		x
+	Rbra	L_FnDialogBox5
+; - - - - - - - - - - - - -
+	Lib_Par FnDialogBox2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)		v
+	move.l	#EntNul,d3		y
+	move.l	ChVide(a5),-(a3)	v$
+	move.l	d3,-(a3)		x
+	Rbra	L_FnDialogBox5
+; - - - - - - - - - - - - -
+	Lib_Par FnDialogBox3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)		v$
+	move.l	#EntNul,d3		y
+	move.l	d3,-(a3)		x
+	Rbra	L_FnDialogBox5
+; - - - - - - - - - - - - -
+	Lib_Par FnDialogBox5
+; - - - - - - - - - - - - -
+	tst.l	Patch_Errors(a5)		Monitor present?
+	Rbne	L_FonCall
+	Rbsr	L_SaveRegs
+	Rbsr	L_Dia_GetPuzzle
+	move.l	d0,d5			Nombre de programmes
+	move.l	d3,d1			Y
+	move.l	(a3)+,d0		X
+	move.l	(a3)+,d3		Variable $
+	move.l	(a3)+,d2		Variable
+	move.l	(a3)+,d4		Programme
+	cmp.l	#1024,d4		Une chaine?
+	bcc.s	.Chaine
+	cmp.w	d5,d4			Programme defini?
+	Rbhi	L_FonCall
+	subq.w	#1,d4
+	Rbmi	L_FonCall
+	lsl.w	#2,d4
+	add.l	2(a0,d4.w),a0
+	moveq	#0,d5			Ne pas copier le programme
+	bra.s	.Suite
+.Chaine	move.l	d4,a0
+	moveq	#1,d5			Copier le programme
+.Suite	moveq	#0,d4			Rien!
+	move.l	#1024,d6		Buffer
+	Rjsr	L_Dia_RunQuick
+	tst.w	d0
+	bne.s	.Err
+	move.l	d1,d3
+	Rbsr	L_LoadRegs
+	Ret_Int
+.Err	move.l	d1,IDia_Error(a5)
+	Rbra	L_Dia_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		READ TEXT a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InReadText1
+; - - - - - - - - - - - - -
+; Nom de fichier
+	move.l	d3,a2
+	move.l	#256,d3			256 pour Param$
+	Rjsr	L_Demande
+	Rbsr	L_NomDisc
+; Titre: AMOS Ascii Reader
+	moveq	#20,d0
+	Rjsr	L_Def_GetMessage
+	subq.l	#2,a0
+	move.l	a0,-(a3)
+; Ouvre le fichier
+	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+; Trouve la taille
+	moveq	#0,d2
+	moveq	#1,d3
+	Rbsr	L_D_Seek
+	moveq	#0,d2
+	moveq	#-1,d3
+	Rbsr	L_D_Seek
+	move.l	d0,d3
+	addq.l	#4,d0
+	Rjsr	L_ResTempBuffer
+	move.l	a0,d2
+; Charge le fichier
+	Rbsr	L_D_Read
+	Rbne	L_DiskError
+	Rbsr	L_D_Close
+; Pousse l'adresse
+	move.l	TempBuffer(a5),-(a3)
+	Rbra	L_IRText
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trois parametres: titre,adresse,longueur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InReadText3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#256,d3			256 pour Param$
+	Rjsr	L_Demande
+	move.l	(a3)+,d3
+	Rbra	L_IRText
+; - - - - - - - - - - - - -
+	Lib_Def	IRText
+; - - - - - - - - - - - - -
+	Rbsr	L_SaveRegs
+; De l'hypertexte?
+; ~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lsr.l	#4,d3			moyenne 16 par ligne
+	lsl.l	#2,d3			* 4
+	add.l	#2048,d3		Securite
+	move.l	(a3),a0
+	cmp.l	#"#HYP",(a0)
+	bne.s	.Skip
+	move.b	4(a0),d0
+	sub.b	#"0",d0
+	bcs.s	.Skip
+	beq.s	.Skip
+	cmp.b	#9,d0
+	bhi.s	.Skip
+	add.l	#2048,d3
+	addq.l	#8,(a3)
+.Skip	move.l	d0,-(a3)
+	move.l	d3,-(a3)
+; Stocke le numero de l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#-1,d0
+	move.l	T_EcCourant(a5),d1
+	beq.s	.Skup
+	move.l	d1,a0
+	move.w	EcNumber(a0),d0
+.Skup	move.w	d0,TRd_OldEc(a5)
+; Ouverture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_Dia_GetDefault
+	move.l	a1,a0
+	moveq	#EcFsel,d0
+	move.w	PI_RtSx(a5),d1
+	move.w	PI_RtSy(a5),d2
+	ext.l	d1
+	ext.l	d2
+	moveq	#0,d3
+	moveq	#-1,d4
+	Rjsr	L_Dia_RScOpen
+	Rbne	L_EcWiErr
+;	move.l	a0,TRd_AdEc(a5)
+; Trouve le bon numero de canal dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	d0/d1/a0/a1,-(sp)
+	move.l	#65536,d7
+.Find	move.l	d7,d0
+	Rjsr	L_Dia_GetChannel
+	beq.s	.Ok
+	addq.l	#1,d7
+	bra.s	.Find
+.Ok	movem.l	(sp)+,d0/d1/a0/a1
+; Appel du DBL
+; ~~~~~~~~~~~~
+	Rbsr	L_Dia_GetDefault
+	add.l	2+0(a0),a0		Programme numero 1
+	move.l	d7,d0
+	move.l	(a3)+,d1		Longueur du buffer
+	moveq	#8,d2			Variables internes
+	moveq	#0,d3			Pas de recopie
+	Rjsr	L_Dia_OpenChannel
+	bne	.OutM
+	move.l	(a3)+,8(a1)		Variable 2 = Hypertexte
+	move.l	(a3)+,0(a1)		Variable 0 = Base texte
+	move.l	(a3)+,4(a1)		Variable 1 = Titre
+; Demarre le programme
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	d7,d0
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	Rjsr	L_Dia_RunProgram
+	tst.l	d0
+	bne	.OutM
+; Ouverture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	d7,-(sp)
+	move.l	T_EcAdr+EcFsel*4(a5),a2
+	move.w	PI_RtSpeed(a5),d7
+	moveq	#1,d6
+	move.w	PI_RtWy(a5),d5
+	move.w	PI_RtSy(a5),d0
+	lsr.w	#1,d0
+	add.w	d0,d5
+	Rjsr	L_AppCentre
+	move.l	(sp)+,d7
+; Animation de l'ecran, uniquement READ TEXT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	ChVide(a5),ParamC(a5)
+.Loop	move.l	d7,-(sp)
+	Rjsr	L_Sys_WaitMul
+	Rjsr	L_Test_PaSaut
+	move.l	(sp)+,d7
+	move.l	d7,d0
+	moveq	#5,d1
+	moveq	#0,d2
+	Rjsr	L_Dia_GetValue
+	cmp.b	#2,d2
+	beq.s	.Copy
+.Back	move.l	d7,d0
+	Rjsr	L_Dia_GetReturn
+	bne.s	.Quit
+	tst.l	d1
+	bpl.s	.Loop
+	bra.s	.Quit
+; Copie la chaine >>> Param$
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Copy	move.l	d1,a2
+	tst.b	(a2)
+	beq.s	.Back
+	move.l 	#128,d3
+	Rjsr	L_Demande
+	clr.w	(a0)+
+.Cop	move.b	(a2)+,(a0)+
+	bne.s	.Cop
+	move.l	a0,d0
+	and.l	#$FFFFFFFE,d0
+	move.l	d0,HiChaine(a5)
+	sub.l	a1,a0
+	subq.l	#3,a0
+	move.w	a0,(a1)
+	move.l	a1,ParamC(a5)
+	moveq	#0,d0
+	bra.s	.Quit
+; Fermeture du canal
+; ~~~~~~~~~~~~~~~~~~
+.OutM	moveq	#1,d0
+.Quit	move.l	d0,-(sp)
+	move.l	d7,d0
+	Rjsr	L_Dia_CloseChannel
+; Fermeture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	T_EcAdr+EcFsel*4(a5),a2
+	move.w	PI_RtSpeed(a5),d7
+	neg.w	d7
+	move.w	EcTy(a2),d6
+	lsr.w	#1,d6
+	move.w	EcAWY(a2),d5
+	add.w	d6,d5
+	Rjsr	L_AppCentre
+	EcCalD	Del,EcFsel
+	move.w	TRd_OldEc(a5),d1
+	bmi.s	.NoEc
+	EcCall	Active
+.NoEc
+; Ok!
+; ~~~
+	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+	move.l	(sp)+,d0
+	Rbne	L_OOfMem
+	Rbsr	L_LoadRegs
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		RESOURCE SCREEN OPEN n,sx,sy,flash
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResourceScreenOpen
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_GetPuzzle
+	move.l	a1,a0
+	moveq	#-1,d4			Interlaced comme la banque
+;	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	cmp.l	#8,d0
+	Rbcc	L_IllScN
+	Rjsr	L_Dia_RScOpen
+	Rbne	L_EcWiErr
+	move.l	a0,ScOnAd(a5)
+	move.w	EcNumber(a0),ScOn(a5)
+	addq.w	#1,ScOn(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		RESOURCE BANK n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResourceBank
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbmi	L_FonCall
+	move.l	d3,IDia_BankPuzzle(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retourne l'adresse de la banque PUZZLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetPuzzle
+; - - - - - - - - - - - - -
+	move.l	IDia_BankPuzzle(a5),d0
+	Rbeq	L_Dia_GetDefault
+; Une banque normale
+	move.l	a3,-(sp)
+	Rbsr	L_Bnk.GetAdr
+	Rbeq	L_BkNoRes
+	cmp.l	#"Reso",-8(a0)
+	Rbne	L_BkNoRes
+	move.l	a0,a3
+	Rbsr	L_Dia_GetDefault
+; Les graphiques
+	cmp.w	#1,(a3)
+	bcs.s	.PaG
+	move.l	2+0(a3),d0
+	beq.s	.PaG
+	lea	0(a3,d0.l),a1
+; Les messages
+.PaG	cmp.w	#2,(a3)
+	bcs.s	.PaB
+	move.l	2+4(a3),d0
+	beq.s	.PaB
+	lea	0(a3,d0.l),a2
+; Les Programmes
+.PaB	moveq	#0,d0			Pas de programmes par defaut
+	cmp.w	#3,(a3)
+	bcs.s	.PaP
+	move.l	2+8(a3),d0
+	beq.s	.PaP
+	lea	0(a3,d0.l),a0		Adresse des programmes
+	move.w	(a0),d0			Nombre de programmes par defaut
+; Ok!
+.PaP	move.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retourne la banque par defaut
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetDefault
+; - - - - - - - - - - - - -
+	move.l	Sys_Resource(a5),d0
+	Rbeq	L_BkNoRes
+	move.l	d0,a0
+	move.l	a0,a1
+	add.l	2+0(a0),a1		Base des graphiques
+	move.l	a0,a2
+	add.l	2+4(a0),a2		Base des messages
+	add.l	2+8(a0),a0		Base des programmes
+	moveq	#0,d0			Programmes par defaut
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESOURCE UNPACK n,x,y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InResourceUnpack
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_GetPuzzle
+	move.l	a1,a0
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rble	L_FonCall
+	cmp.w	(a0),d0
+	Rbhi	L_FonCall
+	lsl.w	#2,d0
+	move.l	-4+2(a0,d0.w),d0
+	add.l	d0,a0
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a1
+	Rjsr	L_UnPack_Bitmap
+	Rbeq	L_FonCall
+	rts
+
+; __________________________________________________________________________
+;
+; 	AREXX interface!
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		=AREXX EXISTS("port")
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnArexxExist
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	Rbsr	L_ChVerBuf
+	move.l	Buffer(a5),a0
+	moveq	#0,d0
+	Rbsr	L_Arx_RegisterPort
+	move.l	d0,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		AREXX OPEN "PORT_NAME"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InArexxOpen
+; - - - - - - - - - - - - -
+; Chaine port-name
+; ~~~~~~~~~~~~~~~~
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	lea	Arx_PortName(a5),a0
+	cmp.w	#32,d2
+	Rbcc	L_StooLong
+	subq.w	#1,d2
+	bmi.s	.Skip1
+.Loop1	move.b	(a2)+,(a0)+
+	cmp.b	#" ",-1(a0)
+	Rble	L_FonCall
+	dbra	d2,.Loop1
+.Skip1	clr.b	(a0)
+; Va ouvrir
+; ~~~~~~~~~
+	Rbsr	L_Arx_Open
+	Rbne	L_GoError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		=AREXX
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnArexx
+; - - - - - - - - - - - - -
+	Rbsr	L_Arx_Message
+	move.l	d0,d3
+	beq.s	.Skip
+	moveq	#1,d3
+	move.l	Arx_Answer(a5),a0
+	move.l	rm_Action(a0),d0
+	and.l	#RXFF_RESULT,d0
+	beq.s	.Skip
+	moveq	#2,d3
+.Skip	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		AREXX WAIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InArexxWait
+; - - - - - - - - - - - - -
+.Loop	Rjsr	L_Sys_WaitMul
+	Rjsr	L_Test_Normal
+	Rbsr	L_Arx_Message
+	beq.s	.Loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		AREXX CLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InArexxClose
+; - - - - - - - - - - - - -
+	tst.l	Arx_Answer(a5)
+	bne.s	.Err
+	Rbsr	L_Arx_Close
+	rts
+.Err	move.w	#198,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=AREXX$(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnArexxD
+; - - - - - - - - - - - - -
+	cmp.l	#16,d3
+	Rbcc	L_FonCall
+	move.l	Arx_Answer(a5),d0
+	Rbeq	L_Ret_ChVide
+	move.l	d0,a0
+	lsl	#2,d3
+	move.l	rm_Args(a0,d3.w),d0
+	Rbeq	L_Ret_ChVide
+	move.l	d0,a2
+	move.w	ra_Length-ra_Buff(a2),d2
+	move.w	d2,d3
+	Rbeq	L_Ret_ChVide
+	Rjsr	L_Demande
+	move.w	d3,(a0)+
+.Copy	move.b	(a2)+,(a0)+
+	subq.w	#1,d2
+	bne.s	.Copy
+	moveq	#1,d0
+	add.l	a0,d0
+	and.w	#$FFFE,d0
+	move.l	d0,HiChaine(a5)
+	move.l	a1,d3
+	Ret_String
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		AREXX ANSWER error [,"answer"]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InArexxAnswer1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	ChVide(a5),d3
+	Rbra	L_InArexxAnswer2
+; - - - - - - - - - - - - -
+	Lib_Par InArexxAnswer2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	Arx_Answer(a5),d0
+	beq.s	.Err1
+	move.l	d0,a2
+; Une r�ponse?
+	move.l	rm_Action(a2),d0
+	and.l	#RXFF_RESULT,d0
+	beq.s	.NoResult
+	move.l	(a3),a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	move.l	a6,-(sp)
+	move.l	Arx_Base(a5),a6
+	jsr	_LVOCreateArgstring(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Err2
+	move.l	d0,rm_Result2(a2)
+.NoResult
+; Le code de retour
+	move.l	4(a3),rm_Result1(a2)
+; Renvoie le message
+	addq.l	#8,a3
+	move.l	a2,a1
+	move.l	a6,-(sp)
+	move.l	4.w,a6
+	jsr	_LVOReplyMsg(a6)
+	move.l	(sp)+,a6
+	clr.l	Arx_Answer(a5)
+	rts
+; Not defined
+.Err1	move.w	#197,d0
+	Rbra	L_GoError
+; Out of mem
+.Err2	moveq	#24,d0
+	Rbra	L_GoError
+
+
+; _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
+;
+;						ROUTINES AREXX
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Close the Arexx port
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Arx_Close
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d2/a6,-(sp)
+	move.l	$4.w,a6
+	tst.l	Arx_Base(a5)
+	beq.s	.NoArx
+	tst.l	Arx_Port(a5)
+	beq.s	.NoPort
+; Un message re�u � renvoyer?
+	move.l	Arx_Answer(a5),d0
+	beq.s	.Skip0
+	clr.l	Arx_Answer(a5)
+	move.l	d0,a1
+	move.l	#RC_FATAL,rm_Result1(a1)
+	clr.l	rm_Result2(a1)
+	jsr	_LVOReplyMsg(a6)
+; Receptionne les messages en attente
+.Skip0	jsr	_LVOForbid(a6)
+	bra.s	.In1
+.Loop1	move.l	d0,a1
+	move.l	#RC_FATAL,rm_Result1(a1)
+	clr.l	rm_Result2(a1)
+	jsr	_LVOReplyMsg(a6)
+.In1	move.l	Arx_Port(a5),a0
+	jsr	_LVOGetMsg(a6)
+	tst.l	d0
+	bne.s	.Loop1
+; D�truit le port de communication
+	move.l	Arx_Port(a5),-(sp)
+	clr.l	Arx_Port(a5)
+	Rjsr	L_DeletePort
+	addq.l	#4,sp
+	jsr	_LVOPermit(a6)
+.NoPort
+; Ferme la librairie
+	move.l	Arx_Base(a5),a1
+	clr.l	Arx_Base(a5)
+	jsr	_LVOCloseLibrary(a6)
+; Finished!
+.NoArx	movem.l	(sp)+,d0-d2/a0-a2/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		Ouverture du port AREXX
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Arx_Open
+; - - - - - - - - - - - - -
+	tst.l	Arx_Base(a5)
+	bne.s	.Err1
+; Ouvre la librairie
+; ~~~~~~~~~~~~~~~~~~
+	lea	.Rexx(pc),a1
+	moveq	#0,d0
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Arx_Base(a5)
+	beq	.Err2
+; Cree le message-port
+; ~~~~~~~~~~~~~~~~~~~~
+	lea	Arx_PortName(a5),a0
+	moveq	#-1,d0
+	Rbsr	L_Arx_RegisterPort
+	move.l	a0,Arx_Port(a5)
+	beq.s	.Err3
+; Branche la routine de fermeture
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a0-a2/d0-d1,-(sp)
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	movem.l	(sp)+,a0-a2/d0-d1
+	moveq	#0,d0
+	rts
+; Already opened
+.Err1	move.w	#193,d0
+	rts
+; No library
+.Err2	move.w	#194,d0
+	rts
+; Cannot open
+.Err3	Rbsr	L_Arx_Close
+	move.w	#195,d0
+	rts
+; Structure pour CLEARVAR
+.Struc	dc.l	0
+	Rbra	L_Arx_Close
+; Nom de la librairie
+.Rexx	dc.b	"rexxsyslib.library",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Returns -1 if message port exist
+;	A0=	Port name
+;	D0=-1	Create port!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Arx_RegisterPort
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.w	d0,-(sp)
+	clr.l	-(sp)
+	move.l	a0,-(sp)
+	moveq	#0,d3
+	move.l	$4.w,a6
+	jsr	_LVOForbid(a6)
+	move.l	(sp),a1
+	jsr	_LVOFindPort(a6)
+	tst.l	d0
+	bne.s	.Exist
+	tst.w	8(sp)
+	beq.s	.Skip
+	Rjsr	L_CreatePort
+	move.l	d0,a0
+.Skip	moveq	#0,d0
+	bra.s	.Out
+.Exist	sub.l	a0,a0
+	moveq	#-1,d0
+.Out	lea	10(sp),sp
+	movem.l	d0/a0,-(sp)
+	jsr	_LVOPermit(a6)
+	movem.l	(sp)+,d0/a0
+	move.l	(sp)+,a6
+	tst.w	d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		Get message, and returns -1 if message waiting
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Arx_Message
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	tst.l	Arx_Base(a5)
+	beq.s	.NoMess
+	tst.l	Arx_Answer(a5)
+	bne.s	.Mess
+; Asks for the message
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	move.l	Arx_Port(a5),a0
+	jsr	_LVOGetMsg(a6)
+	tst.l	d0
+	beq.s	.NoMess
+	move.l	d0,Arx_Answer(a5)
+	move.l	d0,a0
+	move.l	Arx_Base(a5),a6
+	jsr	_LVOIsRexxMsg(a6)
+	tst.l	d0
+	beq.s	.No
+	move.l	Arx_Answer(a5),a0
+	move.l	rm_Action(a0),d0
+	and.l	#RXCODEMASK,d0
+	cmp.l	#RXCOMM,d0
+	bne.s	.No
+.Mess	moveq	#-1,d0
+	bra.s	.Out
+.No	clr.l	Arx_Answer(a5)
+.NoMess	moveq	#0,d0
+.Out	move.l	(sp)+,a6
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Menus.s / Instructions
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ON MENU ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOnMenuOn
+; - - - - - - - - - - - - -
+	tst.w	OMnNb(a5)
+	beq.s	.Skip
+	bset	#BitJump,ActuMask(a5)
+.Skip	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ON MENU ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOnMenuOff
+; - - - - - - - - - - - - -
+	tst.w	OMnNb(a5)
+	beq.s	.Skip
+	bset	#BitJump,ActuMask(a5)
+.Skip	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	ON MENU DEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InOnMenuDel
+; - - - - - - - - - - - - -
+	Rbsr	L_OMnEff
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Routine: Efface les ON MENU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	OMnEff
+; - - - - - - - - - - - - -
+	movem.l	d0/a1,-(sp)
+	moveq	#0,d0
+	move.w	OMnNb(a5),d0
+	beq.s	OMnEx
+	lsl.w	#2,d0
+	move.l	OMnBase(a5),a1
+	SyCall	MemFree
+	clr.w	OMnNb(a5)
+	clr.l	OMnBase(a5)
+OMnEx:	movem.l	(sp)+,d0/a1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MENU TO BANK n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuToBank
+; - - - - - - - - - - - - -
+* Taille de l'arbre de menu
+	move.l	MnBase(a5),d0
+	Rbeq	L_FonCall
+	sub.l	a1,a1
+	bsr	MnLg
+* Reserve la banque!
+	move.l	a1,-(sp)
+	move.l	d3,d0			Numero
+	moveq	#(1<<Bnk_BitData),d1	Flags DATA, FAST
+	move.l	(sp)+,d2		Longueur
+	Rlea	L_BkMenu,0
+	Rbsr	L_Bnk.Reserve
+	move.l	a0,a1
+	Rbeq	L_OOfMem
+	Rjsr	L_Bnk.Change
+* Recopie les objets
+	move.l	MnBase(a5),a2
+	movem.l	a3/a4,-(sp)
+	move.l	a1,d3
+	bsr	MnTb
+	movem.l	(sp)+,a3/a4
+	rts
+;------ Routine recursive de copie
+MnTb	move.l	a1,a3
+	move.l	a2,a0
+	moveq	#MnLong/2-1,d0
+MnTb1	move.w	(a0)+,(a1)+
+	dbra	d0,MnTb1
+	lea	MnObF(a3),a0
+	bsr	MnTbC
+	lea	MnOb1(a3),a0
+	bsr	MnTbC
+	lea	MnOb2(a3),a0
+	bsr	MnTbC
+	lea	MnOb3(a3),a0
+	bsr	MnTbC
+	move.l	MnLat(a2),d0
+	beq.s	MnTb2
+	move.l	a1,MnLat(a3)
+	sub.l	d3,MnLat(a3)
+	movem.l	a2/a3,-(sp)
+	move.l	d0,a2
+	bsr	MnTb
+	movem.l	(sp)+,a2/a3
+MnTb2	move.l	MnNext(a2),d0
+	move.l	d0,a2
+	beq.s	MnTb3
+	move.l	a1,MnNext(a3)
+	sub.l	d3,MnNext(a3)
+	bra.s	MnTb
+MnTb3	rts
+* Copie d'un objet
+MnTbC	move.l	(a0),d0
+	beq.s	MnTbc2
+	move.l	a1,(a0)
+	sub.l	d3,(a0)
+	move.l	d0,a0
+	move.w	(a0),d0
+	lsr.w	#1,d0
+	subq.w	#1,d0
+MnTbc1	move.w	(a0)+,(a1)+
+	dbra	d0,MnTbc1
+MnTbc2	rts
+;------ Routine recursive calcul taille
+MnLg	move.l	d0,a2
+	add.w	#MnLong,a1
+	move.l	MnObF(a2),d0
+	bsr	MnLgR
+	move.l	MnOb1(a2),d0
+	bsr	MnLgR
+	move.l	MnOb2(a2),d0
+	bsr	MnLgR
+	move.l	MnOb3(a2),d0
+	bsr	MnLgR
+	move.l	MnLat(a2),d0
+	beq.s	MnLg1
+	move.l	a2,-(sp)
+	bsr	MnLg
+	move.l	(sp)+,a2
+MnLg1	move.l	MnNext(a2),d0
+	bne.s	MnLg
+	rts
+* Routine pour un objet
+MnLgR	beq.s	MnLgRX
+	move.l	d0,a0
+	add.w	(a0),a1
+MnLgRX	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	BANK TO MENU n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InBankToMenu
+; - - - - - - - - - - - - -
+	Rjsr	L_MnRaz
+	Rjsr	L_MnClearVar
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	d3,d0
+	Rbsr	L_Bnk.GetAdr
+	Rbeq	L_BkNoRes
+	move.l	a0,d3
+	move.l	-8(a0),d0
+	Rlea	L_BkMenu,1
+	cmp.l	(a1),d0
+	Rbne	L_FonCall
+	move.l	a0,-(sp)
+	moveq	#MnLong,d0
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	move.l	d0,MnBase(a5)
+	bsr	MnTMn
+	move.l	ScOnAd(a5),MnAdEc(a5)
+	addq.w	#1,MnChange(a5)
+	rts
+* Routine recursive
+MnTMn	move.l	d0,a1
+	move.l	d0,a2
+	moveq	#MnLong/2-1,d0
+MnTm1	move.w	(a0)+,(a1)+
+	dbra	d0,MnTm1
+	lea	MnObF(a2),a0
+	bsr.s	MnTmR
+	lea	MnOb1(a2),a0
+	bsr.s	MnTmR
+	lea	MnOb2(a2),a0
+	bsr.s	MnTmR
+	lea	MnOb3(a2),a0
+	bsr.s	MnTmR
+	move.l	MnLat(a2),d0
+	beq.s	MnTm2
+	clr.l	MnLat(a2)
+	add.l	d3,d0
+	move.l	d0,a0
+	move.l	a2,MnPrev(a0)
+	move.l	a0,-(sp)
+	moveq	#MnLong,d0
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	move.l	d0,MnLat(a2)
+	move.l	a2,-(sp)
+	bsr	MnTMn
+	move.l	(sp)+,a2
+MnTm2	move.l	MnNext(a2),d0
+	beq.s	MnTm3
+	clr.l	MnNext(a2)
+	add.l	d3,d0
+	move.l	d0,a0
+	move.l	a0,-(sp)
+	moveq	#MnLong,d0
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	move.l	a2,MnPrev(a0)
+	move.l	d0,MnNext(a2)
+	bra	MnTMn
+MnTm3	rts
+* Routine de copie des objets
+MnTmR	move.l	(a0),d0
+	beq.s	MnTmRX
+	clr.l	(a0)
+	add.l	d3,d0
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	move.w	d0,d1
+	move.l	a0,-(sp)
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	move.l	d0,(a0)
+	move.l	d0,a0
+	lsr.w	#1,d1
+	subq.w	#1,d1
+MnTmR1	move.w	(a1)+,(a0)+
+	dbra	d1,MnTmR1
+MnTmRX	rts
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuOn
+; - - - - - - - - - - - - -
+	tst.l	MnBase(a5)
+	beq.s	.Skip
+	bset	#BitMenu,ActuMask(a5)
+	clr.l	T_ClLast(a5)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuOff
+; - - - - - - - - - - - - -
+	bclr	#BitMenu,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU MOUSE ON/OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuMouseOn
+; - - - - - - - - - - - - -
+	move.w	#1,MnMouse(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuMouseOff
+; - - - - - - - - - - - - -
+	clr.w	MnMouse(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU BASE x,y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuBase
+; - - - - - - - - - - - - -
+	move.l	MnBase(a5),d0
+	Rbeq	L_MnNOp
+	move.l	d0,a0
+	move.l	#EntNul,d1
+	move.l	d3,d0
+	cmp.l	d0,d1
+	beq.s	Imnbs1
+	move.w	d0,MnY(a0)
+	bset	#MnFixed,MnFlag(a0)
+Imnbs1	move.l	(a3)+,d0
+	cmp.l	d0,d1
+	beq.s	Imnbs2
+	move.w	d0,MnX(a0)
+	bset	#MnFixed,MnFlag(a0)
+Imnbs2	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=MENU X(,,,)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnXMenu
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	moveq	#0,d3
+	move.w	MnX(a2),d3
+	Ret_Int
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=MENU Y(,,,)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnYMenu
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	moveq	#0,d3
+	move.w	MnY(a2),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=CHOICE(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnChoice0
+; - - - - - - - - - - - - -
+	move.w	MnChoice(a5),d3
+	clr.w	MnChoice(a5)
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnChoice1
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbls	L_FonCall
+	cmp.l	#MnNDim,d3
+	Rbhi	L_FonCall
+	lsl.w	#1,d3
+	lea	MnChoix(a5),a0
+	move.w	-2(a0,d3.w),d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par InMenuBar
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bset	#MnBar,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuLine
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bclr	#MnBar,(a0)
+	bclr	#MnTotal,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuTline
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bclr	#MnBar,(a0)
+	bset	#MnTotal,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuMovable
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bset	#MnTBouge,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuStatic
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bclr	#MnTBouge,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuItemMovable
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bset	#MnBouge,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuItemStatic
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bclr	#MnBouge,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuActive
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bclr	#MnOff,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuInactive
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bset	#MnOff,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuSeparate
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bset	#MnSep,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuLink
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	bclr	#MnSep,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuCalled
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	move.b	#-1,MnFlag+1(a2)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InMenuOnce
+; - - - - - - - - - - - - -
+	Rjsr	L_MnDim
+	clr.b	MnFlag+1(a2)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU CALCULATE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InMenuCalc
+; - - - - - - - - - - - - -
+	tst.l	MnBase(a5)
+	Rbeq	L_MnNOp
+* Active l'ecran du menu!
+	move.l	T_EcCourant(a5),a0
+	move.w	EcNumber(a0),MnScOn(a5)
+	move.l	MnAdEc(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	move.w	EcNumber(a0),d1
+	EcCall	Active
+	Rbne	L_ScNOp
+	move.w	#-1,MnProc(a5)
+	EcCall	MnStart
+* Va calculer les coordonnees
+	Rjsr	L_MnCalc
+* Remet l'ecran
+	Rjsr	L_MnEnd1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Menu not opened
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnNOp
+; - - - - - - - - - - - - -
+	moveq	#38,d0
+	Rbra	L_GoError
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEBUT DES ROUTINES EXTERNES:
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Start_Externes
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Menus.s / Routines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Start_Menus
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					GESTION MENUS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnGere
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d5,-(sp)
+	movem.l	a3-a6/d6-d7,-(sp)
+	move.l	sp,MnRA3(a5)		Pour recupere les registres
+	clr.w	MnError(a5)		Pas d'erreur
+* Active l'ecran du menu!
+	move.l	T_EcCourant(a5),a0
+	move.w	EcNumber(a0),MnScOn(a5)
+	move.l	MnAdEc(a5),d0
+	Rbeq	L_ScNOp
+	move.l	d0,a0
+	move.w	EcNumber(a0),d1
+	EcCall	Active
+	Rbne	L_ScNOp
+* Appel du patch monitor, si defini
+	move.l	Patch_ScFront(a5),d0
+	beq.s	.Skip
+	move.l	d0,a0
+	jsr	(a0)
+* Fixe les parametres par defaut
+.Skip	EcCall	MnStart
+* Va calculer les coordonnees
+	tst.w	MnChange(a5)
+	beq.s	MnGe0
+	move.w	#-1,MnProc(a5)
+	Rbsr	L_MnCalc
+* Reserve les zones
+MnGe0	move.w	MnNZone(a5),d1
+	SyCall	ResZone
+	beq	MnGe1
+	move.w	#24,MnError(a5)
+* Va afficher la barre/Arret/Avec fond
+MnGe1	move.w	#1,MnProc(a5)
+	SyCall	AMALFrz
+	moveq	#0,d4
+	moveq	#0,d5
+	tst.w	MnMouse(a5)
+	beq.s	MnGe2
+	SyCall	XyMou
+	moveq	#0,d3
+	SyCall	XyScr
+	move.w	d1,d4
+	move.w	d2,d5
+MnGe2:	move.w	d4,MnBaseX(a5)
+	move.w	d5,MnBaseY(a5)
+	move.l	MnBase(a5),a2
+	Rbsr	L_MnBranch
+
+;------ Init params boucle de test
+	lea	MnTable(a5),a6		* Niveau de menu
+	clr.l	(a6)
+	moveq	#0,d6
+	clr.w	MnZoAct(a5)
+
+;------ Boucle de test!
+MnLoop:	SyCall	WaitVbl
+	tst.w	MnError(a5)
+	bne	MnErr
+* Appelle les menus CALLABLE
+	move.l	MnBase(a5),a2
+	lea	MnTable(a5),a1
+MnCl1	tst.b	MnFlag+1(a2)
+	beq.s	MnCl3
+	moveq	#0,d7
+	cmp.l	(a1),a2
+	bne.s	MnCl2
+	bset	#30,d7
+MnCl2	move.w	MnXX(a2),d4
+	move.w	MnYY(a2),d5
+	Rbsr	L_MnDraw
+MnCl3	move.l	MnNext(a2),d0
+	move.l	d0,a2
+	bne.s	MnCl1
+	move.l	(a1)+,d0
+	beq.s	MnCl4
+	move.l	d0,a2
+	move.l	MnLat(a2),a2
+	bra.s	MnCl1
+MnCl4:
+*	SyCall	Inkey
+*	cmp.b	#" ",d1
+*	beq	MnExit
+*	cmp.b	#"b",d1
+*	bne.s	MnDebug
+*	jsr	Bug
+* Appuie sur SHIFT -> inactive la souris: MOUVEMENTS LIBRES!!!!
+MnDebug	SyCall	Shifts
+	and.b	#$03,d1
+	bne.s	MnLp2b
+* Souris dans une zone???
+	moveq	#0,d3
+	SyCall	GetZone
+	tst.l	d1
+	beq.s	MnLp0
+	move.l	MnAdEc(a5),a1
+	cmp.w	EcNumber(a1),d1
+	bne.s	MnLp0
+	swap	d1
+	tst.w	d1
+	bne.s	MnLp1
+MnLp0:	clr.w	d1
+	move.w	d6,d5
+MnLp1:	move.w	d1,d4
+* Lache le bouton de droite?
+	SyCall	MouseKey
+	btst	#1,d1
+	beq	MnExit
+	btst	#0,d1
+	bne	MnBGoch
+* Verifie que la nouvelle case n'est pas DEJA ouverte
+MnLp2	tst.w	d4
+	beq.s	MnLp2a
+	bsr	ZoToMn
+	btst	#MnOff,MnFlag(a2)
+	beq.s	MnLp2a
+MnLp2b	clr.w	d4
+	move.w	d6,d5
+MnLp2a	cmp.w	MnZoAct(a5),d4
+	beq	MnLoop
+	tst.w	d4
+	beq.s	MnLp4
+	lea	MnTable(a5),a0
+	clr.w	d0
+MnLp3	cmp.w	d0,d6
+	beq.s	MnLp4
+	move.l	(a0)+,a1
+	cmp.w	MnZone(a1),d4
+	beq.s	MnLp0
+	addq.w	#1,d0
+	bra.s	MnLp3
+* Ramene le niveau a celui du menu
+MnLp4	Rbsr	L_MnDEff
+* Efface la case activee
+	tst.w	MnZoAct(a5)
+	beq.s	MnLp5
+	movem.l	a2/d4/d5,-(sp)
+	move.l	MnAct(a5),a2
+	move.w	MnXX(a2),d4
+	move.w	MnYY(a2),d5
+	moveq	#0,d7
+	Rbsr	L_MnDraw
+	movem.l	(sp)+,a2/d4/d5
+	clr.w	MnZoAct(a5)
+* Active la nouvelle
+MnLp5	move.w	d4,MnZoAct(a5)
+	beq	MnLoop
+	move.l	a2,MnAct(a5)
+	move.w	MnXX(a2),d4
+	move.w	MnYY(a2),d5
+	moveq	#0,d7
+	bset	#30,d7
+	Rbsr	L_MnDraw
+* Dessine la collaterale?
+	move.l	MnLat(a2),d0
+	beq	MnLoop
+	move.l	a2,(a6)+
+	addq.w	#1,d6
+	move.l	d0,a2
+	Rbsr	L_MnBranch
+	clr.w	MnZoAct(a5)
+	bra	MnLoop
+
+;------ Fin du menu! Efface tout!
+MnExit
+* Efface les anciens choix
+	moveq	#MnNDim-1,d0
+	lea	MnChoix(a5),a0
+	move.l	a0,a2
+MnEx1	clr.w	(a0)+
+	dbra	d0,MnEx1
+	clr.w	MnChoice(a5)
+* Trouve le nouveau
+	tst.w	MnZoAct(a5)
+	beq.s	MnExX
+	move.w	d6,d0
+	beq.s	MnEx3
+	lea	MnTable(a5),a0
+MnEx2	move.l	(a0)+,a1
+	move.w	MnNb(a1),(a2)+
+	subq.w	#1,d0
+	bne.s	MnEx2
+MnEx3	move.l	MnAct(a5),a1
+	move.w	MnNb(a1),(a2)+
+	bset	#BitJump,T_Actualise(a5)
+	move.w	#-1,MnChoice(a5)
+* Ferme tout
+MnExX	Rbsr	L_MnEnd
+* Remet l'ecran du moniteur
+	move.l	Patch_ScFront(a5),d0
+	beq.s	.Skip
+	move.l	d0,a0
+	jsr	4(a0)
+* Sort
+.Skip	movem.l	(sp)+,a3-a6/d6-d7
+	IFNE	Debug=2
+	move.l	a3,Chr_Debug(a5)		Pour la sortie du menu!
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	movem.l	(sp)+,a0-a2/d0-d5
+	moveq	#0,d0				Pas d'erreur!
+	rts
+
+;	CLIQUE AVEC LE BOUTON GAUCHE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnBGoch
+* En dehors?
+	tst.w	d4
+	beq	MnLoop
+* Efface tout jusqu'a son niveau
+	bsr	ZoToMn
+	Rbsr	L_MnDEff
+	tst.w	MnZoAct(a5)
+	beq.s	MnMg1
+	movem.l	a2/d4/d5,-(sp)
+	move.l	MnAct(a5),a2
+	move.w	MnXX(a2),d4
+	move.w	MnYY(a2),d5
+	moveq	#0,d7
+	Rbsr	L_MnDraw
+	movem.l	(sp)+,a2/d4/d5
+	clr.w	MnZoAct(a5)
+* Trouve les coordonnees maximum
+MnMg1	movem.l	a3-a6/d4-d7,-(sp)
+	btst	#MnFlat,MnFlag(a2)
+	bne.s	MnMg3
+	btst	#MnSep,MnFlag(a2)
+	bne.s	MnMg3
+* Trouve la coordonnee maxi de la zone!
+	btst	#MnBouge,MnFlag(a2)
+	beq	MnMgX
+	move.l	a2,a0
+MnMg0	move.l	MnPrev(a0),a0
+	btst	#MnFlat,MnFlag(a0)
+	bne.s	MnMg2
+	btst	#MnSep,MnFlag(a0)
+	beq.s	MnMg0
+MnMg2	move.w	MnXX(a0),d4
+	move.w	MnYY(a0),d5
+	move.w	MnMX(a0),d6
+	move.w	MnMY(a0),d7
+	add.w	d4,d6
+	add.w	d5,d7
+	move.w	MnTx(a2),a3
+	move.w	MnTy(a2),a4
+	move.l	a0,-(sp)
+	bra.s	MnMg4
+* Arbre entier: pas de limite
+MnMg3	btst	#MnTBouge,MnFlag(a2)
+	beq	MnMgX
+	move.w	MnMX(a2),a3
+	move.w	MnMY(a2),a4
+	move.w	a3,d4
+	neg.w	d4
+	move.w	a4,d5
+	neg.w	d5
+	move.l	MnAdEc(a5),a0
+	move.w	EcTx(a0),d6
+	move.w	EcTy(a0),d7
+	add.w	a3,d6
+	add.w	a4,d7
+	addq.w	#1,d4
+	addq.w	#1,d5
+	subq.w	#2,d6
+	subq.w	#2,d7
+	move.l	a2,-(sp)
+* Boucle de test!
+MnMg4	SyCall	XyMou			* Trouve le decalage de la souris
+	moveq	#0,d3
+	SyCall	XyScr
+	swap	d4
+	swap	d5
+	move.w	MnXX(a2),d4
+	sub.w	d1,d4
+	move.w	MnYY(a2),d5
+	sub.w	d2,d5
+	swap	d4
+	swap	d5
+	bsr	MnMgI
+MnMgL	bsr	MnMgD
+	SyCall	MouseKey
+	and.b	#3,d1
+	cmp.b	#3,d1
+	beq.s	MnMgL
+* Change les coordonnees relatives de l'objet/arbre
+MnMgR	move.l	MnTDraw(a5),a0
+	move.w	(a0)+,d2
+	move.w	(a0)+,d3
+	sub.w	MnXX(a2),d2
+	sub.w	MnYY(a2),d3
+	add.w	d2,MnX(a2)
+	add.w	d3,MnY(a2)
+	bset	#MnFixed,MnFlag(a2)
+* Retabli l'objet suivant dans l'arbre
+	move.l	MnNext(a2),d0
+	beq.s	MnMgR3
+	btst	#MnFlat,MnFlag(a2)
+	bne.s	MnMgR1
+	btst	#MnSep,MnFlag(a2)
+	beq.s	MnMgR2
+MnMgR1	move.l	d0,a0
+	btst	#MnSep,MnFlag(a0)
+	bne.s	MnMgR2
+	move.l	MnNext(a0),d0
+	bne.s	MnMgR1
+	bra.s	MnMgR3
+MnMgR2	move.l	d0,a0
+	sub.w	d2,MnX(a0)
+	sub.w	d3,MnY(a0)
+	bset	#MnFixed,MnFlag(a0)
+* Efface l'arbre
+MnMgR3	bsr	MnMgF
+	move.l	(sp)+,a2
+	Rbsr	L_MnEBranch
+* Redessine le nouveau!
+	move.w	MnBaseX(a5),d4
+	move.w	MnBaseY(a5),d5
+	move.l	MnPrev(a2),d0
+	beq.s	MnMgR4
+	move.l	d0,a0
+	move.w	MnXX(a0),d4
+	move.w	MnYY(a0),d5
+MnMgR4	Rbsr	L_MnBranch
+* Ca y est!
+MnMgX	movem.l	(sp)+,a3-a6/d4-d7
+	bra	MnLoop
+
+;	Trouve l'adresse d'un zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D4= Zone
+;	D5= Niveau sortie
+;
+ZoToMn	lea	MnTable(a5),a0
+	moveq	#0,d5
+	move.l	MnBase(a5),d0
+	bra.s	ZoTm2
+ZoTm1	move.l	(a0)+,a2
+	move.l	MnLat(a2),d0
+	addq.w	#1,d5
+ZoTm2:	move.l	d0,a2
+	cmp.w	MnZone(a2),d4
+	beq.s	ZoTm3
+	move.l	MnNext(a2),d0
+	bne.s	ZoTm2
+	cmp.w	d5,d6
+	bne.s	ZoTm1
+ZoTm3:	rts
+
+;	Initialisation dessin OUTLINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnMgI	move.l	T_RastPort(a5),a1
+	moveq	#31,d0
+	Rbsr	L_ObInkA
+	moveq	#0,d0
+	Rbsr	L_ObInkB
+	moveq	#0,d0
+	Rbsr	L_ObInkC
+	moveq	#%11,d0
+	Rbsr	L_ObWrite
+	move.w	#$00FF,34(a1)
+	rts
+;	Remet dessin normal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+MnMgF	move.l	T_RastPort(a5),a1
+	moveq	#1,d0
+	Rbsr	L_ObWrite
+	move.w	#$FFFF,34(a1)
+	rts
+;	Dessin de la outline objet (a2) en XMOUSE/YMOUSE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnMgD	SyCall	XyMou
+	moveq	#0,d3
+	SyCall	XyScr
+* Plus decalage de la souris
+	move.w	d1,d0
+	move.w	d2,d1
+	swap	d4
+	swap	d5
+	add.w	d4,d0
+	add.w	d5,d1
+	swap	d4
+	swap	d5
+* Sort des limites?
+	cmp.w	d4,d0
+	bge.s	MnMgd1
+	move.w	d4,d0
+MnMgd1	cmp.w	d5,d1
+	bge.s	MnMgd2
+	move.w	d5,d1
+MnMgd2	move.w	d0,d2
+	move.w	d1,d3
+	add.w	a3,d2
+	add.w	a4,d3
+	cmp.w	d6,d2
+	ble.s	MnMgd3
+	move.w	d6,d2
+	move.w	d2,d0
+	sub.w	a3,d0
+MnMgd3	cmp.w	d7,d3
+	ble.s	MnMgd4
+	move.w	d7,d3
+	move.w	d3,d1
+	sub.w	a4,d1
+* Poke les nouvelles coords ABSOLUES en (a2)
+MnMgd4	move.l	MnTDraw(a5),a0
+	move.l	T_RastPort(a5),a1
+	subq.w	#1,d2
+	subq.w	#1,d3
+	move.w	d0,36(a1)
+	move.w	d1,38(a1)
+	move.w	d0,(a0)+
+	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	move.w	d3,(a0)+
+	move.w	d0,(a0)+
+	move.w	d3,(a0)+
+	move.w	d0,(a0)+
+	move.w	d1,(a0)+
+	moveq	#5,d0
+	move.l	MnTDraw(a5),a0
+	movem.l	a0-a1/d0,-(sp)
+	SyCall	WaitVbl
+	movem.l	(sp),a0-a1/d0
+	GfxCa5	PolyDraw
+	SyCall	WaitVbl
+	movem.l	(sp)+,a0-a1/d0
+	GfxCa5	PolyDraw
+* Fait tourner la ligne
+	rol.w	34(a1)
+	rts
+
+; 	Fin du menu avec erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnErr	Rbsr	L_MnEnd
+	movem.l	(sp)+,d0-d7/a0-a6
+	bclr	#BitJump,T_Actualise(a5)
+	clr.w	MnChoice(a5)
+	move.w	MnError(a5),d0			Une erreur!
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ferme tout les menus!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnEnd
+; - - - - - - - - - - - - -
+	tst.w	MnProc(a5)
+	Rbmi	L_MnEnd1
+	movem.l	a0-a6/d0-d7,-(sp)
+* Trouve la fin de la table
+	lea	MnTable(a5),a6
+	moveq	#-1,d6
+.Loop	addq.l	#1,d6
+	tst.l	(a6)+
+	bne.s	.Loop
+	subq.l	#4,a6
+* Efface les menus
+	moveq	#0,d5			* Efface tous les menus
+	Rbsr	L_MnDEff
+	move.l	MnBase(a5),a2
+	Rbsr	L_MnEBranch
+	SyCall	AMALUFrz
+	movem.l	(sp)+,a0-a6/d0-d7
+	Rbra	L_MnEnd1
+; - - - - - - - - - - - - -
+	Lib_Def	MnEnd1
+; - - - - - - - - - - - - -
+	movem.l	a0-a6/d0-d7,-(sp)
+	moveq	#0,d1			* Efface toutes les zones
+	SyCall	ResZone
+	EcCall	MnStop			* Remet l'ecran
+	move.w	MnScOn(a5),d1		* Reactive l'ecran courant
+	EcCall	Active
+	clr.w	MnProc(a5)		* Plus de procedure!
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface le menu---> niveau D5
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnDEff
+; - - - - - - - - - - - - -
+	movem.l	a2/d0-d2,-(sp)
+MnDD1	cmp.w	d5,d6
+	bls.s	MnDdX
+	subq.w	#1,d6
+	move.l	-(a6),a2
+	clr.l	(a6)
+* Remet la zone activee
+	move.l	a2,MnAct(a5)
+	move.w	MnZone(a2),MnZoAct(a5)
+* Efface la collaterale
+	move.l	MnLat(a2),a2
+	Rbsr	L_MnEBranch
+	bra.s	MnDD1
+* Fini
+MnDdX:	movem.l	(sp)+,a2/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface la branche A2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnEBranch
+; - - - - - - - - - - - - -
+	movem.l	a2/d0/d1/d7,-(sp)
+	move.l	a2,d0
+	move.l	a2,d7
+MnEBr1	move.l	d0,a2
+	move.w	MnZone(a2),d1
+	SyCall	RazZone
+	move.l	MnNext(a2),d0
+	bne.s	MnEBr1
+* Restore l'image -en sens inverse!-
+MnEBr2	tst.l	MnAdSave(a2)
+	beq.s	MnEBr3
+	Rbsr	L_MnRest
+	Rbsr	L_MnSaDel
+MnEBr3	cmp.l	d7,a2
+	beq.s	MnEBr4
+	move.l	MnPrev(a2),d0
+	move.l	d0,a2
+	bne.s	MnEBr2
+MnEBr4	movem.l	(sp)+,a2/d0/d1/d7
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MNCALC: Calcule les positions de l'arbre
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnCalc
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a2,-(sp)
+	clr.w	MnChange(a5)
+* Explore tout l'arbre
+	clr.w	MnNZone(a5)
+	move.l	MnBase(a5),d0
+	moveq	#0,d4
+	moveq	#0,d5
+	bsr	MnCa0
+* Poke les numeros de zone!
+	move.w	MnNZone(a5),d7
+	move.l	MnBase(a5),d0
+	bsr	MnPZo
+	movem.l	(sp)+,d0-d7/a2
+	rts
+
+;	Routine recursive de pokage des zones
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnPZo:	move.w	d6,-(sp)
+	clr.w	d6
+MnPZo2	move.l	d0,a2
+	move.l	MnLat(a2),d0
+	beq.s	MnPZo3
+	move.l	d0,-(sp)
+	addq.w	#1,d6
+MnPZo3	move.w	d7,MnZone(a2)
+	subq.w	#1,d7
+	move.l	MnNext(a2),d0
+	bne.s	MnPZo2
+MnPZo4	subq.w	#1,d6
+	bmi.s	MnPZo5
+	move.l	(sp)+,d0
+	bsr	MnPZo
+	tst.w	d6
+	bne.s	MnPZo4
+MnPZo5:	move.w	(sp)+,d6
+	rts
+
+; 	Routine recursive de calcul!
+;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnCa0:	movem.l	a0-a2/d4-d7,-(sp)
+* Si tour: tout decale un cran!
+MnCa0a	move.l	d0,a2
+	tst.l	MnObF(a2)
+	bne.s	MnCa1
+	addq.w	#2,d4
+	addq.w	#2,d5
+* Exploration d'un arbre
+MnCa1	move.l	d0,a2
+	addq.w	#1,MnNZone(a5)
+* Fixe les coordonnees d'un objet
+	btst	#MnFixed,MnFlag(a2)
+	bne.s	MnCa2
+	move.w	d4,MnX(a2)
+	move.w	d5,MnY(a2)
+MnCa2	moveq	#0,d4
+	moveq	#0,d5
+	bset	#31,d7				* Va calculer la taille
+	bclr	#30,d7
+	bset	#29,d7
+	Rbsr	L_MnDraw
+	move.w	d2,MnTx(a2)
+	move.w	d3,MnTy(a2)
+	move.w	d0,d2
+	move.w	d1,d3
+* Exploration recursive d'une collaterale
+	move.l	MnLat(a2),d0
+	beq.s	MnCa7
+	movem.w	d2-d5,-(sp)
+	btst	#MnBar,MnFlag(a2)
+	bne.s	MnCa5
+	clr.w	d2
+	bra.s	MnCa6
+MnCa5	clr.w	d3
+MnCa6	move.w	d2,d4
+	move.w	d3,d5
+	bsr	MnCa0
+	movem.w	(sp)+,d2-d5
+* Coordonnees pour le suivant
+MnCa7	btst	#MnBar,MnFlag(a2)		* Taille automatique!
+	bne.s	MnCa8
+	clr.w	d3
+	bra.s	MnCa9
+MnCa8	clr.w	d2
+MnCa9	move.w	d2,d4
+	move.w	d3,d5
+* Passe a l'objet suivant
+MnCaN:	move.l	MnNext(a2),d0
+	beq.s	MnCaNx
+	move.l	d0,a2
+	btst	#MnSep,MnFlag(a2)
+	beq	MnCa1
+	bra 	MnCa0a
+MnCaNx	movem.l	(sp)+,a0-a2/d4-d7
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Dessin d'une branche de l'arbre
+;	FIXE LES ZONES!
+;	A2=	Base a dessiner
+;	D4/D5=	Coordonnee de base
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnBranch
+; - - - - - - - - - - - - -
+	movem.l a0-a2/d0-d7,-(sp)
+* Sauve le fond
+MnBrR	bsr	MnMaxi
+	Rbsr	L_MnSave
+* Dessine le tour, si pas dessine dans le premier objet
+	tst.l	MnObF(a2)
+	bne.s	MnBrO
+	move.l	T_RastPort(a5),a1
+	moveq	#0,d0			* Pattern VIDE!
+	Rbsr	L_ObPat
+	bset	#4,33(a1)		* Outline
+	move.w	#$FFFF,34(a1)		* Ligne pleine
+	moveq	#0,d0
+	move.b	MnInkB1(a2),d0		* Change les encres
+	Rbsr	L_ObInkA
+	move.b	MnInkC1(a2),d0
+	Rbsr	L_ObInkC
+	moveq	#1,d0
+	Rbsr	L_ObWrite
+	move.w	d4,d0
+	move.w	d5,d1
+	move.w	d6,d2
+	move.w	d7,d3
+	subq.w	#1,d2
+	subq.w	#1,d3
+	GfxCa5	RectFill
+* Dessine les objets
+MnBrO	move.w	MnXX(a2),d4
+	move.w	MnYY(a2),d5
+	moveq	#0,d7			* Dessine
+	bset	#29,d7
+	Rbsr	L_MnDraw
+	move.w	MnZone(a2),d1
+	move.w	d4,d2
+	move.w	d5,d3
+	add.w	MnTx(a2),d4
+	add.w	MnTy(a2),d5
+	tst.w	d2
+	bpl.s	MnBro1
+	clr.w	d2
+MnBro1	tst.w	d3
+	bpl.s	MnBro2
+	clr.w	d3
+MnBro2	SyCall	SetZone
+* Encore un objet ?
+	move.l	a2,a0
+	move.l	MnNext(a2),d0
+	beq.s	MnBrX
+	move.l	d0,a2
+	btst	#MnSep,MnFlag(a2)
+	beq.s	MnBrO
+	move.w	MnXX(a0),d4
+	move.w	MnYY(a0),d5
+	bra	MnBrR
+MnBrX:	movem.l	(sp)+,a0-a2/d0-d7
+	rts
+
+;	Ramene les coord maxi d'une branche
+;	Poke les coordonnees des objets
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A2= 	Base
+;	D4/D5->	XG/YH (entree)
+;	D6/D7-> XD/YB
+MnMaxi:	movem.l	d0-d3/a2,-(sp)
+	move.w	d4,d2
+	move.w	d5,d3
+	move.w	#32766,d4
+	move.w	d4,d5
+	clr.w	d6
+	clr.w	d7
+MnMx0	add.w	MnX(a2),d2
+	add.w	MnY(a2),d3
+	move.w	d2,MnXX(a2)
+	move.w	d3,MnYY(a2)
+	cmp.w	d4,d2
+	bge.s	MnMx1
+	move.w	d2,d4
+MnMx1	cmp.w	d5,d3
+	bge.s	MnMx2
+	move.w	d3,d5
+MnMx2	cmp.w	d6,d2
+	ble.s	MnMx3
+	move.w	d2,d6
+MnMx3	cmp.w	d7,d3
+	ble.s	MnMx4
+	move.w	d3,d7
+MnMx4	move.w	d2,d0
+	move.w	d3,d1
+	add.w	MnTx(a2),d0
+	add.w	MnTy(a2),d1
+	cmp.w	d6,d0
+	ble.s	MnMx5
+	move.w	d0,d6
+MnMx5	cmp.w	d7,d1
+	ble.s	MnMx6
+	move.w	d1,d7
+MnMx6	move.l	MnNext(a2),d0
+	beq.s	MnMx7
+	move.l	d0,a2
+	btst	#MnSep,MnFlag(a2)
+	beq.s	MnMx0
+* Poke la taille INTERNE de cet arbre
+MnMx7	movem.l	(sp),d0-d3/a2
+	move.w	d6,d0
+	move.w	d7,d1
+	sub.w	d4,d0
+	sub.w	d5,d1
+	move.w	d0,MnMX(a2)
+	move.w	d1,MnMY(a2)
+* Un tour?
+	tst.l	MnObF(a2)
+	bne.s	MnMxX
+	subq.w	#2,d4
+	subq.w	#2,d5
+	addq.w	#2,d6
+	addq.w	#2,d7
+	btst	#MnBar,MnFlag(a2)
+	bne.s	MnMxX
+	btst	#MnTotal,MnFlag(a2)
+	beq.s	MnMxX
+	move.l	MnAdEc(a5),a2
+	moveq	#0,d4
+	move.w	EcTx(a2),d6
+* Poke la taille maxi de l'arbre
+MnMxX	movem.l	(sp)+,d0-d3/a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Dessin / Calcul taille d'une case de menu (A2) - D4/D5
+;	#31 de D7->	Dessin(0) / Calcule(1)
+;	#30 de D7->	Inactif(0) / Actif(1)
+;	#29 de D7->	PasFond(0) / Fond(1)
+;	D4/D5	 -> 	Coordonnees
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnDraw
+; - - - - - - - - - - - - -
+	movem.l	d4-d7,-(sp)
+	move.l	a2,MnDAd(a5)
+	clr.w	d0
+	clr.w	d1
+	clr.w	d2
+	clr.w	d3
+	clr.w	d6
+	clr.w	d7
+* Imprime/Calcule l'objet de fond?
+	tst.l	MnObF(a2)
+	beq.s	MnDr1
+	btst	#29,d7
+	beq.s	MnDr0
+	move.l	MnObF(a2),d0
+	move.b	MnInkB1(a2),d1
+	move.b	MnInkA1(a2),d2
+	move.b	MnInkC1(a2),d3
+	Rbsr	L_MnODraw
+	move.w	d2,d6
+	move.w	d3,d7
+	add.w	d0,d4
+	add.w	d1,d5
+* Pointe et Imprime/Calcule le bon objet
+MnDr0:	btst	#MnOff,MnFlag(a2)
+	beq.s	MnDr1
+	tst.l	MnOb3(a2)
+	beq.s	MnDr1
+	move.l	MnOb3(a2),d0
+	move.b	MnInkA1(a2),d1
+	move.b	MnInkB1(a2),d2
+	move.b	MnInkC1(a2),d3
+	bclr	#30,d7
+	bra.s	MnDr3
+MnDr1:	tst.l	MnOb1(a2)
+	beq.s	MnDr4
+	move.l	MnOb1(a2),d0
+	move.b	MnInkA1(a2),d1
+	move.b	MnInkB1(a2),d2
+	move.b	MnInkC1(a2),d3
+	btst	#30,d7
+	beq.s	MnDr3
+	tst.l	MnOb2(a2)
+	bne.s	MnDr2
+	move.b	MnInkA2(a2),d1
+	move.b	MnInkB2(a2),d2
+	move.b	MnInkC2(a2),d3
+	bra.s	MnDr3
+MnDr2:	move.l	MnOb2(a2),d0
+	bclr	#30,d7
+MnDr3:	Rbsr	L_MnODraw
+* Ramene la taille maxi en D2/D3
+* D0/D1-> Decalage au prochain!
+MnDr4:	cmp.w	d6,d2
+	bls.s	MnDr5
+	move.w	d2,d6
+MnDr5	cmp.w	d7,d3
+	bls.s	MnDr6
+	move.w	d3,d7
+MnDr6	move.w	d6,d2
+	move.w	d7,d3
+	movem.l	(sp)+,d4-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Dessine un objet
+;	D1/D2/D3= Encres par default
+;	D4/D5	= X/Y
+;	Ramene:	D0/D1 -> Position curseur!
+;	Ramene: D2/D3 -> Taille maxi!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnODraw
+; - - - - - - - - - - - - -
+	movem.l	a0-a6/d4-d7,-(sp)
+	move.l	d0,a4
+	move.l	T_RastPort(a5),a1
+	move.w	d4,36(a1)
+	move.w	d5,38(a1)
+	move.w	d4,a2
+	move.w	d5,a3
+	moveq	#0,d4
+	moveq	#0,d5
+	move.w	d4,d6
+	move.w	d5,d7
+* Change les encres --> par defaut
+	tst.l	d7
+	bmi.s	MnODr0
+	moveq	#0,d0
+	move.w	d1,d0
+	Rbsr	L_ObInkA
+	move.w	d2,d0
+	Rbsr	L_ObInkB
+	move.w	d3,d0
+	Rbsr	L_ObInkC
+	moveq	#1,d0
+	Rbsr	L_ObWrite
+* Appelle la fonction
+MnODr0	lea	2(a4),a4
+MnODr1	move.w 	(a4)+,d0
+	jsr	ObJumps(pc,d0.w)
+* Trouve le maximum
+	cmp.w	d6,d4
+	ble.s	MnODr2
+	move.w	d4,d6
+MnODr2:	cmp.w	d7,d5
+	ble.s	MnODr1
+	move.w	d5,d7
+	bra.s	MnODr1
+* Fini!
+MnODrX:	move.w	d4,d0
+	move.w	d5,d1
+	move.w	d6,d2
+	move.w	d7,d3
+	movem.l	(sp)+,a0-a6/d4-d7
+	rts
+
+;	Branchements aux instructions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ObJumps	bra	MnOFin
+	bra	MnOPr
+	bra	MnOBar			* 08 Bar
+	bra	MnOLine			* 0C Line
+	bra	MnOEl			* 10 Ellipse
+	bra	MnOPat			* 14 Pattern
+	bra	MnOInk			* 18 Ink
+	bra	MnOBob			* 1C Bob
+	bra	MnOIco			* 20 Icon
+	bra	MnOLoc			* 24 Locate
+	bra	MnOOut			* 28 Out line
+	bra	MnOSL			* 2C Set Line
+	bra	MnOFont			* 30 Set Font
+	bra	MnOCall			* 34 CALL procedure
+	bra	MnORes			* 38 Reserve space
+	bra	MnOSty			* 3C Set style
+
+;	Fin dessin objet
+; ~~~~~~~~~~~~~~~~~~~~~~
+MnOFin:	addq.l	#4,sp
+	bra	MnODrX
+MnORien
+MnORet	rts
+
+;	Impression texte
+; ~~~~~~~~~~~~~~~~~~~~~~
+MnOPr	move.w	(a4)+,d0
+	move.l	a4,a0
+	add.w	d0,a4
+	btst	#0,d0
+	beq.s	MnOP0
+	addq.l	#1,a4
+MnOP0:	tst.l	d7
+	bmi.s	MnOP1
+	move.w	d4,d2			* X
+	add.w	a2,d2
+	move.w	d2,36(a1)
+	move.w	d5,d3			* Y
+	add.w	62(a1),d3
+	add.w	a3,d3
+	move.w	d3,38(a1)
+	move.w	d0,d1
+	move.w	#Text,a6
+	bsr	MnGfx
+	move.w	d1,d0
+MnOP1:	move.w	#TextLength,a6		* Taille
+	bsr	MnGfx
+	add.w	d0,d4
+	add.w	58(a1),d5
+	rts
+
+;	LOCATE
+; ~~~~~~~~~~~~
+MnOLoc	move.l	a4,a0
+	addq.l	#4,a4
+	move.w	(a0)+,d0
+	bmi	MnORien
+	move.w	(a0)+,d1
+	bmi	MnORien
+	move.w	d0,d4
+	move.w	d1,d5
+	rts
+
+;	BAR TO x,y
+; ~~~~~~~~~~~~~~~~
+MnOBar	move.l	a4,a0
+	addq.l	#4,a4
+	move.w	d4,d0
+	move.w	d5,d1
+	move.w	(a0)+,d2
+	bmi	MnORien
+	move.w	(a0)+,d3
+	bmi	MnORien
+	cmp.w	d0,d2
+	bls	MnORien
+	cmp.w	d1,d3
+	bls	MnORien
+	move.w	d2,d4
+	move.w	d3,d5
+	addq.w	#1,d4
+	addq.w	#1,d5
+	add.w	a2,d0
+	add.w	a3,d1
+	add.w	a2,d2
+	add.w	a3,d3
+	tst.l	d7
+	bmi	MnORet
+	move.w	#RectFill,a6
+	bra	MnGfx
+
+;	LINE x,y
+; ~~~~~~~~~~~~~~
+MnOLine	move.l	a4,a0
+	addq.l	#4,a4
+	move.w	(a0)+,d0
+	bmi	MnORien
+	move.w	(a0)+,d1
+	bmi	MnORien
+	move.w	d4,d2
+	add.w	a2,d2
+	move.w	d2,36(a1)
+	move.w	d5,d3
+	add.w	a3,d3
+	move.w	d3,38(a1)
+	move.w	d0,d4
+	move.w	d1,d5
+	addq.w	#1,d4
+	addq.w	#1,d5
+	add.w	a2,d0
+	add.w	a3,d1
+	tst.l	d7
+	bmi	MnORet
+	move.w	#RDraw,a6
+	bra	MnGfx
+
+;	ELLIPSE
+; ~~~~~~~~~~~~~
+MnOEl:	move.l	a4,a0
+	lea	4(a4),a4
+	move.w	d4,d0
+	move.w	d5,d1
+	move.w	(a0)+,d2
+	bls	MnORien
+	move.w	(a0),d3
+	bls	MnORien
+	add.w	d2,d4
+	add.w	d3,d5
+	addq.w	#1,d4
+	addq.w	#1,d5
+	tst.l	d7
+	bmi	MnORet
+	add.w	a2,d0
+	add.w	a3,d1
+	move.w	#DrawEllipse,a6
+	bra	MnGfx
+
+;	ICON n
+; ~~~~~~~~~~~~
+MnOIco	move.w	(a4)+,d1
+	move.l	a2,a0
+	movem.l	a2/d5/d7,-(sp)
+	Rjsr	L_AdIcon
+	bra.s	MnObb0
+
+;	BOB n
+; ~~~~~~~~~~~
+MnOBob	move.w	(a4)+,d1
+	move.l	a2,a0
+	movem.l	a2/d5/d7,-(sp)
+	Rjsr	L_AdBob
+MnObb0	move.l	a2,a0
+	movem.l	(sp)+,a2/d5/d7
+	tst.w	d0
+	bne	MnORien
+	tst.l	(a0)
+	beq	MnORien
+	tst.l	d7
+	bmi.s	MnObb1
+	movem.l	a0-a2/d4-d7,-(sp)
+	move.w	d4,d2
+	move.w	d5,d3
+	add.w	a2,d2
+	add.w	a3,d3
+	move.l	BufBob(a5),a1
+	move.l	a0,a2
+	moveq	#0,d4
+	moveq	#-1,d5
+	SyCall	Patch
+	movem.l	(sp)+,a0-a2/d4-d7
+MnObb1	move.l	(a0),a0
+	move.w	(a0)+,d0
+	lsl.w	#4,d0
+	add.w	d0,d4
+	add.w	(a0)+,d5
+	rts
+
+;	INK
+; ~~~~~~~~~
+MnOInk	move.w	(a4)+,d1
+	move.w	(a4)+,d0
+	tst.l	d7
+	bmi	MnORet
+	subq.w	#2,d1
+	Rbmi	L_ObInkA
+	Rbeq	L_ObInkB
+	Rbra	L_ObInkC
+
+;	SET PATTERN
+; ~~~~~~~~~~~~~~~~~
+MnOPat	move.w	(a4)+,d0
+	tst.l	d7
+	bmi	MnORet
+	Rbra	L_ObPat
+
+;	OUTLINE
+; ~~~~~~~~~~~~~
+MnOOut	bclr	#4,33(a1)
+	move.w	(a4)+,d0
+	beq.s	MnOo1
+	bset	#4,33(a1)
+MnOo1:	rts
+
+;	SET LINE
+; ~~~~~~~~~~~~~~
+MnOSL:	move.w	(a4)+,34(a1)
+	rts
+
+;	SET FONT
+; ~~~~~~~~~~~~~~
+MnOSF	move.w	(a4)+,d1
+	EcCall	SFont
+	rts
+
+;	SET STYLE
+; ~~~~~~~~~~~~~~~
+MnOSty	move.w	(a4)+,d0
+	move.b	d0,56(a1)
+	rts
+
+;	SET FONT
+; ~~~~~~~~~~~~~~
+MnOFont	move.w	(a4)+,d1
+	EcCall	SFont
+	rts
+
+;	Appel d'une fonction GFX
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnGfx	movem.l	a0/a1/d1/d6/a6,-(sp)
+	move.w	a6,d6
+	move.l	T_GfxBase(a5),a6
+	jsr	0(a6,d6.w)
+	movem.l	(sp)+,a0/a1/d1/d6/a6
+	rts
+
+;	APPEL DE PROCEDURE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+MnOCall	movem.l	a1-a3/d6-d7,-(sp)
+	tst.w	Direct(a5)		* Pas en mode direct!!!
+	bne	MnOcE
+* Prepare les registres
+	lea	CallReg(a5),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	d4,d0
+	move.w	d5,d1
+	add.w	a2,d0
+	add.w	a3,d1
+	move.l	d0,(a0)			* D0/D1---> X et Y
+	move.l	d1,4(a0)
+	moveq	#-1,d0
+	tst.l	d7
+	bpl.s	MnoC1
+	moveq	#0,d0
+MnoC1	move.l	d0,8(a0)		* D2------> Flag dessin
+	moveq	#0,d0
+	btst	#30,d7
+	beq.s	MnoC2
+	moveq	#-1,d0
+MnoC2	move.l	d0,12(a0)		* D3------> Active ou non?
+	moveq	#0,d0
+	btst	#29,d7
+	beq.s	MnoC3
+	moveq	#-1,d0
+MnoC3	move.l	d0,16(a0)		* D4------> 1er dessin?
+	move.l	MnDAd(a5),a1		* A0------> Adresse menu
+	move.l	a1,8*4(a0)
+	move.l	MnDatas(a1),9*4(a0)	* A1------> Adresse datazone
+; Appel de la procedure
+	move.l	a4,a0
+	add.w	(a4)+,a4
+	movem.l	a4-a6,-(sp)
+	move.l	MnRA3(a5),a1		Recharge les registres
+	movem.l	(a1),a3-a6/d6-d7
+	IFNE	Debug=2
+	move.l	a3,Chr_Debug(a5)
+	movem.l	d6/d7,Chr_Debug+4(a5)
+	ENDC
+	move.l	sp,MnPile(a5)
+	Rjsr	L_MenuProcedure
+; Retour de la procedure
+	movem.l	(sp)+,a4-a6
+	movem.l	(sp)+,a1-a3/d6-d7
+	tst.l	d0
+	bne.s	MnOcE
+	lea	CallReg(a5),a0
+	move.l	(a0),d4
+	move.l	4(a0),d5
+	sub.w	a2,d4
+	sub.w	a3,d5
+	rts
+* Erreur!
+MnOcE	movem.l	(sp)+,a1-a3/d6-d7
+	rts
+
+;	RESERVE ESPACE MEMOIRE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnORes	moveq	#0,d1
+	move.w	(a4)+,d1
+	bls.s	MnOR2
+	tst.l	d7
+	bpl.s	MnOR2
+* Reserve l'espace
+	move.l	a2,-(sp)
+	move.l	MnDAd(a5),a2
+	Rbsr	L_MnODVar
+	move.l	d1,d0
+	SyCall	MemFastClear
+	beq.s	MnOR1
+	move.l	a0,d0
+	move.l	d0,MnDatas(a2)
+	move.w	d1,MnLData(a2)
+MnOR1	move.l	(sp)+,a2
+MnOR2	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Efface espace local pour procedures
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnODVar
+; - - - - - - - - - - - - -
+	movem.l	d0/a1,-(sp)
+	moveq	#0,d0
+	move.w	MnLData(a2),d0
+	beq.s	MnODV1
+	move.l	MnDatas(a2),a1
+	SyCall	MemFree
+	clr.w	MnLData(a2)
+	clr.l	MnDatas(a2)
+MnODV1	movem.l	(sp)+,d0/a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Sauve le contenu du carre D4/D5/D6/D7 / Base:	A2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnSave
+; - - - - - - - - - - - - -
+* Efface l'ancien
+	Rbsr	L_MnSaDel
+	movem.l	a0-a3/d0-d7,-(sp)
+	addq.w	#1,d6
+	addq.w	#1,d7
+* Clippe
+	move.l	MnAdEc(a5),a3
+	tst.w	d4
+	bpl.s	MnSa1
+	clr.w	d4
+MnSa1:	tst.w	d5
+	bpl.s	MnSa2
+	clr.w	d5
+MnSa2:	cmp.w	EcTx(a3),d4
+	bge	MnSaX
+	cmp.w	EcTy(a3),d5
+	bge	MnSaX
+	cmp.w	EcTx(a3),d6
+	ble.s	MnSa3
+	move.w	EcTx(a3),d6
+MnSa3:	cmp.w	EcTy(a3),d7
+	ble.s	MnSa4
+	move.w	EcTy(a3),d7
+MnSa4:	tst.w	d6
+	bmi.s	MnSaX
+	tst.w	d7
+	bmi.s	MnSaX
+* Calcule la taille / reserve la memoire
+	lsr.w	#4,d4
+	ext.l	d4
+	add.w	#15,d6
+	lsr.w	#4,d6
+	sub.w	d4,d6
+	bls.s	MnSaX
+	sub.w	d5,d7
+	bls.s	MnSaX
+	move.w	EcTLigne(a3),d3
+	ext.l	d3
+	mulu	d3,d5
+	add.l	d4,d5
+	add.l	d4,d5
+	move.w	d6,d0
+	lsl.w	#1,d0
+	mulu	d7,d0
+	move.w	EcNPlan(a3),d4
+	mulu	d4,d0
+	addq.l	#8,d0
+	addq.l	#8,d0
+	move.l	d0,d1
+	SyCall	MemFast
+	bne.s	MnSaO
+	move.w 	#24,MnError(a5)
+	bra.s	MnSaX
+MnSaO	move.l	a0,MnAdSave(a2)
+	move.l	d1,(a0)+
+	move.l	a3,(a0)+
+	subq.w	#1,d4
+	subq.w	#1,d6
+	subq.w	#1,d7
+	move.w	d5,(a0)+
+	move.w	d6,(a0)+
+	move.w	d7,(a0)+
+	move.w	d4,(a0)+
+* Sauve le contenu!
+	lea	EcPhysic(a3),a3
+MnSa5:	move.l	a3,a2
+	move.w	d4,d2
+MnSa6:	move.l	(a2)+,a1
+	add.l	d5,a1
+	move.w	d6,d1
+MnSa7:	move.w	(a1)+,(a0)+
+	dbra	d1,MnSa7
+	dbra	d2,MnSa6
+	add.l	d3,d5
+	dbra	d7,MnSa5
+* Ca y est!
+MnSaX:	movem.l	(sp)+,a0-a3/d0-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Remet la portion de decor sauvee
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnRest
+; - - - - - - - - - - - - -
+	movem.l	a0-a3/d0-d7,-(sp)
+	move.l	MnAdSave(a2),d0
+	beq.s	MnRsX
+	move.l	d0,a0
+	addq.l	#4,a0
+	move.l	(a0)+,a3
+	moveq	#0,d5
+	move.w	(a0)+,d5
+	move.w	(a0)+,d6
+	move.w	(a0)+,d7
+	move.w	(a0)+,d4
+	moveq	#0,d3
+	move.w	EcTLigne(a3),d3
+	ext.l	d3
+	lea	EcPhysic(a3),a3
+MnRs1:	move.l	a3,a2
+	move.w	d4,d2
+MnRs2:	move.l	(a2)+,a1
+	add.l	d5,a1
+	move.w	d6,d1
+MnRs3:	move.w	(a0)+,(a1)+
+	dbra	d1,MnRs3
+	dbra	d2,MnRs2
+	add.l	d3,d5
+	dbra	d7,MnRs1
+MnRsX:	movem.l	(sp)+,a0-a3/d0-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface -si present- la memoire reservee pour le fond
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnSaDel
+; - - - - - - - - - - - - -
+	move.l	MnAdSave(a2),d0
+	beq.s	MnSad
+	move.l	d0,a1
+	move.l	(a1),d0
+	SyCall	MemFree
+	clr.l	MnAdSave(a2)
+MnSad:	rts
+
+; - - - - - - - - - - - - -
+	Lib_Def	ObInkC
+; - - - - - - - - - - - - -
+	move.b	d0,27(a1)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	ObInkB
+; - - - - - - - - - - - - -
+	GfxCa5	SetBPen
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	ObInkA
+; - - - - - - - - - - - - -
+	GfxCa5	SetAPen
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	ObWrite
+; - - - - - - - - - - - - -
+	GfxCa5	SetDrMd
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	ObPat
+; - - - - - - - - - - - - -
+	move.w	d0,d1
+	EcCall	Pattern
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve le menu (A3)++, verifie les params, profondeur D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnFind
+; - - - - - - - - - - - - -
+	move.w	d5,d2
+	move.w	d2,d1
+	lsl.w	#2,d1
+	lea	0(a3,d1.w),a1
+	move.l	(a3),d0
+	Rbls	L_FonCall
+	cmp.l	#1024,d0
+	Rbcc	L_FonCall
+	move.l	MnBase(a5),d0
+	beq.s	MnFE
+MnF1:	move.l	-(a1),d1
+	Rbls	L_FonCall
+	cmp.l	#1024,d1
+	Rbcc	L_FonCall
+MnF0:	move.l	d0,a2
+	cmp.w	MnNb(a2),d1
+	beq.s	MnF2
+	bcs.s	MnFE
+	move.l	MnNext(a2),d0
+	bne.s	MnF0
+	bra.s	MnFE
+MnF2:	subq.w	#1,d2
+	beq.s	MnFOk
+	move.l	MnLat(a2),d0
+	bne.s	MnF1
+MnFE:	moveq	#0,d0
+	rts
+MnFOk:	moveq	#-1,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Insere le menu A2/(A3)/D5 dans la liste
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnIns
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/d0-d2,-(sp)
+	move.w	d5,d2
+	move.w	d2,d1
+	subq.w	#1,d2
+	lsl.w	#2,d1
+	lea	0(a3,d1.w),a1
+	move.l	MnBase(a5),d0
+	beq	MnI8
+MnI1:	move.l	-(a1),d1
+MnI0:	move.l	d0,a2
+	cmp.w	MnNb(a2),d1
+	beq.s	MnI2
+	bcs.s	MnI3
+	move.l	MnNext(a2),d0
+	bne.s	MnI0
+	bra.s	MnI6
+MnI2:	subq.w	#1,d2
+	Rbmi	L_FonCall
+	move.l	MnLat(a2),d0
+	bne.s	MnI1
+	bra.s	MnI8
+* Insere?
+MnI3:	tst.w	d2
+	Rbne	L_FonCall
+	bsr	MnRam
+	move.l	MnPrev(a2),a0		* Au Milieu
+	move.l	a1,MnPrev(a2)
+	move.l	a0,MnPrev(a1)
+	move.l	a2,MnNext(a1)
+	bclr	#MnFlat,MnFlag(a2)
+	beq.s	MnI5
+	bset	#MnFlat,MnFlag(a1)
+	move.l	a0,d0
+	beq.s	MnI4
+	move.l	a1,MnLat(a0)
+	bra.s	MnIF
+MnI4:	move.l	a1,MnBase(a5)
+	bra.s	MnIF
+MnI5:	move.l	a1,MnNext(a0)
+	bra.s	MnIF
+* Dernier objet
+MnI6:	tst.w	d2
+	Rbne	L_FonCall
+	bsr	MnRam
+	move.l	a1,MnNext(a2)
+	move.l	a2,MnPrev(a1)
+	bra.s	MnIF
+* Cree une collaterale
+MnI8:	tst.w	d2
+	Rbne	L_FonCall
+	bsr	MnRam
+	tst.l	MnBase(a5)
+	beq.s	MnI9
+	move.l	a1,MnLat(a2)		* Au milieu
+	move.l	a2,MnPrev(a1)
+	bset	#MnFlat,MnFlag(a1)
+	bra.s	MnIF
+MnI9:	move.l	a1,MnBase(a5)		* Au debut
+	bset	#MnFlat,MnFlag(a1)
+* Fini
+MnIF:	move.l	a1,a2
+	move.w	d5,d0			* Flag par defaut!
+	lea	MnDFlags(a5),a0
+	move.b	-1(a0,d0.w),d0
+	or.b	d0,MnFlag(a2)
+	move.w	2(a3),MnNb(a2)		* Marque le numero!
+	movem.l	(sp)+,a0/a1/d0-d2
+	rts
+;	Demande la RAM
+; ~~~~~~~~~~~~~~~~~~~~
+MnRam:	move.l	a0,-(sp)
+	moveq	#MnLong,d0
+	SyCall	MemFastClear
+	Rbeq	L_OOfMem
+	move.l	a0,a1
+	move.l	(sp)+,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESET MENUS TO DEFAULT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MenuReset
+; - - - - - - - - - - - - -
+	clr.w	MnMouse(a5)
+	lea	MnDFlags(a5),a0
+	moveq	#0,d0			* Barre de menu
+	bset	#MnTotal,d0
+*	bset	#MnBouge,d0
+	bset	#MnTBouge,d0
+	move.b	d0,(a0)+
+	moveq	#0,d0
+	bset	#MnBar,d0
+*	bset	#MnBouge,d0
+	bset	#MnTBouge,d0
+	moveq	#MnNDim-1-1,d1		* Autres dimensions
+.DRex3	move.b	d0,(a0)+
+	dbra	d1,.DRex3
+	moveq	#MnNDim-1,d0
+	lea	MnChoix(a5),a0
+.DRex4	clr.w	(a0)+
+	dbra	d0,.DRex4
+	bclr	#BitMenu,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface tous les menus
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnRaz
+; - - - - - - - - - - - - -
+MnRaz	move.l	MnBase(a5),d0
+	beq.s	MnRzX
+	moveq	#1,d5
+	Rbsr	L_MnEff
+	bra.s	MnRaz
+MnRzX	clr.l	MnAdEc(a5)
+	bclr	#BitMenu,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Insere la routine dans CLEARVAR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnClearVar
+; - - - - - - - - - - - - -
+	move.l	a2,-(sp)
+	lea	.Struc1(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	lea	.Struc2(pc),a1
+	lea	Sys_DefaultRoutines(a5),a2
+	SyCall	AddRoutine
+	lea	.Struc3(pc),a1
+	lea	Sys_ErrorRoutines(a5),a2
+	SyCall	AddRoutine
+	Rlea	L_MnGere,0
+	move.l	a0,GoTest_Menus(a5)
+	Rlea	L_MenuKeyExplore,0
+	move.l	a0,GoTest_MenuKey(a5)
+	move.l	(sp)+,a2
+	rts
+.Struc1	dc.l	0			Effacement general!
+	bra.s	.Clr
+.Struc2	dc.l	0
+.Clr	Rbra	L_MnRaz
+.Struc3	dc.l	0
+	tst.w	MnProc(a5)		Procedure menu ouverte?
+	beq.s	.Skip
+	move.w	#-1,ErrorOn(a5)		Force l'arret du programme!
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Enleve l'objet a partir de (D0), et ses collaterales
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnEff
+; - - - - - - - - - - - - -
+MnEff	movem.l	a2/d0,-(sp)
+MnEf0:	move.l	d0,a2
+	move.l	MnLat(a2),d0
+	beq.s	MnEf1
+	addq.w	#1,d5
+	bsr	MnEff
+MnEf1:	move.l	MnNext(a2),d0
+	Rbsr	L_MnDel
+	tst.w	d5
+	beq.s	MnEf2
+	tst.l	d0
+	bne.s	MnEf0
+	subq.w	#1,d5
+MnEf2:	movem.l	(sp)+,a2/d0
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Enleve l'objet (A2)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MnDel
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d2,-(sp)
+* Debut d'une collaterale?
+	btst	#MnFlat,MnFlag(a2)
+	beq.s	MnD3
+	move.l	MnNext(a2),d1
+	move.l	MnPrev(a2),d0
+	bne.s	MnD1
+	move.l	d1,MnBase(a5)
+	bra.s	MnD2
+MnD1:	move.l	d0,a0
+	move.l	d1,MnLat(a0)
+MnD2:	tst.l	d1
+	beq.s	MnD5
+	move.l	d1,a1
+	bset	#MnFlat,MnFlag(a1)
+	move.l	d0,MnPrev(a1)
+	bra.s	MnD5
+* Menu normal
+MnD3:	move.l	MnPrev(a2),d0
+	move.l	MnNext(a2),d1
+	beq.s	MnD4
+	move.l	d1,a0
+	move.l	d0,MnPrev(a0)
+MnD4:	move.l	d0,a0
+	move.l	d1,MnNext(a0)
+* Libere les memoire des objets
+MnD5:	move.l	MnObF(a2),d0
+	beq.s	MnD7
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	SyCall	MemFree
+MnD7:	move.l	MnOb1(a2),d0
+	beq.s	MnD8
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	SyCall	MemFree
+MnD8:	move.l	MnOb2(a2),d0
+	beq.s	MnD9
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	SyCall	MemFree
+* Libere la copie du fond ?!?!?
+MnD9:	Rbsr	L_MnSaDel
+* Memoire variables locales
+	Rbsr	L_MnODVar
+* Libere la memoire du menu
+	move.l	a2,a1
+	moveq	#MnLong,d0
+	SyCall	MemFree
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Tokenisation objets de menu
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Interpreteur de definition d'objet!
+;	A1	-> chaine a interpreter
+;	Retour	-> D0= adresse de l'objet
+; - - - - - - - - - - - - -
+	Lib_Def	MnObjet
+; - - - - - - - - - - - - -
+	movem.l	d1-d7/a0-a3,-(sp)
+	move.l	sp,a3
+	move.w	(a1)+,d7
+	move.l	Buffer(a5),a2
+* Cherche une commande
+MnO0	move.w	a2,d0
+	btst	#0,d0
+	beq.s	MnO1
+	clr.b	(a2)+
+MnO1	move.l	a1,d5
+	move.w	d7,d6
+MnO2	bsr	MnOChr
+	bhi.s	MnO2
+* Texte normal
+	move.w	d6,d0
+	sub.w	d7,d0
+	beq.s	MnO4
+	move.w	#4,(a2)+
+	move.w	d0,(a2)+
+	move.l	d5,a1
+	move.w	d6,d7
+MnO3	bsr	MnOChr
+	bls.s	MnO0
+	move.b	d0,(a2)+
+	bra.s	MnO3
+* Interprete la commande
+MnO4	tst.w	d7
+	beq	MnOX
+	subq.w	#1,d7
+	addq.l	#1,a1
+MnO5	bsr	MnOTok
+* Cherche la commande suivante
+	bsr	MnOChS
+	bls	MnOE1
+	cmp.b	#")",d0
+	beq	MnO0
+	cmp.b	#":",d0
+	beq.s	MnO5
+	bra	MnOE1
+;------ Marque la fin!
+MnOX:	clr.w	(a2)+
+* Reserve la memoire
+	move.l	a2,d0
+	move.l	Buffer(a5),a1
+	sub.l	a1,d0
+	addq.w	#2,d0
+	move.w	d0,d1
+	SyCall	MemFastClear
+	beq.s	MnOXx
+	move.l	a0,d0
+	move.w	d1,(a0)+
+	subq.w	#2,d1
+	lsr.w	#1,d1
+	subq.w	#1,d1
+	bmi.s	MnOXx
+MnOX1:	move.w	(a1)+,(a0)+
+	dbra	d1,MnOX1
+* Ok!
+MnOXx:	move.l	a3,sp
+	movem.l	(sp)+,d1-d7/a0-a3
+	tst.l	d0
+	rts
+* Erreur de syntaxe
+MnOE1	moveq	#-1,d0
+	bra.s	MnOXx
+
+;------ Tokenise (a2)
+MnOTok:	bsr	MnOChS
+	bls	MnOE1
+	Rjsr	L_MajD0
+	lsl.w	#8,d0
+	bsr	MnOChr
+	bls	MnOE1
+	Rjsr	L_MajD0
+	move.w	d0,d1
+* Saute le reste du nom
+MnOT0:	bsr	MnOChr
+	bls	MnOE1
+	Rjsr	L_MajD0
+	cmp.b	#"A",d0
+	bcs.s	MnOTa
+	cmp.b	#"Z",d0
+	bls.s	MnOT0
+MnOTa	addq.w	#1,d7
+	subq.l	#1,a1
+* Explore la table des tokens
+	lea	MnOToken(pc),a0
+	moveq	#8,d2
+MnOT1	tst.w	(a0)
+	beq	MnOE1
+	cmp.w	(a0)+,d1
+	beq.s	MnOT2
+	addq.l	#2,a0
+	addq.w	#4,d2
+	bra.s	MnOT1
+MnOT2:	move.w	d2,(a2)+
+	move.b 	(a0)+,d6
+	beq.s	MnOT4
+	bmi.s	MnOT5
+MnOT3:	bsr	MnOExp
+	subq.b	#1,d6
+	beq.s	MnOT4
+	bsr	MnOChS
+	bls	MnOE1
+	cmp.b	#",",d0
+	beq.s	MnOT3
+	bra	MnOE1
+MnOT4:	rts
+* Appel de procedure: stocke le nom
+MnOT5:	moveq	#0,d6
+	move.l	a2,a0
+	clr.w	(a2)+
+MnoT6:	bsr	MnOChS
+	beq.s	MnoT8
+	cmp.b	#")",d0
+	beq.s	MnoT7
+	cmp.b	#":",d0
+	beq.s	MnoT7
+	move.b	d0,(a2)+
+	addq.w	#1,d6
+	bra.s	MnoT6
+MnoT7:	subq.l	#1,a1
+	addq.w	#1,d7
+MnoT8:	tst.w	d6
+	beq	MnOE1
+	btst	#0,d6
+	beq.s	MnoT9
+	clr.b	(a2)+
+	addq.w	#1,d6
+MnoT9:	move.w	d6,(a0)
+	rts
+
+;------ EXPRESSION
+MnOExp:	bsr	MnOLong
+	move.w	d0,(a2)+
+	rts
+* Conversion DEC-> HEXA
+MnOLong	moveq	#0,d0
+	moveq	#1,d3
+	bsr	MnOChS
+	cmp.b	#"-",d0
+	bne.s	Mnh0
+	subq.w	#1,d3
+	bsr	MnOChS
+Mnh0:	sub.b	#"0",d0
+	bcs	MnOE1
+	cmp.b	#10,d0
+	bcc	MnOE1
+	move.l	d0,d1
+	subq.w	#1,d3
+Mnh1:   bsr 	MnOChS
+	sub.b	#"0",d0
+	bcs.s	Mnh2
+	cmp.b 	#10,d0
+        bcc.s 	Mnh2
+	add.l	d1,d1
+	move.l	d1,d2
+	lsl.l	#2,d1
+	add.l	d2,d1
+	add.l	d0,d1
+	bra.s	Mnh1
+Mnh2:   subq.l 	#1,a1
+	addq.w	#1,d7
+        tst 	d3
+	beq.s	MnhX
+	bpl	MnOE1
+	neg.l	d1
+MnhX:	move.l	d1,d0
+	rts
+
+;------ CHR GET
+MnOChS	moveq	#33,d4		* Saute les espace
+	bra.s	MnOCh0
+MnOChr	moveq	#32,d4		* Ramene les espaces
+MnOCh0	tst.w	d7
+	beq.s	MnOChX
+	move.b	(a1)+,d0
+	subq.w	#1,d7
+	cmp.b	#"(",d0
+	beq.s	MnOCh2
+	cmp.b	#27,d0
+	beq.s	MnOCh1
+	cmp.b	d4,d0
+	bcs.s	MnOCh0
+	moveq	#1,d4
+MnOChX	rts
+MnOCh1	addq.l	#2,a1
+	subq.w	#2,d7
+	bpl.s	MnOCh0
+	bmi	MnOE1
+MnOCh2	subq.l	#1,a1
+	addq.w	#1,d7
+	moveq	#0,d0
+	rts
+
+;	Instructions
+; ~~~~~~~~~~~~~~~~~~
+MnOToken
+	dc.b	"BA",2,0		* Bar
+	dc.b	"LI",2,0		* Line
+	dc.b	"EL",2,0		* Ellipse
+	dc.b	"PA",1,0		* Pattern
+	dc.b 	"IN",2,0		* Ink
+	dc.b 	"BO",1,0		* Bob
+	dc.b	"IC",1,0		* Icon
+	dc.b	"LO",2,0		* Locate
+	dc.b 	"OU",1,0		* Out line
+	dc.b 	"SL",1,0		* Set Line
+	dc.b	"SF",1,0		* Set Font
+	dc.b 	"PR",-1,0		* CALL procedure
+	dc.b	"RE",1,0		* Reserve space
+	dc.b	"SS",1,0		* Set style
+	dc.w	0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Exploration des MENU KEY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MenuKeyExplore
+; - - - - - - - - - - - - -
+	movem.l	a0-a3/d0-d7,-(sp)
+	link	a3,#-(MnNDim*2+2)
+	move.l	a3,a1
+	move.w	T_ClLast+2(a5),d4
+	move.b	T_ClLast+1(a5),d5
+	move.b	T_ClLast(a5),d6
+	move.l	MnBase(a5),d0
+	bsr	MnKE0
+	clr.l	T_ClLast(a5)
+	unlk	a3
+	movem.l	(sp)+,a0-a3/d0-d7
+	rts
+;	Routine recursive
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+MnKE0	clr.w	-2(a1)
+MnKE1	move.l	d0,a2
+	move.w	MnNb(a2),d7
+	move.l	MnLat(a2),d0
+	beq.s	MnKE2
+	move.w	d7,-(a1)
+	move.l	a2,-(sp)
+	bsr	MnKE0
+	move.l	(sp)+,a2
+	clr.w	(a1)+
+	bra.s	MnKEN
+* Compare les touche (si fin de branche)
+MnKE2	move.b	MnKFlag(a2),d0
+	beq.s	MnKEN
+	bmi.s	MnKE3
+* Code ASCII
+	cmp.b	MnKAsc(a2),d4
+	beq.s	MnKET
+	bne.s	MnKEN
+* Shift et Scancode
+MnKE3	cmp.b	MnKSc(a2),d5
+	bne.s	MnKEN
+	cmp.b	MnKSh(a2),d6
+	beq.s	MnKET
+* Suivant
+MnKEN	move.l	MnNext(a2),d0
+	bne.s	MnKE1
+	rts
+;	Trouve!!!
+; ~~~~~~~~~~~~~~~
+MnKET:	lea	MnChoix(a5),a0
+	move.l	a0,a1
+	moveq	#MnNDim-1,d0
+MnKet1	clr.w	(a0)+
+	dbra	d0,MnKet1
+	move.l	a3,a0
+MnKet2	move.w	-(a0),d0
+	beq.s	MnKet3
+	move.w	d0,(a1)+
+	addq.l	#8,sp
+	bra.s	MnKet2
+MnKet3	move.w	d7,(a1)+
+	move.w	#-1,MnChoice(a5)
+	bset	#BitJump,T_Actualise(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN DES MENUS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	End_Menus
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Fsel.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Start_FSel
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SELECTEUR DE FICHIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dsk.FileSelector
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+
+; Monitor present?
+; ~~~~~~~~~~~~~~~~
+	tst.l	Patch_Errors(a5)
+	Rbne	L_FonCall
+
+; Branche la routine de FLUSH / Routine END
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Fs_FlushStructure(pc),a1
+	SyCall	AddFlushRoutine
+	lea	Fs_EndStructure(pc),a1
+	lea	Sys_EndRoutines(a5),a2
+	SyCall	AddRoutine
+
+; Reserve la zone de data
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#Fs_Long,d0
+	SyCall	MemFastClear
+	beq	Fs_OoMem
+	move.l	a0,a4
+	move.l	a0,Fs_Base(a5)
+	move.l	sp,Fs_Sp(a4)
+
+; Patch pour les erreurs
+; ~~~~~~~~~~~~~~~~~~~~~~
+	lea	Fs_Error(pc),a0
+	move.l	a0,Fs_ErrPatch(a5)
+
+; Stocke le numero de l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#-1,d0
+	move.l	T_EcCourant(a5),d1
+	beq.s	.Skip
+	move.l	d1,a0
+	move.w	EcNumber(a0),d0
+.Skip	move.w	d0,Fs_OldEc(a4)
+
+; Stocke les limites de la souris
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	T_MouXMin(a5),a0
+	lea	Fs_LimSave(a4),a1
+	moveq	#3,d0
+.Mou	move.w	(a0)+,(a1)+
+	dbra	d0,.Mou
+	move.l	#128,d1
+	moveq	#30,d2
+	move.l	#448,d3
+	move.l	#312,d4
+	SyCall	LimitM
+
+; Assez de memoire?
+; ~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	move.l	#Public,d1
+	jsr	_LVOAvailMem(a6)
+	cmp.l	#32*1024,d0
+	bcs	Fs_LowMemory
+
+; Ouverture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+	move.w	PI_FsDSx(a5),d1
+	move.w	PI_FsDSy(a5),d2
+	bsr	Fs_ScOpen
+	beq.s	.Ok
+	move.w	#320,d1
+	move.w	#128,d2
+	bsr	Fs_ScOpen
+	beq	Fs_LowMemory
+.Ok	move.l	a0,Fs_AdEc(a4)
+	lea	Fs_COff(pc),a1
+	WiCall	Print
+
+; Encore assez de memoire?
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	move.l	#Public,d1
+	jsr	_LVOAvailMem(a6)
+	cmp.l	#12*1024,d0
+	bcs	Fs_LowMemory
+
+; Ouverture du canal de dialogue...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Fs_GetPuzzle
+	add.l	6(a0),a0		DEUXIEME programme
+	move.l	#Fs_ChannelN,d0		Numero du canal
+	move.l	#256*5,d1		Buffer
+	moveq	#FsV_Max,d2		Nombre de variables
+	moveq	#0,d3			Ne PAS recopier
+	Rbsr	L_Dia_OpenChannel
+	tst.l	d0			Une erreur?
+	bne	Fs_BadAPI
+	move.l	a0,Fs_Channel(a4)
+	move.l	a1,Fs_Variables(a4)
+	bset	#4,Dia_Flags(a0)	Flag, Return non active sur edit...
+	bsr	Fs_GetInputs		Recupere les entrees dans le DBL
+
+; Sort / Size par default
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	PI_FsSort(a5),FsV_Sort+3(a1)
+	move.b	PI_FsSize(a5),FsV_Size+3(a1)
+	move.b	PI_FsStore(a5),FsV_Store+3(a1)
+
+; Tableau magique!
+; ~~~~~~~~~~~~~~~~
+	lea	Fs_Array(a4),a0
+	move.l	a0,FsV_Array(a1)
+	move.b	#1,Fs_Array(a4)
+	move.b	#2,Fs_Array+1(a4)
+	clr.w	Fs_ASize(a4)
+	move.l	#"MgIk",Fs_AMagic(a4)
+	lea	Fs_GetName(pc),a0
+	move.l	a0,Fs_ACall(a4)
+
+; Dessin du fond
+; ~~~~~~~~~~~~~~
+	move.l	#Fs_ChannelN,d0
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	Rbsr	L_Dia_RunProgram
+	tst.l	d0
+	bne	Fs_BadAPI
+	bsr	FsI_SliStore
+
+; Apparition de l'�cran
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Fs_Appear
+	move.b	#1,Fs_Opened(a4)
+
+; Demarrage de la tache de dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	TaskBase(pc),a0
+	move.l	a5,(a0)
+	move.l	#4*512,-(sp)
+	pea	FsI_Entry(pc)
+	move.l	#-1,-(sp)
+	pea	TaskName(pc)
+	Rbsr	L_CreateTask
+
+; Init de Fill-File
+; ~~~~~~~~~~~~~~~~~
+	Rbsr	L_NoReq				No more requester
+	move.l	PathAct(a5),a0			Path par defaut
+	tst.b	(a0)				Si non defini
+	bne.s	.SkipP
+	Rjsr	L_AskDir			Le demande
+	Rjsr	L_CopyPath
+.SkipP	Rbsr	L_FillFFree			FillFree
+	move.l	Fs_Variables(a4),a0
+	move.w	#64,FillFSize(a5)		Taille maxi
+	clr.w	FillF32(a5)			Pas de 32
+	bsr	Fs_First
+
+; Boucle d'attente...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Loop
+	tst.b	Fs_DirOn(a4)
+	beq.s	.Wait
+	bsr	Fs_Next			Prend le nom suivant
+	bra.s	.Suit
+.Wait	Rjsr	L_Sys_WaitMul
+.Suit	tst.w	Fs_Waiting(a4)
+	bmi	Fs_Cancel
+	move.w	Fs_Input(a4),d0
+	beq.s	Fs_Loop
+	lsl.w	#2,d0
+	lea	Fs_Jumps(pc),a0
+	jsr	-4(a0,d0.w)		Appelle la fonction
+	clr.w	Fs_Waiting(a4)
+	clr.w	Fs_Input(a4)
+	bra.s	Fs_Loop
+
+; Saut aux routines de gestion
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Jumps
+	bra	Fs_Ok			1 - Ok
+	bra	Fs_Cancel		2 - Cancel
+	bra	Fs_Parent		3 - Parent
+	bra	Fs_Device		4 - Devices
+	bra	Fs_Assign		5 - Assigns
+	bra	Fs_GDir			6 - Get Dir
+	bra	Fs_Sort			7 - Sort
+	bra	Fs_Size			8 - Sizes
+	bra	Fs_Rien			9 -
+	bra	Fs_Rien			10- Up
+	bra	Fs_Rien			11- Down
+	bra	Fs_Rien			12- Slider V
+	bra	Fs_Name			13- Active List
+	bra	Fs_GDir			14- Edit Path
+	bra	Fs_Return		15- Edit Name
+	bra	Fs_BStore		16- Bouton store
+	bra	Fs_SliDel		17- Del
+	bra	Fs_StoreList		18- Slider 2
+	bra	Fs_Help			19- Help
+	bra	Fs_Droite		20- Bouton de droite
+Fs_Rien	rts
+
+; HELP: trouve le premier fichier dans la liste
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Help	bsr	Fs_GetFName
+	tst.b	(a1)
+	beq.s	.Skip
+	move.b	#" ",-(a1)		Un espace au debut!
+	move.l	a1,a0
+	move.l	Fs_Variables(a4),a2
+	moveq	#0,d0
+	tst.b	FillFSorted(a5)		Si pas sorted, � partir du courant!
+	bne.s	.Sl
+; SORT pas en route
+	move.l	FsV_PList(a2),d0
+	addq.l	#1,d0
+	move.l	a0,-(sp)
+	Rbsr	L_FillFFind
+	move.l	(sp)+,a0
+	tst.w	d0
+	bpl.s	.S0
+	moveq	#0,d0
+; SORT en route
+.Sl	Rbsr	L_FillFFind		Va chercher
+	tst.w	d0
+	bmi.s	.S3
+.S0	add.w	FsV_Ty+2(a2),d0
+	cmp.w	FillFNb(a5),d0
+	bls.s	.S1
+	move.w	FillFNb(a5),d0
+.S1	sub.w	FsV_Ty+2(a2),d0
+	bcc.s	.S2
+	moveq	#0,d0
+.S2	move.l	d0,FsV_PList(a2)
+	move.l	d0,FsV_PosFirst(a2)
+.S3	bsr	FsI_AffF
+.Skip	rts
+
+; Trouve le VRAI nom du fichier, en extrayant un eventuel pathname.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Path:	Buffer+640 = A0
+;	Name:	Buffer+768 = A1
+Fs_GetFName
+	move.l	a2,-(sp)
+	move.l	Buffer(a5),a2
+	lea	640(a2),a2
+	clr.b	(a2)
+	clr.b	768(a2)
+	move.l	#Fs_ChannelN,d0
+	moveq	#Fs_FileN,d1
+	moveq	#0,d2
+	Rbsr	L_Dia_GetValue
+	move.l	d1,a1
+	tst.b	(a1)
+	beq.s	.Ex1
+; Trouve le dernier signe de pathname
+	move.l	a1,d1
+	move.l	a1,a0
+.Lp1	move.b	(a0)+,d0
+	beq.s	.Ex1
+	cmp.b	#":",d0
+	beq.s	.Ok1
+	cmp.b	#"/",d0
+	bne.s	.Lp1
+.Ok1	move.l	a0,d1
+	bra.s	.Lp1
+; Recopie l'eventuel pathname
+.Ex1	cmp.l	a1,d1
+	beq.s	.Sk2
+	move.l	a2,a0
+.Lp2	move.b	(a1)+,(a0)+
+	cmp.l	a1,d1
+	bne.s	.Lp2
+	clr.b	(a0)
+; Recopie le nom
+.Sk2	move.l	d1,a0
+	lea	128(a2),a1
+.Lp3	move.b	(a0)+,(a1)+
+	bne.s	.Lp3
+; Retourne les adresses
+	move.l	a2,a0
+	lea	128(a0),a1
+	move.l	(sp)+,a2
+	rts
+
+
+; Return dans le nom du fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Return
+	bsr	Fs_GetFName
+	tst.b	(a0)			Si pas de path >>> OK!
+	beq.s	Fs_Ok
+	movem.l	a0/a1,-(sp)
+	bsr	Fs_Store
+	bsr	FsI_SliStore
+	movem.l	(sp)+,a0/a1
+; Enleve le path du nom
+	move.l	a0,-(sp)
+	move.l	a1,a0
+	bsr	Fs_NewName
+	move.l	(sp)+,a0
+; Compute le nouveau path
+.Skip	move.l	a0,a2
+	move.l	Name1(a5),a1
+.Lp1	move.b	(a2)+,d0
+	beq.s	.Plus
+	cmp.b	#":",d0
+	bne.s	.Lp1
+	clr.b	(a1)			Un nom de device=> RAZ path
+.Plus	bsr	Fs_NewDir
+	rts
+
+; OK!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Ok	bsr	Fs_Store
+	bsr	Fs_NomDir
+; Recopie NAME1 dans PATHACT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Name1(a5),a0
+	move.l	PathAct(a5),a1
+.Cp	move.b	(a0)+,(a1)+
+	bne.s	.Cp
+; Demande le fichier selectionne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#Fs_ChannelN,d0
+	moveq	#Fs_FileN,d1
+	moveq	#0,d2
+	Rbsr	L_Dia_GetValue
+	move.l	d1,a1			Si NUL>>> va en CANCEL!
+	tst.b	(a1)
+	beq	Fs_Cancel
+; Copie le nom � la suite de name 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Name1(a5),a0
+.Fin	tst.b	(a0)+
+	bne.s	.Fin
+	subq.l	#1,a0
+.Copy	move.b	(a1)+,(a0)+
+	bne.s	.Copy
+	subq.l	#1,a0
+	move.l	Name1(a5),d0
+	sub.l	d0,a0
+	exg	d0,a0
+	bra	Fs_Close
+
+; CANCEL
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Cancel
+	bsr	Fs_Store
+	moveq	#0,d0
+	move.l	Name1(a5),a0
+	clr.b	(a0)
+	bra	Fs_Close
+
+; SORT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Sort	move.l	Fs_Variables(a4),a0
+	tst.l	FsV_Sort(a0)
+	beq.s	.Skip
+	Rbsr	L_FillSort
+	move.b	#-1,FillFSorted(a5)
+	bsr	FsI_AffF
+.Skip	rts
+
+; SIZE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Size	bsr	FsI_AffF
+	rts
+
+; GET DIR
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_GDir	bsr	Fs_New
+	bsr	Fs_First
+	rts
+
+; STORE-LIST
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_StoreList
+	tst.b	PI_FsStore(a5)
+	beq	.Exit
+	bsr	Fs_Store
+	bsr	Fs_New
+	move.b	#3,Fs_DevFlag(a4)
+	move.b	#-1,FillFSorted(a5)
+	move.l	Buffer(a5),a1
+	lea	128(a1),a3		Faux premier fichier
+	clr.l	124(a3)
+	clr.b	8(a3)
+	moveq	#" ",d2
+	move.l	a3,a2
+	Rbsr	L_FillFPoke
+	clr.w	FillFNb(a5)		RAZ nombre de fichiers
+; Explore la liste.
+	move.l	Fs_Liste(a5),d2
+	beq.s	.Out
+.Loop	move.l	d2,a2
+	move.l	a2,-(sp)
+	lea	8+4+2+4+1(a2),a0
+	move.l	Buffer(a5),a1
+	move.l	a1,d1
+.Cp1	move.b	(a0)+,(a1)+
+	bne.s	.Cp1
+	subq.l	#1,a1
+.Cp2	move.b	(a0)+,(a1)+
+	bne.s	.Cp2
+	move.l	a1,d1
+	subq.l	#1,d1
+	sub.l	Buffer(a5),d1		Longueur du nom
+	move.l	Fs_Variables(a4),a0
+	move.l	FsV_Tx(a0),d2		Longueur maxi
+	cmp.w	d2,d1
+	bls.s	.Long
+	move.w	d2,d1
+	subq.w	#1,d1
+.Long	addq.w	#1,d1
+	sub.w	d1,a1			Pointe le debut a recopier
+	lea	8(a3),a0
+.Cp	move.b	(a1)+,(a0)+
+	bne.s	.Cp
+	move.l	a2,d0
+	lsr.l	#1,d0
+	bset	#31,d0			Pas de taille dans l'affichage
+	move.l	d0,124(a3)		Adresse de la structure
+	moveq	#" ",d2			Va poker le nom dans la liste
+	move.l	a3,a2
+	Rbsr	L_FillFPoke
+	move.l	(sp)+,a2
+	move.l	(a2),d2
+	bne.s	.Loop
+; Va afficher
+.Out	bsr	FsI_AffF
+	bsr	FsI_SliStore
+.Exit	rts
+
+
+; Bouton de droite: DEVICES / ASSIGNS / Directory
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Droite
+	move.b	Fs_DevFlag(a4),d0
+	beq.s	.Dev
+	cmp.b	#1,d0
+	beq.s	.Ass
+	cmp.b	#2,d0
+	beq.s	.Store
+.List	bsr	Fs_NomDir
+	lea	.Null(pc),a0		Retour aux fichiers
+	bsr	Fs_NewDir
+	bra.s	.End
+.Dev	bsr	Fs_Device		Devices
+	bra.s	.End
+.Ass	bsr	Fs_Assign		Assigns
+	bra.s	.End
+.Store	tst.b	PI_FsStore(a5)		Store en route?
+	beq.s	.List
+	bsr	Fs_StoreList		Stored directories
+; Attend le relachement de la touche de droite
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.End	bsr	Fs_Multi
+	SyCall	MouseKey
+	btst	#1,d1
+	bne.s	.End
+	rts
+.Null	dc.w	0
+
+; DEVICES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Device
+	bsr	Fs_Store
+	moveq	#"D",d0
+	moveq	#1,d1
+	bra.s	Fs_Dev
+; ASSIGNS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Assign
+	bsr	Fs_Store
+	moveq	#"A",d0
+	moveq	#2,d1
+Fs_Dev	move.w	d1,-(sp)
+	move.l	Name1(a5),a0
+	move.b	d0,(a0)
+	move.l	Name2(a5),a0
+	clr.b	(a0)
+	bsr	Fs_New
+	Rbsr	L_FillDev
+	move.w	(sp)+,d0
+	move.b	d0,Fs_DevFlag(a4)
+	bsr	FsI_AffF
+	bsr	FsI_SliStore
+	rts
+
+; Click dans la liste des noms
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Name	move.l	#Fs_ChannelN,d0		Demande la position dans la liste
+	moveq	#Fs_ListN,d1
+	moveq	#0,d2
+	Rbsr	L_Dia_GetValue
+	move.l	d1,d0
+	move.l	d1,d2
+	Rbsr	L_FillGet
+	bne.s	.Quoi
+	rts
+; Un fichier? Un directory? Un device?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Quoi	lea	6+4(a0),a2		Debut du nom
+	cmp.b	#1,Fs_DevFlag(a4)	Un device?
+	beq.s	.Device
+	cmp.b	#2,Fs_DevFlag(a4)	Un Assign?
+	beq.s	.Device
+	cmp.b	#3,Fs_DevFlag(a4)	Un directory store?
+	beq.s	.Stored
+	cmp.b	#" ",(a2)+
+	beq.s	.Fiche
+; Changement de directory!
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Fs_Store
+	bsr	Fs_NomDir
+	move.l	a2,a0
+	bsr	Fs_NewDir
+	rts
+; Un nom de fichier
+; ~~~~~~~~~~~~~~~~~
+.Fiche	cmp.w	Fs_Click(a4),d2		Double click?
+	beq	Fs_Ok
+	move.w	d2,Fs_Click(a4)
+	move.l	a2,a0
+	bsr	Fs_NewName
+	rts
+; Un device.
+; ~~~~~~~~~~
+.Device	move.w	#-1,Fs_Click(a4)
+	clr.b	Fs_DevFlag(a4)
+	bsr	Fs_NomDir
+	move.l	Name1(a5),a0
+	clr.b	(a0)
+	lea	1(a2),a0
+	bsr	Fs_NewDir
+	rts
+; Un directory stored
+; ~~~~~~~~~~~~~~~~~~~
+.Stored	move.w	#-1,Fs_Click(a4)
+	clr.b	Fs_DevFlag(a4)
+	move.l	-4(a2),d0		Adresse du directory stocke!
+	lsl.l	#1,d0			Enleve le bit#31
+	bsr	Fs_StoDir2		Va changer le directory!
+	rts
+
+; Routine: recopie du nom A2 >>> Nom de fichier...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_NewName
+	move.l	a0,a2
+	move.l	Buffer(a5),a0		Copie le nom
+	lea	512(a0),a0
+	lea	2(a0),a1
+.Cp1	move.b	(a2)+,(a1)+
+	bne.s	.Cp1
+	sub.l	a0,a1
+	subq.w	#3,a1
+	move.w	a1,(a0)
+	move.l	#Fs_ChannelN,d0		Update la zone FILE NAME
+	moveq	#Fs_FileN,d1
+	move.l	a0,d2
+	Rbsr	L_Dia_Update
+	rts
+
+; PARENT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Parent
+	bsr	Fs_NomDir
+	move.l	Name1(a5),a0
+	tst.b	(a0)
+	beq.s	.PaX
+.Pa0	tst.b	(a0)+
+	bne.s	.Pa0
+	subq.l	#1,a0
+	cmp.b	#"/",-(a0)
+	bne.s	.PaX
+.Pa1:	cmp.l	Name1(a5),a0
+	beq.s	.Pa3
+	move.b	-(a0),d0
+	cmp.b	#"/",d0
+	beq.s	.Pa2
+	cmp.b	#":",d0
+	bne.s	.Pa1
+.Pa2	lea	1(a0),a0
+.Pa3	move.l	a0,-(sp)
+	bsr	Fs_Store
+	bsr	FsI_SliStore
+	move.l	(sp)+,a0
+	clr.b	(a0)
+	bsr	Fs_NewDir
+.PaX	rts
+
+; Bouton store
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_BStore
+	move.l	Fs_Variables(a4),a0
+	move.b	FsV_Store+3(a0),PI_FsStore(a5)
+	bne.s	.Exit
+	bsr	Fs_DelStores
+	bsr	FsI_SliStore
+.Exit	rts
+
+; Change le directory >>> Directory STORE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_StoDir
+	moveq	#126,d0			Retourne le dernier element
+	bsr	Fs_NumStore
+Fs_StoDir2
+	move.l	d0,a0
+	lea	8+4+4+2+1(a0),a0	Recopie les noms >>> name1/name2
+	move.l	Name1(a5),a1
+.Cop1	move.b	(a0)+,(a1)+
+	bne.s	.Cop1
+	move.l	Name2(a5),a1
+.Cop2	move.b	(a0)+,(a1)+
+	bne.s	.Cop2
+	subq.l	#1,a0			Reste sur un zero!
+	bsr	Fs_NewDir		Il le trouve tout seul!
+.Exit	rts
+
+; Detruit le directory affiche
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_SliDel
+	tst.b	PI_FsStore(a5)		Securites...
+	beq.s	.Exit
+	tst.l	Fs_Liste(a5)
+	beq.s	.Exit
+	bsr.s	Fs_StoDir
+	bsr	FsI_SliStore
+.Exit	rts
+
+; ___________________________________________________________________
+;
+; 	Erreur dans le selecteur
+; ___________________________________________________________________
+;
+Fs_Error
+	move.l	Fs_Base(a5),a4
+	move.l	Fs_Sp(a4),sp
+; Arrete la tache de dialogue
+	bsr	FsI_Stop
+; Trouve le message...
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOIoErr(a6)
+	move.l	(sp)+,a6
+	lea	FsErDisk(pc),a0
+	moveq	#24,d1
+.Loop	addq.l	#1,d1
+	move.w	(a0)+,d2
+	bmi.s	.No
+	cmp.w	d0,d2
+	bne.s	.Loop
+	bra.s	.Ok
+.No	moveq	#32,d1
+.Ok	bsr	Fs_GetPuzzle
+	move.l	a2,a0
+	move.w	d1,d0
+	Rjsr	L_GetMessage
+	move.l	a0,-(sp)
+; Efface tout!
+	bsr	Fs_New
+; Affiche le message
+	bsr	Fs_GetPuzzle
+	add.l	10(a0),a0		TROISIEME programme
+	moveq	#0,d0			X
+	moveq	#0,d1			Y
+	moveq	#0,d2			Variable 0
+	move.l	(sp)+,d3
+	subq.w	#2,d3			Message d'erreur
+	moveq	#0,d4			Rien!
+	moveq	#0,d5			Ne pas copier le programme
+	move.l	#256,d6			Buffer
+	Rbsr	L_Dia_RunQuick
+	bsr	FsI_ReStart
+	tst.w	d0
+	bne	Fs_BadAPI
+	clr.w	Fs_Input(a4)
+	bra	Fs_Loop
+
+; ___________________________________________________________________
+;
+; 	Fermeture du s�lecteur de fichier / Sortie
+; ___________________________________________________________________
+;
+;	A0/D0=	Message de retour
+;
+Fs_Close
+	move.l	Fs_Sp(a4),sp
+	movem.l	a0/d0,-(sp)
+; Stocke le dernier directory
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Fs_Store
+; Remet le requester
+; ~~~~~~~~~~~~~~~~~~
+	Rbsr	L_YesReq
+; Enleve le patch erreurs
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	clr.l	Fs_ErrPatch(a5)
+; Referme le canal de dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.l	Fs_Channel(a4)
+	beq.s	.NoChan
+	cmp.l	#-1,Fs_Channel(a4)
+	beq.s	.LowM
+; Arret de la tache
+	bsr	FsI_Quit
+; Recupere les flags
+	move.l	Fs_Variables(a4),a0
+	move.b	FsV_Sort+3(a0),PI_FsSort(a5)
+	move.b	FsV_Size+3(a0),PI_FsSize(a5)
+	move.b	FsV_Store+3(a0),PI_FsStore(a5)
+; Ferme le canal
+.LowM	move.l	#Fs_ChannelN,d0
+	Rbsr	L_Dia_CloseChannel
+.NoChan
+; Referme l'�cran
+; ~~~~~~~~~~~~~~~
+	tst.b	Fs_Opened(a4)
+	beq.s	.PaFer
+	move.l	Fs_AdEc(a4),a2
+; Recupere la position de l'�cran
+	move.w	EcAWX(a2),PI_FsDWx(a5)
+	move.w	EcAWY(a2),PI_FsDWy(a5)
+; Referme l'�cran
+	bsr	Fs_DisAppear
+.PaFer
+; Detruit l'�cran
+; ~~~~~~~~~~~~~~~
+	tst.l	Fs_AdEc(a4)
+	beq.s	.PaClo
+	EcCalD	Del,EcFsel
+	move.w	Fs_OldEc(a4),d1
+	bmi.s	.PaClo
+	EcCall	Active
+.PaClo
+; Remet la souris
+; ~~~~~~~~~~~~~~~
+	lea	Fs_LimSave(a4),a0
+	lea	T_MouXMin(a5),a1
+	moveq	#3,d0
+.Mou	move.w	(a0)+,(a1)+
+	dbra	d0,.Mou
+; Efface les touches
+; ~~~~~~~~~~~~~~~~~~
+	SyCall	ClearKey
+	clr.l	T_ClLast(a5)
+; Efface le buffer de datas
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,a1
+	move.l	#Fs_Long,d0
+	SyCall	MemFree
+	clr.l	Fs_Base(a5)
+; On revient!
+; ~~~~~~~~~~~
+	movem.l	(sp)+,a0/d0		Recupere le r�sultat
+	movem.l	(sp)+,d2-d7/a2-a6	Recupere les donnees
+	lea	4*4(a3),a3		Depile les parametres...
+	rts
+
+; ___________________________________________________________________
+;
+;	STORE
+; ___________________________________________________________________
+
+
+; Stocke le directory courant (name1-name2) dans la liste
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Store
+	tst.b	PI_FsStore(a5)		Store en route?
+	beq.s	.Exit
+	tst.b	Fs_DevFlag(a4)		Pas les devices
+	bne.s	.Exit
+	tst.l	BufFillF(a5)		Quelque chose � stocker?
+	beq.s	.Exit
+	bsr	Fs_FindStore		Deja defini?
+	beq.s	.Skip
+	bsr	Fs_DelStore		Si oui, on enleve!
+.Skip	moveq	#Fs_MaxStore,d0
+	bsr	Fs_DelLast		Pas plus de 10!
+	lea	Fs_Liste(a5),a0		Base de la liste
+	move.l	#16+128,d0		Liste + Nom
+	Rjsr	L_Lst.New
+	beq.s	.Exit
+	addq.l	#8,a1			Adresse dans la liste
+	move.l	BufFillF(a5),(a1)+	Poke la liste
+	move.w	FillFNb(a5),(a1)+
+	move.l	Fs_Variables(a4),a0
+	move.l	FsV_PList(a0),(a1)+	Position dans la liste
+	move.b	FillFSorted(a5),(a1)+
+	clr.l	BufFillF(a5)		Enleve de DiskIo!
+	clr.w	FillFNb(a5)
+	clr.b	FillFSorted(a5)
+	move.l	Name1(a5),a0		Copie le pathname
+.Cop1	move.b	(a0)+,(a1)+
+	bne.s	.Cop1
+	move.l	Name2(a5),a0		Copy le filtre
+.Cop2	move.b	(a0)+,(a1)+
+	bne.s	.Cop2
+.Exit	Rbsr	L_FillFFree		Enleve le lock!
+	rts
+
+; Branche le directory D0 sur le directory courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Branch
+	move.l	d0,-(sp)		Enleve la liste precedente
+	Rbsr	L_FillFFree
+	move.l	(sp)+,d0
+	move.l	d0,a0
+	addq.l	#8,a0
+	move.l	(a0)+,BufFillF(a5)	Branche la nouvelle
+	move.w	(a0)+,FillFNb(a5)
+	move.l	Fs_Variables(a4),a1	Position dans la liste
+	move.l	(a0)+,FsV_PList(a1)
+	move.b	(a0)+,FillFSorted(a5)
+	clr.b	Fs_DirOn(a4)		Rien en route!
+	move.l	d0,a1
+	lea	Fs_Liste(a5),a0
+	Rjsr	L_Lst.Del		Enleve la structure
+	rts
+
+; Trouve le directory courant (NAME1-NAME2) dans la liste
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_FindStore
+	move.l	a2,-(sp)
+	tst.b	PI_FsStore(a5)
+	beq.s	.Exit
+	move.l	Fs_Liste(a5),d0
+	beq.s	.Exit
+.Loop	move.l	d0,a2
+	lea	8+4+2+4+1(a2),a1
+	move.l	Name1(a5),a0		Regarde le pathname
+.Chk1	move.b	(a1)+,d0
+	Rbsr	L_MajD0
+	move.b	d0,d1
+	move.b	(a0)+,d0
+	Rbsr	L_MajD0
+	cmp.b	d0,d1
+	bne.s	.Next
+	tst.b	d0
+	bne.s	.Chk1
+	move.l	Name2(a5),a0		Regarde le filtre
+.Chk2	move.b	(a1)+,d0
+	Rbsr	L_MajD0
+	move.b	d0,d1
+	move.b	(a0)+,d0
+	Rbsr	L_MajD0
+	cmp.b	d0,d1
+	bne.s	.Next
+	tst.b	d0
+	bne.s	.Chk2
+	bra.s	.Found
+.Next	move.l	(a2),d0			Encore un?
+	bne.s	.Loop
+.Exit	moveq	#0,d0
+	bra.s	.Out
+.Found	move.l	a2,d0
+.Out	move.l	(sp)+,a2
+	rts
+
+; Detruit les elements de la liste >D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_DelLast
+	move.l	a2,-(sp)
+	bsr	Fs_NumStore
+	beq.s	.Exit
+	move.l	d0,a2
+.Loop	move.l	(a2),d0
+	beq.s	.Exit
+	bsr	Fs_DelStore
+	bra.s	.Loop
+.Exit	move.l	(sp)+,a2
+	rts
+
+; Retourne l'element numero D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_NumStore
+	moveq	#0,d1
+	tst.w	d0
+	beq.s	.Exit
+	lea	Fs_Liste(a5),a0
+	bra.s	.In
+.Loop	move.l	(a0),d1
+	move.l	d1,a0
+	subq.w	#1,d0
+	beq.s	.Exit
+.In	tst.l	(a0)
+	bne.s	.Loop
+.Exit	move.l	d1,d0
+	rts
+
+; Compte le nombre d'elements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_CptStore
+	moveq	#0,d0
+	move.l	Fs_Liste(a5),d1
+	beq.s	.Exit
+.Loop	move.l	d1,a0
+	addq.w	#1,d0
+	move.l	(a0),d1
+	bne.s	.Loop
+.Exit	rts
+
+; Flush de tous les directory
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Flush
+	bsr	Fs_DelStores		Enleve
+	clr.b	PI_FsStore(a5)
+	rts
+
+; Detruit toute la liste des directory
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_End
+Fs_DelStores
+	move.l	Fs_Liste(a5),d0
+	beq.s	.Exit
+	bsr	Fs_DelStore
+	bra.s	Fs_DelStores
+.Exit	rts
+
+; Enleve le directory D0 de la liste
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_DelStore
+	move.l	a2,-(sp)
+	move.l	d0,a2
+	move.l	8(a2),d1
+	bra.s	.In
+.Loop	move.l	d1,a1
+	move.l	(a1),d1
+	move.w	4(a1),d0
+	ext.l	d0
+	SyCall	MemFree
+.In	tst.l	d1
+	bne.s	.Loop
+	move.l	a2,a1
+	lea	Fs_Liste(a5),a0
+	Rjsr	L_Lst.Del
+	move.l	(sp)+,a2
+	rts
+
+
+; ___________________________________________________________________
+;
+;	ERREURS
+; ___________________________________________________________________
+
+Fs_OoMem
+Fs_EcWiErr
+Fs_NoBank
+Fs_BadAPI
+Fs_IllDName
+	bra	Fs_Cancel
+
+
+; ___________________________________________________________________
+;
+;	DIFFERENTES ROUTINES
+; ___________________________________________________________________
+
+; Effacement de tous les noms de l'�cran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_New	Rbsr	L_FillFFree
+	clr.b	Fs_DirOn(a4)
+	move.w	#-1,Fs_Click(a4)
+	move.l	Fs_Variables(a4),a0
+	clr.l	FsV_PList(a0)
+	bsr	FsI_AffF
+	rts
+
+; Remplissage des noms de fichier...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_First
+	clr.b	Fs_DevFlag(a4)
+	move.w	#-1,Fs_Click(a4)
+	move.l	Fs_Variables(a4),a0	Flag sort
+	tst.l	FsV_Sort(a0)
+	sne	FillFSorted(a5)
+	move.l	#-1,FsV_PosFirst(a0)	Position du premier fichier
+	bsr	Fs_NomDir		Name >>> Name1 / Name2
+	bsr	Fs_FindStore		Deja trouve?
+	bne.s	.Dejalu
+	Rbsr	L_LockGet			Find a lock
+	Rbsr	L_FillFirst		Get names
+	bsr	FsI_SliStore
+	move.b	#1,Fs_DirOn(a4)
+	rts
+.Dejalu	bsr	Fs_Branch		Branche la liste!
+	bsr	FsI_AffF
+	bsr	FsI_SliStore
+	rts
+
+; Prend le nom de fichier suivant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Next	tst.b	Fs_DirOn(a4)
+	beq.s	.Skip
+	clr.b	Fs_DirOn(a4)
+	Rbsr	L_FillNxt
+	ble.s	.Fini
+	move.b	#1,Fs_DirOn(a4)
+.Fini	cmp.w	#1,d0
+	beq.s	.Skip
+; Si SORT, si le fichier poke est en DESSOUS, decale vers le bas!
+	tst.b	FillFSorted(a5)
+	beq.s	.NoS
+	move.l	Fs_Variables(a4),a0
+	move.l	FsV_PosFirst(a0),d0
+	bmi.s	.NoS
+	move.w	FillFPosPoke(a5),d1
+	bmi.s	.NoS
+	cmp.w	d1,d0
+	bcs.s	.NoS
+	addq.l	#1,FsV_PList(a0)
+	addq.l	#1,FsV_PosFirst(a0)
+.NoS	bsr	FsI_AffF
+.Skip	rts
+
+; Digere le pathname
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Nom source
+;	>>>	Pathname=Name1
+;	>>>	Filtre=Name2
+Fs_NomDir
+	movem.l	a2/d2-d7,-(sp)
+	move.l	#Fs_ChannelN,d0		Demande la chaine PATH
+	moveq	#Fs_PathN,d1
+	moveq	#0,d2
+	Rbsr	L_Dia_GetValue
+	bne	Fs_BadAPI
+	move.l	d1,a2
+; Separe filtre et path
+	move.l	Name1(a5),a0
+	move.l	Name2(a5),a1
+	clr.b	(a0)
+	clr.b	(a1)
+	moveq	#-1,d1
+	move.l	a0,d6
+	moveq	#0,d7
+.NmD1	move.b	(a2)+,d0
+	move.b	d0,(a0)+
+	beq.s	.NmD5
+	clr.b	(a0)
+	cmp.b	#"*",d0
+	beq.s	.NmD2
+	cmp.b	#"?",d0
+	bne.s	.NmD3
+.NmD2	bset	#0,d7
+.NmD3	cmp.b	#":",d0
+	beq.s	.NmD4
+	cmp.b	#"/",d0
+	bne.s	.NmD1
+.NmD4	btst	#0,d7
+	bne.s	.NmD1
+	move.l	a0,d6
+	bra.s	.NmD1
+.NmD5	tst.w	d7
+	beq.s	.NmDx
+	move.l	d6,a0
+.NmD6	move.b	(a0)+,(a1)+
+	bne.s	.NmD6
+	move.l	d6,a0
+	clr.b	(a0)
+; V�rifie la pr�sence du / au d�but...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NmDx	move.l	Name1(a5),a0
+	tst.b	(a0)
+	beq.s	.NmDx2
+.NmDx1	tst.b	(a0)+
+	bne.s	.NmDx1
+	cmp.b	#":",-2(a0)
+	beq.s	.NmDx2
+	cmp.b	#"/",-2(a0)
+	beq.s	.NmDx2
+	move.b	#"/",-1(a0)
+	clr.b	(a0)
+.NmDx2
+; Compute with default pathname
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_Dsk.PathIt
+	movem.l	(sp)+,a2/d2-d7
+	rts
+
+; Retourne l'adresse de la banque FSEL
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_GetPuzzle
+	move.l	Sys_Resource(a5),a0
+; Les graphiques
+	move.l	a0,a1
+	add.l	2(a0),a1
+; Les messages
+	move.l	a0,a2
+	add.l	6(a0),a2
+; Les Programmes
+	add.l	10(a0),a0
+; Ok!
+	rts
+
+; Insere le directory A0 � la suite du directory courant (NAME1-NAME2)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_NewDir
+	move.l	a0,-(sp)
+	bsr	Fs_New
+	move.l	(sp)+,a2		En plus...
+	move.l	Buffer(a5),a1		Path d'origine
+	lea	512(a1),a1
+	addq.w	#2,a1
+	move.l	a1,d1
+; Copie le debut
+	move.l	Name1(a5),a0
+	tst.b	(a0)			Vide>>> rien!
+	beq.s	.Sk1
+.Lp1	move.b	(a0)+,(a1)+
+	bne.s	.Lp1
+	subq.l	#1,a1
+; Copie le nouveau nom
+.Sk1	move.l	a2,a0
+.Lp2	move.b	(a0)+,(a1)+
+	bne.s	.Lp2
+	subq.l	#1,a1
+; Copie le filtre
+	move.l	Name2(a5),a0
+	tst.b	(a0)
+	beq.s	.Sk3
+	cmp.l	a1,d1			Vide?
+	beq.s	.Lp3
+	cmp.b	#"/",-1(a1)
+	beq.s	.Lp3
+	cmp.b	#":",-1(a1)
+	beq.s	.Lp3
+	move.b	#"/",(a1)+
+.Lp3	move.b	(a0)+,(a1)+
+	bne.s	.Lp3
+	subq.l	#1,a1
+; Envoie aux dialogues
+.Sk3	move.l	Buffer(a5),a0		Met la taille de la chaine
+	lea	512(a0),a0
+	sub.l	d1,a1
+	move.w	a1,(a0)
+	cmp.w	#256,a1
+	bcc	Fs_IllDName
+	move.l	#Fs_ChannelN,d0		Update la zone PATHNAME
+	moveq	#Fs_PathN,d1
+	move.l	a0,d2
+	Rbsr	L_Dia_Update
+; Demande le nouveau directory
+	move.w	#-1,Fs_Click(a4)
+	bsr	Fs_First		Lis le directory
+	rts
+
+; Ouvre l'ecran du selecteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_ScOpen
+	bsr	Fs_GetPuzzle
+	move.l	a1,a0
+	moveq	#EcFsel,d0
+	ext.l	d1
+	ext.l	d2
+	moveq	#1,d3
+	moveq	#-1,d4
+	Rbsr	L_Dia_RScOpen
+	rts
+
+; Prend les entrees (a3)+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_GetInputs
+	move.l	Fs_Variables(a4),a1
+	move.l	(a3)+,a0		Titre 1
+	tst.b	1(a0)
+	beq.s	.Pat2
+	move.l	a0,FsV_Titre1(a1)
+.Pat2	move.l	(a3)+,a0		Titre 0
+	tst.b	1(a0)
+	beq.s	.Pat1
+	move.l	a0,FsV_Titre0(a1)
+.Pat1	move.l	(a3)+,FsV_File(a1)	Nom par d�faut
+; Compute path with actual path...
+	move.l	(a3)+,a0
+	move.l	Name1(a5),a1		Recopie dans NAME1
+	move.b	(a0)+,d0
+	lsl.w	#8,d0
+	move.b	(a0)+,d0
+	subq.w	#1,d0
+	bmi.s	.Pat4
+.Pat3	move.b	(a0)+,(a1)+
+	dbra	d0,.Pat3
+.Pat4	clr.b	(a1)+
+	Rbsr	L_Dsk.PathIt		Insere le PATH
+	move.l	Name1(a5),a0
+	move.l	Buffer(a5),a1
+	lea	512(a1),a1
+	addq.l	#2,a1
+.Pat5	move.b	(a0)+,(a1)+
+	bne.s	.Pat5
+	move.l	Buffer(a5),a0
+	lea	512(a0),a0
+	sub.l	a0,a1
+	subq.l	#3,a1
+	move.w	a1,(a0)
+	move.l	Fs_Variables(a4),a1
+	move.l	a0,FsV_Path(a1)
+	rts
+
+; Apparition de l'�cran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_Appear
+	move.l	Fs_AdEc(a4),a2
+	move.w	PI_FsDWx(a5),EcAWX(a2)
+	bset	#1,EcAW(a2)
+	move.w	PI_FsDVApp(a5),d7
+	moveq	#1,d6
+	move.w	PI_FsDWy(a5),d5
+	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	add.w	d0,d5
+	Rjsr	L_AppCentre
+	rts
+; Disparition de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_DisAppear
+	move.l	Fs_AdEc(a4),a2
+	move.w	PI_FsDVApp(a5),d7
+	neg.w	d7
+	move.w	EcTy(a2),d6
+	lsr.w	#1,d6
+	move.w	PI_FsDWy(a5),d5
+	add.w	d6,d5
+	Rjsr	L_AppCentre
+	rts
+
+; ___________________________________________________________________
+;
+;	TACHE DE DIALOGUE
+; ___________________________________________________________________
+
+; Boucle d'animation du selecteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsI_Entry
+	move.l	TaskBase(pc),a5		Base des donnees
+	move.l	Fs_Base(a5),a4
+; Boucle d'attente
+; ~~~~~~~~~~~~~~~~
+FsI_Loop
+	move.w	Fs_Command(a4),d2	Une commande?
+	bne.s	.Com
+; Animation de l'interface
+	bsr	Fs_Multi		Multitache
+	moveq	#1,d0
+	Rbsr	L_Dia_AutoTest2
+	move.l	#Fs_ChannelN,d0		Demande de resultat
+	Rbsr	L_Dia_GetReturn
+	tst.w	d0
+	bne.s	.Quit
+	move.w	d1,Fs_Input(a4)
+	bne.s	.CWait
+	SyCall	MouseKey		Touche de droite
+	btst	#1,d1
+	beq.s	FsI_Loop
+	move.w	#20,Fs_Input(a4)	Faux bouton
+; Une entree, attendre la reponse du selecteur
+.CWait	move.w	#1,Fs_Waiting(a4)
+.Wait	bsr	Fs_Multi
+	tst.w	Fs_Waiting(a4)
+	bne.s	.Wait
+	bra.s	FsI_Loop
+; Une commande du selecteur QUIT ou AFFF
+.Com	bmi.s	.Quit
+	clr.w	Fs_Command(a4)
+	btst	#0,d2
+	beq.s	.Sk1
+	bsr	_AffF
+.Sk1	btst	#1,d2
+	beq.s	.Sk2
+	bsr	_SliStore
+.Sk2	btst	#2,d2
+	bne.s	.CWait
+	bra	FsI_Loop
+; Sortie!
+.Quit	move.w	#-1,Fs_Waiting(a4)
+	rts
+; Attente multitache
+; ~~~~~~~~~~~~~~~~~~
+Fs_Multi
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)
+	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+; Re-Affichage des noms de fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+_AffF	movem.l	a2/d2,-(sp)
+	move.w	FillFNb(a5),d0		Nombre de fichiers
+	move.w	d0,Fs_ASize(a4)
+	move.l	#Fs_ChannelN,d0		Change la taille de la liste
+	moveq	#Fs_ListN,d1
+	moveq	#0,d2
+	Rbsr	L_Dia_GetZoneAd
+	beq	Fs_BadAPI
+	move.w	Fs_ASize(a4),Dia_LiMaxAct(a0)
+	move.l	#Fs_ChannelN,d0		Re-actualise le slider, donc la liste
+	moveq	#Fs_SliderN,d1
+	move.w	Fs_ASize(a4),d4		Nouvelle global
+	move.l	#EntNul,d3		Ancienne window
+	move.l	Fs_Variables(a4),a2
+	move.l	FsV_PList(a2),d2	Nouvelle position
+	clr.l	FsV_AffFlag(a2)
+	Rbsr	L_Dia_Update
+	bne	Fs_BadAPI
+	addq.l	#1,FsV_AffFlag(a2)
+	movem.l	(sp)+,a2/d2
+	rts
+; Actualise le nombre de STORE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+_SliStore
+	movem.l	d2-d4,-(sp)
+	bsr	Fs_CptStore
+	move.l	d0,d4
+	addq.w	#1,d4
+	move.l	#Fs_ChannelN,d0
+	moveq	#Fs_SliderS,d1
+	moveq	#1,d3			Window = 1
+	moveq	#0,d2
+	Rbsr	L_Dia_Update
+	bne	Fs_BadAPI
+	movem.l	(sp)+,d2-d4
+	rts
+
+
+; ___________________________________________________________________
+;
+;	COMMUNICATION AVEC LA TACHE DE DIALOGUE
+; ___________________________________________________________________
+
+; Stoppe la tache de dialogue et revient
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsI_Stop
+	tst.w	Fs_Waiting(a4)
+	bne.s	.Skip
+	bset	#2,Fs_Command+1(a4)
+	clr.w	Fs_Input(a4)
+.Loop	Rjsr	L_Sys_WaitMul
+	tst.w	Fs_Waiting(a4)
+	beq.s	.Loop
+.Skip	rts
+; Redemmare la tache de dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsI_ReStart
+	clr.w	Fs_Waiting(a4)
+	rts
+; Provoque l'affichage du slider de store
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsI_SliStore
+	bset	#1,Fs_Command+1(a4)
+	rts
+; Provoque l'affichage des fichiers.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsI_AffF
+	bset	#0,Fs_Command+1(a4)
+	rts
+; Provoque la sortie de selecteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsI_Quit
+	clr.w	Fs_Waiting(a4)
+	bset	#7,Fs_Command(a4)
+.Loop	Rjsr	L_Sys_WaitMul
+	tst.w	Fs_Waiting(a4)
+	beq.s	.Loop
+	rts
+
+
+; Retourne le nom du fichier aux dialogues...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_GetName
+	move.l	d4,d0
+	Rbsr	L_FillGet
+	tst.w	d0
+	beq.s	.Skip
+	lea	6+4(a0),a1
+	move.l	6(a0),d1
+	move.l	Fs_Base(a5),a0
+	move.l	Fs_Variables(a0),a0
+	tst.l	FsV_Size(a0)
+	bne.s	.Size
+; Normal, sans taille...
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Normal	move.l	a1,a0
+.Long	tst.b	(a0)+
+	bne.s	.Long
+	sub.l	a1,a0
+	move.l	a0,d1
+	moveq	#1,d0
+.Skip	rts
+; Met la taille � la fin!
+; ~~~~~~~~~~~~~~~~~~~~~~~
+.Size	btst	#31,d1			Un assign/stored
+	bne.s	.Normal
+	cmp.b	#"*",(a1)		Un directory
+	beq.s	.Normal
+	movem.l	a2/d2-d4,-(sp)
+	move.l	Buffer(a5),a2		Un endroit libre dans le buffer
+	lea	896(a2),a2
+	move.l	FsV_Tx(a0),d2		Taille fenetre
+	move.l	a2,a0
+.Copy1	move.b	(a1)+,(a0)+		Copie la premiere chaine
+	bne.s	.Copy1
+	subq.l	#1,a0
+	lea	-8(a2,d2.w),a1		Termine avec des blancs
+	bra.s	.Blin1
+.Bllp1	move.b	#" ",(a0)+
+.Blin1	cmp.l	a1,a0
+	bcs.s	.Bllp1
+	move.l	a1,a0
+	move.b	#" ",(a0)+
+	move.l	d1,d0			Met la taille
+	Rjsr	L_LongToDec
+	addq.l	#8,a1
+	bra.s	.Blin2
+.Bllp2	move.b	#" ",(a0)+
+.Blin2	cmp.l	a1,a0
+	bcs.s	.Bllp2
+	move.l	a2,a1			Retourne la taille
+	sub.l	a1,a0
+	move.l	a0,d1
+	movem.l	(sp)+,a2/d2-d4
+	rts
+; ___________________________________________________________________
+;
+;	LOW MEMORY FILE SELECTOR
+; ___________________________________________________________________
+;
+Fs_LowMemory
+
+; Recupere la palette de la banque par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Fs_GetPuzzle
+	move.w	(a1),d0
+	lsl.w	#2,d0
+	lea	2+2+2(a1,d0.w),a1
+	lea	LFs_Palette(pc),a0
+	moveq	#31,d0
+.Copy	move.w	(a1)+,(a0)+
+	dbra	d0,.Copy
+	lea	LFs_Palette(pc),a0
+	move.w	2*2(a0),0*2(a0)
+	move.w	3*2(a0),1*2(a0)
+
+; Ouverture d'un tout petit ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	PI_FsDSx(a5),d2		Taille choisie
+	ext.l	d2
+	moveq	#64,d3			SY
+	moveq	#1,d4			Nb de plans
+	move.l	#$8000,d5
+	moveq	#2,d6			Nb de couleurs
+	moveq	#0,d7
+	lea	LFs_Palette(pc),a1
+	EcCalD	Cree,EcFsel
+	bne	Fs_OoMem
+	move.l	a0,Fs_AdEc(a4)
+	bsr	Fs_Appear
+	WiCalA	Print,Fs_COff(pc)
+	move.b	#1,Fs_Opened(a4)
+
+; Ouverture du canal de dialogue...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Fs_GetPuzzle
+	add.l	14(a0),a0		QUATRIEME programme
+	move.l	#Fs_ChannelN,d0		Numero du canal
+	move.l	#1024,d1		Buffer
+	moveq	#32,d2			Nombre de variables
+	moveq	#0,d3			Ne PAS recopier
+	Rbsr	L_Dia_OpenChannel
+	tst.l	d0			Une erreur?
+	bne	Fs_OoMem
+	move.l	#-1,Fs_Channel(a4)	Canal non multitache!
+	move.l	a1,Fs_Variables(a4)
+	bsr	Fs_GetInputs		Recupere les entrees utilisateur
+
+; Dessin du fond / Appel du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#Fs_ChannelN,d0
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	Rbsr	L_Dia_RunProgram
+	tst.l	d0
+	bne	Fs_OoMem
+
+; C'est fini!!!
+; ~~~~~~~~~~~~~
+	cmp.l	#1,d1
+	beq	Fs_Ok
+	bra	Fs_Cancel
+
+
+; 		Arret du curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_COff		dc.b	27,"C0",0
+		even
+
+;		Structure FLUSH / END
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Fs_FlushStructure	dc.l	0
+			bra	Fs_Flush
+Fs_EndStructure		dc.l	0
+			bra	Fs_End
+
+; 		Table des erreurs reconnues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsErDisk	dc.w 204,205,210,213,218,225,226,-1
+;		EdT	80,<Directory not found>		204
+;		EdT	81,<File not found>			205
+;		EdT	82,<Illegal file name>			210
+;		EdT	83,<Disc is not validated>		213
+;		EdT	86,<Device not available>		218
+;		EdT	92,<Not an AmigaDOS disc>		225
+;		EdT	93,<No disc in drive>			226
+;		EdT	94,<I/O error>
+
+; Tache de dialogue
+; ~~~~~~~~~~~~~~~~~
+TaskBase	dc.l	0
+TaskName	dc.b	"AMOSPro File Selector",0
+		even
+
+; Palette par defaut du selecteur low mem
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LFs_Palette	ds.w	32
+		dc.l	0
+		Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN DU SELECTEUR DE FICHIERS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	End_FSel
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CREATE TASK / Amiga.Lib
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CreateTask
+; - - - - - - - - - - - - -
+	LINK	A6,#-$20
+	MOVEM.L	D2-5/A2-3,-(A7)
+	MOVE.L	8(A6),D3
+	MOVE.B	$F(A6),D2
+	MOVE.L	$10(A6),D4
+	MOVE.L	$14(A6),D0
+	ADDQ.L	#3,D0
+	MOVEQ	#-4,D1
+	AND.L	D1,D0
+	MOVE.L	D0,$14(A6)
+	lea	_CtData(pc),A0
+	LEA	-$20(A6),A1
+	MOVEQ	#7,D0
+L7D065D6
+	MOVE.L	(A0)+,(A1)+
+	DBF	D0,L7D065D6
+	MOVE.L	$14(A6),-4(A6)
+	PEA	-$20(A6)
+	BSR	L7D066BC
+	MOVEA.L	D0,A3
+	MOVE.L	A3,D5
+	ADDQ.L	#4,A7
+	BNE.S	L7D065FA
+	MOVEQ	#0,D0
+	BRA	L7D0666C
+L7D065FA
+	MOVEA.L	$10(A3),A2
+	MOVE.L	$18(A3),$3A(A2)
+	MOVE.L	$14(A6),D0
+	ADD.L	$3A(A2),D0
+	MOVE.L	D0,$3E(A2)
+	MOVE.L	$3E(A2),$36(A2)
+	MOVE.B	#1,8(A2)
+	MOVE.B	D2,9(A2)
+	MOVE.L	D3,$A(A2)
+	PEA	$4A(A2)
+	BSR	L7D066F8
+	MOVE.L	A3,-(A7)
+	PEA	$4A(A2)
+	BSR	L7D06688
+	CLR.L	-(A7)
+	MOVE.L	D4,-(A7)
+	MOVE.L	A2,-(A7)
+	BSR	L7D066A0
+	MOVEA.L	$4.w,A0
+	CMPI.W	#$25,$14(A0)
+	LEA	$18(A7),A7
+	BCS.S	L7D0666A
+	TST.L	D0
+	BNE.S	L7D0666A
+	MOVE.L	A3,-(A7)
+	BSR	L7D066D0
+	MOVEQ	#0,D0
+	ADDQ.L	#4,A7
+	BRA.S	L7D0666C
+L7D0666A
+	MOVE.L	A2,D0
+L7D0666C
+	MOVEM.L	-$38(A6),D2-5/A2-3
+	UNLK	A6
+	RTS
+
+L7D06688
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEM.L	8(A7),A0-A1
+	JSR	-$F0(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7D066A0
+	MOVEM.L	A2-A3/A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEM.L	$10(A7),A1-A3
+	JSR	-$11A(A6)
+	MOVEM.L	(A7)+,A2-A3/A6
+	RTS
+L7D066BC
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A0
+	JSR	-$DE(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7D066D0
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A0
+	JSR	-$E4(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7D066F8
+	MOVEA.L	4(A7),A0
+	CLR.L	4(A0)
+	MOVE.L	A0,8(A0)
+	ADDQ.L	#4,A0
+	MOVE.L	A0,-(A0)
+	RTS
+_CtData
+	DC.L	0
+	DC.L	0
+	DC.L	0
+	DC.L	2
+	DC.L	$10001
+	DC.L	$5C
+	DC.L	$10000
+	DC.L	0
+
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Dialog.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+;_____________________________________________________________________________
+;
+;						EDITEUR LIGNE
+;_____________________________________________________________________________
+;
+;
+; Initialisation de l'�diteur ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0= 	Buffer de donnees
+;	A1=	Chaine � imprimer
+;	A2=	Buffer de stockage
+;	D0=	Flags
+;	D1=	Curseur initial
+;	D2=	Longueur maxi
+;	D3=	Largeur maxi (-1= maximum)
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_Init
+; - - - - - - - - - - - - -
+	movem.l	a0-a3,-(sp)
+	move.l	a0,a3
+	move.l	a2,LEd_Buffer(a3)	Adresse buffer
+	move.b	d0,LEd_Flags(a3)	Flags
+	move.w	d2,LEd_Max(a3)		Longueur maxi ligne
+	clr.w	LEd_Cur(a3)
+	clr.w	LEd_Start(a3)
+	moveq	#-1,d0			RAZ masques
+	move.l	d0,LEd_Mask+0(a3)
+	move.l	d0,LEd_Mask+4(a3)
+	move.l	d0,LEd_Mask+8(a3)
+	WiCall	XYCuWi
+	move.w	d1,LEd_X(a3)
+	move.w	d2,LEd_Y(a3)
+	move.w	d3,LEd_Large(a3)	Largeur
+	bpl.s	.Skip
+	WiCall	SXSYCuWi		Trouve le maximum
+	sub.w	LEd_X(a3),d1
+	subq.w	#1,d1
+	bmi.s	.Err
+	btst	#8,d0			SCROLL ON? (Bit#0 de WiSys)
+	beq.s	.PSc
+	subq.w	#1,d1
+	bmi.s	.Err
+.PSc	move.w	d1,LEd_Large(a3)
+.Skip	bclr	#2,LEd_Flags+1(a3)	Pas de curseur
+	WiCalA	Print,.CuOff(pc)	Arret du vrai curseur!
+	move.l	T_EcCourant(a5),a0	Stocke le numero d'ecran
+	move.w	EcNumber(a0),LEd_Screen(a3)
+	movem.l	(sp),a0-a3
+	moveq	#-1,d0
+	Rbsr	L_LEd_New		Affiche la ligne
+	movem.l	(sp)+,a0-a3
+	moveq	#0,d0
+	rts
+.Err	movem.l	(sp)+,a0-a3
+	moveq	#-1,d0			Pas assez de place
+	rts
+.CuOff	dc.b	27,"C0",0
+
+
+; 	Boucle de l'editeur ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Buffer de donn�es
+;	Sortie:
+;	D0/A0	Chaine
+;	D1	Derniere touche
+;	D2	0=	Rien si out
+;		1=	Return
+;		2= 	Souris en dehors zone
+;		-1=	Control-C si flag
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_Loop
+; - - - - - - - - - - - - -
+	movem.l	a2-a3/d3,-(sp)
+	move.l	a0,a3
+	Rbsr	L_LEd_CuMarche
+
+; Gestion des flags
+; ~~~~~~~~~~~~~~~~~~~~~
+.Loop	btst	#LEd_FMulti,LEd_Flags(a3)	Multitache?
+	beq.s	.Sk1
+	Rbsr	L_Dia_WaitMul
+.Sk1	btst	#LEd_FTests,LEd_Flags(a3)	Tests AMOS
+	beq.s	.Sk2
+	Rjsr	L_Test_PaSaut
+	move.w	T_Actualise(a5),d0		Control-C
+	and.w	ActuMask(a5),d0
+	bclr	#BitControl,d0
+	beq.s	.Sk2
+	move.w	d0,T_Actualise(a5)
+	moveq	#0,d1
+	moveq	#-1,d2
+	bra	.Exit
+.Sk2	SyCall	MouseKey			Tests de la souris
+	and.w	#$03,d1
+	beq.s	.Sk3
+	btst	#LEd_FMouCur,LEd_Flags(a3)
+	beq	.MOut
+	SyCall	MouScrFront		Souris dans ecran de front
+	cmp.w	LEd_Screen(a3),d0	Le bon ecran?
+	bne.s	.MOut
+	SyCall	XyWin			Dans la fenetre courante
+	bmi.s	.MOut
+	cmp.w	LEd_Y(a3),d2		Meme ligne Y
+	bne.s	.MOut
+	sub.w	LEd_X(a3),d1		Dans la ligne X
+	bcs.s	.MOut
+	add.w	LEd_Start(a3),d1	Dans le texte?
+	cmp.w	LEd_Long(a3),d1
+	bhi.s	.MOut
+	cmp.w	LEd_Cur(a3),d1
+	beq.s	.Sk3
+	move.w	d1,LEd_Cur(a3)		On change!
+	bra	.Print
+.MOut	btst	#LEd_FMouse,LEd_Flags(a3)	Retourner la souris
+	beq.s	.Sk3
+	moveq	#0,d1
+	moveq	#2,d2			Sortie, avec code souris (=2)
+	bra	.Exit
+.Sk3
+
+; Prend la touche
+; ~~~~~~~~~~~~~~~
+	move.l	LEd_Buffer(a3),a2
+	SyCall	Inkey
+	move.l	d1,d0
+	beq.s	.Rien
+	swap	d0
+	cmp.b	#$4F,d0			Fleche gauche
+	beq	.G
+	cmp.b	#$4E,d0			Fleche droite
+	beq	.D
+	cmp.b	#$41,d0			BackSpace
+	beq	.Ba
+	cmp.b	#$46,d0			Delete
+	beq	.Dl
+	cmp.b	#13,d1			Return
+	beq.s	.Rt
+	cmp.b	#32,d1
+	bcc.s	.Lt
+; Retour � l'appelant, avec le scancode eventuel en D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Out	btst	#LEd_FKeys,LEd_Flags(a3)
+	beq	.Loop
+	moveq	#0,d2
+	bra.s	.Exit
+; Rien en retour. Retourner � l'appelant?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Rien	btst	#LEd_FOnce,LEd_Flags(a3)
+	beq	.Loop
+	moveq	#0,d2
+.Exit	moveq	#0,d0
+	move.w	LEd_Long(a3),d0
+	move.l	LEd_Buffer(a3),a0
+	clr.b	0(a0,d0.w)
+	tst.w	d2
+	movem.l	(sp)+,a2-a3/d3
+	rts
+; Return
+; ~~~~~~
+.Rt	moveq	#1,d2
+	bra	.Exit
+; Une lettre
+; ~~~~~~~~~~
+.Lt	btst	#LEd_FFilter,LEd_Flags(a3)	; Limiter les entrees?
+	beq.s	.Ins
+	tst.b	d1
+	bmi.s	.Rien
+	cmp.b	#32,d1
+	bcs.s	.Rien
+	move.w	d1,d0				; Oui, pointe les tables
+	lsr.w	#3,d0
+	lea	LEd_Mask-4(a3,d0.w),a0
+	move.b	d1,d0
+	and.w	#$07,d0
+	neg.w	d0
+	addq.w	#7,d0
+	btst	d0,(a0)
+	beq	.Rien
+; Insere la lettre
+.Ins	move.w	LEd_Cur(a3),d2
+	move.w	LEd_Long(a3),d3
+	cmp.w	LEd_Max(a3),d3
+	bcs.s	.Cour
+	cmp.w	d2,d3			; Remplace la derniere lettre
+	bne	.Loop
+	move.b	d1,-1(a2,d2.w)
+	bra	.Print
+.Cour	lea	0(a2,d2.w),a0		; Recopie la ligne
+	lea	0(a2,d3.w),a1
+	bra.s	.In
+.Copy	move.b	-(a1),1(a1)		; Boucle de recopie
+.In	cmp.l	a0,a1
+	bhi.s	.Copy
+.Poke	move.b	d1,(a0)
+	addq.w	#1,LEd_Cur(a3)
+	addq.w	#1,LEd_Long(a3)
+	bra	.Print
+; Fleche gauche
+; ~~~~~~~~~~~~~
+.G	move.w	LEd_Cur(a3),d2
+	beq	.Loop
+	move.w	d0,d1
+	and.w	#$0300,d0		; Shifts
+	bne.s	.Mg
+	and.w	#$1800,d1		; Control
+	bne.s	.Gl
+	subq.w	#1,LEd_Cur(a3)		; Un caractere � gauche
+	bra	.Print
+.Gl	clr.w	LEd_Cur(a3)		; Debut ligne
+	bra	.Print
+.Mg	subq.w	#1,d2			; Mot gauche
+	move.w	d2,LEd_Cur(a3)
+	beq	.Print
+	move.b	-1(a2,d2.w),d0
+	Rbsr	L_LEd_Lettre
+	bne.s	.Mg
+	bra	.Print
+; Fleche droite
+; ~~~~~~~~~~~~~
+.D	move.w	LEd_Cur(a3),d2
+	move.w	LEd_Long(a3),d3
+	cmp.w	d3,d2
+	bcc	.Loop
+	move.w	d0,d1
+	and.w	#$0300,d0		; Shifts
+	bne.s	.Md
+	and.w	#$1800,d1		; Control
+	bne.s	.Dd
+	addq.w	#1,LEd_Cur(a3)		; A droite
+	bra	.Print
+.Dd	move.w	d3,LEd_Cur(a3)		; Droite de la ligne
+	bra	.Print
+.Md	addq.w	#1,d2
+	move.w	d2,LEd_Cur(a3)
+	cmp.w	d3,d2
+	bcc	.Print
+	move.b	-1(a2,d2.w),d0
+	Rbsr	L_LEd_Lettre
+	bne.s	.Md
+	bra	.Print
+; BackSpace
+; ~~~~~~~~~
+.Ba	and.w	#$0300,d1
+	bne.s	.Cl
+	tst.w	LEd_Cur(a3)
+	beq	.Loop
+	subq.w	#1,LEd_Cur(a3)
+; Delete
+; ~~~~~~
+.Dl	and.w	#$0300,d1
+	bne.s	.Cl
+	move.w	LEd_Cur(a3),d2
+	move.w	LEd_Long(a3),d3
+	cmp.w	d3,d2
+	bcc	.Loop
+	lea	0(a2,d2.w),a0			Recopie du texte
+	lea	0(a2,d3.w),a1
+.DCopy	move.b	1(a0),(a0)+
+	cmp.l	a1,a0
+	bcs.s	.DCopy
+	subq.w	#1,LEd_Long(a3)
+	bset	#0,LEd_Flags+1(a3)
+	bra	.Print
+; Nettoyage ligne
+; ~~~~~~~~~~~~~~~
+.Cl	clr.w	LEd_Long(a3)
+	clr.w	LEd_Cur(a3)
+	bset	#1,LEd_Flags+1(a3)
+; Impression de la ligne, retour � la boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Print	Rbsr	L_LEd_Print
+	btst	#LEd_FTests,LEd_Flags(a3)	Si flag TEST (INPUT)
+	beq	.Loop
+	Rjsr	L_Dia_Patch			Branchement au patch moniteur
+	bra	.Loop
+
+; Remplacement de la ligne editee par une autre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Structure
+;	A1=	Nouvelle ligne
+;	D0=	Longueur (ou -1)
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_New
+; - - - - - - - - - - - - -
+	movem.l	a2-a3/d2-d4,-(sp)
+	move.l	a0,a3
+	move.l	LEd_Buffer(a3),a2
+	move.w	LEd_Max(a3),d2
+	tst.w	d0
+	beq.s	.Exit1
+.Copy	move.b	(a1)+,(a2)+
+	beq.s	.Exit
+	subq.w	#1,d0
+	beq.s	.Exit1
+	subq.w	#1,d2
+	bne.s	.Copy
+	addq.l	#1,a2
+.Exit	subq.l	#1,a2
+.Exit1	clr.b	(a2)
+	sub.l	LEd_Buffer(a3),a2
+	move.w	a2,LEd_Long(a3)
+	move.w	a2,LEd_Cur(a3)
+	clr.w	LEd_Start(a3)
+; Fin de l'impression...
+	bset	#1,LEd_Flags+1(a3)
+	Rbsr	L_LEd_Print
+	move.l	a3,a0
+	Rbsr	L_LEd_CuStoppe
+	move.l	a3,a0
+	movem.l	(sp)+,a2-a3/d2-d4
+	rts
+
+; 	Impression de la ligne courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_Print
+; - - - - - - - - - - - - -
+	move.l	LEd_Buffer(a3),a2
+; Curseur on / off
+	move.l	a3,a0
+	Rbsr	L_LEd_CuStoppe
+; Locate en debut de ligne
+	move.w	LEd_X(a3),d1
+	move.w	LEd_Y(a3),d2
+	WiCall	Locate
+; Effacement complet de la ligne?
+	bclr	#1,LEd_Flags+1(a3)
+	beq.s	.Pacl
+	move.w	LEd_Large(a3),d2
+.Eff	WiCalD	ChrOut,32
+	subq.w	#1,d2
+	bne.s	.Eff
+	move.w	LEd_X(a3),d1
+	move.w	LEd_Y(a3),d2
+	WiCall	Locate
+; Curseur � gauche
+.Pacl	move.w	LEd_Cur(a3),d2
+	cmp.w	LEd_Start(a3),d2
+	bcc.s	.Pag
+	move.w	d2,LEd_Start(a3)
+; Curseur � droite
+.Pag	move.w	LEd_Start(a3),d0
+	add.w	LEd_Large(a3),d0
+	cmp.w	d0,d2
+	ble.s	.Pad
+	move.w	d2,d0
+	sub.w	LEd_Large(a3),d0
+	move.w	d0,LEd_Start(a3)
+	bset	#0,LEd_Flags+1(a3)
+; Impression de la ligne
+.Pad	move.w	LEd_Start(a3),d0
+	lea	0(a2,d0.w),a1
+	move.w	LEd_Long(a3),d1
+	sub.w	d0,d1
+	cmp.w	LEd_Large(a3),d1
+	ble.s	.Pal
+	bclr	#0,LEd_Flags+1(a3)
+	move.w	LEd_Large(a3),d1
+	addq.w	#1,d1
+.Pal	WiCall	Print2
+; Effacement de la droite de la ligne?
+	bclr	#0,LEd_Flags+1(a3)
+	beq.s	.Noe
+	WiCalD	ChrOut,32
+; Locate au curseur
+.Noe	move.w	LEd_X(a3),d1
+	add.w	LEd_Cur(a3),d1
+	sub.w	LEd_Start(a3),d1
+	move.w	LEd_Y(a3),d2
+	WiCall	Locate
+; Remet le curseur (vrai ou faux)
+	move.l	a3,a0
+	Rbsr	L_LEd_CuMarche
+	rts
+
+; Arret curseur ligne editee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_CuStoppe
+; - - - - - - - - - - - - -
+	bclr	#2,LEd_Flags+1(a0)
+	beq.s	.Pacu
+	lea	LEd_CuOff(pc),a1
+	btst	#LEd_FCursor,LEd_Flags(a0)
+	bne.s	.Nor
+	Rlea	L_LEd_FauCu,1
+.Nor	WiCall	Print
+.Pacu	rts
+LEd_CuOff	dc.b	27,"C0",0
+	even
+; Remise en route curseur
+; ~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_CuMarche
+; - - - - - - - - - - - - -
+	bset	#2,LEd_Flags+1(a0)
+	bne.s	.Pacu
+	lea	LEd_CuOn(pc),a1
+	btst	#LEd_FCursor,LEd_Flags(a0)
+	bne.s	.Nor
+	Rlea	L_LEd_FauCu,1
+.Nor	WiCall	Print
+.Pacu	rts
+LEd_CuOn	dc.b	27,"C1",0
+	even
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_FauCu
+; - - - - - - - - - - - - -
+LEd_FauCu	dc.b	27,"I1",27,"W2"," ",27,"W0",27,"I0",29,0
+	even
+
+;
+; Ramene VRAI si D2 est une lettre ou un chiffre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	LEd_Lettre
+; - - - - - - - - - - - - -
+	cmp.b	#"0",d0
+	bcs.s	.LFaux
+	cmp.b	#"9",d0
+	bls.s	.LVrai
+	cmp.b	#"A",d0
+	bcs.s	.LFaux
+	cmp.b	#"Z",d0
+	bls.s	.LVrai
+	cmp.b	#"a",d0
+	bcs.s	.LFaux
+	cmp.b	#"z",d0
+	bls.s	.LVrai
+	cmp.b	#128,d0
+	bcc.s	.LVrai
+.LFaux:	moveq	#0,d0
+	rts
+.LVrai:	moveq	#-1,d0
+	rts
+
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_WaitMul
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)
+	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEBUT DES ROUTINES DIALOGUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Start_Dialogs
+; - - - - - - - - - - - - -
+
+; ___________________________________________________________________________
+;
+; 	Initialisation d'un canal de dialogue
+; ___________________________________________________________________________
+;
+; IN
+;	A0= 	Adresse du programme
+;	A1=	Adresse banque puzzle
+;	A2=	Base des messages
+;	D0=	Numero du canal
+;	D1=	Longueur Buffer
+;	D2=	Nombre de Variables internes
+;	D3=	Flags ouverture
+;			Bit0= Recopier la chaine origine?
+; OUT
+;	D0=	Erreur
+;	D1= 	Position dans le programme si erreur
+;	A0=	Adresse du canal
+;	A1=	Adresse des variables du canal
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_OpenChannel
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	addq.l	#1,d2
+	movem.l	a0-a2/d0-d2,-(sp)
+	lsl.l	#2,d2
+	and.w	#$FFFE,d1
+	add.l	d1,d2
+	add.l	#Dia_Vars,d2
+; Boite d�ja en route?
+; ~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_Dia_GetChannel
+	bne	.Deja
+; Un ecran ouvert?
+; ~~~~~~~~~~~~~~~~
+	tst.l	T_EcCourant(a5)
+	beq	.Scnop
+; Reserve la zone de memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Cur_Dialogs(a5),a0
+	move.l	d2,d0				Longueur buffer
+	Rjsr	L_Lst.New
+	beq	.Mem
+	lea	8(a1),a4
+	move.l	(sp)+,Dia_Channel(a4)		Numero de la boite
+	move.l	(sp)+,d2			Longueur du buffer
+	move.l	(sp)+,Dia_NVar(a4)		Nombre de variables
+	move.l	(sp)+,a2			Adresse du programme
+	move.l	(sp)+,Dia_Puzzle(a4)		Banque de puzzle
+	move.l	(sp)+,Dia_Messages(a4)
+	move.l	sp,Dia_Sp(a4)
+; Branche la routine ClearVar
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rjsr	L_Dia_ClearVar
+; Stocke le Numero / Adresse de l'�cran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_EcCourant(a5),a0
+	move.l	a0,Dia_Screen(a4)
+	move.w	EcNumber(a0),Dia_ScreenNb(a4)
+; Init des couleurs sliders
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	SlDInit(pc),a0
+	lea	Dia_SlDefault(a4),a1
+	moveq	#16-1,d0
+.Se	move.b	(a0)+,(a1)+
+	dbra	d0,.Se
+; Copie le programme dans une espace memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	move.w	(a2)+,d0
+	beq	.Synt
+	move.l	a2,Dia_Programs(a4)
+	clr.l	Dia_ProgLong(a4)
+	sub.l	a6,a6
+	btst	#0,d3
+	beq.s	.PaCop
+	move.l	d0,d1
+	addq.l	#4,d0
+	move.l	d0,Dia_ProgLong(a4)
+	SyCall	MemFast
+	beq	.Mem2
+	move.l	a0,Dia_Programs(a4)
+.Copy	move.b	(a2)+,(a0)+
+	subq.w	#1,d1
+	bne.s	.Copy
+	clr.b	(a0)
+.PaCop	move.l	Dia_Programs(a4),a6
+; Trouve le debut et la fin du buffer interne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Dia_NVar(a4),d0
+	lsl.l	#2,d0
+	lea	Dia_Vars(a4),a3
+	add.l	d0,a3
+	move.l	a3,Dia_Labels(a4)
+	move.l	a3,Dia_Buffer(a4)
+	lea	0(a3,d2.l),a0
+	move.l	a0,Dia_Pile(a4)
+; Trouve les labels, defini les instructions supplementaires
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.l	(a3)
+	subq.l	#1,(a3)
+.INext	Rbsr	L_Dia_Chr		Premiere lettre
+	beq	.Quit
+	cmp.b	#"[",d0
+	beq.s	.INext
+	cmp.b	#"]",d0
+	beq.s	.INext
+	move.b	d0,d1			Deuxieme lettre
+	Rbsr	L_Dia_Chr
+	beq	.Synt
+	lsl.w	#8,d1
+	move.b	d0,d1
+	Rlea	L_Dia_Instr,0		Exploration des tokens
+	move.l	a0,a1
+	moveq	#Dia_NInstr-1,d0
+	moveq	#-1,d7
+.Find	addq.w	#1,d7
+	cmp.w	(a0)+,d1
+	dbeq	d0,.Find
+	tst.w	d0
+	bmi	.PaDef
+; Un label?
+	cmp.w	#28,d7			Label?
+	beq	.Lab
+	cmp.w	#35,d7			Instruction?
+	beq	.Inst
+; Saute les parametres
+	move.w	Dia_NParam-Dia_Instr-2(a0),d2
+	beq.s	.NoPar
+; Appelle l'evaluation
+.Param	bsr	.Evalue
+	subq.w	#1,d2
+	beq.s	.PFin
+	cmp.b	#",",d0
+	beq.s	.Param
+	bne	.NPar
+.PFin	cmp.b	#",",d2
+	beq	.NPar
+	bra	.INext
+; Pas de parametres: un separateur
+.NoPar	Rbsr	L_Dia_Chr
+	beq	.Synt
+	bcc	.INext
+	bra	.Synt
+; Fixe les bornes du buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+.Quit	clr.l	(a3)
+	subq.l	#1,(a3)+
+	move.l	a3,Dia_Buffer(a4)
+	move.l	a3,Dia_PBuffer(a4)
+	clr.l	(a3)
+; Ok, pas d'erreur!
+; ~~~~~~~~~~~~~~~~~
+	move.l	a4,a0
+	lea	Dia_Vars(a4),a1
+	movem.l	(sp)+,a2-a6/d2-d7
+	moveq	#0,d0
+	rts
+
+; Erreur avant verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Scnop	moveq	#EDia_Screen,d0
+	bra.s	.Err
+.Mem	moveq	#EDia_OMem,d0
+	bra.s	.Err
+.Deja	moveq	#EDia_ChanAD,d0
+.Err	moveq	#0,d1
+	lea	3*4+3*4(sp),sp
+	movem.l	(sp)+,a2-a6/d2-d7
+	tst.l	d0
+	rts
+; Messages d'erreur pendant verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NPar	moveq	#EDia_NPar,d2
+	bra.s	.Err2
+.ALab	moveq	#EDia_LabAD,d2
+	bra.s	.Err2
+.Mem2	sub.l	a6,a6
+	moveq	#EDia_OMem,d2
+	bra.s	.Err3
+.Synt	moveq	#EDia_Syntax,d2
+; Efface le buffer
+.Err2	sub.l	Dia_Programs(a4),a6
+.Err3	move.l	Dia_Sp(a4),sp
+; Efface le buffer
+	move.l	a4,a0
+	Rbsr	L_Dia_CloseA0
+; Pointe l'erreur en D1
+	move.l	a6,d1
+	move.l	d2,d0
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+; Definition d'une instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Inst	Rbsr	L_Dia_Chr
+	beq	.Synt
+	bcc	.Synt
+	bmi	.Synt
+	move.b	d0,d1
+	lsl.w	#8,d1
+	Rbsr	L_Dia_Chr
+	bcc	.Synt
+	move.b	d0,d1
+; Une instruction deja definie?
+	Rlea	L_Dia_Instr,0		Exploration des tokens
+	moveq	#Dia_NInstr-1,d0
+.UFind	cmp.w	(a0)+,d1
+	dbeq	d0,.UFind
+	tst.w	d0
+	bpl	.Synt
+; Recherche dans le labels
+	move.l	Dia_Labels(a4),a0
+.IChk	move.w	(a0),d0
+	addq.l	#6,a0
+	bmi.s	.IOk
+	cmp.w	d1,d0
+	bne.s	.IChk
+	bra	.ALab
+; Poke dans les labels
+.IOk	move.w	d1,(a3)+		Adresse dans la liste
+	Rbsr	L_Dia_Chr
+	cmp.b	#",",d0			Une virgule
+	bne	.Synt
+	Rbsr	L_Dia_Chr		Trouve le nombre de params
+	beq	.Synt
+	bcc	.Synt
+	bpl	.Synt
+	addq.l	#4,a3
+	Rbsr	L_Dia_FChif
+	move.l	(a3),d1			Jusqu'� 16 parametres
+	cmp.l	#9,d1
+	bhi	.Synt
+	move.w	d1,(a3)+
+	Rbsr	L_Dia_Chr		Saute le ;
+	bcs	.Synt
+	Rbsr	L_Dia_Chr		Adresse du debut de la routine
+	cmp.b	#"[",d0
+	bne	.Synt
+	move.l	a6,d0
+	sub.l	Dia_Programs(a4),d0
+	move.w	d0,(a3)+
+	clr.l	(a3)			Marque la fin des labels
+	subq.l	#1,(a3)
+	bra	.INext
+; Trouve le numero du label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+.Lab	Rbsr	L_Dia_Chr
+	beq	.Synt
+	bcc	.Synt
+	bpl	.Synt
+	addq.l	#4,a3
+	Rbsr	L_Dia_FChif
+	move.l	(a3),d1
+	cmp.l	#65536,d1
+	bcc	.Synt
+	clr.l	(a3)
+	subq.l	#1,(a3)
+	move.l	Dia_Labels(a4),a0
+.Chk	move.l	(a0),d0
+	addq.l	#6,a0
+	bmi.s	.Ok
+	cmp.l	d1,d0
+	bne.s	.Chk
+	bra	.ALab
+.Ok	move.l	d1,(a3)+
+	Rbsr	L_Dia_Chr		Saute le separateur
+	beq	.Synt
+	bcs	.Synt
+	move.l	a6,d0
+	sub.l	Dia_Programs(a4),d0
+	move.w	d0,(a3)+
+	clr.l	(a3)
+	subq.l	#1,(a3)
+	bra	.INext
+; Appel d'un UI: saute les parametres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaDef	Rbsr	L_Dia_Chr
+	beq	.Synt
+	bcc	.Dfin
+	subq.l	#1,a6
+.Dloop	bsr	.Evalue
+	cmp.b	#",",d0
+	beq.s	.Dloop
+.Dfin	bra	.INext
+; Evaluation d'une expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Evalue
+.ELoop	Rbsr	L_Dia_Chr		Premiere lettre
+	bmi.s	.Chiffre
+	bvs.s	.Signe
+	beq	.Synt
+	bcc	.EFini
+	Rlea	L_Dia_FTokens,1
+	move.b	-64(a1,d0.w),d0		Offset des codes
+	beq	.Synt
+	lea	32(a1,d0.w),a1		Pointe la liste
+	Rbsr	L_Dia_Chr
+.FLoop	move.w	(a1)+,d1		Trouve le bon
+	beq	.Synt
+	cmp.b	d0,d1
+	bne.s	.FLoop
+	cmp.b	#'"',d1				"
+	beq.s	.Guil
+	cmp.b	#"'",d1				'
+	beq.s	.Guil
+	bra.s	.ELoop
+.Signe	Rlea	L_Dia_FTokens,1
+	lea	32(a1),a1
+	bra.s	.FLoop
+.Chiffre
+	cmp.b	#"%",d0
+	beq.s	.BLoop
+	cmp.b	#"$",d0
+	beq.s	.HLoop
+.DLoop	Rbsr	L_Dia_ChrC
+	bmi.s	.CFini
+	cmp.b	#10,d0
+	bcs.s	.DLoop
+	bra.s	.CFini
+.BLoop	Rbsr	L_Dia_ChrC
+	bmi.s	.CFini
+	cmp.b	#2,d0
+	bcs.s	.BLoop
+	bra.s	.CFini
+.HLoop	Rbsr	L_Dia_ChrC
+	bmi.s	.CFini
+	cmp.b	#10,d0
+	bcs.s	.HLoop
+	add.b	#"0"-"A",d0
+	bmi.s	.CFini
+	cmp.b	#6,d0
+	bcs.s	.HLoop
+.CFini	subq.l	#1,a6
+	bra	.ELoop
+; Des guillemets
+.Guil	move.b	(a6)+,d0
+	cmp.b	#" ",d0
+	bcs	.Synt
+	cmp.b	d0,d1
+	bne.s	.Guil
+	bra	.ELoop
+; On a fini l'expression
+.EFini	rts
+; Init des sliders par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SlDInit	dc.b 0,0,0,1,4,4,4,1
+	dc.b 0,0,0,1,3,3,3,1
+	even
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; Demande un espace buffer temporaire
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetBuffer
+; - - - - - - - - - - - - -
+	movem.l	a1/d1,-(sp)
+	move.l	Dia_ABuffer(a4),a0
+	addq.w	#1,d0
+	and.w	#$FFFE,d0
+	lea	0(a0,d0.w),a1
+	move.l	a1,d1
+	cmp.l	a3,d1
+	Rbcc	L_Dia_OBuffer
+	move.l	d1,Dia_ABuffer(a4)
+	move.w	d0,(a0)
+; Nettoyage
+	lea	4(a0),a1
+.C	clr.w	(a1)+
+	cmp.l	a1,d1
+	bhi.s	.C
+	clr.l	(a1)
+	movem.l	(sp)+,a1/d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; Memorise la position du buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_SetBuffer
+; - - - - - - - - - - - - -
+	move.l	Dia_ABuffer(a4),Dia_PBuffer(a4)
+	rts
+
+; ___________________________________________________________________________
+;
+;	Active l'�cran d'une boite de dialogue
+; ___________________________________________________________________________
+;
+; IN
+;	A4=	Boite de dialogue
+; OUT
+;	D0=	Erreur
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Active
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d1,-(sp)
+; Verifie la presence de l'�cran, du meme!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Dia_ScreenNb(a4),d0
+	lsl.w	#2,d0
+	add.w	#T_EcAdr,d0
+	move.l	0(a5,d0.w),d0
+	cmp.l	Dia_Screen(a4),d0
+	bne.s	.Err
+; Stocke l'ancien ecran
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.w	#-1,Dia_ScreenOld(a4)
+	move.l	T_EcCourant(a5),a0
+	move.w	EcNumber(a0),d0
+	cmp.w	Dia_ScreenNb(a4),d0
+	beq.s	.Deja
+; Active le nouvel ecran
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	d0,Dia_ScreenOld(a4)
+	move.w	Dia_ScreenNb(a4),d1
+	EcCall	Active
+; Stocke la fenetre active
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Deja	WiCall	GAdr
+	move.w	d1,Dia_WindOld(a4)
+	move.w	d1,Dia_WindOn(a4)
+; Ok!
+; ~~~
+	moveq	#0,d0
+	bra.s	.Out
+; Erreur, l'�cran est modifie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Err	moveq	#EDia_Screen,d0
+.Out	movem.l	(sp)+,a0-a1/d1
+	rts
+
+; ___________________________________________________________________________
+;
+;	Re-Active l'ancien ecran
+; ___________________________________________________________________________
+;
+; IN
+;	A4=	Boite de dialogue
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_ReActive
+; - - - - - - - - - - - - -
+	movem.l	d0-d1/a0-a1,-(sp)
+; Une fenetre d'�dition en route?
+	move.l	Dia_Edited(a4),d0
+	ble.s	.Skip
+	move.l	d0,a0
+	Rbsr	L_Dia_EdActive
+	bra.s	.Meme
+; Remet la fenetre de fond
+.Skip	move.w	Dia_WindOld(a4),d1
+	cmp.w	Dia_WindOn(a4),d1
+	beq.s	.Meme
+	move.w	d1,Dia_WindOn(a4)
+	WiCall	QWindow
+; Remet l'ancien ecran
+.Meme	move.w	Dia_ScreenOld(a4),d1
+	bmi.s	.Deja
+	EcCall	Active
+	move.w	#-1,Dia_ScreenOld(a4)
+.Deja	movem.l	(sp)+,d0-d1/a0-a1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Branchement de la routine de fermeture CLEARVAR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_ClearVar
+; - - - - - - - - - - - - -
+	move.l	a2,-(sp)
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	lea	.Struc1(pc),a1
+	lea	Sys_DefaultRoutines(a5),a2
+	SyCall	AddRoutine
+	Rlea	L_Dia_AutoTest,0
+	move.l	a0,GoTest_Dialog(a5)
+	move.l	(sp)+,a2
+	rts
+.Struc	dc.l	0
+	bra.s	.Clr
+.Struc1	dc.l	0
+.Clr	Rbra	L_Dia_CloseChannels
+
+; ___________________________________________________________________________
+;
+;	Effacement de tous les canaux de dialogues
+; ___________________________________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_CloseChannels
+; - - - - - - - - - - - - -
+.Loop	move.l	Cur_Dialogs(a5),a0
+	move.l	(a0),d0
+	beq.s	.Out
+	move.l	d0,a0
+	move.l	8(a0),d0
+	Rbsr	L_Dia_CloseChannel
+	bra.s	.Loop
+.Out	rts
+
+; ___________________________________________________________________________
+;
+;	Effacement d'un canal de dialogue
+; ___________________________________________________________________________
+;
+; IN
+;	D0=	Numero du canal
+; OUT
+;	D0=	Erreurs
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_CloseChannel
+; - - - - - - - - - - - - -
+	movem.l	d2,-(sp)
+; Efface une boite existante
+	move.l	d0,d2
+	Rbsr	L_Dia_EffChannel
+; Efface la structure
+	move.l	d2,d0
+	Rbsr	L_Dia_GetChannel
+	beq.s	.Err
+	Rbsr	L_Dia_CloseA0
+	moveq	#0,d0
+.Out	movem.l	(sp)+,d2
+	rts
+.Err	moveq	#EDia_ChanND,d0
+	bra.s	.Out
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Ferme le canal A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_CloseA0
+; - - - - - - - - - - - - -
+	pea	-8(a0)
+	move.l	Dia_Programs(a0),d0
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	Dia_ProgLong(a0),d0
+	beq.s	.Skip
+	SyCall	MemFree
+.Skip	move.l	(sp)+,a1
+	move.l	Cur_Dialogs(a5),a0
+	Rjsr	L_Lst.Del
+	rts
+
+; _______________________________________________________________________
+;
+;	Execution Instantann�e
+; _______________________________________________________________________
+;
+; IN
+;	A0=	Programme
+;	A1= 	Puzzle
+;	A2=	Messages
+;	D0=	X
+;	D1=	Y
+;	D2=	Variable 0
+;	D3=	Variable 1
+;	D4=	Variable 2
+;	D5=	Flags
+;	D6=	Buffer
+; OUT
+;	D0=	Erreur
+;	D1=	Reponse
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_RunQuick
+; - - - - - - - - - - - - -
+	movem.l	d2-d7,-(sp)
+; Trouve le bon numero de canal
+	movem.l	d0/d1/a0/a1,-(sp)
+	move.l	#65536,d7
+.Find	move.l	d7,d0
+	Rbsr	L_Dia_GetChannel
+	beq.s	.Ok
+	addq.l	#1,d7
+	bra.s	.Find
+.Ok	movem.l	(sp)+,d0/d1/a0/a1
+; Ouvre le canal
+	movem.l	d0-d1,-(sp)
+	movem.l	d2-d4,-(sp)
+	move.l	d7,d0
+	move.l	d6,d1
+	moveq	#16,d2
+	move.l	d5,d3
+	Rbsr	L_Dia_OpenChannel
+	bne	.Err
+; Met les variables d'entree
+	move.l	(sp)+,(a1)+
+	move.l	(sp)+,(a1)+
+	move.l	(sp)+,(a1)+
+; Demarre le programme
+	move.l	d7,d0
+	moveq	#-1,d1
+	movem.l	(sp)+,d2-d3
+	Rbsr	L_Dia_RunProgram
+; Efface le canal
+	movem.l	d0/d1,-(sp)
+	move.l	d7,d0
+	Rbsr	L_Dia_CloseChannel
+	movem.l	(sp)+,d0/d1
+.Out	movem.l	(sp)+,d2-d7
+	tst.w	d0
+	rts
+.Err	lea	5*4(sp),sp
+	bra.s	.Out
+
+; _______________________________________________________________________
+;
+;	Update d'une zone
+; _______________________________________________________________________
+;
+; IN
+;	D0=	Numero du canal
+;	D1=	Numero de la zone
+;	D2=	Parametre I
+;	D3=	Parametre II
+;	D4=	Parametre III
+; OUT
+;	D0=	Erreur
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Update
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	d4,d5
+	move.l	d3,d4
+	move.l	d2,d3
+	move.l	d1,d2
+	Rbsr	L_Dia_GetChannel
+	beq.s	.NF
+	move.l	a0,a4
+	moveq	#0,d0
+	btst	#0,Dia_RFlags(a4)
+	beq.s	.Out
+	move.l	Dia_Pile(a4),a3
+	Rbsr	L_Dia_Active
+	bne.s	.NF
+	Rbsr	L_Dia_ZUpdate
+	Rbsr	L_Dia_ReActive
+	move.w	Dia_Error(a4),d0	Pas d'erreur, revient directement
+	beq.s	.Out
+	move.w	Dia_ErrorPos(a4),d1	Position de l'erreur
+	ext.l	d1
+.Out	movem.l	(sp)+,d2-d7/a2-a6
+	ext.l	d0
+	rts
+.NF	moveq	#EDia_ChanND,d0
+	bra.s	.Out
+
+; _______________________________________________________________________
+;
+;	Execution / Demarrage d'un dialogue
+; _______________________________________________________________________
+;
+; IN
+;	D0=	Numero du canal
+;	D1=	-1 / Numero du programme
+;	D2=	Base X
+;	D3=	Base Y
+; OUT
+;	D0=	Erreur
+;	D1=	Parametre eventuel
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_RunProgram
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	d0,d5
+	move.l	d1,d4
+; Va effacer une boite d�ja en route
+	Rbsr	L_Dia_EffChannel
+; Trouve l'adresse du canal
+	move.l	d5,d0
+	Rbsr	L_Dia_GetChannel
+	beq	.ChanNF
+	move.l	a0,a4
+; Base X / Base Y
+	move.l	#EntNul,d0
+	cmp.l	d0,d2
+	beq.s	.Sk1
+	move.l	d2,Dia_BaseX(a4)
+.Sk1	cmp.l	d0,d3
+	beq.s	.Sk2
+	move.l	d3,Dia_BaseY(a4)
+.Sk2
+; Trouve l'adresse du programme
+	move.l	Dia_Programs(a4),a6
+	move.l	d4,d0
+	bmi.s	.Palab
+	Rbsr	L_Dia_GetLabel
+	beq	.LabNF
+	add.l	d0,a6
+.Palab
+; Prepare les piles
+	move.l	Dia_Pile(a4),a3
+	moveq	#0,d6
+	moveq	#0,d7
+	move.l	Dia_Buffer(a4),a0
+	move.l	a0,Dia_PBuffer(a4)
+	clr.l	(a0)
+	clr.l	Dia_LastKey(a4)
+	clr.l	Dia_Edited(a4)
+	clr.l	Dia_LastZone(a4)
+	clr.w	Dia_XA(a4)
+	clr.w	Dia_YA(a4)
+	clr.w	Dia_XB(a4)
+	clr.w	Dia_YB(a4)
+	clr.w	Dia_Return(a4)
+	clr.w	Dia_Error(a4)
+	clr.w	Dia_Users(a4)
+	clr.l	Dia_PUsers(a4)
+	clr.w	Dia_NPUsers(a4)
+	clr.l	Dia_Release(a4)
+; Active l'�cran
+	Rbsr	L_Dia_Active
+	bne.s	.Err
+; Writing 0
+	move.l	T_RastPort(a5),a1
+	moveq	#0,d0
+	move.w	d0,Dia_Writing(a4)
+	GfxCa5	SetDrMd
+; Appelle le programme
+	bset	#0,Dia_RFlags(a4)	Faire un effacement
+	bclr	#1,Dia_RFlags(a4)	Runn�?
+	bclr	#2,Dia_RFlags(a4)	Pas FREEZE
+	Rbsr	L_Dia_ClearKey		Plus de touches
+	Rbsr	L_Dia_Loop
+	Rbsr	L_Dia_ClearKey		Plus de touches
+	btst	#1,Dia_RFlags(a4)
+	bne.s	.Runn�
+; Initialise pour les tests
+	Rbsr	L_Dia_EdFirst		Premiere ligne EDIT
+	Rbsr	L_Dia_Patch
+	Rbsr	L_Dia_ReActive		Remet l'ancien ecran
+	move.w	Dia_Error(a4),d0	Pas d'erreur, revient directement
+	beq.s	.OOut
+.Err	move.l	a4,a0			Erreur, efface ce qui a ete dessin�
+	Rbsr	L_Dia_EffChanA0
+	move.w	Dia_Error(a4),d0	Type de l'erreur
+	ext.l	d0
+.OErr	move.w	Dia_ErrorPos(a4),d1	Position de l'erreur
+	ext.l	d1
+.OOut	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+; Un RUn a eu lieu!
+; ~~~~~~~~~~~~~~~~~
+.Runn�	move.l	a4,a0			Efface le canal
+	Rbsr	L_Dia_EffChanA0
+	move.w	Dia_Return(a4),d1
+	ext.l	d1
+	move.w	Dia_Error(a4),d0
+	beq.s	.OOut
+	bra.s	.OErr
+; Programme non trouve
+; ~~~~~~~~~~~~~~~~~~~~
+.LabNF	moveq	#EDia_LabND,d0
+	bra.s	.OOut
+; Channel not found
+; ~~~~~~~~~~~~~~~~~
+.ChanNF	moveq	#EDia_ChanND,d0
+	bra.s	.OOut
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Trouve le label D0>>>D0
+;	BEQ= 	pas trouve
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetLabel
+; - - - - - - - - - - - - -
+	move.l	Dia_Labels(a4),a0
+.Loop	move.l	(a0)+,d1
+	addq.l	#2,a0
+	bmi.s	.Err
+	cmp.l	d0,d1
+	bne.s	.Loop
+	moveq	#0,d0
+	move.w	-2(a0),d0
+	rts
+.Err 	moveq	#0,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Freeze tous les canaux
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_FreezeChannels
+; - - - - - - - - - - - - -
+	move.l	d2,-(sp)
+	move.l	d1,d2
+	move.l	Cur_Dialogs(a5),a1
+	bra.s	.In
+.Loop	move.l	d0,a1
+	lea	8(a1),a0
+	Rbsr	L_Dia_FrzA0
+.In	move.l	(a1),d0
+	bne.s	.Loop
+	movem.l	(sp)+,d2
+	rts
+; _______________________________________________________________________
+;
+;	FREEZE / UNFREEZE  canal
+; _______________________________________________________________________
+;
+; IN
+;	D0=	Numero du canal
+;	D1=	Freeze (-1) Unfreeze (0)
+; OUT
+;	D0=	Erreur
+;
+; Un seul canal
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_FreezeChannel
+; - - - - - - - - - - - - -
+	move.l	d2,-(sp)
+	move.l	d1,d2
+	Rbsr	L_Dia_GetChannel
+	beq.s	.NF
+	Rbsr	L_Dia_FrzA0
+.Ok	moveq	#0,d0
+.Out	movem.l	(sp)+,d2
+	rts
+; Erreur
+.NF	moveq	#EDia_ChanND,d0
+	bra.s	.Out
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_FrzA0
+; - - - - - - - - - - - - -
+	bclr	#2,Dia_RFlags(a0)
+	tst.w	d2
+	beq.s	.Skip
+	bset	#2,Dia_RFlags(a0)
+.Skip	rts
+
+; _______________________________________________________________________
+;
+;	Effacement d'un canal
+; _______________________________________________________________________
+;
+; IN
+;	D0=	Numero du canal
+; OUT
+;	D0=	Erreur
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_EffChannel
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_GetChannel
+	beq.s	.Err
+	Rbsr	L_Dia_EffChanA0
+	moveq	#0,d0
+	rts
+.Err	moveq	#EDia_ChanND,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; Efface une boite de dialogue dans un canal A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EffChanA0
+; - - - - - - - - - - - - -
+	movem.l	a2-a4/a6/d2-d7,-(sp)
+	move.l	a0,a4
+; Faut-il effacer?
+	bclr	#0,Dia_RFlags(a4)
+	beq	.PaEff
+; Active l'ancien ecran
+	Rbsr	L_Dia_Active
+	bne	.PaEff
+; Efface les fenetres / Zones r�serv�es par le programme
+	clr.l	-(sp)
+	move.l	Dia_Buffer(a4),a6
+	bra.s	.EIn
+; Une ligne d'edition
+.ELoop	cmp.w	#Dia_EdMark,2(a6)	Une ligne d'edition
+	bne.s	.PaEd
+	move.l	a6,a0			Efface la fenetre
+	Rbsr	L_Dia_EdEnd
+; Un bouton
+.PaEd	cmp.w	#Dia_BlMark,2(a6)
+	bne.s	.PaBl
+	move.l	a6,-(sp)
+; Une liste
+.PaBl	cmp.w	#Dia_LiMark,2(a6)
+	bne.s	.PaLi
+	move.l	a6,a2
+	Rbsr	L_Dia_LiEnd
+; Un Texte
+.PaLi	cmp.w	#Dia_TxMark,2(a6)
+	bne.s	.PaTx
+	move.l	a6,a2
+	Rbsr	L_Dia_TxEnd
+; Suivant dans le buffer
+.PaTx	add.w	(a6),a6
+.EIn	tst.w	(a6)
+	bne.s	.ELoop
+; Efface les blocs dans l'ordre inverse
+	bra.s	.BlIn
+.BlLp	move.l	d0,a6
+	moveq	#0,d1
+	move.w	Dia_BlNumber(a6),d1
+	move.l	#EntNul,d2
+	move.l	d2,d3
+	move.l	d3,d4
+	move.l	d4,d5
+	move.l	Buffer(a5),a1
+	EcCall	BlPut
+	moveq	#0,d1
+	move.w	Dia_BlNumber(a6),d1
+	EcCall	BlDel
+.BlIn	move.l	(sp)+,d0
+	bne.s	.BlLp
+	Rbsr	L_Dia_Patch
+; Remet l'ancien ecran
+	clr.l	Dia_Edited(a4)
+	Rbsr	L_Dia_ReActive
+; Remet le buffer en place
+.PaEff	movem.l	(sp)+,a2-a4/a6/d2-d7
+	rts
+
+; ___________________________________________________
+;
+;	Retourne l'adresse de la variable D0/D1
+; ___________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_GetVariable
+; - - - - - - - - - - - - -
+	move.l	d2,-(sp)
+	move.l	d1,d2
+	Rbsr	L_Dia_GetChannel
+	beq.s	.NFnd
+	cmp.l	Dia_NVar(a0),d2
+	bhi	.FCall
+	lsl.w	#2,d2
+	lea	Dia_Vars(a0),a0
+	add.w	d2,a0
+	moveq	#0,d0
+	bra.s	.Out
+.NFnd	moveq	#EDia_ChanND,d0
+	bra.s	.Out
+.FCall	moveq	#EDia_VarND,d0
+.Out	movem.l	(sp)+,d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retourne le numero de la zone sous D1/D2 dans le canal D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetZone
+; - - - - - - - - - - - - -
+	move.l	a4,-(sp)
+	movem.l	d1/d2,-(sp)
+	Rbsr	L_Dia_GetChannel
+	movem.l	(sp)+,d1/d2
+	beq	.NFnd
+	move.l	a0,a4
+	Rbsr	L_Dia_GetZ
+	moveq	#-1,d1
+	tst.l	d0
+	beq.s	.Out
+	move.l	d0,a0
+	move.w	Dia_ZoNumber(a0),d1
+	ext.l	d1
+	moveq	#0,d0
+.Out	move.l	(sp)+,a4
+	rts
+; Rien du tout!
+.NFnd	moveq	#EDia_ChanND,d0
+	bra.s	.Out
+
+; ___________________________________________________
+;
+;	Retourne la valeur de la zone D1/D2, Channel D0
+; ___________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_GetValue
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_GetZoneAd
+	beq	.NFnd
+	moveq	#0,d1
+	moveq	#0,d2
+; Un bouton normal / slider / liste
+	cmp.w	#Dia_BtMark,2(a0)
+	beq.s	.Po
+	cmp.w	#Dia_LiMark,2(a0)
+	beq.s	.Po
+	cmp.w	#Dia_SlMark,2(a0)
+	beq.s	.Po
+	cmp.w	#Dia_TxMark,2(a0)
+	beq.s	.Tx
+	cmp.w	#Dia_EdMark,2(a0)
+	beq.s	.Ed
+.Ok	moveq	#0,d0
+	rts
+; Rien du tout!
+.NFnd	moveq	#EDia_ChanND,d0
+	rts
+; Une valeur en chiffre, normale
+.Po	move.l	Dia_ZoPos(a0),d1
+	moveq	#0,d2
+	bra.s	.Ok
+; Un hyper texte
+.Tx	moveq	#0,d2
+	move.l	Dia_ZoPos(a0),d1	Vide!
+	bne.s	.Po
+	lea	Dia_TxBuffer(a0),a0
+	move.l	a0,d1
+	moveq	#2,d2
+	bra.s	.Ok
+; Une ligne d'�dition
+.Ed	cmp.w	#Dia_DiLong,(a0)
+	beq.s	.Di
+; Un texte
+	move.l	Dia_LEd+LEd_Buffer(a0),d1
+	moveq	#2,d2
+	bra.s	.Ok
+; Un chiffre
+.Di	move.l	Dia_LEd+LEd_Buffer(a0),a1
+	move.b	(a1)+,d0
+	cmp.b	#32,d0
+	bcs.s	.Di2
+	movem.l	a0/a3/a6/d7,-(sp)
+	move.l	a1,a6
+	lea	Dia_DiValue(a0),a3
+	clr.l	(a3)+
+	Rbsr	L_Dia_FChif
+	movem.l	(sp)+,a0/a3/a6/d7
+.Di2	move.l	Dia_DiValue(a0),d1
+	moveq	#0,d2
+	bra.s	.Ok
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; Retourne l'adresse de la zone Channel D0 / Zone D1 - D2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetZoneAd
+; - - - - - - - - - - - - -
+	movem.l	d2/d3,-(sp)
+	move.l	d1,d3
+	Rbsr	L_Dia_GetChannel
+	beq.s	.NFnd
+; Boucle d'exploration
+	subq.w	#1,d2
+	move.l	Dia_Buffer(a0),a1
+	bra.s	.In
+.Loop	cmp.w	#Dia_ZoMark,4(a1)
+	bne.s	.Next
+	cmp.w	Dia_ZoNumber(a1),d3
+	beq.s	.Fnd
+.Next	add.w	(a1),a1
+.In	tst.w	(a1)
+	bne.s	.Loop
+.NFnd	moveq	#0,d0
+	bra.s	.Out
+; Trouve?
+.Fnd	tst.w	d2
+	ble.s	.Skip
+	dbra	d2,.Next
+.Skip	move.l	a1,d0
+	move.l	d0,a0
+.Out	movem.l	(sp)+,d2/d3
+	rts
+
+
+; __________________________________________
+;
+; Positionne les variables en fonction de D0
+; __________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_SetVFlags
+; - - - - - - - - - - - - -
+	move.l	d2,-(sp)
+	bra.s	.In
+.Loop	lsr.w	#1,d0
+	moveq	#0,d2
+	addx.l	d2,d2
+	move.l	d2,(a0)+
+.In	dbra	d1,.Loop
+	movem.l	(sp)+,d2
+	rts
+
+; ___________________________________________
+;
+; Recupere les memes variables
+; ___________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_GetVFlags
+; - - - - - - - - - - - - -
+	move.w	d1,d0
+	lsl.w	#2,d0
+	add.w	d0,a0
+	moveq	#0,d0
+	bra.s	.Skip
+.Loop	lsl.w	#1,d0
+	tst.l	-(a0)
+	beq.s	.Skip
+	bset	#0,d0
+.Skip	dbra	d1,.Loop
+	rts
+
+;
+; Retourne le parametre d'une boite de dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; IN
+;	D0=	Channel
+; OUT
+;	D0=	Erreur
+;	D1=	Parametre
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_GetReturn
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_GetChannel
+	beq.s	.Err
+	moveq	#-1,d1
+	btst	#0,Dia_RFlags(a0)
+	beq.s	.Out
+	moveq	#0,d1
+	move.w	Dia_Return(a0),d1
+	clr.w	Dia_Return(a0)
+.Out	moveq	#0,d0
+	rts
+.Err	moveq	#EDia_ChanND,d0
+	rts
+
+;_____________________________________________________________________________
+;
+;					RESOURCE SCREEN OPEN
+;_____________________________________________________________________________
+;
+;	A0=	Adresse Puzzle
+;	D0=	Numero
+;	D1= 	Sx
+;	D2=	Sy
+;	D3=	Flash
+;	D4=	Interlaced? (-1:comme resource / 0-1: force)
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_RScOpen
+; - - - - - - - - - - - - -
+	movem.l	a2/d2-d7,-(sp)
+	subq.l	#8,sp
+	move.l	d3,(sp)
+	move.l	d2,d3			TY
+	move.l	d1,d2			TX
+	move.l	d0,d1			Numero
+	move.l	a0,a1
+	move.w	(a1),d0
+	lsl.w	#2,d0
+	lea	2(a1,d0.w),a1
+	move.w	(a1)+,d6		Nombre couleurs
+	ext.l	d6
+	move.w	(a1)+,d5		Mode
+	and.l	#$8004,d5
+	tst.w	d4			Force l'interlaced?
+	bmi.s	.Skm
+	bclr	#2,d5
+	tst.w	d4
+	beq.s	.Skm
+	bset	#2,d5
+.Skm	cmp.l	#4096,d6
+	bne.s	.ScOo0
+	moveq	#6,d4
+	or.w	#$0800,d5
+	moveq	#64,d6
+	bra.s	.ScOo2
+* Nombre de couleurs-> plans
+.ScOo0	moveq	#1,d4			* Nb de plans
+	moveq	#2,d0
+.ScOo1	cmp.l	d0,d6
+	beq.s	.ScOo2
+	lsl.w	#1,d0
+	addq.w	#1,d4
+	cmp.w	#7,d4
+	bcs.s	.ScOo1
+.ScOo2	EcCall	Cree
+	bne.s	.Err
+	move.l	a0,4(sp)
+* Fait flasher la couleur
+	move.l	(sp),d1			Efface le curseur
+	bne.s	.Fl
+	lea	.Cu0(pc),a1
+	bra.s	.Prn
+.Fl	moveq	#1,d0			Met le curseur
+	cmp.w	EcNbCol(a0),d1
+	bcc.s	.Err
+	moveq	#46,d0
+	Rjsr	L_Sys_GetMessage
+	move.l	a0,a1
+	EcCall	Flash
+	bne.s	.Err
+	move.l	(sp),d1
+	lea	.Cu1(pc),a1
+	add.b	#"0",d1
+	move.b	d1,2(a1)
+.Prn	WiCall	Print
+	moveq	#0,d0
+* Erreur
+.Err	tst.l	(sp)+
+	move.l	(sp)+,a0
+	movem.l	(sp)+,a2/d2-d7
+	tst.w	d0
+	rts
+.Cu0	dc.b	27,"C0",0
+.Cu1	dc.b	27,"D0",0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	LISTE DES INSTRUCTIONS DIALOGUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_Instr
+; - - - - - - - - - - - - -
+Dia_Instr	dc.w	"EX"		0 EXit
+		dc.w	"UN"		1 UNpack
+		dc.w	"LI"		2 LIne
+		dc.w	"BO"		3 BOx
+		dc.w	"SI"		4 SIze
+		dc.w	"BA"		5 BAse
+		dc.w	"PU"		6 PUzzle
+		dc.w	"SV"		7 Set Var
+		dc.w	"IL"		8 Illegal
+		dc.w	"PR"		9 PRint
+		dc.w	"PO"		10 Print Outline
+		dc.w	"IN"		11 INk
+		dc.w	"SF"		12 SetFont
+		dc.w	"SW"		13 SetWriting
+		dc.w	"SL"		14 SetLine
+		dc.w	"SP"		15 Set Pattern
+		dc.w	"BU"		16 BUtton
+		dc.w	"JP"		17 Jump
+		dc.w	"RU"		18 Run
+		dc.w	"BR"		19 Button Return
+		dc.w	"ED"		20 Edit Ascii
+		dc.w	"JS"		21 Jump to subroutine!
+		dc.w	"RT"		22 Rts!
+		dc.w	"BC"		23 Button Change
+		dc.w	"KY"		24 Affectation touche
+		dc.w	"SA"		25 Save
+		dc.w	"DI"		26 Digit
+		dc.w	"BL"		27 Block
+		dc.w	"LA"		28 Label
+		dc.w	"BQ"		29 Button Quit
+		dc.w	"HS"		30 Slider Horizontal
+		dc.w	"VS"		31 Slider Vertical
+		dc.w	"AL"		32 Active List
+		dc.w	"IL"		33 Inactive List
+		dc.w	"ZC"		34 Zone change
+		dc.w	"UI"		35 User Instruction
+		dc.w	"GB"		36 Graphic Box
+		dc.w	"GS"		37 Graphic Square
+		dc.w	"GL"		38 Graphic Line
+		dc.w	"IF"		39 If
+		dc.w	"SZ"		40 SetZonevar
+		dc.w	"XY"		41 XA YA XB YB
+		dc.w	"NW"		42 NoWait
+		dc.w	"VT"		43 VText
+		dc.w	"VL"		44 VLine
+		dc.w	"HT"		45 HyperText
+		dc.w	"CA"		46 Call
+		dc.w	"SM"		47 Screen Move
+		dc.w	"GE"		48 Graphic Ellipse
+		dc.w	"GP"		49 Graphic Plot
+		dc.w	"SS"		50 Set Slider
+Dia_NInstr	equ	 (*-Dia_Instr)/2
+Dia_NParam	dc.w	0		0 EXit
+		dc.w	3		1 UNpack X,Y,I
+		dc.w	4		2 LIne X,Y,I,SX
+		dc.w	5		3 BOx X,Y,I,SX,SY
+		dc.w	2		4 SIze X,Y
+		dc.w	2		5 BAse X,Y
+		dc.w	1		6 PUzzle I
+		dc.w	2		7 SetVar N,V
+		dc.w	0		8 Illegal
+		dc.w	4		9 Print X,Y,Text,Ink
+		dc.w	5		10 POutline X,Y,Text,P0,P1
+		dc.w	3		11 INk A,B,C
+		dc.w	2		12 SetFont Font,Style
+		dc.w	1		13 SetWrite Mode
+		dc.w	1		14 SetLine Line
+		dc.w	2		15 SetFill Pattern,Out
+		dc.w	8		16 Button z,x,y,sx,sy,pos,min,max
+		dc.w	1		17 Jump
+		dc.w	2		18 Teste
+		dc.w	1		19 Button Return
+		dc.w	8		20 Edit n,x,y,sx,sxm,$$,pap,pen
+		dc.w	1		21 Jump Sub
+		dc.w	0		22 Rts
+		dc.w	2		23 Button Change
+		dc.w	2		24 Affectation touche
+		dc.w	1		25 Save
+		dc.w	8		26 Digit n,x,y,sx,var#,flag,pap,pen
+		dc.w	1		27 Block 2
+		dc.w	1		28 LAbel N
+		dc.w	0		29 Button Quit
+		dc.w	9		30 Slider H
+		dc.w	9		31 Slider V
+		dc.w	10		32 Active List
+		dc.w	10		33 Inactive List
+		dc.w	2		34 Zone Change
+		dc.w	0		35 INstruction
+		dc.w	4		36 Graphic Box x,y,x,y
+		dc.w	4		37 Graphic Square x,y,x,y
+		dc.w	4		38 Graphic Line x,y,x,y
+		dc.w	1		39 IF
+		dc.w	1		40 SetZonevar
+		dc.w	4		41 XY
+		dc.w	0		42 NoWait
+		dc.w	4		43 HText x,y,t,pen
+		dc.w	4		44 VLine x,y,i,y2
+		dc.w 	10		45 HText z,x,y,sx,sy,txt,pos,flags,pap,pen;[]
+		dc.w	1		46 CAll ad
+		dc.w	0		47 Screen Move
+		dc.w	4		48 Graphic Ellipse x,y,r1,r2
+		dc.w	3		49 Graphic Plot x,y,i
+		dc.w	8		50 Set Slider a,b,c,p,a,b,c,p
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEFINITIONS DES TOKENS FONCTIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_FTokens
+; - - - - - - - - - - - - -
+Dia_FTokens	IncBin	"bin/+Dialog_Funcs.bin"
+		Even
+
+* D�finition des fonctions
+* ~~~~~~~~~~~~~~~~~~~~~~~~
+*Dia_Foncs:
+* BX		0 - Base X
+* BY		1 - Base Y
+* SX		2 - Size X
+* SY		3 - Size Y
+* ++		4 - Plus
+* --		5 - Moins
+* **		6 - Mul
+* //		7 - Div
+* NE		8 - NEg
+* ME		9 - MEss
+* ME		10- MEss VIDE!
+* TW		11- Text Width
+* TH		12- Text Height
+* VA		13- Variable
+* ""		14- String 1
+* ''		15- String 2
+* CX		16- Centre Text
+* SW		17- Size of screen X
+* SH		18- Size of screen Y
+* MI		19- Minimum
+* MA		20- Maximum
+* BP		21- Button position
+* ##		22- Number
+* !!		23- Plus chaine
+* MZ		24- Message ZERO
+* XA		25- Position X2
+* YA		26- Position Y2
+* XB		27- Position X2
+* YB		28- Position Y2
+* AR		29- Array
+* ZP		30- Zone Position
+* P1		31- Param #
+* P2		32- Param #
+* P3		33- Param #
+* P4		34- Param #
+* P5		35- Param #
+* P6		36- Param #
+* P7		37- Param #
+* P8		38- Param #
+* P9		39- Param #
+* ==		40- Equal
+* \\		41- Different
+* <<		42- Inferieur
+* >>		43- Superieur
+* &&		44- And
+* ||		45- Or
+* ZV		46- ZoneVar
+* ZN		47- ZoneNumber
+* TL		48- Text Length
+* AS		49- Array Size
+Dia_NFonc:	equ	50
+
+; ___________________________________________________________________________
+;
+;	GESTION DES BOITES DE DIALOGUE
+; ___________________________________________________________________________
+;
+
+; _____________________________________________________________________________
+;
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					INTERPRETATION DU PROGRAMME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_Loop
+; - - - - - - - - - - - - -
+Dia_Loop
+	movem.l	d2-d7/a2/a3/a6,-(sp)
+; Sauvegarde de la pile
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	sp,Dia_Sp(a4)
+; Boucle d'appel
+; ~~~~~~~~~~~~~~
+.INext	tst.w	Dia_Error(a4)		Sort si erreur
+	Rbne	L_Dia_Quit
+	Rbsr	L_Dia_Chr		Premiere lettre
+	Rbeq	L_Dia_Synt		DOIT finir par exit
+	cmp.b	#"]",d0			Routine finie?
+	Rbeq	L_Dia_Quit
+	move.b	d0,d1			Deuxieme lettre
+	Rbsr	L_Dia_Chr
+	lsl.w	#8,d1
+	move.b	d0,d1
+	Rlea	L_Dia_Instr,0		Exploration des tokens
+	move.l	a0,a1
+	moveq	#Dia_NInstr-1,d0
+.Find	cmp.w	(a0)+,d1
+	dbeq	d0,.Find
+	tst.w	d0
+	bmi	.Inst
+	move.l	a0,d0
+	sub.l	a1,d0
+	lsl.w	#1,d0
+	pea	.Jumps-4(pc,d0.w)
+	bra	.Params
+; Appel des instructions
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Jumps	Rbra	L_Dia_Quit		0
+	bra	Dia_Unpack		1
+	bra	Dia_Line		2
+	bra	Dia_Box			3
+	bra	Dia_Size		4
+	bra	Dia_Base		5
+	bra	Dia_Pu			6
+	bra	Dia_SetVar		7
+	bra	Dia_Illegal		8
+	bra	Dia_Text		9
+	bra	Dia_Outline		10
+	bra	Dia_SInk		11
+	bra	Dia_SFont		12
+	bra	Dia_SWrite		13
+	bra	Dia_SLine		14
+	bra	Dia_SFill		15
+	bra	Dia_Button		16
+	bra	Dia_Jump		17
+	bra	Dia_Run			18
+	bra	Dia_BR			19
+	bra	Dia_Edit		20
+	bra	Dia_JSub		21
+	bra	Dia_Rts			22
+	bra	Dia_BChange		23
+	bra	Dia_Key			24
+	bra	Dia_Block		25
+	bra	Dia_Digit		26
+	bra	Dia_Block2		27
+	bra	Dia_Label		28
+	bra	Dia_BQuit		29
+	bra	Dia_SliderH		30
+	bra	Dia_SliderV		31
+	bra	Dia_List		32
+	bra	Dia_List		33
+	bra	Dia_ZChange		34
+	Rbra	L_Dia_Synt		35 Instruction!
+	bra	Dia_GBox		36
+	bra	Dia_GSquare		37
+	bra	Dia_GLine		38
+	bra	Dia_If			39
+	bra	Dia_ZVar		40
+	bra	Dia_XY			41
+	bra	Dia_NWait		42
+	bra	Dia_VText		43
+	bra	Dia_VLine		44
+	bra	Dia_HyperText		45
+	bra	Dia_Call		46
+	bra	Dia_SMove		47
+	bra	Dia_GEllipse		48
+	bra	Dia_GPlot		49
+	bra	Dia_SetSlider		50
+
+; Prend les parametres
+; ~~~~~~~~~~~~~~~~~~~~
+.Params	move.l	Dia_PBuffer(a4),Dia_ABuffer(a4)
+	move.w	Dia_NParam-Dia_Instr-2(a0),d0
+	beq.s	.NoPar
+	cmp.w	#7,d0
+	bcc.s	.Call
+	move.w	d0,-(sp)
+	clr.w	-(sp)
+; Appelle l'evaluation
+.Param	Rbsr	L_Dia_Evalue
+; Pousse dans le bon registre
+	move.w	(sp),d1
+	jmp	.Move(pc,d1.w)
+.Move	move.l	d0,d2
+	bra.s	.Next
+	move.l	d0,d3
+	bra.s	.Next
+	move.l	d0,d4
+	bra.s	.Next
+	move.l	d0,d5
+	bra.s	.Next
+	move.l	d0,d6
+	bra.s	.Next
+	move.l	d0,d7
+; Un autre param?
+.Next	addq.w	#4,(sp)
+	subq.w	#1,2(sp)
+	bne.s	.Param
+	addq.l	#4,sp
+	bra.s	.Call
+; Pas de parametres
+; ~~~~~~~~~~~~~~~~~
+.NoPar	Rbsr	L_Dia_Chr
+; Appelle l'instruction
+; ~~~~~~~~~~~~~~~~~~~~~
+.Call	move.l	(sp)+,a0
+	jsr	(a0)
+	move.l	Dia_PBuffer(a4),a0
+	clr.l	(a0)
+	bra	.INext
+
+; Une instruction user!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Inst	move.l	Dia_Labels(a4),a0
+.ULoop	move.w	(a0)+,d0
+	addq.l	#4,a0
+	Rbmi	L_Dia_Synt
+	cmp.w	d0,d1
+	bne.s	.ULoop
+	cmp.w	#10,Dia_Users(a4)		Pas plus de 10 appels
+	Rbcc	L_Dia_Fonc
+; Pousse les anciennes valeurs
+	move.l	a3,-(sp)
+	move.l	Dia_Sp(a4),-(sp)
+; Adresse dans le programme
+	moveq	#0,d0
+	move.w	-(a0),d0
+	add.l	Dia_Programs(a4),d0
+	move.l	d0,-(sp)
+; Recupere les parametres
+	move.w	-(a0),-(sp)			Nombre de parametres
+	beq.s	.UNoPar
+	move.w	(sp),-(sp)
+.UPar	Rbsr	L_Dia_Evalue			Recupere les parametres
+	move.l	d0,-(a3)
+	subq.w	#1,(sp)
+	bne.s	.UPar
+	addq.l	#2,sp
+	bra.s	.UCall
+.UNoPar	Rbsr	L_Dia_Chr
+; Branche au programme
+.UCall	move.w	(sp)+,d1
+	move.l	(sp),d0				A6
+	exg	d0,a6
+	move.l	d0,(sp)
+	move.l	Dia_PUsers(a4),-(sp)		Position pile user
+	move.l	a3,Dia_PUsers(a4)
+	move.w	Dia_NPUsers(a4),-(sp)		Nombre params user
+	move.w	d1,Dia_NPUsers(a4)
+	addq.w	#1,Dia_Users(a4)
+	bsr	Dia_Loop
+	subq.w	#1,Dia_Users(a4)
+	move.w	(sp)+,Dia_NPUsers(a4)
+	move.l	(sp)+,Dia_PUsers(a4)
+	move.l	(sp)+,a6
+	move.l	(sp)+,Dia_Sp(a4)
+	move.l	(sp)+,a3
+	bra	.INext
+; ________________________________________________________________________
+;
+; 	INSTRUCTIONS DBL
+;
+
+; GRAPHIC PLOT d2x,d3y,d4ink
+; ~~~~~~~~~~~~
+Dia_GPlot
+	move.l	T_RastPort(a5),a1
+	move.l	d4,d0				Set Ink A
+	bmi.s	.Skip
+	GfxCa5	SetAPen
+.Skip	move.l	d2,d0
+	move.l	d3,d1
+	move.w	d0,Dia_XA(a4)
+	move.w	d0,Dia_YA(a4)
+	move.w	d1,Dia_XB(a4)
+	move.w	d1,Dia_YB(a4)
+	addq.w	#1,Dia_XB(a4)
+	addq.w	#1,Dia_YB(a4)
+	GfxCa5	WritePixel
+	rts
+
+; GRAPHIC ELLIPSE d2x,d3y,d4r1,d5r2
+; ~~~~~~~~~~~~~~~
+Dia_GEllipse
+	move.l	T_RastPort(a5),a1
+	move.l	d2,d0
+	move.l	d3,d1
+	move.l	d4,d2
+	Rble	L_Dia_Fonc
+	move.l	d5,d3
+	Rble	L_Dia_Fonc
+	move.w	d0,Dia_XA(a4)
+	move.w	d0,Dia_YA(a4)
+	move.w	d1,Dia_XB(a4)
+	move.w	d1,Dia_YB(a4)
+	add.l	Dia_BaseX(a4),d0
+	add.l	Dia_BaseY(a4),d1
+	GfxCa5	DrawEllipse
+	rts
+
+; GRAPHIC BOX d2x,d3y,d4x,d5y
+; ~~~~~~~~~~~
+Dia_GBox
+	move.l	T_RastPort(a5),a1
+	move.l	d2,d0
+	move.l	d3,d1
+	move.l	d4,d2
+	move.l	d5,d3
+	move.w	d0,Dia_XA(a4)
+	move.w	d1,Dia_YA(a4)
+	move.w	d2,Dia_XB(a4)
+	move.w	d3,Dia_YB(a4)
+	add.l	Dia_BaseX(a4),d0
+	add.l	Dia_BaseY(a4),d1
+	add.l	Dia_BaseX(a4),d2
+	add.l	Dia_BaseY(a4),d3
+	cmp.l	d0,d2
+	Rble	L_Dia_Fonc
+	cmp.l	d1,d3
+	Rble	L_Dia_Fonc
+	GfxCa5	RectFill
+	rts
+; GRAPHIC SQUARE d2x,d3y,d4x,d5y
+; ~~~~~~~~~~~~~~
+Dia_GSquare
+	move.l	a2,-(sp)
+	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	move.w	d4,Dia_XB(a4)
+	move.w	d5,Dia_YB(a4)
+	add.l	Dia_BaseX(a4),d2
+	add.l	Dia_BaseY(a4),d3
+	add.l	Dia_BaseX(a4),d4
+	add.l	Dia_BaseY(a4),d5
+	moveq	#16,d0
+	Rbsr	L_Dia_GetBuffer
+	move.l	T_RastPort(a5),a1
+	move.w	d2,36(a1)
+	move.w	d3,38(a1)
+	addq.l	#4,a0
+	move.l	a0,a2
+	move.w	d2,(a2)+
+	move.w	d5,(a2)+
+	move.w	d4,(a2)+
+	move.w	d5,(a2)+
+	move.w	d4,(a2)+
+	move.w	d3,(a2)+
+	move.w	d2,(a2)+
+	move.w	d3,(a2)+
+	addq.w	#1,d3
+	cmp.w	d5,d3
+	bcc.s	.IBx1
+	subq.w	#2,d3
+.IBx1	moveq	#4,d0
+	GfxCa5	PolyDraw
+	move.l	(sp)+,a2
+	rts
+; GRAPHIC LINE d2x d3y d4x d5y
+; ~~~~~~~~~~~~
+Dia_GLine
+	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	move.w	d4,Dia_XB(a4)
+	move.w	d5,Dia_YB(a4)
+	add.l	Dia_BaseX(a4),d2
+	add.l	Dia_BaseY(a4),d3
+	add.l	Dia_BaseX(a4),d4
+	add.l	Dia_BaseY(a4),d5
+	move.l	T_RastPort(a5),a1
+	move.w	d2,36(a1)
+	move.w	d3,38(a1)
+	move.l	d4,d0
+	move.l	d5,d1
+	GfxCa5	RDraw
+	rts
+
+; SAVE d2BLOCK
+; ~~~~~~~~~~~~
+Dia_Block
+	cmp.l	#"NobL",Dia_Magic(a5)
+	beq.s	Dia_NoBloc
+	moveq	#Dia_BlLong,d0
+	Rbsr	L_Dia_GetBuffer
+	move.w	#Dia_BlMark,2(a0)
+	move.w	d2,4(a0)
+	Rbsr	L_Dia_SetBuffer
+Dia_Block2
+	cmp.l	#"NobL",Dia_Magic(a5)
+	beq.s	Dia_NoBloc
+	move.l	d2,d1
+	move.l	Dia_BaseX(a4),d2
+	move.l	d2,d0
+	and.w	#$FFF0,d2
+	sub.l	d2,d0
+	move.l	Dia_BaseY(a4),d3
+	move.l	Dia_Sx(a4),d4
+	add.l	d0,d4
+	add.w	#15,d4
+	and.w	#$FFF0,d4
+	move.l	Dia_Sy(a4),d5
+	moveq	#0,d6
+	EcCall	BlGet
+	Rbne	L_Dia_Synt
+Dia_NoBloc
+	rts
+
+; KY d2CODE d3SHIFT
+; ~~
+Dia_Key
+	moveq	#Dia_KyLong,d0
+	Rbsr	L_Dia_GetBuffer
+	move.w	#Dia_KyMark,2(a0)
+	move.b	d2,Dia_KyCode(a0)
+	move.b	d3,Dia_KyShift(a0)
+	move.l	Dia_LastZone(a4),Dia_KyZone(a0)
+	Rbsr	L_Dia_SetBuffer
+	rts
+
+; IF d2condition [instructions]
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_If	Rbsr	L_Dia_Chr
+	cmp.b	#"[",d0
+	Rbne	L_Dia_Synt
+	tst.l	d2
+	beq.s	.Skip
+; Branche!
+; ~~~~~~~~
+	move.l	Dia_Sp(a4),-(sp)
+	bsr	Dia_Loop
+	move.l	(sp)+,Dia_Sp(a4)
+; Saute l'instruction
+; ~~~~~~~~~~~~~~~~~~~
+.Skip	moveq	#1,d1
+.Loop	move.b	(a6)+,d0
+	Rbeq	L_Dia_Synt
+	cmp.b	#"[",d0
+	beq.s	.Plus
+	cmp.b	#"]",d0
+	bne.s	.Loop
+	subq.w	#1,d1
+	bne.s	.Loop
+	rts
+.Plus	addq.w	#1,d1
+	bra.s	.Loop
+
+; JSub d2NUMERO
+; ~~~~
+Dia_JSub
+	move.l	a6,-(a3)
+	move.l	#"MoiM",-(a3)
+	bsr	Dia_Label
+	rts
+; RTs
+; ~~~
+Dia_Rts
+	cmp.l	#"MoiM",(a3)+
+	Rbne	L_Dia_Synt
+	move.l	(a3)+,a6
+	rts
+; Jump d2NUMERO
+; ~~~~
+Dia_Jump
+; Trouve un label D2
+; ~~~~~~~~~~~~~~~~~~
+Dia_Label
+	move.l	d2,d0
+	Rbsr	L_Dia_GetLabel
+	move.l	Dia_Programs(a4),a6
+	add.l	d0,a6
+	rts
+
+; Unpack Image d2X d3Y d4I
+; ~~~~~~~~~~~~
+Dia_Unpack
+	move.l	d2,-(sp)
+	move.l	Dia_Puzzle(a4),a0
+	move.l	d4,d0
+	add.l	Dia_PuzzleI(a4),d0
+	Rbeq	L_Dia_Synt
+	cmp.w	(a0),d0
+	Rbhi	L_Dia_Synt
+	lsl.w	#2,d0
+	add.l	-4+2(a0,d0.w),a0
+	move.l	Dia_Screen(a4),a1
+	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	move.w	d2,Dia_XB(a4)
+	move.w	d3,Dia_YB(a4)
+	move.l	d2,d1
+	move.l	d3,d2
+	add.l	Dia_BaseX(a4),d1
+	add.l	Dia_BaseY(a4),d2
+	Rbsr	L_UnPack_Bitmap
+	move.w	d0,Dia_PuzzleSx+2(a4)
+	add.w	d0,Dia_XB(a4)
+	swap	d0
+	move.w	d0,Dia_PuzzleSy+2(a4)
+	add.w	d0,Dia_YB(a4)
+	move.l	(sp)+,d2
+	rts
+; Dessin d'une ligne d2X d3Y d4I d5X2
+; ~~~~~~~~~~~~~~~~~~
+Dia_Line
+	movem.l	d2-d7,-(sp)
+	and.l	#$FFFFFFF8,d2			Multiple de 8
+	and.l	#$FFFFFFF8,d5
+	move.l	d2,d6
+	move.l	d5,d7
+	sub.l	d2,d7
+	Rble	L_Dia_Fonc
+; Le corps de la ligne
+	addq.l	#1,d4
+.Loop	bsr	Dia_Unpack
+	move.l	Dia_PuzzleSx(a4),d0
+	beq.s	.Skip
+	add.l	d0,d2
+	sub.l	d0,d7
+	cmp.l	d0,d7
+	bge.s	.Loop
+; La gauche
+.Skip	move.l	d6,d2
+	subq.l	#1,d4
+	bsr	Dia_Unpack
+; La droite
+	move.l	d5,d2
+	sub.l	Dia_PuzzleSx(a4),d2
+	addq.l	#2,d4
+	bsr	Dia_Unpack
+	bra	Dia_BFin
+; Dessin d'une ligne verticale d2X d3Y d4I d5Y2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_VLine
+	movem.l	d2-d7,-(sp)
+	and.l	#$FFFFFFF8,d2			Multiple de 8
+	move.l	d3,d6
+	move.l	d5,d7
+	sub.l	d3,d7
+	Rble	L_Dia_Fonc
+; Le corps de la ligne
+	addq.l	#1,d4
+.Loop	bsr	Dia_Unpack
+	move.l	Dia_PuzzleSy(a4),d0
+	beq.s	.Skip
+	add.l	d0,d3
+	sub.l	d0,d7
+	cmp.l	d0,d7
+	bge.s	.Loop
+; Le haut
+.Skip	move.l	d6,d3
+	subq.l	#1,d4
+	bsr	Dia_Unpack
+; Le bas
+	move.l	d5,d3
+	sub.l	Dia_PuzzleSy(a4),d3
+	addq.l	#2,d4
+	bsr	Dia_Unpack
+	bra	Dia_BFin
+; Dessin d'une boite d2X d3Y d4I d5X d6Y
+; ~~~~~~~~~~~~~~~~~~
+Dia_Box
+	movem.l	d2-d7,-(sp)
+	move.l	d3,-(sp)
+	move.l	d6,d7
+	sub.l	d3,d7
+	Rble	L_Dia_Fonc
+; Le haut
+	addq.l	#3,d4
+	bsr	Dia_Line
+	move.l	Dia_PuzzleSy(a4),d0
+	beq.s	.Ho
+	sub.l	d0,d7
+	ble.s	.Ho
+; Screen copy du milieu
+	movem.l	d2-d6,-(sp)
+	move.l	d5,d6
+.Copy	move.l	d2,d0
+	move.l	d3,d1
+	move.l	d6,d4
+	add.l	Dia_PuzzleSy(a4),d3
+	move.l	d3,d5
+	Rbsr	L_Dia_ScCopy
+	sub.l	Dia_PuzzleSy(a4),d7
+	cmp.l	Dia_PuzzleSy(a4),d7
+	bge.s	.Copy
+	movem.l	(sp)+,d2-d6
+; Le haut
+.Ho	subq.l	#3,d4
+	move.l	(sp)+,d3
+	bsr	Dia_Line
+; Le bas
+	addq.l	#6,d4
+	move.l	d6,d3
+	sub.l	Dia_PuzzleSy(a4),d3
+	bsr	Dia_Line
+; Met les variables XX/YY
+Dia_BFin
+	movem.l	(sp)+,d2-d7
+	move.w	d2,d0
+	and.w	#$FFFFFFF8,d0
+	move.w	d0,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	rts
+
+; Set Size of the box d2SX d3SY
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_Size
+	add.l	#15,d2			Multiple de 16
+	and.l	#$FFFFFFF0,d2
+	move.l	d2,Dia_Sx(a4)
+	move.l	d3,Dia_Sy(a4)
+	rts
+; Set XA XB YA YB
+; ~~~~~~~~~~~~~~~
+Dia_XY	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	move.w	d4,Dia_XB(a4)
+	move.w	d5,Dia_YB(a4)
+	rts
+; Set Base of the box d2X d3Y
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_Base
+	and.l	#$FFFFFFF0,d2		Multiple de 16
+	move.l	d2,Dia_BaseX(a4)
+	move.l	d3,Dia_BaseY(a4)
+	rts
+; Set Puzzle Size d2IBase
+; ~~~~~~~~~~~~~~~
+Dia_Pu
+	move.l	d2,Dia_PuzzleI(a4)
+	rts
+; Set Zone variable VAL
+; ~~~~~~~~~~~~~~~~~~~~~
+Dia_ZVar
+	move.l	d2,Dia_NextZone(a4)
+	rts
+; Set Variable d2N,d3V
+; ~~~~~~~~~~~~~~~~~~~~
+Dia_SetVar
+	move.l	d2,d0
+	lsl.w	#2,d0
+	lea	Dia_Vars(a4),a0
+	move.l	d3,0(a0,d0.w)
+	Rbsr	L_Dia_SetBuffer
+	rts
+; Call
+; ~~~~~~~
+Dia_Call
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	d2,a0
+	jsr	(a0)
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; Move screen
+; ~~~~~~~~~~~~~~~~~~~~~~
+Dia_SMove
+	movem.l	a2/d2,-(sp)
+	move.l	T_EcCourant(a5),a2
+	SyCall	XyMou
+	sub.w	EcAWY(a2),d2
+	move.w	d2,-(sp)
+.MLoop	SyCall	XyMou
+	sub.w	(sp),d2
+	cmp.w	EcAWY(a2),d2
+	beq.s	.MSkip
+	move.w	d2,EcAWY(a2)
+	bset	#2,EcAW(a2)
+	EcCall	CopForce
+	Rbsr	L_Dia_WaitMul
+.MSkip	SyCall	MouseKey
+	btst	#0,d1
+	bne.s	.MLoop
+	tst.w	(sp)+
+	movem.l	(sp)+,a2/d2
+	rts
+
+; Debug
+; ~~~~~~~
+Dia_Illegal
+	illegal
+Dia_Rien
+	rts
+; Inks d2A d3B d4C
+; ~~~~
+Dia_SInk
+	move.l	T_RastPort(a5),a1
+	move.l	d4,d0			Ink C
+	bmi.s	.Skip1
+	move.b	d0,27(a1)
+.Skip1	move.l	d3,d0			Ink B
+	bmi.s	.Skip2
+	GfxCa5	SetBPen
+.Skip2	move.l	d2,d0			Ink A
+	bmi.s	.Skip3
+	GfxCa5	SetAPen
+.Skip3	rts
+; SET SLIDER A,B,C,P,A,B,C,P
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_SetSlider
+	lea	Dia_SlDefault(a4),a2
+	moveq	#7,d2
+.Loop	Rbsr	L_Dia_Evalue
+	move.b	d0,(a2)+
+	dbra	d2,.Loop
+	move.l	-8(a2),(a2)+
+	move.l	-8(a2),(a2)+
+	rts
+
+; Print TEXT Outline d2X d3Y d4Text d5Ink1 d6Ink2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_Outline
+; Writing 0
+	move.l	T_RastPort(a5),a1
+	moveq	#0,d0
+	bsr	Dia_Write
+; Imprime le fond
+	subq.l	#1,d2
+	bsr.s	Dia_Text
+	moveq	#-1,d5
+	addq.l	#2,d2
+	bsr.s	Dia_Text
+	subq.l	#1,d2
+	subq.l	#1,d3
+	bsr.s	Dia_Text
+	addq.l	#2,d3
+	bsr.s	Dia_Text
+	subq.l	#1,d3
+; Imprime le devant
+	move.l	d6,d5
+; Print TEXT d2X d3Y d4Text d5Ink
+; ~~~~~~~~~~
+Dia_Text
+	move.l	T_RastPort(a5),a1
+	move.l	d5,d0
+	bmi.s	.SkipI
+	GfxCa5	SetAPen
+.SkipI	move.l	d2,d0
+	move.w	d3,d1
+	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	move.w	d2,Dia_XB(a4)
+	move.w	d3,Dia_YB(a4)
+	add.l	Dia_BaseX(a4),d0
+	add.l	Dia_BaseY(a4),d1
+	move.w	d0,36(a1)
+	add.w	62(a1),d1
+	move.w	d1,38(a1)
+	move.l	d4,a0
+	tst.b	(a0)+
+	moveq	#0,d0
+	move.b	(a0)+,d0
+	beq.s	.Skip
+	move.l	a6,-(sp)
+	movem.l	a0/a1/d0,-(sp)		Imprime
+	move.l	T_GfxBase(a5),a6
+	jsr	Text(a6)
+	movem.l	(sp)+,a0/a1/d0
+	move.w	58(a1),d1		Hauteur
+	add.w	d1,Dia_YB(a4)
+	jsr	TextLength(a6)		Largeur
+	add.w	d0,Dia_XB(a4)
+	move.l	(sp)+,a6
+.Skip	rts
+; Print VTEXT d2X d3Y d4Text d5Ink
+; ~~~~~~~~~~
+Dia_VText
+	movem.l	a6/d2-d4,-(sp)
+	move.l	T_RastPort(a5),a1
+	move.l	d5,d0
+	bmi.s	.SkipI
+	GfxCa5	SetAPen
+.SkipI	move.l	d2,d0
+	move.w	d3,d1
+	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	move.w	d2,Dia_XB(a4)
+	move.w	d3,Dia_YB(a4)
+	add.l	Dia_BaseX(a4),d2
+	add.l	Dia_BaseY(a4),d3
+	add.w	62(a1),d3
+	move.l	d4,a0
+	tst.b	(a0)+
+	moveq	#0,d4
+	move.b	(a0)+,d4
+	beq.s	.Skip
+	move.l	T_GfxBase(a5),a6
+.Loop	moveq	#1,d0			Imprime une lettre
+	move.w	d2,36(a1)
+	move.w	d3,38(a1)
+	movem.l	a0/a1,-(sp)
+	jsr	Text(a6)
+	movem.l	(sp)+,a0/a1
+	addq.l	#1,a0
+	move.w	58(a1),d1
+	add.w	d1,d3
+	add.w	d1,Dia_XB(a4)
+	subq.w	#1,d4
+	bne.s	.Loop
+	movem.l	(sp)+,a6/d2-d4
+.Skip	rts
+; SET FONT d2FONT d3STYLE
+; ~~~~~~~~
+Dia_SFont
+	move.l	d2,d1
+	bmi.s	.Skip1
+	EcCall	SFont
+.Skip1	tst.l	d3
+	bmi.s	.Skip2
+	move.l	T_RastPort(a5),a1
+	move.b	d3,56(a1)
+.Skip2	rts
+; WRITING d2MODE
+; ~~~~~~~
+Dia_SWrite
+	move.l	d2,d0
+	bmi.s	.Skip
+	bsr	Dia_Write
+.Skip	rts
+
+; Change le writing courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_Write
+;	cmp.w	Dia_Writing(a4),d0
+;	beq.s	.Skip
+	move.w	d0,Dia_Writing(a4)
+	move.l	T_RastPort(a5),a1
+	GfxCa5	SetDrMd
+.Skip	rts
+
+; SET LINE d2PATTERN
+; ~~~~~~~~
+Dia_SLine
+	tst.l	d2
+	bmi.s	.Skip
+	move.l	T_RastPort(a5),a1
+	move.w	d2,34(a1)
+.Skip	rts
+; PATTERN d2PATTERN d3OUTLINE
+; ~~~~~~~
+Dia_SFill
+	move.l	T_RastPort(a5),a1
+	tst.l	d3
+	bmi.s	.Skip
+	bclr	#4,33(a1)
+	tst.w	d3
+	beq.s	.Skip
+	bset	#4,33(a1)
+.Skip	move.l	d2,d1
+	EcCall	Pattern
+	rts
+
+; ________________________________________________________________________
+;
+;	Interface avec l'�diteur ligne
+;
+; DIgit	Numero,X,Y,Long,Valeur,Flag,Paper,Pen
+; ~~~~~
+Dia_Digit
+	movem.l	a2/d2-d7,-(sp)
+	moveq	#Dia_DiLong,d0
+	Rbsr	L_Dia_GetBuffer
+	move.l	a0,a2
+	move.w	#Dia_EdMark,2(a2)
+	move.l	a2,Dia_LastZone(a4)
+; Numero / Position / Largeur
+	bsr	Dia_EdDiRout
+; Place pour le chiffre
+	Rbsr	L_Dia_Evalue		Variable
+	move.l	d0,Dia_DiValue(a2)
+; Afficher le chiffre de depart?
+	Rbsr	L_Dia_Evalue
+	move.l	d0,d1
+	sub.l	a0,a0
+	btst	#0,d1
+	beq.s	.Paa
+	move.l	Dia_DiValue(a2),-(a3)
+	moveq	#1,d7
+	Rbsr	L_Dia_FDecimal
+	move.l	(a3)+,a0
+.Paa	move.w	#(1<<LEd_FMouCur)|(1<<LEd_FMouse)|(1<<LEd_FOnce)|(1<<LEd_FKeys)|(1<<LEd_FFilter),d0
+	move.w	d4,d1			Largeur= largeur fenetre-1
+	subq.w	#1,d1
+	lea	Dia_DiBuffer(a2),a1
+	pea	Dia_LEd+LEd_Mask(a2)
+	bsr	Dia_Edit2
+	move.l	(sp)+,a0
+	move.l	#%00000000000101011111111111000000,(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	movem.l	(sp)+,a2/d2-d7
+	rts
+
+; EDit Numero X Y Long Max Chaine Paper Pen
+; ~~~~
+Dia_Edit
+	movem.l	a2/d2-d7,-(sp)
+	moveq	#Dia_EdLong,d0
+	Rbsr	L_Dia_GetBuffer
+	move.l	a0,a2
+	move.w	#Dia_EdMark,2(a2)
+	move.l	a2,Dia_LastZone(a4)
+; Numero / Position / Longueur
+	bsr	Dia_EdDiRout
+; Longmax
+	Rbsr	L_Dia_Evalue
+	tst.l	d0
+	Rbeq	L_Dia_Fonc
+	cmp.l	#1024,d0
+	Rbhi	L_Dia_Fonc
+	move.w	d0,-(sp)
+; Reserve le buffer
+	addq.w	#6,d0
+	Rbsr	L_Dia_GetBuffer
+	move.w	#Dia_StMark,2(a0)
+	pea	4(a0)
+; Copie la chaine de d�part, finie par zero
+	Rbsr	L_Dia_Evalue
+	move.l	d0,a0
+; Flags
+	move.l	(sp)+,a1
+	move.w	#(1<<LEd_FMouCur)|(1<<LEd_FMouse)|(1<<LEd_FOnce)|(1<<LEd_FKeys),d0
+	move.w	(sp)+,d1
+	bsr	Dia_Edit2
+	movem.l	(sp)+,a2/d2-d7
+	rts
+
+; Entree pour DIGIT, A0=chaine D1=longmax D0=Flags A1=Buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_Edit2
+	movem.l	a1/d0/d1,-(sp)
+; Recopie la chaine dans le buffer
+	move.l	a0,d0
+	beq.s	.Sk4
+	moveq	#0,d0
+	tst.b	(a0)+
+	move.b	(a0)+,d0
+	cmp.w	d1,d0
+	bcc.s	.Sk3
+	move.w	d0,d1
+	bra.s	.Sk3
+.Sk2	move.b	(a0)+,d0
+	cmp.b	#32,d0
+	bcs.s	.Sk3
+	move.b	d0,(a1)+
+.Sk3	dbra	d1,.Sk2
+.Sk4	clr.b	(a1)
+; Cree la fenetre
+	moveq	#1,d5
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	move.w	Dia_ZoNumber(a2),d1
+	add.w	#1000,d1		Fenetres � partir de 1000
+	move.w	d1,Dia_WindOn(a4)
+	WiCall	WindOp
+; Paper / Pen
+	Rbsr	L_Dia_Evalue
+	move.w	d0,d2
+	Rbsr	L_Dia_Evalue
+	move.b	d0,d3
+; Reserve la zone / Initialise
+	lea	.Init(pc),a1
+	add.b	#"0",d2
+	move.b	d2,.Paper-.Init(a1)
+	add.b	#"0",d3
+	move.b	d3,.Pen-.Init(a1)
+	WiCall	Print
+; Imprime le texte, curseur � la fin
+	movem.l	(sp)+,a1/d0/d2
+	moveq	#0,d1
+	moveq	#-1,d3
+	lea	Dia_LEd(a2),a0
+	move.l	a1,a2
+	Rbsr	L_LEd_Init
+	Rbne	L_Dia_Fonc
+	Rbsr	L_Dia_SetBuffer
+	rts
+; Chaine d'init
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Init	dc.b	27,"C0",27,"B"
+.Paper	dc.b	"0",27,"P"
+.Pen	dc.b	"0",27,"J",48+31,25,27,"V0",0
+	even
+
+
+; ________________________________________________________________________
+;
+;	ZONE D'HYPER-TEXTE
+;
+; HText Numero X Y Tx Ty Txt Pos Zones Paper Pen; []
+; ~~~~~
+Dia_HyperText
+	movem.l	a2/d2-d7,-(sp)
+	move.l	#Dia_TxLong,d0
+	Rbsr	L_Dia_GetBuffer
+	move.l	a0,a2
+	move.w	#Dia_TxMark,2(a2)
+; Numero / Position / Longueur
+	bsr	Dia_EdDiRout
+; Largeur / Hauteur
+	move.w	d4,Dia_TxTx(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_TxTy(a2)
+	move.w	d0,d5
+	lsl.w	#3,d0
+	move.w	d0,Dia_ZoSy(a2)
+; Adresse du texte
+	Rbsr	L_Dia_Evalue
+	cmp.l	#1*1024,d0		*** Illegal
+	Rble	L_Dia_Fonc
+	move.l	d0,Dia_TxText(a2)
+; Position dans le texte
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_TxPos(a2)
+; Cree la fenetre
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	move.w	Dia_ZoNumber(a2),d1
+	add.w	#3000,d1		Fenetres � partir de 3000
+	move.w	d1,Dia_WindOn(a4)
+	WiCall	WindOp
+	tst.w	d0
+	Rbne	L_Dia_Fonc
+; Nombre de zones/ligne
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_TxDispMax(a2)
+	mulu	#Dia_TxDispZone,d0
+	addq.l	#4+4,d0
+	move.w	d0,Dia_TxDispSize(a2)
+; Paper / Pen
+	Rbsr	L_Dia_Evalue
+	move.b	d0,d2
+	Rbsr	L_Dia_Evalue
+	move.b	d0,d3
+; Initialise
+	add.b	#"0",d2
+	add.b	#"0",d3
+	move.b	d2,Dia_TxPaper(a2)
+	move.b	d3,Dia_TxPen(a2)
+	lea	.Pp(pc),a0
+	lea	Dia_TxPp(a2),a1
+	move.l	(a0)+,(a1)
+	move.l	(a0)+,4(a1)
+	move.b	d2,2(a1)
+	move.b	d3,5(a1)
+	WiCall	Print
+	lea	.Clw(pc),a1
+	move.w	CurTab(a5),d0
+	add.b	#"0",d0
+	move.b	d0,6(a1)
+	WiCall	Print
+; Recupere la routine
+	Rbsr	L_Dia_GetRout
+	move.w	d1,Dia_ZoRChange(a2)
+; Trouve tous les pointeurs sur les lignes / Compte les lignes
+	lea	-16(a3),a0
+	move.l	a0,d4
+	move.l	Dia_TxText(a2),a0
+	move.l	Dia_ABuffer(a4),a1
+	lea	4(a1),a1
+	move.l	a1,Dia_TxAdress(a2)
+	moveq	#0,d1
+	bra.s	.In
+.NLine  sub.l	d2,d3
+	move.b	d3,-1(a1)		Longueur de la ligne precedente
+.In	move.l	a0,d2
+	move.l	d2,d3
+	cmp.l	d4,a1
+	Rbcc	L_Dia_OBuffer
+	addq.l	#1,d1
+	move.l	a0,d0
+	sub.l	Dia_TxText(a2),d0
+	lsl.l	#8,d0
+	move.l	d0,(a1)+
+.CLoop	move.b	(a0)+,d0
+	cmp.b	#32,d0
+	bcc.s	.CLoop
+	tst.b	d0
+	beq.s	.CFini
+	cmp.b	#27,d0
+	beq.s	.CEsc
+	cmp.b	#10,d0
+	beq.s	.C10
+	cmp.b	#13,d0
+	bne.s	.CLoop
+.C10	move.l	a0,d3
+	subq.l	#1,d3
+	cmp.b	#13,(a0)
+	bne.s	.NLine
+	addq.l	#1,a0
+	bra.s	.NLine
+.C13	move.l	a0,d3
+	subq.l	#1,d3
+	cmp.b	#10,(a0)
+	bne.s	.NLine
+	addq.l	#1,a0
+	bra.s	.NLine
+.CEsc	addq.l	#2,a0
+	bra.s	.CLoop
+.CFini	sub.l	d2,d3
+	move.b	d3,-1(a1)
+	move.w	d1,Dia_TxNLine(a2)
+	move.l	d1,Dia_NextZone(a4)		Met dans la variable temporaire
+	move.l	Dia_ABuffer(a4),a0
+	move.l	a1,Dia_ABuffer(a4)
+	clr.l	(a1)
+	sub.l	a0,a1
+	move.w	a1,(a0)
+	move.w	#Dia_TaMark,2(a0)
+; Reserve le buffer de travail
+	move.w	Dia_TxTy(a2),d0
+	mulu	Dia_TxDispSize(a2),d0
+	addq.l	#4,d0
+	Rbsr	L_Dia_GetBuffer
+	move.w	#Dia_TdMark,2(a0)
+	lea	4(a0),a0
+	move.l	a0,Dia_TxDisplay(a2)
+; Fixe le buffer!!!
+	Rbsr	L_Dia_SetBuffer
+; Affiche le contenu!
+	Rbsr	L_Dia_TxDraw
+; Fini
+	movem.l	(sp)+,a2/d2-d7
+	rts
+	even
+.Pp	dc.b	27,"B0",27,"P0",0
+.Clw	dc.b	27,"C0",25,27,"T0",27,"V0",0
+	even
+
+; ________________________________________________________________________
+;
+;	ZONE DE LISTE
+;
+; AList Numero X Y Tx Ty Tab$ Pos Flags Paper Pen; []
+; ~~~~~
+Dia_List
+	movem.l	a2/d2-d7,-(sp)
+	moveq	#Dia_LiLong,d0
+	Rbsr	L_Dia_GetBuffer
+	move.l	a0,a2
+	move.w	#Dia_LiMark,2(a2)
+; Numero / Position / Longueur
+	bsr	Dia_EdDiRout
+; Largeur / Hauteur
+	move.w	d4,Dia_LiTx(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_LiTy(a2)
+	move.w	d0,d5
+	lsl.w	#3,d0
+	move.w	d0,Dia_ZoSy(a2)
+; Tableau
+	Rbsr	L_Dia_Evalue
+	tst.l	d0
+	beq.s	.ANul
+	cmp.l	#1*1024,d0		*** Illegal
+	Rble	L_Dia_Fonc
+	move.l	d0,Dia_LiArray(a2)
+	move.l	d0,a0
+	cmp.b	#1,(a0)			Nombre de dimensions
+	Rbne	L_Dia_Fonc
+	cmp.b	#2,1(a0)		Taille variable=4!
+	Rbne	L_Dia_Fonc
+	moveq	#0,d0
+	move.w	2(a0),d0
+	cmp.w	#32768,d0
+	Rbcc	L_Dia_Fonc
+.ANul	move.w	d0,Dia_LiMaxAct(a2)
+	move.w	d0,-(sp)
+; Position dans tableau
+	Rbsr	L_Dia_Evalue
+	cmp.w	Dia_LiMaxAct(a2),d0
+	bcs.s	.PNul
+	move.w	Dia_LiMaxAct(a2),d0
+.PNul	move.w	d0,Dia_LiPos(a2)
+	move.w	#-1,Dia_LiActNumber(a2)
+	move.l	#-1,Dia_ZoPos(a2)
+; Cree la fenetre
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	move.w	Dia_ZoNumber(a2),d1
+	add.w	#2000,d1		Fenetres � partir de 1000
+	move.w	d1,Dia_WindOn(a4)
+	WiCall	WindOp
+	tst.w	d0
+	Rbne	L_Dia_Fonc
+; Flags
+	Rbsr	L_Dia_Evalue
+	move.b	d0,Dia_ZoFlags+1(a2)
+; Paper / Pen
+	Rbsr	L_Dia_Evalue
+	move.w	d0,d2
+	Rbsr	L_Dia_Evalue
+	move.b	d0,d3
+; Initialise
+	lea	Dia_WInit(pc),a1
+	add.b	#"0",d2
+	move.b	d2,Dia_WPaper-Dia_WInit(a1)
+	add.b	#"0",d3
+	move.b	d3,Dia_WPen-Dia_WInit(a1)
+	WiCall	Print
+; Fixe le buffer
+	Rbsr	L_Dia_SetBuffer
+; Recupere la routine
+	Rbsr	L_Dia_GetRout
+	move.w	d1,Dia_ZoRChange(a2)
+; Trouve la longueur de l'affichage du tableau
+	moveq	#0,d0
+	move.w	(sp)+,d0
+	move.l	Dia_ABuffer(a4),a0
+	addq.l	#4,a0
+	move.l	a0,a1
+	Rbsr	L_Dia_DecToAsc
+	sub.l	a1,a0
+	move.w	a0,Dia_LiLArray(a2)
+; Affiche le contenu!
+	Rbsr	L_Dia_LiDraw
+; Fini
+	movem.l	(sp)+,a2/d2-d7
+	rts
+; Chaine d'init fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_WInit	dc.b	27,"C0",27,"B"
+Dia_WPaper	dc.b	"0",27,"P"
+Dia_WPen	dc.b	"0",27,"J",48+31,25,27,"V0",0
+		even
+
+; Routine pour Ed et Digit
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_EdDiRout
+; Numero
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_ZoNumber(a2)
+; Positions
+	move.w	#Dia_ZoMark,Dia_ZoId(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_XA(a4)
+	move.w	d0,Dia_XB(a4)
+	add.l	Dia_BaseX(a4),d0
+	and.l	#$FFF0,d0
+	move.l	d0,d2
+	move.w	d0,Dia_ZoX(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_YA(a4)
+	move.w	d0,Dia_YB(a4)
+	add.l	Dia_BaseY(a4),d0
+	move.l	d0,d3
+	move.w	d0,Dia_ZoY(a2)
+; Largeur
+	Rbsr	L_Dia_Evalue
+	addq.w	#1,d0
+	and.w	#$FFFE,d0
+	Rbeq	L_Dia_Synt
+	add.w	d0,Dia_XB(a4)
+	addq.w	#8,Dia_YB(a4)
+	move.w	d0,d4			Taille de la fenetre paire
+	lsl.w	#3,d0
+	move.w	d0,Dia_ZoSx(a2)
+	move.w	#8,Dia_ZoSy(a2)
+; Variable de zone
+	move.l	Dia_NextZone(a4),Dia_ZoVar(a2)
+	rts
+
+; ________________________________________________________________________
+;
+; 	Interface avec les sliders
+;
+; SH Numero, X, Y, SX, SY, Pos, Fenetre, Total, Step;[]
+; ~~
+Dia_SliderH
+	moveq	#0,d6
+	bra.s	Dia_Slider
+Dia_SliderV
+	moveq	#-1,d6
+Dia_Slider
+	move.l	a2,-(sp)
+	moveq	#Dia_SlLong,d0
+	bsr	Dia_GetEntete
+	move.w	#Dia_SlMark,2(a2)
+	move.w	Dia_ZoX(a2),Dia_Sl+Sl_X(a2)
+	move.w	Dia_ZoY(a2),Dia_Sl+Sl_Y(a2)
+	move.w	Dia_ZoSx(a2),Dia_Sl+Sl_Sx(a2)
+	subq.w	#1,Dia_Sl+Sl_Sx(a2)
+	move.w	Dia_ZoSy(a2),Dia_Sl+Sl_Sy(a2)
+	subq.w	#1,Dia_Sl+Sl_Sy(a2)
+; Horizontal ou vertical?
+	move.w	Dia_Sl+Sl_X(a2),Dia_Sl+Sl_Start(a2)
+	move.w	Dia_Sl+Sl_Sx(a2),Dia_Sl+Sl_Size(a2)
+	tst.w	d6
+	beq.s	.PaV
+	bset	#Sl_FlagVertical,Dia_Sl+Sl_Flags(a2)
+	move.w	Dia_Sl+Sl_Y(a2),Dia_Sl+Sl_Start(a2)
+	move.w	Dia_Sl+Sl_Sy(a2),Dia_Sl+Sl_Size(a2)
+.PaV
+; Position de depart
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_Sl+Sl_Position(a2)
+	move.l	d0,Dia_ZoPos(a2)
+; Taille de depart
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_Sl+Sl_Window(a2)
+; Maximum de reference
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_Sl+Sl_Global(a2)
+; +/- scrolling
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_Sl+Sl_Scroll(a2)
+; Routines
+	lea	Dia_RSlider(pc),a0
+	move.l	a0,Dia_Sl+Sl_Routines(a2)
+; Couleurs
+	lea	Dia_SlDefault(a4),a1
+	lea	Dia_Sl+Sl_Inactive(a2),a0
+	moveq	#16-1,d0
+.Co	moveq	#0,d1
+	move.b	(a1)+,d1
+	move.w	d1,(a0)+
+	dbra	d0,.Co
+; Fixe la position du buffer
+	Rbsr	L_Dia_SetBuffer
+; Routine de dessin
+	Rbsr	L_Dia_GetRout
+	move.w	d1,Dia_ZoRChange(a2)
+; Dessine le slider
+; ~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lea	Dia_Sl(a2),a0
+	Rbsr	L_Sl_Draw
+	move.w	Dia_Writing(a4),d0
+	move.l	T_RastPort(a5),a1
+	GfxCa5	SetDrMd
+; Ok!
+; ~~~
+	move.l	(sp)+,a2
+	rts
+
+; Interface de dessin
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_RSlider
+	bra	Dia_SlUpdate
+	bra	Dia_SlChange
+	bra	Dia_SlChange
+	bra	Dia_SlChange
+; Appelle la routine change
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_SlChange
+	move.l	a2,-(sp)
+	lea	-Dia_Sl(a2),a2
+	moveq	#0,d0
+	move.w	Dia_Sl+Sl_Position(a2),d0
+	move.l	d0,Dia_ZoPos(a2)
+	Rbsr	L_Dia_ZoChange
+	move.l	(sp)+,a2
+	rts
+; Update nul
+; ~~~~~~~~~~
+Dia_SlUpdate
+	rts
+
+; ________________________________________________________________________
+;
+; 	Interface avec les boutons
+;
+; Bouton Numero, X, Y, SX, SY, Pos, Min, Max;[] []
+; ~~~~~~
+Dia_Button
+	move.l	a2,-(sp)
+	moveq	#Dia_BtLong,d0
+	bsr	Dia_GetEntete
+	move.w	#Dia_BtMark,2(a2)
+	move.l	a2,Dia_LastZone(a4)
+; Position de depart
+	Rbsr	L_Dia_Evalue
+	move.l	d0,Dia_ZoPos(a2)
+; Minimum et maximum
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_BtMin(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_BtMax(a2)
+	clr.b	Dia_ZoFlags(a2)
+; Fixe la position du buffer
+	Rbsr	L_Dia_SetBuffer
+; Routine de dessin du bouton
+	Rbsr	L_Dia_GetRout
+	move.w	d1,Dia_BtRDraw(a2)
+; Routine de changement de position
+	Rbsr	L_Dia_GetRout
+	move.w	d1,Dia_ZoRChange(a2)
+; Initialisation du bouton
+	Rbsr	L_Dia_BtDraw
+; Termine!
+	move.l	(sp)+,a2
+	rts
+
+; Fabrique un entete de zone active - D0=longueur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	longueur
+Dia_GetEntete
+	movem.w	d2/d3,-(sp)
+	Rbsr	L_Dia_GetBuffer
+	move.l	a0,a2
+; Numero
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_ZoNumber(a2)
+; X/Y/SX/SY
+	move.w	#Dia_ZoMark,Dia_ZoId(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,d2
+	add.l	Dia_BaseX(a4),d0
+	move.w	d0,Dia_ZoX(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,d3
+	add.l	Dia_BaseY(a4),d0
+	move.w	d0,Dia_ZoY(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_ZoSx(a2)
+	Rbsr	L_Dia_Evalue
+	move.w	d0,Dia_ZoSy(a2)
+; Variables internes
+	move.w	d2,Dia_XA(a4)
+	move.w	d3,Dia_YA(a4)
+	add.w	Dia_ZoSx(a2),d2
+	move.w	d2,Dia_XB(a4)
+	add.w	Dia_ZoSy(a2),d3
+	move.w	d3,Dia_YB(a4)
+; Variable interne
+	move.l	Dia_NextZone(a4),Dia_ZoVar(a2)
+	movem.w	(sp)+,d2/d3
+	rts
+
+; Button Return d2V/F -> mis dans VAR-2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_BR	move.l	d2,Dia_Vars-2*4(a4)
+	rts
+
+; Button Quit
+; ~~~~~~~~~~~
+Dia_BQuit
+	move.l	Dia_Vars-3*4(a4),d0		Dans un bouton?
+	Rbeq	L_Dia_Synt
+	move.l	d0,a0
+	bset	#7,Dia_ZoFlags(a0)
+	rts
+
+; Button Nowait
+; ~~~~~~~~~~~~~
+Dia_NWait
+	move.l	Dia_Vars-3*4(a4),d0		Dans un bouton?
+	Rbeq	L_Dia_Synt
+	move.l	d0,a0
+	bset	#5,Dia_ZoFlags(a0)
+	rts
+; Button Change, d2NUMBER d3POSITION
+; ~~~~~~~~~~~~~~
+Dia_BChange
+; Peut-on effectuer l'instruction?
+	move.l	Dia_Vars-3*4(a4),d0		Si appel� en dehors de la parenth
+	Rbeq	L_Dia_Synt
+	move.l	d0,a0
+	btst	#6,Dia_ZoFlags(a0)
+	beq.s	.Ok
+	rts
+; Explore la liste
+.Ok	movem.l	a2/d2/d3,-(sp)
+	move.l	Dia_Buffer(a4),a2
+.Loop	cmp.w	#Dia_BtMark,2(a2)		Un bouton?
+	bne.s	.Next
+	cmp.w	Dia_ZoNumber(a2),d2		Le bon?
+	bne.s	.Next
+	cmp.l	Dia_Vars-3*4(a4),a2		Pas celui-ci?
+	beq.s	.Next
+	bset	#6,Dia_ZoFlags(a2)		Marque le flag!
+	cmp.l	Dia_ZoPos(a2),d3		Faut-il changer le bouton?
+	beq.s	.Deja
+	move.l	d3,Dia_ZoPos(a2)		Change le bouton
+	Rbsr	L_Dia_BtDraw			Va le dessiner
+	Rbsr	L_Dia_ZoChange			Va le changer
+.Deja	bclr	#6,Dia_ZoFlags(a2)		Enleve le flag!
+	bclr	#7,Dia_ZoFlags(a2)		Pas de sortie!
+.Next	add.w	(a2),a2
+	tst.w	(a2)
+	bne.s	.Loop
+	movem.l	(sp)+,a2/d2/d3
+	rts
+
+; ________________________________________________________________________
+;
+;	INTERFACE AVEC LES ZONES ACTIVES
+;
+; Zone Change, d2NUMBER d3POSITION
+; ~~~~~~~~~~~
+Dia_ZChange
+	movem.l	d4-d5,-(sp)
+; Peut-on effectuer l'instruction?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.l	Dia_Vars-3*4(a4)		Si appel� en dehors d'une parenth
+	Rbeq	L_Dia_Synt
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	Rbsr	L_Dia_ZUpdate
+	movem.l	(sp)+,d4-d5
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INSTRUCTION RUn d3Flag d2Timer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Dia_Run
+; - - - - - - - - - - - - -
+	move.b	d3,Dia_Flags(a4)
+	move.l	d2,Dia_Timer(a4)
+	move.l	T_VblCount(a5),Dia_TimerPos(a4)
+	bset	#1,Dia_RFlags(a4)
+; Nettoyage des entrees
+; ~~~~~~~~~~~~~~~~~~~~~
+	bclr	#0,d3			Nettoyer les touches
+	beq.s	.Skip1
+	SyCall	ClearKey
+.Skip1	bclr	#1,d3			Nettoyer les clicks
+	beq.s	.Skip2
+	Rbsr	L_Dia_NoMKey
+.Skip2
+; Active la premiere fenetre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_Dia_EdFirst
+; Boucle d'attente
+; ~~~~~~~~~~~~~~~~
+.Loop	Rjsr	L_Sys_WaitMul
+; Le timer
+	move.l	Dia_Timer(a4),d0
+	beq.s	.Skip
+	move.l	T_VblCount(a5),d1
+	sub.l	Dia_TimerPos(a4),d1
+	cmp.l	d0,d1
+	bcc.s	.Exit0
+.Skip
+; Control-C?
+	move.w	T_Actualise(a5),d0
+	bclr	#BitControl,d0
+	beq.s	.PaC
+	move.w	d0,T_Actualise(a5)
+	bra.s	.Exit0
+.PaC
+; Un coup de test.
+	Rbsr	L_Dia_Tests
+	bne.s	.Exit
+; Branchement au monitor?
+	move.l	Patch_ScFront(a5),d0
+	beq.s	.Loop
+	move.l	d0,a0
+	jsr	(a0)
+	bra.s	.Loop
+; Sortie...
+; ~~~~~~~~~
+.Exit0	clr.w	Dia_Return(a4)
+; Remet l'ecran du moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Exit	tst.l	Patch_ScFront(a5)
+	beq.s	.Exit1
+	movem.l	a0/d0,-(sp)
+	move.l	Patch_ScFront(a5),a0
+	jsr	(a0)
+	movem.l	(sp)+,a0/d0
+.Exit1	tst.w	d0
+	rts
+
+
+
+; ________________________________________________________________________
+;
+; 	EVALUATION D'EXPRESSION
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Evalue
+; - - - - - - - - - - - - -
+	move.l	d7,-(sp)
+	moveq	#0,d7
+.Loop	Rbsr	L_Dia_Chr		Premiere lettre
+	bmi.s	.Chiffre
+	bvs.s	.Signe
+	beq.s	.Fini
+	bcc.s	.Fini
+	Rlea	L_Dia_FTokens,1
+	move.b	-64(a1,d0.w),d0		Offset des codes
+	lea	32(a1,d0.w),a1		Pointe la liste
+	Rbsr	L_Dia_Chr
+.FLoop	move.w	(a1)+,d1		Trouve le bon
+	cmp.b	d0,d1
+	bne.s	.FLoop
+	lsr.w	#8,d1			Pointe la fonction
+	jsr	.Jumps(pc,d1.w)		Appel!
+	bra.s	.Loop
+.Signe	Rlea	L_Dia_FTokens,1
+	lea	32(a1),a1
+	bra.s	.FLoop
+.Chiffre
+	Rbsr	L_Dia_FChif
+	bra.s	.Loop
+; On a fini l'expression
+.Fini	cmp.w	#1,d7
+	Rbne	L_Dia_Synt
+	move.l	(a3)+,d0
+	move.l	(sp)+,d7
+	rts
+.Jumps	bra	Dia_FBx			0
+	bra	Dia_FBy			1
+	bra	Dia_FSx			2
+	bra	Dia_FSy			3
+	bra	Dia_FPlus		4
+	bra	Dia_FMoins		5
+	bra	Dia_FMul		6
+	bra	Dia_FDiv		7
+	bra	Dia_FNeg		8
+	bra	Dia_FMess		9
+	bra	Dia_FMess		10
+	bra	Dia_FTw			11
+	bra	Dia_FTh			12
+	bra	Dia_FVar		13
+	bra	Dia_FString1		14
+	bra	Dia_FString2		15
+	bra	Dia_FCx			16
+	bra	Dia_FSw			17
+	bra	Dia_FSh			18
+	bra	Dia_FMin		19
+	bra	Dia_FMax		20
+	bra	Dia_FBP			21
+	Rbra	L_Dia_FDecimal		22
+	bra	Dia_FPlusCh		23
+	bra	Dia_FStZero		24
+	bra	Dia_FXA			25
+	bra	Dia_FYA			26
+	bra	Dia_FXB			27
+	bra	Dia_FYB			28
+	bra	Dia_FArray		29
+	bra	Dia_FZP			30
+	bra	Dia_P1			31
+	bra	Dia_P2			32
+	bra	Dia_P3			33
+	bra	Dia_P4			34
+	bra	Dia_P5			35
+	bra	Dia_P6			36
+	bra	Dia_P7			37
+	bra	Dia_P8			38
+	bra	Dia_P9			39
+	bra	Dia_FEq			40
+	bra	Dia_FNEq		41
+	bra	Dia_FInf		42
+	bra	Dia_FSup		43
+	bra	Dia_FAnd		44
+	bra	Dia_FOr			45
+	bra	Dia_FZVar		46
+	bra	Dia_FZNum		47
+	bra	Dia_FLTxt		48
+	bra	Dia_FASize		49
+
+; Prend une variable
+; ~~~~~~~~~~~~~~~~~~
+Dia_FVar
+	tst.w	d7
+	Rble	L_Dia_Synt
+	move.l	(a3),d0
+	lsl.w	#2,d0
+	lea	Dia_Vars(a4),a0
+	move.l	0(a0,d0.l),(a3)
+	rts
+; = ZV Une variable interne � une zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_FZVar
+	addq.w	#1,d7
+	move.l	Dia_Vars-3*4(a4),d0
+	beq.s	.Ext
+; Variable � l'interieur de la zone
+	move.l	d0,a0
+	move.l	Dia_ZoVar(a0),-(a3)
+	rts
+; Variable � l'exterieur de la zone
+.Ext	move.l	Dia_NextZone(a4),-(a3)
+	rts
+; = ZN Numero de la zone
+; ~~~~~~~~~~~~~~~~~~~~~~
+Dia_FZNum
+	move.l	Dia_Vars-3*4(a4),d0
+	Rbeq	L_Dia_Synt
+	move.l	d0,a0
+	moveq	#0,d0
+	move.w	Dia_ZoNumber(a0),d0
+	move.l	d0,-(a3)
+	addq.w	#1,d7
+	rts
+
+; =tableau pos ARray Retourne le contenu d'une variable dans une tableau
+; ~~~~~~~~~~~~~~~~~~~
+Dia_FArray
+	cmp.w	#2,d7
+	Rblt	L_Dia_NPar
+	subq.w	#1,d7
+	move.l	(a3)+,d1
+	move.l	(a3),a0
+	cmp.l	#1*1024,a0		*** Illegal
+	Rble	L_Dia_Fonc
+	cmp.b	#1,(a0)+		Nombre de dimensions
+	Rbne	L_Dia_Fonc
+	cmp.b	#2,(a0)+		Taille variable=4!
+	Rbne	L_Dia_Fonc
+	moveq	#0,d0
+	move.w	(a0),d0
+	cmp.l	d0,d1
+	Rbcc	L_Dia_Fonc
+	lsl.l	#2,d1
+	lea	4(a0,d1.l),a0
+	move.l	(a0),(a3)
+	rts
+; =tableau ArraySize Retourne la taille d'un tableau
+; ~~~~~~~~~~~~~~~~~~
+Dia_FASize
+	cmp.w	#1,d7
+	Rblt	L_Dia_NPar
+	move.l	(a3),d0
+	beq.s	.Nul
+	move.l	d0,a0
+	cmp.l	#1*1024,a0		*** Illegal
+	Rble	L_Dia_Fonc
+	cmp.b	#1,(a0)+		Nombre de dimensions
+	Rbne	L_Dia_Fonc
+	cmp.b	#2,(a0)+		Taille variable=4!
+	Rbne	L_Dia_Fonc
+	moveq	#0,d0
+	move.w	(a0),d0
+.Nul	move.l	d0,(a3)
+	rts
+
+; =Px
+; ~~~
+Dia_P1	moveq	#1,d0
+	bra.s	Dia_P
+Dia_P2	moveq	#2,d0
+	bra.s	Dia_P
+Dia_P3	moveq	#3,d0
+	bra.s	Dia_P
+Dia_P4	moveq	#4,d0
+	bra.s	Dia_P
+Dia_P5	moveq	#5,d0
+	bra.s	Dia_P
+Dia_P6	moveq	#6,d0
+	bra.s	Dia_P
+Dia_P7	moveq	#7,d0
+	bra.s	Dia_P
+Dia_P8	moveq	#8,d0
+	bra.s	Dia_P
+Dia_P9	moveq	#9,d0
+Dia_P	move.l	Dia_PUsers(a4),d1
+	Rbeq	L_Dia_Synt
+	move.l	d1,a0
+	move.w	Dia_NPUsers(a4),d1
+	sub.w	d0,d1
+	Rbcs	L_Dia_Synt
+	lsl.w	#2,d1
+	move.l	0(a0,d1.w),-(a3)
+	addq.w	#1,d7
+	rts
+
+; X Size of display
+; ~~~~~~~~~~~~~~~~~
+Dia_FSw
+	move.l	T_EcCourant(a5),a0
+	moveq	#0,d0
+	move.w	EcTx(a0),d0
+	move.l	d0,-(a3)
+	addq.w	#1,d7
+	rts
+; Y Size of display
+; ~~~~~~~~~~~~~~~~~
+Dia_FSh
+	move.l	T_EcCourant(a5),a0
+	moveq	#0,d0
+	move.w	EcTy(a0),d0
+	move.l	d0,-(a3)
+	addq.w	#1,d7
+	rts
+; Operateur PLUS
+; ~~~~~~~~~~~~~~
+Dia_FPlus
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	add.l	d0,(a3)
+	subq.w	#1,d7
+	rts
+; Operateur MOINS
+; ~~~~~~~~~~~~~~~
+Dia_FMoins
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	sub.l	d0,(a3)
+	subq.w	#1,d7
+	rts
+; Operateur MULTIPLIE
+; ~~~~~~~~~~~~~~~~~~~
+Dia_FMul
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	move.l	(a3),d1
+	muls	d0,d1
+	move.l	d1,(a3)
+	subq.w	#1,d7
+	rts
+; Operateur DIVISE
+; ~~~~~~~~~~~~~~~~
+Dia_FDiv
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	Rbeq	L_Dia_Synt
+	move.l	(a3),d1
+	ext.l	d1
+	divs	d0,d1
+	ext.l	d1
+	move.l	d1,(a3)
+	subq.w	#1,d7
+	rts
+; Operateur =
+; ~~~~~~~~~~~
+Dia_FEq
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	cmp.l	(a3),d0
+	beq.s	Dia_Tr
+	bne.s	Dia_Fa
+; Operateur \
+; ~~~~~~~~~~~
+Dia_FNEq
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	cmp.l	(a3),d0
+	bne.s	Dia_Tr
+	beq.s	Dia_Fa
+; Operateur <
+; ~~~~~~~~~~~
+Dia_FInf
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	move.l	(a3),d1
+	cmp.l	d0,d1
+	blt.s	Dia_Tr
+	bra.s	Dia_Fa
+; Operateur >
+; ~~~~~~~~~~~
+Dia_FSup
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	move.l	(a3),d1
+	cmp.l	d0,d1
+	bgt.s	Dia_Tr
+; Faux / Vrai
+; ~~~~~~~~~~~
+Dia_Fa	clr.l	(a3)
+	subq.w	#1,d7
+	rts
+Dia_Tr	move.l	#-1,(a3)
+	subq.w	#1,d7
+	rts
+; Operateur &<
+; ~~~~~~~~~~~
+Dia_FAnd
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	and.l	d0,(a3)
+	subq.w	#1,d7
+	rts
+; Operateur |
+; ~~~~~~~~~~~
+Dia_FOr
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3)+,d0
+	or.l	d0,(a3)
+	subq.w	#1,d7
+	rts
+; Negatif
+; ~~~~~~~
+Dia_FNeg
+	tst.w	d7
+	Rbeq	L_Dia_Synt
+	neg.l	(a3)
+	rts
+; Taille en X
+; ~~~~~~~~~~~
+Dia_FSx	move.l	Dia_Sx(a4),-(a3)
+	addq.w	#1,d7
+	rts
+; Taille en Y
+; ~~~~~~~~~~~
+Dia_FSy	move.l	Dia_Sy(a4),-(a3)
+	addq.w	#1,d7
+	rts
+; Positions apres fonctions X et Y
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_FXA	move.w	Dia_XA(a4),d0
+	bra.s	Dia_FX
+Dia_FYA	move.w	Dia_YA(a4),d0
+	bra.s	Dia_FX
+Dia_FXB	move.w	Dia_XB(a4),d0
+	bra.s	Dia_FX
+Dia_FYB	move.w	Dia_YB(a4),d0
+Dia_FX	ext.l	d0
+	move.l	d0,-(a3)
+	addq.w	#1,d7
+	rts
+; Base en X
+; ~~~~~~~~~
+Dia_FBx	move.l	Dia_BaseX(a4),-(a3)
+	addq.w	#1,d7
+	rts
+; Base en Y
+; ~~~~~~~~~
+Dia_FBy	move.l	Dia_BaseY(a4),-(a3)
+	addq.w	#1,d7
+	rts
+; Message normal
+; ~~~~~~~~~~~~~~
+Dia_FMess
+	tst.w	d7
+	Rbeq	L_Dia_Synt
+	move.l	Dia_Messages(a4),a0
+	move.l	(a3),d0
+	Rble	L_Dia_Fonc
+	moveq	#0,d1
+	bra.s	.MSkip
+.MLoop	move.b	1(a0),d1
+	Rbmi	L_Dia_Fonc
+	lea	2(a0,d1.w),a0
+.MSkip	subq.l	#1,d0
+	bne.s	.MLoop
+	move.l	a0,(a3)
+	rts
+
+; Largeur d'un texte
+; ~~~~~~~~~~~~~~~~~~
+Dia_FTw
+	tst.w	d7
+	Rbeq	L_Dia_Synt
+	move.l	(a3),a0
+	tst.b	(a0)+
+	moveq	#0,d0
+	move.b	(a0)+,d0
+	beq.s	.Skip
+	move.l	T_RastPort(a5),a1
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	TextLength(a6)
+	move.l	(sp)+,a6
+	ext.l	d0
+.Skip	move.l	d0,(a3)
+	rts
+; Centrage d'un texte
+; ~~~~~~~~~~~~~~~~~~~
+Dia_FCx
+	bsr	Dia_FTw
+	move.l	(a3),d0
+	move.l	Dia_Sx(a4),d1
+	sub.l	d0,d1
+	bpl.s	.Skip
+	moveq	#0,d1
+.Skip	lsr.l	#1,d1
+	move.l	d1,(a3)
+	rts
+; Nombre de caracteres
+; ~~~~~~~~~~~~~~~~~~~~
+Dia_FLTxt
+	cmp.w	#1,d7
+	Rblt	L_Dia_Synt
+	move.l	(a3),a0
+	moveq	#0,d0
+	tst.b	(a0)+
+	move.b	(a0)+,d0
+	move.l	d0,(a3)
+	rts
+; Hauteur d'un texte
+; ~~~~~~~~~~~~~~~~~~
+Dia_FTh
+	move.l	T_RastPort(a5),a1
+	move.w	58(a1),d0
+	ext.l	d0
+	move.l	d0,-(a3)
+	addq.w	#1,d7
+	rts
+
+; Copie d'une chaine terminee par zero ADR LONG MZ
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_FStZero
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	move.l	a2,-(sp)
+	Rbsr	L_Dia_StDebut
+	subq.w	#1,d7
+	move.l	(a3)+,d1	Longueur max
+	move.l	(a3),a2
+.Loop	move.b	(a2)+,d0
+	cmp.b	#32,d0
+	bcs.s	.Exit
+	move.b	d0,(a0)+
+	subq.w	#1,d1
+	bgt.s	.Loop
+.Exit	move.l	a1,(a3)
+	move.l	(sp)+,a2
+	Rbra	L_Dia_StFini
+; Addition de chaines CH1 CH2 $
+; ~~~~~~~~~~~~~~~~~~~
+Dia_FPlusCh
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	Rbsr	L_Dia_StDebut
+	subq.w	#1,d7
+; Premiere chaine
+	move.l	a2,-(sp)
+	move.l	4(a3),a2
+	moveq	#0,d0
+	tst.b	(a2)+
+	move.b	(a2)+,d0
+	subq.w	#1,d0
+	bmi.s	.Sk1
+.Lp1	move.b	(a2)+,(a0)+
+	dbra	d0,.Lp1
+.Sk1
+; Deuxieme chaine
+	move.l	(a3)+,a2
+	moveq	#0,d0
+	tst.b	(a2)+
+	move.b	(a2)+,d0
+	subq.w	#1,d0
+	bmi.s	.Sk2
+.Lp2	move.b	(a2)+,(a0)+
+	dbra	d0,.Lp2
+.Sk2
+; Stocke le r�sultat
+	move.l	a1,(a3)
+	move.l	(sp)+,a2
+	Rbra	L_Dia_StFini
+; Variable en STRING
+; ~~~~~~~~~~~~~~~~~~
+Dia_FString1
+	moveq	#'"',d1
+	bra.s	Dia_FStr
+Dia_FString2
+	moveq	#"'",d1
+Dia_FStr
+	Rbsr	L_Dia_StDebut
+.Loop	move.b	(a6)+,d0
+	cmp.b	#" ",d0
+	bcs.s	.Fin
+	cmp.b	d0,d1
+	beq.s	.Fini
+	move.b	d0,(a0)+
+	bra.s	.Loop
+.Fin	subq.l	#1,a6
+.Fini	move.l	a1,-(a3)
+	addq.w	#1,d7
+	Rbra	L_Dia_StFini
+; Fonction MIN
+; ~~~~~~~~~~~~
+Dia_FMin
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	subq.w	#1,d7
+	move.l	(a3)+,d0
+	cmp.l	(a3),d0
+	bge.s	.Skip
+	move.l	d0,(a3)
+.Skip	rts
+; Fonction MAX
+; ~~~~~~~~~~~~
+Dia_FMax
+	cmp.w	#2,d7
+	Rblt	L_Dia_Synt
+	subq.w	#1,d7
+	move.l	(a3)+,d0
+	cmp.l	(a3),d0
+	ble.s	.Skip
+	move.l	d0,(a3)
+.Skip	rts
+
+; Button Position, prise dans VAR-1
+; Zone Position, prise dans VAR-1
+; ~~~~~~~~~~~~~
+Dia_FZP
+Dia_FBP	move.l	Dia_Vars-1*4(a4),-(a3)
+	addq.w	#1,d7
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 				ROUTINES GESTIONS CHAINE / CONVERSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FONCTION: Conversion en d�cimal CHIF #
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_FDecimal
+; - - - - - - - - - - - - -
+	cmp.w	#1,d7
+	Rblt	L_Dia_Synt
+	Rbsr	L_Dia_StDebut
+	move.l	(a3),d0
+	move.l	a1,(a3)
+	Rbsr	L_Dia_DecToAsc
+	Rbra	L_Dia_StFini
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fixe le debut d'une chaine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_StDebut
+; - - - - - - - - - - - - -
+	move.l	Dia_ABuffer(a4),a0
+	clr.w	(a0)+			Longueur
+	move.w	#Dia_StMark,(a0)+	Id
+	move.l	a0,a1
+	clr.w	(a0)+
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Calcule le buffer pour une chaine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_StFini
+; - - - - - - - - - - - - -
+	move.l	a0,d0
+	move.l	a0,d1
+	sub.l	a1,d1
+	subq.b	#2,d1
+	move.b	d1,1(a1)		Longueur de la chaine
+	addq.l	#1,d0
+	and.w	#$FFFE,d0
+	move.l	d0,Dia_ABuffer(a4)	Position du buffer
+	subq.l	#4,a1			Pointe le header
+	move.l	d0,a0
+	clr.l	(a0)			Plus rien!
+	sub.l	a1,a0
+	move.w	a0,(a1)			Longueur de la chaine
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES GESTIONS ZONE D'EDITION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface la fenetre de dialogue A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EdEnd
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_EdOn
+	Rbsr	L_Dia_WiZero
+	WiCall	WinDel
+	move.w	#-1,Dia_WindOn(a4)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Active la ligne de dialogue A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EdActive
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	moveq	#0,d1
+	move.w	Dia_ZoNumber(a0),d1
+	add.w	#1000,d1
+	Rbsr	L_Dia_WActive
+	move.l	(sp)+,a0
+	lea	Dia_LEd(a0),a0
+	Rbra	L_LEd_CuMarche
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fenetre dialogue A0 en route
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EdOn
+; - - - - - - - - - - - - -
+	movem.l	a0/a1/d0/d1,-(sp)
+	moveq	#0,d1
+	move.w	Dia_ZoNumber(a0),d1
+	add.w	#1000,d1
+	Rbsr	L_Dia_WActive
+	movem.l	(sp)+,a0/a1/d0/d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Inactive la fenetre A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EdInactive
+; - - - - - - - - - - - - -
+	lea	Dia_LEd(a0),a0
+	Rbra	L_LEd_CuStoppe
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Active s'il faut, la fenetre D1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_WActive
+; - - - - - - - - - - - - -
+	cmp.w	Dia_WindOn(a4),d1
+	beq.s	.Skip
+	move.w	d1,Dia_WindOn(a4)
+	WiCall	QWindow
+.Skip	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Passe paper/pen � zero pour effacement
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_WiZero
+; - - - - - - - - - - - - -
+	lea	.Zero(pc),a1
+	WiCall	Print
+	rts
+.Zero	dc.b	27,"J0",0
+	even
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES DE GESTION DE L'HYPERTEXTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Activation de la fenetre texte, A2=structure
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_TxActive
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d0-d1,-(sp)
+	moveq	#0,d1
+	move.w	Dia_ZoNumber(a2),d1
+	add.w	#3000,d1
+	Rbsr	L_Dia_WActive
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface la fenetre de texte A2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_TxEnd
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_TxActive
+	Rbsr	L_Dia_WiZero
+	WiCall	WinDel
+	move.w	#-1,Dia_WindOn(a4)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Affiche la page de texte
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_TxDraw
+; - - - - - - - - - - - - -
+	movem.l	d2/d3,-(sp)
+; Boucle d'affichage
+	move.w	Dia_TxPos(a2),d2
+	move.w	Dia_TxTy(a2),d3
+.ALoop	move.w	d2,d0
+	Rbsr	L_Dia_TxAff
+	addq.w	#1,d2
+	subq.w	#1,d3
+	bne.s	.ALoop
+; Plus d'actif!
+	clr.l	Dia_TxAct(a2)
+	movem.l	(sp)+,d2/d3
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Affiche la ligne #D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_TxAff
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a6,-(sp)
+	clr.w	-(sp)
+; Locate
+	moveq	#0,d3
+	move.w	d0,d3
+	moveq	#0,d1
+	move.w	d0,d2
+	sub.w	Dia_TxPos(a2),d2
+	bmi	.Vide
+	cmp.w	Dia_TxTy(a2),d2
+	bcc	.Vide
+	move.w	d2,d0
+	mulu	Dia_TxDispSize(a2),d0
+	move.l	Dia_TxDisplay(a2),a3
+	add.w	d0,a3				Adresse des pointeurs
+	clr.l	(a3)				Par defaut, rien!
+	clr.w	4(a3)
+	WiCall	Locate
+; Paper / Ink + Effacement ligne
+	lea	Dia_TxPp(a2),a1
+	WiCall	Print
+	WiCalD	ChrOut,26
+; Trouve l'adresse de la ligne
+	cmp.w	Dia_TxNLine(a2),d3
+	bcc	.Vide
+	move.w	d3,d0
+	lsl.w	#2,d0
+	move.l	Dia_TxAdress(a2),a0
+	move.l	0(a0,d0.w),d6
+	lsr.l	#8,d6
+	add.l	Dia_TxText(a2),d6
+	move.l	d6,a6				Adresse de la ligne!
+	move.l	a6,(a3)+
+	moveq	#0,d1
+	move.b	3(a0,d0.w),d1			Longueur de la ligne
+	lea	0(a6,d1.w),a0
+	move.l	a0,d7				Fin de la ligne
+	move.b	(a0),d5				Marque la fin
+	clr.b	(a0)
+; Affiche les segments de la ligne
+.RLoop	move.l	a6,a1
+.CLoop	move.b	(a1)+,d0
+	beq.s	.CPrn
+	cmp.b	#"{",d0
+	bne.s	.CLoop
+.CPrn	subq.l	#1,a1
+; Imprime le segment, normal
+	exg	a6,a1
+	move.b	(a6),d4
+	clr.b	(a6)
+	moveq	#0,d1			Impression limitee
+	moveq	#0,d2			Depuis le debut
+	move.w	Dia_TxTx(a2),d3		Taille fenetre -1
+	WiCall	Print3
+	cmp.w	d3,d1
+	bcc	.Ouf			Si droite atteinte
+; Un segment actif?
+	move.b	d4,(a6)
+	cmp.b	#"{",d4
+	bne	.Ouf
+; Affichage d'un segment actif
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a6,a1
+	move.w	(sp),d0
+	cmp.w	Dia_TxDispMax(a2),d0
+	bcc	.AErr
+	cmp.b	#"[",1(a1)
+	bne	.AErr
+	addq.l	#2,a1
+; Saute la partie reponse
+	move.b	Dia_TxPen(a2),4(a3)		Pen=paper
+	move.b	Dia_TxPaper(a2),5(a3)		Paper=pen
+	WiCall	XYCuWi
+	move.b	d1,2(a3)			Position dans ecran
+	move.l	a1,d0
+	sub.l	d6,d0
+	move.b	d0,6(a3)			Debut mot cl� dans texte
+	bset	#31,d4
+	cmp.b	#",",(a1)			Si pas de mot cl�
+	bne.s	.ALoop
+	bclr	#31,d4
+.ALoop	move.b	(a1)+,d0
+	beq	.AErr
+	cmp.b	#",",d0
+	beq.s	.Pp
+	cmp.b	#"]",d0
+	bne.s	.ALoop
+	beq.s	.AFin
+; Retrouve paper et pen
+.Pp	bsr	.PaPe
+	move.b	d1,4(a3)
+	cmp.b	#",",d0
+	bne	.AErr
+	bsr	.PaPe
+	move.b	d1,5(a3)
+	cmp.b	#"]",d0
+	bne	.AErr
+; Cherche la fin de la parenthese }
+.AFin	move.l	a1,a6
+.FLoop	move.b	(a1)+,d0
+	beq.s	.FFin
+	cmp.b	#"}",d0
+	bne.s	.FLoop
+	subq.l	#1,a1
+.FFin	move.l	a6,d0
+	sub.l	d6,d0
+	move.b	d0,(a3)				Debut dans le texte
+	move.l	a1,d0
+	sub.l	d6,d0
+	move.b	d0,1(a3)			Fin dans le texte
+; Change les couleurs
+	move.l	a1,-(sp)
+	lea	Dia_HtActive1(pc),a1
+	move.b	4(a3),2(a1)
+	move.b	5(a3),5(a1)
+	WiCall	Print
+	move.l	(sp)+,a1
+; Imprime le texte actif
+	exg.l	a1,a6
+	move.b	(a6),d4
+	clr.b	(a6)
+	moveq	#0,d1				Impression limitee
+	moveq	#0,d2
+	move.w	Dia_TxTx(a2),d3
+	WiCall	Print3
+	move.b	d4,(a6)
+	addq.w	#1,(sp)
+	move.b	d1,3(a3)			Position dans ecran
+	clr.b	7(a3)
+	btst	#31,d4				Inactif?
+	bne.s	.PaIna
+	move.b	#1,2(a3)
+	clr.b	3(a3)
+.PaIna	lea	Dia_TxDispZone(a3),a3
+	clr.w	(a3)
+; Rebranche � la normale
+	cmp.w	Dia_TxTx(a2),d1
+	bcc	.Ouf
+	cmp.b	#"}",d4
+	bne.s	.Ouf
+	addq.l	#1,a6
+	lea	Dia_TxPp(a2),a1
+	WiCall	Print
+	bra	.RLoop
+; Erreur dans la definition
+.AErr	clr.l	(a3)
+	clr.w	4(a3)
+	lea	1(a6),a1
+	bra	.CLoop
+; Ouf, c'est fini!
+; ~~~~~~~~~~~~~~~~
+.Ouf	move.l	d7,a0
+	move.b	d5,(a0)
+.Vide	addq.l	#2,sp
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+; Petite saisie de chiffre decimal
+.PaPe	moveq	#0,d2
+	moveq	#0,d1
+.PLoop	move.b	(a1)+,d0
+	move.b	d0,d2
+	sub.b	#"0",d2
+	bcs.s	.POut
+	cmp.b	#9,d2
+	bhi.s	.POut
+	mulu	#10,d1
+	add.l	d2,d1
+	bra.s	.PLoop
+.POut	add.b	#"0",d1
+	rts
+Dia_HtActive1
+	dc.b	27,"B0",27,"P0",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Affiche le mot actif A0(pointeurs) D0=Y
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_TxAffActive
+; - - - - - - - - - - - - -
+	movem.l	a2-a4/d2-d4,-(sp)
+	move.l	a0,a3
+	moveq	#0,d2
+	move.w	d0,d2
+	mulu	Dia_TxDispSize(a2),d0
+	move.l	Dia_TxDisplay(a2),a4
+	move.l	0(a4,d0.w),a4
+; Locate
+	moveq	#0,d1
+	move.b	2(a3),d1
+	WiCall	Locate
+	bne.s	.Out
+; Change les couleurs
+	lea	Dia_HtActive(pc),a1
+	move.b	4(a3),2(a1)
+	move.b	5(a3),5(a1)
+	cmp.l	Dia_TxAct(a2),a3
+	bne.s	.Pa
+	move.b	5(a3),2(a1)
+	move.b	4(a3),5(a1)
+.Pa	WiCall	Print
+; Imprime le texte actif
+	moveq	#0,d0
+	move.b	(a3)+,d0
+	lea	0(a4,d0.w),a1
+	move.b	(a3)+,d0
+	lea	0(a4,d0.w),a4
+	move.b	(a4),d4
+	clr.b	(a4)
+	moveq	#0,d1				Impression limitee
+	moveq	#0,d2
+	move.w	Dia_TxTx(a2),d3
+	WiCall	Print3
+	move.b	d4,(a4)
+; Ca y est!
+.Out	movem.l	(sp)+,a2-a4/d2-d4
+	rts
+Dia_HtActive
+	dc.b	27,"B0",27,"P0",0
+	even
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES GESTION LISTES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Activation de la fenetre liste A2=liste
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_LiActive
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/d0-d1,-(sp)
+	moveq	#0,d1
+	move.w	Dia_ZoNumber(a2),d1
+	add.w	#2000,d1
+	Rbsr	L_Dia_WActive
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Efface la fenetre de liste A2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_LiEnd
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_LiActive
+	Rbsr	L_Dia_WiZero
+	WiCall	WinDel
+	move.w	#-1,Dia_WindOn(a4)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Affichage du contenu d'une liste - A2=liste
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_LiDraw
+; - - - - - - - - - - - - -
+	movem.l	d2/d3,-(sp)
+; Boucle d'affichage
+	move.w	Dia_LiPos(a2),d2
+	move.w	Dia_LiTy(a2),d3
+.ALoop	move.w	d2,d0
+	Rbsr	L_Dia_LiAff
+	addq.w	#1,d2
+	subq.w	#1,d3
+	bne.s	.ALoop
+; Ok!
+	movem.l	(sp)+,d2/d3
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Affichage d'un des �l�ments de la liste - A2 structure - D0=#
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_LiAff
+; - - - - - - - - - - - - -
+	movem.l	d0-d6/a0-a1,-(sp)
+; Locate
+	moveq	#0,d4
+	move.w	d0,d4
+	moveq	#0,d1
+	move.w	d0,d2
+	sub.w	Dia_LiPos(a2),d2
+	bmi	.Vide
+	cmp.w	Dia_LiTy(a2),d2
+	bcc	.Vide
+	WiCall	Locate
+; Paper / Ink + Effacement ligne
+	lea	.Inv0(pc),a1
+	cmp.w	Dia_LiActNumber(a2),d4
+	bne.s	.Ina
+	lea	.Inv1(pc),a1
+.Ina	WiCall	Print
+; Trop loin?
+	move.l	Dia_LiArray(a2),d0
+	beq	.Vide
+	move.l	d0,a0
+	cmp.w	2(a0),d4
+	bcc	.Vide
+; Imprime le numero, eventuellement
+	moveq	#0,d6
+	btst	#0,Dia_ZoFlags+1(a2)
+	beq.s	.NoNum
+	move.l	d4,d0
+	btst	#1,Dia_ZoFlags+1(a2)
+	beq.s	.Nm1
+	addq.l	#1,d0
+.Nm1	move.l	Dia_ABuffer(a4),a0
+	addq.l	#4,a0
+	move.l	a0,d2
+	Rbsr	L_Dia_DecToAsc
+	sub.l	a0,d2
+	move.b	#" ",(a0)+
+	move.b	#"-",(a0)+
+	move.b	#" ",(a0)+
+	clr.b	(a0)
+	move.l	a0,d6
+	sub.l	Dia_ABuffer(a4),d6
+	subq.l	#2,d6
+; Met des espaces au debut
+	add.w	Dia_LiLArray(a2),d2
+	ble.s	.Nm2
+.NmL	WiCalD	ChrOut,32
+	subq.w	#1,d2
+	bne.s	.NmL
+; Imprime le chiffre
+.Nm2	move.l	Dia_ABuffer(a4),a1
+	addq.l	#4,a1
+	WiCall	Print
+.NoNum
+; Imprime la chaine
+	move.l	Dia_LiArray(a2),a0
+	moveq	#0,d0
+	cmp.w	2(a0),d4
+	bcc.s	.Vide
+; Un tableau magique?
+	cmp.l	#"MgIk",4(a0)
+	bne.s	.Norm
+	move.l	8(a0),a0
+	jsr	(a0)
+	bra.s	.Sui
+; Un tableau normal
+.Norm	lsl.l	#2,d4
+	lea	6(a0,d4.l),a0
+	move.l	(a0),d0
+	cmp.l	#8*1024,d0
+	ble	.Vide
+	move.l	d0,a1
+	move.b	(a1)+,d1
+	lsl.w	#8,d1
+	move.b	(a1)+,d1
+.Sui	move.w	Dia_LiTx(a2),d2
+	sub.w	d6,d2
+	cmp.w	d2,d1
+	ble.s	.Pa
+	move.w	d2,d1
+.Pa	WiCall	Print2
+.Vide	movem.l	(sp)+,d0-d6/a0-a1
+	rts
+.Inv0	dc.b	27,"I0",26,0
+.Inv1	dc.b	27,"I1",26,0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES DE GESTION SLIDERS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Dessine le slider A2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_SlDraw
+; - - - - - - - - - - - - -
+	move.l	a2,-(sp)
+	moveq	#0,d0
+	lea	Dia_Sl(a2),a0
+	Rbsr	L_Sl_Draw
+	move.w	Dia_Writing(a4),d0
+	move.l	T_RastPort(a5),a1
+	GfxCa5	SetDrMd
+	move.l	(sp)+,a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINE DESSIN BOUTON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_BtDraw
+; - - - - - - - - - - - - -
+	movem.l	a2/a6,-(sp)
+	moveq	#0,d0
+	move.w	Dia_BtRDraw(a2),d0
+	beq	.Skip
+; Adresse de la routine
+	move.l	Dia_Programs(a4),a6
+	add.l	d0,a6
+; Sauve les donn�es
+	move.l	Dia_BaseX(a4),-(sp)
+	move.l	Dia_BaseY(a4),-(sp)
+	move.l	Dia_Sx(a4),-(sp)
+	move.l	Dia_Sy(a4),-(sp)
+	move.w	Dia_XA(a4),-(sp)
+	move.w	Dia_YA(a4),-(sp)
+	move.w	Dia_XB(a4),-(sp)
+	move.w	Dia_YB(a4),-(sp)
+	move.l	Dia_Vars-1*4(a4),-(sp)
+	move.l	Dia_Vars-2*4(a4),-(sp)
+	move.l	Dia_Vars-3*4(a4),-(sp)
+	move.l	Dia_Sp(a4),-(sp)
+; Change XYSXSY
+	moveq	#0,d0
+	move.w	Dia_ZoSx(a2),d0
+	move.l	d0,Dia_Sx(a4)
+	move.w	Dia_ZoSy(a2),d0
+	move.l	d0,Dia_Sy(a4)
+	move.w	Dia_ZoX(a2),d0
+	move.l	d0,Dia_BaseX(a4)
+	move.w	Dia_ZoY(a2),d0
+	move.l	d0,Dia_BaseY(a4)
+; Appelle la routine
+	move.l	Dia_ZoPos(a2),Dia_Vars-1*4(a4)
+	move.l	a2,Dia_Vars-3*4(a4)
+	Rbsr	L_Dia_Loop
+; Restore les donn�es
+	move.l	(sp)+,Dia_Sp(a4)
+	move.l	(sp)+,Dia_Vars-3*4(a4)
+	move.l	(sp)+,Dia_Vars-2*4(a4)
+	move.l	(sp)+,Dia_Vars-1*4(a4)
+	move.w	(sp)+,Dia_YB(a4)
+	move.w	(sp)+,Dia_XB(a4)
+	move.w	(sp)+,Dia_YA(a4)
+	move.w	(sp)+,Dia_XA(a4)
+	move.l	(sp)+,Dia_Sy(a4)
+	move.l	(sp)+,Dia_Sx(a4)
+	move.l	(sp)+,Dia_BaseY(a4)
+	move.l	(sp)+,Dia_BaseX(a4)
+; Retour
+.Skip	movem.l	(sp)+,a2/a6
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES DIVERSES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Delimite une routine []
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetRout
+; - - - - - - - - - - - - -
+	Rbsr	L_Dia_Chr
+	cmp.b	#"[",d0
+	Rbne	L_Dia_Synt
+	move.l	a6,d1
+	Rbsr	L_Dia_Chr
+	Rbeq	L_Dia_Synt
+	cmp.b	#"]",d0
+	beq.s	.Zero
+	sub.l	Dia_Programs(a4),d1
+	Rbsr	L_Dia_EndP
+	rts
+.Zero	moveq	#0,d1
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve la fin d'une parenthese
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EndP
+; - - - - - - - - - - - - -
+	move.l	d1,-(sp)
+	moveq	#1,d1
+.Loop	move.b	(a6)+,d0
+	Rbeq	L_Dia_Synt
+	cmp.b	#"[",d0
+	beq.s	.Plus
+	cmp.b	#"]",d0
+	bne.s	.Loop
+	subq.w	#1,d1
+	bne.s	.Loop
+	move.l	(sp)+,d1
+	rts
+.Plus	addq.w	#1,d1
+	bra.s	.Loop
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					UPDATE LA ZONE D2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_ZUpdate
+; - - - - - - - - - - - - -
+	movem.l	a2/d6,-(sp)
+	move.l	Dia_Buffer(a4),a2
+	move.l	#EntNul,d6
+.Loop	cmp.w	#Dia_ZoMark,4(a2)		Une zone?
+	bne.s	.Next
+	cmp.w	Dia_ZoNumber(a2),d2		La bonne?
+	bne.s	.Next
+	cmp.l	Dia_Vars-3*4(a4),a2		Pas celui-ci?
+	beq.s	.Next
+	cmp.w	#Dia_EdMark,2(a2)
+	beq	.Ed
+	cmp.w	#Dia_BtMark,2(a2)
+	beq	.Bt
+	cmp.w	#Dia_SlMark,2(a2)
+	beq	.Sl
+	cmp.w	#Dia_LiMark,2(a2)
+	beq	.Li
+	cmp.w	#Dia_TxMark,2(a2)
+	beq	.Tx
+.Next	add.w	(a2),a2
+	tst.w	(a2)
+	bne.s	.Loop
+	Rbsr	L_Dia_Patch
+	movem.l	(sp)+,a2/d6
+	rts
+; Un bouton
+; ~~~~~~~~~
+.Bt	cmp.l	d3,d6
+	beq.s	.BNul
+	cmp.l	Dia_ZoPos(a2),d3		Faut-il change le bouton?
+	beq.s	.BDeja
+	move.l	d3,Dia_ZoPos(a2)		Change le bouton
+.BNul	Rbsr	L_Dia_BtDraw			Va le dessiner
+	Rbsr	L_Dia_ZoChange			Va le changer
+.BDeja	bclr	#7,Dia_ZoFlags(a2)		Pas de sortie!
+	bra.s	.Next
+; Un slider
+; ~~~~~~~~~
+.Sl	cmp.l	d5,d6				Update global
+	beq.s	.SNul1
+	move.w	d5,Dia_Sl+Sl_Global(a2)
+.SNul1	cmp.l	d4,d6				Update window
+	beq.s	.SNul2
+	move.w	d4,Dia_Sl+Sl_Window(a2)
+.SNul2	cmp.l	d3,d6				Update position
+	beq.s	.SNul3
+	move.l	d3,Dia_ZoPos(a2)
+	move.w	d3,Dia_Sl+Sl_Position(a2)
+.SNul3	Rbsr	L_Dia_SlDraw
+	Rbsr	L_Dia_ZoChange
+	bclr	#7,Dia_ZoFlags(a2)		Pas de sortie!
+	bra	.Next
+; Une liste
+; ~~~~~~~~~
+.Li	cmp.l	d5,d6				Maximum Activable
+	beq.s	.LNul1
+	move.w	d5,Dia_LiMaxAct(a2)
+.LNul1	cmp.l	d4,d6				Active courant
+	beq.s	.LNul2
+	move.w	Dia_LiActNumber(a2),d0
+	bmi.s	.LAct
+	move.w	#-1,Dia_LiActNumber(a2)
+	Rbsr	L_Dia_LiActive
+	Rbsr	L_Dia_LiAff
+.LAct	move.w	d4,Dia_LiActNumber(a2)
+	move.l	d4,Dia_ZoPos(a2)
+.LNul2	cmp.l	d3,d6				Position de la liste
+	beq.s	.LNul3
+	move.w	d3,Dia_LiPos(a2)
+.LNul3	Rbsr	L_Dia_LiActive
+	Rbsr	L_Dia_LiDraw
+	bclr	#7,Dia_ZoFlags(a2)		Pas de sortie!
+	bra	.Next
+; Un texte
+; ~~~~~~~~
+.Tx	cmp.l	d3,d6
+	beq	.Next
+	move.w	d3,Dia_TxPos(a2)
+	Rbsr	L_Dia_TxActive
+	Rbsr	L_Dia_TxDraw
+	bclr	#7,Dia_ZoFlags(a2)
+	bra	.Next
+; Une zone de texte
+; ~~~~~~~~~~~~~~~~~
+.Ed	cmp.l	d3,d6
+	beq	.Next
+	cmp.w	#Dia_EdLong,(a2)
+	bne.s	.Di
+	cmp.l	#1*1024,d3			Illegal: type mismatch
+	Rble	L_Dia_Fonc
+	move.l	d3,a1
+	bra.s	.EdCop
+; Un chiffre?
+; ~~~~~~~~~~~
+.Di	move.l	d3,-(a3)
+	moveq	#1,d7
+	Rbsr	L_Dia_FDecimal
+	move.l	(a3)+,a1
+; Recopie le texte dans le buffer
+.EdCop	move.l	a2,a0
+	Rbsr	L_Dia_EdOn
+	lea	Dia_LEd(a2),a0
+	moveq	#0,d0
+	tst.b	(a1)+
+	move.b	(a1)+,d0
+	Rbsr	L_LEd_New
+	bra	.Next
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Routine CHANGE zone active (bouton / liste active / slider)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_ZoChange
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	Dia_ZoPos(a2),d0
+	moveq	#0,d1
+	move.w	Dia_ZoRChange(a2),d1
+	beq	.Skip
+; Sauve les donn�es
+	move.l	Dia_BaseX(a4),-(sp)
+	move.l	Dia_BaseY(a4),-(sp)
+	move.l	Dia_Sx(a4),-(sp)
+	move.l	Dia_Sy(a4),-(sp)
+	move.w	Dia_XA(a4),-(sp)
+	move.w	Dia_YA(a4),-(sp)
+	move.w	Dia_XB(a4),-(sp)
+	move.w	Dia_YB(a4),-(sp)
+	move.l	Dia_Vars-1*4(a4),-(sp)
+	move.l	Dia_Vars-2*4(a4),-(sp)
+	move.l	Dia_Vars-3*4(a4),-(sp)
+	move.l	Dia_Sp(a4),-(sp)
+; Prepare les donn�es
+	move.l	d0,Dia_Vars-1*4(a4)		Position du bouton
+	move.l	d0,Dia_Vars-2*4(a4)
+	move.l	a2,Dia_Vars-3*4(a4)		Adresse de la structure
+	bclr	#7,Dia_ZoFlags(a2)		Pas de QUIT
+	bclr	#5,Dia_ZoFlags(a2)		Pas de IMMEDIAT
+; Appelle la routine
+	move.l	Dia_Programs(a4),a6
+	add.l	d1,a6
+	Rbsr	L_Dia_Loop
+; Retour de parametres
+	move.l	Dia_Vars-2*4(a4),d0
+; Restaure les donn�es
+	move.l	(sp)+,Dia_Sp(a4)
+	move.l	(sp)+,Dia_Vars-3*4(a4)
+	move.l	(sp)+,Dia_Vars-2*4(a4)
+	move.l	(sp)+,Dia_Vars-1*4(a4)
+	move.w	(sp)+,Dia_YB(a4)
+	move.w	(sp)+,Dia_XB(a4)
+	move.w	(sp)+,Dia_YA(a4)
+	move.w	(sp)+,Dia_XA(a4)
+	move.l	(sp)+,Dia_Sy(a4)
+	move.l	(sp)+,Dia_Sx(a4)
+	move.l	(sp)+,Dia_BaseY(a4)
+	move.l	(sp)+,Dia_BaseX(a4)
+; Retour, D0= position de retour
+.Skip	move.l	(sp)+,a6
+	rts
+
+;
+; 	Trouve l'adresse du dialogue numero D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	OUT	BEQ Pas trouve, BNE Trouve, D0=Flags / A1=Adresse
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_GetChannel
+; - - - - - - - - - - - - -
+	move.l	Cur_Dialogs(a5),a0
+	move.l	(a0),d1
+	beq.s	.Nof
+.Loop	move.l	d1,a1
+	cmp.l	8(a1),d0
+	beq.s	.Fnd
+	move.l	(a1),d1
+	bne.s	.Loop
+.Nof	sub.l	a1,a1
+	move.l	a1,a0
+	rts
+.Fnd	lea	8(a1),a0
+	move.l	a0,a1
+	move.w	#%00000,CCR
+	rts
+
+
+; ________________________________________________________________________
+;
+;	ROUTINES D'ANIMATION DE L'ARBRE
+;
+; Exploration de l'arbre par le test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_AutoTest
+; - - - - - - - - - - - - -
+	moveq	#127,d0				Teste jusqu'� 127 boites
+	Rbra	L_Dia_AutoTest2
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_AutoTest2
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	d0,d7
+	subq.w	#1,d7
+; Explore les differentes boites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Tests	move.l	Cur_Dialogs(a5),a4
+	move.l	(a4),d0
+	beq.s	.Out
+.Loop	move.l	d0,a4
+	lea	8(a4),a4
+	btst	#0,Dia_RFlags(a4)		Canal effac�?
+	beq.s	.Next
+	btst	#2,Dia_RFlags(a4)		Canal FREEZE?
+	bne.s	.Next
+	Rbsr	L_Dia_Active			Active l'�cran
+	bne.s	.Err
+	move.l	Dia_Edited(a4),d0		Active la fenetre courante
+	ble.s	.PaWi
+	move.l	d0,a0
+	Rbsr	L_Dia_EdActive
+.PaWi	move.l	Dia_Pile(a4),a3
+	Rbsr	L_Dia_Tests			Fait les tests
+	beq.s	.Act
+	move.l	a4,a0
+	Rbsr	L_Dia_EffChanA0			Effacement du canal!
+.Act	Rbsr	L_Dia_ReActive			Remet l'ancien ecran
+	move.w	Dia_Error(a4),d0		Une erreur?
+	bne.s	.Err
+.Next	move.l	-8(a4),d0
+	beq.s	.Out
+	dbra	d7,.Loop
+; Termin�!
+; ~~~~~~~~
+.Out	moveq	#0,d0				Pas d'erreur
+.Out2	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; Une erreur: met le canal en FREEZE, pour eviter la boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Err	bset	#2,Dia_RFlags(a4)
+	bra.s	.Out2
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					UN TOUR DE L'ARBRE D'OBJETS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_Tests
+; - - - - - - - - - - - - -
+	movem.l	a2-a3/d2-d7,-(sp)
+; Flags a zero!
+; ~~~~~~~~~~~~~
+	clr.w	Dia_Exit(a4)
+; Un bouton instantann�
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	Dia_Release(a4),d0
+	beq.s	.Pare
+	move.l	d0,a2
+	move.w	Dia_ZoNumber(a2),Dia_Return(a4)
+	SyCall	MouseKey
+	and.w	#$01,d1
+	beq.s	.Re
+	Rbsr	L_Dia_ZoChange
+	bclr	#7,Dia_Flags(a2)
+	beq	.TFini
+	addq.w	#1,Dia_Exit(a4)
+	bra	.TFini
+.Re	clr.w	Dia_Return(a4)
+	clr.l	Dia_Release(a4)
+	Rbsr	L_Dia_BtDraw
+	Rbsr	L_Dia_Patch
+.Pare
+; Une �dition?
+; ~~~~~~~~~~~~~
+	move.l	Dia_Edited(a4),d0
+	beq.s	.NoEd
+	cmp.l	#-1,d0
+	beq.s	.NoEd
+	bsr	.Timer
+	move.l	d0,a2
+	move.l	a2,a0
+	Rbsr	L_Dia_EdActive
+	lea	Dia_LEd(a2),a0
+	Rbsr	L_LEd_Loop
+	cmp.w	#1,d2			Return
+	bne.s	.PaRet
+	move.l	Dia_Edited(a4),a0	Renvoie la zone
+	move.w	Dia_ZoNumber(a0),Dia_Return(a4)
+	btst	#4,Dia_Flags(a4)	Passer avec RETURN?
+	beq.s	.EdNxt
+	bra	.Mouse
+.PaRet	tst.l	d1			Une touche?
+	beq	.Mouse
+	Rbsr	L_Dia_Patch
+	move.l	d1,d0
+	swap	d0
+	cmp.b	#$42,d0			Tab?
+	bne.s	.EdK
+; Trouve la prochaine fenetre � �diter
+.EdNxt	move.l	a2,a0
+	Rbsr	L_Dia_EdInactive
+	move.l	Dia_Edited(a4),a0
+	move.l	#-1,Dia_Edited(a4)
+	Rbsr	L_Dia_EdNext
+	Rbsr	L_Dia_ClearKey
+	Rbsr	L_Dia_Patch
+	bra	.Mouse
+; Une touche?
+; ~~~~~~~~~~~
+.NoEd	move.l	T_ClLast(a5),d1
+.EdK	move.l	d1,Dia_LastKey(a4)
+	beq	.Mouse
+	bsr 	.Timer
+	btst	#2,Dia_Flags(a4)	Sortie forcee?
+	beq.s	.PaEx
+	addq.w	#1,Dia_Exit(a4)
+.PaEx	move.b	d1,d2
+	swap	d1
+	cmp.b	#"a",d2			Garde la majuscule
+	blt.s	.Mj
+	cmp.b	#"z",d2
+	bgt.s	.Mj
+	sub.b	#$20,d2
+.Mj	move.l	Dia_Buffer(a4),a2
+; Boucle d'exploration
+.KLoop	tst.w	(a2)
+	beq	.ReEd
+	cmp.w	#Dia_KyMark,2(a2)	Une definition de touche?
+	bne	.KNext
+	move.b	Dia_KyCode(a2),d0	Prend le code
+	bmi.s	.KScan
+	beq	.KNext
+	cmp.b	d0,d2			ASCII egal?
+	bne	.KNext
+	bra.s	.KShf
+.KScan	cmp.b	#-1,d0			-1>>> sortie directe
+	beq	.KShf
+	and.b	#$7f,d0
+	cmp.b	d1,d0
+	bne	.KNext
+.KShf	ror.w	#8,d1			Les shifts
+	move.b	Dia_KyShift(a2),d0
+	move.b	d0,d2			Shift?
+	and.b	#Shf,d2
+	sne	d2
+	move.b	d1,d3
+	and.b	#Shf,d3
+	sne	d3
+	cmp.b	d2,d3
+	bne.s	.KNextS
+	move.b	d0,d2			Amiga?
+	and.b	#Ami,d2
+	sne	d2
+	move.b	d1,d3
+	and.b	#Ami,d3
+	sne	d3
+	cmp.b	d2,d3
+	bne.s	.KNextS
+	move.b	d0,d2			Control
+	and.b	#Ctr,d2
+	sne	d2
+	move.b	d1,d3
+	and.b	#Ctr,d3
+	sne	d3
+	cmp.b	d2,d3
+	bne.s	.KNextS
+	move.b	d0,d2			Alternate
+	and.b	#Alt,d2
+	sne	d2
+	move.b	d1,d3
+	and.b	#Alt,d3
+	sne	d3
+	cmp.b	d2,d3
+	bne.s	.KNextS
+.Pa4	move.l	Dia_KyZone(a2),d0
+	beq.s	.Mouse
+	Rbsr	L_Dia_ClearKey		Nettoyage du buffer
+	moveq	#1,d4			Simule l'appui
+	move.l	d0,d5			Pointe l'objet � activer
+	moveq	#0,d6
+	moveq	#0,d7
+	bra	.MousIn
+; Passe au suivant
+.KNextS	ror.w	#8,d1
+.KNext	add.w	(a2),a2
+	bra	.KLoop
+; Aucune touche active, TAB reactive une fenetre EDITt
+.ReEd	cmp.l	#-1,Dia_Edited(a4)
+	bne	.Mouse
+	move.w	Dia_LastKey(a4),d0
+	cmp.b	#$42,Dia_LastKey+1(a4)
+	bne.s	.Mouse
+.ReA	Rbsr	L_Dia_EdFirst
+	Rbsr	L_Dia_ClearKey
+	Rbsr	L_Dia_Patch
+	bra	.TFini
+
+; La souris?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Mouse
+; Gestion des listes actives.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	SyCall	MouseKey
+	move.w	d1,d4
+	and.w	#$01,d4
+	Rbsr	L_Dia_GetMouseZone		Une zone?
+	move.l	d0,d5
+	move.w	d1,d6
+	move.w	d2,d7
+; Explore toute la liste
+.MousIn	move.l	Dia_Buffer(a4),a2
+.MLoop	cmp.w	#Dia_ZoMark,4(a2)
+	bne.s	.MNext
+	move.w	2(a2),d0
+	cmp.w	#Dia_BtMark,d0
+	beq	.MBt
+	cmp.w	#Dia_EdMark,d0
+	beq	.MEd
+	cmp.w	#Dia_SlMark,d0
+	beq	.MSl
+	cmp.w	#Dia_LiMark,d0
+	beq	.MLi
+	cmp.w	#Dia_TxMark,d0
+	beq	.MHy
+.MNext	add.w	(a2),a2
+	tst.w	(a2)
+	bne.s	.MLoop
+; Appui souris?
+; ~~~~~~~~~~~~~
+	tst.w	d4
+	beq.s	.PaSou
+	bsr	.Timer
+	btst	#3,Dia_Flags(a4)
+	beq.s	.PaSou
+	addq.w	#1,Dia_Exit(a4)
+.PaSou
+; Fin de la boucle! Sortie= BNE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.TFini	move.w	Dia_Exit(a4),d0
+	movem.l	(sp)+,a2-a3/d2-d7
+	rts
+
+
+; Reset le timer si action
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+.Timer	tst.l	Dia_Timer(sp)
+	beq.s	.Skt
+	move.l	T_VblCount(a5),Dia_TimerPos(a4)
+.Skt	rts
+
+; Mousekey->	Bouton
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MBt	tst.w	d4
+	beq	.MNext
+	cmp.l	a2,d5
+	bne	.MNext
+; Met le numero du bouton
+	move.w	Dia_ZoNumber(a2),Dia_Return(a4)
+; Passe au dessin suivant
+	move.l	Dia_ZoPos(a2),d1
+	addq.w	#1,d1
+	cmp.w	Dia_BtMax(a2),d1
+	ble.s	.PaSup
+	move.w	Dia_BtMin(a2),d1
+.PaSup	move.l	d1,Dia_ZoPos(a2)
+; Appelle les routines
+	Rbsr	L_Dia_BtDraw
+	Rbsr	L_Dia_ZoChange
+	Rbsr	L_Dia_Patch
+	bclr	#5,Dia_ZoFlags(a2)
+	bne.s	.PaW
+	Rbsr	L_Dia_NoMKey
+	cmp.l	Dia_ZoPos(a2),d0
+	beq.s	.Ju
+	move.l	d0,Dia_ZoPos(a2)
+	Rbsr	L_Dia_BtDraw
+	Rbsr	L_Dia_Patch
+.Ju	bra.s	.BQuit
+.PaW	move.l	d0,Dia_ZoPos(a2)
+	move.l	a2,Dia_Release(a4)
+; Positionne le flag EXIT
+.BQuit	bclr	#7,Dia_ZoFlags(a2)
+	beq	.MNext
+	addq.w	#1,Dia_Exit(a4)
+	bra	.MNext
+; Mousekey->	Une edition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MEd	tst.w	d4
+	beq	.MNext
+	cmp.l	a2,d5
+	bne	.MNext
+; Change l'�dition courante
+	move.l	Dia_Edited(a4),d0
+	move.l	a2,Dia_Edited(a4)
+	cmp.l	d0,a2			Active la nouvelle fenetre
+	beq.s	.Bla
+	cmp.l	#-1,d0
+	beq.s	.Bla
+	move.l	d0,a0
+	Rbsr	L_Dia_EdInactive
+	Rbsr	L_Dia_Patch
+.Bla	bra	.MNext
+; Mousekey->	Un slider
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MSl	tst.w	d4
+	beq	.MNext
+	cmp.l	a2,d5
+	bne	.MNext
+	move.w	Dia_ZoNumber(a2),Dia_Return(a4)
+	lea	Dia_Sl(a2),a0
+	Rbsr	L_Sl_Clic
+	move.l	T_RastPort(a5),a1
+	move.w	Dia_Writing(a4),d0
+	GfxCa5	SetDrMd
+	bclr	#7,Dia_ZoFlags(a2)
+	bra	.MNext
+; Mousekey->	Une liste active
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MLi	cmp.l	a2,d5
+	bne.s	.LNon
+; Coordonnees dans la fenetre
+	move.w	d7,d2
+	lsr.w	#3,d2
+	add.w	Dia_LiPos(a2),d2
+	cmp.w	Dia_LiMaxAct(a2),d2		Autorise?
+	blt.s	.LDans
+.LNon	moveq	#-1,d2
+; Effacer une ancienne selection?
+.LDans	move.w	Dia_LiActNumber(a2),d0
+	bmi.s	.LAct
+	cmp.w	d0,d2
+	beq	.LKey
+	btst	#2,Dia_ZoFlags+1(a2)		Flag appui sur mouse?
+	beq.s	.LPak1
+	tst.w	d4
+	beq.s	.LKey
+	tst.w	d2
+	bmi.s	.LKey
+.LPak1	move.w	#-1,Dia_LiActNumber(a2)
+	move.l	#-1,Dia_ZoPos(a2)
+	Rbsr	L_Dia_LiActive
+	Rbsr	L_Dia_LiAff
+	Rbsr	L_Dia_Patch
+; Active la nouvelle
+.LAct	btst	#2,Dia_ZoFlags+1(a2)		Flag appui sur mouse?
+	beq.s	.LPak2
+	tst.w	d4
+	beq.s	.LKey
+.LPak2	move.w	d2,d0
+	bmi.s	.LKey
+	move.w	d0,Dia_LiActNumber(a2)
+	Rbsr	L_Dia_LiActive
+	Rbsr	L_Dia_LiAff
+	Rbsr	L_Dia_Patch
+; Appui sur la souris?
+.LKey	tst.w	d4
+	beq	.MNext
+	moveq	#0,d0
+	move.w	d2,d0
+	bmi	.MNext
+	move.w	Dia_ZoNumber(a2),Dia_Return(a4)
+	move.l	d0,Dia_ZoPos(a2)
+	Rbsr	L_Dia_ZoChange
+	Rbsr	L_Dia_Patch
+	bclr	#5,Dia_ZoFlags(a2)
+	bne.s	.LNow
+	Rbsr	L_Dia_NoMKey
+	Rbsr	L_Dia_Patch
+.LNow	bra	.BQuit
+
+; Mousekey->	Hypertexte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MHy	cmp.l	a2,d5
+	bne.s	.HRien
+; Trouve le mot actif dans cette fenetre
+	move.w	d7,d2
+	lsr.w	#3,d2
+	move.w	d6,d1
+	lsr.w	#3,d1
+	move.l	Dia_TxDisplay(a2),a0
+	move.w	d2,d0
+	mulu	Dia_TxDispSize(a2),d0
+	add.w	d0,a0
+	move.l	(a0)+,d0
+	bne.s	.HIn
+	bra.s	.HRien
+.HLoop	cmp.b	2(a0),d1
+	bcs.s	.HNext
+	cmp.b	3(a0),d1
+	bcs.s	.HFound
+.HNext	lea	Dia_TxDispZone(a0),a0
+.HIn	tst.w	(a0)
+	bne.s	.HLoop
+.HRien	moveq	#0,d2
+	bra.s	.HSuit
+; Trouve!
+.HFound	move.w	d2,d3
+	move.l	a0,d2
+; Effacer une ancienne selection?
+.HSuit	move.l	Dia_TxAct(a2),d0
+	beq.s	.HAct
+	cmp.l	d0,d2
+	beq.s	.HKey
+	move.l	#-1,Dia_ZoPos(a2)
+	Rbsr	L_Dia_TxActive
+	move.l	Dia_TxAct(a2),a0
+	move.w	Dia_TxYAct(a2),d0
+	clr.l	Dia_TxAct(a2)
+	Rbsr	L_Dia_TxAffActive
+	Rbsr	L_Dia_Patch
+; Active la nouvelle
+.HAct	move.l	d2,Dia_TxAct(a2)
+	beq.s	.HKey
+	move.w	d3,Dia_TxYAct(a2)
+	Rbsr	L_Dia_TxActive
+	move.l	d2,a0
+	move.w	d3,d0
+	Rbsr	L_Dia_TxAffActive
+	Rbsr	L_Dia_Patch
+; Appui sur la souris?
+.HKey	tst.w	d4
+	beq	.MNext
+	tst.l	d2
+	beq	.MNext
+	move.w	Dia_ZoNumber(a2),Dia_Return(a4)
+	movem.l	a3/a6/d7,-(sp)
+	mulu	Dia_TxDispSize(a2),d3
+	move.l	Dia_TxDisplay(a2),a6
+	move.l	0(a6,d3.w),a6
+	move.l	d2,a0
+	moveq	#0,d0
+	move.b	6(a0),d0
+	add.l	d0,a6
+	Rbsr	L_Dia_Chr
+	bpl.s	.Let
+; Un chiffre
+	Rbsr	L_Dia_FChif
+	move.l	(a3)+,Dia_ZoPos(a2)
+	clr.b	Dia_TxBuffer(a2)
+	bra	.HX
+; Un texte!
+.Let	sub.l	#1,a6
+	lea	Dia_TxBuffer(a2),a0
+	lea	Dia_TxBufferEnd-2(a2),a1
+.HCopy	move.b	(a6)+,d0
+	cmp.l	a1,a0
+	bcc.s	.HOut
+	cmp.b	#",",d0
+	beq.s	.HOut
+	cmp.b	#"]",d0
+	beq.s	.HOut
+	move.b	d0,(a0)+
+	bra.s	.HCopy
+.HOut	clr.b	(a0)
+	clr.l	Dia_ZoPos(a2)
+.HX	movem.l	(sp)+,a3/a6/d7
+	Rbsr	L_Dia_ZoChange
+	Rbsr	L_Dia_Patch
+	bclr	#5,Dia_ZoFlags(a2)
+	bne	.MNext
+	Rbsr	L_Dia_NoMKey
+	Rbsr	L_Dia_Patch
+	bra	.MNext
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Recherche une zone dans l'arbre
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetMouseZone
+; - - - - - - - - - - - - -
+	SyCall	XyMou			Coordonn�es du curseur
+	moveq	#0,d3
+	SyCall	XyScr			Dans l'�cran
+	Rbra	L_Dia_GetZ
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve la zone D1/D2 (coords ecran)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_GetZ
+; - - - - - - - - - - - - -
+	move.l	Dia_Buffer(a4),a0
+	tst.w	(a0)
+	beq.s	.Out
+.Loop	cmp.w	#Dia_ZoMark,4(a0)
+	bne.s	.Next
+	lea	6(a0),a1
+	move.w	6+0(a0),d0
+	cmp.w	d0,d1			X
+	bcs.s	.Next
+	add.w	6+4(a0),d0		X+SX
+	cmp.w	d0,d1
+	bcc.s	.Next
+	move.w	6+2(a0),d0		Y
+	cmp.w	d0,d2
+	bcs.s	.Next
+	add.w	6+6(a0),d0		Y+SY
+	cmp.w	d0,d2
+	bcs.s	.Ok
+.Next	move.w	(a0),d0
+	add.w	d0,a0
+	bne.s	.Loop
+.Out	moveq	#0,d0
+	rts
+.Ok	sub.w	Dia_ZoX(a0),d1
+	sub.w	Dia_ZoY(a0),d2
+	move.l	a0,d0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Activation de la premiere fenetre d'�dition
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_EdFirst
+; - - - - - - - - - - - - -
+	move.l	Dia_Buffer(a4),a0
+	clr.l	Dia_Edited(a4)
+	Rbra	L_EdaLoop
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_EdNext
+; - - - - - - - - - - - - -
+	add.w	(a0),a0
+	Rbra	L_EdaLoop
+; - - - - - - - - - - - - -
+	Lib_Def	EdaLoop
+; - - - - - - - - - - - - -
+.Loop	tst.w	(a0)
+	beq.s	Edano
+	cmp.w	#Dia_EdMark,2(a0)
+	beq.s	Edaed
+	add.w	(a0),a0
+	bra.s	.Loop
+Edaed	move.l	a0,Dia_Edited(a4)
+	Rbsr	L_Dia_EdActive
+Edano	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ERREURS DE L'INTERPRETEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_OBuffer
+; - - - - - - - - - - - - -
+	move.w	#EDia_OBuffer,Dia_Error(a4)
+	Rbra	L_Dia_Er
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_NPar
+; - - - - - - - - - - - - -
+	move.w	#EDia_NPar,Dia_Error(a4)
+	Rbra	L_Dia_Er
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Fonc
+; - - - - - - - - - - - - -
+	move.w	#EDia_FCall,Dia_Error(a4)
+	Rbra	L_Dia_Er
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Synt
+; - - - - - - - - - - - - -
+	move.w	#EDia_Syntax,Dia_Error(a4)
+	Rbra	L_Dia_Er
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Er
+; - - - - - - - - - - - - -
+	move.l	a6,d0
+	sub.l	Dia_Programs(a4),d0
+	move.w	d0,Dia_ErrorPos(a4)
+	Rbra	L_Dia_Quit
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Quit
+; - - - - - - - - - - - - -
+	move.l	Dia_Sp(a4),sp
+	move.w	Dia_Error(a4),d0
+	movem.l	(sp)+,d2-d7/a2/a3/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHRGET rapide...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_Chr
+; - - - - - - - - - - - - -
+Dia_Chr	moveq	#0,d0
+.Loop	move.b	(a6)+,d0
+	bmi.s	.Loop
+	move.w	d0,a0
+	move.b	.Codes(pc,d0.w),d0
+	bmi.s	.Loop
+	move.w	d0,CCR
+	exg	d0,a0
+	rts
+.Codes	dc.b	%00100		*  0 " " Fin
+	dc.b	$80+%00000	*  1 " "
+	dc.b	$80+%00000	*  2 " "
+	dc.b	$80+%00000	*  3 " "
+	dc.b	$80+%00000	*  4 " "
+	dc.b	$80+%00000	*  5 " "
+	dc.b	$80+%00000	*  6 " "
+	dc.b	$80+%00000	*  7 " "
+	dc.b	$80+%00000	*  8 " "
+	dc.b	$80+%00000	*  9 " "
+	dc.b	$80+%00000	* 10 " "
+	dc.b	$80+%00000	* 11 " "
+	dc.b	$80+%00000	* 12 " "
+	dc.b	$80+%00000	* 13 " "
+	dc.b	$80+%00000	* 14 " "
+	dc.b	$80+%00000	* 15 " "
+	dc.b	$80+%00000	* 16 " "
+	dc.b	$80+%00000	* 17 " "
+	dc.b	$80+%00000	* 18 " "
+	dc.b	$80+%00000	* 19 " "
+	dc.b	$80+%00000	* 20 " "
+	dc.b	$80+%00000	* 21 " "
+	dc.b	$80+%00000	* 22 " "
+	dc.b	$80+%00000	* 23 " "
+	dc.b	$80+%00000	* 24 " "
+	dc.b	$80+%00000	* 25 " "
+	dc.b	$80+%00000	* 26 " "
+	dc.b	$80+%00000	* 27 " " Escape
+	dc.b	$80+%00000	* 28 " "
+	dc.b	$80+%00000	* 29 " "
+	dc.b	$80+%00000	* 30 " "
+	dc.b	$80+%00000	* 31 " "
+
+	dc.b	$80+%00000	* 32 " " 0
+	dc.b	%00011		* 33 "!" 1
+	dc.b	%00011		* 34 """ 2
+	dc.b	%00011		* 35 "#" 3
+	dc.b	%01001		* 36 "$" 4
+	dc.b	%01001		* 37 "%" 5
+	dc.b	%00011		* 38 "&" 6
+	dc.b	%00011		* 39 "'" 7
+	dc.b	$80+%00000	* 40 "(" 8
+	dc.b	$80+%00000	* 41 ")" 9
+	dc.b	%00011		* 42 "*" 10
+	dc.b	%00011		* 43 "+" 11
+	dc.b	%00000		* 44 "," 12
+	dc.b	%00011		* 45 "-" 13
+	dc.b	$80+%00000	* 46 "." 14
+	dc.b	%00011		* 47 "/" 15
+	dc.b	%01001		* 48 "0"
+	dc.b	%01001		* 49 "1"
+	dc.b	%01001		* 50 "2"
+	dc.b	%01001		* 51 "3"
+	dc.b	%01001		* 52 "4"
+	dc.b	%01001		* 53 "5"
+	dc.b	%01001		* 54 "6"
+	dc.b	%01001		* 55 "7"
+	dc.b	%01001		* 56 "8"
+	dc.b	%01001		* 57 "9"
+	dc.b	%00000		* 58 ":"
+	dc.b	%00000		* 59 ";"
+	dc.b	%00011		* 60 "<"
+	dc.b	%00011		* 61 "="
+	dc.b	%00011		* 62 ">"
+	dc.b	%00011		* 63 "?"
+	dc.b	%00011		* 64 "@"
+	dc.b	%00001		* 65 "A"
+	dc.b	%00001		* 66 "B"
+	dc.b	%00001		* 67 "C"
+	dc.b	%00001		* 68 "D"
+	dc.b	%00001		* 69 "E"
+	dc.b	%00001		* 70 "F"
+	dc.b	%00001		* 71 "G"
+	dc.b	%00001		* 72 "H"
+	dc.b	%00001		* 73 "I"
+	dc.b	%00001		* 74 "J"
+	dc.b	%00001		* 75 "K"
+	dc.b	%00001		* 76 "L"
+	dc.b	%00001		* 77 "M"
+	dc.b	%00001		* 78 "O"
+	dc.b	%00001		* 79 "P"
+	dc.b	%00001		* 80 "Q"
+	dc.b	%00001		* 81 "R"
+	dc.b	%00001		* 82 "S"
+	dc.b	%00001		* 83 "T"
+	dc.b	%00001		* 84 "U"
+	dc.b	%00001		* 85 "V"
+	dc.b	%00001		* 86 "K"
+	dc.b	%00001		* 87 "W"
+	dc.b	%00001		* 88 "X"
+	dc.b	%00001		* 89 "Y"
+	dc.b	%00001		* 90 "Z"
+	dc.b	%00011		* 91 "["
+	dc.b	%00011		* 92 "\"
+	dc.b	%00011		* 93 "]"
+	dc.b	%00011		* 94 "^"
+	dc.b	%00011		* 95 " "
+	dc.b	%00000		* 96 "`"
+	dc.b	$80+%00000	* 97 "a"
+	dc.b	$80+%00000	* 98 "b"
+	dc.b	$80+%00000	* 99 "c"
+	dc.b	$80+%00000	* 100 "d"
+	dc.b	$80+%00000	* 101 "e"
+	dc.b 	$80+%00000	* 102 "f"
+	dc.b	$80+%00000	* 103 "g"
+	dc.b	$80+%00000	* 104 "h"
+	dc.b	$80+%00000	* 105 "i"
+	dc.b	$80+%00000	* 106 "j"
+	dc.b	$80+%00000	* 107 "k"
+	dc.b	$80+%00000	* 108 "l"
+	dc.b	$80+%00000	* 109 "m"
+	dc.b	$80+%00000	* 110 "n"
+	dc.b	$80+%00000	* 111 "o"
+	dc.b	$80+%00000	* 112 "p"
+	dc.b	$80+%00000	* 113 "q"
+	dc.b	$80+%00000	* 114 "r"
+	dc.b	$80+%00000	* 115 "s"
+	dc.b	$80+%00000	* 116 "t"
+	dc.b	$80+%00000	* 117 "u"
+	dc.b	$80+%00000	* 118 "v"
+	dc.b	$80+%00000	* 119 "w"
+	dc.b	$80+%00000	* 120 "x"
+	dc.b	$80+%00000	* 121 "y"
+	dc.b	$80+%00000	* 122 "z"
+	dc.b	$80+%00000	* 123 "{"
+	dc.b	$80+%00011	* 124 "|"
+	dc.b	$80+%00000	* 125 "}"
+	dc.b	$80+%00000	* 126 "~"
+	dc.b	$80+%00000	* 127 ""
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Prend un chiffre
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_FChif
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	cmp.b	#"%",d0
+	beq.s	.Bin
+	cmp.b	#"$",d0
+	beq.s	.Hex
+	sub.b	#"0",d0
+	move.b	d0,d1
+	moveq	#0,d0
+.Loop	Rbsr	L_Dia_ChrC
+	bmi.s	.Fini
+	cmp.b	#10,d0
+	bcc.s	.Fini
+	add.l	d1,d1
+	move.l	d1,a0
+	lsl.l	#2,d1
+	add.l	a0,d1
+	add.l	d0,d1
+	bra.s	.Loop
+.Fini	move.l	d1,-(a3)
+	addq.l	#1,d7
+	subq.l	#1,a6
+	rts
+; En binaire
+; ~~~~~~~~~~
+.Bin	Rbsr	L_Dia_ChrC
+	bmi.s	.Fini
+	cmp.b	#2,d0
+	bcc.s	.Fini
+	lsl.l	#1,d1
+	or.b	d0,d1
+	bra.s	.Bin
+; En hexa
+; ~~~~~~~
+.Hex	Rbsr	L_Dia_ChrC
+	bmi.s	.Fini
+	cmp.b	#10,d0
+	bcs.s	.Hx1
+	add.b	#"0"-"A",d0
+	bmi.s	.Fini
+	cmp.b	#6,d0
+	bcc.s	.Fini
+	add.b	#10,d0
+.Hx1	lsl.l	#4,d1
+	or.b	d0,d1
+	bra.s	.Hex
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					CHRGET SPECIAL CHIFFRES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_ChrC
+; - - - - - - - - - - - - -
+	move.b	(a6)+,d0
+	sub.b	#"0",d0
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Conversion Decimal>>>ascii
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dia_DecToAsc
+; - - - - - - - - - - - - -
+	movem.l	a1/d0-d3,-(sp)
+	tst.l	d0
+	bpl.s	.Pos
+	move.b	#"-",(a0)+
+	neg.l	d0
+.Pos	lea	.MDix(pc),a1
+	move.l	(a1)+,d1
+	moveq	#0,d3
+.Loop   moveq	#-1,d2
+.Lp	addq.b 	#1,d2
+        sub.l 	d1,d0
+        bcc.s 	.Lp
+        add.l 	d1,d0
+	move.l	(a1)+,d1
+	beq.s	.Put
+	tst.b	d2
+	bne.s	.Put
+	tst.w	d3
+	beq.s	.Loop
+.Put	add.b	#"0",d2
+	move.b	d2,(a0)+
+	addq.w	#1,d3
+	tst.l	d1
+	bne.s	.Loop
+	movem.l	(sp)+,a1/d0-d3
+	rts
+; Multiples de 10
+.MDix	dc.l 1000000000,100000000,10000000,1000000
+        dc.l 100000,10000,1000,100,10,1,0
+
+
+;_____________________________________________________________________________
+;
+;					Gestion g�n�ralisee des boutons
+;_____________________________________________________________________________
+;
+; __________________________________________________
+;
+;	Initialisation d'une liste de boutons
+; __________________________________________________
+;
+;	A0=	Premier bouton
+;	D0=	Dessiner ?
+; _____________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_InitList
+; - - - - - - - - - - - - -
+	movem.l	a2/d2,-(sp)
+	move.l	a0,a2
+	move.w	d0,d2
+.Loop	Rbsr	L_Bt_Init
+	lea	Bt_Long(a2),a2
+	move.l	a2,a0
+	move.w	d2,d0
+	tst.w	(a0)
+	bne.s	.Loop
+	movem.l	(sp)+,a2/d2
+	rts
+
+; __________________________________________________
+;
+;	Initialisation d'un bouton
+; __________________________________________________
+;
+;	A0=	Structure Bouton
+;	D0=	Dessiner ?
+; _______________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_Init
+; - - - - - - - - - - - - -
+	movem.l	a2/d2-d5,-(sp)
+	move.w	d0,d2
+	move.l	a0,a2
+	Rbsr	L_Bt_CPos
+	tst.w	d2
+	beq.s	.Skip
+	Rbsr	L_Bt_CDraw
+.Skip	move.w	Bt_Zone(a2),d1
+	move.w	Bt_X(a2),d2
+	move.w	Bt_Y(a2),d3
+	moveq	#0,d0
+	move.b	Bt_Dx(a2),d0
+	add.w	d0,d2
+	move.b	Bt_Dy(a2),d0
+	add.w	d0,d3
+	move.w	d2,d4
+	move.w	d3,d5
+	move.b	Bt_Sx(a2),d0
+	add.w	d0,d4
+	move.b	Bt_Sy(a2),d0
+	add.w	d0,d5
+	SyCall	SetZone
+	movem.l	(sp)+,a2/d2-d5
+	rts
+
+; __________________________________________________
+;
+;	Fin d'un bouton
+; __________________________________________________
+;
+;	A0=	Structure Bouton
+; _______________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_End
+; - - - - - - - - - - - - -
+	move.w	Bt_Zone(a0),d1
+	SyCall	RazZone
+	rts
+
+; __________________________________________________
+;
+;	Gestion des boutons
+; __________________________________________________
+;
+;	A0=	Premiere structure Bouton
+; _______________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_Gere
+; - - - - - - - - - - - - -
+	movem.l	d2/a2,-(sp)
+	move.l	a0,a2
+	SyCall	MouseKey
+	move.w	d1,-(sp)
+	and.w	#$03,d1
+	beq.s	.BNone
+	SyCall	GetZone
+	swap	d1
+.ELoop	cmp.w	Bt_Zone(a2),d1
+	beq.s	.Down
+	lea	Bt_Long(a2),a2
+	tst.w	Bt_Number(a2)
+	bne.s	.ELoop
+.BNone	moveq	#0,d0
+.BOut	move.w	(sp)+,d1
+	movem.l	(sp)+,d2/a2
+	tst.l	d0
+	rts
+.Down	bsr	RBt_Down
+	bra.s	.BOut
+; On appuie sur un bouton A2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+RBt_Down
+	btst	#Bt_FlagOnOf,Bt_Flags(a2)
+	bne.s	.OOf
+; One shot
+	eor.w	#1,Bt_Pos(a2)
+	Rbsr	L_Bt_CDraw
+	Rbsr	L_Dia_NoMKey
+	eor.w	#1,Bt_Pos(a2)
+	Rbsr	L_Bt_CDraw
+	Rbsr	L_Bt_CChange
+	move.l	a2,d0
+	rts
+; On / Off
+.OOf	eor.w	#1,Bt_Pos(a2)
+	Rbsr	L_Bt_CDraw
+	btst	#Bt_FlagNoWait,Bt_Flags(a2)
+	bne.s	.WSkip2
+	Rbsr	L_Dia_NoMKey
+.WSkip2	bset	#Bt_FlagNew,Bt_Flags(a2)
+	Rbsr	L_Bt_CChange
+	move.l	a2,d0
+	rts
+
+; Appelle la routine de modification bouton
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_CChange
+; - - - - - - - - - - - - -
+	move.b	Bt_RChange(a2),d0
+	Rbne	L_Bt_Call
+	rts
+; Ramene la position du bouton
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_CPos
+; - - - - - - - - - - - - -
+	move.b	Bt_RPos(a2),d0
+	Rbne	L_Bt_Call
+	rts
+; Va dessiner un bouton
+; ~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_CDraw
+; - - - - - - - - - - - - -
+	move.b	Bt_RDraw(a2),d0
+	Rbne	L_Bt_Call
+	rts
+; Appelle la routine
+; ~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Bt_Call
+; - - - - - - - - - - - - -
+	move.l	Bt_Routines(a2),a0
+	ext.w	d0
+	lsl.w	#2,d0
+	jmp	-4(a0,d0.w)
+
+;_____________________________________________________________________________
+;
+;					Gestion g�n�ralisee des sliders.
+;_____________________________________________________________________________
+;
+; __________________________________________________
+;
+;	Initialisation d'un slider
+; __________________________________________________
+;
+;	A0=	Structure slider
+; _______________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Sl_Init
+; - - - - - - - - - - - - -
+	movem.l	d2-d5/a2,-(sp)
+	move.l	a0,a2
+; Initialise les zones
+	move.w	Sl_Zone(a2),d1
+	beq.s	.SkipZ
+	move.w	Sl_X(a2),d2
+	move.w	Sl_Y(a2),d3
+	move.w	d2,d4
+	move.w	d3,d5
+	add.w	Sl_Sx(a2),d4
+	add.w	Sl_Sy(a2),d5
+	sub.w	Sl_ZDx(a2),d2
+	sub.w	Sl_ZDy(a2),d3
+	add.w	Sl_ZDx(a2),d4
+	add.w	Sl_ZDy(a2),d5
+	SyCall	SetZone
+.SkipZ
+; Update les valeurs
+	moveq	#0,d0
+	Rbsr	L_Sl_Call
+; X/Y
+	move.w	Sl_X(a2),Sl_Start(a2)
+	move.w	Sl_Sx(a2),Sl_Size(a2)
+	btst	#Sl_FlagVertical,Sl_Flags(a2)
+	beq.s	.Skip
+	move.w	Sl_Y(a2),Sl_Start(a2)
+	move.w	Sl_Sy(a2),Sl_Size(a2)
+.Skip
+; Va dessiner
+	moveq	#0,d0
+	move.l	a2,a0
+	Rbsr	L_Sl_Draw
+; Ok!
+	moveq	#0,d0
+	movem.l	(sp)+,d2-d5/a2
+	rts
+
+; Appel d'une routine slider
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	Sl_Call
+; - - - - - - - - - - - - -
+	move.l	Sl_Routines(a2),d1
+	bne.s	.Call
+	rts
+.Call	move.l	d1,a0
+	jmp	0(a0,d0.w)
+
+; __________________________________________________
+;
+;	Gestion d'un slider
+; __________________________________________________
+;
+;	A0=	Structure slider
+; _______________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Sl_Clic
+; - - - - - - - - - - - - -
+	movem.l	a2-a2/d2-d7,-(sp)
+	move.l	a0,a2
+; Active le slider
+	moveq	#0,d0
+	Rbsr	L_Sl_Call
+; Souris
+	bsr	Sl_XYMouEc
+	move.w	d2,d0
+	sub.w	Sl_Start(a2),d0
+	cmp.w	Sl_Mouse1(a2),d0
+	bcs	.Sl_Down
+	cmp.w	Sl_Mouse2(a2),d0
+	bcc	.Sl_Up
+;
+; POSITIONNE DIRECTEMENT
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Direct	move.w	d0,d7
+	sub.w	Sl_Mouse1(a2),d7
+	move.l	a2,a0
+	moveq	#-1,d0
+	Rbsr	L_Sl_Draw
+.loop	sub.w	d7,d2
+	bpl.s	.skipu
+	moveq	#0,d2
+.skipu	sub.w	Sl_Start(a2),d2
+	bpl.s	.skip0
+	moveq	#0,d2
+.skip0	move.w	Sl_Global(a2),d0
+	addq.w	#1,d0
+	mulu	d0,d2
+	move.w	Sl_Size(a2),d1
+	addq.w	#1,d1
+	divu	d1,d2
+	move.w	Sl_Global(a2),d0
+	sub.w	Sl_Window(a2),d0
+	bpl.s	.Skk
+	moveq	#0,d0
+.Skk	cmp.w	d0,d2
+	ble.s	.skip1
+	move.w	d0,d2
+.skip1	cmp.w	Sl_Position(a2),d2
+	beq.s	.skip
+	move.w	d2,Sl_Position(a2)
+	move.l	a2,a0
+	moveq	#-1,d0
+	Rbsr	L_Sl_Draw
+	SyCall	MouseKey
+	btst	#1,d1
+	beq.s	.skip
+	moveq	#3*4,d0
+	Rbsr	L_Sl_Call
+.skip	SyCall	MouseKey
+	btst	#0,d1
+	beq.s	.out
+	Rbsr	L_Dia_WaitMul
+	Rbsr	L_Dia_Patch
+	bsr	Sl_XYMouEc
+	bra.s	.loop
+.out	moveq	#3*4,d0
+	Rbsr	L_Sl_Call
+	Rbsr	L_Dia_Patch
+	bra	.End
+
+;	sub.w	d7,d2
+;	bpl.s	.skip0
+;	moveq	#0,d2
+;.skip0	move.w	Sl_Global(a2),d0
+;	mulu	d0,d2
+;	move.w	Sl_Window(a2),d1
+;	divu	d1,d2
+;	lsr.w	#3,d2
+;	move.w	Sl_Global(a2),d0
+;	sub.w	Sl_Window(a2),d0
+;	addq.w	#1,d0
+;	bmi.s	.skip
+;	cmp.w	d0,d2
+;	bcs.s	.skip1
+;	move.w	d0,d2
+;.skip1
+;
+; Slider-> Gauche/Haut
+; ~~~~~~~~~~~~~~~~~~~~
+.Sl_Down
+	move.l	a2,a0
+	moveq	#-1,d0
+	Rbsr	L_Sl_Draw
+	move.w	Sl_Position(a2),d0
+	sub.w	Sl_Scroll(a2),d0
+	bpl.s	.Sld0
+	moveq	#0,d0
+.Sld0	cmp.w	Sl_Position(a2),d0
+	beq.s	.Sld1
+	move.w	d0,Sl_Position(a2)
+	moveq	#1*4,d0
+	Rbsr	L_Sl_Call
+	Rbsr	L_Dia_Patch
+.Sld1	SyCall	MouseKey
+	btst	#0,d1
+	beq.s	.End
+	btst	#1,d1
+	bne.s	.Sl_Down
+	Rbsr	L_Dia_WaitMul
+	bra.s	.Sld1
+;
+; Slider-> Droite/Bas
+; ~~~~~~~~~~~~~~~~~~~
+.Sl_Up
+	move.l	a2,a0
+	moveq	#-1,d0
+	Rbsr	L_Sl_Draw
+	move.w	Sl_Position(a2),d0
+	add.w	Sl_Scroll(a2),d0
+	move.w	d0,d1
+	add.w	Sl_Window(a2),d1
+	cmp.w	Sl_Global(a2),d1
+	bls.s	.Slu0
+	move.w	Sl_Global(a2),d0
+	sub.w	Sl_Window(a2),d0
+	bpl.s	.Slu0
+	moveq	#0,d0
+.Slu0	cmp.w	Sl_Position(a2),d0
+	beq.s	.Slu1
+	move.w	d0,Sl_Position(a2)
+	moveq	#2*4,d0
+	Rbsr	L_Sl_Call
+	Rbsr	L_Dia_Patch
+.Slu1	SyCall	MouseKey
+	btst	#0,d1
+	beq.s	.End
+	btst	#1,d1
+	bne.s	.Sl_Up
+	Rbsr	L_Dia_WaitMul
+	bra.s	.Slu1
+;
+; Fin de la gestion
+; ~~~~~~~~~~~~~~~~~
+.End	move.l	a2,a0
+	moveq	#0,d0
+	Rbsr	L_Sl_Draw
+	movem.l	(sp)+,a2-a2/d2-d7
+	rts
+; Routinette: XY Mouse dans l'ecran courant, dans le bon sens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sl_XYMouEc
+	SyCall	XyMou
+	moveq	#0,d3
+	SyCall	XyScr
+	btst	#Sl_FlagVertical,Sl_Flags(a2)
+	bne.s	.Skip
+	move.w	d1,d2
+.Skip	rts
+
+; __________________________________________________
+;
+;	Dessin d'un slider
+; __________________________________________________
+;
+;	A0=	Structure slider
+;	D0=	0= Normal / 1 Active
+; _______________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Sl_Draw
+; - - - - - - - - - - - - -
+	movem.l	a2/d2-d7,-(sp)
+	move.l	a0,a2
+; Change les encres
+	lea	Sl_Inactive(a2),a0
+	tst.w	d0
+	beq.s	.Skip
+	lea	Sl_Active(a2),a0
+.Skip	movem.w	(a0),d0-d7
+	EcCall	SetSli
+; Writing JAM2
+	move.l	T_RastPort(a5),a1
+	moveq	#1,d0
+	GfxCa5	SetDrMd
+; Dessine le slider
+	lea	Sl_Sx(a2),a0
+	movem.w	(a0),d1-d7
+	btst	#Sl_FlagVertical,Sl_Flags(a2)
+	bne.s	.Vert
+; Slider horizontal
+	EcCall	HorSli
+	lea	Sl_Sx(a2),a2
+	movem.w	(a2),d1-d7
+	move.w	d1,d0
+	bra.s	.Pour
+; Slider vertical
+.Vert	EcCall	VerSli
+	lea	Sl_Sx(a2),a2
+	movem.w	(a2),d1-d7
+	move.w	d2,d0
+; Calcule les pourcentages
+.Pour	EcCall	PourSli
+	add.w	d6,d7			Plus taille du centre
+	move.w	d6,Sl_Mouse1(a2)
+	move.w	d7,Sl_Mouse2(a2)
+; Ok
+	moveq	#0,d0
+	movem.l	(sp)+,a2/d2-d7
+	rts
+
+; _________________________________________________
+;
+;	Attend le relachement de la souris
+; _________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_NoMKey
+; - - - - - - - - - - - - -
+	movem.l	d0-d1/a0-a1,-(sp)
+.Lp	Rbsr	L_Dia_WaitMul
+	SyCall	MouseKey
+	and.w	#$01,d1
+	bne.s	.Lp
+	movem.l	(sp)+,d0-d1/a0-a1
+	rts
+
+; _________________________________________________
+;
+;	Nettoyage du buffer clavier
+; _________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_ClearKey
+; - - - - - - - - - - - - -
+	movem.l	d0-d1/a0-a1,-(sp)
+	SyCall	ClearKey
+	clr.l	T_ClLast(a5)
+	movem.l	(sp)+,d0-d1/a0-a1
+	rts
+; _________________________________________________
+;
+;	Appel du patch
+; _________________________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_Patch
+; - - - - - - - - - - - - -
+	movem.l	d0/a0,-(sp)
+	move.l	Patch_ScCopy(a5),d0
+	beq.s	.Skip
+	move.l	d0,a0
+	jsr	(a0)
+.Skip	movem.l	(sp)+,d0/a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN DES DIALOGUES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	End_Dialogs
+; - - - - - - - - - - - - -
+
+; _________________________________________________
+;
+;	Screen copy
+; _________________________________________________
+;
+;	D0=	X1
+;	D1= 	Y1
+;	D2=	X3
+;	D3=	Y3
+;	D4=	X2
+;	D5=	Y2
+;	A0=	Ecran Source
+;	A1=	Ecran Destination
+; _________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	ScCopy
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a4,-(sp)
+	lea	EcCurrent(a0),a2
+	move.l	a2,SccEcO(a5)
+	lea	EcCurrent(a1),a2
+	move.l	a1,SccEcD(a5)
+	move.w	#$CC,d6
+	Rjsr	L_Sco0
+	movem.l	(sp)+,d0-d7/a0-a4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	Dia_ScCopy
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a4,-(sp)
+	move.l	T_EcCourant(a5),a0
+	move.l	a0,a1
+	lea	EcCurrent(a0),a2
+	move.l	a2,SccEcO(a5)			Bitmaps
+	move.l	a2,SccEcD(a5)
+	move.l	Dia_BaseX(a4),d6
+	add.l	d6,d0
+	add.l	d6,d2
+	add.l	d6,d4
+	move.l	Dia_BaseY(a4),d6
+	add.l	d6,d1
+	add.l	d6,d3
+	add.l	d6,d5
+	move.w	#$CC,d6
+	Rjsr	L_Sco0
+	movem.l	(sp)+,d0-d7/a0-a4
+	rts
+
+; _____________________________________________________________________________
+;
+;								Unpacker
+;______________________________________________________________________________
+;
+UAEc:	equ 0
+UDEc:	equ 4
+UITy:	equ 8
+UTy:	equ 10
+UTLine:	equ 12
+UNPlan:	equ 14
+USx	equ 16
+USy	equ 18
+UPile:	equ 20
+
+; _________________________________________________
+;
+;	Unpacker Screen
+; _________________________________________________
+;
+;	A0=	Packed picture
+;	D0=	Destination Screen
+; _________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	UnPack_Screen
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	cmp.l	#SCCode,PsCode(a0)
+	bne	.NoPac
+	move.w	d0,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#0,d5
+	move.w	PsTx(a0),d2
+	move.w	PsTy(a0),d3
+	move.w	PsNPlan(a0),d4
+	move.w	PsCon0(a0),d5
+	move.w	PsNbCol(a0),d6
+	lea	PsPal(a0),a1
+	move.l	a0,-(sp)
+	EcCall	Cree
+	move.l	a0,a1
+	move.l	(sp)+,a0
+	bne.s	.NoScreen
+* Enleve le curseur
+	movem.l	a0-a6/d0-d7,-(sp)
+	lea	.CuCu(pc),a1
+	WiCall	Print
+	movem.l	(sp)+,a0-a6/d0-d7
+* Change View/Offset
+	move.w	PsAWx(a0),EcAWX(a1)
+	move.w	PsAWy(a0),EcAWY(a1)
+	move.w	PsAWTx(a0),EcAWTX(a1)
+	move.w	PsAWTy(a0),EcAWTY(a1)
+	move.w	PsAVx(a0),EcAVX(a1)
+	move.w	PsAVy(a0),EcAVY(a1)
+	move.b	#%110,EcAW(a1)
+	move.b	#%110,EcAWT(a1)
+	move.b	#%110,EcAV(a1)
+* Unpack!
+	lea	PsLong(a0),a0
+	moveq	#0,d1
+	moveq	#0,d2
+	Rbsr	L_UnPack_Bitmap
+	move.l	a1,a0
+	bra.s	.Out
+.NoPac
+	moveq	#0,d0
+	moveq	#0,d1
+	bra.s	.Out
+.NoScreen
+	moveq	#0,d0
+	moveq	#1,d1
+.Out	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+.CuCu	dc.b	27,"C0",0
+	even
+
+; _________________________________________________
+;
+;	Unpacker Bitmap
+; _________________________________________________
+;
+;	A0=	Packed picture
+;	A1=	Destination Screen
+;	D1=	X
+;	D2=	Y
+; _________________________________
+;
+; - - - - - - - - - - - - -
+	Lib_Def	UnPack_Bitmap
+; - - - - - - - - - - - - -
+	movem.l	a0-a6/d1-d7,-(sp)
+* Jump over SCREEN DEFINITION
+	cmp.l	#SCCode,(a0)
+	bne.s	dec0
+	lea	PsLong(a0),a0
+* Is it a packed bitmap?
+dec0	cmp.l	#BMCode,(a0)
+	bne	NoPac
+
+* Parameter preparation
+	lea	-UPile(sp),sp		* Space to work
+	lea	EcCurrent(a1),a2
+	move.l	a2,UAEc(sp)		* Bitmaps address
+        move.w 	EcTLigne(a1),d7    	* d7--> line size
+	move.w	EcNPlan(a1),d0		* How many bitplanes
+	cmp.w	Pknplan(a0),d0
+	bne	NoPac0
+	move.w	d0,UNPlan(sp)
+	move.w	Pktcar(a0),d6		* d6--> SY square
+
+	lsr.w	#3,d1			* > number of bytes
+        tst.l 	d1			* Screen address in X
+        bpl.s 	dec1
+        move.w 	Pkdx(a0),d1
+dec1:   tst.l 	d2			* In Y
+        bpl.s 	dec2
+        move.w 	Pkdy(a0),d2
+dec2:   move.w	Pktx(a0),d0
+	move.w	d0,USx(sp)		* Taille en X
+	add.w	d1,d0
+	cmp.w	d7,d0
+	bhi	NoPac0
+	move.w	Pkty(a0),d0
+	mulu	d6,d0
+	move.w	d0,USy(sp)		* Taille en Y
+	add.w	d2,d0
+	cmp.w	EcTy(a1),d0
+	bhi	NoPac0
+
+	mulu	d7,d2			* Screen address
+	ext.l	d1
+	add.l	d2,d1
+	move.l	d1,UDEc(sp)
+
+	move.w	d6,d0			* Size of one line
+        mulu 	d7,d0
+        move 	d0,UTLine(sp)
+
+        move.w 	Pktx(a0),a3		* Size in X
+        subq.w	#1,a3
+        move.w 	Pkty(a0),UITy(sp)	* in Y
+        lea 	PkDatas1(a0),a4        	* a4--> bytes table 1
+        move.l 	a0,a5
+        move.l 	a0,a6
+        add.l 	PkDatas2(a0),a5     	* a5--> bytes table 2
+        add.l 	PkPoint2(a0),a6     	* a6--> pointer table
+
+        moveq 	#7,d0
+        moveq 	#7,d1
+        move.b 	(a5)+,d2
+        move.b 	(a4)+,d3
+        btst 	d1,(a6)
+        beq.s 	prep
+        move.b 	(a5)+,d2
+prep:   subq.w 	#1,d1
+
+* Unpack!
+dplan:  move.l 	UAEc(sp),a2
+	addq.l	#4,UAEc(sp)
+	move.l	(a2),a2
+	add.l	UDEc(sp),a2
+        move.w 	UITy(sp),UTy(sp)	* Y Heigth counter
+dligne: move.l 	a2,a1
+        move.w 	a3,d4
+dcarre: move.l 	a1,a0
+        move.w 	d6,d5   		* Square height
+doctet1:subq.w 	#1,d5
+        bmi.s 	doct3
+        btst 	d0,d2
+        beq.s 	doct1
+        move.b 	(a4)+,d3
+doct1:  move.b 	d3,(a0)
+        add.w 	d7,a0
+        dbra 	d0,doctet1
+        moveq 	#7,d0
+        btst 	d1,(a6)
+        beq.s 	doct2
+        move.b 	(a5)+,d2
+doct2:  dbra 	d1,doctet1
+        moveq 	#7,d1
+        addq.l 	#1,a6
+        bra.s 	doctet1
+doct3:  addq.l	#1,a1           	* Other squares?
+        dbra 	d4,dcarre
+        add.w 	UTLine(sp),a2          	* Other square line?
+        subq.w 	#1,UTy(sp)
+        bne.s 	dligne
+        subq.w 	#1,UNPlan(sp)
+        bne.s 	dplan
+* Finished!
+	move.w	USy(sp),d0
+	swap	d0
+	move.w	USx(sp),d0
+	lsl.w	#3,d0
+        lea	UPile(sp),sp            * Restore the pile
+	movem.l	(sp)+,a0-a6/d1-d7
+	rts
+NoPac0 	lea	UPile(sp),sp
+NoPac	moveq	#0,d0
+	movem.l	(sp)+,a0-a6/d1-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ROUTINES DE CONVERSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	LONGDEC (Long>decimal, signe eventuel, proportionel)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LongToDec
+; - - - - - - - - - - - - -
+	movem.l	a1/d1-d4,-(sp)
+	moveq	#-1,d3
+	moveq	#0,d4
+	Rbsr	L_LongToAsc
+	movem.l	(sp)+,a1/d1-d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Conversion LONG (D0) >>> Ascii (a0)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LongToAsc
+; - - - - - - - - - - - - -
+	movem.l	a1,-(sp)
+	tst.l 	d0
+        bpl.s	hexy
+        move.b 	#"-",(a0)+
+        neg.l 	d0
+        bra.s 	hexz
+hexy:   tst 	d4
+        beq.s 	hexz
+        move.b 	#32,(a0)+
+hexz:   tst.l 	d3
+        bmi.s 	hexv
+        neg.l 	d3
+        add.l 	#10,d3
+hexv:   move.l 	#9,d4
+        lea 	mdx(pc),a1
+hxx0:   move.l 	(a1)+,d1     ;table des multiples de dix
+        move.b 	#$ff,d2
+hxx1:   addq.b 	#1,d2
+        sub.l 	d1,d0
+        bcc.s 	hxx1
+        add.l 	d1,d0
+        tst.l 	d3
+        beq.s 	hxx4
+        bpl.s 	hxx3
+        btst 	#31,d4
+        bne.s 	hxx4
+        tst 	d4
+        beq.s 	hxx4
+        tst.b 	d2
+        beq.s 	hxx5
+        bset 	#31,d4
+        bra.s 	hxx4
+hxx3:   subq.l 	#1,d3
+        bra.s 	hxx5
+hxx4:   add 	#48,d2
+        move.b 	d2,(a0)+
+hxx5:   dbra 	d4,hxx0
+	move.l	(sp)+,a1
+        rts
+mdx:    dc.l 	1000000000,100000000,10000000,1000000
+        dc.l 	100000,10000,1000,100,10,1,0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Conversion D0.l >>> Ascii hex
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LongToHex
+; - - - - - - - - - - - - -
+	move.b 	#"$",(a0)+
+        tst.l 	d3
+        bmi.s 	ha0
+        neg.l 	d3
+        add.l	 #8,d3
+ha0:    clr 	d4
+        move 	#7,d2
+ha1:    rol.l 	#4,d0
+        move.b	d0,d1
+        and.b 	#$0f,d1
+        cmp.b 	#10,d1
+        bcs.s 	ha2
+        add.b 	#7,d1
+ha2:    tst.l 	d3
+        beq.s 	ha4
+        bpl.s 	ha3
+        tst 	d4
+        bne.s 	ha4
+        tst 	d2
+        beq.s 	ha4
+        tst.b 	d1
+        beq.s 	ha5
+        moveq 	#1,d4
+        bra.s 	ha4
+ha3:    subq.l 	#1,d3
+        bra.s	ha5
+ha4:    add 	#48,d1
+        move.b 	d1,(a0)+
+ha5:    dbra 	d2,ha1
+        rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Conversion D0.l >>> Binaire Ascii
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LongToBin
+; - - - - - - - - - - - - -
+	move.b 	#"%",(a0)+
+        tst.l 	d3
+        bmi.s 	hb0
+        neg.l 	d3
+        add.l 	#32,d3
+hb0:    clr 	d4
+        moveq 	#31,d2
+hb1:    clr 	d1
+        roxl.l 	#1,d0
+        addx.b 	d1,d1
+        tst.l 	d3            ;si d3<0: representation PROPORTIONNELLE
+        beq.s 	hb3
+        bpl.s 	hb2
+        tst 	d4
+        bne.s 	hb3
+        tst 	d2
+        beq.s 	hb3
+        tst.b 	d1
+        beq.s 	hb4
+        moveq 	#1,d4
+        bra.s	hb3
+hb2:    subq.l 	#1,d3
+        bra.s	hb4
+hb3:    add.b 	#48,d1
+        move.b 	d1,(a0)+
+hb4:    dbra 	d2,hb1
+        rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FFP single precision to IEEE single precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FFP2Ieee
+; - - - - - - - - - - - - -
+	ADD.L	D0,D0
+	BEQ.S	L21418A
+	EORI.B	#$80,D0
+	ASR.B	#1,D0
+	SUBI.B	#$82,D0
+	SWAP	D0
+	ROL.L	#7,D0
+L21418A	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IEEE single precision to FFP single precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Ieee2FFP
+; - - - - - - - - - - - - -
+	SWAP	D0
+	ROR.L	#7,D0
+	EORI.B	#$80,D0
+	ADD.B	D0,D0
+	BVS.S	L2141A4
+	ADDQ.B	#5,D0
+	BVS.S	L2141DA
+	EORI.B	#$80,D0
+	ROR.L	#1,D0
+L2141A2	RTS
+L2141A4	BCC.S	L2141CC
+	CMPI.B	#$7C,D0
+	BEQ.S	L2141B2
+	CMPI.B	#$7E,D0
+	BNE.S	L2141BE
+L2141B2	ADDI.B	#$85,D0
+	ROR.L	#1,D0
+	TST.B	D0
+	BNE.S	L2141A2
+	BRA.S	L2141C8
+L2141BE	ANDI.W	#$FEFF,D0
+	TST.L	D0
+	BEQ.S	L2141A2
+	TST.B	D0
+L2141C8	MOVEQ	#0,D0
+	BRA.S	L2141A2
+L2141CC	CMPI.B	#$FE,D0
+	BNE.S	L2141DA
+	LSR.L	#8,D0
+	LSR.L	#1,D0
+	BNE.S	L2141E6
+	BRA.S	L2141DC
+L2141DA	LSL.W	#8,D0
+L2141DC	MOVEQ	#-1,D0
+	ROXR.B	#1,D0
+	ORI.B	#2,CCR
+	BRA.S	L2141A2
+L2141E6	MOVEQ	#0,D0
+	BRA.S	L2141A2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IEEE single precision to ieee double precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Sp2Dp
+; - - - - - - - - - - - - -
+	MOVEA.L	D0,A0
+	SWAP	D0
+	BEQ.S	.SKIP
+	MOVE.W	D0,D1
+	ANDI.W	#$7F80,D0
+	ASR.W	#3,D0
+	ADDI.W	#$3800,D0
+	ANDI.W	#$8000,D1
+	OR.W	D1,D0
+	SWAP	D0
+	MOVE.L	A0,D1
+	ROR.L	#3,D1
+	MOVEA.L	D1,A0
+	ANDI.L	#$FFFFF,D1
+	OR.L	D1,D0
+	MOVE.L	A0,D1
+	ANDI.L	#$E0000000,D1
+	RTS
+.SKIP	MOVEQ	#0,D1
+	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IEEE Double precision to IEEE single precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Dp2Sp
+; - - - - - - - - - - - - -
+	SWAP	D0
+	BEQ.S	L2ECFA4
+	MOVE.W	D0,D1
+	SWAP	D1
+	SWAP	D0
+	ASL.W	#1,D1
+	ROXL.L	#1,D0
+	ASL.W	#1,D1
+	ROXL.L	#1,D0
+	ASL.W	#1,D1
+	ROXL.L	#1,D0
+	SWAP	D0
+	ANDI.W	#$7F,D0
+	SWAP	D1
+	MOVEA.W	D1,A0
+	ANDI.W	#$8000,D1
+	OR.W	D1,D0
+	MOVE.W	A0,D1
+	ANDI.W	#$7FF0,D1
+	SUBI.W	#$3800,D1
+	BGE.S	L2ECFA6
+	CLR.L	D0
+L2ECFA4	RTS
+L2ECFA6	CMPI.W	#$FF0,D1
+	BLE.S	L2ECFBC
+	ORI.B	#2,CCR
+;	TRAPV
+	ORI.L	#$FFFF7FFF,D0
+	SWAP	D0
+	RTS
+L2ECFBC	ASL.W	#3,D1
+	OR.W	D1,D0
+	SWAP	D0
+	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ascii vers float, simple precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	AscToFloat
+; - - - - - - - - - - - - -
+	Rlea	L_FloatToAsc,0
+	jmp	a2ffp-fldeb(a0)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Float to ascii, simple precision
+;	D0	Float
+;	A0	Buffer
+;	D4	Flags
+;	D5	Flags exp
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FloatToAsc
+; - - - - - - - - - - - - -
+fldeb	movem.l	a1-a3,-(sp)
+	move.l	a0,a3
+	lea	DeFloat(a5),a0
+	bsr	F2a
+	btst	#31,d4			* Met un espace si >0?
+	bne.s	p00a
+	move.b	#32,(a3)+
+	cmp.b	#"-",(a0)
+	bne.s	p00a
+	subq.l	#1,a3
+p00a:   tst 	d4
+        bmi.s 	p0b
+p0a:    move.b 	(a0)+,(a3)+  		* FIX: imprime tout defloat!
+        bne.s 	p0a
+        bra 	p7
+p0b:    move.l 	a0,a2
+p1:     move.b 	(a2)+,d0
+        cmp.b 	#".",d0
+        beq.s 	p1a
+        move.b 	d0,(a3)+
+        bne.s 	p1
+        bra.s 	p7
+p1a:    move.l 	a2,a1        		;a1= ancien non nul
+        move.l 	a2,a0
+p2:     move.b 	(a0)+,d0
+        beq.s 	p3
+        cmp.b 	#"E",d0
+        beq.s 	p3
+        cmp.b 	#"0",d0
+        beq.s 	p2
+        move.l 	a0,a1
+        bra.s 	p2
+p3:     subq.l 	#1,a0
+        move.l 	a0,d0        		;adresse de la fin du chiffre
+        cmp.l 	a2,a1         		;imprime les chiffres utiles
+        beq.s 	p5
+        move.b 	#".",(a3)+
+p4:     move.b 	(a2)+,(a3)+
+        cmp.l 	a2,a1
+        bne.s 	p4
+p5:     move.l 	d0,a2
+        cmp.b 	#"E",(a2)
+        bne.s 	p6
+        move.b 	#32,(a3)+    		;imprime un espace avant le E
+p6:     move.b 	(a2)+,(a3)+
+        bne.s 	p6
+p7:     lea	-1(a3),a0
+	movem.l	(sp)+,a1-a3
+        rts
+;------ FLOAT to ASCII
+Zero:	dc.b 	"0.0000000",0
+F2a	movem.l a2/d1-d5,-(sp)
+	movem.l	a3-a6,-(sp)
+	move.l 	a0,TempBuf(a5)
+	move.l 	d0,TempFl(a5)
+	tst.w 	d5		;D5= FIX FLAG
+	bne.s 	PaFix
+	tst.w 	d4
+	bmi.s 	PaFix
+; Fix precise NORMAL
+	cmp.w 	#8,d4
+	bcs.s 	Fx1
+	moveq 	#7,d4
+Fx1:	move.w 	d4,-(sp)
+	move.l 	a0,-(sp)
+	move.l 	d0,-(sp)
+	bsr 	ffp2a
+	lea 	10(sp),sp
+	movem.l	(sp)+,a3-a6
+	tst.w 	d4		;Si FIX=0, enleve le POINT!
+	bne.s 	Fx2
+	cmp.b 	#".",-1(a0)
+	bne.s 	Fx2
+	clr.b 	-(a0)
+Fx2:	sub.l 	d0,a0
+	exg 	d0,a0
+	movem.l (sp)+,a2/d1-d5
+	rts
+; Representation proportionnelle
+PaFix:	move.b 	d0,d1
+	and.b 	#$7f,d1
+	cmp.b 	#$41,d1
+	bcs.s 	PaF1
+	move.w 	#7,-(sp)
+	bra.s 	PaF5
+PaF1:	cmp.b 	#$31,d1
+	bcs.s 	PaF2
+	move.w 	#7+3,-(sp)
+	bra.s 	PaF5
+PaF2:	move.w 	#16+6,-(sp)	;Si >-1 et <1, demande 16 chiffres!
+PaF5:	pea	BuFloat(a5)
+	move.l 	d0,-(sp)
+	bsr	ffp2a
+	lea 	10(sp),sp
+	movem.l	(sp),a3-a6
+	move.l 	d0,a1
+	cmp.b 	#"-",(a1)
+	bne.s 	PaFix1
+	addq.l 	#1,a1
+PaFix1:	move.l 	a1,a0
+	cmp.b 	#"0",(a0)
+	beq.s 	PaFix5
+;-----> Chiffre >1
+PaFix2:	move.b 	(a0)+,d0		;Compte AVANT la virgule
+	beq.s 	PaFix3
+	cmp.b 	#$2e,d0
+	bne.s 	PaFix2
+PaFix3:	sub.l 	a1,a0
+	tst.w 	d5
+	bne 	ExFix1
+	moveq 	#7,d0
+	cmp.w 	#8,a0		;Si >7 ---> representation E+
+	bcc 	ExFix1
+	sub.w 	a0,d0
+	cmp.b 	#5,d0
+	bcs 	Clean
+	moveq 	#5,d0
+	bra 	Clean
+;-----> Chiffre <1
+PaFix5:	addq.l 	#1,a0
+	addq.l 	#1,a0
+	move.l 	a0,a1
+PaFix6:	move.b 	(a0)+,d0		;Compte le nombre de ZEROS
+	beq.s 	PaFix7
+	cmp.b 	#"0",d0
+	beq.s 	PaFix6
+PaFix7:	sub.l 	a1,a0
+	clr.w 	d0
+	cmp.w 	#16+6,a0		;Est-ce un vrai ZERO?
+	bcs.s 	PaFix8
+	move.w 	#6,a0
+	moveq 	#1,d0
+	bra.s 	PaFix9
+PaFix8:	cmp.w 	#4,a0		;0.0001 ---> Exponantielle
+	bcc 	ExVir1
+PaFix9:	tst.w 	d5
+	bne 	ExVir1
+	addq.w 	#6,a0
+	move.w 	a0,d0
+; Calcule BIEN, et nettoie le chiffre
+Clean:	move.w 	d0,-(sp)
+	pea	BuFloat(a5)
+	move.l 	TempFl(a5),-(sp)
+	bsr 	ffp2a
+	lea 	10(sp),sp
+	movem.l	(sp)+,a3-a6
+	move.l 	d0,a0
+	move.l 	TempBuf(a5),a1
+Cl1:	move.b 	(a0)+,d0
+	beq.s	Cl5
+	move.b 	d0,(a1)+
+	cmp.b 	#".",d0
+	bne.s 	Cl1
+	lea 	-1(a1),a2
+Cl2:	move.b 	(a0)+,d0
+	beq.s 	Cl3
+	move.b 	d0,(a1)+
+	cmp.b 	#"0",d0
+	beq.s 	Cl2
+	move.l 	a1,a2		;Dernier non nul
+	bra.s 	Cl2
+Cl3:	move.l 	a2,a1
+Cl5:	clr.b 	(a1)
+	move.l 	TempBuf(a5),a0
+	sub.l 	a0,a1
+	move.l 	a1,d0
+	movem.l (sp)+,a2/d1-d5
+	rts
+
+;-----> Representation exponantielle >= 1
+ExFix1:	move.w 	a0,d2
+	subq.w 	#2,d2
+	cmp.w 	#7,a0
+	bcs.s 	Exf0
+	move.w 	#7,a0
+Exf0:	moveq 	#9,d0
+	sub.w 	a0,d0
+	move.w 	d0,-(sp)
+	pea	BuFloat(a5)
+	move.l 	TempFl(a5),-(sp)
+	bsr 	ffp2a
+	lea 	10(sp),sp
+	movem.l	(sp)+,a3-a6
+
+	lea	BuFloat(a5),a0
+	move.l 	TempBuf(a5),a1
+	cmp.b 	#"-",(a0)
+	bne.s 	Exf0a
+	move.b 	(a0)+,(a1)+
+Exf0a:	move.b 	(a0)+,(a1)+
+	move.b 	#".",(a1)+
+	lea 	-1(a1),a2
+	move.w 	d4,d1
+	bpl.s 	Exf1
+	moveq 	#5,d1
+	bra.s 	Exf2
+Exf1:	cmp.w 	#5,d1
+	bcs.s 	Exf2
+	moveq 	#5,d1
+Exf2:	move.b 	(a0)+,d0
+	beq.s 	Exf2a
+	cmp.b 	#".",d0
+	beq.s 	Exf2
+	move.b 	d0,(a1)+
+	subq.w 	#1,d1
+	bne.s 	Exf2
+Exf2a:	clr.b 	(a1)
+	tst.w 	d4
+	bpl.s 	Exf5
+; Enleve les zeros
+	lea 	1(a2),a0
+Exf3:	move.b 	(a0)+,d0
+	beq.s 	Exf4
+	cmp.b 	#"0",d0
+	beq.s 	Exf3
+	move.l 	a0,a2		;Dernier non nul
+	bra.s 	Exf3
+Exf4:	move.l 	a2,a1
+; Rajoute le E+00
+Exf5:	move.b 	#"E",(a1)+
+	move.b 	#"+",(a1)+
+	move.b 	#"0",(a1)+
+Exf6:	cmp.b 	#10,d2
+	bcs.s 	Exf7
+	add.b 	#1,-1(a1)
+	sub.w 	#10,d2
+	bra.s 	Exf6
+Exf7:	add.b 	#"0",d2
+	move.b 	d2,(a1)+
+	clr.b 	(a1)
+	move.l 	TempBuf(a5),a0
+	sub.l 	a0,a1
+	move.l 	a1,d0
+	movem.l (sp)+,a2/d1-d5
+	rts
+
+;-----> Exponantielle <1
+ExVir1:	tst.w 	d0
+	beq.s 	Exv0
+	clr.w 	d2
+	moveq 	#1,d3
+	lea 	Zero(pc),a0
+	bra.s 	Exv0a
+
+Exv0:	clr.w 	d3
+	move.w 	a0,d2
+	addq.l 	#6,a0
+	move.w 	a0,-(sp)
+	pea	BuFloat(a5)
+	move.l 	TempFl(a5),-(sp)
+	bsr 	ffp2a
+	lea 	10(sp),sp
+	movem.l	(sp)+,a3-a6
+	lea	BuFloat(a5),a0
+
+Exv0a:	move.l 	TempBuf(a5),a1
+	cmp.b 	#"-",(a0)
+	bne.s 	Exv1
+	move.b 	(a0)+,(a1)+
+Exv1:	lea 	2(a0),a2
+Exv2:	move.b 	(a0)+,d0			;Cherche le debut du chiffre
+	beq.s 	Exv3
+	cmp.b 	#".",d0
+	beq.s	Exv2
+	cmp.b 	#"0",d0
+	beq.s 	Exv2
+	bra.s 	Exv4
+Exv3:	move.l 	a2,a0
+	moveq 	#"0",d0
+Exv4:	move.w 	d4,d1
+	bpl.s 	Exv5
+	moveq 	#6,d1
+	bra.s 	Exv6
+Exv5:	cmp.w 	#6,d1
+	bcs.s 	Exv6
+	moveq 	#6,d1
+Exv6:	move.b	d0,(a1)+
+	move.b 	#".",(a1)+
+	lea 	-1(a1),a2
+	tst.w 	d1
+	beq.s 	Exv7b
+Exv7:	move.b 	(a0)+,d0
+	beq.s 	Exv7a
+	move.b 	d0,(a1)+
+	cmp.b 	#"0",d0
+	beq.s 	Exv7a
+	move.l 	a1,a2
+Exv7a	subq.w 	#1,d1
+	bne.s 	Exv7
+Exv7b:	tst.w 	d4		;Nettoie le chiffre
+	bpl.s 	Exv8
+	move.l 	a2,a1
+Exv8:	tst.w 	d3
+	bne 	Exf5
+	move.b 	#"E",(a1)+
+	move.b 	#"-",(a1)+
+	move.b 	#"0",(a1)+
+	bra 	Exf6
+
+;	CONVERSION FLOAT ---> ASCII
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ffp2a	LINK	A6,#-8
+	MOVEM.L	D3-d7,-(A7)
+	MOVE.L	$C(A6),-4(A6)
+	TST.W	$10(A6)
+	BGT.S	L27CDA
+	MOVEQ	#1,D0
+	BRA.S	L27CEC
+L27CDA	CMPI.W	#$16,$10(A6)
+	BLE.S	L27CE6
+	MOVEQ	#$17,D0
+	BRA.S	L27CEC
+L27CE6	MOVE.W	$10(A6),D0
+	ADDQ.W	#1,D0
+L27CEC	MOVE.W	D0,D4
+	CLR.W	D7
+	CLR.L	-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BGE.S	L27D1C
+	MOVEA.L	$C(A6),A0
+	MOVE.B	#$2D,(A0)
+	ADDQ.L	#1,$C(A6)
+	MOVE.L	8(A6),-(A7)
+	BSR	L283A8
+	ADDQ.L	#4,A7
+	MOVE.L	D0,8(A6)
+L27D1C	CLR.L	-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BLE.S	L27D5A
+	BRA.S	L27D46
+L27D2E	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+	SUBQ.W	#1,D7
+L27D46	MOVE.L	#$80000041,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BLT.S	L27D2E
+L27D5A	BRA.S	L27D74
+L27D5C	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28250
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+	ADDQ.W	#1,D7
+L27D74	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BGE.S	L27D5C
+	ADD.W	D7,D4
+	MOVEQ	#1,D6
+	MOVE.W	D6,D0
+	EXT.L	D0
+	MOVE.L	D0,-(A7)
+	BSR	L28270
+	ADDQ.L	#4,A7
+	MOVE.L	D0,-8(A6)
+	BRA.S	L27DB8
+L27DA0	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	-8(A6),-(A7)
+	BSR	L28250
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-8(A6)
+	ADDQ.W	#1,D6
+L27DB8	CMP.W	D4,D6
+	BLT.S	L27DA0
+	MOVE.L	#$80000042,-(A7)
+	MOVE.L	-8(A6),-(A7)
+	BSR	L28250
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28212
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BLT.S	L27DFE
+	MOVE.L	#$80000041,8(A6)
+	ADDQ.W	#1,D7
+L27DFE	TST.W	D7
+	BGE.S	L27E36
+	MOVEA.L	$C(A6),A0
+	MOVE.B	#$30,(A0)
+	ADDQ.L	#1,$C(A6)
+	MOVEA.L	$C(A6),A0
+	MOVE.B	#$2E,(A0)
+	ADDQ.L	#1,$C(A6)
+	TST.W	D4
+	BGE.S	L27E20
+	SUB.W	D4,D7
+L27E20	MOVEQ	#-1,D6
+	BRA.S	L27E32
+L27E24	MOVEA.L	$C(A6),A0
+	MOVE.B	#$30,(A0)
+	ADDQ.L	#1,$C(A6)
+	SUBQ.W	#1,D6
+L27E32	CMP.W	D7,D6
+	BGT.S	L27E24
+L27E36	CLR.W	D6
+	BRA.S	L27EA4
+L27E3A	MOVE.L	8(A6),-(A7)
+	BSR	L28300
+	ADDQ.L	#4,A7
+	MOVE.W	D0,D5
+	MOVE.W	D5,D0
+	ADD.W	#$30,D0
+	MOVEA.L	$C(A6),A1
+	MOVE.B	D0,(A1)
+	ADDQ.L	#1,$C(A6)
+	CMP.W	D7,D6
+	BNE.S	L27E68
+	MOVEA.L	$C(A6),A0
+	MOVE.B	#$2E,(A0)
+	ADDQ.L	#1,$C(A6)
+L27E68	MOVE.W	D5,D0
+	EXT.L	D0
+	MOVE.L	D0,-(A7)
+	BSR	L28270
+	ADDQ.L	#4,A7
+	MOVE.L	D0,-8(A6)
+	MOVE.L	D0,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L283C4
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+	ADDQ.W	#1,D6
+L27EA4	CMP.W	D4,D6
+	BLT.S	L27E3A
+	MOVEA.L	$C(A6),A0
+	CLR.B	(A0)
+	ADDQ.L	#1,$C(A6)
+	MOVE.L	-4(A6),D0
+	TST.L	(A7)+
+	MOVEM.L	(A7)+,D4-D7
+	UNLK	A6
+	RTS
+
+L28212	LINK	A6,#-4
+	MOVEM.L	D3-D7,-(A7)
+	MOVE.L	8(A6),D7
+	MOVE.L	$C(A6),D6
+	BSR	L28422
+	MOVE.L	D7,D0
+	MOVEM.L	(A7)+,D3-D7
+	UNLK	A6
+	RTS
+L28232	LINK	A6,#-4
+	MOVEM.L	D3-D7,-(A7)
+	MOVE.L	8(A6),D7
+	MOVE.L	$C(A6),D6
+	BSR	L283E4
+	MOVEM.L	(A7)+,D3-D7
+	UNLK	A6
+	RTS
+L28250	LINK	A6,#-4
+	MOVEM.L	D3-D7,-(A7)
+	MOVE.L	8(A6),D7
+	MOVE.L	$C(A6),D6
+	BSR	L28518
+	MOVE.L	D7,D0
+	MOVEM.L	(A7)+,D3-D7
+	UNLK	A6
+	RTS
+L28270	LINK	A6,#0
+	MOVEM.L	D5-D7,-(A7)
+	TST.L	8(A6)
+	BGE.S	L2828C
+	MOVEQ	#1,D6
+	MOVE.L	8(A6),D0
+	NEG.L	D0
+	MOVE.L	D0,8(A6)
+	BRA.S	L2828E
+L2828C	CLR.W	D6
+L2828E	TST.L	8(A6)
+	BNE.S	L28298
+	CLR.L	D0
+	BRA.S	L282F6
+L28298	MOVEQ	#$18,D7
+	BRA.S	L282A8
+L2829C	MOVE.L	8(A6),D0
+	ASR.L	#1,D0
+	MOVE.L	D0,8(A6)
+	ADDQ.L	#1,D7
+L282A8	MOVE.L	8(A6),D0
+	AND.L	#$7F000000,D0
+	BNE.S	L2829C
+	BRA.S	L282C2
+L282B6	MOVE.L	8(A6),D0
+	ASL.L	#1,D0
+	MOVE.L	D0,8(A6)
+	SUBQ.L	#1,D7
+L282C2	BTST	#7,9(A6)
+	BEQ.S	L282B6
+	MOVE.L	8(A6),D0
+	ASL.L	#8,D0
+	MOVE.L	D0,8(A6)
+	ADD.L	#$40,D7
+	MOVE.L	D7,D0
+	AND.L	#$7F,D0
+	OR.L	D0,8(A6)
+	TST.W	D6
+	BEQ.S	L282F2
+	ORI.L	#$80,8(A6)
+L282F2	MOVE.L	8(A6),D0
+L282F6	TST.L	(A7)+
+	MOVEM.L	(A7)+,D6-D7
+	UNLK	A6
+	RTS
+L28300	LINK	A6,#0
+	MOVEM.L	D4-D7,-(A7)
+	MOVE.L	8(A6),D0
+	AND.L	#$7F,D0
+	ADD.L	#$FFFFFFC0,D0
+	MOVE.W	D0,D6
+	TST.L	8(A6)
+	BEQ.S	L28324
+	TST.W	D6
+	BGE.S	L28328
+L28324	CLR.L	D0
+	BRA.S	L2837E
+L28328	MOVE.L	8(A6),D0
+	AND.L	#$80,D0
+	MOVE.W	D0,D5
+	CMP.W	#$1F,D6
+	BLE.S	L2834E
+	TST.W	D5
+	BEQ.S	L28346
+	MOVE.L	#$80000000,D0
+	BRA.S	L2834C
+L28346	MOVE.L	#$7FFFFFFF,D0
+L2834C	BRA.S	L2837E
+L2834E	MOVE.L	8(A6),D7
+	ASR.L	#8,D7
+	AND.L	#$FFFFFF,D7
+	SUB.W	#$18,D6
+	BRA.S	L28364
+L28360	ASR.L	#1,D7
+	ADDQ.W	#1,D6
+L28364	TST.W	D6
+	BLT.S	L28360
+	BRA.S	L2836E
+L2836A	ASL.L	#1,D7
+	SUBQ.W	#1,D6
+L2836E	TST.W	D6
+	BGT.S	L2836A
+	TST.W	D5
+	BEQ.S	L2837C
+	MOVE.L	D7,D0
+	NEG.L	D0
+	MOVE.L	D0,D7
+L2837C	MOVE.L	D7,D0
+L2837E	TST.L	(A7)+
+	MOVEM.L	(A7)+,D5-D7
+	UNLK	A6
+	RTS
+L28388	LINK	A6,#-4
+	MOVEM.L	D3-D7,-(A7)
+	MOVE.L	8(A6),D7
+	MOVE.L	$C(A6),D6
+	BSR	L2858A
+	MOVE.L	D7,D0
+	MOVEM.L	(A7)+,D3-D7
+	UNLK	A6
+	RTS
+L283A8	LINK	A6,#-4
+	MOVEM.L	D3-D7,-(A7)
+	MOVE.L	8(A6),D7
+	BSR	L28406
+	MOVE.L	D7,D0
+	MOVEM.L	(A7)+,D3-D7
+	UNLK	A6
+	RTS
+L283C4	LINK	A6,#-4
+	MOVEM.L	D3-D7,-(A7)
+	MOVE.L	8(A6),D7
+	MOVE.L	$C(A6),D6
+	BSR	L28410
+	MOVE.L	D7,D0
+	MOVEM.L	(A7)+,D3-D7
+	UNLK	A6
+	RTS
+L283E4	TST.B	D6
+	BPL.S	L283F4
+	TST.B	D7
+	BPL.S	L283F4
+	CMP.B	D7,D6
+	BNE.S	L283FA
+	CMP.L	D7,D6
+	RTS
+L283F4	CMP.B	D6,D7
+	BNE.S	L283FA
+	CMP.L	D6,D7
+L283FA	RTS
+	TST.B	D7
+	RTS
+L28406	TST.B	D7
+	BEQ.S	L2840E
+	EORI.B	#$80,D7
+L2840E	RTS
+L28410	MOVE.B	D6,D4
+	BEQ.S	L28466
+	EORI.B	#$80,D4
+	BMI.S	L28484
+	MOVE.B	D7,D5
+	BMI.S	L2848A
+	BNE.S	L2842E
+	BRA.S	L28460
+L28422	MOVE.B	D6,D4
+	BMI.S	L28484
+	BEQ.S	L28466
+	MOVE.B	D7,D5
+	BMI.S	L2848A
+	BEQ.S	L28460
+L2842E	SUB.B	D4,D5
+	BMI.S	L2846A
+	MOVE.B	D7,D4
+	CMP.B	#$18,D5
+	BCC.S	L28466
+	MOVE.L	D6,D3
+	CLR.B	D3
+	LSR.L	D5,D3
+	MOVE.B	#$80,D7
+	ADD.L	D3,D7
+	BCS.S	L2844C
+L28448	MOVE.B	D4,D7
+	RTS
+L2844C	ROXR.L	#1,D7
+	ADDQ.B	#1,D4
+	BVS.S	L28454
+	BCC.S	L28448
+L28454	MOVEQ	#-1,D7
+	SUBQ.B	#1,D4
+	MOVE.B	D4,D7
+	ORI.B	#2,CCR
+	RTS
+L28460	MOVE.L	D6,D7
+	MOVE.B	D4,D7
+	RTS
+L28466	TST.B	D7
+	RTS
+L2846A	CMP.B	#$E8,D5
+	BLE.S	L28460
+	NEG.B	D5
+	MOVE.L	D6,D3
+	CLR.B	D7
+	LSR.L	D5,D7
+	MOVE.B	#$80,D3
+	ADD.L	D3,D7
+	BCS.S	L2844C
+	MOVE.B	D4,D7
+	RTS
+L28484	MOVE.B	D7,D5
+	BMI.S	L2842E
+	BEQ.S	L28460
+L2848A	MOVEQ	#-$80,D3
+	EOR.B	D3,D5
+	SUB.B	D4,D5
+	BEQ.S	L284E2
+	BMI.S	L284D0
+	CMP.B	#$18,D5
+	BCC.S	L28466
+	MOVE.B	D7,D4
+	MOVE.B	D3,D7
+	MOVE.L	D6,D3
+L284A0	CLR.B	D3
+	LSR.L	D5,D3
+	SUB.L	D3,D7
+	BMI.S	L28448
+L284A8	MOVE.B	D4,D5
+L284AA	CLR.B	D7
+	SUBQ.B	#1,D4
+	CMP.L	#$7FFF,D7
+	BHI.S	L284BC
+	SWAP	D7
+	SUB.B	#$10,D4
+L284BC	ADD.L	D7,D7
+	DBMI	D4,L284BC
+	EOR.B	D4,D5
+	BMI.S	L284CC
+	MOVE.B	D4,D7
+	BEQ.S	L284CC
+	RTS
+L284CC	MOVEQ	#0,D7
+	RTS
+L284D0	CMP.B	#$E8,D5
+	BLE.S	L28460
+	NEG.B	D5
+	MOVE.L	D7,D3
+	MOVE.L	D6,D7
+	MOVE.B	#$80,D7
+	BRA.S	L284A0
+L284E2	MOVE.B	D7,D5
+	EXG	D5,D4
+	MOVE.B	D6,D7
+	SUB.L	D6,D7
+	BEQ.S	L284CC
+	BPL.S	L284A8
+	NEG.L	D7
+	MOVE.B	D5,D4
+	BRA.S	L284AA
+L284F4	DIVU	#0,D7
+	TST.L	D6
+	BNE.S	L28518
+L284FC	OR.L	#$FFFFFF7F,D7
+	TST.B	D7
+	ORI.B	#2,CCR
+L28508	RTS
+L2850A	SWAP	D6
+	SWAP	D7
+L2850E	EOR.B	D6,D7
+	BRA.S	L284FC
+L28512	BMI.S	L2850E
+L28514	MOVEQ	#0,D7
+	RTS
+L28518	MOVE.B	D6,D5
+	BEQ.S	L284F4
+	MOVE.L	D7,D4
+	BEQ.S	L28508
+	MOVEQ	#-$80,D3
+	ADD.W	D5,D5
+	ADD.W	D4,D4
+	EOR.B	D3,D5
+	EOR.B	D3,D4
+	SUB.B	D5,D4
+	BVS.S	L28512
+	CLR.B	D7
+	SWAP	D7
+	SWAP	D6
+	CMP.W	D6,D7
+	BMI.S	L2853E
+	ADDQ.B	#2,D4
+	BVS.S	L2850A
+	ROR.L	#1,D7
+L2853E	SWAP	D7
+	MOVE.B	D3,D5
+	EOR.W	D5,D4
+	LSR.W	#1,D4
+	MOVE.L	D7,D3
+	DIVU	D6,D3
+	MOVE.W	D3,D5
+	MULU	D6,D3
+	SUB.L	D3,D7
+	SWAP	D7
+	SWAP	D6
+	MOVE.W	D6,D3
+	CLR.B	D3
+	MULU	D5,D3
+	SUB.L	D3,D7
+	BCC.S	L28566
+	MOVE.L	D6,D3
+	CLR.B	D3
+	ADD.L	D3,D7
+	SUBQ.W	#1,D5
+L28566	MOVE.L	D6,D3
+	SWAP	D3
+	CLR.W	D7
+	DIVU	D3,D7
+	SWAP	D5
+	BMI.S	L2857A
+	MOVE.W	D7,D5
+	ADD.L	D5,D5
+	SUBQ.B	#1,D4
+	MOVE.W	D5,D7
+L2857A	MOVE.W	D7,D5
+	ADD.L	#$80,D5
+	MOVE.L	D5,D7
+	MOVE.B	D4,D7
+	BEQ.S	L28514
+	RTS
+L2858A	MOVE.B	D7,D5
+	BEQ.S	L285E0
+	MOVE.B	D6,D4
+	BEQ.S	L285FA
+	ADD.W	D5,D5
+	ADD.W	D4,D4
+	MOVEQ	#-$80,D3
+	EOR.B	D3,D4
+	EOR.B	D3,D5
+	ADD.B	D4,D5
+	BVS.S	L285FE
+	MOVE.B	D3,D4
+	EOR.W	D4,D5
+	ROR.W	#1,D5
+	SWAP	D5
+	MOVE.W	D6,D5
+	CLR.B	D7
+	CLR.B	D5
+	MOVE.W	D5,D4
+	MULU	D7,D4
+	SWAP	D4
+	MOVE.L	D7,D3
+	SWAP	D3
+	MULU	D5,D3
+	ADD.L	D3,D4
+	SWAP	D6
+	MOVE.L	D6,D3
+	MULU	D7,D3
+	ADD.L	D3,D4
+	CLR.W	D4
+	ADDX.B	D4,D4
+	SWAP	D4
+	SWAP	D7
+	MULU	D6,D7
+	SWAP	D6
+	SWAP	D5
+	ADD.L	D4,D7
+	BPL.S	L285E2
+	ADD.L	#$80,D7
+	MOVE.B	D5,D7
+	BEQ.S	L285FA
+L285E0	RTS
+L285E2	SUBQ.B	#1,D5
+	BVS.S	L285FA
+	BCS.S	L285FA
+	MOVEQ	#$40,D4
+	ADD.L	D4,D7
+	ADD.L	D7,D7
+	BCC.S	L285F4
+	ROXR.L	#1,D7
+	ADDQ.B	#1,D5
+L285F4	MOVE.B	D5,D7
+	BEQ.S	L285FA
+	RTS
+L285FA	MOVEQ	#0,D7
+	RTS
+L285FE	BPL.S	L285FA
+	EOR.B	D6,D7
+	OR.L	#$FFFFFF7F,D7
+	TST.B	D7
+	ORI.B	#2,CCR
+	RTS
+;	Conversion ASCII vers FFP
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+a2ffp	LINK	A6,#-$2E
+	MOVEM.L	D7/A4-A5,-(A7)
+	LEA	-$14(A6),A5
+	LEA	-$18(A6),A4
+	CLR.W	-$1E(A6)
+	CLR.W	-$26(A6)
+	BRA.S	L27EDE
+L27EDA	ADDQ.L	#1,8(A6)
+L27EDE	MOVEA.L	8(A6),A0
+	CMPI.B	#$20,(A0)
+	BEQ.S	L27EDA
+	MOVEA.L	8(A6),A0
+	CMPI.B	#9,(A0)
+	BEQ.S	L27EDA
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$2D,(A0)
+	BEQ.S	L27F00
+	CLR.W	D0
+	BRA.S	L27F02
+L27F00	MOVEQ	#1,D0
+L27F02	MOVE.W	D0,-$22(A6)
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$2D,(A0)
+	BEQ.S	L27F1A
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$2B,(A0)
+	BNE.S	L27F1E
+L27F1A	ADDQ.L	#1,8(A6)
+L27F1E	BRA.S	L27F44
+L27F20	MOVEA.L	8(A6),A0
+	CMPI.B	#$2E,(A0)
+	BNE.S	L27F30
+	ADDQ.W	#1,-$1E(A6)
+	BRA.S	L27F40
+L27F30	MOVEA.L	8(A6),A0
+	MOVE.B	(A0),(A5)+
+	TST.W	-$1E(A6)
+	BEQ.S	L27F40
+	ADDQ.W	#1,-$26(A6)
+L27F40	ADDQ.L	#1,8(A6)
+L27F44	MOVEA.L	8(A6),A0
+	TST.B	(A0)
+	BEQ.S	L27F60
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$65,(A0)
+	BEQ.S	L27F60
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$45,(A0)
+	BNE.S	L27F20
+L27F60	CLR.B	(A5)
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$65,(A0)
+	BEQ.S	L27F76
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$45,(A0)
+	BNE.S	L27FBA
+L27F76	ADDQ.L	#1,8(A6)
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$2D,(A0)
+	BEQ.S	L27F88
+	CLR.W	D0
+	BRA.S	L27F8A
+L27F88	MOVEQ	#1,D0
+L27F8A	MOVE.W	D0,-$20(A6)
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$2D,(A0)
+	BEQ.S	L27FA2
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$2B,(A0)
+	BNE.S	L27FA6
+L27FA2	ADDQ.L	#1,8(A6)
+L27FA6	BRA.S	L27FB2
+L27FA8	MOVEA.L	8(A6),A0
+	MOVE.B	(A0),(A4)+
+	ADDQ.L	#1,8(A6)
+L27FB2	MOVEA.L	8(A6),A0
+	TST.B	(A0)
+	BNE.S	L27FA8
+L27FBA	CLR.B	(A4)
+	MOVE.L	A6,(A7)
+	ADDI.L	#$FFFFFFEC,(A7)
+	BSR	L280A8
+	MOVE.L	D0,-$2A(A6)
+	MOVE.L	A6,(A7)
+	ADDI.L	#$FFFFFFE8,(A7)
+	BSR	L28654
+	MOVE.W	D0,-$24(A6)
+	TST.W	-$20(A6)
+	BEQ.S	L27FF0
+	MOVE.W	-$24(A6),D0
+	NEG.W	D0
+	SUB.W	-$26(A6),D0
+	BRA.S	L27FF8
+L27FF0	MOVE.W	-$24(A6),D0
+	SUB.W	-$26(A6),D0
+L27FF8	MOVE.W	D0,-$26(A6)
+	MOVE.L	-$2A(A6),-(A7)
+	MOVE.W	-$26(A6),-(A7)
+	BSR.S	L28040
+	ADDQ.L	#2,A7
+	MOVE.L	D0,-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-$2E(A6)
+	MOVE.L	-$2E(A6),(A7)
+	BSR	L28116
+	MOVE.L	D0,-$1C(A6)
+	TST.W	-$22(A6)
+	BEQ.S	L28032
+	ORI.L	#$80,-$1C(A6)
+L28032	MOVE.L	-$1C(A6),D0
+	TST.L	(A7)+
+	MOVEM.L	(A7)+,A4-A5
+	UNLK	A6
+	RTS
+L28040	LINK	A6,#-8
+	TST.W	8(A6)
+	BGE.S	L28076
+	MOVE.L	#$80000041,-4(A6)
+	BRA.S	L2806E
+L28054	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	-4(A6),-(A7)
+	BSR	L28250
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-4(A6)
+	ADDQ.W	#1,8(A6)
+L2806E	TST.W	8(A6)
+	BLT.S	L28054
+	BRA.S	L280A0
+L28076	MOVE.L	#$80000041,-4(A6)
+	BRA.S	L2809A
+L28080	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	-4(A6),-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-4(A6)
+	SUBQ.W	#1,8(A6)
+L2809A	TST.W	8(A6)
+	BGT.S	L28080
+L280A0	MOVE.L	-4(A6),D0
+	UNLK	A6
+	RTS
+L280A8	LINK	A6,#-8
+	MOVE.L	#0,-4(A6)
+	BRA.S	L280FA
+L280B6	MOVE.L	#$A0000044,-(A7)
+	MOVE.L	-4(A6),-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-4(A6)
+	MOVE.L	-4(A6),-(A7)
+	MOVEA.L	8(A6),A0
+	MOVE.B	(A0),D0
+	EXT.W	D0
+	ADD.W	#$FFD0,D0
+	EXT.L	D0
+	MOVE.L	D0,-(A7)
+	BSR	L28270
+	ADDQ.L	#4,A7
+	MOVE.L	D0,-(A7)
+	BSR	L28212
+	ADDQ.L	#8,A7
+	MOVE.L	D0,-4(A6)
+	ADDQ.L	#1,8(A6)
+L280FA	MOVEA.L	8(A6),A0
+	CMPI.B	#$30,(A0)
+	BLT.S	L2810E
+	MOVEA.L	8(A6),A0
+	CMPI.B	#$39,(A0)
+	BLE.S	L280B6
+L2810E	MOVE.L	-4(A6),D0
+	UNLK	A6
+	RTS
+L28116	LINK	A6,#-4
+	MOVEM.L	D4-D7,-(A7)
+	CLR.L	-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BNE.S	L28134
+	CLR.L	D0
+	BRA	L28208
+L28134	CLR.L	-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BGE.S	L28158
+	MOVE.L	8(A6),-(A7)
+	BSR	L283A8
+	ADDQ.L	#4,A7
+	MOVE.L	D0,8(A6)
+	MOVEQ	#1,D5
+	BRA.S	L2815A
+L28158	CLR.W	D5
+L2815A	CLR.W	D7
+	BRA.S	L28176
+L2815E	ADDQ.W	#1,D7
+	MOVE.L	#$80000042,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28250
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+L28176	MOVE.L	#$80000041,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BGE.S	L2815E
+	BRA.S	L281A4
+L2818C	SUBQ.W	#1,D7
+	MOVE.L	#$80000042,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+L281A4	MOVE.L	#$80000040,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28232
+	ADDQ.L	#8,A7
+	BLT.S	L2818C
+	MOVE.L	#$80000059,-(A7)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28388
+	ADDQ.L	#8,A7
+	MOVE.L	D0,8(A6)
+	MOVE.L	8(A6),-(A7)
+	BSR	L28300
+	ADDQ.L	#4,A7
+	MOVE.L	D0,-4(A6)
+	MOVE.L	-4(A6),D0
+	ASL.L	#8,D0
+	MOVE.L	D0,-4(A6)
+	ADD.W	#$40,D7
+	MOVE.W	D7,D0
+	AND.W	#$7F,D0
+	EXT.L	D0
+	OR.L	D0,-4(A6)
+	TST.W	D5
+	BEQ.S	L28204
+	ORI.L	#$80,-4(A6)
+L28204	MOVE.L	-4(A6),D0
+L28208	TST.L	(A7)+
+	MOVEM.L	(A7)+,D5-D7
+	UNLK	A6
+	RTS
+
+L28654	LINK	A6,#0
+	MOVEM.L	D5-D7/A5,-(A7)
+	MOVEA.L	8(A6),A5
+	CLR.W	D7
+	CLR.W	D6
+	BRA.S	L28668
+L28666	ADDQ.L	#1,A5
+L28668	MOVE.B	(A5),D0
+	EXT.W	D0
+	EXT.L	D0
+	ADD.L	#0,D0
+	MOVEA.L	D0,A0
+;	BTST	#5,(A0)
+;	BNE.S	L28666
+	CMPI.B	#$2B,(A5)
+	BNE.S	L28686
+	ADDQ.L	#1,A5
+	BRA.S	L28690
+L28686	CMPI.B	#$2D,(A5)
+	BNE.S	L28690
+	ADDQ.L	#1,A5
+	ADDQ.W	#1,D6
+L28690	BRA.S	L286A0
+L28692	MULS	#$A,D7
+	MOVE.B	(A5)+,D0
+	EXT.W	D0
+L2869A	ADD.W	D0,D7
+L2869C	ADD.W	#$FFD0,D7
+L286A0	CMPI.B	#$30,(A5)
+L286A4	BLT.S	L286AC
+	CMPI.B	#$39,(A5)
+	BLE.S	L28692
+L286AC	TST.W	D6
+	BEQ.S	L286B6
+	MOVE.W	D7,D0
+	NEG.W	D0
+	MOVE.W	D0,D7
+L286B6	MOVE.W	D7,D0
+	TST.L	(A7)+
+	MOVEM.L	(A7)+,D6-D7/A5
+	UNLK	A6
+	RTS
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ASCII >>> DOUBLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	AscToDouble
+; - - - - - - - - - - - - -
+	CLR.L	-(A7)
+	MOVE.L	8(A7),-(A7)
+	Rlea	L_DoubleToAsc,0
+	jsr	L3D9C0-Dtoa(a0)
+	ADDQ.W	#8,A7
+	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DOUBLE>>>ASCII>>>DOUBLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DoubleToAsc
+; - - - - - - - - - - - - -
+Dtoa	LINK	A5,#-4
+	MOVEM.L	D0-7/A1-4/A6,-(A7)
+
+	lea	DDebut(pc),a4
+	lea	$7FFE(a4),a4
+	bset	#5,$1b(a5)
+
+	MOVEA.L	$10(A5),A2
+	MOVE.L	$14(A5),D6
+	MOVE.W	8(A5),D0
+	EXT.L	D0
+	ANDI.L	#$7FF0,D0
+	CMPI.L	#$7FF0,D0
+	BNE	L3D738
+	MOVE.W	8(A5),D0
+	ANDI.W	#$8000,D0
+	BEQ.S	L3D71E
+	MOVEQ	#$2D,D0
+	BRA.S	L3D720
+L3D71E	MOVEQ	#$2B,D0
+L3D720	MOVE.L	D0,D4
+L3D722	MOVE.L	D6,D0
+	SUBQ.L	#1,D6
+	TST.L	D0
+	BEQ.S	L3D72E
+	MOVE.B	D4,(A2)+
+	BRA.S	L3D722
+L3D72E	CLR.B	(A2)
+
+L3D730	move.l	a2,a0
+	bclr	#5,$1b(a5)
+	cmp.b	#2,$1b(a5)
+	bne.s	.Exit
+; Si mode 2, enleve les "0" avant l'exposant!
+	moveq	#0,d1
+	moveq	#0,d2
+	move.l	$10(a5),a0
+.Fnd	move.b	(a0)+,d0
+	beq.s	.Fin
+	cmp.b	#"e",d0
+	beq.s	.Fin
+	cmp.b	#"E",d0
+	beq.s	.Fin
+	cmp.b	#".",d0
+	beq.s	.Pnt
+	cmp.b	#"0",d0
+	beq.s	.Fnd
+	tst.l	d2
+	beq.s	.Fnd
+	move.l	a0,d1
+	bra.s	.Fnd
+.Pnt	move.l	a0,d2
+	bra.s	.Fnd
+; Fin du chiffre, enlever les 0 en trop
+.Fin	tst.l	d2		Une virgule?
+	beq.s	.End
+	lea	-1(a0),a1
+	move.l	d2,a0
+	subq.l	#1,a0
+	tst.l	d1
+	beq.s	.Nul
+	move.l	d1,a0
+.Nul	move.b	(a1)+,(a0)+
+	bne.s	.Nul
+.End	subq.l	#1,a0		A0 pointe la fin
+; Depile!
+.Exit	MOVEM.L	(A7)+,D0-7/A1-4/A6
+	UNLK	A5
+	RTS
+
+L3D738	MOVEQ	#0,D4
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DE1C(PC)
+	BGE.S	L3D760
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DE4E(PC)
+	MOVE.L	D1,$C(A5)
+	MOVE.L	D0,8(A5)
+	MOVE.B	#$2D,(A2)+
+L3D760	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DE1C(PC)
+	BLE.S	L3D7DA
+L3D76E	MOVE.L	-$7FF2(A4),D3
+	MOVE.L	-$7FF6(A4),D2
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DDC6(PC)
+	BGE.S	L3D7A4
+	MOVE.L	-$7FFA(A4),D3
+	MOVE.L	-$7FFE(A4),D2
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DFA0(PC)
+	MOVE.L	D1,$C(A5)
+	MOVE.L	D0,8(A5)
+	SUBQ.L	#1,D4
+	BRA.S	L3D76E
+L3D7A4	MOVE.L	-$7FFA(A4),D3
+	MOVE.L	-$7FFE(A4),D2
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DDC6(PC)
+	BLT.S	L3D7DA
+	MOVE.L	-$7FFA(A4),D3
+	MOVE.L	-$7FFE(A4),D2
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3E12A(PC)
+	MOVE.L	D1,$C(A5)
+	MOVE.L	D0,8(A5)
+	ADDQ.L	#1,D4
+	BRA.S	L3D7A4
+L3D7DA	MOVE.L	$18(A5),D7
+	ANDI.L	#3,D7
+	CMPI.L	#2,D7
+	BNE.S	L3D804
+	TST.L	D6
+	BNE.S	L3D7F2
+	MOVEQ	#1,D6
+L3D7F2	CMPI.L	#$FFFFFFFC,D4
+	BLT.S	L3D7FE
+	CMP.L	D6,D4
+	BLT.S	L3D800
+L3D7FE	MOVEQ	#-1,D7
+L3D800	MOVE.L	D6,D5
+	BRA.S	L3D81A
+L3D804	CMPI.L	#1,D7
+	BNE.S	L3D816
+	MOVE.L	D6,D0
+	ADD.L	D4,D0
+	MOVE.L	D0,D5
+	ADDQ.L	#1,D5
+	BRA.S	L3D81A
+L3D816	MOVE.L	D6,D5
+	ADDQ.L	#1,D5
+L3D81A	TST.L	D5
+	BLE.S	L3D872
+	CMPI.L	#$10,D5
+	BLE.S	L3D82A
+	MOVEQ	#$10,D0
+	BRA.S	L3D82C
+L3D82A	MOVE.L	D5,D0
+L3D82C	ASL.L	#3,D0
+	LEA	-$7FF6(A4),A0
+	MOVEA.L	D0,A1
+	ADDA.L	A0,A1
+	MOVE.L	4(A1),D1
+	MOVE.L	(A1),D0
+	MOVE.L	$C(A5),D3
+	MOVE.L	8(A5),D2
+	JSR	L3DE80(PC)
+	MOVE.L	D1,$C(A5)
+	MOVE.L	D0,8(A5)
+	MOVE.L	-$7FFA(A4),D3
+	MOVE.L	-$7FFE(A4),D2
+	JSR	L3DDC6(PC)
+	BLT.S	L3D872
+	MOVE.L	-$7FF2(A4),$C(A5)
+	MOVE.L	-$7FF6(A4),8(A5)
+	ADDQ.L	#1,D4
+	TST.L	D7
+	BLE.S	L3D872
+	ADDQ.L	#1,D5
+L3D872	TST.L	D7
+	BLE.S	L3D8A8
+	TST.L	D4
+	BGE.S	L3D8A2
+	MOVE.B	#$30,(A2)+
+	MOVE.B	#$2E,(A2)+
+	MOVE.L	D4,D0
+	NEG.L	D0
+	MOVEA.L	D0,A3
+	SUBQ.L	#1,A3
+	TST.L	D5
+	BGT.S	L3D890
+	MOVEA.L	D6,A3
+L3D890	MOVE.L	A3,D0
+	SUBQ.L	#1,A3
+	TST.L	D0
+	BEQ.S	L3D89E
+	MOVE.B	#$30,(A2)+
+	BRA.S	L3D890
+L3D89E	SUBA.L	A6,A6
+	BRA.S	L3D8A6
+L3D8A2	MOVEA.L	D4,A6
+	ADDQ.L	#1,A6
+L3D8A6	BRA.S	L3D8AE
+L3D8A8	MOVEA.L	#1,A6
+L3D8AE	TST.L	D5
+	BLE.S	L3D920
+	SUBA.L	A3,A3
+L3D8B4	CMPA.L	#$10,A3
+	BGE.S	L3D906
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DD4A(PC)
+	MOVE.L	D0,-4(A5)
+	MOVE.L	-4(A5),D0
+	ADDI.L	#$30,D0
+	MOVE.B	D0,(A2)+
+	MOVE.L	-4(A5),D0
+	JSR	L3DDA6(PC)
+	MOVE.L	D1,D3
+	MOVE.L	D0,D2
+	MOVE.L	$C(A5),D1
+	MOVE.L	8(A5),D0
+	JSR	L3DE7A(PC)
+	MOVE.L	-$7FFA(A4),D3
+	MOVE.L	-$7FFE(A4),D2
+	JSR	L3DFA0(PC)
+	MOVE.L	D1,$C(A5)
+	MOVE.L	D0,8(A5)
+	BRA.S	L3D90A
+L3D906	MOVE.B	#$30,(A2)+
+L3D90A	SUBQ.L	#1,D5
+	BEQ.S	L3D920
+	MOVE.L	A6,D0
+	BEQ.S	L3D91C
+	SUBQ.L	#1,A6
+	MOVE.L	A6,D0
+	BNE.S	L3D91C
+	MOVE.B	#$2E,(A2)+
+L3D91C	ADDQ.L	#1,A3
+	BRA.S	L3D8B4
+L3D920	MOVE.L	A6,D0
+	BEQ.S	L3D930
+	BTST	#5,$1B(A5)
+	BEQ.S	L3D930
+	MOVE.B	#$2E,(A2)+
+L3D930	TST.L	D7
+	BGT.S	L3D98E
+	BTST	#4,$1B(A5)
+	BEQ.S	L3D940
+	MOVEQ	#$45,D0
+	BRA.S	L3D942
+L3D940	MOVEQ	#$65,D0
+L3D942	MOVE.B	D0,(A2)+
+	TST.L	D4
+	BGE.S	L3D950
+	NEG.L	D4
+	MOVE.B	#$2D,(A2)+
+	BRA.S	L3D954
+L3D950	MOVE.B	#$2B,(A2)+
+L3D954	MOVEQ	#$64,D1
+	MOVE.L	D4,D0
+	JSR	L3E854(PC)
+	ADDI.L	#$30,D0
+	MOVE.B	D0,(A2)+
+	MOVEQ	#$64,D1
+	MOVE.L	D4,D0
+	JSR	L3E87C(PC)
+	MOVE.L	D0,D4
+	MOVEQ	#$A,D1
+	MOVE.L	D4,D0
+	JSR	L3E854(PC)
+	ADDI.L	#$30,D0
+	MOVE.B	D0,(A2)+
+	MOVEQ	#$A,D1
+	MOVE.L	D4,D0
+	JSR	L3E87C(PC)
+	ADDI.L	#$30,D0
+	MOVE.B	D0,(A2)+
+L3D98E	MOVE.L	A6,D0
+	BNE.S	L3D9BA
+	CMPI.L	#2,D7
+	BEQ.S	L3D9A2
+	CMPI.L	#$FFFFFFFF,D7
+	BNE.S	L3D9BA
+L3D9A2	BTST	#5,$1B(A5)
+	BNE.S	L3D9BA
+L3D9AA	CMPI.B	#$30,-(A2)
+	BNE.S	L3D9B2
+	BRA.S	L3D9AA
+L3D9B2	CMPI.B	#$2E,(A2)
+	BEQ.S	L3D9BA
+	ADDQ.L	#1,A2
+L3D9BA	CLR.B	(A2)
+	BRA	L3D730
+L3D9C0	LINK	A5,#-$10
+	MOVEM.L	D2-7/A2-4/A6,-(A7)
+	lea	DDebut(pc),a4
+	lea	$7FFE(a4),a4
+	MOVE.L	$C(A5),D7
+	MOVEQ	#0,D6
+	MOVEA.L	8(A5),A6
+	BRA.S	L3D9D6
+L3D9D4	ADDQ.L	#1,A6
+L3D9D6	MOVE.B	(A6),D0
+	EXT.W	D0
+	LEA	-$7F6D(A4),A0
+	MOVE.B	0(A0,D0.W),D0
+	EXT.W	D0
+	BTST	#4,D0
+	BNE.S	L3D9D4
+	TST.B	(A6)
+	BNE.S	L3DA04
+L3D9EE	TST.L	D7
+	BEQ.S	L3D9F8
+	MOVEA.L	D7,A0
+	MOVE.L	8(A5),(A0)
+L3D9F8	MOVEQ	#0,D1
+	MOVEQ	#0,D0
+L3D9FC	MOVEM.L	(A7)+,D2-7/A2-4/A6
+	UNLK	A5
+	RTS
+L3DA04	MOVE.B	(A6),D0
+	EXT.W	D0
+	EXT.L	D0
+	BRA.S	L3DA32
+L3DA0C	MOVEQ	#1,D6
+L3DA0E	ADDQ.L	#1,A6
+	BRA.S	L3DA3E
+L3DA12	MOVE.B	(A6),D0
+	EXT.W	D0
+	LEA	-$7F6D(A4),A0
+	MOVE.B	0(A0,D0.W),D0
+	EXT.W	D0
+	BTST	#2,D0
+	BNE.S	L3DA30
+	MOVE.B	(A6),D0
+	EXT.W	D0
+	CMPI.W	#$2E,D0
+	BNE.S	L3D9EE
+L3DA30	BRA.S	L3DA3E
+L3DA32	SUBI.W	#$2B,D0
+	BEQ.S	L3DA0E
+	SUBQ.W	#2,D0
+	BEQ.S	L3DA0C
+	BRA.S	L3DA12
+L3DA3E	MOVE.L	#0,-4(A5)
+	MOVE.L	#0,-8(A5)
+	MOVEA.L	A6,A2
+	BRA.S	L3DA54
+L3DA52	ADDQ.L	#1,A2
+L3DA54	MOVE.B	(A2),D0
+	EXT.W	D0
+	LEA	-$7F6D(A4),A0
+	MOVE.B	0(A0,D0.W),D0
+	EXT.W	D0
+	BTST	#2,D0
+	BNE.S	L3DA52
+	MOVEA.L	A2,A3
+	MOVE.L	#0,-4(A5)
+	MOVE.L	#0,-8(A5)
+	SUBQ.L	#1,A2
+	BRA	L3DB14
+L3DA80	MOVE.L	-4(A5),-$C(A5)
+	MOVE.L	-8(A5),-$10(A5)
+	MOVE.L	A3,D0
+	SUB.L	A2,D0
+	SUBQ.L	#1,D0
+	MOVE.L	D0,-(A7)
+	JSR	L3DCFA(PC)
+	MOVE.B	(A2),D2
+	EXT.W	D2
+	EXT.L	D2
+	SUBI.L	#$30,D2
+	ADDQ.W	#4,A7
+	MOVE.L	D1,-(A7)
+	MOVE.L	D0,-(A7)
+	MOVE.L	D2,D0
+	JSR	L3DDA6(PC)
+	MOVE.L	D1,D3
+	MOVE.L	D0,D2
+	MOVE.L	(A7)+,D0
+	MOVE.L	(A7)+,D1
+	JSR	L3DFA0(PC)
+	MOVE.L	-4(A5),D3
+	MOVE.L	-8(A5),D2
+	JSR	L3DE80(PC)
+	MOVE.L	D1,-4(A5)
+	MOVE.L	D0,-8(A5)
+	MOVE.L	-$C(A5),D3
+	MOVE.L	-$10(A5),D2
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	JSR	L3DDC6(PC)
+	BGE.S	L3DB12
+L3DAE6	MOVE.L	#$D,-$7E62(A4)
+	TST.B	D6
+	BEQ.S	L3DB02
+	MOVE.L	#$8D2C7175,D1
+	MOVE.L	#$C3A99999,D0
+	BRA	L3D9FC
+L3DB02	MOVE.L	#$8D2C7175,D1
+	MOVE.L	#$43A99999,D0
+	BRA	L3D9FC
+L3DB12	SUBQ.L	#1,A2
+L3DB14	CMPA.L	A6,A2
+	BCC	L3DA80
+	MOVE.B	(A3),D0
+	EXT.W	D0
+	CMPI.W	#$2E,D0
+	BNE.S	L3DB84
+	MOVEA.L	A3,A2
+	ADDQ.L	#1,A2
+	BRA.S	L3DB6C
+L3DB2A	MOVE.B	(A2),D0
+	EXT.W	D0
+	EXT.L	D0
+	SUBI.L	#$30,D0
+	JSR	L3DDA6(PC)
+	MOVE.L	D1,-(A7)
+	MOVE.L	D0,-(A7)
+	MOVE.L	A2,D0
+	SUB.L	A3,D0
+	MOVE.L	D0,-(A7)
+	JSR	L3DCFA(PC)
+	MOVE.L	D1,D3
+	MOVE.L	D0,D2
+	ADDQ.W	#4,A7
+	MOVE.L	(A7)+,D0
+	MOVE.L	(A7)+,D1
+	JSR	L3E12A(PC)
+	MOVE.L	-4(A5),D3
+	MOVE.L	-8(A5),D2
+	JSR	L3DE80(PC)
+	MOVE.L	D1,-4(A5)
+	MOVE.L	D0,-8(A5)
+	ADDQ.L	#1,A2
+L3DB6C	MOVE.B	(A2),D0
+	EXT.W	D0
+	LEA	-$7F6D(A4),A0
+	MOVE.B	0(A0,D0.W),D0
+	EXT.W	D0
+	BTST	#2,D0
+	BNE.S	L3DB2A
+	MOVEA.L	A2,A3
+	BRA.S	L3DB86
+L3DB84	MOVEA.L	A3,A2
+L3DB86	MOVE.B	(A2),D0
+	EXT.W	D0
+	CMPI.W	#$65,D0
+	BEQ.S	L3DB9C
+	MOVE.B	(A2),D0
+	EXT.W	D0
+	CMPI.W	#$45,D0
+	BNE	L3DCCE
+L3DB9C	MOVE.B	1(A2),D0
+	EXT.W	D0
+	CMPI.W	#$2D,D0
+	BEQ.S	L3DBB4
+	MOVE.B	1(A2),D0
+	EXT.W	D0
+	CMPI.W	#$2B,D0
+	BNE.S	L3DBB6
+L3DBB4	ADDQ.L	#1,A2
+L3DBB6	MOVEA.L	A2,A3
+	ADDQ.L	#1,A3
+	MOVE.B	(A3),D0
+	EXT.W	D0
+	LEA	-$7F6D(A4),A0
+	MOVE.B	0(A0,D0.W),D0
+	EXT.W	D0
+	BTST	#2,D0
+	BEQ	L3DCCE
+	MOVEQ	#0,D4
+L3DBD2	MOVE.B	(A3),D0
+	EXT.W	D0
+	LEA	-$7F6D(A4),A0
+	MOVE.B	0(A0,D0.W),D0
+	EXT.W	D0
+	BTST	#2,D0
+	BEQ.S	L3DC34
+	MOVE.L	D4,D5
+	MOVE.L	D4,D0
+	MOVE.L	D0,D1
+	LSL.L	#2,D0
+	ADD.L	D1,D0
+	LSL.L	#1,D0
+	MOVE.B	(A3),D1
+	EXT.W	D1
+	EXT.L	D1
+	ADD.L	D1,D0
+	MOVE.L	D0,D4
+	SUBI.L	#$30,D4
+	CMP.L	D5,D4
+	BGE.S	L3DC30
+	MOVE.B	(A2),D0
+	EXT.W	D0
+	CMPI.W	#$2D,D0
+	BNE.S	L3DC2C
+	MOVE.L	#0,-4(A5)
+	MOVE.L	#0,-8(A5)
+	MOVEQ	#0,D4
+	MOVE.L	#$D,-$7E62(A4)
+	BRA.S	L3DC34
+L3DC2C	BRA	L3DAE6
+L3DC30	ADDQ.L	#1,A3
+	BRA.S	L3DBD2
+L3DC34	MOVE.B	(A2),D0
+	EXT.W	D0
+	CMPI.W	#$2D,D0
+	BNE.S	L3DC90
+	MOVE.L	-4(A5),-$C(A5)
+	MOVE.L	-8(A5),-$10(A5)
+	MOVE.L	D4,-(A7)
+	JSR	L3DCFA(PC)
+	MOVE.L	D1,D3
+	MOVE.L	D0,D2
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	JSR	L3E12A(PC)
+	MOVE.L	D1,-4(A5)
+	MOVE.L	D0,-8(A5)
+	MOVE.L	-$C(A5),D1
+	MOVE.L	-$10(A5),D0
+	JSR	L3DE1C(PC)
+	ADDQ.W	#4,A7
+	BEQ.S	L3DC8E
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	JSR	L3DE1C(PC)
+	BNE.S	L3DC8E
+	MOVE.L	#$D,-$7E62(A4)
+L3DC8E	BRA.S	L3DCCE
+L3DC90	MOVE.L	-4(A5),-$C(A5)
+	MOVE.L	-8(A5),-$10(A5)
+	MOVE.L	D4,-(A7)
+	BSR.S	L3DCFA
+	MOVE.L	-4(A5),D3
+	MOVE.L	-8(A5),D2
+	JSR	L3DFA0(PC)
+	MOVE.L	D1,-4(A5)
+	MOVE.L	D0,-8(A5)
+	MOVE.L	-$C(A5),D3
+	MOVE.L	-$10(A5),D2
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	JSR	L3DDC6(PC)
+	ADDQ.W	#4,A7
+	BLT	L3DAE6
+L3DCCE	TST.L	D7
+	BEQ.S	L3DCD6
+	MOVEA.L	D7,A0
+	MOVE.L	A3,(A0)
+L3DCD6	TST.B	D6
+	BEQ.S	L3DCEE
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	JSR	L3DE4E(PC)
+	MOVE.L	D1,-4(A5)
+	MOVE.L	D0,-8(A5)
+L3DCEE	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	BRA	L3D9FC
+L3DCFA	LINK	A5,#-8
+	MOVEM.L	D2-4,-(A7)
+	MOVE.L	#0,-4(A5)
+	MOVE.L	#$3FF00000,-8(A5)
+	MOVEQ	#1,D4
+	BRA.S	L3DD34
+L3DD16	MOVEQ	#0,D3
+	MOVE.L	#$40240000,D2
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	JSR	L3DFA0(PC)
+	MOVE.L	D1,-4(A5)
+	MOVE.L	D0,-8(A5)
+	ADDQ.L	#1,D4
+L3DD34	CMP.L	8(A5),D4
+	BLE.S	L3DD16
+	MOVE.L	-4(A5),D1
+	MOVE.L	-8(A5),D0
+	MOVEM.L	(A7)+,D2-4
+	UNLK	A5
+	RTS
+L3DD4A	MOVEM.L	D1-2,-(A7)
+	MOVE.L	D0,D2
+	SMI	D1
+	SWAP	D2
+	LSR.W	#4,D2
+	ANDI.W	#$7FF,D2
+	SUBI.W	#$3FF,D2
+	BMI.S	L3DD90
+	SUBI.W	#$1F,D2
+	BGT.S	L3DD94
+	NEG.W	D2
+	LSL.L	#8,D0
+	LSL.L	#3,D0
+	ORI.L	#$80000000,D0
+	EXT.W	D1
+	SWAP	D1
+	LSR.W	#5,D1
+	ANDI.W	#$7FF,D1
+	OR.W	D1,D0
+	LSR.L	D2,D0
+	MOVE.L	D1,D1
+	BMI.S	L3DD8C
+	TST.L	D0
+L3DD86	MOVEM.L	(A7)+,D1-2
+	RTS
+L3DD8C	NEG.L	D0
+	BRA.S	L3DD86
+L3DD90	MOVEQ	#0,D0
+	BRA.S	L3DD86
+L3DD94	MOVE.L	#$7FFFFFFF,D0
+	MOVE.L	D1,D1
+	BPL.S	L3DDA0
+	NEG.L	D0
+L3DDA0	ORI.B	#2,CCR
+	BRA.S	L3DD86
+L3DDA6	TST.L	D0
+	BEQ.S	L3DDC2
+	MOVEM.L	D4-7,-(A7)
+	SMI	D6
+	BGT.S	L3DDB4
+	NEG.L	D0
+L3DDB4	MOVEQ	#0,D1
+	MOVEQ	#$1F,D4
+	JSR	L3E26A(PC)
+	MOVEM.L	(A7)+,D4-7
+	RTS
+L3DDC2	MOVEQ	#0,D1
+	RTS
+L3DDC6	MOVEM.L	D1-4,-(A7)
+	MOVE.L	D0,D4
+	SWAP	D4
+	ANDI.W	#$7FF0,D4
+	BNE.S	L3DDD8
+	MOVEQ	#0,D0
+	MOVEQ	#0,D1
+L3DDD8	MOVE.L	D2,D4
+	SWAP	D4
+	ANDI.W	#$7FF0,D4
+	BNE.S	L3DDE6
+	MOVEQ	#0,D2
+	MOVEQ	#0,D3
+L3DDE6	MOVE.L	D2,D2
+	BMI.S	L3DE12
+	MOVE.L	D0,D0
+	BMI.S	L3DE02
+	CMP.L	D2,D0
+L3DDF0	BLT.S	L3DE02
+	BGT.S	L3DE0A
+	CMP.L	D3,D1
+	BCS.S	L3DE02
+	BHI.S	L3DE0A
+	MOVEQ	#0,D0
+	MOVEM.L	(A7)+,D1-4
+	RTS
+L3DE02	MOVEQ	#-1,D0
+	MOVEM.L	(A7)+,D1-4
+	RTS
+L3DE0A	MOVEQ	#1,D0
+	MOVEM.L	(A7)+,D1-4
+	RTS
+L3DE12	MOVE.L	D0,D0
+	BPL.S	L3DE0A
+	EXG	D1,D3
+	CMP.L	D0,D2
+	BRA.S	L3DDF0
+L3DE1C	MOVE.L	D0,D1
+	SWAP	D1
+	ANDI.W	#$7FF0,D1
+	BEQ.S	L3DE4A
+	MOVE.L	D0,D0
+	BPL.S	L3DE2E
+	MOVEQ	#-1,D0
+	RTS
+L3DE2E	MOVEQ	#1,D0
+	RTS
+	MOVE.L	D0,-(A7)
+	SWAP	D0
+	ANDI.W	#$7FF0,D0
+	BEQ.S	L3DE46
+	MOVE.L	(A7)+,D0
+	ANDI.L	#$7FFFFFFF,D0
+	RTS
+L3DE46	ADDQ.L	#4,A7
+	MOVEQ	#0,D1
+L3DE4A	MOVEQ	#0,D0
+	RTS
+L3DE4E	MOVE.L	D0,-(A7)
+	SWAP	D0
+	ANDI.W	#$7FF0,D0
+	BEQ.S	L3DE46
+	MOVE.L	(A7)+,D0
+	EORI.L	#$80000000,D0
+	RTS
+L3DE62	MOVE.L	D3,D1
+	MOVE.L	D2,D0
+	SWAP	D2
+	ANDI.W	#$7FF0,D2
+	BNE.S	L3DE72
+L3DE6E	MOVEQ	#0,D1
+	MOVEQ	#0,D0
+L3DE72	MOVEM.L	(A7)+,D4-7/A0
+	MOVE.L	D0,D0
+	RTS
+L3DE7A	EORI.L	#$80000000,D2
+L3DE80	MOVEM.L	D4-7/A0,-(A7)
+	MOVEQ	#0,D6
+	MOVEQ	#0,D7
+	MOVE.L	D0,D4
+	SMI	D6
+	SWAP	D4
+	ANDI.W	#$7FF0,D4
+	BEQ.S	L3DE62
+	LSR.W	#4,D4
+	MOVE.L	D2,D5
+	SMI	D7
+	SWAP	D5
+	ANDI.W	#$7FF0,D5
+	BEQ.S	L3DE72
+	LSR.W	#4,D5
+	SUBI.W	#$3FF,D4
+	SUBI.W	#$3FF,D5
+	ANDI.L	#$FFFFF,D0
+	ORI.L	#$100000,D0
+	MOVEA.L	D6,A0
+	SWAP	D5
+	MOVE.W	#$B,D5
+	LSL.L	D5,D0
+	MOVE.L	D1,D6
+	SWAP	D6
+	LSR.W	#5,D6
+	OR.W	D6,D0
+	LSL.L	D5,D1
+	ANDI.L	#$FFFFF,D2
+	ORI.L	#$100000,D2
+	LSL.L	D5,D2
+	MOVE.L	D3,D6
+	SWAP	D6
+	LSR.W	#5,D6
+	OR.W	D6,D2
+	LSL.L	D5,D3
+	SWAP	D5
+	MOVE.L	A0,D6
+	CMP.W	D5,D4
+	BEQ.S	L3DF66
+	BGT.S	L3DEF6
+	EXG	D0,D2
+	EXG	D1,D3
+	EXG	D4,D5
+	EXG	D6,D7
+L3DEF6	MOVEA.L	D4,A0
+	SUB.W	D5,D4
+	CMPI.W	#$37,D4
+	BMI.S	L3DF06
+	MOVEQ	#0,D2
+	MOVEQ	#0,D3
+	BRA.S	L3DF64
+L3DF06	CMPI.W	#5,D4
+	BMI.S	L3DF5A
+	CMPI.W	#$20,D4
+	BMI.S	L3DF36
+	SUBI.W	#$20,D4
+	MOVE.L	D3,D3
+	BEQ.S	L3DF26
+	MOVE.L	D2,D3
+	LSR.L	D4,D3
+L3DF1E	ORI.W	#1,D3
+	MOVEQ	#0,D2
+	BRA.S	L3DF64
+L3DF26	MOVE.L	D2,D3
+	LSR.L	D4,D3
+	MOVE.L	D3,D5
+	LSL.L	D4,D5
+	CMP.L	D2,D5
+	BNE.S	L3DF1E
+	MOVEQ	#0,D2
+	BRA.S	L3DF64
+L3DF36	MOVE.W	D6,-(A7)
+	MOVE.L	D3,D5
+	LSR.L	D4,D3
+	MOVE.L	D3,D6
+	LSL.L	D4,D6
+	CMP.L	D5,D6
+	BEQ.S	L3DF48
+	ORI.W	#1,D3
+L3DF48	MOVE.W	(A7)+,D6
+	MOVE.L	D2,D5
+	LSR.L	D4,D2
+	NEG.W	D4
+	ADDI.W	#$20,D4
+	LSL.L	D4,D5
+	OR.L	D5,D3
+	BRA.S	L3DF64
+L3DF5A	SUBQ.W	#1,D4
+L3DF5C	LSR.L	#1,D2
+	ROXR.L	#1,D3
+	DBF	D4,L3DF5C
+L3DF64	MOVE.L	A0,D4
+L3DF66	CMP.W	D7,D6
+	BGT.S	L3DF7A
+	BLT.S	L3DF80
+	ADD.L	D3,D1
+	ADDX.L	D2,D0
+	BCC.S	L3DF8C
+	ROXR.L	#1,D0
+	ROXR.L	#1,D1
+	ADDQ.W	#1,D4
+	BRA.S	L3DF8C
+L3DF7A	EXG	D0,D2
+	EXG	D1,D3
+	MOVE.L	D7,D6
+L3DF80	SUB.L	D3,D1
+	SUBX.L	D2,D0
+	BCC.S	L3DF8C
+	NEGX.B	D6
+	NEG.L	D1
+	NEGX.L	D0
+L3DF8C	JSR	L3E26A(PC)
+	MOVEM.L	(A7)+,D4-7/A0
+	RTS
+L3DF96	MOVEQ	#0,D0
+	MOVEQ	#0,D1
+	MOVEM.L	(A7)+,D4-7/A0-2
+	RTS
+L3DFA0	MOVEM.L	D4-7/A0-2,-(A7)
+	MOVE.L	D0,D4
+	SMI	D6
+	SWAP	D4
+	ANDI.W	#$7FF0,D4
+	BEQ.S	L3DF96
+	MOVE.L	D2,D5
+	SMI	D7
+	SWAP	D5
+	ANDI.W	#$7FF0,D5
+	BEQ.S	L3DF96
+	ANDI.L	#$FFFFF,D0
+	ORI.L	#$100000,D0
+	ADD.W	D5,D4
+	LSR.W	#4,D4
+	SUBI.W	#$7FD,D4
+	MOVEA.L	D4,A0
+	EOR.B	D7,D6
+	MOVEA.L	D6,A1
+	MOVEQ	#$B,D5
+	LSL.L	D5,D0
+	MOVE.L	D1,D6
+	SWAP	D6
+	LSR.W	#5,D6
+	OR.W	D6,D0
+	LSL.L	D5,D1
+	ANDI.L	#$FFFFF,D2
+	ORI.L	#$100000,D2
+	LSL.L	D5,D2
+	MOVE.L	D3,D6
+	SWAP	D6
+	LSR.W	#5,D6
+	OR.W	D6,D2
+	LSL.L	D5,D3
+	MOVEQ	#0,D7
+	MOVEA.L	D2,A2
+	MOVE.L	D3,D2
+	MOVEQ	#0,D3
+	MOVEQ	#0,D4
+	MOVEQ	#0,D5
+	MOVEQ	#0,D6
+	TST.W	D2
+	BEQ.S	L3E024
+	MOVE.W	D0,D3
+	BEQ.S	L3E018
+	MULU	D2,D3
+	SWAP	D3
+	MOVE.W	D3,D6
+L3E018	MOVE.L	D0,D3
+	SWAP	D3
+	TST.W	D3
+	BEQ.S	L3E024
+	MULU	D2,D3
+	ADD.L	D3,D6
+L3E024	SWAP	D2
+	TST.W	D2
+	BEQ.S	L3E058
+	MOVE.L	D1,D3
+	SWAP	D3
+	TST.W	D3
+	BEQ.S	L3E03C
+	MULU	D2,D3
+	CLR.W	D3
+	SWAP	D3
+	ADD.L	D3,D6
+	ADDX.W	D7,D5
+L3E03C	MOVE.W	D0,D3
+	BEQ.S	L3E046
+	MULU	D2,D3
+	ADD.L	D3,D6
+	ADDX.W	D7,D5
+L3E046	MOVE.L	D0,D3
+	SWAP	D3
+	MULU	D2,D3
+	SWAP	D6
+	ADD.W	D3,D6
+	SWAP	D6
+	CLR.W	D3
+	SWAP	D3
+	ADDX.L	D3,D5
+L3E058	MOVE.L	A2,D2
+	TST.W	D2
+	BEQ.S	L3E096
+	MOVE.W	D1,D3
+	BEQ.S	L3E06C
+	MULU	D2,D3
+	CLR.W	D3
+	SWAP	D3
+	ADD.L	D3,D6
+	ADDX.L	D7,D5
+L3E06C	MOVE.L	D1,D3
+	SWAP	D3
+	TST.W	D3
+	BEQ.S	L3E07A
+	MULU	D2,D3
+	ADD.L	D3,D6
+	ADDX.L	D7,D5
+L3E07A	MOVE.W	D0,D3
+	BEQ.S	L3E08C
+	MULU	D2,D3
+	SWAP	D6
+	ADD.W	D3,D6
+	SWAP	D6
+	CLR.W	D3
+	SWAP	D3
+	ADDX.L	D3,D5
+L3E08C	MOVE.L	D0,D3
+	SWAP	D3
+	MULU	D2,D3
+	ADD.L	D3,D5
+	ADDX.L	D7,D4
+L3E096	SWAP	D2
+	MOVE.W	D1,D3
+	BEQ.S	L3E0A4
+	MULU	D2,D3
+	ADD.L	D3,D6
+	ADDX.L	D7,D5
+	ADDX.L	D7,D4
+L3E0A4	SWAP	D1
+	MOVE.W	D1,D3
+	BEQ.S	L3E0BA
+	MULU	D2,D3
+	SWAP	D6
+	ADD.W	D3,D6
+	SWAP	D6
+	CLR.W	D3
+	SWAP	D3
+	ADDX.L	D3,D5
+	ADDX.L	D7,D4
+L3E0BA	MOVE.W	D0,D3
+	BEQ.S	L3E0C4
+	MULU	D2,D3
+	ADD.L	D3,D5
+	ADDX.L	D7,D4
+L3E0C4	SWAP	D0
+	MOVE.W	D0,D3
+	MULU	D2,D3
+	SWAP	D5
+	ADD.W	D3,D5
+	SWAP	D5
+	CLR.W	D3
+	SWAP	D3
+	ADDX.L	D3,D4
+	CMPI.L	#$FFFF,D4
+	BLS.S	L3E0E6
+	ADDQ.W	#1,A1
+	LSR.L	#1,D4
+	ROXR.L	#1,D5
+	ROXR.L	#1,D6
+L3E0E6	CMPI.W	#$8000,D6
+	BEQ.S	L3E10A
+	BLS.S	L3E110
+	SWAP	D6
+	ADDQ.W	#1,D6
+	SWAP	D6
+	ADDX.L	D7,D5
+	ADDX.L	D7,D4
+	CMPI.L	#$FFFF,D4
+	BLS.S	L3E110
+	ADDQ.W	#1,A0
+	LSR.L	#1,D4
+	ROXR.L	#1,D5
+	ROXR.L	#1,D6
+	BRA.S	L3E110
+L3E10A	ORI.L	#$10000,D6
+L3E110	MOVE.W	D5,D6
+	SWAP	D6
+	MOVE.L	D6,D1
+	MOVE.W	D4,D5
+	SWAP	D5
+	MOVE.L	D5,D0
+	MOVE.L	A0,D4
+	MOVE.L	A1,D6
+	JSR	L3E26C(PC)
+	MOVEM.L	(A7)+,D4-7/A0-2
+	RTS
+L3E12A	MOVEM.L	D4-7/A0,-(A7)
+	MOVE.L	D0,D4
+	SMI	D6
+	SWAP	D4
+	ANDI.W	#$7FF0,D4
+	BEQ	L3DE6E
+	MOVE.L	D2,D5
+	SMI	D7
+	SWAP	D5
+	ANDI.W	#$7FF0,D5
+	BEQ	L3E23A
+	ANDI.L	#$FFFFF,D0
+	ORI.L	#$100000,D0
+	SUB.W	D5,D4
+	ASR.W	#4,D4
+	SUBQ.W	#1,D4
+	MOVEA.W	D4,A0
+	EOR.B	D7,D6
+	SWAP	D6
+	MOVEQ	#$B,D5
+	LSL.L	D5,D0
+	MOVE.L	D1,D7
+	SWAP	D7
+	LSR.W	#5,D7
+	OR.W	D7,D0
+	LSL.L	D5,D1
+	ANDI.L	#$FFFFF,D2
+	ORI.L	#$100000,D2
+	LSL.L	D5,D2
+	MOVE.L	D3,D7
+	SWAP	D7
+	LSR.W	#5,D7
+	OR.W	D7,D2
+	LSL.L	D5,D3
+	TST.W	D2
+	BNE.S	L3E1CA
+	TST.L	D3
+	BNE.S	L3E1CA
+	SWAP	D2
+	SWAP	D0
+	CMP.W	D2,D0
+	BEQ.S	L3E19A
+	BLS.S	L3E1A4
+L3E19A	SWAP	D0
+	ADDQ.W	#1,A0
+	LSR.L	#1,D0
+	ROXR.L	#1,D1
+	SWAP	D0
+L3E1A4	SWAP	D0
+	DIVU	D2,D0
+	MOVE.W	D0,D4
+	SWAP	D4
+	SWAP	D1
+	MOVE.W	D1,D0
+	DIVU	D2,D0
+	MOVE.W	D0,D4
+	SWAP	D1
+	MOVE.W	D1,D0
+	DIVU	D2,D0
+	MOVE.W	D0,D5
+	SWAP	D5
+	CLR.W	D0
+	DIVU	D2,D0
+	MOVE.W	D0,D5
+	MOVE.L	D4,D0
+	MOVE.L	D5,D1
+	BRA.S	L3E22E
+L3E1CA	CMP.L	D0,D2
+	BNE.S	L3E1DE
+	CMP.L	D1,D3
+	BNE.S	L3E1DE
+	MOVE.L	#$80000000,D0
+	ADDQ.W	#1,A0
+	MOVEQ	#0,D1
+	BRA.S	L3E22E
+L3E1DE	BHI.S	L3E1E6
+	ADDQ.W	#1,A0
+	LSR.L	#1,D0
+	ROXR.L	#1,D1
+L3E1E6	LSR.L	#1,D2
+	ROXR.L	#1,D3
+	LSR.L	#1,D0
+	ROXR.L	#1,D1
+	MOVE.W	#2,D6
+L3E1F2	MOVEQ	#0,D4
+	MOVEQ	#$1F,D7
+L3E1F6	LSL.L	#1,D4
+	LSL.L	#1,D1
+	ROXL.L	#1,D0
+	SUB.L	D3,D1
+	SUBX.L	D2,D0
+	BMI.S	L3E222
+L3E202	ADDQ.W	#1,D4
+	DBF	D7,L3E1F6
+	SUBQ.W	#1,D6
+	BEQ.S	L3E22A
+	MOVE.L	D4,D5
+	BRA.S	L3E1F2
+L3E210	MOVE.L	D4,D5
+	MOVEQ	#0,D4
+	MOVEQ	#$1F,D7
+L3E216	LSL.L	#1,D4
+	LSL.L	#1,D1
+	ROXL.L	#1,D0
+	ADD.L	D3,D1
+	ADDX.L	D2,D0
+	BPL.S	L3E202
+L3E222	DBF	D7,L3E216
+	SUBQ.W	#1,D6
+	BNE.S	L3E210
+L3E22A	MOVE.L	D5,D0
+	MOVE.L	D4,D1
+L3E22E	MOVE.L	A0,D4
+	SWAP	D6
+	BSR.S	L3E26A
+L3E234	MOVEM.L	(A7)+,D4-7/A0
+	RTS
+L3E23A	MOVE.L	#$E,-$7E62(A4)
+	BSR.S	L3E252
+	BRA.S	L3E234
+L3E246	MOVEQ	#0,D1
+	RTS
+L3E24A	MOVE.L	#$D,-$7E62(A4)
+L3E252	MOVEQ	#-1,D1
+	MOVE.L	#$7FFFFFFF,D0
+	TST.B	D6
+	BEQ.S	L3E264
+	ORI.L	#$80000000,D0
+L3E264	ORI.B	#2,CCR
+	RTS
+L3E26A	MOVEQ	#0,D7
+L3E26C	TST.L	D0
+	BNE.S	L3E27A
+	EXG	D0,D1
+	SUBI.W	#$20,D4
+	TST.L	D0
+	BEQ.S	L3E246
+L3E27A	BMI.S	L3E284
+L3E27C	SUBQ.W	#1,D4
+	LSL.L	#1,D1
+	ROXL.L	#1,D0
+	BGE.S	L3E27C
+L3E284	MOVE.W	D1,D5
+	ANDI.W	#$7FF,D5
+	CMPI.W	#$400,D5
+	BEQ.S	L3E2A4
+	BLS.S	L3E2AC
+L3E292	ADDI.L	#$800,D1
+	ADDX.L	D7,D0
+	BCC.S	L3E2AC
+	ROXR.L	#1,D0
+	ROXR.L	#1,D1
+	ADDQ.W	#1,D4
+	BRA.S	L3E2AC
+L3E2A4	MOVE.W	D1,D5
+	ANDI.W	#$800,D5
+	BNE.S	L3E292
+L3E2AC	MOVEQ	#$B,D5
+	MOVE.W	D0,D7
+	LSL.W	#5,D7
+	LSR.L	D5,D0
+	LSR.L	D5,D1
+	SWAP	D1
+	OR.W	D7,D1
+	SWAP	D1
+	ANDI.L	#$FFFFF,D0
+	ADDI.W	#$3FF,D4
+	BMI.S	L3E2E2
+	CMPI.W	#$7FF,D4
+	BGT	L3E24A
+	TST.B	D6
+	BEQ.S	L3E2D8
+	ORI.W	#$800,D4
+L3E2D8	LSL.W	#4,D4
+	SWAP	D0
+	OR.W	D4,D0
+	SWAP	D0
+	RTS
+L3E2E2	MOVEQ	#0,D1
+	MOVE.L	#$D,-$7E62(A4)
+	MOVE.L	#$100000,D0
+	TST.B	D6
+	BEQ.S	L3E2FC
+	ORI.L	#$80000000,D0
+L3E2FC	RTS
+
+
+L3E854	MOVEM.L	D1/D4,-(A7)
+	CLR.L	D4
+	TST.L	D0
+	BPL.S	L3E862
+	NEG.L	D0
+	ADDQ.W	#1,D4
+L3E862	TST.L	D1
+	BPL.S	L3E86C
+	NEG.L	D1
+	EORI.W	#1,D4
+L3E86C	BSR.S	L3E8AC
+L3E86E	TST.W	D4
+	BEQ.S	L3E874
+	NEG.L	D0
+L3E874	MOVEM.L	(A7)+,D1/D4
+	TST.L	D0
+	RTS
+L3E87C	MOVEM.L	D1/D4,-(A7)
+	CLR.L	D4
+	TST.L	D0
+	BPL.S	L3E88A
+	NEG.L	D0
+	ADDQ.W	#1,D4
+L3E88A	TST.L	D1
+	BPL.S	L3E890
+	NEG.L	D1
+L3E890	BSR.S	L3E8AC
+	MOVE.L	D1,D0
+	BRA.S	L3E86E
+	MOVE.L	D1,-(A7)
+	BSR.S	L3E8AC
+	MOVE.L	D1,D0
+	MOVE.L	(A7)+,D1
+	TST.L	D0
+	RTS
+	MOVE.L	D1,-(A7)
+	BSR.S	L3E8AC
+	MOVE.L	(A7)+,D1
+	TST.L	D0
+	RTS
+L3E8AC	MOVEM.L	D2-3,-(A7)
+	SWAP	D1
+	TST.W	D1
+	BNE.S	L3E8D6
+	SWAP	D1
+	MOVE.W	D1,D3
+	MOVE.W	D0,D2
+	CLR.W	D0
+	SWAP	D0
+	DIVU	D3,D0
+	MOVE.L	D0,D1
+	SWAP	D0
+	MOVE.W	D2,D1
+	DIVU	D3,D1
+	MOVE.W	D1,D0
+	CLR.W	D1
+	SWAP	D1
+	MOVEM.L	(A7)+,D2-3
+	RTS
+L3E8D6	SWAP	D1
+	MOVE.L	D1,D3
+	MOVE.L	D0,D1
+	CLR.W	D1
+	SWAP	D1
+	SWAP	D0
+	CLR.W	D0
+	MOVEQ	#$F,D2
+L3E8E6	ADD.L	D0,D0
+	ADDX.L	D1,D1
+	CMP.L	D1,D3
+	BHI.S	L3E8F2
+	SUB.L	D3,D1
+	ADDQ.W	#1,D0
+L3E8F2	DBF	D2,L3E8E6
+	MOVEM.L	(A7)+,D2-3
+	RTS
+
+	Rdata
+
+DDebut	DC.B	$40,$24,0,0,0,0,0,0
+	DC.B	$3F,$F0,0,0,0,0,0,0
+	DC.B	$3F,$E0,0,0,0,0,0,0
+	DC.B	$3F,$A9,$99,$99,$99,$99,$99,$9A
+	DC.B	$3F,$74,$7A,$E1,$47,$AE,$14,$7B
+	DC.B	$3F,$40,$62,$4D,$D2,$F1,$A9,$FC
+	DC.B	$3F,$A,$36,$E2,$EB,$1C,$43,$2D
+	DC.B	$3E,$D4,$F8,$B5,$88,$E3,$68,$F1
+	DC.B	$3E,$A0,$C6,$F7,$A0,$B5,$ED,$8E
+	DC.B	$3E,$6A,$D7,$F2,$9A,$BC,$AF,$49
+	DC.B	$3E,$35,$79,$8E,$E2,$30,$8C,$3A
+	DC.B	$3E,1,$2E,$B,$E8,$26,$D6,$95
+	DC.B	$3D,$CB,$7C,$DF,$D9,$D7,$BD,$BB
+	DC.B	$3D,$95,$FD,$7F,$E1,$79,$64,$96
+	DC.B	$3D,$61,$97,$99,$81,$2D,$EA,$12
+	DC.B	$3D,$2C,$25,$C2,$68,$49,$76,$82
+	DC.B	$3C,$F6,$84,$9B,$86,$A1,$2B,$9C
+	DC.B	$3C,$C2,3,$AF,$9E,$E7,$56,$16
+	DC.B	0,$20,$20,$20,$20,$20,$20,$20
+	DC.B	$20,$20,$30,$30,$30,$30,$30,$20
+	DC.B	$20,$20,$20,$20,$20,$20,$20,$20
+	DC.B	$20,$20,$20,$20,$20,$20,$20,$20
+	DC.B	$20,$90,$40,$40,$40,$40,$40,$40
+	DC.B	$40,$40,$40,$40,$40,$40,$40,$40
+	DC.B	$40,$C,$C,$C,$C,$C,$C,$C
+	DC.B	$C,$C,$C,$40,$40,$40,$40,$40
+	DC.B	$40,$40,9,9,9,9,9,9
+	DC.B	1,1,1,1,1,1,1,1
+	DC.B	1,1,1,1,1,1,1,1
+	DC.B	1,1,1,1,$40,$40,$40,$40
+	DC.B	$40,$40,$A,$A,$A,$A,$A,$A
+	DC.B	2,2,2,2,2,2,2,2
+	DC.B	2,2,2,2,2,2,2,2
+	DC.B	2,2,2,2,$40,$40,$40,$40
+	DC.B	$20,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,$14,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,0,0,0,0
+	DC.B	0,0,0,0,$C2,$9D,$34,$EF
+	DC.B	0,0,0,0,0,0,0,0
+	Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN DES ROUTINES EXTERNES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	End_Externes
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TERMINE LA LIBRARIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		Titre
+C_Title		dc.b 	"AMOSPro 2.0 Main Library V "
+		Version
+		dc.b	0,"$VER: "
+		Version
+		dc.b	0
+		Even
+C_End		dc.w	0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
diff --git a/+Monitor.s b/+Monitor.s
new file mode 100644
index 0000000..ba50272
--- /dev/null
+++ b/+Monitor.s
@@ -0,0 +1,4317 @@
+;_____________________________________________________________________________
+;.............................................................................
+;...................................................................2222222...
+;................................................................22222222220..
+;...................................................222........222222.....222.
+;..............................................2202222222222..22000...........
+;..................................22000.....20222222222200000200002..........
+;.................................2002202...2222200222.220000000200000000022..
+;....................220002......22222200..2200002.......2200000...20000000000
+;....................22222202....2220000022200000..........200002........20000
+;.....200000.........2222200000222200220000000002..........200002........20000
+;.....00222202........2220022000000002200002000002........2000002000020000000.
+;....2222200000.......220002200000002.2000000000000222222000000..2000000002...
+;....220000200002......20000..200002..220000200000000000000002.......22.......
+;...2220002.2200002....220002...22.....200002..0000000000002..................
+;...220000..222000002...20000..........200000......2222.......................
+;...000000000000000000..200000..........00002.................................
+;..220000000022020000002.200002.........22......._____________________________
+;..0000002........2000000220022.................|
+;.200000............2002........................| MONITOR
+;.200002........................................|
+;220002.........................................|_____________________________
+;_____________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;
+;_____________________________________________________________________________
+		Include	"+Debug.s"
+		IFEQ	Debug=2
+		Include "+AMOS_Includes.s"
+		Include "+Version.s"
+		ENDC
+;_____________________________________________________________________________
+
+
+; Branchements internes au moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MDebut		dc.l	In_Editor-MDebut	0- Depuis l'editeur
+		dc.l	In_Program-MDebut	1- Depuis le programme
+		dc.l	MonitorChr-MDebut	2- Entree du moniteur
+		dc.l	0
+
+; Equates internes au moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_MinTy	equ	8
+Ttt_MaxTy	equ	16
+
+* Num�ro des ecrans
+Tt_Ecran1	equ	EcEdit
+Tt_Ecran2	equ	EcFonc
+E1_Sx		equ	640
+E1_Sy		equ	116
+E2_Sx		equ	640
+E2_MinY		equ	128
+
+; Position de base des boutons
+BtX		equ	384
+BtY		equ	35
+RedX		equ	16
+RedY		equ	9
+RedTX		equ	320
+RedTY		equ	100
+BoutInfos	equ	12
+NBoutons	equ	16
+
+Tjsr	MACRO
+	jsr	\1
+	move.l	Mon_Base(a5),a4
+	ENDM
+
+;					------------------------------------
+;--------------------------------------    Zone de donnees sp�cifique TUTOR
+;					------------------------------------
+Tt_ChannelN	equ	$BBCCDDEE
+Inf_Size	equ	88*100		; 100 lignes max
+		RsReset
+Inf_Sly		rs.w	1
+Inf_Slp1	rs.w	1
+Inf_Slp2	rs.w	1
+Inf_Pos		rs.l	1
+Inf_YPos	rs.w	1
+Inf_AlertOn	rs.w	1
+Inf_NLigne	rs.w	1
+Inf_Buf		rs.l	1
+
+Tt_Dialogs	rs.l	1
+Tt_CurBanks	rs.l	1
+Tt_CurDialogs	rs.l	1
+Tt_Channel	rs.l	1
+Tt_Variables	rs.l	1
+Tt_Resource	rs.l	1
+Tt_Program	rs.l	1
+Tt_JError	rs.l	1
+Tt_PrgHelp	rs.l	1
+Tt_Init		rs.w	1
+Tt_View		rs.w	1
+Tt_ViewTX	rs.w	1
+Tt_ViewTY	rs.w	1
+Tt_ViewNP	rs.w	1
+Tt_ViewAd	rs.l	1
+Tt_Active	rs.w	1
+Tt_Accel	rs.w	1
+Tt_Ecran	rs.w	1
+Tt_YMark	rs.w	1
+Tt_X1Mark	rs.w	1
+Tt_X2Mark	rs.w	1
+Tt_YInfo	rs.w	1
+Tt_X1Info	rs.w	1
+Tt_X2Info	rs.w	1
+Tt_XNext	rs.w	1
+Tt_YNext	rs.w	1
+Tt_PLine	rs.l	1
+Tt_ALine	rs.l	1
+Tt_EvPile	rs.l	1
+Tt_EvDebut	rs.l	1
+Tt_InfOn	rs.w	1
+Tt_DCurLine	rs.l	1
+Tt_Run		rs.w	1
+Tt_MapAdr	rs.l	1
+Tt_MapLong	rs.l	1
+Tt_MKey		rs.w	1
+Tt_MFlag	rs.w	1
+Tt_Adress	rs.l	1
+Tt_Locked	rs.w	1
+Tt_CurLigne	rs.l	1
+Tt_DebProc	rs.l	1
+Tt_NotHere	rs.b	1
+		rs.b	1
+Tt_BufT		rs.l	1
+Tt_Ligne	rs.l	1
+
+Ttt_BufE	rs.l	1
+Ttt_XPos	rs.w	1
+Ttt_YPos	rs.w	1
+Ttt_Sy		rs.w	1
+Ttt_Tlh		rs.w	1
+Ttt_Mode	rs.w	1
+Ttt_Tlb		rs.w	1
+ttsl_hp1	rs.w	1
+ttsl_hp2	rs.w	1
+ttsl_vp1	rs.w	1
+ttsl_vp2	rs.w	1
+
+Step_Data	rs.l	10
+Step_Break	rs.l	1
+Step_Stop	rs.w	1
+Step_Mess	rs.l	1
+Step_Mode	rs.w	1
+
+Hlp_Map		rs.l	1
+Hlp_LMap	rs.l	1
+Hlp_Texte	rs.l	1
+Hlp_LTexte	rs.l	1
+
+ViewScrols	rs.w	4*8
+Tt_DzLong	equ	__RS
+
+
+
+; ___________________________________________________________________
+;
+;	BOUCLE PRINCIPALE
+; ___________________________________________________________________
+;
+
+;	Entree du moniteur par l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+In_Editor
+	move.l	Edt_Runned(a5),a3	Le programme courant
+	move.l	Edt_Prg(a3),a3		Structure programme
+	bsr	Tt_ColdStart
+	bne	.OMem
+	clr.w	Tt_Run(a4)
+	bra.s	Tt_Tests
+.OMem	rts
+
+; 	Entree du moniteur par le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+In_Program
+	movem.l	a3-a6/d6/d7,-(sp)
+	move.l	Mon_Base(a5),d0
+	bne.s	.DejaLa
+	move.l	Prg_Runned(a5),a3
+	bsr	Tt_ColdStart
+	bne.s	.Out
+	move.w	#1,Tt_Init(a4)
+	move.w	#1,Tt_Run(a4)
+	lea	Tt_Error(pc),a0		Erreur>>> se branche au moniteur
+	move.l	a0,Prg_JError(a5)
+.Ok	moveq	#0,d0
+.Out	movem.l	(sp)+,a3-a6/d6/d7
+	rts
+.DejaLa	move.l	d0,a0
+	addq.w	#1,Step_Stop(a0)
+	bra.s	.Ok
+
+;	Boucle de tests du moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Tests
+	move.l	Mon_Base(a5),a4
+	clr.w	Tt_Active(a4)
+Tt_ReLoop
+	bsr	Tt_TtBanks
+	move.l	Tt_Program(a4),a3
+	bsr	View_Act
+	clr.w	Tt_Accel(a4)
+	tst.w	Tt_Active(a4)
+	beq.s	Tt_Loop
+.loop	bsr	Tt_Multi
+	bsr	Tt_MBout
+	btst	#0,d1
+	beq.s	.Out
+	SyCall	GetZone
+	cmp.w	#Tt_Ecran1,d1
+	bne.s	.Out
+	swap	d1
+	cmp.w	Tt_Active(a4),d1
+	beq.s	.loop
+.Out	move.w	Tt_Active(a4),d0
+	clr.w	Tt_Active(a4)
+	moveq	#0,d1
+	bsr	ABouton
+Tt_Loop
+; Attente multitache
+	bsr	Tt_Multi
+; Gestion des zones actives!
+	bsr	Tt_MBout
+	move.w	d1,Tt_MKey(a4)
+	and.w	#$03,d1			Bouton de gauche--> normal
+	beq	Tt_ReLoop
+
+	bsr	Ttt_InfAct
+	bsr	Ttt_AlertDel		Enleve les alertes
+	bsr	View_Act
+
+	SyCall	GetZone
+	cmp.w	#Tt_Ecran2,d1
+	beq	Ttt_E2
+	cmp.w	#Tt_Ecran1,d1
+	bne	Tt_DBL
+	swap 	d1
+	tst.w	d1
+	beq	Tt_DBL
+	move.w	d1,d0
+; Touches HELP/BREAK/EVAL?
+	cmp.w	#14,d0
+	bcc.s	.Skip
+	cmp.w	Tt_Active(a4),d1
+	beq.s	.Skip
+; Active la touche
+	tst.w	Tt_Active(a4)
+	bne	Tt_ReLoop
+	move.w	d1,Tt_Active(a4)
+	moveq	#1,d1
+	bsr	ABouton
+; Appel des fonctions
+.Skip	lsl.w	#2,d0
+	lea	Tt_Bra-4(pc),a0
+	jsr	0(a0,d0.w)
+	bne	Tt_ReLoop
+	bra	Tt_Loop
+
+; 	Ecran de texte
+; ~~~~~~~~~~~~~~~~~~~~
+Ttt_E2	swap 	d1
+	subq.w	#1,d1
+	bmi	Tt_ReLoop
+	move.w	d1,-(sp)
+	bsr	Ttt_TttAct
+	move.w	(sp)+,d1
+	lsl.w	#2,d1
+	lea	Ttt_Bra(pc),a0
+	jsr	0(a0,d1.w)
+	bra	Tt_ReLoop
+
+; 	Une zone DBL?
+; ~~~~~~~~~~~~~~~~~~~
+Tt_DBL	moveq	#1,d0
+	JJsr	L_Dia_AutoTest2
+	move.l	#Tt_ChannelN,d0
+	JJsr	L_Dia_GetReturn
+	lsl.w	#2,d1
+	beq	Tt_ReLoop
+	move.w	d1,-(sp)
+	bsr	Ttt_TttAct
+	move.w	(sp)+,d1
+	lea	J_DBL(pc),a0
+	jsr	-4(a0,d1.w)
+	bra	Tt_ReLoop
+
+;	Table des sauts
+; ~~~~~~~~~~~~~~~~~~~~~
+Tt_Bra
+	bra	Tt_Rien			1:  STOP, teste separement
+	bra	Tt_Step0		2:  mode pas a pas
+	bra	Tt_Step1		3:  mode semi-rapide
+	bra	Tt_Step2		4:  mode rapide
+	bra	Tt_Step3		5:  mode ultra-rapide
+	bra	Tt_Up			6:
+	bra	Tt_Down			7:
+	bra	Tt_Left			8:
+	bra	Tt_Right		9:
+	bra	Tt_CEc			10: Change ecran
+	bra	Tt_Initialise		11: Init
+	bra	Tt_Quit			12: Quit
+	bra	Tt_See			13: Voir l'affichage
+	bra	Tt_SHelp		14: Set Help
+	bra	Tt_SBreak		15: Set break
+	bra	Tt_SEval		16: Set evalue
+Tt_Rien	rts
+
+Ttt_Bra	bra	Ttt_ListClic		1 : Zone de listing
+	bra	Ttt_Separ		2 : Zone de separation
+	bra	Inf_Clic		3 : Zone d'information
+J_DBL	bra	Ttt_Slhclic		1 : Slider horizontal
+	bra	Ttt_Slvclic		2 : Slider vertical
+	bra	Inf_Sliclic		3 : Slider infos
+	bra	Ttt_CText		4 : Bouton de centrage
+
+; ___________________________________________________________________
+;
+;	INITIALISATION GENERALE
+; ___________________________________________________________________
+;
+Tt_ColdStart
+; Reservation de la zone de datas
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#Tt_DzLong,d0
+	SyCall	MemFastClear
+	beq	.Out
+	move.l	a0,a4
+	move.l	a0,Mon_Base(a5)
+; Init de donnees
+; ~~~~~~~~~~~~~~~
+	move.l	a3,Tt_Program(a4)
+	move.l	Cur_Banks(a5),Tt_CurBanks(a4)
+	move.l	Cur_Dialogs(a5),Tt_CurDialogs(a4)
+	move.w	#-1,Tt_Ecran(a4)
+	move.w	#-1,Tt_View(a4)
+	move.w	#-1,Tt_YMark(a4)
+	move.w	#-1,Tt_YNext(a4)
+	clr.b	Tt_NotHere(a4)
+	move.w	Ed_Sy(a5),d0
+	sub.w	#E1_Sy,d0
+	tst.b	Ed_Inter(a5)
+	beq.s	.S0
+	sub.w	#E1_Sy,d0
+.S0	and.w	#$FFF0,d0
+	cmp.w	#E2_MinY,d0
+	bcc.s	.Skip
+	move.w	#E2_MinY,d0
+.Skip	move.w	d0,Ttt_Sy(a4)
+; Reservation des autres buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lsr.w	#3,d0			Buffer d'edition
+	mulu	#256,d0
+	SyCall	MemFastClear
+	beq	.Out
+	move.l	a0,Ttt_BufE(a4)
+	move.l	#1024+512,d0		Buffer Tokenisation / Lignes
+	SyCall	MemFastClear
+	beq	.Out
+	move.l	a0,Tt_BufT(a4)
+	lea	512(a0),a0
+	move.l	a0,Tt_Ligne(a4)
+	move.l	#Inf_Size,d0		Buffer infos
+	SyCall	MemFastClear
+	beq	.Out
+	move.l	a0,Inf_Buf(a4)
+; Trouve l'adresse de la banque de resource
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Tt_TtBanks
+	moveq	#16,d0
+	JJsr	L_Bnk.GetAdr
+	beq	.Out
+	move.l	a0,Tt_Resource(a4)
+; Ouvre l'�cran du haut
+; ~~~~~~~~~~~~~~~~~~~~~
+	moveq	#Tt_Ecran1,d0
+	move.l	#E1_Sx,d1
+	move.l	#E1_Sy,d2
+	moveq	#0,d3
+	moveq	#0,d4			Force non interlaced!
+	move.l	Tt_Resource(a4),a0
+	add.l	2(a0),a0
+	JJsrR	L_Dia_RScOpen,a1
+	bne	.Out
+	move.l	T_EcCourant(a5),a0
+	move.w	Ed_Wy(a5),EcAWY(a0)
+	SyCalD	ResZone,NBoutons
+	bne	.Out
+; Affiche les boutons
+; ~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	bsr	Tt_UPack
+	bsr	ABoutons
+	bsr	Tt_SEval
+	bsr	View_Cls
+	bsr	TtReCop
+
+; Ouvre l'ecran du bas
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#Tt_Ecran2,d0
+	move.l	#E2_Sx,d1
+	move.w	Ttt_Sy(a4),d2
+	ext.l	d2
+	moveq	#0,d3
+	moveq	#0,d4			Interlaced?
+	move.b	Ed_Inter(a5),d4
+	move.l	Ed_Resource(a5),a0
+	add.l	2(a0),a0
+	JJsrR	L_Dia_RScOpen,a1
+	bne	.Out
+	move.l	T_EcCourant(a5),a0
+	move.w	Ed_Wy(a5),EcAWY(a0)
+	add.w	#E1_Sy,EcAWY(a0)
+	SyCalD	ResZone,4
+	bne	.Out
+	WiCalA	Print,Ttt_WInit(pc)
+; Ouvre le DBL
+	lea	DBL(pc),a0		Programme d'essai!
+	move.l	Ed_Resource(a5),a1
+	add.l	2(a1),a1
+	move.l	#Tt_ChannelN,d0		Numero du canal
+	move.l	#512,d1			Buffer
+	moveq	#12,d2			Nombre de variables
+	moveq	#0,d3			Ne PAS recopier
+	JJsrR	L_Dia_OpenChannel,a2
+	tst.l	d0			Une erreur?
+	bne	.Out
+	move.l	a0,Tt_Channel(a4)
+	move.l	a1,Tt_Variables(a4)
+; Initialisation du fond
+	move.w	Ttt_Sy(a4),d0
+	lsr.w	#1,d0
+	addq.w	#8,d0
+	bsr	Ttt_SetSize
+	bsr	Ttt_Cls
+	bne	.Out
+	bsr	Ttt_NewBuf
+	move.l	Inf_Buf(a4),a0
+	move.l	a0,Inf_Pos(a4)
+	moveq	#5,d0
+	bsr	Tt_Message
+	move.l	a0,-(sp)
+	moveq	#2,d0
+	bsr	Inf_PrDeb
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+	move.l	(sp)+,a0
+	moveq	#4,d0
+	bsr	Inf_PrDeb
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+; Poke les patches
+	lea	TstPatch(pc),a0
+	move.l	a0,ExtTests+4(a5)
+	lea	Tt_PScFront(pc),a0
+	move.l	a0,Patch_ScFront(a5)
+	lea	Tt_PScCopy(pc),a0
+	move.l	a0,Patch_ScCopy(a5)
+	move.w	#L_Mon_MonitorChr,d0		Branche le moniteur
+	JJsr	L_SetChrPatch
+	move.l	Prg_JError(a5),Tt_JError(a4)
+	bsr	Set_WPatch
+; Branche les interruptions couleurs...
+	lea	VblRout(a5),a0
+.loopI	tst.l	(a0)+
+	bne.s	.loopI
+	lea	View_Inter(pc),a1
+	move.l	a1,-4(a0)
+; Prepare les affichage des ecrans
+	bsr	View_ScUpdate
+	bsr	View_Act
+	bsr	View_Aff
+; Force la souris...
+	bsr	Tt_Mouse
+; Verifie, au moins 4K de chip
+	move.l	a6,-(sp)
+	move.l	#Public|Chip,d1
+	move.l	$4.w,a6
+	jsr	_LVOAvailMem(a6)
+	move.l	(sp)+,a6
+	cmp.l	#1024*4,d0
+	bcs.s	.Out
+; Fin, pas d'erreur, flag moniteur present!
+	bsr	TtReCop
+	moveq	#0,d0
+	rts
+; Out of mem!
+.Out	bsr	Tt_Free
+	bsr	Tt_MonFree
+	moveq	#1,d0
+	rts
+
+; 	Effacement de la zone de donnee monitor
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_MonFree
+	move.l	Mon_Base(a5),d0
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	#Tt_DzLong,d0
+	SyCall	MemFree
+.Skip	rts
+
+;	Effacement des donnees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Free	move.l	Mon_Base(a5),d0
+	beq	.PaInit
+	move.l	d0,a4
+	bsr	Del_WPatch
+	moveq	#0,d0
+	JJsr	L_SetChrPatch
+	clr.l	ExtTests+4(a5)
+	bclr	#1,T_Actualise+1(a5)
+	bclr	#1,ActuMask+1(a5)
+	clr.l	Patch_Menage(a5)
+	clr.l	Patch_Errors(a5)
+	clr.l	Patch_ScFront(a5)
+	clr.l	Patch_ScCopy(a5)
+	move.l	Tt_JError(a4),Prg_JError(a5)
+; Enleve les interruptions
+	lea	VblRout(a5),a0
+	lea	View_Inter(pc),a1
+	moveq	#8-1,d0
+.loopI	cmp.l	(a0)+,a1
+	dbeq	d0,.loopI
+	tst.w	d0
+	bmi.s	.Sk
+	clr.l	-4(a0)
+; Enleve le canal DBL
+.Sk	bsr	Tt_TtBanks
+	move.l	#Tt_ChannelN,d0		Numero du canal
+	JJsr	L_Dia_CloseChannel
+; Enleve les ecrans
+	EcCalD	Del,Tt_Ecran1
+	EcCalD	Del,Tt_Ecran2
+; Enleve les buffers
+	bsr	Hlp_FreeMap		Enleve les HELP
+	move.l	Ttt_BufE(a4),d0
+	beq.s	.B1
+	move.l	d0,a1
+	move.w	Ttt_Sy(a4),d0
+	lsr.w	#3,d0			Buffer d'edition
+	mulu	#256,d0
+	SyCall	MemFree
+.B1	move.l	Tt_BufT(a4),d0
+	beq.s	.B2
+	move.l	d0,a1
+	move.l	#1024+512,d0		Buffer Tokenisation / Lignes
+	SyCall	MemFree
+.B2	move.l	Inf_Buf(a4),d0
+	beq.s	.B3
+	move.l	d0,a1
+	move.l	#Inf_Size,d0		Buffer infos
+	SyCall	MemFree
+.B3
+; Remet les banques du programme, et basta!
+.PaInit	bsr	Tt_PrgBanks
+	rts
+
+;	TOUCHE: quit/ Retour � l'editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Quit
+; Si Break Off >>> on peut pas!!!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	Tt_Init(a4)
+	ble.s	.Quit
+	move.w	ActuMask(a5),d0
+	btst	#BitControl,d0
+	bne.s	.Quit
+	moveq	#7,d0
+	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bsr	Ttt_InfAct
+	bra	Inf_AffAll
+.Quit
+; Effacement de tous les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Tt_Free
+	bsr	TtReCop
+; Retour � l'editeur ou au programme???
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,a1
+	move.l	#Tt_DzLong,d0
+	clr.l	Mon_Base(a5)
+	tst.w	Tt_Run(a4)
+	bne.s	.torun
+; Retour � l'�diteur
+.parun	SyCall	MemFree			Plus de datazone
+	clr.l	Prg_Runned(a5)		Plus de programme courant
+	JJsr	L_Includes_Clear	Libere la memoire
+	JJsr	L_ClearVar
+	move.l	#1000,d0		Fait un EDIT
+	sub.l	a0,a0
+	move.l	Prg_JError(a5),a1
+	jmp	(a1)
+; Retour au programme
+.torun	tst.w	Tt_Init(a4)
+	ble.s	.parun
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	lea	Step_Data(a4),a0
+	move.l	(a0)+,-(sp)
+	movem.l	(a0),a3-a6/d4-d5/d6-d7
+	SyCall	MemFree
+	move.w	ScOn(a5),d1
+	beq.s	.skip
+	subq.w	#1,d1
+	EcCall	Active
+.skip	move.l	d4,d0
+	move.l	d5,d1
+	rts
+
+;
+; Actualisation des ecrans
+TtReCop	SyCall	WaitVbl
+	EcCall	CopForce
+	rts
+
+;	Montre les deux ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+Tt_Show	moveq	#0,d2
+	bra.s	Tth
+;	Cache les deux ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Hide	moveq	#-1,d2			Ne PAS changer!
+Tth	movem.l	d0-d7/a0-a4,-(sp)
+	move.l	Mon_Base(a5),a0
+	cmp.b	Tt_NotHere(a0),d2	D2=0 si show, -1 si hide!
+	beq.s	.Skip
+	move.b	d2,Tt_NotHere(a0)
+	EcCalD	EHide,Tt_Ecran1
+	EcCalD	EHide,Tt_Ecran2
+	bsr	TtReCop
+.Skip	movem.l	(sp)+,d0-d7/a0-a4
+	rts
+
+;	Force la souris en marche
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Mouse
+	movem.l	d0-d7/a0-a3,-(sp)
+	SyCall	Show,-1
+	moveq	#64,d1			Nouvelles limites
+	moveq	#30,d2
+	move.l	#510,d3
+	move.l	#312,d4
+	move.l	#$01234567,d5		Magic!
+	SyCall	LimitM
+	movem.l	(sp)+,d0-d7/a0-a3
+	rts
+
+
+; ___________________________________________________________________
+;
+;	PATCH SUR AMOS.LIBRARY
+; ___________________________________________________________________
+;
+;	Branche le patch sur W
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Set_WPatch
+	move.l	a0,-(sp)
+	lea	Old_EcVect(pc),a0
+	move.l	T_EcVect(a5),(a0)
+	lea	Old_SyVect(pc),a0
+	move.l	T_SyVect(a5),(a0)
+	lea	EcIn(pc),a0
+	move.l	a0,T_EcVect(a5)
+	lea	SyIn(pc),a0
+	move.l	a0,T_SyVect(a5)
+	move.l	(sp)+,a0
+	rts
+;	Enleve le patch sur W
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Del_WPatch
+	move.l	a0,-(sp)
+	lea	Old_EcVect(pc),a0
+	tst.l	(a0)
+	beq.s	.Skip1
+	move.l	(a0),T_EcVect(a5)
+	clr.l	(a0)
+.Skip1	lea	Old_SyVect(pc),a0
+	tst.l	(a0)
+	beq.s	.Skip2
+	move.l	(a0),T_SyVect(a5)
+	clr.l	(a0)
+.Skip2	move.l	(sp)+,a0
+	rts
+
+;	Patch des fonctions W ecrans...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EcIn	bsr	TT_WPatch		RAZ
+	bsr	TT_WPatch2		Copper
+	bsr	TT_WPatch2		Libre
+	bsr	TT_WPatchC		Cree
+	bsr	TT_WPatch		Del
+	bsr	TT_WPatch		First
+	bsr	TT_WPatch		Last
+	bsr	TT_WPatch		Active
+	bsr	TT_WPatch2		Forcecop
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch		5 Fonctions de securite!
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+	bsr	TT_WPatch
+
+;	Restore les ecrans puis appelle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_WPatch2
+	bsr.s	Tt_first
+;	Patch normal...
+; ~~~~~~~~~~~~~~~~~~~~~
+TT_WPatch
+	move.l	a0,-(sp)
+	move.l	4(sp),a0
+	sub.l	T_EcVect(a5),a0
+	subq.l	#4,a0
+	add.l	Old_EcVect(pc),a0
+	move.l	a0,4(sp)
+	move.l	(sp)+,a0
+	rts
+;	Appelle puis restore les ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_WPatch1
+	move.l	(sp)+,a0
+	sub.l	T_EcVect(a5),a0
+	subq.l	#4,a0
+	add.l	Old_EcVect(pc),a0
+	jsr	(a0)
+; Routine: met les deux en premier...
+Tt_first
+	movem.l	a0-a6/d0-d7,-(sp)
+	move.l	Old_EcVect(pc),a0	* Ecran Tutor1
+	moveq	#Tt_Ecran1,d1
+	jsr	First*4(a0)
+	move.l	Old_EcVect(pc),a0	* Ecran Tutor2
+	moveq	#Tt_Ecran2,d1
+	jsr	First*4(a0)
+	move.l	Old_EcVect(pc),a0	* Ecran FSEL
+	moveq	#EcFsel,d1
+	jsr	First*4(a0)
+	move.l	Old_EcVect(pc),a0	* Ecran Requester
+	moveq	#EcReq,d1
+	jsr	First*4(a0)
+	movem.l	(sp)+,a0-a6/d0-d7
+	tst.l	d0
+	rts
+;	Patch pour CREATION ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_WPatchC
+; Appelle
+	move.l	(sp)+,a0
+	sub.l	T_EcVect(a5),a0
+	subq.l	#4,a0
+	add.l	Old_EcVect(pc),a0
+	jsr	(a0)
+	bne.s	.Err
+; Change les tables du TUTOR
+	movem.l	a0/a1/d0/d1,-(sp)
+	move.w	EcNumber(a0),d1
+	cmp.w	#8,d1
+	bcc.s	.skuo
+	lsl.w	#3,d1
+	move.l	Mon_Base(a5),a1
+	lea	ViewScrols(a1),a1
+	add.w	d1,a1
+	clr.l	(a1)
+	move.w	EcTx(a0),4(a1)
+	move.w	EcTy(a0),d0
+	tst.w	EcCon0(a0)
+	bmi.s	.skip
+	lsr.w	#1,d0
+.skip	move.w	d0,6(a1)
+.skuo	movem.l	(sp)+,a0/a1/d0/d1
+; Ok!
+.Err	tst.w	d0
+	rts
+
+;	Patch des fonctions W systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SyIn:	bsr 	TT_SPatch	ClInky		;0
+	bsr	TT_SPatch	ClVide		;1
+	bsr 	TT_SPatch	ClSh		;2
+	bsr	TT_SPatch	ClInst		;3
+	bsr	TT_SPatch	ClKeyM		;4
+	bsr	TT_SPatch	ClJoy		;5
+	bsr	TT_SPatch	ClPutK		;6
+	bsr	TT_SPatch	MHide		;7
+	bsr	TT_SPatch	MShow		;8
+	bsr	TT_SPatch	MChange		;9 - ChMouse
+	bsr	TT_SPatch	MXy		;10- XY Mouse
+	bsr	TT_SPatch	CXyHard		;11- Conversion SCREEN-> HARD
+	bsr	TT_SXyScr	CXyScr		;12- Conversion HARD-> SCREEN
+	bsr	TT_SPatch	MBout		;13
+	bsr	TT_SPatch	MSetAb		;14
+	bsr	TT_SGSIn	GetSIn		;15- Get screen IN
+	bsr	TT_SPatch	CXyWi		;16- Conversion SCREEN-> WINDOW courante
+	bsr	TT_SPatch	MLimA		;17- Limit mouse
+	bsr	TT_SZoHd	SyZoHd		;18- Zone coordonnees HARD
+	bsr	TT_SPatch	SyResZ		;19- Reserve des zones
+	bsr	TT_SPatch	SyRazZ		;20- Effacement zones
+	bsr	TT_SPatch	SySetZ		;21- Set zone
+	bsr	TT_SPatch	SyMouZ		;22- Zone souris!
+	bsr	TT_SPatch	WVbl		;23
+	bsr	TT_SPatch	HsSet		;24- Affiche un hard sprite
+	bsr	TT_SPatch	HsUSet		;25- Efface un hard sprite
+	bsr	TT_SPatch	ClFFk		;26
+	bsr	TT_SPatch	ClGFFk		;27
+	bsr	TT_SPatch	HsAff		;28- Recalcule les hard sprites
+	bsr	TT_SPatch	HsBank		;29- Fixe la banque de sprites
+	bsr	TT_SPatch	HsNXYA		;30- Instruction sprite
+	bsr	TT_SPatch	HsXOff		;31- Sprite off n
+	bsr	TT_SPatch	HsOff		;32- All sprite off
+	bsr	TT_SPatch	HsAct		;33- Actualisation HSprite
+	bsr	TT_SPatch	HsSBuf		;34- Set nombre de lignes
+	bsr	TT_SPatch	HsStAct		;35- Arrete les HS sans deasctiver!
+	bsr	TT_SPatch	HsReAct		;36- Re-Active tous!
+	bsr	TT_SPatch	MStore		;37- Stocke etat souris / Show on
+	bsr	TT_SPatch	MRecall		;38- Remet la souris
+	bsr	TT_SPatch	HsPri		;39- Priorites SPRITES/PLAYFIELD
+	bsr	TT_SPatch	TokAMAL		;40- Tokenise AMAL
+	bsr	TT_SPatch	CreAMAL		;41- Demarre AMAL
+	bsr	TT_SPatch	MvOAMAL		;42- On/Off/Freeze AMAL
+	bsr	TT_SPatch	DAllAMAL	;43- Enleve TOUT!
+	bsr	TT_SPatch	Animeur		;44- Un coup d'animation
+	bsr	TT_SPatch	RegAMAL		;45- Registre!
+	bsr	TT_SPatch	ClrAMAL		;46- Clear
+	bsr	TT_SPatch	FrzAMAL		;47- FREEZE all
+	bsr	TT_SPatch	UFrzAMAL	;48- UNFREEZE all
+	bsr	TT_SPatch	BobSet		;49- Entree set bob
+	bsr	TT_SPatch	BobOff		;50- Arret bob
+	bsr	TT_SPatch	BobSOff		;51- Arret tous bobs
+	bsr 	TT_SPatch	BobAct		;52- Actualisation bobs
+	bsr	TT_SPatch	BobAff		;53- Affichage bobs
+	bsr	TT_SPatch	BobEff		;54- Effacement bobs
+	bsr	TT_SPatch	ChipMM		;55- Reserve CHIP
+	bsr	TT_SPatch	FastMM		;56- Reserve FAST
+	bsr	TT_SPatch	BobLim		;57- Limite bobs!
+	bsr	TT_SPatch	SyZoGr		;58- Zone coord graphiques
+	bsr	TT_SPatch	GetBob		;59- Saisie graphique
+	bsr	TT_SPatch	Masque		;60- Calcul du masque
+	bsr	TT_SPatch	SpotH		;61- Fixe le point chaud
+	bsr	TT_SPatch	BbColl		;62- Collisions bob
+	bsr	TT_SPatch	GetCol		;63- Fonction collision
+	bsr	TT_SPatch	SpColl		;64- Collisions sprites
+	bsr	TT_SPatch	SyncO		;65- Synchro on/off
+	bsr	TT_SPatch	Sync		;66- Synchro step
+	bsr	TT_SPatch	SetPlay		;67- Set play direction...
+	bsr	TT_SPatch	BobXY		;68- Get XY Bob
+	bsr	TT_SPatch	HsXY		;69- Get XY Sprite
+	bsr	TT_SPatch	BobPut		;70- Put Bob!
+	bsr	TT_SPatch	TPatch		;71- Patch icon/bob!
+	bsr	TT_SPatch	MRout		;72- Souris relachee
+	bsr	TT_SPatch	MLimEc		;73- Limit mouse ecran
+	bsr	TT_SPatch	FreeMM		;74- Libere mem
+	bsr	TT_SPatch	HColSet		;75- Set HardCol
+	bsr	TT_SPatch	HColGet		;76- Get HardCol
+	bsr	TT_SPatch	TMovon		;77- Movon!
+	bsr	TT_SPatch	TKSpeed		;78- Key speed
+	bsr	TT_SPatch	TChanA		;79- =ChanAn
+	bsr	TT_SPatch	TChanM		;80- =ChanMv
+	bsr	TT_SPatch	TPrio		;81- Set priority
+	bsr	TT_SPatch	TGetDisc	;82- State of disc drive
+	bsr	TT_SPatch	Add_VBL		;83- Restart VBL
+	bsr	TT_SPatch	Rem_VBL		;84- Stop VBL
+	bsr	TT_SPatch	ClKwait		;85- Une touche en attente?
+	bsr	TT_SPatch	WMouScrFront	;86- Coordonnees souris devant ILLEGAL
+	bsr	TT_SPatch	WMemReserve	;87- (P) Reservation memoire secure
+	bsr	TT_SPatch	WMemFree	;88- (P) Liberation memoire secure
+	bsr	TT_SPatch	WMemCheck	;89- (P) Verification memoire
+	bsr	TT_SPatch	WMemFastClear	;90- (P)
+	bsr	TT_SPatch	WMemChipClear	;91-
+	bsr	TT_SPatch	WMemFast	;92-
+	bsr	TT_SPatch	WMemChip	;93-
+	bsr	TT_SPatch			;94-
+	bsr	TT_SPatch			;95-
+	bsr	TT_SPatch			;96-
+	bsr	TT_SPatch			;97-
+	bsr	TT_SPatch			;98-
+	bsr	TT_SPatch			;99-
+	bsr	TT_SPatch			;100-
+
+
+;	Patch systeme normal...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_SPatch
+	move.l	a0,-(sp)
+	move.l	4(sp),a0
+	sub.l	T_SyVect(a5),a0
+	subq.l	#4,a0
+	add.l	Old_SyVect(pc),a0
+	move.l	a0,4(sp)
+	move.l	(sp)+,a0
+	rts
+;	Patch fonction XyScr
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_SXyScr
+	bsr	TT_SHere
+	bne	TT_SPatch
+	move.l	a4,(sp)
+	move.l	Mon_Base(a5),a4
+	bsr	TT_Hard2Screen
+	movem.l	(sp)+,a4
+	bpl.s	.Skip
+	moveq	#0,d1
+	moveq	#0,d2
+.Skip	moveq	#0,d0
+	rts
+;	Patch fonction Zone Hard
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_SZoHd
+	bsr	TT_SHere
+	bne	TT_SPatch
+	move.l	a4,(sp)
+	move.l	Mon_Base(a5),a4
+	bsr	TT_Hard2Screen
+	move.l	(sp)+,a4
+	bmi.s	.Out
+	moveq	#8,d5
+	move.l	Old_SyVect(pc),a0
+	jsr	ZoGr*4(a0)
+.Skip	rts
+.Out	moveq	#0,d1
+	moveq	#0,d0
+	rts
+;	Patch fonction GetSCin
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_SGSIn
+	bsr	TT_SHere
+	bne	TT_SPatch
+	move.l	a4,(sp)
+	move.l	Mon_Base(a5),a4
+	bsr	TT_EcIn
+	bmi.s	.Out
+	lsl.w	#2,d0
+	lea	T_EcAdr(a5),a1
+	move.l	0(a1,d0.w),d0
+	beq.s	.Out
+	move.l	d0,a1
+	bsr	XY2Ec
+	bmi.s	.Out
+	cmp.w	EcTx(a1),d1
+	bcc.s	.Out
+	cmp.w	EcTy(a1),d2
+	bcc.s	.Out
+	moveq	#0,d1
+	move.w	EcNumber(a1),d1
+	move.l	(sp)+,a4
+	moveq	#0,d0
+	rts
+.Out	move.l	#EntNul,d1
+	move.l	(sp)+,a4
+	moveq	#0,d0
+	rts
+
+;;	Boutons de la souris, uniquement dans le petit ecran
+;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;TT_SMBout
+;	move.l	Old_SyVect(pc),a0
+;	jsr	MouseKey*4(a0)
+;	tst.b	d1
+;	beq.s	.Skip
+;	bsr	TT_SHere
+;	bne.s	.Skip
+;	movem.l	d2-d7/a1-a2,-(sp)
+;	move.w	d1,-(sp)
+;	move.l	d2,d7
+;	move.l	Old_SyVect(pc),a0
+;	jsr	XyMou*4(a0)
+;	bsr	TT_EcIn
+;	cmp.l	#$01234567,d7
+;	beq.s	.Mon
+;; Demande de la part du programme: uniquement DANS l'ecran
+;	tst.l	d0
+;	bmi.s	.Non
+;	bra.s	.Oui
+;; Demande de la part du moniteur: uniquement en dehors de l'ecran, si RUN
+;.Mon	tst.l	d0
+;	bmi.s	.Oui
+;	move.l	Mon_Base(a5),a0
+;	tst.w	Step_Mode(a0)
+;	beq.s	.Oui
+;.Non	clr.w	(sp)
+;.Oui	move.w	(sp)+,d1
+;	movem.l	(sp)+,d2-d7/a1-a2
+;.Skip	rts
+
+;	Conversion coordonn�es hard (d1/d2/d3) -> coordonn�es ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_Hard2Screen
+	bsr	TT_EcToA1
+	bmi.s	.Out
+	move.l	a0,a1
+	bsr	TT_EcIn
+	bmi.s	.Out
+	move.w	EcNumber(a1),d3
+	addq.w	#1,d3
+	cmp.w	EcNumber(a1),d0
+	beq.s	XY2Ec
+.Out	moveq	#-1,d0
+	rts
+;	Converti D1/D2 en coord dans l'ecran A1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+XY2Ec	movem.w	d1-d3,-(sp)
+	bsr	View_ScAd
+	movem.w	(sp)+,d1-d3
+	add.w	(a0)+,d1
+	add.w	(a0)+,d2
+; Si lowres, multiplie par 2 en Y
+	btst	#7,EcCon0(a1)
+	bne.s	.Hires
+	lsl.w	#1,d2
+.Hires
+	moveq	#0,d0
+	rts
+
+;	Trouve l'�cran sous les coordonnees hard...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1/D2= X/Y HARD
+;	D3= 1er ecran
+;	D4= Ecran MAX
+TT_EcIn	movem.l	a0/d3,-(sp)
+	move.w	d2,-(sp)
+	move.w	d1,-(sp)
+	moveq	#Tt_Ecran1+1,d3
+	move.l	Old_SyVect(pc),a0
+	jsr	XyScr*4(a0)
+	tst.w	(sp)
+	beq.s	.Skip1
+	sub.w	#RedX,d1
+	bmi.s	.Pas
+	cmp.w	#RedTX,d1
+	bcc.s	.Pas
+.Skip1	tst.w	2(sp)
+	beq.s	.Ok
+	sub.w	#RedY,d2
+	bmi.s	.Pas
+	cmp.w	#RedTY,d2
+	bcc.s	.Pas
+; Dans le petit ecran...
+.Ok	moveq	#0,d0
+	move.w	Tt_View(a4),d0
+	bpl.s	.In
+.Pas	moveq	#-1,d0
+.In	addq.l	#4,sp
+	movem.l	(sp)+,a0/d3
+	rts
+
+;	Ecrans D3
+; ~~~~~~~~~~~~~~~
+;	<0	=> Rien du tout
+;	0	=> Ecran courant
+;	>0	=> Ecran+1
+TT_EcToA1
+	tst.w	d3
+	bmi.s	EcToD4
+	bne.s	EcToD2
+	move.l	T_EcCourant(a5),a0
+	rts
+EcToD2:	lsl.w	#2,d3
+	lea	T_EcAdr(a5),a0
+	move.l	-4(a0,d3.w),d3
+	beq.s	EcToD3
+	move.l	d3,a0
+	rts
+EcToD3:	addq.l	#4,sp
+	moveq	#3,d0
+	rts
+EcToD4:	moveq	#-1,d0
+	rts
+
+;	Retourne BNE si l'ecran du tuteur n'est pas la
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TT_SHere
+	movem.l	a0/d0/d1,-(sp)
+	moveq	#1,d1
+	move.l	Mon_Base(a5),a0
+	tst.b	Tt_NotHere(a0)
+	bne.s	.Out
+	move.l	T_EcCourant(a5),d0
+	beq.s	.Out
+	move.l	d0,a0
+	move.w	EcNumber(a0),d0
+	cmp.w	#8,d0
+	bcc.s	.Out
+	moveq	#0,d1
+.Out	tst.w	d1
+	movem.l	(sp)+,a0/d0/d1
+	rts
+
+; ___________________________________________________________________
+;
+;	Patch SCREEN TO FRONT
+; ___________________________________________________________________
+;
+Tt_PScFront
+	bra	ToFront
+	bra	ToBack
+; Passe devant
+; ~~~~~~~~~~~~
+ToFront	lea	Mon_Banks(a5),a0	Mode moniteur?
+	cmp.l	Cur_Banks(a5),a0
+	beq.s	.Skip
+	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	Mon_Base(a5),a4
+	bsr	Tt_Hide
+.Quit	movem.l	(sp)+,d1-d7/a1-a6
+.Skip	rts
+; Passe derriere
+; ~~~~~~~~~~~~~~
+ToBack	lea	Mon_Banks(a5),a0	Mode moniteur?
+	cmp.l	Cur_Banks(a5),a0
+	beq.s	.Skip
+	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	Mon_Base(a5),a4
+	bsr	Tt_Show
+.Quit	movem.l	(sp)+,d1-d7/a1-a6
+.Skip	rts
+; ___________________________________________________________________
+;
+;	Patch SCREEN COPY
+; ___________________________________________________________________
+;
+Tt_PScCopy
+	move.l	Mon_Base(a5),a0		Mode moniteur?
+	tst.b	Tt_NotHere(a0)		Deja la?
+	bne.s	.Skip
+	lea	Mon_Banks(a5),a0
+	cmp.l	Cur_Banks(a5),a0
+	beq.s	.Skip
+; Recopie l'ecran
+	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	Mon_Base(a5),a4
+	bsr	Tt_TtBanks
+	move.l	T_EcCourant(a5),d0
+	beq.s	.Quit
+	move.l	d0,a0
+	move.w	EcNumber(a0),-(sp)
+	move.w	#-1,Tt_Ecran(a4)
+	bsr	View_Act
+	move.w	(sp),d1
+	subq.w	#1,d1
+	bsr	View_Ec
+	bsr	View_Aff
+	move.w	(sp)+,d1
+	EcCall	Active
+.Quit	bsr	Tt_PrgBanks
+	movem.l	(sp)+,d1-d7/a1-a6
+.Skip	rts
+
+; ___________________________________________________________________
+;
+;	Patch branche sur tests: reaffiche l'ecran (mode 3)
+; ___________________________________________________________________
+;
+TstPatch
+	movem.l	d0-d7/a0-a6,-(sp)
+; Actualise
+	move.l	Mon_Base(a5),a4
+	bsr	Tt_TtBanks
+	move.w	#-1,Tt_Ecran(a4)
+	bsr	View_Act
+*	move.w	ScOn(a5),d1
+*	subq.w	#2,d1
+*	bsr	View_Ec
+	bsr	View_Aff
+; Verifie que l'on appuie pas sur la souris
+;	cmp.w	#2,Step_Mode(a4)		illegal
+;	bcs.s	.skip
+	bsr	Tt_MBout
+	btst	#0,d1
+	beq.s	.skip
+	SyCall	GetZone
+	cmp.w	#Tt_Ecran1,d1
+	bne.s	.skip
+	swap	d1
+	tst.w	d1
+	beq.s	.skip
+	cmp.w	#13,d1
+	beq.s	.skip
+	addq.w	#1,Step_Stop(a4)
+	bsr	BoutStop
+; Empeche les boucles
+.skip	move.w	ScOn(a5),d1
+	beq.s	.skip1
+	subq.w	#1,d1
+	EcCall	Active
+.skip1	bclr	#7,T_Actualise(a5)
+; Retour aux tests
+	bsr	Tt_PrgBanks
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+BoutStop
+	move.w	Tt_Active(a4),d0
+	moveq	#0,d1
+	bsr	ABouton
+	moveq	#1,d0
+	move.w	d0,Tt_Active(a4)
+	moveq	#1,d1
+	bra	ABouton
+
+
+; ___________________________________________________________________
+;
+;	GESTION PROGRAMME
+; ___________________________________________________________________
+
+
+;	TOUCHE: Centre le programme sur l'instruction courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_CText
+	tst.w	Tt_YNext(a4)
+	bmi	NoInit
+	bsr	Ttt_Centre
+	bra	Ttt_AffBuf
+
+;	TOUCHE: Slider horizontal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Slhclic
+	move.l	#Tt_ChannelN,d0		Demande la position slider
+	moveq	#1,d1
+	moveq	#0,d2
+	JJsr	L_Dia_GetValue
+	move.w	d1,Ttt_XPos(a4)
+	bsr	Ttt_AffBuf
+	rts
+
+;	TOUCHE:	Slider vertical
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Slvclic
+	move.l	#Tt_ChannelN,d0		Demande la position slider
+	moveq	#2,d1
+	moveq	#0,d2
+	JJsr	L_Dia_GetValue
+	move.w	Ttt_YPos(a4),d0
+	move.w	d1,Ttt_YPos(a4)
+	sub.w	d1,d0
+	cmp.w	#1,d0
+	beq.s	.Bas
+	cmp.w	#-1,d0
+	beq.s	.Haut
+; POSITIONNE DIRECTEMENT
+; ~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ttt_NewBuf
+	rts
+; SCROLL VERS LE BAS
+; ~~~~~~~~~~~~~~~~~~
+.Bas	WiCalA	Print,Ttt_Scrdown(pc)	Ecran graphique
+	move.l	Ttt_BufE(a4),a1		Ecran texte
+	move.w	Ttt_Tlh(a4),d0
+	lsl.w	#8,d0
+	add.w	d0,a1
+	lea	-256(a1),a0
+	move.w	Ttt_Tlh(a4),d0
+	subq.w	#1,d0
+	lsl.w	#4,d0
+	subq.w	#1,d0
+	bmi.s	.Lsk
+.loop	move.l	-(a0),-(a1)
+	move.l	-(a0),-(a1)
+	move.l	-(a0),-(a1)
+	move.l	-(a0),-(a1)
+	dbra	d0,.loop
+; Affiche la derniere ligne
+.Lsk	move.w	Ttt_YPos(a4),d0
+	moveq	#0,d1
+	bsr	Ttt_Untok
+	bsr	Ttt_ALigne
+	rts
+; SCROLL VERS LE HAUT
+; ~~~~~~~~~~~~~~~~~~~
+.Haut	lea	Ttt_Scrup(pc),a1	Ecran graphique
+	move.w	Ttt_Tlh(a4),d0
+	add.b	#48-1,d0
+	move.b	d0,2(a1)
+	WiCall	Print
+	move.l	Ttt_BufE(a4),a1		Ecran texte
+	lea	256(a1),a0
+	move.w	Ttt_Tlh(a4),d0
+	subq.w	#1,d0
+	lsl.w	#4,d0
+	subq.w	#1,d0
+	bmi.s	.Slk
+.cloop	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	dbra	d0,.cloop
+; Affiche la derniere ligne
+.Slk	move.w	Ttt_YPos(a4),d0
+	move.w	Ttt_Tlh(a4),d1
+	subq.w	#1,d1
+	add.w	d1,d0
+	bsr	Ttt_Untok
+	bsr	Ttt_ALigne
+	rts
+
+;	Centre le listing sur l'instruction courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Centre
+	move.w	Ttt_YPos(a4),d2
+	move.w	d2,d3
+	add.w	Ttt_Tlh(a4),d3
+	addq.w	#1,d2
+	subq.w	#1,d3
+	move.w	Tt_YNext(a4),d0
+	cmp.w	d2,d0
+	bcs.s	.change
+	cmp.w	d3,d0
+	bcc.s	.change
+	rts
+; Change la position de l'editeur
+.change	move.w	Ttt_Tlh(a4),d2
+	subq.w	#1,d0
+	bpl.s	.skip1
+	moveq	#0,d0
+.skip1	add.w	d0,d2
+	cmp.w	Prg_NLigne(a3),d2
+	bcs.s	.skip2
+	sub.w	Prg_NLigne(a3),d2
+	sub.w	d2,d0
+	bpl.s	.skip2
+	moveq	#0,d0
+.skip2	move.w	d0,Ttt_YPos(a4)
+	bsr	Ttt_BufUntok
+	rts
+
+;	Affichage du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_AffBuf
+	movem.l	d0-d7,-(sp)
+	bra.s	Blu
+Ttt_NewBuf
+	movem.l	d0-d7,-(sp)
+	bsr	Ttt_BufUntok
+Blu	bsr	Ttt_TttAct
+	moveq	#0,d1
+.loop	bsr	Ttt_EALigne
+	addq.w	#1,d1
+	cmp.w	Ttt_Tlh(a4),d1
+	bcs.s	.loop
+	bsr	Ttt_SliV
+	bsr	Ttt_SliH
+	movem.l	(sp)+,d0-d7
+	rts
+
+;	Actualisation du slider programme horizontal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_SliH
+	move.l	#Tt_ChannelN,d0		Re-actualise le slider, donc la liste
+	moveq	#1,d1
+	move.w	Ttt_XPos(a4),d2		Position
+	moveq	#78,d3			Nouvelle window
+	move.w	#250,d4		Nouveau global
+	JJsr	L_Dia_Update
+	rts
+;	Actualisation du slider programme vertical
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_SliV
+	move.l	#Tt_ChannelN,d0		Re-actualise le slider, donc la liste
+	moveq	#2,d1
+	move.w	Ttt_YPos(a4),d2		Position
+	move.w	Ttt_Tlh(a4),d3		Nouvelle window
+	move.w	Prg_NLigne(a3),d4	Nouveau global
+	JJsr	L_Dia_Update
+	rts
+
+; 	DETOKENISE TOUT LE BUFFER
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_BufUntok
+	move.l	a2,-(sp)
+	clr.w	-(sp)
+	move.w	Ttt_YPos(a4),d0
+	bsr	Ttt_FindL
+	bra.s	.BUnt1
+.BUnt0	bsr	Ttt_NextL
+.BUnt1	move.w	(sp),d1
+	move.l	Ttt_BufE(a4),a1
+	lsl.w	#8,d1
+	lea	0(a1,d1.w),a1
+	clr.w	(a1)
+	clr.b	255(a1)			Ligne editable
+	tst.w	d0
+	beq.s	.BUnt2
+	JJsrR	L_Tk_EditL,a2
+	bne.s	.Edit
+	move.b	#-1,255(a1)		Ligne NON editable!
+.Edit	moveq	#0,d0
+	JJsrR	L_Detok,a2
+.BUnt2	addq.w	#1,(sp)
+	move.w	(sp),d0
+	cmp.w	Ttt_Tlh(a4),d0
+	bcs.s	.BUnt0
+	addq.l	#2,sp
+	move.l	(sp)+,a2
+	rts
+
+; 	DETOKENISE la LIGNE D0 dans le BUFFER ligne D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Untok
+	movem.l	d0-d1/a0-a2,-(sp)
+	move.l	Ttt_BufE(a4),a1
+	lsl.w	#8,d1
+	lea	0(a1,d1.w),a1
+	clr.w	(a1)
+	clr.b	255(a1)
+	move.l	a1,-(sp)
+	bsr	Ttt_FindL
+	move.l	(sp)+,a1
+	beq.s	.Fin
+	JJsrR	L_Tk_EditL,a2
+	bne.s	.Edit
+	move.b	#-1,255(a1)
+.Edit	moveq	#0,d0
+	JJsrR	L_Detok,a2
+.Fin	movem.l	(sp)+,d0-d1/a0-a2
+	rts
+
+; TROUVE L'ADRESSE DE LA LIGNE D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_FindL
+	move.l	a1,-(sp)
+	move.l	Prg_StBas(a3),a0
+	JJsrR	L_Tk_FindL,a1
+	move.l	a0,Tt_CurLigne(a4)
+	move.l	a1,Tt_DebProc(a4)
+	move.l	(sp)+,a1
+	tst.w	d0
+	rts
+; Trouve la ligne suivante
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_NextL
+	move.l	a1,-(sp)
+	move.l	Tt_CurLigne(a4),a0
+	JJsrR	L_Tk_FindN,a1
+	move.l	a0,Tt_CurLigne(a4)
+	move.l	a1,Tt_DebProc(a4)
+	move.l	(sp)+,a1
+	tst.w	d0
+	rts
+
+;	Imprime la ligne du buffer D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_EALigne
+	movem.l	d0-d4/a0-a3,-(sp)	Efface
+	bset	#30,d1
+	bra.s	ttaa
+Ttt_ALigne
+	movem.l	d0-d4/a0-a3,-(sp)	Affiche seulement
+	bclr	#30,d1
+ttaa
+; Locate en debut de ligne
+	move.l	d1,-(sp)
+	move.w	d1,d2
+	move.w	d1,d3
+	add.w	Ttt_YPos(a4),d3
+	moveq	#0,d1
+	ext.l	d2
+	WiCall	Locate
+
+; Pointe la ligne dans le buffer
+	move.w	2(sp),d0
+	lsl.w	#8,d0
+	move.l	Ttt_BufE(a4),a0
+	lea	0(a0,d0.w),a0
+	move.w	Ttt_XPos(a4),d1
+	move.w	(a0)+,d0		Longueur de la ligne
+	cmp.w	d0,d1
+	bcc	.skipX
+	lea	0(a0,d1.w),a1		Pointe le debut
+	add.w	#78,d1
+	move.w	d1,d2
+	cmp.w	d0,d1
+	bls.s	.skip1
+	move.w	d0,d1
+.skip1	cmp.w	d0,d2
+	bhi.s	.skip2
+	bclr	#6,(sp)
+.skip2	lea	0(a0,d1.w),a2		Marque la fin de la ligne
+	move.b	(a2),d2
+	clr.b	(a2)
+
+; Dessiner une marque dans la ligne???
+	cmp.w	Tt_YNext(a4),d3
+	beq.s	.Mark
+	cmp.w	Tt_YInfo(a4),d3
+	beq.s	.Mark
+	cmp.w	Tt_YMark(a4),d3
+	bne	.skipM
+
+.Mark	movem.l	a2/d2,-(sp)
+	move.l	Buffer(a5),a0
+	move.w	Ttt_XPos(a4),d2
+.LoopM	cmp.w	Tt_YNext(a4),d3
+	bne.s	.skipM1
+	cmp.w	Tt_XNext(a4),d2
+	bne.s	.skipM1
+	lea	Ttt_Mark(pc),a2		Met le >>>
+.loopM1	move.b	(a2)+,(a0)+
+	bne.s	.loopM1
+	subq.l	#1,a0
+.skipM1	cmp.w	Tt_YMark(a4),d3
+	bne.s	.skipM3
+	cmp.w	Tt_X1Mark(a4),d2
+	bne.s	.skipM2
+	lea	Ttt_IOn(pc),a2		Passe en inverse
+.loopM2	move.b	(a2)+,(a0)+
+	bne.s	.loopM2
+	subq.l	#1,a0
+	bset	#7,8(sp)
+.skipM2	cmp.w	Tt_X2Mark(a4),d2
+	bne.s	.skipM3
+	lea	Ttt_IOff(pc),a2		Retour en normal
+.loopM3	move.b	(a2)+,(a0)+
+	bne.s	.loopM3
+	subq.l	#1,a0
+.skipM3
+	cmp.w	Tt_YInfo(a4),d3
+	bne.s	.skipM5
+	cmp.w	Tt_X1Info(a4),d2
+	bne.s	.skipM4
+	lea	Ttt_InOn(pc),a2		Souligne
+.loopM4	move.b	(a2)+,(a0)+
+	bne.s	.loopM4
+	subq.l	#1,a0
+	bset	#7,8(sp)
+.skipM4	cmp.w	Tt_X2Info(a4),d2
+	bne.s	.skipM5
+	lea	Ttt_InOff(pc),a2	Retour en normal
+.loopM5	move.b	(a2)+,(a0)+
+	bne.s	.loopM5
+	subq.l	#1,a0
+.skipM5
+	addq.w	#1,d2
+	move.b	(a1)+,(a0)+
+	bne.s	.LoopM
+	move.l	Buffer(a5),a1
+	movem.l	(sp)+,a2/d2
+.skipM
+; Impression
+	WiCall	Print			Imprime
+	move.b	d2,(a2)			Restore la ligne
+
+; Repasse en normal
+.skipX	move.l	(sp)+,d2
+	bpl.s	.skip8
+	WiCalA	Print,Ttt_IOff(pc)
+	WiCalA	Print,Ttt_InOff(pc)
+; Efface ---> fin ligne
+.skip8	btst	#30,d2
+	beq.s	.skip9
+	WiCalD	ChrOut,7
+.skip9
+	movem.l	(sp)+,d0-d4/a0-a3
+	rts
+
+
+; ___________________________________________________________________
+;
+;	ECRAN DU BAS
+; ___________________________________________________________________
+
+
+;	TOUCHE: separation Listing / Infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Separ
+	bsr	XYMouEc
+	move.w	Ttt_Tlh(a4),d0
+	lsl.w	#3,d0
+	addq.w	#8,d0
+	sub.w	d0,d2
+	move.w	d2,-(sp)		Decalage souris/bloc
+	move.w	d0,-(sp)		Ancien bloc
+	move.w	d0,-(sp)		Nouveau bloc
+; Fabrique le bloc dessin
+	moveq	#0,d2
+	move.w	(sp),d3
+	subq.w	#1,d3
+	ext.l	d3
+	move.l	#640,d4
+	moveq	#5,d5
+	moveq	#0,d6
+	move.l	Buffer(a5),a1
+	EcCalD	BlGet,126
+.Loop0
+; Fabrique le bloc effacement
+	moveq	#0,d2
+	move.w	(sp),d3
+	subq.w	#1,d3
+	ext.l	d3
+	move.l	#640,d4
+	moveq	#5,d5
+	moveq	#0,d6
+	move.l	Buffer(a5),a1
+	EcCalD	BlGet,127
+	move.w	(sp),2(sp)
+; Dessine l'image
+	moveq	#0,d2
+	move.w	(sp),d3
+	subq.w	#1,d3
+	ext.l	d3
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	move.l	Buffer(a5),a1
+	EcCalD	BlPut,126
+; Prend la souris
+.Loop1	bsr	Tt_Multi
+	bsr	Tt_MBout
+	btst	#0,d1
+	beq.s	.Skip
+	bsr	XYMouEc
+	sub.w	4(sp),d2
+	cmp.w	(sp),d2
+	beq.s	.Loop1
+	cmp.w	#16,d2
+	bcs.s	.Loop1
+	move.w	Ttt_Sy(a4),d0
+	sub.w	#16-4,d0
+	cmp.w	d0,d2
+	bcc.s	.Loop1
+	move.w	d2,(sp)
+; Efface l'ancien
+.Skip	moveq	#0,d2
+	move.w	2(sp),d3
+	subq.w	#1,d3
+	ext.l	d3
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	move.l	Buffer(a5),a1
+	EcCalD	BlPut,127
+; Lache la souris?
+	bsr	Tt_MBout
+	btst	#0,d1
+	bne	.Loop0
+; Efface les blocs
+	EcCalD	BlDel,127
+	EcCalD	BlDel,126
+; Change la position du milieu...
+	move.w	(sp),d0
+	bsr	Ttt_SetSize
+	addq.l	#6,sp
+; Va redessinner les textes
+	bsr	Ttt_Cls
+	bsr	Ttt_NewBuf
+; Recentre les infos?
+Inf_Centre
+	bsr	Inf_CptLines
+	move.w	Inf_YPos(a4),d0
+	add.w	Ttt_Tlb(a4),d0
+	move.w	Inf_NLigne(a4),d1
+	cmp.w	d0,d1
+	bcc.s	.sss
+	sub.w	d1,d0
+	sub.w	d0,Inf_YPos(a4)
+	bpl.s	.sss
+	clr.w	Inf_YPos(a4)
+.sss	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+	rts
+
+
+; 	Effacement / Redessin de l'ecran de texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Cls
+; Efface les fenetres
+	WiCalD	QWindow,1
+	WiCall	WinDel
+	WiCalD	QWindow,2
+	WiCall	WinDel
+; Dessin du fond avec le DBL
+	move.l	Tt_Variables(a4),a0
+	move.w	Ttt_Tlh(a4),2(a0)		0VA= Ty programmes
+	move.w	Ttt_Tlb(a4),6(a0)		1VA= Ty infos
+	move.w	Prg_NLigne(a3),10(a0)		2VA= NLignes programme
+	clr.w	14(a0)				3VA= NLignes infos
+	move.l	#Tt_ChannelN,d0
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	JJsrR	L_Dia_RunProgram,a1
+	tst.l	d0
+	bne	.OutM
+; Initialise la zone du haut
+	SyCalD	RazZone,1
+	moveq	#0,d2
+	move.w	#8,d3
+	move.w	#640-16,d4
+	move.w	Ttt_Tlh(a4),d5
+	lsl.w	#3,d5
+	addq.w	#8,d5
+	move.w	d5,d7
+	SyCalD	SetZone,1
+; La zone du milieu
+	SyCalD	RazZone,2
+	moveq	#0,d2
+	move.w	d7,d3
+	move.w	#640,d4
+	addq.w	#4,d7
+	move.w	d7,d5
+	SyCalD	SetZone,2
+; La zone du bas
+	SyCalD	RazZone,3
+	moveq	#0,d2
+	move.w	d7,d3
+	move.w	#640-16,d4
+	move.w	Ttt_Sy(a4),d5
+	subq.w	#8,d5
+	SyCalD	SetZone,3
+; Ouvre les fenetres
+	moveq	#0,d2
+	moveq	#7,d3
+	moveq	#E2_Sx/8-2,d4
+	move.w	Ttt_Tlh(a4),d5
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	WiCalD	WindOp,1
+	bne.s	.OutM
+	WiCalA	Print,Ttt_WInit(pc)
+	moveq	#0,d2
+	move.w	Ttt_Tlh(a4),d3
+	lsl.w	#3,d3
+	add.w	#7+5,d3
+	moveq	#E2_Sx/8-2,d4
+	move.w	Ttt_Tlb(a4),d5
+	moveq	#0,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	WiCalD	WindOp,2
+	bne.s	.OutM
+	WiCalA	Print,Ttt_WInit(pc)
+	moveq	#0,d0
+	rts
+.OutM	moveq	#1,d0
+	rts
+
+;	Fixe les tailles de l'ecran de listing
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_SetSize
+	subq.w	#8,d0
+	lsr.w	#3,d0
+	move.w	d0,Ttt_Tlh(a4)
+	move.w	Ttt_Sy(a4),d1
+	sub.w	#16,d1
+	lsr.w	#3,d1
+	sub.w	d0,d1
+	move.w	d1,Ttt_Tlb(a4)
+	rts
+
+;	Active l'ecran / la fenetre infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_InfAct
+	bsr	Ttt_Act
+	WiCalD	QWindow,2
+	rts
+;	Active l'ecran / la fenetre ttt
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_TttAct
+	bsr	Ttt_Act
+	WiCalD	QWindow,1
+	rts
+
+; ___________________________________________________________________
+;
+;	PAS A PAS / PATCH BASIC
+; ___________________________________________________________________
+
+
+
+;	TOUCHES: help / break / eval
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_SHelp
+	clr.w	Ttt_Mode(a4)
+	bra.s	Ttt_AMod
+Tt_SBreak
+	move.w	#1,Ttt_Mode(a4)
+	bra.s	Ttt_AMod
+Tt_SEval
+	move.w	#2,Ttt_Mode(a4)
+; Affiche les boutons
+Ttt_AMod
+	moveq	#14,d0
+	moveq	#0,d2
+.loop	moveq	#0,d1
+	cmp.w	Ttt_Mode(a4),d2
+	bne.s	.skip
+	moveq	#-1,d1
+.skip	bsr	ABouton
+	addq.w	#1,d0
+	addq.w	#1,d2
+	cmp.w	#3,d2
+	bne.s	.loop
+	moveq	#-1,d0
+	rts
+
+;	TOUCHE: une instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Step0
+	bsr	Wmky
+	tst.w	Tt_Init(a4)
+	ble.s	NoInit
+	bra	Step_Out
+NoInit	moveq	#11,d0
+	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bra	Wmky
+;	TOUCHE: deroulement semi-rapide
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Step1
+	bsr	Wmky
+	tst.w	Tt_Init(a4)
+	ble.s	NoInit
+	move.w	#1,Step_Mode(a4)
+	bra	Step_Out
+;	TOUCHE: deroulement rapide
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Step2
+	bsr	Wmky
+	tst.w	Tt_Init(a4)
+	ble.s	NoInit
+	move.w	#2,Step_Mode(a4)
+	bra	Step_Out
+;	TOUCHE: deroulement ultra-rapide
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Step3
+	bsr	Wmky
+	tst.w	Tt_Init(a4)
+	ble.s	NoInit
+	bsr	Tt_Hide
+	move.w	#3,Step_Mode(a4)
+	bra	Step_Out2
+
+;	TOUCHE:	Init
+; ~~~~~~~~~~~~~~~~~~
+Tt_Initialise
+	tst.w	Tt_Init(a4)		Arrete?
+	ble.s	Tt_ReInit
+	move.w	ActuMask(a5),d0		En marche, Break-Off mode?
+	btst	#BitControl,d0
+	beq.s	Tt_Noq
+; Stoppe le programme
+	move.w	#1003,d0		Erreur 1003= moniteur!
+	JJmp	L_Error
+; Fait l'initialisation!
+Tt_ReInit
+	clr.l	Step_Mess(a4)
+	clr.w	Tt_Init(a4)
+	moveq	#1,d0			Message d'info
+	bsr	Inf_Del
+	moveq	#3,d0
+	bsr	Inf_Del
+	moveq	#12,d0			Testing program
+	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+; Lance le programme
+	bsr	Tt_PrgBanks
+	moveq	#0,d0			Programme normal
+	lea	Tt_Error(pc),a1		Adresse routine d'erreur
+	lea	Tt_Testing(pc),a2	Messages
+	move.l	Tt_Program(a4),a6	Structure programme
+	JJsr	L_Prg_RunIt		Lance le programme!
+; Out of memory, si revient
+	moveq	#17,d0
+	bra.s	Tt_IMes
+; No break mode
+Tt_Noq	moveq	#16,d0			No initialise mode!
+Tt_IMes	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bsr	Ttt_InfAct
+	bra	Inf_AffAll
+
+; Branchement aux messages de testing
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Testing
+	bra	Tt_Tst1
+	bra	Tt_Tst2
+	bra	Tt_Tst3
+; Enleve le message de test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Tst1	rts
+Tt_Tst2	movem.l	a0-a6/d0-d7,-(sp)
+	move.l	Mon_Base(a5),a4
+	move.l	Tt_Program(a4),a3
+	bsr	Tt_TtBanks
+; Efface le message
+	bsr	Ttt_AlertDel
+; Passe aux ecrans du programme
+	move.w	#-1,Tt_Ecran(a4)
+	clr.w	Tt_MFlag(a4)
+	move.w	#1,Tt_Init(a4)
+; Revient au test
+	bsr	Tt_PrgBanks
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+Tt_Tst3	rts
+
+;	Entree du pas a pas...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MonitorChr
+	move.l	-LB_Size(a4,d1.w),-(sp)	Adresse de l'instruction
+	cmp.w	#_TkDP,-2(a6)		Pas sur un :
+	beq	.Back			RTS direct
+	lea	-2(a6),a1
+	move.l	d0,d4			Sauve les adresses importantes
+	move.l	d1,d5
+; Mode RAPIDE, saute tout sauf si breakpoint...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d2			Pas STOP!
+	move.l	Mon_Base(a5),a0
+	cmp.w	#2,Step_Mode(a0)
+	bcs.s	.skipB
+	bne.s	.skip
+	bset	#1,T_Actualise+1(a5)
+.skip	tst.w	Step_Stop(a0)
+	bne.s	.skipA
+	cmp.l	Step_Break(a0),a1
+	bne.s	.GoBack
+.skipA	clr.w	Step_Mode(a0)
+	moveq	#-1,d2
+; Mode LENT, avec affichage...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.skipB	tst.w	Tt_Init(a0)
+	beq	.skippy
+	bmi.s	.skipB0
+	bclr	#BitControl,T_Actualise(a5)	Control-C a chaque coup!
+	bne.s	.skipB0
+	tst.w	Step_Stop(a0)
+	bne.s	.skipB0
+	cmp.l	Step_Break(a0),a1
+	bne.s	.skipB1
+	exg	a0,a1				Break message
+	moveq	#10,d0
+	bsr	Tt_Message
+	exg	a0,a1
+	move.l	a1,Step_Mess(a0)
+.skipB0	clr.l	Step_Break(a0)
+	clr.w	Step_Mode(a0)
+	clr.w	Step_Stop(a0)
+	moveq	#-1,d2
+	bra.s	.skipB2
+.skipB1	cmp.w	#_TkEndP,-2(a6)			Fin de procedure?
+	bne.s	.skipB2
+	bsr	TstPatch			Reaffiche + sort
+	bra.s	.GoBack
+; Rebranche � l'instruction
+.GoOut	bset	#1,T_Actualise+1(a5)		Reaffichage si long...
+	bset	#1,ActuMask+1(a5)
+.GoBack	move.l	d4,d0				Recharge les registres
+	move.l	d5,d1
+.Back	rts					Rebranche � l'instruction
+; Localise l'instruction
+.skipB2	move.l	Prg_Run(a5),a1
+	move.l	d7,a0				Adresse de la ligne
+	tst.l	d7
+	beq.s	.GoBack
+	JJsrR	L_Tk_FindA,a2
+	tst.w	d2				Arret force?
+	bne.s	.stopit
+	tst.l	d1				Procedure fermee?
+	bne.s	.GoOut
+.stopit	tst.l	d1				Procedure fermee?
+	bne.s	.lockee
+	move.l	a6,d1
+	subq.l	#2,d1
+	moveq	#0,d2
+	bra.s	.nolock
+.lockee	addq.l	#2,d1
+	moveq	#-1,d2
+; Poke les adresses
+.nolock	move.l	a0,a2
+.skippy	move.l	Mon_Base(a5),a0
+	lea	Step_Data(a0),a0	Stockage des donnees
+	move.l	(sp),(a0)+		Adresse de retour
+	movem.l	a3-a6/d4-d5/d6-d7,(a0)	Registres importants
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.l	Mon_Base(a5),a4		Sauve la pile / Flag general
+	move.l	Tt_Program(a4),a3
+	bsr	Tt_TtBanks
+	move.w	d0,Tt_YNext(a4)
+	move.l	d1,Tt_Adress(a4)
+	move.w	d2,Tt_Locked(a4)
+	move.l	a2,Tt_DCurLine(a4)
+; Empeche les appels du test
+	bclr	#1,T_Actualise+1(a5)
+	bclr	#1,ActuMask+1(a5)
+	clr.w	Step_Stop(a4)
+; Actualise l'affichage
+	move.w	#-1,Tt_Ecran(a4)
+	bsr	View_Act
+	bsr	View_Aff
+	bsr	Tt_Show
+
+;	Affichage complet de la prochaine instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	bsr	Inf_Del
+	moveq	#5,d0
+	bsr	Inf_Del
+; Programme initialise?
+	tst.w	Tt_Init(a4)
+	beq	.nopar
+; Pointe dans le programme
+	move.w	Tt_YNext(a4),d0
+	bsr	Tt_Decoup
+	move.l	Tt_Adress(a4),a0
+	sub.l	Tt_ALine(a4),a0
+	move.l	Tt_Ligne(a4),a1
+	subq.l	#4,a1
+.loop	addq.l	#4,a1
+	cmp.w	2(a1),a0
+	bhi.s	.loop
+	moveq	#0,d0
+	move.b	1(a1),d0
+	move.w	d0,Tt_XNext(a4)
+	bsr	Ttt_TttAct
+	bsr	Ttt_Centre
+	bsr	Ttt_AffBuf
+; Fin du programme?
+	tst.w	Tt_Init(a4)
+	bmi	.nopar
+; Affiche le NOM de l'instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#5,d0
+	bsr	Inf_PrDeb
+; Procedure fermee
+	tst.w	Tt_Locked(a4)
+	beq.s	.palok
+	moveq	#2,d0
+	bsr	Tt_Message
+	bsr	Inf_Print
+	move.l	Tt_BufT(a4),a0
+	move.b	1(a0),d0
+	addq.l	#2,a0
+	clr.b	0(a0,d0.w)
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+	bra	.nopar
+; Met le nom
+.palok	moveq	#1,d0
+	bsr	Tt_Message
+	bsr	Inf_Print
+	move.l	Tt_Ligne(a4),a2
+	move.l	Tt_Adress(a4),d0
+	sub.l	Tt_ALine(a4),d0
+.loopA2	cmp.w	2(a2),d0
+	beq.s	.outA2
+	addq.l	#4,a2
+	tst.b	(a2)
+	bne.s	.loopA2
+.outA2	moveq	#0,d0
+	move.b	1(a2),d0
+.loopA3	addq.l	#4,a2
+	tst.b	(a2)
+	beq.s	.outA3
+	cmp.b	#":",(a2)
+	bne.s	.loopA3
+.outA3	moveq	#0,d1
+	move.b	1(a2),d1
+	move.l	Tt_BufT(a4),a0
+	addq.l	#2,a0
+	clr.b	0(a0,d1.w)
+	add.w	d0,a0
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+; Affiche la liste des parametres
+	move.l	AdTokens(a5),a0
+	move.l	Tt_Adress(a4),a6
+	move.w	(a6)+,d0
+	lea	4(a0,d0.w),a3
+	moveq	#0,d7
+	cmp.w	#_TkRem1,d0
+	beq	.nopar
+	cmp.w	#_TkRem2,d0
+	beq	.nopar
+	cmp.w	#_TkFade,d0
+	beq	.fade
+	cmp.w	#_TkPal,d0
+	beq	.fade
+	cmp.w	#_TkExt,d0
+	bne.s	.noext
+; Appel d'une extension
+	move.b	(a6)+,d1
+	move.b	(a6)+,d0
+	move.w	(a6)+,d2
+	ext.w	d1
+	lsl.w	#2,d1
+	move.l	AdTokens(a5,d1.w),a0
+	lea	4(a0,d2.w),a3
+.noext
+	btst	#LBF_20,LB_Flags(a0)		Une nouvelle librarie?
+	beq.s	.floop1
+	tst.w	-2(a3)				Des parametres?
+	beq.s	.nopar
+.floop1	tst.b	(a3)+
+	bpl.s	.floop1
+	move.b	(a3)+,d0
+	cmp.b	#"I",d0
+	bne	.nopar
+.floop2	tst.b	(a3)+
+	bmi	.nopar
+	bsr	Tt_ImpParam
+	tst.b	(a3)+
+	bpl	.floop2
+	bra.s	.nopar
+; FADE / PALETTE
+.fade	bsr	Tt_ImpParam
+	subq.l	#2,a6
+	JJsr	L_Finie
+	addq.l	#2,a6
+	bne.s	.fade
+.nopar
+; Afficher un message???
+	move.l	Step_Mess(a4),d0
+	beq.s	.jij
+	clr.l	Step_Mess(a4)
+	move.l	d0,a0
+	bsr	Ttt_Alert
+.jij
+; Va tout imprimer...
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+
+;	Attente de commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	View_Act
+	move.w	Step_Mode(a4),d0
+; Pas a pas: libere le bouton, et branche aux tests
+	bne.s	.skiu
+	bsr	Tt_Mouse
+	bra	Tt_ReLoop
+; Deroulement semi-rapide: appui sur STOP?
+.skiu	bsr	Tt_MBout
+	btst	#0,d1
+	beq.s	Step_Out
+	SyCall	GetZone
+	cmp.w	#Tt_Ecran1,d1
+	bne.s	Step_Out
+	swap	d1
+	tst.w	d1
+	beq.s	Step_Out
+	cmp.w	#13,d1
+	beq.s	Step_Out
+	bsr	Tt_Mouse
+	clr.w	Step_Mode(a4)
+	bsr	View_Act
+	bsr	BoutStop
+	moveq	#10,d2
+.Loap	SyCall	WaitVbl
+	dbra	d2,.Loap
+	bra	Tt_ReLoop
+
+;	Sortie du mode pas a pas, reactive l'ancien ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Step_Out
+	bset	#1,T_Actualise+1(a5)
+	bset	#1,ActuMask+1(a5)
+Step_Out2
+	bsr	Tt_PrgBanks
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	move.w	ScOn(a5),d1
+	beq.s	.Skip
+	subq.w	#1,d1
+	EcCall	Active
+.Skip
+
+	IFNE	Debug=2
+	tst.w	Ttt_Mode(a4)			*** Illegal, debugging!
+	bne.s	.Skip2
+	JJsr	L_BugBug
+.Skip2
+	ENDC
+
+	move.l	Step_Data(a4),a0
+	movem.l	Step_Data+4(a4),a3-a6/d0-d1/d6-d7
+	jmp	(a0)
+
+;	Routine : Imprime "Param #1="
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_ImpParam
+	moveq	#5,d0
+	bsr	Inf_PrDeb
+	moveq	#3,d0
+	bsr	Tt_Message
+	bsr	Inf_Print
+	addq.l	#1,d7
+	move.l	d7,d0
+	move.l	Buffer(a5),a0
+	JJsrR	L_LongToDec,a1
+	clr.b	(a0)
+	move.l	Buffer(a5),a0
+	bsr	Inf_Print
+	lea	Inf_Par2(pc),a0
+	bsr	Inf_Print
+; Va evaluer...
+	bsr	Tt_Evalue
+	beq.s	.paer
+	moveq	#4,d0
+	bsr	Tt_Message
+.parer	move.b	(a1)+,(a0)+
+	bne.s	.parer
+	subq.l	#1,a0
+	bra.s	.suit
+.paer	addq.l	#2,a6
+	move.l	d3,d0
+	move.l	Buffer(a5),a0
+	subq.b	#1,d2
+	bmi.s	.ent
+	beq.s	.fl
+; Une chaine...
+	moveq	#'"',d2
+	move.b	d2,(a0)+
+	move.l	d0,a1
+	move.w	(a1)+,d0
+	beq.s	.Bla
+	cmp.w	#60,d0
+	bcs.s	.Ble
+	moveq	#60,d0
+	moveq	#">",d2
+.Ble	subq.w	#1,d0
+.Bli	move.b	(a1)+,d1
+	cmp.b	#32,d1
+	bcc.s	.Blo
+	moveq	#".",d1
+.Blo	move.b	d1,(a0)+
+	dbra	d0,.Bli
+.Bla	move.b	d2,(a0)+
+	bra.s	.suit
+; Chiffre FLOAT
+.fl	JJsrR	L_Float2Ascii,a1
+	bra.s	.suit
+; Chiffre ENTIER
+.ent	cmp.l	#EntNul,d3
+	beq.s	.entD
+	JJsrR	L_LongToDec,a1
+	bra.s	.suit
+.entD	exg	a0,a1
+	moveq	#14,d0
+	bsr	Tt_Message
+	exg	a0,a1
+.entE	move.b	(a1)+,(a0)+
+	bne.s	.entE
+ 	subq.l	#1,a0
+; Imprime
+.suit	clr.b	(a0)
+	move.l	Buffer(a5),a0
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+	rts
+
+;	Entree generale des erreurs "Patch2"
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Error
+	move.l	BasSp(a5),sp
+	move.l	Prg_InsRet(a5),-(sp)
+	bsr	Tt_GetTheMessage
+	move.l	Mon_Base(a5),a1
+	tst.w	Tt_Init(a1)
+	beq.s	.Test
+; Erreur lors de RUN
+; ~~~~~~~~~~~~~~~~~~
+	move.w	d2,d3
+	move.l	a0,d1			Si EDIT ou DIRECT
+	bne.s	.Mh
+	moveq	#15,d0
+	bsr	Tt_Message
+.Mh	move.w	d0,d1
+	move.l	a0,Step_Mess(a1)
+	move.l	d7,a6
+	move.l	PLoop(a5),a3
+	move.w	-2(a6),d0
+	move.w	0(a4,d0.w),d1		Pointe la table de tokens
+	bsr	Tt_Show
+	clr.w	Step_Mode(a1)
+	cmp.w	#9,d3			Control-C?
+	beq	MonitorChr
+	cmp.w	#1003,d3		INIT
+	beq	Tt_ReInit
+	move.w	#-1,Tt_Init(a1)		Arret du STEP, pas des expressions
+	bra	MonitorChr
+; Erreurs lors du test!
+; ~~~~~~~~~~~~~~~~~~~~~
+.Test	move.l	a0,-(sp)
+	move.l	Mon_Base(a5),a4
+	move.l	Tt_Program(a4),a3
+	bsr	Tt_TtBanks
+	clr.w	Tt_XNext(a4)
+	move.l	VerPos(a5),a0
+	move.l	Prg_StBas(a3),a1
+	JJsrR	L_Tk_FindA,a2
+	move.w	d0,Tt_YNext(a4)
+
+	move.w	#-1,Tt_Ecran(a4)
+	bsr	Ttt_TttAct
+	bsr	Ttt_Centre
+ 	bsr	Ttt_AffBuf
+
+	move.l	(sp)+,a0
+	bsr	Ttt_Alert
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+
+	bra	Tt_ReLoop
+
+; Trouve le message d'erreur en retour de programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_GetTheMessage
+	move.l	a1,-(sp)
+	move.w	d0,d2
+	move.l	a0,d1
+	bne.s	.Clair
+	cmp.w	#256,d0			Un message?
+	bge.s	.Clair
+	move.l	Ed_TstMessages(a5),a0	Message testing
+	neg.w	d0
+	bpl.s	.MTest
+	neg.w	d0
+	move.l	Ed_RunMessages(a5),a0
+	addq.w	#1,d0
+.MTest	JJsrR	L_GetMessage,a1
+.Clair	move.l	(sp)+,a1
+	rts
+
+;	Clique dans le texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_ListClic
+	bsr	Tt_MouMou
+	cmp.w	Prg_NLigne(a3),d2
+	bcc	.out
+
+; Regarde le mode courant
+	cmp.w	#2,Tt_MKey(a4)		Bouton droit>>> short cut
+	beq.s	.Break
+	move.w	Ttt_Mode(a4),d0
+	subq.w	#1,d0
+	bmi	Tt_RunHelp
+	beq.s	.Break
+	bne	.Eval
+
+;	Fixe le breakpoint
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Break	move.w	#-1,Tt_YMark(a4)
+	clr.l	Step_Break(a4)
+	move.w	d2,d0
+	bsr	Tt_Decoup
+	move.l	Tt_Ligne(a4),a0
+	move.b	(a0),d0
+	beq.s	.out
+	cmp.b	1(a0),d1
+	bcs.s	.out
+	move.l	a0,a1
+.loop1	addq.l	#4,a0
+	move.b	(a0),d0
+	beq.s	.skip2
+	cmp.b	#":",d0
+	beq.s	.skip1
+	cmp.b	#"W",d0
+	beq.s	.skip1
+	cmp.b	#"X",d0
+	beq.s	.skip1
+	cmp.b	#"I",d0
+	bne.s	.loop1
+.skip1	cmp.b	1(a0),d1
+	bcs.s	.found
+	move.l	a0,a1
+	bra.s	.loop1
+.skip2	cmp.b	1(a0),d1
+	bcc.s	.out
+.found	cmp.l	a0,a1
+	beq.s	.out
+	cmp.b	#":",(a1)
+	beq.s	.out
+; OK, on pointe une instruction!!!
+	move.w	d2,Tt_YMark(a4)
+	moveq	#0,d0
+	move.b	1(a1),d0
+	move.w	d0,Tt_X1Mark(a4)
+	move.b	1(a0),d0
+	move.w	d0,Tt_X2Mark(a4)
+; Marque le breakpoint!
+	move.l	Tt_ALine(a4),a2
+	add.w	2(a1),a2
+	move.l	a2,Step_Break(a4)
+; Provoque un reaffichage de l'ecran
+.out	bsr	Ttt_AffBuf
+	bra	Wmky
+
+;	On veut evaluer une expression...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Eval	bsr	Tt_Souligne
+	beq	.paexp
+; Test ASCII de la ligne
+	move.l	a0,a1
+	move.w	d0,d3
+	subq.w	#1,d3
+	moveq	#0,d4
+	moveq	#0,d5
+.chk	move.b	(a1)+,d6
+	cmp.b	#"(",d6
+	bne.s	.chk2
+	addq.w	#1,d4
+.chk2	cmp.b	#")",d6
+	bne.s	.chk3
+	subq.w	#1,d4
+.chk3	cmp.b	#'"',d6
+	bne.s	.chk4
+	addq.w	#1,d5
+.chk4	dbra	d3,.chk
+	tst.w	d4
+	bne	.paexp
+	btst	#0,d4
+	bne	.paexp
+; Decoupe la ligne en bouts...
+	move.w	d2,d0
+	bsr	Tt_Decoup
+	move.l	Tt_Ligne(a4),a0
+	move.b	(a0),d0
+	beq	.paexp
+	cmp.b	1(a0),d1
+	bcs	.paexp
+; Trouve le debut
+.eloop1	move.l	a0,a1
+	cmp.b	1(a1),d1
+	beq.s	.eout1
+	addq.l	#4,a0
+	cmp.b	1(a0),d1
+	bcs.s	.eout1
+	tst.b	(a0)
+	bne.s	.eloop1
+	bra	.paexp
+; Trouve la fin
+.eout1	move.w	Tt_X2Info(a4),d0
+	move.l	a1,a2
+.eloop2	addq.l	#4,a2
+	tst.b	(a2)
+	beq.s	.eout2
+	cmp.b	1(a2),d0
+	bhi.s	.eloop2
+; Que pointe thon?
+.eout2	move.b	(a1),d0
+	cmp.b	#":",d0
+	beq	.paexp
+	cmp.b	#"W",d0
+	beq	.paexp
+	cmp.b	#":",-4(a1)
+	beq	.paexp
+	tst.w	Tt_Init(a4)
+	beq	NoInit
+	cmp.b	#"-",d0
+	beq.s	.exp1
+	cmp.b	#"V",d0
+	beq.s	.exp1
+	cmp.b	#"0",d0
+	bcs	.paexp
+	cmp.b	#"2",d0
+	bhi	.paexp
+; Recopie dans le buffer tokenisation
+.exp1	move.l	Tt_BufT(a4),a3
+	move.l	Tt_ALine(a4),a0
+; Un GLOBAL ou un SHARED
+	cmp.w	#_TkGlo,2(a0)
+	beq	.paexp
+	cmp.w	#_TkSha,2(a0)
+	beq	.paexp
+	add.w	2(a2),a0
+	move.l	a0,a2
+	move.l	Tt_ALine(a4),a0
+	add.w	2(a1),a0
+.lp1	move.w	(a0)+,(a3)+
+	cmp.l	a2,a0
+	bcs.s	.lp1
+	cmp.w	#_TkPar1,(a0)
+	beq	.paexp
+	clr.w	(a3)+
+	move.l	Tt_BufT(a4),a0
+	sub.l	a0,a3
+	move.l	a3,d7
+; Meme niveau de procedure?
+	move.l	Tt_DCurLine(a4),a2
+	move.l	Tt_ALine(a4),a3
+	cmp.l	a2,a3
+	bcc.s	.pro1
+	exg	a2,a3
+.pro1	cmp.l	a3,a2
+	bhi.s	.pro2
+	move.w	2(a2),d0
+	cmp.w	#_TkProc,d0
+	beq.s	.paniv
+	cmp.w	#_TkEndP,d0
+	beq.s	.paniv
+	moveq	#0,d0
+	move.b	(a2),d0
+	lsl.w	#1,d0
+	add.w	d0,a2
+	bra.s	.pro1
+; Au debut de quelque chose de possible...
+.pro2	move.l	Inf_Buf(a4),a0
+	move.l	Inf_Pos(a4),d0
+	sub.l	a0,d0
+	cmp.l	#Inf_Size-Inf_Size/3,d0
+	bcc	.2many
+	move.l	Tt_BufT(a4),a6
+	bsr	Tt_Evalue
+	bne.s	.paexp
+	move.w	d7,d0			* Insere l'expression dans la liste
+	add.w	#12,d0
+	bsr	Inf_Ins
+	move.w	#3,(a0)+
+	move.w	#-1,(a0)+
+	move.l	BasA3(a5),(a0)+
+	move.l	Tt_BufT(a4),a1
+.pro3	move.w	(a1)+,(a0)+
+	subq.w	#2,d7
+	bne.s	.pro3
+; Va imprimer, et revient
+.expout	move.l	Tt_Program(a4),a3
+	move.w	#-1,Tt_YInfo(a4)
+	bsr	Ttt_AffBuf
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+	rts
+; Cannot evaluate!
+.paexp	move.w	#-1,Tt_YInfo(a4)
+	moveq	#8,d0
+	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bra	.expout
+; Erreur: pas meme niveau
+.paniv	moveq	#6,d0
+	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bra.s	.expout
+; Too many expresions
+.2many	moveq	#9,d0
+	bsr	Tt_Message
+	bsr	Ttt_Alert
+	bra.s	.expout
+
+;	Routine, ouverture d'un souligne sur la ligne courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Souligne
+	mulu	#256,d4
+	move.l	Ttt_BufE(a4),a0
+	add.w	d4,a0
+	cmp.w	(a0),d1
+	bcc.s	.SNon
+	move.w	d1,Tt_X1Info(a4)
+	addq.w	#1,d1
+	move.w	d1,Tt_X2Info(a4)
+	move.w	d2,Tt_YInfo(a4)
+	move.l	a0,-(sp)
+	bsr	Ttt_AffBuf
+.Sloop	bsr	Tt_Multi
+	bsr	Tt_MBout
+	btst	#0,d1
+	beq.s	.Sout
+	bsr	Tt_MouMou
+	addq.w	#1,d1
+	cmp.w	Tt_X1Info(a4),d1
+	bls.s	.Sloop
+	move.l	(sp),a0
+	cmp.w	(a0),d1
+	bhi.s	.Sloop
+	move.w	d1,Tt_X2Info(a4)
+	moveq	#0,d1
+	move.w	Tt_YInfo(a4),d1
+	sub.w	Ttt_YPos(a4),d1
+	bsr	Ttt_EALigne
+	bra.s	.Sloop
+; Retour, A0 pointe la chaine...
+.Sout	move.l	(sp)+,a0
+	move.w	Tt_YInfo(a4),d2
+	move.w	Tt_X1Info(a4),d1
+	move.w	Tt_X2Info(a4),d0
+	lea	2(a0,d1.w),a0
+	sub.w	d1,d0
+	bls.s	.SNon
+	rts
+; Rien!
+.SNon	moveq	#0,d0
+	rts
+
+; Coordonnee de la souris
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Tt_MouMou
+	bsr	XYMouEc
+	subq.w	#8,d2
+	lsr.w	#3,d1
+	lsr.w	#3,d2
+	move.w	d2,d4
+	add.w	Ttt_XPos(a4),d1
+	add.w	Ttt_YPos(a4),d2
+	cmp.w	Tt_YNext(a4),d2
+	bne.s	.mou2
+	move.w	Tt_XNext(a4),d0
+	cmp.w	d0,d1
+	bcs.s	.mou2
+	addq.w	#3,d0
+	sub.w	d1,d0
+	bls.s	.mou1
+	sub.w	d0,d1
+	rts
+.mou1	subq.w	#3,d1
+.mou2	rts
+
+
+;	Demande de HELP sur un mot...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_RunHelp
+	bsr	Tt_Souligne
+	beq	Wmky
+	cmp.w	#2,d0
+	bcs	.NFnd
+; Copie la chaine dans le buffer
+	move.l	Buffer(a5),a1
+	move.l	a1,d0
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+	move.l	d0,a0
+	sub.l	a1,d0
+	neg.l	d0
+; Charge les fichiers .MAP
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a0/d0,-(sp)
+	moveq	#20,d0			Loading Help files
+	bsr	Tt_IMes
+	movem.l	(sp)+,a0/d0
+	bsr	Hlp_LoadTexte		Une erreur!
+	bne	.Error
+	bsr	Ttt_AlertDel		Plus d'alertes
+; Ouverture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d7
+	bsr	Hlp_GetPuzzle
+	move.l	a1,a0
+	moveq	#EcFsel,d0
+	move.w	PI_RtSx(a5),d1
+	move.w	PI_RtSy(a5),d2
+	ext.l	d1
+	ext.l	d2
+	moveq	#0,d3
+	moveq	#-1,d4
+	JJsrP	L_Dia_RScOpen,a2
+	bne	.OutM
+; Trouve le bon numero de canal dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#65536,d7
+.Find	move.l	d7,d0
+	JJsr	L_Dia_GetChannel
+	beq.s	.Ok
+	addq.l	#1,d7
+	bra.s	.Find
+; Appel du DBL
+; ~~~~~~~~~~~~
+.Ok	bsr	Hlp_GetPuzzle
+	add.l	2+0(a0),a0		Programme numero 1
+	move.l	d7,d0
+	move.l	#1024*8,d1		Longueur du bufer
+	moveq	#8,d2			Variables internes
+	moveq	#0,d3			Pas de recopie
+	JJsrR	L_Dia_OpenChannel,a2
+	bne	.OutM
+	moveq	#23,d0
+	bsr	Tt_Message
+	subq.l	#2,a0
+	move.l	a0,4(a1)		Message de titre
+	move.l	#4,8(a1)		4 Boutons par ligne
+	move.l	Hlp_Texte(a4),0(a1)	Base de l'hyper texte
+; Demarre le programme
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	d7,d0
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	JJsr	L_Dia_RunProgram
+	tst.l	d0
+	bne	.OutM
+; Ouverture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	d7,-(sp)
+	move.l	T_EcAdr+EcFsel*4(a5),a2
+	move.w	PI_RtSpeed(a5),d7
+	moveq	#1,d6
+	move.w	PI_RtWy(a5),d5
+	move.w	PI_RtSy(a5),d0
+	lsr.w	#1,d0
+	add.w	d0,d5
+	JJsr	L_AppCentre
+	move.l	(sp)+,d7
+; Animation de l'ecran, uniquement READ TEXT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Lop	move.l	d7,-(sp)
+	JJsr	L_Sys_WaitMul
+	JJsr	L_Test_PaSaut
+	move.l	(sp)+,d7
+	move.l	d7,d0
+	JJsr	L_Dia_GetReturn
+	bne.s	.OutM
+	tst.l	d1
+	bpl.s	.Lop
+	moveq	#0,d0
+	bra.s	.Quit
+; Fermeture du canal
+; ~~~~~~~~~~~~~~~~~~
+.OutM	moveq	#17,d0
+.Quit	move.l	d0,-(sp)
+	move.l	d7,d0
+	beq.s	.Skk
+	JJsr	L_Dia_CloseChannel
+; Fermeture de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~
+.Skk	move.l	T_EcAdr+EcFsel*4(a5),a2
+	tst.l	(a2)
+	beq.s	.Skkk
+	move.w	PI_RtSpeed(a5),d7
+	neg.w	d7
+	move.w	EcTy(a2),d6
+	lsr.w	#1,d6
+	move.w	EcAWY(a2),d5
+	add.w	d6,d5
+	JJsr	L_AppCentre
+	EcCalD	Del,EcFsel
+; La fin...
+; ~~~~~~~~~
+.Skkk	bsr	Hlp_FreeTexte
+	move.l	(sp)+,d0
+	beq.s	.Fin
+.Error	bsr	Tt_Message
+	bsr	Ttt_Alert
+.Fin	move.l	Tt_Program(a4),a3
+	move.w	#-1,Tt_Ecran(a4)
+	move.w	#-1,Tt_YInfo(a4)
+	bsr	Ttt_TttAct
+	bsr	Ttt_AffBuf
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+	rts
+.NFnd	moveq	#21,d0
+	bra.s	.Error
+
+; 	Get default resource bank
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Hlp_GetPuzzle
+	move.l	Sys_Resource(a5),a0
+	move.l	a0,a1
+	add.l	2+0(a0),a1		Base des graphiques
+	move.l	a0,a2
+	add.l	2+4(a0),a2		Base des messages
+	add.l	2+8(a0),a0		Base des programmes
+	rts
+
+
+
+;	Charge la partie de texte HELP dans un buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0/D0	Nom � rechercher
+Hlp_LoadTexte
+	movem.l	d2-d7/a2-a3,-(sp)
+
+	movem.l	a0/d0,-(sp)
+	bsr	Hlp_FreeTexte
+	bsr	Hlp_GetMap
+	movem.l	a1/d1,-(sp)
+	bne	.Out
+
+; Explore methodiquement les possibilites
+	movem.l	8(sp),a0/d0
+	moveq	#2,d7
+	move.b	(a0),d0			* Si operateur >>> 1 seul car!
+	bsr	Hlp_D0Maj
+	cmp.b	#"A",d0
+	bcs.s	.Gli0
+	cmp.b	#"Z",d0
+	bls.s	.Gli1
+.Gli0	subq.w	#1,d7
+.Gli1	moveq	#0,d6
+.loop0	move.l	Buffer(a5),a2
+	lea	128(a2),a2
+	move.w	#$00FF,(a2)+
+	moveq	#0,d2
+	moveq	#0,d5
+.loop1	move.w	d0,d3
+.loop2	move.b	(a0)+,d0
+	bsr	Hlp_D0Maj
+	cmp.b	#32,d0
+	beq.s	.skip
+	move.b	d0,(a2)+
+	addq.w	#1,d2
+.skip	addq.w	#1,d5
+	subq.w	#1,d3
+	beq.s	.loop3
+	cmp.w	d2,d7
+	bne.s	.loop2
+.loop3	moveq	#0,d4
+	move.l	Buffer(a5),a2
+	lea	128(a2),a2
+	addq.w	#2,d2
+	JJsr	L_InstrFind
+	movem.l	(sp),a1/d1
+	movem.l	8(sp),a0/d0
+	tst.l	d3
+	beq.s	.Nf
+
+; Trouve, explore une lettre de plus
+	move.l	d3,d6
+	addq.w	#1,d7
+	cmp.w	d0,d7
+	bls.s	.loop0
+	bra.s	.Trouve
+; Pas trouve, peut-on revenir en arriere?
+.Nf	move.l	d6,d3
+	bne.s	.Trouve
+.NFound	moveq	#21,d0
+	bra	.Out
+
+; Charge la portion demandee
+.Trouve	lea	-4(a1,d3.w),a1
+	moveq	#0,d5		D3>>> offset
+	move.b	(a1)+,d5
+	lsl.l	#8,d5
+	move.b	(a1)+,d5
+	lsl.l	#8,d5
+	move.b	(a1)+,d5
+	moveq	#0,d4		D4>>> Longueur
+	addq.l	#2,a1
+.Next	tst.b	(a1)+		Recherche le debut suivant
+	bne.s	.Next
+	move.b	(a1)+,d4
+	lsl.l	#8,d4
+	move.b	(a1)+,d4
+	lsl.l	#8,d4
+	move.b	(a1)+,d4
+	sub.l	d5,d4
+
+; Chargement du texte dans un buffer
+	move.l	d4,d0
+	add.l	#512,d0
+	SyCall	MemFastClear
+	beq	.OutM
+	move.l	a0,d2
+	move.l	a0,Hlp_Texte(a4)
+	move.l	d0,Hlp_LTexte(a4)
+
+	moveq	#12,d0			Nom de AMOSPro_Help.Txt
+	JJsr	L_Sys_GetMessage
+	lea	NomTxt(pc),a1
+	bsr	AddSuffix
+	move.l	#1005,d2
+	bsr	Hlp_Open
+	beq	.DErr1
+
+; Cree les trois lignes de titre
+	moveq	#22,d0
+	bsr	Tt_Message
+	move.l	Hlp_Texte(a4),a2
+	moveq	#2,d0
+.Lp1	move.l	a0,a1
+.Lp2	move.b	(a1)+,(a2)+
+	bne.s	.Lp2
+	move.b	#10,-1(a2)
+	dbra	d0,.Lp1
+	move.b	#10,-1(a2)
+	move.b	#10,(a2)+
+	move.l	d5,d2			Charge le titre
+	moveq	#-1,d3
+	bsr	Hlp_Seek
+	move.l	Buffer(a5),d2
+	moveq	#64,d3
+	bsr	Hlp_Read
+	move.l	d2,a0
+.Lp3	cmp.b	#32,(a0)+
+	bcc.s	.Lp3
+	move.l	a0,d0
+	move.l	d2,a0
+	sub.l	d2,d0
+	move.l	d0,d2
+	add.l	d2,d5			Position + Titre
+	sub.l	d2,d4			Taille - Titre
+	lsr.w	#1,d0
+	move.l	Hlp_Texte(a4),a1
+	lea	132(a1),a1
+	sub.w	d0,a1
+	subq.w	#1+1,d2
+	bmi.s	.Lp5
+.Lp4	move.b	(a0)+,(a1)+
+	dbra	d2,.Lp4
+.Lp5
+; Charge le titre
+	move.l	d5,d2			Charge le titre
+	moveq	#-1,d3
+	bsr	Hlp_Seek
+	move.l	a2,d2
+	move.l	d4,d3
+	bsr	Hlp_Read
+	bne	.DErr0
+	bsr	Hlp_Close
+; Pas d'erreur / A1-D1= buffer + Longueur
+	move.l	Hlp_Texte(a4),a1
+	move.l	Hlp_LTexte(a4),d1
+	subq.l	#8,d1
+	moveq	#0,d0
+	bra.s	.Out
+; Out of memory: libere la .MAP
+.OutM	bsr	Hlp_FreeMap
+	moveq	#17,d0
+	bra	.Out
+; Cannot load .TXT
+.DErr0	bsr	Hlp_Close
+.DErr1	bsr	Hlp_FreeTexte
+	moveq	#19,d0
+; Sortie
+.Out	lea	16(sp),sp
+	movem.l	(sp)+,a2-a3/d2-d7
+	tst.l	d0
+	rts
+
+;	Charge le fichier .MAP en memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Hlp_GetMap
+	movem.l	a2-a3/d2-d7,-(sp)
+	tst.l	Hlp_Map(a4)		Deja chargee?
+	bne.s	.NoLoad
+; Charge...
+	moveq	#12,d0			Nom du .MAP
+	JJsr	L_Sys_GetMessage
+	lea	NomMap(pc),a1
+	bsr	AddSuffix
+	move.l	#1005,d2
+	bsr	Hlp_Open
+	beq	.Err2
+	moveq	#0,d2			Trouve la longueur du fichier
+	moveq	#1,d3
+	bsr	Hlp_Seek
+	moveq	#0,d2
+	moveq	#-1,d3
+	bsr	Hlp_Seek
+	move.l	d0,d3
+	SyCall	MemFast
+	beq	.Err1
+	move.l	a0,Hlp_Map(a4)
+	move.l	d3,Hlp_LMap(a4)
+	move.l	a0,d2
+	bsr	Hlp_Read
+	bne	.Err2
+	bsr	Hlp_Close		Ferme le fichier
+; Ramene l'adresse et la longueur...
+.NoLoad	move.l	Hlp_Map(a4),a1
+	move.l	Hlp_LMap(a4),d1
+	moveq	#0,d0
+	bra.s	.Out
+; Erreurs de chargement!
+.Err1	bsr	Hlp_Close		Cannot load .MAP file
+	bsr	Hlp_FreeMap
+	moveq	#18,d0
+	bra.s	.Out
+.Err2	bsr	Hlp_FreeMap		Out of memory
+	moveq	#17,d0
+; Sortie
+.Out	movem.l	(sp)+,d2-d7/a2-a3
+	tst.l	d0
+	rts
+
+;	Efface le buffer MAP
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Hlp_FreeMap
+	bsr	Hlp_FreeTexte
+	move.l	Hlp_Map(a4),d1
+	beq.s	.skip
+	move.l	d1,a1
+	move.l	Hlp_LMap(a4),d0
+	clr.l	Hlp_Map(a4)
+	clr.l	Hlp_LMap(a4)
+	SyCall	MemFree
+.skip	rts
+;	Efface le buffer TEXTE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Hlp_FreeTexte
+	move.l	Hlp_Texte(a4),d1
+	beq.s	.skip
+	move.l	d1,a1
+	move.l	Hlp_LTexte(a4),d0
+	clr.l	Hlp_Texte(a4)
+	clr.l	Hlp_LTexte(a4)
+	SyCall	MemFree
+.skip	rts
+;	Additionne le suffixe au nom de fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AddSuffix
+	move.l	a1,d0
+	move.l	Buffer(a5),a1
+	lea	512(a1),a1
+	move.l	a1,d1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+	subq.l	#1,a1
+	move.l	d0,a0
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+	rts
+
+;	Open file
+; ~~~~~~~~~~~~~~~
+Hlp_Open
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOOpen(a6)
+	move.l	(sp)+,a6
+	move.l	d0,d1
+	rts
+;	Close file
+; ~~~~~~~~~~~~~~~
+Hlp_Close
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOClose(a6)
+	move.l	(sp)+,a6
+	rts
+;	Read file
+; ~~~~~~~~~~~~~~~
+Hlp_Read
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+;	Seek file
+; ~~~~~~~~~~~~~~~
+Hlp_Seek
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	rts
+; 	D0 > majuscule
+; ~~~~~~~~~~~~~~~~~~~~
+Hlp_D0Maj
+	cmp.b	#"a",d0
+	bcs.s	.skip
+	cmp.b	#"z",d0
+	bhi.s	.skip
+	sub.b	#$20,d0
+.skip	rts
+
+
+
+
+;	Decoupe la ligne en ses instructions / fonctions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0= ligne
+Tt_Decoup
+	movem.l	d0-d1/a0-a2,-(sp)
+	bsr	Ttt_FindL
+	move.l	a0,Tt_ALine(a4)		Adresse ligne
+	lea	Tt_Decoupe(pc),a1	Adresse patch
+	move.l	a1,d0
+	neg.l	d0
+	move.l	Tt_Ligne(a4),a1
+	move.l	a1,Tt_PLine(a4)
+	move.l	#":---",-4(a1)
+	move.l	Tt_BufT(a4),a1		Adresse buffer
+	JJsrR	L_Detok,a2
+	movem.l	(sp)+,d0-d1/a0-a2
+	rts
+; Partie appelle par la detokenisation...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Decoupe
+	movem.l	a0-a1/d0-d3,-(sp)
+	moveq	#0,d1
+	move.w	(a6),d0
+	beq	.skip1
+	moveq	#"-",d1
+	cmp.w	#_TkM,d0
+	beq	.skip1
+	moveq	#":",d1
+	cmp.w	#_TkDP,d0
+	beq	.skip1
+	cmp.w	#_TkThen,d0
+	beq	.skip1
+	cmp.w	#_TkElse,d0
+	beq	.skip1
+	moveq	#"V",d1
+	cmp.w	#_TkVar,d0
+	beq.s	.skip1
+	moveq	#"X",d1
+	cmp.w	#_TkPro,d0
+	beq.s	.skip1
+	moveq	#"G",d1
+	cmp.w	#_TkLGo,d0
+	beq.s	.skip1
+	moveq	#"2",d1
+	cmp.w	#_TkCh1,d0
+	beq.s	.skip1
+	cmp.w	#_TkCh2,d0
+	beq.s	.skip1
+	moveq	#"1",d1
+	cmp.w	#_TkFl,d0
+	beq.s	.skip1
+	moveq	#"(",d1
+	cmp.w	#_TkPar1,d0
+	beq.s	.skip1
+	moveq	#")",d1
+	cmp.w	#_TkPar2,d0
+	beq.s	.skip1
+	moveq	#",",d1
+	cmp.w	#_TkVir,d0
+	beq.s	.skip1
+	cmp.w	#_TkPVir,d0
+	beq.s	.skip1
+	cmp.w	#_TkTo,d0
+	beq.s	.skip1
+	cmp.w	#_TkAs,d0
+	beq.s	.skip1
+	moveq	#"0",d1
+	cmp.w	#_TkExt,d0
+	bcs.s	.skip1
+	beq.s	.jmp1
+; Instruction/fonction normale
+	move.l	AdTokens(a5),a0
+	lea	4(a0,d0.w),a0
+.loop1	tst.b	(a0)+
+	bpl.s	.loop1
+	move.b	(a0)+,d1
+	bpl.s	.skip2
+.skip0	moveq	#"I",d1
+.skip2	cmp.b	#"V",d1
+	bne.s	.skip1
+	move.b	(a0)+,d1
+; Poke l'adresse dans la table
+.skip1	move.l	Mon_Base(a5),a1
+	move.l	Tt_PLine(a1),a0
+	cmp.b	#"V",d1
+	beq.s	.skup
+	cmp.b	#"0",d1
+	beq.s	.skup
+	cmp.b	#"1",d1
+	beq.s	.skup
+	cmp.b	#"2",d1
+	bne.s	.skip3
+.skup	cmp.b	#":",-4(a0)
+	bne.s	.skip3
+	moveq	#"W",d1
+.skip3	move.b	d1,(a0)+
+	move.l	a4,d0
+	sub.l	Tt_BufT(a1),d0
+	subq.l	#2,d0
+	move.b	d0,(a0)+
+	move.l	a6,d0
+	sub.l	Tt_ALine(a1),d0
+	move.w	d0,(a0)+
+	move.l	a0,Tt_PLine(a1)
+	movem.l	(sp)+,a0-a1/d0-d3
+	rts
+; Detokenise une extension
+.jmp1	move.w	4(a6),d1
+	move.b	2(a6),d2
+	ext.w	d2
+	lsl.w	#2,d2
+	tst.l	AdTokens(a5,d2.w)
+	beq.s	.skip0
+	move.l	AdTokens(a5,d2.w),a0
+	lea	4(a0,d1.w),a0
+	bra.s	.loop1
+
+;	Va evaluer une expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Evalue
+	movem.l	d1/d4-d7/a0-a5,-(sp)
+	move.l	a6,Tt_EvDebut(a4)
+	lea	Tt_EvError(pc),a0	Patche les erreurs
+	move.l	a0,Patch_Errors(a5)
+	lea	Tt_Menage(pc),a0	Patche le menage
+	move.l	a0,Patch_Menage(a5)
+	bsr	Tt_PrgBanks
+Tt_ReEv	move.l	sp,Tt_EvPile(a4)	Position pile en cas de menage
+	move.l	AdTokens(a5),a4		Recharge la table
+	moveq	#0,d7
+	move.l	PLoop(a5),a3
+	JJsr	L_New_Evalue
+	movem.l	(sp)+,d1/d4-d7/a0-a5
+	bsr	Tt_TtBanks
+	clr.l	Patch_Errors(a5)
+	clr.l	Patch_Menage(a5)
+	moveq	#0,d0
+	rts
+;	En cas d'erreurs d'evaluation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_EvError
+	move.l	Mon_Base(a5),a4
+	move.l	Tt_EvPile(a4),sp
+	movem.l	(sp)+,d1/d4-d7/a0-a5
+	bsr	Tt_TtBanks
+	clr.l	Patch_Errors(a5)
+	clr.l	Patch_Menage(a5)
+	moveq	#0,d3
+	moveq	#0,d2
+	moveq	#-1,d0
+	rts
+;	En cas de menage
+; ~~~~~~~~~~~~~~~~~~~~~~
+Tt_Menage
+	move.l	Mon_Base(a5),a4
+	move.l	Tt_EvPile(a4),sp
+	move.l	Tt_EvDebut(a4),d0
+	beq.s	.err
+	move.l	d0,a6
+	clr.l	Tt_EvDebut(a4)
+	movem.l	(sp),d1/d4-d7/a0-a5
+	bra.s	Tt_ReEv
+.err	moveq	#11,d0
+	JJsr	L_Error
+
+
+; ___________________________________________________________________
+;
+;	GESTION INFORMATIONS
+; ___________________________________________________________________
+
+;	TOUCHE: clique sur une expression dans les infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_Clic
+	bsr	XYMouEc
+	lsr.w	#3,d2
+	sub.w	Ttt_Tlh(a4),d2
+	subq.w	#2,d2
+; Recherche la ligne dans le buffer
+	move.l	Inf_Buf(a4),a0
+	moveq	#100,d0
+	moveq	#0,d1
+.loop	add.w	d1,a0
+	move.w	(a0),d1
+	beq.s	.out
+	cmp.w	4(a0),d2
+	bne.s	.loop
+	cmp.w	#3,2(a0)		Enleve 1 ligne PARAM
+	beq.s	.skip
+	cmp.w	#1,2(a0)		... et TOUTES les infos
+	bne.s	.out
+	moveq	#1,d0
+.skip	move.w	d0,2(a0)
+	bsr	Inf_Del
+	bsr	Inf_Centre
+.out	bsr	Wmky
+	rts
+
+
+;	Affichage de la ligne ecran D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_AffLine
+	moveq	#0,d6
+	move.w	d0,d3
+	bra.s	ginf2
+;	Comptage des lignes infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_CptLines
+	bset	#31,d6
+	bra.s	ginf1
+;	Affichage du contenu du buffer dans l'ordre des lignes!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_AffAll
+	moveq	#0,d6
+ginf1	moveq	#-1,d3
+ginf2	moveq	#0,d7
+	move.w	Inf_YPos(a4),d6
+	move.w	d6,d7
+	add.w	Ttt_Tlb(a4),d7
+	moveq	#0,d5
+	moveq	#0,d4
+.loop	bsr	InfAf
+	addq.w	#1,d4
+	cmp.w	#6,d4
+	bcs.s	.loop
+	move.w	d5,Inf_NLigne(a4)
+; Efface jusqu'� la fin
+.llop	tst.l	d6
+	bmi.s	.skip2
+	cmp.w	d7,d5
+	bcc.s	.skip
+	moveq	#0,d1
+	move.w	d5,d2
+	sub.w	d6,d2
+	WiCall	Locate
+	WiCalD	ChrOut,7
+	addq.w	#1,d5
+	bra.s	.llop
+; Va dessiner le slider
+.skip
+.skip2	rts
+;	Imprime toutes les lignes num�ro D4
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InfAf	move.l	Inf_Buf(a4),a2
+	tst.w	(a2)
+	beq.s	.out
+.loop0	cmp.w	2(a2),d4
+	bne.s	.next
+	move.w	#-1,4(a2)
+	cmp.w	#1,d4
+	bne.s	.nxt1
+	bset	#31,d7
+.nxt1	cmp.w	#3,d4
+	bne.s	.nxt2
+	bset	#30,d7
+.nxt2	cmp.w	d6,d5
+	bcs.s	.nexta
+	cmp.w	d7,d5
+	bcc.s	.nexta
+	move.w	d5,d2
+	sub.w	d6,d2
+	tst.w	d3
+	bmi.s	.jd
+	cmp.w	d3,d2
+	bne.s	.nexta
+.jd	move.w	d2,4(a2)
+	bsr	InfA
+.nexta	addq.w	#1,d5
+.next	add.w	(a2),a2
+	tst.w	(a2)
+	bne.s	.loop0
+.out	rts
+
+;	Imprime la ligne info D2/A2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InfA	moveq	#0,d1
+	ext.l	d2
+	WiCall	Locate
+	cmp.w	#2,2(a2)		Separation INFOS / LISTING
+	beq.s	.sep1
+	cmp.w	#4,2(a2)
+	beq.s	.sep2
+	cmp.w	#3,2(a2)
+	beq.s	Iparam
+; Impression simple...
+.simple	tst.l	d6
+	bmi.s	ttnp
+	lea	6(a2),a1
+	WiCall	Print
+.out	rts
+; Separation Infos1/Infos2
+.sep1	bclr	#31,d7
+	bne.s	.simple
+	bra.s	.nosep
+; Separation Infos2/Listing
+.sep2	bclr	#30,d7
+	bne.s	.simple
+.nosep	move.w	#-1,4(a2)
+	subq.w	#1,d5
+ttnp	rts
+; Affiche un parametre
+Iparam	tst.l	d6
+	bmi.s	ttnp
+	movem.l	a2/d3-d7,-(sp)
+	bclr	#31,d7
+	tst.w	Tt_Init(a4)
+	beq.s	.noi
+	move.l	BasA3(a5),d0		Invalide???
+	cmp.l	6(a2),d0
+	beq.s	.ok
+.noi	WiCalA	Print,Inf_Shade(pc)
+	bset	#31,d7
+.ok	lea	10(a2),a0
+	move.l	Tt_BufT(a4),a1
+	moveq	#0,d0
+	move.l	a2,-(sp)
+	JJsrR	L_Mon_Detok,a2
+	move.l	(sp)+,a2
+	move.l	Tt_BufT(a4),a0
+	move.w	(a0)+,d4
+	cmp.w	#60,d4
+	bcs.s	.skip0
+	moveq	#60,d4
+.skip0	add.w	d4,a0
+	btst	#31,d7
+	bne	.suit
+	lea	10(a2),a6
+	bsr	Tt_Evalue
+	bne	.suit
+	move.b	#":",(a0)+
+	move.b	#" ",(a0)+
+	move.l	d3,d0
+	subq.b	#1,d2
+	bmi.s	.ent
+	bne.s	.str
+* Chiffre FLOAT
+	JJsrR	L_Float2Ascii,a1
+	bra.s	.suit
+* Chiffre ENTIER
+.ent	cmp.l	#EntNul,d3
+	beq.s	.entD
+	JJsrR	L_LongToDec,a1
+	bra.s	.suit
+.entD	exg	a0,a1
+	moveq	#13,d0
+	bsr	Tt_Message
+	exg	a0,a1
+.entE	move.b	(a1)+,(a0)+
+	bne.s	.entE
+	subq.l	#1,a0
+	bra.s	.suit
+* Chaine
+.str	moveq	#'"',d1
+	move.b	d1,(a0)+
+	sub.w	#78-6,d4
+	neg.w	d4
+	move.l	d0,a1
+	move.w	(a1)+,d2
+	cmp.w	d4,d2
+	bcs.s	.skip1
+	move.w	d4,d2
+	moveq	#">",d1
+.skip1	subq.w	#1,d2
+	bmi.s	.skip2
+.loop	move.b	(a1)+,d0
+	cmp.b	#32,d0
+	bcc.s	.skip3
+	moveq	#".",d0
+.skip3	move.b	d0,(a0)+
+	dbra	d2,.loop
+.skip2	move.b	d1,(a0)+
+* Imprime la chaine...
+.suit	btst	#31,d7
+	beq.s	.suit1
+	lea	Inf_ShadOff(pc),a1
+.suit0	move.b	(a1)+,(a0)+
+	bne.s	.suit0
+	subq.l	#1,a0
+.suit1	move.b	#7,(a0)+
+	clr.b	(a0)
+	move.l	Tt_BufT(a4),a1
+	addq.l	#2,a1
+	WiCall	Print
+ 	movem.l	(sp)+,a2/d3-d7
+	rts
+
+;	Impression dans le buffer infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_PrDeb
+	movem.l	a0/d0,-(sp)
+	move.l	Inf_Pos(a4),a0
+	clr.w	(a0)
+	move.w	d0,2(a0)
+	move.w	#-1,4(a0)
+	movem.l	(sp)+,a0/d0
+	rts
+Inf_Print
+	movem.l	a0-a2/d0,-(sp)
+	move.l	Inf_Pos(a4),a1
+	move.l	a1,a2
+	move.w	(a2),d0
+	lea	6(a1,d0.w),a1
+	subq.w	#1,d0
+.loop	addq.w	#1,d0
+	cmp.b	#76,d0
+	bcc.s	.out
+	move.b	(a0)+,(a1)+
+	bne.s	.loop
+.out	clr.b	(a1)
+	move.w	d0,(a2)
+	movem.l	(sp)+,a0-a2/d0
+	rts
+Inf_PrFin
+	move.l	d0,-(sp)
+	move.l	Inf_Pos(a4),a0
+	move.w	(a0),d0
+	cmp.w	#76,d0
+	bcc.s	.skip
+	move.b	#7,6(a0,d0.w)
+	clr.b	7(a0,d0.w)
+	addq.w	#1,d0
+.skip	addq.w	#8,d0
+	and.w	#$FFFE,d0
+	move.w	d0,(a0)
+	add.w	d0,a0
+	move.l	a0,Inf_Pos(a4)
+	clr.w	(a0)
+	move.l	(sp)+,d0
+	rts
+
+;	Supression ligne dans buffer...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	numero des lignes a supprimer...
+Inf_Del
+	move.l	Inf_Buf(a4),a0
+	move.l	Inf_Pos(a4),d1
+	moveq	#0,d2
+	moveq	#0,d3
+.loop	move.l	a0,a1
+	cmp.l	d1,a0
+	bcc.s	.out
+	cmp.w	2(a0),d0
+	beq.s	.del
+	add.w	(a0),a0
+	bra.s	.loop
+.del	add.w	(a1),d2
+	lea	0(a0,d2.w),a1
+	cmp.l	d1,a1
+	bcc.s	.dele
+	cmp.w	2(a1),d0
+	beq.s	.del
+.dele	sub.l	d2,d1
+.loopD	move.w	(a1)+,(a0)+
+	cmp.l	d1,a0
+	bls.s	.loopD
+	subq.l	#2,a0
+	addq.w	#1,d3
+	bra.s	.loop
+.out	move.l	d1,Inf_Pos(a4)
+	move.w	d3,d0
+	rts
+;	Insere D octets au debut des infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_Ins	movem.l	a1/a2,-(sp)
+	move.l	Inf_Buf(a4),a0
+	move.l	Inf_Pos(a4),a1
+	lea	0(a1,d0.w),a2
+	move.l	a2,Inf_Pos(a4)
+	clr.w	(a2)
+.loop	move.w	-(a1),-(a2)
+	cmp.l	a0,a1
+	bcc.s	.loop
+; Empeche les plantages...
+	move.w	d0,(a0)+
+	clr.l	(a0)
+	clr.w	4(a0)
+	movem.l	(sp)+,a1/a2
+	rts
+
+;	TOUCHE: Slider infos
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_Sliclic
+	bsr	Ttt_InfAct
+	move.l	#Tt_ChannelN,d0		Demande la position slider
+	moveq	#3,d1
+	moveq	#0,d2
+	JJsr	L_Dia_GetValue
+	move.w	Inf_YPos(a4),d0
+	move.w	d1,Inf_YPos(a4)
+	sub.w	d1,d0
+	cmp.w	#1,d0
+	beq.s	.Bas
+	cmp.w	#-1,d0
+	beq.s	.Haut
+; Positionnement direct
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Inf_AffAll
+	rts
+; Scroll vers le bas
+; ~~~~~~~~~~~~~~~~~~
+.Bas	WiCalA	Print,Ttt_Scrdown(pc)	Scroll graphique
+	moveq	#0,d0			Affiche la derniere ligne
+	bsr	Inf_AffLine
+	rts
+; Scroll vers le haut
+; ~~~~~~~~~~~~~~~~~~~
+.Haut	lea	Ttt_Scrup(pc),a1	Scroll graphique
+	move.w	Ttt_Tlb(a4),d0
+	add.b	#48-1,d0
+	move.b	d0,2(a1)
+	WiCall	Print
+	move.w	Ttt_Tlb(a4),d0		Affiche la derniere ligne
+	subq.w	#1,d0
+	bsr	Inf_AffLine
+	rts
+
+;	Actualisation du slider informations
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inf_Slider
+	move.l	#Tt_ChannelN,d0		Re-actualise le slider, donc la liste
+	moveq	#3,d1
+	move.w	Inf_YPos(a4),d2		Position
+	move.w	Ttt_Tlb(a4),d3		Nouvelle window
+	move.w	Inf_NLigne(a4),d4	Nouveu global
+	JJsr	L_Dia_Update
+	rts
+
+;	Alertes
+; ~~~~~~~~~~~~~
+Ttt_Alert
+	move.l	a0,-(sp)
+	moveq	#0,d0
+	bsr	Inf_Del
+	move.l	(sp)+,a0
+	moveq	#0,d0
+	addq.w	#1,Inf_AlertOn(a4)
+	clr.w	Inf_YPos(a4)
+	bsr	Inf_PrDeb
+	move.l	a0,-(sp)
+	lea	Inf_Mark(pc),a0
+	bsr	Inf_Print
+	move.l	(sp)+,a0
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+	moveq	#5,d0
+	bsr	Tt_Message
+	bsr	Inf_PrDeb
+	bsr	Inf_Print
+	bsr	Inf_PrFin
+	rts
+;	Effacement des alertes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_AlertDel
+	movem.l	a0-a6/d0-d7,-(sp)
+	tst.w	Inf_AlertOn(a4)
+	beq.s	.out
+	clr.w	Inf_AlertOn(a4)
+	moveq	#0,d0
+	bsr	Inf_Del
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+.out	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+;	Supression / Affichage lignes du buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_DelAff
+	bsr	Inf_Del
+	beq.s	.skip
+	bsr	Ttt_InfAct
+	bsr	Inf_AffAll
+	bsr	Inf_Slider
+.skip	rts
+
+; ___________________________________________________________________
+;
+;	ECRAN DU PROGRAMME
+; ___________________________________________________________________
+
+
+
+;	TOUCHE: changement d'ecran view
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_CEc	bsr	View_GEc
+	bsr	View_Aff
+	moveq	#-1,d0
+	rts
+;	TOUCHE: mouvement vers le bas dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Down	bsr	View_ScAd
+	bmi.s	TtMvX
+	bsr	Accel
+	move.w	6(a0),d0
+	move.w	d0,d2
+	sub.w	2(a0),d0
+	sub.w	d1,d0
+	cmp.w	#RedTY,d0
+	bcs.s	TtMvS
+	add.w	d1,2(a0)
+	bsr	View_Aff
+	bra.s	TtMvX
+;	TOUCHE: mouvement vers le haut dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Up	bsr	View_ScAd
+	bmi.s	TtMvX
+	bsr	Accel
+	move.w	2(a0),d0
+	sub.w	d1,d0
+	bmi.s	TtMvS
+	move.w	d0,2(a0)
+	bsr	View_Aff
+	bra.s	TtMvX
+TtMvS	clr.w	Tt_Accel(a4)
+TtMvX	moveq	#0,d0
+	rts
+;	TOUCHE: mouvement vers la gauche dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Left	bsr	View_ScAd
+	bmi.s	TtMvX
+	bsr	Accel
+	move.w	(a0),d0
+	sub.w	d1,d0
+	bmi.s	TtMvS
+	move.w	d0,(a0)
+	bsr	View_Aff
+	bra.s	TtMvX
+;	TOUCHE: mouvement vers la droite dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Right
+	bsr	View_ScAd
+	bmi.s	TtMvX
+	bsr	Accel
+	move.w	4(a0),d0
+	sub.w	(a0),d0
+	sub.w	d1,d0
+	cmp.w	#RedTX,d0
+	bcs.s	TtMvS
+	add.w	d1,(a0)
+	bsr	View_Aff
+	bra.s	TtMvX
+; Acceleration
+Accel	move.w	Tt_Accel(a4),d1
+	cmp.w	#15,d1
+	bcc.s	.skip
+	addq.w	#1,d1
+	move.w	d1,Tt_Accel(a4)
+.skip	lsr.w	#2,d1
+	lea	Tablacc(pc),a1
+	move.b	0(a1,d1.w),d1
+	ext.w	d1
+	rts
+;	TOUCHE: passe aux ecrans du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_See	bsr	Tt_Hide
+	bsr	Wmky
+	bsr	Tt_Show
+	moveq	#-1,d0
+	rts
+
+;	Affichage de l'ecran du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_Aff
+	movem.l	a0-a6/d0-d7,-(sp)
+
+; Trouve l'ecran actuel
+	move.w	Tt_View(a4),d1
+	bmi	.closed
+
+; L'ecran est-il encore ouvert?
+.Again	lea	T_EcAdr(a5),a0
+	lsl.w	#2,d1
+	move.l	0(a0,d1.w),d0
+	beq	.closed
+	move.l	d0,a2
+	cmp.l	Tt_ViewAd(a4),a2
+	bne.s	.new
+	move.w	EcTx(a2),d0
+	cmp.w	Tt_ViewTX(a4),d0
+	bne.s	.new
+	move.w	EcTy(a2),d0
+	cmp.w	Tt_ViewTY(a4),d0
+	bne.s	.new
+	move.w	EcNPlan(a2),d0
+	cmp.w	Tt_ViewNP(a4),d0
+	beq.s	.old
+* Nouvel ecran!
+.new	bsr	View_Cls
+
+;	Ok, fait la copie
+; ~~~~~~~~~~~~~~~~~~~~~~~
+.old	move.w	EcTx(a2),Tt_ViewTX(a4)
+	move.w	EcTy(a2),Tt_ViewTY(a4)
+	move.w	EcNPlan(a2),Tt_ViewNP(a4)
+	move.l	a2,Tt_ViewAd(a4)
+
+; Prend la position du scrolling
+	SyCall	WaitVbl
+	bsr	View_ScAd
+	move.w	(a0),d0
+	move.w	2(a0),d1
+
+	tst.w	EcCon0(a2)
+	bmi	.OHi
+; Origine LOWRES : veritable reduce, ultra rapide (he he!)
+	move.l	a2,a0
+	move.l	T_EcAdr+Tt_Ecran1*4(a5),a1
+	move.l	a0,SccEcO(a5)
+	move.l	a1,SccEcD(a5)
+	move.w	#RedX,d2
+	move.w	#RedY,d3
+	move.w	#RedTX,d4
+	add.w	d0,d4
+	move.w	#RedTY,d5
+	add.w	d1,d5
+	move.w	#$CC,d6
+	move.w	EcTy(a0),-(sp)
+	move.w	EcTLigne(a0),-(sp)
+	move.l	a0,-(sp)
+	move.w	EcTy(a0),d7
+	lsr.w	#1,d7
+	move.w	d7,EcTy(a0)
+	move.w	EcTLigne(a0),d7
+	lsl.w	#1,d7
+	move.w	d7,EcTLigne(a0)
+	JJsrR	L_Sco0,a2
+	move.l	(sp)+,a0
+	move.w	(sp)+,EcTLigne(a0)
+	move.w	(sp)+,EcTy(a0)
+	bsr	TtReCop
+	bra	TtRx
+; Origine HIRES : simple recopie
+.OHi	move.l	a2,a0
+	move.l	T_EcAdr+Tt_Ecran1*4(a5),a1
+	move.l	a0,SccEcO(a5)
+	move.l	a1,SccEcD(a5)
+	move.w	#RedX,d2
+	move.w	#RedY,d3
+	move.w	#RedTX,d4
+	add.w	d0,d4
+	move.w	#RedTY,d5
+	add.w	d1,d5
+	move.w	#$CC,d6
+	JJsrR	L_Sco0,a2
+	bsr	TtReCop
+	bra.s	TtRx
+; Plus d'ecran. Trouve un nouveau ou sort...
+.closed	bsr	View_GEc
+	move.w	Tt_View(a4),d1
+	bpl	.Again
+	bsr	View_Cls
+	clr.l	Tt_ViewAd(a4)
+; Sortie
+TtRx	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+;	Trouve le prochain ecran ouvert
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_GEc
+	move.w	Tt_View(a4),d1
+View_Ec
+	moveq	#7,d0
+.loop	addq.w	#1,d1
+	cmp.w	#8,d1
+	bcs.s	.skip
+	moveq	#0,d1
+.skip	move.w	d1,d2
+	lsl.w	#2,d2
+	lea	T_EcAdr(a5),a0
+	tst.l	0(a0,d2.w)
+	bne.s	.skip1
+	dbra	d0,.loop
+	moveq	#-1,d1
+.skip1	move.w	d1,Tt_View(a4)
+	bsr	View_Info
+	rts
+;	Trouve l'adresse des positions de scrolling.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1->	A0
+View_ScAd
+	move.w	Tt_View(a4),d0
+	bmi.s	.no
+	lsl.w	#3,d0
+	lea	ViewScrols(a4),a0
+	add.w	d0,a0
+	moveq	#0,d0
+	rts
+.no	moveq	#-1,d0
+	rts
+;	Calcule la table lors d'init!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_ScUpdate
+	movem.l	a0-a2/d0-d1,-(sp)
+	lea	T_EcAdr(a5),a2
+	lea	ViewScrols(a4),a1
+	moveq	#7,d1
+.loop	clr.l	(a1)
+	tst.l	(a2)
+	beq.s	.skip
+	move.l	(a2),a0
+	move.w	EcTx(a0),4(a1)
+	move.w	EcTy(a0),d0
+	tst.w	EcCon0(a0)
+	bmi.s	.sk
+	lsr.w	#1,d0
+.sk	move.w	d0,6(a1)
+.skip	addq.l	#8,a1
+	addq.l	#4,a2			BUG dans TUTOR! ILLEGAL
+	dbra	d1,.loop
+	movem.l	(sp)+,a0-a2/d0-d1
+	rts
+
+;	Routine d'interruption, recopie la palette...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_Inter
+	move.l	Mon_Base(a5),a0
+	move.w	Tt_View(a0),d2
+	bmi.s	.skip
+	lsl.w	#2,d2
+	lea	T_EcAdr(a5),a0
+	move.l	0(a0,d2.w),d0
+	beq.s	.skip
+	move.l	d0,a2
+	lea	EcPal(a2),a2
+	move.l	Tt_Ecran1*4(a0),a1
+	lea	EcPal(a1),a1
+	move.l	T_CopMark+Tt_Ecran1*128(a5),d0
+	beq.s	.skip
+	move.l	d0,a0
+	addq.l	#2,a0
+	moveq	#11-1,d0
+.loop	move.w	(a2),(a0)
+	addq.l	#4,a0
+	move.w	(a2)+,(a1)+
+	dbra	d0,.loop
+.skip	rts
+
+
+;	Activation de l'ecran de texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ttt_Act	moveq	#Tt_Ecran2,d1
+	bra	Tt_EcAct
+;	Activation de l'ecran des touches
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_Act
+	moveq	#Tt_Ecran1,d1
+Tt_EcAct
+	cmp.w	Tt_Ecran(a4),d1
+	beq.s	.skip
+	move.w	d1,Tt_Ecran(a4)
+	EcCall	Active
+.skip	rts
+
+;	CLS de l'�cran de zoom
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_Cls
+	movem.l	d0-d5/a0-a1,-(sp)
+	moveq	#0,d1
+	move.w	#RedX,d2
+	move.w	#RedY,d3
+	move.w	d2,d4
+	move.w	d3,d5
+	add.w	#RedTX,d4
+	add.w	#RedTY,d5
+	EcCall	ClsEc
+	movem.l	(sp)+,d0-d5/a0-a1
+	rts
+
+;	Affiche la position de l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+View_Info
+	tst.w	Tt_View(a4)
+	bpl.s	.Ok
+	lea	Info_ViewOff(pc),a0
+	bra.s	.Skip
+.Ok	lea	Info_View(pc),a0
+	bsr	Tt_Text
+	move.l	Buffer(a5),a0
+	lea	TBuffer-16(a0),a0
+	move.l	#$20202020,(a0)
+	clr.l	4(a0)
+	move.w	Tt_View(a4),d0
+	ext.l	d0
+	move.l	a1,-(sp)
+	JJsrR	L_LongToDec,a1
+	move.l	(sp)+,a1
+	lea	Info_Buf(pc),a0
+.Skip	bsr	Tt_Text
+	rts
+
+;	PRINT TEXT A0
+; ~~~~~~~~~~~~~~~~~~~
+Tt_Text	movem.l	a0-a2/d0-d2,-(sp)
+	move.l	T_RastPort(a5),a1
+	move.w	(a0)+,d0
+	bmi.s	.skip1
+	move.w	d0,36(a1)
+.skip1	move.w	(a0)+,d0
+	bmi.s	.skip2
+	move.w	d0,38(a1)
+.skip2	move.b	(a0)+,d0
+	bmi.s	.skip3
+	ext.w	d0
+	GfxCa5	SetBPen
+.skip3	move.b	(a0)+,d0
+	bmi.s	.skip4
+	ext.w	d0
+	GfxCa5	SetAPen
+.skip4	move.w	(a0)+,d0
+	bmi.s	.skop5
+	ext.l	d0
+	GfxCa5	SetDrMd
+.skop5	move.l	a0,a2
+	moveq	#-1,d0
+.loop	addq.w	#1,d0
+	tst.b	(a2)+
+	bne.s	.loop
+	tst.w	d0
+	bne.s	.skip5
+	move.l	Buffer(a5),a0
+	lea	TBuffer-16(a0),a0
+	bra.s	.skop5
+.skip5	ext.l	d0
+	movem.l	a0/d0,-(sp)
+	GfxCa5	Text
+	movem.l	(sp)+,a0/d0
+	GfxCa5	TextLength
+	subq.w	#8,d0
+	add.w	d0,36(a1)
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+; ___________________________________________________________________
+;
+;	GESTION DES BOUTONS
+; ___________________________________________________________________
+
+;	Impression de tous les boutons
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ABoutons
+	moveq	#NBoutons,d0
+	moveq	#0,d1
+.loop	bsr	ABouton
+	subq.w	#1,d0
+	bne.s	.loop
+	rts
+
+;	Impression du bouton D0, active: D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ABouton	movem.l	a0/d2-d3,-(sp)
+	move.l	#BtX,d2
+	moveq	#BtY,d3
+	lea	Tt_Boutons(pc),a0
+	bsr	Aff_Bouton
+	movem.l	(sp)+,a0/d2-d3
+	rts
+
+;------ Bouton g�n�ral
+;	A0=table
+;	A1= images
+;	D0= numero
+;	D1= on/off
+;	D2= offset x
+;	D3= offset y
+Aff_Bouton
+	movem.l	a0-a1/d0-d5,-(sp)
+	move.w	d2,d4
+	move.w	d3,d5
+	mulu	#18,d0
+	lea	-18+4(a0,d0.w),a0
+	move.w	-4(a0),d0
+	tst.w	d1
+	beq.s	.skip
+	move.w	-2(a0),d0
+.skip	move.w	(a0)+,d1
+	bclr	#0,d1
+	bne.s	.sku
+	add.w	d2,d1
+.sku	ext.l	d1
+	move.w	(a0)+,d2
+	bclr	#0,d2
+	bne.s	.sko
+	add.w	d3,d2
+.sko	ext.l	d2
+	moveq	#-1,d3
+	tst.w	d0
+	beq.s	.ski
+	bsr	Tt_UPack
+.ski
+* Fixe la zone D0
+	move.w	d2,d3
+	move.w	d1,d2
+	move.w	(a0)+,d1
+	beq.s	.slip
+	move.w	(a0)+,d0
+	bclr	#0,d0
+	beq.s	.sl
+	move.w	d4,d2
+.sl	add.w	d0,d2
+	move.w	(a0)+,d0
+	bclr	#0,d0
+	beq.s	.sm
+	move.w	d5,d3
+.sm	add.w	d0,d3
+	move.w	(a0)+,d0
+	bclr	#0,d0
+	bne.s	.sn
+	move.w	d2,d4
+.sn	add.w	d0,d4
+	move.w	(a0)+,d0
+	bclr	#0,d0
+	bne.s	.so
+	move.w	d3,d5
+.so	add.w	d0,d5
+	SyCall	SetZone
+.slip
+* Fini!
+	movem.l	(sp)+,a0-a1/d0-d5
+	rts
+
+;	Unpack un bouton
+; ~~~~~~~~~~~~~~~~~~~~~~
+Tt_UPack
+	movem.l	a0-a2/d0-d1,-(sp)
+	move.l	Tt_Resource(a4),a0
+	add.l	2(a0),a0
+	lsl.w	#2,d0
+	move.l	-4+2(a0,d0.w),d0
+	add.l	d0,a0
+	move.l	T_EcCourant(a5),a1
+	JJsrR	L_UnPack_Bitmap,a2
+	movem.l	(sp)+,a0-a2/d0-d1
+	rts
+
+;	Trouve le message D0 >>> A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Message
+	move.l	Mon_Base(a5),a0
+	move.l	Tt_Resource(a0),a0
+	add.l	2+4(a0),a0
+	move.l	a1,-(sp)
+	JJsrR	L_GetMessage,a1
+	move.l	(sp)+,a1
+	rts
+
+;	Attente souris
+; ~~~~~~~~~~~~~~~~~~~~~
+RWmky	bsr	Tt_Multi
+Wmky	bsr	Tt_MBout
+	btst	#0,d1
+	bne.s	RWmky
+	rts
+; 	Entree souris moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_MBout
+	SyCall	MouseKey
+	rts
+
+;	XY Mouse dans l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+XYMouEc	SyCall	XyMou
+	moveq	#0,d3
+	SyCall	XyScr
+	rts
+
+; 	Attente multitache
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_Multi
+	JJmp	L_Sys_WaitMul
+
+; 	Banques de m�moire/dialogue du moniteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_TtBanks
+	move.l	a0,-(sp)
+	lea	Mon_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	lea	Tt_Dialogs(a4),a0
+	move.l	a0,Cur_Dialogs(a5)
+	move.l	(sp)+,a0
+	rts
+;	Banques de memoire/dialogue du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tt_PrgBanks
+	move.l	a0,-(sp)
+	move.l	Mon_Base(a5),a0
+	move.l	Tt_CurBanks(a0),Cur_Banks(a5)
+	move.l	Tt_CurDialogs(a0),Cur_Dialogs(a5)
+	move.l	(sp)+,a0
+	rts
+
+;		Donnees tutor
+		Even
+* Ancien vecteur ECRANS
+Old_EcVect	dc.l	0
+Old_SyVect	dc.l	0
+* Definition des bouttons
+* X,Y unpack / X,Y,TX,TY zones
+Tt_Boutons	dc.w	18,19,0*48,2*24,1,0,0,48,24
+		dc.w	20,21,1*48,2*24,2,0,0,48,24
+		dc.w	22,23,2*48,2*24,3,0,0,48,24
+		dc.w	24,25,3*48,2*24,4,0,0,48,24
+		dc.w	26,27,4*48,2*24,5,0,0,48,24
+
+		dc.w	2,3,0*48,0*24,6,32,0,32,16
+		dc.w	2,4,0*48,0*24,7,32,32,32,16
+		dc.w	2,5,0*48,0*24,8,0,16,32,16
+		dc.w	2,6,0*48,0*24,9,64,16,32,16
+		dc.w	2,7,0*48,0*24,10,32,16,32,16
+
+		dc.w	8,9,2*48,0*24,11,0,0,96,24
+		dc.w	10,11,4*48,0*24,12,0,0,48,24
+		dc.w	0,0,0+1,0+1,13,16,8,320,100
+
+		dc.w	16,17,2*48,1*24,14,0,0,48,24
+		dc.w	14,15,3*48,1*24,15,0,0,48,24
+		dc.w	12,13,4*48,1*24,16,0,0,48,24
+
+* Table d'acceleration des deplacements
+Tablacc		dc.b	1,2,4,8
+
+* Info ecran
+Info_View	dc.w	134,6,$0D0E,%001
+		dc.b	"Screen # ",0
+Info_Buf	dc.w	134+8*9-3,6,$0D0E,%001
+		dc.b	0
+Info_ViewOff	dc.w	126,6,$0D0E,%001
+		dc.b	" No screens ",0
+
+* Textes fenetre listing
+Ttt_WInit	dc.b	27,"C0",27,"B2",27,"P3",25,27,"V0",0
+Ttt_Scrup	dc.b	27,"Y0",22,0
+Ttt_Scrdown	dc.b	12,20,0
+Ttt_IOn		dc.b	27,"I1",0
+Ttt_IOff	dc.b	27,"I0",0
+Ttt_InOn	dc.b	27,"U1",0
+Ttt_InOff	dc.b	27,"U0",0
+Ttt_Mark	dc.b	27,"B0",27,"P1>>>",27,"B2",27,"P3",0
+
+* Textes fenetre info
+Inf_Shade	dc.b	27,"S1",0
+Inf_ShadOff	dc.b	27,"S0",0
+Inf_Par2	dc.b	" = ",0
+Inf_Mark	dc.b	">>> ",0
+NomMap		dc.b	".Map",0
+NomTxt		dc.b	".Txt",0
+		Even
+; 		Petit DBL pour dessiner le fond
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DBL		dc.w	.Fin-.Debut
+.Debut		dc.b	"BA	0,0;"
+		dc.b	"SI	SW,SH;"
+		dc.b	"LI	0,0,94,SX16-;"
+		dc.b	"LI	0,YB 0VA8* +,100,SX;"
+		dc.b	"LI	0,SY4-,106,SX;"
+		dc.b	"VL	SX16-,6,97,0VA8* 8+;"
+		dc.b	"VL	SX16-,YB 3+,103,SY3-;"
+		dc.b	"HS	1,2,1,SX21-,4,0,79,250,10;[]"
+		dc.b	"VS	2,SX12-,7,10,0VA8*,0,0VA,2VA,1;[]"
+		dc.b	"VS	3,SX12-,0VA8*12+,10,1VA8*,0,1VA,3VA,1;[]"
+		dc.b	"BU	4,SX16-,0,16,7,0,0,1;[UN 0,0,109BP+;][BR0;]"
+		dc.b	"EX;"
+		dc.b	0
+.Fin		even
diff --git a/+Verif.s b/+Verif.s
new file mode 100644
index 0000000..5729680
--- /dev/null
+++ b/+Verif.s
@@ -0,0 +1,5321 @@
+; ______________________________________________________________________________
+; ..............................................................................
+; ...................................................................2222222....
+; ................................................................22222222220...
+; ...................................................222........222222.....222..
+; ..............................................2202222222222..22000............
+; ..................................22000.....20222222222200000200002...........
+; .................................2002202...2222200222.220000000200000000022...
+; ....................220002......22222200..2200002.......2200000...20000000000.
+; ....................22222202....2220000022200000..........200002........200000
+; .....200000.........2222200000222200220000000002..........200002........20000.
+; .....00222202........2220022000000002200002000002........2000002000020000000..
+; ....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+; ....220000200002......20000..200002..220000200000000000000002.......22........
+; ...2220002.220000 2....220002...22.....200002..0000000000002...................
+; ...220000..222000002...20000..........200000......2222........................
+; ...000000000000000000..200000..........00002..................................
+; ..220000000022020000002.200002.........22.......______________________________
+; ..0000002........2000000220022.................|
+; .200000............2002........................| GESTION SOURCE
+; .200002........................................| CHARGEMENT / TEST / VERIF
+; 220002.........................................|______________________________
+; ______________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ______________________________________________________________________________
+
+Reloc_Step	equ	1024
+TablA_Step	equ	1024
+Reloc_End	equ	$80
+Reloc_Var	equ	$82
+Reloc_Long	equ	$84
+Reloc_NewBuffer	equ	$86
+Reloc_Proc1	equ	$88
+Reloc_Proc2	equ	$8A
+Reloc_Proc3	equ	$8C
+Reloc_Proc4	equ	$8E
+Reloc_Debug	equ	$90
+Reloc_Label	equ	$92
+
+;_____________________________________________________________________________
+;
+;						Test en mode direct
+;_____________________________________________________________________________
+;
+VerDirect
+Ver_Direct
+	tst.l	VarBuf(a5)		Buffer general deja reserve?
+	bne.s	.PaVar
+	move.l	#4*1024,d1
+	bsr	ResVarBuf
+.PaVar	bsr	ResDir			Espace pour variables directes
+	tst.l	VNmMini(a5)		Buffer noms deja reserve?
+	bne.s	.PaNom
+	move.l	PI_VNmMax(a5),d1
+	bsr	ResVNom
+.PaNom	tst.w	Stack_Size(a5)		Buffer des boucles deja reserve?
+	bne.s	.PaSt
+	move.w	#10,Stack_Size(a5)
+.PaSt	move.l	Ed_BufT(a5),Prg_Test(a5)	Adresse de test
+	move.l	Prg_Test(a5),Prg_Run(a5)	Adresse de run
+	clr.l	Edt_Runned(a5)			Securites!
+	clr.l	Prg_Runned(a5)
+	move.w	#1,Phase(a5)			Parametres de test
+	move.w	#1,DirFlag(a5)
+	bsr	SsTest
+	bsr	Free_VerTables			Efface les tables
+	bsr	Ver_Run				Table de tokens
+	rts
+
+;_____________________________________________________________________________
+;
+;						Test du programme
+;_____________________________________________________________________________
+;
+PTest:
+	movem.l	a2-a4/a6/d2-d7,-(sp)
+
+	clr.b	VerNot1.3(a5)			Compatible, au depart...
+
+; Recherche les includes / Met l'adresse du programme � runner...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_Source(a5),Prg_Run(a5)	Par defaut
+	bsr	Get_Includes
+	tst.l	Prg_FullSource(a5)		Faut-il changer?
+	beq.s	.Skip
+	move.l	Prg_FullSource(a5),Prg_Run(a5)
+.Skip	move.l	Prg_Run(a5),Prg_Test(a5)	A tester
+
+; RAZ de toutes les variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#8*1024,d1
+	bsr	ResVarBuf
+	move.l	PI_VNmMax(a5),d1
+	bsr	ResVNom
+
+	clr.w	Phase(a5)
+	clr.w	ErrRet(a5)
+	clr.w	DirFlag(a5)
+	clr.w	VarBufFlg(a5)
+	move.w	#51,Stack_Size(a5)
+	clr.b	Prg_Accessory(a5)
+	clr.b	MathFlags(a5)		Plus de double precision
+	clr.b	Ver_SPConst(a5)		Plus de flags
+	clr.b	Ver_DPConst(a5)
+	clr.l	VerNInst(a5)
+
+; PHASE 1: exploration du programme principal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ReVer	clr.w	VarLong(a5)
+	move.l	DVNmBas(a5),a0
+	move.l	a0,VNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,VNmBas(a5)
+	bsr	SsTest
+	bne.s	.ReVer
+
+	move.l	Ver_TablA(a5),d0
+	move.l	d0,Ver_MainTablA(a5)		Stocke la table
+	beq.s	.Skop
+	addq.l	#4,d0				Si table il y a
+.Skop	clr.l	Ver_TablA(a5)			Une nouvelle table
+	move.l	VNmBas(a5),DVNmBas(a5)		Variables
+	move.l	VNmHaut(a5),DVNmHaut(a5)
+	move.w	VarLong(a5),GloLong(a5)
+
+; 	Exploration de la TablA a la recherche des procedures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.l	d0				Une table?
+	beq.s	.Fini
+.PLoop	move.l	d0,a0
+	cmp.b	#1<<VF_Proc,Vta_Flag(a0)	Une procedure?
+	beq.s	.Test
+	move.l	(a0),d0
+	bne.s	.PLoop
+	bra.s	.Fini
+; Verification de la procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Test	move.l	(a0),-(sp)			La suivante
+	move.l	Vta_Prog(a0),Prg_Test(a5)	Va explorer la procedure!
+	addq.w	#1,Phase(a5)			Une phase de plus
+	clr.w	VarLong(a5)
+	move.l	DVNmBas(a5),a0
+	move.l	a0,VNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,VNmBas(a5)
+	bsr	Locale				Toutes les variables >>> locales
+	bsr	SsTest
+	move.l	Prg_Test(a5),a0			Longueur variable procedure
+	move.w	VarLong(a5),6(a0)
+	move.l	(sp)+,d0
+	bne.s	.PLoop
+.Fini
+
+; Libere l'espace pour les variables globales
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	LabBas(a5),a1
+	clr.l	-(a1)
+	move.w	#-1,-(a1)		* Marque la fin des variables
+	move.l	a1,a0
+	sub.w	GloLong(a5),a0
+	cmp.l	HiChaine(a5),a0
+	bcs	VerVNm
+	move.l	a0,VarGlo(a5)
+	move.l	a0,VarLoc(a5)
+	move.l	a0,TabBas(a5)
+	move.l	a1,d0			* Nettoie les variables globales
+	sub.l	a0,d0
+	beq.s	.Clr3
+	lsr.l	#2,d0
+	bcc.s	.Clr1
+	clr.w	(a0)+
+.Clr1	subq.w	#1,d0
+.Clr2	clr.l	(a0)+
+	dbra	d0,.Clr2
+.Clr3
+
+; Rend toutes les variables GLOBALES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Globale
+; Libere les tables
+; ~~~~~~~~~~~~~~~~~
+	bsr	Free_VerTables
+; Remet la table de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Ver_Run
+; Verification compatibilite sur le nombre de banques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.b	VerCheck1.3(a5)		Plus de check 1.3
+	move.l	Cur_Banks(a5),a0
+	bra.s	.Next
+.Loop	move.l	d0,a0
+	cmp.l	#16,8(a0)		Numero de la banque
+	bhi.s	.Non
+.Next	move.l	(a0),d0
+	bne.s	.Loop
+	beq.s	.Oui
+.Non	move.b	#1,VerNot1.3(a5)	Flag, directement...
+.Oui
+; Termine!!!
+; ~~~~~~~~~~
+	movem.l	(sp)+,a2-a4/a6/d2-d7
+	rts
+
+; Libere les tables de verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_VerTables
+	bsr	Free_Reloc
+	bsr	Free_TablA		La courante
+	move.l	Ver_MainTablA(a5),Ver_TablA(a5)
+	clr.l	Ver_MainTablA(a5)
+	bsr	Free_TablA		La principale
+	rts
+
+; Met le flag 1.3!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SetNot1.3
+	move.b	#1,VerNot1.3(a5)
+	tst.b	VerCheck1.3(a5)
+	bne.s	.Stop
+	rts
+.Stop	moveq	#47,d0
+	bra	VerErr
+
+
+;	Sous programme de verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SsTest:	clr.l	ErrRet(a5)
+	clr.w	Passe(a5)
+	clr.w	Ver_NBoucles(a5)
+	clr.w	Ver_PBoucles(a5)
+
+	bsr	Ver_Verif
+	bsr	Reserve_Reloc
+	bsr	Reserve_TablA
+
+	move.l	Prg_Test(a5),a6
+	move.l	a6,a3
+
+	tst.w	DirFlag(a5)
+	bne.s	VerD
+	tst.w	Phase(a5)
+	bne.s	VerDd
+
+; Debut d'une ligne
+; ~~~~~~~~~~~~~~~~~
+VerD	move.l	a6,VDLigne(a5)
+	tst.w	(a6)+
+	beq	VerX
+
+; Definition procedures / Data en debut de ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDd:	move.l	a6,VerPos(a5)
+	move.w	(a6)+,d0
+	beq.s	VerD
+	bmi	VerSynt
+	move.l	AdTokens(a5),a0
+	move.b	0(a0,d0.w),d1
+	bpl.s	VLoop1
+	addq.l	#1,VerNInst(a5)
+	ext.w	d1
+	asl.w	#2,d1
+	jmp	.Jmp(pc,d1.w)
+	bra	VerSha			FA-Global (Nouvelle maniere)
+	bra	VerSha			FB-Shared
+	bra	VerDFn			FC-Def Fn
+	bra	VerData			FD-Debut data
+	bra	V1_EndProc		FE-Fin procedure
+	bra	V1_Procedure		FF-Debut procedure
+.Jmp
+
+; Boucle de test dans une ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerLoop move.l	a6,VerPos(a5)		Position du test
+	move.w	(a6)+,d0
+	beq	VerD
+	bmi	VerSynt
+	move.l	AdTokens(a5),a0
+	move.b	0(a0,d0.w),d1
+VLoop1	addq.l	#1,VerNInst(a5)		Un instruction de plus!
+	ext.w	d1
+	asl.w	#2,d1
+	jmp	.Jmp(pc,d1.w)		Branche � la fonction
+
+
+; Table des sauts pour les instructions particulieres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bra	VerShal			FA-Global (Nouvelle maniere)
+	bra	VerShal			FB-Shared
+	bra	VerDaL			FC-Def Fn
+	bra	VerDaL			FD-Debut data
+	bra	VerPDb			FE-Fin procedure
+	bra	VerPDb			FF-Debut procedure
+.Jmp	bra	Ver_Normal		00-Instruction normale
+	bra	VerSynt			01-Syntax error
+	bra	VerRem			02-Rem
+	bra	VerSBu			03-Set Buffer
+	bra	VerDPre			04-Set Double Precision
+	bra	VerSStack		05-Set Stack
+	bra	VerVar			06-Variable
+	bra	VerLab			07-Un label
+	bra	VerPro			08-Un appel de procedure
+	bra	VerDim			09-DIM
+	bra	VerPr			0A-Print
+	bra	VerDPr			0B-Print #
+	bra	VerInp			0C-Input / Line Input
+	bra	VerDInp			0D-Input #
+	bra	VerInc			0E-Dec
+	bra	V1_Proc			0F-Proc
+	IFNE	Debug=2
+	bra	V1_Debug		10- Debugging
+	ENDC
+	IFEQ	Debug=2
+	bra	Ver_Normal
+	ENDC
+	bra	VerPal			11-Default Palette
+	bra	VerPal			12-Palette
+	bra	VerRead			13-Read
+	bra	VerRest			14-Restore
+	bra	VerChan			15-Channel
+	bra	VerInc			16-Inc
+	bra	VerAdd			17-Add
+	bra	VerPo			18-Polyline/Gon
+	bra	VerFld			19-Field
+	bra	VerCall			1A-Call
+	bra	VerMn			1B-Menu
+	bra	VerMnD			1C-Menu Del
+	bra	VerSmn			1D-Set Menu
+	bra	VerMnK			1E-Menu Key
+	bra	VerIMn			1F-Menu diverse
+	bra	VerFade			20-Fade
+	bra	VerSort			21-Sort
+	bra	VerSwap			22-Swap
+	bra	VerFol			23-Follow
+	bra	VerSetA			24-Set Accessory
+	bra	VerTrap			25-Trap
+	bra	VerStruI		26-Struc
+	bra	VerStruIS		27-Struc$
+	bra	Ver_Extension		28-Token d'extension
+	bra	Ver_NormalPro		29-Instruction AMOSPro
+	bra	Ver_DejaTesteePro	2A-Instruction AMOSPro deja testee
+	bra	Ver_VReservee		2B-Variable reservee
+	bra	Ver_VReserveePro	2C-Variable reservee AMOSPro
+	bra	Ver_DejaTestee		2D-Instruction normale deja testee
+	bra	VerD			2E-LIBRE
+	bra	VerD			2F-Fin de ligne
+	bra	V1_For			30-For
+	bra	V1_Next			31-Next
+	bra	V1_Repeat		32-Repeat
+	bra	V1_Until		33-Until
+	bra	V1_While		34-While
+	bra	V1_Wend			35-Wend
+	bra	V1_Do			36-Do
+	bra	V1_Loop			37-Loop
+	bra	V1_Exit			38-Exit
+	bra	V1_ExitI		39-Exit If
+	bra	V1_If			3A-If
+	bra	V1_Else			3B-Else
+	bra	V1_ElseIf		3C-ElseIf
+	bra	V1_EndI			3D-EndIf
+	bra	V1_Goto			3E-Goto
+	bra	V1_Gosub		3F-Gosub
+	bra	V1_OnError		40-OnError
+	bra	V1_OnBreak		41-OnBreak
+	bra	V1_OnMenu		42-OnMenu
+	bra	V1_On			43-On
+	bra	V1_Resume		44-Resume
+	bra	V1_ResLabel		45-ResLabel
+	bra	V1_PopProc		46-PopProc
+	bra	V1_Every		47-Every
+	bra	VerPr			48-LPrint
+	bra	VerInp			49-Line Input
+	bra	VerDInp			4A-Line Input #
+	bra	VerMid			4B-Mid3
+	bra	VerMid			4C-Mid2
+	bra	VerMid			4D-Left
+	bra	VerMid			4E-Right
+	bra	VerAdd			4F-Add
+	bra	Ver_NormalPro		50-Dialogues
+	bra	Ver_Normal		51-Dir
+	bra	VerSynt			52-Then
+	bra	Ver_Normal		53-Return
+	bra	Ver_Normal		54-Pop
+	bra	Ver_NormalPro		55-Procedure langage machine
+	bra	Ver_Normal		56-Bset/Bchg/Ror///
+	bra	VerSynt			57-APCmp Call
+
+	IFNE	Debug=2
+V1_Debug
+	move.b	#Reloc_Debug,d0		Dans relocation
+	bsr	New_Reloc
+	lea	V2_Debug(pc),a0		Dans TablA
+	move.w	#_TkDP,d0
+	moveq	#0,d1
+	moveq	#1<<VF_Debug,d2
+	bsr	Init_TablA
+	bra	VerDP
+V2_Debug
+	jsr	BugBug
+	rts
+	ENDC
+
+;	Une extension
+; ~~~~~~~~~~~~~~~~~~~
+Ver_Extension
+	bset	#0,VarBufFlg(a5)
+	move.b	(a6)+,d1		Numero de l'extension
+	ext.w	d1
+	move.l	a6,-(sp)		Position du nombre de params
+	tst.b	(a6)+
+	move.w	(a6)+,d0		Token de l'extension
+	lsl.w	#2,d1
+	lea	AdTokens(a5),a0
+	tst.l	0(a0,d1.w)		Extension definie?
+	beq	VerExN
+	move.l	0(a0,d1.w),a0
+	clr.w	-(sp)			Flag librairie 2.0 ou ancienne
+	btst	#LBF_20,LB_Flags(a0)	Librarie 2.0?
+	beq.s	.Skip
+	move.w	#-1,(sp)
+.Skip	move.l	a0,VerBase(a5)		Base de la librairie
+	bsr	Ver_OlDInst		Debut de la definition
+	cmp.b	#"I",d0			Une instruction
+	beq.s	.Inst
+	cmp.b	#"V",d0			Une variable reservee?
+	bne	VerSynt
+	bsr	VerVR
+	bra.s	.Poke
+.Inst	bsr	VerI			Verification
+.Poke	tst.w	(sp)+			Le flag
+	move.l	(sp)+,a0		Poke le nombre de params...
+	beq.s	.Old
+	move.b	#-1,(a0)		Nouvelle extension: pas de params!
+	bra	VerDP
+.Old	move.b	d0,(a0)			Ancienne extension: des params...
+	bra	VerDP
+
+; 	Variable reservee
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ver_VReserveePro
+	bsr	SetNot1.3		Si AMOSPro
+Ver_VReservee
+	bset	#0,VarBufFlg(a5)
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst
+	bsr	VerVR
+	bra	VerDP
+
+;	Routine de verification VARIABLE RESERVEE en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVR:	move.b	(a0)+,d2
+	move.w	d2,-(sp)
+	bsr	VerF
+	move.w	d0,-(sp)
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression
+	move.w	(sp)+,d0
+	move.w	(sp)+,d1
+	cmp.b	d1,d2
+	bne	VerType
+	rts
+
+; 	Instruction deja testee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_DejaTesteePro
+	bsr	SetNot1.3		Si AMOSPro
+Ver_DejaTestee
+	bset	#0,VarBufFlg(a5)
+	bsr	Ver_DInst
+	bsr	VerI_DejaTestee
+	bra	VerDP
+
+; 	Instruction normale
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_NormalPro
+	bsr	SetNot1.3		Si AMOSPro
+Ver_Normal
+	bset	#0,VarBufFlg(a5)
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst
+	bsr	VerI
+;	Veut un deux points apres l'instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDP:	move.l	a6,VerPos(a5)
+	move.w	(a6)+,d0
+	beq	VerD
+	cmp.w	#_TkDP,d0
+	beq	VerLoop
+	cmp.w	#_TkElse,d0
+	bne	VerSynt
+	subq.l	#2,a6
+	bra	VerLoop
+
+
+;	PASSE2: simple relecture du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerX:	addq.w	#1,Passe(a5)
+	move.b	#Reloc_End,d0
+	bsr	New_Reloc
+
+; Boucle de relocation des variables / labels / appel procedures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ver_Reloc(a5),a4
+	move.l	a4,Ver_CReloc(a5)
+	addq.l	#4,a4
+	move.l	Prg_Test(a5),a6
+.RReloc	moveq	#0,d6
+.Reloc	add.w	d6,a6
+	move.b	(a4)+,d6
+	lsl.b	#1,d6
+	bcc.s	.Reloc
+	jsr	.V2Jmp(pc,d6.w)
+	bra.s	.RReloc
+.V2Jmp	bra	V2_EndRel
+	bra	V2_StoVar
+	bra	V2_Long
+	bra	V2_NTable
+	bra	V2_CallProc1
+	bra	V2_CallProc2
+	bra	V2_CallProc3
+	bra	V2_CallProc4
+	IFNE	Debug=2
+	bra	V2_Debug		A
+	ENDC
+	IFEQ	Debug=2
+	rts
+	nop
+	ENDC
+; Find label
+; ~~~~~~~~~~
+	move.l	a6,VerPos(a5)		C
+	subq.l	#2,VerPos(a5)
+	bsr	V2_FindLabel
+	beq	VerUnd
+	rts
+; Nouvelle table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_NTable
+	move.l	Ver_CReloc(a5),a4
+	move.l	(a4),a4
+	move.l	a4,Ver_CReloc(a5)
+	addq.l	#4,a4
+	rts
+; Saut long dans relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_Long	moveq	#0,d6
+	move.b	(a4)+,d6
+	lsl.w	#8,d6
+	move.b	(a4)+,d6
+	add.l	d6,a6
+	rts
+
+; Fin de la relocation
+; ~~~~~~~~~~~~~~~~~~~~
+V2_EndRel
+	addq.l	#4,sp
+
+; Boucle d'appel des traitement de boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ver_TablA(a5),d0
+	beq.s	.TablX
+	addq.l	#4,d0
+.TablA	move.l	d0,a4
+	move.l	Vta_Jump(a4),d0
+	beq.s	.TablB
+	move.l	d0,a1
+	move.l	Vta_Prog(a4),a6
+	move.l	a6,VerPos(a5)
+	subq.l	#2,VerPos(a5)
+	move.l	a4,a0
+	jsr	(a1)
+.TablB	move.l	(a4),d0
+	bne.s	.TablA
+.TablX
+
+; 	Efface la relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Free_Reloc
+
+; 	Fin des deux passes, erreur retardee?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	ErrRet(a5),d0
+	beq.s	.Skip
+	move.l	ErrRAd(a5),VerPos(a5)
+	bra	VerErr
+.Skip	moveq	#0,d0			Ne pas reboucler...
+	rts
+
+******* MESSAGES D'ERREUR VERIFICATION
+* Loops crossing / ERREUR RETARDEE
+VerCrs:	move.l	a0,-(sp)
+	moveq	#1,d0			Bad Structure
+	bsr	ERetard
+	move.l	(sp)+,a0
+	rts
+ERetard:tst.l	ErrRet(a5)
+	bne.s	ERet1
+	move.l	d0,ErrRet(a5)
+	move.l	VerPos(a5),ErrRAd(a5)
+ERet1:	rts
+* User function
+VerNFn	moveq	#2,d0
+	bra	VerEr
+* Impossible to change buffer
+VerNoB	moveq	#3,d0
+	bra	VerEr
+* Datas en debut de ligne
+VerDaL:	moveq	#4,d0
+	bra	VerEr
+* Extension not present
+VerExN:	moveq	#5,d0
+	bra	VerEr
+* Too many direct variables
+VerVTo:	moveq	#6,d0
+	bra	VerEr
+* Illegal direct mode
+VerIlD:	moveq	#7,d0
+	bra.s	VerEr
+* Buffer variable too small
+VerVNm:	moveq	#8,d0
+	bra.s	VerEr
+* Goto dans une boucle
+VerPaGo:moveq	#9,d0
+	bra.s	VerEr
+* Structure too long
+VerLong:moveq	#10,d0
+	bra.s	VerEr
+* Shared
+VerShp:	moveq	#11,d0
+	bra.s	VerEr
+VerAlG:	moveq	#12,d0
+	bra.s	VerEr
+VerPaG:	moveq	#13,d0
+	bra.s	VerEr
+VerNoPa:moveq	#14,d0
+	bra.s	VerEr
+VerShal:moveq	#15,d0
+	bra.s	VerEr
+* Procedures
+VerPDb:	moveq	#16,d0
+	bra.s	VerEr
+VerPOp:	moveq	#17,d0
+	bra.s	VerEr
+VerPNo:	moveq	#18,d0
+	bra.s	VerEr
+VerPRTy:moveq	#18,d0
+	bra.s	VerEr
+VerIlP:	moveq	#19,d0
+	bra.s	VerEr
+VerUndP:moveq	#20,d0
+	bra.s	VerEr
+* Else without If
+VerElI:	moveq	#21,d0
+VerEr:	bra	VerErr
+VerIfE:	moveq	#22,d0
+	bra	VerErr
+VerEIf:	moveq	#23,d0
+	bra	VerErr
+VerElE:	moveq	#24,d0
+	bra	VerErr
+VerNoT:	moveq	#25,d0
+	bra	VerErr
+* Not enough loop
+VerNoL:	moveq	#26,d0
+	bra	VerErr
+* Do/Loop
+VerDoL:	moveq	#27,d0
+	bra	VerErr
+VerLDo:	moveq	#28,d0
+	bra.s	VerErr
+* While/Wend
+VerWWn:	moveq	#29,d0
+	bra.s	VerErr
+VerWnW:	moveq	#30,d0
+	bra.s	VerErr
+* Repeat/until
+VerRUn:	moveq	#31,d0
+	bra.s	VerErr
+VerUnR:	moveq	#32,d0
+	bra.s	VerErr
+* For/Next
+VerFoN:	moveq	#33,d0
+	bra.s	VerErr
+VerNFo:	moveq	#34,d0
+	bra.s	VerErr
+* Syntax
+VerSynt:moveq	#35,d0
+	bra.s	VerErr
+* Out of mem
+VerOut:	moveq	#36,d0
+	bra.s	VerErr
+* Out of variable name space
+VerNmO:	moveq	#37,d0
+	bra.s	VerErr
+* Non dimensionned
+VerNDim	moveq	#38,d0
+	bra.s	VerErr
+* Already dimensionned
+VerAlD:	moveq	#39,d0
+	bra.s	VerErr
+* Type mismatch
+VerType	moveq	#40,d0
+	bra.s	VerErr
+* Label not defined
+VerUnd:	moveq	#41,d0
+	bra.s	VerErr
+* Label defined twice
+VerLb2:	moveq	#42,d0
+
+
+; Traitement message d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerErr	move.l	d0,-(sp)
+; Remet les tokens
+; ~~~~~~~~~~~~~~~~
+	bsr	Ver_Run
+; Efface les buffers d'inclusion
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	VerPos(a5),a0
+	bsr	Includes_Adr
+	move.l	a0,VerPos(a5)
+	bsr	Includes_Clear
+; Efface les equates
+; ~~~~~~~~~~~~~~~~~~
+	jsr	D_Close
+; Efface les tables
+; ~~~~~~~~~~~~~~~~~
+	bsr	Free_VerTables
+; Plus de check1.3
+; ~~~~~~~~~~~~~~~~
+	clr.b	VerCheck1.3(a5)
+; Depile le programme
+; ~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_JError(a5),a2
+	bsr	Prg_Pull
+; Branche � l'appelant
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	(sp)+,d0
+	neg.l	d0				Message negatif= TEST
+	sub.l	a0,a0				Trouver le message
+	jmp	(a2)				On branche
+
+
+;	REM
+; ~~~~~~~~~
+VerRem	tst.w	Direct(a5)
+	bne	VerIlD
+	add.w	(a6)+,a6
+	addq.l	#2,a6
+	bra	VerD
+
+;	Token appel procedure, change en variable
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerPro	tst.w	Direct(a5)
+	bne	VerIlD
+;	Variable en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVar	bset	#0,VarBufFlg(a5)
+	bsr	V1_IVariable
+	bra	VerDP
+
+
+;	D�finition d'un label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerLab:	tst.w	Direct(a5)
+	bne	VerIlD
+	bset	#0,VarBufFlg(a5)
+	bsr	V1_StockLabel
+	cmp.w	#_TkData,(a6)
+	bne	VerLoop
+	addq.l	#2,a6
+	bra	VerData
+
+;	SET DOUBLE PRECISION
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDPre	bsr	SetNot1.3
+	btst	#0,VarBufFlg(a5)
+	bne.s	VVErr
+	bset	#1,VarBufFlg(a5)
+	bne.s	VVErr
+	move.b	#%10000011,MathFlags(a5)
+	bra	VerDP
+VVErr	moveq	#50,d0
+	bra	VerErr
+
+;	SET STACK n
+; ~~~~~~~~~~~~~~~~~
+VerSStack
+	tst.w	Direct(a5)
+	bne	VerIlD
+	btst	#0,VarBufFlg(a5)
+	bne.s	VVErr
+	bset	#3,VarBufFlg(a5)
+	bne.s	VVErr
+	cmp.w	#_TkEnt,(a6)+
+	bne	VerSynt
+	move.l	(a6)+,d1
+	cmp.w	#10,d1
+	bcc.s	.Ok
+	moveq	#10,d1
+.Ok	addq.w	#1,d1
+	move.w	d1,Stack_Size(a5)
+	bra	VerDP
+
+;	SET BUFFER n
+; ~~~~~~~~~~~~~~~~~~
+VerSBu	tst.w	Direct(a5)
+	bne	VerIlD
+	btst	#0,VarBufFlg(a5)
+	bne	VerNoB
+	cmp.w	#_TkEnt,(a6)+
+	bne	VerSynt
+	move.l	(a6)+,d1
+	mulu	#1024,d1
+	cmp.l	VarBufL(a5),d1
+	beq	VerDP
+; Change la taille / recommence
+	bset	#2,VarBufFlg(a5)
+	bne	VerNoB
+	bsr	ResVarBuf
+	moveq	#-1,d0
+	rts
+
+;	SET ACCESSORY
+; ~~~~~~~~~~~~~~~~~~~
+VerSetA	bsr	SetNot1.3
+	addq.b	#1,Prg_Accessory(a5)
+	bra	VerDP
+
+;	DIM
+; ~~~~~~~~~
+VerDim:	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)+		Veut une variable
+	bne	VerSynt
+	and.b	#%00001111,3(a6)	RAZ du flag!
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)		TABLEAU?
+	bne	VerSynt
+	bset	#6,3(a6)		Met le flag tableau!
+	move.b	3(a6),d3
+	bsr	V1_StoVar
+	beq	VerAlD
+	bsr	VerTablo		Verifie les params d'un tableau
+	move.b	d0,4(a1)		Stocke le nb de dimensions
+	cmp.w	#_TkVir,(a6)+		Une autre variable?
+	beq	VerDim
+	subq.l	#2,a6
+	bra	VerDP
+
+;	SORT
+; ~~~~~~~~~~
+VerSort	bset	#0,VarBufFlg(a5)
+	move.l	a6,-(sp)
+	bsr	VerGV
+	move.l	(sp)+,a0
+	btst	#6,5(a0)
+	bne	VerDP
+	bra	VerSynt
+
+;	SWAP
+; ~~~~~~~~~~
+VerSwap	bset	#0,VarBufFlg(a5)
+	bsr	VerGV
+	move.w	d2,-(sp)
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	VerGV
+	cmp.w	(sp)+,d2
+	beq	VerDP
+	bne	VerType
+
+;	DEF FN
+; ~~~~~~~~~~~~
+VerDFn	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#%00001111,3(a6)	Change le flag
+	bset	#3,3(a6)
+	bsr	VarA0			Adresse
+	move.w	d2,-(sp)
+	bsr	V1_StoVar		Stocke la variable
+	bsr	VDfnR			Recupere les parametres
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression		Evalue l'expression
+	move.w	(sp)+,d0		Verifie le type
+	cmp.b	d0,d2
+	bne	VerType
+	tst.w	(a6)			Seul sur la ligne
+	bne	VerDaL
+	bra	VerDP
+; Routinette---> Prend les variables!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VDfnR	cmp.w	#_TkPar1,(a6)
+	bne.s	.Exit
+	addq.l	#2,a6
+.Loop	bsr	VerGV
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Loop
+	cmp.w	#_TkPar2,-2(a6)
+	bne	VerSynt
+.Exit	rts
+
+;	Verification PRINT/LPRINT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDPr	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+VerPr:	bset	#0,VarBufFlg(a5)
+	move.w	(a6),d0
+	cmp.w	#_TkDieze,d0
+	bne.s	VerPr1
+	addq.l	#2,a6
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	beq	VerType
+	cmp.w	#_TkVir,(a6)
+	bne 	VerDP
+	addq.l	#2,a6
+VerPr1:	bsr	Finie
+	beq	VerDP
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkUsing,(a6)
+	bne.s	VerPr2
+	addq.l	#2,a6
+	bsr	Ver_ExpA
+	cmp.w	#_TkPVir,(a6)+
+	bne	VerSynt
+VerPr2	bsr	Ver_Expression
+	move.w	(a6)+,d0
+	cmp.w	#_TkVir,d0
+	beq.s	VerPr1
+	cmp.w	#_TkPVir,d0
+	beq.s	VerPr1
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification INPUT / LINE INPUT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDInp	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bra.s	VerIn1
+VerInp:	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)
+	beq.s	VerIn1
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	bne	VerType
+	cmp.w	#_TkPVir,(a6)+
+	bne	VerSynt
+VerIn1:	bsr	VerGV
+	cmp.w	#_TkVir,(a6)+
+	beq.s	VerIn1
+	cmp.w	#_TkPVir,-2(a6)
+	beq	VerDP
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification PALETTE / DEFAULT PALETTE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerFa1:	addq.l	#2,a6
+VerPal:	clr.w	d0
+VPal:	bset	#0,VarBufFlg(a5)
+	addq.w	#1,d0
+	move.w	d0,-(sp)
+	bsr	Ver_ExpE
+	move.w	(sp)+,d0
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	cmp.w	#32,d0
+	bcs.s	VPal
+	bra	VerDP
+
+;	Verification FADE
+; ~~~~~~~~~~~~~~~~~~~~~~~
+VerFade	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,d0
+	beq.s	VerFa1
+	cmp.w	#_TkTo,d0
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	bra	VerDP
+
+;					Verification instructions MENU
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+;	Instruction MENU$(,,)=
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerMn	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+; Chaines alphanumeriques
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#_TkVir,(a6)
+	beq.s	VerMn1
+	bsr	Ver_ExpA
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+VerMn1	addq.l	#2,a6
+	cmp.w	#_TkVir,(a6)
+	beq.s	VerMn2
+	bsr	Ver_ExpA
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+VerMn2	addq.l	#2,a6
+	cmp.w	#_TkVir,(a6)
+	beq.s	VerMn3
+	bsr	Ver_ExpA
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+VerMn3	addq.l	#2,a6
+	bsr	Ver_ExpA
+	bra	VerDP
+
+;	Instructions diverses flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerIMn	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkPar1,(a6)
+	beq.s	VIMn1
+	cmp.w	#_TkMnCl,(a6)
+	bcc	VerSynt
+	bsr	Ver_ExpE
+	bra	VerDP
+VIMn1	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	bra	VerDP
+
+;	Menu del
+; ~~~~~~~~~~~~~~
+VerMnD	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkPar1,(a6)
+	bne	VerDP
+	bra.s	VIMn1
+
+;	Set Menu
+; ~~~~~~~~~~~~~~
+VerSmn	bset	#0,VarBufFlg(a5)
+	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	cmp.w	#_TkTo,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+	bra	VerDP
+
+;	On menu
+; ~~~~~~~~~~~~~
+V1_OnMenu
+	move.w	(a6)+,d0
+	cmp.w	#_TkGto,d0
+	beq.s	.Goto
+	cmp.w	#_TkGsb,d0
+	beq.s	.Goto
+	cmp.w	#_TkPrc,d0
+	beq.s	.Proc
+	bra	VerSynt
+; Goto, prend le label
+; ~~~~~~~~~~~~~~~~~~~~
+.Goto	bsr	V1_GoLabel
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Goto
+	subq.l	#2,a6
+	bra	VerDP
+; Procedure
+; ~~~~~~~~~
+.Proc	bsr	V1_GoProcedureNoParam
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Proc
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Menu key
+; ~~~~~~~~~~~~~~
+VerMnK	bset	#0,VarBufFlg(a5)
+	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	cmp.w	#_TkTo,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_Evalue
+	cmp.b	#"2",d2
+	beq	VerDP
+	cmp.b	#"0",d2
+	bne	VerType
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	bra	VerDP
+
+;	Verification FOLLOW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+VerFol	bsr	Finie
+	beq	VerDP
+.Loop	bsr	Ver_Expression
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Loop
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification DATAS
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+VerData	bset	#0,VarBufFlg(a5)
+	move.l	a6,d0
+	sub.l	VDLigne(a5),d0
+	move.w	d0,(a6)
+.Loop	addq.l	#2,a6
+	bsr	Ver_Expression
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	bra	VerDP
+
+;	Verification READ
+; ~~~~~~~~~~~~~~~~~~~~~~~
+VerRead	bset	#0,VarBufFlg(a5)
+	bsr	VerGV
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bra.s	VerRead
+
+;	Verification RESTORE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerRest	bsr	Finie
+	beq	VerDP
+	bsr	V1_GoLabel
+	bra	VerDP
+
+;	Verification CHANNEL x TO SPRITE x
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerChan	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+	cmp.w	#_TkTo,(a6)+
+	bne	VerSynt
+	move.w	(a6)+,d0
+	cmp.w	#_TkScD,d0
+	beq.s	VerCh1
+	cmp.w	#_TkScO,d0
+	beq.s	VerCh1
+	cmp.w	#_TkScS,d0
+	beq.s	VerCh1
+	cmp.w	#_TkBob,d0
+	beq.s	VerCh1
+	cmp.w	#_TkSpr,d0
+	beq	VerCh1
+	cmp.w	#_TkRn,d0
+	beq.s	VerCh1
+	subq.l	#2,a6			* Channel to ADRESS!
+VerCh1:	bsr	Ver_ExpE
+	bra	VerDP
+
+;	Verification POLYLINE/POLYGON
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerPo	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkTo,(a6)
+	beq.s	VerPo1
+VerPo0	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+VerPo1	cmp.w	#_TkTo,(a6)+
+	beq.s	VerPo0
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification MID/LEFT/RIGHT en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerMid:	bset	#0,VarBufFlg(a5)
+	move.w	d0,-(sp)
+	move.l	a6,-(sp)
+	addq.b	#1,Ver_NoReloc(a5)
+	addq.l	#2,a6
+	bsr	VerVarA
+	subq.b	#1,Ver_NoReloc(a5)
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	move.l	(sp)+,a6
+	move.w	(sp)+,d0
+	move.l	AdTokens(a5),a0
+	move.l	a0,VerBase(a5)
+	bsr	Ver_OlDInst
+	bsr	VerF
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	bne 	VerType
+	bra	VerDP
+
+;	Verification INC/DEC
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerInc:	bset	#0,VarBufFlg(a5)
+	bsr	VerVEnt
+	bsr	VerGV
+	bra	VerDP
+
+;	Verification ADD
+; ~~~~~~~~~~~~~~~~~~~~~~
+VerAdd:	bset	#0,VarBufFlg(a5)
+	move.w	#_TkAd2,-2(a6)
+	move.l	a6,-(sp)
+	bsr	VerVEnt
+	bsr	VerGV
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)
+	bne	VerAdX
+; Plus de 2 parametres
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	(sp),a0
+	move.w	#_TkAd4,-2(a0)
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	cmp.w	#_TkTo,(a6)+
+	bne	VerAdX
+	bsr	Ver_ExpE
+VerAdX:	addq.l	#4,sp
+	bra	VerDP
+
+;	Verification FIELD
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+VerFld	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)
+	bne	VerSynt
+.Loop	addq.l	#2,a6
+	bsr	Ver_ExpE
+	cmp.w	#_TkAs,(a6)+
+	bne	VerSynt
+	bsr	VerVarA
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	bra	VerDP
+
+;	CALL
+; ~~~~~~~~~~
+VerCall	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+.Loop	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_Expression
+	bra.s	.Loop
+
+;	STRUCTURE en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerStruI
+	bset	#0,VarBufFlg(a5)
+	bsr	VStru
+	cmp.b	#7,d2
+	bcc	EquType
+	moveq	#"0",d2
+	bra.s	VStru2
+VerStruIS
+	bsr	VStru
+	cmp.b	#6,d2
+	bne	EquType
+	moveq	#"2",d2
+; Fin verification
+VStru2	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	move.w	d2,-(sp)
+	bsr	Ver_Expression
+	ext.w	d2
+	cmp.w	(sp)+,d2
+	bne	VerType
+	bra	VerDP
+; Routine verification
+VStru	move.l	a6,-(sp)
+	addq.l	#6,a6
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression
+	cmp.b	#"0",d2
+	bne	VerType
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	move.l	(sp)+,a1
+	lea	Equ_Nul(pc),a0
+	bsr	Equ_Verif
+	move.b	4(a1),d2
+	cmp.w	#_TkPar2,(a6)+
+	bne	VerSynt
+	rts
+EquType	moveq	#54,d0
+	bra	VerErr
+
+; Verification d'un Equate / Structure
+;	A0=	Header equate
+;	A1=	Debut des donnees
+;	A6=	Debut de la chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_Verif
+	bsr	SetNot1.3		AMOSPro!
+	btst	#7,5(a1)		Flag, equate correct?
+	bne	.Ok
+; Poke l'equate dans le buffer, � la suite du header
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a0-a2,-(sp)
+	move.l	a1,-(sp)
+	move.l	Buffer(a5),a2
+.Cop	move.b	(a0)+,(a2)+
+	bne.s	.Cop
+	subq.l	#1,a2
+	move.w	(a6),d0
+	cmp.w	#_TkCh1,d0
+	beq.s	.Ch
+	cmp.w	#_TkCh2,d0
+	bne	VerSynt
+.Ch	move.w	2(a6),d0
+	beq	VerSynt
+	cmp.w	#127,d0
+	bcc	VerSynt
+	move.w	d0,d2
+	move.l	a2,a1
+	lea	4(a6),a0
+	subq.w	#1,d0
+.Lop2	move.b	(a0)+,(a1)+
+	dbra	d0,.Lop2
+	move.b	#":",(a1)+
+	move.l	Buffer(a5),a2
+	move.l	a1,d2
+	sub.l	a2,d2
+; Va charger le fichier d'equates>>> A1/D1 positionnes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Equ_Load
+; Recherche dans le fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a1/d1/d2,-(sp)
+	moveq	#0,d4
+	JJsr	L_InstrFind		***
+	movem.l	(sp)+,a1/d1/d2
+	tst.l	d3
+	beq	.NoDef
+; Trouve: poke dans le listing
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	-1(a1,d3.l),a1
+.Fnd	cmp.b	#":",(a1)+		Trouve le debut
+	bne.s	.Fnd
+	clr.w	-(sp)
+	move.l	a1,a0
+	cmp.b	#"-",(a0)
+	bne.s	.Pam
+	addq.w	#1,(sp)
+	addq.l	#1,a0
+.Pam	moveq	#0,d0			Pas de signe!
+	JJsrR	L_ValRout,a1
+	bne.s	.Bad
+	cmp.w	#_TkFl,d1
+	beq.s	.Bad
+	cmp.w	#_TkDFl,d1
+	beq.s	.Bad
+	tst.w	(sp)+
+	beq.s	.Pamm
+	neg.l	d0
+.Pamm	move.l	(sp),a2
+	move.l	d0,(a2)
+	cmp.b	#",",(a0)+
+	bne.s	.Bad
+	move.b	(a0),d0
+	sub.b	#"0",d0
+	cmp.b	#7,d0
+	bhi.s	.Bad
+	move.b	d0,4(a2)
+	bset	#7,5(a2)
+	addq.l	#4,sp
+	movem.l	(sp)+,a0-a2
+; Saute la variable alphanumerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Ok	move.w	2(a6),d0
+	move.w	d0,d1
+	and.w	#1,d1
+	add.w	d1,d0
+	lea	4(a6,d0.w),a6
+	rts
+; Not defined!
+; ~~~~~~~~~~~~
+.NoDef	moveq	#51,d0
+	bra	VerErr
+; Bad equates file
+; ~~~~~~~~~~~~~~~~
+.Bad	moveq	#53,d0
+	bra	VerErr
+
+; Charge le fichier d'equates dans un buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_Load
+	movem.l	a0/d2/d3,-(sp)
+	tst.l	Equ_Base(a5)
+	bne	.Ok
+; Branche la routine de FLUSH equates
+	JLea	L_Equ_Free,a0
+	lea	Equ_FlushStructure(pc),a1
+	move.l	a0,(a1)
+	SyCall	AddFlushRoutine
+; Charge le fichier
+	moveq	#9,d0
+	JJsr	L_Sys_GetMessage
+	JJsrR	L_Sys_AddPath,a1
+	move.l	#1005,d2
+	jsr	D_Open
+	beq.s	.Err
+; Trouve la taille du fichier!
+	moveq	#0,d2
+	moveq	#1,d3
+	jsr	D_Seek
+	moveq	#0,d2
+	moveq	#-1,d3
+	jsr	D_Seek
+; Reserve la memoire
+	move.l	d0,d3
+	move.l	#Fast|Public,d1
+	lea	Equ_Base(a5),a0
+	bsr	A5_Reserve
+	beq.s	.Err
+; Charge le fichier
+	move.l	a0,d2
+	jsr	D_Read
+	bne.s	.Err
+; Ferme le fichier
+	jsr	D_Close
+; Retourne l'adresse et la longueur
+.Ok	move.l	Equ_Base(a5),a1
+	move.l	-4(a1),d1
+	movem.l	(sp)+,a0/d2/d3
+	rts
+; Erreur!
+.Err	jsr	D_Close
+	bsr	Equ_Free
+	moveq	#52,d0
+	bra	VerErr
+;	Structure FLUSH pour les equates
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_FlushStructure
+	dc.l	0
+; 	Libere le fichier d'equates (ne pas bouger!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_Free
+	lea	Equ_Base(a5),a0
+	bsr	A5_Free
+	rts
+
+; Routine, veut une variable numerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVEnt	move.l	a6,-(sp)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	bsr	VarA0
+	tst.b	d0
+	bne	VerType
+	move.l	(sp)+,a6
+	rts
+
+; Routine, veut une variable seule alphanumerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVarA:bsr	VerGV
+	cmp.b	#"2",d2
+	bne	VerType
+	rts
+
+; RouRoutine, veut une variable, SEULE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerGV:	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#%00001111,3(a6)	RAZ du flag!
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)		TABLEAU?
+	bne.s	VGv1
+	bset	#6,3(a6)		Met le flag tableau!
+	move.b	3(a6),d3
+	bsr	V1_StoVar		Le tableau doit etre cree avant
+	bne	VerNDim
+	bsr	VerTablo		Verifie les params d'un tableau
+	bra.s	VGv2
+VGv1:	bsr	V1_StoVar
+VGv2:	rts
+
+
+
+;					Verification des procedures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; 	Instruction Proc
+; ~~~~~~~~~~~~~~~~~~~~~~
+V1_OnBreak
+V1_Proc	tst.w	Direct(a5)
+	bne	VerIlD
+	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)		Un variable?
+	beq.s	.Skip
+	cmp.w	#_TkPro,(a6)		Un procedure
+	bne	VerSynt
+.Skip	move.l	a6,-(sp)
+	addq.l	#2,a6
+	bsr	V1_IVariable
+	move.l	(sp)+,a0
+	cmp.w	#_TkPro,(a0)
+	bne	VerUndP
+	bra	VerDP
+
+;	Debut de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+V1_Procedure
+	bset	#0,VarBufFlg(a5)
+	subq.l	#2,a6
+	tst.w	Direct(a5)
+	bne	VerIlD
+	tst.w	Phase(a5)
+	bne	V1_ProcedureIn
+
+; PHASE 0: Stocke et saute le nom et les params
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	subq.l	#1,VerNInst(a5)		Retabli le compte...
+	btst	#6,8(a6)		Decoder la procedure?
+	beq.s	.Skip0
+	btst	#5,8(a6)
+	beq.s	.Skip0
+	bsr	ProCode
+.Skip0	sub.l	a0,a0
+
+	move.w	#_TkProc,d0
+	moveq	#4,d1
+	moveq	#1<<VF_Proc,d2
+	bsr	Init_TablA
+
+	move.l	a6,-(sp)
+	move.l	a0,-(sp)
+
+	lea	10(a6),a6
+	cmp.w	#_TkVar,(a6)+		Stocke dans les labels
+	bne	VerSynt
+	and.b	#$0F,3(a6)
+	or.b	#$80,3(a6)
+	bsr	V1_StockLabel
+	move.l	4(sp),4(a2)		Pointe le DEBUT de la procedure!
+	cmp.w	#_TkBra1,(a6)
+	bne.s	.NoPar
+
+.Par	addq.l	#2,a6
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#$0F,3(a6)
+	move.b	2(a6),d0
+	ext.w	d0
+	lea	4(a6,d0.w),a6
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Par
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a6)+
+	bne	VerSynt
+
+.NoPar	move.l	a6,VerPos(a5)
+	move.w	(a6),d0
+	bne	VerPDb
+	addq.l	#2,a6
+; Saute une procedure COMPILED/LANGAGE MACHINE
+	move.l	4(sp),a0
+	btst	#4,8(a0)		Langage machine?
+	beq.s	.EPLoop
+	cmp.w	#_TkAPCmp,2(a6)		Une procedure compilee AMOSPro?
+	bne.s	.Noap
+	move.l	a0,-(sp)
+	lea	2(a6),a0		Va reloger
+	bsr	Ver_APCmp
+	bsr	SetNot1.3
+	move.l	(sp)+,a0
+.Noap	move.l	2(a0),d0		Et saute la procedure
+	lea	12(a0,d0.l),a6
+	bra.s	.Comp
+; Cherhe le ENDPROC
+	moveq	#0,d0
+.EPLoop	move.b	(a6),d0
+	beq	VerPOp
+	move.w	2(a6),d1
+	cmp.w	#_TkEndP,d1
+	beq.s	.EndP
+	cmp.w	#_TkSha,d1
+	beq.s	.Shared
+	cmp.w	#_TkGlo,d1
+	beq.s	.Shared
+.Resha	add.w	d0,a6
+	add.w	d0,a6
+	bra.s	.EPLoop
+; Traite les variables shared
+.Shared	movem.l	d0/a6,-(sp)		Appel de shared / Global
+	addq.l	#2,a6
+	bsr	VpSha
+	movem.l	(sp)+,d0/a6
+	bra.s	.Resha
+; END PROC trouve, prend la ligne suivante
+.EndP	add.w	d0,a6			Pointe la ligne suivante
+	add.w	d0,a6
+.Comp	subq.l	#2,a6			Zero de la ligne precedente
+	move.l	(sp)+,a0		TablA
+	move.l	(sp)+,a1		Debut procedure
+	move.l	a6,Vta_Variable(a0)
+	move.l	a6,a0
+	sub.l	a1,a0			Poke la distance au END PROC
+	lea	-10(a0),a0
+	move.l	a0,2(a1)
+; Termine
+	addq.w	#2,a6
+	bra	VerD
+
+;	Procedure compilee: reloge le programme
+;	A0= Instruction ||APCmp||
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_APCmp
+	movem.l	a0-a6/d0-d7,-(sp)
+	lea	2(a0),a6
+	move.w	APrg_MathFlags(a6),d0	Prend les flags mathematiques
+	or.b	d0,MathFlags(a5)
+	lsr.w	#8,d0			Et le flag accessory...
+	move.b	d0,Prg_Accessory(a5)
+	lea	APrg_Relocation(a6),a1	Table de relocation
+	add.l	(a1),a1
+	lea	APrg_Program(a6),a2	Pointe le programme
+	move.l	a2,d1
+	sub.l	APrg_OldReloc(a6),d1	Ancienne relocation
+	beq.s	.RFin			Deja reloge!
+	move.l	a2,APrg_OldReloc(a6)
+.RLoop	moveq	#0,d0
+	move.b	(a1)+,d0
+	beq.s	.RFin
+	cmp.b	#1,d0
+	bne.s	.RReloc
+	lea	508(a2),a2
+	bra.s	.RLoop
+.RReloc	lsl.w	#1,d0
+	add.l	d0,a2
+	move.l	(a2),d0
+	add.l	d1,(a2)
+	bra.s	.RLoop
+.RFin	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+;	Procedure PHASE >0, Passe 1, stocke les variables!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_ProcedureIn
+	btst	#4,8(a6)		Procedure Machine?
+	bne.s	.PMach
+	lea	12(a6),a6
+	move.b	2(a6),d0
+	ext.w	d0
+	lea	4(a6,d0.w),a6
+	cmp.w	#_TkBra1,(a6)		Pointe les parametres
+	bne	VerDP
+.Loop	addq.l	#4,a6
+	bsr	V1_StoVar
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	addq.l	#2,a6
+	bra	VerDP
+.PMach	move.w	6(a6),VarLong(a5)	Recopie le nombre de params
+	bra	VerX			Et on sort!
+
+;	END PROC [expression]
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_EndProc
+	tst.w	Direct(a5)
+	bne	VerIlD
+	tst.w	Phase(a5)
+	beq	VerPNo
+	cmp.w	#_TkBra1,(a6)+
+	bne.s	.Skip
+	bsr	Ver_Expression
+.Skip	bra	VerX
+
+
+
+;			Verification des test, boucles et branchements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; Flags pour table-A
+VF_Boucles	equ	0
+VF_If		equ	1
+VF_Proc		equ	2
+VF_Exit		equ	3
+VF_Goto		equ	4
+VF_Debug	equ	5
+
+; 	FOR / Passe 1
+; ~~~~~~~~~~~~~~~~~~~
+V1_For	addq.w	#1,Ver_NBoucles(a5)	Une boucle de plus
+	add.w	#TForNxt,Ver_PBoucles(a5)
+	lea	V2_For(pc),a0
+	moveq	#2,d1
+	bsr	Init_TablABoucle
+; Verification
+	clr.w	(a6)+
+	movem.l	a0/a6,-(sp)
+	bsr	VerGV			La variable
+	movem.l	(sp)+,a0/a1
+	move.w	2(a1),Vta_Variable(a0)	Stocke l'offset de la variable
+	cmp.b	#"0",d2
+	bne	VerType
+	move.w	d2,-(sp)		Verifie la suite
+	cmp.w	#_TkEg,(a6)+		=
+	bne	VerSynt
+	bsr	Ver_Expression		Expression
+	cmp.b	1(sp),d2		Meme type
+	bne	VerType
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkTo,(a6)+		To
+	bne	VerSynt
+	bsr	Ver_Expression		Expression
+	cmp.b	1(sp),d2		Meme type
+	bne	VerType
+	cmp.w	#_TkStp,(a6)		Step?
+	bne.s	.Skip
+	addq.l	#2,a6
+	bsr	Ver_Expression		Expression
+	cmp.b	1(sp),d2		Meme type
+	bne	VerType
+.Skip	addq.l	#2,sp			OK!
+	bra	VerDP
+;	FOR / Passe 2 : cherche le NEXT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_For	move.l	a0,a1
+	move.w	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkNxt,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerFoN			For without Next
+	tst.b	Vta_UFlag(a0)		Une variable dans le NEXT?
+	beq.s	.Skip
+	move.w	Vta_Variable+4(a0),d0	La meme?
+	cmp.w	Vta_Variable(a1),d0
+	bne	VerFoN
+.Skip	clr.l	Vta_Jump(a0)		NEXT pris en compte
+; Doke la distance au NEXT dans le FOR
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	NEXT / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~
+V1_Next
+	subq.w	#1,Ver_NBoucles(a5)		Une boucle de moins
+	sub.w	#TForNxt,Ver_PBoucles(a5)
+	lea	VerNFo(pc),a0			Next without For
+	move.w	#6,d1
+	bsr	Init_TablABoucle
+; Verification
+	move.l	a0,-(sp)
+	bsr	Finie				Une variable?
+	beq.s	.Skip
+	movem.l	a0/a6,-(sp)
+	bsr	VerGV
+	movem.l	(sp)+,a0/a1
+	move.w	2(a1),Vta_Variable+4(a0)	Stocke pointeur variable
+	addq.b	#1,Vta_UFlag(a0)		Flag pour For / Passe2
+.Skip	move.l	(sp)+,a0
+	bsr	Find_End			Trouve la fin du NEXT
+	move.l	d0,Vta_Variable(a0)		Pour le for passe 2
+	bra	VerDP
+
+;	REPEAT / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~
+V1_Repeat
+	addq.w	#1,Ver_NBoucles(a5)	Une boucle de plus
+	add.w	#TRptUnt,Ver_PBoucles(a5)
+	lea	V2_Repeat(pc),a0
+	moveq	#0,d1
+	bsr	Init_TablABoucle
+	clr.w	(a6)+
+	bra	VerDP
+;	REPEAT / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~
+V2_Repeat
+	move.l	a0,a1
+	move.w	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkUnt,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerRUn			Repeat without Until
+	clr.l	Vta_Jump(a0)		Until pris en compte
+; Doke la distance au NEXT dans le FOR
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	UNTIL / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~~
+V1_Until
+	subq.w	#1,Ver_NBoucles(a5)		Une boucle de moins
+	sub.w	#TRptUnt,Ver_PBoucles(a5)
+	lea	VerUnR(pc),a0
+	moveq	#4,d1
+	bsr	Init_TablABoucle
+; Verification / Poke l'adresse de fin
+	move.l	a0,-(sp)
+	bsr	Ver_Expression
+	bsr	Find_End
+	move.l	(sp)+,a0
+	move.l	d0,Vta_Variable(a0)
+	bra	VerDP
+
+;	WHILE / Passe1
+; ~~~~~~~~~~~~~~~~~~~~
+V1_While
+	addq.w	#1,Ver_NBoucles(a5)	Une boucle de plus
+	add.w	#TWhlWnd,Ver_PBoucles(a5)
+	lea	V2_While(pc),a0
+	moveq	#0,d1
+	bsr	Init_TablABoucle
+	clr.w	(a6)+
+	bsr	Ver_Expression
+	bra	VerDP
+;	WHILE / Passe2
+; ~~~~~~~~~~~~~~~~~~~~
+V2_While
+	move.l	a0,a1
+	move.w	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkWnd,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerWWn			Repeat without Until
+	clr.l	Vta_Jump(a0)		Wend pris en compte
+; Doke la distance au NEXT dans le FOR
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	WEND / Passe1
+; ~~~~~~~~~~~~~~~~~~~
+V1_Wend
+	subq.w	#1,Ver_NBoucles(a5)	Une boucle de moins
+	sub.w	#TWhlWnd,Ver_PBoucles(a5)
+	lea	VerWnW(pc),a0
+	moveq	#4,d1
+	bsr	Init_TablABoucle
+; Verification / Poke l'adresse de fin
+	bsr	Find_End
+	move.l	d0,Vta_Variable(a0)
+	bra	VerDP
+
+
+;	 DO / Passe1
+; ~~~~~~~~~~~~~~~~~~
+V1_Do	addq.w	#1,Ver_NBoucles(a5)		Une boucle de moins
+	add.w	#TDoLoop,Ver_PBoucles(a5)
+	lea	V2_Do(pc),a0
+	moveq	#0,d1
+	bsr	Init_TablABoucle
+	clr.w	(a6)+
+	bra	VerDP
+;	DO / Passe2
+; ~~~~~~~~~~~~~~~~~
+V2_Do	move.l	a0,a1
+	move.b	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkLoo,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerDoL			Repeat without Until
+; Doke la distance au NEXT dans le FOR
+	clr.l	Vta_Jump(a0)		Loop pris en compte
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	LOOP / Passe1
+; ~~~~~~~~~~~~~~~~~~~
+V1_Loop
+	subq.w	#1,Ver_NBoucles(a5)	Une boucle de moins
+	sub.w	#TDoLoop,Ver_PBoucles(a5)
+	lea	VerLDo(pc),a0
+	moveq	#4,d1
+	bsr	Init_TablABoucle
+; Verification / Poke l'adresse de fin
+	bsr	Find_End
+	move.l	d0,Vta_Variable(a0)
+	bra	VerDP
+
+;	EXIT / Passe1
+; ~~~~~~~~~~~~~~~~~~~
+V1_Exit
+	lea	V2_Exit(pc),a0
+	moveq	#4,d1
+	moveq	#1<<VF_Exit,d2
+	bsr	Init_TablA
+	clr.l	(a6)+
+	move.l	#1,Vta_Variable(a0)
+	cmp.w	#_TkEnt,(a6)
+	bne	VerDP
+	move.l	2(a6),Vta_Variable(a0)
+	addq.l	#6,a6
+	bra	VerDP
+;	EXIT / Passe2
+; ~~~~~~~~~~~~~~~~~~~
+V2_ExitI
+V2_Exit	move.l	a0,a1
+	move.l	a6,a2
+	move.l	Vta_Variable(a1),d3
+	move.b	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	sub.w	d3,d1
+	bmi	VerNoL			Not enough loops
+	moveq	#-1,d2			Pas de token
+	bsr	Find_TablA
+	beq	VerNoL			Not enough loops
+; Loke dans le source
+	move.l	Vta_Variable(a0),d0
+	sub.l	a2,d0
+	subq.l	#4,d0
+	cmp.l	#$10000,d0
+	bcc	VerSynt
+	move.w	Vta_PBoucles(a1),d1
+	sub.w	Vta_PBoucles(a0),d1
+	move.w	d0,(a2)+		Distance a la fin
+	move.w	d1,(a2)+		Decalage de la pile
+	rts
+
+;	EXIT IF / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~~
+V1_ExitI
+	lea	V2_ExitI(pc),a0
+	moveq	#4,d1
+	moveq	#1<<VF_Exit,d2
+	bsr	Init_TablA
+	move.l	a0,-(sp)
+	clr.l	(a6)+
+	bsr	Ver_ExpE
+	move.l	(sp)+,a0
+	move.l	#1,Vta_Variable(a0)
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	cmp.w	#_TkEnt,2(a6)
+	bne	VerSynt
+	move.l	4(a6),Vta_Variable(a0)
+	addq.l	#8,a6
+	bra	VerDP
+
+; 	IF Passe 1
+; ~~~~~~~~~~~~~~~~
+V1_If	lea	V2_If(pc),a0
+	moveq	#8,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	clr.w	(a6)+
+	move.l	a6,Vta_Variable(a0)
+	move.l	VDLigne(a5),Vta_Variable+4(a0)
+; Verification
+	move.l	a0,-(sp)
+	bsr	Ver_ExpE
+	move.l	(sp)+,a0
+	cmp.w	#_TkThen,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	move.l	a6,Vta_Variable(a0)
+	move.b	#1,Vta_UFlag(a0)
+	lea	V2_IfThen(pc),a1
+	move.l	a1,Vta_Jump(a0)
+	cmp.w	#_TkLGo,(a6)
+	bne	VerLoop
+	bsr	V1_SautLGoto
+	bra	VerDP
+
+; 	If non structure / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_IfThen
+	move.l	a0,a1
+; Cherche sur la meme ligne
+	move.l	Vta_Variable+4(a1),d1
+	moveq	#1,d2
+.Loop	tst.l	(a0)
+	beq.s	.NextL
+	move.l	(a0),a0
+	cmp.b	#1<<VF_If,Vta_Flag(a0)
+	bne.s	.Loop
+	cmp.l	Vta_Variable+4(a0),d1		Sur la meme ligne
+	bne.s	.NextL
+	cmp.w	#_TkElse,Vta_Token(a0)	Else?
+	beq.s	.Moins
+	cmp.w	#_TkIf,Vta_Token(a0)		If
+	bne.s	.Loop
+	addq.w	#1,d2
+	bra.s	.Loop
+.Moins	subq.w	#1,d2
+	bne.s	.Loop
+	lea	V2_ElseThen(pc),a2	Traitement du ELSE
+	move.l	a2,Vta_Jump(a0)
+	move.l	Vta_Variable(a0),d0
+	moveq	#0,d2
+	bra.s	V2_IfThenLabel
+.NextL	move.l	Vta_Variable+4(a1),a6	Pointe la fin ligne
+	moveq	#0,d0
+	move.b	(a6),d0
+	add.w	d0,a6
+	lea	-2(a6,d0.w),a6
+	move.l	a6,d0
+	moveq	#0,d2
+; Verifie le label goto apres le then
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_IfThenLabel
+	move.l	a1,-(sp)
+	bsr	V2_IfDoke
+	move.l	(sp),a0
+	move.l	Vta_Variable(a0),a6
+	cmp.w	#_TkLGo,(a6)+
+	bne.s	.Fin
+	bsr	V2_FindLabel
+	beq	VerUnd
+	move.l	(sp),a0
+	bsr	Goto_Loops
+.Fin	addq.l	#4,sp
+	rts
+
+
+; 	If structure / Passe 2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_If	move.l	a0,a1
+	move.w	#_TkElse,d1		Tokens a trouver
+	move.w	#_TkElsI,d2
+	move.w	#_TkEndI,d3
+	bsr	Find_TablATest		Va chercher
+	beq	VerIfE			If without EndIf
+	move.w	Vta_Token(a0),d0	Trouve le traitement de la passe 2
+	move.l	Vta_Variable(a0),a6	Adresse de saut
+	cmp.w	d0,d1			Else ?
+	beq.s	.j1
+	cmp.w	d0,d2			Else If ?
+	beq.s	.j2
+	bsr	Find_End
+	sub.l	a2,a2			End If >>> Rien!
+	moveq	#0,d2
+	bra.s	.j0
+.j2	lea	V2_ElsI(pc),a2
+	moveq	#1,d2
+	move.l	a6,d0
+	bra.s	.j0
+.j1	lea	V2_Else(pc),a2
+	moveq	#0,d2
+	move.l	a6,d0
+.j0	move.l	a2,Vta_Jump(a0)
+; Doke dans le source, en tenant compte des boucles...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_IfDoke
+	exg	a0,a1
+	move.l	Vta_Prog(a0),a6
+	bsr	Goto_Loops		Verifie la validite du saut
+	sub.l	a6,d0
+	subq.l	#2,d0
+	cmp.l	#$10000,d0
+	bcc	VerLong
+	tst.w	d2
+	beq.s	.Skip
+	bset	#0,d0
+.Skip	move.w	d0,(a6)+
+	rts
+
+; 	ELSE IF / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~~~~
+V1_ElseIf
+	lea	VerElI(pc),a0		Else without If
+	moveq	#4,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	clr.w	(a6)+
+	move.l	a6,Vta_Variable(a0)	Adresse apres endif
+	bsr	Ver_ExpE		Cherche l'expression
+	bra	VerDP
+; 	ELSE IF / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~~
+V2_ElsI	move.l	a0,a1
+.Loop	move.w	#_TkElse,d1		Tokens a trouver
+	move.w	#_TkElsI,d2
+	move.w	#_TkEndI,d3
+	bsr	Find_TablATest		Va chercher
+	beq	VerElI			Else without Endif
+	move.w	Vta_Token(a0),d0	Trouve le traitement de la passe 2
+	move.l	Vta_Variable(a0),a6	Adresse de saut
+	cmp.w	d0,d1			Else ?
+	beq.s	.j1
+	cmp.w	d0,d2			Else If ?
+	beq.s	.j2
+	bsr	Find_End
+	sub.l	a2,a2			End If >>> Rien!
+	moveq	#0,d2
+	bra.s	.j0
+.j2	lea	V2_ElsI(pc),a2
+	moveq	#1,d2
+	move.l	a6,d0
+	bra.s	.j0
+.j1	lea	V2_Else(pc),a2
+	moveq	#0,d2
+	move.l	a6,d0
+.j0	move.l	a2,Vta_Jump(a0)
+	bra	V2_IfDoke
+
+; 	ELSE Passe 1
+; ~~~~~~~~~~~~~~~~~~
+V1_Else	lea	VerElI(pc),a0		Else without If
+	moveq	#8,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	clr.w	(a6)+
+	move.l	a6,Vta_Variable(a0)	Adresse apres endif
+	move.l	VDLigne(a5),Vta_Variable+4(a0)
+; Verification
+	cmp.w	#_TkDP,(a6)
+	beq	VerDP
+	cmp.w	#_TkLGo,(a6)
+	bne	VerLoop
+	bsr	V1_SautLGoto
+	bra	VerDP
+; 	ELSE non structure, passe2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_ElseThen
+	move.l	a0,a1
+	move.l	Vta_Variable+4(a1),a6	Pointe la fin ligne
+	moveq	#0,d0
+	move.b	(a6),d0
+	add.w	d0,a6
+	lea	-2(a6,d0.w),a6
+	move.l	a6,d0
+	moveq	#0,d2
+	bra	V2_IfThenLabel
+; 	ELSE structure / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_Else	move.l	a0,a1
+.Loop	moveq	#-1,d1			Tokens a trouver
+	moveq	#-1,d2
+	move.w	#_TkEndI,d3
+	bsr	Find_TablATest		Va chercher
+	beq	VerEIf			ENDIF without IF
+	clr.l	Vta_Jump(a0)		Endif detecte >>> Pas d'erreur
+	move.l	Vta_Variable(a0),a6	Adresse de saut
+	bsr	Find_End
+	moveq	#0,d2
+	bra	V2_IfDoke
+
+; 	ENDIF Passe 1
+; ~~~~~~~~~~~~~~~~~~~
+V1_EndI	lea	VerEIf(pc),a0		EndIf without If
+	moveq	#4,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	move.l	a6,Vta_Variable(a0)
+	bra	VerDP
+
+;	Gosub
+; ~~~~~~~~~~~
+V1_Gosub
+	bsr	V1_GoLabel
+	bra	VerDP
+
+; 	Goto / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~
+V1_Goto	moveq	#0,d1
+	move.b	#1<<VF_Goto,d2
+	lea	V2_Goto(pc),a0
+	bsr	Init_TablA
+	bsr	V1_GoLabel
+	bra	VerDP
+;	Goto / Passe 2
+; ~~~~~~~~~~~~~~~~~~~~
+V2_Goto	move.l	a0,-(sp)
+	bsr	V2_GoLabel
+	move.l	(sp)+,a0
+	beq.s	.Skip
+	bsr	Goto_Loops
+.Skip	rts
+
+;	On XX Goto / Gosub / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_On	move.l	a6,-(sp)
+	clr.l	(a6)+
+	bsr	Ver_ExpE
+	move.w	(a6)+,d0
+	cmp.w	#_TkGto,d0
+	beq.s	.Goto
+	cmp.w	#_TkGsb,d0
+	beq.s	.Gosub
+	cmp.w	#_TkPrc,d0
+	bne	VerSynt
+; Des procedures
+; ~~~~~~~~~~~~~~
+	clr.w	-(sp)
+.Pro1	addq.w	#1,(sp)
+	bsr	V1_GoProcedureNoParam
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Pro1
+	bra.s	.Poke
+; Des Goto
+; ~~~~~~~~
+.Goto	move.w	#_TkOn,d0
+	moveq	#0,d1
+	move.b	#1<<VF_Goto,d2
+	lea	V2_OnGoto(pc),a0
+	bsr	Init_TablA
+.Gosub	clr.w	-(sp)
+.Gto1	addq.w	#1,(sp)
+	bsr	V1_GoLabel
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Gto1
+; Poke le nombre dans le source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Poke	subq.l	#2,a6
+	move.w	(sp)+,d0
+	move.l	(sp)+,a0
+	move.w	d0,2(a0)		Poke le nombre de labels
+ 	move.l	a6,d0
+	sub.l	a0,d0
+	subq.l	#4,d0
+	move.w	d0,(a0)			Poke la longueur de l'instruction
+	bra	VerDP
+
+;	On xx GOTO verifie les branchements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_OnGoto
+	bsr	V2_Goto
+	cmp.w	#_TkVir,(a6)+
+	beq.s	V2_OnGoto
+	rts
+
+;	On Error / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~~~
+V1_OnError
+	cmp.w	#_TkPrc,(a6)
+	beq	VerLoop
+	cmp.w	#_TkGto,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bra	V1_Goto
+
+; 	Resume / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~
+V1_Resume
+	bsr	Finie
+	beq	VerDP
+	bra	V1_Goto
+;	Resume Label
+; ~~~~~~~~~~~~~~~~~~
+V1_ResLabel
+	bsr	Finie
+	beq	VerDP
+	bsr	V1_GoLabel
+	bra	VerDP
+
+;	AMOSPro: TRAP, veut une instruction juste apr�s!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerTrap	bsr	SetNot1.3		Non compatible!
+	bsr	Finie
+	bne	VerLoop
+	moveq	#43,d0			Must be followed by an inst
+	bra	VerErr
+
+;	POP PROC
+; ~~~~~~~~~~~~~~
+V1_PopProc
+	tst.w	Phase(a5)
+	beq	VerPNo
+	cmp.w	#_TkBra1,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_Expression
+	cmp.w	#_TkBra2,(a6)+
+	beq	VerDP
+	bra	VerSynt
+
+;	EVERY n PROC / GOSUB
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_Every
+	bsr	Ver_ExpE
+	move.w	(a6)+,d0
+	cmp.w	#_TkGsb,d0
+	beq.s	.Skip
+	cmp.w	#_TkPrc,d0
+	bne	VerSynt
+	bsr	V1_GoProcedureNoParam	Une procedure
+	bra	VerDP
+.Skip	bsr	V1_GoLabel		Gosub
+	bra	VerDP
+
+		RSRESET
+Vta_Next	rs.l	1		0
+Vta_Prev	rs.l	1		4
+Vta_Token	rs.w	1		8
+Vta_Flag	rs.b	1		10
+Vta_UFlag	rs.b	1		11
+Vta_Prog	rs.l	1		12
+Vta_NBoucles	rs.w	1		16
+Vta_PBoucles	rs.w	1		18
+Vta_Jump	rs.l	1		20
+Vta_Variable	equ	__RS		24
+
+;	Initialisation generale de la table des boucles
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reserve_TablA
+	bsr	Free_TablA
+	lea	Ver_TablA(a5),a0
+	move.l	a0,Ver_CTablA(a5)
+	clr.l	Ver_PTablA(a5)
+	clr.l	Ver_PrevTablA(a5)
+	rts
+;	Efface les buffers de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_TablA
+	move.l	Ver_TablA(a5),d2
+	beq.s	.Out
+.Loop	move.l	d2,a1
+	move.l	(a1),d2
+	move.l	#TablA_Step,d0
+	SyCall	MemFree
+	tst.l	d2
+	bne.s	.Loop
+.Out	clr.l	Ver_TablA(a5)
+	clr.l	Ver_FTablA(a5)
+	rts
+; 	Nouveau buffer de table
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+New_TablA
+	movem.l	a1/d0/d1,-(sp)
+	move.l	#TablA_Step,d0
+	SyCall	MemFast
+	beq	VerOut
+	move.l	Ver_CTablA(a5),a1
+	move.l	a0,(a1)
+	move.l	a0,Ver_CTablA(a5)
+	clr.l	(a0)+
+	move.l	a0,Ver_PTablA(a5)
+	lea	TablA_Step-8(a0),a1
+	move.l	a1,Ver_FTablA(a5)
+	movem.l	(sp)+,a1/d0/d1
+	rts
+
+; 	Creation d'une entree TablA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Init_TablABoucle
+	moveq	#1<<VF_Boucles,d2
+Init_TablA
+	bset	#0,VarBufFlg(a5)
+	move.l	a0,-(sp)
+	move.l	Ver_PTablA(a5),a0
+	lea	Vta_Variable(a0,d1.w),a1
+	cmp.l	Ver_FTablA(a5),a1			Sorti de la table?
+	bcs.s	.Ok
+	bsr	New_TablA
+	lea	Vta_Variable(a0,d1.w),a1
+
+.Ok	move.l	a1,Ver_PTablA(a5)			Suivant
+	clr.l	Vta_Next(a0)
+	clr.l	Vta_Prev(a0)
+	move.w	d0,Vta_Token(a0)			Token
+	move.b	d2,Vta_Flag(a0)		  		Flag
+	clr.b	Vta_UFlag(a0)				User-Flag
+	move.l	a6,Vta_Prog(a0)				Position programme
+	move.w	Ver_NBoucles(a5),Vta_NBoucles(a0)	Position pile
+	move.w	Ver_PBoucles(a5),Vta_PBoucles(a0)	Position pile
+	move.l	(sp)+,Vta_Jump(a0)			Jump Passe2
+
+	move.l	Ver_PrevTablA(a5),d0			Branche au precedent
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	a0,Vta_Next(a1)
+	move.l	a1,Vta_Prev(a0)
+.Skip	move.l	a0,Ver_PrevTablA(a5)
+	rts
+
+;	Trouve une boucle / structure apres (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Find_TablA
+	tst.l	(a0)
+	beq.s	.Not
+	move.l	(a0),a0
+	cmp.w	Vta_NBoucles(a0),d1	Bonne pile?
+	bne.s	Find_TablA
+	cmp.b	Vta_Flag(a0),d0		Bon flag?
+	bne.s	Find_TablA
+	tst.w	d2			Bon token?
+	bmi.s	.Skip
+	cmp.w	Vta_Token(a0),d2
+	bne.s	Find_TablA
+.Skip	move.w	Vta_Token(a0),d0
+.Not	rts
+
+;	Trouve un test structure apres (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Find_TablATest
+	moveq	#0,d4
+.Loop	tst.l	(a0)
+	beq.s	.NFnd
+	move.l	(a0),a0
+	cmp.b	#1<<VF_If,Vta_Flag(a0)	Meme flag
+	bne.s	.Loop
+	tst.b	Vta_UFlag(a0)		Meme structure
+	bne.s	.NoT
+	move.w	Vta_Token(a0),d0
+	cmp.w	#_TkIf,d0
+	beq.s	.Plus
+	tst.w	d4
+	bne.s	.PaTst
+	cmp.w	d0,d1
+	beq.s	.Fnd
+	cmp.w	d0,d2
+	beq.s	.Fnd
+	cmp.w	d0,d3
+	bne.s	.Loop
+.Fnd	tst.w	d0
+	rts
+.PaTst	cmp.w	#_TkEndI,d0
+	bne.s	.Loop
+	subq.w	#1,d4
+	bpl.s	.Loop
+.NFnd	moveq	#0,d0
+	rts
+.Plus	addq.w	#1,d4
+	bra.s	.Loop
+; No then in a structured loop
+.NoT	move.l	Vta_Prog(a0),VerPos(a5)
+	subq.l	#2,VerPos(a5)
+	bra	VerNoT
+
+;	Doke une distance
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Doke_Distance
+	sub.l	a6,d0
+	subq.l	#2,d0
+	cmp.l	#$10000,d0
+	bcc	VerLong
+	move.w	d0,(a6)+
+	rts
+
+; 	Trouve la veritable adresse de fin d'une instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Find_End
+	move.l	a0,-(sp)
+	move.l	a6,a0
+	move.w	(a0),d0
+	bne.s	.S1
+	tst.w	2(a0)
+	beq.s	.S2
+	addq.l	#4,a0
+	bra.s	.S2
+.S1	cmp.w	#_TkDP,d0
+	bne	VerSynt
+	addq.l	#2,a0
+.S2	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+
+;	Verification GOTO pas a l'interieur d'une boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Goto_Loops
+	move.w	Vta_NBoucles(a0),d1
+	cmp.l	a6,d0
+	bcc	.Avant
+; Saut en arriere
+; ~~~~~~~~~~~~~~~
+.Arr	tst.l	Vta_Prev(a0)
+	beq.s	.Ok
+	move.l	Vta_Prev(a0),a0
+	cmp.l	Vta_Prog(a0),d0
+	bcs.s	.Arr
+	cmp.w	Vta_NBoucles(a0),d1
+	bcs	VerPaGo
+	rts
+; Saut en AVANT
+; ~~~~~~~~~~~~~
+.Avant	move.l	a0,a1
+	tst.l	(a0)
+	beq.s	.Ok
+	move.l	(a0),a0
+	cmp.l	Vta_Prog(a0),d0
+	bcc.s	.Avant
+	cmp.w	Vta_NBoucles(a1),d1
+	bcs	VerPaGo
+.Ok	rts
+
+
+;	Saute un LABEL GOTO / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_SautLGoto
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkLGo,(a6)+
+	bne	VerSynt
+	move.b	2(a6),d0
+	ext.w	d0
+	lea	4(a6,d0.w),a6
+	rts
+
+;					Verification des expressions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+;	Veut une expression alphanumerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_ExpA
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	bne	VerType
+	rts
+;	Veut une expression entiere
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_ExpE
+	bsr	Ver_Expression
+	cmp.b	#"0",d2
+	bne	VerType
+	rts
+
+;						Verification d'une expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Expression
+	move.l	a6,VerPos(a5)
+	bsr	Ver_Evalue
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	rts
+;					Boucle de verification d'une expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Evalue
+	clr.w	Parenth(a5)
+Ver_REvalue
+	move.w	#$7FFF,d0
+	bra.s	Eva_1
+Eva_0	move.w	d2,-(sp)
+Eva_1	move.w	d0,-(sp)
+	move.l	VerBase(a5),-(sp)
+	bsr	Ver_Operande
+	move.l	(sp)+,VerBase(a5)
+Eva_Ret	move.w	(a6)+,d0
+	cmp.w	(sp),d0
+	bhi.s	Eva_0
+	subq.l	#2,a6
+	move.w	(sp)+,d1
+	bpl.s	Eva_Fin
+	move.w	(sp)+,d5
+	lea	Tst_Jumps(pc),a0
+	jmp	0(a0,d1.w)
+Eva_Fin	cmp.w	#_TkPar2,d0
+	beq.s	.Par
+	rts
+.Par	subq.w	#1,Parenth(a5)
+	addq.l	#2,a6
+	rts
+
+;	Operateur mixte: Chiffre / String
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Mixte
+	cmp.b	d2,d5
+	bne	VerType
+	bra	Eva_Ret
+;	Operateur mixte de comparaison
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Comp
+	cmp.b	d2,d5
+	bne	VerType
+	moveq	#"0",d2
+	bra	Eva_Ret
+;	Operateur puissance
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Puis
+	or.b	#%00000011,MathFlags(a5)
+; 	Operateur entier seulement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Chiffre
+	cmp.b	d2,d5
+	bne	VerType
+	cmp.b	#"0",d2
+	bne	VerType
+	bra	Eva_Ret
+
+;						V�rification d'un operande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Operande
+	clr.w	-(sp)			Pas de signe devant
+Ope_Loop
+	move.w	(a6)+,d0
+	beq	Ope_Fin1
+	bmi.s	.Moins
+	move.l	AdTokens(a5),a0
+	move.b	1(a0,d0.w),d1
+	ext.w	d1			Branche � la routine
+	lsl.w	#2,d1
+	jmp	.Jmp(pc,d1.w)
+.Moins	cmp.w	#_TkM,d0		Signe moins devant?
+	bne	VerSynt
+	tst.w	(sp)			Deja un?
+	bne	VerSynt
+	addq.w	#1,(sp)
+	bra	Ope_Loop
+
+; Table des sauts directs aux operandes particuliers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Jmp	bra	Ope_Normal		00- Normal
+	bra	VerSynt			01= Syntax error!
+	bra	Ope_Fin1		02= Evaluation finie
+	bra	Ope_Fin2		03= Evaluation finie par une virgule
+	bra	Ope_Parenth		04= Ouverture de parenthese
+	bra	Ope_Normal		05= Val!
+	bra	Ope_Extension		06= Extension
+	bra	Ope_Variable		07= Variable
+	bra	Ope_Varptr		08= Varptr
+	bra	Ope_Fn			09= FN
+	bra	Ope_Not			0A= Not
+	bra	Ope_XYMn		0B= X Menu
+	bra	Ope_Equ			0C= Equ
+	bra	Ope_Match		0D= Match
+	bra	Ope_Array		0E- Array
+	bra	Ope_MinMax		0F= Min
+	bra	Ope_LVO			10= LVO
+	bra	Ope_Struc		11= Struc
+	bra	Ope_StrucS		12= Struc$
+	bra	Ope_Math		13= Fonction math
+	bra	Ope_ConstEnt		14= Constante Entiere
+	bra	Ope_ConstFl		15= Constante Float
+	bra	Ope_ConstDFl		16= Constante DFloat
+	bra	Ope_ConstStr		17= Constante String
+	bra	Ope_InstFonction	18= Instruction + Fonction
+	bra	Ope_DejaTeste		19- Deja teste!
+	bra	Ope_VReservee		1A- Variable reservee
+; Fonctions speciales compilateur
+	bra	Ope_Normal		1B- ParamE
+	bra	Ope_Normal		1C- ParamF
+	bra	Ope_Normal		1D- ParamS
+	bra	Ope_Normal		1E- False
+	bra	Ope_Normal		1F- True
+	bra	Ope_MinMax		20- Max
+	bra	Ope_Normal		21- Mid3
+	bra	Ope_Normal		22- Mid2
+	bra	Ope_Normal		23- Left
+	bra	Ope_Normal		24- Right
+	bra	Ope_Normal		25- Fonction dialogues
+	bra	Ope_Normal		26- Selecteur de fichier
+	bra	Ope_Normal		27- Btst
+
+
+; 	Operande mathematique>>> met les flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Math
+	or.b	#%00000011,MathFlags(a5)
+	bra.s	Ope_Normal
+; 	Nouvelle fonction normale AMOSPro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ProNormal
+	bsr	SetNot1.3
+; 	Gestion d'un operande normal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Normal
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst		Pointe la definition
+	move.w	d0,d2
+	bsr	VerF			Va verifier
+; Compute type in D2>>> float / integer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_CheckType
+	addq.l	#2,sp
+	moveq	#0,d0
+	move.b	d2,d0
+	sub.w	#"0",d0
+	lsl.w	#1,d0
+	jmp	.jmp(pc,d0.w)
+.jmp	rts				0 Entier
+	bra.s	.Float			1 Float
+	rts				2 Chaine
+	rts				3 Entier/Chaine ??? Impossible
+	bra.s	.Indif			4 Entier/Float
+.Math	bset	#1,MathFlags(a5)	Angle (=math)
+.Float	bset	#0,MathFlags(a5)
+.Indif	move.b	#"0",d2
+	rts
+
+; 	Gestion d'une variable reservee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_VReservee
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst		Pointe la definition
+	move.b	(a0)+,d2
+	bsr	VerF
+	bra	Ope_CheckType
+
+; 	Operande deja teste +++ rapide (jamais une vreservee)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_DejaTeste
+	bsr	Ver_DInst		Pointe la definition
+	move.w	d0,d2
+	bsr	VerF_DejaTeste		Va verifier
+	bra.s	Ope_CheckType
+
+; 	Une extension: toutes les possibilites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Extension
+	move.b	(a6)+,d1
+	move.l	a6,-(sp)
+	tst.b	(a6)+
+	move.w	(a6)+,d0
+	ext.w	d1
+	lsl.w	#2,d1
+	lea	AdTokens(a5),a0
+	tst.l	0(a0,d1.w)
+	beq	VerExN
+	move.l	0(a0,d1.w),a0
+	clr.w	-(sp)			Flag librairie 2.0 ou ancienne
+	btst	#LBF_20,LB_Flags(a0)	Librarie 2.0?
+	beq.s	.Old
+	move.w	#-1,(sp)
+; Verifie Fonction / Variable reservee, sans table!
+.Old	move.l	a0,VerBase(a5)		Debut de tokenisation
+	bsr	Ver_OlDInst
+	move.w	d0,d2
+	cmp.b	#"I",d2
+	beq	VerSynt
+	cmp.b	#"V",d2			Variable r�servee
+	bne.s	.Skip
+	move.b	(a0)+,d2
+.Skip	bsr	VerF			Va verifier
+; Poke le nombre de parametres
+	tst.w	(sp)+			Le flag
+	move.l	(sp)+,a0		Poke le nombre de params...
+	beq.s	.Old2
+	move.b	#-1,(a0)		Nouvelle extension: pas de params!
+	bra	Ope_CheckType
+.Old2	move.b	d0,(a0)			Ancienne extension: des params...
+	bra	Ope_CheckType
+
+;	Une instruction, essaie de trouver une fonction apres!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_InstFonction
+	move.l	a0,VerBase(a5)
+	lea	0(a0,d0.w),a0
+.Loop0	move.l	a0,d1
+	addq.l	#4,a0
+.Loop1	tst.b	(a0)+
+	bpl.s	.Loop1
+	move.b	(a0)+,d2
+	cmp.b	#"I",d2
+	bne.s	.Ok
+.Loop2	tst.b	(a0)+
+	bpl.s	.Loop2
+	move.b	-1(a0),d0
+	cmp.b	#-3,d0
+	bne	VerSynt
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	bra.s	.Loop0
+; Trouve, change le token
+.Ok	sub.l	VerBase(a5),d1
+	move.w	d1,-2(a6)
+	bsr	VerF
+
+	bra	Ope_CheckType
+
+; 	Fin: une virgule avant---> ommis!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Fin1
+	cmp.w	#_TkVir,-4(a6)
+	bne	VerSynt
+; 	Fin, avec une virgule: le parametre est ommis
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Fin2
+	subq.l	#2,a6
+	moveq	#"0",d2
+	tst.w	(sp)+
+	bne	VerSynt
+	rts
+
+; 	Ouverture d'un parenthese
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Parenth
+	addq.w	#1,Parenth(a5)
+	bsr	Ver_REvalue
+	addq.l	#2,sp
+	rts
+
+;	Variable en fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Variable
+	bsr	V1_FVariable
+	addq.l	#2,sp
+	rts
+
+;	Varptr(var)
+; ~~~~~~~~~~~~~~~~~
+Ope_Varptr
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	bsr	V1_FVariable
+	cmp.w	#_TkPar2,(a6)+
+	bne	VerSynt
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+;	Constante entiere
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstEnt
+	addq.l	#4,a6
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+; 	Constante string
+; ~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstStr
+	move.w	(a6)+,d0		* Saute la chaine
+	move.w	d0,d1
+	and.w	#$0001,d1
+	add.w	d1,d0
+	lea	0(a6,d0.w),a6
+	moveq	#"2",d2
+	addq.l	#2,sp
+	rts
+; 	Constante float simple precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstFl
+	addq.l	#4,a6
+	move.b	#1,Ver_SPConst(a5)
+	bset	#0,MathFlags(a5)	Flag: un peu de maths!
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+; 	Constante float double precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstDFl
+	addq.l	#8,a6
+	move.b	#1,Ver_DPConst(a5)
+	bset	#0,MathFlags(a5)	Flag: un peu de maths!
+	bsr	SetNot1.3		Non compatible!
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+;	=Array(a$())
+; ~~~~~~~~~~~~~~~~~~
+Ope_Array
+	bsr	SetNot1.3		Non compatible
+;	=Match(a$())
+; ~~~~~~~~~~~~~~~~~~
+Ope_Match
+	move.l	a6,-(sp)
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst
+	bsr	VerF
+	moveq	#"0",d2			BUG, type= 0, entier!
+	move.l	(sp)+,a0
+	btst	#6,5+2(a0)		La variable est-elle un tableau?
+	bne	Ope_CheckType
+	bra	VerSynt
+
+;	=MIN / MAX
+; ~~~~~~~~~~~~~~~~
+Ope_MinMax
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	move.w	Parenth(a5),-(sp)
+	bsr	Ver_Expression
+	move.w	d2,-(sp)
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_Evalue
+	cmp.w	#-1,Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,d1
+	cmp.b	d1,d2
+	bne	VerType
+	move.w	(sp)+,Parenth(a5)
+	addq.l	#2,sp
+	rts
+
+;	NOT
+; ~~~~~~~~~
+Ope_Not	move.w	Parenth(a5),-(sp)
+	bsr	Ver_Evalue
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,Parenth(a5)
+	cmp.b	#"2",d2
+	beq	VerType
+	addq.l	#2,sp
+	rts
+
+; 	= Fn AKJDKJS(k,d,d,d)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_OpeFn
+	tst.w	-(sp)
+Ope_Fn	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#%00001111,3(a6)
+	bset	#3,3(a6)
+	bsr	VarA0
+	move.w	d2,-(sp)
+	bsr	V1_StoVar
+	bne	VerNFn
+* Verifie les parametres
+	cmp.w	#_TkPar1,(a6)
+	bne.s	VerFn3
+	addq.l	#2,a6
+	move.w	Parenth(a5),-(sp)
+VerFn1	bsr	Ver_Evalue
+	tst.w	Parenth(a5)
+	bne.s	VerFn2
+	cmp.w	#_TkVir,(a6)+
+	beq.s	VerFn1
+	bne	VerSynt
+VerFn2	cmp.w	#-1,Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,Parenth(a5)
+* Ok!
+VerFn3	move.w	(sp)+,d2
+	addq.w	#2,sp
+	moveq	#0,d0
+	rts
+
+;	=XY MENU(,,) / =MENU(,,)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_XYMn
+	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+;	STRUC / STRUC$
+; ~~~~~~~~~~~~~~~~~~~~
+Ope_Struc
+	move.w	Parenth(a5),-(sp)
+	bsr	VStru
+	move.w	(sp)+,Parenth(a5)
+	cmp.b	#7,d2
+	bcc	VerType
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+Ope_StrucS
+	move.w	Parenth(a5),-(sp)
+	bsr	VStru
+	move.w	(sp)+,Parenth(a5)
+	cmp.b	#6,d2
+	bne	VerType
+	moveq	#"2",d2
+	addq.l	#2,sp
+	rts
+; Equates / LVO
+; ~~~~~~~~~~~~~
+Ope_Equ	lea	Equ_Nul(pc),a0
+	bra	VEqu
+Ope_LVO	lea	Equ_LVO(pc),a0
+VEqu	move.l	a6,a1
+	addq.l	#6,a6
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	bsr	Equ_Verif
+	cmp.w	#_TkPar2,(a6)+
+	bne	VerSynt
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+
+; 					Verification instruction deja testee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerI_DejaTestee
+	move.b	(a0)+,d0		Un parametre?
+	bmi.s	.Ok
+.Loop	move.l	a0,-(sp)
+	bsr	Ver_Evalue		Evaluation
+	move.l	(sp)+,a0
+	tst.b	(a0)+			Un separateur?
+	bmi.s	.Ok
+	addq.l	#1,a0			Un autre parametre!
+	addq.l	#2,a6			Saute le separateur
+	bra.s	.Loop
+.Ok	rts
+
+;				Verification d'une instruction standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Position dans la table de tokens
+;	A6=	Instruction + 2
+VerI:	move.w	d2,-(sp)
+	pea	-2(a6)			* Adresse de l'instruction
+	move.l	a0,-(sp)
+	clr.w	-(sp)			* Position dans definition
+	clr.l	-(sp)			* Chaine SOURCE
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	move.b	#-1,(sp)
+	move.w	(a6),d0			* Fin ligne?
+	bsr	FinieB
+	beq	VerI6
+* Compte les parametres
+VerI2:	bsr	Ver_Evalue
+	move.w	20(sp),d0
+	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	VerI3
+	subq.w	#1,d0
+VerI3:	move.w	d0,20(sp)
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	moveq	#",",d2
+	move.w	(a6),d1
+	cmp.w	#_TkVir,d1
+	beq.s	VerI4
+	moveq	#"t",d2
+	cmp.w	#_TkTo,d1
+	bne	VerI6
+VerI4:	addq.l	#2,a6
+	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	VerI5
+	subq.w	#1,d0
+VerI5:	move.w	d0,20(sp)
+ 	bra.s	VerI2
+* Compare la chaine cree aux parametres
+VerI6:	bsr	VerC
+* C'est bon: depile
+	move.w	20(sp),d0		* Nombre de parametres!
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	lea	30(sp),sp
+	move.w	(sp)+,d2
+	rts
+
+; 					Verification fonction deja testee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerF_DejaTeste
+	move.b	(a0)+,d0		Un parametre?
+	bmi.s	.Fin
+	move.w	d2,-(sp)
+	move.w	Parenth(a5),-(sp)
+.Loop	addq.l	#2,a6			Parenth / Separateur
+	move.l	a0,-(sp)
+	bsr	Ver_Evalue			Evaluation
+	move.l	(sp)+,a0
+	tst.b	(a0)+			Un separateur?
+	bmi.s	.Ok
+	addq.l	#1,a0			Un autre parametre!
+	bra.s	.Loop
+.Ok	move.w	(sp)+,Parenth(a5)
+	move.w	(sp)+,d2
+.Fin	rts
+
+;					Verification d'une fonction standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerF:	move.w	d2,-(sp)
+	move.w	Parenth(a5),-(sp)
+	pea	-2(a6)			* Adresse de l'instruction
+	move.l	a0,-(sp)		* Adresse definition
+	clr.w	-(sp)			* Position dans definition
+	clr.l	-(sp)			* Chaine SOURCE
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	move.b	#-1,(sp)
+	cmp.w	#_TkPar1,(a6)
+	bne	Verf6
+	addq.l	#2,a6
+	cmp.w	#_TkPar2,(a6)+
+	beq	Verf6
+	subq.l	#2,a6
+* Compte les parametres
+Verf2:	bsr	Ver_Evalue
+	move.w	20(sp),d0
+	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	Verf3
+	subq.w	#1,d0
+Verf3:	move.w	d0,20(sp)
+	cmp.w	#-1,Parenth(a5)
+	beq.s	Verf6
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	moveq	#",",d2
+	move.w	(a6)+,d1
+	cmp.w	#_TkVir,d1
+	beq.s	Verf4
+	moveq	#"t",d2
+	cmp.w	#_TkTo,d1
+	bne	VerSynt
+Verf4:	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	Verf5
+	subq.w	#1,d0
+Verf5:	move.w	d0,20(sp)
+	bra.s	Verf2
+* Compare la chaine cree aux parametres
+Verf6:	bsr	VerC
+* C'est bon: depile et ramene le type
+	move.w	20(sp),d0
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	lea	30(sp),sp
+	move.w	(sp)+,Parenth(a5)
+	move.w	(sp)+,d2
+	rts
+
+;	Verification standart: compare la chaine cree aux parametres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerC:	move.l	(sp)+,a2	* Adresse de retour
+	lea	(sp),a0
+	move.l	22(sp),a1	* Pas de definition: PROCEDURE!
+	cmp.l	#0,a1
+	beq	VerCF
+* Pas de parametre?
+	move.b	(a1),d1
+	bpl.s	VerC0
+	tst.b	(a0)
+	bmi.s	VerCF
+	bra.s	VerC3
+VerC0:	tst.b	(a0)
+	bmi.s	VerC3
+* Explore les params
+VerC1:	move.b	(a1)+,d1
+	bmi.s	VerC4
+	move.b	(a0)+,d0
+	cmp.b	#"3",d1		Indifferent?
+	beq.s	VerC1a
+	cmp.b	#"2",d1		Chaine
+	beq.s	.Comp
+	moveq	#"0",d1		Sinon, un chiffre!
+.Comp	cmp.b	d0,d1
+	bne	VerType
+VerC1a:	move.b	(a0)+,d0
+	bmi.s	VerC2
+	move.b	(a1)+,d1
+	bmi.s	VerC4
+	cmp.b	d0,d1
+	beq.s	VerC1
+	bra	VerC3
+VerC2:	move.b	(a1)+,d1
+	bpl.s	VerC3
+* OK!
+VerCF:	jmp	(a2)
+* Essaie les params suivants
+VerC3:	move.b	(a1)+,d1
+	bpl.s	VerC3
+VerC4:	cmp.b	#-2,d1		* Change le numero de l'instruction
+	bne	VerSynt
+	move.l	a1,d0
+	btst	#0,d0
+	beq.s	VerC5
+	addq.l	#1,a1
+	addq.l	#1,d0
+VerC5:	sub.l	VerBase(a5),d0
+	move.l	26(sp),a0
+	move.w	d0,(a0)
+	addq.l	#4,a1
+VerC6:	tst.b	(a1)+
+	bpl.s	VerC6
+	lea	(sp),a0
+	cmp.b	#"V",(a1)+
+	bne.s	VerC1
+	addq.l	#1,a1
+	bra.s	VerC1
+
+;	Pointe la liste des params d'une instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_DInst:
+	add.w	d0,a0
+	move.b	2(a0),d0
+	ext.w	d0
+	add.w	d0,a0
+	move.b	(a0)+,d0
+	bpl.s	.Skip
+	subq.l	#1,a0
+.Skip	rts
+
+; DInst, ancienne maniere
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ver_OlDInst
+	lea	4(a0,d0.w),a0
+.Loop	tst.b	(a0)+
+	bpl.s	.Loop
+	move.b	(a0)+,d0
+	bpl.s	.Skip
+	subq.l	#1,a0
+.Skip	rts
+
+
+;				Verification / Stockage des variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+;	Variable en INSTRUCTION: egalisation ou appel procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_IVariable
+	move.w	#_TkVar,-2(a6)	Force le token
+	and.b	#%00001111,3(a6)	RAZ du flag!
+	bsr	VarA0
+	moveq	#0,d4			Pour CallProc
+	cmp.w	#_TkEg,(a0)		Egal=> egalisation (!)
+	beq.s	.VVi1
+	cmp.w	#_TkPar1,(a0)		Une procedure!
+	bne	V1_CallProc
+; Un tableau
+; ~~~~~~~~~~
+	move.w	d2,-(sp)
+	bset	#6,3(a6)		Met le flag tableau!
+	bsr	V1_StoVar
+	bne	VerNDim
+	bsr	VerTablo		Verifie les params d'un tableau
+	cmp.b	4(a1),d0
+	bne	VerIlP			Illegal numbre of dimensions
+	bra.s	.VVi2
+; Une variable normale
+; ~~~~~~~~~~~~~~~~~~~~
+.VVi1	move.w	d2,-(sp)
+	bsr	V1_StoVar
+; Verifie l'expression
+; ~~~~~~~~~~~~~~~~~~~~
+.VVi2	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	move.l	a6,VerPos(a5)
+	bsr	Ver_Expression
+	move.w	(sp)+,d0
+	cmp.b	d0,d2
+	bne	VerType
+	rts
+
+;	VARIABLE EN FONCTION
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_FVariable
+	and.b	#%00001111,3(a6)	RAZ du flag
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)
+	bne	V1_StoVar
+	bset	#6,3(a6)		Met le flag tableau!
+	bsr	V1_StoVar
+	bne	VerNDim
+	bsr	VerTablo		Verifie les params d'un tableau
+	cmp.b	4(a1),d0
+	bne	VerIlP			Illegal numbre of dimensions
+	rts
+
+;	Routine, veut un appel de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_GoProcedureParam
+	moveq	#1,d4
+	bra.s	GoPro
+V1_GoProcedureNoParam
+	moveq	#0,d4
+GoPro	move.w	(a6)+,d0
+	cmp.w	#_TkPro,d0
+	beq.s	V1_CallProc
+	cmp.w	#_TkVar,d0
+	bne	VerSynt
+; 	Appel de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+V1_CallProc
+	tst.w	Direct(a5)
+	bne	VerIlD
+	move.b	#Reloc_Proc1,d0		Flag un appel de procedure
+	bsr	New_Reloc		Force la relocation en V2
+	bsr	VarA0
+	move.w	#_TkPro,-2(a6)
+	or.b	#$80,3(a6)		Change le flag
+	move.l	a0,a6
+; Saute les params
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra1,(a6)
+	bne.s	.NopA
+	tst.w	d4
+	bne	VerSynt
+.Loop	addq.l	#2,a6
+	bsr	Ver_Expression
+	move.b	#Reloc_Proc2,d0
+	bsr	New_Reloc
+	move.b	d2,d0			Stocke dans la table de relocation
+	bsr	Out_Reloc
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a6)+
+	bne	VerSynt
+	move.b	#Reloc_Proc3,d0
+	bsr	New_Reloc
+.Out	rts
+.NopA	move.b	#Reloc_Proc4,d0
+	bsr	New_Reloc
+	rts
+
+
+; 	Appel de procedure passe2, premiere etape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc1
+	move.l	a6,VerPos(a5)
+	moveq	#0,d0			Retrouve le label
+	bsr	V2_FindLabelP
+	beq	VerUndP
+	move.l	d0,a3
+	lea	12(a3),a3
+	move.b	2(a3),d0
+	ext.w	d0
+	lea	4(a3,d0.w),a3		Pointe le debut de la procedure
+	cmp.w	#_TkBra1,(a3)+
+	beq.s	.Skip
+	sub.l	a3,a3
+.Skip	rts
+;	Appel de procedure passe2, pas de parametre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc4
+	move.l	a3,d0
+	bne	VerIlP
+	rts
+;	Appel de procedure passe2, deuxieme etape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc2
+	move.l	a3,d0
+	beq	VerIlP
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a3)
+	beq	VerIlP
+	cmp.w	#_TkVir,(a3)
+	bne.s	.Sko
+	addq.l	#2,a3
+.Sko	move.b	5(a3),d1
+	and.w	#$0F,d1
+	cmp.w	#1,d1
+	bne.s	.Skip
+	moveq	#0,d1
+.Skip	add.b	#"0",d1
+	cmp.b	(a4)+,d1
+	bne	VerType
+	move.b	4(a3),d0
+	ext.w	d0
+	lea	6(a3,d0.w),a3
+	rts
+;	Appel de procedure passe3, derniere etape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc3
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a3)
+	bne	VerIlP
+	rts
+
+;		 					Stockage des labels
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+;	Verification d'un label / Expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_GoLabel
+	move.w	(a6),d0
+	cmp.w	#_TkLGo,d0
+	bne.s	.Skip
+	move.w	#_TkVar,d0
+	move.w	d0,(a6)
+.Skip	cmp.w	#_TkVar,d0
+	bne.s	.Expr
+	move.b	5(a6),d2
+	and.b	#$0F,d2
+	bne.s	.Expr
+; Est-ce REEELEMENT un label?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	4(a6),d0
+	ext.w	d0
+	lea	6(a6,d0.w),a0
+	move.w	(a0),d0
+	beq.s	.Label
+	cmp.w	#_TkVir,d0
+	beq.s	.Label
+	bsr	FinieB
+	bne.s	.Expr
+; C'est un label GOTO! Change le token!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Label	move.w	#_TkLGo,(a6)+
+	move.b	#Reloc_Label,d0		Un label
+	bsr	New_Reloc		Relocation en passe2
+	move.l	a0,a6
+	rts
+; C'est une expression: va evaluer!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Expr	bsr	Ver_Evalue
+	rts
+
+;	Retourne en D0 l'adresse d'un label, si vrai label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_GoLabel
+	cmp.w	#_TkLGo,(a6)+
+	bne.s	.Nul
+	move.w	(a6)+,d0
+	move.l	LabHaut(a5),a0
+	move.b	(a6),d1
+	ext.w	d1
+	lea	2(a6,d1.w),a6
+	move.l	0(a0,d0.w),d0
+	rts
+.Nul	moveq	#0,d0
+	rts
+
+;	STOCKAGE D'UN LABEL / PASSE 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_StockLabel
+	move.w	Phase(a5),d0
+	bsr	Get_Label
+	bne	VerLb2
+; Cree le label
+; ~~~~~~~~~~~~~
+	move.w	d1,d3
+	move.l	LabBas(a5),a0		Baisse le bas des labels
+	subq.l	#8,a0
+	sub.w	d1,a0
+	cmp.l	LabMini(a5),a0		Attention aux boucles
+	bcs	VerVNm
+	move.l	a0,LabBas(a5)
+	move.l	a0,a2
+	move.l	d0,(a0)+		Longueur / Flags / Phase
+	lea	4(a6),a1
+	addq.l	#4,a0
+	lsr.w	#1,d3			Copie le nom
+	subq.w	#1,d3
+.N1	move.w	(a1)+,(a0)+
+	dbra	d3,.N1
+	lea	4(a6,d1.w),a6		Saute le label
+	move.l	a6,a0			Trouve l'adresse de saut
+	tst.w	(a0)
+	bne.s	.N2
+	tst.w	2(a0)			Pointe la ligne suivante si on peut
+	beq.s	.N2
+	addq.l	#4,a0
+.N2	move.l	a0,4(a2)		Poke l'adresse, A2= pointeur
+	rts
+
+;	STOCKAGE LABEL PASSE 2 : essaie de retrouver le label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_FindLabel
+	move.w	Phase(a5),d0		Niveau de procedure
+V2_FindLabelP
+	bsr	Get_Label		Va chercher
+	beq.s	.NFnd
+; Label trouve, LOKE dans le listing / saute le label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a0,a2
+	addq.l	#4,a0
+	sub.l	LabHaut(a5),a0
+	move.w	a0,(a6)
+	move.l	4(a2),d0
+.NFnd	rts
+
+; Routine: retrouve un label dans la liste. D0=Phase
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Label
+	move.b	3(a6),d2		Flag
+	moveq	#0,d1
+	move.b	2(a6),d1		Longueur du nom
+	swap	d0
+	move.b	d1,d0
+	lsl.w	#8,d0
+	move.b	d2,d0
+	swap	d0
+; Boucle de recherche + rapide
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	LabBas(a5),a0
+	moveq	#0,d3
+	move.b	(a0),d3
+	beq.s	.Nouvo
+.Loop	cmp.l	(a0),d0
+	beq.s	.Test
+.Loop2	lea	8(a0,d3.w),a0
+	move.b	(a0),d3
+	bne.s	.Loop
+	bra.s	.Nouvo
+.Test	lea	4(a6),a1
+	lea	8(a0),a2
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+.Test2	cmp.w	(a1)+,(a2)+
+	dbne	d4,.Test2
+	tst.w	d4
+	bpl.s	.Loop2
+	move.w	#%00000,CCR		BNE: trouve, A0=adresse
+	rts
+.Nouvo	move.w	#%00100,CCR		BEQ: pas trouve
+	rts
+
+
+******* ENLEVE TOUS LES FLAGS VARIABLE GLOBALE!
+Locale:	move.l	DVNmBas(a5),a0
+	bra.s	LoK2
+LoK1:	ext.w	d0
+	cmp.b	#2,5(a0)
+	beq.s	LoK0
+	clr.b	5(a0)
+LoK0:	lea	6(a0,d0.w),a0
+LoK2:	move.b	(a0),d0
+	bne.s	LoK1
+	rts
+******* MET TOUS LES FLAGS VARIABLE GLOBALE!
+Globale:move.l	DVNmBas(a5),a0
+	bra.s	GlK2
+GlK1:	ext.w	d0
+	move.b	#1,5(a0)
+	lea	6(a0,d0.w),a0
+GlK2:	move.b	(a0),d0
+	bne.s	GlK1
+	rts
+
+;	STOCKAGE VARIABLE PASSE 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_StoVar
+	movem.l	d2/d3/a3/a4,-(sp)
+	lea	4(a6),a0		* Pointe le nom
+	move.l	a0,d0
+	move.b	2(a6),d1
+	ext.w	d1			* Longueur variable
+	move.b	3(a6),d2		* Flag
+	move.l	a6,a3
+
+	tst.w	Phase(a5)
+	beq.s	StV1
+; Essaie de trouver les variables globales
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	DVNmBas(a5),a4		* Prend les noms GLOBAUX
+	move.l	a4,a1
+StV1a:	move.l	a1,a2
+	move.b	(a1),d3
+	beq.s	StV1
+	ext.w	d3
+	tst.b	5(a1)
+	beq.s	StV1n
+	cmp.w	d1,d3
+	bne.s	StV1n
+	cmp.b	1(a1),d2
+	bne.s	StV1n
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+	addq.w	#6,a1
+	move.l	d0,a0
+StV1b:	cmp.w	(a0)+,(a1)+
+	bne.s	StV1n
+	dbra	d4,StV1b
+	move.l	a2,a1			* Ramene l'adresse variable
+	move.l	a2,d0
+	sub.l	DVNmHaut(a5),d0		* Offset / Table variables
+	neg.w	d0			* >0===> GLOBALES!
+	move.w	d0,(a6)
+	moveq	#0,d0			* Deja existante
+	bra	Rn1VFin			* Va terminer
+StV1n:	lea	6(a2,d3.w),a1
+	bra.s	StV1a
+
+; Trouve la variable LOCALE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+StV1:	move.l	VNmBas(a5),a4
+	move.l	a4,a1
+Rn1Va:	move.l	d0,a0
+	move.l	a1,a2
+	move.b	(a1)+,d3
+	beq.s	Rn1Vx
+	ext.w	d3
+	cmp.b	d1,d3			* Longueur egale?
+	bne.s	Rn1Vn
+	cmp.b	(a1)+,d2		* Flag egal?
+	bne.s	Rn1Vn
+	tst.w	(a1)+			* Saute DIVERS
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+	addq.w	#2,a1
+Rn1Vb:	cmp.w	(a0)+,(a1)+
+	bne.s	Rn1Vn
+	dbra	d4,Rn1Vb
+	moveq	#0,d0			* Variable deja existante
+	bra.s	Rn1Vz
+; Passe a la variable suivante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Rn1Vn:	lea	6(a2,d3.w),a1
+	bra.s	Rn1Va
+; Cree la variable
+; ~~~~~~~~~~~~~~~~
+Rn1Vx:	lea	-6(a4),a2
+	sub.w	d1,a2
+	cmp.l	VNmMini(a5),a2
+	bcs	VerNmO
+	move.l	a2,VNmBas(a5)
+	move.l	a2,a1
+	move.b	d1,(a1)+		* Poke la longueur
+	move.b 	d2,(a1)+		* Poke le flag
+	move.w	VarLong(a5),(a1)+	* Pointeur
+	clr.w	(a1)+			* Variables Locale-Non dim
+	addq.w	#6,VarLong(a5)		* Place pour le type
+; Si float DP, non tableau: variable sur 10 octets...
+	cmp.b	#1,d2
+	bne.s	.Skip
+	tst.b	MathFlags(a5)
+	bpl.s	.Skip
+	addq.w	#4,VarLong(a5)
+.Skip	move.w	d1,d3
+	lsr.w	#1,d3
+	subq.w	#1,d3
+	move.l	d0,a0
+Rn1Vy:	move.w	(a0)+,(a1)+
+	dbra	d3,Rn1Vy
+	moveq	#-1,d0			* Variable nouvelle!
+; Variable trouvee
+; ~~~~~~~~~~~~~~~~
+Rn1Vz:	move.l	a2,a1			* Ramene l'adresse variable
+	sub.l	VNmHaut(a5),a2		* Offset / Table variables
+	move.w	a2,(a6)
+; Force la relocation en passe 2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Rn1VFin	movem.l	(sp)+,d2/d3/a3/a4
+	move.w	d0,-(sp)
+	move.b	#Reloc_Var,d0
+	bsr	New_Reloc		* Nouvelle relocation
+	lea	4(a6,d1.w),a6		* Saute la variable
+	tst.w	(sp)+			* Positionne le flag
+	rts
+
+;	STOCKAGE VARIABLE DEUXIEME PASSE: retrouve l'adresse
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_StoVar
+	lea	4(a6),a0		* Pointe le nom
+	move.b	2(a6),d1
+	ext.w	d1			* Longueur variable
+	move.w	(a6),d3
+	bpl.s	.Skip
+; DOKE le pointeur, variable locale (<0!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	VNmHaut(a5),a1
+	lea	0(a1,d3.w),a1
+	move.w	2(a1),(a6)
+	bra.s	.Out
+; Variable GLOBALE (>0!)
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Skip	neg.w	d3
+	move.l	DVNmHaut(a5),a1
+	lea	0(a1,d3.w),a1
+	move.w	2(a1),d0
+	addq.w	#1,d0
+	neg.w	d0
+	move.w	d0,(a6)
+.Out	rts
+
+;	Saute le nom d'une variable / A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VarA0:	lea	2(a6),a0
+	move.b	(a0)+,d1
+	ext.w	d1
+	move.b	(a0)+,d3
+	move.b	d3,d0
+	moveq	#"0",d2
+	and.b	#%111,d0
+	beq.s	.Skip
+	cmp.b	#1,d0
+	beq.s	.Skip
+	moveq	#"2",d2
+.Skip	add.w	d1,a0
+	rts
+
+;	Verifie les params d'un tableau
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerTablo
+	move.w	d2,-(sp)
+	move.l	a1,-(sp)
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	move.w	Parenth(a5),-(sp)
+	clr.w	-(sp)
+.VTab	move.l	a6,VerPos(a5)
+	addq.w	#1,(sp)
+	bsr	Ver_Evalue		Verifie les parametres
+	cmp.b	#"0",d2
+	bne	VerType
+	tst.w	Parenth(a5)
+	bne.s	.VTab1
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.VTab
+	bne	VerSynt
+.VTab1	cmp.w	#-1,Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,d0		Nombre de dimensions
+	move.w	(sp)+,Parenth(a5)
+	move.l	(sp)+,a1
+	move.w	(sp)+,d2
+	rts
+
+
+;	Initialisation de la table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reserve_Reloc
+	bsr	Free_Reloc
+	lea	Ver_Reloc(a5),a0
+	move.l	a0,Ver_CReloc(a5)
+	clr.l	Ver_FReloc(a5)
+	clr.b	Ver_NoReloc(a5)
+	sub.l	a4,a4
+	rts
+;	Efface les buffers de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_Reloc
+	move.l	Ver_Reloc(a5),d2
+	beq.s	.Out
+.Loop	move.l	d2,a1
+	move.l	(a1),d2
+	move.l	#Reloc_Step,d0
+	SyCall	MemFree
+	tst.l	d2
+	bne.s	.Loop
+.Out	clr.l	Ver_Reloc(a5)
+	clr.l	Ver_FReloc(a5)
+	rts
+
+
+
+;	Poke le pointeur actuel dans la table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+New_Reloc
+	tst.b	Ver_NoReloc(a5)		Relocation autorisee???
+	bne.s	.Out
+	cmp.l	Ver_FReloc(a5),a4	Sorti de la table?
+	bcc.s	.NewBuf
+	move.l 	d0,-(sp)
+        move.l 	a6,d0
+        sub.l 	a3,d0
+	beq.s	.ReJ5
+	bls.s	.Bug
+.ReJ1	cmp.l 	#254,d0
+        bls.s 	.ReJ4
+	cmp.l	#254*3,d0
+	bls.s	.ReJ3
+	cmp.l	#65534,d0
+	bls.s	.ReJ2
+; >65534
+	move.b	#Reloc_Long,(a4)+
+	move.b	#$FF,(a4)+
+	move.b	#$FE,(a4)+
+	sub.l	#65534,d0
+	bra.s	.ReJ1
+; >254*3 <65536
+.ReJ2	move.b	#Reloc_Long,(a4)+
+	move.b	d0,1(a4)
+	ror.w	#8,d0
+	move.b	d0,(a4)
+	addq.l	#2,a4
+	bra.s	.ReJ5
+; >254 <254*3
+.ReJ3	move.b	#127,(a4)+
+        sub.l 	#254,d0
+        bra.s 	.ReJ1
+; <254
+.ReJ4	lsr.w	#1,d0
+	move.b	d0,(a4)+
+; Fini
+.ReJ5	move.l 	a6,a3
+        move.l	(sp)+,d0
+	move.b	d0,(a4)+
+.Out	rts
+.Bug	illegal
+; Nouveau buffer de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NewBuf	tst.l	Ver_FReloc(a5)		Premiere table?
+	beq.s	.Init
+	move.b	#Reloc_NewBuffer,(a4)+	Code de changement
+.Init	movem.l	a0/a1/d0/d1,-(sp)
+	move.l	#Reloc_Step,d0
+	SyCall	MemFastClear
+	beq	VerOut
+	move.l	Ver_CReloc(a5),a1
+	move.l	a0,(a1)
+	move.l	a0,Ver_CReloc(a5)
+	move.l	a0,a4
+	clr.l	(a4)+
+	lea	Reloc_Step-32(a0),a0
+	move.l	a0,Ver_FReloc(a5)
+	movem.l	(sp)+,a0/a1/d0/d1
+	bra	New_Reloc
+; 	Simple sortie d'un chiffre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Out_Reloc
+	tst.b	Ver_NoReloc(a5)		Relocation autorisee???
+	bne.s	.Out
+	move.b	d0,(a4)+
+.Out	rts
+
+
+******* SHARED a,b()
+
+******* Routine SHARED: cree les variables
+VpSha:	addq.l	#2,a6
+VpSha1:	bsr	VpGv
+	cmp.w	#_TkVir,(a6)+
+	beq.s	VpSha1
+	move.w	-(a6),d0
+	move.l	a6,VerPos(a5)
+	tst.w	d0
+	bne	VerSynt
+	rts
+* Verification des variables
+VpGv:	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+* Premiere passe
+	and.b	#%00001111,3(a6)
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)
+	bne	V1_StoVar
+	cmp.w	#_TkPar2,2(a0)
+	bne	VerNoPa
+	lea	4(a0),a6
+	rts
+******* Verification proprement dite
+VerSha	bset	#0,VarBufFlg(a5)
+	subq.l	#2,a6
+	tst.w	Direct(a5)
+	bne	VerIlD
+* GLOBAL: Cree les variables
+	move.l	DVNmBas(a5),-(sp)
+	tst.w	Phase(a5)
+	bne	VSh0a
+	move.l	a6,-(sp)
+	bsr	VpSha
+	move.l	(sp)+,a6
+	move.l	VNmBas(a5),(sp)
+* Ok! verifie
+VSh0a:	addq.l	#2,a6
+* Passe 1
+VSh1a:	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	lea	4(a6),a0		* Pointe le nom
+	move.l	a0,d0
+	move.b	2(a6),d1
+	ext.w	d1			* Longueur variable
+	and.b	#%00001111,3(a6)
+	move.b	3(a6),d2		* Flag
+	lea	4(a6,d1.w),a6
+	cmp.w	#_TkPar1,(a6)
+	bne.s	Sh1d
+	bset	#6,d2
+	bset	#6,-1(a0)
+	cmp.w	#_TkPar2,2(a6)
+	bne	VerNoPa
+	addq.l	#4,a6
+* Cherche la variable dans les variables globales
+Sh1d:	move.l	(sp),a1
+Sh1a:	move.l	a1,a2
+	move.b	(a1),d3
+	beq	VerNDim			* PaG	* Pas une variable GLOBALE!
+	ext.w	d3
+	cmp.w	d1,d3
+	bne.s	Sh1n
+	cmp.b	1(a1),d2
+	bne.s	Sh1n
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+	addq.w	#6,a1
+	move.l	d0,a0
+Sh1b:	cmp.w	(a0)+,(a1)+
+	bne.s	Sh1n
+	dbra	d4,Sh1b
+	cmp.b	#2,5(a2)		* Already GLOBALE!
+	beq.s	Sh1c
+	move.b	#1,5(a2)		* Marque la variable
+	tst.w	Phase(a5)
+	bne.s	Sh1c
+	addq.b	#1,5(a2)		* Devient globale!
+	bra.s	Sh1c
+Sh1n:	lea	6(a2,d3.w),a1
+	bra.s	Sh1a
+* Une autre variable?
+Sh1c:	move.w	(a6)+,d0
+	cmp.w	#_TkVir,d0
+	beq	VSh1a
+	addq.l	#4,sp
+	tst.w	d0
+	bne	VerShal
+	bra	VerD
+
+***********************************************************
+
+******* Instruction finie??
+Finie:	move.w	(a6),d0
+FinieB:	beq.s	Finy
+	cmp.w	#_TkDP,d0
+	beq.s	Finy
+	cmp.w	#_TkThen,d0
+	beq.s	Finy
+	cmp.w	#_TkElse,d0
+Finy:	rts
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	NETTOYAGES DES VARIABLES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+ClearVar
+; - - - - - - - - - - - - -
+
+	movem.l	d0-d7/a0-a6,-(sp)
+
+; Variables du programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	lea	DebRaz(a5),a0
+	lea	FinRaz(a5),a1
+ClV1:	clr.w	(a0)+
+	cmp.l	a1,a0
+	bcs.s	ClV1
+	clr.b	Test_Flags(a5)
+; Initialisation du disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#$FFFFFFFF,IffMask(a5)
+	moveq	#47,d0
+	JJsr	L_Sys_GetMessage
+	move.l	DirFNeg(a5),a1
+ClV2:	move.b	(a0)+,(a1)+
+	bne.s	ClV2
+	move.w	PI_DirSize(a5),DirLNom(a5)
+	clr.l	T_ClLast(a5)
+	move.w	#$0A0D,ChrInp(a5)
+; DREG/AREG
+; ~~~~~~~~~
+	lea	CallReg(a5),a0
+	move.l	a5,(8+5)*4(a0)			* A5-> Datazone
+	move.l	T_ClAsc(a5),(8+4)*4(a0)		* A4-> Clavier actuel
+	move.l	Prg_Source(a5),(8+3)*4(a0)	* A3-> Bas du programme
+	move.l	T_RastPort(a5),(8+0)*4(a0)	* A0-> Rastport
+	move.l	DosBase(a5),7*4(a0)		* D7-> Dos Base
+	move.l	T_GfxBase(a5),6*4(a0)		* D6-> Gfx Base
+	move.l	T_IntBase(a5),5*4(a0)		* D5-> Int Base
+	move.l	BasSp(a5),4*4(a0)		* D4-> BasSp
+	lea	Ed_Config(a5),a1		* D3-> Configuration Base Editor
+	move.l	a1,3*4(a0)
+; Ferme toutes les routines appellees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_ClearRoutines(a5),a1
+	SyCall	CallRoutines
+; Initialisations diverses
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_Bnk.EffTemp
+	JJsr	L_Bnk.Change
+	JJsr	L_MenuReset
+	JJsr	L_Dia_WarmInit
+; Plus de buffers!
+; ~~~~~~~~~~~~~~~~
+	bsr	ClearBuffers
+; Init float
+; ~~~~~~~~~~
+	move.w	#-1,FixFlg(a5)
+	clr.w	ExpFlg(a5)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+; 	Nettoie tous les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClearBuffers
+	moveq	#0,d1
+	bsr	ResVarBuf
+	clr.w	VarBufFlg(a5)
+	moveq	#0,d1
+	bsr	ResVNom
+	clr.w	Stack_Size(a5)
+	bsr	Stack_Reserve
+	rts
+
+; 	Reservation de la memoire pour la pile
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Stack_Reserve
+	move.w	Stack_CSize(a5),d0
+	cmp.w	Stack_Size(a5),d0
+	beq.s	.Ok
+	tst.w	d0
+	beq.s	.NoFree
+	clr.w	Stack_CSize(a5)
+	addq.w	#1,d0
+	mulu	#Stack_ProcSize,d0
+	move.l	BaLoop(a5),a1
+	SyCall	MemFree
+.NoFree	move.w	Stack_Size(a5),d0
+	beq.s	.Ok
+	move.w	d0,Stack_CSize(a5)
+	addq.w	#1,d0
+	mulu	#Stack_ProcSize,d0
+	move.l	d0,d1
+	SyCall	MemFastClear
+	beq	.Out
+	move.l	a0,BaLoop(a5)
+	add.l	d1,a0
+	move.l	a0,HoLoop(a5)
+.Ok	move.w	Stack_CSize(a5),d0
+	rts
+.Out	moveq	#0,d0
+	rts
+
+;	RESERVE DE L'ESPACE POUR LES VARIABLES DIRECTES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ResDir:	movem.l	d0/d1/a0,-(sp)
+	tst.w	TVMax(a5)
+	bne.s	RsD3
+	move.l	TabBas(a5),d1
+	move.l	d1,a0
+	sub.l	HiChaine(a5),d1
+	bcs.s	RsD3
+	moveq	#0,d0
+	move.w	PI_TVDirect(a5),d0
+	cmp.l	d1,d0
+	bls.s	RsD1
+	move.l	d1,d0
+RsD1:	divu	#6,d0
+	mulu	#6,d0
+	subq.l	#6,d0
+	beq.s	RsD3
+	move.l	VarLoc(a5),-(a0)
+	move.w	#$FFFF,-(a0)
+	sub.l	d0,a0
+	move.l	a0,VarLoc(a5)
+	move.l	a0,TabBas(a5)
+	move.w	d0,TVMax(a5)
+	lsr.w	#1,d0
+	subq.w	#1,d0
+	bmi.s	RsD3
+RsD2:	clr.w	(a0)+
+	dbra	d0,RsD2
+RsD3:	movem.l	(sp)+,d0/d1/a0
+	rts
+
+;	Reserve le buffer chaines / variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1= Taille
+ResVarBuf
+	move.l	VarBuf(a5),d0
+	beq.s	Vbr1
+	clr.l	VarBuf(a5)
+	move.l	d0,a1
+	move.l	VarBufL(a5),d0
+	SyCall	MemFree
+Vbr1	move.l	d1,d0
+	beq.s	Vbr2
+	SyCall	MemFastClear
+ 	beq	VerOut
+	move.l	a0,VarBuf(a5)
+	lea	0(a0,d1.l),a1
+* Adresses dans ce buffer
+	move.l	a1,LabHaut(a5)
+	clr.w	-(a1)
+	move.l	a1,LabBas(a5)
+	clr.l	-(a1)
+	move.w	#-1,-(a1)
+	move.l	a1,VarGlo(a5)
+	move.l	a1,TabBas(a5)
+	move.l	a1,VarLoc(a5)
+* Chaines
+	move.l	a0,LoChaine(a5)
+	move.l	a0,ChVide(a5)
+	move.l	a0,ParamC(a5)
+	clr.w	(a0)+
+	move.l 	a0,HiChaine(a5)
+	move.l	a0,LabMini(a5)
+* Fini!
+Vbr2	clr.w	VarLong(a5)
+	clr.w	GloLong(a5)
+	clr.w	TVMax(a5)
+	move.l	d1,VarBufL(a5)
+	rts
+
+;	Reserve le buffer des noms de variable
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1= taille
+ResVNom	move.l	VNmMini(a5),d0
+	beq.s	RVn1
+	clr.l	VNmMini(a5)
+	move.l	d0,a1
+	move.l	VNmLong(a5),d0
+	clr.l	VNmLong(a5)
+	SyCall	MemFree
+RVn1	move.l	d1,d0
+	beq.s	RVn2
+	SyCall	MemFastClear
+ 	beq	VerOut
+	move.l	a0,VNmMini(a5)
+	move.l	d1,VNmLong(a5)
+	add.l	d1,a0
+	move.l	a0,DVNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,DVNmBas(a5)
+	move.l	a0,VNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,VNmBas(a5)
+RVn2	rts
+
+; Inclus les INCLUDES dans le programme courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Includes
+; Efface d'eventuels anciens
+	bsr	Includes_Clear
+; Demande un buffer
+	lea	Prg_Includes(a5),a0
+	move.l	#20*16,d0
+	move.l	#Public|Clear,d1
+	bsr	A5_Reserve
+	beq	.XX
+	move.l	a0,a3
+; Explore le d�but
+	move.l	Prg_Source(a5),a0
+	move.l	a0,(a3)
+	moveq	#0,d6
+	moveq	#0,d7
+	moveq	#0,d0
+	bsr	Tk_FindL
+	beq	.Inclus
+.Incl1	cmp.w	#_TkIncl,2(a0)
+	beq.s	.Inclu
+	bsr	Tk_FindN
+	bne.s	.Incl1
+	bra	.Inclus
+; Une inclusion
+.Inclu	bsr	SetNot1.3		Non compatible!
+	addq.w	#1,d7
+	move.l	a0,d0
+	sub.l	(a3),d0
+	move.l	a0,(a3)
+	add.l	d0,d6
+	move.l	d0,4(a3)
+; Ouvre le fichier, sauve le lock
+	cmp.w	#_TkCh1,4(a0)
+	bne	.SErr
+	lea	6(a0),a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0
+	bmi	.SErr
+	cmp.w	#107,d0
+	bcc	.SErr
+	move.l	Name1(a5),a1
+.Incl2	move.b	(a0)+,(a1)+
+	dbra	d0,.Incl2
+	clr.b	(a1)
+	move.l	#1005,d2
+	jsr	D_Open
+	beq	.DErr
+; Verifie entete, prend la taille du source
+	move.l	Buffer(a5),d2
+	moveq	#16+4,d3
+	jsr	D_Read
+	bne	.DErr
+	move.l	d2,a2
+	move.l	d2,a1			Entete AMOSPRO
+	lea	H_Pro(pc),a0
+	moveq	#8-1,d0
+.Ver1	cmp.b	(a0)+,(a1)+
+	bne	.13
+	dbra	d0,.Ver1
+	bra.s	.Ver3
+.13	move.l	d2,a1			Entete AMOS1.3
+	lea	H_1.3(pc),a0
+	moveq	#10-1,d0
+.Ver2	cmp.b	(a0)+,(a1)+
+	bne	.AErr
+	dbra	d0,.Ver2
+.Ver3	add.l	16(a2),d6		Taille du source
+	move.l	16(a2),12(a3)
+	move.l	Handle(a5),8(a3)	Sauve le lock
+	clr.l	Handle(a5)
+; Reprend le cours
+	move.l	(a3),a0
+	bsr	Tk_FindN
+	move.l	a0,d0
+	sub.l	(a3),d0
+	move.l	d0,16(a3)
+	lea	20(a3),a3
+	move.l	a0,(a3)
+	bra	.Incl1
+; Reserve le buffer / Charge les programmes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Inclus	move.l	a0,d0
+	sub.l	(a3),d0
+	move.l	a0,(a3)
+	move.l	d0,4(a3)
+	tst.w	d7
+	beq	.PaIncl
+	add.l	d6,d0				Taille du dernier incluse
+	addq.l	#4,d0
+	move.l	#Public,d1
+	lea	Prg_FullSource(a5),a0
+	bsr	A5_Reserve
+	beq	.MErr
+	move.l	a0,a2
+	move.l	Prg_Includes(a5),a3
+	move.l	Prg_Source(a5),a4
+; Copie le programme
+.Copy	move.l	4(a3),d0
+	lsr.l	#1,d0
+	beq.s	.Copf
+.Cop	move.w	(a4)+,(a2)+
+	subq.l	#1,d0
+	bne.s	.Cop
+.Copf
+; Charge le chunk
+	move.l	8(a3),Handle(a5)
+	beq.s	.X
+	move.l	a2,d2
+	move.l	12(a3),d3
+	jsr	D_Read
+	bne	.DErr
+	add.l	d0,a2
+	jsr	D_Close
+	clr.l	8(a3)
+; Le suivant!
+	add.l	16(a3),a4		Saute le INCLUDE
+	lea	20(a3),a3		Suivant
+	bra.s	.Copy
+; Fini
+.X	clr.l	(a2)+
+.XX	rts
+; Pas d'include
+; ~~~~~~~~~~~~~
+.PaIncl	bsr	Includes_Clear
+	rts
+; Erreur dans les includes
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.MErr	moveq	#36,d0
+	bra.s	.Err
+.DErr	moveq	#45,d0
+	bra.s	.Err
+.AErr	moveq	#46,d0
+	bra.s	.Err
+.SErr	moveq	#35,d0
+.Err	move.l	d0,-(sp)
+	move.l	(a3),VerPos(a5)
+; Ferme tous les fichiers
+	jsr	D_Close
+	move.l	Prg_Includes(a5),a3
+.Clo	move.l	8(a3),d0
+	beq.s	.Nx
+	clr.l	8(a3)
+	move.l	d0,Handle(a5)
+	jsr	D_Close
+.Nx	lea	20(a3),a3
+	subq.w	#1,d7
+	bne.s	.Clo
+; Efface les zones
+	bsr	Includes_Clear
+; Erreur!
+	move.l	(sp)+,d0
+	bra	VerErr
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INCLUDES ET FIN DE PROGRAMME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Effacement des buffers includes / Retour � la normale
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Includes_Clear
+	movem.l	a0-a1/d0-d1,-(sp)
+	lea	Prg_FullSource(a5),a0
+	bsr	A5_Free
+	lea	Prg_Includes(a5),a0
+	bsr	A5_Free
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+
+; 	Transforme une adresse FullSource (eventuellement) en adresse Source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Includes_Adr
+	movem.l	a1/d0-d1,-(sp)
+	move.l	Prg_Includes(a5),d1
+	beq.s	.Out
+	move.l	d1,a1
+	lea	-20(a1),a1
+	sub.l	Prg_FullSource(a5),a0
+	moveq	#0,d1
+	moveq	#0,d2
+; Chunk de source
+.Loop	lea	20(a1),a1
+	add.l	4(a1),d2		Longueur de source
+	cmp.l	d2,a0
+	bcs.s	.Source
+; Chunk d'include
+	tst.l	12(a1)
+	beq.s	.Out
+	add.l	12(a1),d1		A soustraire au source
+	sub.l	16(a1),d1		Sans l'include lui meme
+	add.l	12(a1),d2
+	cmp.l	d2,a0
+	bcc.s	.Loop
+; Dans un include
+	move.l	(a1),a0
+	bra.s	.Out
+; Dans le source
+.Source	sub.l	d1,a0
+	add.l	Prg_Source(a5),a0
+; Sortie
+.Out	movem.l	(sp)+,a1/d0-d1
+	rts
+
+
+Equ_LVO	dc.b	10,"_LVO",0
+Equ_Nul	dc.b	10,0
+	even
+
+
+; __________________________________________________________________________
+;
+; 					CHARGEMENTS / SAUVEGARDE PROGRAMMES
+; __________________________________________________________________________
+;
+; Entete AMOS Basic
+; ~~~~~~~~~~~~~~~~~
+H_1.3	dc.b	"AMOS Basic v134 "
+H_Pro	dc.b	"AMOS Pro101v",0,0,0,0
+	even
+
+; ___________________________________________________________________
+;
+; 	RUN programme general (A6)
+;
+;	D0=	0:Normal / 1:Accessoire / -1:PRUN
+;	A1=	Adresse Errors
+;	A2=	Patches lors du test
+; ___________________________________________________________________
+;
+Prg_RunIt
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.w	d0,d2
+; Deja en route?
+; ~~~~~~~~~~~~~~
+	bsr	Prg_DejaRunned
+	bne	.Deja
+; Sauve les donnees courantes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Prg_Push
+	bne	.Omm
+; Va tester le programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a1,Prg_JError(a5)
+	bsr	Prg_SetBanks			Banques courantes
+	JJsr	L_Bnk.Change			Envoie aux trappes
+	clr.b	Prg_Not1.3(a6)			Non compatible au depart
+	move.l	a2,d0				Premier affichage
+	beq.s	.Skip1
+	jsr	(a2)
+.Skip1	bsr	ClearVar			Plus de variables
+	bsr	PTest				Tests
+	clr.b	Prg_StModif(a6)			Programme teste!
+	move.b	VerNot1.3(a5),Prg_Not1.3(a6)	Stocke la comptibilite
+	move.b	MathFlags(a5),Prg_MathFlags(a6)	Double precision
+	move.l	a2,d0				Deuxieme affichage
+	beq.s	.Skip2
+	jsr	4(a2)
+; Initialisation graphique
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Skip2	tst.w	d2			Un accessoire
+	beq.s	.Nor
+	bmi.s	.PRun
+; Accessoire
+	tst.b	Prg_Accessory(a5)	Vraiment un accessoire?
+	beq.s	.Nor
+; PRun
+.PRun	JJsr	L_DefRunAcc
+	JJsr	L_ReCop
+	JJsr	L_WOption		AMOS en premier s'il faut!
+	JJmp	L_New_ChrGet
+; Programme normal
+.Nor	move.w	#-1,DefFlag(a5)		Non, programme normal
+	JJsr	L_DefRun1
+	move.l	a2,d0
+	beq.s	.Skip3
+	jsr	8(a2)
+.Skip3	JJsr	L_DefRun2
+	JJsr	L_ReCop
+	EcCalD	Active,0
+	clr.b	Prg_Accessory(a5)
+	JJsr	L_WOption		AMOS en premier s'il faut!
+	JJmp	L_New_ChrGet
+; Out of memory
+; ~~~~~~~~~~~~~
+.Omm	moveq	#0,d0
+	bra.s	.Out
+; Deja runned
+; ~~~~~~~~~~~
+.Deja	moveq	#-1,d0
+.Out	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; ___________________________________________________________________
+;
+; 	TEST programme general (A6)
+;
+;	A1=	Adresse Errors
+;	A2=	Patches lors du test
+; ___________________________________________________________________
+;
+Prg_TestIt
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.w	d0,d2
+; Deja en route?
+; ~~~~~~~~~~~~~~
+	bsr	Prg_DejaRunned
+	bne.s	.Deja
+; Sauve les donnees courantes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Prg_Push
+	bne	.Omm
+; Va tester le programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a1,Prg_JError(a5)
+	bsr	Prg_SetBanks
+	clr.b	Prg_Not1.3(a6)			Non compatible au depart
+	move.l	a2,d0				Premier affichage
+	beq.s	.Skip1
+	jsr	(a2)
+.Skip1	bsr	ClearVar			Plus de variables
+	bsr	PTest				Tests
+	clr.b	Prg_StModif(a6)			Programme teste!
+	move.b	VerNot1.3(a5),Prg_Not1.3(a6)	Stocke la compatibilite
+	move.b	MathFlags(a5),Prg_MathFlags(a6)	Double precision
+	move.l	a2,d0				Deuxieme affichage
+	beq.s	.Skip2
+	jsr	4(a2)
+.Skip2
+; Depile le programme
+; ~~~~~~~~~~~~~~~~~~~
+	bsr	Prg_Pull
+	moveq	#0,d0
+.Out	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+; Deja runned
+; ~~~~~~~~~~~
+.Deja	moveq	#-1,d0
+	bra.s	.Out
+; Out of memory
+; ~~~~~~~~~~~~~
+.Omm	moveq	#0,d0
+	bra.s	.Out
+
+;
+; Regarde si le programme A6 est deja RUNNE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_DejaRunned
+	movem.l	a0-a1/d0-d1,-(sp)
+	move.l	Prg_Runned(a5),d0
+	beq.s	.Ok
+.DejaL	move.l	d0,a0
+	cmp.l	a0,a6
+	beq.s	.Deja
+	move.l	Prg_Previous(a0),d0
+	bne.s	.DejaL
+.Ok	moveq	#0,d0
+	bra.s	.Out
+.Deja	moveq	#-1,d0
+.Out	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+
+;
+; STOCKAGE DES DONNEES DU PROGRAMME A6
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Prg_Push
+	movem.l	a0-a4/a6/d1-d7,-(sp)
+	move.l	Prg_Runned(a5),d0
+	move.l	a6,Prg_Runned(a5)
+	move.l	d0,Prg_Previous(a6)
+	beq	.Ok
+; Programme en route, stocke les donn�es pour les programmes suivants
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_Previous(a6),a0
+	lea	Prg_RunData(a0),a0
+	bsr	Prg_DataSave
+	beq	.Err
+; Prepare le nouveau programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Prg_DataNew
+; Pas d'erreur
+; ~~~~~~~~~~~~
+.Ok	moveq	#0,d0
+.Out	movem.l	(sp)+,a0-a4/a6/d1-d7
+	rts
+; Out of mem
+; ~~~~~~~~~~
+.Err	move.l	Prg_Previous(a6),Prg_Runned(a5)
+	clr.l	Prg_Previous(a6)
+	moveq	#-1,d0
+	bra.s	.Out
+
+;
+; RESTAURATION DES DONNEES DU PROGRAMME POUSSE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+Prg_Pull
+	movem.l	a0-a4/a6/d0-d7,-(sp)
+	move.l	Prg_Runned(a5),d0
+	beq.s	.Skip
+	move.l	d0,a6			Prend l'ancien programme
+	move.l	Prg_Previous(a6),d0	Programme precedent
+	clr.l	Prg_Previous(a6)	Plus de programme precedent!
+	move.l	d0,Prg_Runned(a5)	Le programme actuel
+	beq.s	.Skip			Si dernier programme, on garde tout!
+; Efface les variables
+; ~~~~~~~~~~~~~~~~~~~~
+	bsr	ClearVar
+	bsr	Includes_Clear
+; Efface la structure programme ancienne, si non editee...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	Prg_Edited(a6)
+	bne.s	.Edited
+	bsr	Prg_DelStructure
+.Edited
+; Remet les donnees
+; ~~~~~~~~~~~~~~~~~
+	move.l	Prg_Runned(a5),a6
+	lea	Prg_RunData(a6),a0
+	bsr	Prg_DataLoad
+; Fini!
+; ~~~~~
+.Skip	movem.l	(sp)+,a0-a4/a6/d0-d7
+	rts
+
+;
+; Programme en route, stocke les donn�es pour les programmes suivants
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse ou poker la structure
+;
+Prg_DataSave
+	move.l	#FinSave-DebSave+4+4+4*32,d0
+	move.l	#Public|Clear,d1
+	bsr	A5_Reserve
+	beq	.Err
+	move.l	a0,a1
+; Sauve les donnees
+; ~~~~~~~~~~~~~~~~~
+	lea	DebSave(a5),a0
+	move.w	#(FinSave-DebSave)/2-1,d0
+.Copy1	move.w	(a0)+,(a1)+
+	dbra	d0,.Copy1
+; Sauve la liste CLEARVAR
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_ClearRoutines(a5),a2
+	move.l	(a2),d0
+.Loop	move.l	d0,(a1)+
+	beq.s	.Out
+	move.l	d0,a0
+	move.l	(a0),d0
+	lsl.l	#1,d0
+	bra.s	.Loop
+.Out
+; Pas d'erreur
+; ~~~~~~~~~~~~
+	moveq	#-1,d0
+	rts
+.Err	moveq	#0,d0
+	rts
+
+;
+; Remet les donn�es pour retour de programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse ou prendre la structure
+;
+Prg_DataLoad
+	move.l	a0,a2
+	move.l	(a2),a0
+	lea	DebSave(a5),a1
+	move.w	#(FinSave-DebSave)/2-1,d0
+.Copy1	move.w	(a0)+,(a1)+
+	dbra	d0,.Copy1
+; Remet la liste CLEARVAR
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_ClearRoutines(a5),a1
+	move.l	(a0)+,d0
+	move.l	d0,(a1)
+	bra.s	.In
+.Loop	move.l	d0,a1
+	move.l	(a0)+,d0
+	move.l	d0,d1
+	lsr.l	#1,d1
+	bset	#31,d1
+	move.l	d1,(a1)
+.In	tst.l	d0
+	bne.s	.Loop
+; Remet le moniteur s'il faut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	Cur_ChrJump(a5),d0
+	JJsr	L_SetChrPatch
+; Les banques ont change
+; ~~~~~~~~~~~~~~~~~~~~~~
+	JJsr	L_Bnk.Change
+; Efface la zone de donn�es
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a2,a0
+	bsr	A5_Free
+	moveq	#0,d0
+	rts
+
+; Nettoie les structures interpreteur pour appel en boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_DataNew
+	clr.l	VarBuf(a5)		Plus de buffers
+	clr.l	VNmMini(a5)
+	clr.w	Stack_Size(a5)
+	clr.w	Stack_CSize(a5)
+	clr.l	MnBase(a5)		Plus de menus
+	clr.w	OMnNb(a5)
+	clr.l	OMnBase(a5)
+	clr.l	Prg_Includes(a5)	Plus d'includes
+	clr.l	Prg_FullSource(a5)
+	clr.l	Patch_Errors(a5)	Plus de moniteur
+	clr.l	Patch_Menage(a5)
+	clr.l	Patch_ScFront(a5)
+	clr.l	Patch_ScCopy(a5)
+	bclr	#1,ActuMask+1(a5)
+	moveq	#0,d0
+	JJsr	L_SetChrPatch
+	clr.b	Ed_Zappeuse(a5)		Plus de zappeuse
+	clr.b	Prg_Accessory(a5)	Plus une accessoire
+	lea	Fichiers(a5),a0		Plus de fichiers
+	moveq	#NFiche-1,d0
+.New1	clr.l	(a0)
+	lea	TFiche(a0),a0
+	dbra	d0,.New1
+	lea	Dev_List(a5),a0		Plus de devices (12 byte/device)
+	moveq	#(3*Dev_Max)-1,d0
+.New2	clr.l	(a0)+
+	dbra	d0,.New2
+	lea	Lib_List(a5),a0		Plus de librairies
+	moveq	#Lib_Max-1,d0
+.New3	clr.l	(a0)+
+	dbra	d0,.New3
+	rts
+
+;
+; Ouvre une structure de programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	IN	D0=	Longueur buffer
+;	OUT	D0=	0(rate) Structure(reussi)
+Prg_NewStructure
+	movem.l	d2/a6,-(sp)
+	move.l	d0,d2
+; Reserve la structure
+	move.l	#Prg_Long,d0
+	SyCall	SyFast
+	beq	.Err2
+	move.l	d0,a0
+; Insere dans la liste
+	move.l	Prg_List(a5),Prg_Next(a0)
+	move.l	a0,Prg_List(a5)
+; Reserve le buffer
+	move.l	a0,a6
+	move.l	d2,d0
+	bsr	Prg_ChgTTexte
+	beq.s	.Err1
+	move.l	a6,d0
+	movem.l	(sp)+,d2/a6
+	rts
+; Rate: efface le buffer
+.Err1	bsr	Prg_DelStructure
+.Err2	moveq	#0,d0
+	movem.l	(sp)+,d2/a6
+	rts
+
+;
+; Ferme une structure de programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	IN	A6=	Adresse structure
+Prg_DelStructure
+	movem.l	a0-a6/d0-d7,-(sp)
+; Efface le programme
+	tst.l	Prg_StTTexte(a6)	Efface programme + Banques
+	beq.s	.Skip
+	bsr	Prg_SetBanks
+	bsr	ClearVar
+	JJsr	L_Bnk.EffAll		Enleve les banques
+	moveq	#0,d0			Efface le buffer de texte
+	bsr	Prg_ChgTTexte
+; Enleve de la liste
+.Skip	move.l	a6,a1			Enleve de la liste
+	move.l	Prg_List(a5),d0
+	cmp.l	d0,a6
+	beq.s	.First
+.Loop	move.l	d0,a0
+	move.l	Prg_Next(a0),d0
+	cmp.l	d0,a6
+	bne.s	.Loop
+	move.l	Prg_Next(a6),Prg_Next(a0)
+	bra.s	.End
+.First	move.l	Prg_Next(a6),Prg_List(a5)
+; Efface la structure
+.End	move.l	#Prg_Long,d0		Efface la structure
+	move.l	a6,a1
+	SyCall	SyFree
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+;
+; Programme A6 >>> Programme courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_ReSetBanks
+	move.l	a6,-(sp)
+	move.l	Prg_Runned(a5),a6
+	bsr.s	Prg_SetBanks
+	move.l	(sp)+,a6
+	rts
+Prg_SetBanks
+	move.l	a0,-(sp)
+	lea	Prg_Banks(a6),a0
+	move.l	a0,Cur_Banks(a5)
+	lea	Prg_Dialogs(a6),a0
+	move.l	a0,Cur_Dialogs(a5)
+	move.l	Prg_StBas(a6),Prg_Source(a5)
+	move.l	(sp)+,a0
+	rts
+
+; New du program A6 - D0=0 Pas de DEFRUN 1- DEFRUN -2-DEFRUN sans ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_New	move.w	d0,-(sp)
+; Plus rien dans le buffer
+	clr.w	Prg_NLigne(a6)
+	tst.l	Prg_StTTexte(a6)
+	beq.s	.Vide
+	move.l	Prg_StHaut(a6),a0
+	clr.w	-(a0)
+	move.l	a0,Prg_StBas(a6)
+; Plus de nom!
+	clr.b	Prg_NamePrg(a6)
+	clr.b	Prg_Change(a6)
+	move.b	#1,Prg_StModif(a6)
+	clr.b	Prg_MathFlags(a6)
+; Raz des banques
+.Vide	clr.b	T_Actualise(a5)
+	bsr	Prg_SetBanks
+	JJsr	L_Bnk.EffAll
+	bsr	ClearVar
+; Raz de l'affichage
+	move.w	(sp)+,d0
+	beq.s	.Skip
+	move.w	d0,DefFlag(a5)
+	JJsr	L_DefRun1
+	JJsr	L_DefRun2
+.Skip	rts
+
+;
+; Change la taille du buffer de texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	IN	D0=	Nouvelle taille
+;		A6= 	Structure programme
+;	OUT	D0=	0(rate) StBas(reussi)
+Prg_ChgTTexte
+	movem.l	d1/a1,-(sp)
+	and.l	#$FFFFFFFE,d0
+	move.l	d0,d1
+	move.l	Prg_StTTexte(a6),d0
+	beq.s	.Ctt1
+	move.l	Prg_StMini(a6),a1
+	SyCall	MemFree
+	clr.l	Prg_StTTexte(a6)
+.Ctt1	move.l	d1,d0
+	beq.s	.Ctt2
+	SyCall	MemFastClear
+	beq.s	.Ctt3
+	move.l	d1,Prg_StTTexte(a6)	Raz du programme
+	move.l	a0,Prg_StMini(a6)
+	add.l	d1,a0
+	move.l	a0,Prg_StHaut(a6)
+	clr.w	-(a0)
+	move.l	a0,Prg_StBas(a6)
+; Ok!
+.Ctt2	move.l	a0,d0
+.Ctt3	movem.l	(sp)+,d1/a1
+	rts
+;
+; Charge un programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	IN	Name1=	nom du programme
+;		A6	structure dans laquelle charger
+;		D0=	<1: TOUJOURS adapter
+;			=0: Adapter si necessaire
+;			>0: Revenir si trop petit
+Prg_Load
+	movem.l	a2-a4/d2-d7,-(sp)
+	move.w	d0,-(sp)
+	move.l	#1005,d2
+	jsr	D_Open
+	beq	.DErr
+; Verifie l'entete 1.3 ou pro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),d2
+	moveq	#16+4,d3
+	jsr	D_Read
+	bne	.DErr
+	move.l	d2,a2
+	clr.b	Prg_MathFlags(a6)
+; 1.3?
+	clr.b	Prg_Not1.3(a6)
+	lea	H_1.3(pc),a0
+	move.l	d2,a1
+	moveq	#10-1,d0
+.Ver1	cmp.b	(a0)+,(a1)+
+	bne.s	.P13
+	dbra	d0,.Ver1
+	moveq	#0,d7
+	bra.s	.Load
+; Pro?
+.P13	move.b	#1,Prg_Not1.3(a6)
+	lea	H_Pro(pc),a0
+	move.l	d2,a1
+	moveq	#8-1,d0
+.Ver2	cmp.b	(a0)+,(a1)+
+	bne	.PAmos
+	dbra	d0,.Ver2
+	move.l	d2,a1			Prend le flag maths...
+	move.b	15(a1),d7
+; Verifie la taille du buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Load	move.l	16(a2),d3
+	move.l	d3,d1
+	tst.w	(sp)
+	beq.s	.Sin�
+	bmi.s	.2Joor
+; Charge si possible
+	cmp.l	Prg_StTTexte(a6),d1
+	blt.s	.CBon
+	add.l	#256,d1
+	bra.s	.Papo
+; Adapter si necessaire
+.Sin�	cmp.l	Prg_StTTexte(a6),d1
+	blt.s	.CBon
+; Adapter!
+.2Joor	add.l	#256,d1
+	move.l	d1,d0
+	bsr	Prg_ChgTTexte
+	beq.s	.MErr
+.CBon	move.l	Prg_StHaut(a6),a0
+	clr.w	-(a0)
+	move.l	a0,d2
+	sub.l	d3,d2
+; Charge le fichier
+; ~~~~~~~~~~~~~~~~~
+	jsr	D_Read
+	bne	.DErr
+	move.l	d2,Prg_StBas(a6)
+; Charge les banques
+; ~~~~~~~~~~~~~~~~~~
+	bsr	Prg_SetBanks
+	move.l	#EntNul,d0
+	JJsr	L_Bnk.Load
+	bne	.Out
+; Change le nom
+; ~~~~~~~~~~~~~
+	move.l	Name1(a5),a0
+	lea	Prg_NamePrg(a6),a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+; Programme non modifie
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Prg_CptLines
+	clr.b	Prg_Change(a6)
+	move.b	d7,Prg_MathFlags(a6)
+	moveq	#0,d0
+	bra.s	.Out
+; Erreur de disque
+; ~~~~~~~~~~~~~~~~
+.DErr	moveq	#-1,d0
+	bra.s	.Out
+; Out of mem
+; ~~~~~~~~~~
+.MErr	moveq	#-2,d0
+	bra.s	.Out
+; Pas un programme AMOS
+; ~~~~~~~~~~~~~~~~~~~~~
+.PAmos	moveq	#-3,d0
+	bra.s	.Out
+; Impossible de charger: buffer trop petit
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Papo	moveq	#1,d0
+; Ferme le fichier et sort
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Out	jsr	D_Close
+	addq.l	#2,sp
+	movem.l	(sp)+,a2-a4/d2-d7
+	tst.l	d0
+	rts
+;
+; COMPTE LE NOMBRE DE LIGNES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_CptLines
+	move.l	Prg_StBas(a6),a0
+	moveq	#0,d0
+	moveq	#0,d1
+CpL1	add.w	d1,a0
+	add.w	d1,a0
+CpL2	move.b	(a0),d1
+	beq.s	CpLx
+	addq.w	#1,d0
+	cmp.w	#_TkProc,2(a0)
+	bne.s	CpL1
+; Saute une procedure fermee
+	tst.b	10(a0)
+	bpl.s	CpL1
+	add.l	4(a0),a0
+	moveq	#(10+2+2)/2,d1
+	bra.s	CpL1
+; Nombre de lignes
+CpLx	move.w	d0,Prg_NLigne(a6)
+	rts
+
+;
+; TROUVE L'ADRESSE DU PROGRAMME NAME1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	In	Name1	Nom � cherche
+;	Out	Trouve	BNE, A0=adresse
+;		Non	BEQ
+;
+Prg_AccAdr
+	movem.l	a2-a3/d2,-(sp)
+	move.l	Name1(a5),a0
+	JJsrR	L_Dsk.DNom,a3
+	move.l	a0,d2
+	move.l	Prg_List(a5),d0
+	beq.s	.Out
+.Loop0	move.l	d0,a2
+	lea	Prg_NamePrg(a2),a0
+	JJsrR	L_Dsk.DNom,a3
+	move.l	d2,a1
+.Loop1	move.b	(a0)+,d0
+	bsr	MajD0
+	move.b	d0,d1
+	move.b	(a1)+,d0
+	bsr	MajD0
+	cmp.b	d0,d1
+	bne.s	.Next
+	or.b	d1,d0
+	bne.s	.Loop1
+	move.l	a2,d0
+	bra.s	.Ok
+.Next	move.l	Prg_Next(a2),d0
+	bne.s	.Loop0
+.Out	moveq	#0,d0
+.Ok	move.l	d0,a0
+	movem.l	(sp)+,a2-a3/d2
+	rts
+MajD0	cmp.b	#"a",d0
+	bcs.s	.Ski
+	cmp.b	#"z",d0
+	bhi.s	.Ski
+	sub.b	#$20,d0
+.Ski	rts
+
+;
+; Sauve un programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	IN	Name1=	nom du programme
+;		A6	structure � sauver
+Prg_Save
+	movem.l	a2/d2-d4,-(sp)
+	move.l	#1006,d2
+	jsr	D_Open
+	beq	.Err
+; Sauve le header du programme: PRO / 1.3
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	H_Pro(pc),a0			Header PRO
+	move.b	Prg_MathFlags(a6),15(a0)	Double precision
+	tst.b	Prg_Not1.3(a6)
+	bne.s	.N13
+	lea	H_1.3(pc),a0
+.N13	moveq	#"V",d0			Teste!
+	tst.b	Prg_StModif(a6)
+	beq.s	.Skip
+	moveq	#"v",d0			Non teste!
+.Skip	move.b	d0,11(a0)		Met la marque
+	move.l	a0,d2
+	moveq	#16,d3
+	jsr	D_Write
+	bne	.Err
+; Trouve la fin REELLE du programme (pas les zeros de fin!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_StBas(a6),a0
+.Loop	bsr	Tk_FindN		Explore le programme
+	bne.s	.Loop
+.Fin	move.l	a0,d4			Stoppe sur le premier zero
+; Sauve la taille PRG
+; ~~~~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),a0
+	move.l	d4,d0
+	sub.l	Prg_StBas(a6),d0
+	move.l	d0,(a0)
+	move.l	a0,d2
+	moveq	#4,d3
+	jsr	D_Write
+	bne	.Err
+; Sauve le corps du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_StBas(a6),d2
+	move.l	d4,d3
+	sub.l	d2,d3
+	jsr	D_Write
+	bne	.Err
+; Sauve les banques....
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Prg_SetBanks
+	JJsr	L_Bnk.SaveAll
+	bne	.Err
+; Fin de la sauvegarde
+; ~~~~~~~~~~~~~~~~~~~~
+	jsr	D_Close
+; Change le nom
+; ~~~~~~~~~~~~~
+	move.l	Name1(a5),a0
+	lea	Prg_NamePrg(a6),a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+; Pas d'erreur
+; ~~~~~~~~~~~~
+	clr.b	Prg_Change(a6)
+	moveq	#0,d0
+	bra.s	.Out
+.Err	moveq	#-1,d0
+.Out	movem.l	(sp)+,a2/d2-d4
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES GESTION SOURCE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; FIND_LINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	Trouve la ligne 	D0
+;	Debut source		A0
+;	Debut Proc >>>		A1
+Tk_FindN
+	moveq	#1,d0
+Tk_FindL
+	move.l	d1,-(sp)
+	moveq	#0,d1
+	sub.l	a1,a1
+	subq.w	#1,d0
+	bmi.s	FndT
+; Boucle principale
+Fnd1	move.b	(a0),d1
+	beq.s	FndT
+	cmp.w	#_TkProc,2(a0)
+	beq.s	Fnd4
+Fnd2	add.w	d1,a0
+	add.w	d1,a0
+Fnd3	dbra	d0,Fnd1
+	bra.s	FndT
+; Debut de procedure
+Fnd4	tst.w	10(a0)			* Fermee
+	bpl.s	Fnd5
+	move.l	4(a0),d1
+	lea	12+2(a0,d1.l),a0
+	moveq	#0,d1
+	bra.s	Fnd3
+Fnd5	move.l	a0,a1			* Ouverte
+	bra.s	Fnd7
+Fnd6	move.b	(a0),d1
+	beq.s	FndT
+	cmp.w	#_TkEndP,2(a0)
+	beq.s	Fnd8
+Fnd7	add.w	d1,a0
+	add.w	d1,a0
+	dbra	d0,Fnd6
+	bra.s	FndT
+Fnd8	sub.l	a1,a1
+	bra.s	Fnd2
+; Trouve!
+FndT	move.l	(sp)+,d1
+	move.w	(a0),d0
+	beq.s	FndT1
+	cmp.w	#_TkProc,2(a0)
+	bne.s	FndT1
+	move.l	a0,a1
+FndT1	tst.w	d0
+	rts
+; Taille de la ligne A0
+; ~~~~~~~~~~~~~~~~~~~~~
+Tk_SizeL
+	moveq	#0,d0
+	move.b	(a0),d0
+	beq.s	.Out
+	cmp.w	#_TkProc,2(a0)
+	beq.s	.Proc
+.Ouv	lsl.w	#1,d0
+.Out	rts
+.Proc	tst.w	10(a0)
+	bpl.s	.Ouv
+	moveq	#12+2,d0
+	add.l	4(a0),d0
+	rts
+; La ligne courante est-elle editable?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tk_EditL
+	tst.b	(a0)
+	beq.s	.Oui
+	cmp.w	#_TkProc,2(a0)
+	bne.s	.Oui
+	btst	#7,10(a0)
+	beq.s	.Oui
+	move.w	#%00100,CCR		BEQ>>> faux
+	rts
+.Oui	move.w	#%00000,CCR		BNE>>> vrai
+	rts
+
+; TROUVE LE NUMERO ET LE DEBUT DE LA LIGNE A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; A1-> Debut du buffer
+; D0-> Numero
+; D1-> Adresse debut proc
+Tk_FindA
+	movem.l	d2/a2,-(sp)
+	move.l	a1,a2
+	moveq	#-1,d0
+	moveq	#0,d1
+	moveq	#0,d2
+FdA1:	addq.l	#1,d0
+	move.l	a2,a1
+	move.b	(a2),d2
+	beq.s	FdAT
+	cmp.w	#_TkProc,2(a2)
+	beq.s	FdA4
+FdA2	add.w	d2,a2
+	add.w	d2,a2
+FdA3	cmp.l	a0,a2
+	bls.s	FdA1
+	bra.s	FdAT
+; Une procedure
+FdA4	tst.w	10(a2)
+	bpl.s	FdA2
+	move.l	a2,d1
+	btst	#4,10(a2)
+	beq.s	FdA6
+	add.l	4(a2),a2
+	lea	12+2(a2),a2
+	moveq	#0,d2
+	bra.s	FdA6
+FdA5	move.l	a2,a1
+	move.b	(a2),d2
+	beq.s	FdAT
+	cmp.w	#_TkEndP,2(a2)
+	beq.s	FdA7
+FdA6	add.w	d2,a2
+	add.w	d2,a2
+	cmp.l	a0,a2
+	bls.s	FdA5
+	bra.s	FdAT
+FdA7	moveq	#0,d1
+	bra.s	FdA2
+; Trouve!
+FdAT	move.l	a1,a0
+	movem.l	(sp)+,d2/a2
+	rts
+
+;				Codage / Decodage procedure LOCKEE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	A6---> "PROC"
+ProCode	movem.l	d0-d7/a0-a6,-(sp)
+	btst	#4,8(a6)		* Flag COMPILED?
+	bne	PaCo
+	move.l	2(a6),d0
+	lea	10+2+4(a6,d0.l),a2	* A2---> ENDPROC
+	move.w	-2(a6),d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a1		* A1---> Ligne suivante
+	move.l	2(a6),d5
+	rol.l	#8,d5
+	move.b	9(a6),d5
+	moveq	#1,d4
+	move.w	6(a6),d3
+	bra.s	PrCo2
+PrCo1	eor.w	d5,(a0)+
+	add.w	d4,d5
+	add.w	d3,d4
+	ror.l	#1,d5
+	cmp.l	a0,a1
+	bne.s	PrCo1
+PrCo2	move.l	a1,a0
+	move.w	(a0)+,d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a0,d0.w),a1
+	addq.l	#2,a0
+	cmp.l	a0,a2
+	bne.s	PrCo1
+* Change le flag
+	bchg	#5,8(a6)
+PaCo	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+;				Echange des tables de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Verif
+	moveq	#-1,d3
+	bra.s	Ver_Echange
+Ver_Run	moveq	#0,d3
+Ver_Echange
+	lea	AdTokens(a5),a2
+	moveq	#27-1,d2
+.Loop	tst.l	(a2)
+	beq.s	.Next
+	move.l	(a2),a1
+	tst.l	LB_Verif(a1)		Une table?
+	beq.s	.Next
+	tst.w	d3			Run (0)  ou Verif (1)
+	bne.s	.Verif
+; Run!
+	bclr	#LBF_Verif,LB_Flags(a1)		Deja RUN?
+	beq	.Next
+	bsr.s	Ver_Ech			On echange
+	bra.s	.Next
+; Verif!
+.Verif	bset	#LBF_Verif,LB_Flags(a1)		Deja VERIF?
+	bne	.Next
+	bsr.s	Ver_Ech
+; Table suivante
+.Next	addq.l	#4,a2
+	dbra	d2,.Loop
+	rts
+; Echange des tables
+; ~~~~~~~~~~~~~~~~~~
+Ver_Ech	move.l	a1,a0			Debut des tokens
+	move.l	LB_Verif(a0),a1		Adresse table
+	move.w	(a1)+,d1		Longueur table
+	ext.l	d1
+	add.l	a1,d1			Fin table
+.Loop	move.l	(a0),d0
+	move.l	(a1),(a0)+
+	move.l	d0,(a1)+
+.Skip1	tst.b	(a0)+
+	bpl.s	.Skip1
+.Skip2	tst.b	(a0)+
+	bpl.s	.Skip2
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	cmp.l	d1,a1
+	bcs.s	.Loop
+	rts
+
+
+;						Table des operateurs / Test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Operateurs
+	bra	Tst_Chiffre
+	dc.b 	" xor"," "+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	" or"," "+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	" and"," "+$80,"O00",-1
+	bra	Tst_Comp
+	dc.b 	"<",">"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	">","<"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"<","="+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"=","<"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	">","="+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"=",">"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"="+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"<"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	">"+$80,"O20",-1
+	bra	Tst_Mixte
+	dc.b 	"+"+$80,"O22",-1
+	bra	Tst_Mixte
+	dc.b 	"-"+$80,"O22",-1
+	bra	Tst_Chiffre
+	dc.b 	" mod"," "+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	"*"+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	"/"+$80,"O00",-1
+	bra	Tst_Puis
+	dc.b 	"^"+$80,"O00",-1
+	even
+Tst_Jumps
+	dc.l 	0
diff --git a/+Version.s b/+Version.s
new file mode 100644
index 0000000..650f289
--- /dev/null
+++ b/+Version.s
@@ -0,0 +1,33 @@
+; ______________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ______________________________________________________________________________
+Version    MACRO
+           dc.b "2.00",0
+           ENDM
+VerNumber  equ $200
diff --git a/+W.s b/+W.s
new file mode 100644
index 0000000..f2d0473
--- /dev/null
+++ b/+W.s
@@ -0,0 +1,16797 @@
+
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+;		LIBRAIRIE GRAPHIQUE AMOS
+;
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+		OPT	P+
+
+***************************************************************************
+		IFND	EZFlag
+EZFlag		equ 	0
+		ENDC
+***************************************************************************
+
+		IncDir	"includes/"
+		Include "exec/types.i"
+		Include "exec/interrupts.i"
+		Include "graphics/gfx.i"
+		Include "graphics/layers.i"
+		Include "graphics/clip.i"
+		Include "hardware/intbits.i"
+		Include "devices/input.i"
+		Include "devices/inputevent.i"
+
+		Include	"+Debug.s"
+		Include	"+AMOS_Includes.s"
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Version	MACRO
+	dc.b	0,"$VER: 2.00",0
+	even
+	ENDM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+WDebut	bra	Startall	Cold start
+	bra	Endall		End
+	dc.l	L_Trappe	Length of data zone
+	bra	IceStart	Access of System functions
+	bra	IceEnd		Stop access of system functions
+	dc.b	"P110"		Version Pro 1.10
+
+BugBug	movem.l	d0-d2/a0-a2,-(sp)
+.Ll	move.w	#$FF0,$DFF180
+ 	btst	#6,$BFE001
+	bne.s	.Ll
+	move.w	#20,d0
+.L0	move.w	#10000,d1
+.L1	move.w	d0,$DFF180
+	dbra	d1,.L1
+	dbra	d0,.L0
+	btst	#6,$BFE001
+	beq.s	.Ill
+	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+.Ill	moveq	#0,d1
+	bsr	TAMOSWb
+	movem.l	(sp)+,d0-d2/a0-a2
+	illegal
+	rts
+
+		Version
+
+	IFEQ	EZFlag
+***********************************************************
+*	COLLISIONS HARD
+
+******* SET HARDCOL
+*	D1= 	Sprites
+*	D2=	Enable
+*	D3=	Compare
+HColSet	and.w	#$000F,d1
+	lsl.w	#8,d1
+	lsl.w	#4,d1
+	and.w	#$003F,d2
+	lsl.w	#6,d2
+	and.w	#$003F,d3
+	or.w	d2,d1
+	or.w	d3,d1
+	move.w	d1,Circuits+$98
+	moveq	#0,d0
+	rts
+******* =HARDCOL
+*	D1=	#Sprite / -1 Si bitplanes
+HColGet	lea	T_TColl(a5),a0
+	move.l	a0,a1
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	move.w	Circuits+$0E,d2
+	tst.w	d1
+	bmi.s	HCol3
+* Sprites
+	and.w	#$0006,d1
+	lsl.w	#2,d1
+	lea	HColT(pc),a0
+	add.w	d1,a0
+	moveq	#0,d3
+	moveq	#%00000011,d4
+	moveq	#0,d1
+	move.b	(a0)+,d0
+HCol1	bmi.s	HCol2
+	btst	d0,d2
+	beq.s	HCol2
+	or.w	d4,d3
+	cmp.w	#$0100,d3
+	bcc.s	HCol2
+	moveq	#-1,d1
+HCol2	lsl.w	#2,d4
+	move.b	(a0)+,d0
+	bne.s	HCol1
+* Ok!
+	ror.w	#8,d3
+	move.w	d3,(a1)
+	moveq	#0,d0
+	rts
+******* Playfield / Playfield
+HCol3	moveq	#0,d1
+	btst	#0,d2
+	beq.s	HCol4
+	moveq	#-1,d1
+HCol4	rts
+******* Table des bits a tester!
+HColT	dc.b	-1,9,10,11,1,5,0,0
+	dc.b	9,-1,12,13,2,6,0,0
+	dc.b	10,12,-1,14,3,7,0,0
+	dc.b	11,13,14,-1,4,8,0,0
+	ENDC
+
+***********************************************************
+*	COLLISIONS SOFT
+
+******* Routine collision:
+*	A3/A2= 	descripteur sprite concerne
+*	D0/D1=	bob dest   DX/DY
+*	D2=	Image!
+*	D4/D5= 	bob source DX/DY
+*	D6/D7=	bob source FX/FY
+*	A4=	banque!
+******* RETOUR: BNE-> Pas coll
+*******		BEQ-> Coll
+ColRout:
+* Pointe le descripteur
+	and.w	#$3FFF,d2
+	beq	ColRF
+	cmp.w	(a4),d2
+	bhi	ColRF
+	lsl.w	#3,d2
+	lea	-8+2(a4,d2.w),a0
+	move.l	4(a0),d2
+	ble	ColRF
+	move.l	d2,a1
+	move.l	(a0),d2
+	beq	ColRF
+	move.l	d2,a0
+* Prend les coordonnees
+	move.w	6(a0),d2
+	lsl.w	#2,d2
+	asr.w	#2,d2
+	sub.w	d2,d0
+	sub.w	8(a0),d1
+	move.w	(a0),d2
+	lsl.w	#4,d2
+	move.w	2(a0),d3
+	add.w	d0,d2
+	add.w	d1,d3
+* Croisement?
+	cmp.w	d4,d2
+	ble	ColRF
+	cmp.w	d6,d0
+	bge	ColRF
+	cmp.w	d5,d3
+	ble	ColRF
+	cmp.w	d7,d1
+	bge	ColRF
+* Verifie avec le blitter!
+	movem.l	d4-d7/a2/a3,-(sp)
+	cmp.w	d0,d4		* Met le plus a gauche en D0
+	bge.s	ColR1
+	exg.l	d0,d4
+	exg.l	d1,d5
+	exg.l	d2,d6
+	exg.l	d3,d7
+	exg.l	a1,a3
+	exg.l	a0,a2
+ColR1:	cmp.w	d5,d1
+	bge.s	ColR5
+	move.w	d5,-(sp)
+	sub.w	d1,(sp)
+	clr.w	-(sp)
+ColR2:	cmp.w	d3,d7
+	bge.s	ColR3
+	move.w	d7,-(sp)
+	bra.s	ColR4
+ColR3:	move.w	d3,-(sp)
+ColR4:	sub.w	d5,(sp)
+	bra.s	ColR7a
+ColR5:	clr.w	-(sp)
+	move.w	d1,-(sp)
+	sub.w	d5,(sp)
+	cmp.w	d3,d7
+	bge.s	ColR6
+	move.w	d7,-(sp)
+	bra.s	ColR7
+ColR6:	move.w	d3,-(sp)
+ColR7:	sub.w	d1,(sp)
+
+ColR7a:	move.w	d4,d1
+	sub.w	d0,d1
+	cmp.w	d2,d6
+	bge.s	ColR8
+	move.w	d6,d3
+	bra.s	ColR9
+ColR8:	move.w	d2,d3
+ColR9:	sub.w	d4,d3
+
+	move.w	d1,d0
+	lsl.w	#8,d0
+	lsl.w	#4,d0
+	move.w	d0,BltCon1(a6)
+	move.w	#%0000110011000000,BltCon0(a6)
+	lsr.w	#4,d3
+	tst.w	d0
+	beq.s	ColRA
+	addq.w	#1,d3
+ColRA:	move.w	d3,d4
+	move.w	(sp)+,d0
+	ble.s	ColRF0
+	lsl.w	#6,d0
+	or.w	d0,d4
+	lsl.w	#1,d3
+	move.w	(a0),d0
+	lsl.w	#1,d0
+;	addq.w	#2,d0
+	move.w	d0,d6
+	sub.w	d3,d0
+	move.w	d0,BltModA(a6)
+	move.w	(a2),d0
+	lsl.w	#1,d0
+;	addq.w	#2,d0
+	move.w	d0,d5
+	sub.w	d3,d0
+	move.w	d0,BltModB(a6)
+
+	mulu	(sp)+,d5
+	lea	4(a3,d5.w),a3
+	move.l	a3,BltAdB(a6)
+	move.w	d1,d0
+	lsr.w	#4,d0
+	lsl.w	#1,d0
+	mulu	(sp)+,d6
+	add.w	d0,d6
+	lea	4(a1,d6.w),a1
+	move.l	a1,BltAdA(a6)
+	move.w	#-1,BltMaskD(a6)
+	and.w	#$000F,d1
+	lsl.w	#1,d1
+	lea	MCls(pc),a1
+	move.w	0(a1,d1.w),BltMaskG(a6)
+
+	move.w	d4,BltSize(a6)
+	movem.l	(sp)+,d4-d7/a2/a3
+
+ColRW:	bsr	BlitWait
+	btst	#13,DmaConR(a6)
+	rts
+* Yapa collision!
+ColRF:	moveq	#1,d0
+	rts
+* Yapa special!
+ColRF0:	addq.l	#4,sp
+ColRF1:	movem.l	(sp)+,d4-d7/a2/a3
+	moveq	#1,d0
+	rts
+
+***********************************************************
+*	BOB COLLIDE
+*	D1= Numero du bob
+*	D2= Debut a explorer (Bit 31===> TO SPRITE)
+*	D3= Fin a explorer
+BbColl:	movem.l	a2-a6/d2-d7,-(sp)
+	lea	Circuits,a6
+	bsr	OwnBlit
+	lea	T_TColl(a5),a0
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	moveq	#0,d7
+	move.l	T_SprBank(a5),d0
+	beq	BbColX
+	move.l	d0,a4
+	bsr	BobAd
+	bne	BbColX
+
+* Coordonnees du bob a tester!
+	move.l	a1,a2
+	tst.b	BbAct(a2)
+	bmi	BbColX
+	move.w	d1,a0
+	move.l	BbEc(a2),d1
+	move.w	BbX(a2),d4
+	move.w	BbY(a2),d5
+	move.w	BbI(a2),d0
+	and.w	#$3FFF,d0
+	beq	BbColX
+	cmp.w	(a4),d0
+	bhi	BbColX
+	lsl.w	#3,d0
+	lea	-8+2(a4,d0.w),a2
+	move.l	4(a2),d0
+	ble	BbColX
+	move.l	d0,a3
+	move.l	(a2),d0
+	beq	BbColX
+	move.l	d0,a2
+	move.w	6(a2),d0
+	lsl.w	#2,d0
+	asr.w	#2,d0
+	sub.w	d0,d4
+	sub.w	8(a2),d5
+	move.w	d4,d6
+	move.w	d5,d7
+	move.w	(a2),d0
+	lsl.w	#4,d0
+	add.w	d0,d6
+	add.w	2(a2),d7
+	btst	#31,d2
+	bne	GoToSp
+
+	exg.l	a0,a5
+	move.l	T_BbDeb(a0),d0
+	lea	T_TColl(a0),a0
+******* Explore la table des bobs!
+BbCol1:	move.l	d0,a1
+	move.w	BbNb(a1),d0
+	cmp.w	d2,d0
+	bcs.s	BbColN
+	cmp.w	d3,d0
+	bhi.s	BbColX
+	cmp.w	a5,d0
+	beq.s	BbColN
+	cmp.l	BbEc(a1),d1
+	bne.s	BbColN
+	tst.b	BbAct(a1)
+	bmi.s	BbColN
+	movem.l	d0-d3/a0/a1,-(sp)
+	move.w	BbX(a1),d0
+	move.w	BbY(a1),d1
+	move.w	BbI(a1),d2
+	bsr	ColRout
+	movem.l	(sp)+,d0-d3/a0/a1
+	bne.s	BbColN
+	swap	d2
+	and.w	#$00FF,d0
+	move.w	d0,d2
+	lsr.w	#3,d0
+	and.w	#$7,d2
+	bset	d2,0(a0,d0.w)
+	bset	#31,d7
+	swap	d2
+BbColN:	move.l	BbNext(a1),d0
+	bne.s	BbCol1
+
+******* Fini!
+BbColX:	bsr	DOwnBlit
+	btst	#31,d7
+	bne.s	BbColT
+	moveq	#0,d0
+	bra.s	BbColXx
+BbColT	moveq	#-1,d0
+BbColXx	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+******* Conversion---> HARD
+GoToSp:	movem.w	d2-d3,-(sp)
+	move.l	d1,a0
+	sub.w	d4,d6
+	sub.w	d5,d7
+	move.w	d4,d1
+	move.w	d5,d2
+	bsr	CXyS
+	move.w	d1,d4
+	move.w	d2,d5
+	add.w	d4,d6
+	add.w	d5,d7
+	movem.w	(sp)+,d2-d3
+	moveq	#-1,d1
+	bra	BbToSp
+
+	IFEQ	EZFlag
+***********************************************************
+*	SPRITE COLLIDE
+*	D1= Numero du sprite
+*	D2= Debut a explorer
+*	D3= Fin a explorer
+SpColl:	movem.l	a2-a6/d2-d7,-(sp)
+	lea	Circuits,a6
+	bsr	OwnBlit
+	lea	T_TColl(a5),a0
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+	moveq	#0,d7
+	move.l	T_SprBank(a5),d0
+	beq	BbColX
+	move.l	d0,a4
+
+* Coordonnees du sprite a tester!
+	cmp.w	#64,d1
+	bcc	BbColX
+	lea	T_HsTAct(a5),a2
+	move.w	d1,d0
+	lsl.w	#3,d0
+	add.w	d0,a2
+	move.w	2(a2),d4
+	move.w	4(a2),d5
+	move.w	6(a2),d0
+	and.w	#$3FFF,d0
+	beq	BbColX
+	cmp.w	(a4),d0
+	bhi	BbColX
+	lsl.w	#3,d0
+	lea	-8+2(a4,d0.w),a2
+	move.l	4(a2),d0
+	ble	BbColX
+	move.l	d0,a3
+	move.l	(a2),d0
+	beq	BbColX
+	move.l	d0,a2
+	move.w	6(a2),d0
+	lsl.w	#2,d0
+	asr.w	#2,d0
+	sub.w	d0,d4
+	sub.w	8(a2),d5
+	move.w	d4,d6
+	move.w	d5,d7
+	move.w	(a2),d0
+	lsl.w	#4,d0
+	add.w	d0,d6
+	add.w	2(a2),d7
+	btst	#31,d2
+	bne	SpToBb
+	ENDC
+
+BbToSp:	cmp.w	#64,d3
+	bcc	BbColX
+	cmp.w	d2,d3
+	bcs	BbColX
+	lea	T_TColl(a5),a0
+	lea	T_HsTAct(a5),a1
+	move.w	d2,d0
+	lsl.w	#3,d2
+	add.w	d2,a1
+	move.w	d3,a5
+******* Explore la table des sprites!
+SpCol1:	cmp.w	d1,d0
+	beq.s	SpColN
+	tst.w	(a1)
+	bmi.s	SpColN
+	move.w	6(a1),d2
+	ble.s	SpColN
+	movem.l	d0/d1/a0/a1,-(sp)
+	move.w	2(a1),d0
+	move.w	4(a1),d1
+	bsr	ColRout
+	movem.l	(sp)+,d0/d1/a0/a1
+	bne.s	SpColN
+	move.w	d0,d2
+	move.w	d0,d3
+	lsr.w	#3,d2
+	and.w	#$7,d3
+	bset	d3,0(a0,d2.w)
+	bset	#31,d7
+SpColN:	addq.w	#1,d0
+	addq.l	#8,a1
+	cmp.w	a5,d0
+	bls.s	SpCol1
+	bra	BbColX
+
+******* Fin de SPRITE/BOB
+SpToBb:	move.l	T_BbDeb(a5),d0
+	lea	T_TColl(a5),a5
+SbCol1:	move.l	d0,a1
+	move.w	BbNb(a1),d0
+	cmp.w	d2,d0
+	bcs	SbColN
+	cmp.w	d3,d0
+	bhi	BbColX
+	tst.b	BbAct(a1)
+	bmi	SbColN
+	movem.l	d0/d2/d3/a1,-(sp)
+	move.l	BbEc(a1),a0
+	move.w	BbX(a1),d1
+	move.w	BbY(a1),d2
+	bsr	CXyS
+	move.w	d1,d0
+	move.w	d2,d1
+	move.w	BbI(a1),d2
+	bsr	ColRout
+	movem.l	(sp)+,d0/d2/d3/a1
+	bne.s	SbColN
+	and.w	#$00FF,d0
+	move.w	d0,d1
+	lsr.w	#3,d0
+	and.w	#$7,d1
+	bset	d1,0(a5,d0.w)
+	bset	#31,d7
+SbColN:	move.l	BbNext(a1),d0
+	bne.s	SbCol1
+	bra	BbColX
+
+***********************************************************
+*	=COLL(n) ramene la collision d'un bob/sprite
+GetCol:	lea	T_TColl(a5),a0
+	tst.l	d1
+	bmi.s	GetC2
+	and.w	#$FF,d1
+	move.w	d1,d0
+	lsr.w	#3,d0
+	and.w	#$7,d1
+	btst	d1,0(a0,d0.w)
+	bne.s	GetC1
+GetC0:	moveq	#0,d0
+	rts
+GetC1:	moveq	#-1,d0
+	rts
+* Ramene le premier en collision
+GetC2:	neg.l	d1
+	cmp.l	#255,d1
+	bcc.s	GetC0
+	move.w	d1,d0
+	lsr.w	#3,d0
+	add.w	d0,a0
+	move.l	d1,d0
+	and.w	#7,d1
+.loop	btst	d1,(a0)
+	bne.s	.found
+	addq.w	#1,d0
+	addq.w	#1,d1
+	cmp.w	#8,d1
+	bcs.s	.loop
+	moveq	#0,d1
+	addq.l	#1,a0
+	cmp.w	#256,d0
+	bcs.s	.loop
+	bra.s	GetC0
+.found	rts
+
+***********************************************************
+*	HOT SPOT!
+*	A2= descripteur
+*	D1= Mode
+*	D2= Dx
+*	D3= Dy
+SpotH:	move.l	(a2),d0
+	beq.s	SpoE
+	move.l	d0,a1
+	tst.w	d1
+	beq.s	Spo4
+******* Mode FIXE!
+	move.w	(a1),d2
+	lsl.w	#4,d2
+	move.w	2(a1),d3
+	subq.w	#1,d1
+* En X
+	move.w	d1,d0
+	lsr.w	#4,d0
+	and.w	#3,d0
+	subq.w	#1,d0
+	bhi.s	Spo2
+	beq.s	Spo1
+	moveq	#0,d2
+Spo1:	lsr.w	#1,d2
+* En Y
+Spo2:	and.w	#3,d1
+	subq.w	#1,d1
+	bhi.s	Spo4
+	beq.s	Spo3
+	moveq	#0,d3
+Spo3:	lsr.w	#1,d3
+* Poke, en respectant les FLAGS!
+Spo4:	and.w	#$C000,6(a1)
+	and.w	#$3FFF,d2
+	or.w	d2,6(a1)
+	move.w	d3,8(a1)
+	moveq	#0,d0
+	rts
+SpoE:	moveq	#-1,d0
+	rts
+
+***********************************************************
+*	GET BOB/BLOC
+*	A1= Ecran
+*	A2= descripteur
+*	D2/D3= X1/Y1
+*	D4/D5= TX/TY
+*	D6=    X2
+GetBob:	movem.l	d1-d7/a0-a6,-(sp)
+	move.l	a1,a5
+* Masque droite
+	move.w	d4,d6
+	and.w	#$000F,d6
+	lsl.w	#1,d6
+	move.w	d6,a4
+* Taille en octets!
+	move.w	EcNPlan(a5),d7
+	add.w	#15,d4
+	lsr.w	#4,d4
+	move.w	d4,d6
+	lsl.w	#1,d6
+	move.w	d6,d1
+	mulu	d5,d1
+	mulu	d7,d1
+******* Efface l'ancien???
+	move.l	(a2),d0
+	beq.s	GtBb1
+	move.l	d0,a1			* Efface le bob
+	move.w	(a1),d0
+	lsl.w	#1,d0
+	mulu	2(a1),d0
+	mulu	4(a1),d0
+	cmp.l	d0,d1
+	beq.s	GtBb1
+	add.l	#10,d0
+	bsr	FreeMm
+	clr.l	(a2)
+GtBb1:	move.l	4(a2),d0
+	ble.s	GtBb2
+	move.l	d0,a1
+	move.l	(a1),d0
+	bsr	FreeMm
+GtBb2	clr.l	4(a2)
+******* Reserve le mouveau
+	tst.l	(a2)
+	bne.s	GtBb3
+	move.l	d1,d0
+	add.l	#10,d0
+	bsr	ChipMm2
+	beq	GtBbE
+	move.l	d0,(a2)
+******* Ca y est!
+GtBb3:	move.l	(a2),a2
+	move.w	d4,(a2)+
+	move.w	d5,(a2)+
+	move.w	d7,(a2)+
+	clr.w	(a2)+
+	clr.w	(a2)+
+******* GETTE!
+	lea	Circuits,a6
+	bsr	OwnBlit
+	subq.w	#1,d7
+	move.w	d2,d0
+	and.w	#$000F,d0
+	bne.s	GtBc
+
+******* Au mot!
+	moveq	#-1,d1
+	move.w	d1,BltMaskG(a6)
+	move.w	a4,d0
+	beq.s	GtBbM
+	lea	MCls(pc),a0
+	move.w	0(a0,d0.w),d1
+	not.w	d1
+GtBbM:	move.w	d1,BltMaskD(a6)
+	move.w	EcTLigne(a5),d1
+	mulu	d1,d3
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+	ext.l	d2
+	add.l	d2,d3
+	lea	EcCurrent(a5),a1
+	sub.w	d6,d1
+	move.w	d1,BltModA(a6)
+	move.l	a2,BltAdD(a6)
+	clr.w	BltModD(a6)
+	lsl.w	#6,d5
+	or.w	d5,d4
+	move.w	#%0000100111110000,BltCon0(a6)
+	clr.w	BltCon1(a6)
+GtBb5:	move.l	(a1)+,a0
+	add.l	d3,a0
+	move.l	a0,BltAdA(a6)
+	move.w	d4,BltSize(a6)
+GtBb6:	bsr	BlitWait
+	dbra	d7,GtBB5
+	bra	GtBbX
+
+******* Au pixel!
+GtBc:	move.w	#%0000010111001100,BltCon0(a6)
+	moveq	#16,d1
+	sub.w	d0,d1
+	moveq	#12,d0
+	lsl.w	d0,d1
+	move.w	d1,BltCon1(a6)
+	move.w	EcTligne(a5),d1
+	ext.l	d1
+	mulu	d1,d3
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+	ext.l	d2
+	add.l	d2,d3
+	lea	EcCurrent(a5),a1
+	subq.l	#2,a2
+	addq.w	#1,d4
+	or.w	#%0000000001000000,d4
+	subq.w	#1,d5
+	ext.l	d6
+	move.w	a4,d2
+	lea	MCls(pc),a0
+	move.w	0(a0,d2.w),d2
+	bmi.s	GtBc1
+	not.w	d2
+GtBc1:	move.l	(a1)+,a0
+	add.l	d3,a0
+	move.w	d5,d0
+GtBc2:	move.l	a0,BltAdB(a6)
+	move.w	(a2),a4
+	move.l	a2,BltAdD(a6)
+	move.w	d4,BltSize(a6)
+	move.l	a2,a5
+	add.l	d1,a0
+	add.l	d6,a2
+GtBc3:	bsr	BlitWait
+	move.w	a4,(a5)
+	and.w	d2,(a2)
+	dbra	d0,GtBc2
+	dbra	d7,GtBc1
+
+******* FINI! Pas d'erreur
+GtBbX:	bsr	DOwnBlit
+	movem.l	(sp)+,d1-d7/a0-a6
+	moveq	#0,d0
+	rts
+******* Out of mem
+GtBbE:	movem.l	(sp)+,d1-d7/a0-a6
+	moveq	#-1,d0
+	rts
+
+***********************************************************
+*	INITIALISATION BOBS / D0= Nombre de bobs!
+BbInit:
+********
+	clr.l	T_BbDeb(a5)
+* Efface ce qui etait reserve
+	move.w	d0,-(sp)
+	bsr	BbEnd
+	move.w	(sp)+,d1
+* Reserve la memoire pour les tables priorites
+	move.w	d1,T_BbMax(a5)
+	ext.l	d1
+	lsl.w	#2,d1
+	move.l	d1,d0
+	bsr	FastMm
+	beq	GFatal
+	move.l	d0,T_BbPrio(a5)
+	move.l	d1,d0
+	bsr	FastMm
+	beq	GFatal
+	move.l	d0,T_BbPrio2(a5)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	FIN DES BOBS
+BbEnd:
+*******
+	move.w	T_BbMax(a5),d1
+	ext.l	d1
+	lsl.l	#2,d1
+	move.l	T_BbPrio(a5),d0
+	beq.s	BOBE1
+	move.l	d0,a1
+	move.l	d1,d0
+	bsr	FreeMm
+BOBE1:	move.l	T_BbPrio2(a5),d0
+	beq.s	BOBE2
+	move.l	d0,a1
+	move.l	d1,d0
+	bsr	FreeMm
+BOBE2:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	BOB X/Y
+BobXY:	bsr	BobAd
+	bne.s	BobxyE
+	move.w	BbX(a1),d1
+	move.w	BbY(a1),d2
+	move.w	BbI(a1),d3
+	moveq	#0,d0
+BobxyE:	rts
+
+***********************************************************
+*	PATCH BOB / ICON
+*	Dessine simplement un bob/icon
+*	A1-	Buffer de calcul
+*	A2-	Descripteur bob/icon
+*	D1-	Image retournee???
+*	D2/D3-	Coordonnees
+*	D4-	Minterms (0 si rien)
+*	D5-	APlan
+TPatch
+	movem.l	d1-d7/a0-a6,-(sp)
+	move.l	a1,a4
+* Va retourner le bob
+	move.l	a2,a0
+	move.w	d1,d0
+	and.w	#$C000,d0
+	bsr	Retourne
+* Parametres de l'ecran courant
+	move.l	T_EcCourant(a5),a0	* Calculssss
+	move.w	EcClipX0(a0),d0
+	and.w	#$FFF0,d0
+	move.w	d0,BbLimG(a4)
+	move.w	EcClipY0(a0),BbLimH(a4)
+	move.w	EcClipX1(a0),d0
+	add.w	#15,d0
+	and.w	#$FFF0,d0
+	move.w	d0,BbLimD(a4)
+	move.w	EcClipY1(a0),BbLimB(a4)
+	tst.w	d4
+	beq.s	Patch1
+	and.w	#$00FF,d4
+	bset	#15,d4
+Patch1	move.w	d4,BbACon(a4)
+	move.w	d5,BbAPlan(a4)
+	move.l	a0,BbEc(a4)
+	exg.l	d3,d1
+	bset	#31,d3			* Flag PAS POINT CHAUD!
+	bsr	BobCalc
+	bne.s	PatchO
+* Gestion de l'autoback
+	move.l	T_EcCourant(a5),a0
+	tst.w	EcAuto(a0)
+	beq.s	Patch2
+	bsr	TAbk1
+	bsr	PBobA
+	bsr	TAbk2
+	bsr	PBobA
+	bsr	TAbk3
+	bra.s	PatchO
+Patch2	bsr	PBobA
+* Fini!
+PatchO	moveq	#0,d0
+	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+* Appelle la routine d'affichage
+PBobA	lea	Circuits,a6
+	bsr	OwnBlit
+	move.w	BbASize(a4),d2
+	move.w	BbTPlan(a4),d4
+	ext.l	d4
+	move.l	BbAData(a4),a0
+	move.l	BbEc(a4),a3
+	lea	EcCurrent(a3),a3
+	move.w	BbAModD(a4),d0
+	move.w	d0,BltModC(a6)
+	move.w	d0,BltModD(a6)
+	move.l	BbADraw(a4),a2
+	move.l	BbAMask(a4),d5
+	jsr	(a2)
+	bsr	BlitWait
+	bra	DOwnBlit
+
+***********************************************************
+*	CREATION / CHANGEMENT D'UN BOB
+*	D1= Numero du CANAL
+*	D2= X
+*	D3= Y
+*	D4= Image
+*	D5= MODE DECOR
+*	D6= Plans affiches
+*	D7= Minterms
+BobSet:
+********
+	cmp.w	T_BbMax(a5),d1
+	bcc	CreBbS
+
+******* Ecris sur l'ancienne - SI PRESENT -
+	move.l	a1,a0
+	move.l	T_BbDeb(a5),d0
+	beq.s	CreBb1
+CreBb0:	move.l	d0,a1
+	cmp.w	BbNb(a1),d1
+	beq.s	CreBb5
+	bcs.s	CreBb2
+	move.l	BbNext(a1),d0
+	bne.s	CreBb0
+* Met a la fin!
+	bsr	ResBOB
+	bne	CreBbE
+	move.l	a1,BbPrev(a0)
+	move.l	a0,BbNext(a1)
+	move.l	a0,a1
+	bra.s	CreBb5
+* Au tout debut
+CreBb1:	bsr	ResBOB
+	bne	CreBbE
+	move.l	a0,T_BbDeb(a5)
+	move.l	a0,a1
+	bra.s	CreBb5
+* Insere la nouvelle
+CreBb2:	bsr	ResBOB
+	bne	CreBbE
+	move.l	BbPrev(a1),d0
+	move.l	a0,BbPrev(a1)
+	move.l	d0,BbPrev(a0)
+	bne.s	CreBb3
+	move.l	T_BbDeb(a5),d1
+	move.l	a0,T_BbDeb(a5)
+	bra.s	CreBb4
+CreBb3:	move.l	d0,a2
+	move.l	BbNext(a2),d1
+	move.l	a0,BbNext(a2)
+CreBb4:	move.l	d1,BbNext(a0)
+	move.l	a0,a1
+* Poke les coordonnees
+CreBb5:	move.l	#EntNul,d7
+	move.b	BbAct(a1),d6
+	bmi.s	CreBb9
+	cmp.l	d7,d2
+	beq.s	CreBb6
+	move.w	d2,BbX(a1)
+	bset	#1,d6
+CreBb6:	cmp.l	d7,d3
+	beq.s	CreBb7
+	move.w	d3,BbY(a1)
+	bset	#2,d6
+CreBb7:	cmp.l	d7,d4
+	beq.s	CreBb8
+	move.w	d4,BbI(a1)
+	bset	#0,d6
+CreBb8:	move.b	d6,BbAct(a1)
+* Doit actualiser les bob
+CreBb9:	bset	#BitBobs,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+******* Erreur!
+CreBbS:	moveq	#1,d0
+CreBbE:	tst.w	d0
+	rts
+
+******* CREATION DE LA TABLE!
+ResBOB:	move.l	#BbLong,d0
+	bsr	FastMm
+	beq.s	ResBErr
+	move.l	d0,a0
+	move.w	d1,BbNb(a0)
+	move.l	T_EcCourant(a5),a2
+	move.l	a2,BbEc(a0)
+	move.w	EcTx(a2),BbLimD(a0)
+	move.w	EcTy(a2),BbLimB(a0)
+	move.w	d6,BbAPlan(a0)
+	and.w	#$00FF,d7
+	beq.s	ResBb0
+	bset	#15,d7
+ResBb0	move.w	d7,BbACon(a0)
+	move.w	#$01,BbDecor(a0)
+	btst	#BitDble,EcFlags(a2)
+	beq.s	ResBb1
+	addq.w	#1,BbDecor(a0)
+	move.w	#Decor,BbDCur2(a0)
+ResBb1:	tst.w	d5
+	bpl.s	ResBb2
+	clr.w	BbDecor(a0)
+ResBb2:	move.w	d5,BbEff(a0)
+	moveq	#0,d0
+	rts
+* Erreur memoire!
+ResBErr	moveq	#-1,d0
+	rts
+
+***********************************************************
+*	BOB OFF d1=#
+BobOff:
+*******
+	move.l	T_BbDeb(a5),d0
+	beq.s	DBb2
+DBb1:	move.l	d0,a1
+	cmp.w	BbNb(a1),d1
+	beq.s	DBb3
+	bcs.s	DBb2
+	move.l	BbNext(a1),d0
+	bne.s	DBb1
+DBb2:	moveq	#1,d0
+	rts
+DBb3:	move.b	#-1,BbAct(a1)
+	bset	#BitBobs,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+***********************************************************
+*	ARRET TOUS LES BOBS
+BobSOff:
+*******
+	movem.l	d0/a1/a2,-(sp)
+	move.l	T_BbDeb(a5),d0
+	beq.s	DBbs2
+DBbs1:	move.l	d0,a1
+	move.b	#-1,BbAct(a1)
+	move.l	BbNext(a1),d0
+	bne.s	DBbs1
+DBbs2:	bset	#BitBobs,T_Actualise(a5)
+	movem.l	(sp)+,d0/a1/a2
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	LIMIT BOB tous, Ecran courant!
+*	D1= # ou -1, D2/D3->D4/D5
+BobLim:
+*******
+	movem.l	d2-d7,-(sp)
+	move.l	T_BbDeb(a5),d0
+	beq	LBbX
+* Verifie les coordonnees
+	move.l	T_EcCourant(a5),d6
+	move.l	d6,a0
+	move.l	#EntNul,d7
+	cmp.w	d7,d2
+	bne.s	LBba
+	clr.w	d2
+LBba:	cmp.w	d7,d3
+	bne.s	LBbb
+	clr.w	d3
+LBbb:	cmp.w	d7,d4
+	bne.s	LBbc
+	move.w	EcTx(a0),d4
+LBbc:	cmp.w	d7,d5
+	bne.s	LBbd
+	move.w	EcTy(a0),d5
+LBbd:	and.w	#$FFF0,d2
+	and.w	#$FFF0,d4
+	cmp.w	d2,d4
+	bls.s	LbbE
+	cmp.w	d2,d5
+	bls.s	LbbE
+	cmp.w	EcTx(a0),d4
+	bhi.s	LbbE
+	cmp.w	EcTy(a0),d5
+	bhi.s	LbbE
+* Change les bobs!
+LBb1:	move.l	d0,a1
+	tst.w	BbAct(a1)
+	bmi.s	LBb3
+	cmp.l	BbEc(a1),d6
+	bne.s	LBb3
+	tst.w	d1
+	bmi.s	LBb2
+	cmp.w	BbNb(a1),d1
+	bhi.s	LBb3
+	bcs.s	LBbX
+LBb2:	move.w	d2,BbLimG(a1)
+	move.w	d3,BbLimH(a1)
+	move.w	d4,BbLimD(a1)
+	move.w	d5,BbLimB(a1)
+	bset	#0,BbAct(a1)			***Bug?
+	bset	#BitBobs,T_Actualise(a5)
+LBb3:	move.l	BbNext(a1),d0
+	bne.s	LBb1
+LBbX:	moveq	#0,d0
+LBbXx	movem.l	(sp)+,d2-d7
+	rts
+LBbE:	moveq	#-1,d0
+	bra.s	LBbXx
+
+***********************************************************
+*	PRIORITY ON/OFF
+*	D1= on/off - Ecran courant (-1 indet)
+*	D2= normal - reversed      (-1 indet)
+TPrio	tst.l	d1
+	bmi.s	TPri2
+	beq.s	TPri1
+	move.l	T_EcCourant(a5),d1
+TPri1	move.l	d1,T_Priorite(a5)
+TPri2	tst.l	d2
+	bmi.s	TPri3
+	move.w	d2,T_PriRev(a5)
+TPri3	moveq	#0,d0
+	rts
+
+***********************************************************
+*	ENLEVE LES BOBS D'UN ECRAN!
+*	A0= Ecran
+BbEcOff:
+********
+	movem.l	d1-d7/a0/a1,-(sp)
+	move.l	a0,d7
+	move.l	T_BbDeb(a5),d0
+	beq.s	BbEO2
+BbEO1:	move.l	d0,a1
+	cmp.l	BbEc(a1),d7
+	beq.s	BbEO3
+	move.l	BbNext(a1),d0
+	bne.s	BbEO1
+BbEO2:	movem.l	(sp)+,d1-d7/a0/a1
+	moveq	#0,d0
+	rts
+******* Enleve le bob!
+BbEO3:	move.l	BbNext(a1),d0
+	bsr	DelBob
+* Encore?
+	tst.l	d0
+	bne.s	BbEO1
+	bra.s	BbEO2
+
+******* Efface la definition du bob (A1)
+DelBob:	movem.l	d0-d7/a0-a2,-(sp)
+	move.l	a1,a2
+
+* Enleve les buffers de decor, s'il y en a!
+	moveq	#0,d0
+	move.w	BbDLBuf(a2),d0
+	beq.s	DBo1
+	lsl.l	#1,d0
+	move.l	BbDABuf(a2),a1
+	bsr	FreeMm
+DBo1:	moveq	#0,d0
+	move.w	BbDLBuf+Decor(a2),d0
+	beq.s	DBo2
+	lsl.l	#1,d0
+	move.l	BbDABuf+Decor(a2),a1
+	bsr	FreeMm
+* Enleve le canal d'animation
+DBo2:	lea	BbAct(a2),a0
+	bsr	DAdAMAL
+* Enleve le bob
+	move.l	BbNext(a2),d3
+	move.l	BbPrev(a2),d2
+	beq.s	DBo3
+	move.l	d2,a0
+	move.l	d3,BbNext(a0)
+	bra.s	DBo4
+DBo3:	move.l	d3,T_BbDeb(a5)
+DBo4:	tst.l	d3
+	beq.s	DBo5
+	move.l	d3,a0
+	move.l	d2,BbPrev(a0)
+DBo5:	move.l	a2,a1
+	move.l	#BbLong,d0
+	bsr	FreeMm
+
+	movem.l	(sp)+,d0-d7/a0-a2
+	rts
+
+***********************************************************
+*	ADRESSE D'UN BOB: D1= Numero!
+BobAd:
+*******
+	move.l	T_BbDeb(a5),d0
+	beq.s	AdBb1
+AdBb0:	move.l	d0,a1
+	cmp.w	BbNb(a1),d1
+	beq.s	AdBb2
+	bcs.s	AdBb1
+	move.l	BbNext(a1),d0
+	bne.s	AdBb0
+AdBb1	moveq	#1,d0
+AdBb2	rts
+
+***********************************************************
+*	PUT BOB n
+BobPut:	bsr	BobAd
+	bne.s	BbPx
+	move.w	BbDecor(a1),BbECpt(a1)
+	moveq	#0,d0
+BbPx:	rts
+
+***********************************************************
+*	ACTUALISATION DES BOBS
+*******
+BobAct:	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	T_BbPrio(a5),a3
+* Banque de sprites chargee?
+	move.l	T_SprBank(a5),d0
+	beq	BbSx
+	move.l	d0,a6
+******* Explore les bobs!
+	move.l	T_BbDeb(a5),d0
+	beq	BbSx
+	clr.w	-(sp)
+	move.l	T_Priorite(a5),-(sp)
+	move.l	T_BbPrio2(a5),a5
+BbS0:	move.l	d0,a4
+* Flippe les decors!
+	move.w	BbDCur2(a4),d4
+	move.w	BbDCur1(a4),BbDCur2(a4)
+	move.w	d4,BbDCur1(a4)
+* Bob modifie?
+	tst.w	BbECpt(a4)		* Si PUT BOB---> Pas d'act!
+	bne.s	BbSDec
+	tst.b	BbAct(a4)
+	beq	BbSDec
+	bmi	BbDel
+	clr.b	BbAct(a4)
+	move.w	BbI(a4),d2		* Pointe l'image
+	moveq	#0,d3
+	move.w	d2,d3
+	and.w	#$C000,d3
+	move.w	d3,BbRetour(a4)
+	and.w	#$3FFF,d2
+	beq	BbSort
+	cmp.w	(a6),d2
+	bhi	BbSort
+	lsl.w	#3,d2
+	lea	-8+2(a6,d2.w),a2
+	tst.l	(a2)
+	beq	BbSort
+	move.l	a2,BbARetour(a4)
+	move.w	BbX(a4),d2		* Coordonnees
+	move.w	BbY(a4),d1
+	move.l	BbEc(a4),a0		* Ecran
+	bsr	BobCalc
+	bne	BbSort
+
+******* Sauvegarde du decor!
+BbSDec:	move.w	BbDecor(a4),d0
+	beq	BbSN
+	move.w	BbESize(a4),d1
+	beq	BbSort
+* Stocke les parametres
+	move.w	d0,BbDCpt(a4)
+	move.w	BbDCur1(a4),d0
+	lea	0(a4,d0.w),a2
+	move.w	d1,BbDASize(a2)
+	move.w	BbEMod(a4),BbDMod(a2)
+	move.w	BbAPlan(a4),BbDAPlan(a2)
+	move.w	BbEAEc(a4),BbDAEc(a2)
+	move.w	BbNPlan(a4),d1
+	move.w	d1,BbDNPlan(a2)
+	tst.w	BbEff(a4)		* Effacement en couleurs?
+	bne.s	BbSN
+	addq.w	#1,d1
+	mulu	BbETPlan(a4),d1		* Taille du buffer
+	moveq	#0,d0
+	move.w	BbDLBuf(a2),d0
+	beq.s	BbD4
+	lsl.l	#1,d0
+	cmp.l	d0,d1			* Taille suffisante?
+	bls.s	BbD5
+* Efface l'ancien buffer?
+	move.l	BbDABuf(a2),a1
+	bsr	FreeMm
+	clr.l	BbDABuf(a2)
+	clr.w	BbDLbuf(a2)
+* Reserve le nouveau!
+BbD4:	move.l	d1,d0
+	bsr	ChipMm
+	beq.s	BbD5
+	move.l	d0,BbDABuf(a2)
+	lsr.l	#1,d1
+	move.w	d1,BbDLBuf(a2)
+* Ok!
+BbD5:	bra	BbSN
+
+******* BOB ARRETE
+BbDel:	subq.w	#1,BbDecor(a4)		* Compte le nombre de REDRAW
+	bhi.s	BbSort
+* Efface!
+	move.l	BbNext(a4),d0
+	move.l	a4,a1
+	move.l	a5,-(sp)
+	move.l	W_Base(pc),a5
+	bsr	DelBob
+	move.l	(sp)+,a5
+	tst.l	d0
+	bne	BbS0
+	bra.s	BbBug
+
+******* Calcul des priorites
+BbSN:	move.l	BbEc(a4),d0
+	cmp.l	(sp),d0
+	bne.s	BbPrX
+* Priorite!
+	move.l	a4,(a5)+
+	addq.w	#1,4(sp)
+	bra.s	BbSort
+* Pas de priorite
+BbPrX	move.l	a4,(a3)+
+******* En dehors!
+BbSort:	move.l	BbNext(a4),d0
+	bne	BbS0
+BbBug
+******* Classe les bobs...
+	move.l	W_Base(pc),a5
+	addq.l	#4,sp
+	move.w	(sp)+,d6
+	beq.s	BbSx
+	subq.w	#1,d6
+* Recopie dans la liste
+	move.l	a3,a4
+	move.l	T_BbPrio2(a5),a0
+	move.w	d6,d0
+BbPr1	move.l	(a0)+,(a3)+
+	dbra	d0,BbPr1
+	subq.w	#1,d6
+	bmi.s	BbSx
+* Classe (a bulle!)
+BbPr2	moveq	#0,d1
+	move.w	d6,d2
+	move.l	a4,a2
+	move.l	(a2)+,a0
+BbPr3	move.l	(a2)+,a1
+	move.w	BbY(a0),d0		* Compare
+	cmp.w	BbY(a1),d0
+	blt.s	BbPr5
+	bne.s	BbPr4
+	move.w	BbX(a0),d0
+	cmp.w	BbX(a1),d0
+	ble.s	BbPr5
+BbPr4	exg	a0,a1
+	move.l	a0,-8(a2)
+	move.l	a1,-4(a2)
+	addq.w	#1,d1
+BbPr5	move.l	a1,a0
+	dbra	d2,BbPr3
+	tst.w	d1
+	bne.s	BbPr2
+* Renverser la table???
+BbSx:	clr.l	(a3)
+	tst.w	T_PriRev(a5)
+	beq.s	BbSxX
+* Renverse la table!!!
+	move.l	T_BbPrio(a5),a0
+	cmp.l	a3,a0
+	bcc.s	BbSxX
+BbSRv	move.l	(a0),d0
+	move.l	-(a3),(a0)+
+	move.l	d0,(a3)
+	cmp.l	a3,a0
+	bcs.s	BbSRv
+* Fini!
+BbSxX	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+******* ROUTINE DE CALCUL DES PARAMS AFFICHAGE BOB/BLOC
+*	A0-> 	Ecran
+*	A2-> 	Descripteur image
+*	A4-> 	Buffer calcul
+*	D2-> 	X
+*	D1->	Y
+* 	D3-> 	Flags retournement
+BobCalc	move.l	(a2),a1
+	tst.l	4(a2)
+	bne.s	BbS1
+* Va calculer le masque!
+	bsr	Masque
+	bne	BbSOut
+* Point chaud retourne?
+BbS1:	tst.l	d3
+	bmi.s	BbHt3
+	move.w	6(a1),d0
+	move.w	d0,d4
+	lsl.w	#2,d4
+	asr.w	#2,d4
+	move.w	8(a1),d5
+	eor.w	d0,d3
+* En Y?
+	btst	#14,d3
+	beq.s	BbHt1
+	neg.w	d5
+	add.w	2(a1),d5
+* En X?
+BbHt1	btst	#15,d3
+	beq.s	BbHt2
+	move.w	(a1),d0
+	lsl.w	#4,d0
+	sub.w	d4,d0
+	move.w	d0,d4
+BbHt2	sub.w	d5,d1
+	sub.w	d4,d2
+* Nombre de plans
+BbHt3	move.w	4(a1),d0
+	cmp.w	EcNPlan(a0),d0
+	bls.s	BbS1a
+	move.w	EcNPlan(a0),d0
+BbS1a:	subq.w	#1,d0
+	move.w	d0,BbNPlan(a4)
+	clr.w	BbESize(a4)
+* Mots de controle?
+	tst.w	BbACon(a4)
+	beq.s	BbS1b
+	bpl.s	BbS1d
+	move.w	BbACon(a4),d0		* MASQUER le minterm
+	bclr	#15,d0
+	or.w	#%0000111100000000,d0
+	tst.l	4(a2)
+	bpl.s	BbS1c
+	and.w	#%0000011111111111,d0
+	bra.s	BbS1c
+BbS1b	move.w	#%0000111111001010,d0	* FAIRE le minterm
+	tst.l	4(a2)
+	bpl.s	BbS1c
+	move.w	#%0000011111001010,d0
+BbS1c	move.w	d0,BbACon(a4)
+BbS1d	move.w	d2,d0
+	and.w	#$F,d2
+	beq	BbND
+
+******* DECALES!
+	lsl.w	#8,d2			* Registres de controle
+	lsl.w	#4,d2
+	move.w	d2,BbACon1(a4)
+	or.w	BbACon(a4),d2
+	move.w	d2,BbACon0(a4)
+
+	move.w	(a1),d4			* Taille en X
+	lsl.w	#1,d4
+	move.w	d4,d3
+	move.w	2(a1),d5		* Taille en Y
+	move.w	d4,d2
+	mulu	d5,d2
+	move.w	d2,BbTPLan(a4)		* Taille plan!
+	add.w	d5,d2
+	add.w	d5,d2
+	move.w	d2,BbETPlan(a4)		* Effacement: prend les bords!
+
+	move.w	d5,d2
+	add.w	d1,d2
+	cmp.w	BbLimB(a4),d2		* Limite en BAS!
+	ble	BbDe2
+	sub.w	BbLimB(a4),d2
+	sub.w	d2,d5
+	bls	BbSOut
+BbDe2:
+	moveq	#0,d7
+	cmp.w	BbLimH(a4),d1		* Teste la limite en HAUT!
+	bge.s	BbDe1
+	sub.w	BbLimH(a4),d1
+	neg.w	d1
+	sub.w	d1,d5
+	bls	BbSOut
+	move.w	d1,d7
+	mulu	d4,d7
+	move.w	BbLimH(a4),d1
+BbDe1:
+	move.w	EcTLigne(a0),d2
+	move.w	d2,d6
+	mulu	d1,d6
+
+	lsl.w	#3,d4
+	move.w	d4,d1
+	add.w	d0,d1
+	clr.w	BbAMaskD(a4)
+	cmp.w	BbLimD(a4),d1		* Teste la limite a DROITE
+	ble.s	BbDe4
+	sub.w	BbLimD(a4),d1
+	and.w	#$FFF0,d1
+	add.w	#16,d1
+	sub.w	d1,d4
+	bmi	BbSOut
+	move.w	d0,d1
+	and.w	#$000F,d1
+	lsl.w	#1,d1
+	lea	MCls2(pc),a0
+	move.w	0(a0,d1.w),d1
+	not.w	d1
+	move.w	d1,BbAMaskD(a4)
+BbDe4:
+	moveq	#-1,d1
+	cmp.w	BbLimG(a4),d0		* Teste la limite a GAUCHE
+	bge.s	BbDe3
+	move.w	d0,d1
+	sub.w	BbLimG(a4),d0
+	neg.w	d0
+	sub.w	d0,d4
+	bls	BbSOut
+	add.w	#16,d4
+	lsr.w	#4,d0
+	lsl.w	#1,d0
+	add.w	d0,d7
+	bset	#31,d7
+	subq.l	#2,d6
+	lea	MCls2(pc),a0		* Masque a gauche
+	and.w	#$000F,d1
+	lsl.w	#1,d1
+	move.w	0(a0,d1.w),d1
+	move.w	BbLimG(a4),d0
+BbDe3:	move.w	d1,BbAMaskG(a4)
+	add.w	#16,d4
+
+	lsr.w	#4,d0			* Adresse ecran
+	lsl.w	#1,d0
+	ext.l	d0			BUG !
+	add.l	d0,d6
+	lsr.l	#1,d6
+	move.w	d6,BbAAEc(a4)
+
+	lsr.w	#4,d4			* Modulo ecran
+	move.w	d4,d0
+	lsl.w	#1,d4
+	sub.w	d4,d3
+	move.w	d3,BbAModO(a4)
+	sub.w	d4,d2
+	move.w	d2,BbAModD(a4)
+
+	move.w	d0,d1
+	lea	BbAP(pc),a0
+	tst.l	d7
+	bpl.s	BbDe5
+	addq.w	#1,d6			Suite BUG !
+	subq.w	#1,d1
+	addq.w	#2,d2
+	bne.s	BbDe5
+	lea	BbAL(pc),a0
+BbDe5:	lsl.w	#6,d5
+	or.w	d5,d1
+	move.w	d1,BbESize(a4)
+	or.w	d5,d0
+	move.w	d0,BbASize(a4)
+	move.w	d2,BbEMod(a4)
+	move.w	d6,BbEAEc(a4)
+	move.l	a0,BbADraw(a4)
+
+	move.l	4(a2),a2		* Adresses bob
+	lea	4(a2,d7.w),a2
+	move.l	a2,BbAMask(a4)
+	lea	10(a1,d7.w),a2
+	move.l	a2,BbAData(a4)
+
+	moveq	#0,d0
+	rts
+
+* Sortie
+BbSOut	moveq	#-1,d0
+	rts
+
+* NON DECALES: Teste limites en H G
+BbND:	move.w	d0,d2
+	move.w	d1,d3
+	moveq	#0,d4
+	moveq	#0,d5
+	cmp.w	BbLimG(a4),d0
+	bge.s	BbS2
+	move.w	BbLimG(a4),d4
+	sub.w	d0,d4
+	lsr.w	#4,d4
+	move.w	BbLimG(a4),d0
+BbS2:	cmp.w	BbLimH(a4),d1
+	bge.s	BbS3
+	move.w	BbLimH(a4),d5
+	sub.w	d1,d5
+	move.w	BbLimH(a4),d1
+BbS3:	lsr.w	#4,d0
+	lsl.w	#1,d0
+	ext.l	d0			BUG !
+	mulu	EcTLigne(a0),d1
+	add.l	d0,d1
+	lsr.l	#1,d1
+	move.w	d1,BbAAEc(a4)
+	move.w	d1,BbEAEc(a4)
+	move.w	(a1),d6
+	move.w	2(a1),d7
+	move.w	d6,d0
+	lsl.w	#1,d0
+	move.w	d0,d1
+	mulu	d7,d1
+	move.w	d1,BbTPlan(a4)
+	move.w	d1,BbETPlan(a4)
+	mulu	d5,d0
+	add.w	d4,d0
+	add.w	d4,d0
+	move.l	4(a2),a2
+	lea	4(a2,d0.w),a2
+	move.l	a2,BbAMask(a4)
+	lea	10(a1,d0.w),a2
+	move.l	a2,BbAData(a4)
+
+	move.w	BbACon(a4),BbACon0(a4)
+	clr.w	BbACon1(a4)
+	move.w	d6,d0
+	lsl.w	#4,d0
+	add.w	d0,d2
+	add.w	d7,d3
+	move.w	d6,d0
+	move.w	d7,d1
+	cmp.w	BbLimD(a4),d2
+	ble.s	BbS4
+	sub.w	BbLimD(a4),d2
+	lsr.w	#4,d2
+	sub.w	d2,d0
+BbS4:	cmp.w	BbLimB(a4),d3
+	ble.s	BbS5
+	sub.w	BbLimB(a4),d3
+	sub.w	d3,d1
+BbS5:	sub.w	d4,d0
+	ble	BbSOut
+	sub.w	d5,d1
+	ble	BbSout
+	sub.w	d0,d6
+	lsl.w	#1,d6
+	move.w	d6,BbAModO(a4)
+	move.w	EcTLigne(a0),d6
+	sub.w	d0,d6
+	sub.w	d0,d6
+	move.w	d6,BbAModD(a4)
+	move.w	d6,BbEMod(a4)
+	lsl.w	#6,d1
+	or.w	d1,d0
+ 	move.w	d0,BbASize(a4)
+	move.w	d0,BbESize(a4)
+	lea	BbA16(pc),a0
+	move.l	a0,BbADraw(a4)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	RETOURNEUR DE SPRITES!
+
+******* Initialisation: fabrique la table
+RbInit	lea	TRetour(pc),a0
+        moveq 	#0,d0
+IRet1:  moveq 	#7,d3
+        move.b 	d0,d1
+IRet2:  lsr.b 	#1,d1
+        roxl.b 	#1,d2
+        dbra 	d3,IRet2
+        move.b 	d2,(a0)+
+        addq.b 	#1,d0
+        bne.s 	IRet1
+	rts
+******* Fin, libere la memoire
+RbEnd	rts
+
+******* Entree trappe
+*	A1/D0
+RevTrap	move.l	a1,a0
+	move.l	d1,d0
+******* Retourne un sprite, s'il faut.
+*	A0---> Descripteur
+*	D0---> Flags seuls
+Retourne
+	move.l	(a0),d1
+	beq.s	RetBobX
+	move.l	d1,a1
+	move.w	6(a1),d1
+	and.w	#$C000,d1
+	eor.w	d0,d1
+	beq.s	RetBobX
+* En X?
+	btst	#15,d1
+	beq.s	RetBb1
+	bsr	RBobX
+* En Y?
+RetBb1	btst	#14,d1
+	beq.s	RetBb2
+	bsr	RBobY
+* Poke les flags
+RetBb2	move.w	6(a1),d1
+	and.w	#$3FFF,d1
+	or.w	d0,d1
+	move.w	d1,6(a1)
+* Ca y est!
+RetBobX	rts
+
+******* Retourne le bob en X
+RBobX	movem.l a0-a3/d0-d7,-(sp)
+* Retourne le point chaud
+	move.w	6(a1),d0
+	lsl.w	#2,d0
+	asr.w	#2,d0
+	move.w	(a1),d6
+	move.w	d6,d1
+	lsl.w	#4,d1
+	sub.w	d0,d1
+	move.w	d1,6(a1)
+* Retourne le dessin
+	moveq	#0,d0
+	moveq	#0,d1
+	lea	TRetour(pc),a3
+	move.w	2(a1),d7
+	move.w	4(a1),d3
+	lea	10(a1),a1
+	move.l	a0,-(sp)
+	bsr	RBbX
+	move.l	(sp)+,a0
+* Retourne le masque
+	move.l	4(a0),d2
+	ble.s	RBobXx
+	move.l	d2,a1
+	addq.l	#4,a1
+	moveq	#0,d3
+	bsr	RBBis
+* Fini
+RBobXx	movem.l (sp)+,a0-a3/d0-d7
+	rts
+******* Retourne le bob en Y
+RBobY	movem.l a0-a2/d0-d7,-(sp)
+* Retourne le point chaud
+	move.w	2(a1),d7
+	move.w	d7,d0
+	sub.w	8(a1),d0
+	move.w	d0,8(a1)
+* Retourne le dessin
+	move.w	(a1),d6
+	move.w	4(a1),d5
+	lea	10(a1),a1
+	move.l	a0,-(sp)
+	bsr	RBbY
+	move.l	(sp)+,a0
+* Retourne le masque
+	move.l	4(a0),d0
+	ble.s	RBobYx
+	move.l	d0,a1
+	addq.l	#4,a1
+	moveq	#0,d5
+	bsr	RBbY1
+* Fini
+RBobYx	movem.l (sp)+,a0-a2/d0-d7
+	rts
+
+************************
+* Retourne en X
+* A1-> Ad plan
+* D7-> Ty
+* D6-> Tx
+* D3-> Nb plans
+RBbX	subq.w	#1,d7		* Base cpt Y
+	subq.w	#1,d3		* Cpt nombre de plans
+	moveq	#0,d4
+	move.w	d6,d4
+	lsr.w	#1,d6
+	subq.w	#1,d6
+	move.w	d6,a2		* Base cpt en X
+RBBis	btst	#0,d4
+	bne.s	RBbI0
+* Nombre PAIR de plans
+RBbx0	move.w	d7,d5		* Cpt Y
+RBbx1	add.l	d4,a1
+	move.l	a1,a0
+	move.w	a2,d6
+RBbx2	move.b	-(a0),d0
+	move.b 	(a1),d1
+	move.b	0(a3,d1.w),(a0)
+	move.b	0(a3,d0.w),(a1)+
+	move.b 	-(a0),d0
+	move.b	(a1),d1
+	move.b	0(a3,d1.w),(a0)
+	move.b	0(a3,d0.w),(a1)+
+	dbra	d6,RBbx2
+	dbra	d5,RBbX1
+	dbra	d3,RBbX0
+	rts
+* Nombre IMPAIR de plans
+RBbI0	move.w	d7,d5		* Cpt Y
+RBbI1	add.l	d4,a1
+	move.l	a1,a0
+	move.b	-(a0),d0
+	move.b 	(a1),d1
+	move.b	0(a3,d1.w),(a0)
+	move.b	0(a3,d0.w),(a1)+
+	move.w	a2,d6
+	bmi.s	RBbI3
+RBbI2	move.b	-(a0),d0
+	move.b 	(a1),d1
+	move.b	0(a3,d1.w),(a0)
+	move.b	0(a3,d0.w),(a1)+
+	move.b 	-(a0),d0
+	move.b	(a1),d1
+	move.b	0(a3,d1.w),(a0)
+	move.b	0(a3,d0.w),(a1)+
+	dbra	d6,RBbI2
+RBbI3	dbra	d5,RBbI1
+	dbra	d3,RBbI0
+	rts
+
+************************
+* Retournement VERTICAL
+* D5= NPlan
+* D6= TX
+* D7= TY
+RBbY   	move.w  d6,d4
+        lsl.w   #1,d4
+        ext.l   d4
+        move.w  d7,d3
+        lsr.w   #1,d3
+        mulu    d4,d3
+	move.l	d4,d2
+        lsr.w   #1,d7
+        bcc.s   RBbY0
+	add.l	d4,d2
+        add.l   d4,d3
+RBbY0   neg.l	d2
+	subq.w  #1,d7
+        move.w  d7,a2
+        subq.w  #1,d6
+	subq.w	#1,d5
+	lsl.w	#1,d4
+* Boucle de retournement
+RBbY1   add.w   d3,a1
+        lea     0(a1,d2.w),a0
+        move.w  a2,d7
+RBbY2   move.w  d6,d1
+RBbY3   move.w  (a1),d0
+        move.w  (a0),(a1)+
+        move.w  d0,(a0)+
+        dbra    d1,RBbY3
+        sub.l   d4,a0
+        dbra    d7,RBbY2
+        dbra    d5,RBbY1
+        rts
+
+***********************************************************
+*	CALCUL DU MASQUE, 1 MOT BLANC A DROITE!
+*	A2= descripteur
+Masque:
+*******
+	movem.l	d1-d7/a0-a2,-(sp)
+	move.l	(a2),a1
+	move.w	(a1),d2
+	lsl.w	#1,d2
+	mulu	2(a1),d2		* D2= Taille plan
+	move.l	d2,d3
+	addq.l	#4,d3			* D3= Taille memoire
+	move.w	4(a1),d4
+	subq.w	#2,d4			* D4= Nb de plans
+	move.w	d2,d5
+	lsr.w	#1,d5
+	subq.w	#1,d5
+* Reserve la memoire pour le masque
+	move.l	4(a2),d0
+	bne.s	Mas0
+MasM	move.l	d3,d0
+	bsr	ChipMm2
+	beq.s	MasErr
+	move.l	d0,4(a2)
+* Calcule le masque
+Mas0:	bmi.s	MasM
+	move.l	d0,a2			* Adresse du masque
+	move.l	d3,(a2)+		* Taille du masque
+	lea	10(a1),a1		* Pointe le premier plan
+Mas2:	move.l	a1,a0
+	move.w	(a0),d0
+	move.w	d4,d3
+	bmi.s	Mas4
+Mas3:	add.l	d2,a0
+	or.w	(a0),d0
+	dbra	d3,Mas3
+Mas4:	move.w	d0,(a2)+
+	addq.l	#2,a1
+	dbra	d5,Mas2
+* Pas d'erreur
+	movem.l	(sp)+,d1-d7/a0-a2
+	moveq	#0,d0
+	rts
+* Erreur!
+MasErr:	movem.l	(sp)+,d1-d7/a0-a2
+	moveq	#-1,d0
+	rts
+
+********************************************************
+*	EFFACEMENT DE TOUS LES BOBS DES ECRANS
+********
+BobEff:	movem.l	d2-d7/a2-a6,-(sp)
+	lea	Circuits,a6
+	move.l	T_BbDeb(a5),d0
+	beq	BbExX
+
+******* Initialise le blitter
+	bsr	OwnBlit
+	move.w	#0,BltModA(a6)
+	move.w	#0,BltCon1(a6)
+	moveq	#-1,d1
+	move.w	d1,BltMaskG(a6)
+	move.w	d1,BltMaskD(a6)
+
+******* Explore la liste des bobs
+BbE0:	move.l	d0,a5
+	tst.w	BbECpt(a5)			* Compteur PUT BOB
+	bne.s	BbE5
+	move.l	BbEc(a5),a3
+	lea	EcLogic(a3),a3
+	move.w	BbDCur2(a5),d4
+	lea	0(a5,d4.w),a4
+
+	move.w	BbDASize(a4),d2			* D2= BltSize
+	beq.s	BbE4
+	move.w	BbDAEc(a4),d3			* D3= Decalage ecran
+	ext.l	d3
+	lsl.l	#1,d3
+	move.w	BbEff(a5),d4
+	bne.s	BbEFc
+
+* Effacement NORMAL
+	tst.l	BbDABuf(a4)
+	beq.s	BbE4
+	move.w	BbDAPlan(a4),d1
+	move.w	BbDNPlan(a4),d0
+	bsr	BlitWait
+	move.w	BbDMod(a4),BltModD(a6)
+	move.l	BbDABuf(a4),BltAdA(a6)		* Adresse buffer
+	move.w	#%0000100111110000,BltCon0(a6)
+BbE1:	lsr.w	#1,d1
+	bcc.s	BbE3
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.l	a2,BltAdD(a6)
+	move.w	d2,BltSize(a6)
+BbE3:	addq.l	#4,a3
+	dbra	d0,BbE1
+* Un autre?
+BbE4:	move.l	BbNext(a5),d0
+	bne.s	BbE0
+	bra.s	BbEx
+BbE5:	subq.w	#1,BbECpt(a5)
+	bne.s	BbE4
+	bra.s	BbE4
+
+* Effacement COLORE!
+BbEfC:	subq.w	#1,d4
+	move.w	BbDAPlan(a4),d1
+	move.w	BbDNPlan(a4),d0
+	bsr	BlitWait
+	move.w	BbDMod(a4),BltModD(a6)
+	move.w	#%0000000111110000,BltCon0(a6)
+	moveq	#0,d5
+BbEfc1:
+	lsr.w	#1,d4
+	subx.w	d5,d5
+	lsr.w	#1,d1
+	bcc.s	BbEfc4
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.w	d5,BltDatA(a6)
+	move.l	a2,BltAdD(a6)
+	move.w	d2,BltSize(a6)
+BbEfc4:	addq.l	#4,a3
+	moveq	#0,d5
+	dbra	d0,BbEfc1
+* Un autre?
+	move.l	BbNext(a5),d0
+	bne	BbE0
+
+* FINI: remet le blitter
+BbEx:	bsr	BlitWait
+	bsr	DOwnBlit
+BbExX:	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+********************************************************
+*	SAISIE  ET DESSIN DE TOUS LES BOBS
+********
+BobAff	movem.l	d2-d7/a2-a6,-(sp)
+	lea	Circuits,a6
+	bsr	OwnBlit
+
+******* SAISIE
+	move.l	T_BbDeb(a5),d0
+	beq	BbGx
+* Initialise le blitter
+	move.w	#0,BltModD(a6)
+	move.w	#%0000100111110000,BltCon0(a6)
+	move.w	#0,BltCon1(a6)
+	moveq	#-1,d1
+	move.w	d1,BltMaskG(a6)
+	move.w	d1,BltMaskD(a6)
+
+* Explore les bobs
+BbG0:	move.l	d0,a5
+	tst.w	BbDCpt(a5)			* Nombre de saisies
+	beq.s	BbG4
+	tst.w	BbEff(a5)			* Decor colore?
+	bne.s	BbG4
+
+	move.l	BbEc(a5),a3			* Adresse ecran
+	lea	EcLogic(a3),a3
+	move.w	BbDCur1(a5),d4
+	lea	0(a5,d4.w),a4
+	tst.l	BbDABuf(a4)			* Adress buffer 0?
+	beq.s	BbG4
+	move.w	BbDASize(a4),d2			* D2= BltSize
+	beq.s	BbG4
+	subq.w	#1,BbDCpt(a5)			* Une saisie de moins
+
+	move.w	BbDAEc(a4),d3			* D3= Decalage ecran
+	ext.l	d3
+	lsl.l	#1,d3
+	move.w	BbDAPlan(a4),d1
+	move.w	BbDNPlan(a4),d0
+
+	bsr	BlitWait
+	move.l	BbDABuf(a4),d7
+	move.l	d7,BltAdD(a6)			* Adresse buffer
+	move.w	BbDMod(a4),BltModA(a6)
+BbG1:	lsr.w	#1,d1
+	bcc.s	BbG3
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.l	a2,BltAdA(a6)
+	move.w	d2,BltSize(a6)
+BbG3:	addq.l	#4,a3
+	dbra	d0,BbG1
+
+* Un autre?
+BbG4:	move.l	BbNext(a5),d0
+	bne.s	BbG0
+BbGx:
+
+*******	AFFICHAGE
+	move.l	W_Base(pc),a5
+	move.l	T_BbPrio(a5),a5
+* Explore tous les bobs
+	move.l	(a5)+,d0
+	beq	BbAx
+* Valeurs communes au 16 et autre
+BbA0:	move.l	d0,a4
+	move.w	BbASize(a4),d2
+	beq.s	BbAn
+* Va retourner le bob???
+	move.w	BbRetour(a4),d0
+	move.l	BbARetour(a4),a0
+	bsr	Retourne
+* Va dessiner
+	moveq	#0,d4
+	move.w	BbTPlan(a4),d4
+	move.l	BbAData(a4),a0
+	move.l	BbEc(a4),a3
+	lea	EcLogic(a3),a3
+	move.w	BbAModD(a4),d0
+	move.l	BbADraw(a4),a1
+	bsr	BlitWait
+	move.w	d0,BltModC(a6)
+	move.w	d0,BltModD(a6)
+	move.l	BbAMask(a4),d5
+	jsr	(a1)
+* Un autre?
+BbAn:	move.l	(a5)+,d0
+	bne	BbA0
+******* FINI: remet le blitter
+BbAx:	bsr	BlitWait
+	bsr	DOwnBlit
+	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+******* ROUTINE DESSIN au pixel
+BbAp:	bmi	BMAp
+	move.w	BbACon0(a4),BltCon0(a6)
+	move.w	BbACon1(a4),BltCon1(a6)
+	move.w	BbAAEc(a4),d3
+	ext.l	d3
+	lsl.l	#1,d3
+	move.w	BbAModO(a4),d0
+	move.w	d0,BltModA(a6)
+	move.w	d0,BltModB(a6)
+	move.w	BbAMaskG(a4),BltMaskG(a6)
+	move.w	BbAMaskD(a4),BltMaskD(a6)
+	move.w	#0,BltDatA(a6)
+	move.w	BbAPlan(a4),d1
+	move.w	BbNPlan(a4),d0
+BbAp1:	lsr.w	#1,d1
+	bcc.s	BbAp4
+BbAp2:
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.l	d5,BltAdA(a6)
+	move.l	a0,BltAdB(a6)
+	move.l	a2,BltAdC(a6)
+	move.l	a2,BltAdD(a6)
+	move.w	d2,BltSize(a6)
+BbAp4:	add.l	d4,a0
+	addq.l	#4,a3
+	dbra	d0,BbAp1
+	rts
+
+******* ROUTINE DESSIN au pixel trop grand
+BbAL:	bmi	BmAp
+	move.w	d2,d6
+	lsr.w	#6,d6
+	and.w	#%0111111,d2
+	or.w	#%1000000,d2
+	move.w	BbACon0(a4),BltCon0(a6)
+	move.w	BbACon1(a4),BltCon1(a6)
+	move.w	BbAAEc(a4),d3
+	ext.l	d3
+	lsl.l	#1,d3
+	move.w	BbAModO(a4),d0
+	move.w	d0,BltModA(a6)
+	move.w	d0,BltModB(a6)
+	move.w	BbAMaskG(a4),BltMaskG(a6)
+	move.w	BbAMaskD(a4),BltMaskD(a6)
+	move.w	#0,BltDatA(a6)
+	move.w	BbAPlan(a4),d1
+	move.w	BbNPlan(a4),d0
+BbAl1:	lsr.w	#1,d1
+	bcc.s	BbAl5
+BbAl2:
+	move.l	(a3),a2
+	add.l	d3,a2
+	move.w	d6,d7
+	bsr	BlitWait
+	move.l	d5,BltAdA(a6)
+	move.l	a0,BltAdB(a6)
+	move.l	a2,BltAdC(a6)
+	move.l	a2,BltAdD(a6)
+BbAl3	bsr	BlitWait
+	move.w	#0,BltDatA(a6)
+	move.w	d2,BltSize(a6)
+	subq.w	#1,d7
+	bne.s	BbAl3
+BbAl5:	add.l	d4,a0
+	addq.l	#4,a3
+	dbra	d0,BbAl1
+	rts
+
+******* ROUTINE DESSIN: Multiple de 16!
+BbA16:	bmi	BMA16
+	move.w	BbAAEc(a4),d3		* D3= Decalage ecran
+	ext.l	d3
+	lsl.l	#1,d3
+	move.w	BbAModO(a4),d0		* Valeur MODULO
+	move.w	d0,BltModA(a6)
+	move.w	d0,BltModB(a6)
+	move.w	BbACon0(a4),BltCon0(a6)	* Registres de controle
+	move.w	#0,BltCon1(a6)
+	moveq	#-1,d0
+	move.w	d0,BltMaskG(a6)
+	move.w	d0,BltMaskD(a6)
+	move.w	BbAPlan(a4),d1
+	move.w	BbNPlan(a4),d0
+BbA1:	lsr.w	#1,d1
+	bcc.s	BbA4
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.l	d5,BltAdA(a6)
+	move.l	a0,BltAdB(a6)
+	move.l	a2,BltAdC(a6)
+	move.l	a2,BltAdD(a6)
+	move.w	d2,BltSize(a6)
+BbA4:	add.l	d4,a0
+	addq.l	#4,a3
+	dbra	d0,BbA1
+	rts
+
+******* ROUTINE DESSIN SANS MASQUE, Multiple de 16!
+BMA16:	move.w	BbAAEc(a4),d3
+	ext.l	d3
+	lsl.l	#1,d3
+	move.w	BbAModO(a4),BltModB(a6)
+
+	move.w	BbACon0(a4),d0		  *If minterm replace use
+	cmp.b	#$CA,d0			  *fast blit , ideal for
+	bne.s	Normal_BMA16		  *fast icon pasting in games!
+	move.w	BbAModO(a4),BltModA(a6)	  *
+	move.w	#%100111110000,BltCon0(a6)*
+	move.w	#0,BltCon1(a6)		  *
+	moveq	#-1,d0			  *
+	move.w	d0,BltMaskG(a6)		  *
+	move.w	d0,BltMaskD(a6)		  *
+	move.w	d0,BltDatB(a6)		  *
+	move.w	d0,BltDatC(a6)		  *
+	move.w	BbAPlan(a4),d1		  *
+	move.w	BbNPlan(a4),d0		  *
+BMA1f:	lsr.w	#1,d1			  *
+	bcc.s	BMA3f			  *
+	move.l	(a3),a2			  *
+	add.l	d3,a2			  *
+	bsr	BlitWait		  *
+	move.l	a0,BltAdA(a6)		  *
+	move.l	a2,BltAdD(a6)		  *
+	move.w	d2,BltSize(a6)		  *
+BMA3f:	add.l	d4,a0			  *
+	addq.l	#4,a3			  *
+	dbra	d0,BMA1f		  *
+	rts				  *
+
+Normal_BMA16:
+	move.w	BbACon0(a4),BltCon0(a6)
+	move.w	#0,BltCon1(a6)
+	moveq	#-1,d0
+	move.w	d0,BltMaskG(a6)
+	move.w	d0,BltMaskD(a6)
+	move.w	d0,BltDatA(a6)
+	move.w	BbAPlan(a4),d1
+	move.w	BbNPlan(a4),d0
+BMA1:	lsr.w	#1,d1
+	bcc.s	BMA3
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.l	a0,BltAdB(a6)
+	move.l	a2,BltAdC(a6)
+	move.l	a2,BltAdD(a6)
+	move.w	d2,BltSize(a6)
+BMA3:	add.l	d4,a0
+	addq.l	#4,a3
+	dbra	d0,BMA1
+	rts
+
+******* ROUTINE DESSIN SANS MASQUE, Pixel!
+BMAp:
+	move.w	BbAAEc(a4),d3
+	ext.l	d3
+	lsl.l	#1,d3
+
+	move.w	BbAModO(a4),BltModB(a6)
+	move.w	BbACon0(a4),BltCon0(a6)
+	move.w	BbACon1(a4),BltCon1(a6)
+	move.w	BbAMaskG(a4),BltMaskG(a6)
+	move.w	BbAMaskD(a4),BltMaskD(a6)
+	move.w	#-1,BltDatA(a6)
+	move.w	BbAPlan(a4),d1
+	move.w	BbNPlan(a4),d0
+BMAp1:	lsr.w	#1,d1
+	bcc.s	BMAp4
+	move.l	(a3),a2
+	add.l	d3,a2
+	bsr	BlitWait
+	move.l	a0,BltAdB(a6)
+	move.l	a2,BltAdC(a6)
+	move.l	a2,BltAdD(a6)
+	move.w	d2,BltSize(a6)
+BMAp4:	add.l	d4,a0
+	addq.l	#4,a3
+	dbra	d0,BMAp1
+	rts
+
+******* ROUTINE DESSIN SANS MASQUE au pixel trop grand
+BmAL:	move.w	d2,d6
+	lsr.w	#6,d6
+	and.w	#%0111111,d2
+	or.w	#%1000000,d2
+	move.w	BbACon0(a4),BltCon0(a6)
+	move.w	BbACon1(a4),BltCon1(a6)
+
+	move.w	BbAAEc(a4),d3
+	ext.l	d3
+	lsl.l	#1,d3
+
+	move.w	BbAModO(a4),BltModB(a6)
+	move.w	BbAMaskG(a4),BltMaskG(a6)
+	move.w	BbAMaskD(a4),BltMaskD(a6)
+	move.w	#0,BltDatA(a6)
+	move.w	BbAPlan(a4),d1
+	move.w	BbNPlan(a4),d0
+BmAl1:	lsr.w	#1,d1
+	bcc.s	Bmal7
+	move.l	(a3),a2
+	add.l	d3,a2
+	move.w	d6,d7
+	bsr	BlitWait
+	move.l	a0,BltAdB(a6)
+	move.l	a2,BltAdC(a6)
+	move.l	a2,BltAdD(a6)
+Bmal3:	bsr	BlitWait
+	move.w	#-1,BltDatA(a6)
+	move.w	d2,BltSize(a6)
+	subq.w	#1,d7
+	bne.s	Bmal3
+Bmal7:	add.l	d4,a0
+	addq.l	#4,a3
+	dbra	d0,BmAl1
+	rts
+
+******************************************************************
+*	Screen copy a0,d0,d1,d4,d5 to a1,d2,d3,d6
+*
+*	a0 Origin Bit Map Struc.   a1 Destination Bit Map Struc.
+*	d0 Origin X (16 a factor!) d2 Destination X (16 a factor!)
+*	d1 Origin Y		   d3 Destination Y
+*		  	d4 Width  X (Must be multiple of 16!)
+*			d5 height Y
+*			d6 Minterm
+*
+*	If minterm is $CC and d0,d2,d4 are on word boundaries
+*	then blit is done and result is 0 otherwise not done
+*	and result is -1.
+*
+*	Uses only A and D channels for blit,
+*	therefore twice as fast as normal screen copy!
+*
+
+WScCpy:	cmp.b	#$CC,d6
+	bne.s	NoWScCpy
+	move.w	d0,d7
+	and.w	#$f,d7
+	bne.s	NoWScCpy
+	move.w	d2,d7
+	and.w	#$f,d7
+	bne.s	NoWScCpy
+	move.w	d4,d7
+	and.w	#$f,d7
+	bne.s	NoWScCpy
+	bra.s	DoWScCpy
+NoWScCpy:
+	moveq.l	#-1,d7
+	rts
+DoWScCpy:
+	moveq.l	#0,d7
+	cmp.w	d1,d3
+	blt.s	Ascending_Blit
+	bgt.s	Descending_Blit
+	cmp.w	d0,d2
+	blt.s	Ascending_Blit
+Descending_Blit:
+	addq.l	#2,d7
+
+	add.w	d4,d0
+	sub.w	#16,d0
+	add.w	d5,d1
+	subq.w	#1,d1
+
+	add.w	d4,d2
+	sub.w	#16,d2
+	add.w	d5,d3
+	subq.w	#1,d3
+Ascending_Blit:
+	lsl.w	#6,d5
+	lsr.w	#4,d0
+	lsl.w	#1,d0
+
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+
+	lsr.w	#4,d4
+	lsl.w	#1,d4
+	move.w	(a0),d6
+	mulu	d6,d1
+	and.l	#$FFFF,d0
+	add.l	d1,d0
+	sub.w	d4,d6
+	move.w	(a1),d1
+	mulu	d1,d3
+	and.l	#$FFFF,d2
+	add.l	d3,d2
+	sub.w	d4,d1
+	lsr.w	#1,d4
+	add.w	d4,d5
+	moveq.l	#0,d4
+	move.b	5(a0),d4
+	moveq.l	#0,d3
+	move.b	5(a1),d3
+	lea	8(a0),a0
+	lea	8(a1),a1
+	lea	circuits,a6
+	bsr	OwnBlit
+	move.w	#%100111110000,BltCon0(a6)
+	move.w	d7,BltCon1(a6)
+	moveq.l	#-1,d7
+	move.w	d7,BltDatB(a6)
+	move.w	d7,BltDatC(a6)
+	move.w	d7,BltMaskD(a6)
+	move.w	d7,BltMaskG(a6)
+	move.w	d6,BltModA(a6)
+	move.w	d1,BltModD(a6)
+	bra.s	Start_Blit
+Blit_Loop:
+	move.l	(a0)+,a2
+	add.l	d0,a2
+	move.l	(a1)+,a3
+	add.l	d2,a3
+	bsr	BlitWait
+	move.l	a2,BltAdA(a6)
+	move.l	a3,BltAdC(a6)
+	move.l	a3,BltAdD(a6)
+	move.w	d5,BltSize(a6)
+Start_Blit:
+	subq.w	#1,d4
+	bmi.s	Blit_out
+	dbra	d3,Blit_Loop
+Blit_out:
+	bsr	BlitWait
+	bsr	DownBlit
+	moveq.l	#0,d7
+	rts
+
+***********************************************************
+*	Calcul de PEN/PAPER
+***********************************************************
+AdColor:move.w	WiNPlan(a5),d1
+
+	move.w	WiPaper(a5),d2
+	move.w	WiPen(a5),d3
+	move.w	d2,d4
+	move.w	d3,d5
+	lea	TAdCol(pc),a0
+	lea	WiColor(a5),a1
+	lea	WiColFl(a5),a2
+
+ACol:	moveq	#16,d0
+	btst	d1,WiSys+1(a5)
+	bne.s	ACol1
+	clr.w	d0
+	lsr.w	#1,d2
+	roxl.w	#1,d0
+	lsr.w	#1,d3
+	roxl.w	#1,d0
+	lsl.w	#2,d0
+ACol1	move.l	0(a0,d0.w),d0
+	add.l	a0,d0
+	move.l	d0,(a1)+
+
+	lsr.w	#1,d4
+	subx.w	d0,d0
+	move.w	d0,(a2)+
+	lsr.w	#1,d5
+	subx.w	d0,d0
+	move.w	d0,(a2)+
+
+	dbra	d1,ACol
+
+	rts
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* SCREENS
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+
+***********************************************************
+*	DEMARRAGE A FROID DES ECRANS
+*	D0= taille memoire pour liste copper
+***********************************************************
+EcInit:
+* Reserve la memoire pour liste copper ecrans
+	move.l	#EcTCop,d0
+	bsr	FastMm
+	beq	GFatal
+	move.l	d0,T_EcCop(a5)
+* Petit buffer en CHIP pour les operations graphiques
+	move.l	#256,d0
+	bsr	ChipMm
+	beq	GFatal
+	move.l	d0,T_ChipBuf(a5)
+* Taille affichage par defaut
+	move.w	#311+EcYBase,T_EcYMax(a5)	PAL
+	move.l	$4.w,a0
+	cmp.b	#50,530(a0)			VBlankFrequency=50?
+	beq.s	.NoNTSC
+	move.w	#261+EcYBase,T_EcYMax(a5)	NTSC!
+.NoNTSC
+* Autre inits
+	bsr	EcRaz
+	bsr	EcCopper
+	tst.b	T_AMOSHere(a5)
+	beq.s	.Skip
+	lea	Circuits,a6
+	clr.w	CopJmp1(a6)
+	move.w	#$82A0,DmaCon(a6)
+.Skip
+; Installe le vecteur
+	lea	EcIn(pc),a0
+	move.l	a0,T_EcVect(a5)
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	ARRET FINAL DES ECRANS
+**********************************************************
+EcEnd:	moveq	#0,d1
+	moveq	#EcMax-1,d2
+	bsr	EcDAll
+	bsr	RazCBloc
+	bsr	RazBloc
+	moveq	#-1,d1
+	bsr	TrDel
+* Efface la memoire du buffer CHIP
+	move.l	T_ChipBuf(a5),d0
+	beq.s	.skip
+	move.l	d0,a1
+	move.l	#256,d0
+	bsr	FreeMm
+.skip
+* Efface la memoire liste copper
+	move.l	T_EcCop(a5),d0
+	beq.s	EcEnd1
+	move.l	d0,a1
+	move.l	#EcTCop,d0
+	bsr	FreeMm
+EcEnd1:	rts
+
+
+******* Jumps to screen functions
+EcIn:	bra	EcRaz		;Raz:
+	bra	EcCopper	;CopMake:
+	bra	EcCopper	;*
+	bra	EcCree		;Cree:
+	bra	EcDel		;Del:
+	bra	EcFirst		;First:
+	bra	EcLast		;Last:
+	bra	EcMarch		;Active:
+	bra	EcForceCop	;CopForce:
+	bra	EcView		;AView:
+	bra	EcOffs		;OffSet:
+	bra	EcEnd		;Visible:
+	bra	EcDAll		;DelAll:
+	bra	EcGCol		;GCol:
+	bra	EcSCol		;SCol:
+	bra	EcSPal		;SPal:
+	bra	EcSColB		;SColB:
+	bra	FlStop		;FlRaz:
+	bra	FlStart		;Flash:
+	bra	ShStop		;ShRaz:
+	bra	ShStart		;Shift:
+	bra	EcHide		;EHide:
+	bra	MakeCBloc	;CBlGet:
+	bra	DrawCBloc	;CBlPut:
+	bra	FreeCBloc	;CBlDel:
+	bra	RazCBloc	;CBlRaz:
+	bra	EcLibre		;Libre:
+	bra	EcCClo		;CCloEc:
+	bra	EcCrnt		;Current:
+	bra	EcDouble	;Double:
+	bra	ScSwap		;SwapSc:
+	bra	ScSwapS		;SwapScS:
+	bra	EcAdres		;AdrEc:
+	bra	Duale		;SetDual:
+	bra	DualP		;PriDual:
+	bra	EcCls		;ClsEc:
+	bra	SPat		;Pattern:
+	bra	TGFonts		;GFonts:
+	bra	TFFonts		;FFonts:
+	bra	TGFont		;GFont:
+	bra	TSFont		;SFont:
+	bra	TSClip		;SetClip:
+	bra	MakeBloc	;- BlGet:		Routine blocs normaux
+	bra	DelBloc		;-BlDel:
+	bra	RazBloc		;-BlRaz:
+	bra	DrawBloc	;-BlPut:
+	bra	SliVer		;- VerSli:		Slider vertical
+	bra	SliHor		;- HorSli:		Slider horizontal
+	bra	SliSet		;- SetSli:		Set slider params
+	bra	StaMn		;- MnStart:	Sauve l'ecran
+	bra	StoMn		;- MnStop:		Remet l'ecran
+	bra	TRDel		;- RainDel:	Delete RAINBOW
+	bra	TRSet		;- RainSet:	Set RAINBOW
+	bra	TRDo		;- RainDo:		Do RAINBOW
+	bra	TRHide		;- RainHide:	Hide / Show RAINBOW
+	bra	TRVar		;- RainVar:	Var RAINBOW
+	bra	FadeTOn		;- FadeOn:		Fade
+	bra	FadeTOf		;- FadeOf:		Fade Off
+	bra	TCopOn		;- CopOnOff:	Copper ON/OFF
+	bra	TCopRes		;- CopReset:	Copper RESET
+	bra	TCopSw		;- CopSwap:	Copper SWAP
+	bra	TCopWt		;- CopWait:	Copper WAIT
+	bra	TCopMv		;- CopMove:	Copper MOVE
+	bra	TCopMl		;- CopMoveL:	Copper MOVEL
+	bra	TCopBs		;- CopBase:	Copper BASE ADDRESS
+	bra	TAbk1		;- AutoBack1:	Autoback 1
+	bra	TAbk2		;- AutoBack2:	Autoback 2
+	bra	TAbk3		;- AutoBack3:	Autoback 3
+	bra	TAbk4		;- AutoBack4:	Autoback 4
+	bra	TPaint		;- SuPaint:	Super paint!
+	bra	RevBloc		;- BlRev:		Retourne le bloc
+	bra	RevTrap		;- DoRev:		Retourne dans la banque
+	bra	TAmosWB		;- AMOS_WB		AMOS/WorkBench
+	bra	WScCpy		;- ScCpyW		New_W_2.s
+	bra	TMaxRaw		;- MaxRaw		Maximum raw number
+	bra	TNTSC		;- NTSC		NTSC?
+	bra	SliPour		;- PourSli		Calculs slider
+
+***********************************************************
+*	Instructions de gestion des ecrans
+***********************************************************
+
+******* MAX RAW
+TMaxRaw	move.w	T_EcYMax(a5),d1
+	sub.w	#EcYBase,d1
+	ext.l	d1
+	moveq	#0,d0
+	rts
+******* NTSC?
+TNTSC	moveq	#0,d0
+	moveq	#0,d1			PAL
+	move.l	$4.w,a0
+	cmp.b	#50,530(a0)		VBlankFrequency=50?
+	beq.s	.NoNTSC
+	moveq	#-1,d1			NTSC!
+.NoNTSC	rts
+
+******* SCREEN SWAP D1
+ScSwap:	movem.l	d1-d7/a1-a6,-(sp)
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a4
+	btst	#BitDble,EcFlags(a4)
+	beq	EcOk
+	move.w	EcNumber(a4),d0
+	lea	T_SwapList(a5),a0
+	tst.l	(a0)
+	beq.s	ScSw2
+ScSw1:	cmp.w	SwapL-2(a0),d0		* Screen already swapped!
+	beq	EcOk
+	lea	SwapL(a0),a0
+	tst.l	(a0)
+	bne.s	ScSw1
+ScSw2:	move.w	d0,SwapL-2(a0)
+	lsl.w	#6,d0
+	add.w	#CopL1*EcMax,d0
+	lea	T_CopMark(a5),a1	* Garde l'adresse pour la fin!
+	add.w	d0,a1
+	move.l	a0,a6
+	addq.l	#4,a0
+	move.w	EcNPlan(a4),d0		* Nombre de bit planes
+	subq.w	#1,d0
+	move.w	d0,(a0)+
+	move.l	EcDEcran(a4),d2
+	lea	EcLogic(a4),a2
+	lea	EcPhysic(a4),a3
+	move.w	d0,d3
+ScSw3:	move.l	(a2),d1			* Screen swap!
+	move.l	(a3),(a2)+
+	move.l	d1,(a3)+
+	add.l	d2,d1
+	move.l	d1,(a0)+
+	dbra	d3,ScSw3
+	lea	EcLogic(a4),a0		* Update les outputs!
+	lea	EcCurrent(a4),a2
+	move.l	Ec_BitMap(a4),a3
+	lea	bm_Planes(a3),a3
+	move.w	d0,d3
+ScSw4	move.l	(a0),(a2)+
+	move.l	(a0)+,(a3)+
+	dbra	d3,ScSw4
+* Autorise le screen swap
+	tst.w	T_CopON(a5)		* Pas si COPPER OFF!
+	beq	EcOk
+	btst	#2,EcCon0+1(a4)		* Interlace?
+	bne	EcOk
+	clr.l	SwapL(a6)		* Empeche le suivant
+	move.l	a1,(a6)
+	bra	EcOk
+
+******* SCREEN SWAP DE TOUS LES ECRANS UTILISATEUR
+ScSwapS	movem.l	d1-d7/a1-a6,-(sp)
+	lea	T_EcAdr(a5),a1
+	moveq	#8-1,d6
+	lea	T_SwapList(a5),a0
+	clr.l	(a0)
+* Explore tous les ecrans
+ScSwS0:	move.l	(a1)+,d0
+	bne.s	ScSwS2
+ScSwS1:	dbra	d6,ScSwS0
+	bra	EcOk
+* Swappe un ecran!
+ScSwS2:	move.l	d0,a4
+	btst	#BitDble,EcFlags(a4)
+	beq.s	ScSwS1
+	move.w	EcNumber(a4),d0
+	move.w	d0,SwapL-2(a0)
+	lsl.w	#6,d0
+	add.w	#CopL1*EcMax,d0
+	lea	T_CopMark(a5),a2	* Garde l'adresse pour la fin!
+	add.w	d0,a2
+	move.l	a2,d7
+	move.l	a0,a6
+	addq.l	#4,a0
+	move.w	EcNPlan(a4),d0		* Nombre de bit planes
+	subq.w	#1,d0
+	move.w	d0,(a0)+
+	move.l	EcDEcran(a4),d2
+	lea	EcLogic(a4),a2
+	lea	EcPhysic(a4),a3
+	move.w	d0,d3
+ScSwS3:	move.l	(a2),d1			* Screen swap!
+	move.l	(a3),(a2)+
+	move.l	d1,(a3)+
+	add.l	d2,d1
+	move.l	d1,(a0)+
+	dbra	d3,ScSwS3
+	lea	EcLogic(a4),a0		* Update les outputs!
+	lea	EcCurrent(a4),a2
+	move.l	Ec_BitMap(a4),a3
+	lea	bm_Planes(a3),a3
+	move.w	d0,d3
+ScSwS4	move.l	(a0),(a2)+
+	move.l	(a0)+,(a3)+
+	dbra	d3,ScSwS4
+* Autorise le screen swap
+	lea	SwapL(a6),a0
+	tst.w	T_CopON(a5)		* Si COPPER ON!
+	beq	ScSwS1
+	btst	#2,EcCon0+1(a4)		* Interlace?
+	bne	ScSwS1
+	clr.l	SwapL(a6)		* Empeche le suivant!
+	move.l	d7,(a6)
+	bra	ScSwS1
+
+******* SCREEN CLONE N
+EcCClo:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	d1,-(sp)
+	bsr	EcGet
+	beq.s	EcCT0
+	addq.l	#4,sp
+	bra	EcE2
+* Reserve la RAM / Verifie les parametres
+EcCT0:	move.l	#EcLong,d0
+	bsr	FastMm
+	beq	EcE1
+	move.l	d0,a4
+	move.l	d0,a1
+	move.w	#EcLong-1,d0
+	move.l	T_EcCourant(a5),a0
+EcCT1:	move.b	(a0)+,(a1)+
+	dbra	d0,EcCT1
+* Pas de zones
+	clr.l	EcAZones(a4)
+	clr.w	EcNZones(a4)
+* Pas de fenetre!
+	clr.l	EcWindow(a4)
+* Pas de pattern
+	clr.l	EcPat(a4)
+* Pas de fonte
+	clr.w	EcFontFlag(a4)
+* Cree l'ecran dans les tables
+	bset	#BitClone,EcFlags(a4)
+	move.l	(sp)+,d1
+	move.w	d1,EcNumber(a4)
+* Entrelace?
+	bsr	InterPlus
+* Met dans la displaylist
+	bsr	EcGet
+	move.l	a4,(a0)
+	bsr	EcFirst
+	bra	EcTout
+
+******* DOUBLE BUFFER: Passe en double buffer!
+EcDouble:
+	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+* Deja en double?
+	btst	#BitDble,EcFlags(a4)
+	bne	EcE25
+* Reserve la RAM / Copie le contenu
+	move.w	EcNplan(a4),d6
+	subq.w	#1,d6
+	lea	EcPhysic(a4),a2
+	lea	EcLogic(a4),a3
+	lea	EcCurrent(a4),a6
+EcDb1:	move.l	EcTPlan(a4),d0		* Reserve!
+	bsr	ChipMm
+	beq	EcDbE
+	move.l	d0,(a3)+
+	move.l	d0,(a6)+
+	move.l	d0,a1			* Copie!
+	move.l	(a2)+,a0
+	move.l	EcTPlan(a4),d0
+	lsr.w	#4,d0
+	subq.w	#1,d0
+EcDb2:	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	move.l	(a0)+,(a1)+
+	dbra	d0,EcDb2
+	dbra	d6,EcDb1
+* Met le flag!
+	bset	#BitDble,EcFlags(a4)
+	move.w	#2,EcAuto(a4)
+* Enleve le BUG!
+	bsr	TAbk1
+	bsr	TAbk2
+	bsr	TAbk3
+	bra	EcOk
+* Erreur! Efface l'ecran entier
+EcDbE	moveq	#0,d1
+	move.w	EcNumber(a4),d1
+	bsr	EcDel
+	bra	EcE1
+
+	IFEQ	EZFlag
+******* Dual Playfield D1,D2
+*	D1= Ecran 1
+*	D2= Ecran 2
+Duale:	movem.l	d1-d7/a1-a6,-(sp)
+	cmp.w	d1,d2
+	beq	EcE26
+	move.w	d2,d7
+	addq.w	#1,d7
+	exg	d1,d2
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a1
+	move.w	d2,d1
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a0
+	tst.w	EcDual(a0)		* Pas deja dual!
+	bne	EcE26
+	tst.w	EcDual(a1)
+	bne	EcE26
+	moveq	#3,d2
+	move.w	EcCon0(a0),d0		* Meme resolution!
+	bpl.s	EcDu1
+	moveq	#2,d2
+EcDu1:	and.w	#%1000111111111111,d0
+	move.w	EcCon0(a1),d1
+	and.w	#%1000111111111111,d1
+	cmp.w	d0,d1
+	bne	EcE26
+	move.w	EcNPlan(a0),d3
+	move.w	EcNPlan(a1),d4
+	cmp.w	d2,d3
+	bhi	EcE26
+	cmp.w	d2,d4
+	bhi	EcE26
+	move.w	d3,d2			* Nombre total de plans
+	add.w	d4,d2
+	cmp.w	d3,d4			* Combinaisons autorisees?
+	beq.s	EcDu2
+	addq.w	#1,d4
+	cmp.w	d3,d4
+	bne	EcE26
+EcDu2:	moveq	#12,d1
+	lsl.w	d1,d2
+	or.w	d2,d0
+	bset	#10,d0			* Mode DUAL PLAYFIELD!
+	move.w	d0,EcCon0(a0)
+	move.w	EcCon2(a0),d0		* Priorites sprites-> 2 ieme plan!
+	and.w	#%111,d0
+	lsl.w	#3,d0
+	or.w	d0,EcCon2(a0)
+	and.w	#%111111,EcCon2(a0)
+	bset	#BitHide,EcFlags(a1)	* Cache le deuxieme
+	move.w	d7,EcDual(a0)		* Met les flags!
+	neg.w	d7
+	move.w	d7,EcDual(a1)
+	bra	EcTout
+
+******* DUAL PRIORITY n,m
+DualP:	movem.l	d1-d7/a1-a6,-(sp)
+	cmp.w	d1,d2
+	beq	EcE27
+	exg	d1,d2
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a1
+	move.w	d2,d1
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a0
+	moveq	#0,d0
+	tst.w	EcDual(a0)
+	beq	EcE27
+	tst.w	EcDual(a1)
+	beq	EcE27
+	bmi.s	EcDup1
+	move.l	a1,a0
+	moveq	#-1,d0
+EcDup1:	move.w	EcCon2(a0),d1
+	bclr	#6,d1
+	tst.w	d0
+	beq.s	EcDup2
+	bset	#6,d1
+EcDup2:	move.w	d1,EcCon2(a0)
+	bra	EcOtoV
+	ENDC
+
+******* Creation de l'ecran
+*	D1= #
+*	D2= TX
+*	D3= TY
+*	D4= NB PLANS
+*	D5= MODE
+*	D6= NB COULEURS
+*	A1= PALETTE
+EcCree:	movem.l	d1-d7/a1-a6,-(sp)
+
+;	Verifie les parametres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	and.l	#$FFFFFFF0,d2
+	beq	EcE4
+	cmp.l	#1024,d2
+	bcc	EcE4
+	tst.l	d3
+	beq	EcE4
+	cmp.l	#1024,d3
+	bcc	EcE4
+	tst.l	d4
+	beq	EcE4
+	cmp.l	#EcMaxPlans,d4
+	bhi	EcE4
+
+;	Ecran deja reserve?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+ReEc:	move.l	d1,-(sp)
+	bsr	EcGet
+	beq.s	EcCr0
+; Efface l'ecran deja r�serve
+	move.l	(sp)+,d1
+	bsr	EcDel
+	bra.s	ReEc
+
+;	Reserve la RAM pour la structure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EcCr0:	move.l	#EcLong,d0
+	bsr	FastMm
+	beq	EcEE1
+	move.l	d0,a4
+
+; Couleurs
+; ~~~~~~~~
+	move.w	d6,EcNbCol(a4)
+	moveq	#31,d0
+	lea	EcPal(a4),a2
+EcCr4:	move.w	(a1)+,(a2)+
+	dbra	d0,EcCr4
+; Taille de l'ecran
+; ~~~~~~~~~~~~~~~~~
+	move.w	d2,EcTx(a4)
+	move.w	d2,EcTxM(a4)
+	subq.w	#1,EcTxM(a4)
+	move.w	d2,d7
+	lsr.w	#3,d7
+	move.w	d7,EcTLigne(a4)
+	move.w	d3,EcTy(a4)
+	move.w	d3,EcTyM(a4)
+	subq.w	#1,EcTyM(a4)
+	mulu	d3,d7
+	move.l	d7,EcTPlan(a4)
+	move.w	d4,EcNPlan(a4)
+
+; 	Parametres d'affichage -1-
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_GfxBase(a5),a0	EcCon0
+	move.w	164(a0),d0
+	and.w	#%0000001111111011,d0
+	move.w	d4,d1
+	lsl.w	#8,d1
+	lsl.w	#4,d1
+	or.w	d0,d1
+	or.w	d1,d5
+	move.w	d5,EcCon0(a4)
+	move.w	#%00100100,EcCon2(a4)	EcCon2
+
+;	Creation de la structure BitMap / Reservation des bitmaps
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#40,d0				bm_SIZEOF
+	bsr	FastMm
+	beq	EcMdd
+	move.l	d0,Ec_BitMap(a4)
+	move.l	d0,a0
+	move.w	EcNPlan(a4),d0			Creation de BitMap
+	ext.l	d0
+	move.w	EcTx(a4),d1
+	ext.l	d1
+	move.w	EcTy(a4),d2
+	ext.l	d2
+	move.l	T_GfxBase(a5),a6
+	jsr	_LVOInitBitMap(a6)
+; Reserve la RAM
+; ~~~~~~~~~~~~~~
+	move.w	d4,d6
+	subq.w	#1,d6
+	move.l	Ec_BitMap(a4),a1
+	moveq	#0,d2
+EcCra:	move.l	d7,d0
+	bsr	ChipMm
+	beq	EcMdd
+	move.l	d0,bm_Planes(a1,d2.w)
+	move.l	d0,EcCurrent(a4,d2.w)
+	move.l	d0,EcLogic(a4,d2.w)
+	move.l	d0,EcPhysic(a4,d2.w)
+	addq.l	#4,d2
+	dbra	d6,EcCra
+
+;	Ouverture d'un rastport intuition REEL
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_LayBase(a5),a6
+	jsr	_LVONewLayerInfo(a6)		Creation de LayerInfo
+	move.l	d0,Ec_LayerInfo(a4)
+	beq	EcMdd
+	move.l	d0,a0				Creation du layer
+	move.l	Ec_BitMap(a4),a1
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	EcTx(a4),d2
+	subq.w	#1,d2
+	ext.l	d2
+	move.w	EcTy(a4),d3
+	subq.w	#1,d3
+	ext.l	d3
+	moveq	#LAYERSIMPLE,d4
+	sub.l	a2,a2
+	jsr	_LVOCreateUpfrontLayer(a6)
+	move.l	d0,Ec_Layer(a4)
+	beq	EcMdd
+	move.l	d0,a0				Rastport courant
+	move.l	lr_rp(a0),Ec_RastPort(a4)
+
+	bsr	BlitWait
+	bsr	WVbl
+	bsr	BlitWait
+
+;	Zones
+; ~~~~~~~~~~~
+	clr.l	EcAZones(a4)
+	clr.w	EcNZones(a4)
+
+;	Additionne l'ecran dans les tables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	(sp),d1
+	lea	Circuits,a6
+	bsr	EcGet
+	move.l	a4,(a0)			Branche
+	move.w	d1,EcNumber(a4)		Un numero!
+	move.l	a4,a0			Devient l'ecran courant
+	bsr	Ec_Active
+	move.l	(sp),d1
+	bsr	EcFirst			Et devant les autres
+	bsr	InterPlus		Si entrelace
+
+; 	Parametres d'affichage -2-
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	T_DefWX(a5),d2		Affichage par defaut
+	move.w	T_DefWY(a5),d3
+	move.w	EcTx(a4),d4
+	tst.w	EcCon0(a4)
+	bpl.s	EcCr6
+	lsr.w	#1,d4
+EcCr6	move.w	EcTy(a4),d5
+	cmp.w	#320+16,d4
+	bcs.s	EcCr7
+	move.w	T_DefWX2(a5),d2
+EcCr7	cmp.w	#256,d5
+	bcs.s	EcCr8
+	btst	#2,EcCon0+1(a4)
+	beq.s	EcCr7a
+	cmp.w	#256*2,d5
+	bcs.s	EcCr8
+EcCr7a	move.w	T_DefWY2(a5),d3
+EcCr8	ext.l	d2
+	ext.l	d3
+	ext.l	d4
+	ext.l	d5
+	move.l	(sp),d1
+	bsr	EcView
+
+; 	Cree la fenetre de texte plein ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.l	EcWindow(a4)
+	moveq	#0,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.w	EcTx(a4),d4
+	lsr.w	#4,d4
+	lsl.w	#1,d4
+	move.w	EcTy(a4),d5
+	lsr.w	#3,d5
+	moveq	#1,d6
+	moveq	#0,d7
+	sub.l	a1,a1
+	bsr	WOpen
+	bne	EcM1
+
+;	Initialisation des parametres graphiques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	EcWindow(a4),a0
+	move.b	WiPen+1(a0),d1
+	move.b	d1,EcInkA(a4)
+	move.b	WiPaper+1(a0),d0
+	move.b	d0,EcInkB(a4)
+	move.b	d1,EcFInkC(a4)
+	move.b	d1,EcIInkC(a4)
+	move.b	d0,EcFInkA(a4)
+	move.b	d0,EcFInkB(a4)
+	move.b	d0,EcIInkA(a4)
+	move.b	d0,EcIInkB(a4)
+	move.w	#1,EcIPat(a4)
+	move.w	#2,EcFPat(a4)
+	move.b	#1,EcMode(a4)
+	move.w	#-1,EcLine(a4)
+
+	move.l	Ec_RastPort(a4),a1
+	moveq	#0,d0
+	move.b	EcInkA(a4),d0			Ink A
+	GfxA5	_LVOSetAPen
+	move.b	EcInkB(a4),d0			Ink B
+	GfxA5	_LVOSetBPen
+	move.b	EcMode(a4),d0			Draw Mode
+	GfxA5	_LVOSetDrMd
+;	move.w	EcCont(a4),32(a1)		Cont
+	move.w	EcLine(a4),34(a1)		Line
+	clr.w	36(a1)				X
+	clr.w	38(a1)				Y
+
+	move.l	T_DefaultFont(a5),a0		Fonte systeme
+	GfxA5	_LVOSetFont
+
+	clr.w	EcClipX0(a4)			Par default
+	clr.w	EcClipY0(a4)
+	move.w	EcTx(a4),EcClipX1(a4)
+	move.w	EcTy(a4),EcClipY1(a4)
+
+; Pas d'erreur
+; ~~~~~~~~~~~~~
+	addq.l	#4,sp
+	move.l	T_EcCourant(a5),a0	* Ramene l'adresse definition
+; Doit recalculer les ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+EcTout:	addq.w	#1,T_EcYAct(a5)
+; Doit actualiser ECRANS
+; ~~~~~~~~~~~~~~~~~~~~~~
+EcOtoV:	bset	#BitEcrans,T_Actualise(a5)
+EcOk:	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#0,d0
+	rts
+
+;	Erreur creation d'un ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EcM1:	move.l	(sp),d1
+	bsr	EcDel
+	bra.s	EcEE1
+EcMdd	bsr	EcDDel			* Efface la structure
+EcEE1	addq.l	#4,sp
+EcE1:	moveq	#1,d0
+	bra.s	EcOut
+EcE4:	moveq	#4,d0			* Sans effacement
+	bra.s	EcOut
+EcE3:	moveq	#3,d0			* 3 : SCREEN NOT OPENED
+	bra.s	EcOut
+EcE25:	moveq	#25,d0			* 25: Screen already double buffered
+	bra.s	EcOut
+EcE26:	moveq	#26,d0			* Can't set dual-playfield
+	bra.s	EcOut
+EcE27:	moveq	#27,d0			* Screen not dual playfield
+	bra.s	EcOut
+EcE2:	moveq	#2,d0			* 2 : SCREEN ALREADY OPENED
+* Sortie erreur ecrans
+EcOut:	movem.l	(sp)+,d1-d7/a1-a6
+	tst.l	d0
+	rts
+
+******* Un ecran entrelace en plus!
+InterPlus:
+	btst	#2,EcCon0+1(a4)
+	beq.s	IntPls
+	movem.l	d0/a0/a1,-(sp)
+	clr.w	T_InterBit(a5)
+	lea	T_InterList(a5),a0
+IntP0	tst.l	(a0)
+	addq.l	#8,a0
+	bne.s	IntP0
+	clr.l	(a0)
+	move.l	a4,-8(a0)
+	move.w	EcNumber(a4),d0
+	lsl.w	#6,d0
+	add.w	#CopL1*EcMax,d0
+	ext.l	d0
+	lea	T_CopMark(a5),a1
+	add.l	a1,d0
+	move.l	d0,-4(a0)
+	movem.l	(sp)+,d0/a0/a1
+IntPls	rts
+
+;	Sauve les contenu du rasport de l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ec_Push	movem.l	a0-a1/d0,-(sp)
+	tst.w	T_PaPeek(a5)
+	bne.s	.Pasave
+	move.l	T_RastPort(a5),d0
+	beq.s	.Pasave
+	move.l	d0,a0
+	lea	T_EcSave(a5),a1
+	move.b	25(a0),(a1)+		0 EcInkA(a1)
+	move.b	26(a0),(a1)+		1 EcInkB(a1)
+	move.b	27(a0),(a1)+		2 EcOutL(a1)
+	move.b	28(a0),(a1)+		3 EcMode(a1)
+	move.w	32(a0),(a1)+		4 EcCont(a1)
+	move.w	34(a0),(a1)+		6 EcLine(a1)
+	move.w	36(a0),(a1)+		8 EcX(a1)
+	move.w	38(a0),(a1)+		10 EcY(a1)
+	move.l	8(a0),(a1)+		12 EcPat
+	move.b	29(a0),(a1)+		16 EcPatY
+	addq.l	#1,a1
+	lea	52(a0),a0
+	moveq	#14-1,d0		18 Fonte
+.Loop	move.b	(a0)+,(a1)+
+	dbra	d0,.Loop
+; Sauve le clip rectangle
+	move.l	T_EcCourant(a5),a0
+	move.w	EcClipX0(a0),(a1)+	32
+	move.w	EcClipY0(a0),(a1)+	34
+	move.w	EcClipX1(a0),(a1)+	36
+	move.w	EcClipY1(a0),(a1)+	38
+.Pasave	movem.l	(sp)+,a0-a1/d0
+	rts
+
+;	Restore les modes graphiques de l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ec_Pull	movem.l	a0-a2/d0-d3,-(sp)
+	tst.w	T_PaPeek(a5)
+	bne.s	.Papull
+	lea	T_EcSave(a5),a2
+	move.l	T_RastPort(a5),d0
+	beq.s	.Papull
+	move.l	d0,a1
+; Change le RASTPORT
+; ~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0			Ink A
+	move.b	(a2)+,d0
+	GfxA5	SetAPen
+ 	moveq	#0,d0			Ink B
+	move.b	(a2)+,d0
+	GfxA5	SetBPen
+	move.b	(a2)+,27(a1)		OutL
+	moveq	#0,d0
+	move.b	(a2)+,d0
+	GfxA5	SetDrMd			Draw Mode
+	move.w	(a2)+,32(a1)		Cont
+	move.w	(a2)+,34(a1)		Line
+	move.w	(a2)+,36(a1)		X
+	move.w	(a2)+,38(a1)		Y
+	move.l	(a2)+,8(a1)		EcPat
+	move.b	(a2)+,29(a1)		EcPatY
+	addq.l	#1,a2
+	lea	52(a1),a1		Fonte
+	moveq	#14-1,d0
+.Loop	move.b 	(a2)+,(a1)+
+	dbra	d0,.Loop
+; Restore le clip rectangle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	(a2)+,d0
+	move.w	(a2)+,d1
+	move.w	(a2)+,d2
+	move.w	(a2)+,d3
+	bsr	Ec_SetClip
+.Papull	movem.l	(sp)+,a0-a2/d0-d3
+	rts
+
+******* VIEW: change le point de vue d'un ecran
+*	D1= #
+*	D2= WX
+*	D3= WY
+*	D4= WTx
+* 	D5= WTy
+EcView:	movem.l	d1-d7/a1-a6,-(sp)
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a4
+* WX
+	cmp.l	#EntNul,d2
+	beq.s	EcV2
+	move.w	d2,EcAWX(a4)
+	bset	#1,EcAW(a4)
+* WTX
+EcV2:	cmp.l	#EntNul,d4
+	beq.s	EcV3
+	move.w	d4,EcAWTx(a4)
+	bset	#1,EcAWT(a4)
+* WY
+EcV3:	cmp.l	#EntNul,d3
+	beq.s	EcV4
+	move.w	d3,EcAWY(a4)
+	bset	#2,EcAW(a4)
+* WTy
+EcV4:	cmp.l	#EntNul,d5
+	beq	EcOtoV
+	move.w	d5,EcAWTy(a4)
+	bset	#2,EcAWT(a4)
+	bra	EcOtoV
+
+******* Fait passer l'ecran D1 en premier
+EcFirst:movem.l	d1-d7/a1-a6,-(sp)
+	bsr	EcGet
+	beq	EcE3
+	lea	T_EcPri(a5),a0
+	move.l	a0,a1
+	move.l	(a1),d1
+	move.l	d0,(a0)
+EcF1:	addq.l	#4,a0
+EcF2:	addq.l	#4,a1
+	move.l	d1,d2
+	move.l	(a1),d1
+	move.l	d2,(a0)
+	bmi.s	EcF3
+	beq.s	EcF2
+	cmp.l	d2,d0
+	beq.s	EcF2
+	bne.s	EcF1
+EcF3:	bra	EcTout
+
+******* Fait passer l'ecran D1 en dernier
+EcLast:	movem.l	d1-d7/a1-a6,-(sp)
+	bsr	EcGet
+	beq	EcE3
+	lea	T_EcPri(a5),a0
+	move.l	a0,a1
+EcL1:	move.l	(a1)+,d1
+	move.l	d1,(a0)
+	bmi.s	EcL2
+	beq.s	EcL1
+	cmp.l	d1,d0
+	beq.s	EcL1
+	addq.l	#4,a0
+	bra.s	EcL1
+EcL2:	move.l	d0,(a0)+
+	move.l	#-1,(a0)+
+	bra	EcTout
+
+;	 Arret ecran special creation!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A4= Adresse!
+EcDDel	movem.l	d1-d7/a1-a6,-(sp)
+	bra.s	EcDD
+
+;	Arret d'un ecran D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+EcDel:	movem.l	d1-d7/a1-a6,-(sp)
+	bsr	EcGet
+	beq	EcE3
+	move.l	d0,a4
+	clr.l	(a0)			;Arrete dans la table
+	lea	T_EcPri(a5),a0		;Arrete dans les priorites
+	move.l	a0,a1
+EcD1:	move.l	(a1)+,d0
+	move.l	d0,(a0)
+	bmi.s	EcD2
+	beq.s	EcD1
+	cmp.l	d0,a4
+	beq.s	EcD1
+	addq.l	#4,a0
+	bra.s	EcD1
+; Entrelace?
+; ~~~~~~~~~~
+EcD2	btst	#2,EcCon0+1(a4)
+	beq.s	EcDit3
+	clr.w	T_InterBit(a5)
+	lea	T_InterList(a5),a0
+	move.l	a0,a1
+EcDit0	move.l	(a1),d0
+	beq.s	EcDit2
+	cmp.l	d0,a4
+	beq.s	EcDit1
+	move.l	(a1)+,(a0)+
+	move.l	(a1)+,(a0)+
+	bra.s	EcDit0
+EcDit1	lea	8(a1),a1
+	bra.s	EcDit0
+EcDit2	clr.l	(a0)
+; Enleve les screen swaps!
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+EcDit3	lea	T_SwapList(a5),a0
+	clr.l	(a0)
+; Recalcule la liste copper
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	WVbl
+	bset	#BitHide,EcFlags(a4)
+	bsr	EcForceCop
+	bsr	WVbl
+
+; 	Entree sans recalcul des listes copper
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EcDD:	move.l	EcAZones(a4),d0		Les zones
+	beq.s	.Nozone
+	move.l	d0,a1
+	move.w	EcNZones(a4),d0
+	mulu	#8,d0
+	bsr	FreeMm
+.Nozone	lea	EcAW(a4),a0		Les animations
+	bsr	DAdAMAL
+	lea	EcAWT(a4),a0
+	bsr	DAdAMAL
+	lea	EcAV(a4),a0
+	bsr	DAdAMAL
+	move.l	a4,a0			Les bobs
+	bsr	BbEcOff
+
+	move.l	T_EcCourant(a5),d3
+	move.l	a4,a0			Active l'ecran
+	bsr	Ec_Active		Pour les effacements
+	bsr	WiDelA			Toutes les fenetres
+	bsr	FlStop			Animations de couleur
+	bsr	ShStop
+	bsr	FaStop
+	bsr	EffPat			Le pattern
+	bsr	CFont			La fonte
+
+; Si ECRAN COURANT: met le + prioritaire pas clone, <8 si possible!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	a4,d3
+	bne.s	EcD3
+	lea	T_EcPri(a5),a0		1ere boucle: <8
+EcDc2:	move.l	(a0)+,d3
+	bmi.s	EcDc3
+	move.l	d3,a1
+	btst	#BitClone,EcFlags(a1)
+	bne.s	EcDc2
+	cmp.w	#8,EcNumber(a1)
+	bcc.s	EcDc2
+	bra.s	EcD3
+EcDc3	lea	T_EcPri(a5),a0		2ieme n'importe!
+EcDc4	move.l	(a0)+,d3
+	bmi.s	EcDc5
+	move.l	d3,a1
+	btst	#BitClone,EcFlags(a1)
+	bne.s	EcDc4
+	bra.s	EcD3
+EcDc5	moveq	#0,d3
+EcD3:	move.l	d3,a0
+	bsr	Ec_Active
+
+; 	Liberation des memoires, si pas clone...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#BitClone,EcFlags(a4)		Si clone, rien a liberer...
+	bne	PaClon
+	move.l	a6,-(sp)
+
+; Ferme le ClipRect
+; ~~~~~~~~~~~~~~~~~
+	tst.l	Ec_Region(a4)
+	beq.s	.Paclip
+	move.l	T_LayBase(a5),a6		Enleve le ClipRegion
+	move.l	Ec_Layer(a4),a0
+	sub.l	a1,a1
+	jsr	_LVOInstallClipRegion(a6)
+	move.l	Ec_Region(a4),a0		Enleve la region
+	move.l	T_GfxBase(a5),a6
+	jsr	_LVODisposeRegion(a6)
+.Paclip
+; Ferme le layer
+; ~~~~~~~~~~~~~~
+	move.l	T_LayBase(a5),a6
+	move.l	Ec_Layer(a4),d0
+	beq.s	.Nola1
+	move.l	d0,a1
+	sub.l	a0,a0
+	move.l	T_LayBase(a5),a6
+	jsr	_LVODeleteLayer(a6)		Enleve le layer
+.Nola1	bsr	BlitWait			Blitter Wait!
+	bsr	WVbl
+	bsr	BlitWait
+	move.l	Ec_LayerInfo(a4),d0		Enleve Layer Info
+	beq.s	.Nola2
+	move.l	d0,a0
+	jsr	_LVODisposeLayerInfo(a6)	Enleve le layer info
+.Nola2
+; Liberation des bitmaps
+; ~~~~~~~~~~~~~~~~~~~~~~
+	bsr	BlitWait			Correction du bug dans les
+	bsr	WVbl				layers...
+	bsr	BlitWait
+	moveq	#EcMaxPlans-1,d7
+	lea	EcLogic(a4),a2
+	lea	EcPhysic(a4),a3
+EcFr0:	move.l	(a2),d2
+	beq.s	EcFr1
+	move.l	d2,a1
+	move.l	EcTPlan(a4),d0
+	bsr	FreeMm
+EcFr1:	clr.l	(a2)+
+	cmp.l	(a3)+,d2
+	bne.s	EcFr2
+	clr.l	-4(a3)
+EcFr2:	dbra	d7,EcFr0
+	moveq	#EcMaxPlans-1,d7
+	lea	EcPhysic(a4),a2
+EcFr3:	move.l	(a2),d0
+	beq.s	EcFr4
+	move.l	d0,a1
+	move.l	EcTPlan(a4),d0
+	bsr	FreeMm
+EcFr4:	clr.l	(a2)+
+	dbra	d7,EcFr3
+	move.l	(sp)+,a6
+; La structure Bitmap
+; ~~~~~~~~~~~~~~~~~~~
+	move.l	Ec_BitMap(a4),d0
+	beq.s	.PaBM
+	move.l	d0,a1
+	moveq	#40,d0
+	bsr	FreeMm
+.PaBM
+
+; 	Libere les structures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PaClon	move.l	a4,a1				La structure AMOS
+	move.l	#EcLong,d0
+	bsr	FreeMm
+
+	move.l	T_EcCourant(a5),a0
+	bra	EcOk
+
+******* Initialisation des ecrans
+EcRaz:	lea	T_EcAdr(a5),a0
+	moveq	#EcMax-1,d0
+EcR1:	clr.l	(a0)+
+	dbra	d0,EcR1
+	move.l	#-1,T_EcPri(a5)
+	lea	T_CopMark(a5),a0
+	move.w	#CopML/4-1,d0
+EcR2:	clr.l	(a0)+
+	dbra	d0,EcR2
+	move.w	#1,T_EcYAct(a5)
+	moveq	#0,d0
+	rts
+
+******* Arret de tous les ecrans entre D1-D2
+EcDAll:	bsr	EcDel
+	addq.l	#1,d1
+	cmp.l	d2,d1
+	bls.s	EcDAll
+	moveq	#0,d0
+	rts
+
+******* SCREEN OFFSET n,dx,dy
+EcOffs:	bsr	EcGet
+	beq	EcME
+	move.l	d0,a0
+	cmp.l	#EntNul,d2
+	beq.s	EcO1
+	move.w	d2,EcAVX(a0)
+	bset	#1,EcAV(a0)
+EcO1:	cmp.l	#EntNul,d3
+	beq.s	EcO2
+	move.w	d3,EcAVY(a0)
+	bset	#2,EcAV(a0)
+EcO2:	bra.s	EcTu
+
+******* HIDE/SHOW ecran D1,d2
+EcHide:	bsr	EcGet
+	beq	EcME
+	move.l	d0,a0
+	tst.w	EcDual(a0)		* Pas DUAL PLAYFIELD
+	bmi.s	EcTut
+	bclr	#BitHide,EcFlags(a0)
+	tst.w	d2
+	beq.s	EcTut
+	bset	#BitHide,EcFlags(a0)
+EcTut:	addq.w	#1,T_EcYAct(a5)
+EcTu:	bset	#BitEcrans,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	GESTION DE L'AUTOBACK!
+******* AUTOBACK 1
+TAbk1:	movem.l	a3-a6,-(sp)
+	move.l	W_Base(pc),a5
+	move.l	T_EcCourant(a5),a0
+	move.w	EcAuto(a0),d0
+	subq.w	#1,d0
+	ble.s	TAbk1X
+	bsr	WVbl
+	bsr	BobEff
+TAbk1X:	movem.l	(sp)+,a3-a6
+	rts
+******* AUTOBACK 2
+TAbk2	move.l	W_Base(pc),a1
+	move.l	T_EcCourant(a1),a0
+	move.w	EcAuto(a0),d0
+	subq.w	#1,d0
+	bmi.s	TAbk2X
+	bne.s	TAbk2B
+* Autoback simple---> change le rastport / current
+	moveq	#EcMaxPlans-1,d0
+	move.l	Ec_BitMap(a0),a1
+	addq.l	#8,a1
+	lea	EcCurrent(a0),a2
+	lea	EcPhysic(a0),a0
+TAbk2A	move.l	(a0),(a1)+
+	move.l	(a0)+,(a2)+
+	dbra	d0,TAbk2A
+TAbk2X	rts
+* Autoback total---> screen swap
+TAbk2B	movem.l	a3-a6,-(sp)
+	move.l	a1,a5
+	bsr	BobAct
+	bsr	BobAff
+	bsr	ScSwapS
+	bsr	WVbl
+	bsr	BobEff
+	movem.l	(sp)+,a3-a6
+	rts
+******* AUTOBACK 3
+TAbk3	move.l	W_Base(pc),a1
+	move.l	T_EcCourant(a1),a0
+	move.w	EcAuto(a0),d0
+	subq.w	#1,d0
+	bmi.s	TAbk3X
+	bne.s	TAbk3B
+* Simple ---> remet le rasport / current
+	moveq	#EcMaxPlans-1,d0
+	move.l	Ec_BitMap(a0),a1
+	addq.l	#8,a1
+	lea	EcCurrent(a0),a2
+	lea	EcLogic(a0),a0
+TAbk3A	move.l	(a0),(a1)+
+	move.l	(a0)+,(a2)+
+	dbra	d0,TAbk3A
+TAbk3X	rts
+* Total ---> Re screen swap!
+TAbk3B	movem.l	a3-a6,-(sp)
+	move.l	a1,a5
+	bsr	BobAct
+	bsr	BobAff
+	bsr	ScSwapS
+	bsr	WVbl
+	bclr	#BitBobs,T_Actualise(a5)
+	movem.l	(sp)+,a3-a6
+	rts
+******* AUTOBACK 4 -> ecrans single buffer!
+TAbk4:	movem.l	a3-a6,-(sp)
+	move.l	W_Base(pc),a5
+	move.l	T_EcCourant(a5),a0
+	move.w	EcAuto(a0),d0
+	subq.w	#1,d0
+	ble.s	TAbk4X
+	bsr	BobAct
+	bsr	BobAff
+TAbk4X:	movem.l	(sp)+,a3-a6
+	rts
+
+***********************************************************
+*	CLS
+*	D1= Couleur
+*	D2= X
+*	D3= Y
+*	D4= X2
+*	D5= Y2
+EcCls:	movem.l	d1-d7/a0/a1/a5/a6,-(sp)
+	move.l	T_EcCourant(a5),a5
+	tst.w	d2
+	bpl.s	Cls5b
+	moveq	#0,d2
+Cls5b:	cmp.w	EcTx(a5),d2
+	bls.s	Cls5c
+	move.w	EcTx(a5),d2
+Cls5c:	tst.w	d3
+	bpl.s	Cls5d
+	moveq	#0,d3
+Cls5d:	cmp.w	EcTy(a5),d3
+	bls.s	Cls5e
+	move.w	EcTy(a5),d3
+Cls5e:	tst.w	d4
+	bpl.s	Cls5f
+	moveq	#0,d4
+Cls5f:	cmp.w	EcTx(a5),d4
+	bls.s	Cls5g
+	move.w	EcTx(a5),d4
+Cls5g:	tst.w	d5
+	bpl.s	Cls5h
+	moveq	#0,d5
+Cls5h:	cmp.w	EcTy(a5),d5
+	bls.s	Cls5i
+	move.w	EcTy(a5),d5
+Cls5i:	cmp.w	d2,d4
+	bls	Cls5x
+	sub.w	d3,d5
+	bls	Cls5x
+* Gestion de l'autoback!
+	tst.w	EcAuto(a5)
+	beq.s	Cls5W
+	movem.l	d0-d7/a0-a2,-(sp)
+	bsr	TAbk1
+	movem.l	(sp),d0-d7/a0-a2
+	bsr	ClsR
+	bsr	TAbk2
+	movem.l	(sp)+,d0-d7/a0-a2
+	bsr	ClsR
+	bsr	TAbk3
+	bra.s	Cls5X
+Cls5W	bsr	ClsR
+Cls5X:	movem.l	(sp)+,d1-d7/a0/a1/a5/a6
+	moveq	#0,d0
+	rts
+
+* Routine d'effacement!
+ClsR:	lea	Circuits,a6
+	bsr	OwnBlit
+	lea	MCls(pc),a0		* Masques
+	move.w	d2,d0
+	and.w	#$000F,d0
+	lsl.w	#1,d0
+	move.w	0(a0,d0.w),BltMaskG(a6)
+	moveq	#0,d6
+	moveq	#-1,d7
+	move.w	d4,d0
+	and.w	#$000F,d0
+	beq.s	Cls5j
+	moveq	#1,d6
+	lsl.w	#1,d0
+	move.w	0(a0,d0.w),d7
+	not.w	d7
+Cls5j:	move.w	d7,BltMaskD(a6)
+	lsr.w	#4,d2			* Taille en X
+	lsr.w	#4,d4
+	sub.w	d2,d4
+	add.w	d6,d4
+	lsl.w	#6,d5			* Taille blitter
+	or.w	d4,d5
+	move.w	EcTLigne(a5),d0		* Adresse ecran
+	mulu	d0,d3
+	lsl.w	#1,d2
+	ext.l	d2
+	add.l	d2,d3
+	lsl.w	#1,d4			* Mod C et D
+	sub.w	d4,d0
+	move.w	d0,BltModC(a6)
+	move.w	d0,BltModD(a6)
+	lea	EcCurrent(a5),a0
+	move.w	#%0000001111001010,BltCon0(a6)
+	clr.w	BltCon1(a6)
+	move.w	#-1,BltDatA(a6)
+	move.w	EcNPlan(a5),d7
+	subq.w	#1,d7
+	moveq	#-1,d6
+
+Cls5k:	moveq	#0,d0
+	lsr.w	#1,d1
+	subx.w	d0,d0
+	move.w	d0,BltDatB(a6)
+	move.l	(a0)+,a1
+	lsr.w	#1,d6
+	bcc.s	Cls5m
+	add.l	d3,a1
+	move.l	a1,BltAdC(a6)
+	move.l	a1,BltAdD(a6)
+	move.w	d5,BltSize(a6)
+Cls5l:	bsr	BlitWait
+Cls5m:	dbra	d7,Cls5k
+* Remet le blitter et revient
+	bra	DOwnBlit
+
+******* Table des masques
+MCls:	dc.w	%1111111111111111
+	dc.w 	%0111111111111111
+	dc.w 	%0011111111111111
+	dc.w	%0001111111111111
+	dc.w	%0000111111111111
+	dc.w	%0000011111111111
+	dc.w	%0000001111111111
+	dc.w	%0000000111111111
+	dc.w	%0000000011111111
+	dc.w	%0000000001111111
+	dc.w	%0000000000111111
+	dc.w	%0000000000011111
+	dc.w	%0000000000001111
+	dc.w	%0000000000000111
+	dc.w	%0000000000000011
+	dc.w	%0000000000000001
+MCls2:	dc.w	%0000000000000000
+	dc.w	%0000000000000001
+	dc.w	%0000000000000011
+	dc.w	%0000000000000111
+	dc.w	%0000000000001111
+	dc.w	%0000000000011111
+	dc.w	%0000000000111111
+	dc.w	%0000000001111111
+	dc.w	%0000000011111111
+	dc.w	%0000000111111111
+	dc.w	%0000001111111111
+	dc.w	%0000011111111111
+	dc.w	%0000111111111111
+	dc.w	%0001111111111111
+	dc.w 	%0011111111111111
+	dc.w 	%0111111111111111
+
+;	Active l'ecran D1 - si pas ecran CLONE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EcMarch	bsr	EcGet
+	beq.s	EcME
+	move.l	d0,a0
+	btst	#BitClone,EcFlags(a0)
+	bne.s	EcCl
+	bsr	Ec_Active
+EcMOk	moveq	#0,d0
+	rts
+EcME	moveq	#3,d0
+	rts
+EcCl	moveq	#4,d0
+	rts
+
+;	Routine d'activation de l'ecran A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ec_Active
+	move.l	a0,T_EcCourant(a5)
+	move.l	a0,d0
+	beq.s	.Skip
+	move.l	Ec_RastPort(a0),T_RastPort(a5)
+	move.l	a1,-(sp)
+	lea	WRastPort(pc),a1
+	move.l	Ec_RastPort(a0),(a1)
+	move.l	(sp)+,a1
+.Skip	rts
+
+******* RETURNS CURRENT USERS SCREEN ADDRESS
+EcCrnt	move.l	T_EcCourant(a5),a0
+	move.w	EcNumber(a0),d0
+	cmp.w	#8,d0
+	bcs.s	EcCr
+	moveq	#-1,d0
+EcCr:	rts
+
+******* ADRESSE ECRAN D1
+EcAdres	cmp.w	#8,d1
+	bcs	EcGet
+	moveq	#0,d0
+	rts
+
+******* SET COLOUR D1,D2
+EcSCol:	move.l	T_EcCourant(a5),a0
+	and.w	#31,d1
+	lsl.w	#1,d1
+	and.w	#$FFF,d2
+	move.w	d2,EcPal(a0,d1.w)
+* Poke dans le copper
+	lsl.w	#1,d1
+	move.w	EcNumber(a0),d0
+	lsl.w	#7,d0
+	lea	T_CopMark(a5),a0
+	add.w	d0,a0
+	cmp.w	#PalMax*4,d1
+	bcs.s	ECol0
+	lea	64(a0),a0
+ECol0:	move.l	(a0)+,d0
+	beq.s	ECol1
+	move.l	d0,a1
+	move.w	d2,2(a1,d1.w)
+	bra.s	ECol0
+ECol1:	moveq	#0,d0
+	rts
+
+******* GET COLOUR D1
+EcGCol:	move.l	T_EcCourant(a5),a0
+	and.l	#31,d1
+	lsl.w	#1,d1
+	move.w	EcPal(a0,d1.w),d1
+	moveq	#0,d0
+	rts
+
+******* SET PALETTE A1
+EcSPal	movem.l	a2-a3/d2-d4,-(sp)
+	move.l	T_EcCourant(a5),a0
+	move.w	EcNumber(a0),d2
+	lsl.l	#7,d2
+	lea	T_CopMark(a5),a2
+	add.w	d2,a2
+	move.l	a2,d2
+	lea	EcPal(a0),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	moveq	#31,d4
+* Boucle de pokage
+EcSP1	move.w	(a1)+,d1
+	bmi.s	EcSP3
+	and.w	#$FFF,d1
+* Poke dans la table
+	move.w	d1,(a0)
+* Poke dans le copper
+	move.l	d2,a2
+	cmp.w	#PalMax*4,d0
+	bcs.s	EcSP2
+	lea	64(a2),a2
+EcSP2:	move.l	(a2)+,d3
+	beq.s	EcSP3
+	move.l	d3,a3
+	move.w	d1,2(a3,d0.w)
+	bra.s	EcSP2
+EcSP3:	addq.l	#2,a0
+	addq.w	#4,d0
+	dbra	d4,EcSP1
+	movem.l	(sp)+,a2-a3/d2-d4
+	moveq	#0,d0
+	rts
+
+******* COLOUR BACK D1
+EcSColB	and.w	#$FFF,d1
+	move.w	d1,T_EcFond(a5)
+	moveq	#0,d0
+	rts
+
+
+******* RAINBOW HIDE
+TRHide	tst.w	d1
+	bpl.s	Trh
+	move.w	T_Rainbow(a5),T_OldRain(a5)
+	clr.w	T_RainBow(a5)
+	rts
+Trh:	move.w	T_OldRain(a5),T_RainBow(a5)
+	rts
+
+******* Adresse RainBow
+RainAd	move.l	d1,d0
+	bmi	RainEr
+	cmp.w	#NbRain,d0
+	bcc	RainEr
+	mulu	#RainLong,d0
+	lea	T_RainTable(a5),a0
+	add.w	d0,a0
+	moveq	#0,d0
+	rts
+RainEr	moveq	#1,d0
+	rts
+
+******* DO RAINBOW
+*	D1=	#Rainbow
+*	D2=	Base
+*	D3=	Debut
+*	D4=	Taille
+TRDo	bsr	RainAd
+	bne	RainEr
+	move.b	RnAct(a0),d0
+	tst.w	RnLong(a0)
+	beq.s	RainEr
+	move.l	#EntNul,d5
+	cmp.l	d2,d5
+	beq.s	TRDo1
+	move.w	d2,RnX(a0)
+	bset	#1,d0
+TRDo1	cmp.l	d3,d5
+	beq.s	TRDo2
+	move.w	d3,RnY(a0)
+	bset	#2,d0
+TRDo2	cmp.l	d4,d5
+	beq.s	TRDo3
+	move.w	d4,RnI(a0)
+	bset	#0,d0
+TRDo3	move.b	d0,RnAct(a0)
+* Force l'actualisation
+RainAct	bset	#BitEcrans,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+
+******* ADRESSE VAR RAINBOW
+TRVar	bsr	RainAd
+	bne	RainEr
+	move.l	RnBuf(a0),d0
+	beq	RainEr
+	move.l	d0,a1
+	tst.l	d2
+	bmi	RainEr
+	lsl.w	#1,d2
+	cmp.w	RnLong(a0),d2
+	bcc	RainEr
+	add.w	d2,a1
+	move.l	a1,a0
+	moveq	#0,d0
+	rts
+
+******* SET RAINBOW
+*	D1= Numero
+*	D2= Nb de lignes
+*	D3= Couleur modifiee
+*	D4= Chaine R
+*	D5= Chaine G
+*	D6= Chaine B
+*	D7= Valeur de depart
+TRSet
+	clr.l	T_AMALSp(a5)
+
+* Efface l'ancien
+	bsr	RnDel
+	bne	RainEr
+
+* Cree le nouveau
+	bsr	RainAd
+	movem.l	d1-d7/a1-a3,-(sp)
+	move.l	sp,a3
+	move.l	a0,a1
+	and.w	#31,d3			* Couleur du rainbow
+	cmp.w	#PalMax,d3
+	bcc	TrSynt
+	move.w	d3,RnColor(a1)
+	move.w	d7,d3
+	move.w	d2,d0			* Reserve le buffer
+	ext.l	d0
+	lsl.l	#1,d0
+	move.w	d0,d1
+	bsr	FastMm2
+	beq	TROmm
+	move.l	d0,RnBuf(a1)
+	move.w	d1,RnLong(a1)
+	clr.w	RnAct(a0)		* Rien a faire pour le moment
+	move.w	#-1,RnI(a0)		* Rien � afficher
+	clr.w	RnX(a0)			* Position base
+	clr.w	RnY(a0)			* Position Y
+	clr.l	RnDY(a0)		* Rien en route!
+	clr.w	RnTY(a0)		* Vraiment rien!
+
+	move.l	d0,a2
+	move.l	Buffer(a5),a1
+	move.l	a1,-(sp)		* 12(sp)-> Base
+	clr.w	-(sp)			* 10(sp)-> Position
+	move.w	#1,-(sp)		*  8(sp)-> Nb Mvt
+	clr.w	-(sp)			*  6(sp)-> Vitesse
+	move.w	#1,-(sp)		*  4(sp)-> Cpt
+	clr.w	-(sp)			*  2(sp)-> Plus
+	move.w	d3,d0
+	and.w	#$000F,d0
+	move.w	d0,-(sp)		*  0(sp)-> Valeur!
+	move.l	d6,a0
+	bsr	RainTok
+	bne	TrSynt
+
+	move.l	a1,-(sp)		* 12(sp)-> Base
+	clr.w	-(sp)			* 10(sp)-> Position
+	move.w	#1,-(sp)		*  8(sp)-> Nb Mvt
+	clr.w	-(sp)			*  6(sp)-> Vitesse
+	move.w	#1,-(sp)		*  4(sp)-> Cpt
+	clr.w	-(sp)			*  2(sp)-> Plus
+	move.w	d3,d0
+	lsr.w	#4,d0
+	and.w	#$000F,d0
+	move.w	d0,-(sp)		*  0(sp)-> Valeur!
+	move.l	d5,a0
+	bsr	RainTok
+	bne	TrSynt
+
+	move.l	a1,-(sp)		* 12(sp)-> Base
+	clr.w	-(sp)			* 10(sp)-> Position
+	move.w	#1,-(sp)		*  8(sp)-> Nb Mvt
+	clr.w	-(sp)			*  6(sp)-> Vitesse
+	move.w	#1,-(sp)		*  4(sp)-> Cpt
+	clr.w	-(sp)			*  2(sp)-> Plus
+	lsr.w	#8,d3
+	and.w	#$000F,d3
+	move.w	d3,-(sp)		*  0(sp)-> Valeur!
+	move.l	d4,a0
+	bsr	RainTok
+	bne	TrSynt
+
+	subq.w	#1,d2
+* Rempli la table
+Trs1	move.l	sp,a0
+	moveq	#2,d0
+Trs2	tst.w	4(a0)
+	beq.s	Trs5
+	subq.w	#1,4(a0)
+	bne.s	Trs5
+	move.w	6(a0),4(a0)
+	move.w	2(a0),d1
+	add.w	(a0),d1
+	and.w	#$000F,d1
+	move.w	d1,(a0)
+	tst.w	8(a0)
+	beq.s	Trs5
+	subq.w	#1,8(a0)
+	bne.s	Trs5
+	move.w	10(a0),d1
+	move.l	12(a0),a1
+Trs3	move.w	0(a1,d1.w),4(a0)
+	bpl.s	Trs4
+	clr.w	d1
+	bra.s	Trs3
+Trs4	move.w	4(a0),6(a0)
+	move.w	2(a1,d1.w),2(a0)
+	move.w	4(a1,d1.w),8(a0)
+	addq.l	#6,d1
+	move.w	d1,10(a0)
+Trs5	lea	16(a0),a0
+	dbra	d0,Trs2
+	move.w	(sp),d0
+	lsl.w	#8,d0
+	move.w	16(sp),d1
+	lsl.w	#4,d1
+	or.w	d1,d0
+	or.w	32(sp),d0
+	move.w	d0,(a2)+
+	dbra	d2,Trs1
+	move.w	#1,T_RainBow(a5)
+	moveq	#0,d0
+* A y est!
+TrOut	move.l	a3,sp
+	movem.l	(sp)+,d1-d7/a1-a3
+	rts
+* Out of mem!
+TrOMm	moveq	#-1,d0
+	bra.s	TrOut
+* Syntax error!
+TrSynt	move.l	a3,sp
+	movem.l	(sp)+,d1-d7/a1-a3
+	bsr	TRDel
+	moveq	#1,d0
+	rts
+
+******* Tokenisation RAINBOW
+RainTok	movem.l	a2/d1-d4,-(sp)
+	clr.l	(a1)
+	clr.w	4(a1)
+	move.w	(a0)+,d0
+	lea	0(a0,d0.w),a2
+	move.b	(a2),d4
+	clr.b	(a2)
+	bsr	AniChr
+	beq.s	RainT2
+RainT1	cmp.b	#"(",d0
+	bne.s	RainTE
+	bsr	AniLong
+	ble	RainTE
+	move.w	d0,(a1)+
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	RainTE
+	bsr	AniLong
+	move.w	d0,(a1)+
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	RainTE
+	bsr	AniLong
+	blt	RainTE
+	move.w	d0,(a1)+
+	bsr	AniChr
+	cmp.b	#")",d0
+	bne	RainTE
+	move.w	#-1,(a1)
+	clr.l	2(a1)
+	bsr	AniChr
+	bne.s	RainT1
+RainT2	addq.l	#6,a1
+	move.b	d4,(a2)
+	movem.l	(sp)+,a2/d1-d4
+	moveq	#0,d0
+	rts
+RainEE	addq.l	#4,sp
+RainTE	move.b	d4,(a2)
+	movem.l	(sp)+,a2/d1-d4
+	moveq	#1,d0
+	rts
+
+******* Effacement RAINBOW D1
+TRDel	tst.l	d1
+	bpl.s	RnDel
+	clr.w	T_RainBow(a5)
+	clr.w	T_OldRain(a5)
+	moveq	#NbRain-1,d1
+TRDel0	bsr	RnDel
+	bne	RainEr
+	subq.w	#1,d1
+	bne.s	TRDel0
+* Routine!
+RnDel:	bsr	RainAd
+	bne	RainEr
+	move.l	a1,-(sp)
+	tst.l	RnBuf(a0)
+	beq.s	RnDel1
+	clr.l	(a0)
+	move.l	RnBuf(a0),a1
+	clr.l	RnBuf(a0)
+	move.w	RnLong(a0),d0
+	clr.w	RnLong(a0)
+	ext.l	d0
+	bsr	FreeMm
+RnDel1	movem.l	(sp)+,a1
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*-----*	Ss programme ---> adresse d'un ecran
+EcGet:	move.w	d1,d0
+	lsl.w	#2,d0
+	lea	T_EcAdr(a5),a0
+	add.w	d0,a0
+	move.l	(a0),d0
+	rts
+EcGE:	moveq	#0,d0
+	rts
+
+******* Trouve le premier ecran libre
+EcLibre:lea	T_EcAdr(a5),a0
+	moveq	#-1,d1
+EcL:	addq.l	#1,d1
+	tst.l	(a0)+
+	beq.s	EcGE
+	cmp.w	#EcMax,d1
+	bcs.s	EcL
+	moveq	#-1,d0
+	rts
+
+;	SET CLIP ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TSClip:	move.l	T_EcCourant(a5),a0
+	tst.w	d1
+	bpl.s	SClip1
+; RAZ clipping!
+; ~~~~~~~~~~~~~
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	EcTx(a0),d2
+	move.w	EcTy(a0),d3
+	bra.s	SClipX
+; Clippe!
+; ~~~~~~~
+SClip1	move.l	#Entnul,d0
+	cmp.l	d0,d2
+	bne.s	SClip2
+	moveq	#0,d2
+	move.w	EcClipX0(a0),d2
+SClip2	cmp.l	d0,d3
+	bne.s	SClip3
+	moveq	#0,d3
+	move.w	EcClipY0(a0),d3
+SClip3	cmp.l	d0,d4
+	bne.s	SClip4
+	moveq	#0,d4
+	move.w	EcClipX1(a0),d4
+SClip4	cmp.l	d0,d5
+	bne.s	SClip5
+	moveq	#0,d5
+	move.w	EcClipY1(a0),d5
+SClip5:	tst.l	d2
+	bmi.s	SClipE
+	tst.l	d3
+	bmi.s	SClipE
+	move.w	EcTx(a0),d0
+	ext.l	d0
+	cmp.l	d0,d4
+	bhi.s	SClipE
+	move.w	EcTy(a0),d0
+	cmp.l	d0,d5
+	bhi.s	SClipE
+	cmp.l	d2,d4
+	ble.s	SClipE
+	cmp.l	d3,d5
+	ble.s	SClipE
+	move.w	d2,d0
+	move.w	d3,d1
+	move.w	d4,d2
+	move.w	d5,d3
+SClipX	bsr	Ec_SetClip
+	moveq	#0,d0
+	rts
+SClipE:	moveq	#1,d0
+	rts
+
+
+;	Change le clip rectangle dans l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ec_SetClip
+	movem.l	d2-d4/a4/a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	tst.l	Ec_Region(a4)
+	bne.s	.Deja
+
+; Faut-il creer un cliprect?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	EcClipX0(a4),a0
+	cmp.w	(a0)+,d0
+	bne.s	.Nou
+	cmp.w	(a0)+,d1
+	bne.s	.Nou
+	cmp.w	(a0)+,d2
+	bne.s	.Nou
+	cmp.w	(a0)+,d3
+	beq.s	.Exit
+
+; Installe la clipping region
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Nou	movem.w	d0-d3,-(sp)			Sauve
+	movem.w	d0-d3,-(sp)			Pour structure
+	subq.w	#1,4(sp)
+	subq.w	#1,6(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	_LVONewRegion(a6)		Prend une nouvelle region
+	move.l	d0,Ec_Region(a4)
+	beq.s	.Out				Out of memory
+	move.l	sp,a1
+	move.l	d0,a0
+	jsr	_LVOOrRectRegion(a6)
+	tst.l	d0
+	beq.s	.Out
+	move.l	T_LayBase(a5),a6		Installe le CLIP
+	move.l	Ec_Layer(a4),a0
+	move.l	Ec_Region(a4),a1
+	jsr	_LVOInstallClipRegion(a6)
+	addq.l	#8,sp
+	movem.w	(sp)+,d0-d3
+
+; Poke dans les structures
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Deja	lea	EcClipX0(a4),a0
+	movem.w	d0-d3,(a0)
+	subq.w	#1,d2
+	subq.w	#1,d3
+	move.l	Ec_Layer(a4),a0			Layer
+	move.l	8(a0),a0			ClipRect
+	movem.w	d0-d3,16(a0)			Poke les nouveaux!
+	bra.s	.Exit
+
+.Out	addq.l	#8,sp
+	movem.w	(sp)+,d0-d3
+.Exit	movem.l	(sp)+,d2-d4/a4/a6
+	rts
+
+******* PAINT non crashant!!!
+*	D1= X
+*	D2= Y
+*	D3= couleur
+*	D4= Mode
+*	D5= Buffer 1024 octets
+PntTBuf	equ 	2048
+PntPos	equ	EcCurs
+PntDeb	equ	EcCurs+4
+TPaint	movem.l	d1-d7/a0-a6,-(sp)
+	move.w	d1,a2
+	move.w	d2,a3
+	move.l	d5,a1
+	move.l	T_EcCourant(a5),a5
+	move.l	EcCurs(a5),-(sp)	* Room for addresses!
+	move.l	EcCurs+4(a5),-(sp)
+	moveq	#0,d7
+	cmp.w	EcClipX0(a5),a2
+	bcs	NoPaint
+	cmp.w	EcClipX1(a5),a2
+	bcc	NoPaint
+	cmp.w	EcClipY0(a5),a3
+	bcs	NoPaint
+	cmp.w	EcClipY1(a5),a3
+	bcc	NoPaint
+	move.l	WRastPort(pc),a4
+	move.l	12(a4),d0
+	beq	NoPaint
+	move.l	d0,a4
+* Calcul des parametres blitter
+	move.w	d3,-(sp)
+	move.w	EcClipX1(a5),d6
+	add.w	#15,d6
+	and.w	#$FFF0,d6
+	move.w	EcClipX0(a5),d1
+	and.w	#$FFF0,d1
+	move.w	d1,d2
+	sub.w	d1,d6
+	lsr.w	#4,d6
+	move.w	EcClipY1(a5),d1
+	sub.w	EcClipY0(a5),d1
+	move.w	d1,d3
+	lsl.w	#6,d1
+	or.w	d6,d1
+	move.w	d1,-(sp)		* Largeur/hauteur blitter
+	ext.l	d6
+	lsl.w	#1,d6			* Delta ligne carre
+	move.w	EcTLigne(a5),d1
+	sub.w	d6,d1
+	move.w	d1,-(sp)		* Modulo origine
+	move.w	EcClipY0(a5),d0
+	mulu	EcTLigne(a5),d0
+	lsr.w	#3,d2
+	add.w	d2,d0
+	move.w	d0,-(sp)		* Adresse depart carre
+	mulu	d6,d3			* Verifie la taille du tempras
+	cmp.l	4(a4),d3
+	bhi	PntE2
+	move.l	(a4),a4
+* Met a UN toutes les couleurs AUTRES!!!
+	move.w	#%11110000,d3
+	move.w	#%00001111,d4
+	move.w	#%11111100,d5
+	move.w	#%11001111,d7
+	bsr	PMask
+
+******* PAINT LOOP!
+	moveq	#0,d5
+	bset	#13,d5
+	lea	1024-16*4-16(a1),a0
+	move.l	a0,d1
+	move.l	a1,PntPos(a5)
+	move.l	a1,PntDeb(a5)
+	moveq	#15,d0
+Pnt0	clr.l	(a1)+
+	dbra	d0,Pnt0
+	moveq	#-1,d0
+	move.l	d0,(a1)+
+	move.l	d0,(a1)+
+	move.w	#-1,(a1)+
+	clr.w	(a1)+
+
+	move.w	EcClipX0(a5),d4
+	sub.w	d4,a2
+	move.w	EcClipX1(a5),d2
+	sub.w	d4,d2
+	and.w	#$000F,d4
+	move.w	EcClipY1(a5),d3
+	sub.w	EcClipY0(a5),d3
+	sub.w	EcClipY0(a5),a3
+* Screen adress
+Pnt1	move.w	a3,d0
+	mulu	d6,d0
+	move.w	a2,d7
+	add.w	d4,d7
+	ror.l	#3,d7
+	add.w	d7,d0
+	rol.l	#3,d7
+	and.w	#7,d7
+	neg.w	d7
+	addq.w	#7,d7
+	lea	0(a4,d0.l),a0
+* Go to the left
+	bset	#15,d5
+	bset	#14,d5
+	bset	#13,d5
+	beq.s	Pnt5
+Pnt2	subq.w	#1,a2
+	addq.w	#1,d7
+	cmp.w	#8,d7
+	bcs.s	Pnt3
+	moveq	#0,d7
+	subq.l	#1,a0
+Pnt3	btst	d7,(a0)
+	bne.s	Pnt4
+	cmp.w	d2,a2
+	bcc.s	Pnt4
+	cmp.w	d3,a3
+	bcs.s	Pnt2
+* Go to the right
+Pnt4	addq.w	#1,a2
+	subq.w	#1,d7
+	bcc.s	Pnt5
+	moveq	#7,d7
+	addq.l	#1,a0
+* Look UP
+Pnt5	subq.w	#1,a3
+	sub.l	d6,a0
+	btst	d7,(a0)
+	bne.s	Pnt6
+	cmp.w	d3,a3
+	bcc.s	Pnt6
+	bclr	#15,d5
+	beq.s	Pnt7
+	move.w	a2,(a1)+
+	move.w	a3,(a1)
+	or.w	d5,(a1)+
+	cmp.l	d1,a1
+	bcs.s	Pnt7
+	bsr	PntNBuf
+	bra.s	Pnt7
+Pnt6	bset	#15,d5
+* Plot in the middle
+Pnt7	addq.w	#1,a3
+	add.l	d6,a0
+	bset	d7,(a0)
+* Look down
+	addq.w	#1,a3
+	btst	d7,(a0,d6.l)
+	bne.s	Pnt8
+	cmp.w	d3,a3
+	bcc.s	Pnt8
+	bclr	#14,d5
+	beq.s	Pnt9
+	move.w	a2,(a1)+
+	move.w	a3,(a1)
+	or.w	d5,(a1)+
+	cmp.l	d1,a1
+	bcs.s	Pnt9
+	bsr	PntNBuf
+	bra.s	Pnt9
+Pnt8	bset	#14,d5
+* One pixel to the right?
+Pnt9	bclr	#13,d5
+	subq.w	#1,a3
+	addq.w	#1,a2
+	subq.w	#1,d7
+	bcc.s	Pnt10
+	moveq	#7,d7
+	addq.l	#1,a0
+* Fait un essai FAST
+	move.w	a0,d0
+	btst	#0,d0
+	bne.s	PntFX
+	move.w	a2,d0
+	add.w	#15,d0
+	cmp.w	d2,d0
+	bcc.s	PntFX
+	move.w	a3,d0
+	beq.s	PntFX
+	addq.w	#1,d0
+	cmp.w	d3,d0
+	bcc.s	PntFX
+	move.l	d1,-(sp)
+	moveq	#-1,d0
+	btst	#15,d5
+	bne.s	PntF1
+	moveq	#0,d0
+PntF1	moveq	#-1,d1
+	btst	#14,d5
+	bne.s	PntF2
+	moveq	#0,d1
+PntF2	tst.w	(a0)
+	bne.s	PntF3
+	cmp.w	(a0,d6.l),d1
+	bne.s	PntF3
+	sub.l	d6,a0
+	cmp.w	(a0),d0
+	add.l	d6,a0
+	bne.s	PntF3
+	move.w	#-1,(a0)+
+	lea	16(a2),a2
+	cmp.w	d2,a2
+	bcs.s	PntF2
+PntF3	move.l	(sp)+,d1
+PntFX
+* A droite!
+Pnt10	btst	d7,(a0)
+	bne.s	Pnt11
+	cmp.w	d2,a2
+	bcc.s	Pnt11
+	cmp.w	d3,a3
+	bcs	Pnt5
+* Change line!
+Pnt11	move.w	-(a1),d5
+	move.w	d5,d0
+	and.w	#%0001111111111111,d0
+	move.w	d0,a3
+	and.w	#%1110000000000000,d5
+	move.w	-(a1),d0
+	move.w	d0,a2
+	bpl	Pnt1
+	subq.l	#4,PntPos(a5)
+	move.l	-(a1),d1
+	move.l	-(a1),a1
+	bpl.s	Pnt11
+
+******* Masks the tempras
+	move.w	#%00001100,d3
+	move.w	#%11000000,d4
+	move.w	d3,d5
+	move.w	d4,d7
+	bsr	PMask
+
+******* Copper copy!
+* Initialisation
+	bsr	OwnBlit
+	move.w	#-1,BltMaskG(a6)
+	move.w	#-1,BltMaskD(a6)
+	move.w	2(sp),d0
+	move.w	d0,BltModC(a6)
+	move.w	d0,BltModD(a6)
+	clr.w	BltModA(a6)
+	move.w	#%0000101111001010,BltCon0(a6)
+	clr.w	BltCon1(a6)
+
+	lea	EcCurrent(a5),a0
+	move.l	WRastPort(pc),a1
+	move.b	25(a1),d7
+	move.b	26(a1),d6
+	move.w	EcNPlan(a5),d5
+	move.w	4(sp),d3
+	and.w	#%0111111,d3
+	or.w	#%1000000,d3
+
+* Calcul des patterns
+	lea	FoPat(pc),a2
+	move.l	a2,a3
+	sub.l	a5,a5
+	move.l	8(a1),d0
+	beq.s	PntP4
+	move.l	d0,a2
+	moveq	#1,d2
+	move.b	29(a1),d0
+	move.b	d0,d1
+	bpl.s	PntP2
+	neg.b	d1
+PntP2	lsl.w	#1,d2
+	subq.b	#1,d1
+	bne.s	PntP2
+PntP3	lsl.w	#1,d2
+	lea	0(a2,d2.w),a3
+	tst.b	d0
+	bpl.s	PntP4
+	move.l	d2,a5
+PntP4
+
+* Fait un plan
+PntCc1	bsr	BlitWait
+	move.l	a2,a1
+	moveq	#0,d0
+	move.w	(sp),d0
+	add.l	(a0)+,d0
+	move.l	d0,BltAdC(a6)
+	move.l	d0,BltAdD(a6)
+	move.l	a4,BltAdA(a6)
+	move.w	4(sp),d4
+	lsr.w	#6,d4
+* Fait une ligne
+PntCc2	moveq	#0,d0
+	roxr.w	#1,d7
+	subx.w	d0,d0
+	roxl.w	#1,d7
+	move.w	(a1)+,d1
+	and.w	d1,d0
+	not.w	d1
+	moveq	#0,d2
+	roxr.w	#1,d6
+	subx.w	d2,d2
+	roxl.w	#1,d6
+	and.w	d2,d1
+	or.w	d1,d0
+	bsr	BlitWait
+	move.w	d0,BltDatB(a6)
+	move.w	d3,BltSize(a6)
+	cmp.l	a3,a1
+	bcs.s	PntCc3
+	move.l	a2,a1
+PntCc3	subq.w	#1,d4
+	bne.s	PntCc2
+	add.l	a5,a2
+	add.l	a5,a3
+	lsr.w	#1,d6
+	lsr.w	#1,d7
+	subq.w	#1,d5
+	bne.s	PntCc1
+	bsr	DOwnBlit
+******* Copper copy!
+PntEnd	moveq	#0,d7
+PntE1	move.l	W_Base(pc),a5
+	move.l	T_EcCourant(a5),a5
+	bsr	PntDBuf
+PntE2	addq.l	#8,sp
+NoPaint	move.l	d7,d1
+	move.l	(sp)+,EcCurs+4(a5)
+	move.l	(sp)+,EcCurs(a5)
+	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+* Erreur!
+PntErr	moveq	#-1,d7
+	bra.s	PntE1
+
+******* Routine, masque la zone dessin
+PMask	lea	$Dff000,a6
+	bsr	OwnBlit
+	lea	EcCurrent(a5),a0
+	move.w	4+6(sp),d0
+	move.w	EcNPlan(a5),d1
+PMsk1	move.w	#-1,BltMaskG(a6)
+	move.w	#-1,BltMaskD(a6)
+	moveq	#0,d2
+	move.w	4(sp),d2
+	add.l	(a0)+,d2
+	move.l	d2,BltAdA(a6)
+	move.w	4+2(sp),BltModA(a6)
+	move.l	a4,BltAdB(a6)
+	clr.w	BltModB(a6)
+	move.l	a4,BltAdD(a6)
+	clr.w	BltModD(a6)
+	move.w	d3,d2
+	lsr.w	#1,d0
+	bcc.s	PMsk2
+	move.w	d4,d2
+PMsk2	or.w	#%0000110100000000,d2
+	move.w	d2,BltCon0(a6)
+	clr.w	BltCon1(a6)
+	move.w	4+4(sp),BltSize(a6)
+	move.w	d5,d3
+	move.w	d7,d4
+	bsr	BlitWait
+	subq.w	#1,d1
+	bne.s	PMsk1
+	bra	DOwnBlit
+
+******* Reserves a new buffer!
+PntNBuf	movem.l	a0/a2/a3,-(sp)
+	move.l	PntPos(a5),a2
+	move.l	(a2),d0
+	bmi.s	PntMem
+	bne.s	PntB1
+	move.l	#PntTBuf,d0
+	bsr	FastMM2
+	beq.s	PntMem
+PntB1	move.l	d0,(a2)+
+	move.l	a2,PntPos(a5)
+	exg	d0,a1
+	move.l	d1,(a1)+
+	move.l	d0,(a1)+
+	move.w	#-2,(a1)+
+	clr.w	(a1)+
+	lea	PntTBuf-16(a1),a0
+	move.l	a0,d1
+	movem.l	(sp)+,a0/a2/a3
+	rts
+PntMem	lea	12+4(sp),sp
+	bra	PntErr
+******* Erases all new buffers
+PntDBuf	move.l	PntDeb(a5),a2
+PntDb0	move.l	(a2)+,d0
+	bmi.s	PntDb1
+	beq.s	PntDb1
+	move.l	d0,a1
+	move.l	#PntTBuf,d0
+	bsr	FreeMM
+	bra.s	PntDb0
+PntDb1	rts
+
+******* SET PATTERN ecran courant!
+SPat:	movem.l	d1-d7/a0-a6,-(sp)
+* Efface l'ancien
+	bsr	EffPat
+* Met le nouveau
+	tst.w	d1
+	beq	SPatX
+	bmi.s	SPat1
+* Patterns charge avec la banque!
+	move.l	T_MouBank(a5),a2
+	moveq	#4,d2
+	bsr	SoMouse
+	bmi	SPatE
+	subq.w	#1,d1
+	beq.s	SPat2
+	move.w	d1,d2
+	bsr	SoMouse
+	bmi	SPatE
+	bra.s	SPat2
+* Patterns dans la banque de sprites!
+SPat1:	move.l	T_SprBank(a5),d0
+	beq	SPatX
+	move.l	d0,a2
+	neg.w	d1
+	cmp.w	(a2)+,d1
+	bhi	SPatX
+	lsl.w	#3,d1
+	move.l	-8(a2,d1.w),d0
+	beq	SPatX
+	move.l	d0,a2
+******* Change!
+SPat2:	move.w	(a2)+,d4
+	move.w	(a2)+,d5
+	move.w	(a2)+,d6
+	addq.l	#4,a2
+	moveq	#1,d0
+	moveq	#0,d3
+SPat3:	cmp.w	d5,d0			* Cherche le multiple de 8 <= TY
+	beq.s	SPat5
+	bcc.s	SPat4
+	lsl.w	#1,d0
+	addq.w	#1,d3
+	cmp.w	#8,d3
+	bcs.s	SPat3
+	bra.s	SPatE
+SPat4:	subq.w	#1,d3
+	beq.s	SPatE
+	lsr.w	#1,d0
+SPat5:	move.w	d0,d7
+	cmp.w	#1,d6
+	beq.s	SPat6
+	neg.b	d3
+SPat6:	lsl.w	#1,d0
+	mulu	d6,d0
+	move.w	d0,d1
+	bsr	ChipMm
+	beq	SPatE
+	move.l	T_EcCourant(a5),a0	* Poke!
+	move.l	d0,EcPat(a0)
+	move.w	d1,EcPatL(a0)
+	move.b	d3,EcPatY(a0)
+	move.l	T_RastPort(a5),a0
+	move.l	d0,8(a0)
+	move.b	d3,29(a0)
+* Copie le motif
+	move.l	d0,a1
+	subq.w	#1,d6
+	lsl.w	#1,d2
+	lsl.w	#1,d4
+	mulu	d4,d5
+	subq.w	#1,d7
+SPat7:	move.w	d7,d3
+	move.l	a2,a0
+SPat8:	move.w	(a0),(a1)+
+	add.w	d4,a0
+	dbra	d3,SPat8
+SPat9:	add.w	d5,a2
+	dbra	d6,SPat7
+* Pas d'erreur
+SPatX:	moveq	#0,d0
+SPatex:	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+* Erreur quelconque
+SPatE:	moveq	#1,d0
+	bra.s	SPatex
+
+******* Efface le pattern de l'ecran courant
+EffPat:	movem.l	a0-a1/d0-d2,-(sp)
+	move.l	T_EcCourant(a5),a0
+	move.l	EcPat(a0),d0
+	beq.s	EffPx
+	move.l	d0,a1
+	move.w	EcPatL(a0),d0
+	ext.l	d0
+	clr.l	EcPat(a0)
+	clr.w	EcPatL(a0)
+	clr.b	EcPatY(a0)
+	bsr	FreeMm
+EffPx:	move.l	T_RastPort(a5),a0
+	clr.l	8(a0)
+	clr.b	29(a0)
+	movem.l	(sp)+,a0-a1/d0-d2
+	rts
+
+******* Routine
+SoMouse	subq.w	#1,d2
+Som0:	move.w	(a2)+,d0
+	bmi.s	SomE
+	mulu	(a2)+,d0
+	mulu	(a2)+,d0
+	lsl.w	#1,d0
+	lea	4(a2,d0.w),a2
+	dbra	d2,Som0
+	moveq	#0,d0
+	rts
+SomE:	moveq	#-1,d0
+	rts
+
+******* GET FONTS A0= buffer D1= type
+TGFonts	movem.l	d1-d7/a1-a6,-(sp)
+	move.w	d1,-(sp)
+* Ouvre la librairie disk font
+	bsr	OpenDFont
+	beq	IgfE
+* Efface les anciens
+	bsr	TFFonts
+* Demande la taille
+	moveq	#8,d0
+	move.l	a1,a0
+	move.w	(sp),d1
+	move.l	T_FntBase(a5),a6
+	jsr	AvailFonts(a6)
+	tst.l	d0
+	beq.s	IgfX
+* Refait en reservant
+	addq.l	#8,d0
+	move.l	d0,d1
+	bsr	FastMm
+	beq.s	IgfE
+	move.l	d0,a0
+	move.l	d0,T_FontInfos(a5)
+	move.w	d1,T_FontILong(a5)
+	move.l	d1,d0
+	move.w	(sp),d1
+	move.l	T_FntBase(a5),a6
+	jsr	AvailFonts(a6)
+	tst.l	d0
+	beq.s	IgfX
+	bsr	TFFonts
+IgfX:	addq.l	#2,sp
+	movem.l	(sp)+,d1-d7/a1-a6
+	tst.w	d0
+	rts
+IgfE:	moveq	#-1,d0
+	bra.s	IgfX
+******* Init DISKFONT Library
+OpenDFont
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	moveq	#0,d0
+	lea	FntName(pc),a1
+	move.l	$4.w,a6
+	jsr	OpenLib(a6)
+	move.l	d0,T_FntBase(a5)
+	movem.l	(sp)+,a0-a1/a6/d0-d1
+	tst.l	T_FntBase(a5)
+	rts
+
+******* Libere le buffer des infos fontes
+TFFonts	movem.l	d0/a1,-(sp)
+	move.l	T_FontInfos(a5),d0
+	beq.s	FrfX
+	move.l	d0,a1
+	move.w	T_FontILong(a5),d0
+	ext.l	d0
+	bsr	FreeMm
+	clr.l	T_FontInfos(a5)
+	clr.w	T_FontILong(a5)
+FrfX:	movem.l	(sp)+,d0/a1
+	moveq	#0,d0
+	rts
+
+******* GET FONT D1 / Retour A0= adresse si def existe
+TGFont:	move.l	T_FontInfos(a5),d0
+	beq.s	TgfE
+	move.l	d0,a0
+	tst.w	d1
+	beq.s	TgfV
+	cmp.w	(a0)+,d1
+	bhi.s	TgfV
+	mulu	#10,d1
+	lea	-10(a0,d1.w),a0
+Tsf0:	moveq	#0,d0
+	rts
+TgfE:	moveq	#-1,d0
+	rts
+TgfV:	moveq	#1,d0
+	rts
+
+; SET FONT
+;	D1= 	Numero fonte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+TSFont	bsr	CFont
+	tst.w	d1
+	beq.s	Tsf0
+	bsr	TGFont
+	bne	.Xx
+	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	a0,a2
+	move.w	(a0),d0
+	cmp.w	#1,d0
+	beq.s	.Ram
+; Fonte DISQUE: essaie d'abord en ROM, au cas zou
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#502,d0			50 Fontes retourn�es
+	moveq	#1,d1			Fontes RAM
+	lea	-502(sp),sp
+	move.l	sp,a0
+	move.l	T_FntBase(a5),a6
+	jsr	AvailFonts(a6)
+	move.l	sp,a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0
+	bmi.s	.PaRom
+.Loop	move.w	6(a0),d1
+	cmp.w	6(a2),d1
+	bne.s	.Next
+	move.l	2(a0),a1
+	move.l	2(a2),a3
+.Comp	move.b	(a1)+,d1
+	beq.s	.Found
+	cmp.b	(a3)+,d1
+	beq.s	.Comp
+.Next	lea	10(a0),a0
+	dbra	d0,.Loop
+; Pas trouve en ram, prendre sur disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.PaRom	lea	502(sp),sp
+.Disc	lea	2(a2),a0
+	move.l	T_FntBase(a5),a6
+	jsr	OpenDiskFont(a6)
+	tst.l	d0
+	beq.s	.Err
+	bne.s	.Suit
+; Ouvre une fonte RAM
+; ~~~~~~~~~~~~~~~~~~~
+.Found	lea	502(sp),sp
+.Ram	lea	2(a2),a0
+	move.l	T_GfxBase(a5),a6
+	jsr	OpenFont(a6)
+	tst.l	d0
+	beq.s	.Err
+; Change le rastport et marque l'ecran
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Suit	move.l	d0,a0
+	move.l	T_RastPort(a5),a1
+	move.l	T_GfxBase(a5),a6
+	jsr	SetFont(a6)
+	move.l	T_EcCourant(a5),a0
+	addq.w	#1,EcFontFlag(a0)
+.Rien	moveq	#0,d0
+.X	movem.l	(sp)+,d1-d7/a1-a6
+.Xx	rts
+.Err	moveq	#1,d0
+	bra.s	.X
+
+;	Ferme la fonte de l'ecran courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CFont:	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.l	T_EcCourant(a5),d0
+	beq.s	.Nofont
+	move.l	d0,a0
+	tst.w	EcFontFlag(a0)
+	beq.s	.Nofont
+; Ferme la fonte
+; ~~~~~~~~~~~~~~
+	clr.w	EcFontFlag(a0)
+	move.l	EcText(a0),a1
+	move.l	T_GfxBase(a5),a6
+	jsr	_LVOCloseFont(a6)
+; Remet la fonte systeme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_DefaultFont(a5),a0
+	move.l	T_RastPort(a5),a1
+	jsr	_LVOSetFont(a6)
+.Nofont	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+	IFEQ	EZFlag
+******************************************************************
+*	MARCHE / ARRET de menus
+StaMn:	bsr	Ec_Push
+	move.w	#1,T_PaPeek(a5)
+* Branche d'autres zones
+	move.l	T_EcCourant(a5),a0
+	move.l	EcAZones(a0),T_SaveZo(a5)
+	move.w	EcNZones(a0),T_SaveNZo(a5)
+	clr.l	EcAZones(a0)
+	clr.w	EcNZones(a0)
+* Clippe tout l'ecran
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	EcTx(a0),d2
+	move.w	EcTy(a0),d3
+	bsr	Ec_SetClip
+* Writing normal
+	move.l	T_RastPort(a5),a1
+	moveq	#1,d0
+	GfxA5	SetDrMd
+* Outline ON
+	bset	#3,33(a1)
+	move.w	#$FFFF,34(a1)
+	rts
+StoMn	move.l	T_EcCourant(a5),a0
+	move.l	T_SaveZo(a5),EcAZones(a0)
+	move.w	T_SaveNZo(a5),EcNZones(a0)
+	clr.w	T_PaPeek(a5)
+	bsr	Ec_Pull
+	rts
+	ENDC
+
+******************************************************************
+*	SLIDERS
+
+******* Dessine un slider HORIZONTAL
+*	D1/D2->	TX/TY
+*	D3->	Total
+*	D4->	Position
+*	D5->	Taille
+*	D6->	X
+*	D7->	Y
+SliHor	movem.l	d1-d7/a4,-(sp)
+	move.l	T_EcCourant(a5),a4
+	bsr	Ec_Push
+	cmp.w	d3,d4
+	bhi.s	SlPa
+	move.w	d1,d0
+	bsr	SliPour
+	bsr	SlRegs
+	move.w	d0,d2
+	add.w	d6,d2
+	bsr	SliTour
+	bsr	SliDess
+	move.w	d2,d0
+	add.w	d7,d2
+	bsr	SliInt
+	bsr	SliDess
+	move.w	d2,d0
+	move.w	d4,d2
+	bsr	SliTour
+	bsr	SliDess
+SlOk:	moveq	#0,d0
+SlGo:	bsr	Ec_Pull
+	movem.l	(sp)+,d1-d7/a4
+	tst.w	d0
+	rts
+SlPa:	moveq	#1,d0
+	bra.s	SlGo
+SlRegs	move.w	d4,d0
+	add.w	d1,d4
+	move.w	d5,d1
+	add.w	d2,d5
+	move.w	d4,d2
+	move.w	d5,d3
+	rts
+******* Dessine un slider VERTICAL
+SliVer	movem.l	d1-d7/a4,-(sp)
+	move.l	T_EcCourant(a5),a4
+	bsr	Ec_Push
+	cmp.w	d3,d4
+	bhi.s	SlPa
+	move.w	d2,d0
+	bsr	SliPour
+	bsr	SlRegs
+	move.w	d1,d3
+	add.w	d6,d3
+	bsr	SliTour
+	bsr	SliDess
+	move.w	d3,d1
+	add.w	d7,d3
+	bsr	SliInt
+	bsr	SliDess
+	move.w	d3,d1
+	move.w	d5,d3
+	bsr	SliTour
+	bsr	SliDess
+	bra.s	SlOk
+
+******* Dessine l'interieur du slider
+*	D0= X
+*	D1= Y
+*	D2= X1
+*	D2= X2
+SliInt	movem.l	d0-d7,-(sp)
+	move.b	EcIInkA(a4),d4
+	move.b	EcIInkB(a4),d5
+	move.b	EcIInkC(a4),d6
+	move.w	EcIPat(a4),d7
+	bsr	SliPut
+	bra.s	SliSx
+******* Dessine le TOUR du slider
+*	D6= X
+*	D7= Y
+*	D1= TX
+*	D2= TY
+SliTour	movem.l	d0-d7,-(sp)
+	move.b	EcFInkA(a4),d4
+	move.b	EcFInkB(a4),d5
+	move.b	EcFInkC(a4),d6
+	move.w	EcFPat(a4),d7
+	bsr	SliPut
+SliSx	movem.l	(sp)+,d0-d7
+	rts
+******* Dessine la bar
+SliDess	cmp.w	d0,d2
+	bls.s	SliDx
+	cmp.w	d1,d3
+	bls.s	SliDx
+	move.l	T_RastPort(a5),a1
+	GfxA5	RectFill
+SliDx	rts
+
+******* Change les parametres pour dessiner le slider
+SliPut:
+* Change les encres
+	move.l	T_RastPort(a5),a1
+	move.b	d6,27(a1)		* Ink C
+	move.w	d5,d0			* Ink B
+	GfxA5	SetBPen
+	move.w	d6,d0			* Ink A
+	GfxA5	SetAPen
+* Lignes continues, outlined
+	move.w	#$FFFF,34(a1)
+	bset	#3,33(a1)
+* Pattern
+	move.w	d7,d1
+	bsr	SPat
+	rts
+
+******* Calcule les pourcentages
+SliPour	move.w	d0,-(sp)
+	movem.l	d1/d2,-(sp)
+	movem.l	d6/d7,-(sp)
+	moveq	#0,d6
+	move.w	d0,d7
+	cmp.w	d3,d5
+	bcs.s	Poub
+	tst.w	d3
+	bne.s	Poua
+	moveq	#1,d3
+Poua:	move.w	d3,d5
+
+Poub	bclr	#31,d7		* Flag DBug
+	move.w	d5,d1		* Si position + taille
+	add.w	d4,d1		  >= maximum: dessin plein...
+	cmp.w	d3,d1
+	bcs.s	.Deb
+	bset	#31,d7
+.Deb
+	move.w	d0,d1		* Calculs *65536
+	swap	d0
+	clr.w	d0
+	divu	d3,d0
+	bvs.s	Pou1
+	mulu	d0,d4
+	swap	d4
+	mulu	d5,d0
+	cmp.w	#$8000,d0
+	bcs.s	.Skip
+	add.l	#$00010000,d0
+.Skip	swap	d0
+	bra.s	Pou3
+Pou1:	moveq	#0,d0		* Calculs *256
+	move.w	d1,d0
+	lsl.l	#8,d0
+	divu	d3,d0
+	bvs.s	Pou2
+	mulu	d0,d4
+	lsr.l	#8,d4
+	mulu	d5,d0
+	cmp.b	#$80,d0
+	bcs.s	.Skip
+	add.l	#$00000100,d0
+.Skip	lsr.l	#8,d0
+	bra.s	Pou3
+Pou2:	moveq	#0,d0		* Calculs normaux
+	move.w	d1,d0
+	divu	d3,d0
+	mulu	d0,d4
+	mulu	d5,d0
+Pou3:	cmp.w	#4,d0		* Ty >= 4
+	bcc.s	SlPo1
+	moveq	#4,d0
+SlPo1:	move.w	d4,d6
+	cmp.w	d1,d6		* Sort en bas?
+	bcs.s	SlPo3
+	move.w	d1,d6
+	sub.w	d0,d6
+SlPo3:	move.w	d6,d7		* Fin du slider
+	add.w	d0,d7
+	cmp.w	d1,d7		* Sort en bas?
+	bls.s	SlPoF
+	move.w	d1,d6
+	move.w	d1,d7
+	sub.w	d0,d6
+SlPoF:	sub.w	d6,d7		* TAILLE du centre!
+; La fin
+	movem.l	(sp)+,d4/d5
+	movem.l	(sp)+,d1/d2
+	move.w	(sp)+,d0
+	btst	#31,d7
+	beq.s	.Ok
+	move.w	d0,d6		* Positionne EXACTEMENT � la fin! GRRRRRRR
+	sub.w	d7,d6
+.Ok	moveq	#0,d0
+	rts
+
+******* Set Slider params!
+*	D0-	InkFa
+*	D1-	InkFb
+*	D2-	InkFc
+*	D3-	Pattern
+*	D4-	InkIa
+*	D5-	InkIb
+*	D6-	InkIc
+*	D7-	Pattern
+SliSet:	move.l	T_EcCourant(a5),a0
+	move.l	#EntNul,a1
+	cmp.l	a1,d0
+	beq.s	Slip0
+	move.b	d0,EcFInkA(a0)
+Slip0	cmp.l	a1,d1
+	beq.s	Slip1
+	move.b	d1,EcFInkB(a0)
+Slip1	cmp.l	a1,d2
+	beq.s	Slip2
+	move.b	d2,EcFInkC(a0)
+Slip2	cmp.l	a1,d3
+	beq.s	Slip3
+	move.w	d3,EcFPat(a0)
+Slip3	cmp.l	a1,d4
+	beq.s	Slip4
+	move.b	d4,EcIInkA(a0)
+Slip4	cmp.l	a1,d5
+	beq.s	Slip5
+	move.b	d5,EcIInkB(a0)
+Slip5	cmp.l	a1,d6
+	beq.s	Slip6
+	move.b	d6,EcIInkC(a0)
+Slip6	cmp.l	a1,d7
+	beq.s	Slip7
+	move.w	d7,EcIPat(a0)
+Slip7	moveq	#0,d0
+	rts
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;         INITIALISATION DU FLASHEUR
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+FlInit: clr 	T_nbflash(a5)
+        move 	#lflash*FlMax-1,d0
+        lea	T_tflash(a5),a0
+razfl1: clr.b 	(a0)+
+        dbra 	d0,razfl1
+        rts
+
+; FLASH OFF: arrete les flash de l'ecran active
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FlStop:	move.l	T_EcCourant(a5),d0
+	addq.b	#1,T_NbFlash+1(a5)	Inhibe les interruptions
+	moveq	#FlMax-1,d1
+	lea	T_TFlash(a5),a0
+FlS1	tst.w	(a0)
+	beq.s	FlS3
+	cmp.l	4(a0),d0
+	bne.s	FlS3
+	clr.w	(a0)
+FlS3	lea	LFlash(a0),a0
+	dbra	d1,FlS1
+FlSx	bsr	FlCalc			Nombre de flash reels
+	subq.b	#1,T_NbFlash+1(a5)	Redemarre
+	rts
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;       FLASH X,A$     d1=numero de la couleur, a1=adresse de la chaine
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+FlStart	movem.l	a2-a6/d2-d7,-(sp)
+	cmp.b	#FlMax,T_NbFlash(a5)
+	bcc	FlToo
+	addq.b	#1,T_NbFlash+1(a5)	;Arrete les flashes
+        clr 	d5
+; Trouve une position dans la table
+        lea	T_tflash(a5),a0       	;trouve la position dans la table
+	moveq	#FlMax-1,d0
+        addq 	#1,d1
+        lsl 	#1,d1
+	move.l	T_EcCourant(a5),d2	;ecran ouvert!
+flshi1: tst.w 	(a0)            	;premiere place libre
+        beq.s 	flspoke
+        cmp.w 	(a0),d1         	;Meme couleur Meme ecran
+        bne.s	flshi0
+	cmp.l	4(a0),d2
+	beq.s	flspoke
+flshi0: lea 	lflash(a0),a0
+	dbra	d0,flshi1
+        bra.s 	flsont          	;par securite
+flsynt	clr.w 	(a0)          		;arrete la couleur
+flsont	moveq 	#8,d0
+flout	bsr	FlCalc			;Nombre de flash REEL
+	subq.b	#1,T_NbFlash+1(a5)	;Deshinibe
+	tst.w	d0
+FlExit	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+; Place trouvee: poke dans la table
+flspoke	moveq 	#lflash-1,d0  		;nettoie la table
+        move.l 	a0,a2
+flshi3: clr.b 	(a2)+
+        dbra 	d0,flshi3
+        moveq	#0,d0
+        tst.b 	(a1)          		;flash 1,"": arret de la couleur
+        beq.s 	flout
+	move.l	a0,a2
+	move.w	d1,(a2)+		;Numero de la couleur
+	move.w	#1,(a2)+		;Compteur
+        move.l 	d2,(a2)+    		;Adresse de l'ecran
+	clr.w	(a2)+			;Position
+        moveq 	#-1,d4
+flshi4: move.b	(a1)+,d0
+        cmp.b 	#"(",d0
+        bne 	flshi5
+        addq.l 	#1,d4
+        cmp 	#16,d4             	;16 couleurs autorisees!
+        bcc 	flsynt
+	moveq	#12,d2
+	clr.l	d1
+	bsr	GetHexa
+	beq	FlSynt
+	lsl.w	d2,d1
+	lsl.l	#4,d1
+	bsr	GetHexa
+	beq	FlSynt
+	lsl.w	d2,d1
+	lsl.l	#4,d1
+	bsr	GetHexa
+	beq	FlSynt
+	lsl.w	d2,d1
+	lsl.l	#4,d1
+	swap	d1
+        move.w 	d1,2(a2)	  	;poke la couleur!
+        cmp.b 	#",",(a1)+
+        bne 	flsynt
+        bsr 	dechexa
+        bne 	flsynt
+        tst 	d1
+        beq 	flsynt
+        move.w 	d1,(a2)		   	;poke la vitesse
+	addq.l	#4,a2
+        cmp.b 	#")",d0
+        bne 	flsynt
+        bra 	flshi4
+flshi5: tst.b 	d0            		;la chaine doit etre finie!
+        bne 	flsynt
+        clr.l 	d0            		;pas d'erreur
+        bra 	flout
+; Erreurs flash
+FlToo	moveq	#7,d0			* Too many flash
+	bra	FlExit
+
+; 	Calcule le nombre exact de flash
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FlCalc	movem.l	a0-a1/d0-d1,-(sp)
+	addq.b	#1,T_NbFlash+1(a5)
+	moveq	#0,d0
+	moveq	#FlMax-1,d1
+        lea	T_tflash(a5),a0       	;trouve la position dans la table
+.Loop	tst.w	(a0)
+	beq.s	.Next
+	addq.w	#1,d0
+.Next	lea	lflash(a0),a0
+	dbra	d1,.Loop
+	move.b	d0,T_NbFlash(a5)
+	subq.b	#1,T_NbFlash+1(a5)
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+
+
+	IFEQ	EZFlag
+***********************************************************
+*	START SHIFT
+*	D1= 	Numero du shift
+*	D2=	Vitesse
+*	D3=	Col debut
+*	D4=	Col fin
+*	D5= 	Direction
+*	D6= 	Rotation?
+***********************************************************
+ShStart	movem.l	a2/d3/d4,-(sp)
+	move.l	T_EcCourant(a5),a0
+	lea	T_TShift(a5),a1
+	move.l	a1,a2
+	clr.w	(a1)+
+	move.w	d2,(a1)+
+	move.l	a0,(a1)+
+	and.w	#31,d3				*** 256 couleurs!
+	and.w	#31,d4
+	cmp.w	d3,d4
+	bls.s	.Err
+	lsl.w	#1,d3
+	lsl.w	#1,d4
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.b	d5,(a1)+
+	move.b	d6,(a1)+
+	move.w	#1,(a2)
+	moveq	#0,d0
+.Out	movem.l	(sp)+,a2/d3/d4
+	rts
+.Err:	moveq	#9,d0
+	bra.s	.Out
+
+***********************************************************
+*	Initialisation de la table des shifts
+***********************************************************
+ShInit:	lea	T_TShift(a5),a0
+	move.w	#LShift/2-1,d0
+ShI:	clr.w	(a0)+
+	dbra	d0,ShI
+	rts
+
+***********************************************************
+*	Arret des shifts d'un ecran
+***********************************************************
+ShStop:	move.l	T_EcCourant(a5),d0
+	lea	T_TShift(a5),a0
+	tst.w	(a0)
+	beq.s	ShStX
+	cmp.l	4(a0),d0
+	bne.s	ShStX
+	clr.w	(a0)
+ShStX:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	INTERRUPTIONS SHIFTER
+***********************************************************
+Shifter:lea	T_TShift(a5),a0
+	tst.w	(a0)
+	beq.s	ShfX
+	subq.w	#1,(a0)
+	bne.s	ShfX
+* Shifte!
+	move.w	2(a0),(a0)
+	addq.l	#4,a0
+	move.l	(a0)+,a1
+	move.w	EcNumber(a1),d0
+	lsl.w	#7,d0
+	lea	0(a3,d0.w),a4
+	lea	EcPal(a1),a1
+	move.w	(a0)+,d0
+	move.w	(a0)+,d1
+	move.w	d0,d2
+	move.w	d1,d3
+	tst.b	(a0)+
+	bne.s	Shf6
+* En montant!
+	move.w	0(a1,d3.w),d5
+Shf5:	move.w	-2(a1,d3.w),0(a1,d3.w)
+	subq.w	#2,d3
+	cmp.w	d2,d3
+	bne.s	Shf5
+	bra.s	Shf8
+* En descendant
+Shf6:	move.w	0(a1,d2.w),d5
+Shf7:	move.w	2(a1,d2.w),0(a1,d2.w)
+	addq.w	#2,d2
+	cmp.w	d2,d3
+	bne.s	Shf7
+* Poke dans les listes copper les couleurs D0-D1
+Shf8:	tst.b	(a0)+			* Rotation???
+	beq.s	Shf8a
+	move.w	d5,0(a1,d2.w)
+Shf8a:	move.w	d0,d2
+	lsl.w	#1,d2
+Shf9:	move.w	0(a1,d0.w),d3
+	move.l	a4,a2
+	cmp.w	#PalMax*2,d0
+	bcs.s	ShfC
+	lea	64(a2),a2
+ShfC:	move.l	(a2)+,d4
+	beq.s	ShfB
+ShfA:	move.l	d4,a0
+	move.w	d3,2(a0,d2.w)
+	move.l	(a2)+,d4
+	bne.s	ShfA
+ShfB:	addq.w	#2,d0
+	addq.w	#4,d2
+	cmp.w	d1,d0
+	bls.s	Shf9
+* Fini!
+ShfX	rts
+	ENDC
+
+***********************************************************
+*	FADE OFF
+FadeTOf	clr.w	T_FadeFlag(a5)
+	moveq	#0,d0
+	rts
+***********************************************************
+*	ARRETE LE FADE DE L'ECRAN COURANT!
+FaStop	move.l	T_EcCourant(a5),a0
+	lea	EcPal(a0),a0
+	cmp.l	T_FadePal(a5),a0
+	bne.s	FaStp
+	clr.w	T_FadeFlag(a5)
+FaStp	rts
+
+***********************************************************
+*	INSTRUCTION FADE
+*	A1=	Nouvelle palette
+*	D1=	Vitesse
+FadeTOn	movem.l	d1-d7/a1-a3,-(sp)
+	move.l	T_EcCourant(a5),a2
+* Params
+DoF1	clr.w	T_FadeFlag(a5)
+	move.w	#1,T_FadeCpt(a5)
+	move.w	d1,T_FadeVit(a5)
+	move.w	EcNumber(a2),d0
+	lsl.w	#7,d0
+	lea	T_CopMark(a5),a3
+	add.w	d0,a3
+	move.l	a3,T_FadeCop(a5)
+	lea	EcPal(a2),a2
+	move.l	a2,T_FadePal(a5)
+* Explore toutes la palette (marquee)
+	moveq	#0,d7
+	moveq	#0,d6
+	lea	T_FadeCol(a5),a3
+DoF2	move.w	(a1)+,d2
+	bmi.s	DoF5
+	move.w	d7,(a3)+
+	moveq	#8,d4
+	moveq	#0,d5
+	move.w	0(a2,d7.w),d0
+DoF3	move.w	d0,d1
+	lsr.w	d4,d1
+	and.w	#$000F,d1
+	move.w	d2,d3
+	lsr.w	d4,d3
+	and.w	#$000F,d3
+	move.b	d1,(a3)+
+	move.b	d3,(a3)+
+	cmp.b	d1,d3
+	beq.s	DoF4
+	or.w	#$1,d5
+DoF4	subq.w	#4,d4
+	bpl.s	DoF3
+	add.w	d5,d6
+	tst.w	d5
+	bne.s	DoF5
+	subq.l	#8,a3
+DoF5	addq.w	#2,d7
+	cmp.w	#32*2,d7
+	bcs.s	DoF2
+* Demarre -ou non!-
+	move.w	d6,T_FadeFlag(a5)
+	subq.w	#1,d6
+	move.w	d6,T_FadeNb(a5)
+DoFx	movem.l	(sp)+,d1-d7/a1-a3
+	moveq	#0,d0
+	rts
+***********************************************************
+*	INTERRUPTIONS FADEUR
+*	Attention! Change A3!!!
+***********************************************************
+FadeI	tst.w	T_FadeFlag(a5)
+	beq.s	FadX
+	subq.w	#1,T_FadeCpt(a5)
+	beq.s	Fad0
+FadX	rts
+* Fade!
+Fad0	move.w	T_FadeVit(a5),T_FadeCpt(a5)
+	move.l	T_FadePal(a5),a1
+	move.l	T_FadeCop(a5),d3
+	move.w	T_FadeNb(a5),d7
+	lea	T_FadeCol(a5),a2
+	moveq	#0,d6
+* Boucle
+Fad1	move.w	(a2)+,d5
+	bmi.s	FadN0
+	moveq	#0,d4
+	moveq	#0,d0
+	move.b	(a2)+,d0
+	cmp.b	(a2)+,d0		* R
+	beq.s	Fad4
+	bhi.s	Fad2
+	addq.w	#1,d0
+	bra.s	Fad3
+Fad2	subq.w	#1,d0
+Fad3	addq.w	#1,d4
+	move.b	d0,-2(a2)
+Fad4	moveq	#0,d1
+	move.b	(a2)+,d1
+	cmp.b	(a2)+,d1		* G
+	beq.s	Fad7
+	bhi.s	Fad5
+	addq.w	#1,d1
+	bra.s	Fad6
+Fad5	subq.w	#1,d1
+Fad6	addq.w	#1,d4
+	move.b	d1,-2(a2)
+Fad7	moveq	#0,d2
+	move.b	(a2)+,d2
+	cmp.b	(a2)+,d2		* B
+	beq.s	FadA
+	bhi.s	Fad8
+	addq.w	#1,d2
+	bra.s	Fad9
+Fad8	subq.w	#1,d2
+Fad9	addq.w	#1,d4
+	move.b	d2,-2(a2)
+* Calcule la couleur
+FadA	tst.w	d4
+	beq.s	FadN1
+	addq.w	#1,d6
+	lsl.w	#4,d0
+	or.w	d1,d0
+	lsl.w	#4,d0
+	or.w	d2,d0
+* Poke dans l'ecran
+	move.w	d0,0(a1,d5.w)
+* Poke dans les listes copper
+	lsl.w	#1,d5
+	move.l	d3,a3
+	cmp.w	#PalMax*4,d5
+	bcs.s	FadC
+	lea	64(a3),a3
+FadC	move.l	(a3)+,d1
+	beq.s	FadN
+FadB	move.l	d1,a4
+	move.w	d0,2(a4,d5.w)
+	move.l	(a3)+,d1
+	bne.s	FadB
+* Couleur suivante
+FadN	dbra	d7,Fad1
+	move.w	d6,T_FadeFlag(a5)
+	rts
+* Rien dans cette couleur
+FadN0	addq.l	#6,a2
+	dbra	d7,Fad1
+	move.w	d6,T_FadeFlag(a5)
+	rts
+* Plus rien maintenant
+FadN1	move.w	#-1,-8(a2)
+	bra.s	FadN
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;       INTERRUPTIONS FLASHEUR
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+FlInt:  tst.b	T_NbFlash+1(a5)		Autorisee?
+	bne.s	FlShXX
+	move.b 	T_NbFlash(a5),d7	Nombre en route
+	beq.s	FlShXX
+	addq.b	#1,T_NbFlash+1(a5)	Inhibe!
+        lea	T_tflash-lflash+2(a5),a0
+FlShLL	lea	lflash-2(a0),a0
+FlShL	move.w 	(a0)+,d0
+        beq.s 	FlShLL
+; Flashe!
+	sub.w 	#1,(a0)			* Compteur
+        bne.s 	FlShN
+	lea	2(a0),a1
+	move.l	(a1)+,a2		* Adresse de l'ecran
+	add.w	(a1)+,a1		* Pointe
+	move.w	(a1)+,(a0)
+	bne.s	Flsh4
+	lea	6(a0),a1
+	clr.w	(a1)+
+	move.w	(a1)+,(a0)
+FlSh4:	addq.w	#4,6(a0)		* Pointe le suivant
+	move.w	(a1),d2
+	move.w	d2,EcPal-2(a2,d0.w)	* Change dans la definition
+	lsl.w	#1,d0
+	move.w	EcNumber(a2),d1
+	lsl.w	#7,d1
+	lea	0(a3,d1.w),a2
+	cmp.w	#PalMax*4+4,d0
+	bcs.s	FlSh5
+	lea	64(a2),a2
+FlSh5:	move.l	(a2)+,d1		* Change toutes les definitions
+	beq.s	FlShN
+FlSh6:	move.l	d1,a1
+	move.w	d2,2-4(a1,d0.w)
+	move.l	(a2)+,d1
+	bne.s	FlSh6
+; Encore un actif?
+FlShN	subq.b	#1,d7
+	bne.s	FlShLL
+; Fini!
+FlShX	subq.b	#1,T_NbFlash+1(a5)	Retabli les interruptions
+FlShXX	rts
+
+***********************************************************
+*	FABRIQUE LA COPPER LISTE A PARTIR DES ECRANS
+*
+******* ACTUALISATION DES ECRANS
+EcForceCop:				* Entree en forcant le calcul
+	addq.w	#1,T_EcYAct(a5)
+EcCopper:				* Entree normale
+	movem.l	d1-d7/a1-a6,-(sp)
+
+* Suite actualisation
+	move.w	T_EcYAct(a5),d7
+	lea	T_EcPri(a5),a0
+	move.l	(a0)+,d0
+	beq	EcA6
+	bmi	EcActX
+EcAct0:	move.l	d0,a1
+* Changement en WY
+	move.b	EcAW(a1),d0
+	beq.s	EcA2
+	btst	#2,d0
+	beq.s	EcAct1
+	move.w	EcAWY(a1),d1
+	add.w	#EcYBase,d1
+	bpl.s	EcAa
+	moveq	#0,d1
+EcAa:	move.w	d1,EcWY(a1)
+	addq.w	#1,d7
+* Changement en WX
+EcAct1:	btst	#1,d0
+	beq.s	EcAct2
+	move.w	EcAWX(a1),d1
+	and.w	#$FFF0,d1
+	move.w	d1,EcWX(a1)
+* Changement en WTY
+EcAct2:	clr.w	EcAW(a1)
+EcA2:	move.b	EcAWT(a1),d0
+	beq.s	EcA4
+	btst	#2,d0
+	beq.s	EcAct3
+	move.w	EcAWTY(a1),d1
+	beq.s	EcAct3
+	cmp.w	EcTY(a1),d1
+	bcs.s	EcAc
+EcAg:	move.w	EcTY(a1),d1
+EcAc:	btst	#2,EcCon0+1(a1)
+	beq.s	EcA2a
+	lsr.w	#1,d1
+EcA2a:	move.w	d1,EcWTy(a1)
+	addq.w	#1,d7
+* Changement en WTX
+EcAct3:	btst	#1,d0
+	beq.s	EcAct4
+	move.w	EcAWTX(a1),d1
+	and.w	#$FFF0,d1
+	beq.s	EcAct4
+	move.w	EcTx(a1),d2
+	tst.w	EcCon0(a1)
+	bpl.s	EcAe
+	lsr.w	#1,d2
+EcAe:	cmp.w	d2,d1
+	bcs.s	EcAf
+	move.w	d2,d1
+EcAf:	move.w	d1,EcWTx(a1)
+* Changement en OY
+EcAct4:	clr.w	EcAWT(a1)
+EcA4:	move.b	EcAV(a1),d0
+	beq.s	EcA6
+	btst	#2,d0
+	beq.s	EcAct5
+	move.w	EcAVY(a1),EcVY(a1)
+* Changement en OX
+EcAct5:	btst	#1,d0
+	beq.s	EcAct6
+	move.w	EcAVX(a1),EcVX(a1)
+* Encore un ecran?
+EcAct6:	clr.w	EcAV(a1)
+EcA6:	move.l	(a0)+,d0
+	beq.s	EcA6
+	bpl	EcAct0
+EcActX:
+
+******* Calcul des nouvelles priorites?
+	move.l	T_EcCop(a5),a1
+
+;-----> Si pas de changement Y/TY/Priorite, pas de calcul
+	tst.w	d7
+	beq	PaDecoup
+	clr.w	T_EcYAct(a5)
+
+;-----> Decoupe les ecrans en tranches
+	lea	T_EcBuf(a5),a3
+	moveq	#0,d2		;Limite en haut
+MkD0:	lea	T_EcPri(a5),a2
+	move.w	#10000,d3		;Limite en bas
+	moveq	#-1,d5
+	moveq	#0,d1
+
+MkD1:	addq.w	#4,d1
+	move.l	(a2)+,d0
+	bmi.s	MkD3
+	beq.s	MkD1
+	move.l	d0,a0
+	tst.b	EcFlags(a0)
+	bmi.s	MkD1
+	move.w	EcWY(a0),d0
+	subq.w	#1,d0
+	cmp.w	d2,d0
+	bls.s	MkD2
+	cmp.w	d3,d0
+	bcc.s	MkD2
+	move.w	d0,d3
+	move.w	d3,d4
+	add.w	EcWTy(a0),d4
+	addq.w	#1,d4
+	move.w	d1,d5
+	bra.s	MkD1
+MkD2:	add.w	EcWTy(a0),d0
+	addq.w	#1,d0
+	cmp.w	d2,d0
+	bls.s	MkD1
+	cmp.w	d3,d0
+	bcc.s	MkD1
+	move.w	d0,d3
+	move.w	d1,d5
+	bset 	#15,d5
+	bra.s	MkD1
+
+MkD3:	cmp.w	#-1,d5			;Fini?
+	beq.s	MkD5
+	cmp.w	#EcYStrt-1,d2		;Passe le haut de l'ecran?
+	bcc.s	MkD3a
+	cmp.w	#EcYStrt-1,d3
+	bcs.s	MkD3a
+	move.w	#EcYStrt-1,(a3)+	;Marque le haut de l'ecran
+	clr.w	(a3)+
+	move.w	#$8000,(a3)+
+
+MkD3a:
+MkD3b:
+	move.w	d3,(a3)+
+	move.w	d4,(a3)+
+	move.w	d5,(a3)+
+; Re-Explore la liste en cas d'egalite SI DEBUT DE FENETRE
+	and.w	#$7fff,d5
+	lea	T_EcPri(a5),a2
+	moveq	#0,d1
+
+MkD4:	addq.w	#4,d1
+	move.l	(a2)+,d0
+	bmi.s	MkD4a
+	beq.s	MkD4
+	move.l	d0,a0
+	tst.b	EcFlags(a0)
+	bmi.s	MkD4
+	move.w	EcWY(a0),d0
+	subq.w	#1,d0
+	cmp.w	d0,d3
+	bne.s	MkD4
+	cmp.w	d5,d1
+	beq.s	MkD4
+	move.w	d3,(a3)+
+	move.w	d3,d4
+	addq.w	#1,d4
+	add.w	EcWTy(a0),d4
+	move.w	d4,(a3)+
+	move.w	d1,(a3)+
+	bra.s	MkD4
+; Remonte la limite
+MkD4a:	move.w	d3,d2
+	bra	MkD0
+; Fin de la liste
+MkD5:	move.w	#-1,(a3)+
+
+PaDecoup:
+
+;-----> Analyse de la table / creation de la liste
+	clr.w	T_InterInter(a5)
+	lea	T_EcPri(a5),a2
+	lea	T_EcBuf(a5),a3
+MkA1:	move.w	(a3),d0
+	bmi	MkAFin
+	move.w	2(a3),d1
+	move.w	4(a3),d2
+	bmi	MkA4
+; Debut d'une fenetre: doit-on l'afficher?
+	lea	T_EcBuf(a5),a0
+MkA2:	cmp.l	a3,a0
+	bcc	MkA8
+	tst.w	4(a0)
+	bmi.s	MkA3
+	cmp.w	(a0),d0
+	bcs.s	MkA3
+	cmp.w	2(a0),d0
+	bcc.s	MkA3
+	cmp.w	4(a0),d2
+	bcc	MkA10
+MkA3:	lea	6(a0),a0
+	bra.s	MkA2
+
+; Fin d'une fenetre: doit-on en reafficher une autre?
+MkA4:	and.w	#$7FFF,d2
+	cmp.w	#$100,d2		;Si fin de l'ecran --> marque!
+	beq	MkA9a
+
+	clr.w	d3
+MkA4a:	addq.w	#6,d3			;Cherche UN DEBUT devant
+	cmp.w	0(a3,d3.w),d0
+	bne.s	MkA4b
+	tst.w	4(a3,d3.w)
+	bmi.s	MkA4a
+	lea	0(a3,d3.w),a3		;Va faire le debut!
+	bra	MkA1
+
+MkA4b:	lea	T_EcBuf(a5),a0		;Cherche la fenetre a reafficher
+	move.w	#1000,d3
+MkA5:	cmp.l	a3,a0
+	bcc.s	MkA7
+	tst.w	4(a0)
+	bmi.s	MkA6
+	cmp.w	(a0),d0
+	bcs.s	MkA6
+	cmp.w	2(a0),d0
+	bcc.s	MkA6
+	cmp.w	4(a0),d3
+	bcs.s	MkA6
+	move.w	4(a0),d3
+MkA6:	lea	6(a0),a0
+	bra.s	MkA5
+MkA7:	cmp.w	#1000,d3
+	beq.s	MkA9
+	cmp.w	d2,d3
+	bls.s	MkA10
+	move.w	d3,d2
+; Peut creer la fenetre
+MkA8:	move.l	-4(a2,d2.w),a0
+	move.w	(a3),d0
+	cmp.w	#EcYStrt-1,d0		* Sort en haut?
+	bcs.s	MkA10
+	move.w	T_EcYMax(a5),d1		* Sort en bas?
+	subq.w	#2,d1
+	cmp.w	d1,d0
+	bcc.s	MkA10
+	move.w	d0,(a1)+
+	move.l	a0,(a1)+
+	btst	#2,EcCon0+1(a0)
+	beq.s	MkA10
+	move.w	#%100,T_InterInter(a5)
+	bra.s	MkA10
+; Fin normale de la fenetre
+MkA9:	tst.w	d2
+	beq.s	MkA10
+	move.w	(a3),d0
+MkA9a:	cmp.w	#EcYStrt-1,d0
+	bcs.s	MkA10
+	move.w	T_EcYMax(a5),d1
+	subq.w	#1,d1
+	cmp.w	d1,d0
+	bcc.s	MkA11
+	neg.w	d0
+	move.w	d0,(a1)+
+; Passe a une autre
+MkA10:	lea	6(a3),a3
+	bra	MkA1
+; C'est la fin
+MkA11	neg.w	d1
+	move.w	d1,(a1)+
+* Marque la fin des ecrans
+MkAFin:	clr.w	(a1)
+
+*******	Fabrique la liste copper
+* 	Avec RAINBOW ou non!
+* Plus de screen swap
+	clr.w	T_Cop255(a5)
+	clr.w	T_InterBit(a5)
+	clr.l	T_SwapList(a5)
+* Nettoie les marqueurs
+	clr.l	T_CopMark+CopL1*0(a5)
+	clr.l	T_CopMark+CopL1*0+64(a5)
+	clr.l	T_CopMark+CopL1*1(a5)
+	clr.l	T_CopMark+CopL1*1+64(a5)
+	clr.l	T_CopMark+CopL1*2(a5)
+	clr.l	T_CopMark+CopL1*2+64(a5)
+	clr.l	T_CopMark+CopL1*3(a5)
+	clr.l	T_CopMark+CopL1*3+64(a5)
+	clr.l	T_CopMark+CopL1*4(a5)
+	clr.l	T_CopMark+CopL1*4+64(a5)
+	clr.l	T_CopMark+CopL1*5(a5)
+	clr.l	T_CopMark+CopL1*5+64(a5)
+	clr.l	T_CopMark+CopL1*6(a5)
+	clr.l	T_CopMark+CopL1*6+64(a5)
+	clr.l	T_CopMark+CopL1*7(a5)
+	clr.l	T_CopMark+CopL1*7+64(a5)
+	clr.l	T_CopMark+CopL1*8(a5)
+	clr.l	T_CopMark+CopL1*8+64(a5)
+	clr.l	T_CopMark+CopL1*9(a5)
+	clr.l	T_CopMark+CopL1*9+64(a5)
+	clr.l	T_CopMark+CopL1*10(a5)
+	clr.l	T_CopMark+CopL1*10+64(a5)
+	clr.l	T_CopMark+CopL1*11(a5)
+	clr.l	T_CopMark+CopL1*11+64(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*0(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*1(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*2(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*3(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*4(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*5(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*6(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*7(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*8(a5)
+	clr.l	T_CopMark+CopL1*12+CopL2*9(a5)
+* Copper manuel???
+	tst.w	T_CopON(a5)
+	beq	PasCop
+* Liste copper logique
+	move.l	T_CopLogic(a5),a1
+	lea	64+4(a1),a1		* Saute les sprites
+* Rainbow?
+	tst.w	T_RainBow(a5)
+	bne.s	CopBow
+******* Fabrique NORMAL
+MCop0	move.l	T_EcCop(a5),a2
+MCop1	move.w	(a2)+,d0
+	beq.s	MCopX
+	bmi.s	MCop2
+* Debut d'un ecran
+	move.l	(a2)+,a0
+	bsr	EcCopHo
+	bra.s	MCop1
+* Fin d'un ecran
+MCop2	neg.w	d0
+	bsr	EcCopBa
+	bra.s	MCop1
+* Fin de la liste
+MCopX:	subq.l	#2,a2
+	cmp.l	T_EcCop(a5),a2
+	bne.s	.Skip
+	move.w	T_EcYMax(a5),d0
+	subq.w	#1,d0
+	bsr	EcCopBa
+.Skip	move.l	#$FFFFFFFE,(a1)+
+*******	Swappe les listes
+MCopSw	move.l	T_CopLogic(a5),a0
+	move.l	T_CopPhysic(a5),a1
+	move.l	a1,T_CopLogic(a5)
+	move.l	a0,T_CopPhysic(a5)
+* Poke dans le copper, si AMOS est la!
+	tst.b	T_AMOSHere(a5)
+	beq.s	PasCop
+	move.l	a0,Circuits+Cop1Lc
+	move.w	T_InterInter(a5),T_InterBit(a5)
+* Fini!
+PasCop	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#0,d0
+	rts
+
+******* Actualise les RAINBOWS
+CopBow	lea	T_RainTable(a5),a0
+	moveq	#0,d4
+	moveq	#NbRain-1,d6
+	moveq	#0,d5
+RainA1	tst.w	RnLong(a0)
+	beq.s	RainA5
+	addq.w	#1,d5
+	tst.w	RnI(a0)
+	bmi.s	RainA5
+	addq.w	#1,d4
+	move.b	RnAct(a0),d7
+	beq.s	RainA5
+	clr.b	RnAct(a0)
+* Taille en Y
+	bclr	#0,d7
+	beq.s	RainA2
+	move.w	RnI(a0),d0
+	move.w	d0,RnTY(a0)
+	bset	#2,d7
+* Position en Y
+RainA2	bclr	#2,d7
+	beq.s	RainA4
+	clr.l	RnDY(a0)
+	move.w	RnY(a0),d1
+	cmp.w	#28,d1
+	bcc.s	RainA3
+	moveq	#28,d1
+RainA3	move.w	RnTy(a0),d0
+	add.w	#EcYBase,d1
+	move.w	d1,RnDY(a0)
+	add.w	d0,d1
+	move.w	d1,RnFY(a0)
+* Position de la base
+RainA4	bclr	#1,d7
+	beq.s	RainA5
+	move.w	RnX(a0),d0
+	lsl.w	#1,d0
+	cmp.w	RnLong(a0),d0
+	bcc.s	RainA5
+	lsr.w	#1,d0
+	move.w	d0,RnBase(a0)
+* Rainbow suivant
+RainA5	lea	RainLong(a0),a0
+	dbra	d6,RainA1
+* Securite!
+	move.w	d5,T_RainBow(a5)
+	tst.w	d4
+	beq	MCop0
+
+******* Fabrique la liste
+	move.l	T_EcCop(a5),a2
+	move.w	#EcYBase,d0
+	moveq	#-1,d3
+	moveq	#-1,d4
+	moveq	#0,d7
+Rain1	move.w	(a2)+,d1
+	beq	Rain3
+	bmi.s	Rain2
+* Debut d'un ecran
+	bsr	Rain
+	move.l	(a2)+,a0
+	movem.l	d0/d3-d7,-(sp)
+	bsr	EcCopHo
+	movem.l	(sp)+,d0/d3-d7
+	clr.w	d3
+	tst.w	d4
+	bmi.s	Rain1e
+	cmp.w	#PalMax*4,d4
+	bcs.s	Rain1d
+	lea	64(a4),a4
+Rain1d	move.l	(a4),a0
+	move.w	2(a0,d4.w),d3
+	bclr	#31,d3
+Rain1e	cmp.w	d7,d0
+	bcc.s	Rain1a
+	move.w	(a3)+,2(a0,d4.w)
+	cmp.l	a6,a3
+	bcs.s	Rain1a
+	move.l	d6,a3
+Rain1a	addq.w	#1,d0
+	move.w	(a2),d1
+	bpl.s	Rain1b
+	neg.w	d1
+Rain1b	cmp.w	d0,d1
+	beq.s	Rain1
+	cmp.w	d7,d0
+	bcc.s	Rain2a
+	move.w	d5,(a1)+
+	move.w	(a3)+,(a1)+
+	bra.s	Rain1c
+* Fin d'un ecran
+Rain2	neg.w	d1
+	bsr	Rain
+	bsr	EcCopBa
+	tst.w	d4
+	bne.s	Rain1b
+	move.w	T_EcFond(a5),d3
+	cmp.w	d7,d0
+	bcc.s	Rain2a
+	move.l	a1,a0			* Recherche la couleur
+Rain1z	cmp.w	#$0180,-(a0)
+	bne.s	Rain1z
+	move.w	(a3)+,2(a0)
+Rain1c	cmp.l	a6,a3
+	bcs.s	Rain2a
+	move.l	d6,a3
+Rain2a	addq.w	#1,d0
+	bra	Rain1
+* Fin des ecrans
+Rain3	subq.l	#2,a2
+	cmp.l	T_EcCop(a5),a2
+	bne.s	.Skip
+	move.w	T_EcYMax(a5),d0
+	subq.w	#1,d0
+	bsr	Rain
+	bsr	EcCopBa
+.Skip	move.l	#$FFFFFFFE,(a1)+
+	bra	MCopSw
+******* Fabrique le rainbow ---> Y=D1
+RainD1	move.w	d0,d2
+	sub.w	#EcYBase,d2
+	cmp.w	#256,d2			* Attente -> ligne -> D0
+	bcs.s	RainD2
+	tst.w	T_Cop255(a5)
+	bne.s	RainD2
+	move.w	#$FFE1,(a1)+
+	move.w	#$FFFE,(a1)+
+	addq.w	#1,T_Cop255(a5)
+RainD2	lsl.w	#8,d2
+	or.w	#$03,d2
+	move.w	d2,(a1)+
+	move.w	#$FFFE,(a1)+
+	move.w	d5,(a1)+		* Change la couleur
+	move.w	(a3)+,(a1)+
+	cmp.l	a6,a3
+	bcs.s	RainD3
+	move.l	d6,a3
+RainD3	addq.w	#1,d0
+* Entree!
+Rain	cmp.w	d7,d0
+	bcc.s	RainNx
+RainD0	cmp.w	d1,d0
+	bcs.s	RainD1
+RainDX	move.w	d1,d0
+	rts
+******* Trouve le rainbow comprenant D0
+RainNX	tst.l	d3
+	bmi.s	RainN0
+	tst.w	d3			* Si RIEN au dessus
+	bpl.s	Rain0a
+	move.w	#Color00,(a1)+		* Couleur 0 d'office!
+	move.w	T_EcFond(a5),(a1)+
+	bset	#31,d3
+	bra.s	RainN0
+Rain0a	move.w	d5,(a1)+
+	move.w	d3,(a1)+
+	bset	#31,d3
+RainN0	lea	T_RainTable(a5),a0	* Cherche le 1er
+	moveq	#NbRain-1,d2
+RainN1	cmp.w	(a0),d0
+	bcs.s	RainN2
+	cmp.w	RnFY(a0),d0
+	bcs.s	RainN5
+RainN2	lea	RainLong(a0),a0
+	dbra	d2,RainN1
+	lea	T_RainTable(a5),a0	* Trouve le 1er plus bas
+	moveq	#0,d7
+	moveq	#NbRain-1,d2
+	move.w	d1,d6
+RainN3	cmp.w	RnFY(a0),d0
+	bcc.s	RainN4
+	cmp.w	(a0),d1
+	bcs.s	RainN4
+	cmp.w	(a0),d6
+	bcs.s	RainN4
+	move.w	(a0),d6
+	move.l	a0,d7
+RainN4	lea	RainLong(a0),a0
+	dbra	d2,RainN3
+	tst.l	d7
+	beq	RainDX
+	move.l	d7,a0
+	move.w	(a0),d0
+* Debut d'un RainBow
+RainN5	move.w	d0,d5
+	sub.w	(a0),d5
+	add.w	RnBase(a0),d5
+	lsl.w	#1,d5
+	move.l	RnBuf(a0),d6
+	move.l	d6,a3
+	move.l	a3,a6
+	add.w	RnLong(a0),a6
+	add.w	d5,a3
+	cmp.l	a6,a3
+	bcs.s	RainD7
+RainN6	sub.w	RnLong(a0),a3
+	cmp.l	a6,a3
+	bcc.s	RainN6
+RainD7	move.w	RnFY(a0),d7
+* Nouvelle couleur
+	move.w	d4,d2
+	move.w	RnColor(a0),d4
+	move.w	d4,d5
+	lsl.w	#2,d4
+	lsl.w	#1,d5
+	add.w	#Color00,d5
+* Reprend la couleur!
+	tst.w	d3
+	bmi.s	RainD9
+	cmp.w	d4,d2
+	beq.s	RainD9
+	move.l	(a4),a0
+	move.w	2(a0,d4.w),d3
+RainD9	bclr	#31,d3
+	bra	RainD0
+
+******* Creation de la ligne COPPER de definition d'un ecran!
+*	D0=	Y ecran
+*	A0= 	Adresse de l'ecran
+EcCopHo
+* Decalage PHYSIQUE dans la fenetre
+	move.w	d0,d1
+	sub.w	EcWY(a0),d1
+	addq.w	#1,d1
+	btst	#2,EcCon0+1(a0)		* par 2 si entrelace!
+	beq.s	MkC4a
+	lsl.w	#1,d1
+MkC4a
+* Attend jusqu'a la ligne D0
+	move.w	d0,d2
+	sub.w	#EcYBase,d2
+	bsr	WaitD2
+* Preparation image
+	move.w	#DmaCon,(a1)+		;Arret DMA
+	move.w	#$0100,(a1)+
+* Debut de la palette
+	move.l	a1,-(sp)
+	moveq	#PalMax-1,d3
+	move.w	#Color00,d2
+	lea	EcPal(a0),a4
+MkC5:	move.w	d2,(a1)+
+	addq.w	#2,d2
+	move.w	(a4)+,(a1)+
+	dbra	d3,MkC5
+
+	IFEQ	EZFlag
+* Dual playfield???
+	move.w	EcDual(a0),d2
+	bne	CreeDual
+PluDual:
+	ENDC
+
+* Ecran normal!
+	add.w	EcVY(a0),d1		* Decalage ecran
+	mulu	EcTLigne(a0),d1
+	move.w	EcVx(a0),d2
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+	add.w	d2,d1
+	move.l	a1,d3
+* Poke les adresses des bitplanes
+	moveq	#EcPhysic,d2
+	move.w	EcNPlan(a0),d6
+	subq.w	#1,d6
+	move.w	#Bpl1PtH,d7
+MkC0:	move.l	0(a0,d2.w),d5
+	add.l	d1,d5
+	move.w	d7,(a1)+
+	addq.w	#2,d7
+	swap	d5
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	addq.w	#2,d7
+	swap	d5
+	move.w	d5,(a1)+
+	addq.l	#4,d2
+	dbra	d6,MkC0
+* Marque les adresses SCREEN SWAP
+	move.w	EcNumber(a0),d2		* Marque les adresse
+	cmp.w	#10,d2			* Si ecran utilisateur!
+	bcc.s	MrkC2
+	lsl.w	#6,d2
+	lea	CopL1*EcMax+T_CopMark(a5),a4
+	add.w	d2,a4
+MrkC1	tst.l	(a4)
+	addq.l	#8,a4
+	bne.s	MrkC1
+	clr.l	(a4)
+	move.l	d3,-8(a4)		* Adresse dans liste
+	move.l	d1,-4(a4)		* Decalage
+MrkC2:
+* Calcule les valeurs non plantantes!
+	move.w	#465+16,d3
+	tst.w	EcCon0(a0)
+	bpl.s	MkC1c
+	move.w	#465,d3
+MkC1c	move.w	EcWX(a0),d1
+	addq.w	#1,d1
+	move.w	EcWTx(a0),d2
+	move.w	d1,d6
+	add.w	d2,d6
+	cmp.w	d3,d6
+	bcs.s	MkC1a
+	sub.w	d3,d6
+	add.w	#16,d6
+	sub.w	d6,d2
+	bra.s	MkC1b
+MkC1a:	cmp.w	#176,d6
+	bhi.s	MkC1b
+	sub.w	#176,d6
+	sub.w	d6,d1
+MkC1b:	move.w	d1,EcWXr(a0)
+	move.w	d2,EcWTxr(a0)
+* Calcul et poke DIW Start/Stop
+	move.w	#DiwStrt,(a1)+		;DiwStrt Y = 0
+	move.w	d1,(a1)
+	or.w	#$0100,(a1)+
+	move.w	#DiwStop,(a1)+		;DiwStop Y = 311
+	add.w	d2,d1
+	and.w	#$00ff,d1
+	or.w	#$3700,d1
+	move.w	d1,(a1)+
+* Calcul des valeurs modulo ---> d4
+	move.w	EcTLigne(a0),d4
+	move.w	EcWTxr(a0),d5
+	lsr.w	#3,d5
+	btst	#7,EcCon0(a0)
+	bne.s	MkC2a
+	lsr.w	#1,d5
+MkC2a:	lsl.w	#1,d5
+	sub.w	d5,d4
+	bpl.s	MkC2
+	clr.w	d4
+MkC2:
+* Calcul DDF Start/Stop---> D1/D2
+	move.w	EcWXr(a0),d1
+	move.w	EcWTxr(a0),d2
+	move.w	EcVX(a0),d6
+	btst	#7,EcCon0(a0)
+	bne.s	MkCH
+* Lowres
+	sub.w	#17,d1
+	lsr.w	#1,d1
+	and.w	#$FFF8,d1
+	lsr.w	#1,d2
+	subq.w	#8,d2
+	add.w	d1,d2
+	and.w	#15,d6			;Scrolling?
+	beq.s	MkC3
+	subq.w	#8,d1
+	subq.w	#2,d4
+	neg.w	d6
+	add.w	#16,d6
+	bra.s	MkC3
+* Hires
+MkCH:	sub.w	#9,d1
+	lsr.w	#1,d1
+	and.w	#$FFFC,d1
+	lsr.w	#1,d2
+	subq.w	#8,d2
+	add.w	d1,d2
+	and.w	#15,d6			;Scrolling?
+	lsr.w	#1,d6
+	beq.s	MkC3
+	subq.w	#4,d1
+	subq.w	#4,d4
+	neg.w	d6
+	addq.w	#8,d6
+MkC3:	move.w	d6,d5
+	lsl.w	#4,d5
+	or.w	d6,d5
+* Poke les valeurs
+	move.w	#DdfStrt,(a1)+
+	move.w	d1,(a1)+
+	move.w	#DdfStop,(a1)+
+	move.w	d2,(a1)+
+* Interlace?
+	move.w	EcCon0(a0),d1
+	btst	#2,d1
+	beq.s	MkCi1
+	move.w	EcTx(a0),d2
+	lsr.w	#3,d2
+	add.w	d2,d4
+MkCi1	move.w	#Bpl1Mod,(a1)+
+	move.w	d4,(a1)+
+	move.w	#Bpl2Mod,(a1)+
+	move.w	d4,(a1)+
+* Registres de controle
+	move.w	#BplCon0,(a1)+
+	or.w	T_InterInter(a5),d1
+	move.w	d1,(a1)+
+	move.w	#BplCon1,(a1)+
+	move.w	d5,(a1)+
+	move.w	#BplCon2,(a1)+
+	move.w	EcCon2(a0),(a1)+
+* Reactive le DMA au debut de la fenetre
+FiniCop	move.l	(sp)+,d4
+	addq.w	#1,d0
+	move.w	(a2),d1
+	bpl.s	FiCp1
+	neg.w	d1
+FiCp1	cmp.w	d0,d1
+	beq.s	MkC9
+	move.w	d0,d2
+	sub.w	#EcYBase,d2
+	bsr	WaitD2
+	move.w	#DmaCon,(a1)+
+	move.w	#$8300,(a1)+
+* Fin de la palette!
+	move.l	a1,d3
+	moveq	#32-PalMax-1,d1
+	move.w	#Color00+PalMax*2,d2
+	lea	EcPal+PalMax*2(a0),a4
+MkC7:	move.w	d2,(a1)+
+	addq.w	#2,d2
+	move.w	(a4)+,(a1)+
+	dbra	d1,MkC7
+* Adresse de la 2ieme palette
+	move.w	EcNumber(a0),d2
+	lsl.w	#7,d2
+	lea	T_CopMark+64(a5),a4
+	add.w	d2,a4
+MkC8:	tst.l	(a4)+
+	bne.s	MkC8
+	clr.l	(a4)
+	sub.l	#4*PalMax,d3
+	move.l	d3,-(a4)
+* Adresse de la 1ere palette dans la liste copper
+MkC9	move.w	EcNumber(a0),d2		* Marque les adresse
+	lsl.w	#7,d2
+	lea	T_CopMark(a5),a4
+	add.w	d2,a4
+MkC10:	tst.l	(a4)+
+	bne.s	MkC10
+	clr.l	(a4)
+	move.l	d4,-(a4)
+* Fini!
+	rts
+
+	IFEQ	EZFlag
+******* Creation liste copper pour ecrans DUAL PLAYFIED!
+CreeDual:
+* Adresse du deuxieme ecran
+	move.l	a2,-(sp)
+	lsl.w	#2,d2
+	lea	T_EcAdr(a5),a2
+	move.l	-4(a2,d2.w),d2		* On a efface le deuxieme!
+	bne.s	CrDu1
+	move.l	(sp)+,a2
+	clr.w	EcDual(a0)		* Transforme en ecran simple!
+	move.w	EcCon0(a0),d2
+	and.w	#%1000101111111111,d2
+	move.w	EcNPlan(a0),d7
+	lsl.w	#8,d7
+	lsl.w	#4,d7
+	or.w	d7,d2
+	move.w	d2,EcCon0(a0)
+	bra	PluDual
+CrDu1:	move.l	d2,a2
+* Adresses bitplanes PAIRS!
+	move.w	d1,-(sp)
+	add.w	EcVY(a0),d1		* Decalage ecran
+	mulu	EcTLigne(a0),d1
+	move.w	EcVx(a0),d2
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+	add.w	d2,d1
+	move.l	a1,d3
+	moveq	#EcPhysic,d2
+	move.w	EcNPlan(a0),d6
+	subq.w	#1,d6
+	move.w	#Bpl1PtH,d7
+MkDC1:	move.l	0(a0,d2.w),d5
+	add.l	d1,d5
+	move.w	d7,(a1)+
+	addq.w	#2,d7
+	swap	d5
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	addq.w	#2,d7
+	swap	d5
+	move.w	d5,(a1)+
+	addq.l	#4,d2
+	addq.w	#4,d7
+	dbra	d6,MkDC1
+	move.w	EcNumber(a0),d2		* Marque les adresses
+	cmp.w	#8,d2
+	bcc.s	MrkDC2
+	lsl.w	#6,d2
+	lea	CopL1*EcMax+T_CopMark(a5),a4
+	add.w	d2,a4
+MrkDC1	tst.l	(a4)
+	addq.l	#8,a4
+	bne.s	MrkDC1
+	clr.l	(a4)
+	move.l	d3,-8(a4)
+	move.l	d1,-4(a4)
+* Adresses bitplanes IMPAIRS!
+MrkDC2	move.w	(sp)+,d1
+	add.w	EcVY(a2),d1		* Decalage ecran
+	mulu	EcTLigne(a2),d1
+	move.w	EcVx(a2),d2
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+	add.w	d2,d1
+	move.l	a1,d3
+	moveq	#EcPhysic,d2
+	move.w	EcNPlan(a2),d6
+	subq.w	#1,d6
+	move.w	#Bpl1PtH+4,d7
+MkdC12:	move.l	0(a2,d2.w),d5
+	add.l	d1,d5
+	move.w	d7,(a1)+
+	addq.w	#2,d7
+	swap	d5
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	addq.w	#2,d7
+	swap	d5
+	move.w	d5,(a1)+
+	addq.l	#4,d2
+	addq.w	#4,d7
+	dbra	d6,MkdC12
+	move.w	EcNumber(a2),d2		* Marque les adresses
+	cmp.w	#8,d2
+	bcc.s	MrkDC4
+	lsl.w	#6,d2
+	lea	CopL1*EcMax+T_CopMark(a5),a4
+	add.w	d2,a4
+MrkDC3	tst.l	(a4)
+	addq.l	#8,a4
+	bne.s	MrkDC3
+	clr.l	(a4)
+	move.l	d3,-8(a4)
+	move.l	d1,-4(a4)
+MrkDC4
+* Calcule les valeurs non plantantes!
+	move.w	#465+16,d3
+	tst.w	EcCon0(a0)
+	bpl.s	MkdC1c
+	sub.w	#16,d3
+MkdC1c	move.w	EcWX(a0),d1
+	addq.w	#1,d1
+	move.w	EcWTx(a0),d2
+	move.w	d1,d6
+	add.w	d2,d6
+	cmp.w	d3,d6
+	bcs.s	MkdC1a
+	sub.w	d3,d6
+	add.w	#16,d6
+	sub.w	d6,d2
+	bra.s	MkdC1b
+MkdC1a:	cmp.w	#176,d6
+	bhi.s	MkdC1b
+	sub.w	#176,d6
+	sub.w	d6,d1
+MkdC1b:	move.w	d1,EcWXr(a0)
+	move.w	d2,EcWTxr(a0)
+	move.w	#DiwStrt,(a1)+		;DiwStrt Y = 0
+	move.w	d1,(a1)
+	or.w	#$0100,(a1)+
+	move.w	#DiwStop,(a1)+		;DiwStop Y = 311
+	add.w	d2,d1
+	and.w	#$00ff,d1
+	or.w	#$3700,d1
+	move.w	d1,(a1)+
+* Calcul des valeurs modulo ---> D4/D5
+	move.w	EcTLigne(a0),d4
+	move.w	EcTLigne(a2),d5
+	move.w	EcWTxr(a0),d6
+	move.w	EcWTxr(a2),d7
+	lsr.w	#3,d6
+	lsr.w	#3,d7
+	btst	#7,EcCon0(a0)
+	bne.s	MkdC2
+	lsr.w	#1,d6
+	lsr.w	#1,d7
+MkdC2:	lsl.w	#1,d6
+	lsl.w	#1,d7
+	sub.w	d6,d4
+	bpl.s	MkdC2a
+	clr.w	d4
+MkdC2a:	sub.w	d7,d5
+	bpl.s	MkdC2b
+	clr.w	d5
+MkdC2b:
+* Calcul DDF Start/Stop---> D1/D2
+	move.w	EcVX(a0),d6
+	move.w	EcVX(a2),d7
+	move.w	d6,d1
+	and.w	#15,d1
+	bne.s	Mkd2d
+	and.w	#$FFF0,d7
+Mkd2d:	move.w	d7,d1
+	and.w	#15,d1
+	bne.s	Mkd2e
+	and.w	#$FFF0,d6
+Mkd2e:	move.w	EcWXr(a0),d1
+	move.w	EcWTxr(a0),d2
+	btst	#7,EcCon0(a0)
+	bne.s	MkdCH
+* Lowres
+	sub.w	#17,d1
+	lsr.w	#1,d1
+	and.w	#$FFF8,d1
+	lsr.w	#1,d2
+	subq.w	#8,d2
+	add.w	d1,d2
+	and.w	#15,d6
+	and.w	#15,d7
+	beq.s	MkdC3
+	subq.w	#8,d1
+	subq.w	#2,d4
+	subq.w	#2,d5
+	neg.w	d6
+	add.w	#16,d6
+	neg.w	d7
+	add.w	#16,d7
+	bra.s	MkdC3
+* Hires
+MkdCH:	sub.w	#9,d1
+	lsr.w	#1,d1
+	and.w	#$FFFC,d1
+	lsr.w	#1,d2
+	subq.w	#8,d2
+	add.w	d1,d2
+	and.w	#15,d6
+	and.w	#15,d7
+	lsr.w	#1,d6
+	lsr.w	#1,d7
+	beq.s	MkdC3
+	subq.w	#4,d1
+	subq.w	#4,d4
+	subq.w	#4,d5
+	neg.w	d6
+	addq.w	#8,d6
+	neg.w	d7
+	addq.w	#8,d7
+MkdC3:	lsl.w	#4,d7
+	or.w	d7,d6
+* Poke les valeurs
+	move.w	#DdfStrt,(a1)+
+	move.w	d1,(a1)+
+	move.w	#DdfStop,(a1)+
+	move.w	d2,(a1)+
+	move.w	#Bpl1Mod,(a1)+
+	move.w	d4,(a1)+
+	move.w	#Bpl2Mod,(a1)+
+	move.w	d5,(a1)+
+* Registres de controle
+	move.w	#BplCon0,(a1)+
+	move.w	EcCon0(a0),d1
+	or.w	T_InterInter(a5),d1
+	move.w	d1,(a1)+
+	move.w	#BplCon1,(a1)+
+	move.w	d6,(a1)+
+	move.w	#BplCon2,(a1)+
+	move.w	EcCon2(a0),(a1)+
+* Fini! Retourne au programme normal
+	move.l	(sp)+,a2
+	bra	FiniCop
+	ENDC
+
+******* Cree la ligne COPPER de fin de fenetre
+EcCopBa	move.w	d0,d2
+	sub.w	#EcYBase,d2
+	bsr	WaitD2
+	move.w	#DmaCon,(a1)+
+	move.w	#$0100,(a1)+
+	move.w	#Color00,(a1)+
+	move.w	T_EcFond(a5),(a1)+
+	rts
+
+******* Attente copper jusqu'a la ligne D2
+WaitD2:	cmp.w	#256,d2
+	bcs.s	WCop
+	tst.w	T_Cop255(a5)
+	bne.s	WCop
+	move.w	#$FFDF,(a1)+
+	move.w	#$FFFE,(a1)+
+	addq.w	#1,T_Cop255(a5)
+WCop:	lsl.w	#8,d2
+	or.w	#$03,d2
+	move.w	d2,(a1)+
+	move.w	#$FFFE,(a1)+
+	rts
+
+***********************************************************
+*	INITIALISATION GENERALE LISTE COPPERS
+*	D0= longueur des listes (physic et logic)
+CpInit:
+* Reserve la memoire pour les listes
+	move.l	d0,T_CopLong(a5)
+	bsr	ChipMm
+	beq	GFatal
+	move.l	d0,T_CopLogic(a5)
+	move.l	d0,a0
+	move.l	T_CopLong(a5),d0
+	bsr	ChipMm
+	beq	GFatal
+	move.l	d0,T_CopPhysic(a5)
+	move.l	d0,a1
+* Copper en ROUTE!
+	move.w	#-1,T_CopON(a5)
+* Marque les offsets des listes sprites au debut...
+HsCop	move.l	#$1003FFFE,(a0)+		Legere attente!
+	move.l	-4(a0),(a1)+
+	move.w	#$120,d0
+CpI1:	move.w	d0,(a0)+
+	move.w	d0,(a1)+
+	addq.w	#2,d0
+	addq.l	#2,a0
+	addq.l	#2,a1
+	cmp.w	#$13e,d0
+	bls.s	CpI1
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	LIBERATION DES LISTES COPPER
+CpEnd:	move.l	T_CopLogic(a5),d0
+	beq.s	CpE1
+	move.l	d0,a1
+	move.l	T_CopLong(a5),d0
+	bsr	FreeMm
+CpE1:	move.l	T_CopPhysic(a5),d0
+	beq.s	CpE2
+	move.l	d0,a1
+	move.l	T_CopLong(a5),d0
+	bsr	FreeMm
+CpE2:	rts
+
+
+***********************************************************
+*	GESTION DIRECTE COPPER
+***********************************************************
+	IFEQ	EZFlag
+******* COPPER ON/OFF
+TCopOn	tst.w	d1
+	bne.s	ICpo1
+* Copper OFF -> Hide!
+	tst.w	T_CopON(a5)
+	beq.s	ICpoX
+	clr.w	T_CopON(a5)
+	bsr	EcForceCop			* RAZ des pointeurs
+	clr.l	T_HsChange(a5)			* Plus de HS!
+	move.w	#-1,T_MouShow(a5)		* Plus de souris
+	move.l	T_CopLogic(a5),T_CopPos(a5)	* Init!
+	bsr	WVbl
+	bra	TCopSw
+* Copper ON -> Recalcule!
+ICpo1	tst.w	T_CopON(a5)
+	bne.s	ICpoX
+	bsr	WVbl
+	move.l	T_CopLogic(a5),a0		* Remet les listes sprites
+	move.l	a0,a1
+	bsr	HsCop
+	bsr	TCpSw
+	bsr	WVbl
+	move.l	T_CopLogic(a5),a0
+	move.l	a0,a1
+	bsr	HsCop
+	bsr	TCpSw
+	bsr	WVbl
+	move.w	#-1,T_CopON(a5)		* Remet!
+	bsr	HsAff
+	clr.w	T_MouShow(a5)
+	bsr	EcForceCop		* Recalcule les listes
+	bsr	WVbl
+ICpoX	moveq	#0,d0
+	rts
+
+******* COPSWAP
+TCopSw	tst.w	T_CopON(a5)
+	bne	CopEr1
+	move.l	T_CopPos(a5),a0
+	move.l	#$FFFFFFFE,(a0)
+TCpSw	move.l	T_CopLogic(a5),a0
+	move.l	T_CopPhysic(a5),a1
+	move.l	a1,T_CopLogic(a5)
+	move.l	a0,T_CopPhysic(a5)
+	move.l	a0,Circuits+Cop1Lc
+******* COPRESET
+TCopRes	tst.w	T_CopON(a5)
+	bne	CopEr1
+	move.l	T_CopLogic(a5),T_CopPos(a5)
+	clr.w	T_Cop255(a5)
+	moveq	#0,d0
+	rts
+
+******* COP WAIT x,y
+*	D1=	X
+*	D2=	Y
+*	D3=	Masque X
+*	D4=	Masque Y
+TCopWt	tst.w	T_CopON(a5)
+	bne	CopEr1
+	cmp.w	#313,d1
+	bcc	CopEr3
+	cmp.w	#313,d2
+	bcc	CopEr3
+	move.l	T_CopPos(a5),a1
+	cmp.w	#256,d2
+	bcs.s	CopW1
+	tst.w	T_Cop255(a5)
+	bne.s	CopW1
+	move.w	#$FFE1,(a1)+
+	move.w	#$FFFE,(a1)+
+	addq.w	#1,T_Cop255(a5)
+CopW1	lsl.w	#8,d2			* Position en X/Y
+	lsr.w	#1,d1
+	and.w	#$00FE,d1
+	or.w	#$01,d1
+	or.w	d2,d1
+	move.w	d1,(a1)+
+	lsl.w	#8,d4			* Masque en X/Y
+	lsr.w	#1,d3
+	and.w	#$00FE,d3
+	or.w	d4,d3
+	move.w	d3,(a1)+
+CopFin	move.l	a1,T_CopPos(a5)
+	sub.l	T_CopLogic(a5),a1
+	cmp.l	T_CopLong(a5),a1
+	bcc	CopEr2
+	moveq	#0,d0
+	rts
+CopEr1	moveq	#1,d0			* Copper not desactivated
+	rts
+CopEr2	moveq	#2,d0			* Copper list too long
+	rts
+CopEr3	moveq	#3,d0			* Copper param out of range
+	rts
+
+******* CMOVE ad,value
+*	D1=	AD
+*	D2=	Value
+TCopMv	tst.w	T_CopON(a5)
+	bne.s	CopEr1
+	move.l	T_CopPos(a5),a1
+	cmp.w	#512,d1
+	bcc.s	CopEr3
+	and.w	#$01FE,d1
+	move.w	d1,(a1)+
+	move.w	d2,(a1)+
+	bra	CopFin
+******* CMOVEL ad,value
+TCopMl	swap	d2
+	bsr	TCopMv
+	swap	d2
+	addq.w	#2,d1
+	bra	TCopMv
+******* CBASE
+TCopBs	move.l	T_CopLogic(a5),d1
+	moveq	#0,d0
+	rts
+	ENDC
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* DIVERS
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+;-----> Wait mouse key
+WaitMK:	bsr	MBout
+	cmp.w	#2,d1
+	bne.s	WaitMk
+Att:	bsr	MBout
+	cmp.w	#0,d1
+	bne.s	Att
+	rts
+
+;-----> OWN BLITTER
+OwnBlit:movem.l	d0/d1/a0/a1/a6,-(sp)
+	move.l	GfxBase(pc),a6
+	jsr	_LVOOwnBlitter(a6)		OwnBlitter
+	movem.l	(sp)+,d0/d1/a0/a1/a6
+;-----> Wait blitter fini
+BlitWait
+	move.l	a6,-(sp)
+	move.l	GfxBase(pc),a6
+	jsr	_LVOWaitBlit(a6)
+	move.l	(sp)+,a6
+	rts
+;-----> DISOWN BLITTER
+DOwnBlit
+	movem.l	d0/d1/a0/a1/a6,-(sp)
+	move.l	GfxBase(pc),a6
+	jsr	DisownBlitter(a6)
+	movem.l	(sp)+,d0/d1/a0/a1/a6
+	rts
+
+;-----> Position du faisceau
+PosVbl:	move.l 	$004(a6),d0
+	lsr.l 	#8,d0
+	and.w 	#$1FF,d0
+	rts
+
+******* RESERVATION MEMOIRE
+FastMm	movem.l	a0/d1,-(sp)
+	move.l	#CLEAR|PUBLIC,d1
+	bsr	WMemReserve
+	move.l	a0,d0
+	movem.l	(sp)+,a0/d1
+	rts
+FastMm2	movem.l	a0/d1,-(sp)
+	move.l	#PUBLIC,d1
+	bsr	WMemReserve
+	move.l	a0,d0
+	movem.l	(sp)+,a0/d1
+	rts
+ChipMm	movem.l	a0/d1,-(sp)
+	move.l	#CLEAR|PUBLIC|CHIP,d1
+	bsr	WMemReserve
+	move.l	a0,d0
+	movem.l	(sp)+,a0/d1
+	rts
+ChipMm2	movem.l	a0/d1,-(sp)
+	move.l	#PUBLIC|CHIP,d1
+	bsr	WMemReserve
+	move.l	a0,d0
+	movem.l	(sp)+,a0/d1
+	rts
+FreeMm	bra	WMemFree
+
+; Mini CHRGET: (a1)--->d0
+miniget:move.b	(a1)+,d0     ;beq: fini
+        beq.s 	mini5           ;bmi: lettre
+        cmp.b 	#32,d0        ;bne: chiffre
+        beq.s 	miniget
+        cmp.b 	#"0",d0
+        blt.s 	mini2
+        cmp.b 	#"9",d0
+        bhi.s 	mini2
+        moveq 	#1,d7
+        rts
+mini2:  cmp.b 	#"a",d0       ;transforme en majuscules
+        bcs.s 	mini3
+        sub.b 	#32,d0
+mini3:  moveq 	#-1,d7
+mini5:  rts
+
+; Prend un chiffre hexa--> D1
+Gethexa:clr.w	d1
+	bsr	MiniGet
+	beq.s	GhX
+	move.b	d0,d1
+	sub.b	#"0",d1
+	cmp.b	#9,d1
+	bls.s	Gh1
+	sub.b	#7,d1
+Gh1:	cmp.b	#15,d1
+	bhi.s	GhX
+	moveq	#1,d0
+	rts
+GhX:	moveq	#0,d0
+	rts
+
+;Conversion dec/hexa a1 -> chiffre en d1
+dechexa:clr 	d1         	; derniere lettre en D0
+        clr 	d2
+        bsr 	miniget
+        beq.s 	Mdh5
+        bpl.s 	Mdh2
+        cmp.b 	#"-",d0
+        bne.s 	Mdh5
+        moveq 	#1,d2
+Mdh0:   bsr 	miniget
+        beq.s 	Mdh3
+        bmi.s 	Mdh3
+Mdh2:   mulu 	#10,d1
+        sub.b 	#48,d0
+        and 	#$00ff,d0
+        add 	d0,d1
+        bra.s 	Mdh0
+Mdh3:   tst 	d2
+        beq.s 	Mdh4
+        neg 	d1
+Mdh4:   clr 	d2              ;beq: un chiffre
+        rts
+Mdh5:   moveq 	#1,d2         	;bne: pas de chiffre
+        rts
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* AMAL
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+******* CHRGET pour les animations
+* 	SAUTE LES MINUSCULES! GENIAL!
+AniChr	moveq	#0,d0
+AniCh0:	move.b	(a0)+,d0
+	beq.s	AnChX
+	cmp.b	#33,d0
+	bcs.s	AniCh1
+	cmp.b	#"Z",d0
+	bhi.s	AniCh1
+AnChX:	rts
+AniCh1:	cmp.b	#"|",d0
+	beq.s	AnChX
+	cmp.b	#"!",d0
+	beq.s	AnChX
+	cmp.b	#27,d0
+	bne.s	AniCh0
+	addq.l	#2,a0
+	bra.s	AniCh0
+
+******* Conversion DECIMAL/HEXA-> HEXA
+AniLong	moveq	#1,d3
+	bsr	AniChr
+	cmp.b	#"-",d0
+	bne.s	Adh0
+	subq.w	#1,d3
+	bsr	AniChr
+Adh0:	cmp.b	#"$",d0			* Hexa????
+	beq.s	Adhh0
+	sub.b	#"0",d0
+	bcs	AniE1
+	cmp.b	#10,d0
+	bcc	AniE1
+	move.l	d0,d1
+	subq.w	#1,d3
+Adh1:   bsr 	AniChr
+	sub.b	#"0",d0
+	bcs.s	Adh2
+	cmp.b 	#10,d0
+        bcc.s 	Adh2
+	add.l	d1,d1
+	move.l	d1,d2
+	lsl.l	#2,d1
+	add.l	d2,d1
+	add.l	d0,d1
+	bra.s	Adh1
+Adh2:   subq.l 	#1,a0
+        tst 	d3
+	beq.s	AdhX
+	bpl	AniE1
+	neg.l	d1
+AdhX:	move.l	d1,d0
+	rts
+* En Hexa!
+Adhh0	bsr	AniChr
+	bsr	Tohh
+	bmi	AniE1
+	move.l	d0,d1
+	subq.w	#1,d3
+Adhh1:  bsr 	AniChr
+	bsr	Tohh
+	bmi.s	Adh2
+	lsl.l	#4,d1
+	add.l	d0,d1
+	bra.s	Adhh1
+Tohh	sub.b	#"0",d0
+	bcs.s	TohhE
+	cmp.b	#10,d0
+	bcs.s	TohhX
+	sub.b	#"A"-"0",d0
+	bcs.s	TohhE
+	cmp.b	#6,d0
+	bcc.s	TohhE
+	add.b	#10,d0
+TohhX	tst.b	d0
+	rts
+TohhE	moveq	#-1,d0
+	rts
+
+	IFEQ	EZFlag
+***************************** FORMAT D'UNE SEQUENCE
+NbInterne:	equ 10
+AmPrev:		equ 0
+AmNext:		equ 4
+AmLong:		equ 8
+AmNb:		equ 10
+AmPos:		equ 12
+AmAuto:		equ 16
+AmAct:		equ 20
+AmBit:		equ 24
+AmCpt:		equ 26
+AmDeltX:	equ 28
+AmDeltY:	equ 32
+AmVirgX:	equ 36
+AmVirgY:	equ 38
+AmFin:		equ 40
+AmAJsr:		equ 44
+AmAAd:		equ 48
+AmAALoop:	equ 52
+AmACLoop:	equ 56
+AmACpt:		equ 58
+AmIRegs:	equ 60
+AmStart:	equ 60+NbInterne*2
+
+***********************************************************
+*	TOKENISATEUR AMAL
+******* ENTREE
+*	D3==> Type 0=Anim / 1= Move / 2= Move X / 3= Move Y
+*	A1==> Chaine
+*	A2/D2==> Buffer tokenisation
+*	D1==> Buffer variables
+******* SORTIE
+*	D0==> ERREUR?
+*	A0==> Longueur chaine
+TokAMAL:
+********
+	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	sp,T_AMALSp(a5)
+	move.l	d7,-(sp)
+	move.l	d7,T_AmBank(a5)
+
+	move.l	a1,a0			* Debut chaine!
+	move.l	d1,a1
+	move.l	a2,d7			* Bas du buffer
+	lea	0(a2,d2.w),a5		* Fin du buffer
+	moveq	#0,d6
+	move.l	d6,a6
+	moveq	#0,d5			* Pas d'autotest
+	moveq	#0,d4			* Pas d'erreur
+* Init de la table des labels
+	move.l	a1,a3
+	moveq	#26/2,d0
+	moveq	#-1,d1
+InA0:	move.l	d1,(a3)+
+	dbra	d0,InA0
+* Table des FOR/NEXT
+	lea	26*2+26*4(a1),a3	* 256 Octets de plus!
+	move.l	#-1,(a3)+
+	lea	AmJumps(pc),a4		* Table des decalages
+* Stos type?
+	tst.w	d3
+	bne	AniStos
+
+* Boucle d'interpretation
+AniLoop	cmp.l	a5,a2
+	bcc	AniTrop
+	bsr	AniChr
+	beq	AnPasse2
+	move.w	d0,d1
+	bsr	AniChr
+	cmp.b	#":",d0
+	beq	AnLab
+	subq.l	#1,a0
+	cmp.b	#"J",d1
+	beq	AnJmp
+	cmp.b	#"L",d1
+	beq	AnLet
+	cmp.b	#"M",d1
+	beq	AnMove
+	cmp.b	#"F",d1
+	beq	AnFor
+	cmp.b	#"N",d1
+	beq	AnNext
+	cmp.b	#"I",d1
+	beq	AnIf
+	cmp.b	#"W",d1
+	beq	AnWait
+	cmp.b	#"P",d1
+	beq	AnPose
+	cmp.b	#"E",d1
+	beq	AnStop
+	cmp.b	#"A",d1
+	beq	AnAni
+	cmp.b	#"D",d1
+	beq	AnDirect
+	cmp.b	#"X",d1
+	beq	AnExit
+	cmp.b 	#")",d1
+	beq	AnAutOf
+	bra	AniLoop
+******* Trop long! Marque et boucle!
+AniTrop:sub.l	d7,a2
+	add.l	a2,a6
+	move.l	d7,a2
+	bra	AniLoop
+
+******* AUto test
+AnAutOn:addq.l	#1,a0
+	bsr	AniChr
+	tst.w	d5
+	bne	AniE5
+	cmp.b	#"(",d0
+	bne	AniE1
+	bsr	AniChr
+	cmp.b	#")",d0
+	beq.s	AnAu1
+	subq.l	#1,a0
+	move.w	$60/2(a4),(a2)+
+	move.l	a2,d5
+	sub.l	d7,d5
+	swap	d5
+	move.w	#1,d5
+	clr.w	(a2)+
+	bra	AniLoop
+AnAu1:	move.w	$64/2(a4),(a2)+
+	bra	AniLoop
+******* FIN AUTOTEST / EXIT
+AnExit:	tst.w	d5
+	beq	AniE6
+	move.w	$68/2(a4),(a2)+
+	clr.w	(a2)+
+	bra	AniLoop
+AnAutOf	tst.w	d5
+	beq	AniE6
+	move.w	$68/2(a4),(a2)+
+	move.l	a2,d0
+	sub.l	d7,d0
+	swap	d5
+	sub.w	d5,d0
+	move.l	a0,-(sp)
+	move.l	d7,a0
+	move.w	d0,0(a0,d5.w)
+	move.l	(sp)+,a0
+	moveq	#0,d5
+	bra	AniLoop
+******* DIRECT label EXTERNE!
+AnDirect:
+	tst.w	d5
+	beq	AniE6
+	move.w	$6C/2(a4),(a2)+
+	bsr	AniChr
+	sub.b	#"A",d0
+	bcs	AniE1
+	cmp.b	#26,d0
+	bhi	AniE1
+	lsl.w	#1,d0
+	move.l	a2,d1
+	sub.l	d7,d1
+	move.w	d1,26*2(a1,d6.w)
+	move.w	d0,26*2+2(a1,d6.w)
+	addq.w	#4,d6
+	move.w	#-1,26*2(a1,d6.w)
+	clr.w	(a2)+
+	bra	AniLoop
+
+******* Un LABEL!
+AnLab:	sub.b	#"A",d1
+	bcs	AniE1
+	cmp.b	#26,d1
+	bhi	AniE1
+	lsl.w 	#1,d1
+	tst.w	0(a1,d1.w)
+	bpl	AniE8
+	move.l	a2,d0
+	sub.l	d7,d0
+	or.w	d5,d0
+	move.w	d0,0(a1,d1.w)
+	bra	AniLoop
+******* Un BRANCHEMENT
+AnJmp:	move.w	$1C/2(a4),(a2)+
+	bsr	AniChr
+	sub.b	#"A",d0
+	bcs	AniE1
+	cmp.b	#26,d0
+	bhi	AniE1
+	lsl.w	#1,d0
+	move.l	a2,d1
+	sub.l	d7,d1
+	or.w	d5,d1
+	move.w	d1,26*2(a1,d6.w)
+	move.w	d0,26*2+2(a1,d6.w)
+	addq.w	#4,d6
+	move.w	#-1,26*2(a1,d6.w)
+	clr.w	(a2)+
+	bra	AniLoop
+
+*******	For RA=deb To end
+AnFor:	tst.w	d5
+	bne	AniE9
+	move.w	$28/2(a4),(a2)+
+	bsr	AniReg
+	beq	AniE1
+	cmp.w	#$000C/2,d1
+	bne	AniE1
+	swap	d2
+	move.w	d2,-(sp)		* Poke le debut
+	bsr	AniChr
+	cmp.b	#"=",d0
+	bne	AniE1
+	bsr	AniExp
+	bsr	AniChr			* Poke le TO
+	cmp.b	#"T",d0
+	bne	AniE1
+	bsr	AniExp
+	move.l	a2,(a3)+
+	move.w	(sp)+,d2		* Poke la variable
+	move.w	d2,(a3)+
+	move.w	d2,(a2)+
+	clr.w	(a2)+			* Place pour le TO!
+	bra	AniLoop
+******* NEXT RA
+AnNext:	tst.w	d5
+	bne	AniE9
+	move.w	$2C/2(a4),(a2)+
+	bsr	AniReg
+	beq	AniE1
+	cmp.w	#$000C/2,d1
+	bne	AniE1
+	swap	d2
+	cmp.w	-(a3),d2
+	bne	AniE2
+	move.l	-(a3),d0
+	sub.l	a2,d0
+	move.w	d0,(a2)+
+	bra	AniLoop
+
+******* LET
+AnLet:	move.w	$20/2(a4),(a2)+
+	bsr	AniReg
+	beq	AniE1
+	add.w	#$0030/2,d1
+	movem.l	d1-d3,-(sp)
+	bsr	AniChr
+	cmp.b	#"=",d0
+	bne	AniE1
+	bsr	AniExp
+	movem.l	(sp)+,d1-d3
+	move.w	0(a4,d1.w),(a2)
+	move.l	d2,2(a2)
+	add.w	d3,a2
+	bra	AniLoop
+
+******* TESTS
+AnIf:	move.w	$24/2(a4),(a2)+
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#"J",d0
+	beq	AnJmp
+	cmp.b	#"D",d0
+	beq	AnDirect
+	cmp.b	#"X",d0
+	beq	AnExit
+	bra	AniE1
+
+******* MOVE DeltaX,DeltaY,Nbstep
+AnMove:	tst.w	d5
+	bne	AniE9
+	move.w	$18/2(a4),(a2)+
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniExp
+	bra	AniLoop
+
+
+******* PAUSE
+AnPose:	cmp.b 	#"L",(a0)
+	beq.s	AnPlay
+	move.w	$0014/2(a4),(a2)+
+	bra	AniLoop
+******* END
+AnStop:	move.w	$0000/2(a4),(a2)+
+	bra	AniLoop
+******* WAIT
+AnWait:	tst.w	d5
+	bne	AniE9
+	move.w	$0010/2(a4),(a2)+
+	bra	AniLoop
+******* PLay Exp
+AnPlay:	addq.l	#1,a0
+	tst.l	(sp)
+	beq	AniE10
+	move.w	$00C0/2(a4),(a2)+
+	bsr	AniExp
+	bra	AniLoop
+******* Anim
+AnAni:	cmp.b	#"U",(a0)
+	beq	AnAutOn
+	move.w	$CC/2(a4),(a2)+
+	bsr	AniExp
+	move.l	a2,-(sp)
+	clr.w	(a2)+
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniChr
+	cmp.b	#"(",d0
+	bne	AniE1
+AnAni1	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#")",d0
+	bne	AniE1
+	bsr	AniChr
+	cmp.b	#"(",d0
+	beq.s	AnAni1
+	subq.l	#1,a0
+	clr.w	(a2)+
+	move.l	(sp),d0
+	move.l	a2,(sp)
+	exg	d0,a2
+	sub.l	a2,d0
+	move.w	d0,(a2)
+	move.l	(sp)+,a2
+	bra	AniLoop
+
+***********************************************************
+*	COMPATIBLE STOS!
+AniStos	move.l	a0,-(sp)
+	move.l	(sp)+,a0
+	cmp.w	#1,d3
+	bne.s	AnMve
+******* ANIMATION!
+	move.w	$04/2(a4),(a2)+
+	bsr	StChr
+	cmp.b	#"(",d0
+	bne	AniE1
+AnSt0	bsr	AniLong
+	move.w	d0,(a2)+
+	bsr	StChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniLong
+	move.w	d0,(a2)+
+	bmi	AniE1
+	bsr	StChr
+	cmp.b	#")",d0
+	bne	AniE1
+AnSt1:	bsr	StChr
+	beq.s	AnSt2
+	cmp.b	#"L",d0
+	beq.s	AnSt3
+	cmp.b	#"(",d0
+	beq.s	AnSt0
+	bra	AniE1
+AnSt2	move.w	#-1,(a2)+
+	bra	AnPasse2
+AnSt3	move.w	#-2,(a2)+
+	bra	AnPasse2
+* Mouvement X ou Y!
+AnMve:	move.w	$08/2(a4),d0
+	cmp.w	#2,d3
+	beq.s	AnMv1
+	move.w	$0C/2(a4),d0
+AnMv1	move.w	d0,(a2)+
+	move.l	a2,a3
+	move.w	#$8000,(a2)+		* Debut
+	clr.w	(a2)+			* Loop/End
+	move.w	#$8000,(a2)+		* End
+	bsr	StChr
+	beq	AniE1
+	cmp.b	#"(",d0
+	beq.s	AnMv2
+	subq.l	#1,a0
+	bsr	AniLong
+	move.w	d0,(a3)
+	bsr	StChr
+	cmp.b	#"(",d0
+	bne	AniE1
+AnMv2	bsr	AniLong
+	move.w	d0,(a2)+
+	ble	AniE1
+	bsr	StChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniLong
+	move.w	d0,(a2)+
+	bsr	StChr
+	cmp.b	#",",d0
+	bne	AniE1
+	bsr	AniLong
+	move.w	d0,(a2)+
+	bmi	AniE1
+	bsr	StChr
+	cmp.b	#")",d0
+	bne	AniE1
+	bsr	StChr
+	cmp.b	#"(",d0
+	beq.s	AnMv2
+	clr.w	(a2)+
+	tst.b	d0
+	beq	AnPasse2
+	cmp.b	#"L",d0
+	bne.s	AnMv3
+	move.w	#-1,2(a3)
+	bra.s	AnMv4
+AnMv3	cmp.b	#"E",d0
+	bne	AniE1
+AnMv4	bsr	StChr
+	beq	AnPasse2
+	subq.l	#1,a0
+	bsr	AniLong
+	move.w	d0,4(a3)
+	bra	AnPasse2
+******* Chrget pour stos type!
+StChr:	moveq	#0,d0
+StChr1	move.b	(a0)+,d0
+	beq.s	StChr2
+	cmp.b	#32,d0
+	beq.s	StChr1
+	cmp.b	#"a",d0
+	bcs.s	StChr2
+	cmp.b	#"z",d0
+	bhi.s	StChr2
+	sub.b	#32,d0
+StChr2	rts
+
+***********************************************************
+* 	DEUXIEME PASSE: affecte les labels!
+AnPasse2:
+	move.w	$00/2(a4),(a2)+
+	sub.l	d7,a2
+	exg.l	d7,a2
+	lea	26*2(a1),a0
+	moveq	#0,d0
+AnLoop2	move.w	(a0)+,d0
+	bmi.s	AniX
+	move.w	d0,d2
+	and.w	#$0001,d2
+	and.w	#$FFFE,d0
+	move.w	(a0)+,d1
+	move.w	0(a1,d1.w),d1
+	bmi	Aniee3
+	move.w	d1,d3
+	and.w	#$0001,d3
+	and.w	#$FFFE,d1
+	cmp.w	d2,d3
+	bne	Aniee4
+	sub.w	d0,d1
+	move.w	d1,0(a2,d0.w)
+	bra.s	AnLoop2
+******* Tout est fini!
+AniX:	addq.l	#4,sp
+	cmp.l	#0,a6
+	bne.s	AniX2
+	move.l	d7,a0
+	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#0,d0
+	rts
+AniX2:	move.l	a6,a0
+	add.l	d7,a0
+	movem.l	(sp)+,d1-d7/a1-a6	* -1-> Pas assez de place!
+	moveq	#-1,d0			* A0= longueur necessaire!
+	rts
+Aniee3:	lea	0(a2,d0.w),a0
+	bra.s	Anie3
+Aniee4:	lea	0(a2,d0.w),a0
+	bra.s	Anie4
+	ENDC
+
+******* ERREUR!
+AniE10:	addq.w	#1,d4			* PLay only with bank
+AniE9:	addq.w	#1,d4			* Not authorised during autotest
+AniE8:	addq.w	#1,d4			* Label already def
+AniE7:	addq.w	#1,d4			* String too long
+AniE6:	addq.w	#1,d4			* Autotest not opened
+AniE5:	addq.w	#1,d4			* Autotest already on
+AniE4:	addq.w	#1,d4			* Jump To/Within AUTOTEST
+AniE3:	addq.w	#1,d4			* Label not defined
+AniE2:	addq.w	#1,d4			* Next /For
+AniE1:	move.l	W_Base(pc),a5
+	move.l	T_AMALSp(a5),d1		* Vient de RAINBOW?
+	beq	RainEE
+	move.l	d1,sp
+	addq.w	#1,d4			* Syntax error
+	move.l	d4,d0
+	movem.l	(sp)+,d1-d7/a1-a6
+	sub.l	a1,a0			* Offset de l'erreur
+	tst.w	d0
+	rts
+
+	IFEQ	EZFlag
+
+***********************************************************
+*	ROUTINES INTERPRETATION
+******* Prend X/Y/A/ ou REG
+AniReg:	bsr	AniChr
+AniR:	moveq	#$00/2,d1
+	cmp.b	#"A",d0
+	beq.s	AniRx
+	moveq	#$04/2,d1
+	cmp.b	#"X",d0
+	beq.s	AniRx
+	moveq	#$08/2,d1
+	cmp.b	#"Y",d0
+	beq.s	AniRx
+	cmp.b	#"R",d0
+	bne.s	AniRe
+* R
+	moveq	#$0C/2,d1
+	bsr	AniChr
+	sub.b	#"0",d0
+	bcs	AniRe
+	cmp.b	#NbInterne,d0
+	bcc.s	AniR0
+	addq.w	#1,d0
+	neg.w	d0
+	bra.s	AniR1
+AniR0:	sub.b	#"A"-"0",d0
+	bcs	AniRe
+	cmp.b	#26,d0
+	bhi	AniRe
+AniR1:	lsl.w	#1,d0
+	move.w	d0,d2
+	swap 	d2
+	moveq	#4,d3
+	rts
+* Autres
+AniRx:	moveq	#2,d3
+	rts
+* Pas un registre
+AniRe:	subq.l	#1,a0
+	moveq	#0,d3
+	rts
+
+******* Operande!
+AniOpe:	bsr	AniChr
+	cmp.b	#"K",d0
+	beq.s	AniMou
+	cmp.b	#"J",d0
+	beq.s	AniJoy
+	cmp.b	#"O",d0
+	beq.s	AniOn
+	cmp.b	#"S",d0
+	beq	AniSCol
+	cmp.b 	#"B",d0
+	beq	AniBCol
+	cmp.b 	#"C",d0
+	beq	AniCol
+	cmp.b	#"Z",d0
+	beq	AniHaz
+	cmp.b	#"V",d0
+	beq	AniVu
+	cmp.b	#"-",d0
+	beq.s	AniOc
+	cmp.b	#"$",d0
+	beq.s	AniOc
+	cmp.b	#"0",d0
+	bcs.s	AniO1
+	cmp.b	#"9",d0
+	bhi.s	AniO1
+* Chiffre!
+AniOc:	subq.l	#1,a0
+	bsr	AniLong
+	move.w	$70/2(a4),(a2)+
+	move.w	d0,(a2)+
+	rts
+* =On
+AniOn:	move.w	$50/2(a4),(a2)+
+	rts
+* Saisie du joystick!
+AniJoy:	bsr	AniChr
+	move.w	$80/2(a4),d1
+	cmp.b	#"0",d0
+	beq.s	AniO0
+	move.w	$84/2(a4),d1
+	cmp.b	#"1",d0
+	bne	AniE1
+AniO0:	move.w	d1,(a2)+
+	rts
+* Saisie touches souris!
+AniMou:	bsr	AniChr
+	move.w	$88/2(a4),d1
+	cmp.b	#"1",d0
+	beq.s	AniO0
+	move.w	$8C/2(a4),d1
+	cmp.b	#"2",d0
+	beq.s	AniO0
+	bra	AniE1
+* Autres registres
+AniO1:	bsr	AniR
+	beq	AniE1
+	cmp.w	#$04/2,d1
+	beq.s	AniO4
+	cmp.w	#$08/2,d1
+	beq.s	AniO4
+* Un registre normal
+AniO2:	add.w	#$0040/2,d1
+	bra	AniO5
+* X-Y  MOUSE/SCREEN/HARD
+AniO4:	bsr	AniChr
+	subq.l	#1,a0
+	cmp.b	#"S",d0
+	beq.s	AniO4a
+	cmp.b	#"H",d0
+	beq.s	AniO4b
+	cmp.b	#"M",d0
+	bne.s	AniO2
+	add.w	#$0070/2,d1
+	addq.l	#1,a0
+	bra	AniO5
+AniO4a:	add.w	#$0050/2,d1
+	bra.s	AniO4c
+AniO4b	add.w	#$00C0/2,d1
+AniO4c:	addq.l	#1,a0
+	move.w	0(a4,d1.w),(a2)+
+AniPp2:	bsr	AniChr
+	cmp.b	#"(",d0
+	bne	AniRe
+	bra.s	AniP2
+* = Col(n)
+AniCol:	move.w	$005C/2(a4),(a2)+
+AniPp1:	bsr	AniChr
+	cmp.b	#"(",d0
+	bne	AniRe
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#")",d0
+	bne	AniRe
+	rts
+* = Spr Col(n,x,y)
+AniSCol	move.w	$00B8/2(a4),(a2)+
+	bra.s	AniCo
+* = Bob Col(n,x,y)
+AniBCol:move.w	$00BC/2(a4),(a2)+
+AniCo:	bsr	AniChr
+	cmp.b	#"C",d0
+	bne	AniRe
+AniPp3:	bsr	AniChr
+	cmp.b	#"(",d0
+	bne	AniRe
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	AniRe
+AniP2:	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#",",d0
+	bne	AniRe
+	bsr	AniExp
+	bsr	AniChr
+	cmp.b	#")",d0
+	bne	AniRe
+	rts
+* Poke!
+AniO5:	move.w	0(a4,d1.w),(a2)
+	move.l	d2,2(a2)
+	add.w	d3,a2
+	rts
+* =H(xx)
+AniHaz	move.w	$D0/2(a4),(a2)+
+	bra	AniPp1
+* =V(xx)
+AniVu	move.w	$D4/2(a4),(a2)+
+	bra	AniPp1
+
+******* EXPRESSION
+AniExp:	bsr	AniOpe
+AniE0:	bsr	AniChr
+	moveq	#$0090/2,d1
+	cmp.b	#"=",d0
+	beq.s	AniEx1
+	addq.w	#4,d1
+	cmp.b	#"<",d0
+	bne.s	AniEx0
+	cmp.b	#">",(a0)
+	bne.s	AniEx1
+	subq.w	#2,d1
+	addq.l	#1,a0
+	bra.s	AniEx1
+AniEx0:	addq.w	#2,d1
+	cmp.b	#">",d0
+	beq.s	AniEx1
+	addq.w	#2,d1
+	cmp.b	#"+",d0
+	beq.s	AniEx1
+	addq.w	#2,d1
+	cmp.b	#"-",d0
+	beq.s	AniEx1
+	addq.w	#2,d1
+	cmp.b	#"/",d0
+	beq.s	AniEx1
+	addq.w	#2,d1
+	cmp.b	#"*",d0
+	beq.s	AniEx1
+	addq.w	#2,d1
+	cmp.b	#"|",d0
+	beq.s	AniEx1
+	addq.w	#2,d1
+	cmp.b	#"&",d0
+	beq.s	AniEx1
+	cmp.b	#"!",d0
+	beq.s	AniXor
+* Fin de l'expression
+	move.w	$7c/2(a4),(a2)+
+	subq.l	#1,a0
+	rts
+* Special pour XOR
+AniXor	moveq	#$00D8/2,d1
+* Cherche le deuxieme operande
+AniEx1	move.w	0(a4,d1.w),-(sp)
+	bsr	AniOpe
+	move.w	(sp)+,(a2)+
+	bra	AniE0
+
+***********************************************************
+*	INITIALISATION AMAL
+AMALInit:
+********
+	clr.l	T_AmDeb(a5)
+	clr.l	T_AmChaine(a5)
+	move.w	#$1234,T_AmSeed(a5)
+***********************************************************
+*	CLEAR AMAL
+ClrAMAL:
+*******
+	bsr	DAllAMAL
+	lea	T_AmRegs(a5),a0
+	moveq	#26/2-1,d0
+ClAm:	clr.l	(a0)+
+	dbra	d0,ClAm
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	SYNCHRO: D1= on/off
+SyncO:	move.w	d1,T_SyncOff(a5)
+	moveq	#0,d0
+	rts
+Sync:	tst	T_SyncOff(a5)
+	beq.s	Sync1
+	movem.l	d2-d7/a2-a6,-(sp)
+	bsr	Animeur
+	movem.l	(sp)+,d2-d7/a2-a6
+Sync1:	rts
+
+***********************************************************
+*	RAMENE L'ADRESSE UN REGISTRE
+*	D1= -1-> generaux / # du mouvement
+*	D2= type du mouvement
+*	D3= numero du registre
+RegAMAL:
+*******
+	lea	T_AmRegs(a5),a0
+	lsl.w	#1,d3
+	tst.w	d1
+	bmi.s	RgA3
+* Registres internes
+	move.l	T_AmDeb(a5),d0
+	beq.s	RgA1
+	lsl.w	#2,d1
+	add.w	d2,d1
+RgA0	move.l	d0,a1
+	cmp.w	AmNb(a1),d1
+	beq.s	RgA2
+	bcs.s	RgA1
+	move.l	AMNext(a1),d0
+	bne.s	RgA0
+RgA1	moveq	#-1,d0
+	rts
+RgA2:	lea	AmIRegs+NbInterne*2-2(a1),a0
+	neg.w	d3
+RgA3:	add.w	d3,a0
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	AMAL PLAY
+*	D1= Debut
+*	D2= Fin
+*	D3= Speed (R0)
+*	D4= Direction (R1)
+SetPlay:
+*******
+	move.l	T_AmDeb(a5),d0
+	beq.s	StPx
+	lsl.w	#2,d1
+	lsl.w	#2,d2
+	move.l	#EntNul,d5
+StP1:	move.l	d0,a1
+	move.w	AmNb(a1),d0
+	cmp.w	d2,d0
+	bhi.s	StPx
+	cmp.w	d1,d0
+	bcs.s	StP3
+	cmp.l	d5,d3
+	beq.s	StP2
+	move.w	d3,AmIRegs+NbInterne*2-2(a1)
+StP2:	cmp.l	d5,d4
+	beq.s	StP3
+	move.w	d4,AmIRegs+NbInterne*2-4(a1)
+StP3:	move.l	AMNext(a1),d0
+	bne.s	StP1
+StPx:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	CREATION / REMPLACEMENT D'UNE ANIMATION
+*	A1=	Chaine a tokeniser
+*	A2/D2=	Buffer de tokenisation
+*	D1=	Buffer variables
+*	D3= 	0-> Amal / 1-> Anim / 2-> X / 3-> Y
+*	D4= 	0-> Sprite / 1-> Bobs / 2-> Ecrans / 3-> Adresse
+*	D5= 	# De l'objet
+*	D6= 	# du Canal
+CreAMAL:
+********
+******* Va tokeniser!
+	bsr	TokAMAL
+	tst.w	d0
+	beq.s	CreA0
+	bpl	CreAmE
+* Pas assez de place! Reserve et RE-tokenise!
+	add.w	#AmStart+4,a0
+	move.l	a0,d0
+	move.l	d0,d2
+	bsr	FastMm
+	beq	CreME
+	move.l	d0,a2
+	move.w	d2,AmLong(a2)
+	sub.l	#AmStart+4,d2
+	lea	AmStart(a2),a2
+	bsr	TokAMAL
+	lea	-AmStart(a2),a2
+	sub.l	a0,a0
+* Ok!
+CreA0:	move.l	a0,d1
+	move.w	d6,d2
+
+******* Insere dans la liste
+	clr.l	T_AmChaine(a5)
+	clr.l	T_AmFreeze(a5)
+******* ID complet!
+	lsl.w	#2,d2
+	add.w	d3,d2
+
+******* Efface l'ancienne - SI PRESENT -
+	move.l	a1,a0
+	move.l	T_AmDeb(a5),d0
+	beq.s	CreAm1
+CreAm0:	move.l	d0,a1
+	cmp.w	AmNb(a1),d2
+	beq.s	CreAm2
+	bcs.s	CreAm5
+	move.l	AmNext(a1),d0
+	bne.s	CreAm0
+* Met a la fin!
+	bsr	ResAMAL
+	bne	CreAmE
+	move.l	a1,AmPrev(a0)
+	move.l	a0,AmNext(a1)
+	bra.s	CreAm10
+* Au tout debut
+CreAm1:	bsr	ResAMAL
+	bne	CreAmE
+	move.l	a0,T_AmDeb(a5)
+	bra.s	CreAm10
+* Remplace l'ancienne chaine
+CreAm2:	move.l	AmPrev(a1),d6
+	move.l	AmNext(a1),d7
+	moveq	#0,d0
+	move.w	AmLong(a1),d0
+	bsr	FreeMm
+	bsr	ResAMAL
+	move.w	d0,-(sp)
+	move.l	d6,AmPrev(a0)
+	move.l	d7,AmNext(a0)
+	beq.s	CreAm3
+	move.l	d7,a1
+	move.l	a0,AmPrev(a1)
+CreAm3:	tst.l	d6
+	bne.s	CreAm4
+	move.l	a0,T_AmDeb(a5)
+	bra.s	CreAm4a
+CreAm4:	move.l	d6,a1
+	move.l	a0,AmNext(a1)
+CreAm4a	move.w	(sp)+,d0
+	beq.s	CreAm10
+	bra.s	CreAmE
+* Insere la nouvelle
+CreAm5:	bsr	ResAMAL
+	bne	CreAmE
+	move.l	AmPrev(a1),d0
+	move.l	a0,AmPrev(a1)
+	move.l	d0,AmPrev(a0)
+	bne.s	CreAm6
+	move.l	T_AmDeb(a5),d3
+	move.l	a0,T_AmDeb(a5)
+	bra.s	CreAm7
+CreAm6:	move.l	d0,a2
+	move.l	AmNext(a2),d3
+	move.l	a0,AmNext(a2)
+CreAm7:	move.l	d3,AmNext(a0)
+******* Pas d'erreur!
+CreAm10	move.l	T_AmDeb(a5),T_AmChaine(a5)
+	moveq	#0,d0
+	rts
+******* Erreur!
+CreAmE:	tst.w	d0
+	rts
+CreME:	moveq	#-1,d0
+	bra.s	CreAME
+
+******* CREATION DE LA TABLE!
+ResAMAL:tst.l	d1
+	beq.s	ResDeja
+* Reserve la memoire pour la table, et copie le buffer!
+	move.l	a2,a0
+	add.w	#AmStart+4,d1
+	moveq	#0,d0
+	move.w	d1,d0
+	bsr	FastMm
+	beq	ResAErr
+	move.l	d0,a2
+	move.w	d1,AmLong(a2)
+	move.w	d2,AmNb(a2)
+	move.l	a1,-(sp)		* Copie la table
+	lea	AmStart(a2),a1
+	move.l	a1,AmPos(a2)
+	sub.w	#AmStart+4,d1
+	lsr.w	#2,d1
+ResAc:	move.l	(a0)+,(a1)+
+	dbra	d1,ResAc
+	move.l	(sp)+,a1
+	bra.s	ResPas
+* Table deja reservee!
+ResDeja	move.w	d2,AmNb(a2)
+	lea	AmStart(a2),a0
+	move.l	a0,AmPos(a2)
+
+* Calcule l'adresse ACT
+ResPas:	move.l	a2,a0
+	cmp.w	#6,d4
+	beq	ResRain
+	cmp.w	#5,d4
+	beq	ResAdd
+	subq.w	#1,d4
+	bmi.s	ResAs
+	beq.s	ResAb
+
+******* Creation ECRANS
+	lsl.w	#2,d5
+	lea	T_EcAdr(a5),a2
+	move.l	0(a2,d5.w),d5
+	beq.s	ResAee
+	move.l	d5,a2
+	subq.w	#2,d4
+	bmi.s	ResAe3
+	beq.s	ResAe2
+* Ecrans OFFSET
+	add.w	#EcAV,a2
+	bra.s	ResAe4
+* Ecrans TAILLE
+ResAe2:	add.w	#EcAWT,a2
+	bra.s	ResAe4
+* Ecrans position
+ResAe3:	add.w	#EcAW,a2
+ResAe4:	move.l	a2,AmAct(a0)
+	move.w	#$8000+BitEcrans,AmBit(a0)
+	moveq	#0,d0
+	rts
+* Erreur! Screen not opened
+ResAee:	moveq	#-3,d0
+	bra.s	ResAEx
+
+******* Creation BOBS
+ResAb:	move.w	d5,d1
+	movem.l	a0/a1,-(sp)
+	bsr	BobAd
+	bne.s	ResAbe
+	lea	BbAct(a1),a2
+	movem.l	(sp)+,a0/a1
+	move.l	a2,AmAct(a0)
+	move.w	#$8000+BitBobs,AmBit(a0)
+	moveq	#0,d0
+	rts
+* Erreur! BOB not defined
+ResAbe:	movem.l	(sp)+,a0/a1
+	moveq	#-24,d0
+	bra.s	ResAEx
+
+******* Creation SPRITES
+ResAs:	lsl.w	#3,d5
+	lea	T_HsTAct(a5),a2
+	add.w	d5,a2
+	move.l	a2,AmAct(a0)
+	move.w	#$8000+BitSprites,AmBit(a0)
+	moveq	#0,d0
+	rts
+
+******* Creation ADRESSE
+ResAdd:	move.l	d5,AmAct(a0)
+	move.l	d4,d0
+	swap	d0
+	and.w	#$00FF,d0
+	add.w	#$8000,d0
+	move.w	d0,AmBit(a0)
+	moveq	#0,d0
+	rts
+
+******* Creation RAINBOW
+ResRain	lea	T_RainTable(a5),a2
+	mulu	#RainLong,d5
+	lea	RnAct(a2,d5.w),a2
+	move.l	a2,AmAct(a0)
+	move.w	#$8000+BitEcrans,AmBit(a0)
+	moveq	#0,d0
+	rts
+
+******* Erreur memoire!
+ResAErr	moveq	#-1,d0
+	rts
+******* Efface la table si ERREUR!
+ResAex:	move.l	d0,-(sp)
+	move.l	a0,a1
+	moveq	#0,d0
+	move.w	AmLong(a1),d0
+	bsr	FreeMm
+	move.l	(sp)+,d0
+	rts
+
+***********************************************************
+*	ARRET D'UN CANAL avec une adresse ACTUALISATION
+*	A0= Adresse ACTUALISATION
+DAdAMAL:
+********
+	movem.l	d1-d7/a0-a2,-(sp)
+	move.l	T_AmDeb(a5),d6
+	clr.l	T_AmChaine(a5)
+	clr.l	T_AmFreeze(a5)
+	move.l	d6,d5
+	beq	MvOx
+	move.l	a0,d7
+DAdAM1:	move.l	d5,a1
+	cmp.l	AmAct(a1),d7
+	beq.s	DAdAM2
+	move.l	AmNext(a1),d5
+	bne.s	DAdAM1
+	bra	MvOx
+DAdAM2:	move.l	AmNext(a1),d5
+	bsr	DAMAL
+	tst.l	d5
+	bne.s	DAdAM1
+	bra	MvOx
+
+***********************************************************
+*	ADRESSE D'UN CANAL: D1= Numero!
+*	D6= AmDeb!
+AdAMAL:
+*******
+	move.l	d6,d5
+	beq.s	AdAmal1
+	lsl.w	#2,d1
+AdAmal0	move.l	d5,a1
+	move.w	AmNb(a1),d0
+	and.w	#$FFFC,d0
+	cmp.w	d0,d1
+	beq.s	AdAmal2
+	bcs.s	AdAmal3
+	move.l	AMNext(a1),d5
+	bne.s	AdAmal0
+AdAmal1 rts
+AdAmal2 move.l	AmNext(a1),d5
+	move.w	AmNb(a1),d7
+	and.w	#$0003,d7
+	moveq	#-1,d0
+	rts
+AdAmNx:	tst.l	d5
+	bne.s	AdAmal0
+	rts
+AdAmal3 moveq	#0,d0
+	rts
+
+***********************************************************
+*	=AMAL ADRESSE
+*	D1= #
+TAmAd:	move.l	T_AmDeb(a5),d6
+	bsr	AdAmal
+	move.l	a1,d1
+	tst.w	d0
+	rts
+***********************************************************
+*	=MOVON
+*	D1= #
+TMovon	move.l	T_AmDeb(a5),d6
+	bsr	AdAmal
+	beq.s	TMvo1
+TMvo0	cmp.w	#2,d7
+	beq.s	TMvo3
+	cmp.w	#3,d7
+	beq.s	TMvo3
+	bsr	AdAmNx
+	bne.s	TMvo0
+TMvo1	moveq	#0,d1
+	rts
+TMvo3	tst.w	AmBit(a1)
+	bmi.s	TMvo1
+	tst.l	AmAJsr(a1)
+	beq.s	TMvo1
+TMvo2	moveq	#-1,d1
+	rts
+***********************************************************
+*	= CHANAN
+*	D1= #
+RChan	move.l	T_AmDeb(a5),d6
+	bsr	AdAmal
+	beq.s	RChan1
+	tst.w	AmBit(a1)
+	bpl.s	RChan2
+RChan1	addq.l	#4,sp
+	moveq	#0,d1
+RChan2	rts
+TChanA	bsr	RChan
+	tst.l	AmAJsr(a1)
+	beq.s	TMvo1
+	bne.s	TMvo2
+TChanM	bsr	RChan
+	tst.l	AmPos(a1)
+	beq.s	TMvo1
+	bne.s	TMvo2
+
+***********************************************************
+*	OFF/ON/FREEZE
+*	D1= -1 -> TOUS / D1=#
+*	D2= Bit a 1--> A Changer
+*	D3= -1-> OFF / 0-> Freeze / 1-> On
+MvOAMAL:
+*******
+	movem.l	d1-d7/a0-a2,-(sp)
+	move.l	T_AmDeb(a5),d6
+	clr.l	T_AmFreeze(a5)
+	clr.l	T_AmChaine(a5)
+
+	tst.w	d1
+	bmi.s	MvOAll
+	bsr	AdAMAL
+	beq.s	MvOx
+******* Efface
+MvO1:	btst	d7,d2
+	beq.s	MvO2
+	bsr	OnOfFrz
+MvO2:	bsr	AdAMNx
+	bne.s	MvO1
+
+* FINI!
+MvOx:	move.l	d6,T_AmDeb(a5)
+	move.l	d6,T_AmChaine(a5)
+	movem.l	(sp)+,d1-d7/a0-a2
+	moveq	#0,d0
+	rts
+
+******* ARRETE TOUT!
+MvOAll:	move.l	d6,d5
+	beq.s	MvOx
+MvOA1:	move.l	d5,a1
+	move.l	AmNext(a1),d5
+	move.w	AmNb(a1),d7
+	and.w	#$0003,d7
+	btst	d7,d2
+	beq.s	MvOA2
+	bsr	OnOfFrz
+MvOA2:	tst.l	d5
+	bne.s	MvOA1
+	bra	MvOx
+
+******************************************* ENLEVE / MET / FREEZE
+OnOfFrz	tst.w	d3
+	bmi.s	DAMAL
+	beq.s	OoF
+* On!
+	and.w	#$7FFF,AmBit(a1)
+	rts
+* Freeze
+OoF:	or.w	#$8000,AmBit(a1)
+	rts
+****************************************** Enleve!
+*	D6= AmDeb!
+DAMAL:	movem.l	d0-d3,-(sp)
+	move.l	AmNext(a1),d3
+	move.l	AmPrev(a1),d2
+	beq.s	DAMAL3
+	move.l	d2,a0
+	move.l	d3,AmNext(a0)
+	bra.s	DAMAL4
+DAMAL3:	move.l	d3,d6
+DAMAL4:	tst.l	d3
+	beq.s	DAMAL5
+	move.l	d3,a0
+	move.l	d2,AmPrev(a0)
+DAMAL5:	move.w	AmLong(a1),d0
+	ext.l	d0
+	bsr	FreeMm
+	movem.l	(sp)+,d0-d3
+	rts
+
+***********************************************************
+*	EFFACEMENT TOUS CANAUX
+DAllAMAL:
+AMALEnd:
+********
+	moveq	#-1,d1
+	moveq	#%1111,d2
+	moveq	#-1,d3
+	bra	MvOAMAL
+
+***********************************************************
+*	FREEZE AMAL
+FrzAMAL:
+********
+	tst.l	T_AmFreeze(a5)
+	bne.s	FrzA
+	move.l	T_AmChaine(a5),T_AmFreeze(a5)
+	clr.l	T_AmChaine(a5)
+FrzA:	moveq	#0,d0
+	rts
+**********************
+*	UNFREEZE AMAL
+********
+UFrzAMAL:
+	tst.l	T_AmChaine(a5)
+	bne.s	UFrzA
+	move.l	T_AmFreeze(a5),d0
+	beq.s	FrzA
+	move.l	d0,T_AmChaine(a5)
+UFrzA:	clr.l	T_AmFreeze(a5)
+	bra.s	FrzA
+
+
+******* BRANCHEMENT AUX FONCTIONS
+AmJumps	dc.w 	AmStop-AmJumps			* 00
+	dc.w	AmAnim-AmJumps			* 04
+	dc.w	AmMvtX-AmJumps			* 08
+	dc.w 	AmMvtY-AmJumps			* 0C
+	dc.w	AmWait-AmJumps			* 10
+	dc.w	AmPose-AmJumps			* 14
+	dc.w	AmMove-AmJumps			* 18
+	dc.w	AmJump-AmJumps			* 1C
+	dc.w	AmLet-AmJumps			* 20
+	dc.w	AmIf-AmJumps			* 24
+	dc.w	AmFor-AmJumps			* 28
+	dc.w	AmNxt-AmJumps			* 2C
+	dc.w	AmAEg-AmJumps			* 30
+	dc.w	AmXEg-AmJumps			* 34
+	dc.w	AmYEg-AmJumps			* 38
+	dc.w	AmREg-AmJumps			* 3C
+	dc.w	AmEgA-AmJumps			* 40
+	dc.w	AmEgX-AmJumps			* 44
+	dc.w	AmEgY-AmJumps			* 48
+	dc.w	AmEgR-AmJumps			* 4C
+	dc.w	AmOn-AmJumps			* 50
+	dc.w	AmXS-AmJumps			* 54
+	dc.w	AmYS-AmJumps			* 58
+	dc.w	AmCol-AmJumps			* 5C
+	dc.w	AmAOn-AmJumps			* 60
+	dc.w	AmAOff-AmJumps			* 64
+	dc.w	AmAExit-AmJumps			* 68
+	dc.w	AmDirect-AmJumps		* 6C
+	dc.w	AmChif-AmJumps			* 70
+	dc.w	AmXMou-AmJumps			* 74
+	dc.w	AmYMou-AmJumps			* 78
+	dc.w	AmSExp-AmJumps			* 7C
+	dc.w	AmJ0-AmJumps			* 80
+	dc.w	AmJ1-AmJumps			* 84
+	dc.w	AmM1-AmJumps			* 88
+	dc.w	AmM2-AmJumps			* 8C
+	dc.w	AmEg-AmJumps			* 90
+	dc.w	AmDif-AmJumps			* 94
+	dc.w	AmInf-AmJumps			* 98
+	dc.w	AmSup-AmJumps			* 9C
+	dc.w	AmPlus-AmJumps			* A0
+	dc.w	AmMoins-AmJumps			* A4
+	dc.w	AmDiv-AmJumps			* A8
+	dc.w	AmMult-AmJumps			* AC
+	dc.w	AmOr-AmJumps			* B0
+	dc.w	AmAnd-AmJumps			* B4
+	dc.w	AmSCol-AmJumps			* B8
+	dc.w	AmBCol-AmJumps			* BC
+	dc.w	AmPlay-AmJumps			* C0
+	dc.w	AmXH-AmJumps			* C4
+	dc.w	AmYH-AmJumps			* C8
+	dc.w	AmAni-AmJumps			* CC
+	dc.w 	AmHaz-AmJumps			* D0
+	dc.w	AmVu-AmJumps			* D4
+	dc.w	AmXor-AmJumps			* D8
+
+***********************************************************
+*	ANIMEUR / DEPLACEUR
+Animeur:
+********
+	lea	AMJumps(pc),a4
+	move.l	T_AMChaine(a5),d7
+	beq.s	AMX
+	move.l	d7,d0
+	clr.l	T_AMChaine(a5)
+	move.w	T_Actualise(a5),d5
+
+******* Depart animation!
+AmRE:	move.l	d0,a6
+	move.w	AmBit(a6),d4
+	bmi.s	AmL2
+
+******* Boucle de l'autotest
+	move.l	AmAuto(a6),d0
+	beq.s	AmL1
+	move.l	d0,a3
+	moveq	#20,d6
+	move.w	(a3)+,d0
+	jsr	0(a4,d0.w)
+
+******* Boucle normale
+AmL1:	move.l	AmPos(a6),d0
+	beq.s	AmRet
+	move.l	d0,a3
+	moveq	#10,d6
+	move.w	(a3)+,d0
+	jsr	0(a4,d0.w)
+
+******* Appel de l'animation?
+AmRet:	move.l	AmAJsr(a6),d0
+	beq.s	AmL2
+	move.l	d0,a0
+	jsr	(a0)
+
+******* Un Autre?
+AmL2:	move.l	AmNext(a6),d0
+	bne.s	AmRE
+
+* Rebranche les inters
+	move.w	d5,T_Actualise(a5)
+	move.l	d7,T_AmChaine(a5)
+AmX:	rts
+
+******* MOVE x,y,step
+AmMove:	subq.w	#1,AmCpt(a6)
+	bmi.s	AmMvI
+	beq.s	AmMvX
+* Un cran
+	move.l	AmAct(a6),a0
+	move.w	2(a0),d0
+	move.w	d0,d2
+	swap	d0
+	move.w	AmVirgX(a6),d0
+	move.w	4(a0),d1
+	move.w	d1,d3
+	swap	d1
+	move.w	AmVirgY(a6),d1
+	add.l	AmDeltX(a6),d0
+	add.l	AmDeltY(a6),d1
+AmMv0:	move.w	d0,AmVirgX(a6)
+	move.w	d1,AmVirgY(a6)
+	swap	d0
+	swap	d1
+	cmp.w	d2,d0
+	beq.s	AmMv1
+	move.w	d0,2(a0)
+	bset	#1,(a0)
+	bset	d4,d5
+AmMv1:	cmp.w	d3,d1
+	beq.s	AmMv2
+	move.w	d1,4(a0)
+	bset	#2,(a0)
+	bset	d4,d5
+AmMv2:	rts
+* Mvt suivant
+AmMvX:	move.l	AmFin(a6),a3
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+* Init! Calcule les pentes
+AmMvI:	lea	-2(a3),a0
+	move.l	a0,AmPos(a6)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.l	a3,AmFin(a6)
+	tst.w	d3
+	bgt.s	AmMi1
+	moveq	#1,d3
+AmMi1:	move.w	d3,AmCpt(a6)
+	move.w	(sp)+,d1
+	move.w	(sp)+,d0
+	moveq	#0,d2
+	ext.l	d0
+	bpl.s	AmMi2
+	neg.l	d0
+	bset	#0,d2
+AmMi2:	ext.l	d1
+	bpl.s	AmMi3
+	neg.l	d1
+	bset	#1,d2
+AmMi3:	lsl.l	#8,d0
+	lsl.l	#8,d1
+	divu	d3,d0
+	bvc.s	AmMi4
+	moveq	#0,d0
+AmMi4:	divu	d3,d1
+	bvc.s	AmMi5
+	moveq	#0,d1
+AmMi5:	btst	#0,d2
+	beq.s	AmMi6
+	neg.w	d0
+AmMi6:	btst	#1,d2
+	beq.s	AmMi7
+	neg.w	d1
+AmMi7:	ext.l	d0
+	ext.l	d1
+	lsl.l	#8,d0
+	lsl.l	#8,d1
+	move.l	d0,AmDeltX(a6)
+	move.l	d1,AmDeltY(a6)
+	move.l	AmAct(a6),a0
+	move.w	2(a0),d2
+	swap	d2
+	move.w	#$8000,d2
+	move.w	4(a0),d3
+	swap	d3
+	move.w	#$8000,d3
+	add.l	d2,d0
+	add.l	d3,d1
+	bra	AmMv0
+
+******* PLAY n
+AmPlay:	subq.w	#1,AmCpt(a6)
+	bmi	AmPli
+	bne	AmX
+AmPl0:	move.w	AmIRegs+NbInterne*2-4(a6),d2
+	bmi	AmMvX
+	move.l	AmAct(a6),a0
+* Pas suivant en X
+	move.l	AmDeltX(a6),a1
+	move.b	(a1),d0
+	beq	AmMvX
+	bmi	AmPWx
+	lsl.b	#1,d0
+	asr.b	#1,d0
+	ext.w	d0
+	bset	#1,(a0)
+	bset	d4,d5
+	tst.w	d2
+	beq.s	AmPx1
+	add.w	d0,2(a0)
+	addq.l	#1,AmDeltX(a6)
+	bra.s	AmPy
+AmPx1:	sub.w	d0,2(a0)
+	subq.l	#1,AmDeltX(a6)
+	bra.s	AmPy
+* Attente en X!
+AmPWx:	subq.w	#1,AmVirgX(a6)
+	beq.s	Ampwx1
+	bpl.s	Ampy
+	and.w	#$7f,d0
+	beq.s	Ampwx1
+	move.w	d0,AmVirgX(a6)
+	bra.s	AmPy
+Ampwx1:	tst.w	d2
+	bne.s	Ampwx2
+	subq.l	#1,AmDeltX(a6)
+	bra.s	AmPy
+Ampwx2:	addq.l	#1,AmDeltX(a6)
+* Pas suivant en Y
+AmPy:	move.l	AmDeltY(a6),a1
+	move.b	(a1),d0
+	beq	AmMvX
+	bmi	AmPWy
+	lsl.b	#1,d0
+	asr.b	#1,d0
+	ext.w	d0
+	bset	#2,(a0)
+	bset	d4,d5
+	tst.w	d2
+	beq.s	AmPy1
+	add.w	d0,4(a0)
+	addq.l	#1,AmDeltY(a6)
+	bra.s	Ampwy3
+AmPy1:	sub.w	d0,4(a0)
+	subq.l	#1,AmDeltY(a6)
+	bra.s	Ampwy3
+* Attente en Y!
+AmPWy:	subq.w	#1,AmVirgY(a6)
+	beq.s	Ampwy1
+	bpl.s	Ampwy3
+	and.w	#$7f,d0
+	beq.s	Ampwy1
+	move.w	d0,AmVirgY(a6)
+	bra.s	Ampwy3
+Ampwy1:	tst.w	d2
+	bne.s	Ampwy2
+	subq.l	#1,AmDeltY(a6)
+	bra.s	Ampwy3
+Ampwy2:	addq.l	#1,AmDeltY(a6)
+Ampwy3:	move.w	AmIRegs+NbInterne*2-2(a6),AmCpt(a6)
+	rts
+******* Initialisation!
+AmPli:	lea	-2(a3),a0
+	move.l	a0,AmPos(a6)
+	bsr	AmEvalue
+	move.l	a3,AmFin(a6)
+	move.l	T_AmBank(a5),d0
+	beq	AmMvX
+	move.l	d0,a0
+	cmp.w	4(a0),d3
+	bhi	AmMvX
+	lsl.w	#1,d3
+	beq	AmMvX
+	move.w	4+2-2(a0,d3.w),d3
+	beq	AmMvX
+	lsl.w	#1,d3
+	lea	4(a0,d3.w),a0
+	move.w	(a0)+,AmIRegs+NbInterne*2-2(a6)
+	move.w	#1,AmIRegs+NbInterne*2-4(a6)
+	move.w	(a0)+,d0
+	lea	-4+1(a0,d0.w),a1
+	move.l	a1,AmDeltY(a6)
+	addq.l	#1,a0
+	move.l	a0,AmDeltX(a6)
+	clr.w	AmVirgX(a6)
+	clr.w	AmVirgY(a6)
+	bra	AmPl0
+
+******* ANIM
+AmAni:	bsr	AmEvalue		* Initialise l'animation!
+	move.w	d3,AmACLoop(a6)
+	move.w	#1,AmACpt(a6)
+	lea	2(a3),a0
+	move.l	a0,AmAAd(a6)
+	move.l	a0,AmAALoop(a6)
+	lea	AmDoAni(pc),a0
+	move.l	a0,AmAJsr(a6)
+	add.w	(a3),a3
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+AmDoAni	subq.w	#1,AmACpt(a6)		* Fait l'animation
+	bne.s	AmDAX
+	move.l	AmAAd(a6),a3
+AmDA0	tst.w	(a3)
+	beq.s	AmDA1
+	bsr	AmEvalue
+	move.l	AmAct(a6),a0
+	move.w	d3,6(a0)
+	bset	#0,(a0)
+	bset	d4,d5
+	bsr	AmEvalue
+	move.w	d3,AmACpt(a6)
+	move.l	a3,AmAAd(a6)
+AmDAX	rts
+AmDA1	tst.w	AmACLoop(a6)
+	beq	AmDA2
+	subq.w	#1,AmACLoop(a6)
+	beq.s	AmDA3
+AmDA2	move.l	AmAALoop(a6),a3
+	bra.s	AmDA0
+AmDA3	clr.l	AmAJsr(a6)
+	rts
+
+******* ST-ANIMATION
+AmAnim:	move.w	#1,AmACpt(a6)
+	move.l	a3,AmAAd(a6)
+	move.l	a3,AmAALoop(a6)
+	lea	StAni(pc),a0
+	move.l	a0,AmAJsr(a6)
+	clr.l	AmPos(a6)
+	rts
+StAni:	subq.w	#1,AmACpt(a6)
+	bne.s	StA1
+	move.l	AmAAd(a6),a3
+StA0	move.w	(a3)+,d0
+	bmi.s	StA2
+	move.l	AmAct(a6),a0
+	move.w	d0,6(a0)
+	bset	#0,(a0)
+	bset	d4,d5
+	move.w	(a3)+,AmACpt(a6)
+	beq.s	StA3
+	move.l	a3,AmAAd(a6)
+StA1	rts
+StA2	cmp.w	#-1,d0
+	beq.s	StA3
+	move.l	AmAALoop(a6),a3
+	bra.s	StA0
+StA3	clr.l	AmAJsr(a6)
+	rts
+
+******* ST-MOUVEMENT EN X
+AmMvtX:	move.w	#1,AmACpt(a6)
+	move.l	a3,AmAALoop(a6)
+	lea	StMvX(pc),a0
+	move.l	a0,AmAJsr(a6)
+	clr.l	AmPos(a6)
+	moveq	#1,d1
+	move.l	AmAct(a6),a0
+	lea	2(a0),a1
+	bra	StML
+******* ST-MOUVEMENT EN Y
+AmMvtY:	move.w	#1,AmACpt(a6)
+	move.l	a3,AmAALoop(a6)
+	lea	StMvY(pc),a0
+	move.l	a0,AmAJsr(a6)
+	clr.l	AmPos(a6)
+	moveq	#2,d1
+	move.l	AmAct(a6),a0
+	lea	4(a0),a1
+	bra	StML
+* Entree MOVE X
+StMvX	subq.w	#1,AmACpt(a6)
+	bne.s	StMXx
+	moveq	#1,d1
+	move.l	AmAct(a6),a0
+	lea	2(a0),a1
+	bra.s	StM0
+* Entree MOVE Y
+StMvY	subq.w	#1,AmACpt(a6)
+	bne.s	StMXx
+	moveq	#2,d1
+	move.l	AmAct(a6),a0
+	lea	4(a0),a1
+* Fait le mouvement
+StM0	move.l	AmAAd(a6),a3
+	move.w	(a3)+,AmACpt(a6)
+	move.w	(a1),d0
+	add.w	(a3)+,d0
+	move.w	d0,(a1)
+	bset	d1,(a0)
+	bset	d4,d5
+	cmp.w	AmDeltY(a6),d0		* Condition?
+	beq.s	StM2
+	subq.w	#1,AmDeltX(a6)		* Encore un mouvement?
+	beq.s	StM1
+StMXx:	rts
+* Mouvement suivant
+StM1	addq.l	#2,a3
+	tst.w	(a3)
+	bne.s	StM4
+* Condition realisee: on boucle?
+StM2:	move.l	AmAALoop(a6),a3
+	tst.w	2(a3)
+	beq.s	StMF
+StML:	move.w	(a3)+,d0		* Reinitialisation
+	cmp.w	#$8000,d0
+	beq.s	StM3
+	move.w	d0,(a1)
+	bset	d1,(a0)
+	bset	d4,d5
+StM3:	addq.l	#2,a3
+	move.w	(a3)+,AmDeltY(a6)
+StM4:	move.l	a3,AmAAd(a6)
+	move.w	4(a3),AmDeltX(a6)
+	rts
+StMF:	clr.l	AmAJsr(a6)
+	rts
+
+******* AUTOTEST ON
+AmAOn:	move.w	(a3)+,d0
+	move.l	a3,AmAuto(a6)
+	lea	-2(a3,d0.w),a3
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+******* AUTOTEST OFF
+AmAOff:	clr.l	AmAuto(a6)
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+******* AUTOTEST EXIT
+AmAExit:rts
+******* DIRECT label
+AmDirect:
+	move.w	(a3)+,d0
+	lea	-2(a3,d0.w),a0
+	move.l	a0,AmPos(a6)
+	clr.w	AmCpt(a6)
+	rts
+
+******* STOP GENERAL!
+AmStop:	clr.l	AmPos(a6)
+	clr.l	AmAuto(a6)
+	rts
+******* WAIT VBL
+AmPose:	move.l	a3,AmPos(a6)
+	rts
+******* WAIT
+AmWait:	clr.l	AmPos(a6)
+	rts
+******* RIEN
+AmRien:	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+
+******* LET
+AmLet:	bsr	AmEvalue
+	move.w	(a3)+,d0
+	jsr	0(a4,d0.w)
+	move.w	d3,(a0)
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+
+******* IF
+AmIf:	bsr	AmEvalue
+	tst.w	d3
+	bne.s	AmIfV
+	addq.l	#4,a3
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+AmIfV:	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+
+******* FOR
+AmFor:	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	lea	T_AmRegs(a5),a0
+	move.w	(a3)+,d0
+	bpl.s	AmFr0
+	lea	AmIRegs+NbInterne*2(a6),a0
+AmFr0:	move.w	(sp)+,0(a0,d0.w)
+	move.w	d3,(a3)+
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+******* NEXT
+AmNxt:	move.w	(a3)+,d0
+	lea	-2(a3,d0.w),a1
+	lea	T_AmRegs(a5),a0
+	move.w	(a1)+,d0
+	bpl.s	AnNx0
+	lea	AmIRegs+NbInterne*2(a6),a0
+AnNx0:	add.w	d0,a0
+	addq.w	#1,(a0)
+	move.w	(a1)+,d0
+	cmp.w	(a0),d0
+	bge.s	AmNx1
+* Sortie, on continue
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+* On reste dans la boucle
+AmNx1:	move.l	a1,AmPos(a6)
+	rts
+
+******* JUMP
+AmJump:	add.w	(a3),a3
+	subq.w	#1,d6
+	beq.s	AmJp1
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+AmJp1	lea	AmRet(pc),a0
+	cmp.l	(sp),a0
+	bne.s	AmJp2
+	move.l	a3,AmPos(a6)
+AmJp2	rts
+
+******* A=
+AmAEg:	move.l	AmAct(a6),a0
+	bset	#0,(a0)
+	bset	d4,d5
+	addq.l	#6,a0
+	rts
+******* X=
+AmXEg:	move.l	AmAct(a6),a0
+	bset	#1,(a0)
+	bset	d4,d5
+	addq.l	#2,a0
+	rts
+******* Y=
+AmYEg:	move.l	AmAct(a6),a0
+	bset	#2,(a0)
+	bset	d4,d5
+	addq.l	#4,a0
+	rts
+******* REG=
+AmREg:	move.w	(a3)+,d0
+	bmi.s	AmREg0
+	lea	T_AmRegs(a5),a0
+	add.w	d0,a0
+	rts
+AmREg0:	lea	AmIRegs+NbInterne*2(a6),a0
+	add.w	d0,a0
+	rts
+
+******* EVALUATION D'EXPRESSION
+AmEvalue:
+	move.w	(a3)+,d0
+	jsr	0(a4,d0.w)
+	move.w	d2,d3
+AmELoop	move.w	(a3)+,d0
+	jsr	0(a4,d0.w)
+	move.w	(a3)+,d0
+	jmp	0(a4,d0.w)
+
+* =XH(Ec,X)
+AmXH:	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d1
+	bsr	AmEcTo
+	tst.w	EcCon0(a0)
+	bpl.s	AmXH0
+	asr.w	#1,d2
+AmXH0:	add.w	EcWX(a0),d2
+	move.w	(sp)+,d3
+	rts
+* =YH(Ec,Y)
+AmYH:	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d1
+	bsr	AmEcTo
+	add.w	EcWY(a0),d2
+	sub.w	#EcYBase,d2
+	move.w	(sp)+,d3
+	rts
+* =XS(Ec,X)
+AmXS:	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d1
+	bsr	AmEcTo
+	sub.w	EcWx(a0),d2
+	btst	#7,EcCon0(a0)
+	beq.s	AmXs1
+	asl.w	#1,d2
+AmXs1:	add.w	EcVx(a0),d2
+	move.w	(sp)+,d3
+	rts
+* =YS(e,X)
+AmYS:	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d1
+	bsr	AmEcTo
+	add.w	#EcYBase,d2
+	sub.w	EcWy(a0),d2
+	add.w	EcVy(a0),d2
+	move.w	(sp)+,d3
+	rts
+* Routine: Ecto
+AmEcTo	move.w	d3,d2
+	and.w	#$0007,d1
+	lsl.w	#2,d1
+	lea	T_EcAdr(a5),a0
+	move.l	0(a0,d1.w),d1
+	beq.s	AmEc1
+	move.l	d1,a0
+	rts
+AmEc1:	addq.l	#4,sp
+	moveq	#-1,d2
+	move.w	(sp)+,d3
+	rts
+* = Bob Coll
+AmBCol:	move.w	T_SyncOff(a5),d0
+	beq.s	AmbbX
+	movem.l	d3-d7/a0-a2,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d2
+	move.w	(sp)+,d1
+	bsr	BbColl
+	movem.l	(sp)+,d3-d7/a0-a2
+	move.w	d0,d2
+	rts
+* = Spr Coll
+AmSCol:	move.w	T_SyncOff(a5),d0
+	beq.s	AmbbX
+	movem.l	d3-d7/a0-a2,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d2
+	move.w	(sp)+,d1
+	bsr	SpColl
+	movem.l	(sp)+,d3-d7/a0-a2
+	move.w	d0,d2
+	rts
+AmBbx:	moveq	#0,d2
+	rts
+* = Col(n)
+AmCol:	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	d3,d1
+	bsr	GetCol
+	move.w	d0,d2
+	move.w	(sp)+,d3
+	rts
+* = Haz(n)
+AmHaz:	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	T_AmSeed(a5),d2
+	mulu	#$3171,d2
+	add.w	Circuits+$06,d2
+	addq.w	#1,d2
+	move.w	d2,T_AmSeed(a5)
+	lsr.l	#8,d2
+	and.w	d3,d2
+	move.w	(sp)+,d3
+	rts
+* =Vu(n)
+AmVu	move.w	d3,-(sp)
+	bsr	AmEvalue
+	move.w	(sp)+,d3
+	move.l	ExtAdr+0*16(a5),d0
+	beq.s	AmVu0
+	move.l	d0,a0
+	cmp.w	#4,d2
+	bcc.s	AmVu0
+	add.w	d2,a0
+	move.b	(a0),d2
+	clr.b	(a0)
+	rts
+AmVu0	moveq	#0,d2
+	rts
+* =A
+AmEgA:	move.l	AmAct(a6),a0
+	move.w	6(a0),d2
+	rts
+* =X
+AmEgX:	move.l	AmAct(a6),a0
+	move.w	2(a0),d2
+	rts
+* =Y
+AmEgY:	move.l	AmAct(a6),a0
+	move.w	4(a0),d2
+	rts
+* =RA
+AmEgR:	move.w	(a3)+,d0
+	bmi.s	AEgR0
+	lea	T_AmRegs(a5),a0
+	move.w	0(a0,d0.w),d2
+	rts
+AEgR0:	lea	AmIRegs+NbInterne*2(a6),a0
+	move.w	0(a0,d0.w),d2
+	rts
+* =On
+AmOn:	tst.w	AmCpt(a6)
+	bmi.s	AmO0
+	beq.s	AmO0
+AmOnM:	moveq	#-1,d2
+	rts
+AmO0:	moveq	#0,d2
+	rts
+AmO1:	moveq	#1,d2
+	rts
+
+* =Chiffre
+AmChif:	move.w	(a3)+,d2
+	rts
+* =XMouse
+AmXMou:	move.w	T_XMouse(a5),d2
+	rts
+* =YMouse
+AmYMou:	move.w	T_Ymouse(a5),d2
+	rts
+* =Joy0
+AmJ0:	moveq	#0,d1
+	bsr	ClJoy
+	move.w	d1,d2
+	rts
+* =Joy1
+AmJ1:	moveq	#1,d1
+	bsr	ClJoy
+	move.w	d1,d2
+	rts
+* = Mousekey1
+AmM1:	moveq	#0,d2
+	btst	#6,CiaAPrA
+	bne.s	AmMx
+	moveq	#-1,d2
+AmMx:	rts
+* = Mousekey 2
+AmM2:	moveq	#0,d2
+	btst	#10,$DFF016
+	beq.s	AmMx
+	moveq	#-1,d2
+	rts
+
+******* OPERATEURS
+
+* Fin de l'evaluation
+AmSExp:	addq.l	#4,sp
+	rts
+* =
+AmEg:	cmp.w	d3,d2
+	bne.s	AmEF
+AmEV:	moveq	#-1,d3
+	bra	AmELoop
+AmEF:	moveq	#0,d3
+	bra	AmELoop
+* <
+AmInf:	cmp.w	d2,d3
+	blt.s	AmEV
+	bra.s	AmEF
+* >
+AmSup:	cmp.w	d2,d3
+	bgt.s	AmEv
+	bra.s	AmEF
+* <>
+AmDif:	cmp.w	d2,d3
+	bne.s	AmEV
+	bra.s	AmEF
+* +
+AmPlus:	add.w	d2,d3
+	bra	AmELoop
+* -
+AmMoins	sub.w	d2,d3
+	bra	AmELoop
+* /
+AmDiv:	tst.w	d2
+	beq	AmELoop
+	ext.l	d3
+	divs	d2,d3
+	bra	AmELoop
+* *
+AmMult:	ext.l	d3
+	muls	d2,d3
+	bra	AmELoop
+* |
+AmOr:	or.w	d2,d3
+	bra	AmELoop
+* !
+AmXor:	eor.w	d2,d3
+	bra	AmELoop
+* &
+AmAnd:	and.w	d2,d3
+	bra	AmELoop
+	ENDC
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES AU MILIEU!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; Icestart: branch system functions only.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IceStart
+	move.l	a6,-(sp)
+
+	clr.w	T_WVersion(a5)		Par defaut
+	cmp.l	#"V2.0",d0		Le magic
+	bne.s	.Nomagic
+	move.w	d1,T_WVersion(a5)	La version d'AMOS
+.Nomagic
+
+	lea	W_Base(pc),a0
+	move.l	a5,(a0)
+	lea	SyIn(pc),a0
+	move.l	a0,T_SyVect(a5)
+	bsr	WMemInit
+
+; Recherche et stoppe les programmes AMOS lanc�s... (si AMOSPro V2.0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#$0200,T_WVersion(a5)
+	bcs.s	.No20
+	move.l	$4.w,a6
+	jsr	Forbid(a6)
+	lea	TaskName(pc),a1
+	jsr	FindTask(a6)
+	tst.l	d0
+	beq.s	.skip
+	move.l	d0,a0
+	move.l	10(a0),a1
+	move.b	#"S",(a1)		* STOP!!!
+	move.l	a1,T_Stopped(a5)
+.skip	jsr	Permit(a6)
+; Change son propre nom...
+	sub.l	a1,a1
+	jsr	FindTask(a6)
+	move.l	d0,a0
+	move.l	d0,T_MyTask(a5)
+	move.l	10(a0),T_OldName(a5)
+	lea	TaskName(pc),a1
+	move.l	a1,10(a0)
+	move.l	a5,$58(a0)		Adresse des datas...
+; Fini!
+.No20	move.l	(sp)+,a6
+	move.l	#"W2.0",d0		Retourne des magic
+	move.w	#$0200,d1
+	rts
+
+; Normal cold start: start default system
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+StartAll
+	movem.l	a0-a6/d1-d7,-(sp)
+	move.l	sp,T_GPile(a5)
+
+	move.l	a2,-(sp)			Palette par defaut
+	move.l	a0,-(sp)
+
+; Attend que l'autre AMOS soit arrete! (si v2.0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#$0200,T_WVersion(a5)
+	bcs.s	.No20_a
+	movem.l	a0-a3/d0-d3,-(sp)
+	move.l	T_Stopped(a5),d0
+	beq.s	.Wait2
+	move.l	d0,a2
+	move.w	#50*5,d3
+.Wait1	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)
+	cmp.b	#"S",(a2)
+	bne.s	.Wait2
+	dbra	d3,.Wait1
+.GoEnd	bra	GFatal
+.Wait2	movem.l	(sp)+,a0-a3/d0-d3
+.No20_a
+
+; Sauve les flags du DMA
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.b	d0,T_AMOSHere(a5)
+	move.w	Circuits+DmaConR,T_OldDma(a5)
+	bset	#7,T_OldDma(a5)
+
+; Amiga-A
+; ~~~~~~~
+	tst.l	d1
+	bne.s	.Skip
+	move.l	#$00406141,d1
+.Skip	move.b	d1,T_AmigA_Ascii1(a5)
+	lsr.l	#8,d1
+	move.b	d1,T_AmigA_Ascii2(a5)
+	lsr.w	#8,d1
+	move.b	d1,T_AmigA_Shifts(a5)
+
+; Mouse.Abk (si v2.0)
+; ~~~~~~~~~~~~~~~~~~~
+	cmp.w	#2,T_WVersion(a5)
+	bcs.s	.No20_b
+	move.l	a1,d0
+	bne.s	.MSkip
+	move.l	WDebut-4(pc),d0			Prend le HUNK suivant
+	lsl.l	#2,d0
+	move.l	d0,a1
+	addq.l	#4,a1
+.MSkip	cmp.l	#"AmSp",(a1)+
+	bne	GFatal
+	move.w	(a1)+,d1
+	cmp.w	#4,d1
+	bcs	GFatal
+	move.l	a1,T_MouBank(a5)
+; Pointe la palette pour l'ouverture des ecrans
+	subq.w	#1,d1
+.MLoop	move.w	(a1)+,d0
+	mulu	(a1)+,d0
+	mulu	(a1)+,d0
+	lsl.l	#1,d0
+	lea	4(a1,d0.l),a1
+	dbra	d1,.MLoop
+	move.w	#-1,(a1)		Stoppe la mouse.abk
+	lea	16*2(a1),a1		Pointe couleurs 16-32
+	lea	16*2(a2),a2		Couleurs 16-32 de default palette
+	moveq	#15,d0
+.PCopy	move.w	(a1)+,(a2)+
+	dbra	d0,.PCopy
+.No20_b
+
+; Ouverture de la fonte systeme 8x8
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	TopazName(pc),a1	Topaz force si <2.0
+	cmp.w	#$0200,T_WVersion(a5)
+	bcs.s	.Sfont
+	move.l	a3,d0			Sinon, fonte dans a3
+	beq.s	.Sfont
+	tst.b	(a3)
+	beq.s	.Sfont
+	move.l	a3,a1
+.Sfont	lea	-8(sp),sp
+	move.l	sp,a0
+	move.l	a1,(a0)
+	move.w	#8,4(a0)
+	move.w	#$0041,6(a0)
+	move.l	T_GfxBase(a5),a6
+	jsr	_LVOOpenFont(a6)
+	move.l	d0,T_DefaultFont(a5)
+	bne.s	.fOk
+	lea	TopazName(pc),a1
+	move.l	sp,a0			On ressaie avec topaz
+	move.l	a1,(a0)
+	move.w	#8,4(a0)
+	move.w	#$0041,6(a0)
+	jsr	_LVOOpenFont(a6)
+	move.l	d0,T_DefaultFont(a5)
+	beq	GFatal			???
+.fOk	addq.l	#8,sp
+
+; Graphic library
+; ~~~~~~~~~~~~~~~
+	lea	GfxBase(pc),a1
+	move.l	T_GfxBase(a5),a0
+	move.l	a0,(a1)
+	clr.b	T_WFlags(a5)			Flag AA
+	btst	#2,236(a0)
+	beq.s	.PaAA
+	bset	#WFlag_AA,T_WFlags(a5)
+	bset	#WFlag_LoadView,T_WFlags(a5)
+.PaAA	move.l	$4.w,a0				Kickstart >= V39?
+	cmp.w	#39,$14(a0)			Si oui, on fait un LoadView(0)
+	bcs.s	.Pa39
+	bset	#WFlag_LoadView,T_WFlags(a5)
+.Pa39
+	IFNE	Debug=2				Si debug
+	bclr	#WFlag_LoadView,T_WFlags(a5)	AMIGA-A normal...
+	ENDC
+
+
+; Ma propre tache
+; ~~~~~~~~~~~~~~~
+	sub.l	a1,a1
+	move.l	$4.w,a6
+	jsr	FindTask(a6)
+	move.l	d0,T_MyTask(a5)
+	move.l	d0,a0
+
+; Ouverture du layer.library
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lea	LayName(pc),a1
+	move.l	$4.w,a6
+	jsr	OpenLib(a6)
+	move.l	d0,T_LayBase(a5)
+	beq	GFatal
+
+; Branche l'input.device
+; ~~~~~~~~~~~~~~~~~~~~~~
+	bsr	ClInit
+; Open Console Device
+; ~~~~~~~~~~~~~~~~~~~
+	lea	ConIo(pc),a1
+	bsr	OpConsole
+; Branche le input_handler
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	T_IoDevice(a5),a1
+	bsr	OpInput
+	lea	T_Interrupt(a5),a0
+	lea	IoHandler(pc),a1
+	move.l	a1,IS_CODE(a0)
+	clr.l	IS_DATA(a0)
+	move.b	#100,ln_pri(a0)
+	lea	T_IoDevice(a5),a1
+	move.l	a0,io_Data(a1)
+	move.w	#IND_ADDHANDLER,io_command(a1)
+	jsr	_LVODoIo(a6)
+	move.w	#-1,T_DevHere(a5)
+
+; Parametres par defaut des ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	(sp),a0
+	move.w	#129,T_DefWX(a5)
+	move.w	#129-16,T_DefWX2(a5)
+	move.w	10(a0),T_DefWY(a5)
+	move.w	10(a0),T_DefWY2(a5)
+	subq.w	#8,T_DefWY2(a5)
+
+	lea 	Circuits,a6
+	move.l	(sp),a0
+	move.l	16(a0),d0
+	bsr	HsInit			Hard sprites
+	move.l	(sp),a0
+	move.w	8(a0),d0
+	bsr	BbInit			Bobs
+	bsr	RbInit			Retourneur de bobs
+	move.l	(sp),a0
+	move.l	12(a0),d0
+	bsr	CpInit			Copper
+	bsr	EcInit			Ecrans
+	bsr	SyInit			Systeme
+	bsr	VBLInit			Interruptions VBL
+	bsr	WiInit			Windows
+
+;	Si AA, change le vecteur LOADVIEW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#WFlag_LoadView,T_WFlags(a5)	Si LoadView en route
+	beq.s	.NoLoadView
+	lea	AMOS_LoadView(pc),a0
+	lea	T_AMOSHere(a5),a1		Adresse du test
+	move.l	a1,2(a0)			>>> dans le source...
+	move.l	a0,d0				Nouvelle fonction
+	move.w	#-222,a0			LOADVIEW
+	move.l	T_GfxBase(a5),a1		Librairie
+	move.l	$4.w,a6
+	jsr	-420(a6)			Set function
+	lea	Old_LoadView(pc),a0		Ancien vecteur
+	move.l	d0,(a0)
+	bsr	Sys_ClearCache			Nettoie les caches!
+.NoLoadView
+
+; 	Branche le requester
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#$0200,T_WVersion(a5)
+	bcs.s	.No20_c
+	move.l	4(sp),a0			Palette par defaut
+	bsr	WRequest_Start
+; 	Fabrique la fonte par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Wi_MakeFonte
+	bne	GFatal
+; 	Envoie le signal a l'AMOS Switcher
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_MyTask(a5),a0
+	move.l	a5,$58(a0)
+	moveq	#Switcher_Signal,d3
+	bsr	Send_Switcher
+.No20_c
+
+; 	Tout fini: AMOS to front ?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	T_AMOSHere(a5)
+	beq.s	.Pafr
+	clr.b	T_AMOSHere(a5)
+	moveq	#1,d1
+	bsr	TAMOSWb
+.Pafr
+; Pas d'erreur
+; ~~~~~~~~~~~~
+	moveq	#0,d0
+	bra.s	GFini
+; 	Erreur: EFFACE TOUT, et revient!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+GFatal	bsr.s	EndAll
+	moveq	#-1,d0
+GFini	move.l	T_GPile(a5),a7
+	movem.l	(sp)+,a0-a6/d1-d7
+	rts
+
+
+;							Arret general
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EndAll	lea	Circuits,a6
+
+;	Remet l'ecran du workbench
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d1
+	bsr	TAMOSWb
+	moveq	#2,d0
+	bsr	WVbl_d0
+
+; Empeche le switcher de fonctionner (si 2.0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#$0200,T_WVersion(a5)
+	bcs.s	.No20_a
+	moveq	#Switcher_Signal+1,d3
+	bsr	Send_Switcher
+; 	Plus de requester
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	WRequest_Stop
+;	Efface la fonte
+; ~~~~~~~~~~~~~~~~~~~~~
+	bsr	Wi_DelFonte
+.No20_a
+
+;	Si AA, remet le vecteur LOADVIEW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#WFlag_LoadView,T_WFlags(a5)	Si LoadView en route
+	beq.s	.NoLoadView
+	move.l	Old_LoadView(pc),d0		Ancienne fonction
+	beq.s	.NoLoadView
+	move.w	#-222,a0			LOADVIEW
+	move.l	T_GfxBase(a5),a1		Librairie
+	move.l	$4.w,a6
+	jsr	-420(a6)			Set function
+.NoLoadView
+
+;	Debranche l'input.device
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	T_DevHere(a5)
+	beq.s	.skip0
+	lea	T_Interrupt(a5),a0
+	lea	T_IoDevice(a5),a1
+	move.l	a0,io_Data(a1)
+	move.w	#IND_REMHANDLER,Io_Command(a1)
+	move.l	$4.w,a6
+	jsr	_LVODoIo(a6)
+	lea	T_IoDevice(a5),a1
+	bsr	ClInput
+.Skip0
+
+; 	Arret des toutes les fonctions AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	TFFonts
+;	bsr	WiEnd			Rts!
+	bsr	SyEnd
+	bsr	EcEnd
+	bsr	RbEnd
+	bsr	BbEnd
+	bsr	HsEnd
+	bsr	VBLEnd
+	bsr	CpEnd
+
+;	Ferme les librairies
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a6
+	move.l	T_FntBase(a5),d0		diskfont.library
+	beq.s	.Lib0
+	move.l	d0,a1
+	jsr 	CloseLib(a6)
+.Lib0	move.l	T_LayBase(a5),d0		layer.library
+	beq.s	.Lib1
+	move.l	d0,a1
+	jsr 	CloseLib(a6)
+.Lib1	move.l	T_GfxBase(a5),d0		graphics.library
+	beq.s	.Lib2
+	move.l	d0,a6				Ferme la fonte par defaut
+	move.l	T_DefaultFont(a5),d0
+	beq.s	.Lib2
+	move.l	d0,a1
+	jsr	_LVOCloseFont(a6)
+.Lib2
+	moveq	#0,d0
+	rts
+
+; Fin d'access au fonctions systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IceEnd
+; Relance l'ancien AMOS (si 2.0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#$0200,T_WVersion(a5)
+	bcs.s	.No20_a
+	move.l	T_Stopped(a5),d0
+	beq.s	.Skup
+	move.l	d0,a0
+	move.b	#" ",(a0)
+; Remet son ancien nom
+.Skup	move.l	T_MyTask(a5),d0
+	beq.s	.Skiip
+	move.l	d0,a0
+	move.l	T_OldName(a5),10(a0)
+.Skiip
+.No20_a
+; Enleve la gestion memoire si definie
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	WMemEnd			Plus de memory checking!
+	rts
+
+;	Envoie un signal � l'AMOS_Switcher (D3= signal)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Send_Switcher
+	lea	Switcher(pc),a1
+	move.l	$4.w,a6
+	jsr	_LVOFindTask(a6)
+	tst.l	d0
+	beq.s	.PaSwi
+	move.l	d0,a1
+	moveq	#0,d0
+	bset	d3,d0
+	jsr	_LVOSignal(a6)
+.PaSwi	rts
+
+;	Fabrique la fonte par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Wi_MakeFonte
+	movem.l	a2/d2-d7,-(sp)
+	moveq	#0,d1			Ecran 16x8, 2 couleur
+	moveq	#16,d2
+	moveq	#8,d3
+	moveq	#1,d4
+	moveq	#0,d5
+	moveq	#2,d6
+	lea	Wi_MakeFonte(pc),a1
+	bsr	EcCree
+	bne	.Error
+; Boucle de creation
+	move.l	#8*256,d0
+	SyCall	MemFastClear
+	beq	.Error
+	move.l	a0,T_JeuDefo(a5)
+	move.l	a0,a2
+	lea	32*8(a2),a0
+	moveq	#32,d2
+	move.w	#128,d3
+	bsr	.CreeFont
+	lea	160*8(a2),a0
+	move.w	#160,d2
+	move.w	#256,d3
+	bsr	.CreeFont
+; Poke les caracteres specifiques
+	lea	Def_Font(pc),a0
+	move.l	a2,a1
+	moveq	#(8*32)/4-1,d0
+.Copy1	move.l	(a0)+,(a1)+
+	dbra	d0,.Copy1
+	lea	128*8(a2),a1
+	moveq	#(8*32)/4-1,d0
+.Copy2	move.l	(a0)+,(a1)+
+	dbra	d0,.Copy2
+; A y est!
+	moveq	#0,d0
+	bra.s	.Out
+; Erreur
+.Error	moveq	#1,d0
+; Sortie!
+.Out	move.l	d0,-(sp)
+	moveq	#0,d0
+	bsr	EcDel
+	move.l	(sp)+,d0
+	movem.l	(sp)+,a2/d2-d7
+	rts
+; Saisit les caracteres d2-d3
+.CreeFont
+	movem.l	d2/d3/a2/a3/a6,-(sp)
+	move.l	a0,a2
+	move.l	T_EcCourant(a5),a3
+.Car	move.l	T_RastPort(a5),a1		Le rastport
+	move.w	#0,36(a1)			Curseur en 0,0
+	move.w	#6,38(a1)
+	moveq	#1,d0				Un caractere
+	lea	.COut(pc),a0
+	move.b	d2,(a0)
+	move.l	T_GfxBase(a5),a6		La fonction
+	jsr	_LVOText(a6)
+	move.l	EcLogic(a3),a0			Boucle de recopie
+	move.w	EcTligne(a3),d0
+	ext.l	d0
+	moveq	#7,d1
+.Loop	move.b	(a0),(a2)+
+	add.l	d0,a0
+	dbra	d1,.Loop
+	addq.w	#1,d2
+	cmp.w	d3,d2
+	bcs.s	.Car
+	movem.l	(sp)+,d2/d3/a2/a3/a6
+	rts
+.COut	dc.w	0
+
+;	Effacement du jeu de caracteres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Wi_DelFonte
+	move.l	T_JeuDefo(a5),d0
+	beq.s	.Sip
+	move.l	d0,a1
+	move.l	#8*256,d0
+	SyCall	MemFree
+	clr.l	T_JeuDefo(a5)
+.Sip	rts
+
+***********************************************************
+* Librairies
+FntName:	dc.b	"diskfont.library",0
+DevName		dc.b	"input.device",0
+ConName		dc.b	"console.device",0
+LayName		dc.b	"layers.library",0
+TopazName	dc.b	"topaz.font",0
+Switcher	dc.b	"_Switcher AMOS_",0
+TaskName	dc.b	" AMOS",0
+		even
+***********************************************************
+
+; 	Patch sur LOADVIEW si AMOS TO FRONT si AA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_LoadView
+	tst.b	0.l			T_AMOSHere, modifie lors du patch...
+	bne.s	.Wb
+	move.l	Old_LoadView(pc),-(sp)
+.Wb	rts
+Old_LoadView	dc.l	0		Ici et pas ailleurs...
+
+; AMOS / WORKBENCH
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1=0	> 	Workbench
+;	D1>0	>	AMOS
+;	D1<0	>	Rien (trouver valeur)
+;	Retour D1= AMOS ici(-1), WB ici (0)
+TAMOSWb
+	tst.w	d1
+	beq	.ToWB
+	bmi	.Return
+
+; 	Back to AMOS
+; ~~~~~~~~~~~~~~~~~~
+.ToAMOS	tst.b	T_AMOSHere(a5)
+	bne	.Return
+	move.b	#-1,T_AMOSHere+1(a5)		Code interdisant les requester
+
+; Load View(0) + WaitTOF si AA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#WFlag_LoadView,T_WFlags(a5)
+	beq.s	.PaAA0
+	movem.l	d0-d3/a0-a2/a6,-(sp)
+
+	move.l	T_IntBase(a5),a6		Ouvre un ecran LOWRES
+
+	btst	#WFlag_WBClosed,T_WFlags(a5)	Si WB ferme, le referme!
+	beq.s	.NoWB
+	jsr	-78(a6)
+.NoWB
+	lea	NewScreen(pc),a0
+	jsr	OpenScreen(a6)
+	move.l	d0,T_IntScreen(a5)
+
+	move.l	T_GfxBase(a5),a6		WaitTOF
+	jsr	-$10e(a6)
+	jsr	-$10e(a6)
+
+	sub.l	a1,a1
+	move.l	T_GfxBase(a5),a6
+	jsr	-$de(a6)			LoadView(a0)
+	jsr	-$10e(a6)			WaitTOF
+	jsr	-$10e(a6)			WaitTOF
+	move.w	$dff07c,d0
+	cmp.b	#$f8,d0				AA Chipset?
+	bne.s	.NoBug
+	move.w	#0,$dff1fc			Sprite resolution
+	move.w	#%0000110000000000,$dff106	Sprite width / DualPF palette
+.NoBug
+
+	movem.l	(sp)+,d0-d3/a0-a2/a6
+.PaAA0
+	lea	Circuits,a0			Remet les circuits
+	move.w	#$8080,JoyTest(a0)
+	move.l 	T_CopPhysic(a5),$80(a0)
+	clr.w 	$88(a0)
+	move.b	#-1,T_AMOSHere(a5)		AMOS en front!
+	clr.b	T_AMOSHere+1(a5)		Flip termine!
+	bra.s	.Return
+
+; 	Goto workbench
+; ~~~~~~~~~~~~~~~~~~~~
+.ToWB	tst.b	T_AMOSHere(a5)
+	beq.s	.Return
+	clr.b	T_AMOSHere(a5)			AMOS en fond!
+	move.b	#-1,T_AMOSHere+1(a5)		Code interdisant les requesters
+
+	move.w	T_OldDma(a5),$Dff096		Remet les chips
+	move.l	T_GfxBase(a5),a0
+	move.l 	38(a0),$dff080
+	clr.w	$dff088
+
+; Efface l'ecran si AA
+; ~~~~~~~~~~~~~~~~~~~~
+	btst	#WFlag_LoadView,T_WFlags(a5)
+	beq.s	.PaAA1
+	movem.l	d0-d3/a0-a2/a6,-(sp)
+	move.l	T_IntBase(a5),a6		Close Screen
+	btst	#WFlag_WBClosed,T_WFlags(a5)	Si WB ferme, le rouvre!
+	beq.s	.NoBW
+	jsr	-210(a6)			Reopen workbench
+.NoBW	move.l	T_IntScreen(a5),a0		Close screen
+	jsr	CloseScreen(a6)
+	move.l	T_GfxBase(a5),a6
+	jsr	-$10e(a6)			WaitTOF
+	jsr	-$10e(a6)			WaitTOF
+	movem.l	(sp)+,d0-d3/a0-a2/a6
+.PaAA1
+	clr.b	T_AMOSHere+1(a5)		Flip termine!
+
+; Retourne l'etat actuel
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Return	move.b	T_AMOSHere(a5),d1
+	ext.w	d1
+	ext.l	d1
+	moveq	#0,d0
+	rts
+
+;	Clear CPU Caches
+; ~~~~~~~~~~~~~~~~~~~~~~
+Sys_ClearCache
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	cmp.w	#37,$14(a6)			A partir de V37
+	bcs.s	.Exit
+	jsr	-$27c(a6)			CacheClearU
+.Exit	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ZONE DE DONNE CENTRALE (BEARK)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Table des sauts aux affichages texte
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TAdCol		dc.l CZero-TAdCol,CNorm-TAdCol
+		dc.l CInv-TAdCol,CUn-TAdCol
+		dc.l CNul-TAdCol
+
+;		Zone de donnee externe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ConIo		ds.b 	32+8
+LConBuffer	equ	64
+ConBuffer	ds.b 	LConBuffer
+ConEssai	ds.b	32
+W_Base		ds.l	1
+GfxBase		ds.l	1
+WRastPort	ds.l	1
+FoPat		dc.w	-1
+; Autoback fenetres
+WiAuto		ds.b	8*6+WiSAuto+4
+		even
+; Table de retournement bobs
+TRetour		ds.b	256
+
+NTx:		equ 480
+NTy:		equ 12
+NNp:		equ 1
+NewScreen:	dc.w 0,0,NTx,NTy,NNp
+		dc.b 1,0
+		dc.w %0010000000000000,%00000110
+		dc.l 0,0,0,0
+		ds.b	16
+		even
+
+;		Caracteres speciaux des fontes AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Def_Font	IncBin	"bin/+WFont.bin"
+		even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* SYSTEME : SOURIS / CLAVIER / INTER VBL
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+
+***********************************************************
+*	DEMARRAGE A FROID DU SYSTEME
+***********************************************************
+SyInit:
+	bsr	AMALInit
+	moveq	#0,d0
+	rts
+***********************************************************
+*	ARRET FINAL DU SYSTEME
+***********************************************************
+SyEnd:	bsr	AMALEnd
+	moveq	#0,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Initialisation / Fin du requester
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Demarrage du requester (a0)= default palette
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WRequest_Start
+; Copy default palette
+	lea	8*2(a0),a0
+	lea	Req_Pal+8*2(pc),a1
+	moveq	#24-1,d0
+CPal	move.w	(a0)+,(a1)+
+	dbra	d0,CPal
+; Branch the requester
+	lea	AutoReq(pc),a2
+	lea	EasyReq(pc),a3
+	bsr.s	SetJump
+	move.l	a2,T_PrevAuto(a5)
+	move.l	a3,T_PrevEasy(a5)
+	move.w	#-1,T_ReqFlag(a5)	        * Default is AMOS request
+	rts
+
+;	Arret du requester
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+WRequest_Stop
+	tst.l	T_PrevAuto(a5)
+	beq.s	.Skip
+	move.l	T_PrevAuto(a5),a2
+	move.l	T_PrevEasy(a5),a3
+	bsr.s	SetJump
+.Skip	rts
+
+; Branche A2/a3 sur easy/auto request
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SetJump	movem.l	a0/a1/a6,-(sp)
+	move.l	$4.w,a6
+; AutoRequest
+	move.l	a2,d0
+	lea	-$15c,a0
+	move.l	T_IntBase(a5),a1
+	jsr	SetFunction(a6)
+	move.l	d0,a2
+; EasyRequest, seulement si wb>=2.0
+	move.l	$4.w,a0
+	cmp.w	#36,$14(a0)
+	bcs.s	.skip
+	move.l	a3,d0
+	lea	-$1d4-(20*6),a0
+	move.l	T_IntBase(a5),a1
+	jsr	SetFunction(a6)
+	move.l	d0,a3
+.skip	movem.l	(sp)+,a0/a1/a6
+	rts
+
+******* Table des sauts
+SyIn:	bra 	ClInky			;0 -Inkey:
+	bra	ClVide			;1 -ClearKey:
+	bra 	ClSh			;2 -Shifts:
+	bra	ClInst			;3 -Instant:
+	bra	ClKeyM			;4 -KeyMap:
+	bra	ClJoy			;5 -Joy:
+	bra	ClPutK			;6 -PutKey:
+	bra	MHide			;7 -Hide:
+	bra	MShow			;8 -Show:
+	bra	MChange			;9 -ChangeM:	 ChMouse
+	bra	MXy			;10-XyMou:	 XY Mouse
+	bra	CXyHard			;11-XyHard:	 Conversion SCREEN-> HARD
+	bra	CXyScr			;12-XyScr:	 Conversion HARD-> SCREEN
+	bra	MBout			;13-MouseKey:
+	bra	MSetAb			;14-SetM:
+	bra	GetSIn			;15-ScIn:	 Get screen IN
+	bra	CXyWi			;16-XyWin:	 Conversion SCREEN-> WINDOW courante
+	bra	MLimA			;17-LimitM:	 Limit mouse
+	bra	SyZoHd			;18-ZoHd:	 Zone coordonnees HARD
+	bra	SyResZ			;19-ResZone:	 Reserve des zones
+	bra	SyRazZ			;20-RazZone:	 Effacement zones
+	bra	SySetZ			;21-SetZone:	 Set zone
+	bra	SyMouZ			;22-GetZone:	 Zone souris!
+	bra	WVbl			;23-WaitVbl:
+	bra	HsSet			;24-SetHs:	 Affiche un hard sprite
+	bra	HsUSet			;25-USetHs:	 Efface un hard sprite
+	bra	ClFFk			;26-SetFunk:
+	bra	ClGFFk			;27-GetFunk:
+	bra	HsAff			;28-AffHs:	 Recalcule les hard sprites
+	bra	HsBank			;29-SetSpBank:	 Fixe la banque de sprites
+	bra	HsNXYA			;30-NXYAHs:	 Instruction sprite
+	bra	HsXOff			;31-XOffHs:	 Sprite off n
+	bra	HsOff			;32-OffHs:	 All sprite off
+	bra	HsAct			;33-ActHs:	 Actualisation HSprite
+	bra	HsSBuf			;34-SBufHs:	 Set nombre de lignes
+	bra	HsStAct			;35-StActHs:	 Arrete les HS sans deasctiver!
+	bra	HsReAct			;36-ReActHs:	 Re-Active tous!
+	bra	MStore			;37-StoreM:	 Stocke etat souris / Show on
+	bra	MRecall			;38-RecallM:	 Remet la souris
+	bra	HsPri			;39-PriHs:	 Priorites SPRITES/PLAYFIELD
+	bra	TokAMAL			;40-AMALTok:	 Tokenise AMAL
+	bra	CreAMAL			;41-AMALCre:	 Demarre AMAL
+	bra	MvOAMAL			;42-AMALMvO:	 On/Off/Freeze AMAL
+	bra	DAllAMAL		;43-AMALDAll:	 Enleve TOUT!
+	bra	Animeur			;44-AMAL:	 Un coup d'animation
+	bra	RegAMAL			;45-AMALReg:	 Registre!
+	bra	ClrAMAL			;46-AMALClr:	 Clear
+	bra	FrzAMAL			;47-AMALFrz:	 FREEZE all
+	bra	UFrzAMAL		;48-AMALUFrz:	 UNFREEZE all
+	bra	BobSet			;49-SetBob:	 Entree set bob
+	bra	BobOff			;50-OffBob:	 Arret bob
+	bra	BobSOff			;51-OffBobS:	 Arret tous bobs
+	bra 	BobAct			;52-ActBob:	 Actualisation bobs
+	bra	BobAff			;53-AffBob:	 Affichage bobs
+	bra	BobEff			;54-EffBob:	 Effacement bobs
+	bra	ChipMM			;55-SyChip:	 Reserve CHIP
+	bra	FastMM			;56-SyFast:	 Reserve FAST
+	bra	BobLim			;57-LimBob:	 Limite bobs!
+	bra	SyZoGr			;58-ZoGr:	 Zone coord graphiques
+	bra	GetBob			;59-SprGet:	 Saisie graphique
+	bra	Masque			;60-MaskMk:	 Calcul du masque
+	bra	SpotH			;61-SpotHot:	 Fixe le point chaud
+	bra	BbColl			;62-ColBob:	 Collisions bob
+	bra	GetCol			;63-ColGet:	 Fonction collision
+	bra	SpColl			;64-ColSpr:	 Collisions sprites
+	bra	SyncO			;65-SetSync:	 Synchro on/off
+	bra	Sync			;66-Synchro:	 Synchro step
+	bra	SetPlay			;67-PlaySet:	 Set play direction...
+	bra	BobXY			;68-XYBob:	 Get XY Bob
+	bra	HsXY			;69-XYSp:	 Get XY Sprite
+	bra	BobPut			;70-PutBob:	 Put Bob!
+	bra	TPatch			;71-Patch:	 Patch icon/bob!
+	bra	MRout			;72-MouRel:	 Souris relachee
+	bra	MLimEc			;73-LimitMEc:	 Limit mouse ecran
+	bra	FreeMM			;74-SyFree:	 Libere mem
+	bra	HColSet			;75-SetHCol:	 Set HardCol
+	bra	HColGet			;76-GetHCol:	 Get HardCol
+	bra	TMovon			;77-MovOn:	 Movon!
+	bra	TKSpeed			;78-KeySpeed:	 Key speed
+	bra	TChanA			;79-ChanA:	 =ChanAn
+	bra	TChanM			;80-ChanM:	 =ChanMv
+	bra	TPrio			;81-SPrio:	 Set priority
+	bra	TGetDisc		;82-GetDisc:	 State of disc drive
+	bra	Add_VBL			;83-RestartVBL	 Restart VBL
+	bra	Rem_VBL			;84-StopVBL	 Stop VBL
+	bra	ClKWait			;85-KeyWaiting	 (P) Une touche en attente?
+	bra	WMouScrFront		;86-MouScrFront	 (P) Coordonnees souris dans ecran front
+	bra	WMemReserve		;87-MemReserve	 (P) Reservation memoire secure
+	bra	WMemFree		;88-MemFree	 (P) Liberation memoire secure
+	bra	WMemCheck		;89-MemCheck	 (P) Verification memoire
+	bra	WMemFastClear		;90-MemFastClear (P)
+	bra	WMemChipClear		;91-MemChipClear
+	bra	WMemFast		;92-MemFast
+	bra	WMemChip		;93-MemChip
+	bra	WSend_FakeEvent		;94-Send_FakeEvent	Envoi d'un faux event souris
+	bra	WTest_Cyclique		;95-Test_Cyclique	Tests cyclique AMOS
+	bra	WAddFlushRoutine	;96-AddFlushRoutine	Ajoute une routine FLUSH
+	bra	WMemFlush		;97-MemFlush	 	Force un memory FLUSH
+	bra	WAddRoutine		;98-AddRoutine		Ajoute une routine
+	bra	WCallRoutines		;99-CallRoutines 	Appelle les routines
+	bra	WRequest_OnOff		;100-Set Requester	Change le requester
+
+; ___________________________________________________________________
+;
+;	RESERVATION / LIBERATION MEMOIRE CENTRALISEE / DEBUGGAGE
+; ___________________________________________________________________
+;
+		RsReset
+Mem_Length	rs.l	1
+Mem_Pile	rs.l	8
+Mem_Header	equ	__Rs
+Mem_Border	equ	128
+Mem_Code	equ	$AA
+MemList_Size	equ	1024*8
+
+; Reservations directes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	IN:	D0	length
+;	OUT:	A0	adress / nothing else changed.
+WMemFastClear
+	move.l	d1,-(sp)
+	move.l	#Public|Clear,d1
+	bsr	WMemReserve
+	movem.l	(sp)+,d1
+	rts
+WMemFast
+	move.l	d1,-(sp)
+	move.l	#Public,d1
+	bsr	WMemReserve
+	movem.l	(sp)+,d1
+	rts
+WMemChipClear
+	move.l	d1,-(sp)
+	move.l	#Chip|Public|Clear,d1
+	bsr	WMemReserve
+	movem.l	(sp)+,d1
+	rts
+WMemChip
+	move.l	d1,-(sp)
+	move.l	#Chip|Public,d1
+	bsr	WMemReserve
+	movem.l	(sp)+,d1
+	rts
+
+
+	IFEQ	Debug
+
+; Reservation memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Longueur
+;	D1=	Flags
+WMemReserve
+	movem.l	d0-d3/a1/a5-a6,-(sp)
+	move.l	W_Base(pc),a5
+	move.l	d1,d2
+	move.l	d0,d3
+	move.l	$4.w,a6
+	jsr	AllocMem(a6)
+	tst.l	d0
+	bne.s	.MemX
+; Out of memory: flush procedure!
+	bsr	WMemFlush
+; Try once again
+	move.l	d2,d1
+	move.l	d3,d0
+	jsr	AllocMem(a6)
+; Get out, address in A0, Z set.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MemX	move.l	d0,a0
+	tst.l	d0
+	movem.l	(sp)+,d0-d3/a1/a5-a6
+	rts
+
+; Liberation memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1=	Debut zone
+;	D0=	Taille zone
+WMemFree
+	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.l	$4.w,a6
+	jsr	FreeMem(a6)
+	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+; Fausses fonctions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemInit
+WMemEnd
+WMemCheck
+	rts
+	ENDC
+	IFNE	Debug
+; Initialisation memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemInit
+	movem.l	a0-a1/a5-a6/d0-d1,-(sp)
+	move.l	W_Base(pc),a5
+	move.l	#MemList_Size*4,d0
+	move.l	#Clear|Public,d1
+	move.l	$4.w,a6
+	jsr	AllocMem(a6)
+	move.l	d0,T_MemList(a5)
+	movem.l	(sp)+,a0-a1/a5-a6/d0-d1
+	rts
+
+; Fin memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemEnd
+	movem.l	a0-a1/a5-a6/d0-d1,-(sp)
+	bsr	WMemCheck
+	tst.l	d0
+	beq.s	.Skip
+	bsr	BugBug
+.Skip	move.l	W_Base(pc),a5
+	move.l	#MemList_Size*4,d0
+	move.l	T_MemList(a5),a1
+	move.l	$4.w,a6
+	jsr	FreeMem(a6)
+	clr.l	T_MemList(a5)
+	movem.l	(sp)+,a0-a1/a5-a6/d0-d1
+	rts
+
+; Reservation memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Longueur
+;	D1=	Flags
+WMemReserve
+	movem.l	d0-d3/a1-a2/a5-a6,-(sp)
+	move.l	W_Base(pc),a5
+
+;	cmp.l	#$4FC-Mem_Header-2*Mem_Border,d0
+;	bne.s	.Skip
+;	jsr	BugBug
+;.Skip
+	move.l	d1,d2
+	move.l	d0,d3
+	add.l	#Mem_Header+2*Mem_Border,d0
+	move.l	$4.w,a6
+	jsr	AllocMem(a6)
+	tst.l	d0
+	beq.s	.OutM
+; Store the adress in the table
+.Again	move.l	T_MemList(a5),a0
+.Free	tst.l	(a0)+
+	bne.s	.Free
+	move.l	d0,-4(a0)
+	move.l	d0,a0
+	move.l	d3,(a0)+			Save length
+	lea	4*4+4*4(sp),a1
+	moveq	#7,d1
+.Save	move.l	(a1)+,(a0)+			Save Content of pile
+	dbra	d1,.Save
+; Put code before and after memory
+	move.b	#Mem_Code,d2
+	move.w	#Mem_Border-1,d1
+	move.l	a0,a1
+	add.l	#Mem_Border,a1
+	add.l	d3,a1
+.Code1	move.b	d2,(a0)+
+	move.b	d2,(a1)+
+	dbra	d1,.Code1
+; All right, memory reserved
+	add.l	#Mem_Header+Mem_Border,d0
+	bra.s	.MemX
+; Out of memory: flush procedure!
+.OutM	bsr	WMemFlush
+; Try once again
+	move.l	d2,d1
+	move.l	d3,d0
+	add.l	#Mem_Header+2*Mem_Border,d0
+	jsr	AllocMem(a6)
+	tst.l	d0
+	bne.s	.Again
+; Get out, address in A0, Z set.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MemX	move.l	d0,a0
+	tst.l	d0
+	movem.l	(sp)+,d0-d3/a1-a2/a5-a6
+	rts
+
+; Liberation memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1=	Debut zone
+;	D0=	Taille zone
+WMemFree
+	movem.l	d0-d2/a0-a2/a5-a6,-(sp)
+	move.l	W_Base(pc),a5
+; Find in the list
+	sub.l	#Mem_Header+Mem_Border,a1
+	move.l	T_MemList(a5),a2
+	move.w	#MemList_Size-1,d2
+.Find	cmp.l	(a2)+,a1
+	beq.s	.Found
+	dbra	d2,.Find
+	bra.s	Mem_NFound
+; Found, erase from the list
+.Found	clr.l	-4(a2)
+; Check the length
+	cmp.l	Mem_Length(a1),d0
+	bne.s	Mem_BLen
+; Check the borders
+	lea	Mem_Header(a1),a0
+	move.l	a0,a2
+	add.l	#Mem_Border,a2
+	add.l	d0,a2
+	move.w	#Mem_Border-1,d1
+.Check	cmp.b	#Mem_Code,(a0)+
+	bne.s	Mem_BCode
+	cmp.b	#Mem_Code,(a2)+
+	bne.s	Mem_BCode
+	dbra	d1,.Check
+; Perfect!
+	add.l	#Mem_Header+2*Mem_Border,d0
+	move.l	$4.w,a6
+	jsr	FreeMem(a6)
+Mem_Go	movem.l	(sp)+,d0-d2/a0-a2/a5-a6
+	rts
+; Error messages
+; ~~~~~~~~~~~~~~
+Mem_NFound
+	bsr	BugBug
+	bra.s	Mem_Go
+	dc.b	"No found"
+Mem_BLen
+	bsr	BugBug
+	bra.s	Mem_Go
+	dc.b	"Bad leng"
+Mem_BCode
+	bsr	BugBug
+	bra.s	Mem_Go
+	dc.b	"Bad code"
+
+; Check the whole memory list
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemCheck
+	movem.l	d1-d2/a0-a2/a5-a6,-(sp)
+	move.l	W_Base(pc),a5
+	moveq	#0,d2
+	move.l	T_MemList(a5),a0
+	move.w	#MemList_Size-1,d0
+.List	tst.l	(a0)+
+	beq.s	.Next
+	move.l	-4(a0),a1
+	add.l	(a1),d2
+; Check the borders
+	move.l	(a1),d1
+	lea	Mem_Header(a1),a1
+	lea	0(a1,d1.l),a2
+	add.l	#Mem_Border,a2
+	move.w	#Mem_Border-1,d1
+.Check	cmp.b	#Mem_Code,(a1)+
+	bne.s	.BCode2
+	cmp.b	#Mem_Code,(a2)+
+	bne.s	.BCode2
+	dbra	d1,.Check
+; Next chunk
+.Next	dbra	d0,.list
+	move.l	d2,d0
+.Xx	movem.l	(sp)+,d1-d2/a0-a2/a5-a6
+	rts
+.BCode2
+	bsr	BugBug
+	moveq	#0,d0
+	bra.s	.Xx
+	dc.b	"Bad code"
+	even
+
+	ENDC
+
+;	Ajoute une routine flush
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WAddFlushRoutine
+	move.l	a2,-(sp)
+	lea	T_MemFlush(a5),a2
+	bsr.s	WAddRoutine
+	move.l	(sp)+,a2
+	rts
+;	Insere une routine dans une liste de routines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1=	Pointeur sur structure
+;	A2=	Liste des routines
+;		dc.l	0
+;		...routine...
+WAddRoutine
+	tst.l	(a1)			Deja la?
+	bmi.s	.Deja
+	move.l	(a2),d0
+	lsr.l	#1,d0
+	bset	#31,d0
+	move.l	d0,(a1)			Branche dans la liste
+	move.l	a1,(a2)
+.Deja	rts
+
+;	Apelle le memory flush
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemFlush
+	lea	T_MemFlush(a5),a1
+;	Appelle une liste de routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1=	Liste des routines
+WCallRoutines
+	move.l	(a1),d0
+	beq.s	.Out
+	clr.l	(a1)
+.Loop	move.l	d0,a0
+	move.l	(a0),d0
+	clr.l	(a0)
+	lsl.l	#1,d0
+	movem.l	a0-a6/d0-d7,-(sp)
+	jsr	4(a0)
+	movem.l	(sp)+,a0-a6/d0-d7
+	tst.l	d0
+	bne.s	.Loop
+.Out	rts
+
+***********************************************************
+*	Gestion de la souris
+***********************************************************
+
+******* Branche les interruptions
+VblInit:
+* Init couleurs
+	bsr	FlInit
+	bsr	ShInit
+* Init souris
+	move.l	T_MouBank(a5),a0
+	move.l	a0,T_MouDes(a5)
+	move.w	2(a0),T_MouTY(a5)
+	clr.w	T_MouXOld(a5)
+	clr.w	T_MouYOld(a5)
+	move.w	#-1,T_MouShow(a5)
+* Branche les interruptions!
+	bsr	Add_VBL
+	rts
+
+******* Branche PROPREMENT les interruptions VBL...
+Add_VBL
+	move.l	a6,-(sp)
+	lea	T_VBL_Is(a5),a1
+	move.b	#NT_INTERRUPT,Ln_Type(a1)
+	move.b	#100,Ln_Pri(a1)
+	clr.l	Ln_Name(a1)
+	move.l	a5,IS_DATA(a1)
+	lea	VBLIn(pc),a0
+	move.l	a0,IS_CODE(a1)
+	move.l	$4.w,a6
+	move.l	#INTB_VERTB,d0
+	jsr	_LVOAddIntServer(a6)
+	move.l	(sp)+,a6
+	rts
+******* Debranche PROPREMENT les interruptions VBL...
+Rem_VBL
+VBLEnd
+	move.l	a6,-(sp)
+	lea	T_VBL_Is(a5),a1
+	tst.l	IS_CODE(a1)
+	beq.s	.skip
+	move.l	$4.w,a6
+	move.l	#INTB_VERTB,d0
+	jsr	_LVORemIntServer(a6)
+.skip	move.l	(sp)+,a6
+	rts
+
+******* Entree des interruptions
+VblIn:	movem.l	d2-d7/a2-a4,-(sp)
+	lea	Circuits,a6
+	move.l	a1,a5
+* Fait les switch entrelaces
+	tst.w	T_InterBit(a5)
+	beq.s	SIntX2
+	lea	T_InterList(a5),a5
+	move.l	(a5)+,d0
+	beq.s	SIntX
+	move.w	$4(a6),d6
+SInt0	move.l	d0,a4			* Adresse ecran
+	move.l	(a5)+,a3		* Adresse marqueur
+	move.w	EcNPlan(a4),d5		* D5 Nb de plans
+	subq.w	#1,d5
+	move.l	(a3)+,d2
+	beq.s	SInt4
+SInt1	move.l	(a3)+,a0
+	tst.w	d6
+	bmi.s	SInt2
+	move.w	EcTx(a4),d0
+	lsr.w	#3,d0
+	add.w	d0,a0
+SInt2	move.w	d5,d1
+	move.l	d2,a2
+	lea	EcPhysic(a4),a1
+SInt3	move.l	(a1)+,d0
+	add.l	a0,d0
+	move.w	d0,6(a2)
+	swap	d0
+	move.w	d0,2(a2)
+	addq.l	#8,a2
+	dbra	d1,SInt3
+	move.l	(a3)+,d2
+	bne.s	SInt1
+SInt4	move.l	(a5)+,d0
+	bne.s	SInt0
+SIntX	move.l	W_Base(pc),a5
+SIntX2
+
+* Fait les screen swaps
+	lea	T_SwapList(a5),a0
+	move.l	(a0),d0
+	beq.s	SSwpX
+	clr.l	(a0)+
+SSwp1:	move.l	a0,a1
+	move.l	d0,a4
+	move.w	(a1)+,d1		* Nb de plans
+	move.l	(a4)+,d0
+	beq.s	SSwp4
+SSwp2:	move.l	(a4)+,d3		* Decalage
+	move.l	d0,a3
+	move.l	a1,a2
+	move.w	d1,d2
+SSwp3:	move.l	(a2)+,d0
+	add.l	d3,d0
+	move.w	d0,6(a3)
+	swap	d0
+	move.w	d0,2(a3)
+	addq.l	#8,a3
+	dbra	d2,SSwp3
+	move.l	(a4)+,d0
+	bne.s	SSwp2
+SSwp4:	lea	SwapL-4(a0),a0
+	move.l	(a0)+,d0
+	bne.s	SSwp1
+SSwpX:
+
+* Change l'adresses des sprites hard
+	move.l	T_HsChange(a5),d0
+	beq.s	VblPaHs
+	clr.l	T_HsChange(a5)
+	bsr	HsPCop
+VblPaHs:
+
+* Marque le VBL
+	addq.l	#1,T_VBLCount(a5)
+	addq.l	#1,T_VBLTimer(a5)
+	subq.w	#1,T_EveCpt(a5)
+	bset	#BitVBL,T_Actualise(a5)
+
+* Appelle les autres routines
+	lea	VblRout(a5),a4
+	move.l	(a4)+,d0
+	beq.s	VblPaCa
+VblCall	move.l	d0,a0
+	jsr	(a0)
+	move.l	(a4)+,d0
+	bne.s	VblCall
+VblPaCa
+* Affiche la souris
+	bsr	MousInt
+* Couleurs
+	lea	T_CopMark(a5),a3
+
+	IFEQ	EZFlag
+	bsr	Shifter
+	ENDC
+
+	bsr	FlInt
+	bsr	FadeI
+
+	IFEQ	EZFlag
+* Animations
+	move.w	T_SyncOff(a5),d0
+	bne.s	PaSync
+	bsr	Animeur
+PaSync:
+	ENDC
+
+	movem.l	(sp)+,d2-d7/a2-a4
+	lea	$DFF000,a0
+	moveq	#0,d0
+	rts
+
+******* WAIT VBL D0, multitache
+WVbl_D0	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.w	d0,-(sp)
+.Lp	move.l	T_GfxBase(a5),a6
+	jsr	_LVOWaitTOF(a6)
+	subq.w	#1,(sp)
+	bne.s	.Lp
+	addq.l	#2,sp
+	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+******* WAIT VBL
+WVbl:	move.l	T_VblCount(a5),d0
+WVbl1:	cmp.l	T_VblCount(a5),d0
+	beq.s	WVbl1
+	moveq	#0,d0
+	rts
+
+******* Traitement de la souris
+MousInt:tst.b	T_AMOSHere(a5)
+	beq	MouF
+
+	move.w	T_MouseX(a5),d0
+	move.w	T_MouseY(a5),d1
+
+; Limite la souris
+MouV7	cmp.w	T_MouXMin(a5),d0
+	bge.s	Mou5
+	move.w	T_MouXMin(a5),d0
+Mou5:	cmp.w	T_MouXMax(a5),d0
+	ble.s	Mou6
+	move.w	T_MouXMax(a5),d0
+Mou6:	cmp.w	T_MouYMin(a5),d1
+	bge.s	Mou7
+	move.w	T_MouYMin(a5),d1
+Mou7:	cmp.w	T_MouYMax(a5),d1
+	ble.s	Mou8
+	move.w	T_MouYMax(a5),d1
+Mou8:	move.w	d0,T_MouseX(a5)
+	move.w	d1,T_MouseY(a5)
+	lsr.w	#1,d0
+	lsr.w	#1,d1
+	move.w	d0,T_XMouse(a5)
+	move.w	d1,T_YMouse(a5)
+
+; Poke les mots de control, si SHOW
+	move.w	T_MouShow(a5),d2
+	bmi.s	MouF
+	sub.w	T_MouHotX(a5),d0
+	sub.w	T_MouHotY(a5),d1
+	move.l	T_HsPhysic(a5),a0		;Adresse du dessin
+	move.l	T_HsLogic(a5),a1
+	move.l	T_HsInter(a5),a2
+	ror.w	#1,d0
+	move.b	d1,d2
+	lsl.w	#8,d2
+	move.b	d0,d2
+	move.w	d2,(a0)
+	move.w	d2,(a1)
+	move.w	d2,(a2)
+	clr.w	d2
+	btst	#8,d1
+	beq.s	Mou10
+	bset	#8+2,d2
+Mou10:	add.w	T_MouTy(a5),d1
+	move.b	d1,d2
+	ror.w	#8,d2
+	btst	#8,d1
+	beq.s	Mou11
+	bset	#1,d2
+Mou11:	btst	#15,d0
+	beq.s	Mou12
+	bset	#0,d2
+Mou12:	move.w	d2,2(a0)
+	move.w	d2,2(a1)
+	move.w	d2,2(a2)
+MouF:	rts
+
+***********************************************************
+*	BOUTONS DE LA SOURIS
+***********************************************************
+MBout:	clr.w	d1
+	tst.b	T_AMOSHere(a5)
+	beq.s	MouB3
+	move.w	T_MouXOld(a5),d0
+	btst	#IEQUALIFIERB_LEFTBUTTON,d0
+	beq.s	MouB1
+	bset	#0,d1
+MouB1:	btst	#IEQUALIFIERB_RBUTTON,d0
+	beq.s	MouB2
+	bset	#1,d1
+MouB2:	btst	#IEQUALIFIERB_MIDBUTTON,d0
+	beq.s	MouB3
+	bset	#2,d1
+MouB3:	moveq	#0,d0
+	rts
+******* Bouton relache?
+MRout:	clr.w	d1
+	clr.w	d2
+	clr.w	d3
+	tst.b	T_AMOSHere(a5)
+	beq.s	MouB3
+	move.w	T_OldMk(a5),d2
+	move.w	T_MouXOld(a5),d0
+	btst	#IEQUALIFIERB_LEFTBUTTON,d0
+	beq.s	MouR1
+	bset	#0,d3
+	btst	#0,d2
+	bne.s	MouR1
+	bset	#0,d1
+MouR1:	btst	#IEQUALIFIERB_RBUTTON,d0
+	beq.s	MouR2
+	bset	#1,d3
+	btst	#1,d2
+	bne.s	MouR2
+	bset	#1,d1
+MouR2:	btst	#IEQUALIFIERB_MIDBUTTON,d0
+	beq.s	MouR3
+	bset	#2,d3
+	btst	#2,d2
+	bne.s	MouR3
+	bset	#2,d1
+MouR3:	move.w	d3,T_OldMk(a5)
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	Remember MOUSE
+MRecall:move.w	T_OMouShow(a5),T_MouShow(a5)
+	move.w	T_OMouSpr(a5),d1
+	bra.s	MChange
+**********************************************************
+*	Store MOUSE/SHOW ON
+MStore:	move.w	T_MouShow(a5),T_OMouShow(a5)
+	move.w	T_MouSpr(a5),T_OMouSpr(a5)
+	clr.w	T_MouShow(a5)
+	moveq	#0,d1
+**********************************************************
+*	CHANGE MOUSE D1
+MChange:
+*******
+	move.w	T_MouShow(a5),-(sp)
+	move.w	#-1,T_MouShow(a5)
+MCh0:	move.w	d1,d2
+	cmp.w	#3,d1
+	bcc.s	MCh3
+* Pointe dans la banque de la souris
+	move.l	T_MouBank(a5),a0
+	bra.s	MCh2
+MCh1:	move.w	(a0)+,d0
+	mulu	(a0)+,d0
+	mulu	(a0)+,d0
+	lsl.w	#1,d0
+	lea	4(a0,d0.w),a0
+MCh2:	subq.w	#1,d1
+	bpl.s	MCh1
+	bra.s	MCh4
+* Pointe dans la banque de sprites
+MCh3:	move.l	T_SprBank(a5),d0
+	beq.s	MChE
+	move.l	d0,a0
+	subq.w	#3,d1
+	cmp.w	(a0)+,d1
+	bcc.s	MChE
+	lsl.w	#3,d1
+	move.l	0(a0,d1.w),a0
+	cmp.w	#1,(a0)			* Verifie ke le sprite est bon!
+	bne.s	MChE
+	cmp.w	#2,4(a0)
+	bne.s	MChE
+* Change!
+MCh4:	move.w	d2,T_MouSpr(a5)
+	move.l	a0,T_MouDes(a5)
+	move.w	2(a0),T_MouTY(a5)
+	move.w	6(a0),T_MouHotX(a5)
+	move.w	8(a0),T_MouHotY(a5)
+* Re-Affiche la souris???
+	tst.w	(sp)
+	bmi.s	MCh5
+	bsr	HiSho1
+	bra.s	MChX
+MCh5:	bsr	HiHi
+* Cbon
+MChX:	move.w	(sp)+,T_MouShow(a5)
+	moveq	#0,d0
+	rts
+* Erreur--> met la souris 1!
+MChE:	moveq	#0,d1
+	bra	MCh0
+
+**********************************************************
+*	HIDE / HIDE ON: D1= off/on
+**********************************************************
+MHide:	tst.w	T_CopON(a5)
+	beq.s	HiSho0
+	move.w	T_MouShow(a5),d0
+	tst.w	d1
+	bne.s	Hid1
+	subq.w	#1,d0
+	bra.s	HiSho
+Hid1:	moveq	#-1,d0
+	bra.s	HiSho
+
+**********************************************************
+*	SHOW / SHOW ON: D1= off/on
+**********************************************************
+MShow:	tst.w	T_CopON(a5)		* Si COPPER OFF -> NON!!!
+	beq.s	HiSho0
+	move.w	T_MouShow(a5),d0
+	tst.w	d1
+	bne.s	Sho1
+	addq.w	#1,d0
+	bra.s	HiSho
+Sho1:	moveq	#0,d0
+
+******* Routine commune / affiche - eteint
+HiSho:	move.w	d0,T_MouShow(a5)
+	beq.s	HiSho1
+	cmp.w	#-1,d0
+	bne.s	HiSho0
+; HIDE
+HiHi:	moveq	#0,d1
+	bsr	HsUSet
+	bsr	HAa3
+HiSho0:	moveq	#0,d0
+	rts
+; SHOW
+HiSho1:	move.w	#-1,T_MouShow(a5)
+	moveq	#0,d1
+	move.w	T_XMouse(a5),d2
+	move.w	T_YMouse(a5),d3
+	move.l	T_MouDes(a5),a1
+	bsr	HsSet
+	bsr	HAa3
+	clr.w	T_MouShow(a5)
+	moveq	#0,d0
+	rts
+* Appele TROIS fois HsAff!
+HAa3:	move.w	#3,-(sp)
+HA3a:	tst.l	T_HsChange(a5)
+	bne.s	HA3a
+	bsr	HsAff
+	subq.w	#1,(sp)
+	bne.s	HA3a
+	addq.l	#2,sp
+	rts
+
+**********************************************************
+*	COORDONNEES
+**********************************************************
+******* Ecrans D3
+*	<0	=> Rien du tout
+*	0	=> Ecran courant
+*	>0	=> Ecran+1
+EcToD1:	tst.w	d3
+	bmi.s	EcToD4
+	bne.s	EcToD2
+	move.l	T_EcCourant(a5),a0
+	rts
+EcToD2:	lsl.w	#2,d3
+	lea	T_EcAdr(a5),a0
+	move.l	-4(a0,d3.w),d3
+	beq.s	EcToD3
+	move.l	d3,a0
+	rts
+EcToD3:	addq.l	#4,sp
+	moveq	#3,d0
+	rts
+EcToD4:	addq.l	#4,sp
+	move.l	#EntNul,d1
+	move.l	d1,d2
+	moveq	#0,d0
+	rts
+
+*******	XYMOUSE
+MXy:	moveq	#0,d1
+	moveq	#0,d2
+	move.w	T_XMouse(a5),d1
+	move.w	T_YMouse(a5),d2
+	moveq	#0,d3
+	rts
+
+******* XYSCREEN: conversion HARD-> SCREEN
+*	D3-> Ecran
+*	D1-> X
+*	D2-> Y
+CXyScr	bsr	EcToD1
+* Coordonnee en Y
+	add.w	#EcYBase,d2
+	sub.w	EcWy(a0),d2
+	btst	#2,EcCon0+1(a0)
+	beq.s	XyH0
+	asl.w	#1,d2
+XyH0	add.w	EcVy(a0),d2
+	ext.l	d2
+* Coordonnee en X
+XyH1:	sub.w	EcWx(a0),d1
+	btst	#7,EcCon0(a0)
+	beq.s	XyH2
+	asl.w	#1,d1
+XyH2:	add.w	EcVx(a0),d1
+	ext.l	d1
+	moveq	#0,d0
+	rts
+
+******* XYHARD : conversion SCREEN -> HARD
+*	D3= ecran
+*	D1/D2= x/y
+CXyHard	bsr	EcToD1
+* Coordonnee en X
+CXyS:	tst.w	EcCon0(a0)
+	bpl.s	CXyS0
+	asr.w	#1,d1
+CXyS0:	add.w	EcWX(a0),d1
+	ext.l	d1
+* Coordonnee en Y
+CXyS2:	btst	#2,EcCon0+1(a0)
+	beq.s	CXyS3
+	asr.w	#1,d2
+CXyS3	add.w	EcWY(a0),d2
+	sub.w	#EcYBase,d2
+	ext.l	d2
+	moveq	#0,d0
+	rts
+
+******* XY WINDOW : conversion XY screen -> XY window
+*	D1/D2= X/Y
+CXyWi:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+* En X
+	sub.w	WiDyI(a0),d2
+	bmi.s	CXyw0
+	divu	WiTyCar(a0),d2
+	cmp.w	WiTyI(a0),d2
+	bcc.s	CXyw0
+	ext.l	d2
+	bra.s	CXyw1
+CXyw0:	move.l	#EntNul,d2
+* En Y
+CXyw1:	lsr.w	#3,d1
+	sub.w	WiDxI(a0),d1
+	bmi.s	CXyw3
+	cmp.w	WiTxI(a0),d1
+	bcc.s	CXyW3
+	ext.l	d1
+CXyw2:	move.l	d2,d0			D0= Signe
+	or.l	d1,d0
+	rts
+CXyw3:	move.l	#EntNul,d1
+	bra.s	CXyw2
+
+******* Retourne la souris dans l'ecran de devant
+WMouScrFront
+	move.l	d4,-(sp)
+	move.w	T_XMouse(a5),d1
+	move.w	T_YMouse(a5),d2
+	moveq	#0,d3
+	moveq	#16,d4
+	bsr	GetSIn
+	move.l	d1,d3
+	bmi.s	.Out
+	move.l	d1,-(sp)
+	addq.w	#1,d3
+	move.w	T_XMouse(a5),d1
+	move.w	T_YMouse(a5),d2
+	bsr	CXYScr
+	move.l	(sp)+,d0
+.Out	movem.l	(sp)+,d4
+	rts
+.Hors	moveq	#-1,d0
+	bra.s	.Out
+
+******* Recherche l'ecran contenant X/Y
+*	D1/D2= X/Y HARD
+*	D3= 1er ecran
+*	D4= Ecran MAX
+GetSIn:	lea	T_EcPri(a5),a1
+	add.w	#EcYBase,d2
+	tst.w	d3
+	beq.s	GSin1
+	bmi.s	GSin1
+	bsr	EcToD1
+	move.l	a1,a2
+GSin0:	tst.l	(a2)
+	bmi.s	GSin1
+	cmp.l	(a2)+,a0
+	bne.s	GSin0
+	lea	-4(a2),a1
+* Cherche l'ecran dans l'ordre des priorites
+GSin1:	move.l	(a1)+,d0
+	bmi.s	GSinX
+	move.l	d0,a0
+	cmp.w	EcNumber(a0),d4
+	bls.s	GSin1
+	btst	#BitHide,EcFlags(a0)
+	bne.s	GSin1
+* Coordonnee en X
+	move.w	d1,d3
+	sub.w	EcWx(a0),d3
+	bcs.s	GSin1
+	cmp.w	EcWTx(a0),d3
+	bcc.s	GSin1
+* Coordonnee en Y
+	move.w	d2,d3
+	sub.w	EcWy(a0),d3
+	bcs.s	GSin1
+	cmp.w	EcWTy(a0),d3
+	bcc.s	GSin1
+* Trouve!
+	moveq	#0,d1
+	move.w	EcNumber(a0),d1
+	moveq	#0,d0
+	rts
+* Pas trouve!
+GSinX:	move.l	#EntNul,d1
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	SET MOUSE
+**********************************************************
+
+******* Set mouse ABSOLU
+MSetAb:	move.l	#EntNul,d0
+
+	cmp.l	d0,d1
+	beq.s	MSaX
+	lsl.w	#1,d1
+	cmp.w	T_MouXMin(a5),d1
+	bcc.s	MSa1
+	move.w	T_MouXMin(a5),d1
+MSa1:	cmp.w	T_MouXMax(a5),d1
+	bcs.s	MSa2
+	move.w	T_MouXMax(a5),d1
+MSa2:	move.w	d1,T_MouseX(a5)
+	lsr.w	#1,d1
+	move.w	d1,T_XMouse(a5)
+
+MSaX	cmp.l	d0,d2
+	beq.s	MSaXx
+	lsl.w	#1,d2
+	cmp.w	T_MouYMin(a5),d2
+	bcc.s	MSa3
+	move.w	T_MouYMin(a5),d2
+MSa3:	cmp.w	T_MouYMax(a5),d2
+	bcs.s	MSa4
+	move.w	T_MouYMax(a5),d2
+MSa4:	move.w	d2,T_MouseY(a5)
+	lsr.w	#1,d2
+	move.w	d2,T_YMouse(a5)
+
+MSaXx:	moveq	#0,d0
+	rts
+
+**********************************************************
+*	LIMIT MOUSE D1/D2/D3/D4
+**********************************************************
+******* LIMIT MOUSE ECRAN
+*	D1= 0-> ecran courant
+*	D1>0 -> ecran
+MLimEc	move.w	d1,d3
+	move.w	d1,d4
+	clr.w	d1
+	clr.w	d2
+	bsr	CXyHard
+	movem.w	d1/d2,-(sp)
+	move.w	EcTx(a0),d1
+	move.w	EcTy(a0),d2
+	subq.w	#1,d1
+	subq.w	#1,d2
+	move.w	d4,d3
+	bsr	CXyHard
+	move.w	d1,d3
+	move.w	d2,d4
+	movem.w	(sp)+,d1-d2
+******* Absolu
+MLimA:	cmp.w	#458,d3
+	bls.s	MLima1
+	move.w	#458,d3
+MLima1	cmp.w	#312,d4
+	bls.s	MLima2
+	move.w	#312,d4
+MLima2	tst.w	d1
+	bpl.s	MLima3
+	clr.w	d1
+MLima3	tst.w	d2
+	bpl.s	MLima4
+	clr.w	d2
+MLima4	cmp.w	d3,d1
+	bls.s	MLima5
+	exg	d1,d3
+MLima5	cmp.w	d4,d2
+	bls.s	MLima6
+	exg	d2,d4
+MLima6	lsl.w	#1,d1
+	lsl.w	#1,d2
+	lsl.w	#1,d3
+	lsl.w	#1,d4
+	move.w	d1,T_MouXMin(a5)
+	move.w	d3,T_MouXMax(a5)
+	move.w	d2,T_MouYMin(a5)
+	move.w	d4,T_MouYMax(a5)
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	JOYSTICK / d1= # de port
+**********************************************************
+ClJoy:	tst.b	T_AMOSHere(a5)
+	beq.s	JoyNo
+	moveq	#6,d0			;# du bit de FEU
+	add.w	d1,d0
+	lea	Circuits,a0
+	lsl.w	#1,d1
+	move.w	10(a0,d1.w),d2
+; Prend le bouton
+	clr.w	d1
+	btst	d0,CiaAPrA
+	bne.s	Joy1
+	bset	#4,d1
+; Teste les directions
+Joy1:	lea	JoyTab(pc),a0
+	lsl.b	#6,d2
+	lsr.w 	#6,d2
+	and.w	#$000F,d2
+	or.b	0(a0,d2.w),d1
+Joy2	moveq	#0,d0
+	rts
+JoyNo	moveq	#0,d1
+	bra.s	Joy2
+JoyTab:	dc.b 	%0000,%0010,%1010,%1000,%0001,%0000,%0000,%1001
+	dc.b 	%0101,%0000,%0000,%0000,%0100,%0110,%0000,%0000
+
+***********************************************************
+*	RESERVE ZONES D1= nb de zones - Enleve la memoire
+***********************************************************
+SyResZ:	move.l	T_EcCourant(a5),a0
+	tst.l	EcAZones(a0)
+	beq.s	SyRz1
+* Efface les anciennes zones
+	move.l	EcAZones(a0),a1
+	move.w	EcNZones(a0),d0
+	mulu	#8,d0
+	bsr	FreeMm
+	clr.l	EcAZones(a0)
+	clr.w	EcNZones(a0)
+* Reserve les nouvelles
+SyRz1:	move.w	d1,d0
+	beq.s	ZoOk
+	mulu	#8,d0
+	bsr	FastMm
+	beq	RzErr
+	move.l	d0,EcAZones(a0)
+	move.w	d1,EcNZones(a0)
+ZoOk	moveq	#0,d0
+        rts
+RzErr:	moveq	#1,d0
+	rts
+NoZo:	moveq	#29,d0
+	rts
+
+***********************************************************
+*	RAZ zone D1
+***********************************************************
+SyRazZ:	move.l	T_EcCourant(a5),a1
+	move.l	EcAZones(a1),d0
+	beq	NoZo
+	move.l	d0,a0
+        tst.w	d1
+        beq 	SyRzz
+        cmp.w	EcNZones(a1),d1
+        bhi 	PErr7
+        lsl.w	#3,d1
+        lea	-8(a0,d1.w),a0
+	clr.l	(a0)+
+	clr.l	(a0)
+	bra	ZoOk
+* Toutes les zones
+SyRzz:	move.w	EcNZones(a1),d1
+	subq.w	#1,d1
+SyRzz1:	clr.l	(a0)+
+	clr.l	(a0)+
+	dbra	d1,SyRzz1
+	bra	ZoOk
+
+***********************************************************
+*	SET ZONE dans l'ecran courant
+*	D1-D2/D3/D4/D5 n-dx/dy/fx/fy
+***********************************************************
+SySetZ: move.l 	T_EcCourant(a5),a1
+	move.l	EcAZones(a1),d0
+	beq	NoZo
+	move.l	d0,a0
+        tst.w	d1
+        beq 	RzErr
+        cmp.w	EcNZones(a1),d1
+        bhi 	RzErr
+        lsl.w	#3,d1
+        lea	-8(a0,d1.w),a0
+        cmp.w	d4,d2
+        bcc 	RzErr
+        cmp.w 	d5,d3
+        bcc 	RzErr
+        move.w	d2,(a0)+
+        move.w 	d3,(a0)+
+        move.w 	d4,(a0)+
+        move.w 	d5,(a0)+
+	bra	ZoOk
+
+***********************************************************
+*	ZONE GRAPHIC ecran D1/D2 -D3
+SyZoGr:	bsr	EcToD1
+	move.w	d2,d4
+	move.w	d1,d3
+	move.l	a0,a1
+	moveq	#0,d0
+	bra	GZone
+
+***********************************************************
+*	ZONE HARD ecran D1/D2 - D3
+SyZoHd:	bsr	EcToD1
+	move.w	d2,d4
+	move.w	d1,d3
+	move.l	a0,a1
+	moveq	#0,d0
+
+******* Regarde si les coordonnees HARD D3/D4 sont dans l'ecran A1!
+ZoEc:	cmp.w	EcNumber(a1),d5
+	bls.s	ZoEcX
+; Coordonnee en X
+	move.w	d3,d1
+	sub.w	EcWx(a1),d1
+	bcs.s	ZoEcX
+	cmp.w	EcWTx(a1),d1
+	bcc.s	ZoEcX
+; Coordonnee en Y
+	move.w	d4,d2
+	add.w	#EcYBase,d2
+	sub.w	EcWy(a1),d2
+	bcs.s	ZoEcX
+	cmp.w	EcWTy(a1),d2
+	bcc.s	ZoEcX
+	btst	#7,EcCon0(a1)
+	beq.s	ZoEc2
+	lsl.w	#1,d1
+ZoEc2:	btst	#2,EcCon0+1(a1)
+	beq.s	ZoEc3
+	lsl.w	#1,d2
+ZoEc3:	add.w	EcVx(a1),d1
+	add.w	EcVy(a1),d2
+	bsr	GZone
+	rts
+ZoEcX:	moveq	#0,d1
+	rts
+
+******* Explore la table de l'ecran A1
+GZone:	movem.l	a2/d3,-(sp)
+	cmp.w	EcNumber(a1),d5
+	bls.s	GZo3
+	move.l	EcAZones(a1),d3
+	beq.s	GZo3
+	move.l	d3,a2
+	move.w	EcNZones(a1),d3
+	subq.w	#1,d3
+GZo1:	tst.l	4(a2)
+	beq.s	GZo2
+	cmp.w	(a2),d1
+        bcs.s 	GZo2
+        cmp.w 	2(a2),d2
+        bcs.s	GZo2
+	cmp.w	4(a2),d1
+	bhi.s 	GZo2
+	cmp.w 	6(a2),d2
+	bhi.s 	GZo2
+	move.w	EcNZones(a1),d1
+	sub.w	d3,d1
+	movem.l	(sp)+,a2/d3
+	ext.l	d1
+        rts
+GZo2:	lea	8(a2),a2
+	dbra	d3,GZo1
+GZo3:	movem.l	(sp)+,a2/d3
+	moveq	#0,d1
+	rts
+
+***********************************************************
+*	ZONE pour la souris
+SyMouZ:	move.w	T_XMouse(a5),d3
+	move.w	T_YMouse(a5),d4
+	moveq	#16,d5
+	lea	T_EcPri(a5),a0
+HZo1:	moveq	#0,d1
+	move.l	(a0)+,d0
+	bmi.s	HZoX
+	move.l	d0,a1
+	bsr	ZoEc
+	beq.s	HZo1
+	swap	d1
+	move.w	EcNumber(a1),d1
+HZoX:	moveq	#0,d0
+	rts
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* SPRITES HARDWARE
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+***********************************************************
+*	INITIALISATION SPRITES HARDWARE / D0= Nbre lignes
+HsInit:	movem.l	d1-d7/a1-a6,-(sp)
+	move.w	d0,-(sp)
+* Reserve la table
+	moveq	#HsNb,d0
+	mulu	#HsLong,d0
+	addq.l	#4,d0
+	bsr	FastMm
+	beq	GFatal
+	addq.l	#4,d0
+	move.l	d0,T_HsTable(a5)
+* Va reserver les buffers
+	move.w	(sp)+,d0
+	bsr	HsRBuf
+	bne	GFatal
+* Pas d'erreur
+HsOk:	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	CHANGE LA TAILLE DU BUFFER SPRITES
+*	D1= Nb de lignes
+HsSBuf:
+*******
+	movem.l	d1-d7/a1-a6,-(sp)
+	tst.w	T_CopOn(a5)			* Si COPPER OFF -> RIEN!
+	beq.s	HsOk
+	addq.w	#2,d1
+	cmp.w	T_HsNLine(a5),d1
+	beq.s	HsOK
+	move.w	d1,-(sp)
+* Enleve tous les sprites
+	move.w	#-1,T_MouShow(a5)
+	bsr	HsOff
+	moveq	#-1,d1
+	bsr	MHide
+* Fait pointer les registres sur RIEN!
+	clr.w	T_HsTCol(a5)
+	move.l	T_CopLogic(a5),a0
+	add.l	T_CopLong(a5),a0
+	clr.l	-(a0)
+	move.l	a0,T_HsChange(a5)
+HsCl1:	tst.l	T_HsChange(a5)
+	bne.s	HsCl1
+* Efface la memoire
+	bsr	HsEBuf
+* Reserve la nouvelle
+	move.w	(sp)+,d0
+	bsr	HsRBuf
+	bne.s	HsCl2
+* Ok! Remet la souris
+	moveq	#-1,d1
+	bsr	MShow
+	bra	HsOk
+* Pas assez! Essaie de reserver 16 lignes au moins!
+HsCl2:	moveq	#16,d0			* 1728 octets!
+	move.w	d0,T_HsNLine(a5)
+	bsr	HsRBuf
+	beq.s	HsCl3
+	moveq	#2,d0			* 384 octets!
+	bsr	HsRBuf
+	bne	HsCl4
+HsCl3:	move.l	T_MouBank(a5),T_MouDes(a5)
+	clr.w	T_MouSpr(a5)
+	moveq	#-1,d1
+	bsr	MShow
+HsCl4	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#1,d0
+	rts
+
+******* Reserve le buffer des colonnes
+HsRBuf:	clr.l	T_HsBuffer(a5)
+	clr.w	T_HsPMax(a5)
+	clr.w	T_HsTCol(a5)
+	move.w	d0,T_HsNLine(a5)
+	mulu	#4*8,d0
+	move.l	d0,d1
+	mulu	#3,d0
+	move.l	d0,T_HsTBuf(a5)
+	bsr	ChipMm
+	beq.s	HsRBe
+	move.l	d0,T_HsBuffer(a5)
+	move.l	d0,T_HsPhysic(a5)
+	add.l	d1,d0
+	move.l	d0,T_HsLogic(a5)
+	add.l	d1,d0
+	move.l	d0,T_HsInter(a5)
+* Calcule les colonnes
+	lsr.l	#3,d1
+	move.w	d1,T_HsTCol(a5)
+	lsr.w	#2,d1
+	subq.w	#2,d1
+	move.w	d1,T_HsPMax(a5)
+* Ok!
+	moveq	#0,d0
+	rts
+* Erreur!
+HsRbe:	moveq	#1,d0
+	rts
+
+******* Efface le buffer des colonnes
+HsEBuf:	tst.l	T_HsBuffer(a5)
+	beq.s	HsEb1
+	clr.w	T_HsPMax(a5)
+	clr.w	T_HsTCol(a5)
+	move.l	T_HsBuffer(a5),a1
+	clr.l	T_HsBuffer(a5)
+	move.l	T_HsTBuf(a5),d0
+	bsr	FreeMm
+HsEb1:	rts
+
+******* Poke l'adresse D0 dans les listes copper
+HsPCop:	move.w	T_HsTCol(a5),d1
+	ext.l	d1
+	move.l	T_CopLogic(a5),a0
+	move.l	T_CopPhysic(a5),a1
+	addq.l	#4,a0
+	addq.l	#4,a1
+	moveq	#7,d2
+HsPc1:	swap	d0
+	move.w	d0,2(a0)
+	move.w	d0,2(a1)
+	swap	d0
+	move.w	d0,6(a0)
+	move.w	d0,6(a1)
+	add.l	d1,d0
+	lea	8(a0),a0
+	lea	8(a1),a1
+	dbra	d2,HsPc1
+	rts
+
+***********************************************************
+*	SET SPRITE PRIORITY (0-1)
+HsPri:	move.l	T_EcCourant(a5),a0
+	cmp.w	#5,d1
+	bcs.s	HsPr1
+	moveq	#0,d1
+HsPr1:	move.w	EcCon2(a0),d2
+	and.w	#%1111000,d2
+	move.w	EcDual(a0),d0
+	beq.s	HsPrP
+	bpl.s	HsPrP
+* Ecran DUAL 2 --> Poke dans le DUAL 1!
+	neg.w	d0
+	lsl.w	#2,d0
+	lea	T_EcAdr(a5),a0
+	move.l	-4(a0,d0.w),d0
+	beq.s	HsPrX
+	move.l	d0,a0
+	lsl.w	#3,d1
+	move.w	EcCon2(a0),d2
+	and.w	#%1000111,d2
+* Poke!
+HsPrP:	or.w	d1,d2
+	move.w	d2,EcCon2(a0)
+HsPrX:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	ARRET SPRITES HARDWARE
+HsEnd:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_HsTable(a5),d0
+	beq.s	HsE1
+	move.l	d0,a1
+	subq.l	#4,a1
+	moveq	#HsNb,d0
+	mulu	#HsLong,d0
+	addq.l	#4,d0
+	bsr	FreeMm
+HsE1:	bsr	HsEBuf
+	bra	HsOk
+
+**********************************************************
+*	SET SPRITE BANK - A1
+HsBank:	cmp.l	T_SprBank(a5),a1
+	beq.s	HsBk1
+*	movem.l	a0-a2/d0-d7,-(sp)
+	move.l	a1,T_SprBank(a5)
+*	bsr	HsOff
+*	bsr	BobSOff
+*	movem.l	(sp)+,a0-a2/d0-d7
+HsBk1:	moveq	#0,d0
+	rts
+
+**********************************************************
+*	Adresse actualisation HS D1--> A0
+HsActAd:
+	cmp.w	#HsNb,d1
+	bcc.s	HsAdE
+	lea	T_HsTAct(a5),a0
+	move.w	d1,d0
+	lsl.w	#3,d0
+	lea	0(a0,d0.w),a0
+	rts
+HsAdE:	addq.l	#4,sp
+	moveq	#1,d0
+	rts
+
+**********************************************************
+*	SPRITE X OFF D1=Sprite
+HsXOff:
+	bsr	HsActAd
+	clr.w	(a0)
+	clr.w	6(a0)
+	bsr	DAdAMAL
+	bsr	HsUSet
+	bset	#BitSprites,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	SPRITE OFF
+HsOff:	moveq	#0,d1
+HsOO1:	bsr	HsActAd
+	clr.w	(a0)
+	clr.w	6(a0)
+	bsr	DAdAMAL
+	bsr	HsUSet
+	addq.w	#1,d1
+	cmp.w	#HsNb,d1
+	bne.s	HsOO1
+* Actualise
+	bset	#BitSprites,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	=XY SPRITE
+HsXY:	bsr	HsActAd
+	move.w	2(a0),d1
+	move.w	4(a0),d2
+	move.w	6(a0),d3
+	moveq	#0,d0
+	rts
+
+**********************************************************
+*	SPRITE n,x,y,a (D1/D2/D3/D4)
+HsNxya:	bsr	HsActAd
+	move.l	#EntNul,d0
+	cmp.l	d0,d2
+	bne.s	HsN1
+	move.w	2(a0),d2
+	beq.s	HsNErr
+HsN1:	cmp.l	d0,d3
+	bne.s	HsN2
+	move.w	4(a0),d3
+	beq.s	HsNErr
+HsN2:	cmp.l	d0,d4
+	bne.s	HsN3
+	move.w	6(a0),d4
+HsN3:	bset	#3,(a0)
+	addq.l	#2,a0
+	move.w	d2,(a0)+
+	move.w	d3,(a0)+
+	move.w	d4,(a0)+
+	bset	#BitSprites,T_Actualise(a5)
+	moveq	#0,d0
+	rts
+HsNErr:	moveq	#1,d0
+	rts
+
+**********************************************************
+*	EFFACE DE L'ECRAN TOUS LES SPRITES HARD
+HsStAct:moveq	#0,d1
+HsSa1:	bsr	HsUSet
+	addq.w	#1,d1
+	cmp.w	#HsNb,d1
+	bne.s	HsSa1
+	rts
+
+**********************************************************
+*	RE-ACTIVE TOUS les sprites HARD
+HsReAct:lea	T_HsTAct(a5),a0
+	moveq	#HsNb-1,d0
+HsRa0:	tst.b	(a0)
+	bmi.s	HsRa1
+	bset	#3,(a0)
+HsRa1:	lea	8(a0),a0
+	dbra	d0,HsRa0
+	rts
+
+**********************************************************
+*	ACTUALISATION SPRITES HARD
+HsAct:	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	T_SprBank(a5),d0
+	beq.s	HsActX
+	move.l	d0,a2
+	move.w	(a2)+,d6
+	lea	T_HsTAct(a5),a0
+	move.w	#HsNb,d7
+	subq.w	#1,d7
+	moveq	#0,d1
+HsAct0:	tst.b	(a0)
+	bne.s	HsAct2
+HsAct1:	lea	8(a0),a0
+	addq.w	#1,d1
+	dbra	d7,HsAct0
+HsActX:	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+******* Change!
+HsAct2:	bmi.s	HsAct3
+* Dessine
+	clr.w	(a0)
+	move.w	2(a0),d2
+	move.w	4(a0),d3
+	move.w	6(a0),d0
+	and.w	#$3FFF,d0
+	beq.s	HsAct1
+	cmp.w	d6,d0
+	bhi.s	HsAct1
+	lsl.w	#3,d0
+	move.l	-8(a2,d0.w),d0
+	beq.s	HsAct1
+	move.l	d0,a1
+	bsr	HsSet
+	bra.s	HsAct1
+* Efface
+HsAct3:	clr.w	(a0)
+	clr.w	6(a0)
+	bsr	HsUSet
+	bra.s	HsAct1
+
+**********************************************************
+*	POSITIONNEMENT D'UN SPRITE HARD!
+*	D1= Nb
+*	D2= X
+*	D3= Y
+*	D4= Retournement?
+*	A1= Dessin
+
+HsSet:	movem.l	d1-d7,-(sp)
+	movem.l	a1/a3/a4,-(sp)
+	move.w	d1,d0
+	mulu	#HsLong,d1
+	move.l	T_HsTable(a5),a3
+	lea	0(a3,d1.w),a4
+
+**************************************** Sprite DIRECT!
+	cmp.w	#8,d0
+	bcc	Hss4
+* Si sprite 0: la souris est-elle presente?
+	tst.w	d0
+	bne.s	HsDm
+	tst.w	T_MouShow(a5)
+	bpl	Hss30
+* Doit recopier l'image?
+HsDm:	cmp.l	HsImage(a4),a1
+	beq.s	HsD0
+	move.w	2(a1),d0
+	addq.w	#1,d0
+	cmp.w	T_HsPMax(a5),d0
+	bcc	Hss30
+	move.l	a1,HsImage(a4)
+	move.w	#3,2(a4)
+* Poke!
+HsD0:	move.w	#1,(a4)
+	move.w	d2,HsX(a4)
+	move.w	d3,HsY(a4)
+* Calcule les mots de controle
+	move.w	6(a1),d0		* Pas de retournement!
+	lsl.w	#2,d0
+	asr.w	#2,d0
+	sub.w	d0,d2
+	bpl.s	HsD1
+	clr.w	d2
+HsD1:	sub.w	8(a1),d3
+	bpl.s	HsD2
+	clr.w	d3
+HsD2:	ror.w	#1,d2
+	move.b	d3,d0
+	lsl.w	#8,d0
+	move.b	d2,d0
+	move.w	d0,HsControl(a4)
+	clr.w	d0
+	btst	#8,d3
+	beq.s	HsD3
+	bset	#8+2,d0
+HsD3:	add.w	2(a1),d3
+	move.b	d3,d0
+	ror.w	#8,d0
+	btst	#8,d3
+	beq.s	HsD4
+	bset	#1,d0
+HsD4:	btst	#15,d2
+	beq.s	HsD5
+	bset	#0,d0
+HsD5:	move.w	d0,HsControl+2(a4)
+* A y est, doit actualiser!
+	bra	Hss30
+
+********************************** Sprites partages...
+Hss4:	tst.l	(a4)
+	beq.s	Hss6
+	cmp.w	HsY(a4),d3
+	bne.s	Hss5
+	cmp.l	HsImage(a4),a1
+	beq.s	Hss6
+Hss5:	move.w	(a4),d6
+	move.w	HsNext(a4),d7
+	clr.l	(a4)
+	move.w	d7,2(a3,d6.w)
+	beq.s	Hss6
+	move.w	d6,0(a3,d7.w)
+Hss6:
+******* Poke!
+	move.w	d2,HsX(a4)
+	move.w	d3,HsY(a4)
+	move.l	a1,HsImage(a4)
+******* Calcule les mots de controle
+	move.w	6(a1),d0
+	lsl.w	#2,d0
+	asr.w	#2,d0
+	sub.w	d0,d2
+	bpl.s	Hss10
+	clr.w	d2
+Hss10:	sub.w	8(a1),d3
+	bpl.s	Hss11
+	clr.w	d3
+Hss11:	move.w	d3,HsYr(a4)
+	move.w	d3,d5
+	ror.w	#1,d2
+	move.b	d3,d0
+	lsl.w	#8,d0
+	move.b	d2,d0
+	move.w	d0,HsControl(a4)
+	clr.w	d0
+	btst	#8,d3
+	beq.s	Hss12
+	bset	#8+2,d0
+Hss12:	add.w	2(a1),d3
+	move.b	d3,d0
+	ror.w	#8,d0
+	btst	#8,d3
+	beq.s	Hss13
+	bset	#1,d0
+Hss13:	btst	#15,d2
+	beq.s	Hss14
+	bset	#0,d0
+Hss14:	move.w	d0,HsControl+2(a4)
+
+******* Recalcule???
+	tst.l	(a4)
+	bne.s	Hss30
+	moveq	#-4,d7
+	move.w	HsNext(a3,d7.w),d6
+	beq.s	Hss22
+Hss20:	move.w	d6,d7
+	cmp.w	HsYr(a3,d7.w),d5
+	bcs.s	Hss23
+	bhi.s	Hss21
+	cmp.w	d7,d1			* Si EGAL-> numero joue
+	bcs.s	Hss23
+* Prend le suivant!
+Hss21:	move.w	HsNext(a3,d7.w),d6
+	bne.s	Hss20
+* Le met ` la fin!
+Hss22:	move.w	d1,HsNext(a3,d7.w)
+	move.w	d7,HsPrev(a3,d1.w)
+	bra.s	Hss30
+* L'insere au milieu
+Hss23:	move.w	HsPrev(a3,d7.w),d0
+	move.w	d0,HsPrev(a3,d1.w)
+	move.w	d1,HsPrev(a3,d7.w)
+	move.w	d1,HsNext(a3,d0.w)
+	move.w	d7,HsNext(a3,d1.w)
+
+******* Cibon!
+Hss30:	movem.l	(sp)+,a1/a3/a4
+	movem.l	(sp)+,d1-d7
+	rts
+
+***********************************************************
+*	ARRET D'UN SPRITE HARD
+HsUSet:	movem.l	a3/a4/d6/d7,-(sp)
+	move.w	d1,d0
+	mulu	#HsLong,d0
+	move.l	T_HsTable(a5),a3
+	lea	0(a3,d0.w),a4
+	cmp.w	#8,d1
+	bcc.s	HsOff1
+* Sprite FIXE
+	clr.l	(a4)
+	bra.s	HsOff2
+* Sprite PATCHE!
+HsOff1:	tst.l	(a4)
+	beq.s	HsOff3
+	move.w	(a4),d6
+	move.w	HsNext(a4),d7
+	clr.l	(a4)
+	move.w	d7,2(a3,d6.w)
+	beq.s	HsOff2
+	move.w	d6,0(a3,d7.w)
+HsOff2:	clr.w	HsX(a4)
+	clr.w	HsY(a4)
+	clr.l	HsImage(a4)
+HsOff3:	movem.l	(sp)+,a3/a4/d6/d7
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	AFFICHAGE DES SPRITES HARDWARE
+HsAff:	movem.l	d1-d7/a1-a6,-(sp)
+	clr.l	T_HsChange(a5)
+	move.l	GfxBase(pc),a6
+	jsr	OwnBlitter(a6)		OwnBlitter
+	lea	Circuits,a6
+
+******* Cree la table position / Gestion des SPRITES DIRECTS!
+	move.l	T_HsTable(a5),a4
+	moveq	#7,d7
+	move.w	T_HsTCol(a5),d6
+	ext.l	d6
+	moveq	#0,d5
+	lea	T_HsPosition(a5),a3
+	move.l	T_HsLogic(a5),a2
+
+* Si SOURIS empeche le 1er!
+	tst.w	T_MouShow(a5)
+	bmi.s	HsAd0
+	clr.l	(a3)+
+	addq.l	#4,a3
+	bra.s	HsAd6
+
+* Teste les 8 1ers sprites
+HsAd0:	tst.w	(a4)
+	bne.s	HsAd1
+	move.l	a2,(a3)+
+	clr.l	(a3)+
+	clr.l	(a2)			* RAZ colonne
+	addq.w	#1,d5
+HsAd6:	add.l	d6,a2
+	lea	HsLong(a4),a4
+	dbra	d7,HsAd0
+	bra	HsAd7
+*******	SPRITE DIRECT!
+HsAd1:	move.l	HsControl(a4),d3
+	tst.w	2(a4)
+	beq	HsAdP
+	subq.w	#1,2(a4)
+	move.l	HsImage(a4),a1
+	move.w	(a1),d1
+	move.w	2(a1),d2
+	move.w	d1,d4
+	cmp.w	#4,4(a1)
+	bcc.s	HsAd3
+	lea	10(a1),a1
+* Affiche le sprite MONOCOULEUR
+HsAd2:	clr.l	(a3)+
+	addq.l	#4,a3
+	move.l	a2,a0
+	move.l	d3,(a0)+
+	move.l	a1,-(sp)
+	bsr	HsBlit
+	clr.l	(a0)
+	move.l	(sp)+,a1
+	subq.w	#1,d4
+	beq.s	HsAd6
+	addq.l	#2,a1
+	add.l	d6,a2
+	add.l	#$00080000,d3
+	lea	HsLong(a4),a4
+	dbra	d7,HsAd2
+	bra	HsAd7
+* Sprite MULTICOLOR
+HsAd3:	lea	10(a1),a1
+	btst	#0,d7			* Si IMPAIR, colonne vide!
+	bne.s	HsAd4
+	clr.l	(a3)+
+	addq.l	#4,a3
+	clr.l	(a2)
+	add.l	d6,a2
+	lea	HsLong(a4),a4
+	subq.w	#1,d7
+	bmi	HsAd7
+HsAd4:	clr.l	(a3)+
+	addq.l	#4,a3
+	lea	HsLong(a4),a4
+	subq.w	#1,d7
+	move.l	a2,a0
+	move.l	d3,(a0)+
+	move.l	a1,-(sp)
+	bsr	HsBlit
+	clr.l	(a0)
+	clr.l	(a3)+
+	addq.l	#4,a3
+	add.l	d6,a2
+	move.l	a2,a0
+	bset	#7,d3
+	move.l	d3,(a0)+
+	bclr	#7,d3
+	bsr	HsBlit
+	clr.l	(a0)
+	move.l	(sp)+,a1
+	subq.w	#1,d4
+	beq	HsAd6
+	addq.l	#2,a1
+	add.l	d6,a2
+	add.l	#$00080000,d3
+	lea	HsLong(a4),a4
+	dbra	d7,HsAd4
+	bra.s	HsAd7
+* Pas de recopie!
+HsAdP:	move.l	HsImage(a4),a1
+	move.w	(a1),d1
+	cmp.w	#4,4(a1)
+	bcc.s	HsAdP2
+HsAdP1:	clr.l	(a3)+			* 4 couleurs
+	addq.l	#4,a3
+	move.l	d3,(a2)
+	subq.w	#1,d1
+	beq	HsAd6
+	lea	HsLong(a4),a4
+	add.l	d6,a2
+	add.l	#$00080000,d3
+	dbra	d7,HsAdP1
+	bra.s	HsAd7
+HsAdP2:	btst	#0,d7			* 16 couleurs
+	bne	HsAdP3
+	clr.l	(a3)+
+	addq.l	#4,a3
+	clr.l	(a2)
+	add.l	d6,a2
+	lea	HsLong(a4),a4
+	subq.w	#1,d7
+	bmi.s	HsAd7
+HsAdP3:	clr.l	(a3)+
+	addq.l	#4,a3
+	move.l	d3,(a2)
+	add.l	d6,a2
+	lea	HsLong(a4),a4
+	subq.w	#1,d7
+	clr.l	(a3)+
+	addq.l	#4,a3
+	bset	#7,d3
+	move.l	d3,(a2)
+	bclr	#7,d3
+	subq.w	#1,d1
+	beq	HsAd6
+	lea	HsLong(a4),a4
+	add.l	d6,a2
+	add.l	#$00080000,d3
+	dbra	d7,HsAdP3
+
+******* FINI! Marque la fin des colonnes
+HsAd7:	move.l	#-1,(a3)
+* Encore des colonnes?
+	tst.w	d5
+	beq	HsAFini
+
+******* 1er sprite
+	move.l	T_HsTable(a5),a4
+	moveq	#-4,d4
+******* Boucle d'affichage
+HsA3:	lea	T_HsPosition-8(a5),a3	* Passe a la colonne suivante
+HsA4:	lea	8(a3),a3
+HsA4a:	tst.l	(a3)
+	bmi.s	HsA3
+	beq.s	HsA4
+HsA5:	move.w	HsNext(a4,d4.w),d4	* Prend le sprite
+	beq	HsAFini
+	move.l	HsImage(a4,d4.w),a2
+	lea	10(a2),a1
+	move.w	(a2),d5
+	move.l	HsControl(a4,d4.w),d3
+	moveq	#8,d6
+	move.w	2(a2),d2
+	addq.w	#1,d2
+	cmp.w	#4,4(a2)
+	bcc	HsMAff
+HsA6:	move.w	HsYR(a4,d4.w),d0
+	cmp.w	HsYAct(a3),d0
+	bcs.s	HsA10
+	move.w	HsPAct(a3),d1
+	add.w	d2,d1
+	cmp.w	T_HsPMax(a5),d1
+	bcc.s	HsA10
+* Peut recopier dans cette colonne!
+	add.w	d2,d0
+	move.w	d0,HsYAct(a3)
+	move.w	HsPAct(a3),d0
+	move.w	d1,HsPAct(a3)
+	lsl.w	#2,d0
+	move.l	(a3),a0
+	add.w	d0,a0
+	move.l	d3,(a0)+
+	move.w	(a2),d1
+	subq.w	#1,d2
+	move.l	a1,-(sp)
+	bsr	HsBlit
+	clr.l	(a0)
+	move.l	(sp)+,a1
+	subq.w	#1,d5			* Encore un plan?
+	beq.s	HsA4
+	addq.w	#1,d2
+	addq.l	#2,a1
+	moveq	#8,d6
+	add.l	#$00080000,d3		* Decale le sprite a droite
+	bra.s	HsA11
+* Passe a la colonne suivante!
+HsA10:	subq.w	#1,d6			* Arret apres 8 essais negatifs
+	beq	HsA4a
+HsA11:	lea	8(a3),a3
+HsA12:	tst.l	(a3)
+	beq.s	HsA10
+	bpl.s	HsA6
+	lea	T_HsPosition(a5),a3
+	bra.s	HsA12
+
+******* Affichage sprite multicolors
+HsMAff:	moveq	#4,d6
+	lea	T_HsPosition(a5),a0	* Situe a colonne PAIRE
+	move.l	a3,d0
+	sub.l	a0,d0
+	btst	#3,d0
+	beq.s	HsMA1
+	lea	8(a3),a3
+	bra	HsMA7
+HsMA1:	move.w	HsYR(a4,d4.w),d0	* 2ieme colonne
+	cmp.w	HsYAct+8(a3),d0
+	bcs.s	HsMA5
+	move.w	HsPAct+8(a3),d7
+	add.w	d2,d7
+	cmp.w	T_HsPMax(a5),d7
+	bcc.s	HsMA5
+	cmp.w	HsYAct(a3),d0		* 1ere colonne
+	bcs.s	HsMA5
+	move.w	HsPAct(a3),d1
+	add.w	d2,d1
+	cmp.w	T_HsPMax(a5),d1
+	bcc.s	HsMA5
+* Recopie dans la 1ere colonne
+	add.w	d2,d0
+	move.w	d0,HsYAct(a3)
+	move.w	d0,HsYAct+8(a3)
+	move.w	HsPAct(a3),d0
+	move.w	d1,HsPAct(a3)
+	move.w	d7,HsPAct+8(a3)
+	lsl.w	#2,d0
+	move.w	d0,d7
+	move.l	(a3),a0
+	add.w	d0,a0
+	move.l	d3,(a0)+
+	move.w	(a2),d1
+	subq.w	#1,d2
+	move.l	a1,-(sp)
+	bsr	HsBlit
+	clr.l	(a0)
+* Recopie dans la 2ieme colonne
+	move.l	8(a3),a0
+	add.w	d7,a0
+	bset	#7,d3
+	move.l	d3,(a0)+
+	bsr	HsBlit
+	clr.l	(a0)
+* Encore un plan?
+	move.l	(sp)+,a1
+	subq.w	#1,d5			* Encore un plan?
+	beq.s	HsMA2
+	bclr	#7,d3
+	addq.w	#1,d2
+	addq.l	#2,a1
+	moveq	#4,d6
+	add.l	#$00080000,d3		* Decale le sprite a droite
+	bra.s	HsMA1
+* Saute les 2 colonnes
+HsMA2:	lea	8(a3),a3
+	bra	HsA4
+* Passe a la colonne suivante!
+HsMA5:	subq.w	#1,d6			* Arret apres 8 essais negatifs
+	beq	HsA4a
+HsMA6:	lea	8*2(a3),a3
+HsMA7:	tst.l	(a3)
+	beq.s	HsMA5
+	bmi.s	HsMA8
+	tst.l	8(a3)
+	bne	HsMA1
+	beq.s	HsMA6
+HsMA8:	lea	T_HsPosition(a5),a3
+	bra	HsMA7
+
+******* FINI
+HsAFini	tst.w	T_CopON(a5)			* Copper en route???
+	beq	HsAf1
+	move.w	T_MouShow(a5),d3
+	move.w	#-1,T_MouShow(a5)
+	move.l	T_HsPhysic(a5),d0
+	move.l	T_HsLogic(a5),d1
+	move.l	T_HsInter(a5),d2
+	move.l	d1,T_HsPhysic(a5)
+	move.l	d2,T_HsLogic(a5)
+	move.l	d0,T_HsInter(a5)
+	move.l	d1,T_HsChange(a5)
+	move.w	d3,T_MouShow(a5)
+
+******* Remet le blitter
+HsAf1:	bsr	BlitWait
+	move.l	GfxBase(pc),a6
+	jsr	DisownBlitter(a6)
+
+******* Retour
+HsAffX:	movem.l	(sp)+,d1-d7/a1-a6
+	rts
+
+******* Recopie par blitter A1->A0 / BitMap->HSprite
+*	A0= Destination
+*	A1= Source
+*	D1= Tx (mots)
+*	D2= Ty
+HsBlit:	bsr	BlitWait
+	move.w	#%0000001110101010,BltCon0(a6)
+	clr.w	BltCon1(a6)
+	move.w	d1,d0
+	subq.w	#1,d0
+	lsl.w	#1,d0
+	move.w	d0,BltModC(a6)
+	move.w	#2,BltModD(a6)
+	move.w	d2,d0
+	lsl.w	#6,d0
+	or.w	#1,d0
+	move.w	d1,-(sp)
+	lsl.w	#1,d1
+	mulu	d2,d1
+	move.w	#$8040,DmaCon(a6)
+	move.l	a1,BltAdC(a6)
+	move.l	a0,BltAdD(a6)
+	move.w	d0,BltSize(a6)
+	add.l	d1,a1
+	lea	2(a0),a0
+HsBl2:	bsr	BlitWait
+	move.l	a1,BltAdC(a6)
+	move.l	a0,BltAdD(a6)
+	move.w	d0,BltSize(a6)
+	add.l	d1,a1
+	move.w	(sp)+,d1
+	move.w	d2,d0
+	lsl.w	#2,d0
+	lea	-2(a0,d0.w),a0
+	rts
+
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* BLOCS
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+	IFEQ	EZFlag
+******* FABRIQUE UN BLOC COMPRESSE
+*	D1= X
+*	D2= Y
+*	D3= TX
+*	D4= TY
+CBloc:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	moveq	#0,d0
+	lsr.w	#3,d1
+	lsr.w	#3,d3
+	move.w	d1,d0
+	add.w	d3,d0
+	cmp.w	EcTLigne(a4),d0
+	bhi	CBlE3
+	move.w	d2,d0
+	add.w	d4,d0
+	mulu	EcTLigne(a4),d0
+	cmp.l	EcTPlan(a4),d0
+	bhi	CBlE3
+	mulu	EcTLigne(a4),d2
+	ext.l	d1
+	add.w	d1,d2
+	subq.w	#1,d4
+	lea	EcCurrent(a4),a0
+ 	move.w	EcNPlan(a4),d0
+	subq.w	#1,d0
+	sub.l	a3,a3
+
+CBl1:	move.l	a0,a1
+	move.w	d0,d1
+CBl2:	move.l	(a1)+,a2
+	add.l	d2,a2
+	move.w	d3,d5
+CBl3:	moveq	#0,d7
+	move.b	(a2)+,d6
+CBl4:	subq.w	#1,d5
+	beq.s	CBl5
+	cmp.b	(a2),d6
+	bne.s	CBl5
+	addq.l	#1,a2
+	addq.w	#1,d7
+	cmp.w	#64,d7
+	bcs.s	CBl4
+	subq.w	#1,d7
+CBl5:	tst.w	d7
+	bne.s	CBl7
+	cmp.b	#%11000000,d6
+	bcs.s	CBl6
+	addq.l	#1,a3
+CBl6:	addq.l	#1,a3
+	tst.w	d5
+	bne.s	CBl3
+	bra.s	CBl8
+CBl7:	addq.l	#2,a3
+	tst.w	d5
+	bne.s	CBl3
+CBl8:	dbra	d1,CBl2
+	add.w	EcTLigne(a4),d2
+	dbra	d4,CBl1
+
+* Demande la memoire necessaire
+	lea	20+16(a3),a3
+	move.l	a3,d0
+	and.l	#$FFFFFFF8,d0
+	move.l	d0,a3
+	bsr	FastMm
+	beq	CBlE1
+	move.l	a3,a0
+
+* Fabrique rellement le bloc!
+	movem.l	(sp)+,d1-d7/a1-a6
+	move.l	d0,a1			* Adresse de debut!
+	movem.l	d1-d7/a1-a6,-(sp)
+
+	move.l	d0,a3
+	move.l	T_EcCourant(a5),a4
+	clr.l	(a3)+			* Pointeur sur le precedent
+	clr.l	(a3)+			* Pointeur sur le suivant
+	move.l	a0,(a3)+		* Longueur utilisee
+	clr.w	(a3)+			* Numero du bloc
+	move.w	d1,(a3)+		* X/8
+	move.w	d2,(a3)+		* Y
+	lsr.w	#3,d1
+	lsr.w	#3,d3
+	move.w	d3,(a3)+		* TX/8
+	move.w	d4,(a3)+		* TY
+	mulu	EcTLigne(a4),d2
+	ext.l	d1
+	add.l	d1,d2
+	subq.w	#1,d4
+	lea	EcCurrent(a4),a0
+	move.w	EcNPlan(a4),d0
+	move.w	d0,(a3)+		* NbPlans
+	subq.w	#1,d0
+
+GBl1:	move.l	a0,a1
+	move.w	d0,d1
+GBl2:	move.l	(a1)+,a2
+	add.l	d2,a2
+	move.w	d3,d5
+GBl3:	moveq	#0,d7
+	move.b	(a2)+,d6
+GBl4:	subq.w	#1,d5
+	beq.s	GBl5
+	cmp.b	(a2),d6
+	bne.s	GBl5
+	addq.l	#1,a2
+	addq.w	#1,d7
+	cmp.w	#64,d7
+	bcs.s	GBl4
+	subq.w	#1,d7
+GBl5:	tst.w	d7
+	bne.s	GBl7
+	cmp.b	#%11000000,d6
+	bcs.s	GBl6
+	move.b	#%11000000,(a3)+
+GBl6:	move.b	d6,(a3)+
+	tst.w	d5
+	bne.s	GBl3
+	beq.s	GBl8
+GBl7:	or.b	#%11000000,d7
+	move.b	d7,(a3)+
+	move.b	d6,(a3)+
+	tst.w	d5
+	bne.s	GBl3
+
+GBl8:	dbra	d1,GBl2
+	add.w	EcTLigne(a4),d2
+	dbra	d4,GBl1
+
+	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#0,d0
+	rts
+
+******* RESTORE UN BLOC COMPRESSE
+*	A1= Adresse bloc
+*	D1= X (ou -1)
+*	D2= Y (ou -1)
+PBloc:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	lea	14(a1),a3
+	tst.w	d1
+	bpl.s	PBl1
+	move.w	(a3),d1
+PBl1:	tst.w	d2
+	bpl.s	PBl2
+	move.w	2(a3),d2
+PBl2:	addq.l	#4,a3
+	move.w	(a3)+,d3
+	move.w	(a3)+,d4
+	lsr.w	#3,d1
+* Verifie que ca ne sorte pas
+	moveq	#0,d0
+	move.w	d1,d0
+	add.w	d3,d0
+	cmp.w	EcTLigne(a4),d0
+	bhi	CBlE3
+	move.w	d2,d0
+	add.w	d4,d0
+	mulu	EcTLigne(a4),d0
+	cmp.l	EcTPlan(a4),d0
+	bhi	CBlE3
+	mulu	EcTLigne(a4),d2
+	ext.l	d1
+	add.l	d1,d2
+	subq.w	#1,d3
+	subq.w	#1,d4
+	lea	EcCurrent(a4),a0
+	move.w	(a3)+,d0
+	cmp.w	EcNPlan(a4),d0
+	bls.s	PBl3
+	move.w	EcNPlan(a4),d0
+PBl3:	subq.w	#1,d0
+
+* Decompacte!
+PBl4:	move.l	a0,a1
+	move.w	d0,d1
+PBl5:	move.l	(a1)+,a2
+	add.l	d2,a2
+	move.w	d3,d5
+PBl6:	move.b	(a3)+,d6
+	cmp.b	#%11000000,d6
+	bcc.s	PBl7
+	move.b	d6,(a2)+
+	dbra	d5,PBl6
+	bra.s	PBl9
+PBl7:	and.w	#%00111111,d6
+	sub.w	d6,d5
+	move.b	(a3)+,d7
+PBl8:	move.b	d7,(a2)+
+	dbra	d6,PBl8
+	subq.w	#1,d5
+	bpl.s	PBl6
+PBl9:	dbra	d1,PBl5
+	add.w	EcTLigne(a4),d2
+	dbra	d4,PBl4
+
+	movem.l	(sp)+,d1-d7/a1-a6
+	moveq	#0,d0
+	rts
+	ENDC
+
+******* Erreurs
+BlE:	equ 	19
+* Out of mem, general!
+CBlE1:	moveq	#1,d0
+	bra.s	CBlEm
+* Erreurs blocs
+CBlE3:	moveq	#BlE+3,d0
+CBlEm:	movem.l	(sp)+,d1-d7/a1-a6
+	tst.l	d0
+	rts
+CBlE2:	moveq	#BlE+2,d0
+	rts
+
+	IFEQ	EZFlag
+***********************************************************
+*	FABRIQUE UN BLOC
+*	D1/D2/D3/D4 - D5= numero du bloc
+***************************************
+MakeCBloc:
+	bsr	FindCBloc
+	beq.s	MkCBl1
+	bsr	FreeCBloc
+MkCBl1:	bsr	CBloc
+	bne.s	MkCBlX
+* Incorpore le bloc dans la liste
+	move.w	d5,12(a1)
+	move.l	T_AdCBlocs(a5),a0
+	cmp.l	#0,a0
+	beq.s	MkCBl2
+	move.l	a1,0(a0)		* 2ieme---> nouveau
+MkCBl2:	move.l	a0,4(a1)		* Nouveau---> 2ieme
+	move.l	a1,T_AdCBlocs(a5)	* 1ier bloc
+MkCBlX:	tst.w	d0
+	rts
+
+***********************************************************
+*	DESSINE UN BLOC
+*	D1/D2 - D5= numero du bloc
+***************************************
+DrawCBloc:
+	bsr	FindCBloc
+	beq.s	CBlE2
+	bra	PBloc
+
+***********************************************************
+*	EFFACE LE BLOC D5
+**************************
+FreeCBloc:
+	bsr	FindCBloc
+	beq.s	CBlE2
+*******	LIBERE LE BLOC A1
+FrCBloc:
+* Enleve le bloc de la liste
+	cmp.l	T_AdCBlocs(a5),a1
+	bne.s	FrCBl0
+	move.l	4(a1),T_AdCBlocs(a5)
+FrCBl0:	tst.l	(a1)
+	beq.s	FrCBl1
+	move.l	(a1),a0
+	move.l	4(a1),4(a0)
+FrCBl1:	tst.l	4(a1)
+	beq.s	FrCBl2
+	move.l	4(a1),a0
+	move.l	(a1),(a0)
+FrCBl2:
+* Libere la memoire
+	move.l	8(a1),d0
+	bsr	FreeMm
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	EFFACE TOUS LES BLOCS
+******************************
+RazCBloc:
+	move.l	T_AdCBlocs(a5),d0
+	beq.s	RzCblX
+	move.l	d0,a1
+	bsr	FrCBloc
+	bra.s	RazCBloc
+RzCBlX:	moveq	#0,d0
+	rts
+
+******* TROUVE UN BLOC D5 DANS LA LISTE
+*	BNE---> trouve	/  a1=adresse
+FindCBloc:
+	move.l	T_AdCBlocs(a5),d0
+	beq.s	FnCBl1
+FnCBl0:	move.l	d0,a1
+	cmp.w	12(a1),d5
+	beq.s	FnCBl2
+	move.l	4(a1),d0
+	bne.s	FnCBl0
+FnCBl1:	moveq	#0,d0
+	rts
+FnCBl2:	moveq	#1,d0
+	rts
+	ENDC
+
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* BLOCS NON COMPRESSE
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+
+******* Description d'un bloc
+	RsReset
+BlPrev:	rs.l 	1
+BlNext:	rs.l 	1
+BlNb:	rs.w	1
+BlX:	rs.w 	1
+BlY:	rs.w	1
+BlMask:	rs.w	1
+BlCon:	rs.w	1
+BlAPlan	rs.w 	1
+BlDesc:	rs.l 	2
+BlLong:	equ	__Rs
+
+***********************************************************
+*	FABRIQUE UN BLOC, ECRAN COURANT
+*	D1- 	Numero du bloc
+*	D2/D3/D4/D5
+*	D6-	Flag Masque
+***************************************
+MakeBloc:
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#0,d7
+	move.w	d6,d7
+* Verifie les parametres
+	move.l	T_EcCourant(a5),a0
+	tst.w	d2
+	bmi	BlE3
+	tst.w	d3
+	bmi	BlE3
+	tst.w	d4
+	ble	BlE3
+	tst.w	d5
+	ble	BlE3
+	move.w	d5,d6
+	add.w	d3,d6
+	cmp.w	EcTy(a0),d6
+	bhi	BlE3
+	move.w	d4,d6
+	add.w	d2,d6
+	cmp.w	EcTx(a0),d6
+	bhi	BlE3
+* Reserve l'espace pour les datas
+	bsr	FindBloc
+	bne.s	MkBl1
+	moveq	#BlLong,d0
+	bsr	FastMm
+	beq.s	BlE1
+	move.l	d0,a1
+	bset	#31,d7
+* Met les parametres
+MkBl1:	move.w	d1,BlNb(a1)
+	clr.w	BlCon(a1)
+	move.w	#$FFFF,BlAPlan(a1)
+	move.w	d2,BlX(a1)
+	move.w	d3,BlY(a1)
+* Prend l'image
+	exg	a0,a1
+	lea	BlDesc(a0),a2
+	bsr	GetBob
+	move.l	a0,a1
+	tst.w	d0
+	bne.s	MkBl3
+* Fabrique le masque?
+	move.l	#$C0000000,4(a2)
+	tst.w	d7
+	beq.s	MkBlM
+	bsr	Masque
+* Incorpore le bloc dans la liste
+MkBlM:	btst	#31,d7
+	beq.s	MkBlX
+	lea	T_AdBlocs(a5),a2
+	move.l	(a2),d0
+	beq.s	MkBl2
+	move.l	d0,a0
+	move.l	a1,BlPrev(a0)
+MkBl2:	move.l	d0,BlNext(a1)
+	move.l	a1,(a2)
+MkBlX:	moveq	#0,d0
+BlOut	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+******* Erreurs
+BlE2:	moveq	#BlE+2,d0		* Not found
+	bra.s	BlOut
+BlE3:	moveq	#BlE+3,d0		* Foncall
+	bra.s	BlOut
+MkBl3:	bsr	FrBloc			* Out of mem
+BlE1:	moveq	#1,d0
+	bra.s	BlOut
+
+***********************************************************
+*	EFFACE LE BLOC D1
+**************************
+DelBloc:
+	bsr	FindBloc
+	bne.s	FrBloc
+	moveq	#BlE+2,d0
+	rts
+*******	LIBERE LE BLOC A1
+FrBloc:	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	a1,a2
+* Enleve le dessin
+	move.l	BlDesc(a2),d0
+	beq.s	FrBl1
+	move.l	d0,a1
+	move.w	(a1),d0
+	mulu	2(a1),d0
+	mulu	4(a1),d0
+	addq.l	#5,d0
+	lsl.l	#1,d0
+	bsr	FreeMm
+* Enleve le masque
+FrBl1:	move.l	BlDesc+4(a2),d0
+	ble.s	FrBl2
+	move.l	d0,a1
+	move.l	(a1),d0
+	bsr	FreeMm
+* Enleve le bloc de la liste
+FrBl2:	move.l	a2,a1
+	lea	T_AdBlocs(a5),a2
+	cmp.l	(a2),a1
+	bne.s	FrBl3
+	move.l	BlNext(a1),(a2)
+FrBl3:	tst.l	BlPrev(a1)
+	beq.s	FrBl4
+	move.l	BlPrev(a1),a0
+	move.l	BlNext(a1),BlNext(a0)
+FrBl4:	tst.l	BlNext(a1)
+	beq.s	FrBl5
+	move.l	BlNext(a1),a0
+	move.l	BlPrev(a1),BlPrev(a0)
+FrBl5:	moveq	#BlLong,d0
+	bsr	FreeMm
+	moveq	#0,d0
+	bra	BlOut
+
+***********************************************************
+*	EFFACE TOUS LES BLOCS
+******************************
+RazBloc	lea	T_AdBlocs(a5),a0
+	move.l	(a0),d0
+	beq.s	RzBlX
+	move.l	d0,a1
+	bsr	FrBloc
+	bra.s	RazBloc
+RzBlX:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	DESSINE UN BLOC
+*	D1-	Numero du bloc
+*	D2/D3-	Coordonnees
+*	D4-	Plans
+*	D5-	Minterm
+*	A1-	Buffer de calcul
+DrawBloc:
+	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	a1,a4
+	bsr	FindBloc
+	bne.s	DrBl0
+BlNDef	moveq	#2,d0
+	bra	BlOut
+* Parametres de l'ecran courant
+DrBl0:	move.l	T_EcCourant(a5),a0
+	move.w	EcClipX0(a0),d0
+	and.w	#$FFF0,d0
+	move.w	d0,BbLimG(a4)
+	move.w	EcClipY0(a0),BbLimH(a4)
+	move.w	EcClipX1(a0),d0
+	add.w	#15,d0
+	and.w	#$FFF0,d0
+	move.w	d0,BbLimD(a4)
+	move.w	EcClipY1(a0),BbLimB(a4)
+* Parametres du bob
+	move.l	#EntNul,d7
+	cmp.l	d2,d7
+	bne.s	DrBl1
+	move.w	BlX(a1),d2
+DrBl1:	cmp.l	d3,d7
+	bne.s	DrBl2
+	move.w	BlY(a1),d3
+DrBl2:	move.w	BlAPlan(a1),BbAPlan(a4)
+	cmp.l	d4,d7
+	beq.s	DrBl3
+	move.w	d4,BbAPlan(a4)
+DrBl3:	move.w	BlCon(a1),BbACon(a4)
+	cmp.l	d5,d7
+	beq.s	DrBl4
+	and.w	#$00FF,d5
+	bset	#15,d5
+	move.w	d5,BbACon(a4)
+DrBl4:	move.l	a0,BbEc(a4)
+	move.w	d3,d1
+	moveq	#-1,d3
+	lea	BlDesc(a1),a2
+	bsr	BobCalc
+	bne.s	DBlOut
+* Appelle la routine d'affichage
+	lea	Circuits,a6
+	bsr	OwnBlit
+	move.w	BbASize(a4),d2
+	move.w	BbTPlan(a4),d4
+	ext.l	d4
+	move.l	BbAData(a4),a0
+	move.l	BbEc(a4),a3
+	lea	EcCurrent(a3),a3
+	move.w	BbAModD(a4),d0
+	move.w	d0,BltModC(a6)
+	move.w	d0,BltModD(a6)
+	move.l	BbADraw(a4),a1
+	move.l	BbAMask(a4),d5
+	jsr	(a1)
+* FINI: remet le blitter
+	bsr	BlitWait
+	bsr	DOwnBlit
+DBlOut:	moveq	#0,d0
+	bra	BlOut
+
+******* Retourne un bloc
+*	D1->	Numero bloc
+*	D2-> 	Bit 0 => X / Bit 1 => Y
+RevBloc	movem.l	d2-d7/a2-a6,-(sp)
+	bsr	FindBloc
+	beq	BlNDef
+	lea	BlDesc(a1),a0
+	move.l	(a0),a1
+	and.w	#$3FFF,6(a1)
+	move.w	d2,d0
+	bsr	Retourne
+	moveq	#0,d0
+	bra	BlOut
+
+******* TROUVE UN BLOC D1 DANS LA LISTE
+*	BNE---> trouve	/  a1=adresse
+FindBloc:
+	lea	T_AdBlocs(a5),a1
+	move.l	(a1),d0
+	beq.s	FnBl1
+FnBl0:	move.l	d0,a1
+	cmp.w	BlNb(a1),d1
+	beq.s	FnBl2
+	move.l	BlNext(a1),d0
+	bne.s	FnBl0
+FnBl1:	moveq	#0,d0
+	rts
+FnBl2:	moveq	#1,d0
+	rts
+
+;-----------------------------------------------------------------
+; **** *** **** ****
+; *     *  *  * *	******************************************
+; ****  *  *  * ****	* TRAPPE FENETRES
+;    *  *  *  *    *	******************************************
+; ****  *  **** ****
+;-----------------------------------------------------------------
+
+
+; OPEN CONSOLE.DEVICE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OpConsole
+	lea	ConIo(pc),a1
+	moveq	#(Lio+Lmsg)/2-1,d0
+.Clean	clr.w	(a1)+
+	dbra	d0,.Clean
+	move.l	$4.w,a6
+	lea	ConName(pc),a0
+	lea	ConIo(pc),a1
+	moveq	#-1,d0			Console #= -1
+	moveq	#0,d1
+	jsr	OpenDev(a6)
+	rts
+
+; OPEN INPUT.DEVICE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1-> 	pointeur sur zone libre!!!
+OpInput
+	move.l	a1,-(sp)
+* Clean
+	moveq	#(Lio+Lmsg)/2-1,d0
+OpInp1	clr.w	(a1)+
+	dbra	d0,OpInp1
+* Creates port
+	sub.l	a1,a1
+	move.l	$4.w,a6
+	jsr	FindTask(a6)
+	move.l	(sp),a1
+	lea	Lio(a1),a1
+	move.l	d0,$10(a1)
+	jsr	AddPort(a6)
+* Open device
+	lea	DevName(pc),a0
+	move.l	(sp),a1
+	moveq	#0,d0
+	moveq	#0,d1
+	jsr	OpenDev(a6)
+	move.l	(sp)+,a1
+	lea	Lio(a1),a0
+	move.l	a0,14(a1)
+	rts
+
+; CLOSE input.device
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClInput	move.l	a1,-(sp)
+; Close device
+	move.l	$4.w,a6
+	jsr	CloseDev(a6)
+; Close port
+	move.l	(sp)+,a1
+	lea	Lio(a1),a1
+	jsr	RemPort(a6)
+	rts
+
+; Input handler, branche sur la chaine des inputs.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IoHandler
+	move.l	a5,-(sp)
+	move.l	W_Base(pc),a5
+; Si inhibe, laisse TOUT passer!
+	tst.w	T_Inhibit(a5)
+	bne.s	I_Inhibit
+; Continue...
+	move.b	T_AMOSHere(a5),d4		Si AMOS pas la,
+	ext.w	d4
+	bne.s	.Skip
+	bset	#WFlag_Event,T_WFlags(a5)	Marque des faux events!
+.Skip	move.l	a0,d0
+	move.l	a0,d2
+	moveq	#0,d3
+IeLoop	move.b	Ie_Class(a0),d1
+	cmp.b	#IeClass_RawMouse,d1
+	beq.s	IeMous
+	cmp.b	#IeClass_Rawkey,d1
+	beq	IeKey
+	cmp.b	#IeClass_DiskInserted,d1
+	beq.s	IeDIn
+	cmp.b	#IeClass_DiskRemoved,d1
+	beq.s	IeDOut
+IeLp1	move.l	d2,d3
+	move.l	(a0),d2
+IeLp2	move.l	d2,a0
+	bne.s	IeLoop
+IeLpX	move.l	(sp)+,a5
+	rts
+I_Inhibit
+	move.l	(sp)+,a5
+	move.l	a0,d0
+	rts
+; Disc inserted
+IeDIn	bset	#WFlag_Event,T_WFlags(a5)
+	move.w	#-1,T_DiscIn(a5)
+	bra.s	IeLp1
+; Disc removed
+IeDOut	bset	#WFlag_Event,T_WFlags(a5)
+	clr.w	T_DiscIn(a5)
+	bra.s	IeLp1
+; Evenement Mouse, fait le mouvement!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IeMous	tst.w	d4
+	beq.s	IeLp1
+	bset	#WFlag_Event,T_WFlags(a5)		Flag: un event!
+	cmp.l	#Fake_Code,ie_X(a0)	Un faux evenement?
+	beq.s	IeFake
+IeNof	move.w	T_MouYOld(a5),d1	* Devenir des MOUSERAW
+	and.w	#$0003,d1		* 0-> Normal
+	beq.s	.norm			* 1-> Trash
+	subq.w	#2,d1			* 2-> Tout passe
+	bmi.s	IeTrash			* 3-> Mouvements seuls
+	beq.s	IeLp1
+; Mode key only>>> prend les touches, laisse passer les mouvements
+	move.w	ie_Qualifier(a0),T_MouXOld(a5)
+	and.w	#%1000111111111111,ie_Qualifier(a0)
+	move.w	ie_Code(a0),d1
+	and.w	#$7f,d1
+	cmp.w	#IECODE_LBUTTON,d1
+	beq.s	.ski1
+	cmp.w	#IECODE_RBUTTON,d1
+	bne.s	IeLp1
+.ski1	move.w	#IECODE_NOBUTTON,ie_Code(a0)
+	bra.s	IeLp1
+; Mode normal>>> prend et met a la poubelle
+.norm	move.w	ie_Qualifier(a0),d1
+	move.w	d1,T_MouXOld(a5)
+	btst	#IEQUALIFIERB_RELATIVEMOUSE,d1
+	beq.s	IeTrash
+	move.w	ie_X(a0),d1
+	add.w	d1,T_MouseX(a5)
+	move.w	ie_Y(a0),d1
+	add.w	d1,T_MouseY(a5)
+; Event to trash!
+IeTrash	tst.l	d3
+	beq.s	IeTr1
+	move.l	d3,a1
+	move.l	(a0),d2
+	move.l	d2,(a1)
+	bra	IeLp2
+IeTr1	move.l	(a0),d0
+	move.l	d0,a0
+	bne	IeLoop
+	move.l	(sp)+,a5
+	rts
+; Faux evenement clavier...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+IeFake	cmp.w	#IEQUALIFIER_RELATIVEMOUSE,ie_Qualifier(a0)
+	bne	IeNof
+	clr.l	ie_X(a0)			Plus de decalage
+	bra	IeLp1				On laisse passer
+; Event clavier: prend le caractere au vol
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IeKey	bset	#WFlag_Event,T_WFlags(a5)
+	bsr	Cla_Event
+	bne.s	.IeKy1
+.IeKy0	tst.w	d4		Event to trash ou non
+	bne.s	IeTrash
+	bra	IeLp1
+; AMIGA-A pressed
+; ~~~~~~~~~~~~~~~
+.IeKy1	tst.w	T_NoFlip(a5)
+	bne.s	.IeKy0
+	btst	#WFlag_LoadView,T_WFlags(a5)
+	bne.s	.AA
+; Appel de TAMOSWb, rapide...
+	movem.l	a0-a1/d0-d1,-(sp)
+	moveq	#0,d1
+	tst.w	d4
+	bne.s	.Ska
+	moveq	#1,d1
+.Ska	bsr	TAMOSWb
+	movem.l	(sp)+,a0-a1/d0-d1
+	bra	IeTrash
+; Marque pour TESTS CYCLIQUES
+.AA	bset	#WFlag_AmigaA,T_WFlags(a5)
+	bra	IeTrash
+
+; 	Gestion des evenements clavier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	EVENT KEY
+;	D4=	Flag AMOS / WB
+Cla_Event
+	movem.l	a0-a1/d0-d3,-(sp)
+	move.w	Ie_Code(a0),d0
+	bclr	#7,d0
+	bne	.ClaI2
+; Appui sur une touche
+; ~~~~~~~~~~~~~~~~~~~~
+	cmp.b	#$68,d0				Shifts>>> pas stockes
+	bcc.s	.RawK
+	cmp.b	#$40,d0
+	bcs.s	.RawK
+	cmp.b	#$60,d0
+	bcc	.Cont
+; Conversion a la main des codes speciaux
+	lea	Cla_Special-$40(pc),a1
+	move.b	0(a1,d0.w),d1
+	bpl	.Rien
+	cmp.b	#$FF,d1
+	beq.s	.RawK
+; Une touche de fonction AMOS?
+	moveq	#0,d1				Ascii nul
+	move.b	Ie_Qualifier+1(a0),d2		Les shifts
+	btst	#6,d2
+	beq.s	.FFk1
+	lea	T_TFF1(a5),a1			Touches 1-10
+	bra.s	.FFk2
+.FFk1	btst	#7,d2				Pas AMIGA>>> Touche normale
+	beq.s	.Rien
+	lea	T_TFF2(a5),a1			Touches 11-20
+.FFk2	move.w	d0,d2
+	sub.w	#$50,d2
+	mulu	#FFkLong,d2
+	lea	0(a1,d2.w),a1
+	tst.b	(a1)
+	beq.s	.Rien
+	bsr	ClPutK
+	moveq	#0,d2
+	bra	.ClaIX
+; Appel de RAWKEYCONVERT et stockage si AMOS present
+.RawK	move.b	Ie_Qualifier+1(a0),d2		Prend CONTROL
+	and.b	#%11110111,Ie_Qualifier+1(a0)	Plus de CONTROL
+	movem.l	a0/a2/a6,-(sp)
+	lea	ConIo(pc),a6			Structure IO
+	move.l	20(a6),a6			io_device
+	lea	ConBuffer(pc),a1			Buffer de sortie
+	sub.l	a2,a2				Current Keymap
+	moveq	#LConBuffer,d1			Longueur du buffer
+	jsr	-$30(a6)			RawKeyConvert
+	move.w	d0,d3
+	movem.l	(sp)+,a0/a2/a6
+	move.b	d2,Ie_Qualifier+1(a0)		Remet CONTROL
+	move.w	Ie_Code(a0),d0
+	moveq	#0,d1
+	subq.w	#1,d3
+	bmi.s	.Rien
+	lea	ConBuffer(pc),a1			Une seule touche
+	move.b	(a1),d1
+.Rien	move.b	Ie_Qualifier+1(a0),d2		Les shifts!
+; Amiga-A?
+.A	move.b	d2,d3
+	and.b	T_AmigA_Shifts(a5),d3
+	cmp.b	T_AmigA_Shifts(a5),d3
+	bne.s	.AAA
+	cmp.b	T_AmigA_Ascii1(a5),d1
+	beq.s	.AA
+	cmp.b	T_AmigA_Ascii2(a5),d1
+	bne.s	.AAA
+.AA	moveq	#-1,d2
+	bra.s	.ClaI1
+; AMOS Not here: stop!
+.AAA	tst.w	d4
+	beq.s	.Cont
+; Est-ce un CONTROL-C?
+	btst	#3,d2
+	beq.s	.Sto
+	cmp.b	#"C",d1
+	beq.s	.C
+	cmp.b	#"c",d1
+	bne.s	.Sto
+.C	bset	#BitControl,T_Actualise(a5)
+	bra.s	.Cont
+; Stocke dans le buffer
+.Sto	bsr	Cla_Stocke			On stocke!
+; Change la table
+.Cont	moveq	#0,d2
+.ClaI1	move.w	d0,d1
+	and.w	#$0007,d0
+	lsr.w	#3,d1
+	lea	T_ClTable(a5),a0
+	bset	d0,0(a0,d1.w)
+.ClaIX	tst.w	d2
+	movem.l	(sp)+,a0-a1/d0-d3
+	rts
+; Relachement d'une touche
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.ClaI2	move.w	d0,d1
+	and.w	#$0007,d0
+	lsr.w	#3,d1
+	lea	T_ClTable(a5),a1
+	bclr	d0,0(a1,d1.w)
+.ClaIF	moveq	#0,d0
+	movem.l	(sp)+,a0-a1/d0-d3
+	rts
+
+; Table des touches $40->$5f
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cla_Special
+	dc.b	$ff,$08,$09,$0d,$0d,$1b,$00,$00		$40>$47
+	dc.b	$00,$00,$ff,$00,$1e,$1f,$1c,$1d		$48>$4f
+	dc.b	$fe,$fe,$fe,$fe,$fe,$fe,$fe,$fe		$50>$57
+	dc.b	$fe,$fe,$ff,$ff,$ff,$ff,$ff,$00		$58>$5f
+
+; Stocke D0/D1/D2 dans le buffer clavier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0	Rawkey
+;	D1	Ascii
+;	D2	Shifts
+Cla_Stocke
+	movem.l	a0/d3,-(sp)
+	lea	T_ClBuffer(a5),a0
+	move.w	T_ClTete(a5),d3
+	addq.w	#3,d3
+	cmp.w	#ClLong,d3
+	bcs.s	.ClS11
+	clr.w	d3
+.ClS11	cmp.w	T_ClQueue(a5),d3
+	beq.s	.ClS12
+	move.w	d3,T_ClTete(a5)
+	move.b	d2,0(a0,d3.w)
+	move.b	d0,1(a0,d3.w)
+	move.b	d1,2(a0,d3.w)
+.ClS12	move.b	d2,-4(a0)
+	move.b	d0,-3(a0)
+	move.b	d1,-1(a0)
+.ClSFin	movem.l	(sp)+,a0/d3
+	rts
+
+; Envoi d'un faux event souris au systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WSend_FakeEvent
+	movem.l	d0-d1/a1/a6,-(sp)
+	lea	Fake_Event(pc),a0
+	move.b	#IECLASS_RAWMOUSE,ie_Class(a0)
+	clr.b	ie_SubClass(a0)
+	move.w	#IECODE_NOBUTTON,ie_Code(a0)
+	move.w	#IEQUALIFIER_RELATIVEMOUSE,ie_Qualifier(a0)
+	move.l	#Fake_Code,ie_X(a0)
+	lea	T_IoDevice(a5),a1
+	move.l	a0,io_Data(a1)
+	move.w	#IND_WRITEEVENT,io_Command(a1)
+	move.l	#22,io_Length(a1)
+	move.l	$4.w,a6
+	jsr	_LVODoIO(a6)
+	movem.l	(sp)+,d0-d1/a1/a6
+	rts
+Fake_Code	equ	$789A789A
+; Faux evenement souris
+Fake_Event	dc.l	0				0
+		dc.b	IeClass_RawMouse		4
+		dc.b	0				5
+		dc.w	IECODE_NOBUTTON			6
+		dc.w	0				8
+		dc.w	0				10
+		dc.w	0				12
+		dc.l	0				14 Time Stamp
+		dc.l	0				18   "    "
+
+; Initialisation / Vide du buffer clavier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClInit
+ClVide	move.w	T_ClTete(a5),T_ClQueue(a5)
+	clr.b	T_ClFlag(a5)
+	moveq	#0,d0
+	rts
+
+; KEY WAIT, retourne BNE si des touches en attente
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClKWait	moveq	#0,d0
+	move.w	T_ClQueue(a5),d1
+	cmp.w	T_ClTete(a5),d1
+	rts
+
+; INKEY: D1 haut: SHIFTS/SCANCODE - D1 bas: ASCII
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClInky	moveq	#0,d1
+	move.w	T_ClQueue(a5),d2
+	cmp.w	T_ClTete(a5),d2
+	beq.s	Ink2
+	lea	T_ClBuffer(a5),a0
+	addq.w	#3,d2
+	cmp.w	#ClLong,d2
+	bcs.s	Ink1
+	moveq	#0,d2
+Ink1:	move.b	0(a0,d2.w),d1
+	lsl.w	#8,d1
+	move.b	1(a0,d2.w),d1
+	swap	d1
+	move.b	2(a0,d2.w),d1
+	move.w	d2,T_ClQueue(a5)
+Ink2:	moveq	#0,d0
+	rts
+
+; Change KEY MAP A1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClKeyM	rts
+
+***********************************************************
+*	Set key speed D1,d2
+*	A1---> Buffer libre!!!
+***********************************************************
+TKSpeed	movem.l	a3-a6,-(sp)
+	move.l	a1,-(sp)
+	movem.l	d1/d2,-(sp)
+	bsr	OpInput
+	move.l	(sp),d0
+	bsr	CalRep
+	move.w	#IND_SETTHRESH,io_command(a1)
+	move.l	$4.w,a6
+	jsr	DoIO(a6)
+	move.l	4(sp),d0
+	move.l	8(sp),a1
+	bsr	CalRep
+	move.w	#IND_SETPERIOD,io_command(a1)
+	move.l	$4.w,a6
+	jsr	DoIO(a6)
+	move.l	8(sp),a1
+	bsr	ClInput
+	lea	12(sp),sp
+	movem.l	(sp)+,a3-a6
+	moveq	#0,d0
+	rts
+CalRep	ext.l	d0
+	divu	#50,d0
+	move.w	d0,d1
+	swap	d0
+	ext.l	d0
+	mulu	#20000,d0
+	move.l	d1,$20(a1)		tv_secs
+	move.l	d0,$24(a1)		tv_micro
+	rts
+
+; Get shifts
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClSh:	moveq	#0,d1
+	move.b	T_ClShift(a5),d1
+	moveq	#0,d0
+	rts
+
+; Instant key D1: 0=relache / -1= enfonce
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClInst:	and.w	#$7F,d1
+	move.w	d1,d0
+	and.w	#$0007,d0
+	lsr.w	#3,d1
+	lea	T_ClTable(a5),a0
+	lea	0(a0,d1.w),a0
+	moveq	#0,d1
+	btst	d0,(a0)
+	beq.s	Inst
+	moveq	#-1,d1
+Inst:	moveq	#0,d0
+	rts
+
+; PUT KEY: stocke la chaine (A1) dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClPutK:	move.l	a0,-(sp)
+	movem.w	d0-d3,-(sp)
+	lea	T_ClBuffer(a5),a0
+ClPk0:	clr.b	d0
+	clr.b	d1
+	move.b	(a1)+,d2
+	beq.s	ClPk4
+	cmp.b	#"'",d2			* REM
+	beq.s	ClPk5
+	cmp.b	#1,d2			* ESC
+	bne.s	ClPk1
+	move.b	(a1)+,d0		* Puis SHF/SCAN/ASCI
+	move.b	(a1)+,d1
+	move.b	(a1)+,d2
+; Stocke!
+ClPk1:	move.w	T_ClTete(a5),d3
+	addq.w	#3,d3
+	cmp.w	#ClLong,d3
+	bcs.s	ClPk2
+	clr.w	d3
+ClPk2:	cmp.w	T_ClQueue(a5),d3
+	beq.s	ClPk4
+	move.b	d0,0(a0,d3.w)
+	move.b	d1,1(a0,d3.w)
+	move.b	d2,2(a0,d3.w)
+	move.w	d3,T_ClTete(a5)
+ClPk3:	bra.s	ClPk0
+ClPk5:	move.b	(a1)+,d2
+	beq.s	ClPk4
+	cmp.b	#"'",d2
+	bne.s	ClPk5
+	bra.s	ClPk0
+ClPk4:	movem.w	(sp)+,d0-d3
+	move.l	(sp)+,a0
+	rts
+
+; FUNC KEY: stocke la chaine (A1) en fonc D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClFFk:	movem.l	d1-d2,-(sp)
+	lea	T_TFF1(a5),a0
+	mulu	#FFkLong,d1
+	add.w	d1,a0
+	clr.w	d0
+ClF1:	clr.b	(a0)
+	move.b	(a1)+,d2
+	beq.s	ClFx
+	cmp.b	#1,d2
+	beq.s	ClF2
+	cmp.b	#"`",d2
+	beq.s	ClF3
+	addq.w	#1,d0
+	cmp.w	#FFkLong-1,d0
+	bcc.s	ClF1
+	move.b	d2,(a0)+
+	bra.s	ClF1
+ClFx:	movem.l	(sp)+,d1-d2
+	move.l	a1,a0
+	moveq	#0,d0
+	rts
+ClF2:	addq.w	#4,d0
+	addq.l	#3,a1
+	cmp.w	#FFkLong-1,d0
+	bcc.s	ClF1
+	move.b	d2,(a0)+
+	move.b	-3(a1),(a0)+
+	move.b	-2(a1),(a0)+
+	move.b	-1(a1),(a0)+
+	bra.s	ClF1
+ClF3:	addq.w	#2,d0
+	cmp.w	#FFkLong-1,d0
+	bcc.s	ClF1
+	move.b	#13,(a0)+
+	move.b	#10,(a0)+
+	bra.s	ClF1
+
+; GET KEY: ramene la touche de fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClGFFk:	lea	T_TFF1(a5),a0
+	move.w	d1,d0
+	mulu	#FFkLong,d0
+	add.w	d0,a0
+	moveq	#0,d0
+	rts
+
+; RETOUR L'ETAT DU FLAG DISC
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TGetDisc
+	move.w	T_DiscIn(a5),d0
+	ext.l	d0
+	rts
+
+;	Gestion cyclique hors interruptions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WTest_Cyclique
+
+; Verifie AMOS / WB si AA
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	bclr	#WFlag_AmigaA,T_WFlags(a5)
+	beq.s	.NoFlip
+	moveq	#0,d1
+	tst.b	T_AMOSHere(a5)
+	bne.s	.Wb
+	moveq	#1,d1
+.Wb	bsr	TAMOSWb
+.NoFlip
+; Envoi des faux messages au WB, en cas de blanker
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	$4.w,a0
+	cmp.w	#36,$14(a0)
+	bcs.s	.Noev
+	subq.w	#1,T_FakeEventCpt(a5)
+	bpl.s	.Noev
+	move.w	#50*2,T_FakeEventCpt(a5)
+	tst.b	T_AMOSHere(a5)
+	beq.s	.Noev
+	bsr	WSend_FakeEvent
+.Noev
+; Verifie l'inhibition
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	T_MyTask(a5),a0
+	move.l	10(a0),a0
+	cmp.b	#"S",(a0)
+	bne.s	.Skip
+	bsr	AMOS_Stopped
+.Skip	rts
+
+;	Cet AMOS est inhibe par un premier!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_Stopped
+	movem.l	a0-a6/d0-d7,-(sp)
+	move.l	a0,a4
+; Fait revenir le WB / Stoppe les interrupts
+	move.w	#-1,T_Inhibit(a5)
+	moveq	#-1,d1
+	bsr	TAMOSWb
+	move.w	d1,d7
+	moveq	#0,d1
+	bsr	TAMOSWb
+; Stoppe les interrupts
+	bsr	Rem_VBL
+; Arrete le son
+	move.w	#$000F,$Dff096
+; Change le "S"top en "W"
+	move.b	#"W",(a4)
+; Attend qu'il se retransforme en " "
+.Wait	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)
+	cmp.b	#"W",(a4)
+	beq.s	.Wait
+; Ramene le programme..
+	bsr	Add_VBL
+	tst.w	d7
+	beq.s	.Skip
+	moveq	#1,d1
+	bsr	TAMOSWb
+.Skip	clr.w	T_Inhibit(a5)
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+***********************************************************
+*	DEMARRAGE A FROID DES FENETRES
+***********************************************************
+WiInit:	lea	WiIn(pc),a0
+	move.l	a0,T_WiVect(a5)
+	rts
+
+******* FONCTIONS FENETRES
+WiIn:	bra	WOutC
+	bra	WPrint
+	bra	WCentre
+	bra	WOpen
+	bra	WLocate
+	bra	WQWind
+	bra	WDel
+	bra	WSBor
+	bra	WSTit
+	bra	WAdr
+	bra	WiMove
+	bra	WiCls
+	bra	WiSize
+	bra	WiSCur
+	bra	WiXYCu
+	bra	WiXGr
+	bra	WiYGr
+	bra	WPrint2
+	bra	WPrint3
+	bra	WiXYWi
+
+***********************************************************
+*	ARRET FINAL DES FENETRES
+***********************************************************
+WiEnd:	rts
+
+***********************************************************
+*	Writing FENETRE, loin de la destination!!!
+*	D1= 0/ Normal - 1/ Or - 2/ Xor - 3/ And - 4/ RIEN
+*	D2= NORMAL - PAPER only - PEN only
+***********************************************************
+Writing:move.w	d1,d2
+	and.w	#$07,d1
+	cmp.w	#5,d1
+	bcc.s	Wrt0
+	bclr	#7,WiFlags(a5)
+	lsl.w	#1,d1
+	beq.s	Wrt1
+	bset	#7,WiFlags(a5)
+Wrt1:	lea	WrtTab(pc),a1
+	move.w	0(a1,d1.w),d0
+	lea	WMod1(pc),a0
+	move.w	d0,(a0)
+	lea	WMod2(pc),a0
+	move.w	d0,(a0)
+	lea	WMod3(pc),a0
+	move.w	d0,(a0)
+Wrt0:	move.w	d2,d1
+	lsr.w	#3,d1
+	and.w	#$03,d1
+	cmp.w	#3,d1
+	bcc.s	Wrt3
+	lsl.w	#1,d1
+	beq.s	Wrt2
+	bset	#7,WiFlags(a5)
+Wrt2:	lea	GetTab(pc),a1
+	lea	WGet1(pc),a0
+	move.w	0(a1,d1.w),(a0)
+	lea	WGet2(pc),a0
+	move.w	0(a1,d1.w),(a0)
+Wrt3:	bsr	Sys_ClearCache
+	moveq	#0,d0
+	rts
+WrtTab:	move.b	d0,(a4)
+	or.b	d0,(a4)
+	eor.b	d0,(a4)
+	and.b	d0,(a4)
+	nop
+GetTab:	or.b	d1,d0
+	nop
+	move.w	d1,d0
+
+
+***********************************************************
+*	DECOR DES FENETRES
+
+******* Fabrique le decor de la fenetre COURANTE!
+WiStore	movem.l	d0-d7/a0-a5,-(sp)
+	tst.w	EcWiDec(a4)
+	beq	WiMdX
+	move.l	EcWindow(a4),d0
+	beq	WiMdX
+	move.l	d0,a5
+
+* Gestion memoire de sauvegarde
+	move.w	WiTxR(a5),d1
+	mulu	WiTyP(a5),d1
+	mulu	EcNPlan(a4),d1
+	tst.l	WiDBuf(a5)
+	beq.s	WiMd0
+	cmp.l	WiTBuf(a5),d1
+	beq.s	WiMd1
+* Efface!
+	move.l	WiDBuf(a5),a1
+	move.l	WiTBuf(a5),d0
+	bsr	FreeMm
+	clr.l	WiDBuf(a5)
+	clr.l	WiTBuf(a5)
+* Reserve!
+WiMd0:	move.l	d1,d0
+	bsr	FastMm
+	beq.s	WiMdX
+	move.l	d0,WiDBuf(a5)
+	move.l	d1,WiTBuf(a5)
+* Copie le contenu de l'ecran!
+WiMd1:	move.l	WiDBuf(a5),a3
+	move.w	WiDyR(a5),d0
+	move.w	EcTLigne(a4),d1
+	ext.l	d1
+	mulu	d1,d0
+	add.w	WiDxR(a5),d0
+	move.w	WiTyP(a5),d2
+	subq.w	#1,d2
+	move.w	WiTxR(a5),d3
+	move.w	d3,WiTxBuf(a5)
+	subq.w	#1,d3
+	move.w	WiNPlan(a5),d5
+	lea	EcLogic(a4),a0
+WiMd2:	move.w	d5,d6
+	move.l	a0,a1
+WiMd3:	move.l	(a1)+,a2
+	add.l	d0,a2
+	move.w	d3,d4
+WiMd4:	move.b	(a2)+,(a3)+
+	dbra	d4,WiMd4
+	dbra	d6,WiMd3
+	add.l	d1,d0
+	dbra	d2,WiMd2
+* Ca y est!
+WiMdX:	movem.l	(sp)+,d0-d7/a0-a5
+	rts
+
+******* Entree EFFACEMENT pour WIND SIZE!
+WiEff2:	movem.l	d0-d7/a0-a3,-(sp)
+	tst.w	EcWiDec(a4)
+	beq	WiEfX
+	tst.l	WiDBuf(a5)
+	beq	WiEfX
+* Limite en X
+	move.w	d6,d5
+	cmp.w	WiTxR(a5),d5
+	bls.s	WiEf2a
+	move.w	WiTxR(a5),d5
+* Limite en Y
+WiEf2a:	cmp.w	WiTyP(a5),d7
+	bls.s	WiEf2b
+	move.w	WiTyP(a5),d7
+* Limite en X
+WiEf2b:	move.w	WiDxR(a5),d0
+	move.w	d0,d2
+	add.w	d5,d2
+	move.w	WiDyR(a5),d1
+	move.w	d1,d3
+	add.w	d7,d3
+* Bordure?
+	tst.w	WiBord(a5)
+	beq.s	WiEf2c
+	addq.w	#1,d0
+	addq.w	#8,d1
+	subq.w	#1,d2
+	subq.w	#8,d3
+* Pousse!
+WiEf2c:	move.w	d3,-(sp)
+	move.w	d2,-(sp)
+	move.w	d0,-(sp)
+	moveq	#0,d4
+	moveq	#0,d5
+	ext.l	d6
+	move.w	d1,d7
+	bra	WiEf0
+
+******* Efface la fenetre (A5) avec CLIP des fenetres DEVANT!
+*	Avec D5= 1/0 Avec / Sans bordure
+*	Entre Y=D6 et Y=D7 seulement!
+WiEff:	movem.l	d0-d7/a0-a3,-(sp)
+	tst.w	EcWiDec(a4)
+	beq	WiEfX
+	tst.l	WiDBuf(a5)
+	beq	WiEfX
+
+* Limites la zone en Y
+	move.w	WiDyR(a5),d0
+	move.w	WiFyR(a5),d1
+	cmp.w	d7,d0
+	bcc	WiEfX
+	cmp.w	d6,d1
+	bls	WiEfX
+	cmp.w	d6,d0
+	bls.s	WiEe1
+	move.w	d0,d6
+WiEe1:	cmp.w	d7,d1
+	bcc.s	WiEe2
+	move.w	d1,d7
+WiEe2:	move.w	d7,-(sp)
+	exg.l	d6,d7
+
+* Donnees inits
+	moveq	#0,d6
+	move.w	WiTxR(a5),d6
+	move.w	WiDxR(a5),d0
+	add.w	d6,d0
+	move.w	d0,-(sp)
+	move.w	WiDxR(a5),-(sp)
+	moveq	#0,d4
+	moveq	#0,d5
+
+WiEf0:	move.w	(sp),d5
+* Va clipper
+WiEf1:	move.w	d5,d4
+	move.w	2(sp),d5
+	bsr	WiClip
+	bne	WiEf4
+* Adresse dans l'ecran
+	move.w	d7,d3
+	mulu	EcTLigne(a4),d3
+	add.l	d4,d3
+* Adresse dans le buffer
+	move.w	d7,d0
+	sub.w	WiDyR(a5),d0
+	move.w	EcNPlan(a4),d2
+	mulu	d2,d0
+	mulu	d6,d0
+	add.w	d4,d0
+	sub.w	WiDxR(a5),d0
+	move.l	WiDBuf(a5),a0
+	add.l	d0,a0
+	subq.w	#1,d2
+	move.w	d5,d1
+	sub.w	d4,d1
+	lea	EcLogic(a4),a2
+	cmp.w	#8,d1
+	bcc.s	WiER
+** Recopie LENTE!
+	subq.w	#1,d1
+WiEf2:	move.l	(a2)+,a3
+	add.l	d3,a3
+	move.l	a0,a1
+	move.w	d1,d0
+WiEf3:	move.b	(a1)+,(a3)+
+	dbra	d0,WiEf3
+	add.l	d6,a0
+	dbra	d2,WiEf2
+	cmp.w	2(sp),d5
+	bcs.s	WiEf1
+	bra.s	WiEf4
+** Recopie plus RAPIDE!
+WiER:	move.w	d1,d4
+	lsr.w	#2,d1
+	subq.w	#1,d1
+	and.w	#3,d4
+	subq.w	#1,d4
+WiEr2:	move.l	(a2)+,a3
+	add.l	d3,a3
+	move.l	a0,a1
+	move.w	d1,d0
+WiEr3:	move.b	(a1)+,(a3)+
+	move.b	(a1)+,(a3)+
+	move.b	(a1)+,(a3)+
+	move.b	(a1)+,(a3)+
+	dbra	d0,WiEr3
+	move.w	d4,d0
+	bmi.s	WiEr5
+WiEr4:	move.b	(a1)+,(a3)+
+	dbra	d0,WiEr4
+WiEr5:	add.l	d6,a0
+	dbra	d2,WiEr2
+	cmp.w	2(sp),d5
+	bcs	WiEf1
+** Encore une ligne en Y?
+WiEf4:	addq.w	#1,d7
+	cmp.w	4(sp),d7
+	bcs	WiEf0
+	addq.l	#6,sp
+** Ca y est!
+WiEfX:	movem.l	(sp)+,d0-d7/a0-a3
+	rts
+
+******* Effacement du buffer de decor (a5)
+WiEffBuf:
+	move.l	WiDBuf(a5),d0
+	beq.s	WiEbX
+	move.l	d0,a1
+	move.l	WiTBuf(a5),d0
+	bsr	FreeMm
+	clr.l	WiDBuf(a5)
+	clr.l	WiTBuf(a5)
+WiEbX:	rts
+
+******* Window clipping
+WiClip:	move.l	WiPrev(a5),d0
+	beq.s	WiClpX
+WiClp0:	move.l	d0,a0
+	move.w	d4,d2
+	move.w	d5,d3
+* Bonne ligne?
+	cmp.w	WiDyR(a0),d7
+	bcs.s	WiClpN
+	cmp.w	WiFyR(a0),d7
+	bcc.s	WiClpN
+* Rapproche les limites
+	cmp.w	WiDxR(a0),d5
+	bls.s	WiClpN
+	cmp.w	WiFxR(a0),d4
+	bcc.s	WiClpN
+	cmp.w	WiDxR(a0),d4
+	bcc.s	WiClp1
+	move.w	WiDxR(a0),d5
+	bra.s	WiClp2
+WiClp1:	move.w	WiFxR(a0),d4
+* Encore de la place?
+WiClp2:	cmp.w	d4,d5
+	bls.s	WiClpO
+* Encore une fenetre devant?
+WiClpN:	move.l	WiPrev(a0),d0
+	bne.s	WiClp0
+WiClpX:	moveq	#0,d0
+	rts
+* Refaire un tour?
+WiClpO:	cmp.w	d2,d4
+	bne.s	WiClpR
+	cmp.w	d3,d5
+	bne.s	WiClpR
+WiClpE:	moveq	#-1,d0
+	rts
+* Un tour encore pour sortir des chevauchements
+WiClpR:	cmp.w	4+2(sp),d4
+	bcc.s	WiClpE
+	move.w	d5,d4
+	move.w	4+2(sp),d5
+	move.l	WiPrev(a5),d0
+	bra.s	WiClp0
+
+***********************************************************
+*	GESTION DU CURSEUR
+***********************************************************
+
+******* AffCur:	affiche le curseur si en route
+AffCur:	btst	#1,WiSys(a5)
+	beq.s	AfCFin
+
+	movem.l	d0-d7/a0-a3,-(sp)
+	lea	WiCuDraw(a5),a0
+	move.l	a0,d6
+	lea	EcCurS(a4),a1
+	lea	EcCurrent(a4),a3
+	move.l	WiAdCur(a5),d2
+	move.w	WiCuCol(a5),d5
+	move.w	WiNPlan(a5),d4
+	move.w	EcTLigne(a4),d3
+	ext.l	d3
+
+; Affiche NORMAL
+AfC1:	move.l	d6,a0
+	move.l	(a3)+,a2
+	add.l	d2,a2
+	moveq	#7,d1
+	lsr.w	#1,d5
+	bcs.s	AfC3
+AfC2:	move.b	(a2),(a1)+		;Sauve
+	move.b	(a0)+,d0
+	not.b	d0
+	and.b	d0,(a2)
+	add.l	d3,a2
+	dbra	d1,AfC2
+	bra.s	AfC4
+AfC3:	move.b	(a2),(a1)+
+	move.b	(a0)+,d0
+	or.b	d0,(a2)
+	add.l	d3,a2
+	dbra	d1,AfC3
+AfC4:	dbra	d4,AfC1
+	movem.l	(sp)+,d0-d7/a0-a3
+AfCFin:	rts
+
+******* EffCur:	efface le curseur si en route
+EffCur:	btst	#1,WiSys(a5)
+	beq.s	EfCFin
+
+	movem.l	d3-d7/a0-a2,-(sp)
+	lea	EcCurS(a4),a0
+
+	move.w	WiNPlan(a5),d6
+	move.w	EcTLigne(a4),d5
+	ext.l	d5
+	move.l	WiAdCur(a5),d4
+	lea	EcCurrent(a4),a2
+
+; Efface NORMAL
+EfC1:	move.l	(a2)+,a1
+	add.l	d4,a1
+	moveq	#7,d3
+EfC2:	move.b	(a0)+,(a1)
+	add.l	d5,a1
+	dbra	d3,EfC2
+	dbra	d6,EfC1
+	movem.l	(sp)+,d3-d7/a0-a2
+EfCFin:	rts
+
+***********************************************************
+*	WINDOPEN
+*	D1= # de fenetre
+*	D2= X
+*	D3= Y
+*	D4= TX
+*	D5= TY
+*	D6= Flags / 0=Faire un CLW
+*	D7= 0 / # de bordure
+*	A1= # du jeu de caracteres
+***********************************************************
+WOpen:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+
+; Demande de la place memoire
+	move.l	#WiLong,d0
+	bsr	FastMm
+	bne.s	Wo0
+	moveq	#1,d0
+	bra	WOut
+Wo0:	move.l	a5,a3
+	move.l	d0,a5
+	lea	Circuits,a6
+
+; Fenetre deja ouverte?
+	bsr	WindFind
+	beq	WErr2
+	move.w	d1,WiNumber(a5)
+	move.w	EcNPlan(a4),d0
+	subq.w	#1,d0
+	move.w	d0,WiNPlan(a5)
+	move.w	#8,WiTyCar(a5)
+
+* Jeu de caractere
+	move.l	a1,d0
+	bne	WErr5
+	move.l	T_JeuDefo(a3),WiFont(a5)
+	lsr.w	#4,d2
+	lsl.w	#1,d2
+	cmp.w	#16,d7
+	bhi	WErr7
+	move.w	d7,WiBord(a5)
+	beq.s	Wo2
+	addq.w	#1,d2
+* Va tout calculer!
+Wo2	bsr	WiAdr
+	bne	WErr
+
+* Init parametres
+	clr.w	WiSys(a5)
+	clr.w	WiEsc(a5)
+	moveq	#0,d1			;Writing 0
+	bsr	Writing
+	move.l	EcWindow(a4),d0
+	beq.s	Wo3a
+* Une fenetre ouverte: reprend les parametres
+	move.l	d0,a0
+	move.w	WiPaper(a0),WiPaper(a5)
+	move.w	WiPen(a0),WiPen(a5)
+	move.w	WiCuCol(a0),WiCuCol(a5)
+	move.w	WiBorPap(a0),WiBorPap(a5)
+	move.w	WiBorPen(a0),WiBorPen(a5)
+	move.w	WiTab(a0),WiTab(a5)
+	bra.s	Wo4
+* Aucune fenetre ouverte: parametre par defaut
+Wo3a:	move.w	#1,WiPaper(a5)		;Paper=1 / Pen=2
+	move.w	#2,WiPen(a5)
+	move.w	#3,WiCuCol(a5)
+	move.w	#4,WiTab(a5)
+	move.w	#1,WiBorPap(a5)
+	move.w	#2,WiBorPen(a5)
+	cmp.w	#1,EcNPlan(a4)		;Si 1 plan
+	bne.s	Wo4
+	clr.w	WiPaper(a5)		;Paper=0 / Pen=1
+	move.w	#1,WiPen(a5)
+	move.w	#1,WiCuCol(a5)
+	clr.w	WiBorPap(a5)
+	move.w	#1,WiBorPen(a5)
+Wo4:	bsr	AdColor
+	moveq	#1,d1			;Scrollings
+	bsr	Scroll
+
+* Stocke (s'il faut!) la fenetre courante
+	move.l	EcWindow(a4),d0
+	beq.s	Wo5
+	move.l	a5,-(sp)
+	move.l	d0,a5
+	bsr	EffCur
+	bsr	WiStore
+	move.l	(sp)+,a5
+Wo5:
+
+* Bordure: Pas de titre
+	clr.w	WiTitH(a5)
+	clr.w	WiTitB(a5)
+	tst.w	WiBord(a5)
+	beq.s	PaBor
+	bsr	DesBord
+PaBor:
+* Effacement de l'interieur
+	bsr	WiInt
+	btst	#0,d6
+	beq.s	.Skip
+	bsr	Clw
+.Skip	bsr	Home
+
+* Initialisation du curseur nouvelle fenetre
+	lea	DefCurs(pc),a0
+	lea	WiCuDraw(a5),a1
+	moveq	#7,d0
+InCu:	move.b	(a0)+,(a1)+
+	dbra	d0,InCu
+	bset	#1,WiSys(a5)
+	bsr	AffCur
+
+* Premiere fenetre de l'ecran / Fenetre courante
+	move.l	EcWindow(a4),d0
+	move.l	a5,EcWindow(a4)
+	clr.l	WiPrev(a5)
+	move.l	d0,WiNext(a5)
+	beq	WOk
+	move.l	d0,a0
+	move.l	a5,WiPrev(a0)
+	bra	WOk
+
+******* Calcul des adresses fenetres!
+WiAdr:	move.w	d2,WiDxR(a5)
+	move.w	d2,WiDxI(a5)
+	move.w	d3,WiDyI(a5)
+
+* Controle largeur
+	and.w	#$FFFE,d4		* Taille en X paire
+	beq	WAdE3
+	move.w	d2,d0
+	add.w	d4,d0
+	cmp.w	EcTLigne(a4),d0
+	bhi	WAdE4
+	move.w	d0,WiFxR(a5)
+* Controle hauteur
+	move.w	WiTyCar(a5),d1
+	move.w	EcTLigne(a4),d0
+	mulu	d1,d0
+	move.w	d0,WiTLigne(a5)
+	move.w	d5,d0
+	beq	WAdE3
+	mulu	d1,d0
+	move.w	d0,WiTyP(a5)
+	move.w	d3,WiDyR(a5)
+	add.w	d3,d0
+	move.w	d0,WiFyR(a5)
+	mulu	EcTLigne(a4),d0
+	cmp.l	EcTPlan(a4),d0
+	bhi	WAdE4
+	mulu	EcTLigne(a4),d3
+	add.w	d2,d3
+
+	move.l	d3,WiAdhgR(a5)
+	move.w	d4,WiTxR(a5)
+	move.w	d5,WiTyR(a5)
+	tst.w	WiBord(a5)
+	beq.s	Wo3
+	addq.w	#1,WiDxI(a5)
+	add.w	d1,WiDyI(a5)
+	subq.w	#2,d4
+	bmi	WAdE3
+	beq	WAdE3
+	subq.w	#2,d5
+	bmi	WAdE3
+	beq	WAdE3
+	mulu	EcTLigne(a4),d1
+	add.l	d1,d3
+	addq.l	#1,d3
+Wo3:	move.l	d3,WiAdhgI(a5)
+	move.w	d4,WiTxI(a5)
+	move.w	d5,WiTyI(a5)
+	moveq	#0,d0
+	rts
+WAdE3:	moveq	#12,d0
+	rts
+WAdE4:	moveq	#13,d0
+	rts
+
+***********************************************************
+*	Activation de fenetre: WINDOW
+***********************************************************
+WQWind:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+; Trouve l'adresse de la fenetre
+	bsr	WindFind
+	bne	WErr1
+; Deja activee?
+	move.l	WiPrev(a0),d0
+	beq.s	QWiF
+* Stocke le contenu de la fenetre courante
+	bsr	EffCur
+	bsr	WiStore
+* Debranche la fenetre
+	move.l	d0,a1
+	move.l	WiNext(a0),a2
+	move.l	a2,WiNext(a1)
+	cmp.l	#0,a2
+	beq.s	QWi1
+	move.l	a1,WiPrev(a2)
+QWi1:
+* La met en premier
+	move.l	EcWindow(a4),a1
+	move.l	a0,EcWindow(a4)
+	clr.l	WiPrev(a0)
+	move.l	a1,WiNext(a0)
+	move.l	a0,WiPrev(a1)
+	move.l	a0,a5
+	move.w	WiDyR(a5),d6
+	move.w	WiFyR(a5),d7
+	bsr	WiEff			* Redessine
+	bsr	WiEffBuf		* Plus besoin de buffer
+* Plus d'escape!
+	bsr	AffCur
+QWiF	clr.w	WiEsc(a5)
+* Pas d'erreur
+WOk:	movem.l	(sp)+,d1-d7/a1-a6
+*	clr.w	T_WiRep(a5)
+	moveq	#0,d0
+	rts
+* Erreur 1
+QWErr1:	bsr	EffCur
+	bra	WErr1
+WOut:	movem.l	(sp)+,d1-d7/a1-a6
+	tst.l	d0
+	rts
+
+***********************************************************
+*	WIND MOVE change la position de la fenetre
+***********************************************************
+WiMove:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	tst.w	WiNumber(a5)
+	bne.s	WiMv0
+	moveq	#18,d0
+	bra.s	WOut
+
+* Stocke le contenu de la fenetre courante
+WiMv0:	bsr	EffCur
+	bsr	WiStore
+	move.w	WiDyR(a5),d6
+	move.w	WiFyR(a5),d7
+* Redessine les autres fenetres
+	move.l	WiNext(a5),d0
+	beq.s	WiMv2
+	move.l	a5,-(sp)
+	move.l	d0,a3
+	move.l	WiPrev(a3),d3
+	clr.l	WiPrev(a3)
+WiMv1:	move.l	d0,a5			* Redessine toutes les autres
+	bsr	WiEff
+	move.l	WiNext(a5),d0
+	bne.s	WiMv1
+	move.l	d3,WiPrev(a3)
+	move.l	(sp)+,a5
+* Change les coordonnees
+WiMv2:	move.w	d1,d0
+	lsr.w	#4,d0
+	lsl.w	#1,d0
+	tst.w	WiBord(a5)
+	beq.s	WiMv2a
+	addq.w	#1,d0
+WiMv2a:	move.w	d2,d1
+	move.w	WiDxR(a5),d2
+	move.w	WiDyR(a5),d3
+	move.w	WiTxR(a5),d4
+	move.w	WiTyR(a5),d5
+	movem.w	d2-d5,-(sp)
+	move.l	#EntNul,d7
+	cmp.l	d7,d0
+	bne.s	WiMv3
+	move.w	WiDxR(a5),d0
+WiMv3:	cmp.l	d7,d1
+	bne.s	WiMv4
+	move.w	WiDyR(a5),d1
+WiMv4:	move.w	d0,d2
+	move.w	d1,d3
+	bsr	WiAdr
+	beq.s	WiMv5
+	movem.w	(sp)+,d2-d5
+	move.l	d0,-(sp)
+	bsr	WiAdr
+	bra.s	WiMv6
+WiMv5:	addq.l	#8,sp
+	clr.l	-(sp)
+* Redessine la fenetre
+WiMv6:	bsr	WiInt
+	bsr	AdCurs
+	moveq	#0,d6
+	move.w	#10000,d7
+	bsr	WiEff
+	bsr	WiEffBuf
+	bsr	AffCur
+	move.l	(sp)+,d0
+	bra	WOut
+
+***********************************************************
+*	WIND SIZE change la taille de la fenetre
+***********************************************************
+WiSize:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	tst.w	WiNumber(a5)
+	bne.s	WiSi0
+	moveq	#18,d0
+	bra	WOut
+
+* Stocke le contenu de la fenetre courante
+WiSi0:	bsr	EffCur
+	bsr	WiStore
+	move.w	WiTxR(a5),d6
+	move.w	WiTyP(a5),d7
+	clr.w	-(sp)
+	movem.w	d6-d7,-(sp)
+* Redessine les autres fenetres
+	move.w	WiDyR(a5),d6
+	move.w	WiFyR(a5),d7
+	move.l	WiNext(a5),d0
+	beq.s	WiSi2
+	move.l	a5,-(sp)
+	move.l	d0,a3
+	move.l	WiPrev(a3),d3
+	clr.l	WiPrev(a3)
+WiSi1:	move.l	d0,a5			* Redessine toutes les autres
+	bsr	WiEff
+	move.l	WiNext(a5),d0
+	bne.s	WiSi1
+	move.l	d3,WiPrev(a3)
+	move.l	(sp)+,a5
+* Change les coordonnees
+WiSi2:	move.w	d1,d0
+	move.w	d2,d1
+	move.w	WiDxR(a5),d2
+	move.w	WiDyR(a5),d3
+	move.w	WiTxR(a5),d4
+	move.w	WiTyR(a5),d5
+	movem.w	d2-d5,-(sp)
+	move.l	#EntNul,d7
+	cmp.l	d7,d0
+	bne.s	WiSi3
+	move.w	WiTxR(a5),d0
+WiSi3:	cmp.l	d7,d1
+	bne.s	WiSi4
+	move.w	WiTyR(a5),d1
+WiSi4:	move.w	d0,d4
+	move.w	d1,d5
+	bsr	WiAdr
+	beq.s	WiSi5
+	movem.w	(sp)+,d2-d5
+	move.w	d0,4(sp)
+	bsr	WiAdr
+	bra.s	WiSi6
+WiSi5:	addq.l	#8,sp
+* Redessinne la fenetre
+WiSi6:	bsr	WiInt
+	bsr	AdCurs
+	lea	Circuits,a6
+	tst.w	WiBord(a5)
+	beq.s	WiSi7
+	bsr	DesBord
+WiSi7:	bsr	Clw
+	movem.w	(sp)+,d6-d7
+	bsr	WiEff2
+	bsr	WiEffBuf
+	bsr	AffCur
+	move.w	(sp)+,d0
+	ext.l	d0
+	bra	WOut
+
+******* BORDER n,pen,paper
+WSBor:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	cmp.l	#EntNul,d1
+	beq.s	Wsb1
+	cmp.l	#16,d1
+	bcc	WErr7
+	tst.w	d1
+	beq.s	Wsb1
+	move.w	d1,WiBord(a5)
+Wsb1:	cmp.l	#EntNul,d2
+	beq.s	Wsb2
+	cmp.w	EcNbCol(a4),d2
+	bcc	WErr7
+	move.w	d2,WiBorPap(a5)
+Wsb2:	cmp.l	#EntNul,d3
+	beq.s	Wsb3
+	cmp.w	EcNbCol(a4),d3
+	bcc	WErr7
+	move.w	d3,WiBorPen(a5)
+Wsb3:	bsr	ReBord
+	bra	WOk
+
+******* TITLE D1/D2
+WSTit:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	tst.w	WiBord(a5)
+	beq	WErr10
+	tst.l	d1
+	beq.s	WTi1
+	move.l	d1,a0
+	lea	WiTitH(a5),a1
+	bsr	ssWti
+WTi1:	tst.l	d2
+	beq.s	WTi2
+	move.l	d2,a0
+	lea	WiTitB(a5),a1
+	bsr	ssWti
+WTi2:	bsr	ReBord
+	bra	WOk
+
+* routine!
+SsWti:	moveq	#78,d0
+sWti1:	move.b	(a0)+,(a1)+
+	beq.s	sWti2
+	dbra	d0,sWti1
+	clr.b	(a1)
+sWti2:	rts
+
+******* WINDOW ADRESSE
+WAdr:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+	moveq	#0,d1
+	move.w	WiNumber(a0),d1
+	moveq	#0,d0
+	rts
+
+******* SET CURS a1
+WiSCur:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	bsr	EffCur
+	lea	WiCuDraw(a5),a2
+	moveq	#7,d0
+WiScu:	move.b	(a1)+,(a2)+
+	dbra	d0,WiScu
+	bsr	AffCur
+	bra	WOk
+
+******* Effacement de la fenetre courante
+WDel:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+	tst.w	WiNumber(a0)
+	bne.s	WiD1
+	moveq	#18,d0
+	rts
+WiD1:	movem.l	d1-d7/a1-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),d0
+	move.l	d0,a5
+	beq	WErr1
+	bsr	EffCur
+	lea	Circuits,a6
+	bsr	CClw
+	move.l	WiNext(a5),-(sp)
+	moveq	#-1,d5
+	move.w	WiDyR(a5),d6		* Zone a clipper!
+	move.w	WiFyR(a5),d7
+* Enleve la table de donnees
+	move.l	a5,a1
+	move.l	#WiLong,d0
+	bsr	FreeMm
+* Branche la fenetre suivante
+	move.l	(sp)+,a5
+	move.l	a5,EcWindow(a4)
+	cmp.l	#0,a5
+	beq	WOk
+	clr.l	WiPrev(a5)
+* Redessine toutes les autres fenetres
+	move.l	a5,-(sp)
+	bsr	WiEff
+	bsr	WiEffBuf
+WiD2	move.l	WiNext(a5),d0
+	beq.s	WiD3
+	move.l	d0,a5
+	bsr	WiEff
+	bra.s	WiD2
+* Remet le curseur
+WiD3:	move.l	(sp)+,a5
+	bsr	AffCur
+	bra	WOk
+
+******* Effacement de toutes les fenetres
+WiDelA:	bsr	WiD1
+	tst.l	d0
+	beq.s	WiDelA
+	moveq	#0,d0
+	rts
+
+******* CLS effacement de toutes les fenetres SAUF zero!
+WiCls:	movem.l	d1-d7/a0-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),d5
+	move.l	d5,a5
+	bsr	EffCur
+WiCls1:	move.l	d5,a5
+	move.l	WiNext(a5),d5
+	tst.w	WiNumber(a5)
+	bne.s	WiCls2
+	move.l	a5,d7
+	bra.s	WiCls3
+WiCls2:	bsr	WiEffBuf
+	move.l	#WiLong,d0
+	move.l	a5,a1
+	bsr	FreeMm
+WiCls3:	tst.l	d5
+	bne.s	WiCls1
+	move.l	d7,a5
+	move.l	a5,EcWindow(a4)
+	clr.l	WiPrev(a5)
+	clr.l	WiNext(a5)
+	lea	Circuits,a6
+	bsr	Clw
+	bsr	WiEffBuf
+	bsr	AffCur
+	movem.l	(sp)+,d1-d7/a0-a6
+	moveq	#0,d0
+	rts
+
+******* Recherche la fenetre D1 dans les tables
+WindFind:
+	move.l	EcWindow(a4),d0
+	beq.s	WiF2
+WiF1:	move.l	d0,a0
+	cmp.w	WiNumber(a0),d1
+	beq.s	WiF3
+	move.l	WiNext(a0),d0
+	bne.s	WiF1
+WiF2:	moveq	#1,d0
+WiF3:	rts
+
+***********************************************************
+*	Dessine la bordure D1
+***********************************************************
+DesBord:movem.l	d1-d7/a1-a6,-(sp)
+
+	tst.w	WiBord(a5)
+	beq	WErr10
+	move.w	WiBord(a5),d1
+	lsl.w	#1,d1
+	lea	Brd(pc),a1
+	add.w	-2(a1,d1.w),a1
+	bsr	WiExt
+
+; Dessine le haut!
+	bsr	Home
+	lea	WiTitH(a5),a2
+	bsr	DHoriz
+; Dessine la droite
+	move.w	WiTx(a5),d1
+	subq.w	#1,d1
+	moveq	#1,d2
+	bsr	Loca
+	bsr	DVert
+; Dessine le bas
+	moveq	#0,d1
+	move.w	WiTy(a5),d2
+	subq.w	#1,d2
+	bsr	Loca
+	lea	WiTitB(a5),a2
+	bsr	DHoriz
+; Dessine la gauche
+	moveq	#0,d1
+	moveq	#1,d2
+	bsr	Loca
+	bsr	DVert
+
+; Pas d'erreur
+	bsr	WiInt
+	bra	WOk
+
+******* Re dessine le bord, remet le curseur!!!
+ReBord	move.w	WiX(a5),-(sp)
+	move.w	WiY(a5),-(sp)
+	move.l	WiAdCur(a5),-(sp)
+	bsr	DesBord
+	move.l	(sp)+,WiAdCur(a5)
+	move.w	(sp)+,WiY(a5)
+	move.w	(sp)+,WiX(a5)
+	moveq	#0,d0
+	rts
+
+******* Dessine de la bordure HORIZONTALE
+DHoriz:
+
+; Fixe la fenetre pour les bords
+	bsr	SetBord
+
+; Position en Y
+	move.w	WiY(a5),d2
+
+; Dessine la gauche
+Dh1:	cmp.w	WiY(a5),d2
+	bne.s	Dh2
+	move.b	(a1)+,d1
+	beq.s	Dh3
+	bsr	COut
+	bra.s	Dh1
+Dh2:	move.l	a1,a0
+	bsr	Compte
+	move.l	a0,a1
+	bsr	CLeft
+Dh3:	move.w	WiTx(a5),d6
+	sub.w	WiX(a5),d6
+
+; Dessine la droite
+	move.l	a1,a0
+	bsr	Compte
+	move.l	a0,d3
+	move.w	WiTx(a5),d7
+	sub.w	d0,d7
+	bcc.s	Dh10
+	clr.w	d7
+Dh10:	cmp.w	d6,d7
+	bcc.s	Dh11
+	move.w	d6,d7
+Dh11:	move.w	d7,d1
+	bsr	Loca
+Dh12:	cmp.w	WiY(a5),d2
+	bne.s	Dh13
+	move.b	(a1)+,d1
+	beq.s	Dh13
+	bsr	COut
+	bra.s	Dh12
+Dh13:	move.l	d3,a1
+
+; Dessine le milieu
+	move.l	a1,d3
+	move.w	d6,d1
+	bsr	Loca
+Dh20:	move.w	WiTx(a5),d0
+	sub.w	WiX(a5),d0
+	cmp.w	d7,d0
+	bcc.s	Dh22
+	move.b	(a1)+,d1
+	bne.s	Dh21
+	move.l	d3,a1
+	move.b	(a1)+,d1
+	bne.s	Dh21
+	subq.l	#1,a1
+	moveq	#32,d1
+Dh21:	bsr	COut
+	bra.s	Dh20
+Dh22:	move.l	d3,a0
+	bsr	Compte
+	move.l	a0,a1
+
+; Imprime la chaine de de caracteres (A2)
+	exg	a2,a1
+	move.w	d6,d1
+	bsr	Loca
+Dh30:	move.w	WiTx(a5),d0
+	sub.w	WiX(a5),d0
+	cmp.w	d7,d0
+	bcc.s	Dh32
+	move.b	(a1)+,d1
+	beq.s	Dh32
+	bsr	COut
+	bra.s	Dh30
+Dh32:	exg	a1,a2
+
+; Fini! Restore
+DhFin:	bsr	SetNorm
+	rts
+
+
+******* Dessin bordure VERTICAL
+DVert:
+
+;-----> Fixe fenetre pour les bords
+	bsr	SetBord
+
+;-----> Dessine le bord
+	move.w	WiTx(a5),d4
+	sub.w	WiX(a5),d4
+	moveq	#1,d2
+	move.w	WiTyI(a5),d3
+	move.l	a1,d5
+DbV1:	cmp.w	d3,d2
+	bhi.s	DbV3
+	move.w	d4,d1
+	bsr	Loca
+	move.b	(a1)+,d1
+	bne.s	DbV2
+	move.l	d5,a1
+	move.b	(a1)+,d1
+	bne.s	DbV2
+	subq.l	#1,a1
+	moveq	#32,d1
+DbV2:	move.w	WiX(a5),d6
+	bsr	COut
+	cmp.w	WiX(a5),d6		;Boucle si code de controle
+	beq.s	DbV1
+	addq.w	#1,d2
+	bra.s	DbV1
+DbV3:	move.l	d5,a0
+	bsr	Compte
+	move.l	a0,a1
+
+	bsr	SetNorm
+	rts
+
+******* Scroll off / Ecriture normale
+SetBord:move.l	(sp)+,a3
+
+	move.w	WiSys(a5),-(sp)
+	move.w	WiFlags(a5),-(sp)
+	move.w	WiPaper(a5),-(sp)
+	move.w	WiPen(a5),-(sp)
+
+	movem.l	a1/a2/a3,-(sp)
+	moveq	#0,d1
+	bsr	Scroll
+	move.w	#-1,WiGraph(a5)
+	and.w	#$0001,WiFlags(a5)
+	move.w	WiBorPap(a5),WiPaper(a5)
+	move.w	WiBorPen(a5),WiPen(a5)
+	bsr	AdColor
+	movem.l	(sp)+,a1/a2/a3
+
+	jmp	(a3)
+
+******* Retour fenetre normale
+SetNorm:move.l	(sp)+,a3
+
+	move.w	(sp)+,WiPen(a5)
+	move.w	(sp)+,WiPaper(a5)
+	move.w	(sp)+,WiFlags(a5)
+	move.w	(sp)+,WiSys(a5)
+	clr.w	WiGraph(a5)
+
+	movem.l	a1/a2/a3,-(sp)
+	bsr	AdColor
+	movem.l	(sp)+,a1/a2/a3
+
+	jmp	(a3)
+
+***********************************************************
+*	CLW D1 caracteres au curseur
+***********************************************************
+RazCur:	cmp.w	WiX(a5),d1
+	bcs.s	RazC0a
+	move.w	WiX(a5),d1
+RazC0a	subq.w	#1,d1
+	bmi.s	RazC3
+
+	move.l	WiAdCur(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiNPlan(a5),d2
+	move.w	EcTLigne(a4),d3
+	ext.l	d3
+	move.w	WiTyCar(a5),d4
+	subq.w	#1,d4
+	lea	WiColFl(a5),a3
+
+	move.l	a4,-(sp)
+RazC0:	move.l	a0,a1
+	move.l	a3,a4
+	move.w	d2,d5
+RazC1:	move.l	(a1)+,a2
+	add.l	d0,a2
+	move.w	(a4)+,d7
+	addq.l	#2,a4
+	move.w	d4,d6
+	btst	d5,WiSys+1(a5)
+	bne.s	RazC2a
+RazC2:	move.b	d7,(a2)
+	add.l	d3,a2
+	dbra	d6,RazC2
+RazC2a:	dbra	d5,RazC1
+	addq.l	#1,d0
+	dbra	d1,RazC0
+	move.l	(sp)+,a4
+
+RazC3:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	CL TO END OF LINE (Vite!)
+***********************************************************
+ClEol:	move.w	WiX(a5),d3
+	move.l	WiAdCur(a5),d0
+	btst	#0,d0
+	beq.s	ClEo1
+	movem.l	d0/d3,-(sp)
+	moveq	#1,d1
+	bsr	RazCur
+	movem.l	(sp)+,d0/d3
+	addq.l	#1,d0
+	subq.w	#1,d3
+ClEo1	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	tst.w	d3
+	ble.s	ClEo2
+	bsr	ClFin
+ClEo2	moveq	#0,d0
+	rts
+
+***********************************************************
+*	CLW of ALL window, even border!
+***********************************************************
+CClw:	tst.w	WiBord(a5)
+	beq.s	Clw
+	clr.b	WiTitH(a5)
+	clr.b	WiTitB(a5)
+	move.w	#16,WiBord(a5)
+	move.w	WiPaper(a5),WiBorPap(a5)
+	bsr	DesBord
+
+***********************************************************
+*	CLW
+***********************************************************
+Clw:	move.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	mulu	WiTyI(a5),d2
+	move.w	WiTxI(a5),d3
+	bsr	ClFin
+	bra	Home
+
+***********************************************************
+*	CL LIGNE CURSEUR
+***********************************************************
+ClLine:	move.w	WiY(a5),d0
+	mulu	WiTLigne(a5),d0
+	add.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	move.w	WiTxI(a5),d3
+
+; Fin de CLW
+ClFin:	subq.w	#1,d2
+	lea	WiColFl(a5),a1
+	move.w	EcTLigne(a4),d1
+	ext.l	d1
+	lsr.w	#1,d3
+	lsl.w	#6,d3
+	or.w	#1,d3
+	move.w	WiNPlan(a5),d4
+
+	bsr	OwnBlit
+	move.w	#%0000000110101010,BltCon0(a6)
+	clr.w	BltCon1(a6)
+	clr.w	BltModD(a6)
+	move.w	#$8040,DmaCon(a6)
+Clw1:	move.w	d4,d5
+	move.l	a0,a2
+	move.l	a1,a3
+Clw2:	btst	d5,WiSys+1(a5)
+	bne.s	.skip
+	bsr	BlitWait
+	move.l	(a2),d7
+	add.l	d0,d7
+	move.l	d7,BltAdD(a6)
+	move.w	(a3),BltDatC(a6)
+	move.w	d3,BltSize(a6)
+.skip	addq.l	#4,a2
+	addq.l	#4,a3
+	dbra	d5,Clw2
+	add.l	d1,d0
+	dbra	d2,Clw1
+	bsr	Blitwait
+	bsr	DOwnBlit
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	SCROLLING VERS LA GAUCHE LIGNE CURSEUR
+***********************************************************
+ScGLine:move.w	WiY(a5),d0
+	mulu	WiTLigne(a5),d0
+	add.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	bra	ScGFin
+***********************************************************
+*	SCROLLING VERS LA GAUCHE DE TOUT L'ECRAN
+***********************************************************
+ScGWi:	move.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	mulu	WiTyI(a5),d2
+
+; Fin de
+ScGFin:	subq.w	#1,d2
+	lea	WiColFl(a5),a1
+	move.w	EcTLigne(a4),d1
+	ext.l	d1
+	move.w	WiTxI(a5),d3
+	lsr.w	#1,d3
+	lsl.w	#6,d3
+	or.w	#1,d3
+	move.w	WiNPlan(a5),d4
+	move.w	WiTxI(a5),d6
+	subq.w	#1,d6
+
+	move.l	a4,-(sp)
+	bsr	OwnBlit
+	move.w	#%0000010111001100,BltCon0(a6)
+	move.w	#%1000000000000000,BltCon1(a6)
+	clr.w	BltModB(a6)
+	clr.w	BltModD(a6)
+	move.w	#$8040,DmaCon(a6)
+ScG1:	move.w	d4,d5
+	move.l	a0,a4
+	move.l	a1,a3
+ScG2:	move.l	(a4)+,a2
+	btst	d5,WiSys+1(a5)
+	bne.s	.skip
+	add.l	d0,a2
+	move.l	a2,BltAdD(a6)		* Scrolle la ligne
+	move.b	1(a2),d7
+	lea	2(a2),a2
+	move.l	a2,BltAdB(a6)
+	lea	-2(a2),a2
+	move.w	d3,BltSize(a6)
+	bsr	BlitWait
+	move.b	d7,(a2)
+	move.b	(a3),0(a2,d6.w)		* Efface le petit bout
+.skip	addq.l	#4,a3
+	dbra	d5,ScG2
+	add.l	d1,d0
+	dbra	d2,ScG1
+	bsr	DOwnBlit
+	move.l	(sp)+,a4
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	SCROLLING VERS LA DROITE LIGNE CURSEUR
+***********************************************************
+ScDLine:move.w	WiY(a5),d0
+	mulu	WiTLigne(a5),d0
+	add.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	bra	ScDFin
+***********************************************************
+*	SCROLLING VERS LA GAUCHE DE TOUT L'ECRAN
+***********************************************************
+ScDWi:	move.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	mulu	WiTyI(a5),d2
+
+; Fin de
+ScDFin:	subq.w	#1,d2
+	lea	WiColFl(a5),a1
+	move.w	EcTLigne(a4),d1
+	ext.l	d1
+	move.w	WiTxI(a5),d3
+	lsr.w	#1,d3
+	lsl.w	#6,d3
+	or.w	#1,d3
+	move.w	WiNPlan(a5),d4
+
+	move.l	a4,-(sp)
+	bsr	OwnBlit
+	move.w	#%0000010111001100,BltCon0(a6)
+	move.w	#%1000000000000000,BltCon1(a6)
+	clr.w	BltModB(a6)
+	clr.w	BltModD(a6)
+	move.w	#$8040,DmaCon(a6)
+ScD1:	move.w	d4,d5
+	move.l	a0,a4
+	move.l	a1,a3
+ScD2:	move.l	(a4)+,a2
+	btst	d5,WiSys+1(a5)
+	bne.s	.skip
+	add.l	d0,a2
+	move.l	a2,BltAdB(a6)
+	move.l	a2,BltAdD(a6)		* Scrolle la ligne
+	move.w	d3,BltSize(a6)
+	bsr	BlitWait
+	move.b	(a3),(a2)
+.skip	addq.l	#4,a3
+	dbra	d5,ScD2
+	add.l	d1,d0
+	dbra	d2,ScD1
+	bsr	DOwnBlit
+	move.l	(sp)+,a4
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	SCROLLING VERS LE HAUT DU BAS AU CURSEUR
+***********************************************************
+ScHautBas:
+	lea	EcCurrent(a4),a2
+	move.w	EcTLigne(a4),d0
+	ext.l	d0
+	move.w	WiTLigne(a5),d1
+	move.w	WiY(a5),d2
+	mulu	d1,d2
+	add.l	WiAdhgI(a5),d2
+	move.l	d2,a1			;Destination
+	move.l	d2,a0
+	add.w	d1,a0			;Source
+
+; Va scroller
+	move.w	WiTyI(a5),d1
+	sub.w	WiY(a5),d1
+	subq.w	#1,d1
+	mulu	WiTyCar(a5),d1
+	bsr	Scrolle
+
+; Effacer la ligne du bas
+	move.w	WiTyI(a5),d0
+	subq.w	#1,d0
+	mulu	WiTLigne(a5),d0
+	add.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	move.w	WiTxI(a5),d3
+	bra	ClFin
+
+***********************************************************
+*	SCROLLING VERS LE BAS DU HAUT AU CURSEUR
+***********************************************************
+ScBasHaut:
+	lea	EcCurrent(a4),a2
+	move.w	EcTLigne(a4),d0
+	ext.l	d0
+	move.w	WiTLigne(a5),d1
+	move.w	WiY(a5),d2
+	addq.w	#1,d2
+	mulu	d1,d2
+	sub.l	d0,d2
+	add.l	WiAdhgI(a5),d2
+	move.l	d2,a1			;Destination
+	move.l	d2,a0
+	sub.w	d1,a0			;Source
+	neg.l	d0			;Delta ligne
+
+; Va scroller
+	move.w	WiY(a5),d1
+	mulu	WiTYCar(a5),d1
+	bsr	Scrolle
+
+; Efface la ligne du haut
+	move.l	WiAdhgI(a5),d0
+	lea	EcCurrent(a4),a0
+	move.w	WiTyCar(a5),d2
+	move.w	WiTxI(a5),d3
+	bra	ClFin
+
+***********************************************************
+*	SCROLLING VERS LE HAUT A LA POSITION DU CURSEUR
+***********************************************************
+ScHaut:	lea	EcCurrent(a4),a2
+	move.w	EcTLigne(a4),d0		;Delta ligne= D0
+	ext.l	d0
+	move.l	WiAdhgI(a5),a1
+	move.l	a1,a0
+	add.w	WiTLigne(a5),a0		;Source= A0
+
+	move.w	WiY(a5),d1		;Nb ligne= D1
+	mulu	WiTyCar(a5),d1
+	bsr	Scrolle
+	bra	ClLine
+
+***********************************************************
+*	SCROLLING VERS LE BAS A LA POSITION DU CURSEUR
+***********************************************************
+ScBas:	lea	EcCurrent(a4),a2
+	move.w	EcTLigne(a4),d0
+	ext.l	d0
+	move.w	WiTLigne(a5),d1
+	move.w	WiTyI(a5),d2
+	mulu	d1,d2
+	sub.l	d0,d2
+	add.l	WiAdhgI(a5),d2
+	move.l	d2,a1			;Destination
+	move.l	d2,a0
+	sub.w	d1,a0			;Source
+	neg.l	d0			;Delta ligne
+
+	move.w	WiTyI(a5),d1
+	sub.w	WiY(a5),d1
+	subq.w	#1,d1
+	mulu	WiTyCar(a5),d1
+	bsr	Scrolle
+	bra	ClLine
+
+******* Fait le scrolling
+Scrolle:subq.w	#1,d1
+	bmi.s	ScFin
+
+	move.l	EcTPlan(a4),d2
+	move.w	WiTxI(a5),d3
+	lsr.w	#1,d3
+	lsl.w	#6,d3
+	or.w	#1,d3
+	move.w	WiNPlan(a5),d4
+
+	bsr	OwnBlit
+	move.w	#%0000001110101010,BltCon0(a6)
+	clr.w	BltCon1(a6)
+	clr.w	BltModC(a6)
+	clr.w	BltModD(a6)
+	move.w	#$8040,DmaCon(a6)
+Sc1:	move.w	d4,d5
+	move.l	a2,a3
+Sc2:	btst	d5,WiSys+1(a5)
+	bne.s	.skip
+	bsr	BlitWait
+	move.l	(a3),d6
+	move.l	d6,d7
+	add.l	a0,d6
+	add.l	a1,d7
+	move.l	d6,BltAdC(a6)
+	move.l	d7,BltAdD(a6)
+	move.w	d3,BltSize(a6)
+.skip	addq.l	#4,a3
+	dbra	d5,Sc2
+	add.l	d0,a0
+	add.l	d0,a1
+	dbra	d1,Sc1
+	bsr	BlitWait
+	bsr	DOwnBlit
+
+; Va effacer la ligne du curseur
+ScFin:	rts
+
+***********************************************************
+*	SCROLLING ON/OFF
+***********************************************************
+Scroll:	bclr	#0,WiSys(a5)
+	tst.w	d1
+	beq.s	Scl
+	bset	#0,WiSys(a5)
+Scl:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	FIXE LA COULEUR DU CURSEUR
+***********************************************************
+CurCol:	cmp.w	EcNbCol(a4),d1
+	bcc	PErr7
+	move.w	d1,WiCuCol(a5)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	CURSEUR ON/OFF
+***********************************************************
+Curs:	bclr	#1,WiSys(a5)
+	tst.w	d1
+	beq.s	Cus
+	bset	#1,WiSys(a5)
+Cus:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	JEU NORMAL/JEU GRAPHIQUE
+*	D1=0 --> Normal / D1=1 --> Graphique
+***********************************************************
+ChgCar:	move.w	d1,WiGraph(a5)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	SHADE on/off
+*	D1= faux / vrai
+***********************************************************
+Shade:	bclr	#1,WiFlags+1(a5)
+	tst.w	d1
+	beq.s	Sha
+	bset	#1,WiFlags+1(a5)
+Sha:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	UNDER on/off
+*	D1= faux / vrai
+***********************************************************
+Under:	bclr	#2,WiFlags+1(a5)
+	tst.w	d1
+	beq.s	Und
+	bset	#2,WiFlags+1(a5)
+Und:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	INVERSE on/off
+*	D1= faux / vrai
+***********************************************************
+Inv:	tst.w	d1
+	bne.s	InvOn
+; Inverse off
+	bclr	#2,WiSys(a5)
+	beq.s	InvF
+	bra.s	Inv1
+; Inverse on
+InvOn:	bset	#2,WiSys(a5)
+	bne.s	InvF
+Inv1:	move.w	WiPaper(a5),d0
+	move.w	WiPen(a5),WiPaper(a5)
+	move.w	d0,WiPen(a5)
+	bsr	AdColor
+InvF:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Set PAPER
+*	D1= paper
+***********************************************************
+Paper:	cmp.w	EcNbCol(a4),d1
+	bcc	PErr7
+	bclr	#2,WiSys(a5)
+	beq.s	Pap1
+	move.w	WiPaper(a5),WiPen(a5)
+Pap1:	move.w	d1,WiPaper(a5)
+	bsr	AdColor
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Set PEN
+*	D1= pen
+***********************************************************
+Pen:	cmp.w	EcNbCol(a4),d1
+	bcc	PErr7
+	bclr	#2,WiSys(a5)
+	beq.s	Pen1
+	move.w	WiPen(a5),WiPaper(a5)
+Pen1:	move.w	d1,WiPen(a5)
+	bsr	AdColor
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Set PLANES
+*	D1= planes
+***********************************************************
+Planes:	moveq	#0,d0
+	move.w	WiNPlan(a5),d2
+	moveq	#0,d3
+.loop	btst	d3,d1
+	bne.s	.skip
+	bset	d2,d0
+.skip	addq.w	#1,d3
+	dbra	d2,.loop
+	move.b	d0,WiSys+1(a5)
+	bsr	AdColor
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Curseur LEFT
+***********************************************************
+CLeft:	move.w	WiX(a5),d0
+	addq.w	#1,d0
+	cmp.w	WiTx(a5),d0
+	bhi.s	CLt1
+	move.w	d0,WiX(a5)
+	bsr	AdCurs
+	moveq	#0,d0
+	rts
+CLt1:	move.w	#1,WiX(a5)
+	bra	CUp
+
+***********************************************************
+*	Curseur RIGHT
+***********************************************************
+CRight:	subq.w	#1,WiX(a5)
+	beq.s	CRt1
+	bsr	AdCurs
+	moveq	#0,d0
+	rts
+CRt1:	move.w	WiTx(a5),WiX(a5)
+	bra	CDown
+
+***********************************************************
+*	Curseur UP
+***********************************************************
+CUp:	subq.w	#1,WiY(a5)
+	bpl.s	CUp1
+	btst	#0,WiSys(a5)
+	bne.s	CUp2
+	move.w	WiTy(a5),d0
+	subq.w	#1,d0
+	move.w	d0,WiY(a5)
+CUp1:	bsr	AdCurs
+	moveq	#0,d0
+	rts
+CUp2:	clr.w	WiY(a5)
+	bsr	AdCurs
+	movem.l	d2-d7/a1-a3,-(sp)
+	bsr	ScBas
+	movem.l	(sp)+,d2-d7/a1-a3
+	rts
+
+***********************************************************
+*	Curseur DOWN
+***********************************************************
+CDown:	move.w	WiY(a5),d0
+	addq.w	#1,d0
+	cmp.w	WiTy(a5),d0
+	bcs.s	Cdo1
+	btst	#0,WiSys(a5)
+	bne.s	Cdo2
+	clr.w	d0
+Cdo1:	move.w	d0,WiY(a5)
+	bsr	AdCurs
+	moveq	#0,d0
+	rts
+Cdo2:	movem.l	d2-d7/a1-a3,-(sp)
+	bsr	ScHaut
+	movem.l	(sp)+,d2-d7/a1-a3
+	rts
+
+***********************************************************
+*	A la ligne
+***********************************************************
+CReturn:move.w	WiTx(a5),WiX(a5)
+	bsr	AdCurs
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Set TAB
+***********************************************************
+SetTab:	cmp.w	WiTx(a5),d1
+	bcc	PErr7
+	move.w	d1,WiTab(a5)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Next TAB
+***********************************************************
+Tab:	move.w	WiTx(a5),d0
+	sub.w	WiX(a5),d0
+	move.w	WiTab(a5),d1
+	beq.s	Tab3
+Tab1:	cmp.w	d0,d1
+	bhi.s	Tab2
+	add.w	WiTab(a5),d1
+	bra.s	Tab1
+Tab2:	cmp.w	WiTx(a5),d1
+	bcc.s	Tab3
+	move.w	WiY(a5),d2
+	bsr	Loca
+Tab3:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Repeter
+***********************************************************
+Repete:	move.l	W_Base(pc),a3
+	tst.w	T_WiRep(a3)
+	bne.s	Rep2
+; Demarrage du REPEAT
+	tst.w	d1
+	bne.s	Rep1
+	lea	T_WiRepBuf(a3),a0
+	move.l	a0,T_WiRepAd(a3)
+	addq.w	#1,T_WiRep(a3)
+	move.w	#1,WiEsc(a5)
+Rep1:	moveq	#0,d0
+	rts
+; Stockage,
+Rep2:	add.w	#48,d1
+	lea	T_WiRepBuf+WiRepL-1(a3),a0
+	move.l	a0,d2
+	move.l	T_WiRepAd(a3),a0
+	cmp.b	#27,-2(a0)
+	bne.s	Rep3
+	cmp.b	#"R",-1(a0)
+	beq.s	Rep5
+Rep3:	move.b	d1,(a0)+
+	cmp.l	d2,a0
+	bcc.s	Rep4
+	move.l	a0,T_WiRepAd(a3)
+RepF:	move.w	#1,WiEsc(a5)
+	moveq	#0,d0
+	rts
+Rep4:	lea	2(a0),a0
+	moveq	#48+1,d1
+Rep5:	clr.b	-2(a0)
+	move.w	d1,d2
+	sub.w	#49,d2
+	bpl.s	Rep6
+	moveq	#0,d2
+Rep6:	lea	T_WiRepBuf(a3),a0
+Rep7:	move.b	(a0)+,d1
+	beq.s	Rep8
+	bsr	COut
+	bra.s	Rep7
+Rep8:	dbra	d2,Rep6
+; Fini!
+	clr.w	T_WiRep(a3)
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Fonction MEMORISER
+***********************************************************
+MemoCu:	tst.w	d1
+	beq.s	MeX
+	cmp.w	#1,d1
+	beq.s	ReX
+	cmp.w	#2,d1
+	beq.s	MeY
+	cmp.w	#3,d1
+	beq.s	ReY
+	bra.s	MemFin
+* Memorise la position en X
+MeX:    move.w	WiX(a5),WiMx(a5)
+ 	bra.s	MemFin
+* Restitue la position en X
+ReX:	move.w	WiMx(a5),d0
+	beq.s	MemFin
+	cmp.w	WiTx(a5),d0
+	bhi.s	MemFin
+	move.w	d0,WiX(a5)
+        bsr	AdCurs
+        bra.s	MemFin
+* Memorise la position en Y
+MeY:	move.w	WiY(a5),WiMy(a5)
+	bra.s	MemFin
+* Restitue la position en Y
+ReY:	move.w	WiMy(a5),d0
+	cmp.w	WiTy(a5),d0
+	bcc.s	MemFin
+	move.w	d0,WiY(a5)
+	bsr	AdCurs
+* Fini!
+MemFin:	moveq	#0,d0
+	rts
+
+***********************************************************
+*	Mouvement relatif du curseur
+***********************************************************
+DecaX:	add.w	#48,d1
+	sub.b	#128,d1
+ 	ext.w	d1
+ 	move.w	WiTx(a5),d0
+ 	sub.w	WiX(a5),d0
+	add.w	d0,d1
+        bra	LocaX
+
+DecaY:	add.w	#48,d1
+	sub.b	#128,d1
+	ext.w	d1
+	add.w	WiY(a5),d1
+	bra	LocaY
+
+***********************************************************
+*	Fonction ZONES
+***********************************************************
+WiZone:	tst.b	d1
+	bne.s	WiZ
+
+; CODE 0 ---> stocke X et Y
+	move.w	WiTx(a5),d0
+	sub.w	WiX(a5),d0
+	move.w	d0,WiZoDX(a5)
+	move.w	WiY(a5),WiZoDY(a5)
+	moveq	#0,d0
+	rts
+
+; CODE <>0 ---> stocke dans les zones
+WiZ:	move.w	d1,-(sp)
+	bsr	CLeft
+	move.w	(sp)+,d1
+	and.w	#$FF,d1
+	move.w	WiZoDx(a5),d2
+	move.w	WiZoDy(a5),d3
+	move.w	WiTx(a5),d4
+	sub.w	WiX(a5),d4
+	move.w	WiY(a5),d5
+	addq.w	#1,d5
+	lsl.w	#3,d2
+	lsl.w	#3,d4
+	add.w	#7,d4
+	mulu	WiTyCar(a5),d3
+	mulu	WiTyCar(a5),d5
+	move.w	WiDxI(a5),d0
+	lsl.w	#3,d0
+	add.w	d0,d2
+	add.w	d0,d4
+	add.w	WiDyI(a5),d3
+	add.w	WiDyI(a5),d5
+	move.l	a5,-(sp)
+	move.l	W_Base(pc),a5
+	bsr	SySetZ
+	move.l	(sp)+,a5
+	move.l	d0,-(sp)
+	bsr	CRight
+	move.l	(sp)+,d0
+	rts
+
+***********************************************************
+*	Fonction ENCADRER
+***********************************************************
+Encadre:move.l	W_Base(pc),a3
+	tst.b	d1
+	bne.s	Enc
+
+; CODE 0 ---> stocke X et Y
+	move.w	WiTx(a5),d0
+	sub.w	WiX(a5),d0
+	move.w	d0,T_WiEncDX(a3)
+	move.w	WiY(a5),T_WiEncDY(a3)
+	moveq	#0,d0
+	rts
+
+; CODE <>0 ---> encadre
+Enc:	move.w	WiX(a5),-(sp)
+	move.w	WiY(a5),-(sp)
+	move.w	#-1,WiGraph(a5)
+
+	and.w	#7,d1			;Pointe la bordure
+	lsl.w	#3,d1
+	lea	TEncadre(pc),a2
+	lea	-8(a2,d1.w),a2
+	move.w	WiTx(a5),d3		;TX
+	sub.w	WiX(a5),d3
+	sub.w	T_WiEncDX(a3),d3
+	bmi	EncFin
+	subq.w	#1,d3
+	move.w	WiY(a5),d4		;TY
+	sub.w	T_WiEncDY(a3),d4
+	bmi	EncFin
+	move.w	T_WiEncDX(a3),d1
+	move.w	T_WiEncDY(a3),d2
+	bsr	Loca
+
+; Coin superieur gauche
+	bsr	CLeft
+	bsr	CUp
+	move.b	(a2)+,d1
+	bsr	COut
+; Montant haut
+	move.b	(a2)+,d1
+	move.w	d3,d5
+	bmi.s	Enc4
+Enc3:	bsr	COut
+	dbra	d5,Enc3
+; Coin superieur droit
+Enc4:	move.b	(a2)+,d1
+	bsr	COut
+	bsr	CLeft
+	bsr	CDown
+; Montant droit
+	move.w	d4,d5
+	bmi.s	Enc6
+Enc5:	move.b	(a2),d1
+	bsr	Cout
+	bsr	CLeft
+	bsr	CDown
+	dbra	d5,Enc5
+Enc6:	addq.l	#1,a2
+; Coin inferieur droit
+	move.b	(a2)+,d1
+	bsr	COut
+	bsr	CLeft
+	bsr	CLeft
+; Montant inferieur
+	move.w	d3,d5
+	bmi.s	Enc8
+Enc7:	move.b	(a2),d1
+	bsr	Cout
+	bsr	CLeft
+	bsr	CLeft
+	dbra	d5,Enc7
+Enc8:	addq.l	#1,a2
+; Coin inferieur gauche
+	move.b	(a2)+,d1
+	bsr	COut
+	bsr	CLeft
+	bsr	CUp
+; Montant gauche
+	move.w	d4,d5
+	bmi.s	Enc10
+Enc9:	move.b	(a2),d1
+	bsr	Cout
+	bsr	CLeft
+	bsr	CUp
+	dbra	d5,Enc9
+Enc10:
+
+; Restore X et Y / Jeu de caracteres
+EncFin:	clr.w	WiGraph(a5)
+	move.w	(sp)+,WiY(a5)
+	move.w	(sp)+,WiX(a5)
+	bsr	AdCurs
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	HOME
+***********************************************************
+Home:	move.w	WiTx(a5),WiX(a5)
+	clr.w	WiY(a5)
+	bsr	AdCurs
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	XY WINDOW courant
+***********************************************************
+WiXYWi:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+	moveq	#0,d1
+	moveq	#0,d2
+	move.w	WiSys(a0),d0
+	move.w	WiTx(a0),d1
+	move.w	WiTy(a0),d2
+	rts
+
+***********************************************************
+*	XYCURS
+***********************************************************
+WiXYCu:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+	moveq	#0,d1
+	moveq	#0,d2
+	move.w	WiTx(a0),d1
+	sub.w	WiX(a0),d1
+	move.w	WiY(a0),d2
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	XYGRAPHIC
+***********************************************************
+WiXGr:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+	cmp.w	WiTx(a0),d1
+	bcc.s	WiXYo
+	add.w	WiDxI(a0),d1
+	lsl.w	#3,d1
+	ext.l	d1
+	moveq	#0,d0
+	rts
+WiYGr:	move.l	T_EcCourant(a5),a0
+	move.l	EcWindow(a0),a0
+	cmp.w	WiTy(a0),d1
+	bcc.s	WiXYo
+	lsl.w	#3,d1
+	add.w	WiDyI(a0),d1
+	ext.l	d1
+	moveq	#0,d0
+	rts
+WiXYo:	moveq	#-1,d1
+	rts
+
+***********************************************************
+*	Locate X= D1
+***********************************************************
+LocaX:	move.w	WiY(a5),d2
+	bra.s	Loca
+
+***********************************************************
+*	Locate Y= D1
+***********************************************************
+LocaY:	move.w	d1,d2
+	move.w	WiTx(a5),d1
+	sub.w	WiX(a5),d1
+	bra.s	Loca
+
+***********************************************************
+*	Locate D1/D2
+***********************************************************
+WLocate:movem.l	a4-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	tst.w	EcAuto(a4)
+	bne.s	WLo3
+	bsr	RLoca
+WLoX	movem.l	(sp)+,a4-a6
+	tst.l	d0
+	rts
+* Autoback
+WLo3	lea	RLoca(pc),a0
+	bsr	AutoPrt
+	bra.s	WLoX
+* Routine locate
+RLoca:	bsr	EffCur
+	cmp.l	#EntNul,d1
+	bne.s	WLo1
+	move.w	WiTx(a5),d1
+	sub.w	WiX(a5),d1
+WLo1:	cmp.l	#EntNul,d2
+	bne.s	WLo2
+	move.w	WiY(a5),d2
+WLo2:	bsr	Loca
+	bra	AffCur
+
+Loca:	cmp.w	WiTy(a5),d2
+	bcc	PErr7
+	move.w	WiTx(a5),d0
+	sub.w	d1,d0
+	bls	PErr7
+	move.w	d0,WiX(a5)
+	move.w	d2,WiY(a5)
+	move.l	d2,-(sp)
+	move.w	d2,WiY(a5)
+	mulu	WiTLigne(a5),d2
+	move.w	d1,d0
+	ext.l	d0
+	add.l	d0,d2
+	add.l	WiAdhg(a5),d2
+	move.l	d2,WiAdCur(a5)
+	move.l	(sp)+,d2
+	moveq	#0,d0
+	rts
+
+***********************************************************
+*	CHR OUT
+***********************************************************
+WOutC:	movem.l	a4-a6,-(sp)
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	lea	Circuits,a6
+	bsr	EffCur
+	bsr	COut
+	bsr	AffCur
+	movem.l	(sp)+,a4-a6
+	tst.l	d0
+	rts
+
+***********************************************************
+*	IMPRESSION LIGNE Scrollee � gauche
+*	A1=	Ligne, finie par zero
+*	D1= 	Nombre de caracteres � sauter sur la gauche
+*		Bit 31= code controle?
+*	D2=	Position minimum � gauche
+*	D3=	Position maximum � droite
+***********************************************************
+WPrint3	movem.l	a4-a6/d2-d7,-(sp)
+	lea	Circuits,a6
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	bsr	EffCur
+	move.w	WiTx(a5),d5
+	sub.w	WiX(a5),d5
+	move.w	d3,d4
+	move.w	d2,d3
+	move.l	d1,d2
+; Impression
+.Loop	move.b	(a1)+,d1
+	beq.s	.Ok
+	cmp.b	#32,d1
+	bcs.s	.Cont
+; Un code normal, l'imprimer?
+	subq.w	#1,d2
+	bge.s	.Skip
+	cmp.w	d3,d5
+	blt.s	.Skip0
+	cmp.w	d4,d5
+	bge.s	.Ok
+	bsr	COut
+	bne	.Err
+.Skip0	addq.w	#1,d5
+.Skip	bra.s	.Loop
+; Codes de controle autorises?
+.Cont	cmp.b	#9,d1			TAB?
+	beq.s	.Cont1
+	tst.l	d2
+	bpl.s	.PaCont
+	cmp.b	#27,d1
+	bne.s	.Cont1
+	bsr	COut
+	move.b	(a1)+,d1
+	bsr	COut
+	move.b	(a1)+,d1
+.Cont1	bsr	COut
+	bra.s	.Loop
+.PaCont	cmp.b	#27,d1
+	bne.s	.Loop
+	addq.l	#2,a1
+	bra.s	.Loop
+; Fini!
+.Ok	moveq	#0,d0
+	move.w	d5,d1
+.Err	bsr	AffCur
+	movem.l	(sp)+,a4-a6/d2-d7
+	tst.w	d0
+	rts
+
+
+***********************************************************
+*	PRINT LINE,
+*	A1= adresse chaine D1= nombre caracteres
+***********************************************************
+WPrint2	movem.l	a4-a6,-(sp)
+	lea	Circuits,a6
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	tst.w	EcAuto(a4)
+	bne.s	.WPrt
+* Pas autoback!
+	movem.l	a1/d1/d2,-(sp)
+	bsr.s	.RPrt
+	movem.l	(sp)+,a1/d1/d2
+	movem.l	(sp)+,a4-a6
+	tst.l	d0
+	rts
+* AutoBack!
+.WPrt	lea	.RPrt(pc),a0
+	bsr	AutoPrt
+	movem.l	(sp)+,a4-a6
+	tst.l	d0
+	rts
+******* Routine print nb caracteres
+.RPrt	bsr	EffCur
+	move.w	d1,d2
+	subq.w	#1,d2
+	bmi.s	.Out
+.Prt	move.b	(a1)+,d1
+	bsr	COut
+	tst.w	d0
+	bne.s	.Out
+	dbra	d2,.Prt
+.Out	bra	AffCur
+
+***********************************************************
+*	PRINT LINE, finie par ZERO
+*	A1= adresse chaine
+***********************************************************
+WPrint:	movem.l	a4-a6,-(sp)
+	lea	Circuits,a6
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	tst.w	EcAuto(a4)
+	bne.s	WPrt
+* Pas autoback!
+	movem.l	a1/d1,-(sp)
+	bsr	RPrt
+	movem.l	(sp)+,a1/d1
+	movem.l	(sp)+,a4-a6
+	tst.l	d0
+	rts
+* AutoBack!
+WPrt	lea	RPrt(pc),a0
+	bsr	AutoPrt
+	movem.l	(sp)+,a4-a6
+	tst.l	d0
+	rts
+******* Routine print normale
+RPrt:	bsr	EffCur
+Prt:	move.b	(a1)+,d1
+	beq	AffCur
+	bsr	COut
+	tst.w	d0
+	beq.s	Prt
+	bra	AffCur
+*******	Routine print avec autoback
+*	A0= routine a appeler
+AutoPrt	movem.l	a0-a2/d1-d7,-(sp)
+	btst	#BitDble,EcFlags(a4)
+	beq.s	WPrt5
+* Double buffer!
+	lea	WiAuto(pc),a1
+	lea	EcCurS(a5),a0
+	moveq	#(8*6)/4-1,d0
+WPrt1	move.l	(a0)+,(a1)+
+	dbra	d0,WPrt1
+	move.l	a5,a0
+	moveq	#WiSAuto/4-1,d0
+WPrt2	move.l	(a0)+,(a1)+
+	dbra	d0,WPrt2
+	bsr	TAbk1
+	movem.l	(sp),a0-a2/d1-d7
+	jsr	(a0)
+	lea	WiAuto(pc),a0
+	lea	EcCurS(a5),a1
+	moveq	#(8*6)/4-1,d0
+WPrt3	move.l	(a0)+,(a1)+
+	dbra	d0,WPrt3
+	move.l	a5,a1
+	moveq	#WiSAuto/4-1,d0
+WPrt4	move.l	(a0)+,(a1)+
+	dbra	d0,WPrt4
+	bsr	TAbk2
+	movem.l	(sp),a0-a2/d1-d7
+	jsr	(a0)
+	move.l	d0,-(sp)
+	bsr	TAbk3
+	move.l	(sp)+,d0
+	movem.l	(sp)+,a0-a2/d1-d7
+	rts
+* Single buffer
+WPrt5	bsr	TAbk1
+	movem.l	(sp),a0-a2/d1-d7
+	jsr	(a0)
+	move.l	d0,-(sp)
+	bsr	TAbk4
+	move.l	(sp)+,d0
+	movem.l	(sp)+,a0-a2/d1-d7
+	rts
+
+***********************************************************
+*	CENTRE chaine, finie par ZERO
+*	A1= adresse chaine
+***********************************************************
+WCentre:movem.l	a4-a6,-(sp)
+	lea	Circuits,a6
+	move.l	T_EcCourant(a5),a4
+	move.l	EcWindow(a4),a5
+	move.l	a1,a0
+	bsr	Compte
+	move.w	WiTx(a5),d1
+	sub.w	d0,d1
+	lsr.w	#1,d1
+	tst.w	EcAuto(a4)
+	bne.s	ABCen
+* Pas autob
+	bsr	EffCur
+	bsr	LocaX
+	bsr	Prt
+	movem.l	(sp)+,a4-a6
+	tst.w	d0
+	rts
+* Autob
+ABCen	lea	CPrt(pc),a0
+	bsr	AutoPrt
+	movem.l	(sp)+,a4-a6
+	tst.w	d0
+	rts
+CPrt:	bsr	EffCur
+	bsr	LocaX
+	bra	Prt
+
+*******	Calcul de l'adresse curseur
+AdCurs:	move.w	WiY(a5),d0
+	mulu	WiTLigne(a5),d0
+	move.w	WiTx(a5),d1
+	sub.w	WiX(a5),d1
+	ext.l	d1
+	add.l	d1,d0
+	add.l	WiAdhg(a5),d0
+	move.l	d0,WiAdCur(a5)
+	rts
+
+*******	Mode INTERIEUR
+WiInt:	move.w	WiTxI(a5),WiTx(a5)
+	move.w	WiTyI(a5),WiTy(a5)
+	move.l	WiAdhgI(a5),WiAdhg(a5)
+	rts
+
+******* Mode EXTERIEUR
+WiExt:	move.w	WiTxR(a5),WiTx(a5)
+	move.w	WiTyR(a5),WiTy(a5)
+	move.l	WiAdhgR(a5),WiAdhg(a5)
+	rts
+
+******* Compte la chaine de caracteres A0
+*	D0 compte les caracteres IMPRIMES
+*	A0 pointe la fin
+Compte:	clr.w	d0
+Copt1:	tst.b	(a0)
+	beq.s	Copt2
+	addq.w	#1,d0
+	cmp.b	#27,(a0)+
+	bne.s	Copt1
+	subq.w	#1,d0
+	addq.l	#2,a0
+	bra.s	Copt1
+Copt2:	addq.l	#1,a0
+	rts
+
+******* Blitter termine?
+BltFini:bra	BlitWait
+
+***********************************************************
+*		AFFICHAGE D'UN CARACTERE
+*		  DANS L'ECRAN LOGIQUE
+*	- D1= caractere
+*	- A6= chips
+*	- A5= window
+***********************************************************
+COut:	movem.l	d1-d7/a0-a3,-(sp)
+	and.w	#255,d1
+
+******* Mode escape?
+	tst.w	WiEsc(a5)
+	bne	Esc
+
+*******	Code de controle?
+	cmp.w	#32,d1
+	bcs	Cont
+PaCont
+*******	Affiche!
+	lsl.w	#3,d1			;Pointe le caractere
+	move.l	WiFont(a5),a2
+	add.w	d1,a2
+
+	move.w	WiNPlan(a5),d2		;Nombre de plans
+	lea	EcCurrent(a4),a1
+	move.l	WiAdCur(a5),d3		;Adresse du caractere
+	move.w	EcTLigne(a4),d4
+	ext.l	d4			;Taille d'une ligne
+
+	move.w	WiFlags(a5),d7		;Flags d'ecriture
+	bne	YaFlag
+
+*-----* Pas de flag: rapide
+	moveq	#-1,d6			;Pour CUn
+	lea	WiColor(a5),a0		;Definition couleur
+COut1:	move.l	(a0)+,a3
+	jmp	(a3)
+
+; Met a zero le plan
+CZero:	move.l	(a1)+,a3
+	add.l	d3,a3
+	REPT	7			;Plan vide
+	clr.b	(a3)
+	add.l	d4,a3
+	ENDR
+	clr.b	(a3)
+	dbra	d2,COut1
+	bra	COutFin
+CNul:	addq.l	#4,a1
+	dbra	d2,COut1
+	bra	COutFin
+; Poke le caractere NORMAL
+CNorm:	move.l	(a1)+,a3
+	add.l	d3,a3
+	REPT	7			;Poke l'octet
+	move.b	(a2)+,(a3)
+	add.l	d4,a3
+	ENDR
+	move.b	(a2),(a3)
+	subq.l	#7,a2
+	dbra	d2,COut1
+	bra	COutFin
+; Poke le caractere INVERSE
+CInv:	move.l	(a1)+,a3
+	add.l	d3,a3
+	REPT 	7
+	move.b	(a2)+,d0
+	not.b	d0
+	move.b	d0,(a3)
+	add.l	d4,a3
+	ENDR
+	move.b	(a2),d0
+	not.b	d0
+	move.b	d0,(a3)
+	subq.l	#7,a2
+	dbra	d2,COut1
+	bra	COutFin
+; Poke du blanc
+CUn:	move.l	(a1)+,a3
+	add.l	d3,a3
+	REPT	7
+	move.b	d6,(a3)
+	add.l	d4,a3
+	ENDR
+	move.b	d6,(a3)
+	dbra	d2,COut1
+
+;****** Un cran a droite
+COutFin:addq.l	#1,WiAdCur(a5)
+	subq.w	#1,WiX(a5)
+	bne.s	COutS3
+; A la ligne
+	move.w	WiTx(a5),WiX(a5)
+	move.w	WiY(a5),d0
+	addq.w	#1,d0
+	cmp.w	WiTy(a5),d0
+	bcs.s	COutS2
+	btst	#0,WiSys(a5)		;Scroll ON?
+	beq.s	COutS1
+; Scrolle!
+	bsr	AdCurs
+	bsr	ScHaut
+	bra.s	COutS3
+; Pas scrolle
+COutS1:	clr.w	d0
+COutS2:	move.w	d0,WiY(a5)
+	bsr	AdCurs
+COutS3:	moveq	#0,d0
+
+******* Fini
+COutOut:movem.l	(sp)+,d1-d7/a0-a3
+	rts
+
+******* Il y a des flags
+YaFlag:	moveq	#-1,d6
+	btst	#1,d7			;FLAG 1---> SHADE
+	beq.s	YaF2
+	move.w	#%1010101010101010,d6
+YaF2:	lea	WiColFl(a5),a0
+	move.l	a4,-(sp)
+	move.l	d3,a3
+	btst	#2,d7			;FLAG 2---> souligne
+	bne.s	YaS5
+
+; Non souligne
+YaF5:	move.w	(a0)+,d5
+	move.w	(a0)+,d7
+	moveq	#7,d3
+	move.l	(a1)+,a4
+	add.l	a3,a4
+	btst	d2,WiSys+1(a5)
+	bne.s	YaF6a
+YaF6:	move.b	(a2)+,d0
+	and.b	d6,d0
+	ror.w	#1,d6
+	move.b	d0,d1
+	not.b	d0
+	and.b	d5,d0
+	and.b	d7,d1
+WGet1:	or.b	d1,d0
+WMod1:	eor.b	d0,(a4)
+	add.l	d4,a4
+	dbra	d3,YaF6
+	lea	-8(a2),a2
+YaF6a:	dbra	d2,YaF5
+	move.l	(sp)+,a4
+	bra	COutFin
+
+; Souligne
+YaS5:	move.w	(a0)+,d5
+	move.w	(a0)+,d7
+	moveq	#6,d3
+	move.l	(a1)+,a4
+	add.l	a3,a4
+	btst	d2,WiSys+1(a5)
+	bne.s	YaS6a
+YaS6:	move.b	(a2)+,d0
+	and.b	d6,d0
+	ror.w	#1,d6
+	move.b	d0,d1
+	not.b	d0
+	and.b	d5,d0
+	and.b	d7,d1
+WGet2:	or.b	d1,d0
+WMod2:	eor.b	d0,(a4)
+	add.l	d4,a4
+	dbra	d3,YaS6
+; Souligne!
+	move.b	d7,d0
+	and.b	d6,d0
+	ror.w	#1,d6
+WMod3:	eor.b	d0,(a4)
+	lea	-7(a2),a2
+YaS6a:	dbra	d2,YaS5
+	move.l	(sp)+,a4
+	bra	COutFin
+
+******* Codes de CONTROLE
+Cont:	tst.w	WiGraph(a5)
+	bne	PaCont
+	lsl.w	#2,d1
+	lea	CCont(pc),a0
+	jsr	0(a0,d1.w)
+	bra	COutOut
+
+******* ESCAPE en marche
+
+;-----> Mise en marche ESC
+EscM:	move.w	#2,WiEsc(a5)
+	moveq	#0,d0
+Rien:	rts
+
+;-----> ESC
+Esc:	subq.w	#1,WiEsc(a5)
+	beq.s	Esc1
+	move.w	d1,WiEscPar(a5)
+	bra	COutOut
+Esc1:	move.w	WiEscPar(a5),d0
+	cmp.w	#"Z",d0
+	bhi.s	Esc2
+	sub.w	#"A",d0
+	bcs.s	Esc2
+	lsl.w	#2,d0
+	lea	CEsc(pc),a0
+	sub.w	#"0",d1
+	jsr	0(a0,d0.w)
+Esc2:	movem.l	(sp)+,d1-d7/a0-a3
+	tst.l	d0
+	rts
+
+***********************************************************
+*	MESSAGES D'ERREUR
+***********************************************************
+PErr7:	moveq	#16,d0
+	rts
+WErr1:	moveq	#10,d0
+	bra.s	WErr
+WErr2:	moveq	#11,d0
+	bra.s	WErr
+WErr3:	moveq	#12,d0
+	bra.s	WErr
+WErr4:	moveq	#13,d0
+	bra.s	WErr
+WErr5:	moveq	#14,d0
+	bra.s	WErr
+WErr6:	moveq	#15,d0
+	bra.s	WErr
+WErr7:	moveq	#16,d0
+	bra.s	WErr
+WErr8:	moveq	#1,d0
+	bra.s	WErr
+WErr10:	moveq	#19,d0
+
+* Erreurs generales
+WErr:	move.l	d0,-(sp)
+	cmp.l	EcWindow(a4),a5
+	beq.s	WErF
+	cmp.l	#0,a5
+	beq.s	WErF
+	move.l	a5,a1
+	move.l	#WiLong,d0
+	bsr	FreeMm
+WErF:	move.l	(sp)+,d0
+	movem.l	(sp)+,d1-d7/a1-a6
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	AMOS REQUESTER ROUTINES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Req_WY		equ	100
+T_Tit		equ	0
+T_Text		equ	T_Tit+80
+T_Gad		equ	T_Text+320
+T_Size		equ	T_Gad+128
+
+;	Set request ON / OFF
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+WRequest_OnOff
+	move.w	d0,T_ReqFlag(a5)
+	rts
+
+; - - - - - - - - - - - - -
+AutoReq
+; - - - - - - - - - - - - -
+	movem.l	a0-a6/d0-d7,-(sp)
+	bsr	Req_In
+	bpl.s	.Skip
+	bsr	Req_Auto
+	bra	Req_AMOS
+.Skip	move.l	T_PrevAuto(a5),T_ScAdr(a5)
+	bra.s	Req_WB
+
+
+; - - - - - - - - - - - - -
+EasyReq
+; - - - - - - - - - - - - -
+	movem.l	a0-a6/d0-d7,-(sp)
+	bsr	Req_In
+	bpl.s	.Skip
+	bsr	Req_Easy
+	bra	Req_AMOS
+.Skip	move.l	T_PrevEasy(a5),T_ScAdr(a5)
+	bra.s	Req_WB
+
+;	Dispatch requester between AMOS/WB
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Req_In	move.l	W_Base(pc),a5
+	tst.b	T_AMOSHere+1(a5)	If AMOS / WB flipping running?
+	bne.s	Req_ANo			...no requester at all!
+	tst.w	T_ReqFlag(a5)		Ou aller?
+	beq.s	Req_ANo
+	bmi.s	.AMOS
+; System requester?
+; ~~~~~~~~~~~~~~~~~
+	tst.b	WB_Closed(a5)		WB closed!
+	bne.s	.AMOS
+.WB	moveq	#1,d0
+	rts
+; AMOS requester
+; ~~~~~~~~~~~~~~
+.AMOS	tst.b	T_AMOSHere(a5)		AMOS here?
+	beq.s	.WB
+	tst.w	T_Req_On(a5)		Requester already running?
+	bne.s	Req_ANo			Always no...
+	moveq	#-1,d0
+	rts
+
+;	Always no!
+; ~~~~~~~~~~~~~~~~
+Req_ANo	addq.l	#4,sp
+	movem.l	(sp)+,a0-a6/d0-d7
+	moveq	#0,d0
+	rts
+
+;	WB requester
+; ~~~~~~~~~~~~~~~~~~
+Req_WB	move.b	T_AMOSHere(a5),d0	Is AMOS here?
+	ext.w	d0
+	move.w	d0,T_ReqOld(a5)
+	beq.s	.skip1
+	EcCalD	AMOS_WB,0		AMOS To BACK
+.skip1	pea	.ret(pc)
+	move.l	T_ScAdr(a5),-(sp)
+	movem.l	8(sp),a0-a6/d0-d7
+	rts
+.ret	move.l	W_Base(pc),a5
+	move.l	d0,T_Req_Pos(a5)
+	move.l	d0,(sp)			en D0
+	move.w	T_ReqOld(a5),d1
+	beq.s	.skip2
+	EcCalD	AMOS_WB,1		AMOS To FRONT
+.skip2	movem.l	(sp)+,a0-a6/d0-d7	Recupere Req_Pos
+	rts
+
+;	AMOS Normal requester
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Req_AMOS
+	move.w	#-1,T_Req_On(a5)	Requester ON !
+
+	SyCall	AMALFrz
+	bsr	UnMix1
+
+	move.w	T_Req_Sx(a5),d2
+	lsl.w	#3,d2
+	ext.l	d2
+	move.w	T_Req_Sy(a5),d3
+	lsl.w	#3,d3
+	ext.l	d3
+	moveq	#3,d4
+	move.l	#$8000,d5
+	moveq	#8,d6
+	moveq	#0,d7
+	lea	Req_Pal(pc),a1
+	EcCalD	Cree,EcReq
+	bne	NoReq
+	move.l	a0,T_ScAdr(a5)
+	WiCalA	Print,Req_Init(pc)
+
+; Top
+; ~~~
+	moveq	#0,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	moveq	#4,d4
+	moveq	#3*8,d5
+	bsr	Copy
+	moveq	#4,d0
+	moveq	#1,d4
+	move.w	T_Req_Sx(a5),d6
+.lp1	bsr	Copy
+	subq.w	#1,d6
+	cmp.w	#9,d6
+	bcc.s	.lp1
+	moveq	#10,d0
+	moveq	#4,d4
+	bsr	Copy
+; Middle
+; ~~~~~~
+	moveq	#3*8,d3
+	move.w	T_Req_Sy(a5),d7
+	sub.w	#6,d7
+.lp2	moveq	#0,d0
+	moveq	#3*8,d1
+	moveq	#0,d2
+	moveq	#2,d4
+	moveq	#12,d5
+	bsr	Copy
+	moveq	#6,d0
+	moveq	#1,d4
+	move.w	T_Req_Sx(a5),d6
+.lp3	bsr	Copy
+	subq.w	#1,d6
+	cmp.w	#5,d6
+	bcc.s	.lp3
+	moveq	#12,d0
+	moveq	#2,d4
+	bsr	Copy
+	addq.w	#8,d3
+	subq.w	#1,d7
+	bne.s	.lp2
+; Bottom
+; ~~~~~~
+	moveq	#0,d0
+	moveq	#4*8+4,d1
+	moveq	#0,d2
+	add.w	#4,d3
+	moveq	#1,d4
+	moveq	#2*8+4,d5
+	bsr	Copy
+	moveq	#6,d0
+	moveq	#1,d4
+	move.w	T_Req_Sx(a5),d6
+.lp4	bsr	Copy
+	subq.w	#1,d6
+	cmp.w	#3,d6
+	bcc.s	.lp4
+	moveq	#13,d0
+	moveq	#1,d4
+	bsr	Copy
+; Bottom Left
+; ~~~~~~~~~~~
+	move.l	T_Req_Pos(a5),a0
+.lp5	tst.b	(a0)+
+	bne.s	.lp5
+	sub.l	T_Req_Pos(a5),a0
+	move.w	a0,d6
+	moveq	#1,d0
+	moveq	#4*8+4,d1
+	moveq	#1,d2
+	moveq	#2,d4
+	moveq	#2*8,d5
+	bsr	Copy
+	moveq	#3,d0
+	moveq	#1,d4
+	subq.w	#3+1,d6
+	bmi.s	.sk2
+.lp6	bsr	Copy
+	dbra	d6,.lp6
+.sk2	moveq	#4,d0
+	moveq	#2,d4
+	bsr	Copy
+; Bottom right
+; ~~~~~~~~~~~~
+	move.l	T_Req_Neg(a5),d0
+	move.l	d0,a0
+	beq.s	.sk1
+.lp7	tst.b	(a0)+
+	bne.s	.lp7
+	sub.l	T_Req_Neg(a5),a0
+	move.w	a0,d6
+	move.w	T_Req_Sx(a5),d0
+	sub.w	a0,d0
+	add.b	#48-1,d0
+	move.l	a1,-(sp)
+	lea	XTNeg(pc),a1
+	move.b	d0,(a1)
+	move.l	(sp)+,a1
+	moveq	#8,d0
+	moveq	#4*8+4,d1
+	move.w	T_Req_Sx(a5),d2
+	sub.w	d6,d2
+	subq.w	#2,d2
+	moveq	#2,d4
+	moveq	#2*8,d5
+	bsr	Copy
+	moveq	#10,d0
+	moveq	#1,d4
+	subq.w	#3+1,d6
+	bmi.s	.sk3
+.lp8	bsr	Copy
+	dbra	d6,.lp8
+.sk3	moveq	#11,d0
+	moveq	#2,d4
+	bsr	Copy
+.sk1
+; End of init
+; ~~~~~~~~~~~
+	SyCalD	ResZone,2
+	move.w	T_Req_Sy(a5),d0
+	lsl.w	#3,d0
+	move.w	d0,T_Req_Sy(a5)
+
+; Initialise background text
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	WiCalA	Centre,T_Tit(a4)
+; Print main text
+; ~~~~~~~~~~~~~~~
+	WiCalA	Print,Req_Main(pc)
+	lea	T_Text(a4),a1
+.lop	move.l	a1,-(sp)
+	WiCall	Centre
+	move.l	(sp)+,a1
+.lop1	tst.b	(a1)+
+	bne.s	.lop1
+	tst.b	(a1)
+	bne.s	.lop
+; Positive text (left)
+; ~~~~~~~~~~~~~~~~~~~~
+	moveq	#1,d0
+	moveq	#"0",d1
+	bsr	PrtZone
+; Negative text (right)
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_Req_Neg(a5),d0
+	beq.s	.NoNeg
+	move.l	d0,a0
+	moveq	#2,d0
+	moveq	#"0",d1
+	bsr	PrtZone
+; Screen appearance
+; ~~~~~~~~~~~~~~~~~
+.NoNeg	move.l	T_ScAdr(a5),a2
+	move.w	#288,d0
+	move.w	T_Req_Sx(a5),d1
+	lsl.w	#1,d1
+	sub.w	d1,d0
+	move.w	d0,EcAWX(a2)
+	bset	#1,EcAW(a2)
+	moveq	#8,d7
+	moveq	#1,d6
+	move.w	T_Req_Sy(a5),d5
+	lsr.w	#1,d5
+	add.w	#Req_WY,d5
+	bsr	AppCentre
+; State of disc drive
+; ~~~~~~~~~~~~~~~~~~~
+	SyCall	GetDisc
+	move.w	d0,T_DOld(a5)
+
+;	Test loop (fun!)
+; ~~~~~~~~~~~~~~~~~~~~~~
+ReqLoop
+	bsr	UnMix2
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)		WaitTOF
+	move.l	(sp)+,a6
+	bsr	UnMix1
+
+; Automatic disc change
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	T_Req_IDCMP(a5),d0
+	btst	#15,d0
+	beq.s	NoAuto
+	SyCall	GetDisc
+	cmp.w	T_DOld(a5),d0
+	beq.s	NoAuto
+	move.w	d0,T_DOld(a5)
+	bne	ReqYes
+; Keyboard
+; ~~~~~~~~
+NoAuto	SyCall	Inkey
+	cmp.w	#13,d1		* ASCII-> Return
+	beq.s	ReqYes
+	cmp.w	#27,d1		* ASCII-> ESC
+	beq.s	ReqNo
+; Don't you think it is better than this wierd Amiga V and B?
+; Sometime I ask myself what they were thinking when they chose such
+; key combinations!
+	swap	d1
+	move.w	d1,d0		* Isolate AMIGA keys
+	and.w	#%1100000000000000,d0
+	beq.s	RqL0
+	cmp.b	#$34,d1		* V
+	beq.s	ReqYes
+	cmp.b	#$35,d1		* B
+	beq.s	ReqNo
+; Mouse pointer
+; ~~~~~~~~~~~~~
+RqL0	SyCall	GetZone
+	cmp.w	#EcReq,d1
+	beq.s	RqL1
+	moveq	#0,d1
+RqL1:	swap 	d1
+	cmp.w	d7,d1
+	beq.s	RqL2
+	move.w	d7,d0
+	move.w	d1,d7
+	moveq	#"0",d1
+	bsr	PrtZone
+RqL2:	move.w	d7,d0
+	moveq	#"1",d1
+	bsr	PrtZone
+	tst.w	d7
+	beq	ReqLoop
+	SyCall	MouseKey
+	tst.w	d1
+	beq	ReqLoop
+	cmp.w	#2,d7
+	beq.s	ReqNo
+ReqYes	moveq	#-1,d0
+	bra.s	ReqGo
+ReqNo	moveq	#0,d0
+
+;	End of screen (well done!!!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ReqGo	move.l	d0,-(sp)
+	move.l	T_ScAdr(a5),a2
+	moveq	#-8,d7
+	move.w	EcTy(a2),d6
+	lsr.w	#1,d6
+	move.w	T_Req_Sy(a5),d5
+	lsr.w	#1,d5
+	add.w	#Req_WY,d5
+	bsr	AppCentre
+	EcCalD	Del,EcReq
+
+;	Back to system!
+; ~~~~~~~~~~~~~~~~~~~~~
+ReqX	bsr	UnMix2
+	bsr	ClrData
+	SyCall	AMALUFrz
+	move.l	(sp)+,T_Req_Pos(a5)	* Returns answer
+	clr.w	T_Req_On(a5)		* No more requester
+; Normal exit
+; ~~~~~~~~~~~
+ReqXX	move.l	T_Req_Pos(a5),(sp)	ReqPos>>> D0
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+;	Can't open screen!!!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+NoReq	clr.l	-(sp)
+	bra.s	ReqX
+
+;	Print a zone D0-> zone, D1-> inverse or not
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PrtZone	subq.w	#1,d0
+	bmi.s	PrtX
+	bne.s	PrtNeg
+; Print pos text
+; ~~~~~~~~~~~~~~
+PrtPos	tst.l	T_Req_Pos(a5)
+	beq.s	.skip
+	lea	TPos1(pc),a1
+	move.b	d1,8(a1)
+	WiCall	Print
+	move.l	T_Req_Pos(a5),a1
+	WiCall	Print
+	WiCalA	Print,TPos2(pc)
+.skip	bra.s	PrtX
+; Print neg text
+; ~~~~~~~~~~~~~~
+PrtNeg	tst.l	T_Req_Neg(a5)
+	beq.s	.skip
+	lea	TNeg1(pc),a1
+	move.b	d1,8(a1)
+	WiCall	Print
+	move.l	T_Req_Neg(a5),a1
+	WiCall	Print
+	WiCalA	Print,TNeg2(pc)
+.skip
+PrtX	rts
+
+;	Screen appearance
+; ~~~~~~~~~~~~~~~~~~~~~~~
+AppCentre:
+	move.w	d6,d4
+	move.w	d6,EcAWTY(a2)
+	add.w	d6,EcAWTY(a2)
+	bset	#2,EcAWT(a2)
+	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	sub.w	d6,d0
+	move.w	d0,EcAVY(a2)
+	bset	#2,EcAV(a2)
+	move.w	d5,EcAWY(a2)
+	sub.w	d6,EcAWY(a2)
+	bset	#2,EcAW(a2)
+	movem.l	a2/d4-d7,-(sp)
+	SyCall	WaitVbl
+	EcCall	CopForce
+	movem.l	(sp)+,a2/d4-d7
+	add.w	d7,d6
+	bpl.s	FsApp2
+	clr.w	d6
+FsApp2:	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	cmp.w	d0,d6
+	bcs.s	FsApp3
+	move.w	d0,d6
+FsApp3:	cmp.w	d4,d6
+	bne.s	AppCentre
+	rts
+
+;	Prevent mixes between AMOS and the requester!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+UnMix1	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	$4.w,a6
+	jsr	Forbid(a6)
+	EcCall	Current
+	move.w	EcNumber(a0),d1
+	move.w	d1,T_ReqOldScreen(a5)
+	EcCalD	Active,EcReq
+	EcCalD	First,EcReq
+	EcCall	CopMake
+	SyCall	WaitVbl
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+UnMix2	movem.l	d0-d7/a0-a6,-(sp)
+	move.w	T_ReqOldScreen(a5),d1
+	EcCall	Active
+	move.l	$4.w,a6
+	jsr	Permit(a6)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+;	Open TEXT data zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+ResData	move.l	#T_Size,d0
+	SyCall	SyFast
+	move.l	d0,a4
+	rts
+;	Clear TEXT data zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClrData	move.l	#T_Size,d0
+	move.l	a4,a1
+	SyCall	SyFree
+	rts
+
+;	WB1.3 requester entry
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Req_Auto
+
+	bsr	ResData
+
+	move.l	#$00008000,T_Req_IDCMP(a5)
+
+	lsr.w	#3,d2
+	addq.w	#3,d2
+	and.w	#$FFFC,d2
+	move.w	d2,T_Req_Sx(a5)
+	lsr.w	#3,d3
+	addq.w	#2,d3
+	move.w	d3,T_Req_Sy(a5)
+
+	move.l	a1,a0
+	lea	T_Text(a4),a1
+	moveq	#10,d0
+	bsr	IT_Print
+
+	clr.l	T_Req_Pos(a5)
+	lea	T_Gad(a4),a1
+	move.l	a2,d0
+	move.l	d0,a0
+	beq.s	.skip1
+	move.l	a1,T_Req_Pos(a5)
+	moveq	#0,d0
+	bsr	IT_Print
+.skip1
+	clr.l	T_Req_Neg(a5)
+	lea	T_Gad+64(a4),a1
+	move.l	a3,d0
+	move.l	d0,a0
+	beq.s	.skip2
+	move.l	a1,T_Req_Neg(a5)
+	moveq	#0,d0
+	bsr	IT_Print
+.skip2
+	lea	Req_Tit(pc),a0
+	lea	T_Tit(a4),a1
+.loop	move.b	(a0)+,(a1)+
+	bne.s	.loop
+	rts
+
+;	WB2.0 Requester entry
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Req_Easy
+	bsr	ResData
+	move.l	(a2),T_Req_IDCMP(a5)
+
+	lea	8(a1),a2
+	clr.w	T_TxtMaxCx(a5)
+
+	lea	T_Tit(a4),a1
+	move.l	(a2)+,d0
+	move.l	d0,a0
+	bne.s	.nof
+	lea	Req_Tit(pc),a0
+.nof	bsr	Format
+
+	move.l	(a2)+,a0
+	lea	T_Text(a4),a1
+	bsr	Format
+	move.w	T_TxtCy(a5),T_Req_Sy(a5)
+
+	move.l	(a2)+,a0
+	lea	T_Gad(a4),a1
+	bsr	Format
+
+	lea	T_Gad(a4),a0
+	move.l	a0,T_Req_Pos(a5)
+	clr.l	T_Req_Neg(a5)
+.loop	move.b	(a0)+,d0
+	beq.s	.skp
+	cmp.b	#"|",d0
+	bne.s	.loop
+	clr.b	-1(a0)
+	move.l	a0,T_Req_Neg(a5)
+.skp
+	move.w	T_TxtMaxCx(a5),d0
+	cmp.w	#32,d0
+	bcc.s	.skp2
+	moveq	#32,d0
+.skp2	add.w	#9,d0
+	and.w	#$FFFC,d0
+	move.w	d0,T_Req_Sx(a5)
+
+	addq.w	#8,T_Req_Sy(a5)
+	rts
+
+;	Call RawDoFmt
+; ~~~~~~~~~~~~~~~~~~~
+Format	clr.w	T_TxtCx(a5)
+	move.w	#1,T_TxtCy(a5)
+	movem.l	a2/a3/a6,-(sp)
+	exg	a3,a1
+	lea	.OutC(pc),a2
+	move.l	$4.w,a6
+	jsr	-522(a6)
+	exg	a3,a1
+	movem.l	(sp)+,a2/a3/a6
+.XMax	move.w	T_TxtCx(a5),d0
+	cmp.w	T_TxtMaxCx(a5),d0
+	bls.s	.sk
+	move.w	d0,T_TxtMaxCx(a5)
+.sk	rts
+.OutC	movem.l	d0/a5,-(sp)
+	move.l	W_Base(pc),a5
+	addq.w	#1,T_TxtCx(a5)
+	move.b	d0,(a3)+
+	cmp.b	#10,d0
+	bne.s	.Skip
+	clr.b	(a3)+
+	addq.w	#1,T_TxtCy(a5)
+	bsr.s	.XMax
+	clr.w	T_TxtCx(a5)
+.Skip	movem.l	(sp)+,d0/a5
+	clr.b	(a3)
+	rts
+
+;	Copy an intuitext into the buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0-> ITEXT
+;	A1-> Buffer
+;	D0-> Mettre un 10 a la fin...
+IT_Print
+	movem.l	a0-a2/d0-d1,-(sp)
+.loop	move.l	12(a0),d1
+	move.l	d1,a2
+	beq.s	.skip
+.loop1	move.b	(a2)+,(a1)+
+	bne.s	.loop1
+	tst.w	d0
+	beq.s	.skip
+	move.b	d0,-1(a1)
+	clr.b	(a1)+
+.skip	move.l	16(a0),d1
+	move.l	d1,a0
+	bne.s	.loop
+	movem.l	(sp)+,a0-a2/d0-d1
+	rts
+
+;	Routine: copy the binary data
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Copy	movem.l	d0-d7/a0-a5,-(sp)
+	mulu	#RPic_Sx/8,d1			d1= offset source
+	add.l	d1,d0
+	lea	RPic(pc),a0			a0= adress source
+	move.w	T_Req_Sx(a5),d1
+	ext.l	d1				d1= size of dest line
+	mulu	d1,d3
+	add.l	d2,d3				d3= offset dest
+	move.l	T_ScAdr(a5),a3			a3= dest screen
+	subq.w	#1,d4
+	subq.w	#1,d5
+	move.w	#RPic_Np-1,d2
+.loop1	move.l	(a3)+,a4
+	add.l	d3,a4
+	move.l	a0,a1
+	add.l	d0,a1
+	move.w	d5,d7
+.loop2	move.w	d4,d6
+	move.l	a1,a2
+	move.l	a4,a5
+.loop3	move.b	(a2)+,(a5)+
+	dbra	d6,.loop3
+	add.w	#RPic_Sx/8,a1
+	add.l	d1,a4
+	dbra	d7,.loop2
+	add.w	#(RPic_Sx/8)*RPic_Sy,a0
+	dbra	d2,.loop1
+	movem.l	(sp)+,d0-d7/a0-a5
+	add.w	d4,d2
+	rts
+
+;--------------------------------------------------------------------
+*		DATA ZONE
+
+* 		Title
+Req_Tit		dc.b "System request",0
+Req_Init	dc.b 27,"C0",27,"V0",27,"Y1",27,"B2",27,"P7",0
+*		Main text
+Req_Main	dc.b 27,"B2",27,"P3",27,"Y4",0
+* 		Positive text
+TPos1		dc.b 27,"B4",27,"P3",27,"I0",24,30,30,27,"X2",27,"Z0",0
+TPos2		dc.b 27,"Z1",0
+* 		Negative text
+TNeg1		dc.b 27,"B4",27,"P3",27,"I0",24,30,30,27,"X"
+XTNeg		dc.b "0",27,"Z0",0
+TNeg2		dc.b 27,"Z2",0
+		even
+; 		Insertion de l'image de fond
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+RPic_Sx		equ	112
+RPic_Sy		equ	56
+RPic_Np		equ	3
+Req_Pal		Incbin	"bin/ReqPic.bin"
+RPic		equ	Req_Pal+32*2
+		even
+
+
+***********************************************************
+
+
+
+***********************************************************
+*		Table des codes de CONTROLE
+***********************************************************
+CCont:		bra	Rien		;0
+		bra	Rien		;1
+		bra	Rien		;2
+		bra	Rien		;3
+		bra	Rien		;4
+		bra	Rien		;5
+		bra	Rien		;6
+		bra	ClEol		;7-  Clear to EOL
+		bra	CLeft		;8-  Backspace
+		bra	Tab		;9-  Tab
+		bra	CDown		;10- Curseur bas
+		bra	Rien		;11
+		bra	Home		;12- Home
+		bra	CReturn		;13- A la ligne
+		bra	Rien		;14
+		bra	Rien		;15-
+		bra	ScGLine		;16- Scrolling gauche ligne curseur
+		bra	ScGWi		;17- Scrolling gauche fenetre
+		bra	ScDLine		;18- Scrolling droite ligne curseur
+		bra	ScDWi		;19- Scrolling droite fenetre
+		bra	ScBas		;20
+		bra	ScBasHaut	;21
+		bra	ScHaut		;22
+		bra	ScHautBas	;23
+		bra	Home		;24
+		bra	Clw		;25
+		bra	ClLine		;26
+		bra	EscM		;27- ESCAPE
+		bra	CRight		;28
+		bra	CLeft		;29
+		bra	CUp		;30
+		bra	CDown		;31
+
+***********************************************************
+*		Table des ESCAPES
+***********************************************************
+
+CEsc:		bra	Rien		;A
+		bra	Paper		;B- Paper
+		bra	Curs		;C- Curseur OFF/ON
+		bra	CurCol		;D- Couleur du curseur
+		bra	Encadre		;E- Encadre!
+		bra	Rien		;F
+		bra	Rien		;G
+		bra	Rien		;H
+		bra	Inv		;I- Inverse on/off
+		bra	Planes		;J- Set active planes
+		bra	ChgCar		;K- 0/1 jeu normal/graphique
+		bra	Rien		;L
+		bra	MemoCu		;M- Memorise le curseur
+		bra	DecaX		;N- Decalage curseur X
+		bra	DecaY		;O- Decalage curseur Y
+		bra	Pen		;P- Pen
+		bra	RazCur		;Q- Efface N caracteres
+		bra	Repete		;R- Repeter
+		bra	Shade		;S- Shade on/off
+		bra	SetTab		;T- Set Tab
+		bra	Under		;U- Underline on/off
+		bra	Scroll		;V- Scroll on/off
+		bra	Writing		;W- Writing
+		bra	LocaX		;X- Fixe X
+		bra	LocaY		;Y- Fixe Y
+		bra	WiZone		;Z- Stocke une zone
+
+***********************************************************
+*		Bordures
+***********************************************************
+
+Brd:		dc.w Bor0-Brd,Bor1-Brd,Bor2-Brd,Bor3-Brd
+		dc.w Bor4-Brd,Bor5-Brd,Bor0-Brd,Bor0-Brd
+		dc.w Bor0-Brd,Bor0-Brd,Bor0-Brd,Bor0-Brd
+		dc.w Bor0-Brd,Bor0-Brd,Bor0-Brd,Bor15-Brd
+		dc.b 0
+Bor0:		dc.b 136,0		* Haut G
+		dc.b 138,0		* Haut D
+		dc.b 137,0		* Haut
+		dc.b 139,0		* Droite
+		dc.b 140,0		* Bas G
+		dc.b 141,0		* Bas D
+		dc.b 137,0		* Bas
+		dc.b 139,0		* Gauche
+Bor1:		dc.b 128,0		* Haut G
+		dc.b 130,0		* Haut D
+		dc.b 129,0		* Haut
+		dc.b 132,0		* Droite
+		dc.b 133,0		* Bas G
+		dc.b 135,0		* Bas D
+		dc.b 134,0		* Bas
+		dc.b 131,0		* Gauche
+Bor2:		dc.b 157,0		* Haut G
+		dc.b 2,0		* Haut D
+		dc.b 1,0		* Haut
+		dc.b 3,0		* Droite
+		dc.b 6,0		* Bas G
+		dc.b 4,0		* Bas D
+		dc.b 5,0		* Bas
+		dc.b 7,0		* Gauche
+Bor3:		dc.b 8,0		* Haut G
+		dc.b 10,0		* Haut D
+		dc.b 9,0		* Haut
+		dc.b 11,0		* Droite
+		dc.b 14,0		* Bas G
+		dc.b 12,0		* Bas D
+		dc.b 13,0		* Bas
+		dc.b 15,0		* Gauche
+Bor4:		dc.b 16,0		* Haut G
+		dc.b 18,0		* Haut D
+		dc.b 17,0		* Haut
+		dc.b 19,0		* Droite
+		dc.b 22,0		* Bas G
+		dc.b 20,0		* Bas D
+		dc.b 21,0		* Bas
+		dc.b 23,0		* Gauche
+Bor5:		dc.b 24,0		* Haut G
+		dc.b 26,0		* Haut D
+		dc.b 25,0		* Haut
+		dc.b 158,0		* Droite
+		dc.b 30,0		* Bas G
+		dc.b 28,0		* Bas D
+		dc.b 29,0		* Bas
+		dc.b 31,0		* Gauche
+Bor15		dc.b " ",0
+		dc.b " ",0
+		dc.b " ",0
+		dc.b " ",0
+		dc.b " ",0
+		dc.b " ",0
+		dc.b " ",0
+		dc.b " ",0
+		even
+
+***********************************************************
+*		CODE AMOS HERE?
+BufCode		dc.w	0
+		dc.b	"I"+$60
+		dc.b	"S"+$60
+		dc.b	" "+$60
+		dc.b	"A"+$60
+		dc.b	"M"+$60
+		dc.b	"O"+$60
+		dc.b	"S"+$60
+		dc.b	" "+$60
+		dc.b	"H"+$60
+		dc.b	"E"+$60
+		dc.b	"R"+$60
+		dc.b	"E"+$60
+		dc.b 	0
+
+***********************************************************
+*		FONCTIONS ESCAPES
+***********************************************************
+
+		dc.b 32,32,32,32,32,32,32,32
+TEncadre:	dc.b 136,137,138,139,141,137,140,139
+		dc.b 128,129,130,132,135,134,133,131
+		dc.b 157,1,2,3,4,5,6,7
+		dc.b 8,9,10,11,12,13,14,15
+		dc.b 16,17,18,19,20,21,22,23
+		dc.b 24,25,26,158,28,29,30,31
+		dc.b 32,32,32,32,32,32,32,32
+
+***********************************************************
+*		CURSEUR TEXTE
+***********************************************************
+DefCurs:	dc.b %00000000
+		dc.b %00000000
+		dc.b %00000000
+		dc.b %00000000
+		dc.b %00000000
+		dc.b %00000000
+		dc.b %11111111
+		dc.b %11111111
+		dc.w 0
+
+	IFNE	EzFlag
+TokAMAL
+CreAMAL
+MvOAMAL
+DAllAMAL
+Animeur
+RegAMAL
+ClrAMAL
+FrzAMAL
+UFrzAMAL
+SpColl
+SyncO
+Sync
+SetPlay
+HColSet
+HColGet
+TMovon
+TChanA
+TChanM
+
+ShStop
+ShStart
+MakeCBloc
+DrawCBloc
+FreeCBloc
+RazCBloc
+Duale
+DualP
+StaMn
+StoMn
+TCopOn
+TCopRes
+TCopSw
+TCopWt
+TCopMv
+TCopMl
+TCopBs
+
+DAdAMAL
+AMALInit
+AMALEnd
+ShInit
+	rts
+
+	ENDC
+
+;		Banque MOUSE.ABK par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		SECTION	"m",DATA_C
+		IncBin	"bin/+AMOSPro_Mouse.abk"
+
+		even
diff --git a/+WEqu.s b/+WEqu.s
new file mode 100644
index 0000000..2861fe0
--- /dev/null
+++ b/+WEqu.s
@@ -0,0 +1,383 @@
+*********************************************************************
+*
+*  Published under the MIT Licence
+*
+*  Copyright (c) 1992 Europress Software
+*  Copyright (c) 2020 Francois Lionet
+*
+*  Permission is hereby granted, free of charge, to any person
+*  obtaining a copy of this software and associated documentation
+*  files (the "Software"), to deal in the Software without
+*  restriction, including without limitation the rights to use,
+*  copy, modify, merge, publish, distribute, sublicense, and/or
+*  sell copies of the Software, and to permit persons to whom the
+*  Software is furnished to do so, subject to the following
+*  conditions:
+*
+*  The above copyright notice and this permission notice shall be
+*  included in all copies or substantial portions of the Software.
+*
+*  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+*  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+*  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+*  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+*  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+*  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+*  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+*  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+*
+*********************************************************************
+*		EQUATES GRAPHIC FUNCTIONS AMOS
+*********************************************************************
+RwReset		MACRO
+Count		SET	0
+		ENDM
+Rl		MACRO
+Count		SET	Count-4*(\2)
+T_\1		equ	Count
+		ENDM
+Rw		MACRO
+Count		SET	Count-2*(\2)
+T_\1		equ	Count
+		ENDM
+Rb		MACRO
+Count		SET	Count-(\2)
+T_\1		equ	Count
+		ENDM
+GfxA5		MACRO
+		movem.l	d0-d1/a0-a1/a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d1/a0-a1/a6
+		ENDM
+
+***************************************************************
+
+		RwReset
+
+***************************************************************
+*		VECTEURS
+***************************************************************
+		Rl	SyVect,1
+		Rl	EcVect,1
+		Rl	WiVect,1
+
+***************************************************************
+*		ADRESSES AMOS / COMPILER
+***************************************************************
+		Rl	JError,1
+		Rl	CompJmp,1
+		Rw	AMOState,1
+		Rb	WFlags,1
+		Rb	Future,1
+
+***************************************************************
+*		Gestions AMOS Multiples
+***************************************************************
+		Rl	MyTask,1
+		Rw	Inhibit,1
+		Rw	OldDma,1
+
+***************************************************************
+*		FENETRES
+***************************************************************
+* Jeu de caracteres par defaut
+		Rl	JeuDefo,1
+* Fonction REPETER
+WiRepL		equ	80
+		Rw	WiRep,1
+		Rl	WiRepAd,2
+		Rb	WiRepBuf,WiRepL
+* Fonction ENCADRER
+		Rw	WiEncDX,1
+		Rw	WiEncDY,1
+
+
+***************************************************************
+*		INTER VBL
+***************************************************************
+		Rl	VblCount,1
+		Rl	VblTimer,1
+		Rw	EveCpt,1
+
+***************************************************************
+*		FLAG AMOS/WORKBENCH
+***************************************************************
+		Rw	AMOSHere,1
+		Rw	NoFlip,1
+		Rw	DevHere,1
+		Rw	DiscIn,1
+
+***************************************************************
+*		GESTION ECRANS
+***************************************************************
+
+*************** Variables gestion
+EcMax:		equ 	12
+		Rw	DefWX,1
+		Rw	DefWY,1
+		Rw	DefWX2,1
+		Rw	DefWY2,1
+		Rl	EcCourant,1
+		Rw	EcFond,1
+		Rw	EcYAct,1
+		Rw	EcYMax,1
+		Rw	Actualise,1
+		Rl	ChipBuf,1
+
+***************	Buffer de calculs des ecrans
+		Rw	EcBuf,128
+
+*************** Table des NUMEROS ---> ADRESSES
+		Rl	EcAdr,EcMax
+
+*************** Table de priorite
+		Rl	EcPri,EcMax+1
+
+*************** FLASHEUR
+FlMax:		equ 	16
+LFlash:		equ 	2+2+4+2+16*4+2
+		Rw	NbFlash,1
+		Rb	TFlash,LFlash*FlMax
+
+*************** SHIFTER
+LShift:		equ 	2+2+4+2+2+2
+		Rb	TShift,LShift
+
+*************** FADER
+		Rw	FadeFlag,1
+		Rw	FadeNb,1
+		Rw	FadeCpt,1
+		Rw	FadeVit,1
+		Rl	FadePal,1
+		Rl	FadeCop,1
+		Rb	FadeCol,8*32
+
+***************************************************************
+*		GESTION COPPER
+***************************************************************
+EcTCop		equ  	1024
+		Rl	EcCop,1
+		Rw	Cop255,1
+		Rl	CopLogic,1
+		Rl	CopPhysic,1
+		Rw	CopON,1
+		Rl	CopPos,1
+		Rl	CopLong,1
+
+* Rainbows
+NbRain		equ	4
+		RsReset
+RnDY		rs.w	1
+RnFY		rs.w	1
+RnTY		rs.w	1
+RnBase		rs.w	1
+RnColor		rs.w	1
+RnLong		rs.w	1
+RnBuf		rs.l	1
+RnAct		rs.w	1
+RnX		rs.w	1
+RnY		rs.w	1
+RnI		rs.w	1
+RainLong	rs.w	1
+		Rb	RainTable,RainLong*NbRain
+		Rw	RainBow,1
+		Rw	OldRain,1
+
+* Marques copper liste
+CopL1:		equ 	16*4*2
+CopL2:		equ 	16*4
+CopML:		equ 	(EcMax*CopL1)+10*CopL2
+		Rb	CopMark,CopML+4
+
+* Liste screen swaps
+SwapL:		equ 	32
+		Rl	SwapList,SwapL*8+4
+
+* Interlaced!
+		Rw	InterInter,1
+		Rw	InterBit,1
+		Rl	InterList,EcMax*2
+
+***************************************************************
+*		SPRITES HARD
+***************************************************************
+HsNb		equ 	64
+* Limites souris
+		Rw	MouYMax,1
+		Rw	MouXMax,1
+		Rw	MouYMin,1
+		Rw	MouXMin,1
+
+* Gestion souris
+		Rw	MouYOld,1
+		Rw	MouXOld,1
+		Rw	MouHotY,1
+		Rw	MouHotX,1
+		Rw	MouseY,1
+		Rw	MouseX,1
+		Rw	MouseDY,1
+		Rw	MouseDX,1
+		Rw	YMouse,1
+		Rw	XMouse,1
+		Rw	OldMk,1
+
+		Rw	MouShow,1
+		Rw	MouSpr,1
+		Rw	OMouShow,1
+		Rw	OMouSpr,1
+		Rl	MouBank,1
+		Rl	MouDes,1
+		Rw	MouTy,1
+
+		Rl	SprBank,1
+		Rl	HsTBuf,1
+		Rl	HsBuffer,1
+		Rl	HsLogic,1
+		Rl	HsPhysic,1
+		Rl	HsInter,1
+		Rl	HsChange,1
+		Rl	HsTable,1
+		Rw	HsPMax,1
+		Rw	HsTCol,1
+		Rw	HsNLine,1
+		Rl	HsPosition,2*8+1
+
+* Actualisation sprites
+HsYAct:		equ 	4
+HsPAct:		equ 	6
+		Rw	HsTAct,4*HsNb
+
+* Structure SPrites
+HsPrev:		equ 	0
+HsNext:		equ 	2
+HsX:		equ 	4
+HsY:		equ 	6
+HsYr:		equ 	8
+HsLien:		equ 	10
+HsImage:	equ 	12
+HsControl:	equ 	16
+HsLong:		equ 	20
+		Rb	SpBase,HsLong+4
+
+***************************************************************
+*		BOBS
+***************************************************************
+		Rw	BbMax,1
+		Rl	BbDeb,1
+		Rl	BbPrio,1
+		Rl	BbPrio2,1
+		Rl	Priorite,1
+		Rw	PriRev,1
+*		Rb	TRetour,256
+
+***************************************************************
+*		AMAL!
+***************************************************************
+		Rl	AmDeb,1
+		Rl	AmFreeze,1
+		Rl	AmChaine,1
+		Rl	AmBank,1
+		Rw	AmRegs,26
+		Rw	SyncOff,1
+		Rl	AMALSp,1
+		Rw	AmSeed,1
+
+***************************************************************
+*		COLLISIONS
+***************************************************************
+		Rl	TColl,8
+
+***************************************************************
+*		BLOCS
+***************************************************************
+		Rl	AdCBlocs,1
+		Rl	AdBlocs,1
+
+***************************************************************
+*		SYSTEME
+***************************************************************
+		Rl	GPile,1
+		Rl	IntBase,1
+		Rl	IntScreen,1
+		Rl	GfxBase,1
+		Rl	LayBase,1
+		Rl	FntBase,1
+		Rl	DefaultFont,1
+		Rl	Stopped,1
+		Rl	OldName,1
+		Rl	WVersion,1
+		Rl	RastPort,1
+		Rl	Libre3,1		Libre!
+		Rl	FontInfos,1
+		Rw	FontILong,1
+		Rw	PaPeek,1
+		Rl	SaveZo,1
+		Rw	SaveNZo,1
+* Sauvegarde du BitMap
+		Rb	Libre4,40		Libre!
+* Sauvegarde de la fonte systeme
+		Rb	Libre5,14+4		Libre!
+* Interrupt VBL
+Lis		equ	$16
+Lio		equ	$30
+Lmsg		equ	$20
+		Rb	VBL_Is,Lis
+* Interrupt clavier
+		Rb	IoDevice,Lio+Lmsg+8
+		Rb	Interrupt,Lis
+* Buffer clavier
+ClLong		equ 	32*3
+FFkLong		equ 	24
+		Rl	ClAsc,1
+		Rw	ClFlag,1
+		Rw	ClQueue,1
+		Rw	ClTete,1
+		Rb	ClShift,4
+		Rb	ClTable,12
+		Rb	ClBuffer,ClLong
+		Rl	ClLast,1
+		Rb	TFF2,10*FFkLong
+		Rb	TFF1,10*FFkLong
+
+*************** Memory check
+		Rl	MemList,1
+		Rl	MemFlush,1
+
+*************** Custom AMIGA-A
+		Rb	AmigA_Rien,1
+		Rb	AmigA_Shifts,1
+		Rb	AmigA_Ascii2,1
+		Rb	AmigA_Ascii1,1
+
+*************** Compteur FakeEvent
+		Rw	FakeEventCpt,1
+
+*************** Sauvegarde de l'ecran
+		Rb	EcSave,64
+
+*************** REQUESTER
+		Rl	ScAdr,1
+		Rl	Datas,1
+		Rl	PrevAuto,1
+		Rl	PrevEasy,1
+
+		Rw	Req_Sx,1
+		Rw	Req_Sy,1
+		Rl	Req_Pos,1
+		Rl	Req_Neg,1
+
+		Rl	Req_IDCMP,1
+		Rw	ReqFlag,1
+		Rw	ReqOld,1
+		Rw	DOld,1
+		Rw	TxtCx,1
+		Rw	TxtMaxCx,1
+		Rw	TxtCy,1
+		Rw	ReqOldScreen,1
+		Rw	Req_On,1
+
+*************** Longueur de la structure W.S
+		Rb	L_Trp,4
+L_Trappe	equ	-Count
+***********************************************************
diff --git a/.gitattributes b/.gitattributes
new file mode 100644
index 0000000..dfe0770
--- /dev/null
+++ b/.gitattributes
@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto
diff --git a/AMOS.info b/AMOS.info
new file mode 100644
index 0000000..8aeb9f8
Binary files /dev/null and b/AMOS.info differ
diff --git a/AMOS/AMOSPro b/AMOS/AMOSPro
new file mode 100644
index 0000000..c9685aa
Binary files /dev/null and b/AMOS/AMOSPro differ
diff --git a/AMOS/AMOSPro.info b/AMOS/AMOSPro.info
new file mode 100644
index 0000000..3df46d9
Binary files /dev/null and b/AMOS/AMOSPro.info differ
diff --git a/AMOS/AMOSPro_Compiler_Config b/AMOS/AMOSPro_Compiler_Config
new file mode 100644
index 0000000..0df1d05
Binary files /dev/null and b/AMOS/AMOSPro_Compiler_Config differ
diff --git a/AMOS/AMOSPro_Interpreter_Config b/AMOS/AMOSPro_Interpreter_Config
new file mode 100644
index 0000000..199f569
Binary files /dev/null and b/AMOS/AMOSPro_Interpreter_Config differ
diff --git a/AMOS/APSystem.info b/AMOS/APSystem.info
new file mode 100644
index 0000000..7569b23
Binary files /dev/null and b/AMOS/APSystem.info differ
diff --git a/AMOS/APSystem/AMOS.library b/AMOS/APSystem/AMOS.library
new file mode 100644
index 0000000..8efe908
Binary files /dev/null and b/AMOS/APSystem/AMOS.library differ
diff --git a/AMOS/APSystem/AMOSPro.Lib b/AMOS/APSystem/AMOSPro.Lib
new file mode 100644
index 0000000..8457387
Binary files /dev/null and b/AMOS/APSystem/AMOSPro.Lib differ
diff --git a/AMOS/APSystem/AMOSPro_Compact.Lib b/AMOS/APSystem/AMOSPro_Compact.Lib
new file mode 100644
index 0000000..fe10544
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Compact.Lib differ
diff --git a/AMOS/APSystem/AMOSPro_Compiler.Lib b/AMOS/APSystem/AMOSPro_Compiler.Lib
new file mode 100644
index 0000000..e20405e
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Compiler.Lib differ
diff --git a/AMOS/APSystem/AMOSPro_CompilerA_Resource.Abk b/AMOS/APSystem/AMOSPro_CompilerA_Resource.Abk
new file mode 100644
index 0000000..2647864
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_CompilerA_Resource.Abk differ
diff --git a/AMOS/APSystem/AMOSPro_Compiler_Resource.Abk b/AMOS/APSystem/AMOSPro_Compiler_Resource.Abk
new file mode 100644
index 0000000..1c01b93
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Compiler_Resource.Abk differ
diff --git a/AMOS/APSystem/AMOSPro_Default_Resource.Abk b/AMOS/APSystem/AMOSPro_Default_Resource.Abk
new file mode 100644
index 0000000..3d22138
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Default_Resource.Abk differ
diff --git a/AMOS/APSystem/AMOSPro_Editor b/AMOS/APSystem/AMOSPro_Editor
new file mode 100644
index 0000000..f36899c
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Editor differ
diff --git a/AMOS/APSystem/AMOSPro_Editor_Config b/AMOS/APSystem/AMOSPro_Editor_Config
new file mode 100644
index 0000000..1f5fb6e
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Editor_Config differ
diff --git a/AMOS/APSystem/AMOSPro_Editor_Macros b/AMOS/APSystem/AMOSPro_Editor_Macros
new file mode 100644
index 0000000..21b2f58
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Editor_Macros differ
diff --git a/AMOS/APSystem/AMOSPro_Editor_Resource.Abk b/AMOS/APSystem/AMOSPro_Editor_Resource.Abk
new file mode 100644
index 0000000..54b9a9b
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Editor_Resource.Abk differ
diff --git a/AMOS/APSystem/AMOSPro_IOPorts.Lib b/AMOS/APSystem/AMOSPro_IOPorts.Lib
new file mode 100644
index 0000000..ddae7f5
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_IOPorts.Lib differ
diff --git a/AMOS/APSystem/AMOSPro_Monitor b/AMOS/APSystem/AMOSPro_Monitor
new file mode 100644
index 0000000..a62f67a
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Monitor differ
diff --git a/AMOS/APSystem/AMOSPro_Music.Lib b/AMOS/APSystem/AMOSPro_Music.Lib
new file mode 100644
index 0000000..26d2d23
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Music.Lib differ
diff --git a/AMOS/APSystem/AMOSPro_Request.Lib b/AMOS/APSystem/AMOSPro_Request.Lib
new file mode 100644
index 0000000..0d22cf3
Binary files /dev/null and b/AMOS/APSystem/AMOSPro_Request.Lib differ
diff --git a/AMOS/APSystem/APCmp b/AMOS/APSystem/APCmp
new file mode 100644
index 0000000..b94e27f
Binary files /dev/null and b/AMOS/APSystem/APCmp differ
diff --git a/AMOS/APSystem/Compiler.Lib b/AMOS/APSystem/Compiler.Lib
new file mode 100644
index 0000000..ff098ab
Binary files /dev/null and b/AMOS/APSystem/Compiler.Lib differ
diff --git a/AMOS/APSystem/Def_Compiled.info b/AMOS/APSystem/Def_Compiled.info
new file mode 100644
index 0000000..a228c2c
Binary files /dev/null and b/AMOS/APSystem/Def_Compiled.info differ
diff --git a/AMOS/APSystem/Def_icon.info b/AMOS/APSystem/Def_icon.info
new file mode 100644
index 0000000..ab4f787
Binary files /dev/null and b/AMOS/APSystem/Def_icon.info differ
diff --git a/AMOS/APSystem/Header_AMOS.AMOS b/AMOS/APSystem/Header_AMOS.AMOS
new file mode 100644
index 0000000..e53ec4f
Binary files /dev/null and b/AMOS/APSystem/Header_AMOS.AMOS differ
diff --git a/AMOS/APSystem/Header_Backstart.Lib b/AMOS/APSystem/Header_Backstart.Lib
new file mode 100644
index 0000000..38a80e4
Binary files /dev/null and b/AMOS/APSystem/Header_Backstart.Lib differ
diff --git a/AMOS/APSystem/Header_CLI.Lib b/AMOS/APSystem/Header_CLI.Lib
new file mode 100644
index 0000000..fcc6d23
Binary files /dev/null and b/AMOS/APSystem/Header_CLI.Lib differ
diff --git a/AMOS/Accessories.info b/AMOS/Accessories.info
new file mode 100644
index 0000000..2e855e9
Binary files /dev/null and b/AMOS/Accessories.info differ
diff --git a/AMOS/Accessories/AMAL_Editor.AMOS b/AMOS/Accessories/AMAL_Editor.AMOS
new file mode 100644
index 0000000..af1c9fa
Binary files /dev/null and b/AMOS/Accessories/AMAL_Editor.AMOS differ
diff --git a/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.AMOS b/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.AMOS
new file mode 100644
index 0000000..d02f22a
Binary files /dev/null and b/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.AMOS differ
diff --git a/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.Map b/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.Map
new file mode 100644
index 0000000..c990d43
Binary files /dev/null and b/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.Map differ
diff --git a/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.Txt b/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.Txt
new file mode 100644
index 0000000..fbba89a
--- /dev/null
+++ b/AMOS/Accessories/AMOSPro_Help/AMOSPro_Help.Txt
@@ -0,0 +1,9438 @@
+The young super TV star has this to say about his football team:
+
+Queens Park Rangers are a super team! They'll never win anything though...
+
+Francois once let the alarm off at Europress and almost got arrested.
+
+The fatest First Direct coloured Cat!
+
+The real programmer!
+
+The most patient French Woman in the world!
+
+The only man to burn a hole in a QWERTY keyboard.
+
+Sick and tired of the help file but proud of it.
+
+The world's best programmer!
+
+Double Precision info
+
+We only got Double Precision working very near the end of the project, too
+late for the User Guide! So there's something else you need to know:
+
+Single and Double don't mix!
+----------------------------
+
+Imagine you've just loaded in your favourite sine scroller and want to make
+it even more accurate with the new Double Precision feature of AMOS Pro.
+To do this you need to add the SET DOUBLE PRECISION command at the top of
+your program and then (and this is the new bit), you need to retokenise the
+program using the accessory which is available from the User menu.
+
+The retokeniser changes all the single precision numbers in your program
+into double precision. This needs to be done because single to double
+precision conversions would have to happen during your program. These
+conversions are not very accurate and take longer to work out. So it's
+best to have the same precision throughout your program. You could run
+a mixture of the two precisions but you'll lose accuracy.
+
+Configuration info
+
+When you installed AMOS Professional, the installer set up options within
+the configuration that benefits your memory situation. For example the Undo
+buffers are set low on a 1 meg machine.
+
+So don't use a 1 meg AMOS Pro disc on a bigger machine - just reinstall it.
+
+Compiler and 3D Extensions
+
+If you are a registered AMOS Compiler and/or AMOS 3D user you'll be wanting
+to use AMOS Professional with these two extensions. It was our plan to have
+the two intergrated for Pro's release. Sadly though we've had technical
+problems and the extensions are currently not compatible.
+
+By the end of October we will have sorted this out and an update will be made
+availble. So call Europress at the start of November for information on how
+to upgrade your Compiler and/or 3D.
+
+        Tel: 0625 859333   International +44 625 559333
+        Fax: 0625 879962   International +44 625 879962
+
+Credits
+
+                Main Programmer      Francois Lionet
+                User Guide Author    Mel Croucher
+                Technical Author     Stephen Hill
+                Demo Programmer      Ronnie Simpson
+                Project Manager      Richard Vanner
+
+Special thanks to:Alex Blagg, David Ratcliffe, Barney, Richard Peacock, Alexa
+Czechowski, Anna Donaldson, Stuart Davis, Donald Anderson, Peter Hickman,
+Dominic Ramsey, Stoo Cambridge, Darren Ithell, Syntex, Jason Holborn, Tony
+Dillon, Phil South, Len Tucker and everyone else who played a part in creating
+this monster!
+
+Programmers and Artists Wanted!
+
+Europress Software is always on the look-out for talented programmers and
+graphic artists. The productivity discs are examples of work created by
+freelancers, can you do better? Send us examples of your work we'd be
+delighted to evaluate it.
+
+Bugs in AMOS Professional? Surely not! Well we don't think there are but
+they'll probably raise their ugly heads when your using Pro. If you do
+discover a bug or problem then please, please, please let us know. We make
+it our number 1 goal to have our software bug free.
+
+If you find a bug send the program that creates the problem on disc to
+Richard Vanner. Comment the program so that he can easily home in on the
+offending command. Even try running the program through the Monitor which
+might pin point the problem for you.
+
+Happy Programming
+
+Procedures
+
+The procedures we've supplied on Productivity disc 2 are the result of a
+competition we ran in the very supportive Amiga Shopper magazine. AMOS users
+were asked to send in useful procedures which could be supplied as a sort
+of library. We thank all those who took part and believe that the ones we
+decided to go with will suprise you all. Check out the Plasma and Sine
+Scroller demos - the're fun.
+
+Perhaps you have better procedures? Why not share them, the AMOS PD library
+would be delighted to create Procedure discs.
+
+Memory Considerations - 1 meg users of AMOS Professional
+
+AMOS Professional does its best to give you as much available memory as
+possible. But at the end of the day AMOS Professional is a huge program with
+many memory requirements. So we'll point you in the right direction by
+offering the following advice:
+
+
+* A Multitasking machine in its own nature needs to have spare memory to
+  operate properly. So you must ensure that at least 32k memory is left free
+  for the system's own needs. Trying to grab all the memory is just too
+  risky.
+
+* AMOS Professional has a built-in low memory protection system that helps you
+  avoid using up memory.
+
+  If you find the Editor's drop down menus cannot be accessed, it's because
+  there's less than 72k available and AMOS Professional needs more to open
+  them. If you let this happen you are still able to use the keyboard
+  short-cuts.
+
+  AMOS Professional also has a memory grabber. When Pro detects less than 72k
+  is available it will erase the following until more than 72k is freed:
+
+        - the Default screen (if open).
+        - any open maths libraries (if they are not needed anymore)
+        - the Undo buffers
+        - the directory Stored in the File Selector
+
+  If Pro can than access more than 72k it will allow the menus to be opened.
+
+* You may find that some programs will fail under AMOS Pro and yet work fine
+  in old AMOS. Obviously AMOS Pro's new Editor and features take up more
+  memory. So to free up memory when your programs run try these techniques:
+
+   - The Close Editor command will free a considerable amount of memory but
+     will still leave you with a 50k overhead compared to old AMOS.
+
+   - Using the new Kill Editor command will free so much memory that you'll
+     have 32k more to play with than was possible in old AMOS. The bad news
+     is you'll have to wait for the editor to load after each run.
+
+     Some programs that use Kill Editor may ask for lots of memory by
+     reserving banks and opening screens. Once the program has finished, AMOS
+     Pro attempts to reload the Editor. It will first ask you to insert the
+     System disc so that it can find the Editor files and then attempt to
+     load it.
+
+     If this fails due to low memory, AMOS Pro will clear all variables, the
+     screens etc.
+
+     If it still fails a small requester will appear that asks if you want to
+     erase the memory banks - this should be plenty for the editor to load,
+     if not you'll be dumped into the Workbench.
+
+     So when you program in a low memory state, ensure your program erases the
+     banks before going back to the editor.
+
+A memory expansion would be the best solution if you find yourself always
+programming around low memory conditions!
+
+Losing the File Selector Stored Directories
+-------------------------------------------
+If you find the Store option has been erased this will be due to a memory
+flush that occured earlier in your programming.
+
+
+BORDER
+{[RAMOSPro_Examples:Examples/H-3/Help_31.AMOS,0,4]Border}
+
+Sets the border style of the current text window.
+
+        Border style,paper,pen
+
+style  can  range  from  1 to 16, but currently only styles 1 through 3 are
+defined for your use.
+
+END
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]End}
+
+Exits from the program.
+
+      End
+FREE
+{[RAMOSPro_Examples:Examples/H-6/Help_64.amos,0,4]=Free}
+
+Returns the number of bytes of FREE memory available to hold variables.
+
+        Print Free
+
+FREEZE
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Freeze}
+
+Freezes  all  object  movements  at  their  present  position.  They can be
+restarted again using UNFREEZE.
+
+        Freeze
+
+INPUT
+{[RAMOSPro_Examples:Examples/H-6/Help_63.AMOS,0,4]Input}
+
+Loads information into one or more variables.
+
+        Input variable list
+        Input "prompt";variable list
+
+REM
+{[RAMOSPro_Examples:Examples/H-4/Help_48.amos,0,4]Rem}
+
+Rem  is  a little REMark statement included in your programs that helps you
+REMember  something.   The text you use after a REM statement is ignored by
+the program.  The apostrophe character can also be used instead of REM.
+
+        Rem This is where I hid my old socks data
+        ' And this is a rem statement too
+UNFREEZE
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Unfreeze}
+
+Starts your objects moving again after you've suspended them with FREEZE.
+
+        UNfreeze
+X GR
+{[RAMOSPro_Examples:Examples/H-0/Help_6.AMOS,0,4]=X Gr}
+
+Returns the X coordinate of the invisible graphics cursor.
+
+        cx=Xgr
+Y GR
+{[RAMOSPro_Examples:Examples/H-0/Help_6.AMOS,0,4]=Y Gr}
+
+Returns the Y coordinate of the invisible graphics cursor.
+
+       cy=Ygr
+
+Main Menu
+
+             {[IHelphelp    ,4,3] Using Help             }  {[IHelpAudio   ,4,3] Audio                  }
+             {[IHelpkeyHelp ,4,3] Editor                 }  {[IHelpInterface ,4,3] AMOS Interface         }
+             {[IHelpDirect  ,4,3] Direct mode            }  {[IHelpIO    ,4,3] Input/Output           }
+             {[IHelpSyntax  ,4,3] Syntax conventions     }  {[IHelpAmigaDos ,4,3] AmigaDos               }
+             {[IHelpBasics  ,4,3] Basics of AMOS         }  {[IHelpDebug   ,4,3] Debugging              }
+             {[IHelpScreens ,4,3] Screen control         }  {[IHelpMC      ,4,3] Machine code           }
+             {[IHelpObjects ,4,3] Object control         }  {[IHelpTables  ,4,3] Tables                 }
+
+
+                                {[IHelpinfo    ,4,3] Latest News}
+
+Using Help
+Welcome  to  the amazing AMOS Professional Help System.  This contains full
+details  of all 700+ AMOS commands.  So if you get stuck, help will only be
+a keypress away!
+
+You  can  use  this  system in a variety of ways.  The easiest option is to
+simply position the Editor`s cursor over the first character of any command
+you  are  unsure  of, and hit the Help key straight from the keyboard.  The
+Help  program  will  now  load  into memory, and you`ll be presented with a
+quick explanation of the command in a special `help window`.
+
+If  the  information  is  longer  than  a  single screen it can be scrolled
+through  the  window  using either the Up/Down arrows from the keyboard, or
+via  the arrow icons to the top right of the window.  You can also drag the
+window through the text using the scroll bar along the right.
+
+Along the top of the window there are four icons.
+
+The X icon closes the help window and returns you to your basic program.
+
+Prev.Page flicks back to the most recently displayed help screen.
+
+Main Menu presents you with a full list of the available help topics.
+
+Print makes a hardcopy of the current help screen onto a printer for future
+reference.
+
+The individual help menus are formed  using a series of buttons which can be
+selected  using  the Left Mouse key  as you`d expect.  Some buttons move you 
+directly to the  explanation of a particular command, whereas others present
+you with a complete menu in their own right. Here`s an example:
+
+                        {[IHelpItem1,4,3] Help Example 1                }
+                        {[IHelpItem2,4,3] Help Example 2                }
+                        {[IHelpItem3,4,3] Help Example 3                }
+
+Some  of  these  menus have been permanently assigned to the main Help menu
+from the Editor window.  These can be brought up by simply highlighting the
+menu item with the mouse.
+
+Try selecting one of these buttons with the Left mouse key.  See you there!
+
+We`ll  finish  off  this tutorial with a brief list of all the ways you can
+get help from AMOS Professional.
+
+* Pressing the Help Key when you`ve positioned the cursor over an AMOS command
+
+* Hitting F5 from the keyboard
+
+* Selecting the `H` icon from the top of the Editor window.
+
+* Selecting a menu item from the Help menu.
+
+Item 1
+This is an example of a help item. 
+
+Many items also have an associated example program.  This is indicated by a
+line such as:
+
+{[RAMOSPro_Examples:Examples/H-0/Help_1.AMOS,0,4] Help Example 1 }
+
+When  you  click  on the heighlighted text, you will be given the option to
+load  the  selected  program  into  a  new listing window and return to the
+Editor.
+
+Now  click  on  the Prev.Page button at the top of this window to return to
+the tutorial screen.
+
+Item 2
+This is another example of a help item.
+
+Many items also have an associated example program.  This is indicated by a
+line such as:
+
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4] Help Example 2 }
+
+When  you  click  on the heighlighted text, you will be given the option to
+load  the  selected  program  into  a  new listing window and return to the
+Editor.
+
+Now click on the Prev.Page button at the top of this window to return to the
+tutorial screen.
+
+Item  3 
+This is the third example of a helpitem.
+
+Many items also have an associated example program.  This is indicated by a
+line such as:
+
+{[RAMOSPro_Examples:Examples/H-0/Help_3.AMOS,0,4] Help Example 3 }
+
+When  you  click  on the heighlighted text, you will be given the option to
+load  the  selected  program  into  a  new listing window and return to the
+Editor.
+
+Now click on the Prev.Page button at the top of this window to return to the
+tutorial screen.
+
+
+The Basics of AMOS Professional
+
+                        {[IHelpBare    ,4,3] The Bare Bones               }
+                        {[IHelpStrings ,4,3] Strings                      }
+                        {[IHelpMaths   ,4,3] Maths                        }
+                        {[IHelpCS      ,4,3] Control Structures           }
+                        {[IHelpProcs   ,4,3] Procedures                   }
+                        {[IHelptext    ,4,3] Text                         }
+                        {[IHelpWindows ,4,3] Windows                      }
+                        {[IHelpFonts   ,4,3] Fonts                        }
+                        {[IHelpMouse   ,4,3] The mouse and joystick ports }
+                        {[IHelpMembank ,4,3] Memory banks                 }
+                        {[IHelpArray   ,4,3] Array Operations             }
+                        {[IHelpProgram ,4,3] Program Run commands         }
+                        {[IHelpMemcons ,4,3] Memory Conservation          }
+                        {[IHelpMisc    ,4,3] Miscellaneous commands       }
+Screen Control
+
+                        {[IHelpSetup   ,4,3] Setting up screens           }
+                        {[IHelpSeffect ,4,3] Screen effects               }
+                        {[IHelpGraphic ,4,3] Graphics                     }
+                        {[IHelpMenus   ,4,3] Menus                        }
+                        {[IHelpZones   ,4,3] Screen Zones                 }
+Object Control
+
+                        {[IHelpHardSP  ,4,3] Hardware Sprites             }
+                        {[IHelpBobs    ,4,3] Blitter objects              }
+                        {[IHelpUpdate  ,4,3] Updating objects             }
+                        {[IHelpCollide ,4,3] Detecting collisions         }
+                        {[IHelpIFFanim ,4,3] IFF anim                     }
+                        {[IHELPAMAL    ,4,3] AMAL                         }
+                        {[IHELPICBK    ,4,3] Icons and Blocks             }
+
+Audio
+
+                        {[IHelpMusic   ,4,3] Music                        }
+                        {[IHelpSound   ,4,3] Sound Effects                }
+                        {[IHelpSpeech  ,4,3] Speech                       }
+                        {[IHelpSamples ,4,3] Samples                      }
+                        {[IHelpTracker ,4,3] Tracker                      }
+                        {[IHelpMed     ,4,3] MED                          }
+
+Control Structures
+
+                      {[IDO       ,4,3] Do       } {[IEXIT IF  ,4,3] Exit If  } {[IPOP      ,4,3] Pop      }
+                      {[IELSE     ,4,3] Else     } {[IFOR      ,4,3] For      } {[IREPEAT   ,4,3] Repeat   }
+                      {[IELSE IF  ,4,3] Else If  } {[IGOSUB    ,4,3] Gosub    } {[IRETURN   ,4,3] Return   }
+                      {[IEND IF   ,4,3] End If   } {[IGOTO     ,4,3] Goto     } {[ISTEP     ,4,3] Step     }
+                      {[IEVERY    ,4,3] Every    } {[IIF       ,4,3] If       } {[ITHEN     ,4,3] Then     }
+                      {[IEVERY ON ,4,3] Every On } {[ILOOP     ,4,3] Loop     } {[IUNTIL    ,4,3] Until    }
+                      {[IEVERY OFF,4,3] Every Off} {[INEXT     ,4,3] Next     } {[IWEND     ,4,3] Wend     }
+                      {[IEXIT     ,4,3] Exit     } {[ION       ,4,3] On       } {[IWHILE    ,4,3] While    }
+DO
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]Do}
+
+Acts  as  a  marker  to  which a matching LOOP statement can return.  Press
+[Ctrl]+[C] to break out of one of these loops.
+
+        Do : Print "forever" : Loop
+ELSE
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Else}
+
+Chooses between alternative actions in an IF...THEN structure.
+
+        If condition Then statement1 Else statement2
+
+ELSE IF
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Else If}
+
+This is used inside an IF..ENDIF or IF..ELSE..ENDIF structure.  It performs
+a  test,  and  if  it's true, executes all the AMOS commands until the next
+ELSEIF, ELSE or ENDIF statement.
+
+        If A=1
+           Print "A=1"
+        Else If A=2
+           Print "A=2"
+        Else If A=3
+           Print "A=3"
+        Else
+           Print "Other values..."
+        End If
+
+Note that you CAN'T use an ELSEIF between the ELSE and ENDIF section.
+END IF
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Endif}
+
+ENDs an IF condition inside a structured test.
+
+        If test : Goto Label1 : Else Goto Label2 : Endif
+EVERY
+{[RAMOSPro_Examples:Examples/H-1/Help_14.AMOS,0,4]Every}
+
+Calls  a  named  subroutine  or  procedure at regular intervals.  There are
+several different forms of this command to choose from:
+
+        Every n Gosub label
+
+Executes the gosub after n fiftieths of a second.
+
+        Every n Proc name
+
+Calls a procedure every n ticks
+EVERY ON
+{[RAMOSPro_Examples:Examples/H-1/Help_14.AMOS,0,4]Every On}
+
+Used  to  start  up  the  ON  EVERY system.  You'll also need to perform it
+directly  before  leaving  your  procedure  or  gosub.  Otherwise the EVERY
+system will stop after the first call.
+
+        Every On
+EVERY OFF
+{[RAMOSPro_Examples:Examples/H-1/Help_14.AMOS,0,4]Every Off}
+
+Turns off the ON..EVERY system.
+
+        Every Off
+EXIT
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]Exit}
+
+Jumps   out   of   a   program   loop  created  by  DO...LOOP,  FOR...NEXT,
+REPEAT...UNTIL  or  WHILE...WEND.   If  you  omit  the number of loops, the
+innermost loop will be terminated automatically.
+
+        Exit
+        Exit loopnumbers
+
+EXIT IF
+{[RAMOSPro_Examples:Examples/H-1/Help_12.AMOS,0,4]Exit If}
+
+Exits  from  a program loop if the condition is TRUE.  Allowable loop types
+include DO..LOOP, FOR..NEXT and REPEAT..UNTIL.
+
+        Exit If condition
+        Exit if condition,loopnumbers
+FOR
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]For}
+
+FOR  is  used  to  kick  off  the  repetition of a section of program FOR a
+specific  number of times.  It is used with the distance command TO and the
+counting command NEXT.
+
+        For counter=start To end
+        Next
+GOSUB
+{[RAMOSPro_Examples:Examples/H-0/Help_3.AMOS,0,4]Gosub}
+
+Jumps to subroutine in your program.  At the end of your routine you should
+use  a  RETURN  statement  to  return to the next instruction after the
+GOSUB.
+
+        Gosub linenumber : Rem jump to subroutine at linenumber
+        Gosub label : Rem jump to this AMOS Professional label
+        Gosub expression : Rem jump to resulting label/line
+GOTO
+{[RAMOSPro_Examples:Examples/H-0/Help_3.AMOS,0,4]Goto}
+
+Instructs the program to GO TO a specified new line number or label.
+
+        Goto label
+        Goto linenumber
+        Goto expression
+IF
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]If}
+
+Selects between one of two actions, depending on a condition.
+
+        If conditions Then statements
+
+More advanced IF instructions can be set up that choose between alternative
+actions,  using  AND, OR and ELSE.  ENDIF is used to terminate this sort of
+structured test.
+
+        If test : Goto Label : Else Goto Label2 : End If
+LOOP
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]Loop}
+
+Acts as the partner to a DO command, creating a repetitive LOOP.
+
+       Do
+           Print "Eternity"
+       Loop
+NEXT
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Next}
+
+is the counting command that partners FOR, to repeat a section of program
+a specific number of times.
+
+       For x=1 To 100 : Print "Professional" : Next x
+ON
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]On}
+
+Jumps to a particular line or procedure, depending ON the contents of a 
+variable.
+
+ON can be used in conjunction with GOTO, GOSUB, or PROC
+
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]        On variable Goto  label1,label2...}
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]        On variable Gosub label1,label2...}
+{[RAMOSPro_Examples:Examples/H-1/Help_12.AMOS,0,4]        On variable Proc  proc1, proc2 ...}
+POP
+{[RAMOSPro_Examples:Examples/H-0/Help_3.AMOS,0,4]Pop}
+
+Pops the RETURN value out of a Gosub and allows you to leave it in any
+way you like:
+
+        Pop : Goto ANYWHERE
+REPEAT
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]Repeat}
+
+Kicks off a program loop that REPEATs UNTIL a condition is satisfied.
+
+        Repeat
+              list of statements
+        Until condition
+RETURN
+{[RAMOSPro_Examples:Examples/H-0/Help_3.AMOS,0,4]Return}
+
+Exits  from  a subroutine and RETURNs to the AMOS Pro instruction after the
+original GOSUB.  Each Gosub statement can have more than one Return command
+at different places in the routine.
+
+        Return
+STEP
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Step}
+
+Controls  the  size  of any STEPs inside a FOR...NEXT loop.  Normally steps
+are  counted  off  in units of one at a time, but you can choose any number
+you want for the size of step.
+
+        For x=firstnumber To lastnumber STEP stepnumber
+THEN
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Then}
+
+Acts as a partner to an IF in a logical choice between alternative actions.
+
+       If condition Then statement
+UNTIL
+{[RAMOSPro_Examples:Examples/H-1/Help_13.AMOS,0,4]Until}
+
+Keeps a REPEAT loop going UNTIL a condition has been satisfied.
+
+        Repeat
+              list of statements
+        Until condition
+WHILE
+{[RAMOSPro_Examples:Examples/H-1/Help_12.AMOS,0,4]While}
+
+Marks  the  beginning  of  a  loop used to repeat a section of your program
+WHILE  a  condition  remains  true.   If the condition does not result in a
+value of -1 for "true", then the loop will be stopped, and the program will
+go on to the next instruction.
+
+        While condition
+                list of statements
+        Wend
+WEND
+{[RAMOSPro_Examples:Examples/H-1/Help_12.AMOS,0,4]Wend}
+
+Marks  the  end  of a loop used to repeat a section of your program WHILE a
+condition  remains true.  If the condition does not result in a value of -1
+for  "true",  then  the loop will be stopped, and the program will go on to
+the next instruction.
+
+        While condition
+                list of statements
+        Wend
+
+AMOS Interface
+
+                {[IARRAY          ,4,3] =Array              } {[IEDIALOG            ,4,3] =Edialog            }
+                {[IDIALOG         ,4,3] =Dialog             } {[IRDIALOG            ,4,3] =Rdialog            }
+                {[IDIALOG BOX     ,4,3] =Dialog Box         } {[IRDIALOG$           ,4,3] =Rdialog$           }
+                {[IDIALOG CLOSE   ,4,3] Dialog Close        } {[IRESOURCE$          ,4,3] =Resource$          }
+                {[IDIALOG CLR     ,4,3] Dialog Clr          } {[IRESOURCE BANK       ,4,3] Resource Bank       }
+                {[IDIALOG FREEZE  ,4,3] Dialog Freeze       } {[IRES_EDIT            ,4,3] The Resource Editor }
+                {[IDIALOG OPEN    ,4,3] Dialog Open         } {[IRESOURCE SCREEN OPEN,4,3] Resource Screen Open}
+                {[IDIALOG RUN     ,4,3] =Dialog Run         } {[IRESOURCE UNPACK     ,4,3] Resource Unpack     }
+                {[IDIALOG UNFREEZE,4,3] Dialog Unfreeze     } {[IVDIALOG            ,4,3] =Vdialog            }
+                {[IDIALOG UPDATE  ,4,3] Dialog Update       } {[IVDIALOG$           ,4,3] =Vdialog$           }
+
+                           {[IHelpIntins     ,4,3]   Internal  Commands   }
+ARRAY
+{[RAMOSPro_Tutorial:Tutorials/Interface/Sliders.AMOS,0,4]=Array}
+
+Returns the address in memory of the first item in your array.
+
+        address=ARRAY(list(0))
+        address=ARRAY(list$(0))
+        address=ARRAY(list#(0))
+
+list is the name of your array, and can contain any data you like.
+
+DIALOG
+{[RAMOSPro_Tutorial:Tutorials/Interface/Communication.AMOS,0,4]Dialog}
+
+Checks whether the user has selected one of the options from a control panel.
+
+        button=Dialog(channel)
+
+The return value can take one of several values.
+
+=0   There has been no input from the user since the last selection.
+>0   Holds the number of the last button highlighted by the user.
+DIALOG BOX
+{[RAMOSPro_Tutorial:Tutorials/Interface/Simple_requester.AMOS,0,4]=Dialog Box}
+
+Displays  a  requestor  or  dialogue  box  on  the  screen  using  a set of
+instructions from an Interface command string or resource bank.
+
+        button=Dialog Box(Interface$)
+        button=Dialog Box(program)
+
+Interface$ is a normal AMOS string containing your Interface program.
+
+program is the number of an Interface program from the resource bank.
+
+        button=Dialog Box(Interface$,p0)
+        button=Dialog Box(program,p0)
+        button=Dialog Box(Interface$,p0,p1$)
+        button=Dialog Box(program,p0,p1$)
+
+p0  contains  an  optional value which is loaded straight into the internal
+variable  array.   It  can  be  accessed  using  the 0 VA command from your
+dialogue box or requestor.
+
+p1$ holds an optional string value which will be forwarded to your 
+Interface program.
+
+It will be saved as item 1 of the variable array (1 VA).
+
+        button=Dialog Box(Interface$,p0,p1$,x,y)
+        button=Dialog Box(program,p0,p1$,x,y)
+
+x,y  positions  the dialogue box on the screen using a couple of coordinate
+values.  These coordinates can be overridden using a BA command inside your
+Interface program.
+
+Note: If you want your Interface program to wait for user's input,you MUST 
+include a RUn command before your final EXit;
+DIALOG CLOSE
+{[RAMOSPro_Tutorial:Tutorials/Interface/Communication.AMOS,0,4]Dialog Close}
+
+Closes  one  or  more  dialogue  channels on the screen.  If your Interface
+program includes an SA command, the original background areas will be pasted
+neatly back onto the display before it leaves.
+
+        Dialog Close
+
+Closes all dialogue channels.
+
+        Dialog Close channel
+
+Closes just a single channel.
+DIALOG CLR
+Erases all zones and totally shuts down your dialog box, leaving the channel
+still open. You can now re-run your Interface program from the start using a
+further call to the DIALOG RUN command as normal. 
+
+As always, if the background area has been saved using the SA option, it will
+be restored to it's original position.
+
+        Dialog Clr channel
+
+channel holds number of the channel to be cleared.
+DIALOG FREEZE
+Freezes all input from one or more active dialog channels.
+
+        Dialog Freeze
+
+Suspends all current dialogue boxes.
+
+        Dialog Freeze channel
+
+Stops just a single dialogue routine.
+
+DIALOG OPEN
+{[RAMOSPro_Tutorial:Tutorials/Interface/Communication.AMOS,0,4]Dialog Open}
+
+Opens up a "communications channel" to your new AMOS interface program.
+
+        Dialog Open channel,Interface$
+        Dialog Open channel,program
+
+channel is the number of the channel to open, starting from one.
+
+Interface$  is  an AMOS string containing one or more Interface programs to
+be  initialised.   If  your  string contains several programs, each routine
+should begin with a LAbel instruction and end with an "EXit" command.
+
+program  holds  the number of an Interface program installed in the resource
+bank.  See the RESOURCE BANK command for details
+
+        Dialog Open channel,Interface$,nvar
+        Dialog Open channel,program,nvar
+
+nvar  sets  the  size of the variable array used by your Interface program.
+Each extra variable takes up 4 bytes of memory.
+
+        Dialog Open channel,Interface$,nvar,buffer
+        Dialog Open channel,program,nvar,buffer
+
+buffer  sets  the  size  of  an internal memory area used by your Interface
+programs.   As  a  default,  the  buffer is just 1k for each channel you've
+defined,  but  if  your interface is very complex, you may need to increase
+this value dramatically.
+
+DIALOG RUN
+{[RAMOSPro_Tutorial:Tutorials/Interface/Communication.AMOS,0,4]=Dialog Run}
+
+Executes an Interface program from a dialogue channel which you've previously
+set up with DIALOG OPEN.
+
+        b=Dialog Run(channel)
+
+Runs your Interface program.  If it doesn't contain a RunUntil instruction,
+the dialogue will occur in the background.
+
+        b=Dialog Run(channel,label)
+
+label  starts  the  program  from a specific label in the Interface command
+string.   If  it's  not  specified, the system will commence from the first
+program in the list.
+
+        b=Dialog Run(channel,label,x,y)
+
+x,y  set  the  position  of  the control panel on the screen.  All graphics
+coordinates will now be measured from this point.
+
+Warning! 
+
+If you've included a BAse command in your program, your new x,y coordinates
+will be totally ignored.
+
+DIALOG UNFREEZE
+Used  after a DIALOG FREEZE to restart the dialog channel from the point it
+left off.
+
+        Dialog Unfreeze
+
+Starts all suspended channels.
+
+        Dialog Unfreeze channel
+
+Activates a single channel.
+DIALOG UPDATE
+Forces AMOS Interface to redraw the contents of an active zone on the screen.
+
+        Dialog Update channel,zone
+
+channel the number of an active dialogue channel to be updated.
+
+zone enters the number of the zone to be affected.
+
+        Dialog Update channel,zone[,param1][,param2][,param3]
+
+The effect of these parameters depends on the type of your zone.
+
+Param 1:
+
+Button       Enters a new position.
+Active List  Sets the number of the first string displayed
+Slider       Moves the slider
+Digit        Replaces the existing number zone
+Edit         Inserts a new string in the edit zone
+
+Param 2:
+
+Active List  Changes the currently selected string
+Slider       Alters the size of the slider window 
+
+Param3:
+
+Active List  Sets the last element of the array that you can select.
+Slider       Changes the "total" parameter
+
+EDIALOG
+Returns  the  position  of  an error in the current AMOS Interface program.
+It's  used  after  a  TRAP or ON ERROR statement to isolate any problems in
+your Interface routine.
+
+         position=Edialog
+RDIALOG
+{[RAMOSPro_Tutorial:Tutorials/Interface/Editing_zones.AMOS,0,4]=Rdialog}
+
+Reads the position of a particular button or selector.
+
+        b=Rdialog(channel,zone)
+
+channel is the number of a currently open Interface channel
+
+zone specifies the button or zone to be tested.
+
+        b=Rdialog(channel,zone,version)
+
+If  you  omit  the  version number, RDIALOG will return the position of the
+FIRST object you've defined with the current zone number.
+
+RDIALOG$
+{[RAMOSPro_Tutorial:Tutorials/Interface/Editing_zones.AMOS,0,4]=Rdialog$}
+
+Returns  a  piece  of text assigned to a zone.  If your chosen zone doesn't
+actually contain any text, you'll be presented with an empty string "".
+
+        test$=RDIALOG$(channel,zone)
+
+channel is the number of a currently open Interface channel
+
+zone specifies the button or zone to be tested.
+
+        test$=RDIALOG$(channel,zone,version)
+
+If  you  omit  the  version number, RDIALOG will return the contents of the
+FIRST object you've defined with the present zone number.
+The Resource Editor
+This is a seperate program on the AMOS Accessories disc which allows you to
+enter  the various images and messages for your resource banks.  
+
+The  images  are  grabbed  from an IFF format picture.  Once you`ve created
+them,  they  can  be loaded into memory and used directly with the internal
+LIne,BOx, or VLine commands.  You can also enter your very own messages for
+use with the ME function.
+
+See  the  Accessory  section  of  the  AMOS Professional User Guide for
+further details.
+
+RESOURCE BANK
+{[RAMOSPro_Tutorial:Tutorials/Interface/Simple_requester.AMOS,0,4]Resource Bank}
+
+Tells AMOS where to find the resources used by your Interface programs.
+
+        Resource Bank banknumber
+
+banknumber holds the number of the bank to be allocated for your resources.
+If  this  bank  does  not  exist,  you won't get an error, but the editor's
+internal resource bank will be used instead.
+
+RESOURCE SCREEN OPEN
+{[RAMOSPro_Tutorial:Tutorials/Interface/Simple_requester.AMOS,0,4]Resource Screen Open}
+
+Opens  up  a  screen using the screen settings stored in the resource bank.
+These  include the number of colours, the resolution, and the entire colour
+palette.
+
+        Resource Screen Open n,w,h,flash
+
+n selects a screen number from 0 to 7 to be defined.
+
+w specifies the width of the screen in pixels.
+
+h enters the height of your screen in lines.
+
+flash tells AMOS whether or not to flash the cursor colour.  If it's set to
+zero, the flash will be turned off.  Any other value enters a colour number
+to be assigned to the flash effect.
+
+The screen will be automatically installed with the colour palette held in 
+the resource bank
+RESOURCE UNPACK
+Unpacks a single element from the current resource bank, and displays it on
+the screen.
+
+        Resource Unpack n,x,y
+
+n holds the number of the element you wish to display.
+
+x,y specify the position of your new image on the screen.
+RESOURCE$
+Returns one of the messages from the current resource bank, for use by your
+AMOS  program.   If  you  haven't  defined  one  of  these banks, you'll be
+presented with the standard editor messages from the configuration file.
+
+        m$=Resource$(message)
+
+It can also be used to get vital system information.
+
+Message=0 returns the full pathname of the APSystem folder. 
+
+Message between 0 and -1000 returns Interpretor_Configuration system strings.
+
+        -1  to -9 : default file names
+        -10 to -36: all 26 extensions
+        -37 to -38: communication ports
+        -40:        default cursor flashing
+
+Messages between -1000 and -2000 return Editor_Configuration system strings.
+
+-2001 to -2044: diverse stuff used by the editor!
+
+-2045 to -2049: editor system files
+VDIALOG
+{[RAMOSPro_Tutorial:Tutorials/Interface/Sliders.AMOS,0,4]=Vdialog}
+
+Reads or modifies the internal variables in any active Interface program 
+directly from AMOS Basic.
+
+        Vdialog(channel,var)=value
+
+Assigns a value to an Interface variable.
+
+        value=Vdialog(channel,var)
+
+Reads a value from an Interface variable.
+
+channel sets the number of an open dialogue channel.
+
+var indicates the number of the variable to be accessed.
+VDIALOG$
+Reads  or  modifies  the  internal string variables in any active Interface
+program directly from AMOS Basic.
+
+        Vdialog$(channel,var)=value$
+
+Loads an Interface variable with a string.
+
+        value$=Vdialog$(channel,var)
+
+Reads an Interface string into AMOS Basic.
+
+channel specifies the channel number.
+
+var selects the variable.
+
+System Commands
+
+
+                             {[IEXEC  ,4,3] Exec             }
+                             {[ISYSTEM,4,3] System           }
+
+EXEC
+Executes an external program or CLI command.
+
+         Exec "program_name"
+
+As a default, AMOS sends the NIL: device to the instruction. 
+
+         Exec "NEWCLI:"
+
+Opens up a CLI window from your program! 
+SYSTEM
+Quits the AMOS Professional SYSTEM and returns to the Workbench or CLI.  If
+you've  booted  AMOS  Professional from a floppy, you'll now be left with a
+completely blank screen!  Time to boot up another program perhaps?
+
+        System
+
+Input/Output
+
+                        {[IHelpKY      ,4,3] The keyboard                 }
+                        {[IHelpDiscAcc ,4,3] Disc access                  }
+                        {[IHelpPrinter ,4,3] Using the Printer            }
+                        {[IHelpSerial  ,4,3] Serial communications        }
+                        {[IHelpParallel,4,3] The Parallel port            }
+
+AmigaDos
+
+                        {[IHelpLibs    ,4,3] Libraries                    }
+                        {[IHelpDevs    ,4,3] Devices                      }
+                        {[IHelparexx   ,4,3] Arexx                        }
+                        {[IHelpMT      ,4,3] Multi-tasking                }
+                        {[IHelpSysReq  ,4,3] System commands              }
+
+Debugging
+                        {[IERR         ,4,3] =Err$                      }
+                        {[IERRN        ,4,3] =Errn                      }
+                        {[IERROR       ,4,3] Error                      }
+                        {[IERRTRAP     ,4,3] =Errtrap                   }
+                        {[ION ERROR    ,4,3] On Error                   }
+                        {[IRESUME      ,4,3] Resume                     }
+                        {[IRESUME LABEL,4,3] Resume Label               }
+                        {[IRESUME NEXT ,4,3] Resume Next                }
+                        {[ITRAP        ,4,3] Trap                       }
+
+Machine Code
+                   {[IAREG    ,4,3] Areg              } {[ILEEK   ,4,3] =Leek             }
+                   {[IBIN$   ,4,3] =Bin$             } {[ILOKE    ,4,3] Loke              }
+                   {[IBCHG    ,4,3] Bchg              } {[IPEEK   ,4,3] =Peek             }
+                   {[IBTST   ,4,3] =Btst             } {[IPEEK$  ,4,3] =Peek$            }
+                   {[IBCLR    ,4,3] Bclr              } {[IPLOAD   ,4,3] Pload             }
+                   {[IBSET    ,4,3] Bset              } {[IPOKE    ,4,3] Poke              }
+                   {[ICALL    ,4,3] Call              } {[IPOKE$   ,4,3] Poke$             }
+                   {[ICOPY    ,4,3] Copy              } {[IROL.B   ,4,3] Rol.B             }
+                   {[IDEEK   ,4,3] =Deek             } {[IROL.L   ,4,3] Rol.L             }
+                   {[IDOKE    ,4,3] Doke              } {[IROL.W   ,4,3] Rol.W             }
+                   {[IDREG    ,4,3] Dreg              } {[IROR.B   ,4,3] Ror.B             }
+                   {[IFILL    ,4,3] Fill              } {[IROR.L   ,4,3] Ror.L             }
+                   {[IHEX$   ,4,3] =Hex$             } {[IROR.W   ,4,3] Ror.W             }
+                   {[IHUNT    ,4,3] Hunt              } {[IVARPTR ,4,3] =Varptr           }
+AREG
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]=Areg}
+
+AREG is an internal  array of three "pseudo" variables, used to hold copies 
+of the 68000 processor chip's first three Address REGisters A0 to A2.
+
+        a=Areg(r)
+        Areg(r)=a
+BIN$
+{[RAMOSPro_Examples:Examples/H-5/Help_56.AMOS,0,4]=Bin$}
+
+Converts a decimal number into an appropriate string of BINary digits
+
+These digits are limited to one of the two values "0" and "1"
+
+        =Bin$(number)
+
+Returns the binary number using the fewest possible digits.
+
+        =Bin$(number,n)
+
+Returns the first n digits in the number.
+BCHG
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Bchg}
+
+Flips the selected bit in the number from 0 to 1 or vice versa.
+
+        Bchg position,variable
+
+Affects the contents of a single AMOS variable. 
+
+Position holds a value from 0 to 31 which enters the bit number to be changed. 
+
+        Bchg position,expression
+
+If you use an expression rather than a simple variable, BGHG will treat it as
+the ADDRESS in memory of a value to be changed.
+BCLR
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Bclr}
+
+Replaces the chosen binary bit with a value of zero.
+
+        Bclr position,variable
+
+Changes the bit in a normal AMOS variable.
+
+        Bclr position,expression
+
+Zeros the bit at the ADDRESS given by the expression.
+BSET
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Bset}
+
+Sets an individual binary bit in your number to 1.
+
+        Bset position,variable
+
+Affects the contents of a variable.
+
+        Bset position,expression
+
+Sets the bit at an ADDRESS in memory.
+BTST
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]=Btst}
+
+Tests a single bit in your number and returns a value of -1 (true) if it's a
+one, or 0 (False) if it's a zero.
+
+        test=Btst(position,variable)
+
+Checks a bit in your selected variable. position holds a bit number ranging
+from 0 to 31.
+
+        test=Btst(position,expression)
+
+Evaluates the expression, and tests the bit at the resulting memory ADDRESS.
+The bit position is restricted to values from 0 to 7.
+CALL
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]Call}
+
+Executes a 68000 machine code program from either an address in memory,or a
+memory  bank.  This program should have been previously installed using the
+PLOAD instruction from AMOS Basic.
+
+        Call address
+        Call bank number
+
+You  can  also  include  paramters  in  this  instruction.   These  will be
+automatically pushed onto the A3 stack at the start of your routine.
+
+        Call address,parameter list
+        Call bank number,parameter list
+COPY
+{[RAMOSPro_Examples:Examples/H-5/Help_56.AMOS,0,4]Copy}
+
+COPY is used to move large chunks of Amiga memory from one location to 
+another.
+
+        Copy start, finish To destination
+DEEK
+{[RAMOSPro_Examples:Examples/H-5/Help_57.AMOS,0,4]=Deek}
+
+Reads a two-byte word from an EVEN memory address.
+
+        Print Deek(address)
+DOKE
+{[RAMOSPro_Examples:Examples/H-5/Help_57.AMOS,0,4]Doke}
+
+Loads a two-byte number into an EVEN memory address.
+
+        Doke address,value
+DREG
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]=Dreg}
+
+DREG is a variable used to pass information to and from the Amiga's 68000 data
+registers. (D0 to D7)
+
+        d=Dreg(r)
+        Dreg(r)=d
+FILL
+{[RAMOSPro_Examples:Examples/H-5/Help_56.AMOS,0,4]Fill}
+
+Fills a selected area of memory with a four-byte FILL pattern.
+
+All addresses MUST BE EVEN! 
+
+        Fill start To finish, pattern
+
+HEX$
+{[RAMOSPro_Examples:Examples/H-5/Help_56.AMOS,0,4]=Hex$}
+
+Translates a number into a list of HEXadecimal digits. 
+
+These digits can take any of sixteen values from "0" to "9" and "A" through 
+"F".
+
+        =Hex$(number)
+
+Returns the Hexadecimal number using the fewest possible digits.
+
+        =Hex$(number,n)
+
+Returns the first n digits in the number.
+HUNT
+{[RAMOSPro_Examples:Examples/H-5/Help_56.AMOS,0,4]=Hunt}
+
+Hunts for a series of ASCII characters in the Amiga's memory. 
+
+        first=Hunt(start To finish,s$)
+
+After the search is complete test will be loaded with the first occurrence 
+of the string s$ in memory.
+LEEK
+{[RAMOSPro_Examples:Examples/H-5/Help_57.AMOS,0,4]=Leek}
+
+Reads a four-byte word stored at the even numbered memory address.
+
+        Print Leek(address)
+LOKE
+{[RAMOSPro_Examples:Examples/H-5/Help_57.AMOS,0,4]Loke}
+
+Copies a four-byte number into an even address in memory.
+
+        Loke address,number
+
+PEEK
+{[RAMOSPro_Examples:Examples/H-5/Help_57.AMOS,0,4]=Peek}
+
+Returns the contents of an 8-bit byte at the specified memory address.
+
+        B=Peek(address)
+PEEK$
+
+PEEK$ reads length characters from your address and returns it as a normal 
+AMOS string. 
+
+        s$=PEEK$(address, length)
+        S$=PEEK$(address, length,stop$)
+
+address is the location of the first character to be read.
+
+length holds the maximum number of characters to copy into the new string. 
+If it's not a sensible value, the length will be assumed to be 65500.
+
+stop$ sets an optional break character. If it's included, AMOS will stop 
+reading the moment it encounters a stop$ character in your memory area.
+PLOAD
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]Pload}
+
+Reserves a memory bank and LOADs it with machine code from the disc.
+
+        Pload "filename",banknumber
+
+If banknumber is negative, it will be multiplied by -1 to calculate the number
+of an AMOS memory bank. Your program will now be installed in CHIP RAM if it's
+available. 
+POKE
+{[RAMOSPro_Examples:Examples/H-5/Help_57.AMOS,0,4]Poke}
+
+Shoves a byte number in the range from 0 to 255 into the your chosen memory
+address.
+
+        Poke address,number
+POKE$
+
+Takes a source string and copies it directly to your chosen memory locations,
+a character at a time.
+
+POKE$ address, string$
+
+address holds the address of the first byte to be loaded with your new string
+data. The copying operation will continue until AMOS reaches the last 
+character in your source string. Therefore, the end address will be:
+
+address+Len(string$)-1
+ROL.B
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Rol.B}
+
+Rotates the first eight binary bits in a number a specific number of places 
+to the left.
+
+        Rol.B places,variable
+        Rol.B places,expression
+
+Note: If you enter an expression in this instruction, it will be treated as 
+an ADDRESS.
+ROL.L
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Rol.L}
+
+Rotates all 32 bits in your number to the left.
+
+        Rol.L places,variable
+        Rol.L places,expression
+
+variable is a normal AMOS variable you wish to rotate.
+
+An expression is evaluated by AMOS Basic, and used as address of some data
+you wish to change.
+ROL.W
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Rol.W}
+
+Rotates the first sixteen bits in your variable or memory location to the 
+left.
+        Rol.W places,variable
+        Rol.W places,expression
+
+If you use an expression rather than a variable, it will be treated as 
+an address. 
+ROR.B
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Ror.B}
+
+Rotates the first binary bits in a number a specific number of places to the
+right.
+
+        Ror.B places,variable
+        Ror.B places,expression
+
+Note: If you enter an expression in this instruction, it will be treated as 
+an ADDRESS. 
+ROL.L
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Ror.L}
+
+Rotates all the bits in your number to the right.
+
+        Ror.L places,variable
+        Ror.L places,expression
+
+variable is a normal AMOS variable you wish to rotate.
+
+An expression is evaluated by AMOS Basic, and used as address of some data 
+you wish to change.
+ROR.W
+{[RAMOSPro_Examples:Examples/H-5/Help_55.AMOS,0,4]Ror.W}
+
+Rotates the first sixteen bits in your variable or memory location to the
+right.
+
+        Rol.W places,variable
+        Rol.W places,expression
+
+If you use an expression rather than a variable, it will be treated as an 
+address instead.
+VARPTR
+{[RAMOSPro_Examples:Examples/H-5/Help_56.AMOS,0,4]=Varptr}
+
+Returns the address of an AMOS Basic VARiable in memory. Warning! 
+
+The address of string variable can change dramaticaly during the course of 
+your programs. So only POKE values into an address you KNOW to be correct!
+
+        address=Varptr(variable)
+
+See the AMOSPro User Guide for a complete explanation of this feature.
+
+Tables
+
+                        {[IHelpAscTab  ,4,3] Ascii table                  }
+                        {[IHelpScantab ,4,3] Useful scancodes             }
+Miscellaneous commands
+                        {[IADD     ,4,3] Add                            }
+                        {[IAND     ,4,3] And                            }
+                        {[IDATA    ,4,3] Data                           }
+                        {[IDEC     ,4,3] Dec                            }
+                        {[IFALSE  ,4,3] =False                         }
+                        {[IINC     ,4,3] Inc                            }
+                        {[INOT     ,4,3] Not                            }
+                        {[IOR      ,4,3] Or                             }
+                        {[IREAD    ,4,3] Read                           }
+                        {[IRESTORE ,4,3] Restore                        }
+                        {[ITIMER   ,4,3] Timer                          }
+                        {[ITRUE   ,4,3] =True                          }
+                        {[IWAIT    ,4,3] Wait                           }
+                        {[IMOD     ,4,3] =Mod                           }
+ADD
+{[RAMOSPro_Examples:Examples/H-0/Help_1.amos,0,4]Add}
+
+Adds a number or expression to an integer variable at maximum speed.
+
+        Add variable,expression
+
+There's also a second, more powerful version of the command as well.
+
+        Add variable,expression,min To max
+
+Adds your expression to the variable as before. But after the result reaches
+one of the limits, the variable cycles back from the start.
+
+AND
+Performs a logical AND operation between your two numbers.  It's often used
+as part of a test to check for a number of different eventualities.
+
+        Print A and B
+        If T=2 and V=3 Then Print "TV"
+DATA
+{[RAMOSPro_Examples:Examples/H-4/Help_48.AMOS,0,4]Data}
+
+Enters  a  list  of DATA items into an AMOS Professional program, which can
+then be loaded into one or more variables using the READ instruction.  Each
+item must be separated by a comma.
+
+        Data 1,2,3,"AMOS Professional"
+DEC
+{[RAMOSPro_Examples:Examples/H-0/Help_1.amos,0,4]Dec}
+
+Quickly subtracts one from your selected integer variable.
+
+        Dec variable
+FALSE
+{[RAMOSPro_Examples:Examples/H-5/Help_53.AMOS,0,4]=False}
+
+Returns  a  value  of  zero.   This value is used by tests to represent the
+failure of a condition.
+
+        If False Then Print "This will NEVER be printed!"
+        Print False
+INC
+{[RAMOSPro_Examples:Examples/H-0/Help_1.amos,0,4]Inc}
+
+Quickly adds a value of one to an integer variable.
+
+        Inc variable
+MOD
+MOD  is  a  useful  little  function  which  allows you to cycle a variable
+through a repetitive series of values.  It works by returning the remainder
+after a division.
+
+        r=v Mod d
+
+This is equivalent to:
+
+        R=v - Int(v/d)*d
+NOT
+{[RAMOSPro_Examples:Examples/H-5/Help_53.AMOS,0,4]Not}
+
+Switches  every  binary  digit  in  your  number to a different state.  It's
+commonly  used as part of a IF..THEN statement to reverse the effect of the
+tests.
+
+       Print Bin$(Not %1010,4)
+       If Not (A=1 and B=2) Then Print "Successful"
+OR
+Combines two binary bit patterns together.  OR is generally used as part of
+a test, to check a number of exclusive possibilities.
+
+      Print 1 or 2
+      If A=2 or B=3 Then Print A*B
+READ
+{[RAMOSPro_Examples:Examples/H-4/Help_48.AMOS,0,4]Read}
+
+READs  information  from a DATA statement into a list of variables, using a
+special  marker to locate the next item of data to be read.  Variables must
+be  the  same  type as the data already held at the current position in the
+program, and should be separated by commas.
+
+        Read list of variables
+
+RESTORE
+{[RAMOSPro_Examples:Examples/H-4/Help_48.AMOS,0,4]Restore}
+
+Changes the position of the starting point used by the next READ operation.
+
+        Restore label
+        Restore number
+TIMER
+{[RAMOSPro_Examples:Examples/H-5/Help_53.AMOS,0,4]=Timer}
+
+is a reserved variable that counts off TIME in units of one 50th of a second.
+
+
+        t=Timer
+TRUE
+{[RAMOSPro_Examples:Examples/H-5/Help_53.AMOS,0,4]=True}
+
+Returns  a value of -1.  This is generated by tests such as (A=3) or (B<>4)
+and denotes a successful check.
+
+         If -1 Then Print "Minus 1 is True"
+         If True Then Print "and True is";True
+WAIT
+{[RAMOSPro_Examples:Examples/H-5/Help_53.amos,0,4]Wait}
+
+Pauses  an  AMOS  Professional  program and makes it WAIT for the number of
+50ths of a second you specify.
+
+       Wait delay
+Screen Zones
+
+                        {[IHZONE      ,4,3] =Hzone                      }
+                        {[IMOUSE ZONE ,4,3] =Mouse Zone                 }
+                        {[IRESERVE ZONE,4,3] Reserve Zone                }
+                        {[IRESET ZONE  ,4,3] Reset Zone                  }
+                        {[ISET ZONE    ,4,3] Set Zone                    }
+                        {[IZONE       ,4,3] =Zone                       }
+
+HZONE
+{[RAMOSPro_Examples:Examples/H-2/Help_23.AMOS,0,4]=Hzone}
+
+Finds the screen zone at the requested HARDWARE coordinates.
+
+         zone_number=Hzone(hx,hy)
+
+MOUSE ZONE
+{[RAMOSPro_Examples:Examples/H-2/Help_23.AMOS,0,4]=Mouse Zone}
+
+Finds the screen ZONE under MOUSE pointer.
+
+        zone_number=Mouse Zone
+RESERVE ZONE
+{[RAMOSPro_Examples:Examples/H-2/Help_21.AMOS,0,4]Reserve Zone}
+
+RESERVEs enough memory for a selected number of detection ZONEs.  This must
+be  set  up  before you define your zones using SET ZONE.  If you leave out
+the number of zones, all current zone definitions will be wiped out.
+
+        Reserve Zone zone_number
+        Reserve Zone
+RESET ZONE
+{[RAMOSPro_Examples:Examples/H-2/Help_23.AMOS,0,4]Reset Zone}
+
+Erases one or more screen ZONEs from the display.
+
+        Reset Zone
+
+Kills all currently defined zones. Dead!
+
+        Reset Zone zone_number
+
+Only resets a single zone.
+SET ZONE
+{[RAMOSPro_Examples:Examples/H-2/Help_21.AMOS,0,4]Set Zone}
+
+SETs up a rectangular screen ZONE for testing with the ZONE functions.
+
+        Set Zone number,tx,ty To bx,by
+
+tx,ty hold the coordinates of the top left corner of your zone.
+
+bx,by enter the point diagonally opposite.
+ZONE
+{[RAMOSPro_Examples:Examples/H-2/Help_23.AMOS,0,4]=Zone}
+
+Returns  the  number  of  the  current  screen ZONE at the selected graphic
+coordinates.
+
+        Zone number=Zone(x,y)
+
+You can also include a screen number with this function as well.
+
+        zone number=Zone(screennumber,x,y)
+Text
+             {[IAT        ,4,3] =At        } {[ICLINE      ,4,3] Cline      } {[IPAPER      ,4,3] Paper      } {[ITAB$      ,4,3] =Tab$      }
+             {[IBORDER$   ,4,3] =Border$   } {[IFONTDAT    ,4,3] Font Editor} {[IPAPER$    ,4,3] =Paper$    } {[IUNDER ON   ,4,3] Under On   }
+             {[ICDOWN$    ,4,3] =Cdown$    } {[ICMOVE      ,4,3] Cmove      } {[IPEN        ,4,3] Pen        } {[IUNDER OFF  ,4,3] Under Off  }
+             {[ICUP$      ,4,3] =Cup$      } {[IHOME       ,4,3] Home       } {[IPEN$      ,4,3] =Pen$      } {[IUSING      ,4,3] Using      }
+             {[ICLEFT$    ,4,3] =Cleft$    } {[ICMOVE$     ,4,3] Cmove$     } {[IPRINT      ,4,3] Print      } {[IWRITING    ,4,3] Writing    }
+             {[ICUP       ,4,3] Cup        } {[IINVERSE ON ,4,3] Inverse On } {[IREMEMBER X ,4,3] Remember X } {[IX GRAPHIC  ,4,3] =X Graphic }
+             {[ICDOWN     ,4,3] Cdown      } {[ICRIGHT     ,4,3] Cright     } {[IREMEMBER Y ,4,3] Remember Y } {[IX CURS    ,4,3] =X Curs    }
+             {[ICENTRE    ,4,3] Centre     } {[IINVERSE OFF,4,3] Inverse Off} {[IREPEAT$   ,4,3] =Repeat$   } {[IX TEXT    ,4,3] =X Text    }
+             {[ICURS OFF  ,4,3] Curs Off   } {[ICRIGHT$    ,4,3] =Cright$   } {[ISET CURS   ,4,3] Set Curs   } {[IY TEXT    ,4,3] =Y Text    }
+             {[ICURS ON   ,4,3] Curs On    } {[ILOCATE     ,4,3] Locate     } {[ISET TAB    ,4,3] Set Tab    } {[IY CURS    ,4,3] =Y Curs    }
+             {[ICLEFT     ,4,3] Cleft      } {[IMEMORIZE Y ,4,3] Memorize Y } {[ISHADE ON   ,4,3] Shade On   } {[IYGRAPHIC  ,4,3] =Y Graphic }
+             {[ICURS PEN  ,4,3] Curs Pen   } {[IMEMORIZE X ,4,3] Memorize X } {[ISHADE OFF  ,4,3] Shade Off  } {[IZONE$     ,4,3] =Zone$     }
+
+AT
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]=At}
+
+Adds  special  control  codes  to a string which allow you to move the text
+cursor directly as the string is printed.
+
+        T$=At(x,y)+"Moved Text"
+BORDER$
+{[RAMOSPro_Examples:Examples/H-2/Help_21.AMOS,0,4]=Border$}
+
+Displays a border around your text when it's printed on the screen.
+
+
+        b$=Border$("string",n)
+
+n  can  range  between  1  and  16,  but  only  the first three borders are
+currently defined.
+
+Note  that Border$ needs room for an extra character for the border.  So it
+should only be used if the X coordinate is larger than 0.
+
+CDOWN
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]Cdown}
+
+Moves the text cursor one place down.
+
+        Cdown
+CDOWN$
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]=Cdown$}
+
+Returns  a  control  string  which moves the cursor one character downwards
+when it is printed.
+
+        Print Cdown$
+
+CDOWN$ is also returned when you press the DOWN ARROW key from the keyboard.
+CENTRE
+{[RAMOSPro_Examples:Examples/H-2/Help_20.AMOS,0,4]Centre}
+
+Centres your text neatly on the current cursor line.
+
+        Centre "text"
+
+        Centre "this is in the centre"
+CLEFT
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]=Cleft}
+
+Moves the text cursor one place to the left.
+
+        Cleft
+CLEFT$
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]=Cleft$}
+
+Returns  a  control string which moves the cursor one character to the left
+when it is printed.
+
+        Print Cleft$
+
+CLEFT$ is also returned when you press the LEFT ARROW key from the keyboard.
+CLINE
+{[RAMOSPro_Examples:Examples/H-2/Help_20.AMOS,0,4]Cline}
+
+Clears the entire line starting from the current cursor position.
+
+        Cline
+
+        Cline n
+
+Erases the first n characters in the line.
+CMOVE
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]Cmove}
+
+Moves the text cursor to a new location, relative to the current position. 
+
+        Cmove unitsright,unitsdown
+
+Providing you leave in the comma, either of the distances can be omitted.
+CMOVE$
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]=Cmove$}
+
+Generates  some  codes  which move the text cursor relative to its present
+position.
+
+        Print Cmove$(unitsright,unitsdown)
+CRIGHT
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]Cright}
+
+Moves the text cursor one place to the right.
+
+        Cright
+CRIGHT$
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]=Cright$}
+
+Returns  a control string which moves the cursor one character to the right
+when it is printed.
+
+        Print Cright$
+
+CRIGHT$ is also returned when you press the RIGHT ARROW key.
+CUP
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]Cup}
+
+Moves the text cursor one place up.
+
+        Cup
+CUP$
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]=Cup$}
+
+Returns  a  control  string  which moves the cursor one place up when it is
+printed.
+
+        Print Cup$
+
+CUP$ is also returned when you press the UP ARROW key.
+CURS OFF
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Curs Off}
+
+Disables the flashing text CURSor of the current screen
+
+        Curs Off
+CURS ON
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Curs On}
+
+Automatically displays a flashing bar at the current cursor position.
+
+        Curs On
+CURS PEN
+{[RAMOSPro_Examples:Examples/H-2/Help_20.AMOS,0,4]Curs Pen}
+
+Changes  the  colour  of  the  text cursor when it's visible on the screen.
+It's usually colour three.
+
+        Curs Pen index
+Font Editor
+{[RAMOSPro_Accessories:Font8x8_Editor.AMOS] Font Editor}
+
+The  AMOSPro  font editor allows you to generate your own 8x8 fonts for all
+your  text operations.  You can also access any of the standard Amiga fonts
+with the alternative `Graphic Text` commands.
+
+HOME
+{[RAMOSPro_Examples:Examples/H-1/Help_18.AMOS,0,4]=Home}
+
+Moves  your  text  cursor  HOME  to the top-left-hand corner of the current
+screen:  in other words to TEXT coordinates 0,0.
+
+        Home
+INVERSE ON
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Inverse On}
+
+Swaps text and background colours for all future text operations.
+
+        Inverse On
+INVERSE OFF
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Inverse Off}
+
+Deactivates inverse mode.
+
+        Inverse Off
+LOCATE
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]Locate}
+
+Moves the text cursor to the new LOCATion on the screen.  As you are moving
+a  text  cursor,  you  should  enter  the location in character coordinates
+rather than pixel coordinates.
+
+        Locate x,y
+MEMORIZE X
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Memorize X}
+
+Saves the X coordinate of the text cursor.
+
+        Memorize X
+
+The coordinate can be recalled using REMEMBER X
+MEMORIZE Y
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Memorize Y}
+
+Stores the Y coordinate of the text cursor in memory.
+
+        Memorize Y
+PAPER
+{[RAMOSPro_Examples:Examples/H-1/Help_15.AMOS,0,4]Paper}
+
+Sets the colour to be used as the background PAPER for your text PEN.
+
+        Paper colournumber
+PAPER$
+{[RAMOSPro_Examples:Examples/H-1/Help_15.AMOS,0,4]=Paper$}
+
+Returns  an  internal  code  which  changes  the paper colour whenever it's
+printed on the screen.
+
+        T$=Paper$(colournumber)
+PEN
+{[RAMOSPro_Examples:Examples/H-1/Help_15.AMOS,0,4]Pen}
+
+Sets the colour of the PEN to be used for writing text in the current screen. The colour can be selected from one of 64 alternative colours, �depending on your current graphics mode.
+
+        Pen colournumber
+PEN$
+{[RAMOSPro_Examples:Examples/H-1/Help_15.AMOS,0,4]=Pen$}
+
+Returns a control code which changes the pen colour inside a piece of text.
+
+        T$=PEN$(colour)
+PRINT
+{[RAMOSPro_Examples:Examples/H-5/Help_52.AMOS,0,4]Print}
+
+PRINTs  items  on screen, made up from any groups of variables or constants
+separated  by semi-colons or commas.  As a short-cut, the [?] character key
+can be used instead.
+
+        Print variable list
+        ? variable list
+REMEMBER X
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Remember X}
+
+Moves the text cursor to the position you've previously saved with
+MEMORIZE X.
+
+        Remember X
+REMEMBER Y
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Remember Y}
+
+Restores  the  cursor  to  the  Y  coordinated you've previously saved with
+MEMORIZE Y.
+
+        Remember Y
+REPEAT$
+{[RAMOSPro_Examples:Examples/H-2/Help_20.AMOS,0,4]=Repeat$}
+
+Repeats  the  string  of  characters  in  S$ n times on the screen.  Only a
+single copy of S$ is kept in memory.
+
+        c$=REPEAT$(s$,n)
+SET CURS
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]Set Curs}
+
+Alters the shape of the CURSor by changing the bit-patterns L1 to L8.
+
+        Set Curs L1,L2,L3,L4,L5,L6,L7,L8
+SET TAB
+{[RAMOSPro_Examples:Examples/H-2/Help_20.AMOS,0,4]Set Tab}
+
+Sets the distance to be moved when a TAB character is printed.
+
+        Set Tab n
+SHADE ON
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Shade On}
+
+Starts up an attractive shading effect for all future text.
+
+        Shade On
+
+SHADE OFF
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Shade Off}
+
+Deactivates shading effect.
+
+        Shade Off
+TAB$
+{[RAMOSPro_Examples:Examples/H-2/Help_20.AMOS,0,4]=Tab$}
+
+Returns  a  TAB character.  This will move the cursor several places to the
+right when it's printed on the screen.  See SET TAB
+
+        Print Tab$;"test"
+USING
+{[RAMOSPro_Examples:Examples/H-5/Help_52.AMOS,0,4]Using}
+
+USING  is  called  after a PRINT statement for making subtle changes to the
+way output is printed from a variable list.  Special characters can be used
+in the format$ string, each one having a different effect.
+
+        Print Using format$;variable list.
+
+The format string can contain the following symbols:
+
+# print a single digit from your number.  Unused digits will be replaced by
+  spaces.
+
++ adds a + or - sign to the number as appropriate.
+
+- displays a minus sign if the number is negative.
+
+. inserts a decimal point on the number and centres it.
+
+; centres the number but doesn`t output a decimal point.
+
+^ prints the number in scientific, or exponential format.
+WRITING
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Writing}
+
+Sets the writing mode for all future text operations.
+
+        Writing w1[,w2]
+
+The first value selects the actual writing style.
+
+=1 REPLACE (default)
+=2 OR
+=3 XOR
+=4 AND
+=5 IGNORE (don't do any printing at all!)
+
+The  second  value  allows  you  to choose which parts of your text will be
+printed on the screen.
+
+=0  Normal. Both Ink and Paper will be printed
+=1  Paper.  Only print the background
+=2  Pen     Writes the text on a background of colour zero. 
+            Useful with OR mode.
+X CURS
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]=X Curs}
+
+Returns the X coordinate of your text CURSor, in text format.
+
+        x=Xcurs
+X GRAPHIC
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]=X Graphic}
+
+Converts a X coordinate in TEXT format into a normal screen coordinate.
+
+        tx=X Graphic(x)
+X TEXT
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]=X Text}
+
+Converts an X coordinate from graphic format into a TEXT format coordinate,
+relative  to  the  current  screen.  If the screen coordinate is outside of
+this screen then a negative result will be given.
+
+        t=X Text(xcoordinate)
+YCURS
+{[RAMOSPro_Examples:Examples/H-1/Help_19.AMOS,0,4]=Y Curs}
+
+Returns Y coordinate is of your text CURSor, in text format.
+
+        y=Ycurs
+Y GRAPHIC
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]=Y Graphic}
+
+Converts a Y coordinate from text format to screen format.
+
+        Y Graphic(ty)
+Y TEXT
+{[RAMOSPro_Examples:Examples/H-1/Help_17.AMOS,0,4]=Y Text}
+
+Converts  a Y coordinate from graphic format into a TEXT format coordinate,
+relative  to  the  current  screen.  If the screen coordinate is outside of
+this screen then a negative result will be given.
+
+        t=Y Text(ycoordinate)
+
+UNDER ON
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Under On}
+
+Underlines all future text.
+
+        Under On
+
+Starts underline mode
+UNDER OFF
+{[RAMOSPro_Examples:Examples/H-1/Help_16.AMOS,0,4]Under Off}
+
+Turns off underline mode.
+
+        Under Off
+ZONE$
+{[RAMOSPro_Examples:Examples/H-2/Help_21.AMOS,0,4]=Zone$}
+
+Defines  a  screen  zone around your text.  This can be used in conjunction
+with the MOUSE ZONE function to create simple buttons.
+
+        t$=Zone$(button$,z)
+
+Where z is the number of your new zone.
+Disc Access
+
+                {[IAPPEND      ,4,3] Append        } {[IDIR/W       ,4,3] Dir/w         } {[ILOF        ,4,3] =Lof          }
+                {[IASSIGN      ,4,3] Assign        } {[IEOF        ,4,3] =Eof          } {[IMKDIR       ,4,3] Mkdir         }
+                {[ICLOSE       ,4,3] Close         } {[IEXIST      ,4,3] =Exist        } {[IOPEN IN     ,4,3] Open In       }
+                {[IDEV FIRST$ ,4,3] =Dev First$   } {[IFIELD       ,4,3] Field         } {[IOPEN OUT    ,4,3] Open Out      }
+                {[IDEV NEXT$  ,4,3] =Dev Next$    } {[IFSEL$      ,4,3] =Fsel$        } {[IOPEN RANDOM ,4,3] Open Random   }
+                {[IDFREE      ,4,3] =Dfree        } {[IGET         ,4,3] Get           } {[IPARENT      ,4,3] Parent        }
+                {[IDIR$       ,4,3] =Dir$         } {[IINPUT#      ,4,3] Input#        } {[IPOF        ,4,3] =Pof          }
+                {[IDIR FIRST$ ,4,3] =Dir First$   } {[IINPUT$     ,4,3] =Input$       } {[IPRINT#      ,4,3] Print#        }
+                {[IDIR NEXT$  ,4,3] =Dir Next$    } {[IKILL        ,4,3] Kill          } {[IPUT         ,4,3] Put           }
+                {[IDISC INFO$ ,4,3] =Disc Info$   } {[ILDIR        ,4,3] Ldir          } {[IRENAME      ,4,3] Rename        }
+                {[IDRIVE      ,4,3] =Drive        } {[ILDIR/W      ,4,3] Ldir/w        } {[ISET DIR     ,4,3] Set Dir       }
+                {[IDIR         ,4,3] Dir           } {[ILINE INPUT# ,4,3] Line Input#   } {[ISET INPUT   ,4,3] Set Input     }
+
+APPEND
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]Append}
+
+Adds information to the end of an existing sequential file, allowing you to
+expand your file after it has been defined.
+
+        Append channelnumber,name$
+ASSIGN
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]Assign}
+
+Assigns  a general name to a folder or device just like the normal AmigaDos
+ASSIGN instruction.
+
+Assign "Disc_Name:" To "Path:Name/"
+
+"Disc_Name:"
+
+Holds  a  string  with  the  name  of  the  assigned  disc  to create.  The
+semi-colon is mandatory and no spaces are allowed.
+
+"Path:Name/" 
+
+This must be a valid pathname to either a directory or a file.
+CLOSE
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]Close}
+
+CLOSEs one or more files on the disc.
+
+        Close
+
+Closes ALL the current files.
+
+        Close filenumber
+
+Closes a single file.
+DEV FIRST$
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]=Dev First$}
+
+Returns  a  string containing the name of the FIRST DEVice from the current
+device list.
+
+        dev$=Dev First$("filter")
+DEV NEXT$
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]=Dev Next$}
+
+Returns  the  NEXT DEVice name that satisfies the filter used by a previous
+DEV  FIRST$ call.  If the end of the device list is reached, a blank string
+will be returned.
+
+        dev$=Dev Next$
+DFREE
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]=Dfree}
+
+Reveals the amount of free Disc space on the current device,in bytes.
+
+        Print Dfree
+DIR
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]Dir}
+
+Prints out the DIRectory of files held on your current disc.
+
+Here are some typical uses.
+
+        Dir "Df0:" : Rem List all files in internal drive
+        Dir "Examples:" : Rem List all files on named disc
+        Dir "A*" : Rem List all files starting with A
+        Dir "*.*" : Rem List all files with an extension
+DIR/W
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]Dir/W}
+
+Displays the DIRectory of your current disc in twin columns.
+
+        Dir/w "Df0:"
+DIR FIRST$
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]=Dir First$}
+
+Returns  a  string  containing the name and the length of the FIRST file in
+the disc DIRectory.
+
+        Print Dir First$("*.*")
+DIR NEXT$
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]=Dir Next$}
+
+Returns  the NEXT filename in the DIRectory listing created by a DIR FIRST$
+command.
+
+        F$=Dir Next$
+DIR$
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]=Dir$}
+
+Enters  or reads the name of the directory to be used as the starting point
+for subsequent disc operations.
+
+        s$=DIR$
+        DIR$=s$
+DISC INFO$
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]=Disc Info$}
+
+Returns  a  string containing INFOrmation on a named file or directory in a
+disc.   The  information  is  returned  in the form of the name of the disc
+followed by the available free space.
+
+        a$=Disc Info$("name")
+DRIVE
+Checks for the existence of a specific drive.
+
+        test=Drive("drive")
+
+If  the drive is connected to your Amiga,m you'll get a value of -1 (True),
+otherwise the result will be 0 (False)
+
+        Print Drive("Dh0")
+EOF
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]=Eof}
+
+Tests  to  see  if the End Of a File has been reached, returning -1 for yes
+and 0 for a no.
+
+        flag=Eof(channel)
+EXIST
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]=Exist}
+
+Checks  to  see  if  a specific file or directory actually exists.  If it's
+available,  you'll  get  a value of True (-1).  Otherwise you'll get a zero
+instead.
+
+        test=Exist("pathname")
+        test=Exist("filename")
+FIELD
+{[RAMOSPro_Examples:Examples/H-7/Help_71.AMOS,0,4]Field}
+
+Defines a record up to 65535 bytes long, for a random-access file.
+
+       Field channel, length As field$
+
+FSEL$
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]=Fsel$}
+
+Opens  an  AMOS  Professional  File  SELector allowing you to choose a file
+directly from disc, starting from the search pattern in path$.
+
+        f$=Fsel$(path$)
+
+You  may  also enter a default filename with default$, and include optional
+title strings.
+
+        f$=Fsel$(path$,title1$,title2$)
+
+        f$=Fsel$(path$,default$,title1$,title2$)
+GET
+{[RAMOSPro_Examples:Examples/H-7/Help_71.AMOS,0,4]Get}
+
+Fetches  a  record  stored  in an OPENed random access file, and loads this
+into a set of string variables you`ve selected with the FIELD command.
+
+        Get channel,record_number
+INPUT#
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]Input#}
+
+Reads information from a file or a device and loads it into your variables.
+
+        Input# channel,variable list
+INPUT$
+There are two different forms of this command.  The simplest reads a number
+of characters straight from the keyboard.
+
+        x$=Input$(character count)
+
+{[RAMOSPro_Examples:Examples/H-4/Help_42.AMOS,0,4]=Input$}(characters)
+
+You can also enter your characters directly from an open file or a device.
+
+        x$=Input$(channel,character count)
+
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]=Input$}(channel,characters)
+
+KILL
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]Kill}
+
+Permanently deletes a selected file from the disc.
+
+       Kill filename
+LDIR
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]Ldir}
+
+Lists out the DIRectory of your files onto the printer, if it's available.
+
+          Ldir "pathname"
+LDIR/W
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]Ldir/W}
+
+Lists  the  DIRectory  of  your disc onto the printer, using a compact, two
+column format.
+
+          Ldir/w "Df0:"
+LINE INPUT#
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]Line Input#}
+
+INPUTs  a  list  of  variables  one  at  a  time  from the device opened to
+#channel,  separated  by  your  selected  character,  instead of the normal
+comma.
+
+        Line Input #channel,separator$,variable list
+LOF
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]=Lof}
+
+Returns the Length of an Open File.
+
+        length=Lof(channel)
+MKDIR
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]Mkdir}
+
+Creates  a  new  directory or folder on the disc, starting from the current
+path.
+
+      Mkdir folder$
+OPEN IN
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]Open In}
+
+OPENs a sequential file for INput.
+
+        Open In channelnumber,filename$
+
+Available channels range from 1 to 10.
+OPEN OUT
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]Open Out}
+
+OPENs a file for OUTput, identified via channels 1 to 10.
+
+        Open Out channelnumber,filename$
+OPEN RANDOM
+{[RAMOSPro_Examples:Examples/H-7/Help_71.AMOS,0,4]Open Random}
+
+OPENs  a RANDOM access file on the current disc.  Before using one of these
+files, you should set up the record structure with the FIELD command.
+
+        Open Random channelnumber,filename$
+PARENT
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]Parent}
+
+Moves the current search path to the parent of the present directory.
+POF
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]=Pof}
+
+Changes the reading or writing POsition of a File.
+
+        Pof(channelnumber)=position
+PRINT#
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]=Print#}
+
+PRINTs a list of variables to a file or to a device.
+
+        Print #channel,variable list
+PUT
+{[RAMOSPro_Examples:Examples/H-7/Help_71.AMOS,0,4]Put}
+
+Takes  a  record from memory and PUTs it into a selected record number of a
+random access file.
+
+        Put channelnumber,recordnumber
+RENAME
+{[RAMOSPro_Examples:Examples/H-4/Help_45.AMOS,0,4]Rename}
+
+Renames your selected file on the disc.
+
+        Rename old$ to new$
+SET DIR
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]Set Dir}
+
+Controls  the  style  of  the  DIRectory  listing, by setting the number of
+characters to be displayed from 1 to 100, followed by optional pathnames to
+be filtered out of directory searches.
+
+        Set Dir number,filter$
+SET INPUT
+{[RAMOSPro_Examples:Examples/H-6/Help_69.AMOS,0,4]=Set Input}
+
+SETs  the  characters  you  want  to  INPUT  to  end  a line of data.  Many
+computers need both a [Return] and [line feed] character at the end of each
+line,  but  the  Amiga  only  needs a [line feed].  Make the second value a
+negative number if you only want to use a single character.
+
+        Set Input 10,-1 : Rem Standard Amiga format
+        Set Input 13,10 : Rem PC or ST compatible format
+
+The Bare Bones
+                        {[IDEFFN       ,4,3] Def Fn                       }
+                        {[IDIM         ,4,3] Dim                          }
+                        {[IEND         ,4,3] End                          }
+                        {[IEDIT        ,4,3] Edit                         }
+                        {[IDIRECT      ,4,3] Direct                       }
+                        {[IFREE        ,4,3] =Free                        }
+                        {[IMONITOR     ,4,3] Monitor                      }
+                        {[IREM         ,4,3] Rem                          }
+                        {[IREADTEXT    ,4,3] Read Text$                   }
+                        {[ISET BUFFER  ,4,3] Set Buffer                   }
+DEF FN
+{[RAMOSPro_Examples:Examples/H-6/Help_61.amos,0,4]Def Fn}
+
+Creates  a user-DEFined FunctioN, used for the quick calculation of values.
+It  must  be  given  a  name,  followed  by  a  bracketed list of variables
+separated  by  commas.   The  expression  can  include  any AMOS functions,
+limited to a single line of your program.  (See FN).
+
+        Def Fn name(variables)=expression
+DIM
+{[RAMOSPro_Tutorial:Tutorials/Arrays.AMOS,0,4]Dim}
+
+DIMensions  an  array  by  defining a table of variables.  The array's size
+(DIMension) is set by values inside brackets.
+
+        Dim variable(x,y,z)
+        Dim variable#(x)
+        Dim Variable$(x,y)
+DIRECT
+{[RAMOSPro_Examples:Examples/H-1/Help_12.AMOS,0,4]Direct}
+
+Terminates your AMOS program and jumps straight to direct mode.
+
+       Direct
+EDIT
+{[RAMOSPro_Examples:Examples/H-1/Help_11.AMOS,0,4]Edit}
+
+Stops your current program and returns immediately to the editor screen.
+
+      Edit
+
+FN
+{[RAMOSPro_Examples:Examples/H-6/Help_61.amos,0,4]=Fn}
+
+Calls up and executes the user-defined FuNction by its name, followed by an
+optional variable list.  (See Def Fn).
+
+        Def Fn name (variable list)=expression
+        Print Fn name (variable list)
+
+MONITOR
+Calls  up  the  AMOS  Professional  monitor  at  the  current point in your
+program.   You  can  now  debug you program a line at a time using the many
+powerful testing facilities provided by the monitor.
+
+        Monitor
+
+
+See  section  12.01.01  from  the user guide for an detailed explanation of
+this system.
+
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Worked Example}
+
+READ TEXT
+{[RAMOSPro_Examples:Examples/H-8/Help_82.AMOS,0,4]Read Text$}
+
+Displays some text from either a file, or a memory bank using an attractive,
+on-screen text reader.
+
+        Read Text filename$
+
+Loads the file into memory, and displays it on the screen in ASCII format.
+
+        Read Text title$ ,address,length
+
+address: is the address of the first line of your text.
+
+length: the length of the text in characters.
+
+SET BUFFER
+{[RAMOSPro_Examples:Examples/H-6/Help_64.amos,0,4]Set Buffer}
+
+SETs the size of the BUFFER area that holds your variables in units of a 
+kilobyte. (1024 bytes)
+
+        Set Buffer kilobytes
+
+Program run commands
+
+                         {[IBREAK ON     ,4,3] Break On                  }
+                         {[IBREAK OFF    ,4,3] Break Off                 }
+                         {[ICOMMAND LINE$,4,3] Command Line$             }
+                         {[IINCLUDE      ,4,3] Include                   }
+                         {[ION BREAK     ,4,3] On Break                  }
+                         {[IPRUN         ,4,3] Prun                      }
+                         {[IPRG STATE   ,4,3] =Prg State                }
+                         {[IPRG UNDER   ,4,3] =Prg Under                }
+                         {[IRUN          ,4,3] Run                       }
+                         {[ISTOP         ,4,3] Stop                      }
+
+BREAK ON
+{[RAMOSPro_Examples:Examples/H-1/Help_14.AMOS,0,4]Break On}
+
+Turns ON the program-interrupt BREAK routine normally activated by pressing
+the [Control]+[C] keys.
+
+        Break On 
+        Break Off
+BREAK OFF
+{[RAMOSPro_Examples:Examples/H-1/Help_14.AMOS,0,4]Break On}
+
+Stops  anyone  from  interrupting  your  program  while it is running using
+Control+C.   Only  use  this  in the FINAL versions of your programs!  Once
+it's activated, YOU CAN'T RETURN TO THE AMOS EDITOR until the program exits
+naturally.
+
+COMMAND LINE$
+
+is  a  reserved variable used to transfer parameter strings between several
+AMOS  programs.   It's often used in conjunction with the RUN file$ command
+to  chain  several  programs  together.   Alternatively, if your program is
+called  as  an Editor Accessory, COMMAND LINE$ will be loaded with the AMOS
+instruction underneath the Edit cursor.
+
+        Command Line$="information"
+INCLUDE
+
+Loads and merges an entire AMOS program from the disc whenever your current
+listing  is  executed.   This  include file can contain anything you like,
+from procedure  definitions, to commonly used initialisation code.  But it
+can't contain it's own INCLUDE statements.
+
+        Include "File_To_Include.AMOS"
+
+Your  filename  should be a constant rather than a string variable, as AMOS
+merges  the  include  file  during the TESTING process.  
+ON BREAK
+Intercepts  the  Control-C  command  and  calls  your selected AMOS routine
+whenever the user attempts to leave your program.
+
+        On Break Goto label
+        On Break Gosub label
+
+        {[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]On Break Proc name}
+PRG STATE
+This  handy  function  lets  you  know  how  your program was launched.  It
+returns one of three possible values:
+
+  0 : if your program was run under the AMOS interpreter.
+  1 : if your program was run under the AMOS run-only module.
+ -1 : if your program is compiled.
+PRUN
+
+PRUN  is a mix between calling a procedure and RUNning another program:  it
+loads  and  (if  necessary),  RUNs  your  new  program, and returns to your
+original calling program when it's finished.
+
+        Prun "Program_name"
+
+It's a sort of Gosub Program command!
+PRG UNDER
+Checks if an AMOS program is accessible "under" the current one.
+
+        test=Prg Under
+
+test=0 (false)
+
+The current listing has been run directly from the Editor, as a normal AMOS
+program.
+
+test=1
+
+Your   program   is   the   only   one  being  executed,  BUT  is  not  the
+currently-edited  program.   This happens when you "run hidden program", or
+use "program to menu".
+
+test=-1 (true)
+
+The program was PRUNned from another program.
+RUN
+{[RAMOSPro_Examples:Examples/H-4/Help_44.AMOS,0,4]Run}
+
+RUNs an AMOS Professional program.
+
+        Run file$
+
+Loads and Runs  the  program  'file$'. Use  COMMAND  LINE$  to  pass
+information between programs.
+
+Note: Run will not work from Direct Mode.
+
+STOP
+Halts  your  program  and  returns immediately to your listing screen.
+
+        Stop
+
+Strings
+
+                            {[IASC    ,4,3] =Asc     } {[IMID$   ,4,3] =Mid$    }
+                            {[ICHR$   ,4,3] =Chr$    } {[IRIGHT$ ,4,3] =Right$  }
+                            {[IFLIP$  ,4,3] =Flip$   } {[ISPACE$ ,4,3] =Space$  }
+                            {[IINSTR  ,4,3] =Instr   } {[ISTR$   ,4,3] =Str$    }
+                            {[ILEFT$  ,4,3] =Left$   } {[ISTRING$,4,3] =String$ }
+                            {[ILEN    ,4,3] =Len     } {[IUPPER$ ,4,3] =Upper$  }
+                            {[ILOWER$ ,4,3] =Lower$  } {[IVAL    ,4,3] =Val     }
+
+ASC
+{[RAMOSPro_Examples:Examples/H-1/Help_10.AMOS,0,4]=Asc}
+
+Gives the Ascii code of a character.
+
+        Print Asc("A")
+CHR$
+{[RAMOSPro_Examples:Examples/H-1/Help_10.AMOS,0,4]=Chr$}
+
+Creates  a  String  containing  one  CHaRacter  whose  Ascii code number is
+specified in brackets.
+
+        s$=CHR$(number)
+FLIP$
+{[RAMOSPro_Examples:Examples/H-1/Help_10.AMOS,0,4]=Flip$}
+
+FLIP$  reverses the order of the characters in your string.  So your string
+is flipped from right to left.
+
+         Print Flip$("AMOS Basic")
+INSTR
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4]=Instr}
+
+Searches out the occurrences of a string INside another STRing.  The result
+is the location of the first character in your destination string, starting
+from the left.
+
+If search has been unsuccessful, you`ll get zero.
+
+         test=Instr("source string","search characters")
+
+         Print Instr("AMOS Professional","AMOS")
+
+You  can  also  start  off  the  search  from a specific position, using an
+optional start parameter.
+
+         test=Instr("source string","search characters",start)
+
+LEFT$
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4]=Left$}
+
+Returns the specified number of characters from the LEFT of a string.
+
+       l$=Left$("characters",number)
+LEN
+{[RAMOSPro_Examples:Examples/H-0/Help_4.AMOS,0,4]=Len}
+
+Reads the number in characters in a string.
+
+       length=Len("String")
+LOWER$
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4]=Lower$}
+
+Converts all the characters in a string to LOWER case.
+
+        low$=Lower$("CHARACTERS")
+
+        Print Lower$("AMOS Professional")
+MID$
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4]=Mid$}
+
+Returns a string of characters from the MIDdle of a string.
+
+        middlebit$=Mid$("string",numbercharacters)
+
+        Mid$(A$,position,numbercharacters)=middlebit$
+
+RIGHT$
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4]=Right$}
+
+Returns a series of characters from the right-hand side of an AMOS string.
+
+       r$=Right$("sourcestring",numbercharacters)
+       Right$("sourcestring",numbercharacters)=r$
+SPACE$
+{[RAMOSPro_Examples:Examples/H-1/Help_10.AMOS,0,4]=Space$}
+
+Generates a string of n spaces.
+
+        s$=Space$(n)
+STR$
+
+{[RAMOSPro_Examples:Examples/H-0/Help_4.AMOS,0,4]=Str$}
+
+Converts  a  number  into  a  STRing.   This  is handy for use with certain
+functions  that  do  not  allow  numbers  to be used as parameters, such as
+CENTRE and TEXT.
+
+        a$=Str$(number)
+STRING$
+{[RAMOSPro_Examples:Examples/H-1/Help_10.AMOS,0,4]=String$}
+
+Creates  a  new string made up of a number of copies of the original source
+string.
+
+        newstring$= String$("sourcestring",numbercharacters)
+UPPER$
+{[RAMOSPro_Examples:Examples/H-0/Help_2.AMOS,0,4]=Upper$}
+
+Converts a string of text into nothing but UPPER case (CAPITAL) letters.
+
+        capital$=Upper$("source")
+VAL
+{[RAMOSPro_Examples:Examples/H-0/Help_4.AMOS,0,4]=Val}
+
+Converts a list of decimal digits stored in a string into a number
+
+        x=Val(v$)
+Array Operations
+
+                               {[IMATCH ,4,3] =Match         }
+                               {[ISORT  ,4,3] Sort           }
+MATCH
+{[RAMOSPro_Examples:Examples/H-0/Help_4.AMOS,0,4]=Match}
+
+Searches  through  a  sorted array for your chosen value.  If the search is
+successful,  you'll  get it's index number as the return value.  But if the
+search  fails,  you'll get a NEGATIVE result instead.  This holds the index
+number of the item which came closest to your search parameter muliplied by
+-1.
+
+Match works equally well with all types of arrays.  However, you'll need to
+SORT the array before you make the test.  See the SORT function.
+
+         item=Match(t(0),s)
+         item=Match(t#(0),s#)
+         item=Match(t$(0),s$)
+
+SORT
+{[RAMOSPro_Examples:Examples/H-0/Help_4.AMOS,0,4]Sort}
+
+Sorts  an array in ascending order.  This array can contain either strings,
+integers, or floating point numbers.
+
+        Sort A(0)
+        Sort A$(0)
+        Sort A#(0)
+
+Mathematical functions
+
+                      {[IABS   ,4,3] Abs      } {[IHSIN,4,3] Hsin     } {[IRADIAN   ,4,3] Radian   }
+                      {[IACOS  ,4,3] Acos     } {[IHTAN,4,3] Htan     } {[IRANDOMIZE,4,3] Randomize}
+                      {[IATAN  ,4,3] Atan     } {[IINT ,4,3] Int      } {[IRND      ,4,3] Rnd      }
+                      {[ICOS   ,4,3] Cos      } {[ILN  ,4,3] Ln       } {[ISGN      ,4,3] Sgn      }
+                      {[IDEGREE,4,3] Degree   } {[ILOG ,4,3] Log      } {[ISIN      ,4,3] Sin      }
+                      {[IEXP   ,4,3] Exp      } {[IMAX ,4,3] Max      } {[ISQR      ,4,3] Sqr      }
+                      {[IFIX   ,4,3] Fix      } {[IMIN ,4,3] Min      } {[ISWAP     ,4,3] Swap     }
+                      {[IHCOS  ,4,3] Hcos     } {[IPI# ,4,3] Pi#      } {[ITAN      ,4,3] Tan      }
+DEGREE
+{[RAMOSPro_Examples:Examples/H-5/Help_58.AMOS,0,4]DEGREE}
+
+Allows you to enter your angles in DEGREEs rather than RADIANS.
+
+        Degree : Print Sin(45)
+RADIAN
+{[RAMOSPro_Examples:Examples/H-5/Help_58.AMOS,0,4]RADIAN}
+
+Enters all future angles using radians. 
+
+        Radian
+
+{[Iradtheory   ,4,3] More information}
+Radians and angles
+In  trigonometry, a radian is the angle subtended by an arc whose length is
+equal  to  the  radius of a circle.  This angle is formed by two radii of a
+circle  that cut off an arc on the circumference that is equal in length to
+the  radius.   One radian is equal to 57.296 degrees.  The Amiga prefers to
+use  radians  instead  of  degrees, but you can change that with the DEGREE
+command.
+
+PI#
+{[RAMOSPro_Examples:Examples/H-5/Help_58.AMOS,0,4]=PI#}
+
+Returns the number PI.  It's equal to the ratio of the diameter of a circle
+to its circumference.
+
+        Print Pi#
+SIN
+{[RAMOSPro_Examples:Examples/H-5/Help_58.AMOS,0,4]=SIN}(angle)
+
+Calculates the SINe of an angle, resulting in a floating point number.
+
+        a=sin(angle)
+
+COS
+{[RAMOSPro_Examples:Examples/H-5/Help_58.AMOS,0,4]=COS}(angle)
+
+Returns the COSine of your angle.
+
+        Print Cos(angle)
+
+TAN
+{[RAMOSPro_Examples:Examples/H-5/Help_58.AMOS,0,4]=TAN}(angle)
+Calculates the TANgent of an angle.
+
+        a=Tan(angle)
+
+ACOS
+{[RAMOSPro_Examples:Examples/H-5/Help_59.AMOS,0,4]=ACOS}(value)
+
+Returns the inverse cosine of the number. 
+
+        angle=acos(a)
+
+You can get the Inverse SIN using:
+
+        angle=1.5708-acos(a)
+or      angle=90-acos(a) : Rem In degrees
+       
+ATAN
+{[RAMOSPro_Examples:Examples/H-5/Help_59.AMOS,0,4]=ATAN}(value)
+
+Returns the inverse TAN of a number
+
+       angle=atan(a)
+
+LOG
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=LOG}(value)
+
+Generates the Logarithm to the Base 10 of your number or expression.
+
+        l=log(number)
+LN
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=LN}(value)
+
+Provides the natural or naperian logarithm
+
+        n=ln(number)
+
+EXP
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=EXP}(value)
+
+Generates the exponenial function
+
+        e=EXP(number)
+
+HSIN
+{[RAMOSPro_Examples:Examples/H-5/Help_59.AMOS,0,4]=HSIN}(value)
+
+Returns the hyperbolic Sine
+
+        h=hsin(n)
+
+HCOS
+{[RAMOSPro_Examples:Examples/H-5/Help_59.AMOS,0,4]=HCOS}(value)
+
+Hyperbolic cosine
+
+        h=hcos(n)
+HTAN
+{[RAMOSPro_Examples:Examples/H-5/Help_59.AMOS,0,4]=HTAN}(value)
+
+Gets the hyperbolic tangent
+
+        h=htan(n)
+RND
+{[RAMOSPro_Examples:Examples/H-2/Help_24.AMOS,0,4]=RND}(value)
+
+Generates  a  RaNDom  integer  between zero and your chosen number.  If you
+enter a zero, the previous random value will be returned instead.
+
+        x=Rnd(number)
+
+RANDOMIZE
+{[RAMOSPro_Examples:Examples/H-2/Help_24.AMOS,0,4]RANDOMIZE }value
+
+Sets  the  seed of the random number generated by RND.  Each seed defines a
+particular sequence of values.  Use RANDOMIZE TIMER for a really random set
+of numbers
+
+        randomize seed
+        randomize timer
+ABS
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=ABS}(value)
+
+Gives the ABSolute value of a number, taking no account of whether it has a
+positive or negative sign.  The number must be in brackets.
+
+        Print Abs(-5)
+INT
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=INT}(value)
+
+Rounds  down  a floating point number to the nearest whole INTeger, so that
+decimal numbers are changed into the nearest lower round number.
+
+        Print Int(-6.9)
+MAX
+{[RAMOSPro_Examples:Examples/H-2/Help_24.AMOS,0,4]=MAX}(value)
+
+Compares  expressions  made  up  of  strings, integers or real numbers, and
+returns the one with the MAXimum value.
+
+        Print Max(variable1,variable2)
+
+MIN
+{[RAMOSPro_Examples:Examples/H-2/Help_24.AMOS,0,4]=MIN}(value)
+
+Compares  expressions  made  up  of  strings, integers or real numbers, and
+returns the one with the MINimum value.
+
+        Print Min$(variable1,variable2)
+
+SGN
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=SGN}(value)
+
+Finds the SiGN of a number:
+
+Depending on the number, you'll get one of three possible values:
+
+-1  if the number is negative
+ 0  if it's zero 
+ 1  if the number is positive
+
+        s=Sgn(number)
+        s=Sgn(number#)
+
+SWAP
+{[RAMOSPro_Examples:Examples/H-2/Help_24.AMOS,0,4]=SWAP}value1,value2
+
+Swaps the contents of any two variable around.  Both variables should be of
+exactly the same type.
+
+        swap number1,number2
+        swap float1#,float2#
+        swap string1$,string2$
+SQR
+{[RAMOSPro_Examples:Examples/H-6/Help_60.AMOS,0,4]=SQR}(value)
+
+Calculates  the  SQuare  Root  of  a  number,  that is the number that when
+multiplied by itself results in the number you have selected in brackets.
+
+        a#=Sqr(number)
+
+FIX
+{[RAMOSPro_Examples:Examples/H-2/Help_24.AMOS,0,4]=FIX}(value)
+
+FIXes the precision of floating point numbers, set by the number of decimal
+points wanted, specified inside brackets.
+
+        Fix(numberdecimals) : Print Pi#
+
+Procedures
+
+                        {[IEND PROC  ,4,3] End Proc                     }
+                        {[IGLOBAL    ,4,3] Global                       }
+                        {[IPARAM    ,4,3] =Param                       }
+                        {[IPARAM#   ,4,3] =Param#                      }
+                        {[IPARAM$   ,4,3] =Param$                      }
+                        {[IPOP PROC  ,4,3] Pop Proc                     }
+                        {[IPROC      ,4,3] Proc                         }
+                        {[IPROCEDURE ,4,3] Procedure                    }
+                        {[ISET STACK ,4,3] Set Stack                    }
+                        {[ISHARED    ,4,3] Shared                       }
+END PROC
+{[RAMOSPro_Tutorial:Tutorials/Procedures_1.AMOS,0,4]End Proc}
+
+Marks  the  END  of  a  PROCedure.   Like PROCEDURE, it must occupy its own
+separate line in your program.
+
+        Procedure NAME
+        : : :   Amos instructions go here
+        End Proc
+
+You can also return a value from the procedure like so:
+
+        Endproc[number]
+        Endproc[real#]
+        Endproc[s$]
+
+These  values  can be subsequently read by your program with PARAM, PARAM#,
+and PARAM$ respectively.
+
+GLOBAL
+{[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]Global}
+
+Defines  a  list  of  GLOBAL  variables  that can be accessed from anywhere
+inside your AMOS Professional program.
+
+        Global variable list
+
+You  can  also define your global variables using STRINGS which can contain
+the wildcards "*" or "?".
+
+"*" means "Use any group of characters up to the next letter or number"
+
+"?" means "Use any single character in the current position"
+
+        Global "string"
+
+Only string constants can used for this purpose.
+PARAM
+{[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]=Param}
+
+Returns an integer value from the most recent AMOS procedure called by your
+program.
+
+        A=Param
+
+The value should be returned using the ENDPROC statement in your procedure:
+
+        Endproc[1] 
+PARAM#
+{[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]=Param#}
+
+Returns a floating point number from the last AMOS procedure called by your
+program.
+
+        A=Param#
+
+The value should be returned using the ENDPROC statement in your procedure:
+
+        Endproc[1.23] 
+PARAM$
+{[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]=Param$}
+
+Returns a string from the last AMOS procedure called by your program.
+
+        A=Param$
+
+The value should be returned using the ENDPROC statement in your procedure:
+
+        Endproc["info"] 
+PROC
+{[RAMOSPro_Tutorial:Tutorials/Procedures_1.AMOS,0,4]Proc}
+
+Calls  a  named procedure from your program.  It can normally be omitted.
+
+        Proc name
+
+Proc is often used in conjunction with the ON command to select a procedure
+depending on a value entered by the user.
+
+POP PROC
+{[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]Pop Proc}
+
+POPs out of a PROCedure in a hurry.
+
+        Pop Proc
+
+PROCEDURE
+{[RAMOSPro_Tutorial:Tutorials/Procedures_1.AMOS,0,4]Procedure}
+
+Creates an AMOS Professional PROCEDURE,identified by a string of characters
+which make up its name.
+
+        Procedure NAME
+
+Procedures  make  programming  easier.  They are stand-alone program chunks
+that  perform  a  task  without  affecting  the  main  program.  
+
+SET STACK
+Sets  the  maximum  number  of  recursive  procedure calls.  Recursion is a
+clever  technique  which allows you to call a procedure from INSIDE its own
+definition.   Every  time you call a procedure, AMOS allocates a set amount
+of  memory  to  hold  the  local  variables.   So  if you attempt to nest a
+procedure  call  more than about fifty times, you`ll run out of space.  You
+can  increase this allocation with SET STACK.  Use it if you get an "out of
+stack space" message.
+
+        Set Stack maximum_no_of_recursive_procedure_calls
+
+SHARED
+{[RAMOSPro_Tutorial:Tutorials/Procedures_2.AMOS,0,4]Shared}
+
+Called inside a procedure to allow you to access a variable from your main
+program.
+
+        Shared variable list.
+
+You can also define your shared variables using STRINGS containing wildcards
+such as "*" or "?".
+
+"*" means "Use any group of characters up to the next letter or number"
+
+"?" means "Use any single character in the current position"
+
+        Shared "string"
+
+Only string CONSTANTS can used for this purpose.
+
+
+The Mouse and Joystick ports
+
+                        {[ICHANGE MOUSE ,4,3] Change Mouse } {[ILIMIT MOUSE  ,4,3] Limit Mouse  }
+                        {[IFIRE         ,4,3] =Fire        } {[IMOUSE CLICK  ,4,3] =Mouse Click }
+                        {[IJDOWN        ,4,3] =Jdown       } {[IMOUSE KEY    ,4,3] =Mouse Key   }
+                        {[IJLEFT        ,4,3] =Jleft       } {[IMOUSE SCREEN ,4,3] =Mouse Screen}
+                        {[IJOY          ,4,3] =Joy         } {[IMOUSE ZONE   ,4,3] =Mouse Zone  }
+                        {[IJRIGHT       ,4,3] =Jright      } {[ISHOW         ,4,3] Show         }
+                        {[IJUP          ,4,3] =Jup         } {[ISHOW ON      ,4,3] Show On      }
+                        {[IHIDE         ,4,3] Hide         } {[IX MOUSE       ,4,3] =X Mouse     }
+                        {[IHIDE ON      ,4,3] Hide On      } {[IY MOUSE       ,4,3] =Y Mouse     }
+CHANGE MOUSE
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]Change Mouse}
+
+Alters  the  MOUSE  pointer  on  screen to a predefined numbered shape of 1
+(arrow)  2  (crosshairs)  or 3 (clock).  Numbers 4 and over use images from
+the object bank.
+
+        Change Mouse shapenumber
+FIRE
+{[RAMOSPro_Examples:Examples/H-6/Help_68.AMOS,0,4]=Fire}
+
+Tests  the  state  of  a joystick FIRE-button, returning -1 if a particular
+button number has been pressed.
+
+        x=Fire(number)
+HIDE
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]Hide}
+
+HIDEs  the mouse pointer from your screen, depending on the number of times
+specified by a SHOW command.
+
+        Hide
+HIDE ON
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]Hide On}
+
+Ensures  the  mouse  pointer  is  hidden  no  matter how many times SHOW is
+called.
+        Hide On
+JOY
+{[RAMOSPro_Examples:Examples/H-6/Help_68.AMOS,0,4]=Joy}
+
+Reads the current status of a JOYstick.
+
+        status=Joy(portnumber)
+
+Portnumber number=0  checks a joystick in the mouse port.
+                 =1  tests a stick in the normal joystick port.
+
+The  status is rerurned in the form of a bitmap.If a bit is set to one, the
+joystick has been moved in the relevant direction.
+
+Here's a list of the possible return values.
+
+            Normal              With Fire Button pressed
+
+               1                       17
+           5       9               21      25
+
+         4     0     8           20    16     24
+
+           6       10              22       26
+               2                       18
+JLEFT
+{[RAMOSPro_Examples:Examples/H-6/Help_68.AMOS,0,4]=Jleft}
+
+Returns  a  value  of True(-1) if the joystick has been pulled to the left,
+otherwise zero.
+
+        Print Jleft(portnumber)
+
+portnumber=1 for the joystick socket, or 0 for the mouse port.
+JRIGHT
+{[RAMOSPro_Examples:Examples/H-6/Help_68.AMOS,0,4]=Jright}
+
+Returns  a  value of True(-1) if the joystick has been pulled to the right,
+otherwise zero.
+
+        Print Jright(portnumber)
+
+portnumber=1 for the joystick socket, or 0 for the mouse port.
+JUP
+{[RAMOSPro_Examples:Examples/H-6/Help_68.AMOS,0,4]=Jup}
+
+Returns  a  value of True(-1) if the joystick has been yanked up, otherwise
+zero.
+
+        Print Jup(portnumber)
+
+portnumber=1 for the joystick socket, or 0 for the mouse port.
+
+JDOWN
+{[RAMOSPro_Examples:Examples/H-6/Help_68.AMOS,0,4]=Jdown}
+
+Returns a value of True(-1) if the joystick has been pushed down, otherwise
+zero.
+
+        Print Jdown(portnumber)
+
+portnumber=1 for the joystick socket, or 0 for the mouse port.
+
+LIMIT MOUSE
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]Limit Mouse}
+
+Restricts the MOUSE movements to the LIMITs of a given rectangle on screen.
+You set up the size of this rectangle by giving its coordinates.
+
+        Limit Mouse x1,y1 To x2,y2
+MOUSE CLICK
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]=Mouse Click}
+
+Checks  if  the  user  has  clicked  on  the  mouse buttons.  The result is
+returned in the form of a bit pattern.
+
+Bit 0: Set to one if the left button has been pressed. Normally zero.
+
+Bit 1: If the Right button has ben pressed, you'll get a one in this
+       position. Otherwise, zero.
+
+After  the mouse has been tested, the bits are automatically reset to zero.
+So you can only use this command to check for a SINGLE click.
+
+Use the MOUSE KEY function if you want to test the status continuously.
+MOUSE KEY
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]=Mouse Key}
+
+Reads the status of the MOUSE buttons, and tells you the result in the form
+of a bit-pattern.
+
+Bit 0: Set to one if the left button has been pressed. Normally zero.
+
+Bit 1: If the Right button has ben pressed, you'll get a one in this
+       position. Otherwise, zero.
+
+        T=Mouse Key
+MOUSE SCREEN
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]=Mouse Screen}
+
+Checks to see which SCREEN the MOUSE pointer is currently occupying.
+
+        screen number=Mouse Screen
+SHOW
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]Show}
+
+SHOWs  a previously hidden mouse pointer on the screen, whenever the number
+of SHOWs becomes greater than the number of HIDEs already programmed.
+
+        Show
+SHOW ON
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]Show On}
+
+Immediately  SHOWs  a  hidden  mouse  pointer on screen, no matter how many
+HIDEs have been commanded.
+
+        Show On
+X MOUSE
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]=X Mouse}
+
+Tells  you  the  hardware  X  coordinate of the MOUSE pointer.  If you give
+XMOUSE  a  value then this function can also be used to move the mouse to a
+specific screen position.
+
+        X1=X Mouse
+        Mouse=X1
+Y MOUSE
+{[RAMOSPro_Examples:Examples/H-4/Help_49.AMOS,0,4]=Y Mouse}
+
+Tells  you  the  hardware  Y  coordinate of the MOUSE pointer.  If you give
+YMOUSE  a value, then this function can also be used to move the mouse to a
+specific screen position.
+
+        Y1=Y Mouse
+        Y Mouse=Y1
+
+
+Memory banks
+
+      {[IM_AS         ,4,3] As                  } {[IBSAVE      ,4,3] Bsave               } {[ILOAD                ,4,3] Load                }
+      {[IBANK SHRINK,4,3] Bank Shrink         } {[IBSEND      ,4,3] Bsend               } {[IRESERVE AS CHIP DATA,4,3] Reserve As Chip Data}
+      {[IBANK SWAP  ,4,3] Bank Swap           } {[IERASE      ,4,3] Erase               } {[IRESERVE AS CHIP WORK,4,3] Reserve As Chip Work}
+      {[IBGRAB      ,4,3] Bgrab               } {[IERASE ALL  ,4,3] Erase All           } {[IRESERVE AS DATA     ,4,3] Reserve As Data     }
+      {[IBLOAD      ,4,3] Bload               } {[IERASE TEMP ,4,3] Erase Temp          } {[IRESERVE AS WORK     ,4,3] Reserve As Work     }
+      {[IBLENGTH   ,4,3] =Blength            } {[ILENGTH    ,4,3] =Length             } {[ISAVE                ,4,3] Save                }
+      {[IBSTART    ,4,3] =Bstart             } {[ILIST BANK  ,4,3] List Bank           } {[ISTART              ,4,3] =Start              }
+
+AS
+{[RAMOSPro_Examples:Examples/H-7/Help_71.AMOS,0,4]As}
+
+Used in conjunction with the RESERVE AS command.
+
+        Reserve As Chip 1,1000
+
+BANK SHRINK
+
+Reduces  the size of a previously defined memory bank, returning any unused
+memory to your Basic program.
+
+        Bank Shrink bank_no To new_length
+
+bank_no  is  an already reserved memory bank.  Note:  This instruction does
+not work with object and icon banks
+
+new_length = the new size of the bank.
+It must be smaller than the Current length..
+BANK SWAP
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Bank Swap}
+
+Swaps the numbers of any two memory banks.
+
+        Bank Swap bank1, bank2
+
+BGRAB
+
+Grabs  a memory bank from the previous program.The bank is now removed from
+the  original  program,  and  appears  in  the  current  program bank-list,
+replacing  any  bank  with the same number.  After you've finished, you can
+return the bank to it's owner using BSEND.
+
+        Bgrab bank
+BLENGTH
+
+Returns the length of a bank from program UNDERNEATH the present one.  It's
+used  by  accessories  such  as  the  object editor to access the users bob
+images.
+
+You'll get a zero if the bank has not been defined in the previous program,
+or there's no other program in memory.  (PRG UNDER=0)
+
+        l=Blength(bank)
+BLOAD
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Bload}
+
+LOADs Binary data into a specified address or bank number.
+
+        Bload file$,address 
+BSAVE
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Bsave}
+
+SAVEs a block of memory stored between a start and end location, to a named
+file.  The data is saved as it stands with no special formatting.
+
+        Bsave file$, start TO end   
+BSEND
+
+Transfers  a  bank from the current program to the previous program.  It is
+the  exact opposite of BGRAB.  The bank disappears from the current program
+bank-list, and appears in the previous program list, replacing any existing
+data.
+
+        Bsend bank 
+BSTART
+
+Returns the address of a bank from a previous program, if possible.  You'll
+get  an error if a bank hasn't been reserved in the previous program.  (PRG
+UNDER=0)
+
+        address =Bstart(bank)   
+ERASE
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Erase}
+
+Deletes the contents of the memory bank whose number you specify.
+
+        Erase banknumber
+ERASE ALL
+
+Clears ALL banks from memory
+
+        Erase All 
+ERASE TEMP
+
+Erases ALL temprorary or WORK banks in your current program
+
+        Erase Temp
+LENGTH
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]=Length}
+
+Returns  the LENGTH of a memory bank in bytes.  If it contains images, then
+the number of objects in the bank will be given instead.
+
+        Print Length(banknumber)
+LIST BANK
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]=Listbank}
+
+Provides  a  detailed  LISTing of the memory BANKs currently reserved.  The
+following  information will be shown about each bank:  its number, the type
+of bank, its start address in hexadecimal and its length.
+
+        List Bank
+LOAD
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Load}
+
+LOADs one or more memory banks from the disc.  An optional destination bank
+can be included if required.
+
+        Load "filename.abk"
+
+Loads all the banks from filename.abk
+
+        Load "filename.abk",number
+
+Loads just a single bank.
+
+RESERVE AS CHIP DATA
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Reserve As Chip Data}
+
+Creates a permanent memory bank using CHIP ram.
+
+        Reserve As Chip Data banknumber,length
+
+This bank will be automatically saved with your program.
+RESERVE AS CHIP WORK
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Reserve As Chip Work}
+
+Creates a temporary memory bank of the required length using CHIP ram.
+
+        Reserve As Chip Work banknumber,length
+
+RESERVE AS DATA
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Reserve As Data}
+
+RESERVEs a permanent bank of memory using FAST ram if it's available.
+
+        Reserve As Data banknumber,length
+
+This bank will be automatically saved with your program.
+
+RESERVE AS WORK
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Reserve As Work}
+
+RESERVEs a temporary memory bank using FAST ram where possible.
+
+        Reserve As Work banknumber,length
+SAVE
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]Save}
+
+SAVEs all memory banks onto disc.  If an optional bank number is specified,
+only that bank number will be saved.
+
+        Save "filename.abk",number
+START
+{[RAMOSPro_Examples:Examples/H-7/Help_78.AMOS,0,4]=Start}
+
+Returns the START address of your chosen memory bank.
+
+        Print Start(banknumber)
+Hardware Sprites
+
+                  {[IDEL SPRITE        ,4,3] Del Sprite        } {[ISPRITE PRIORITY   ,4,3] Sprite Priority   }
+                  {[IGET SPRITE        ,4,3] Get Sprite        } {[ISPRITE UPDATE     ,4,3] Sprite Update     }
+                  {[IGET SPRITE PALETTE,4,3] Get Sprite Palette} {[ISPRITE UPDATE OFF ,4,3] Sprite Update Off }
+                  {[IHOT SPOT          ,4,3] Hot Spot          } {[ISPRITE UPDATE ON  ,4,3] Sprite Update On  }
+                  {[II SPRITE          ,4,3] I Sprite          } {[IX SPRITE         ,4,3] =X Sprite         }
+                  {[IINS SPRITE        ,4,3] Ins Sprite        } {[IX HARD           ,4,3] =X Hard           }
+                  {[ISET SPRITE BUFFER ,4,3] Set Sprite Buffer } {[IX SCREEN         ,4,3] =X Screen         }
+                  {[ISPRITE            ,4,3] Sprite            } {[IY SPRITE         ,4,3] =Y Sprite         }
+                  {[ISPRITE BASE       ,4,3] Sprite Base       } {[IY HARD           ,4,3] =Y Hard           }
+                  {[ISPRITE OFF        ,4,3] Sprite Off        } {[IY SCREEN         ,4,3] =Y Screen         }
+
+DEL SPRITE
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Del Sprite}
+
+Deletes one or more sprite images completely from the object bank.
+
+        Del Sprite n
+
+n is the number of the image you wish to remove from the bank.
+
+If  you  want to erase several objects, you can use the second form of this
+instruction.
+
+        Del Sprite f To l
+
+The command will now delete all the images from f to l.
+GET SPRITE
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]Get Sprite}
+
+Grabs  a  section  from a screen of given coordinates and loads it into the
+Object  bank.   An  optional  screen  number  can be given before the image
+number.  This allows you to grab your images from any existing AMOS screen.
+
+        Get Sprite screen number,image number,x1,y1 To x2,y2
+
+GET SPRITE PALETTE
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]Get Sprite Palette}
+
+Copies  the  colour  values  used  by  your sprite images straight into the
+current screen.
+
+        Get Sprite Palette
+
+The  optional  mask  allows  you  to  limit yourself to just a selection of
+colours.
+
+        Get sprite Palette bitmask
+
+Each  colour is represented by a single digit in a 32 digit "bit mask".  If
+the digit's set to 1, then the appropriate colour value will be copied over
+from the sprite bank.
+
+HOT SPOT
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]Hot Spot}
+
+Positions the reference point for all coordinate calculations.
+
+        Hot Spot image,x,y
+
+Automatically adds x and y to the sprite coordinates before use.
+
+        Hot Spot image,p
+
+p moves the hotspot to one of of 9 pre-set positions
+
+$00  $10  $20
+$01  $11  $21
+$02  $21  $22
+I SPRITE
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]=I Sprite}
+
+Returns the current Image number used by sprite s.
+
+The result will be zero if the sprite is not visible on the current display.
+
+        Image=I Sprite(s)
+INS SPRITE
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Ins Sprite}
+
+        Ins Sprite n
+
+Inserts  a  blank  image at position n in the current object bank.  All the
+images after this number are moved down a place.
+
+        Ins Sprite f To l
+
+Creates  several  image  slots  in  a  single operation.  A series of blank
+spaces will now be created between image number f and image l.
+
+SET SPRITE BUFFER
+
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]Set Sprite Buffer}
+
+Allocates extra memory for the hardware and computed sprites to work with.
+
+AMOS  initially  reserves  just  enough  memory for a maximum of 128 lines.
+This can be easily increased to a larger value, such as 256.
+
+        Set Sprite Buffer lines
+SPRITE
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]Sprite}
+
+        Sprite s,hx,hy,image
+
+Loads  sprite  s with your image and positions it at your selected HARDWARE
+coordinates x,y.
+
+The sprite number s can be anything from 0 to 63. 
+
+Sprites 0 to 7 generate hardware sprites
+
+numbers 8 through 63 use computed sprites.
+
+SPRITE BASE
+
+        n=Sprite Base(number)
+
+Provides the address of the internal data list for Sprite number.
+
+SPRITE OFF
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]Sprite Off}
+
+Removes one or more sprites from the screen.
+
+        Sprite Off
+
+Kills ALL active sprites
+
+       Sprite Off s
+
+Turns off sprite number s
+SPRITE PRIORITY
+
+Controls the way your sprites are displayed on a Dual playfield screen.
+
+        Sprite Priority n
+
+n sets the priority of the sprites relative to the two playfields.
+
+The  following  table  should  make  this clearer.  Objects with the higher
+order value are always displayed in front of those with a lower one.
+
+n         Playfield Sprites 0/1  Sprites 2/3  Sprites 4/5  Sprites 6/7
+0  Order     4         3            2            1             0
+1            3         4            2            1             0
+2            2         4            3            1             0
+3            1         4            3            2             0
+4            0         4            3            2             1
+SPRITE UPDATE
+{[RAMOSPro_Tutorial:Tutorials/Computed_Sprites.AMOS,0,4]Sprite Update}
+
+Performs  all  sprite  movements  in  a  single  burst.   Before using this
+command, you'll need to switch off the automatic display system with SPRITE
+UPDATE OFF.
+
+        Sprite Update
+        Wait Vbl
+
+The  WAIT VBL command is important, as it synchronises the sprite movements
+with the screen updates.
+
+SPRITE UPDATE OFF 
+{[RAMOSPro_Tutorial:Tutorials/Computed_Sprites.AMOS,0,4]Sprite Update Off}
+
+Stops  sprites  from  being redisplayed on the screen immediately when they
+are  moved  to  a  new  position.  Use it with the SPRITE UPDATE command to
+generate exceptionally smooth object movements.
+
+        Sprite Update Off
+SPRITE UPDATE ON
+{[RAMOSPro_Tutorial:Tutorials/Computed_Sprites.AMOS,0,4]Sprite Update On}
+
+Reverses the effect of a previous SPRITE UPDATE OFF command and forces your
+sprites to be automatically redrawn when they are moved.
+
+        Sprite Update On
+X HARD
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]=X Hard}
+
+Converts  an  X  coordinate  relative to the current screen into a HARDware
+coordinate.
+
+         hx=X Hard(xcoordinate)
+
+If  an  optional  screen  number  is  given,  then  all coordinates will be
+relative to the selected screen.
+
+        hx=X Hard(screen number,xcoordinate)
+
+X SCREEN
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]=X Screen}
+
+Converts  a  hardware X coordinate into a SCREEN coordinate relative to the
+present screen.
+
+        sx=X Screen(hx)
+
+If  you  include  an  optional  screen  number  in  this  function, the new
+coordinate will be relative to your chosen screen.
+
+        sx=X Screen(screen number,hx)
+X SPRITE
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]=X Sprite}
+
+Returns  the  X  coordinate  of  one of your AMOS Basic sprites in Hardware
+format.
+          hx=X Sprite(s)
+Y HARD
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]=Y Hard}
+
+Converts  a  Y  coordinate  relative to the current screen into a HARDware
+coordinate.
+
+        hy=Y Hard(ycoordinate)
+
+If  an  optional  screen  number  is  given,  then  all coordinates will be
+relative to the selected screen.
+
+        hy=Y Hard(screen number,ycoordinate)
+
+Y SCREEN
+{[RAMOSPro_Examples:Examples/H-5/Help_50.AMOS,0,4]=Y Screen}
+
+Converts  a  Y  coordinate  in  hardware  format  into  a SCREEN coordinate
+relative to the present screen.
+
+        sy=Y Screen(hy)
+
+If  you  include  an  optional  screen  number  in  this  function, the new
+coordinate will be relative to your chosen screen.
+
+        sy=Y Screen(screen number,hy)
+Y SPRITE
+{[RAMOSPro_Tutorial:Tutorials/Hardware_Sprites.AMOS,0,4]=Y Sprite}
+
+Returns  the  Y  coordinate  of  one of your AMOS Basic sprites in Hardware
+format.
+
+        hy=Y Sprite(s)
+
+
+Blitter Objects
+
+                {[IBOB                  ,4,3] Bob                  } {[IPASTE BOB            ,4,3] Paste Bob            }
+                {[IBOB OFF              ,4,3] Bob Off              } {[IPRIORITY OFF         ,4,3] Priority Off         }
+                {[IDEL BOB              ,4,3] Del Bob              } {[IPRIORITY ON          ,4,3] Priority On          }
+                {[IDOUBLE BUFFER        ,4,3] Double Buffer        } {[IPRIORITY REVERSE OFF ,4,3] Priority Reverse Off }
+                {[IGET BOB              ,4,3] Get Bob              } {[IPRIORITY REVERSE ON  ,4,3] Priority Reverse On  }
+                {[IGET BOB PALETTE      ,4,3] Get Bob Palette      } {[IREV                 ,4,3] =Rev                 }
+                {[IHREV                ,4,3] =Hrev                } {[IPUT BOB              ,4,3] Put Bob              }
+                {[II BOB               ,4,3] =I Bob               } {[ISET BOB              ,4,3] Set Bob              }
+                {[IINS BOB              ,4,3] Ins Bob              } {[IVREV                ,4,3] =Vrev                }
+                {[ILIMIT BOB            ,4,3] Limit Bob            } {[IX BOB               ,4,3] =X Bob               }
+                {[INO MASK              ,4,3] No Mask              } {[IY BOB               ,4,3] =Y Bob               }
+
+BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_26.AMOS,0,4]Bob}
+
+Draws a Blitter OBject at the given coordinates on the current screen. 
+
+        Bob number,x,y,imagenumber
+BOB OFF
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Bob Off}
+
+Removes  a  numbered Blitter OBject from the screen, or removes all Bobs if
+you leave out the individual number.
+
+        Bob Off bobnumber
+DEL BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Del Bob}
+
+Deletes one or more bob images completely from the object bank.
+
+        Del Bob n
+
+n is the number of the image you wish to remove from the bank.
+
+If  you  want  to  erase several objects, you can use a second form of this
+instruction.
+
+        Del Bob f To l
+
+The command will now delete all the images from f to l.
+DOUBLE BUFFER
+{[RAMOSPro_Examples:Examples/H-2/Help_26.AMOS,0,4]Double Buffer}
+
+Creates a DOUBLE screen BUFFER, as an invisible copy of the current screen.
+It's vital for flicker free animation!
+
+See SCREEN SWAP, LOGIC and PHYSIC.
+
+        Double Buffer
+GET BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Get Bob}
+
+Grabs  a  section  from a screen of given coordinates and loads it into the
+Object  bank.   An  optional  screen  number  can be given before the image
+number.  This allows you to grab your images from any existing AMOS screen.
+
+        Get Bob screen number,image number,x1,y1 To x2,y2
+GET BOB PALETTE
+
+Loads  all  of  your  Blitter  OBject  colours  to  the current screen.  An
+optional mask can be used to load a selection of these colours at a time.
+
+        Get Bob Palette,mask
+HREV
+{[RAMOSPro_Examples:Examples/H-2/Help_29.AMOS,0,4]=Hrev}
+
+Flips a Bob image from left to right. Any hot spots will also be reversed.
+
+        Bob number,x,y,image number : Rem Normal image
+        Rem Now flip this image number horizontally
+        Bob number,x,y,HREV(image number)
+I BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_27.AMOS,0,4]= I Bob}
+
+Returns  the  current  Image  number  used by Blitter OBject number b.  The
+result will be zero if the bob is not visible on the current display.
+
+        Image=I Bob(b)
+INS BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Ins Bob}
+
+Inserts  a  blank  image at position n in the current object bank.  All the
+images after this number will be moved down a place.
+
+        Ins Bob n
+
+        Ins Bob f To l
+
+Creates  several  image  slots  in  a  single operation.  A series of blank
+spaces will now be created between image number f and image l.
+
+LIMIT BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Limit Bob}
+
+Restricts  the  visibility  of a numbered Blitter OBject to the LIMITs of a
+rectangle  on  screen.   You  set  up  the size of this rectangle by simply
+entering its coordinates.
+
+        Bob 1,100,100,1
+        Limit Bob number,x1,y1 To x2,y2
+NO MASK
+{[RAMOSPro_Examples:Examples/H-2/Help_26.AMOS,0,4]No Mask}
+
+Removes the blitter mask around one or all bobs.  Without a mask, the Bob's
+entire image will be displayed on screen, including any transparent bits in
+colour zero.
+
+         No Mask : Rem Removes ALL blitter masks
+         No Mask object : Rem Kills the mask around the selected bob
+PASTE BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_29.AMOS,0,4]Paste Bob}
+
+Gets  an  image  from the OBject bank, then PASTEs it on the screen at your
+chosen coordinates.
+
+        Paste Bob x,y,imagenumber
+PRIORITY ON
+{[RAMOSPro_Examples:Examples/H-3/Help_30.AMOS,0,4]Priority On}
+
+Normally  Bobs  barge  in  front  of  any  objects with a lower Bob number.
+PRIORITY  ON  gives  the  greatest  priority  to objects with the highest y
+coords on the screen.
+
+        Priority On
+
+PRIORITY OFF
+{[RAMOSPro_Examples:Examples/H-3/Help_30.AMOS,0,4]Priority Off}
+
+Displays  all  Bobs  on  the  screen  in  strict order of their Bob number.
+(default)
+
+        Priority Off
+
+PRIORITY REVERSE ON
+{[RAMOSPro_Examples:Examples/H-3/Help_30.AMOS,0,4]Priority Reverse On}
+
+Activates  the  REVERSE  effect  of the PRIORITY command for the display of
+Bobs on screen.  PRIORITY REVERSE OFF is the normal mode, but by turning it
+ON  Bobs  with  the lowest y coordinates will appear in front of those with
+higher y coordinates.
+
+        Priority Reverse On
+
+PRIORITY REVERSE OFF
+{[RAMOSPro_Examples:Examples/H-3/Help_30.AMOS,0,4]Priority Reverse Off}
+
+Resets the Priority system to normal.
+
+        Priority Reverse Off
+PUT BOB 
+{[RAMOSPro_Examples:Examples/H-2/Help_28.AMOS,0,4]Put Bob}
+
+Fixes  a  copy  of  the bob n at it's current position on the screen.  Your
+copy  will  remain  firmly in place when the bob moves away.  Always follow
+this command with a WAIT VBL.
+
+       Put Bob n
+REV
+{[RAMOSPro_Examples:Examples/H-2/Help_29.AMOS,0,4]=Rev}
+
+REVerses a Bob image completely, by flipping it over its own horizontal and
+vertical axis.  Any hot spots will also be reversed.
+
+        Bob number,x,y,image number : Rem Normal image
+        Rem Now flip this image number completely
+        Bob number,x,y,REV(image number)
+SET BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_27.AMOS,0,4]Set Bob}
+
+SETs the mode for drawing a Blitter OBject on screen.
+
+        Set Bob number,background,screenplanes,mask
+
+number is the number of the bob you want to affect.
+
+background can take one of three values:
+
+             0  replaces the background whenever the bob is moved. (Default)
+
+Greater than 0  replaces the area with a block of colour background-1
+
+   Less than 0  doesn't redraw the background at all.
+
+screenplanes  is  a bit-pattern which specifies which planes are to be used
+by the bob.  A value of 1 draws the bob in plane, a zero doesn't.
+
+mask selects the blitter mode using a set of minterms.
+VREV
+{[RAMOSPro_Examples:Examples/H-2/Help_29.AMOS,0,4]=Vrev}
+
+Turns a Bob image upside down. Any hot spots will also be reversed.
+
+        Bob number,x,y,image number : Rem Normal image
+        Rem now flip this image number vertically
+        Bob number,x,y,VREV(imagenumber)
+X BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_27.AMOS,0,4]=X Bob}
+
+Returns the X coordinate of your bob on the current screen.
+
+        x1=X Bob(number)
+Y BOB
+{[RAMOSPro_Examples:Examples/H-2/Help_27.AMOS,0,4]=Y Bob}
+
+Returns the Y coordinate of your bob on the current screen.
+
+        y1=Y Bob(number)
+
+Detecting Collisions
+                          {[IBOB COL      ,4,3] =Bob Col                 }
+                          {[IBOBSPRITE COL,4,3] =Bobsprite Col           }
+                          {[ICOL          ,4,3] =Col                     }
+                          {[IHARDCOL      ,4,3] =Hardcol                 }
+                          {[ISET HARDCOL   ,4,3] Set Hardcol              }
+                          {[ISPRITE COL   ,4,3] =Sprite Col              }
+                          {[ISPRITEBOB COL,4,3] =Spritebob Col           }
+                          {[IMAKE MASK     ,4,3] Make Mask                }
+
+COL
+{[RAMOSPro_Tutorial:Tutorials/Collision_Detection.AMOS,0,4]=Col}
+
+Checks  for  the other objects involved in a collision you've just detected
+using one of the BOB COL,SPRITE COL, BOBSPRITE COL and SPRITEBOB COL
+functions.
+
+target is the number of the object you wish to test.  If it's collided with
+your source object, you'll get a value of -1, otherwise 0 will be returned.
+
+        c=Col(target)
+
+If  you  enter  a  target  of  -1, AMOS will return the number of the FIRST
+object which has collided with your source object.
+
+BOB COL
+{[RAMOSPro_Tutorial:Tutorials/Collision_Detection.AMOS,0,4]=Bob Col}
+
+Detects  COLlisions between one or more blitter objects.  If a collision is
+detected,  BOB  COL  will  return  a value of -1.  Otherwise you'll get a 0
+instead.
+
+        c=Bob Col(source)
+
+If  you  want  to  restrict  your test to just a selection of bobs, you can
+optionally extend the BOB COL command like so:
+
+        c=Bob Col(source,first TO last)
+BOB SPRITE COL
+{[RAMOSPro_Tutorial:Tutorials/Collision_Detection.AMOS,0,4]=Bobsprite Col}
+
+Tests  a single BOB for a collision with a group of sprites.  A value of -1
+signifies  that the test was successful.  You can now immediately check for
+the other objects involved in the collision using the COL function.
+
+        c=Bob Sprite Col(bobnumber)
+
+Note  that ALL the sprites you are testing MUST have a blitter mask.  These
+are created using the MAKE MASK command.
+
+You can also use a second version of this function.
+
+         c=Bob Sprite Col(bobnumber,first TO last)
+
+Tests for collisions between the source Bob and Sprites from first to last.
+
+HARD COL
+Returns the result of the hardware collision detector you've activated with
+the  SET  HARDCOL command.  If the test is successful you'll get a value of
+True (-1).  Otherwise the result will be False (0).
+
+You can now find the identification number of any other sprites involved in
+the collision using the COL function as normal.
+
+        test=Hardcol(spritenumber)
+MAKE MASK
+{[RAMOSPro_Tutorial:Tutorials/Collision_Detection.AMOS,0,4]Make Mask}
+
+Makes  a blitter mask for all the objects on the screen, including sprites.
+This  command  should  be  used  before  any  collision  detection routines
+involving sprites.
+
+          Make Mask
+          Make Mask n : Rems Makes a mask around sprite n
+SET HARDCOL
+Activate the Amiga's built-in hardware collision detector.  This allows you
+to  check  for the collison between a Hardware sprite (0 to 7) and any part
+of the screen background.
+
+         Set Hardcol enablebits,comparisonbits
+SPRITE COL
+{[RAMOSPro_Tutorial:Tutorials/Collision_Detection.AMOS,0,4]=Sprite Col}
+
+Looks for collisions between several sprites.  These sprites MUST have been
+previously initialised with the MAKE MASK option.
+
+        c=Sprite Col(source)
+
+If  another sprite has collided with your source object, you'll get a value
+of -1.  Otherwise the result will be zero.
+
+There's also a more selective version of this function.
+
+        c=Sprite Col(source,first TO last)
+
+Only checks for collisions between the source object and sprites from first
+to last.  (See COL,MAKE MASK)
+
+SPRITEBOB COL
+{[RAMOSPro_Tutorial:Tutorials/Collision_Detection.AMOS,0,4]=Spritebob Col}
+
+Checks  a  single  SPRITE  for collisions between several bobs.  The source
+sprite MUST have been assigned a mask with the MAKE MASK option before use.
+
+If the test is successful, you'll get a result of -1.  You can now find the
+other objects in the collision with a call to the COL function.
+
+        c=Sprite Bob Col(spritenumber)
+
+There's also an extended version of this function.
+
+        c=Sprite Bob Col(spritenumber,first To last)
+
+Tests for collisions between the source object and bobs from first to last.
+(See COL,MAKE MASK)
+
+Setting up screens
+
+   {[IAUTOVIEW ON     ,4,3] Autoview On     } {[IDISPLAY HEIGHT ,4,3] =Display Height } {[ISCREEN          ,4,3] Screen          } {[ISCREEN HIDE     ,4,3] Screen Hide     }
+   {[IAUTOVIEW OFF    ,4,3] Autoview Off    } {[IDUAL PLAYFIELD  ,4,3] Dual Playfield  } {[ISCIN           ,4,3] =Scin           } {[ISCREEN OFFSET   ,4,3] Screen Offset   }
+   {[ICLS             ,4,3] Cls             } {[IDUAL PRIORITY   ,4,3] Dual Priority   } {[ISCREEN         ,4,3] =Screen         } {[ISCREEN OPEN     ,4,3] Screen Open     }
+   {[ICOLOUR          ,4,3] Colour          } {[IGET PALETTE     ,4,3] Get Palette     } {[ISCREEN COLOUR  ,4,3] =Screen Colour  } {[ISCREEN SHOW     ,4,3] Screen Show     }
+   {[ICOLOUR          ,4,3] =Colour         } {[ILOAD IFF        ,4,3] Load Iff        } {[ISCREEN CLONE    ,4,3] Screen Clone    } {[ISCREEN TO BACK  ,4,3] Screen To Back  }
+   {[ICOLOUR BACK     ,4,3] Colour Back     } {[INTSC           ,4,3] =Ntsc           } {[ISCREEN CLOSE    ,4,3] Screen Close    } {[ISCREEN TO FRONT ,4,3] Screen To Front }
+   {[IDEFAULT         ,4,3] Default         } {[IPALETTE         ,4,3] Palette         } {[ISCREEN DISPLAY  ,4,3] Screen Display  } {[ISCREEN WIDTH   ,4,3] =Screen Width   }
+   {[IDEFAULT PALETTE ,4,3] Default Palette } {[ISAVE iFF        ,4,3] Save Iff        } {[ISCREEN HEIGHT  ,4,3] =Screen Height  } {[IVIEW            ,4,3] View            }
+
+AUTOVIEW ON
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]Autoview On}
+
+Restarts  the  normal  automatic  viewing  mode for your screens.  Your new
+screens  will  now be displayed straight after they've been created, at the
+next vertical blank.
+
+        Auto View On
+AUTOVIEW OFF
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]Autoview Off}
+
+Activates  manual  viewing mode.  In manual mode, your new screens are only
+displayed  when  you  specifically request an update using VIEW.  Use it as
+part  of your programs initialisation procedure to generate your display in
+the background.
+
+       Auto View Off
+CLS
+{[RAMOSPro_Examples:Examples/H-3/Help_39.AMOS,0,4]Cls}
+
+CLears all or part of a Screen in one of three ways:
+
+        Cls
+
+Clears entire screen using the current paper colour.
+
+        Cls colour
+
+Clears screen using the selected colour index.
+
+        Cls colour,tx,ty To bx,yb
+
+Erases the block from tx,ty to bx,by
+COLOUR
+{[RAMOSPro_Examples:Examples/H-0/Help_5.AMOS,0,4]Colour}
+
+Reads or changes the colour value assigned to one of your colour indexes.
+
+        Colour indexnumber,$RGB
+
+Changes  a colour in the palette, by setting the strength of its Red, Green
+and Blue components.
+
+        c=Colour(index)
+
+Returns  the hexadecimal colour value held in one of your colour indexes as
+a proportion of Red, Blue amd Green components.
+        
+        Print Hex$(Colour(Index))
+
+COLOUR BACK
+{[RAMOSPro_Examples:Examples/H-0/Help_5.AMOS,0,4]Colour Back}
+
+Changes the colour of the display where no screens exist (dead area).
+
+        Colour Back $RGB
+DEFAULT
+{[RAMOSPro_Examples:Examples/H-3/Help_38.AMOS,0,4]Default}
+
+Resets  the  display  screen  to its original DEFAULT setting of 320 pixels
+wide, 200 pixels high and 16 colours, and closes any other open screens.
+
+DEFAULT PALETTE
+{[RAMOSPro_Examples:Examples/H-3/Help_38.AMOS,0,4]Default Palette}
+
+Defines  a list of colours which will be used by each new screen you create
+with SCREEN OPEN.
+
+        Default Palette c1,c2,c3,c4,,,,
+
+DISPLAY HEIGHT
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]=Display Height}
+
+Returns the HEIGHT of your screen DISPLAY in pixels.
+
+        Print Display Height
+
+DUAL PLAYFIELD
+{[RAMOSPro_Examples:Examples/H-3/Help_37.AMOS,0,4]Dual Playfield}
+
+Displays  two  screens  on top of each  other.   Colour  zero is treated as
+transparent,  so  anything  drawn in it to the first screen will reveal the
+appropriate region of the second.
+
+       Dual playfield screen1,screen2 
+
+Each screen can use up to eight colours. 
+DUAL PRIORITY
+{[RAMOSPro_Examples:Examples/H-3/Help_37.AMOS,0,4]Dual Priority}
+
+Allows  you to reverse the order of the two screens used to generate a dual
+playfield.
+
+       Dual Priority screen1,screen2
+
+Displays screen 1 over screen 2
+GET PALETTE
+{[RAMOSPro_Examples:Examples/H-3/Help_38.AMOS,0,4]Get Palette}
+
+Copies  the PALETTE of colours from a numbered screen and loads them to the
+current screen.
+
+        Get Palette sourcescreen
+
+An  optional mask can be used to load a selection of these colours from the
+source.
+
+        Get Palette sourcescreen,mask
+LOAD IFF
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]Load Iff}
+
+LOADs an IFF format graphic to your current screen.If you want to choose an
+alternative destination screen, simply enter its number after the filename.
+
+        Load iff "filename"
+        Load Iff "filename",screen number
+
+NTSC
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]=Ntsc}
+
+Reports back which screen mode AMOS Professional is running under.
+
+0 means PAL is active and -1 means NTSC is being used.
+PALETTE
+{[RAMOSPro_Examples:Examples/H-0/Help_5.AMOS,0,4]Palette}
+
+Sets  any combination of current screen colours from the available PALETTE.
+Colours  are made up using hexadecimal notation, making it easier to define
+the RGB of a colour.
+
+        Palette $RGB,$RGB,$RGB
+SAVE IFF
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]Save Iff}
+
+SAVEs the current screen as an IFF picture on your disc.
+
+        Save Iff "filename"
+
+A  compression  code  can  be  used  as an option for compacting the screen
+before  it is saved.  This code is set to zero to save the screen as it is,
+or set to 1 to use the standard file compression system for saving memory.
+
+        Save Iff "filename",compressioncode
+SCIN
+{[RAMOSPro_Examples:Examples/H-3/Help_36.AMOS,0,4]=SCIN}
+
+Returns the number of an AMOS screen at your selected hardware coordinates.
+
+        s=SCIN(hx,hy)
+
+If a screen isn't defined at these coordinates, you'll get a value of zero.
+SCREEN
+{[RAMOSPro_Examples:Examples/H-3/Help_39.AMOS,0,4]Screen}
+
+This comes in two flavours:
+
+        Screen number
+
+Selects  a  SCREEN for all future graphics and text operations, even if the
+screen is hidden away in the background.
+
+        s=Screen
+
+Returns  the  number  of the current screen you are using for your text and
+graphics operations.
+
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]=Screen}
+
+SCREEN CLONE
+{[RAMOSPro_Examples:Examples/H-3/Help_36.AMOS,0,4]Screen Clone}
+
+Makes  an  exact  CLONEd copy of the current SCREEN and assigns it to a new
+screen number.
+
+        Screen Clone number
+SCREEN CLOSE
+{[RAMOSPro_Examples:Examples/H-3/Help_34.AMOS,0,4]Screen Close}
+
+Erases your SCREEN and frees up its memory for the rest of your program.
+
+        Screen Close number
+SCREEN COLOUR
+{[RAMOSPro_Examples:Examples/H-3/Help_36.AMOS,0,4]=Screen Colour}
+
+Returns the maximum number of colours available from the current screen.
+
+        Print Screen Colour 
+
+SCREEN DISPLAY
+{[RAMOSPro_Examples:Examples/H-3/Help_34.AMOS,0,4]Screen Display}
+
+Sets the position of your SCREEN on the display.
+
+        Screen Display number,x,y,width,height
+
+x,y enter the position in hardware coordinates
+
+width,height specify the size of the screen area to be displayed.
+SCREEN HEIGHT
+{[RAMOSPro_Examples:Examples/H-3/Help_36.AMOS,0,4]=Screen Height}
+
+Returns the height of the current screen in lines.
+
+       Print Screen Height
+SCREEN HIDE
+{[RAMOSPro_Examples:Examples/H-3/Help_37.AMOS,0,4]Screen Hide}
+
+HIDEs a SCREEN invisibly away in the background.
+
+        Screen Hide
+
+Hides the current screen
+
+        Screen Hide screennumber
+
+Hides screennumber
+
+The screen can be redisplayed using the SCREEN SHOW command.
+SCREEN OFFSET
+{[RAMOSPro_Examples:Examples/H-3/Help_34.AMOS,0,4]Screen Offset}
+
+Changes  the  position  of  the  first pixel to be displayed on the screen.
+This allows you to scroll a large screen neatly through the display area.
+
+        Screen Offset number,x,y
+SCREEN OPEN
+{[RAMOSPro_Examples:Examples/H-3/Help_34.AMOS,0,4]Screen Open}
+
+OPENs a new AMOS SCREEN on the display. 
+
+        Screen Open number,width,height,colours,mode
+
+number ranges from 0 to 7.
+
+width and height set the size of the screen in pixels.
+
+colours enter the number of colours to be used.
+
+mode sets the screen mode. Allowable options include Lowres,Hires, and Laced.
+SCREEN SHOW
+
+{[RAMOSPro_Examples:Examples/H-3/Help_37.AMOS,0,4]Screen Show}
+
+SHOWs a SCREEN that has been previously hidden from view with SCREEN HIDE.
+
+        Screen Show number
+SCREEN TO BACK
+{[RAMOSPro_Examples:Examples/H-3/Help_39.AMOS,0,4]Screen To Back}
+
+Moves a SCREEN to the back of your display.
+
+        Screen To Back
+
+Affects the current screen
+
+        Screen To Back number
+
+Moves another screen to the back instead.
+SCREEN TO FRONT
+
+{[RAMOSPro_Examples:Examples/H-3/Help_39.AMOS,0,4]Screen To Front}
+
+Moves a SCREEN to the front of your display.
+
+        Screen To Front
+
+Affects the current screen
+
+        Screen To Front number
+
+Moves another screen to the front instead.
+SCREEN WIDTH
+{[RAMOSPro_Examples:Examples/H-3/Help_36.AMOS,0,4]Screen Width}
+
+Returns the width in pixels of the current screen.
+
+        Print Screen Width
+VIEW
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]View}
+
+VIEWs  all  screens which have changed since the last update.  This is used
+with  the  AUTO  VIEW  OFF  feature  to  display your new AMOS screens at a
+particular point in your program.
+
+        View
+Screen effects
+
+                {[IAPPEAR       ,4,3] Appear        } {[IFLASH        ,4,3] Flash         } {[ISCREEN SWAP  ,4,3] Screen Swap   }
+                {[ICOP LOGIC    ,4,3] =Cop Logic    } {[IFLASH OFF    ,4,3] Flash Off     } {[ISCREEN BASE ,4,3] =Screen Base  }
+                {[ICOP MOVE     ,4,3] Cop Move      } {[ILOGBASE     ,4,3] =Logbase      } {[ISCROLL       ,4,3] Scroll        }
+                {[ICOP MOVEL    ,4,3] Cop Movel     } {[ILOGIC       ,4,3] =Logic        } {[ISET RAINBOW  ,4,3] Set Rainbow   }
+                {[ICOP RESET    ,4,3] Cop Reset     } {[IPACK         ,4,3] Pack          } {[ISHIFT DOWN   ,4,3] Shift Down    }
+                {[ICOP SWAP     ,4,3] Cop Swap      } {[IPHYBASE     ,4,3] =Phybase      } {[ISHIFT OFF    ,4,3] Shift Off     }
+                {[ICOP WAIT     ,4,3] Cop Wait      } {[IPHYSIC      ,4,3] =Physic       } {[ISHIFT UP     ,4,3] Shift Up      }
+                {[ICOPPER OFF   ,4,3] Copper Off    } {[IRAIN        ,4,3] =Rain         } {[ISPACK        ,4,3] Spack         }
+                {[ICOPPER ON    ,4,3] Copper On     } {[IRAINBOW      ,4,3] Rainbow       } {[IUNPACK       ,4,3] Unpack        }
+                {[IDEF SCROLL   ,4,3] Def Scroll    } {[IRAINBOW DEL  ,4,3] Rainbow Del   } {[IWAIT VBL     ,4,3] Wait Vbl      }
+                {[IFADE         ,4,3] Fade          } {[ISCREEN COPY  ,4,3] Screen Copy   } {[IZOOM         ,4,3] Zoom          }
+
+
+APPEAR
+{[RAMOSPro_Tutorial:Tutorials/Appear.AMOS,0,4]Appear}
+
+Slowly fades from one screen to another using a range of fancy effects.
+
+        Appear source To destination,effect
+
+effect  sets  the  type of fade ranging from 1 to the maximum number of the
+pixels on your screen.
+
+        Appear source To destination,effect,pixels
+
+pixels  enters  the  number of screen points to be affected by the command.
+It defaults to the entire screen area.
+
+COP  LOGIC
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Cop  Logic}
+
+Returns the absolute address of the logical copper list in memory.
+
+        address=Cop Logic
+COP MOVE
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Cop Move}
+
+Inserts a "MOVE" command into the current logical copper list.
+
+        Cop Move addr,value
+COP MOVEL
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Cop Movel} 
+
+Generates a matched pair of "MOVE" commands in the new copper list.
+
+        Cop Movel addr,value
+
+COP RESET
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Cop Reset}
+
+Adds a pair of "Move" commands which forces the copper list to restart from
+the very first instruction.  You can use this to generate simple loops.
+
+        Cop Reset
+
+COP SWAP 
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Cop Swap}
+
+Switches  the  logical  and  physical copper lists around.  Your new copper
+list  will  now be flicked neatly into place.  You'll see the results after
+the next vertical blank.
+
+        Cop Swap
+        Wait Vbl
+COPPER OFF
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Copper Off}
+
+Freezes  the  automatic  copper  generation which forms the mainstay of the
+AMOS Graphics system.  Once it's turned off, you're on your own!
+
+        Copper OfF
+COPPER ON
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Copper On}
+
+Restarts the standard copper calculations and returns your AMOS screen back
+to normal.
+
+COP WAIT
+{[RAMOSPro_Examples:Examples/H-6/Help_62.AMOS,0,4]Cop Wait}
+
+Enters a "WAIT" instruction at the current point in your copper list.
+
+        Cop Wait x,y
+
+x can be a hardware coordinate from 0 to 448. 
+y can be any value from 0 to 312.
+
+         Cop Wait x,y,xmask,ymask
+
+xmask  and  ymask  are  bitmasks  which  allow you to wait until the screen
+coordinates satisfy a specific combination of bits.  They default to $1FF.
+
+DEF SCROLL
+{[RAMOSPro_Examples:Examples/H-3/Help_38.AMOS,0,4]Def Scroll}
+
+Defines  a scrolling zone on the current screen.  This zone can be scrolled
+through the display using the SCROLL command.
+
+        Def Scroll z,tx,ty to bx,by,dx,dy
+
+z is the scroll zone from 1 to 16.
+
+tx,ty are the coordinates of the top left hand corner of the zone.
+
+bx,y hold the coordinates of the point dialogonally opposite.
+
+dx,dy enters the distance in pixels to be moved right or down in each scroll.
+FADE
+{[RAMOSPro_Tutorial:Tutorials/fade.AMOS,0,4]Fade}
+
+Fades a selected range of colours onto the screen.
+
+        Fade speed
+
+Slowly reduces all the colour values down to zero (black).
+
+speed holds the delay in 50th of a second between each step.
+
+        Fade Speed To $RGB,$RGB...
+
+Fades  using a list of colour values, separated by commas.  You can include
+as  many  values  as  you  like.   Providing  you  keep the commas in their
+original positions, you can also omit colours from the fade. Eg. 
+Fade 10 To 1,,3, : Rem only affects colours 0 and 2
+
+  
+        Fade speed To screen number 
+
+
+Fades the colours into the colour palette used by the selected AMOS Screen. 
+A value of -1 fades the colours from the Sprite Palette instead.
+
+        Fade speed To screen,number,mask 
+
+mask is an optional bit-pattern specifying which colours are to be changed.
+Bit 0 affects the first colour, bit 1 the second etc.
+
+FLASH
+{[RAMOSPro_Examples:Examples/H-2/Help_25.AMOS,0,4]Flash}
+
+FLASH  automatically  flicks  a  selected  colour through a range of values
+using interrupts.
+
+        Flash index,"(RGB,delay)(RGB,delay)"
+
+index enters the  colour to be changed.
+
+RGB holds a new colour value in Red Green Blue format.
+
+delay  sets the period this colour will be held on the screen in 50ths of a
+second.              
+
+FLASH OFF
+{[RAMOSPro_Examples:Examples/H-2/Help_25.AMOS,0,4]Flash Off}
+
+Turns off an animated colour sequence created with the FLASH command.
+
+        Flash Off
+LOGBASE
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]=Logbase}
+
+Returns  the  address  of  one of the six possible bit-planes making up the
+current  LOGical  screen.   If  the  plane  does  not exist, a zero will be
+returned.
+
+        address=Logbase(planenumber)
+=LOGIC
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]=Logic}
+
+Returns  the  identification number of the LOGICal screen.  This number can
+be used in conjunction with SCREEN COPY,APPEAR or ZOOM.
+
+        Print Logic
+PACK
+{[RAMOSPro_Examples:Examples/H-4/Help_41.AMOS,0,4]Pack}
+
+Compresses any part of an AMOS screen into a memory bank.
+
+        Pack screennumber To banknumber,tx,ty,bx,by
+
+tx,ty hold the coordinates of the top left of the area to be packed.
+
+bx,by specify the point diagonally opposite. 
+=PHYBASE
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]=Phybase}
+
+Returns  the  address  of  one of the six possible bit-planes making up the
+current  PHYsical  screen.   If  the  plane  does  not  exist, zero will be
+returned.
+
+        address=Phybase(planenumber)
+PHYSIC
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]=Physic}
+
+Returns  the identification number of the PHYSICal screen.  This number can
+be used in conjunction with SCREEN COPY,APPEAR or ZOOM.
+
+        I=Physic
+RAIN
+{[RAMOSPro_Tutorial:Tutorials/Rainbows.AMOS,0,4]Rain}
+
+Sets the colour of an individual RAINbow line on the screen. 
+
+        A=Rain(rnumber,line)
+
+rnumber is the number of a rainbow created with the SET RAINBOW command.
+
+line is the number of the rainbow line you wish to change, from 0 to 270.
+RAINBOW
+{[RAMOSPro_Tutorial:Tutorials/Rainbows.AMOS,0,4]Rainbow}
+
+Creates an attractive RAINBOW effect using the values you've defined using 
+SET RAINBOW or the RAIN function.
+
+        Rainbow rnumber,base,y,height
+
+rnumber is the number of the rainbow from 0 to 3.
+
+base  is an offset to the first colour in the rainbow table to be displayed
+on the screen.
+
+y enters the vertical position of the rainbow as a hardware coordinate.
+
+height sets the height of the rainbow in scan lines.
+RAINBOW DEL
+{[RAMOSPro_Tutorial:Tutorials/Rainbows.AMOS,0,4]Rainbow Del}
+
+DELetes one or more RAINBOWs.
+
+        Rainbow Del
+
+Erases ALL current rainbow definitions,
+
+        Rainbow Del rnumber
+
+Deletes a single rainbow.
+SCREEN BASE
+{[RAMOSPro_Examples:Examples/H-6/Help_64.AMOS,0,4]Screen Base}
+
+Returns the BASE address of the SCREEN table that is used to hold a list of
+dimensions and statistics about your AMOS Professional screens.
+
+        table=Screen Base
+SCREEN COPY
+{[RAMOSPro_Examples:Examples/H-3/Help_39.AMOS,0,4]Screen Copy}
+
+Copies  a  selected area of the screen from one place to another, using the
+Amiga's amazing Blitter Chip.
+
+        Screen Copy screen1 To screen2
+
+Copies an entire screen.
+
+screen1 holds the source image
+
+screen2 sets the number of the destination screen.  
+
+
+        Screen Copy screen1,tx,ty,bx,by To screen2,sx,sy,mode
+
+Copies just part of a screen.
+
+tx,ty enter the coordinates of the top left of the source image
+
+bx,by specify the point diagonally opposite. 
+
+sx,sy choose the top left-hand coordinates of the destination.
+
+
+        Screen Copy screen1,tx,ty,bx,by To screen2,sx,sy,mode
+
+Copies using a special blitter mode.
+
+Try mode values like: %11100000, %00110000, %01100000
+SCREEN SWAP
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]Screen Swap}
+
+SWAPs  the display between the current logical and physical components of a
+double  buffered screen.  The old physical screen is hidden away in memory,
+and the logical one is flicked onto the display.
+
+        Screen Swap
+
+If  you  have  several  double  buffered  screens,  you can use an extended
+version of this command.
+
+        Screen Swap screennumber
+SCROLL
+{[RAMOSPro_Examples:Examples/H-3/Help_38.AMOS,0,4]Scroll}
+
+Scrolls  the screen using the settings you have previously specified in the
+DEF SCROLL command.
+
+        Scroll z
+
+Where z is the number of your scrolling zone.
+SET RAINBOW
+{[RAMOSPro_Tutorial:Tutorials/Rainbows.AMOS,0,4]Set Rainbow}
+
+SETs up a RAINBOW effect for later display.
+
+        Set Rainbow rnumber,colour,length,r$,g$,b$
+
+rnumber is the number of your rainbow from 0 to 3
+
+colour is an index to be assigned to your effect.
+
+length enters the size of the table used to store your rainbow colours from
+16 to 65500.
+
+R$,G$,B$  give  the red, green and blue intensities of your colour bands in
+the format (lines,step,count)
+
+SHIFT UP
+{[RAMOSPro_Examples:Examples/H-2/Help_25.AMOS,0,4]Shift Up}
+
+Rotates a colour upwards through the current screen palette.
+
+        Shift Up delay,first,last,flag
+
+first  and last choose the range of colour indexes which will be rotated by
+your instruction.
+
+delay sets the delay in fiftieths of a second between each colour shift. 
+
+type =1 cycles the colours continuosly.
+     =0 discard the colour value of index last after each rotation.
+SHIFT DOWN
+{[RAMOSPro_Examples:Examples/H-2/Help_25.AMOS,0,4]Shift Down}
+
+Rotates a colour downwards through the current screen palette.
+
+        Shift Down delay,first,last,flag
+
+first  and last choose the range of colour indexes which will be rotated by
+your instruction.
+
+delay sets the delay in fiftieths of a second between each colour shift. 
+
+type =1 cycles the colours continuosly.
+     =0 discard the colour value of index first after each rotation.
+
+SHIFT OFF
+{[RAMOSPro_Examples:Examples/H-2/Help_25.AMOS,0,4]Shift Off}
+
+Turns off a colour rotation generated by the SHIFT UP or SHIFT DOWN 
+commands.
+
+        Shift Off
+SPACK
+{[RAMOSPro_Examples:Examples/H-4/Help_41.AMOS,0,4]Spack}
+
+Performs  a  Screen  PACK  and  saves it into a memory bank.  The graphics,
+screen  modes  and  all  location  details  are saved together, ready to be
+unpacked at a later date.
+
+        Spack screennumber To Banknumber
+
+Packs an entire screen
+
+        Spack screennumber To banknumber,tx,ty,bx,by
+
+Compresses the region from tx,ty to bx,by
+UNPACK
+{[RAMOSPro_Examples:Examples/H-4/Help_41.AMOS,0,4]Unpack}
+
+UNPACKs a compacted screen in one of three ways.
+
+        Unpack banknumber To screennumber
+
+Opens a screen and restore its image from the memory bank.
+
+        Unpack banknumber
+
+Unpacks a screen at its original position.
+
+        Unpack banknumber,x,y
+
+Unpacks an image and redraws it starting at coordinates x,y
+WAIT VBL
+{[RAMOSPro_Examples:Examples/H-4/Help_40.AMOS,0,4]Wait Vbl}
+
+Stops  and WAITs until the next Vertical BLank period, the 50th of a second
+it takes to update a screen.  This is ideal for synchronising animation and
+screen swaps.
+
+        Wait Vbl
+ZOOM
+{[RAMOSPro_Examples:Examples/H-7/Help_77.AMOS,0,4]Zoom}
+
+Magnifies or reduces a section of the screen by ZOOMing in or out.
+
+        Zoom source,stx,sty,sbx,sby To destination,dtx,dty,dbx,dby
+
+Takes  an image from stx,sty to sby,sby and copies it to the region dtx,dty
+to  dbx,dby.   If the destination area is larger than the source, the image
+will  be  expanded  in  order  to  fit.  If it's smaller, the image will be
+reduced.
+
+
+Graphics
+                   {[IBAR        ,4,3] Bar               } {[IPLOT       ,4,3] Plot              }
+                   {[IBOX        ,4,3] Box               } {[IPOLYGON    ,4,3] Polygon           }
+                   {[ICIRCLE     ,4,3] Circle            } {[IPOLYGON TO ,4,3] Polygon To        }
+                   {[ICLIP       ,4,3] Clip              } {[IPOLYLINE   ,4,3] Polyline          }
+                   {[IDRAW       ,4,3] Draw              } {[IPOLYLINE TO,4,3] Polyline To       }
+                   {[IDRAW TO    ,4,3] Draw To           } {[ISET LINE   ,4,3] Set Line          }
+                   {[IELLIPSE    ,4,3] Ellipse           } {[ISET PAINT  ,4,3] Set Paint         }
+                   {[IGR LOCATE  ,4,3] Gr Locate         } {[ISET PATTERN,4,3] Set Pattern       }
+                   {[IGR WRITING ,4,3] Gr Writing        } {[ISET SLIDER ,4,3] Set Slider        }
+                   {[IHSLIDER    ,4,3] Hslider           } {[ISET TEMPRAS,4,3] Set Tempras       }
+                   {[IINK        ,4,3] Ink               } {[IVSLIDER    ,4,3] Vslider           }
+                   {[IPAINT      ,4,3] Paint             } {[IX GR       ,4,3] =X Gr             }
+                   {[IPOINT      ,4,3] =Point            } {[IY GR       ,4,3] =Y Gr             }
+BAR
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Bar}
+
+Draws a filled rectangle at your chosen screen coordinates.
+
+        Bar x1,y1 To x2,y2
+BOX
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Box}
+
+Draws a hollow rectangle from x1,y1 to x2,y2
+
+        Box x1,y1 To x2,y2
+CIRCLE
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Circle}
+
+Draws an empty CIRCLE with its centre at coordinates x,y and with a radius r.
+
+        Circle x,y,r
+CLIP
+{[RAMOSPro_Examples:Examples/H-0/Help_9.AMOS,0,4]Clip}
+
+Limits all drawing operations to a specified screen area.
+
+       Clip x1,y1 To x2,y2
+
+DRAW
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Draw}
+
+Draws  a  line between the starting and ending coordinates.  Parameters can
+be omitted if required.
+
+        Draw x1,y1 To x2,y2
+DRAW TO
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Draw To}
+
+Draws  a  line  from  the  current  graphic  cursor  location  to  your new
+coordinates.
+
+        Draw To x3,y3
+ELLIPSE
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Ellipse}
+
+Draws  an  outlined  ELLIPSE at your chosen coordinates, with the specified
+horizontal and vertical radii.
+
+        Ellipse x,y,radius1,radius2
+
+GR LOCATE
+{[RAMOSPro_Examples:Examples/H-0/Help_6.AMOS,0,4]Gr Locate}
+
+Positions  the  GRaphics  cursor at your new coordinates before you start a
+drawing operation.
+
+        Gr Locate x,y
+GR WRITING
+{[RAMOSPro_Examples:Examples/H-0/Help_9.AMOS,0,4]Gr Writing}
+
+Gives a choice of several alternative GRaphics WRITING modes.
+
+        Gr Writing bitpattern
+
+Bit 0
+
+=0, only the graphics set to the current ink colour will be drawn.
+=1, new images will completely replace existing images.
+    This is the normal setting. 
+
+Bit 1
+
+=1, new images will be combined with existing images. 
+
+Bit 2
+
+=1, all new images will be drawn in "inverse video", which means that 
+    the current ink colour will appear as the current paper colour and 
+    vice versa.
+HSLIDER
+{[RAMOSPro_Examples:Examples/H-3/Help_33.AMOS,0,4]Hslider}
+
+Draws  a  horizontal  slider  bar  on the screen.  With a little work, it's
+possible  to  animate  this  to  generate  attractive  scroll bars for your
+program.
+
+        Hslider tx,ty To bx,by,total,pos,size
+
+total sets  the number of units the bar is divided into.
+
+pos specifies the postion of the slider box relative to the start of 
+    the bar, in the units your entered in total.
+
+size fixes the size of the slider box.
+INK
+{[RAMOSPro_Examples:Examples/H-0/Help_5.AMOS,0,4]Ink}
+
+Defines  the colour to be used by all future drawing operations. 
+
+        Ink colournumber
+
+There are two optional parameters that you can tack on, a background colour
+and a border colour.
+          
+        Ink colournumber,backgroundnumber
+
+        Ink colournumber,backgroundnumber,bordernumber
+PAINT
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Paint}
+
+Fills  an  area  starting at coordinates x,y with your chosen INK colour or
+pattern.
+
+        Paint x,y
+
+        Paint x,y,mode
+
+
+mode = 0 painting stops wherever the current border colour is found.
+     = 1 stops at the first pixel different from the current INK.
+PLOT
+{[RAMOSPro_Examples:Examples/H-0/Help_6.AMOS,0,4]Plot}
+
+Draws  a point in the current ink colour at your choice of coordinates.  If
+you  want,  a  new colour can be specified, which will be used for this and
+all further drawing operations.
+
+        Plot x,y,colour
+POINT
+{[RAMOSPro_Examples:Examples/H-0/Help_6.AMOS,0,4]=Point}
+
+Returns  the  colour index of a single screen POINT.  You'll get a NEGATIVE
+value if the point lies outside the current screen area.
+
+        Print Point(x,y)
+POLYGON
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Polygon}
+
+Draws  a  filled POLYGON, or many sided shape using the current ink colour.
+The shape of the polygon is set up with a list of screen coordinates.
+
+        Polygon x1,y1 To x2,y2 To x3,y3 To ...
+POLYGON TO
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Polygon To}
+
+Draws a filled polygon starting from the current graphics cursor position.
+
+         Plot x1,y1
+         Polygon To x2,y2 To x3,y3 To ...
+POLYLINE
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Polyline}
+
+Draws  a  hollow  polygon  using  the current ink colour.  The shape of the
+polygon is set up with a list of screen coordinates.
+
+        Polyline x1,y1 To x2,y2 To x3,y3 To ...
+POLYLINE TO
+{[RAMOSPro_Examples:Examples/H-0/Help_7.AMOS,0,4]Polyline To}
+
+Draws a hollow polygon starting from the current graphics cursor position.
+
+         Plot x1,y1
+         Polyline To x2,y2 To x3,y3 To ...
+SET LINE
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Set Line}
+
+SETs  the  appearance of all straight LINEs to be drawn using DRAW and BOX.
+A mask must be set after SET LINE in the form of a 16-bit binary number.
+
+        Set Line %1111000011110000 : Rem Dotted line
+        Set Line %1111111111111111 : Rem Normal line
+SET PAINT
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Set Paint}
+
+SETs the outline mode for shapes drawn using BAR and POLYGON.  A mode value
+of  1  creates  a  border  line of the last INK colour, and a value of zero
+turns the outline off again.
+
+        Set Paint modenumber
+SET PATTERN
+{[RAMOSPro_Examples:Examples/H-0/Help_8.AMOS,0,4]Set Pattern}
+
+SETs  the  PATTERN  to  be  used  for  filling shapes by choosing a pattern
+number.   A  value  of  zero  is the normal setting, which completely fills
+shapes  with the current INK colour.  If the pattern number is greater than
+zero,  one  of  the  built-in patterns is used.  If it is less than zero, a
+clipped version of one of your Bobs will be adapted as your fill pattern.
+
+        Set Pattern number
+SET SLIDER
+{[RAMOSPro_Examples:Examples/H-3/Help_33.AMOS,0,4]Set Slider}
+
+Sets the style of a slider bar created with VSLIDER or HSLIDER.
+
+        Set Slider bink,bpaper,bout, bpatt,sink, spaper,sout,spatt
+
+bink,bpaper,bout  enter  the  colours for the ink,paper, and outline of the
+slider.
+
+bpattern specifies the fill pattern to be used.
+
+sink,spaper,sout,spatt define the appearance of the slider box inside.
+SET TEMPRAS
+{[RAMOSPro_Examples:Examples/H-0/Help_9.AMOS,0,4]Set Tempras}
+
+Sets the location and size of the temporary memory area used by your graphics
+operations.
+
+        Set Tempras address,size
+VSLIDER
+{[RAMOSPro_Examples:Examples/H-3/Help_33.AMOS,0,4]Vslider}
+
+Draws a vertical slider bar on the screen.
+
+        Vslider tx,ty To bx,by,total,pos,size
+
+total sets the number of units the bar is divided into.
+
+pos  specifies  the position of the slider box relative to the start of the
+bar, in the units you've entered in total.
+
+size fixes the size of the slider box.
+
+Menus
+  {[IBANK TO MENU     ,4,3] Bank To Menu     } {[IMENU DEL         ,4,3] Menu Del         } {[IMENU MOUSE ON    ,4,3] Menu Mouse On    } {[IMENU TO BANK     ,4,3] Menu To Bank     }
+  {[ICHOICE          ,4,3] =Choice          } {[IMENU INACTIVE    ,4,3] Menu Inactive    } {[IMENU MOVABLE     ,4,3] Menu Movable     } {[ION MENU          ,4,3] On Menu          }
+  {[IMENU$           ,4,3] =Menu$=          } {[IMENU ITEM MOVABLE,4,3] Menu Item Movable} {[IMENU OFF         ,4,3] Menu Off         } {[ION MENU DEL      ,4,3] On Menu Del      }
+  {[IMENU ACTIVE      ,4,3] Menu Active      } {[IMENU ITEM STATIC ,4,3] Menu Item Static } {[IMENU ON          ,4,3] Menu On          } {[ION MENU OFF      ,4,3] On Menu Off      }
+  {[IMENU BAR         ,4,3] Menu Bar         } {[IMENU KEY         ,4,3] Menu Key         } {[IMENU ONCE        ,4,3] Menu Once        } {[ION MENU ON       ,4,3] On Menu On       }
+  {[IMENU BASE        ,4,3] Menu Base        } {[IMENU LINE        ,4,3] Menu Line        } {[IMENU SEPARATE    ,4,3] Menu Separate    } {[ISET MENU         ,4,3] Set Menu         }
+  {[IMENU CALC        ,4,3] Menu Calc        } {[IMENU LINK        ,4,3] Menu Link        } {[IMENU STATIC      ,4,3] Menu Static      } {[IX MENU          ,4,3] =X Menu          }
+  {[IMENU CALLED      ,4,3] Menu Called      } {[IMENU MOUSE OFF   ,4,3] Menu Mouse Off   } {[IMENU TLINE       ,4,3] Menu Tline       } {[IY MENU          ,4,3] =Y Menu          }
+
+
+                           {[IHelpEmbeddedmenu,4,3] Embedded Menu Commands }
+BANK TO MENU
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_8.AMOS,0,4]Bank To Menu}
+
+Restores a menu definition you've previously set up in the menu bank.
+
+        Bank To Menu bank number
+
+You can activate your menu using the MENU ON instruction.
+CHOICE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_1.AMOS,0,4]=Choice}
+
+If  you use CHOICE on it's own, it returns a value of True (-1) if the user
+has selected a menu item, or false if the menu hasn't been accessed.
+
+         test=Choice
+
+There's  also  a  second  version  which allows you to read the actual item
+which has been chosen.
+
+         test=Choice(level)
+
+test  holds  the number of the item which has been highlighted by the user.
+level is the "dimension" of the menu to be tested.
+
+Level 1 = the title line
+
+Levels 2 through 8 read a submenu at the appropriate level.
+MENU ACTIVE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Active}
+
+Re-activates  a  set of menu items which have been greyed out with the MENU
+INACTIVE instruction.
+
+        Menu Active level
+
+Activates an entire level.
+
+        Menu Active(a,b,c)
+
+Activates  a single item.  The position of the item in the menu tree is set
+with  a list of index numbers such as 1,2,3.  Depending on the type of your
+menu, you can include as many as eight parameters.
+
+        Menu Active(1,2)
+        Menu Active(1,2,3,4,5)
+MENU BAR
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Bar}
+
+Displays  your menu as a vertical BAR, with each item in your list directly
+below the previous one.
+
+        Menu Bar level
+
+Sets an entire level.
+
+        Menu Bar(a,b,...)
+
+Sets an individual menu item.
+MENU BASE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_7.AMOS,0,4]Menu Base}
+
+Moves your menu to a new position on the screen.
+
+        Menu Base x,y
+
+MENU CALC
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_8.AMOS,0,4]Menu Calc}
+
+Calculates  the  new  state  of your menu after it's been changed.  This is
+normally  automatic,  but you can take control using MENU OFF to perform it
+directly at the most convenient point in your program.
+
+        Menu Calc
+
+After the calculation has been performed you can now safely restart the menu
+with MENU ON.
+MENU CALLED
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_7.AMOS,0,4]Menu Called}
+
+Redraws  your  menu  fifty  times  a  second whenever it's displayed on the
+screen.   It's  used  in  conjunction  with  the  embedded menu commands to
+generate terrific animated menu items.
+
+        Menu Called(a,b...)
+MENU DEL
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_4.AMOS,0,4]Menu Del}
+
+Erases the selected menu items from the Amiga's memory.
+
+        Menu Del
+
+Deletes the Entire menu.
+
+        Menu Del(a,b..)
+
+Erases a single menu item.
+MENU INACTIVE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Inactive}
+
+"greys  out"  a  series of options from the menu.  These items can still be
+selected, but they won't return a value to your AMOS program.
+
+        Menu Inactive level
+
+Disables an entire level of your menu.
+
+       Menu Inactive(a,b,..)
+
+Turns off a single menu item.
+MENU ITEM MOVABLE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Item Movable}
+
+Re-positions  individual  menu  items  anywhere  on the display.  It's used
+after a MENU MOVABLE command to add extra flexibility to your menus.
+
+      Menu Item Movable level
+
+Makes all items at the current level movable
+
+      Menu Item Movable(a,b,..)
+
+Makes a single item movable.
+MENU ITEM STATIC
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Item Static}
+
+Locks  a menu item firmly into position, so that it can't be dragged by the
+user.  These static menus are just like the standard AMOS Editor menu.
+
+      Menu Item Static level
+
+Fixes all items at the current level
+
+      Menu Item Static(a,b,..)
+     
+Locks a single item into place. 
+MENU KEY
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_4.AMOS,0,4]Menu Key}
+
+Assigns  a  key-press  to any individual menu item.  This is interpreted by
+the  Menu  system  exactly as if the user had selected the option directly
+from the menu.
+
+
+        Menu Key(a,b,..) To c$
+
+Assign a single key-press in c$ to the item at a,b,..
+
+        Menu Key(a,b,..) To scancode
+
+        Menu Key(a,b,..) To scancode,shift
+
+See KEY SHIFT for a list of the various shift options.
+MENU LINE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Line}
+
+Displays  your  menu items in the form of a horizontal line stretching from
+the  top left hand corner of the first menu item to the bottom right of the
+last one.
+
+       Menu Line level
+
+Displays the current level as a line
+
+       Menu Line(a,b,..)
+
+Displays individual elements of a sub-menu as a line.
+MENU LINK
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Link}
+
+Links one or more menu items together, so that they are moved or display as
+a group.
+
+       Menu Link level
+       Menu Link(a,b,..)
+MENU MOUSE OFF
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Mouse Off}
+
+Deactivates the automatic menu movements generated by MENU MOUSE ON.
+
+      Menu Mouse Off
+MENU MOUSE ON
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Mouse On}
+
+From  now  on, the menu will be positioned directly under the mouse pointer
+whenever  it's  displayed on the screen.  This mode can be deactivated with
+MENU MOUSE OFF.
+
+        Menu Mouse On
+MENU MOVABLE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Movable}
+
+Allows  you to move selected menus directly with the mouse.  If you wish to
+manipulate  the individual menu items directly, you'll need to use the MENU
+ITEM MOVABLE command as well.
+
+        Menu Movable Level
+
+Makes an entire level movable
+
+        Menu Movable(a,b,..)
+
+Makes a single sub-menu movable
+MENU OFF
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_1.AMOS,0,4]Menu Off}
+
+Temporarily freezes the action of your entire menu.  Any attempt to display
+it on the screen will be ignored.
+
+        Menu Off
+
+The menu can be restarted with a call to MENU ON.
+MENU ON
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_1.AMOS,0,4]Menu On}
+
+Activates  a  menu which has been previously defined in your program.  This
+menu  will  be  displayed  on the screen when the user holds down the RIGHT
+mouse button.
+
+        Menu On
+
+Starts up a menu created with MENU$
+
+        Menu On bank
+
+Activates a menu held in a menu bank.
+MENU ONCE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_7.AMOS,0,4]Menu Once}
+
+Deactivates  the  automatic  redrawing  process  started using MENU CALLED.
+From  now on, the menu item will only be display ONCE when it's called onto
+the screen.
+
+        Menu Once(a,b,..)
+MENU SEPARATE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Separate}
+
+Tells  AMOS  to  separate all the menu items at the current level.  So each
+item is treated independently of any of it's neighbours.
+
+        Menu Separate Level
+        Menu Separate(a,b,..)
+MENU STATIC
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Static}
+
+Fixes the current menu firmly into it's present position.
+
+        Menu Static level
+
+Makes all the menus at the selected level completely immovable.
+
+        Menu Static(a,b,..)
+
+Affects a single sub-menu.
+MENU TLINE
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_6.AMOS,0,4]Menu Tline}
+
+Displays a section of the menu on a horizontal bar stretching from the left
+of the screen to the far right.  It's just like a normal title line.
+
+        Menu Tline level
+
+Displays the entire level as a TLINE
+
+        Menu Tline(a,b,..)
+
+Sets a single sub-menu.
+MENU TO BANK
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_8.AMOS,0,4]Menu To Bank}
+
+Saves  all the current menu definitions into the selected AMOS memory bank.
+This  bank  can  be subsequently saved on the disc, and reloaded to provide
+you  with instant access to your menu.  It can be started up using the MENU
+ON command.
+
+        Menu To Bank banknumber
+
+These banks can also be created using the Menu_Bank_Editor.AMOS utility
+on the AMOSPro Productivity disc 1.
+MENU$
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_1.AMOS,0,4]=Menu$}
+
+MENU$  is  a  special  pseudo-variable which allows you to create your AMOS
+Menus directly inside one of your programs.
+
+        Menu$(,,)=normal$
+        Menu$(,,)=normal,selected$
+        Menu$(,,)=normal,selected$,inactive$
+        Menu$(,,)=normal,selected$,inactive$,background$
+
+normal$ holds the description of the normal menu item.
+
+selected$ sets appearance of an item when it's highlighted by the user.
+
+inactive$ enters the description of an inactive item.
+
+background$ defines the background area of your items.
+
+These strings can contain either plain text or embedded Menu commands.
+
+
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_2.AMOS,0,4] Menu Hierarchy}
+ON MENU
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_3.AMOS,0,4]On Menu}
+
+Automatically  jumps to an appropriate Procedure, or Label depending on the
+menu  title selected by the user.  This routine can then check out the item
+number using the CHOICE function.
+
+There are three separate forms of this command.
+
+        On Menu Proc proc1,proc2..
+
+        On Menu Gosub label1,label2...
+
+        On Menu Goto label1,label2...
+
+This  feature  needs  to be activated using the ON MENU ON command prior to
+use.   Also  note  that  before  returning to AMOS Basic, your procedure or
+routine  MUST  perform an  ON MENU ON  to  restart  the  testing process.
+Otherwise the menus will be deactivated after the first menu call.
+
+ON MENU DEL
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_3.AMOS,0,4]On Menu Del}
+
+Deletes the internal labels used by ON MENU and allows you to redirect your
+menus  to  another  part  of  your program.  Before using this command, you
+should  turn  off  the Menu selection with ON MENU OFF.  You can then use a
+further ON MENU command to set up your new menu actions.
+
+        On Menu Del
+ON MENU OFF
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_3.AMOS,0,4]On Menu Off}
+
+Temporarily  halts  the  automatic  menu selection generated by the ON MENU
+commands.  Your menus can be restarted again with a call to ON MENU ON.
+
+        On Menu Off
+ON MENU ON
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_3.AMOS,0,4]On Menu On}
+
+Activates  the  automatic  menu  system created by the ON MENU instruction.
+This  function  should  always  be  used  just  before  leaving  your  menu
+procedures  or  sub-routines.  Otherwise the menus will be turned off after
+the initial call.
+
+        On Menu On
+SET MENU
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_7.AMOS,0,4]Set Menu}
+
+SET MENU sets the position of any movable menu item on the screen.
+
+        Set Menu(a,b,..) To x,y
+
+All coordinates are measured relative to the previous menu level.
+X MENU
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_7.AMOS,0,4]=X Menu}
+
+Returns the X coordinate of a menu item relative to the previous menu level.
+
+        xc=X Menu(a,b,,)
+Y MENU
+{[RAMOSPro_Tutorial:Tutorials/Menus/Menus_7.AMOS,0,4]=Y Menu}
+
+Returns the Y coordinate of a menu item relative to the previous menu level.
+
+        yc=Y Menu(a,b,,)
+
+
+
+Updating Objects
+
+                           {[IAUTOBACK        ,4,3] Autoback               }
+                           {[IBOB CLEAR       ,4,3] Bob Clear              }
+                           {[IBOB DRAW        ,4,3] Bob Draw               }
+                           {[IBOB UPDATE      ,4,3] Bob Update             }
+                           {[IBOB UPDATE OFF  ,4,3] Bob Update Off         }
+                           {[IBOB UPDATE ON   ,4,3] Bob Update On          }
+                           {[IFREEZE          ,4,3] Freeze                 }
+                           {[IUPDATE          ,4,3] Update                 }
+                           {[IUPDATE OFF      ,4,3] Update Off             }
+                           {[IUPDATE ON       ,4,3] Update On              }
+                           {[IUNFREEZE        ,4,3] Unfreeze               }
+AUTOBACK
+{[RAMOSPro_Tutorial:Tutorials/Autoback_&_Update.AMOS,0,4]Autoback}
+
+Sets the automatic screen copying mode used by double buffered screens.
+
+Mode number 0 sends all graphics to the logical screen.
+
+Mode  1  performs each graphical operation to both the physical and logical
+screens.
+
+Mode 2 (default) combines all drawing operations with the Bob updates.
+
+        Autoback modenumber
+
+BOB CLEAR
+{[RAMOSPro_Tutorial:Tutorials/Autoback_&_Update.AMOS,0,4]Bob Clear}
+
+Removes  all  active  bobs  from  the  screen,  and  redraws the background
+graphics on the display.  It is used with BOB DRAW.
+
+        Bob Clear
+BOB DRAW
+{[RAMOSPro_Tutorial:Tutorials/Autoback_&_Update.AMOS,0,4]Bob Draw}
+
+Called  after  a  BOB CLEAR command, which removes all active Bobs from the
+logical  screen.   BOB  DRAW  then lists all Bobs that have moved since the
+previous  update,  saves  the background beneath the new screen coordinates
+and  then  redraws  all  active  Bobs at their new positions on the logical
+screen.
+
+        Bob Draw
+BOB UPDATE
+{[RAMOSPro_Tutorial:Tutorials/Autoback_&_Update.AMOS,0,4]Bob Update}
+
+Redraws  all the Bobs at their new positions, in one smooth operation.  The
+affect will only be seen after the next vertical blank.
+
+        Bob Update : Wait Vbl
+BOB UPDATE OFF
+{[RAMOSPro_Tutorial:Tutorials/Autoback_&_Update.AMOS,0,4]Bob Update Off}
+
+Turns  off any automatic screen operations and allows Bobs to be redrawn at
+the required timing using BOB UPDATE.(See SCREEN SWAP and WAIT VBL)
+
+         Bob Update Off
+BOB UPDATE ON
+{[RAMOSPro_Tutorial:Tutorials/Autoback_&_Update.AMOS,0,4]Bob Update On}
+
+Activates the automatic bob operations.
+
+        Bob Update On
+
+
+UPDATE
+{[RAMOSPro_Examples:Examples/H-2/Help_26.AMOS,0,4]Update}
+
+Redraws  all  the objects on the screen in a single go.  It's really just a
+combination  of  BOB  UPDATE  and  SPRITE  UPDATE commands.  Add a WAIT VBL
+command to ensure a smooth effect.
+
+        Update
+UPDATE OFF
+{[RAMOSPro_Examples:Examples/H-2/Help_26.AMOS,0,4]Update Off}
+
+Turns  off  the  automatic  redrawing  system.   Any Bob commands or Sprite
+operations will now appear to be totally ignored!  But never fear.  They're
+still going on in the background.
+
+        Update Off
+
+UPDATE ON
+{[RAMOSPro_Examples:Examples/H-2/Help_26.AMOS,0,4]Update}
+
+Returns the object movement system back to it's original, automatic mode.
+
+        Update On
+
+
+IFF animation
+
+                          {[IFRAME LENGTH,4,3] =Frame Length             }
+                          {[IFRAME LOAD  ,4,3] =Frame Load               }
+                          {[IFRAME PARAM ,4,3] =Frame Param              }
+                          {[IFRAME PLAY  ,4,3] =Frame Play               }
+                          {[IFRAME SKIP  ,4,3] =Frame Skip               }
+                          {[IIFF ANIM    ,4,3] =Iff Anim                 }
+                          {[IMASK IFF     ,4,3] Mask Iff                  }
+                          {[IPICTURE     ,4,3] =Picture                  }
+
+FRAME LENGTH
+{[RAMOSPro_Tutorial:Tutorials/Iff_Animation.AMOS,0,4]=Frame Length}
+
+Calculates  the  amount of memory which will be needed to hold the selected
+frames of an IFF animation file.
+
+          size=Frame Length(file)
+
+file  is  the  channel number of an IFF file which you've previously opened
+with the OPEN IN command.
+
+          size=Frame Length(file,n)
+
+n  specifies the number of frames which should be taken into consideration.
+If it's omitted, AMOS will only check out the first frame in the animation.
+And  if the number's too large, AMOS will return the memory required for all
+the frames in the current file.
+
+FRAME LOAD
+{[RAMOSPro_Tutorial:Tutorials/Iff_Animation.AMOS,0,4]Frame Load}
+
+Loads one or more IFF frames straight into the Amiga's memory.
+
+frames=Frame Load(file TO bank/address,n)
+
+file  is  the channel number of a currently open animation file.  This MUST
+have previously been opened using the OPEN IN command.
+
+bank / address is either a bank number (1-65535) or a memory address. 
+
+n  chooses  the number of animation frames which are to be loaded.  If your
+request  is  greater  than  the total number of available frames, AMOS will
+automatically load all the images in the current file.
+
+FRAME PARAM
+{[RAMOSPro_Tutorial:Tutorials/Iff_Animation.AMOS,0,4]=Frame Param}
+
+Returns the amount of time which will be needed to successfully display the
+animation  on the screen, measured in 1/50ths of a second.  It's used after
+a  FORM  PLAY  or  FORM SKIP to delay the program until the screen has been
+totally redrawn.
+
+        param=Frame Param
+
+        Wait Frame Param+1
+FRAME PLAY
+{[RAMOSPro_Tutorial:Tutorials/Iff_Animation.AMOS,0,4]Frame Play}
+
+Plays selected frames of a previously loaded IFF animation on the screen.
+
+        next=Frame Play(bank/address,n[,screen])
+
+bank/address  is  a  memory  address  (or  bank  number) containing an IFF
+animation  sequence  which  has  been previously loaded with the FRAME LOAD
+instruction.
+
+n is the number of frames you wish to play.
+
+         next=Frame Play(bank/address,n,screen])
+
+screen enters a new screen to be created for your animation.
+FRAME SKIP
+{[RAMOSPro_Tutorial:Tutorials/Iff_Animation.AMOS,0,4]Frame Skip}
+
+Skips  past the selected frames, and returns the address of the next one in
+the animation sequence.
+
+       next=Frame Skip(bank/address)
+
+bank/address  is  number  of a bank or the address of a valid IFF animation
+frame.
+
+       next=Frame Skip(bank/address,n)
+
+n holds the number of frames to be skipped. It defaults to one.
+
+next returns the address of the following animation frame.
+IFF ANIM
+{[RAMOSPro_Tutorial:Tutorials/Iff_Animation.AMOS,0,4]=Iff Anim}
+
+Loads an IFF animation sequence from the disc and plays it on the screen.
+
+        Iff Anim "filename" To screen
+
+"filename" is the name of the animation file you wish to display. 
+
+screen  chooses a new AMOS screen which will be created especially for your
+animation  sequence.   If  the  requested  screen  already  exists, it will
+automatically be replaced by your new definition.
+
+        Iff Anim "filename" To screen,times
+
+times  sets  the  number  of  times you wish to repeat the animation on the
+screen.  If it's omitted, the animation will be displayed exactly once.
+
+MASK IFF
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]Mask Iff}
+
+Masks  your  IFF  picture data, setting the parts of the file which will be
+loaded  from  your animation.  It's normally used with the LOAD IFF command
+like so:
+
+        Mask Iff bitmap
+        Load Iff "animation"
+PICTURE
+{[RAMOSPro_Examples:Examples/H-3/Help_35.AMOS,0,4]=Picture}
+
+Returns the mask defined by the current IFF image.
+
+        bitmask=Picture : Rem Read the mask details
+        Mask Iff Picture : Rem Use it for the the present animation
+
+Using the AMOS Animation Language (AMAL)
+                {[IAMAL         ,4,3] Amal                 } {[ICHANAN      ,4,3] =Chanan              }
+                {[IAMAL FREEZE  ,4,3] Amal Freeze          } {[ICHANMV      ,4,3] =Chanmv              }
+                {[IAMAL OFF     ,4,3] Amal Off             } {[IMOVE FREEZE  ,4,3] Move Freeze          }
+                {[IAMAL ON      ,4,3] Amal On              } {[IMOVE OFF     ,4,3] Move Off             }
+                {[IAMALERR      ,4,3] Amalerr              } {[IMOVE ON      ,4,3] Move On              }
+                {[IAMPLAY       ,4,3] Amplay               } {[IMOVON       ,4,3] =Movon               }
+                {[IAMREG        ,4,3] Amreg                } {[IMOVE X       ,4,3] Move X               }
+                {[IANIM         ,4,3] Anim                 } {[IMOVE Y       ,4,3] Move Y               }
+                {[IANIM FREEZE  ,4,3] Anim Freeze          } {[ISYNCHRO      ,4,3] Synchro              }
+                {[IANIM OFF     ,4,3] Anim Off             } {[ISYNCHRO OFF  ,4,3] Synchro Off          }
+                {[IANIM ON      ,4,3] Anim On              } {[ISYNCHRO ON   ,4,3] Synchro On           }
+                {[ICHANNEL      ,4,3] Channel              } {[IUPDATE EVERY ,4,3] Update Every         }
+
+                            {[IHelpAmalins,4,3] Amal Instructions }
+AMAL
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_1.AMOS,0,4]Amal}
+
+Assigns  a  list  of  instructions  to  an  AMAL  animation channel.  These
+channels  can  be  independantly  assigned to either a Sprite, a Bob, or an
+entire screen using the CHANNEL command.
+
+        Amal channel number,"instruction string"
+
+Takes your instructions from a string.
+
+        Amal channel number,program
+
+Reads an AMAL program from a special AMAL memory bank.
+
+        Amal channel number,address
+
+Loads the animation commands from the chosen address.
+
+        Amal channel number,"instruction string" To address
+
+Sends the output of your animation string to your chosen address.
+AMALERR
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]=Amalerr}
+
+Returns the position of an error in one of your animation strings.
+
+        Print Amalerr
+AMAL FREEZE 
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]Amal Freeze}
+
+Suspends your AMAL programs and stops them running on the screen.  They can
+be restarted again using the AMAL ON command.
+
+        Amal Freeze
+
+Freezes ALL current AMAL programs.
+
+        Amal Freeze channel number
+
+Halts just a single animation channel.
+AMAL OFF
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]Amal Off}
+
+Stops  one or more AMAL programs PERMANENTLY.  You'll have to redefine them
+from scratch with AMAL to get them running again.
+
+        Amal Off
+AMAL ON
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_1.AMOS,0,4]Amal On}
+
+Starts an AMAL program you've set up previously with the AMAL directive.
+
+        Amal On
+
+Activates ALL AMAL programs simultaneously.
+
+        Amal On channel number
+
+Fires up a single animation sequence.
+
+AMPLAY
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Amplay}
+
+Controls  a  movement pattern generated by the AMAL PLay instruction.  This
+pattern  should  have been previously created from the AMAL EDITOR utility,
+and should be ready and waiting in memory
+
+        Amplay speed,direction
+
+speed sets the playback speed in movements per second. Default=1.
+
+direction >0 for the original setting
+          =0 to reverse the movement
+          -1 to stop the animation at the next movement
+
+        Amplay speed,direction,first channel To last channel
+
+Changes the settings in a range of animation sequences simultaneously.
+AMREG
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_3.AMOS,0,4]=Amreg}
+
+Reads or writes to an AMAL register variable.
+
+        value=Amreg(global register)
+        Amreg(global register)=value
+
+Accesses  a global register from RA to RZ.  The register number is entered
+using a simple code.  RA is checked using a 0, RB=1 and so on until RZ=25.
+
+You  can  also  use  an  extended form of this function to get at the local
+variables.
+
+        value=Amreg(channel number,local variable)
+        Amreg(channel number,local variable)=value
+
+local variable is the number of your variable from 0 (R0) to 9 (R9)
+ANIM
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Anim}
+
+Generates a STOS compatible animation sequence.
+
+        Anim channel number,"(image,delay)..(image,delay)"
+
+image = the number of an image from the object bank.
+
+delay = the period it should be displayed in units of a 50th of a sec.
+
+The animation will only take effect when it's activated using ANIM ON.
+ANIM FREEZE
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Anim Freeze}
+
+Suspends  one  or  more  ANIM sequences.  They can be restarted again using
+ANIM ON.
+
+        Anim Freeze
+
+Halts ALL STOS compatible animations.
+
+        Anim Freeze channel number
+
+Freezes a single animation sequence.
+ANIM OFF
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Anim Off}
+
+Terminates an animation sequence created with the ANIM command.
+
+        Anim Off
+
+Kills ALL Anim sequences.
+
+        Anim Off channel number
+
+Stops a single sequence.
+ANIM ON
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Anim On}
+
+Starts an animation sequence you've defined using the ANIM instruction.
+
+        Anim On
+CHANAN
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]=Chanan}
+
+Checks if an AMAL animation sequence is still running.
+
+        test=Chanan(channel number)
+
+Returns True (-1) is the animation is still active, and False (0) if it has
+finished.
+CHANMV
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]=Chanmv}
+
+Checks if an object assigned to one of your AMAL channels is currently moving.
+
+        test=Chanmv(channel number)
+
+Gives a value of True (-1) it the object is moving, and False if it 
+has stopped.
+CHANNEL
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]=Channel}
+
+Assigns  an  animation  channel  to anobject  type.   Allowable object types
+include sprites, bobs, screens or rainbows!
+
+        Channel channelnumber To Sprite s
+
+Nominates an AMAL  channel to sprite number s.
+
+        Channel channelnumber To Bob b
+
+Appoints an AMAL channel to Bob b
+
+        Channel channelnumber To Screen Display d
+
+Moves the position of screen d using an AMAL channel. These screens CAN'T be
+animated using Anim or the A register. They can only be repositioned.
+
+        Channel channelnumber To Screen Offset h
+
+Installs  the channel for use with Hardware Scrolling.  Screen h can now be
+scrolled  directly  using  the  X  and  Y registers, or using the AMAL Move
+command.
+
+        Channel channelnumber to Screen Size z
+
+Sets up your AMAL channel to change the size of your chosen AMOS screen.
+
+        Channel channelnumber To Rainbow r
+
+Scrolls a rainbow created using SET RAINBOW from inside an AMAL program.  X
+holds the number of the first colour in the table to be displayed, Y stores
+the position of the rainbow on the screen, and A contains the height.
+
+MOVE FREEZE
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Move Freeze}
+
+Temporarily  halts a STOS compatible MOVE command in its tracks.  It can be
+restarted again with MOVE ON.
+
+        Move Freeze
+
+Freezes ALL movements.
+
+        Move Freeze channel number
+
+Stops just a single movement sequence.
+MOVE OFF
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Move Off}
+
+Permanently  erases a STOS compatible movement sequence created with MOVE X
+or MOVE Y.
+
+        Move Off
+
+Kills ALL movements.
+
+        Move Off Channel
+
+Terminates just a single movement.
+MOVE ON
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]Move On}
+
+Starts  a  movement  sequence  created using the STOS compatible MOVE X and
+MOVE Y instructions.
+
+        Move On
+
+Activates ALL movements.
+
+        Move On Channel
+
+Fires off a single channel.
+MOVON
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]=Movon}
+
+Checks  if  a  STOS  compatible  movement  sequence  is still active on the
+selected  channel  number.  You'll get a value of True (-1) if the object`s
+still moving, and a zero if it's finished.
+
+        x=Movon(channel number)
+MOVE X
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]=Move X}
+
+Move  an  object horizontally using a STOS compatible command sequence.  As
+with AMAL, the object is chosen with the CHANNEL command.
+
+        Move X channel number,"(speed,step,count)..."
+
+speed sets the delay in fiftieths of a second between the operations.
+
+step enters the distance to be moved in each step.
+
+count  specifies  the  number  of  steps which should be performed in every
+operation.
+
+You can also include the L or E directives at the end of your commands.
+
+L
+
+Loops the sequence continuously on the screen.
+
+E x coord
+
+Stops the sequence when the chosen coordinate value is reached.
+MOVE Y
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_5.AMOS,0,4]=Move Y}
+
+Move  an  object  vertically  using a STOS compatible command sequence.  As
+with AMAL, the object is chosen with the CHANNEL command.
+
+        Move Y channelnumber,"(speed,step,count)..."
+
+speed sets the delay in fiftieths of a second between the operations.
+
+step enters the distance to be moved in each step.
+
+count  specifies  the  number  of  steps which should be performed in every
+operation.
+
+You can also include the L or E directives at the end of your commands.
+
+L
+
+Loops the sequence continuously on the screen.
+
+E y coord
+
+Stops the sequence when the chosen coordinate value is reached.
+
+SYNCHRO
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_6.AMOS,0,4]Synchro}
+
+Performs  all  your  AMAL programs in a single large burst.  It's used with
+SYNCHRO  OFF  to allow you to control up to 63 objects at a time.  For best
+results, add a WAIT VBL command at the end.
+
+        Synchro
+        Wait Vbl
+SYNCHRO OFF 
+
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_6.AMOS,0,4]Synchro Off}
+
+Turns  off  the  automatic  AMAL movement system.  You can now execute your
+AMAL programs directly at the most appropriate point in your program, using
+the SYNCHRO command.
+
+        Synchro Off
+
+Note:   SYNCHRO  OFF  increases  the number of available animation channels
+from 16 to 63, and lets you call up the =C,=SC,=BC functions from AMAL for
+use with collision detection.
+
+SYNCHRO ON
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_6.AMOS,0,4]Synchro On}
+
+Restarts  the interrupt driven AMAL movement system, and executes your AMAL
+programs in the background, fifty times a second.
+
+        Synchro On
+UPDATE EVERY
+{[RAMOSPro_Tutorial:Tutorials/Amal/Amal_4.AMOS,0,4]Update Every}
+
+Slows  down  the  object  movements  to provide plenty of time for even the
+largest object to be displayed on the screen.
+
+        Update Every delay
+
+delay is the number of vertical blanks (VBL's) between each screen update.
+
+Icons and Blocks
+
+                   {[IDEL BLOCK       ,4,3] Del Block         } {[IICON BASE       ,4,3] =Icon Base        }
+                   {[IDEL CBLOCK      ,4,3] Del Cblock        } {[IINS ICON        ,4,3] Ins Icon          }
+                   {[IDEL ICON        ,4,3] Del Icon          } {[IMAKE ICON MASK  ,4,3] Make Icon Mask    }
+                   {[IGET BLOCK       ,4,3] Get Block         } {[INO ICON MASK    ,4,3] No Icon Mask      }
+                   {[IGET CBLOCK      ,4,3] Get Cblock        } {[IPASTE ICON      ,4,3] Paste Icon        }
+                   {[IGET ICON        ,4,3] Get Icon          } {[IPUT BLOCK       ,4,3] Put Block         }
+                   {[IGET ICON PALETTE,4,3] Get Icon Palette  } {[IPUT CBLOCK      ,4,3] Put Cblock        }
+                   {[IHREV BLOCK      ,4,3] Hrev Block        } {[IVREV BLOCK      ,4,3] Vrev Block        }
+
+DEL BLOCK
+{[RAMOSPro_Examples:Examples/H-6/Help_66.AMOS,0,4]Del Block}
+
+DELetes one or more screen BLOCKs from memory.
+
+        Del Block
+
+Kills off ALL blocks.
+
+        Del Block n
+
+Erases block number n.
+DEL CBLOCK
+{[RAMOSPro_Examples:Examples/H-6/Help_66.AMOS,0,4]Del Cblock}
+
+DELetes one or more compressed screen BLOCKs from memory.
+
+        Del Cblock
+
+Kills off ALL compressed blocks.
+
+        Del Cblock n
+
+Erases compressed block number n.
+DEL ICON
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]Del Icon}
+
+Deletes one or more icon images from the Icon Bank (bank 2).
+
+        Del icon n
+
+Erases Image number n
+
+        Del Icon n To m
+
+Wipes all images from n to m.
+GET BLOCK
+{[RAMOSPro_Examples:Examples/H-6/Help_66.AMOS,0,4]Get Block}
+
+Grabs a rectangular screen BLOCK from the screen, and saves it into memory.
+An  optional  blitter  mask  can  be  created for your block as well.  This
+ensures  that  colour zero will be treated as transparent when the block is
+pasted onto the screen.
+
+        Get Block n,x,y,width,height
+
+Gets a block with number n from x,y to x+w,y+h on the current screen.
+
+        Get Block n,x,y,width,height,mask
+
+If mask=1 then a mask will be generated for your block. 
+GET CBLOCK
+{[RAMOSPro_Examples:Examples/H-6/Help_66.AMOS,0,4]Get CBlock}
+
+Gets  a rectangular screen BLOCK from the screen, and compresses it as much
+as possible as it's being saved into memory.
+
+        Get Cblock n,x,y,width,height
+
+Grabs  a  block  with  number  n from x,y to x+w,y+h on the current screen.
+Note that x and w are automatically rounded down to the nearest multiple of
+eight.
+
+GET ICON
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]Get Icon}
+
+Loads  an  icon  image  from  the screen, and saves it into the Icon bank.
+(Bank 2)
+
+        Get Icon i,tx,ty To bx,by
+
+Grabs image number i from tx,ty to bx,by on the current screen.
+
+        Get Icon s,i,tx,ty To bx,by
+
+Gets an icon of the requested dimensions from screen s.
+GET ICON PALETTE
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]Get Icon Palette}
+
+        Get Icon Palette
+
+Loads all of your Icon colours to the current screen. 
+
+An optional mask can be used to load a selection of these colours at a time.
+
+
+        Get Icon Palette,mask
+
+HREV BLOCK
+{[RAMOSPro_Examples:Examples/H-2/Help_29.AMOS,0,4]Hrev Block}
+
+Switches a block from left to right, just like a mirror.
+
+        Hrev Block block number
+
+ICON BASE
+{[RAMOSPro_Examples:Examples/H-6/Help_64.AMOS,0,4]=Icon Base}
+
+Returns the address of the Icon structure in memory.
+
+        address=Icon Base
+INS ICON
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]Ins Icon}
+
+        Ins Icon n
+
+Inserts  a  blank  image  at  position n in the current icon bank.  All the
+images after this number are moved down a place.
+
+Ins Icon f To l
+
+Creates several image slots in a single operation. 
+
+A  series  of  blank  spaces will now be created between image number f and
+image l.
+
+MAKE ICON MASK
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]Make Icon Mask}
+
+Sets colour zero to transparent on selected images from the Icon bank.
+
+        Make Icon Mask
+
+Affects all currently defined Icon images.
+
+        Make Icon Mask i
+
+Creates a blitter mask for image number i. 
+NO ICON MASK
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]No Icon Mask}
+
+Removes  one  or  more Icon Masks which you've previously created using the
+MAKE ICON MASK command.
+
+        No Icon Mask
+
+Removes all currently defined Icon masks.
+
+        No Icon Mask i
+
+Removes the mask for icon i.
+PASTE ICON
+{[RAMOSPro_Examples:Examples/H-6/Help_65.AMOS,0,4]Paste Icon}
+
+Pastes an image from the Icon bank (2) onto the current screen.
+
+        Paste Icon x,y,image number
+PUT BLOCK
+{[RAMOSPro_Examples:Examples/H-6/Help_66.AMOS,0,4]Put Block}
+
+Draws  a previously defined memory block on the screen.  If the coordinates
+are ommitted, it will be replaced at it's original position.
+
+        Put Block n
+        Put Block n,x,y
+
+There  are  also a couple of extended versions of this command for advanced
+users.
+
+        Put Block n,x,y,planes
+
+Puts a block on the selected screen planes. 
+
+planes is a bitmap containing a list of planes to be affected.
+
+        Put Block n,x,y,planes,minterms
+
+Puts  a  block  on  the selected screen planes using a writing mode entered
+using in minterms.  See SET BOB for more info.
+
+PUT CBLOCK
+{[RAMOSPro_Examples:Examples/H-6/Help_66.AMOS,0,4]Put Cblock}
+
+Redraws a compressed memory block on the screen.
+
+If  the  coordinates  are  ommitted,  it  will be replaced at it's original
+position.
+
+        Put Cblock n
+        Put Cblock,x,y
+VREV BLOCK
+{[RAMOSPro_Examples:Examples/H-2/Help_29.AMOS,0,4]Vrev Block}
+
+Flips a BLOCK of graphics upside down.
+
+        Vrev Block number
+
+Sound Effects
+                      {[IBELL     ,4,3] Bell          } {[IPLAY OFF ,4,3] Play Off      }
+                      {[IBOOM     ,4,3] Boom          } {[ISAMPLE   ,4,3] Sample        }
+                      {[IDEL WAVE ,4,3] Del Wave      } {[ISET ENVEL,4,3] Set Envel     }
+                      {[ILED ON   ,4,3] Led On        } {[ISET WAVE ,4,3] Set Wave      }
+                      {[ILED OFF  ,4,3] Led Off       } {[ISHOOT    ,4,3] Shoot         }
+                      {[INOISE TO ,4,3] Noise To      } {[IVOLUME   ,4,3] Volume        }
+                      {[IPLAY     ,4,3] Play          } {[IWAVE     ,4,3] Wave          }
+BELL
+{[RAMOSPro_Examples:Examples/H-7/Help_73.AMOS,0,4]Bell}
+
+Rings  a  bell.  It plays pure tone from a low pitch of 1 up to a very high
+pitch of 96.
+
+        Bell
+        Bell pitchvalue
+BOOM
+{[RAMOSPro_Examples:Examples/H-7/Help_73.AMOS,0,4]Boom}
+
+Generates an explosive sound effect.
+
+        Boom
+DEL WAVE
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Del Wave}
+
+DELetes  any  numbered  sound  WAVE,  except  0 and 1 which are permanently
+programmed.
+
+        Del Wave number
+NOISE TO
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Noise To}
+
+Assigns white NOISE TO a voice of your choice.
+
+        Noise To voicenumber
+LED ON
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Led On}
+
+Activates a high frequency sound filter and turns on the power Light on the
+computer.
+
+        Led On
+LED OFF
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Led Off}
+
+Switches off the sound filter, and blanks out the power LED.
+
+       Led Off
+PLAY
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Play}
+
+PLAYs  a note or waveform with your selected pitch and delay.  You can also
+enter an optional combination of voices.
+
+        Play voice
+        Play voice,delay
+        Play voice,pitch,delay
+PLAY OFF
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Play Off}
+
+Stops  a  note  or waveform previously set in action by a PLAY command.  An
+optional voice or voices may be included.
+
+        Play Off
+        Play Off voices
+SAMPLE
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Sample}
+
+Assigns  a  SAMPLE  to  the  current  sound  wave.   The range of voices is
+selected using a standard bit-map.
+
+        Sample number To voices
+SET ENVEL
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Set Envel}
+
+Defines a sound ENVELope.
+
+Set Envel wave,phase To duration,volume
+
+wave = the number of the waveform,
+
+phase = a phase number from 1 to 6
+
+duration = length of the current step in units of a 50th of a second.
+
+volume  =  the  intensity  of  the note at the end of the phase.  Allowable
+values range from 0 to 63.
+
+SET WAVE
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Set Wave}
+
+Selects  a  WAVEform for your sound.  Waves 0 and 1 are permanently set up.
+So  start  new  wave numbers from 2 upwards.  You can then set the shape of
+the waveform from a list of 256 sample values in shape$.
+
+        Set Wave number,shape$
+SHOOT
+{[RAMOSPro_Examples:Examples/H-7/Help_73.AMOS,0,4]Shoot}
+
+Triggers a SHOOTing sound. Great for your missiles!
+
+        Shoot
+VOLUME
+{[RAMOSPro_Examples:Examples/H-7/Help_73.AMOS,0,4]Volume}
+
+Changes the VOLUME of all future effects. 
+
+intensity  ranges  from  0  (silent)  up to 63 (very loud).  You can select
+which voices are to be affected by setting their individual bits to 1.
+
+        Volume intensity 
+        Volume voices,intensity
+WAVE
+{[RAMOSPro_Examples:Examples/H-7/Help_76.AMOS,0,4]Wave}
+
+Assigns  the wave number you select to one or more sound channels.  Set the
+bit of any voices you wish to use to 1.
+
+       Wave number To voices
+
+Music
+                        {[IMUSIC     ,4,3] Music                        }
+                        {[IMUSIC OFF ,4,3] Music Off                    }
+                        {[IMUSIC STOP,4,3] Music Stop                   }
+                        {[IMVOLUME   ,4,3] Mvolume                      }
+                        {[ITEMPO     ,4,3] Tempo                        }
+                        {[IVOICE     ,4,3] Voice                        }
+                        {[IVUMETER   ,4,3] Vumeter                      }
+MUSIC
+{[RAMOSPro_Examples:Examples/H-7/Help_75.AMOS,0,4]Music}
+
+Starts playing a piece of MUSIC from the music bank (3).
+
+        Music number
+MUSIC OFF
+{[RAMOSPro_Examples:Examples/H-7/Help_75.AMOS,0,4]Music Off}
+
+Switches OFF all the current MUSIC.
+
+        Music Off
+MUSIC STOP
+{[RAMOSPro_Examples:Examples/H-7/Help_75.AMOS,0,4]Music Stop}
+
+STOPS  the  current  piece  of  MUSIC and starts up any other music that is
+still active.
+
+        Music Stop
+MVOLUME
+{[RAMOSPro_Examples:Examples/H-7/Help_75.AMOS,0,4]Mvolume}
+
+Sets  the Music VOLUME by giving it a number from 0 for silent up to 63 for
+very loud.
+
+        Mvolume number
+TEMPO   
+{[RAMOSPro_Examples:Examples/H-7/Help_75.AMOS,0,4]Tempo}
+
+Changes the speed or TEMPO of a current piece of music, from 1 (lentissimo)
+to 100 (presto furioso.)
+
+        Tempo speed
+VOICE
+{[RAMOSPro_Examples:Examples/H-7/Help_75.AMOS,0,4]Voice}
+
+Selects  one or more voices ready to perform, by setting its individual bit
+mask to 1.
+
+        Voice bitmap
+
+        Voice %1111 : Rem Activate all four voices
+
+Four  voices  can be used to play your sound.  Each voice to be played must
+have its associated bit set to 1.
+
+Bit0-> Voice 0
+Bit1-> Voice 1
+Bit2-> Voice 2
+Bit3-> Voice 3
+
+VUMETER
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]=Vumeter}
+
+Returns  the  volume of current note in your music.  v selects the voice to
+be tested.
+
+        vol=Vumeter(voice)
+
+Samples
+                         {[ISAM BANK    ,4,3] Sam Bank                   }
+                         {[ISAM LOOP ON ,4,3] Sam Loop On                }
+                         {[ISAM LOOP OFF,4,3] Sam Loop Off               }
+                         {[ISLOAD       ,4,3] Sload                      }
+                         {[ISAM PLAY    ,4,3] Sam Play                   }
+                         {[ISAM RAW     ,4,3] Sam Raw                    }
+                         {[ISSAVE       ,4,3] Ssave                      }
+                         {[ISAMSTOP     ,4,3] Sam Stop                   }
+                         {[ISAMSWAP     ,4,3] Sam Swap                   }
+                         {[ISAM SWAPPED ,4,3] =Sam Swapped               }
+
+SAM BANK
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Bank}
+
+Assigns a new numbered SAMple memory BANK for use in your program.
+
+        Sam Bank number
+SLOAD
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sload}
+
+Loads part of a sample file into memory.
+
+        Sload File_Number,Length To Address
+
+File_Number  is the number of a file you've opened previously with the OPEN
+IN File_Number,"Name" instruction.
+
+Length  is  the number of bytes to load.  If this number is bigger than the
+actual size of the file, then only the remaining bytes will be loaded.
+
+Address is the destination address.
+
+Your data is loaded from the current file postion, as set by POF.
+SAM LOOP OFF
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Loop Off}
+
+Disables the looping system generated by the SAM LOOP ON instruction
+
+        Sam Loop Off
+SAM LOOP ON
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Loop On}
+
+Enables   sample  looping.   All  future  samples  will  now  be  repeated
+continuously through your loudspeaker.
+
+        Sam Loop On
+SAM PLAY
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Play}
+
+PLAYs the numbered sound SAMple through your loudspeaker.
+
+        Sam Play sample_number
+
+You can also extend this command like so:
+
+        Sam Play voice_bitmap,sample_number
+
+Each voice to be played is selected by setting its bit in the map to 1
+
+        Sam Play voice_bitmap,sample_number,frequency
+
+frequency  sets  the playback speed in samples per second.  Sensible values
+range from 4000 for noises to 10000 for speech and music.
+SAM RAW
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Raw}
+
+Plays  a  sound SAMple from anywhere in memory.  Each voice to be played is
+set  by  a  standard bit-pattern.  The address of the sample is then given,
+followed  by  the  length of the sample to be played, then its frequency in
+samples per second.
+
+        Sam Raw voice,address,length,frequency
+SAM STOP
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Stop}
+
+Stops  a  sound  SAMple  previously set by a SAM PLAY command.  An optional
+voice or voices may be given.
+
+        Sam Stop voices
+
+SAM SWAP
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]Sam Swap}
+
+Initialises double buffered sample playing.  The actual swapping will only
+occur when the sample has been totally played through the speaker.
+
+        Sam Swap Voices To address,length
+
+voice  is  a  bit pattern to define the voices to be affected,just like the
+SAM RAW instruction.
+
+address  is  the  address of the next section of your sample to play.  This
+must be in chip memory.
+
+length is the number of bytes to be played.
+
+SAM SWAPPED
+{[RAMOSPro_Examples:Examples/H-7/Help_74.AMOS,0,4]=Sam Swapped}
+
+Returns  TRUE (-1) if the sample swapping has occurred, and the new buffer
+you have initialised with the SAM SWAP instruction is being played through
+your loudspeaker. Otherwise you'll get a value of FALSE (0).
+
+        test=Sam Swapped(voice_number)
+
+voice_number is the number of the voice you want to check (0 to 3).
+
+SSAVE
+Saves a section of memory at a specific point in a file.
+
+        Ssave channelnumber, startaddress to endaddress
+
+Channel  number  is  the number of a file you've opened previously with the
+OPEN IN File_Number,"Name" instruction.
+
+startaddress is the address of the first byte to be transferred.
+
+endaddress is the address of the final one.
+
+The  data  is saved starting from the current file position, as returned by
+the POF function.
+
+Tracker
+                         {[ITRACK LOAD    ,4,3] Track Load                }
+                         {[ITRACK LOOP ON ,4,3] Track Loop On             }
+                         {[ITRACK LOOP OFF,4,3] Track Loop Of             }
+                         {[ITRACK PLAY    ,4,3] Track Play                }
+                         {[ITRACK STOP    ,4,3] Track Stop                }
+
+TRACK LOAD
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Track Load}
+
+Loads  a  Tracker  sound module into the memory bank number of your choice,
+erasing  any existing data in this bank number before loading the new data.
+The new bank will be called "Tracker".
+
+Bank number 6 is used as a default.
+
+Normal  AMOS  Professional  sound commands should NOT be used while Tracker
+music is being played.
+
+        Track Load "modulename",banknumber
+TRACK LOOP ON
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Track Loop On}
+
+Causes the current Tracker module to loop.
+
+       Track Loop On
+
+TRACK LOOP OF
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Track Loop Of}
+
+Turns off a looping Tracker module.
+
+       Track Loop Of
+TRACK PLAY
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Track Play}
+
+Starts your Tracker music playing through your loudspeaker.
+
+        Track Play banknumber
+
+bank  number  is  the  number  of  the  memory bank containing your tracker
+module.  If it's omitted AMOS defaults to bank 6.
+
+        Track Play, banknumber,patternnumber
+
+A  pattern  number  can  also  be  added as a starting point from which the
+Tracker module is to be played.
+
+TRACK STOP
+{[RAMOSPro_Examples:Examples/H-7/Help_72.AMOS,0,4]Track Stop}
+
+Stops your music in its tracks!
+
+        Track Stop
+
+Med
+                        {[IMED CONT   ,4,3] Med Cont                    }
+                        {[IMED LOAD   ,4,3] Med Load                    }
+                        {[IMED MIDI ON,4,3] Med Midi On                 }
+                        {[IMED PLAY   ,4,3] Med Play                    }
+                        {[IMED STOP   ,4,3] Med Stop                    }
+MED CONT
+{[RAMOSPro_Examples:Examples/H-8/Help_80.AMOS,0,4]Med Cont}
+
+Re-starts  a  song  you've  previously halted with MED STOP.  The music now
+continues from the point it left off.
+
+       Med Cont
+
+MED LOAD
+{[RAMOSPro_Examples:Examples/H-8/Help_80.AMOS,0,4]Med Load}
+
+
+Loads a selected MED music module into a selected memory bank.  Only "MMD0"
+and "MMD1" type modules are allowed.
+
+       Med Load "Med_Module",bank
+MED MIDI ON
+{[RAMOSPro_Examples:Examples/H-8/Help_80.AMOS,0,4]Med Midi On}
+
+This  instruction  should be used if you've connected a MIDI synthesizer to
+your  Amiga,  and wish to play a MED module containing MIDI commands.  Call
+it before the MED ON command.
+
+         Med Midi On
+
+MED STOP
+{[RAMOSPro_Examples:Examples/H-8/Help_80.AMOS,0,4]Med Stop}
+
+Stops  the MED music currently being played through your loudspeaker.  This
+song can be re-started again using the MED CONT instruction.
+
+        Med Stop
+MED PLAY
+{[RAMOSPro_Examples:Examples/H-8/Help_80.AMOS,0,4]Med Play}
+
+Plays  a  MED  music module which has been previously loaded with MED LOAD.
+If  you  don't include a parameter, the most recently loaded module will be
+played instead.
+
+        Med play
+
+If  you've  several  modules  installed  in  memory, you can enter the bank
+number like so:
+
+       Med Play bank
+
+You can also specify a song number if required.
+
+       Med Play bank,song
+
+
+The Keyboard
+                        {[ICLEAR KEY  ,4,3] Clear Key                    }
+                        {[IINKEY$    ,4,3] =Inkey$                      }
+                        {[IINPUT$    ,4,3] =Input$                      }
+                        {[IINPUT      ,4,3] Input                        }
+                        {[IKEY$=     ,4,3] =Key$=                       }
+                        {[IKEY STATE ,4,3] =Key State                   }
+                        {[IKEY SHIFT ,4,3] =Key Shift                   }
+                        {[IKEY SPEED  ,4,3] Key Speed                    }
+                        {[ILINE INPUT ,4,3] Line Input                   }
+                        {[IPUT KEY    ,4,3] Put Key                      }
+                        {[ISCAN$     ,4,3] =Scan$                       }
+                        {[ISCANCODE   ,4,3] =Scancode                    }
+                        {[ISCANSHIFT  ,4,3] =Scanshift                   }
+                        {[IWAIT KEY   ,4,3] Wait Key                     }
+
+CLEAR KEY
+{[RAMOSPro_Examples:Examples/H-4/Help_42.AMOS,0,4]Clear Key}
+
+Clears  any  keypresses from the keyboard buffer, leaving it totally empty.
+Any earlier keypresses will be discarded.
+
+        Clear Key
+INKEY$
+{[RAMOSPro_Examples:Examples/H-4/Help_43.AMOS,0,4]=Inkey$}
+
+Checks  to  see if you have pressed a particular KEY, and returns its value
+in a String.
+
+        x$=Inkey$ : If x$<>" " Then Print x$
+KEY$
+{[RAMOSPro_Examples:Examples/H-5/Help_54.AMOS,0,4]Key$}
+
+Assigns  or  reads a keyboard macro.  These macros can be accessed from the
+keyboard  by  pressing  the  Amiga  key  along with one of the ten possible
+function keys.
+
+Left Amiga generates macros from 1-10 depending on the function key.
+
+Right Amiga reads macros from 11 to 20.
+
+        Key$(m)="string"
+
+Defines  your  macro.   "string"  now  will be automatically typed into the
+keyboard when you call up macro m.
+
+        s$=Key$(m)
+
+Reads the current macro assigned to function m.  
+KEY SPEED
+{[RAMOSPro_Examples:Examples/H-4/Help_42.AMOS,0,4]Key Speed}
+
+Changes the SPEED of KEYboard action.  Lag is the time in 50ths of a second
+before  characters  are  repeated  while  a key is held down.  Speed is the
+delay in 50ths of a second between each successive character.
+
+        Key Speed lag,speed
+KEY STATE
+{[RAMOSPro_Examples:Examples/H-4/Help_43.AMOS,0,4]=Key State}
+
+Tests a specific key to see if it has been pressed by the user.  A value of
+-1 indicates that the key has been hit.
+
+        Test=Keystate(scancode)
+        If Key State(69) Then Print "Escape pressed"
+
+KEYSHIFT
+{[RAMOSPro_Examples:Examples/H-4/Help_43.AMOS,0,4]=Key Shift}
+
+Returns the status of special keys such as CNTRL,SHIFT,and ALT.  The result
+is given as a bit-map in the following format.
+
+        keys=Key Shift
+
+Bit    Key Tested
+ 0     Left Shift
+ 1     Right Shift
+ 2     Caps Lock
+ 3     Cntrl
+ 4     Left Alt
+ 5     Right Alt
+ 6     Left Amiga
+ 7     Right Amiga
+LINE INPUT
+{[RAMOSPro_Examples:Examples/H-6/Help_63.AMOS,0,4]Line Input}
+
+INPUTs  a  list  of  variables one at a time, separated by the [Return] key
+instead of the comma used in the normal INPUT command.
+
+        Line Input "Prompt";variable list
+PUT KEY
+{[RAMOSPro_Examples:Examples/H-4/Help_42.AMOS,0,4]Put Key}
+
+Loads  a  string  of  characters  directly  into the keyboard buffer.  AMOS
+treats these characters just as if they had been typed in straight from the
+keyboard.
+
+        Put Key "characters"
+SCAN$
+{[RAMOSPro_Examples:Examples/H-5/Help_54.AMOS,0,4]=Scan$}
+
+Returns an internal code for use with the keyboard macros defined with KEY$.
+
+        c$=Scan$(n)
+
+Generates the code for scancode n.
+
+        c$=Scan$(n,m)
+
+m  enters  an optional mask for the special keys such as ALT or SHIFT.  See
+SHIFT KEY for more details.
+
+SCANCODE
+{[RAMOSPro_Examples:Examples/H-4/Help_43.AMOS,0,4]=Scancode}
+
+Returns  the  SCANCODE of the last key-press recognised by INKEY$.  As well
+as  character  keys,  this function can also check for keys like [Help] and
+[Tab].
+
+        s=Scancode
+
+SCANSHIFT
+Returns  the status of the shift keys after you`ve tested the keyboard with
+INKEY$. 
+
+        s=Scanshift
+
+Depending on the situation, you`ll get one of the following values.
+
+          =0      no [Shift]
+          =1      [Left Shift]
+          =2      [Right Shift]
+          =3      both [Shift] keys set
+
+WAIT KEY
+{[RAMOSPro_Examples:Examples/H-4/Help_42.AMOS,0,4]Wait Key}
+
+WAITs for any single KEY to be pressed.
+
+        Wait Key
+
+
+Serial Communications
+                {[ISERIAL ABORT   ,4,3] =Serial Abort        } {[ISERIAL CLOSE    ,4,3] Serial Close         }
+                {[ISERIAL BASE    ,4,3] =Serial Base         } {[ISERIAL FAST     ,4,3] Serial Fast          }
+                {[ISERIAL CHECK   ,4,3] =Serial Check        } {[ISERIAL OPEN     ,4,3] Serial Open          }
+                {[ISERIAL ERROR   ,4,3] =Serial Error        } {[ISERIAL OUT      ,4,3] Serial Out           }
+                {[ISERIAL GET     ,4,3] =Serial Get          } {[ISERIAL PARITY   ,4,3] Serial Parity        }
+                {[ISERIAL INPUT$  ,4,3] =Serial Input$       } {[ISERIAL SEND     ,4,3] Serial Send          }
+                {[ISERIAL STATUS  ,4,3] =Serial Status       } {[ISERIAL SLOW     ,4,3] Serial Slow          }
+                {[ISERIAL BITS     ,4,3] Serial  Bits         } {[ISERIAL SPEED    ,4,3] Serial Speed         }
+                {[ISERIAL BUF      ,4,3] Serial  Buf          } {[ISERIAL X        ,4,3] Serial X             }
+
+SERIAL ABORT
+
+Winds  up  any  serial  operations  you've  started with the SERIAL SEND or
+SERIAL OUT instructions and leaves the lines clear.
+
+
+        Serial Abort channel_no
+SERIAL BASE
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]=Serial Base}
+
+Returns the base  address of the IO structure of the current serial channel.
+
+        address=SERIAL BASE(channel_no)
+SERIAL BITS
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial Bits}
+
+Assigns  the  number  of  bits  which  will  be used for each character you
+transmit.
+
+        Serial Bits channel_no,nbits,stopbits
+
+channel holds the chaneel number
+
+nbits is the number of bits
+
+stopbits is the number of STOP bits
+SERIAL BUF
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial Buf}
+
+Allocates  the  amount  of buffer space to be used for your for your serial
+channel.   Note  that  the  default  value  is  512  bytes  and the minimum
+allocation  is  64 bytes.  It's a good idea to increase the buffer size for
+high speed transfers.
+
+        Serial Buf channel_no, Length
+SERIAL CHECK
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]=Serial Check}
+
+Asks  the  device  for a read-out of its current status.  You can use it to
+check whether all the information you've transferred with a previous SERIAL
+SEND command has been correctly sent.
+
+        test=Serial Check(channel)
+
+test = FALSE (0) -> the last serial command is still being executed.
+     = TRUE (-1) -> All done!
+SERIAL CLOSE
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]Serial Close}
+
+Close one or more serial channels.
+
+        Serial Close
+
+Closes ALL active channels
+
+        Serial Close channel
+
+Closes a single channel
+SERIAL ERROR
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial Error}
+
+Looks  for  the ERROR byte in the serial device.  A value of zero indicates
+that everything is fine.  Otherwise, the last transmission was faulty.
+
+        test=Serial Error(channel)
+
+SERIAL FAST
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]Serial Fast}
+
+Sets  a  special  fast  flag  in  the  current device and disables a lot of
+internal  checking  which  would  otherwise  slow  down  the  communication
+process.  Use it for high speed transfers such as MIDI.  Warning:  When you
+call  this  command,  the  protocol  will  be  changed  to:  
+
+PARITY EVEN,NOXON/XOFF and 8 bits.
+
+        Serial Fast channel
+SERIAL GET
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]=Serial Get}
+
+Reads  a  single  byte  from  the serial device.  If nothing is available a
+value of -1 will be returned.
+
+        v=Serial Get(channel)
+SERIAL INPUT$
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]=Serial Input$}
+
+Reads  an  entire string of characters from the serial port.  If there's no
+data,  the  command  will  return an empty string "".  Otherwise the string
+will  contain all the bytes which have been sent over the serial line up to
+the present time.
+
+        s$=Serial Input$(channel)
+SERIAL OPEN
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]Serial Open}
+
+Opens a communication channel to a serial device.
+
+Serial Open channel, port_no
+
+channel holds the channel number from 0 to 3.
+
+port_no  specifies the logical device number of the serial port.  Normally,
+it should be set to zero.
+
+If  you  need  additiona control over the serial port, you can also call an
+extended version of this instruction.
+
+Serial Open channel, port_no,shared, xdisabled, 7wires
+SERIAL OUT
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]Serial out}
+
+Transmits  a  block  of  memory  over  the  serial  port  using the current
+settings.
+
+Serial Out channel,address,length
+
+Address is the address of your data in memory.
+
+Length is the number of bytes to be transmitted.
+SERIAL PARITY
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial Parity}
+
+Sets the parity checking you are using for the current serial channel.
+
+        Serial Parity channel, parity
+
+Here's a list of the available options.
+
+   -1 : no parity
+    0 : EVEN parity
+    1 : ODD parity
+    2 : SPACE parity
+    3 : MARK parity
+
+See the Commodore documentation for a full explanation of this system.
+SERIAL SEND
+{[RAMOSPro_Examples:Examples/H-4/Help_46.AMOS,0,4]Serial Send}
+
+Sends  a string of characters straight to the specified serial channel.  It
+doesn't  wait  for  the  data  to  be  transmitted through the actual port.
+You'll  therefore need to use the =SERIAL CHECK(Channel) function to detect
+when the transmission has been successfully completed.
+
+Serial Send channel,t$ 
+SERIAL SLOW
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial Slow}
+
+Slows  the serial device back to normal speed and reactivates all the error
+checks.
+
+        Serial Slow channel
+
+SERIAL SPEED
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial Speed}
+
+Sets  the current transfer rate of the appropriate channel.  The same value
+will  be used for both reading and writing operations.  You can't set split
+baud rates for a single channel.
+
+If the baud rate you have specified is not supported by the current device,
+it may be rejected.
+
+        Serial Speed channel, baud rate
+
+SERIAL STATUS
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]=Serial Status}
+
+Provides  you  with  detailed  information  about  the current state of the
+serial port.
+
+        s=Serial Status(channel)
+
+s is a bit-map holding the state of fifteen different parameters.  
+
+If  the  bit  is  set to the value under "active", the associated event has
+been successfully detected.
+
+Bit Active Function
+
+ 0-1   -   reserved
+ 2     1   Parallel "select" on the A1000
+ 3     0   DSR (Data Set Ready)
+ 4     0   CTS (Clear To Send)
+ 5     0   Carrier Detect
+ 6     0   RTS (Ready To Send)
+ 7     0   DTR (Data Terminal Ready)
+ 8     1   hardware overrun
+ 9     1   break sent (most recent output)
+10     1   break received (as latest input)
+11     1   transmit x-OFF
+12     1   receive x-OFF
+13-15  -   reserved 
+SERIAL X
+{[RAMOSPro_Examples:Examples/H-4/Help_47.AMOS,0,4]Serial X}
+
+Activates/deactivates the XON/XOFF handshaking system. 
+
+        Serial X channel,xmode 
+
+A  value  of TRUE for Xmode disables handshaking.  Any other value turns it
+on.   Xmode  should  be  loaded with the correct control characters.  These
+must be specified in the following format:
+
+        Xmode=XON*$10000000+XOFF*$10000
+
+Check Commodore's documentation for more information.
+
+Using the Printer
+                          {[ILPRINT        ,4,3] Lprint                   }
+                          {[IPRINTER ABORT ,4,3] Printer Abort            }
+                          {[IPRINTER BASE  ,4,3] Printer Base             }
+                          {[IPRINTER CHECK ,4,3] Printer Check            }
+                          {[IPRINTER CLOSE ,4,3] Printer Close            }
+                          {[IPRINTER DUMP  ,4,3] Printer Dump             }
+                          {[IPRINTER ERROR ,4,3] Printer Error            }
+                          {[IPRINTER ONLINE,4,3] Printer Online           }
+                          {[IPRINTER OPEN  ,4,3] Printer Open             }
+                          {[IPRINTER OUT   ,4,3] Printer Out              }
+                          {[IPRINTER SEND  ,4,3] Printer Send             }
+LPRINT
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]Lprint}
+
+Sends a List of variables to a PRINTer instead of the screen.
+
+        Lprint variable list
+PRINTER ABORT
+{RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]Printer Abort}
+
+Halts  a  printing operation in it's tracks.  If your printer's got a large
+memory  buffer,  you  may need to wait a while before the printing actually
+stops.  If in doubt, turn it off!
+
+        Printer Abort
+PRINTER BASE
+
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]=Printer Base}
+
+Returns the address of the IO structure used to control the printer.
+
+        address=Printer Base
+
+PRINTER CHECK
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]=Printer Check}
+
+Returns  a  value  of  TRUE  (-1)  if  the printer is available for use, or
+FALSE(0) if it's in the middle of an operation.
+
+        c=Printer Check
+PRINTER CLOSE
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]Printer Close}
+
+Close  the  printer  port  you've  previously  set up with the PRINTER OPEN
+command.
+
+        Printer Close
+PRINTER DUMP
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]Printer Dump}
+
+PRINTER  DUMP  sends the current screen straight to the printer, just as it
+appears on your TV set.
+
+        Printer Dump
+
+Dumps the entire screen in a single operation.
+
+        Printer Dump x1,y1 to x2,y2
+
+Transmits  a  selected  area  of  your screen to the printer, retaining the
+present aspect ratio and the screen size.
+
+x1,y1  hold the position of the top left corner of your image
+
+x2,y2  set the location of the point diagonally opposite.
+
+         Printer Dump x1,y1 to x2,y2,px,py,s
+
+Prints  a  section  of  the  screen  using  your own aspect ratios and size
+parameters.
+
+x1,y1  define the top left corner of the area to be printed.
+
+x2,y2  enter the coordinates of the bottom right of the image.
+
+px,py  specify  the  dimensions  of  the  final printout.  These values are
+measured  in  "printer pixels" rather than normal screen points.  They vary
+depending on the command options you've set with s.
+
+s  is  a special command parameter which tells the printer precisely how to
+draw  your image onto the paper.  See the AMOS Pro User Guide for a list of
+the various options.
+
+PRINTER ERROR
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]=Printer Error}
+
+Checks  whether  the  current operation is proceeding normally.  A value of
+zero suggests that everything's ok.  Any other value indicates an error.
+
+        e=Printer Error
+
+PRINTER ONLINE
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]=Printer Online}
+
+Checks  whether  your printer is connected and ready for use.  It returns a
+value  of  TRUE  (-1)  if  the printer is online, and FALSE(0) if it is not
+available.
+
+        test=Printer Online
+PRINTER OPEN 
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]Printer Open}
+
+Opens  the  printer  device  using your current preferences.  Only a single
+printer  device  can  be  open  at  any  one  time.  So we haven't bothered
+including a channel number.
+
+        Printer Open
+PRINTER OUT
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]Printer Out}
+
+Prints  some  data  directly from the memory locations starting at address.
+This  data  is not processed in any way, and any embedded control sequences
+are totally ignored.  You should only use this instruction to send graphics
+or simple text.
+
+        Printer Out address, length
+
+address is the address of the first character to be output.
+
+length  holds the number of characters you wish to print. 
+PRINTER SEND
+{[RAMOSPro_Examples:Examples/H-5/Help_51.AMOS,0,4]Printer Send}
+
+Sends a string to the printer using multitasking. 
+
+The instruction returns immediately back to AMOS Basic, without waiting for
+the  text to be actually printed.  Instead, all printing operations will be
+performed invisibly in the background.  If the printer is not ready, you'll
+get an appropriate requester.
+
+        Printer Send a$
+
+The Parallel Port
+                          {[IPARALLEL BASE  ,4,3] =Parallel Base         }
+                          {[IPARALLEL CHECK ,4,3] =Parallel Check        }
+                          {[IPARALLEL ERROR ,4,3] =Parallel Error        }
+                          {[IPARALLEL INPUT$,4,3] =Parallel Input$       }
+                          {[IPARALLEL STATUS,4,3] =Parallel Status       }
+                          {[IPARALLEL ABORT  ,4,3] Parallel Abort         }
+                          {[IPARALLEL CLOSE  ,4,3] Parallel Close         }
+                          {[IPARALLEL OPEN   ,4,3] Parallel Open          }
+                          {[IPARALLEL OUT    ,4,3] Parallel Out           }
+                          {[IPARALLEL SEND   ,4,3] Parallel Send          }
+
+PARALLEL ABORT
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]Parallel Abort}
+
+Stops  the  PARALLEL  SEND  or  PARALLEL OUT commands from transmitting any
+additional  information  over  the parallel port.  Any characters which are
+currently in transit will be completely lost.
+
+        Parallel Abort
+PARALLEL BASE
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]=Parallel Base}
+
+Returns the address of the internal memory area used to handle the parallel
+port.
+
+        address=Parallel Base
+PARALLEL CHECK
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]=Parallel Check}
+
+Returns  a  value  of  TRUE  (-1) if the parallel port is ready for use, or
+FALSE(0) if it's not available.
+
+        c=Parallel CHECK
+PARALLEL CLOSE
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]Parallel Close}
+
+Closes the parallel port, and frees up any memory back to the system. 
+
+        Parallel Close
+PARALLEL ERROR
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]=Parallel Error}
+
+Checks  for  an  error  in  the  current  transmission.  If it's proceeding
+normally,  you get a value of zero.  Any other value indicates a problem of
+some sort.
+
+        e=Parallel Error
+PARALLEL INPUT$
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]=Parallel Input$}
+
+Waits for a specific number of characters from the parallel port.
+
+        d=Parallel Input$(length)
+
+Since  the parallel port doesn't have an internal buffer area, your program
+will  halt  completely  until the characters are successfully received.  If
+the  requested  bytes  haven't  arrived  after a reasonable amount of time,
+you'll get a time-out error.
+
+        d=Parallel Input$(length ,stop)
+
+stop  enters  an  optional a stop character which will end the transmission
+the moment it's recieved.
+
+PARALLEL OPEN
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]Parallel Open}
+
+Initialises the parallel port for use by your AMOS program.
+
+        Parallel Open
+PARALLEL OUT
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]Parallel Out}
+
+Transmits  some  characters  through  the  parallel  port  starting  from a
+specific memory address.
+
+        Parallel Out address, length
+PARALLEL SEND
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]Parallel Send}
+
+Sends  a  string  to the parallel port using multitasking.  The instruction
+returns  immediately back to AMOS Basic, without waiting for the text to be
+actually transmitted.
+
+        Parallel Send a$
+
+PARALLEL STATUS
+{[RAMOSPro_Examples:Examples/H-8/Help_81.AMOS,0,4]=Parallel Status}
+
+Returns   information   about  the  parallel  port.   Each  possibility  is
+represented by a single bit in the result.
+
+        s=Parallel Status
+
+Bit     Function
+ 0      Printer selected
+ 1      Paper out
+ 2      Printer busy
+ 3      Direction (read=0 / write=1)
+
+Using the AmigaDos Libraries
+                          {[IDOSCALL       ,4,3] =Doscall                }
+                          {[IEQU           ,4,3] =Equ                    }
+                          {[IEXECALL       ,4,3] =Execall                }
+                          {[IGFXCALL       ,4,3] =Gfxcall                }
+                          {[IINTCALL       ,4,3] =Intcall                }
+                          {[ILIB BASE      ,4,3] =Lib Base               }
+                          {[ILIB CALL      ,4,3] =Lib Call               }
+                          {[ILVO           ,4,3] =Lvo                    }
+                          {[ISTRUC=        ,4,3] =Struc=                 }
+                          {[ILIB CLOSE      ,4,3] Lib Close               }
+                          {[ILIB OPEN       ,4,3] Lib Open                }
+                          {[ISET EQUATE BANK,4,3] Set Equate Bank         }
+DOSCALL
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]=Doscall}
+
+Calls a routine from the DOS library.
+
+As  with  LIB  CALL, you'll first need to set up the control registers into
+D0-D7 and A0-A3 using the AREG() and DREG() functions.
+
+After  the  command  has  been executed, the return value will be available
+from D0 as the result.
+
+        result=Doscall(function_offset)
+
+function_offset  enters  the  offset to the relevant library function.  The
+offset  can  be  either a simple number, or a named function (using the LVO
+command).
+
+EXECALL
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]=Execall}
+
+Calls the EXEC library with the selected offset value.
+
+On  entry,  registers D0 to D7 and A0 to A2 MUST be loaded with the control
+settings required by your function.  At the end, the contents of D0 will be
+returned to AMOS Basic.
+
+        result=Execall(function_offset)
+
+GFXCALL
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]=Gfxcall}
+
+Executes  your  chosen  function straight from the Graphics library, taking
+the parameters from the DREG() and AREG() arrays.
+
+function_offset enters the offset to the function you wish to call.  It can
+also be set using the LVO function if required.
+
+        result=Gfxcall(function_offset)
+INTCALL
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]=Intcall}
+
+Calls a command directly from the Intuition library. 
+
+Before  using  this  function,  it's  vital to load the appropriate control
+parameters  into  the  registers D0-D7 and A0-A3.  This can be accomplished
+with the AREG() and DREG() variables from AMOS Basic.
+
+When  the  function terminates, the contents of D0 will be returned back to
+your program.
+
+        result=Intcall(function_offset)
+LIB BASE
+Returns  the  base  address  of  the  selected  library.  It can be used in
+conjunction  with  the  STRUC  command  to  manipulate  the  internal  data
+structures directly.
+
+        address=Lib Base(channel)
+LIB CALL
+Calls  your  chosen  library  command, and returns the result to your Basic
+program.
+
+function_offset  holds  the  offset  to  the  library  function you want to
+execute.  It can be entered by name using the LVO function.
+
+Before calling this function, you'll need to load the appropriate parameter
+values  into  the  Address  and  Data  registers  with  AREG()  and DREG().
+Similarly,  after  the  function has been successfully executed, any return
+values will be available immediately from the AREG and DREG variables.
+
+        result=Lib Call(channel,function_offset)
+LIB CLOSE
+
+Closes one or all of the currently open libraries
+
+        Lib Close 
+
+Closes ALL libraries in a single operation.
+
+        Lib Close channel
+
+Closes a single Amiga library
+LIB OPEN
+
+Calls  the OPEN LIBRARY function from EXEC.  If the library is external, it
+will  be  loaded  into memory from the LIBS folder of your present start-up
+disc.
+
+        Lib Open channel,"name.library",version
+
+version specifies the minimum version number of the library to be installed
+into memory.  Use a value of zero if you're unsure.
+
+SET EQUATE BANK
+
+Allocates  a memory bank for use by the automatic equate system.  It should
+be  called  up BEFORE the first equate in your program, preferably near the
+beginning.
+
+bank_number   is  the  number  of  a  memory  bank  to  be  used  for  your
+equates,ranging from 1 to 65535.  Beware!  Any bank of the same number WILL
+BE ERASED when the equates are installed in memory, WITHOUT warning!
+
+        Set Equate Bank bank_number
+
+LVO
+
+Returns the Library Vector Offset associated with the selected function.
+
+The  function  name  will  be translated automatically when your program is
+first  tested,  and  placed in a memory bank for future use.  If it doesn't
+exist, you'll get an "Equate not found error" from the Editor.
+
+Before  using this function, you'll need to set up a memory bank with a SET
+EQUATE BANK command.  Otherwise, you'll get an appropriate error message.
+
+        offset=LVO("Name_of_the_function")
+
+EQU
+
+EQU returns any standard equate value used by the Amiga system libraries.
+
+The  equate  can  represent  anything from the offset to a structure,to the
+names  of  your various bit masks.  Providing it's supplied on the standard
+Amiga include files, it will be immediately available from AMOS Basic.
+
+The  only  exception  to this rule, are the library offsets.These should be
+obtained with the =LVO() function.
+
+It's  important  to  emphasise  that  the  name  string MUST be a constant.
+Expressions are NOT allowed!
+
+        equate=Equ("name_of_the_equate")
+
+STRUC
+
+STRUC provides you with a simple way of assigning a value to any one of the
+elements of a system structure.
+
+        value=Struc(address,"offset_name")
+
+        Struc(address,"offset_name")=value
+
+address  holds  the address of your structure in memory.  This will usually
+be returned by either a LIB BASE or a DEV BASE function.
+
+Offset_Name  is  the  name of the relevant data object from the appropriate
+manual.
+
+The  name  will  be converted into the offset number by AMOS Basic using
+the powerful auto-equate system.  You'll therefore need to include a SET
+EQUATE BANK  command  near  the  start of your program in order to
+initialise this feature.
+
+Devices
+
+                        {[IDEV ABORT  ,4,3] Dev Abort                   }
+                        {[IDEV BASE  ,4,3] =Dev Base                   }
+                        {[IDEV CHECK ,4,3] =Dev Check                  }
+                        {[IDEV CLOSE  ,4,3] Dev Close                   }
+                        {[IDEV DO     ,4,3] Dev Do                      }
+                        {[IDEV OPEN   ,4,3] Dev Open                    }
+                        {[IDEV SEND   ,4,3] Dev Send                    }
+                        {[IOPEN PORT ,4,3] =Open Port                  }
+                        {[IPORT      ,4,3] =Port                       }
+
+DEV ABORT
+
+Executes an AbortIO and a WaitIO command to clear all pending action of the
+specified  device.   You  can  use this instruction to exit directly from a
+multitasking operation, without waiting for it to complete normally.
+
+        Dev Abort channel
+DEV BASE
+
+Returns  the  base  address  of  the  IO  structure assigned to the current
+device.   This  structure can now be manipulated directly using the STRUC()
+instructions as required.
+
+        address=Dev Base(channel)
+DEV CHECK
+
+Performs  a  CheckIO  on the specified channel, and passes the return value
+back to AMOS Basic.
+
+DEV CLOSE
+
+Closes  one  or more opened devices, as initialised with DEV OPEN.  It then
+returns  the  memory  used  by  the  IO  structure  back to AMOS Basic, and
+releases the message port for subsequent use.
+
+        Dev Close
+
+Closes all devices
+
+        Dev Close channel
+
+Channel selects a single device to be shut down.
+DEV DO
+
+Executes a DOIO operation on the specified channel.
+
+You  should  of course, set the proper internal parameters of the structure
+using the STRUC() command before calling this option.
+
+        Dev Do channel,command
+
+channel is the number of a previously opened device channel
+
+command  holds  the number the IO command you wish to DO.  This command can
+be entered directly using it's name using the built in EQU function.
+
+DEV OPEN
+
+Opens  a  communication  port, and prepares the device for use by your AMOS
+programs.    If   this   device  is  not  already  installed,  it  will  be
+automatically loaded from the DEVS folder of your current start-up disc.
+
+        Dev Open(channel,"name.device",iolength,unitnumber,flags)
+DEV SEND
+
+Calls  the  SendIO  command  from  Exec,  and runs your operation using the
+Amiga's  built-in  multitasking  system.   Your  new  process  will now run
+invisibly   in   the  background.   So  your  AMOS  program  will  continue
+immediately from the next instruction.
+
+        Dev Send channel,command
+
+OPEN PORT
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]Open Port}
+
+Provides  a  simple  way of accessing the various devices connected to your
+Amiga.
+
+        Open Port channel number,"PAR:"
+
+For the Parallel port.
+
+        Open Port channel number,"SER:"
+
+For the RS232 (serial) port.
+
+        Open Port  channel number,"PRT:"
+
+For the Printer port.
+
+Once  you've  opened  your  channel,  you  can  access  it using any of the
+INPUT#,INPUT$,PRINT#  or  LINE  INPUT# commands, just as if it was a normal
+disc channel.
+
+PORT
+{[RAMOSPro_Examples:Examples/H-6/Help_67.AMOS,0,4]Port}
+
+Tests  a  port you've previous initialised with OPEN PORT, and sees if it's
+waiting for you to read it.
+
+        test=PORT(channel number)
+
+You'll get a value of True (-1) if there's  some data ready, otherwise 
+False (0).
+Arexx
+
+                        {[IAREXX      ,4,3] =Arexx                      }
+                        {[IAREXX$     ,4,3] =Arexx$                     }
+                        {[IAREXX ANSWER,4,3] Arexx Answer                }
+                        {[IAREXX CLOSE ,4,3] Arexx Close                 }
+                        {[IAREXX EXIST ,4,3] Arexx Exist                 }
+                        {[IAREXX OPEN  ,4,3] Arexx Open                  }
+                        {[IAREXX WAIT  ,4,3] Arexx Wait                  }
+AREXX
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]=Arexx}
+
+Performs   a  GET  MESSAGE  command  from  the  Amiga's  operating  system.
+Depending on the result, you'll get one of the following values.
+
+0   There's no message. Try again later.
+
+1   A message has just arrived. But it doesn't need a response.
+
+2   A message has been received. Please answer immediately with an
+    appropriate return string.
+
+        status=Arexx
+AREXX$
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]=Arexx$}
+
+After  a  message  has  been successfully received from an AREXX compatible
+program, you can read it's contents with the AREXX$ function.
+
+        message$=Arexx$(arg_number)
+
+arg_number  is  the number of the argument you wish to read, ranging from 0
+to 15.  If it's not included, you'll get an empty string "".
+
+AREXX ANSWER
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]Arexx Answer}
+
+Replies  to  a  message  passed  from another AREXX program running on your
+Amiga.
+
+        Arexx Answer error
+        Arexx Answer error,return$
+AREXX CLOSE
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]Arexx Close}
+
+Closes a previously opened AREXX communications port.
+
+        Arexx Close
+AREXX EXIST
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]Arexx Exist}
+
+Checks  for  the  presence  of  a  named  communication port in the Amiga's
+memory.   You'll get a value of TRUE(-1) if it's available, and a FALSE (0)
+if there's some sort of problem.
+
+        test=Arexx Exist("PORT_NAME")
+AREXX OPEN
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]Arexx Open}
+
+Sets up an AREXX communication port ready for immediate use.
+
+        Arexx Open "PORT_NAME"
+
+AREXX WAIT
+{[RAMOSPro_Examples:Examples/H-8/Help_84.AMOS,0,4]Arexx Wait}
+
+Halts your AMOS program completely until a message arrives from one of your
+concurrent programs.
+
+        Arexx Wait
+
+Memory Conservation
+
+                         {[ICHIP FREE       ,4,3] =Chip Free             }
+                         {[IFAST FREE       ,4,3] =Fast Free             }
+                         {[ICLOSE EDITOR    ,4,3] Close Editor           }
+                         {[ICLOSE WORKBENCH ,4,3] Close Workbench        }
+                         {[IKILL EDITOR     ,4,3] Kill Editor            }
+CLOSE EDITOR
+{[RAMOSPro_Examples:Examples/H-5/Help_54.AMOS,0,4]Close Editor}
+
+CLOSEs  the  EDITOR  window  while  your  program is running, saving 55k of
+memory.
+
+        Close Editor
+CLOSE WORKBENCH
+{[RAMOSPro_Examples:Examples/H-5/Help_54.AMOS,0,4]Close Workbench}
+
+Closes  the  Workbench  and kills off any multi-tasking programs, saving at
+least 40k of memory for your AMOS Basic programs.
+
+        Close Workbench
+
+CHIP FREE
+{[RAMOSPro_Examples:Examples/H-6/Help_64.AMOS,0,4]=Chip Free}
+
+Returns  the  amount  of FREE CHIP memory.  This memory can be used to hold
+screens, objects and sound samples.
+
+        Print Chip Free
+FAST FREE
+{[RAMOSPro_Examples:Examples/H-6/Help_64.AMOS,0,4]=Fast Free}
+
+Returns  the  number of bytes of FAST memory FREE for use.  Fast memory can
+be used for static items like variables and AMAL animation sequences.
+
+        Print Fast Free
+KILL EDITOR
+
+Stores  the  programs  you  are  editing on the disc and removes the Editor
+completely  from  memory,  saving  at least 40K of extra space!  The Editor
+will  be  reloaded  after  your  program  has finished, along with all your
+current program listings.
+
+        Kill Editor
+
+
+Fonts
+                        {[IFONT$       ,4,3] =Font$                     }
+                        {[ITEXTBASE    ,4,3] =Text Base                 }
+                        {[ITEXTLENGTH  ,4,3] =Text Length               }
+                        {[ITEXTSTYLES  ,4,3] =Text Styles               }
+                        {[IGETDISCFONTS,4,3] Get Disc Fonts             }
+                        {[IGETFONTS    ,4,3] Get Fonts                  }
+                        {[IGETROMFONTS ,4,3] Get Rom Fonts              }
+                        {[ISETFONT     ,4,3] Set Font                   }
+                        {[ISETTEXT     ,4,3] Set Text                   }
+                        {[ITEXT        ,4,3] Text                       }
+
+
+FONT$
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]=Font$}
+
+FONT$  returns details about the chosen text style.  The result is a string
+of exactly 38 characters, in the following format.
+
+1  - 29  Font name
+30 - 33  Font height
+34 - 37  Identifier (Rom or Disc)
+
+        a$=Font$(font_number)
+
+GET FONTS
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]Get Fonts}
+
+Creates  an  internal  list  of  all  available  text fonts.  These include
+built-in  ROM  fonts,  and the DISC fonts on your start-up disc.  GET FONTS
+should  be called once at the start of your program, before you select your
+font  with  the SET TEXT command.  You can scan through the available fonts
+using the FONT$ function.
+
+        Get Fonts
+
+GET DISC FONTS
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]Get Disc Fonts}
+
+Creates  an internal list of the fonts provided in the FONTS:  directory of
+your  current start-up disc.  This command can be used as an alternative to
+GET FONTS.
+
+         Get Disc Fonts
+
+If  you  want  to  read the fonts from another disc, use the ASSIGN command
+like so:
+
+         Assign "FONTS:" To "Df1:FONTS"
+GET ROM FONTS
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]Get Rom Fonts}
+
+Generates an internal list of the Rom fonts provided by Amiga's Hardware. 
+
+        Get Rom Fonts
+SET FONT
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]Set Font}
+
+Selects  the  FONT  to  be used by the next TEXT command, and loads it into
+memory  if  required.   Before using this command, you'll need to create an
+internal font list with either GET FONTS, GET DISC FONTS or GET FONT FONTS.
+
+        Set Font number
+SET TEXT
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]Set Text}
+
+Selects the style of the current graphics font.
+
+        Set Text stylenumber
+
+Stylenumber is a bit-pattern with the format:
+
+Bit 0 = underlined
+Bit 1 = bold 
+Bit 2 = italic.
+TEXT
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]Text}
+
+Prints some graphic TEXT at your chosen SCREEN coordinates.
+
+        Text x,y,t$
+
+Note:   t$  must  be  a string.  If you want to use a number you must first
+convert it into a string with the STR$ function.
+
+TEXT BASE
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]=Text Base}
+
+Returns  the  position of the coordinate BASEline used by your present TEXT
+font.  It's similar to the Hot Spot of a Sprite.
+
+        b=Text Base
+TEXT LENGTH
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]=Text Length}
+
+Returns the LENGTH of a section of a graphic character string in pixels.
+
+        w=Text Length(t$)
+TEXT STYLES
+{[RAMOSPro_Examples:Examples/H-7/Help_79.AMOS,0,4]=Text Styles}
+
+Returns the current TEXT STYLES you've assigned with SET TEXT.
+
+        s=Text Styles
+
+Speech
+                          {[IMOUTHHEIGHT,4,3] Mouth Height              }
+                          {[IMOUTHREAD   ,4,3] Mouth Read                }
+                          {[IMOUTHWIDTH ,4,3] =Mouth Width              }
+                          {[ISAY         ,4,3] Say                       }
+                          {[ISETTALK     ,4,3] Set Talk                  }
+                          {[ITALKMISC    ,4,3] Talk Misc                 }
+                          {[ITALKSTOP    ,4,3] Talk Stop                 }
+MOUTH WIDTH
+{[RAMOSPro_Examples:Examples/H-8/Help_83.AMOS,0,4]=Mouth Width}
+
+Returns  the  current  width  of  the "mouth" used to generate your speech.
+You'll get a NEGATIVE value if the speech is over.
+
+        Print Mouth Width
+
+MOUTH HEIGHT
+{[RAMOSPro_Examples:Examples/H-8/Help_83.AMOS,0,4]=Mouth Height}
+
+Returns  the  height of the imaginary mouth used to create your speech at a
+given instant.  You'll get get a NEGATIVE value if the speech has finished.
+
+        Print Mouth Height
+
+MOUTH READ
+{[RAMOSPro_Examples:Examples/H-8/Help_83.AMOS,0,4]Mouth Read}
+
+Waits for a movement of the mouth, and reads the new position directly into
+=MOUTH WIDTH and =MOUTH HEIGHT.
+
+SAY
+{[RAMOSPro_Examples:Examples/H-7/Help_73.AMOS,0,4]Say}
+
+SAY commands allow your Amiga to speak!
+
+        Say speech$
+
+SET TALK
+{[RAMOSPro_Examples:Examples/H-7/Help_73.AMOS,0,4]Set Talk}
+
+SETs the style of synthetic speech which is generated by the SAY command.
+
+        Set Talk sex,mode,pitch,rate
+
+sex  =1 for female 
+     =0 for male.
+
+mode  toggles  the intonation system.  A value of one activates it and zero
+turns it off.
+
+pitch sets the tone of the speech from a low of 65 to a high of 320.
+
+rate  enters the speed of the speech in words per minute.  Allowable values
+range from 40 and 400.
+
+TALK MISC
+{[RAMOSPro_Examples:Examples/H-8/Help_83.AMOS,0,4]Talk Misc}
+
+Set  the  volume  and  the  frequency  of  the  voice  used by the next SAY
+instruction.
+
+        Talk Misc volume,frequency
+
+volume   : 0 to 64
+
+frequency: 5000 to 25000.
+TALK STOP
+{[RAMOSPro_Examples:Examples/H-8/Help_83.AMOS,0,4]Talk Stop}
+
+If you're using SAY in multitask mode, this shuts the Amiga up!
+
+        Talk Stop
+
+Multi-tasking
+
+                          {[IAMOS HERE     ,4,3] Amos Here               }
+                          {[IAMOS LOCK     ,4,3] Amos Lock               }
+                          {[IAMOS TO BACK  ,4,3] Amos To Back            }
+                          {[IAMOS TO FRONT ,4,3] Amos To Front           }
+                          {[IAMOS UNLOCK   ,4,3] Amos Unlock             }
+                          {[IMULTI WAIT    ,4,3] Multi Wait              }
+AMOS HERE
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]=Amos Here}
+
+AMOS  HERE  returns  a value of True (-1) if AMOS Professional is currently
+displayed on the screen, and 0 if another Workbench application is visible.
+
+        test=Amos Here 
+AMOS LOCK
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]Amos Lock}
+
+Stops  you  from  flicking  between  the  AMOS Professional display and the
+Workbench screen using the Amiga+A keys.
+
+        Amos Lock
+AMOS TO BACK
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]Amos To Back}
+
+Hides  the  AMOSPro  screen and allows you to access any other applications
+which are running on your Amiga.
+
+        Amos To Back
+AMOS TO FRONT
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]Amos to Front}
+
+Removes  the current application from the display, and replaces it with the
+present AMOS screen.
+
+        Amos To Front
+AMOS UNLOCK
+{[RAMOSPro_Examples:Examples/H-7/Help_70.AMOS,0,4]Amos Unlock}
+
+Reverses  the  effect of the AMOS LOCK command and allows you to flick back
+and  forth  between  AMOS  Professional  and  your  current  application by
+pressing Amiga+A
+
+        Amos Unlock
+MULTI WAIT
+{[RAMOSPro_Examples:Examples/H-5/Help_53.AMOS,0,4]Multi Wait}
+
+Holds  your AMOS program, freeing time for the other applications which are
+running   in   the   background.   It  should  not  be  used  for  accurate
+synchronisation  effects  as  the  number of Vbl's depends on the number of
+applications which are being executed using multi-tasking.
+
+        Multi Wait
+System Requesters
+
+                        {[IREQUEST OFF,4,3] Request Off                  }
+                        {[IREQUEST ON ,4,3] Request On                   }
+                        {[IREQUEST WB ,4,3] Request Wb                   }
+
+REQUEST OFF
+
+Does  not  allow  the  AMOS  system  to  display the requester screens that
+occasionally  pop  up  in  front  of  the current screen and REQUEST you to
+perform an action, like inserting a disc.
+
+        Request Off
+
+REQUEST ON
+
+Returns you to the normal or default REQUESTer mode. 
+
+        Request On
+REQUEST WB
+
+Uses the standard Workbench Requestor for all messages.
+
+        Request Wb
+
+ERR$
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_2.AMOS,0,4]=Err$}
+
+Returns  a string containing the chosen error message.  If the error number
+is out of range, =ERR$() will return an empty string "" instead.
+
+        s$=ERR$(Error_Number)
+
+Note:  =ERR$() will only return a string if the error messages are actually
+loaded in memory.
+
+ERRN
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_1.AMOS,0,4]=Errn}
+
+Returns the identification number of a last error in your program.
+
+        Print Errn
+ERROR
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_1.AMOS,0,4]Error}
+
+Simulates an error and exits your program with an error message.
+
+        Error n
+ERRTRAP
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_2.AMOS,0,4]=Errtrap}
+
+Returns   the   error  number  which  occurred  during  the  previous  TRAP
+instruction.  If no error has been detected, you'll get a value of zero.
+
+        test=Errtrap
+ON ERROR
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_1.AMOS,0,4]On Error}
+
+ON  ERROR  can be used to detect and trap an ERROR without having to return
+to the editor window.
+
+        On Error Goto label
+        On Error Proc name
+RESUME
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_1.AMOS,0,4]Resume}
+
+Returns back to the statement that originally caused an error, after it has
+been  dealt  with  by one of your ON ERROR routines.  If you specify a line
+number the program will jump to that point instead.
+
+        Resume linenumber
+
+Also check out the RESUME LABEL and RESUME NEXT instructions.
+RESUME LABEL
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_1.AMOS,0,4]Resume Label}
+
+Restarts your program after an error from the named LABEL.
+
+        Resume Label labelname
+RESUME NEXT
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_1.AMOS,0,4]Resume Next}
+
+Resumes  your  program  after an error.  The program returns to the command
+just after the instruction which generated it.
+
+        Resume Next
+TRAP
+{[RAMOSPro_Tutorial:Tutorials/Error_Handling_2.AMOS,0,4]Trap}
+
+TRAP executes a single instruction, and traps any errors which occur.  If a
+problem  crops  up  during  this instruction, your program will continue as
+normal.  You can now find the number of the error using =ERRTRAP
+
+        Trap Normal_Instruction
+
+Stop..Press
+                       {[IHelpMemory   ,4,3] 1 Meg Users Read This!         }
+                       {[IHelp3DCOMP   ,4,3] Compiler/3D Extensions         }
+                       {[IHelpConfig   ,4,3] Important Configuration info   }
+                       {[IHelpAdvert   ,4,3] Programmers/Artists read this  }
+                       {[IHelpPecision ,4,3] Single and Double Precision    }
+                       {[IHelpDithell  ,4,3] Procedures Library             }
+                       {[IHelpCredits  ,4,3] Credits                        }
+
+AMOS Interface Instructions
+                       {[IHelpIops     ,4,3] Arithmetic Operations          }
+                       {[IHelpIzones   ,4,3] Buttons and Edit Zones         }
+                       {[IHelpIactive  ,4,3] Lists and Sliders              }
+                       {[IHelpIgeneral ,4,3] General purpose commands       }
+                       {[IHelpIgraphics,4,3] Text and Graphics              }
+                       {[IHelpIbox     ,4,3] Resource commands              }
+
+
+Interface Operations
+        {[II!,4,3] ! String addition  } {[II/,4,3] / Divide           } {[II|,4,3] | Logical Or       }
+        {[II#,4,3] # Number to string } {[II<,4,3] < Less than        } {[II-,4,3] - Minus            }
+        {[II&,4,3] & Logical And      } {[II>,4,3] > Greater than     } {[II_MA,4,3] =MAx               }
+        {[II*,4,3] * Multiply         } {[II=,4,3] = Equals           } {[II_MI,4,3] =MInimum           }
+        {[II+,4,3] + Add              } {[II\,4,3] \ Not Equals       } {[II_NE,4,3] =NEgate            }
+
+                    {[IHelpIntins,4,3] Return to Interface Instruction Menu }
+Buttons and Edit Zones
+
+                  {[II_BC,4,3] Button Change      } {[II_KY,4,3] KeYboard short-cut }
+                  {[II_BP,4,3] =ButtonPosition    } {[II_NW,4,3] NoWait             }
+                  {[II_BQ,4,3] ButtonQuit         } {[II_SZ,4,3] SetZonevar         }
+                  {[II_BR,4,3] =ButtonReturn      } {[II_ZC,4,3] Zone Change        }
+                  {[II_BU,4,3] create BUtton      } {[II_ZN,4,3] =Zone Number       }
+                  {[II_DI,4,3] enter DIgits       } {[II_ZP,4,3] =Zone Position     }
+                  {[II_ED,4,3] EDit zone          } {[II_ZV,4,3] =ZoneVar           }
+
+                    {[IHelpIntins,4,3] Return to Interface Instruction Menu }
+Lists and Sliders
+
+                    {[II_AL,4,3] Active List                          }
+                    {[II_AR,4,3] Array Read                           }
+                    {[II_AS,4,3] Array Size                           }
+                    {[II_IL,4,3] Inactive List                        }
+                    {[II_HS,4,3] Horizontal Slider                    }
+                    {[II_HT,4,3] HyperText                            }
+                    {[II_SS,4,3] Set Slider                           }
+                    {[II_VS,4,3] Vertical Slider                      }
+
+                    {[IHelpIntins,4,3] Return to Interface Instruction Menu }
+General purpose interface commands
+        {[II_BA,4,3] BAse coordinates   } {[II_P3,4,3] =Parameter 3       } {[II_SM,4,3] Screen Move        }
+        {[II_BX,4,3] =Base X            } {[II_P4,4,3] =Parameter 4       } {[II_SV,4,3] Set Variable       }
+        {[II_BY,4,3] =Base Y            } {[II_P5,4,3] =Parameter 5       } {[II_SW1,4,3] =Screen Width      }
+        {[II_CA,4,3] CAll machine code  } {[II_P6,4,3] =Parameter 6       } {[II_SX,4,3] =Size in X         }
+        {[II_CX,4,3] =Center on X       } {[II_P7,4,3] =Parameter 7       } {[II_SY,4,3] =Size in Y         }
+        {[II_EX,4,3] EXit program       } {[II_P8,4,3] =Parameter 8       } {[II_UI,4,3] =User Instruction  }
+        {[II_IF,4,3] If..               } {[II_P9,4,3] =Parameter 9       } {[II_VA,4,3] =VAriable          }
+        {[II_JP,4,3] JumP (goto)        } {[II_RT,4,3] Return (from JS)   } {[II_XA,4,3] =XA                }
+        {[II_JS,4,3] Jump to Subroutine } {[II_RU,4,3] Run Until          } {[II_XB,4,3] =XB                }
+        {[II_LA,4,3] LAbel              } {[II_SA,4,3] SAve block         } {[II_XY,4,3] XY                 }
+        {[II_P1,4,3] =Parameter 1       } {[II_SH,4,3] =Screen Height     } {[II_YA,4,3] =YA                }
+        {[II_P2,4,3] =Parameter 2       } {[II_SI,4,3] define block SIze  } {[II_YB,4,3] =YB                }
+
+                    {[IHelpIntins,4,3] Return to Interface Instruction Menu }
+Interface Text and Graphics commands
+
+                  {[II_GB,4,3] Graphic Box        }  {[II_SF,4,3] Set Font           }
+                  {[II_GE,4,3] Graphic Ellipse    }  {[II_SL,4,3] Set Line           }
+                  {[II_GL,4,3] Graphic Line       }  {[II_SP,4,3] Set Pattern        }
+                  {[II_GP,4,3] Graphic Plot       }  {[II_SW2,4,3] Set Writing        }
+                  {[II_GS,4,3] Graphic Square     }  {[II_VT,4,3] Vertical Text      }
+                  {[II_IN,4,3] INk                }  {[II_TH,4,3] =Text Height       }
+                  {[II_PO,4,3] Print Outline text }  {[II_TL,4,3] =Text Length       }
+                  {[II_PR,4,3] PRint text         }  {[II_TW,4,3] =Text Width        }
+
+                    {[IHelpIntins,4,3] Return to Interface Instruction Menu }
+Resource commands
+
+                    {[II_BO,4,3] BOx                                  }
+                    {[II_LI,4,3] LIne                                 }
+                    {[II_ME,4,3] =MEssage                             }
+                    {[II_PU,4,3] PUsh                                 }
+                    {[II_UN,4,3] UNpack image                         }
+                    {[II_VL,4,3] Vertical Line                        }
+
+                    {[IHelpIntins,4,3] Return to Interface Instruction Menu }
+String addition
+Adds two strings together, leaving the address of the result.
+
+   'string1' 'string2' !
+
+Generates 'string1string2' and places it's address onto the stack.
+Number to string
+Converts a number into a string.  It can be used to print numbers using the
+PR,PO, or VT commands.
+
+   number1 #
+
+Generates the string 'number1' and places it's address on the stack.
+And
+Performs a logical AND operation on two values from the stack.
+
+   number1 number2 &
+Mul
+Multiplies the top two numbers on the stack, and leaves the result.
+
+   number1 number2 *
+Plus
+Adds two numbers from the stack and returns the result.
+
+   number1 number2 +
+Div
+Divides the second number on the stack by the top number.
+
+   number1 number2 /
+Less than
+Compares  two  numbers on the stack, and returns a value of True(-1) if the
+first is less than the second.
+
+   number1 number2 <
+Greater than
+Compares  two  numbers  on the stack, and returns a value of True(-1) if the
+first is greater than the second.
+
+   number1 number2 >
+Equals
+Compares  two  numbers  on the stack, and returns a value of True(-1) if the
+first is equal to the second.
+
+   number1 number2 =
+Not equals
+Compares  two  numbers  on the stack, and returns a value of True(-1) if the
+first is NOT equal to the second.
+
+   number1 number2 \
+Or
+Performs a logical OR operation on two values from the stack.
+
+   number1 number2 |
+Subtract
+Subtracts the second value from the first.
+
+   number1 number2 -
+Active List
+Generates  a  selection  box which can be used to produce a wide variety of
+file-selectors, or slider boxes.
+
+AL zone,x,y,width,height,array address,first item,flag,paper,pen;[changes]
+
+x,y  are  the coordinates of the window on the screen.  x is rounded to the
+nearest 16.
+
+width,height enter the width and height of the list window in characters.
+
+array  address  holds  the  address  of  an  array  which you've previously
+installed  into your Interface program using the ARRAY and VDIALOG commands
+from Basic.
+
+first item is the number of the first item in the list to be displayed.
+
+flag is a bitmap containing three bits.
+
+     Bit 0: If it's one AMOS adds a number to each item before it's
+            displayed. Normally the count starts from zero.
+
+     Bit 1: Used with bit 0. It starts the count from one.
+
+     Bit 2: If this is zero, the item will be selected the moment it's
+            highlighted with the mouse. If it's set to one, you'll need
+            to click on the item first.
+
+paper,pen hold the colours of the item text and the window background.
+
+[changes]   is  a  list  of  Interface  commands  which  will  be  executed
+automatically whenever an item is selected from the box.
+
+Array Read
+Reads a  value from an AMOS array. The address of this array should already
+have  been  loaded  into  your Interface program using a combination of the
+ARRAY,and VDIALOG commands.
+
+   address_of_array element_number AR
+Array Size
+Returns the number of elements in an array stored at the specified address.
+
+   address_of_array AS
+BAse
+{[RAMOSPro_Tutorial:Tutorials/Interface/Simple_requester.AMOS,0,4]BA}
+
+Set the origin point of all future coordinate calculations.
+
+   BA x,y;
+Button Change
+{[RAMOSPro_Tutorial:Tutorials/Interface/Working_buttons.AMOS,0,4]BC}
+
+Changes the position of any active button.
+
+   BC button number,new position;
+BOx
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]BO}
+
+Draws  a  rectangular bar out of an assortment of packed pictures found in
+the resource bank.
+
+   BOx x,y,first image,width,height;
+
+x,y  define the position of the top left corner of the box.  As with the LI
+command, the X coordinate will be rounded to the nearest multiple of eight.
+
+first  image  is  the number of first of the 9 packed images to be used for
+your box.
+
+width and height set the dimensions of the box on the screen. The width must
+be a multiple of the image width, but the height can be anything you like.
+
+Button position
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Working_buttons.AMOS,0,4]BP}
+
+Returns the current position of your button.  It's normally used as part of
+a button drawing routine to click the button down when it's selected.
+
+   BP
+Button Quit
+{[RAMOSPro_Tutorial:Tutorials/Interface/Working_buttons.AMOS,0,4]BQ}
+
+Makes  the  current  button  definition  an  EXIT button.  It's used in the
+change  brackets  of  a  BU  function  to  trigger  a forced exit from your
+dialogue box when your button is selected.
+
+   BQ;
+Button Return
+{[RAMOSPro_Tutorial:Tutorials/Interface/Working_buttons.AMOS,0,4]BR}
+
+Moves the current button to a new setting.
+
+   BR new position;
+
+It's normally called from inside a change routine to flip the button into a
+new state when it's selected by the user.
+
+BUtton
+Defines a button for your dialogue boxes or control panels.
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Working_buttons.AMOS,0,4]BU}
+
+BU number,x,y,width,height,setting,minimum,maximum;[draw][change]
+
+number  is  the  number of the button you wish to create starting from one.
+If you want to link several button together you can assign them all to the
+same ID number.
+
+x,y  set  the  coordinates  of  the  top  left  hand corner of your button,
+relative to the BAse point.
+
+width,height hold the size of the button in pixels.
+
+setting enters the initial position for your button.
+
+minimum,maximum hold the smallest and highest values the setting can take.
+
+[draw]  is  a  list of Interface instructions which will be used to display
+your button on the screen.  These instructions will be called automatically
+whenever the position value changes.
+
+[change]  is a list of instructions which will be called up when the button
+is  selected by the user.  If these commands change the position value, the
+button will be redrawn using the previous [draw] routine.
+
+=Base X
+Returns the X coordinate of the origin point used for all future coordinate
+calculations.   This value can be set up using either the BAse command from
+AMOS Interface or directly from your Basic program.
+
+   BX
+=Base Y
+Gets  the  Y  coordinate  of  the  origin  point used by the AMOS Interface
+graphics commands.
+
+   BY
+CAll
+Calls a machine code program from an interface routine.
+
+   CAll address;
+
+address  is  the  address of a machine code program in memory.  The easiest
+way to load it, is to place it into a DBL variable from AMOS Basic:
+
+Vdialog(1,0)=Start(6) :Rem Load 0 VA of channel 1 with the address of bank 6
+
+You can now run your routine using a line like: CAll 0VA;
+
+Your machine code can modify ALL registers, and should return with an RTS.
+Centre Text
+Finds  the  X  coordinate  needed  to  centre a piece of text neatly on the
+screen.
+
+   'text' CX
+DIgit
+{[RAMOSPro_Tutorial:Tutorials/Interface/Editing_Zones.AMOS,0,4]DI}
+
+Creates a simple editing zone especially for numbers.  This zone allows you
+to enter your numbers on the screen, and edit them directly with the cursor
+keys.  Hitting Return will enter the value into memory.  It can now be read
+using the RDIALOG function from your Basic program.
+
+DI zone number,x,y,width,default,flag,paper,pen
+
+zone number = the number of your zone.
+
+x,y  are  the  coordinates  of  the start of your zone ralative to the BAse
+point.  x will be rounded down to the nearest 16.
+
+width enter the width of your zone in CHARACTERS.
+
+default holds a value which will be returned as a default.
+
+flag  selects  whether the default setting should be displayed in the zone.
+If  it's  zero,  the  value  will  be  invisible,  and if flag=1 it will be
+displayed as normal.
+
+paper,pen are the colours of your text and background respectively.
+EDit Ascii
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Editing_Zones.AMOS,0,4]ED}
+
+Creates  a  text  editing  zone  which  lets  you  enter  your  text on the
+screen, and edit  it  directly  with  the cursor keys.  Hitting Return will
+enter  the  value  into  memory.   It  can  now  be read using the RDIALOG$
+function from your Basic program.
+
+ED zone number,x,y,width,maxlength,'default',paper,pen
+
+zone number = the number of your zone.
+
+x,y  hold  the  coordinates  of the start of your zone ralative to the BAse
+point.  x will be rounded down to the nearest 16.
+
+width enters  the  width of your zone in CHARACTERS, rounded to the nearest
+EVEN number.
+
+maxlength sets  the  maximum number of characters which can be entered into
+your string.
+
+'default' is a string which will be returned as a default.
+
+paper,pen are the colours of your text and background respectively
+EXit
+Ends an AMOS Interface program.  This should always be the LAST instruction
+in your routine.
+
+   EX;
+Graphic Box
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]GB}
+
+Draws  a  filled box in the present ink colour.  GB is ideal for generating
+your buttons and dialogue boxes.
+
+   GB tx,ty,bx,by;
+
+Displays  a  box  from  tx,ty  to bx,by.  The colour of this box can be set
+using  the  INk  command,  and  it's  fill  pattern  can be changed with SP
+(SetPattern).
+
+Graphic Ellipse
+Draws a hollow ellipse, or circle at the appropriate point in your dialogue
+box.
+
+   GE x,y,radius1,radius2;
+
+If  you  use  the  same  values for both radius1, and radius2, you'll get a
+circle instead.
+
+Graphic Line
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]GL}
+
+Draws  a  line  on  the  screen  between  any two points in the current ink
+colour.  The line style can be set using SL.
+
+   GL x1,y1,x2,y2;
+
+All coordinates are measured relative to the BAse point.
+Graphic Plot
+Plots a single point on the screen.
+
+   GP x,y,colour number;
+
+x,y are both measured relative to the BAse of the current dialogue box.
+Graphic Square
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]GS}
+
+Draws a hollow box on the screen in the current ink colour.
+
+   GS tx,ty,bx,by;
+
+All coordinates are measured relative to the BAse point.
+Horizontal Slider
+Draws a working horizontal slider bar on the screen.
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Sliders.AMOS,0,4]HS}
+
+HS zone number,x,y,width,height,position,trigger,total,step;[changes];
+
+x,y = coordinates of the top left of the slider bar relative to the 
+screen BAse.
+
+width,height are the dimensions of the slider bar in pixels.
+
+position  set the initial position.  Allowable position values range from 0
+to "total"
+
+trigger  enters  the  size  of  the movable block inside your slider bar in
+units of total/width pixels.
+
+total sets the maximum value which will be returned by the slider.
+
+Allowable  positions range from 1 to total, with each "step" representing a
+movement of total/width pixels.
+
+step  controls the distance which will be moved whenever the user clicks on
+the background area of the slider.
+
+[changes]  holds  a  list  of  Interface  commands  which  will be executed
+whenever the slider is moved by the user.
+
+HyperText
+Generates  a  hypertext  window, similar to the help system.  Your text can
+include  either  normal  ascii characters, or "hypertext zones".  Each zone
+consists of the following;
+
+   {[ value ] highlighted text}
+or
+   {[value,paper,pen] highlighted text}
+
+HT zone,x,y,width,height,textaddress,startline,buffer,paper,pen;[changes]
+
+zone = number of your zone
+
+x,y  set the coordinates of top left hand corner of text window.  x will be
+rounded down to the nearest multiple of 16.
+
+width,height = the size of the display window in characters.
+
+textaddress = address in memory of the first character in your text.
+
+startline = the number of the first line to be displayed in your text.
+
+buffer  sets  the  size  of  an  internal buffer area.  Each hypertext zone
+requires eight bytes.
+
+paper,pen are the colour of the ink and paper colours used by your text.
+
+[changes] is a routine which will be called whenever the user clicks on one
+of your hypertext zones.
+
+If..then
+Executes  an  Interface routine if the result of an expression is True (non
+zero).
+
+   IF expression;[do if true]
+
+expression can contain the following operations:
+
+= equals
+\ not equals
+> greater than
+& and
+| or
+
+The routine between the brackets [] can be as long as you like.  You're not
+just limited to a single line.
+
+Inactive List
+
+Generates  a  window full of items which CANNOT be selected with the mouse.
+These windows are fine for displaying lists of information on the screen.
+
+IL zone number,x,y,width,height,array address,first item,flag,paper,pen;
+
+x,y  hold the coordinates of the window on the screen.  x is rounded to the
+nearest 16.
+
+width,height set the width and height of the list window in characters.
+
+array  address  enters  the  address  of  an  array which you've previously
+installed  into your Interface program using the ARRAY and VDIALOG commands
+from AMOS Basic.
+
+first item = the number of the first item in the list to be displayed.
+
+flag = a bitmap containing two bits.
+
+   Bit 0: If it's one AMOS adds a number to each item before it's
+          displayed. Normally the count starts from zero.
+
+   Bit 1: Used with bit 0. It starts the count from one.
+
+paper,pen are the colours of the item text and the window background.
+INk
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]IN}
+
+Set ink,paper and outline colours used by your graphics.
+
+   IN pen,paper,outline;
+Jump
+Jumps to a label in your Interface program.  This must have been previously
+set up using the LAbel instruction.
+
+   JP labelnumber;
+Jump to Subroutine
+Calls a subroutine in your AMOS Interface program.
+
+   JS label number;
+
+The label should have been previously defined using the LA command.  At the
+end  of  your  subroutine,  you  can  return  to  your main program with RT
+(ReTurn)
+
+KeY
+Set a keyboard short-cut.  Assigns a control key combination to the current
+button definition.
+
+   KY ascii,shift;
+
+ascii  enters  the  ASCII code of your chosen key.  Values from 128 onwards
+represent scan codes instead.
+
+shift specifies on option list of shift,alt,or control settings.  These are
+entered using a simple bit-map.  See KEY SHIFT for more details.
+
+Label
+Creates  a  label  in  your  Interface  program for use with the JUmp or JS
+commands
+
+   LA label number;
+
+Allowable label numbers range from 0 to 65535.
+LIne
+Draws  a  line  of  images  from  a  series of three components held in the
+resource  bank.   These  components  can  be  created  with the help of the
+resource  editor,and  used  to produce attractive buttons for your dialogue
+boxes.
+
+   LI x,y,first image,width;
+
+width  should  be  an  exact  multiple  of  the  width  of your components.
+Otherwise, you may get some pretty strange effects.
+
+Also  note  that  the  x  coordinate  will  be automatically rounded to the
+nearest multiple of eight.
+
+MAximum
+Reads two values from the calculation stack, and returns the largest one.
+
+   value1 value 2 MA
+MEssage
+Takes a message from the resource bank, and places it on the stack.
+
+   number ME
+
+MInimum
+Grabs two values from the calculation stack, and returns the smallest one.
+
+   value1 value2 MI
+NEg
+Flicks a number from positive to negative.
+
+   number1 NEg
+
+Returns a value of -number1.
+NoWait
+Used inside the Bchange part of a button definition to ensure that commands
+take effect the moment the button has been selected.  So there's no need to
+wait for the mouse key to be released.
+
+   NW;
+Param 1
+Reads  the  first  parameter  value  entered  into User defined instruction
+created with UI.
+
+   P1
+Param 2
+Gets the second parameter from a User defined instruction created by UI.
+
+   P2
+Param 3
+Returns the third parameter from a User defined instruction created by UI.
+
+   P3
+Param 4
+Gets  the fourth parameter value from a User defined instruction created by
+UI.
+
+   P4
+Param 5
+Reads  the fifth parameter value from a User defined instruction created by
+UI.
+
+   P5
+Param 6
+Returns  the  sixth parameter value from a User defined instruction created
+by UI.
+
+   P6
+Param 7
+Reads  the  seventh parameter value from a User defined instruction created
+by UI.
+
+   P7
+Param 8
+
+Grabs the eighth parameter value from a User defined instruction created by
+UI
+
+   P8
+Param 9
+Returns  the  final parameter value from a User defined instruction created
+by UI.
+
+   P9
+Print Outline
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]PO}
+
+Displays some outlined text on the screen.
+
+   PO x,y,'text',outline colour,text colour;
+PRint
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]PR}
+
+Prints some TEXT on the screen.
+
+   PR x,y,'text',ink;
+
+x,y are the coordinates, relative to the screen base.
+
+'text' holds your text. You can also use a variable in this position.
+PUsh
+Sets an offset to the first image in the resource bank.
+
+   PU start;
+
+start is a number to be added to all future image numbers.
+
+RTs
+Returns from a subroutine you've previously entered with the JS command.
+
+   RTs;
+Run Until
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Simple_requester.AMOS,0,4]RU}
+
+Holds  the  dialogue box on the screen until a specified list of conditions
+have been met.
+
+   RU delay,flags;
+
+delay  is  a  time  period  in  50th's  of  a second.  If it's greater than
+zero,the  Interface  program  will automatically terminate after your chosen
+interval.
+
+flags set the condition to be tested, using a simple bitmap.
+
+Bit 0  Clears all current keypresses
+Bit 1  Clears the status of the mouse buttons
+Bit 2  Exits whenever a key is pressed on the keyboard
+Bit 3  Quits when a mousekey is clicked
+SAve
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Autocentering.AMOS,0,4]SA}
+
+Saves the background area underneath your dialogue box using a numbered memory
+block.
+
+   SA block number;
+
+The  size  of this block is defined using the SI; command.  If you omit the
+block  number,  AMOS  will automatically use the first free block available
+from  memory.  So if you've a lot of dialogue boxes, you don't have to keep
+track of all the block numbers.
+
+SetFont
+Sets  the  text  font  used by the PR,PO,ME, and VT commands.  Before using
+this  option,  you should examine the fonts on the disc with GET FONTS from
+AMOS Basic.
+
+   SF font,style;
+
+Use a value of zero for the font if you just want to set the style.
+Screen Height
+Returns the height of the current AMOS screen.
+
+   SH
+SIze
+Defines the size of the area to be saved underneath the dialogue box.
+
+{[RAMOSPro_Tutorial:Tutorials/Interface/Autocentering.AMOS,0,4]SI}
+
+
+   SI width,height;
+
+Specifies a save area from the coordinate base (x,y) to (x+width,y+height).
+The area can now be set up with a SA command.
+
+SetLine
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]SL}
+
+Sets the line style used by the GraphicLine command.
+
+   SL bit-pattern;
+
+bit-pattern  is  a  list  of  16  binary  noughts and ones which define the
+appearence of the lines.  See the SET LINE command from AMOS Basic.
+
+Screen Move
+Called  as  part  of  a  button  change  routine to drag the current screen
+whenever the item is selected.
+
+   SM;
+Set Pattern
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]SP}
+
+Sets the fill pattern used by the GraphicBox command.
+
+   SP pattern number,outline mode;
+
+pattern is the number of a fill pattern from 0 to 34.
+
+outline =1 for an outline or 0 to remove it.
+Set Var
+Sets an internal Interface variable.
+
+   SV index number,value;
+
+value can be either a number, or string enclosed by single quotes. ''
+
+Screen Width
+Gets  the  width  of  the current AMOS screen.  It's used to create general
+purpose  dialogue  boxes  which  automatically  tailor  themselves  to your
+display.
+
+   SW
+SetWriting
+{[RAMOSPro_Tutorial:Tutorials/Interface/Graphics.AMOS,0,4]SW}
+
+Sets the writing mode use for all future graphics operations.
+
+   SW mode;
+
+See the AMOS SET WRITING command for a list of the available modes.
+Size in X
+Returns  the width of your dialogue box which you've previously set up with
+the SI command.
+
+   SX
+Size Y
+Returns  the  height  of  your  present  dialogue box.  This must have been
+entered previously using the SIze command.
+
+   SY
+SetZonevar
+Sets  an internal "zone variable" which can be accessed from your next zone
+definition.   It  can  be  exploited  as  part  of  a  User  Instruction to
+permanently poke vital data into a user defined button type.
+
+   SZ value;
+
+Also see the ZV function.
+SetSlider
+Sets the appearance of the slider bars created with HS,or VS.
+
+   SS b1,b2,b3,pb,s1,s2,s3,ps;
+
+b1,b2,b3 enter the ink,paper and outline colours for the background of the
+slider.  bp specifies the fill pattern to be use.
+
+s1,s2,s3,sp  define  the  ink,paper,outline and fill pattern of the slider
+box.
+
+Text Height
+Returns the height of the present text font, measured in pixels.
+
+   TH
+Text Length
+Returns the number of characters in a piece of text.
+
+   'text' TL
+Text Width
+Returns the width in pixels of a piece of text.
+
+   'text' TW
+User Instruction
+Defines a brand new Interface instruction for use with your program.
+
+UI XX,number of parameters;[instruction definition]
+
+XX = the name of your command using two UPPERCASE characters.  The new name
+must  be  unique.   You can't use the name of any of the original Interface
+instructions.
+
+number  of parameters = a number from 1 to 9 which tells Interface how many
+values will be entered into the instruction.  These values can be read from
+your UI routine using the functions P1 to P9.
+
+[instruction  definition] = a list of Interface commands which will be used
+to define your new instruction.  This list can be as long as you like.
+
+UNpack
+Unpacks an image from the resource bank, and displays it on the screen.
+
+   UN x,y,image;
+
+Displays  the requested image at coordinates x,y RELATIVE TO THE COORDINATE
+BASE.
+
+Variable
+Reads a value from an internal variable.
+
+   index number VA
+
+index  number  normally ranges from 0 to 16, but if you increase the number
+of  variables  using  the DIALOG OPEN command, you can obviously use larger
+ranges.
+
+VLine
+Draws  a  vertical  line  out  of  a series of three components held in the
+resource bank.
+
+   VLine x,y,first image,height;
+
+x,y enter the coordinates of the top left corner of your line.
+
+first  image  sets  the first of the three components which will be used to
+display your line on the screen.
+
+height  specifies  the height of your line in pixels.  This should an exact
+multiple of three.
+
+Vertical Slider
+{[RAMOSPro_Tutorial:Tutorials/Interface/Sliders.AMOS,0,4]VS}
+
+Draws a working vertical slider bar on the screen.
+
+VS zone number,x,y,width,height,position,trigger,total,step;[changes];
+
+x,y = coordinates of the top left of the slider bar relative to the screen 
+BAse.
+
+width,height are the dimensions of the slider bar in pixels.
+
+position  set the initial position.  Allowable position values range from 0
+to "total"
+
+trigger  enters  the  size  of  the movable block inside your slider bar in
+units of total/height pixels.
+
+total  sets  the  maximum  value  which  will  be  returned  by the slider.
+Allowable  positions range from 1 to total, with each "step" representing a
+movement of total/height pixels.
+
+step  controls the distance which will be moved whenever the user clicks on
+the background area of the slider.
+
+[changes]  holds  a  list  of  Interface  commands  which  will be executed
+whenever the slider is moved by the user.
+
+VText
+VT prints your text downwards on the screen.
+
+VerText x,y,'text',pen;
+
+x,y hold the coordinates of the first character in your string.  All future
+characters will be neatly positioned below the initial letter, allowing you
+to create effective vertical buttons.
+
+    O
+    K
+    ?
+
+'text' enters your message to be displayed.
+
+pen sets the colour of your characters.
+
+XA
+Gets the X coordinate of the graphics cursor BEFORE the most recent drawing
+operation was performed.  It's used to line up the various elements on your
+display.
+
+   XA
+XB
+Returns  the  X  coordinate  of  the  graphics cursor AFTER the most recent
+drawing operation was performed.
+
+   XB
+XY
+Sets  the  internal  variables  XA,YA,XB,YB.   It's  called  as  part  of a
+UserInstruction to mimic the behaviour of the built-in graphics commands.
+
+   XY xa,ya,xb,yb;
+
+YA
+Finds  the  Y  coordinate  of  the graphics cursor BEFORE the most recent
+drawing operation was performed.  It's used to line up the various elements
+on your display.
+
+   YA
+YB
+Gives  you  the  Y  coordinate of the graphics cursor AFTER the most recent
+drawing operation was performed.
+
+   YB
+
+Zone change
+Changes  the position value of another zone.  It's used as part of a change
+routine to link several objects together.
+
+   ZC zone_or_button_number,new data;
+
+If  several zones have the same number, they can all be changed by a single
+operation.
+
+ZoneNumber
+Returns the number of the current zone.  It's used to allow the creation of
+user defined button types with UI.
+
+   ZN
+
+A typical example would be:
+
+   ZC ZN 1+,ZP load the next zone with the present position
+Zone Position
+Returns  the  position  of  the current zone.  Depending on the type of the
+zone  the  position  could  be  a  number (buttons,sliders,DIgit zone) or a
+string (EDit zones).
+
+   ZP
+
+ZP is generally used as part of a zone change routine to redraw your object
+as the position changes.
+
+ZoneVar
+ZV  can  only  be  used  inside  the  draw  or  change  brackets  of a zone
+definition.  It reads the contents of the internal zone variable, and pokes
+it permanently into your definition.
+
+   ZV
+The Amos Animation Language (AMAL)
+            {[IA_A ,4,3] Anim       } {[IA_J ,4,3] Jump       } {[IA_O ,4,3] On         } {[IA_EX,4,3] =eXit      }
+            {[IA_AU,4,3] AUtotest   } {[IA_J0,4,3] Joy(0)     } {[IA_P ,4,3] Pause      } {[IA_XH,4,3] =XHard     }
+            {[IA_BC,4,3] =BobCol    } {[IA_J1,4,3] Joy(1)     } {[IA_PL,4,3] PLay       } {[IA_XM,4,3] =XMouse    }
+            {[IA_C ,4,3] =Col       } {[IA_K1,4,3] =mouseKey 1} {[IA_R ,4,3] Register   } {[IA_XS,4,3] =XScreen   }
+            {[IA_D ,4,3] Direct     } {[IA_K2,4,3] =mouseKey 2} {[IA_SC,4,3] =SpriteCol } {[IA_YH,4,3] =YHard     }
+            {[IA_E ,4,3] End        } {[IA_L ,4,3] Let        } {[IA_T ,4,3] To         } {[IA_YM,4,3] =YMouse    }
+            {[IA_F ,4,3] For        } {[IA_M ,4,3] Move       } {[IA_V ,4,3] VUmeter    } {[IA_YS,4,3] =YScreen   }
+            {[IA_I ,4,3] If         } {[IA_N ,4,3] Next       } {[IA_W ,4,3] Wait       } {[IA_Z ,4,3] =Zandom    }
+
+
+            {[IA_X ,4,3] =X coord   } {[IA_Y ,4,3] =Y coord   } {[IA_AR,4,3] =A image no} {[IA_ED,4,3] Amal Editor}
+Anim
+Animate an object through a number of different images.
+
+        Anim times,(image,delay)(image delay)....
+
+times = the number of times the animation will be repeated. 
+        A value of zero means repeat forever.
+
+image = the number of an image from the object bank to be displayed.
+
+delay = the period of time the image will be held on the screen, in
+        fiftieths of a second.
+A register
+This  special  AMAL  register holds the current object image which is being
+displayed  on the screen.  Alternatively, if you`re animating a raindow, it
+stores the height of your rainbow instead.
+
+        
+
+
+Autotest
+Adds  a  special  test  at  the start of your AMAL program which is checked
+automatically every VBL before your AMAL commands are executed.
+
+        AU(list of AMAL instructions)
+BobCol
+Checks for a collision between one or more Blitter objects.  It can only be
+used in conjunction with the SYNCHRO system.
+
+        =BC(target,first,last)
+
+Tests bob number TARGET for collisions between objects FIRST and LAST.  The
+result will be -1 if a collision has occurred, otherwise 0.
+
+Col 
+
+Tests the status of an object after a collision has been detected using =SC
+or =BC.
+
+        =C(object)
+
+object  is  the  number of your Sprite or Bob.  If this object has collided
+with the target object, you'll get a value of -1, otherwise 0.
+
+Direct
+Selects the point to restart your AMAL instructions to be executed after an
+Autotest.
+
+        Direct Label
+
+Label is an AMAL Label you've defined in your main AMAL program.
+End
+Terminates  your  AMAL program, and stops the Autotest feature if it's been
+activated.
+
+        End
+AMAL Editor
+The  AMAL  Editor  is a utility program which allows you to enter your AMAL
+programs directly on the screen, and save them into an AMAL memory bank for
+future  use. 
+
+It  also  includes  a powerful debugging system which lets you step through
+your AMAL programs a line at a time.
+
+Last,  but  not  least, there`s a Path Definer for creating smooth movement
+patterns for use with the AMAL PLay command.
+
+See  the  Accessory  section  of  the  AMOS Professional User Guide for
+further details.
+
+For
+Used  as  part of a For..To..Next loop.  This allows you to repeat parts of
+your AMAL program a set number of times.
+
+        For reg=start To end
+        :AMAL  instructions:
+        Next
+
+reg can be any AMAL register from R0 to R9 and RA through RZ.
+
+start and end can be any AMAL expression you wish.
+If 
+Performs a simple test in your AMAL programs.
+
+        If expression Jump Label
+
+Evaluates  the  expression  and  jumps  to  Label  if it returns a value of
+TRUE(-1).
+
+        If expression Direct Label
+
+Chooses the part of your program to be executed after an Autotest. 
+
+        If expression eXit
+
+Leaves an Autotest immediately.
+
+mouse Key 1
+Checks  the Left mouse button for a keypress.  If it's been clicked, you'll
+get a value of of -1, otherwise 0
+
+        If K1 Jump Label
+mouse Key 2
+Examines  the  Right  mouse  button  for a keypress.  If it's been clicked,
+you'll get a value of of -1, otherwise 0
+
+        If K2 Jump Label
+Jump
+Jumps to a label in your AMAL program. 
+
+        Jump Label  
+Joy(0)
+Tests  the  Right  joystick  and  returns a bit-map containing it's current
+status.  See the AMOS JOY command for more details.
+
+        If J0=1 Jump Up
+Joy(1)
+Monitors  the  Right joystick and returns a bit-map containing it's current
+status.  See the AMOS JOY command for more details.
+
+        If J1=1 Jump Up
+
+Let
+Assigns a value to an AMAL register.
+
+        Let Rn=expression
+
+n can be 0 to 9 for local registers, and A through Z for global ones.
+
+You can also use the special registers A,X, and Y.
+Move
+Moves an object through a fancy pattern.
+
+        Move horizontal distance,vertical distance,steps
+
+horizontal distance is the total distance to be moved across the display.
+
+vertical distance holds the total distance to be moved down.
+
+Negative values reverse the direction!
+
+steps enters the number of stages the movement will be divided up into.
+Next
+Used  after  a  For..To..statement to jump back to the first instruction in
+the loop.
+
+        For reg=start To end
+        :AMAL  instructions:
+        Next
+On
+Restarts your main AMAL program after a Wait command.
+
+        On
+
+Pause
+Halts your AMAL program until the next vertical blank, just like the Basic
+WAIT VBL command.
+
+        Pause
+Play 
+Plays  a recorded movement pattern stored in the AMAL bank.  These patterns
+are set up using the AMAL EDITOR accessory.
+
+        PLay path number
+
+R0 holds the time between each movement step, and R1 stores the direction.
+
+R1=0   reverses the pattern.
+R1=-1  stops it.
+Registers 
+Represents one of the AMAL variables. There are two different sorts.
+
+Local registers: R0 to R9
+
+Each  AMAL  channel  has  it's  own  set  of  Local  registers,  completely
+independantly.
+
+Global registers: RA through RZ
+
+These  retain  the  same values between all AMAL programs.  So there's just
+one set for the entire system.
+
+Sprite Col
+Tests  for a collision between one or more Sprites.  It can only be used in
+conjunction with the SYNCHRO system.
+
+        =SC(target,first,last)
+
+Inspects  sprite  number  TARGET  for  collisions between objects FIRST and
+LAST.  The result will be -1 if a collision has occurred, otherwise 0.
+
+To
+Used in a For..To..Next structure.
+
+        For reg=start To end
+        :AMAL  instructions:
+        Next
+VUmeter
+Gets  the  intensity  of  a  voice  in  some  music which is running in the
+background.  The intensity varies from 0 (silent) to 63 (very loud).
+
+        Let Rn=VU(voice)
+    
+voice is the number for the voice to be tested from 0 to 3.
+Wait
+Freezes your AMAL program completely, and only executes an Autotest.
+
+        Wait
+X
+Holds the X coordinate of your object on the screen.
+
+        =X
+
+In  the  case  of  rainbows, the X register stores the BASE of your rainbow
+effect.
+
+XHard
+Converts  a  screen  coordinate  into  a  Hardware  coordinate for use with
+sprites or screens.
+
+        =XH(screen,x)
+
+screen is the number of the screen to be used as the coordinate base.
+eXit
+Leaves an Autotest and returns to the main AMAL program.
+
+        eXit
+XMouse
+Returns the X coordinate of the mouse pointer in HARDWARE format.
+
+        Let X=XM
+XScreen
+Translates an X coordinate from Hardware format to screen format.
+
+        =XS(screen,xh)
+
+screen is the number of the screen to be used as the coordinate base.
+Y
+Holds the Y coordinate of your object on the screen.
+
+        =Y
+
+If  you`ve assigned your AMAL channel to a Rainbow, Y contains the hardware
+coordinate of the first Rainbow line on the screen.
+
+
+YHard
+Turns  a Y coordinate relative to the screen into a Hardware coordinate for
+use with sprites or screens.
+
+        =XH(screen,x)
+
+screen is the number of the screen to be used as the coordinate base.
+YMouse
+Returns the Y coordinate of the mouse pointer in HARDWARE format.
+
+        Let Y=YM
+YScreen
+Transforms a Y coordinate from Hardware format to screen format.
+
+
+        =YS(screen,yh)
+
+screen is the number of the screen to be used as the coordinate base.
+Zandom number
+Generates  a  random number from -32767 to 32768.  The range of the numbers
+is  set  via  a  bit-mask,  which is combined with the return value using a
+logical AND  operation.  It's  easiest to enter the range as just less than
+an  exact  power  of  two,  such as 31, 63, 127, or 255.  This will provide
+you with random numbers from 0-31, 0-61, etc.
+
+        Let X=Z(255)
+
+The  reason  for the odd name, is that we ran out of letters!  If we`ve had
+the option, it would have been called R for random!
+
+Embedded Menu Commands
+                        {[IM_BA ,4,3] BAr                                }
+                        {[IM_BO ,4,3] BOb                                }
+                        {[IM_EL ,4,3] ELipse                             }
+                        {[IM_IC ,4,3] ICon                               }
+                        {[IM_IN ,4,3] INk                                }
+                        {[IM_LI ,4,3] LIne                               }
+                        {[IM_LO ,4,3] LOcate                             }
+                        {[IM_OU ,4,3] OUtline                            }
+                        {[IM_PA ,4,3] PAttern                            }
+                        {[IM_PR ,4,3] PRoc                               }
+                        {[IM_RE ,4,3] REserve                            }
+                        {[IM_SF ,4,3] Set Font                           }
+                        {[IM_SL ,4,3] Set Line                           }
+                        {[IM_SS ,4,3] Set Style                          }
+
+
+Embedded  menu  commands  define  the  appearance of a menu item when it is
+selected  on  the  screen.   You can include them as part of the definition
+string entered into the MENU$ function.
+
+All embedded commands consist of just two letters entered in UPPER or lower
+case.   Any  other  characters will be ignored.  Most commands also require
+parameter  values as well.  Parameters should be entered as simple numbers,
+since expressions will NOT be evaluated.
+BAr
+Draws a rectangular Bar at the current cursor coordinates.
+
+        BA x,y
+
+The bar is drawn from the existing graphics cursor to coordinates x,y.  The
+colour  of  this  bar  is  set with INk, and the style is defined using the
+OUtline and PAttern commands.
+BOb
+
+Displays a bob in the menu item starting at the current cursor position.
+
+        BO bob number
+
+The  bob  is drawn from the top left corner of your image, totally ignoring
+the Hot Spot.
+
+ELlipse
+
+Draws an ellipse centred at the present cursor postion.
+
+        EL r1,r2
+
+r1,r2  enter  the  radii  of  the  ellipse.   Set them to the same value to
+generate  a  circle.   The  colour of your ellipse is defined using the INk
+instruction.
+
+ICon
+
+Draws an Icon in the item at the current cursor position
+
+        IC icon number
+INk
+
+Sets the colours used by all future text and graphics operation in your menu.
+
+        IN mode,index
+
+mode is a value from 1 to 3.
+
+Mode =1 Set TEXT colour
+Mode =2 Set BACKGROUND colour
+Mode =3 Set OUTLINE colour
+LIne
+Draws a line from the current cursor position to x,y
+
+        LI x,y
+LOcate 
+Moves  the  graphics cursor used as the position for your text and graphics
+operations.
+
+        LO x,y
+
+x,y  are the new coordinates of the cursor measured RELATIVE to the top left
+corner of the present menu line.
+OUtline
+
+Draws a border in the current OUTLINE colour around any bars created with the
+BA command.
+
+        OU 1 
+
+Activates outline.
+
+        OU 0
+
+Turns it off.
+PAttern
+Sets the fill pattern used by the BAr command.
+
+        PA fill pattern
+
+Allowable fill patterns range from 1 to 34. 
+PRoc
+Calls an AMOS PRocedure whenever the item is selected by the user.
+
+        PR name
+
+See the AMOSPro User Guide for more information. It's quite involved!    
+REserve
+RE allocates n bytes of workspaces for use with the PRoc command.
+            
+        RE n
+
+SFont
+
+Changes the graphics font used by your menu text. Before using this command,
+you'll need to call GET FONTS from your AMOS Basic program.
+
+        SF font
+SLine
+Enters  a  16  digit  bit  pattern  which  redefines  the appearance of any
+subsequent lines which are drawn on the screen.
+
+        SL bitpattern
+
+Check out the AMOS SET LINE command for more details.
+SStyle
+Sets the style used by the current text font.
+
+        SS style
+
+style is a bitmap which controls the appearence of your text. 
+
+Each  bit  changes a specific attribute.  If it's set to one, the attribute
+is selected.
+
+Bit 0    Set Underline        
+Bit 1    Set Bold
+Bit 2    Set Italics 
+Editor key commands
+                        {[IHelpEditC ,4,3] Cursor keys                  }
+                        {[IHelpEditE ,4,3] Editing keys                 }
+                        {[IHelpEditV ,4,3] Cut and paste                }
+                        {[IHelpEditF ,4,3] Function keys                }
+                        {[IHelpEditMk,4,3] Marker keys                  }
+                        {[IHelpEditS ,4,3] Search and replace           }
+                        {[IHelpEditT ,4,3] Tabulation keys              }
+                        {[IHelpEditP ,4,3] Program control keys         }
+
+
+                        {[IHelpEditH ,4,3] Help Keys                    }
+
+Cursor keys
+Here  is a list of all the AMOS Professional control keys available when in
+the  Main  Editor  and their usage.  If you've changed the key combinations
+that select your menu items, this list will be wrong.
+
+[Left]                  Move cursor one space left.
+[Right]                 Move cursor one space right.
+[Up]                    Move cursor up to next available line.
+[Down]                  Move cursor down to next available line.
+
+[Shift]+[Left]          Move cursor to previous word.
+[Shift]+[Right]         Move cursor to next word.
+[Shift]+[Up]            Move cursor to top line of current page.
+[Shift]+[Down]          Move cursor to bottom line of current page.
+
+[Ctr]+[Up]              Display previous page.
+[Ctr]+[Down]            Display next page.
+
+[Shift]+[Ctr]+[Up]      Jump to start of program.
+[Shift]+[Ctr]+[Down]    Jump to end of program.
+
+Editing keys
+[Backspace]             Delete character to the left of cursor.
+[Del]                   Delete character at cursor current location.
+[Return]                Enter current line/Split existing line.
+F10                     Insert a line at current position.
+[Control]+[Q]           Clear current line.
+[Control]+[Y]           Clear line and move up text to fill gap.
+[Control]+[Del]         Delete to end of line.
+[Control]+[Backspace]   Delete to start of line.
+[Shift]+[Backspace]     Delete word to left.
+[Shift]+[Del]           Delete word to right.
+
+Function Keys
+F1                      Run program
+F2                      Test program
+F3                      Indent program
+F4                      Enter Monitor
+F5                      Help
+F6                      Previous window
+F7                      Next Window
+F8                      Toggle Insert mode
+F9                      Open/Close Procedure
+F10                     Insert line
+
+These keys are also available from the icons at the top of the Editor screen
+Cut and paste
+[Control]+[B]           Activate/Deactivate block mode.
+[Control]+[A]           Select entire program.
+
+[Control]+[S]           Store block in memory and leave block on screen.
+[Control]+[C]           Cut block.  Erase from screen and  load  into memory.
+[Control]+[P]           Paste block at current cursor position.  
+[Control]+[F]           Deselect block, remove highlighting.
+
+[Control]+[Shift]+[P]   Print block
+[Control]+[Shift]+[S]   Save block.
+[Control]+[Shift]+[A]   Save block in Ascii format.
+
+Marker keys
+[Shift]+[Ctrl]+[number] Set a marker at current cursor position, with number
+                        between 0 and 9 from numeric keypad.
+
+[Ctrl]+[number]         Jump to previously set marker numbered 0 to 9 from
+                        numeric keypad.
+Search and replace
+[Amiga]+[F]             Find first occurrence of selected text from cursor.
+[Amiga]+[N]             Find next occurrence of selected text.
+[Amiga]+[P]             Find previous ocurrence of selected text.
+
+[Amiga]+[Shift]+[F]     Replace text with new text and jump to next
+                        occurrence.
+[Amiga]+[Shift]+[N]     Find next occurrance of text and replace it.
+[Amiga]+[Shift]+[P]     Replace last occurrence of your text.
+
+[Alt]+[Up]              Search back through program to last label or procedure
+                        definition.
+[Alt]+[Down]            Search forward in program to next label or procedure
+                        definition.
+Tabulation keys
+[Ctrl]+[Tab arrows]     Set Tab stop.
+[Tab arrows]            Move whole line at current cursor position to next
+                        Tab.
+[Shift]+[Tab arrows]    Move whole line at current cursor position to last
+                        Tab.
+Program control keys
+[Amiga]+[Shift]+[S]     Save program under new name.
+[Amiga]+[S]             Save program under existing name.
+[Amiga]+[L]             Load program
+
+[Esc]                   Go to direct Mode.
+
+Help Keys
+[Help]            Open Help Window.
+F5                Open Help Window.
+
+Esc               Leave Help Window.
+[Up Arrow]        Scroll Window up.
+[Down Arrow]      Scroll Window down.
+Direct mode editing keys
+Here is a list of the editing keys and their effects when in Direct Mode.
+
+[Backspace]             Delete character to the left of cursor.
+[Del]                   Delete character at cursor current location.
+[Return]                Execute current line of commands.
+[Left]                  Move cursor one space left.
+[Right]                 Move cursor one space right.
+[Shift]+[Left]          Move cursor to previous word.
+[Shift]+[Right]         Move cursor to next word.
+[Up]                    Moves the history buffer to the previous line
+[Down]                  Scrolls the next line from the history buffer
+[Esc]                   Leave Direct Mode.  Go to main editing window.
+[Control]+[Up]          Moves the entire direct mode window up.
+[Control]+[Down]        Moves the direct mode window down.
+[Shift]+[Up]            Reduces the size of the direct mode window.
+[Shift]+[Down]          Expands the direct mode window
+
+Note:Run does not work from direct mode.
+
+AMOS Professional Syntax conventions
+
+                        {[IHelpData ,4,3] Datatypes                     }
+                        {[IHelpInstr,4,3] Instructions                  }
+                        {[IHelpFunct,4,3] Functions                     }
+                        {[IHelpVar  ,4,3] Reserved Variables            }
+Datatypes
+
+AMOS allows you to use several types of variables in your programs.
+
+Type                  Example          Min      Max
+---------------------------------------------------------------
+
+Integer               A=3              -65536   65536
+
+Single Precision      A#=3.14159       1E-14    1E+15
+
+Double Precision      A#=3.1415926543  1E-307   1E+308
+
+String                A$="AMOS"        0 chars  65536 chars
+
+Double  Precision  numbers  and Single Precision numbers cannot be mixed in
+the  same  program.   If  you want to use double precision, insert a DOUBLE
+PRECISION command at the START of your listing.
+
+Instructions
+These are normal AMOS commands such as:
+
+Print,Stop,Input,Text,Centre,or Sprite
+
+They perform a single action in your AMOS Basic program, without generating
+a return value.
+Functions
+Like  instructions,  but  they  return  a value which can be printed on the
+screen or assigned to a variable.
+
+Examples include:
+
+     Len(),Instr(),Chip Free,=Screen
+
+Reserved variables
+Are  internal  variables  which  hold  vital  information  for  use by your
+program.  They can often be assigned new values as well.
+
+Typical examples are:
+
+Timer,X Mouse,Y Mouse,Dreg(),Areg(),Menu$()
+Windows
+
+                  {[IBORDER      ,4,3] Border      } {[ITITLE BOTTOM,4,3] Title Bottom} {[IWINDON     ,4,3] =Windon     }
+                  {[ICLW         ,4,3] Clw         } {[ITITLE TOP   ,4,3] Title Top   } {[IWIND OPEN   ,4,3] Wind Open   }
+                  {[IHSCROLL     ,4,3] Hscroll     } {[IVSCROLL     ,4,3] Vscroll     } {[IWIND SAVE   ,4,3] Wind Save   }
+                  {[ISCROLL ON   ,4,3] Scroll On   } {[IWIND CLOSE  ,4,3] Wind Close  } {[IWIND SIZE   ,4,3] Wind Size   }
+                  {[ISCROLL OFF  ,4,3] Scroll Off  } {[IWIND MOVE   ,4,3] Wind Move   } {[IWINDOW      ,4,3] Window      }
+CLW
+{[RAMOSPro_Examples:Examples/H-3/Help_32.AMOS,0,4]Clw}
+
+Erases the contents of the current text window and fills it will a block of
+the present PAPER colour.
+
+        Clw
+HSCROLL
+{[RAMOSPro_Examples:Examples/H-2/Help_22.AMOS,0,4]Hscroll}
+
+Scrolls some text in your current window horizontally by a single character.
+
+        Hscroll type
+
+Type can take one of four values:
+
+1 = Move current line to the left
+2 = Scroll entire text  to the left
+3 = Move current line to the right
+4 = Scroll text to right
+SCROLL OFF
+{[RAMOSPro_Examples:Examples/H-2/Help_22.AMOS,0,4]Scroll Off}
+
+Stops  your  text  scrolling up when you print past the bottom of your text
+window.  The text now restarts from the top.
+
+        Scroll Off
+SCROLL ON
+{[RAMOSPro_Examples:Examples/H-2/Help_22.AMOS,0,4]Scroll On}
+
+Re-activates the standard text scrolling system.
+
+        Scroll On
+TITLE BOTTOM
+{[RAMOSPro_Examples:Examples/H-3/Help_31.AMOS,0,4]Title Bottom}
+
+Assigns a piece of text to the bottom line of your text window.
+
+        Title Bottom title$
+TITLE TOP
+{[RAMOSPro_Examples:Examples/H-3/Help_31.AMOS,0,4]Title Top}
+
+Displays a title string along the top of your text window.
+
+        Title Top title$
+
+VSCROLL
+{[RAMOSPro_Examples:Examples/H-2/Help_22.AMOS,0,4]Vscroll}
+
+Scrolls some text in your current window vertically by a single character.
+
+        Vscroll type
+
+Type can take one of four values:
+
+1 = Move all text on the current line and below one place down
+
+2 = Move all text on or below the cursor line one place up
+
+3 = Scroll up lines from the top of the window to the cursor line.
+
+4 = Scroll down lines from top of window to current cursor position.
+
+WIND CLOSE
+{[RAMOSPro_Examples:Examples/H-3/Help_32.AMOS,0,4]Wind Close}
+
+Removes  the  current  text  window  from  the  screen, along with all it's
+contents. If  you've  saved  the  background area with WIND SAVE it will be
+restored to it's original position.
+
+        Wind Close
+
+WIND MOVE
+{[RAMOSPro_Examples:Examples/H-3/Help_32.AMOS,0,4]Wind Move}
+
+Moves the current text window to a new position on the screen.
+
+        Wind Move x,y
+
+x,y  are  GRAPHICS  coordinates. x is automatically rounded down to the
+nearest multiple of 16.
+
+WIND OPEN
+{[RAMOSPro_Examples:Examples/H-3/Help_31.AMOS,0,4]Wind Open}
+
+Opens  a  new  text  window on the screen.  This will be used by all future
+PRINT,INPUT, or cursor commands.
+
+        Wind Open n,x,y,w,h
+        Wind Open n,x,y,w,h,border
+
+x,y  are  the screen coordinates of the window.  The X coordinate's rounded
+to the nearest multiple of sixteen.
+
+w,h  enter  the  width  and  height of the window in characters.  They must
+divide evenly by 2.
+
+border  is an option border ranging from 1 to 16.  Only borders 1 through 3
+are presently available.
+
+WIND SAVE
+{[RAMOSPro_Examples:Examples/H-3/Help_31.AMOS,0,4]Wind Save}
+
+Activates  window  saving  mode.  Whenever a window is created, the area of
+the  screen  underneath  it  will  be  automatically saved in memory.  This
+background  will  be  replaced in it's original position when the window is
+subsequently moved or deleted.
+
+        Wind Save
+WIND SIZE
+{[RAMOSPro_Examples:Examples/H-3/Help_32.AMOS,0,4]Wind Size}
+
+Enters a new size for the current text window.
+
+        Wind Size w,h
+
+w,h are measure in units of a single character, and must be divisible by 2.
+WINDON
+{[RAMOSPro_Examples:Examples/H-3/Help_32.AMOS,0,4]=Windon}
+
+Returns the number of the currently active window.
+
+WINDOW
+{[RAMOSPro_Examples:Examples/H-3/Help_32.AMOS,0,4]Window}
+
+Activates  your chosen window.  This window will now be used for all future
+text operations.
+
+        Window n
+Editor Accessories
+
+                        {[IASK EDITOR    ,4,3] Ask Editor               }
+                        {[ICALL EDITOR   ,4,3] Call Editor              }
+                        {[ISET ACCESSORY ,4,3] Set Accessory            }
+
+ASK EDITOR
+Returns  parameters  FROM  the  editor.   If  it's  called inside an editor
+accessory,  it  can  be  used  to grab the program lines directly from your
+current listing.
+
+        Ask Editor function[,param][,param$]
+
+function is the NUMBER of an internal Editor command you wish to access.
+
+param holds some optional numeric information.
+
+param$ holds an optional string of characters.
+CALL EDITOR
+Used  by  an  Editor  accessory  to  SEND  information directly to the AMOS
+Professional Editor.
+
+        Call Editor function[,param][,param$]
+
+function is the NUMBER of an internal Editor command you wish to access.
+
+param holds some optional numeric information.
+
+param$ holds an optional string of characters.
+SET ACCESSORY
+Defines your program as an "Editor Accessory".  It MUST be inserted on it's
+own seperate line, at the very start of your program.
+
+When an Editor accessory is installed as a hidden program, or assigned to a
+menu  item,  you'll  be  able  to  display  your graphics directly over the
+current Editor screen!
+
+        Set Accessory
+
+Ascii Table
+Code Char    Code Char    Code Char    Code Char    Code Char    Code Char 
+-----------  -----------  -----------  -----------  -----------  -----------
+  0  NUL       1  SOH       2  STX       3  ETX       4  EOT       5  ENQ   
+  6  ACK       7  BELL      8  Back      9  Tab      10  LF       11  VT     
+ 12  Home     13  CR       14  SO       15  SI       16  HScr 1   17  Hscr 2
+ 17  Hscr 3   18  Hscr 4   19  Vscr 1   20  Vscr 2   21  Vscr 3   22  Vscr 3
+ 23  Vscr 4   25  EM       26  SUB      27  Esc      28  Cright   29  Cleft
+ 30  Cup      31  Cdown    32  Space    33   !       34    "      35    #   
+ 36   $       37    %      38    &      39   '       40    (      41    )
+ 42   *       43    +      44    ,      45   -       46    .      47    /
+ 48   0       49    1      50    2      51   3       52    4      53    5
+ 54   6       55    7      56    8      57   9       58    :      59    ;
+ 60   <       61    =      62    >      63   ?       64    @      65    A
+ 66   B       67    C      68    D      69   E       70    F      71    G
+ 72   H       73    I      74    J      75   K       76    L      77    M
+ 78   N       79    O      80    P      81   Q       82    R      83    S
+ 84   T       85    U      86    V      87   W       88    X      89    Y
+ 90   Z       91    [      92    \      93   ]       94    ^      95    _
+ 96   `       97    a      98    b      99   c      100    d      101   e
+102   f      103    g     104    h     105   i      106    j      107   k
+108   l      109    m     110    n     111   o      112    p      113   q
+114   r      115    s     116    t     117   u      118    v      119   w
+120   x      121    y     122    z     123   {      124    |      125   }
+126   ~      127         128    �     129   �      130    �      131   �
+132   �      133    �     134    �     135   �      136    �      137   �
+138   �      139    �     140    �     141   �      142    �      143   �
+144   �      145    �     146    �     147   �      148    �      149   �
+150   �      151    �     152    �     153   �      154    �      155   �
+156   �      157    �     158    �     159   �      160    �      161   �
+162   �      163    �     164    �     165   �      166    �      167   �
+168   �      169    �     170    �     171   �      172    �      173   �
+174   �      175    �     176    �     177   �      178    �      179   �
+180   �      181    �     182    �     183   �      184    �      185   �
+186   �      187    �     188    �     189   �      190    �      191   �
+192   �      193    �     194    �     195   �      196    �      197   �
+198   �      199    �     200    �     201   �      202    �      203   �
+204   �      205    �     206    �     207   �      208    �      209   �
+210   �      211    �     212    �     213   �      214    �      215   �
+216   �      217    �     218    �     219   �      220    �      221   �
+222   �      223    �     224    �     225   �      226    �      227   �
+228   �      229    �     230    �     231   �      232    �      233   �
+234   �      235    �     236    �     237   �      238    �      239   �
+240   �      241    �     242    �     243   �      244    �      245   �
+246   �      247    �     248    �     249   �      250    �      251   �
+252   �      253    �     254    �     255   � 
+      
+
+Useful scancodes
+
+                               {[IScanfunc   ,4,3] Function Keys  }
+                               {[IScankeypad ,4,3] Numeric Keypad }
+                               {[IScanGeneral,4,3] Other keys     }
+Scancodes of the Function keys
+
+                              Key    Scancode
+                             -----------------
+                               F1       80
+                               F2       81
+                               F3       82
+                               F4       83
+                               F5       84
+                               F6       85
+                               F7       86
+                               F8       87
+                               F9       88
+                               F10      89
+Scancodes for the Numeric Keypad
+                           [ ( ] [ ) ] [ / ] [ * ]
+                             90    91    92    93
+
+                           [ 7 ] [ 8 ] [ 9 ] [ - ]
+                             61    62    63    74
+
+                           [ 4 ] [ 5 ] [ 6 ] [ + ]
+                             45    46    47    94
+
+                           [ 1 ] [ 2 ] [ 3 ] [ E ]
+                             29    30    31    67
+
+                           [    0    ] [ . ] 
+                                15       60
+Useful Scancodes
+
+                             [Tab]           66
+                             [Enter]         68
+                             [Backspace]     65
+                             [Del]           70
+                             [Help]          95
+                             [Up arrow]      76
+                             [Down arrow]    77
+                             [Left arrow]    79
+                             [Right arrow]   78
+                             [Spacebar]      64
diff --git a/AMOS/Accessories/AMOSPro_Help/Compiler_Help.Map b/AMOS/Accessories/AMOSPro_Help/Compiler_Help.Map
new file mode 100644
index 0000000..1e7be7c
Binary files /dev/null and b/AMOS/Accessories/AMOSPro_Help/Compiler_Help.Map differ
diff --git a/AMOS/Accessories/AMOSPro_Help/Compiler_Help.Txt b/AMOS/Accessories/AMOSPro_Help/Compiler_Help.Txt
new file mode 100644
index 0000000..49716de
--- /dev/null
+++ b/AMOS/Accessories/AMOSPro_Help/Compiler_Help.Txt
@@ -0,0 +1,1076 @@
+Main Menu
+
+Welcome to the  AMOSPro Compiler Help  system.  Please choose one option:
+
+                     {[IHelphelp   ,4,3]   Using the Compiler Help system      } 
+
+                     {[IUseShell   ,4,3] The AMOSPro Compiler Shell main panel }
+
+                     {[IAbout      ,4,3]         About AMOSPro Compiler        }           
+
+                     {[ILatestNews ,4,3]              Latest News!             }           
+
+Using Help
+Welcome to the AMOS Professional Compiler Help System.  Everything you need
+to  know  about  the Compiler is available from here.  So if you get stuck,
+help will only be a key press away!
+
+You call up the Help by clicking on the 'Help' icon, this is always present
+in  the  top right hand corner of screens that have accompanying help text.
+When  the  Help  button  has been clicked on and is 'down' you then need to
+click  on  an area of the screen that you need help with.  You'll know that
+help is available when the mouse pointer starts to animate - this indicates
+you  are  over a zone which has help available.  Once you've clicked on the
+zone  for  help  the  Help  display  program will be loaded from disc and a
+screen will appear detailing the Help you requested.
+
+If  the Help text is longer than the Help window you can move through it by
+pressing  the Up and Down arrow keys on your keyboard or by clicking on the
+arrow  icons  locate  at the top right of the Help window.  To move through
+the  text  quicker,  just  drag  the  slider bar on the right border of the
+window.
+
+Across the top of the Help window there are four icons:
+
+1 The X icon closes the help window and returns you to the Compiler Shell.
+
+2 Prev.Page reverts you back to the help screen you had just been viewing.
+
+3 Main Menu takes you to the main help menu which offers a full list of the
+  available help topics.
+ 
+4 Print creates a hardcopy of the current help screen onto a printer for
+  future reference.
+
+
+About AMOSPro Compiler
+
+The AMOSPro Compiler has been made possible by:
+
+	Project Manager: 		Richard Vanner
+	Main design & programming:	Fran�ois Lionet
+	Shell design & programming:	Jean-Baptiste Bolcato
+	Examples by:			Jean-Baptiste / Syntex / Fran�ois
+	Help file & Documentation:	Stephen Hill
+	Graphics:			Jean-Baptiste
+					Nick Harper
+
+	Production:			Richard Peacock
+	Marketing:			Alexa Czechowski
+					Anna Donaldson
+					Johnathon Leas
+
+
+		(c) Europress Software Ltd 1993
+		Europa House
+		Adlington Park
+		Macclesfield
+		Cheshire
+		SK10 4NP
+		England
+
+Latest News about AMOSPro Compiler!
+
+		 {[INewCommand   ,4,3]            New command-line commands         }
+                 {[IFuture       ,4,3]              The   future  updates           }
+                 {[IFrenchGreets1,4,3]            A French greeting list - 1        }
+                 {[IFrenchGreets2,4,3]            A French greeting list - 2        }
+
+
+A short while after the manual was gone to the printer, we have added a few
+commands to the compiler command line.
+
+These  new  instructions were designed mainly for debugging purpose, but we
+thought they could be really usefull to you, so we left them in!
+
+
+Option:	NUMBERS
+
+Very usefull option to locate an error in a compiled program.
+
+This  option forces the compiler to include the source program line numbers
+in  the  object  code.   It  will  automatically  include as well the error
+messages  in the code.  So, if an error occurs in your compiled program, it
+will return the error like this:
+
+Illegal function call at line XXX
+
+XXX being the line n the source program, with ALL PROCEDURES OPENED.
+
+Warning, this options has some severe drawbacks:
+
+-  The source program _must_ be loaded all at once in memory to be compiled
+(to  count  the  lines):   you must therefore have enough memory to compile
+like this,
+
+- Each line number will increase the length of the object code by 4 bytes,
+
+- The program will be a tiny tiny bit slower.
+
+
+Option: BIG
+
+This  compiler estimate the size of its internal buffers from the number of
+lines of the source program.
+
+We  have  tested  the process with over 1000 programs, and for all of them,
+each buffer had a reasonable security edge (half of the buffer).
+
+But  one never knows.  There might be a very very special program with only
+strings, or only labels or...  whoever knows.
+
+The  BIG  option  multiplie  by  FOUR the size of the estimated buffers.  A
+difficult program should compile without any problem.
+
+So,  if  the  compiler  crashes  when  compiling  your program, try the BIG
+option.  We never needed this option.
+
+Drawback:
+
+- Eat a lot of ram
+
+
+Option: DEBUG=1
+
+Another good debugging option.
+
+With this option, the compiler outputs to the current CLI the number of the
+line being executed by the compiled program.
+
+Of  course,  it only works if the program has been launched from a CLI, and
+it slows down the program a maximum!
+
+The output has the form:
+
+(1000)(1001)(1005) etc...
+
+The compiler does not include lines with REMs.
+
+Drawbacks:
+
+- Source in ram,
+- Code increase by 8 bytes by line,
+- Very slow on execution (as CLI scrolling speed is disatrous)
+
+Note: DEBUG=2 or over will not work. One option ONE is implemented!
+
+
+
+Future updates of AMOSPro Compiler
+
+As for AMOSPro Interpreter, the AMOSPro compiler will constantly be
+updated in the future. Please report to us any remarks, or compiling 
+problems. We will read and take note of all your remarks, and if possible
+modify our product from your suggestions.
+
+In case of compiling problems, before reporting it to us, please check
+carefully that your compiled program run in exactly the same configuration
+than you interpreted program. A badly setup boot disc often cause a compiled
+program to break, if it cannot find a library for example.
+The use the Boot Disc Maker to create bootable disc will ensure that all
+the necessary files are present on the disc.
+
+If you are sure that a problem comes from the compiler, then make a full
+report on the problem:
+
+- Configuration,
+- What to do to have the problem,
+- When does it happen,
+
+And most important, send the source program, with all the necessary data,
+so that we can test it.
+
+
+
+A French Greetings list by Fran�ois LIONET!
+
+Haha!   Best part of the development:  the greeting list.  Here we go for a
+little bit of Fran�ais maintenant!
+
+Or donc, merci merci �:
+
+-  Jean  Baptiste  Bocalto:  deux mois de travail avec moi pour le d�gouter
+totalement du m�tier de programmeur!
+
+- Carine, ma tendre �pouse, qui de toutes fa�ons ne lira jamais ce greeting
+(vu qu'elle est ne comprend ab-so-lu-ment rien aux ordinateurs)
+
+- Christophe, qui ne sait pas encore lire,
+
+-  Yves,  ca  y  est, maintenant pour de vrai, c'est fini (�a fait un an et
+trois mois que je lui dis que c'est fini dans deux mois!)
+
+- Philippe, Denis z� Bernard, vive le KAF, vive ART vive le CTV!
+
+- H�l�ne, Fabrice et Julien (tout neuf!)
+
+- Daisy pour sa pr�sence fid�le et humide,
+
+-  Et pis bon, tout les gens que je connais, en m'excusant pour a) r�pondre
+aux lettres avec trois mois de retard, b) mettre mon r�pondeur les jours de
+stress, c) vous ennuyer avec des greetings qui n'en finissent pas.
+
+Justement, c'est fini. Atchaooo!
+
+
+PS: Daisy, c'est mon chien, slurp, slurp (pas de malentendus hein?!)
+
+
+A French Greetings list by Jean-Baptiste BOLCATO!
+
+
+I  want  to  thank a lot of people, in French!  (so, please jump again onto
+your dictionary...)
+
+- Francois LIONET (Beuh, Qui c'est �uil�?!)
+
+- Franck 'FNACguy/ImagineBoy', Alexandre 'Mr KEEL', Denis 'BASIC INSTINCT',
+Fred 'A4000' Picos, Piegouse 'A1200'...
+
+-   Doctor   'G5'   BERARD,  tous  les  crapauds  de  Mulhouse:   (Achille,
+Wermelinger, Henocq, Ducque, le Bpers et tous les autres!)
+
+-    Jean-Yves    'SLAPPY',   Antoine   'Challenger   Grosbidou',   Pierrot
+'PowerBourse!',   Laurent   'BLAISE',  Marianne  'KUNGFU'  (love!)  ,  Greg
+'VaudouMan' et tous les ex et futurs IMAC avengers...
+
+- Maman, Papa, Zo�, Mammie, P�p�, Tonton, Tata, Stop!!! 
+
+- et tous ceux que j'ai (in)volontorairement oubli�... 
+
+
+The AMOSPro Compiler-Shell
+
+The  main  screen  of  the AMOSPro Compiler Shell contains the main options
+which enable you to compile your programs quickly and easily.
+
+It's  very easy to select the source, destination and type of your compiled
+program and then start the compilation process.
+
+			{[IMain_Source    ,4,3]            Source            }
+			{[IMain_Dest      ,4,3]          Destination         }
+			{[IMain_Type      ,4,3]             Type             }
+
+			{[IMain_Compile   ,4,3]           COMPILE!           }
+
+			{[IMain_Setup     ,4,3]            Set-Up            }		
+
+
+Setup Options button
+
+This button takes you to the main setup panel.
+
+                        {[IMain_Setup,4,3] View Main Setup panel help }
+
+
+
+AMOSPro Compiler main setup panel
+
+From  this  panel you can tailor the Compiler exactly to your requirements.
+You are able to fine tune the available settings and save these changes out
+as  defaults.   So  every time you load the Compiler it will be set up just
+how you like it.
+
+
+                       {[ISetUp1           ,4,3]      Compiled program Setup     }
+                       {[ISetUp2           ,4,3]       Compiler Shell Setup      }
+                       {[ISetUp3           ,4,3]      Compiler System Setup      }
+
+                       {[ISetUp_LoadConfig ,4,3]           Load Config           }
+                       {[ISetUp_Saveconfig ,4,3]           Save Config           }
+                       {[ISetUp_Savedefault,4,3]         Save As Default         }
+
+
+
+Quit
+
+Click  on this icon to end using the Compiler.  A requester will ask you to
+confirm your actions.
+
+
+Source
+
+By  continuously clicking on this icon you will reveal the available source
+options that you can use for compiling:
+
+Current Program:  This will only be available to AMOS Pro users calling the
+Shell  from  the  Editor.   The  source  program to be compiled will be the
+program  in  the  current  window  that was active when the user called the
+Shell.
+
+Disk:   The source program to be compiled can be any AMOS program (or Ascii
+file)  located  on  a disk.  When you select COMPILE!  a file selector will
+allow you to choose the source file you wish to compile.
+
+List of progs:  When you click on COMPILE!  with this option set as source,
+the  {[IEditList,4,3]'List  of  programs' Editor} will appear.  This allows
+you  to create a list of files which are to be Compiled in one whole batch.
+We call this the Auto-Compile option.
+
+
+Destination
+
+Clicking  on  this  toggle  button  will  reveal  the available destination
+options that you can use.
+
+Editor  Window:  This is only availble to AMOS Pro users who call the Shell
+from  their  Editor.   The  compiled file will be saved into a new AMOS Pro
+program window.
+
+Disk:  This allows you to save the final compiled program to disk and state
+exactly  what  it's to be called and where it will be saved.  Upon clicking
+on  COMPILE!   and selecting a source file, a file selector will ask you to
+enter  the  name  of  the  destination file.  If you don't enter a name the
+Shell  will  create  a  default  name,  it  does this by removing the .AMOS
+extension  off  the  source  file  and  using  the  ramining  name  as  the
+destination filename.
+
+If you are compiling a list of programs then all destination filenames will
+be given default names.
+
+
+The Type of Destination Compiled file
+
+The type of file you want the Compiled file to be is set here.
+
+AMOS  Compiled:   If  this  option is set your compiled program can ONLY be
+loaded  into  AMOS  Pro.   The  program code is all stored in one procedure
+which  is  called  when  the program is run.  This type of Compiled program
+allows  you to develop all your work in AMOS Pro until your happy to create
+a completed CLI or Workbench program.
+
+CLI exec:  The resulting destination file will be a CLI executable program.
+Optional  parameters (Send to back and CLI detachable) which effect the way
+a CLI program behaves, can be set from the Set up panel.
+
+WB exec:  A compiled program created in this format will have an additional
+.info  icon  file saved along side it, allowing you to run it directly from
+the Workbench screen.
+
+Other    parameters    can   affect   the   destination   file,   See   the
+{[IMain_SetUp,4,3]Setup} panels for more information.
+
+
+COMPILE!
+
+This button starts the compilation process.  Once you press it a variety of
+things can happen:
+
+* If you  are compiling  to  and  from  disk, file  selectors  will  appear
+  requesting  the filenames  and  locations  of the  source and destination
+  files.
+
+* Compiling from   a list of files  will result in  the  appearance of  the
+  {[IEditList,4,3]'List of programs' Editor}.
+
+* AMOS Pro users who are compiling too and from Editor windows will see the
+  compilation at once.
+
+When  the Compiler knows where to find the file to be Compiled and where to
+place  the final destination file it starts its real work.  If music and/or
+an  IFF  animation  have  been  selected, they will be called up during the
+Compiling process.
+
+If  no  errors occur the compiled program will be saved as the type of file
+you  selected and given the parameters set up in the {[ISetUp1,4,3]Compiled program SetUp}
+panel.
+
+
+Cancel
+
+Changes made to a panel will be cancelled if this  button is clicked on. In
+other words it Undoes any selections you have made and quits the panel.
+
+
+Use
+
+Selecting  this  confirms you are happy with all your Setup Options and you
+want to use them during this current compiling session.
+
+
+Ok
+
+The  Ok  Buttons  confirm  changes made to individual panels.  After you've
+clicked  on  OK  you're  taken back to the panel that originally called the
+panel containing the OK button.
+
+
+List of programs Editor
+
+If  you  have  selected  'List  of  progs' as the source option in the main
+Compiler  Shell window, this screen will appear after you click on COMPILE!
+It  allows  you  to  set up a list of files that you want to Compile in one
+whole batch.
+
+You can click on several buttons: {[IEdList_AddPrg,4,3]Add prog}, {[IEdList_AddDir,4,3]Add Directory},  {[IEdlist_DelPrg,4,3]Delete prog} or
+{[IEdList_DelAll,4,3]Delete All}. You can also directly click on the {[IEdList_Window,4,3]list} of files.
+
+
+After  clicking  OK,  the  compilation  of the list of programs will begin.
+Once by one they will be compiled until the last in the list is done.
+
+The   Compilation   can  be  aborted  by  pressing  the  'Esc'  key  during
+compilation.   A  requester  will  then  ask  you  if  you want to Abort or
+Continue the rest of the files.
+
+This  mode  also  uses the animation and music options which are located in
+the Compiler Shell Setup panel.
+
+
+Add a program to the List
+
+Click  on this and a  file selector will appear.  From  the  selector choose
+a  .AMOS file  you wish to add to the compilation list. The file will now be
+shown in the list.
+
+                        {[IEditList,4,3] Back to Edit List main menu }
+
+
+
+Add a Directory to the List
+
+This  button gives you the power to select a whole directory of .AMOS files
+for  compilation.   After  you  click  on  the  button a file selector will
+appear, from this select a single .AMOS program from the directory you wish
+to add all the files from and the Shell will add them to the list.
+
+If a program already exists in the list it will not be double entered.
+
+
+                        {[IEditList,4,3] Back to Edit List main menu }
+
+
+Delete a Program from the List
+
+You can remove a file from the list by clicking on the filename in the list
+and then selecting this button.
+
+
+                        {[IEditList,4,3] Back to Edit List main menu }
+
+
+Delete All the List
+
+All  files  in the list are removed if you click on this button and confirm
+your actions in the additional requester.
+
+                        {[IEditList,4,3] Back to Edit List main menu }
+
+The List of programs window
+
+The  files  listed  in  this  screen  area can be highlighted individually.
+Click on  a filename and  it will become  highlighted.  You can then select
+Del Prog to remove it form the list.
+
+The  slider  bar  to the left of this window is to view more files than the
+window can display.
+
+                        {[IEditList,4,3] Back to Edit List main menu }
+
+
+Next Panel Button
+
+You can move to the next panel by clicking on this button.
+
+                          {[IMain_SetUp,4,3] Back to Setup main menu }
+
+
+Compiled Program - Setup 1
+
+The way  a  program  is compiled  can be  set by entering  this part of the
+shell.   So  click  on this button and you'll have the options displayed to
+you.
+
+
+                          {[ISetup1    ,4,3] Compiled program setup 1 }
+
+                          {[IMain_SetUp,4,3] Back to Setup main menu  }
+
+
+Compiled program Setup panel 1
+
+Here  you  can  set  the  available  options that affect the way a compiled
+program works.
+
+
+                     {[ISUp1_errmess   ,4,3]       Include error messages?         }
+                     {[ISUp1_defscr    ,4,3]        Create default screen?         }
+                     {[ISUp1_backboot  ,4,3]    Send AMOS to back upon booting?    }
+                     {[ISUp1_CLIrun    ,4,3] CLI program to run in the background? }
+                     {[ISetup12        ,4,3]              Next Panel               }
+
+                     {[IMain_SetUp     ,4,3]       Back to Setup main menu         }
+
+
+Compiled program Setup panel 2
+
+The  second  panel  holds  the remaining options for affecting the compiled
+program's outcome.
+
+                     {[ISup1_LongJump  ,4,3]          Long forward jumps?          }
+                     {[ISup1_AMOSlib   ,4,3]         Include AMOS.library?         }
+                     {[ISetup1         ,4,3]               Next Panel              }
+
+                     {[IMain_SetUp     ,4,3]        Back to Setup main menu        }
+
+
+Include Error messages?
+
+Setting  this option to 'YES' allows you to combine the AMOS error messages
+into the compiled program.  This increases the size of the compiled program
+by 4K.
+
+It's  best  to  keep  your  error  messages  in during the development of a
+creation,  otherwise  you  wouldn't  have  a clue as to why a program might
+error out.
+
+                     {[ISetUp1  ,4,3] Back to Compiled program Setup menu }
+
+
+Create default screen?
+
+Set  to  'YES', your compiled program will boot and open the normal default
+screen.   If  you set it to 'NO' ensure that your program opens up a screen
+before using any screen commands - if you don't your program will error out
+with a 'SCREEN NOT OPENED' error.
+
+                     {[ISetUp1  ,4,3] Back to Compiled program Setup menu }
+
+
+Send AMOS to back upon booting?
+
+You  can  choose to have your AMOS program load up and not display anything
+to  the  screen.   So  the Workbench will still be on view even though your
+program  is  running in the background.  If the program executes an AMOS TO
+FRONT command or the user types Aniga+'A' (or custom) then the AMOS program
+will take over the display.
+
+Use  this  option  when  you  want  your application to create it's startup
+screen and flip cleaning to it.
+
+
+                     {[ISetUp1  ,4,3] Back to Compiled program Setup menu }
+
+
+CLI programs to run in the background?
+
+Setting  this  option  to 'YES' allows programs compiled as CLI type can be
+executed  from  the  CLI and detach themseleves from it.  So the CLI prompt
+will  become  free  once  the  compiled  program  is up and running.  It is
+similar to the AmigaDos 'Run' command.
+
+                     {[ISetUp1  ,4,3] Back to Compiled program Setup menu }
+
+
+Long Forward Jumps
+
+Some  programs  can  cause  the  comiler  a  little  trouble.  This type of
+scenario  would  occur for example when the differnce between an IF command
+and it's corresponding ELSE is greater than 32K.
+
+As  standard the compiler uses special faster instructions to jump around a
+program  but these commands are limited to a range of 32K.  If your program
+has structures which exceed this limit they will fail to compile.  It's not
+possible  for  the compiler to just select the right type of jump it has to
+be recompiled using long jumps from the start.
+
+The golden rule is to use this feature if you receive the error message:
+
+	 "Structure too long, compile with the LONG option."
+
+                     {[ISetUp1  ,4,3] Back to Compiled program Setup menu }
+
+
+Include the AMOS.library in the compiled program?
+ 
+This option has an affect on a program when compiling the program as either
+CLI or Workbench types.
+
+When  compiled  set to 'NO' the compiled program will load the AMOS.library
+from  disc (usually resident in the Libs:  drawer).  Having this option set
+is  very beneficial, it allows you to have a number of compiled programs on
+a disc and only one copy of the 40K library.
+
+If  it's  set  to  'NO'  the Compiler will merge the AMOS.library with your
+compiled program.  Although this adds 40K to every compiled program it does
+mean  that  if  you release your creation, you'll be sure your program will
+have  the  most up-to-date library and not be accessing an old library when
+running  on  someone  elses  machine.  In effect it makes the program fully
+stand-alone.
+
+                          {[ISetUp1  ,4,3] Back to Compiled program Setup menu }
+
+
+Compiler Shell Setup button
+
+This button takes you to the Compiler Shell Setup panel.  From here you can
+alter all shell settings.
+
+                          {[ISetup2    ,4,3] The Compiler Shell Setup }
+
+                          {[IMain_SetUp,4,3] Back to Setup main menu  }
+
+
+Compiler Shell Setup 1
+
+The  Shell can be tailored exactly to your needs.  Speed the compiler up to
+amazing  performance timings by copying files to the ramdisc and squash the
+final output with the latest powerpacker library.
+
+Beware that these commands will require lots of memory.
+
+
+                    {[ISUp2_copylib ,4,3]     Copy all libraries into Ramdisk?     }
+                    {[ISUp2_leavelib,4,3] Leave libraries on Ramdisk upon Exiting? }
+                    {[ISUp2_APcmpram,4,3] Keep compiler APcmp in Ram upon Exiting? }
+                    {[ISUp2_squash  ,4,3]          Squash compiled program?        }
+
+                    {[ISetup22      ,4,3]                 Next Panel               }
+
+                    {[IMain_SetUp   ,4,3]          Back to Setup main menu         }
+
+Compiler Shell Setup 2
+
+This  panel  of  options  are fun items!  To make compiling a more exciting
+sport  we've  included  animation  and  music  entertainment.  You can also
+remove  those  annoying animated buttons on the main screen of the shell if
+you  like - or do you like them?  Whatever your desires the options in this
+menu are here to make your compiling life a little easier to bare.
+
+Remember  that  memory  will  be  eaten  up  by anims and music so don't be
+surprised if you receive an out of memory error.
+
+
+                    {[ISup2_iffanim ,4,3]    Play IFF animation while Compiling?   }
+                    {[ISup2_tracker ,4,3]   Play Tracker Module while Compiling?   }
+                    {[ISup2_warnbell,4,3]            Warn with Bell sound?         }
+                    {[ISup2_animbutt,4,3]   Animated Buttons when under pointer?   }
+
+                    {[ISetup2       ,4,3]                  Next Panel              }
+
+                    {[IMain_SetUp   ,4,3]           Back to Setup main menu        }
+
+
+Copy all libraries into Ramdisk?
+ 
+With  this  option,  you  can  choose to load all libraries into Ram before
+compiling.  This is great for speeding up the compilation.  But you'll need
+a lot of Ram!
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Leave libraries on Ramdisk upon exiting?
+ 
+Set  this  to 'YES' and the compiler will keep all its libraries on the Ram
+disc once it has finished compiling its first file of the session.  This is
+highly  useful  to  AMOSPro  users  who can come in and out of the Compiler
+Shell from their Editor.
+
+It  means  that  next  time  the  Compiler  is used, the initialisation and
+loading of necessary data will be much faster with subsequent compilations.
+
+The only draw back is that it eats memory!
+
+Also  ensure  that  the option 'Copy All Libraries into Ramdisk?' is set to
+Yes.
+
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Keep Compiler APcmp into Ramdisk upon exiting?
+
+The actual compiler code (APcmp) will be left on the Ramdisc if this option
+is  set  to 'YES'.  The next time the compiler is used it will access APcmp
+from the Ramdisc saving time.
+
+This option eats up memory so be careful.
+
+Also  ensure  that  the option 'Copy All Libraries into Ramdisk?' is set to
+Yes.
+
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Squash compiled program?
+ 
+Once  a  program has been compiled it can be squashed down in size.  If you
+set  this  option  to  'YES'  it  will  be processed automatically once the
+compilation has been completed.
+
+You'll find that the resulting program will be significantly shorter.
+
+Only Workbench and CLI files can be squashed.
+
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Play IFF animation while compiling?
+ 
+Set  up  this  option  to  'YES'  and  you can play an IFF animation during
+compilation.
+
+You  can  assign  any  IFF 'anim5' file type by clicking on the little disk
+icon  located  just  below  the  YES/NO button.  It is only active when the
+option is set to 'YES'.  The option requires ram:
+
+ * The size of your animation file (FAST RAM).
+
+ * The size of the screen opened to play the animation file (CHIP RAM).
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Play tracker module while compiling?
+ 
+Fancy  some  hard  Rock  or  soothing  piano  music  during the compilation
+process?   Just  find  a  music module of your liking and assign it to this
+option.
+
+You  can load any tracker module, AMOS music, Iff sample, MED music (if the
+MED.library  is  in  your  Libs:  folder).  Simply click on the little disk
+icon  available  only when the option is set to 'YES'.
+The option requires ram:
+
+ * The size of your module (CHIP RAM)
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Warn with a Bell sound?
+ 
+With  this  option  you  can  play  a  Bell  sound  when the compilation is
+finished.   It  will  not be activated if you play a Tracker or MED module.
+It's useful for when you compile a huge program or batch of files - you can
+do something else while the compiler is hard at work.
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Animated buttons when under pointer?
+
+If you like animated buttons when the mouse pointer moves over their active
+zone  area then set this option to 'YES', otherwise do like me and set them
+to 'NO' - the choice is yours!  This option requires a little ram:
+
+ * 12K of FAST RAM to store the different frames.
+
+                      {[ISetUp2  ,4,3] Back to Compiler Shell Setup menu }
+
+
+Compiler System Setup Button
+
+This  button  takes  you  to the Compiler System Setup panel.  Here you can
+modify many of the internal filenames used by the compiler.
+
+This  is  only  recommended for advanced users who fully understand how the
+compiler works.
+
+                      {[ISetUp3  ,4,3] The Compiler System Setup panel }
+
+                         {[IMain_SetUp,4,3] Back to Setup main menu }
+
+
+Compiler System Setup panel (Expert Users only)
+
+Here  you can modify the default settings of the APcmp compiler and all the
+its system messages and directories.
+
+                        {[ISUp3_defcom   ,4,3]     Default Command Line    }
+                        {[ISUp3_gosysfile,4,3]    Compiler system files    }
+                        {[ISUp3_gocmpmess,4,3]    CLI compiler messages    }
+                        {[ISUp3_gocmperr ,4,3]   Compiler Error Messages   }
+
+                        {[IMain_SetUp    ,4,3]   Back to Setup main menu   }
+
+
+Default Command Line Editor
+
+APcmp  has it's own default CLI command line.  Selecting this button allows
+you to view the command line and edit it to your own needs.
+
+The default command line is only used compiling takes place from the CLI or
+from  AMOSPro Direct mode with the 'COMPILE' instruction.  It has no affect
+if you compile with the compiler shell, this is because the settings of the
+compiler shell over-ride the settings of the default command line.
+
+Please refer to your manual for more information on the available options.
+
+                     {[ISetUp3  ,4,3] Back to Compiler System Setup menu }
+
+
+Compiler System files Editor
+
+Clicking on this button brings up a selector box, inside of which is listed
+all  the Compiler System files and paths.  Simply click on the filename you
+want to alter and edit the text in the resulting edit box.
+
+Ensure you know what you are doing!
+
+                     {[ISUp3_sysfile ,4,3] The compiler system files in detail }
+
+                     {[ISetUp3       ,4,3] Back to Compiler System Setup menu  }
+
+
+The compiler system files
+
+This  list  of filenames hold all the important information required by the
+compiler  to  do  its  job  of  compiling.  Each file is very important and
+shouldn't be modified unless you know exactly what you are doing.  Improper
+setting will probably cause compilation errors.
+
+If  the  worst  came  to  the worst, you would have to restore the compiler
+configuration to its original state by loading up the file:
+
+ "AMOSPro_Compiler:Default_Config/AMOSPro_Compiler_Config"
+
+using the "Load Config" option in the Compiler Shell Main Setup panel.
+
+
+Here's a description of each files significance.
+		
+1 - Default Compiler configuration file.
+
+Default filename: S:AMOSPro_Interpreter_Config.
+
+This  string  holds  the path and filename of the Interpreter configuration
+file.   The compiler needs this file to extract important settings like the
+number of bobs, the default screen definition etc.
+
+You must be very careful should you change it.
+
+
+2 - Main Compiler routines.
+
+Default filename: "Compiler.Lib"
+
+
+This  string  contains  the  name  of  the  compiler routine library.  This
+library  contains  all  the functions that cannot be compiled together with
+the  routines  used  by  the  interpreter.  These include commands like the
+loops, branches and the tests etc.  You shouldn't change it, unless you get
+new  libraries which perform special tasks.  In this case all the necessary
+information would be given with the library.
+
+
+3 - AMOS.library name.
+
+Default filename: "amos.library"
+
+This  filename  points  to  the system library which holds all the code for
+screen manipulation.  The filename will only be required by the compiler if
+you choose to merge the AMOS.Library with your compiled program.
+
+
+4 - Name of the CLI header
+
+Default filename:  "Header_CLI.Lib"
+
+This  string  points  to  a file within your APSystem folder.  This file is
+used  as  a  header  for  files  compiled  as CLI type.  The header is 100%
+machine language and performs all the necessary operations to initialise an
+AMOSPro Compiled program.
+
+
+5- Name of the CLI header with 'backstart' option.
+
+Default filename:  "Header_Backstart.Lib"
+
+This  string  points  to  a file within your APSystem folder.  This file is
+used  as  a  header for files compiled as CLI and have the option to run in
+the  background  enabled.  The header is 100% machine language and performs
+all  the necessary operations to initialise an AMOSPro Compiled program and
+return to the CLI while the program continues to run.
+
+
+6- Name of the AMOS header.
+
+Default filename:  "Header_AMOS.AMOS"
+
+This  string  points  to  a file within your APSystem folder.  This file is
+used  as a header for files compiled as AMOS Type.  In fact, this file is a
+small AMOSPro program with a SET BUFFER command and a closed procedure.  If
+you  so  wish,  you  can  modify  this  program  by  adding  whatever  code
+(preferably remarks) before the _COMPILED procedure.  In no case should you
+remove the 'SET BUFFER' or the _COMPILED procedure.
+
+
+7- Name of the default icon.
+
+Default filename:  "Def_Compiled"
+
+This  name  points to a file within your APSystem folder.  This file is the
+icon  saved along with your Compiled program when the option "To Workbench"
+is selected.  The icon is just a normal Amigados ".info" file.  You can add
+as  many icons as you like into your APSystem folder and change this string
+to point to the one you'd like to use each time you compile.
+
+
+8- Temporary files pathname
+
+Default filename:  "Ram:"
+
+This  name  is  an  optional  pathname used to store temporary files during
+compilation.   Work  files  that will be saved, loaded and erased from this
+path include:
+
+ * Tokenised programs when compiling Ascii files
+ * Compiled programs when AMOS Pro users compile programs directly to and
+   from the Editor using the Shell.
+
+All the temporary files are deleted after they've served their use.
+
+It's best if you specify a fast device such as the ram-disc or a hard-disc.
+
+
+9 - Temporary program pathname
+
+Default filename:  Ram:Temp_Program.AMOS
+
+When  Compiling  from the current editor window in either the Compiler Shell
+or  with  Tiny  Shell,  the  compiler saves out a temporary program during
+compilation, and deletes it when finished.
+
+This  string  holds  the name and path of this program.  If you are short of
+memory, you can change this string to point to your Hard-disc or even floppy
+drive.   Doing  this  will  ensure you can use the facility of compiling the
+current program from the editor, even on a small machine.
+
+
+10- Temporary compiled program pathname
+
+Default filename: Ram:Compiled_Program.AMOS
+
+A temporary file will be created if you compile to an AMOS Pro editor
+window from the Shell or Tiny Compilers.
+  
+As  with  string  9,  you  can  save  ram  by  changing the pathname to your
+hard-disc or even floppy drive.
+
+
+                     {[ISetUp3  ,4,3] Back to Compiler System Setup menu }
+
+
+CLI compiler messages Editor
+ 
+By clicking on the CLI Compiler messages button you'll enter a dialogue box
+which  lists  them  all..  Click on the one you want to modify and then you
+can edit the string.
+
+                     {[ISUP3_cmpmess ,4,3] The CLI compiler messages in detail }
+
+                     {[ISetUp3  ,4,3] Back to Compiler System Setup menu  }
+
+The CLI compiler messages in detail
+
+When  you  call the compiler from the CLI (by using the command "APCmp") or
+when you compile from direct mode (by using the "COMPILE" instruction), the
+AMOSpro  Compiler  outputs  different  messages to keep you informed on the
+compiling process.
+
+These  messages can be altered without any worry of upsetting the compiler.
+So  if  you feel the need to customise the compiler's progress reports then
+be our guest.
+
+If  you  enter  an empty string it won't be printed at all.  This means you
+can create a quiet compiler if you wish.
+
+1 - 4 Title strings.
+These  four  strings  are  printed  whenever  you  call  APCmp and echo the
+Compiler's credits.
+
+5 - Tokenising program.
+If  the  program  is  an  ascii file, APCmp will print this file before the
+tokenisation process begins.
+
+6 - Testing program.
+If  the program needs tested then this string is printed before the testing
+process begins.
+
+7 - Opening libraries.
+APCmp  opens  all  the  main  libraries and extensions before compiling and
+prints this message.
+
+8 - Compiling program.
+Printed at the start of the code generation.
+
+9 - Copying library routines.
+Printed  when APCmp copies the different routines from the libraries to the
+compiled program.
+
+10 - 
+Printed for each library routine copied. Usually this string is empty.
+
+11 - Copying system data.
+Printed when APCmp begins the copy of the AMOS.library if required.
+
+12 - Copying memory banks.
+Printed if the program contains memory banks to be copied.
+
+13 - Opening source.
+Printed  when  APCmp opens the source program.  This may take a little time
+on a floppy disc if APCmp loads the entire program into RAM.
+
+14 - Closing object.
+Printed  when APCmp closes the object program.  This may take a little time
+on a floppy disc if APCmp saves the entire compiled code from RAM.
+
+15 - Total memory used:
+This  information  line  will  be  printed  at  the  end  of  a  successful
+compilation.
+
+16 - Object length:
+This is the final object length report and is printed at the end of the
+compilation.
+
+17 -  bytes.
+Printed after a number which represents a report in bytes!
+
+
+                     {[ISetUp3  ,4,3] Back to Compiler System Setup menu  }
+
+
+Compiler Error messages Editor
+ 
+Clicking  on  this  button displays a list of Error messages.  Click on the
+one you want to modify and then you can edit the string.
+
+
+                     {[ISUp3_cmperr  ,4,3]    The error messages in detail     }
+
+                     {[ISetUp3  ,4,3] Back to Compiler System Setup menu  }
+
+
+The Compiler Error messages in detail
+
+*** To be done later as some new messages may pop up before APCmp is over!
+
+
+Load Config Button
+
+By clicking on it you can load any Compiler configuration file from a disk.
+
+                        {[IMain_Setup,4,3] Back To Main Setup panel help }
+
+Save As Default Button
+
+By clicking on it you can save the current Compiler configuration into the
+default configuration file. Note that the previous default configuration
+will then be overwritten and lost.
+
+                        {[IMain_Setup,4,3] Back To Main Setup panel help }
+
+Save Config Button
+
+By  clicking  on  it  you  can save the current Compiler configuration to a
+different  file  on the disk.  A requester will ask you for the name of the
+file.    To  save  the  configuration  as  a  default  one  just  click  on
+the {[ISetup_SaveDefault,4,3]Save Default} button.
+
+
+                        {[IMain_Setup,4,3] Back To Main Setup panel help }
+
+
diff --git a/AMOS/Accessories/AMOSPro_Help/LatestNews_112.Map b/AMOS/Accessories/AMOSPro_Help/LatestNews_112.Map
new file mode 100644
index 0000000..a6c998e
Binary files /dev/null and b/AMOS/Accessories/AMOSPro_Help/LatestNews_112.Map differ
diff --git a/AMOS/Accessories/AMOSPro_Help/LatestNews_112.Txt b/AMOS/Accessories/AMOSPro_Help/LatestNews_112.Txt
new file mode 100644
index 0000000..3baba10
--- /dev/null
+++ b/AMOS/Accessories/AMOSPro_Help/LatestNews_112.Txt
@@ -0,0 +1,738 @@
+About AMOS Professional Version 1.12
+
+This section of help describes the modifications done to AMOSPro since the
+previous version V 1.00. Please select one of these options:
+
+                 {[IFeatures     ,4,3]            Features added to V1.00            }
+                 {[IProblems     ,4,3]         Problems  removed  from V1.00         }
+                 {[IUserGuide    ,4,3]         Corrections  to  the User Guide       }
+                 {[IExtensions   ,4,3] How  to  install  Compiler  and 3D extensions }
+                 {[IFrenchGreet  ,4,3]            A  French  greeting list           }
+                 {[IFuture       ,4,3]             The   future  updates             }
+
+                 {[IHelpInfo     ,4,3]           Latest  News of Version 1.00        }
+
+
+A French Greetings list by Fran�ois Lionet!
+
+First of all, a small  apology.  1992  has  been  so  stressful that I was
+unable to answer lots of my  mail.  AMOSPro  came  first. So if you didn't
+receive any answer from a letter, please  forgive  me. It must be in my 30
+inch high letter stack!
+
+Being so busy during the final rush for finishing AMOSPro, I simply forgot
+to write and add my greeting list to the main Help Menu.
+
+I want to thank many people, in French! (Please get a dictionary.)
+
+- Nicolas Costes et Pascal Varennes  de Commodore France. Tr�s grand merci
+pour votre support completement technique.
+- Eric Andr�ani et Syntex,  pour  toutes  les magnifiques d�mos et surtout
+pour �tre si sympas.
+- Jean Michel Forgeas, l'�tre le  plus  patient  que je connaisse, qui m'a
+tir� d'affaire bien des fois.
+- Denis Bernard et Philippe Bouzitat pour tant de dynamisme. Je croise les
+doigts pour le club.
+- Yves Lamoureux pour sa patience (lui aussi). J'ai bientot fini, promis.
+- Pascal Kasmerszac et ATACOM. Vivement ATACOM 93!
+- Richard Vanner, of course, le project manager le plus sympa et
+stressant que je connaisse.
+- Christopher Payne qui m'a fait confiance au tout d�but d'AMOS.
+- Et plein  d'autres  (dans  l'ordre  de  mon  agenda!): Pierre Berloquin,
+Stephane Schreiber, Philippe  Ducalet,  Olivier  Coquet,  Philippe Ulrich,
+Fr�d�ric Botton, Thierry Drago,  Orion  Diffusion, Pierre Philippe Launay,
+Francis Poulain, Nicolas Mathieu, Olivier Rog�,  Len and Ann Tucker, David
+Gaussinel, Stephane Dujourdy, Neil  Miller,  Wayne  Johnson, Gilles Bihan,
+Jerome Pages, Bruce Leppers, Johan Francois, Francois Scheurer...
+
+..et encore pleins d'autres  de  qui  j'ai  us�  et  abus�  et qui ne m'en
+voudront pas (j'esp�re) de ne pas figurer dans cette liste...
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+Features added to AMOS Professional
+
+Many things  have  been  improved  compared  to  the  previous  version of
+AMOSPro.
+
+
+- AMOSPro now works on a AA machine (1200/4000).
+
+You can now launch AMOSPro from  the  workbench  on a AA machine, and flip
+between AMOSPro and the workbench.  AMOSPro  does  not yet exploit the new
+resolution modes: we are currently working on it.
+You should just switch off any virus checker or any resident utility  that
+might  bring the workbench  screen to  the front while  AMOSPro is  on the 
+screen (you can however, leave the screen blanker utility ON while AMOSPro
+is running).
+This small problem will be corrected in the true AA version of AMOSPro, to 
+be released later this year.
+
+
+- AMOSPro now works with a screen blanker.
+
+A screen blanker can  work  under  the  workbench without causing problems
+with AMOSPro. When AMOSPro  is  displayed  it  sends  fake mouse movements
+every 5 seconds simulating a user  input. This prevents the screen blanker
+from popping up in the background.
+
+
+- The file selector has been vastly improved.
+
+* Full Multitasking: the input/ouput of  the  file selector is now handled
+by a separate task. You can safely type in a file name while the directory
+is being read.
+
+* STORE slider: instead of this  button's  old affect of displaying random
+directories, you are now presented with a list of all the stored directory
+pathnames. Just click on the pathname you  wish  to view and the list will
+be presented.
+
+* The Right mouse button now  has  an  affect. This was originally in AMOS
+and Easy AMOS: click the  right  mouse  button  and you'll get the current
+device list displayed in the file selector. Click again and you'll receive
+the assign list, click another  time  and  you'll  get  the stored list of
+directories, and another time brings you back to the directory you started
+from.
+
+* You can now enter full pathnames into the filename zone. For example, if
+you type "Work:AMOS_Pro/Interpretor_Config.AMOS"  into  the  name zone and
+press return, the filename will  be  computed into: "Work:AMOS_Pro" in the
+path zone and  "Interpretor_Config.AMOS"  into  the  filename  zone. Press
+RETURN another time to accept the name.
+
+* Fast file finding: enter one letter  into the name zone, and press HELP,
+the file list will be positioned  at  the begining of the specified letter
+(or as close as possible. This feature  is best used on large directories,
+there is no benefit if used in a directory of say nine files.
+
+
+- The text reader now accepts hypertext.
+
+By  using the enhanced  text reader, it is now possible to add interactive
+help files to your programs and even have a professional looking window in
+which to display the text.  This is a  simple process of just adding a few
+codes into your text.
+
+The hypertext system is of course based  on the AMOS  Interface  hypertext
+system. It's best that you take  a  look  at  page 09.03.15 of the AMOSPro
+User Guide and read up on the HyperText command before using this system.
+
+You  can   also   edit   the   file   called   "Equate.Doc"   (located  in
+AMOSPro_Productivity1:Equates.) This file is a  perfect  example of such a
+text.
+
+How to proceed.
+
+* Your text must begin with a special code, of 8 letters:
+
+  #HYPx000
+
+#HYP tells the text reader that the text includes hypertext codes.
+
+"x" is a number, from 1 to 9 informing the text reader how many hyper text
+codes there will be on one line.
+
+"000" is not used yet and is reserved for future expansions. You must keep
+it to 000!
+
+* Within the text define the  hypertext  zone using the normal method. The
+action taken when the user clicks on your zone depends on the TYPE (string
+or digit) of your zone.
+
+  + Digit: the number reported by the zone is a LINE NUMBER. When the user
+clicks on this zone, the text reader will simply go to the specified line.
+Example:
+
+      { [32 ,6,3]   How does it work?   }
+
+      will branch to line #32 in case of click...
+
+  + String: a click on this  zone  will  close  the text reader and report
+the keyword to the main program  in  =Param$.  If  the user clicked on the
+CLOSE icon of  the  text  reader,  =Param$  will  return  an empty string.
+Example (from Equate.Doc):
+
+      { [ADD,4,7] RUN and add equates current file }
+      { [CRE,4,7] RUN and create a new equate file }
+      { [QUT,4,7]     QUIT     }
+
+     In the program:
+
+      Read Text "Equates.Doc"
+      If Param$="ADD"
+      ...
+      Else If Param$="CRE"
+      ...
+      Else
+      ... Quit the program
+      End If
+
+Hyper-text is a  simple  and  user-friendly  way  of  creating menu driven
+program documentation.
+
+
+- Testing speed has been improved.
+
+The testing process has  been  rewritten,  and  is  now  up  to 50% faster
+(usually 30 to 40% on a 68000  based Amiga). The difference is obvious for
+bigger programs such as the Disc Manager and the Object Editor.
+
+
+- You can now configurate your  own  default  screen. Getting bored of the
+orange lowres  screen?  You'd  prefer  it  to  be  workbench  grey,  hires
+interlaced and overscanned? No problem,  just  set  it  up to your heart's
+desire using the new options in the Interpreter_Config.AMOS program.
+
+How to proceed?
+
+ + Call the  "Set  Interpreter"  option  from  the  Config  menu under the
+editor.
+ + Load the Default Configuration
+ + Select "System Configuration Page 1"
+ + Select "Set Default Screen"
+ + With the buttons, just define the characteristics of your screen.
+
+ Number of bitplanes: 1 for 2 colours, 2 for 4 colours, 3 is 8 colours
+                      4 is 16 colours. Hires mode on or off,
+                      Interlaced mode on or off.
+
+ + Use the sliders to set the colour palette.
+ + Once the characteristics of your screen  are defined you can modify its
+size and position on the screen by clicking on "Set Screen's Position"
+ + When everything is done, just click  3  times on EXIT (you have to keep
+moving  back  out  through   the   various   menus),   and  save  out  the
+configuration. Your default screen will appear next time you boot AMOSPro.
+
+Important Warning:
+Some program may rely on the default "default screen". That is 320x200 16
+colours, lowres with the old colour palette. They might stop with an error
+or the display may be corrupted.  So  to  fix  these programs just add the
+command:
+
+  Screen Open 0,320,200,16,Lowres
+
+to the start of the program's code.
+
+- You can now configure the Amiga-A key combination. Up till now there has
+been no choice, Amiga-A was  the  only  way  to  flip between AMOS and the
+Workbench. Now you can define your very own key combination.
+
+How to proceed?
+
++ Call the "Set Interpreter" option from the Config menu under the editor.
++ Load the Default Configuration
++ Select "System Configuration Page 2"
++ Enter the desired letter into the AMOS / Workbench edit zone
++ Click on the correct shift combination
++ Quit and save you  configuration.  The  new  key shortcut will be active
+after your next boot.
+
+
+- The ugly little workbench screen has been removed.
+AMOSPro used to open a small screen at the bottom of the workbench display
+to do its graphical  work.  Some  users  have  complained  about this (and
+rightly so). It has now been removed.  In fact the entire screen system in
+amos.library has been totally re-written so that it is much more
+system-friendly.
+
+- It is now possible to relocate the mouse pointer when in direct mode.
+If you have lost your mouse pointer  (it's off the screen or you've hidden
+it), just press the <HELP> key  and  the  mouse pointer will appear in the
+top-left corner of the direct mode window.
+
+- Direct mode history buffer now works exactly as the CLI history system.
+
+- Closing the last window also  gives  you  the option to quit the AMOSPro
+editor.
+When you close the last available  window  of  the  editor, you now have a
+requester asking whether  you  want  to  QUIT  AMOSPro  or  not.  It's not
+necessary to select the QUIT option from the AMOS menu any more. NOTE: you
+can even quit faster by quiting AMOSpro without any warning when you close
+the last window. This is activated if  you de-select 'Confirm Quit' in the
+"Quit Options" from the "Config" menu.
+
+- Disc Manager format and copy.
+The disc manager now  copies  discs.  It  can  also  copy  and format high
+density discs on an Amiga 4000.
+
+- The monitor does not single step through closed procedures anymore.
+This allows much faster debugging:  just  open  the procedures you want to
+step through and call the monitor. Any closed procedure will be treated as
+a single instruction.
+
+
+- The Resource Bank editor now has  a  "PRINT" option to print the strings
+contained in the bank.
+
+
+- The Editor remote control commands are now listed in the equate file.
+You can have full details about all the commands by running the program:
+
+  AMOSPro_Productivity1:Equates/Editor_Commands.AMOS
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+Problems removed from Version 1.0
+
+With your help, we  have  been  able  to  locate  and remove the following
+problems from V1.0:
+
+
+* Main instruction set
+
+- =Dev Check function used to return 0 just after opening the device.
+
+- Device instructions now check for the completion of the previous command
+before sending a new one.
+
+- Printer device now send its requester to AMOSPro and not the workbench
+screen as it used to do.
+
+- The equate system  now  works  fine.  For  more  information on equates,
+please run AMOSPro_Productivity1:Equates/Make_Equates.AMOS
+
+- Machine language procedures used to  have difficulty accepting more than
+one parameter.
+
+- ERRN now returns the proper error number.
+
+- ERR$ returns the good error message.
+
+- Track Loop On / Off now works
+
+- On Break Proc works.
+
+- LPrint does not leave the printer device open: you can now do an LPrint
+  and then a Printer Open.
+
+- The testing process does not report an error with the following line:
+
+  If A$="" And B$="" Then ...
+
+- Mid$, Left$, Right$ as instructions are now corrected. In the previous
+version, this program:
+A$=String$("a",5)
+B$=A$
+Left$(A$,1)="b"
+Print A$
+Print B$
+... used to print:
+baaaa
+baaaa
+Now it will print:
+baaaa
+aaaaa
+
+- =Input$(1,65536) used to crash.
+
+- =Input$() used to mess strings with input longer than 32767 bytes.
+
+- Set Buffer 0 used to crash.
+
+
+* Monitor
+
+- Now works in interlaced mode.
+
+- Pressing HELP while a program was run used to mess up the system.
+
+- You cannot evaluate any more the command =FSEL$() and any special
+functions. They used to cause funny effects!
+
+- Marking an array without marking the indexes used to crash.
+
+- Used to crash when accessing the program slider of a very small listing.
+
+- Expression evaluation problems removed.
+
+
+* File Selector
+
+- Default name now works.
+
+- The slider used to be badly positioned with a small number of files.
+
+
+* Editor
+
+- A random line number used to  be  displayed  in the Edit / Direct window
+after an error. Stupid bug this one. Sorry.
+
+- Blocks do not include random characters any more.
+ 
+- A program which included extension  commands that weren't available used
+to crash.
+
+- The User menu's add and delete options now work fine.
+
+- Autosave sometimes appeared for no reason.
+
+- You can now record a macro over an existing one without crashing.
+
+- You can now remove a keyboard shortcut.
+
+- Shift+Space does not produce a line of garbage any more.
+
+- The Insert / Overwrite button now indicates the current state.
+
+
+* Direct Mode
+
+- BStart and BLength used to crash
+
+- History buffer system corrected.
+
+- EDIT now works.
+
+- RUN now works.
+
+- CONTROL-C does not crash any more.
+
+- Dialog boxes do not grab all the keyboard inputs anymore.
+
+
+* Misc.
+
+- Make_Equates.AMOS program is present on the disc.
+
+- Disc Manager disc-copy option now works fine.
+
+- HELP Program now uses the  printer  device instruction to print the help
+files and checks for the presence of a printer.
+
+- Object Editor: when grabbing a  bank  from  the current program, the hot
+spots are not lost any more.
+
+- Default_Resource.IFF now has the correct colour palette.
+
+- AMOSPro.IFF now has the correct dialog box definition.
+
+- The default font  for  any  AMOS  screen  is  now  Topaz 8, whatever the
+default workbench font is.
+
+- EDialog reports the correct number.
+
+- Resource Bank editor: edited messages do not wrap any more.
+
+- Resource Bank editor: you cannot  lose  a bank grabbed from the previous
+program, without really wanting to.
+
+- German users, please  note that  it  has always been possible to get the
+' (apostrophe) character with your keyboard, by pressing ALT + �
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+Corrections to the User Guide
+
+Page 08.01.01
+
+The second line of the program listing should read:
+
+Flash 1,"(FFF,1)(000,147)(A5F,2)"
+
+
+Page 09.01.09
+
+Line five of the second listing should read:
+
+A$=A$+"RU 0,%1100, wait for either a mouse click or a key press"
+
+
+Page 09.02.06
+
+The JmP command is in fact JumP.
+
+
+Page 09.04.04
+
+The message table should read:
+
+Positive number		String from the Resource Bank
+0			Full pathname of APSystem folder
+Negative number		Configuration system strings, as follows:
+-1 to -15		Default file names
+-16 to -42		All 26 extensions
+-43 -44 		Communication ports
+-46			Default cursor flashing
+-1001 to -2000 		Miscellaneous strings used by the editor		
+-2001 to -3000		Editor menu options
+-3001 to -4000		Editor messages
+-4001 to -5000		Test time messages
+-5001 to -6000		Run time errors messages
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+How to install Compiler and 3D Extensions
+
+* Please note: The Compiler extension only works with the old Compiler. Not
+  the new AMOS Pro Compiler which is due for release June 1993. You can only
+  compile programs that use the old AMOS command set. New commands in AMOS
+  Pro must be compiled with the new Compiler.
+
+This disc  includes  special  versions  of  the  AMOS1.3  Compiler  and 3D
+extensions that work under AMOSPro.
+
+Warning:   in  order  to  run the Compiler under AMOSPro, you must possess
+AMOS  V1.34 and Compiler V1.34 (or over).  If you don't have versions this
+high,  order  the  1.34 updates (2 discs) from your usual PD library.  You
+can also order the discs from any of the AMOS Clubs.
+
+Any version of 3D can be updated to work under AMOSPro.
+
+The following information is supplied for both Compiler and 3D.  Of course,
+if you just own Compiler, skip past information on 3D, and vice-versa.
+
+You just have to follow the  installation procedure, which depends greatly
+on your system's configuration.
+
+			{[IExFloppy  ,4,3]  You do not have a hard drive  }
+			{[IExHard    ,4,3]      You have a hard drive     }
+
+{[IHelpInf ,4,3] Back to main menu }
+
+Installing Compiler or 3D without a hard drive.
+
+Create a working disc containing:
+
+	AMOS1.34, the Compiler and/or 3D extensions installed.
+
+This disc will be used by AMOSPro's new extensions.  3D can then access the
+file  "c3D.lib"  from  it,  and Compiler will grab the Compiler and all the
+necessary  libraries  from  it.   This  method  leaves  your AMOSPro_System
+untouched  and  avoids  having  to  delete files to make room for 3D and/or
+Compiler.   In  fact  there  isn't  room  on a floppy disc for AMOSPro, the
+Compiler libraries and 3D.
+
+Follow these instructions carefully:
+
+- Boot AMOSPro in the usual manner
+
+-  Load  the  disc  manager  from  the  User  menu  (which now copies discs
+properly).
+
+- Now make a backup of your AMOSPro_System disc before beginning.  You must
+work  with a backup!
+
+Note:   Once you've installed AMOSPro with new extensions you may find that
+AMOSPro  fails to load.  This will be due to AMOSPro being asked to load an
+extension  that  just can't be found or isn't compatible with the extension
+location  it's  being  loaded  into.  If this were to happen you can easily
+revert back to your backup copy and start again.  Otherwise you'll never be
+able to get back into AMOSPro. So please take the time to back-up your
+original.
+
+-  From  the  Disc Manager open the "Extensions" folder on the root of your
+   AMOS Professional Productivity disc 2.
+
+- For the Compiler, copy the file:
+
+  AMOSPro_Productivity2:Extensions/AMOSPro_Compiler.Lib
+
+directly into your APSystem folder of your back-up AMOSPro System disc.
+
+- For 3D, copy the file:
+
+  AMOSPro_Productivity2:Extensions/AMOSPro_3D.Lib
+
+directly into your APSystem folder of your AMOSPro System disc.
+
+It should fit on the disc, but very tightly.  You will need to remove a few
+files.   AmigaDos  will  damage  a  disc beyond recognition if it gets over
+full, so we suggest that you remove the following file:
+
+  AMOSPro_System:Install_Data/Explosion.Abs
+
+This file contains the installer graphics data for the title.  Removing it
+will  not  prevent  the  installer  from working, but will simply skip the
+title.
+
+- For the Compiler, copy the file:
+
+  AMOSPro_Productivity2:Extensions/APCmp
+
+directly into your AMOS_System folder  on  your  AMOS 1.34 disc. It should
+sit next to "ACmp" the original Compiler for AMOS1.34.
+
+- Quit the Disc Manager and call the Interpreter Configuration accessory.
+
+- Load the default configuration
+
+- Select "Set Loaded Extensions"
+
+-  For  the  Compiler:   click  on  line  number  5,  and enter the
+following line EXACTLY as it appears here:
+
+  AMOSPro_Compiler.Lib -fAMOS:AMOS_System/
+
+-  For 3D:  click on line number 4, and enter the following line EXACTLY as
+it appears here:
+
+  AMOSPro_3D.Lib -fAMOS:AMOS_System/
+
+- Save the default configuration and quit the program.
+
+-  If  you're installing the Compiler, load "Compiler.AMOS", and change the
+line at the beginning of the program.
+
+Original line:
+
+  DPATH$=":AMOS_System"
+
+Change it to:
+
+  DPATH$="AMOS:AMOS_System"
+
+Note:   Ensure  the  disc  with  AMOS1.34,  Compiler1.34 and/or 3D is still
+called  "AMOS:".   If  it  has  changed, rename it using the Workbench menu
+option.
+
+Save Compiler.AMOS to disc.
+
+- Reboot your computer. AMOSPro should  boot  and load the new extensions.
+Check it with the "About New Extensions" menu option.
+
+- Compiler: when you call the Compiler, make sure your AMOS1.34 disc is
+ present in a drive. All Compiler data will be loaded from there.
+
+- 3D:  you will be asked to insert your AMOS1.34 disc to load the "c3D.lib"
+library.   If you're not short of memory, use the "TD KEEP" command to keep
+the 3D library in memory after it has been loaded for the first time.
+
+ 		{[IExInfo  ,4,3] Read this important Compiler information }
+
+Installing Compiler or 3D with a hard drive
+
+-  If  you own AMOS1.34 with the Compiler and 3D, your original AMOS_System
+folder should be located at the root of your current partition.  This means
+that  both  3D and Compiler extensions when run from AMOSPro can access the
+files  by  using  the following pathname:
+
+	":AMOS_System/".
+
+If  your  AMOS_System  folder  is elsewhere on your hard disc then read the
+text below located at the (*) marker now.
+
+- Load the Disc Manager utility.
+
+- Open the "Extensions" folder on the root of your AMOS Professional
+  Productivity disc 2.
+
+- Copy the files:
+
+  AMOSPro_Productivity2:Extensions/AMOSPro_Compiler.Lib
+  AMOSPro_Productivity2:Extensions/AMOSPro_3D.Lib"
+
+directly into your APSystem folder on your hard drive.
+
+- Load the Default Configuration
+
+- Select "Set Loaded Extensions"
+
+- For Compiler click on line number 5, and enter the following line EXACTLY
+as it appears here:
+
+  AMOSPro_Compiler.Lib
+
+- For 3D: click on line number 4, and enter the following line EXACTLY as
+it appears here:
+
+  AMOSPro_3D.Lib
+
+- Save the default configuration, quit the program and quit AMOSPro.
+
+- Reboot AMOSPro, your new extension  should  be loaded into memory. Check
+it with the option "About Loaded Extensions" from the editor menu.
+
+- You can now use 3D and Compiler as normal.
+
+(*) Your AMOS_System folder is not  located  at the root directory
+
+- Write down the FULL, EXACT pathname of your AMOS_System folder.  The name
+must  include  the  Device:  and all sub directories.  It should end with a
+":" or a "/".
+
+- Proceed as explained  above,  except  when  you  enter  the names of the
+extensions in the Interpreter Configuration.
+
+- Enter the name of the extension, followed by "-fpath", where path is the
+pathname of your extension. There should not  be any space between "f" and
+the pathname.
+
+- Load "Compiler.AMOS", and change the  following line at the beginning of
+the program:
+
+ Old line:
+
+  DPATH$=":AMOS_System"
+
+ New line:
+
+  DPATH$="...path of your extensions..."
+
+ Warning, There must not be a "/" character at the end of the path!
+
+ Example:
+
+ * Path to extension: Work:AMOS/AMOS_System/
+
+ * Compiler definition: AMOSPro_Compiler.Lib -fWork:AMOS/AMOS_System/
+
+ * 3D definition: AMOSPro_3D.Lib -fWork:AMOS/AMOS_System/
+
+ * In Compiler.AMOS: DPATH$="Work:AMOS/AMOS_System"
+
+		{[IExInfo  ,4,3] Read this important Compiler information }
+
+Important information about the Compiler
+
+This new Compiler extension will  allow  you  to  call AMOS Compiler V1.34
+from AMOSPro. This is NOT  the  new  AMOSPro  Compiler which is currently
+still under development at this stage (18/01/93). As a consequence:
+
+- The Compiler will only Compile 1.34 compatible programs.  Use the "Check
+1.34"  option  from  the  "Project" menu under the editor.  Obviously, the
+Compiler  will  not  compile  any  new  instructions, and will refuse bank
+numbers over 16.
+
+- If you compile a program as .AMOS type it will only run under AMOS1.34.
+This is because AMOS1.34 has different call equates to AMOSPro.
+
+- The configuration files used by  the  Compiler  are not the ones used by
+AMOSPro. The Compiler uses:
+
+  AMOS1_3_PAL.ENV (or NTSC) with error messages, or
+  RAMOS1_3.ENV without error messages.
+
+You should use your  "Config1_3.AMOS"  program  to  change anything in the
+configuration for the Compiler.
+
+          CALLING "INTERPRETER_CONFIG" FROM THE AMOSPRO EDITOR
+                     WILL NOT AFFECT THE COMPILER!!!
+
+{[IHelpInf ,4,3] Back to main menu }
+
+The future updates
+
+AMOS Professional is kept up-to-date and modern all the time. This is
+version 1.12 which is the result of four months extra work on the project
+after the initial release of V1.0.
+
+So keep up-to-date with the latest version by calling the AMOS Clubs or the
+AMOS PD library.
+
+We will continue with our update  policy.  Here  is some of the things you
+can wait for in the future:
+
+- Intuition On  /  Off  to  display  an  AMOS  Screen  under intuition and
+  therefore create real workbench applications.
+- New instruction to handle intuition screens.
+- More integration to the Amiga's system.
+- and all your good ideas!
+
+{[IHelpInf ,4,3] Back to main menu }
+
diff --git a/AMOS/Accessories/AMOSPro_Help/LatestNews_200.Map b/AMOS/Accessories/AMOSPro_Help/LatestNews_200.Map
new file mode 100644
index 0000000..449542a
Binary files /dev/null and b/AMOS/Accessories/AMOSPro_Help/LatestNews_200.Map differ
diff --git a/AMOS/Accessories/AMOSPro_Help/LatestNews_200.Txt b/AMOS/Accessories/AMOSPro_Help/LatestNews_200.Txt
new file mode 100644
index 0000000..f58a2ba
--- /dev/null
+++ b/AMOS/Accessories/AMOSPro_Help/LatestNews_200.Txt
@@ -0,0 +1,277 @@
+About AMOS Professional Version 2.0
+
+This  section  of help describes the modifications done to AMOSPro since the
+previous version V1.12.  Please select one of these options:
+
+                 {[IFeatures     ,4,3]            Features added to AMOSPro          }
+                 {[IResource     ,4,3]            The Resource Bank Creator          }
+                 {[IUserGuide    ,4,3]         Corrections  to  the User Guide       }
+                 {[IFuture       ,4,3]             The   future  updates             }
+
+                 {[IHelpInfo     ,4,3]           Latest  News of Version 1.12        }
+
+
+Features added to AMOS Professional
+
+When you run it, you'll realise that AMOSPro has not changed very much since
+V1.12.   V1.12  had  fixed  many bugs and had major enhancements compared to
+V1.00.
+
+Even  at  V1.12  we  realised  we'd  need  to  update AMOSPro so that it was
+structured  more  modular - thus ensuring it was modern in terms of software
+design.   We  are  now  able  to  update  AMOSPro  much more easily than was
+possible.   In  otherwords  we've thought ahead to make our life easier when
+creating  new  updates  like  AGA support.  It has also ensured the Compiler
+intergrates wonderfully.
+
+Here's the list of modifications:
+
+
+* AMOSPro
+
+
+The  re-write of AMOSPro has resulted in a vast reduction in the size of the
+"AMOSPro"  file.   It is now only a mere 20K.  AMOSPro is now only a loader:
+it  loads  "AMOS.library",  the  main  instruction  set ("AMOSPro.Lib"), the
+various extensions, the editor and the monitor files.  That's all it does.
+
+
+* The Main Instruction Set
+
+The  main  instruction  set is now treated as a normal extension to AMOSPro.
+Every  instruction  routine  is  now  callable  from another extension.  The
+system is now fully modular.
+	AMOSPro.Lib  is  common  to  both  the  AMOSPro  Interpreter and the
+Compiler.   This means that a new AGA update for example, would add commands
+to  AMOSPro.Lib  and  these  would  be  available under both interpreter and
+Compiler.
+
+
+* The Extensions
+
+With  the  extension  system  being  extended to cope with all the different
+syntaxes of the AMOSPro instruction set, it is now much more versatile.  You
+can  create  reserved  variables  within  extension,  have  single or double
+floating point parameters etc.  The extension system is also compatible with
+all the extensions written for AMOSPro since V1.00.
+
+Extension  writers  should  wait  for  the  AGA  version  of  AMOSPro before
+releasing  their  code  into  the  public  domain:   AGA  will  induce  many
+modifications within the screen structures of AMOS.  Information about these
+new screen structures will become available when we release the AGA version.
+
+
+* The AMOS.Library
+
+- The requester routines are now part of the library. This reduces the size
+  of the requester extension to a mere 250 Bytes
+
+-  The default Mouse.Abk has been included within the library.  If you want
+   to,  you  can  remove  it  from  your  APSystem  folder,  so long as your
+   AMOSPro_Interpreter_Config does not call it.
+
+- AMOSPro_Default.Font is no longer necessary:  AMOS.Library now asks for a
+  system font to create the AMOSPro window font.  As a default this font is
+  Topaz 8, but you can change it to whatever 8x8 fixed size font you wish
+  using Interpreter_Config.
+
+You'll  be  glad  to  here  that the default font is now the same throughout
+AMOSPro:  In the menus, the graphical text instructions and in windows.
+
+
+* Default resource banks
+
+The  resource  banks  have been cleaned up.  Some icons have been redrawn to
+offer  a  better  graphical  interface.   The  Default resource includes new
+graphic elements to create new kinds of buttons and editing zones.
+
+
+* AMOSPro Interpreter Config
+
+The  default  screen  setup  has  been  rewritten  to  accept the future AGA
+palettes.
+
+
+* AMOSPro Editor Config
+
+The  editor  screen  setup has also been rewritten to cope with the extended
+AGA palettes, availables when AMOSPro works in AGA.
+
+
+* New function: =ZDialog (Channel,X,Y)
+
+This  new  instruction  can  be  very  useful:  it returns the number of the
+interface zone under X and Y coordinates - without waiting.
+
+Channel:	Number of an opened dialogue channel
+X : 		X screen coordinate to test
+Y : 		Y screen coordinate to test
+
+Result:
+-1:		the coordinate does not point to a zone
+>-1:		the number of the zone
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+
+Problems removed from Version 1.0
+
+* Block in the editor.
+The  editor used to add garbage at the end of a block when cutting the block
+which included a non-tokenised line.
+
+* Program to menu problems: you could totally mess-up the editor's menu by
+adding/removing   "Programs   to   Menu"  on  certain  menus,  like  "Help",
+"Configuration" etc...
+
+* From V1.12 of AMOSPro, INPUT could not be seen from the monitor.
+
+* Doing  a screen close in direct mode on a screen which included an active
+dialogue channel, resulted in AMOSPro stuck within an infinite loop.
+
+* Such a line:
+
+Vdialog$(0,1)=Array(a$(1)) 
+
+was  accepted  by  the  test.   This  line  was false, as the Array function
+returns an integer (the base of the array) and Vdialog waits for a string.
+
+* Integer multiplication.
+From  the  very  start  of AMOS a bug in integer multiplication caused false
+results  for certain numbers.  Not very annoying because no one has reported
+it in 3 years!
+
+ 
+{[IHelpInf ,4,3] Back to main menu }
+
+Resource Bank Maker Enhancements
+
+The  resource bank maker has been enhanced and now offers the possibility to
+store interface programs within a resource bank.
+
+To reach the new functions of the resource bank maker, just click on the new
+button  from  the  main  menu:   'Edit dialog programs' You will enter a new
+panel with the list of programs currently present within the resource bank.
+
+The  purpose  of  these new function is to allow you to insert the Interface
+programs  within  the middle of a resource bank.  The interface strings will
+no  longer  be  required  within your AMOS Program - line like:  "A$=A$+" or
+"Data".  The interface program can be edited using any ASCII editor and then
+simply loaded into the bank.
+
+* Loading a program:
+
+You can load any ASCII file into the list by clicking on the 'LOAD' button.
+
+* Editing programs:
+
+Edit  your  interface  programs  within  any  ASCII  editor (ED, CygnusED or
+others...)  and  then  import  them  into  the Resource_Bank_maker using the
+'LOAD' button.
+
+Large Ram or Hard-disk users (only):
+
+It's   possible   to  call  up  any  CLI  Ascii  editor  directly  from  the
+Resource_Bank_Maker.AMOS accessory.
+	To  Edit an existing program, select it with mouse from the list and
+then  click  on the 'Edit' Button.  If you do this when the selected program
+is empty, a requester will ask you if you want to create a new one.
+
+The editor called by this button is defined by the varable string 'ED_NAME$'
+which  can  be changed by editing the actual Resource bank maker AMOS source
+program  file  (around  line  56).   Or  by  clicking on the 'Change Default
+Editor' Button.  Be aware that these rules must apply to your editor:
+
+1) The ASCII editor must freeze CLI multitasking during editing. So you
+cannot have a 'run' command before the editor's name. With CygnusED you'll
+have to add the option '-keepio' to ensure the editor presents itself to you
+and not hide in the background.
+	Workbench's ED works fine, you might use a line like:
+
+	c:ED {f}
+
+For CygnusED:
+
+	c:CED {f}
+
+2)  The  {f}  parameter  is a dummy filename which your Ascii Editor usually
+expects when you request an edit from CLI or Shell.  It carries the dialogue
+program  position  within the bank.  When you've finished editing, just save
+the  file  and  quit the editor.  You'll then be back in the resource editor
+with the Ascii file stored within the bank.
+
+If  the Resource bank maker cannot find the Editor described by ED_NAME$, it
+will only display your DBL program using the 'Readtext' AMOS function.
+
+
+* Copy, Cut, Paste & Rename:
+
+Use  these  buttons  to duplicate, move and rename any Interface programs in
+the list.
+
+* Remove unusued characters:
+
+By  clicking  here,  you  can  filter  and  optimise  the currently selected
+dialogue  program  in  order  to  save  precious  bytes and speed up (just a
+little),  your  AMOS interfaces.  Warning!  Always keep a backup of your DBL
+programs  before removing unusued characters.  You'll hardly be ably to read
+them  after  they've had spaces removed.  Only perform this operation at the
+very end of you interface programming.
+
+* How to access dialogue programs in banks from within AMOS?
+
+This is very simple. Just call your dialogues by:
+
+Resource Bank x  (x = number of the bank where your DBL programs are)
+Dialog Open 1,n  (n = number of the DBL program within resource bank x)
+
+This is much better that using:
+S$=S$+... (initialising string S$)
+S$=S$+...
+Dialog Open 1,S$ ( S$ = big string containing your DBL programs)
+
+The initialisation phase will be faster and you'll gain some variable buffer
+space!
+
+The other interface instrunctions are working exactly the same way.
+(D=Dialog Run(1,label), Vdialog(1,va) and so on...)
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+Corrections to the AMOS Pro User Guide
+
+Also read the "Correction to the User Guide" chapter in 1.12 help files.
+
+Page 05.07.06
+Read Text$ should read Read Text
+
+Page 07.06.23
+"Move On" should read "Movon"
+
+Page 11.01.04
+XGRAPHIC / YGRAPHIC
+"Xtext" should read "Xgraphic"
+"Ytext" should read "Ygraphic"
+
+Page 11.04.04
+EXEC instruction does not accept an "Output" parameter.
+
+{[IHelpInf ,4,3] Back to main menu }
+
+
+
+The future updates
+
+We will continue with our update  policy.  Here are some of the things you
+can wait for in the future:
+
+- AGA Update
+- Intuition On  /  Off  to  display  an  AMOS  Screen  under intuition and
+  therefore create real workbench applications.
+- New instructions to handle intuition screens.
+- More and more integration to the Amiga's system.
+- and all your good ideas!
+
+{[IHelpInf ,4,3] Back to main menu }
diff --git a/AMOS/Accessories/Disc_Manager.AMOS b/AMOS/Accessories/Disc_Manager.AMOS
new file mode 100644
index 0000000..45982a0
Binary files /dev/null and b/AMOS/Accessories/Disc_Manager.AMOS differ
diff --git a/AMOS/Accessories/Font8x8_Editor.AMOS b/AMOS/Accessories/Font8x8_Editor.AMOS
new file mode 100644
index 0000000..cc579e4
Binary files /dev/null and b/AMOS/Accessories/Font8x8_Editor.AMOS differ
diff --git a/AMOS/Accessories/IFF_Compactor.AMOS b/AMOS/Accessories/IFF_Compactor.AMOS
new file mode 100644
index 0000000..b4b6786
Binary files /dev/null and b/AMOS/Accessories/IFF_Compactor.AMOS differ
diff --git a/AMOS/Accessories/Menu_Editor.AMOS b/AMOS/Accessories/Menu_Editor.AMOS
new file mode 100644
index 0000000..0264d5d
Binary files /dev/null and b/AMOS/Accessories/Menu_Editor.AMOS differ
diff --git a/AMOS/Accessories/Object_Editor.AMOS b/AMOS/Accessories/Object_Editor.AMOS
new file mode 100644
index 0000000..a96414d
Binary files /dev/null and b/AMOS/Accessories/Object_Editor.AMOS differ
diff --git a/AMOS/Accessories/Resource_Bank_Maker.AMOS b/AMOS/Accessories/Resource_Bank_Maker.AMOS
new file mode 100644
index 0000000..30a71ce
Binary files /dev/null and b/AMOS/Accessories/Resource_Bank_Maker.AMOS differ
diff --git a/AMOS/Accessories/Sample_Bank_Maker.AMOS b/AMOS/Accessories/Sample_Bank_Maker.AMOS
new file mode 100644
index 0000000..2277966
Binary files /dev/null and b/AMOS/Accessories/Sample_Bank_Maker.AMOS differ
diff --git a/AMOS/Accessories/System_Iffs/AMOSPro.Iff b/AMOS/Accessories/System_Iffs/AMOSPro.Iff
new file mode 100644
index 0000000..062e4ac
Binary files /dev/null and b/AMOS/Accessories/System_Iffs/AMOSPro.Iff differ
diff --git a/AMOS/Accessories/System_Iffs/Default_Resource.Iff b/AMOS/Accessories/System_Iffs/Default_Resource.Iff
new file mode 100644
index 0000000..563efb3
Binary files /dev/null and b/AMOS/Accessories/System_Iffs/Default_Resource.Iff differ
diff --git a/AMOS/Accessories/System_Iffs/Tutor_Buttons.Iff b/AMOS/Accessories/System_Iffs/Tutor_Buttons.Iff
new file mode 100644
index 0000000..fb512ea
Binary files /dev/null and b/AMOS/Accessories/System_Iffs/Tutor_Buttons.Iff differ
diff --git a/AMOS/Compiler/Compiler_Shell.AMOS b/AMOS/Compiler/Compiler_Shell.AMOS
new file mode 100644
index 0000000..d317a08
Binary files /dev/null and b/AMOS/Compiler/Compiler_Shell.AMOS differ
diff --git a/AMOS/Compiler/Tiny_Shell.AMOS b/AMOS/Compiler/Tiny_Shell.AMOS
new file mode 100644
index 0000000..d7c34d9
Binary files /dev/null and b/AMOS/Compiler/Tiny_Shell.AMOS differ
diff --git a/AMOS/Compiler_Shell b/AMOS/Compiler_Shell
new file mode 100644
index 0000000..7eda1b7
Binary files /dev/null and b/AMOS/Compiler_Shell differ
diff --git a/AMOS/Compiler_Shell.info b/AMOS/Compiler_Shell.info
new file mode 100644
index 0000000..d70e2b9
Binary files /dev/null and b/AMOS/Compiler_Shell.info differ
diff --git a/AMOS/Editor_Config.AMOS b/AMOS/Editor_Config.AMOS
new file mode 100644
index 0000000..f26cde9
Binary files /dev/null and b/AMOS/Editor_Config.AMOS differ
diff --git a/AMOS/Examples.info b/AMOS/Examples.info
new file mode 100644
index 0000000..ab3ea18
Binary files /dev/null and b/AMOS/Examples.info differ
diff --git a/AMOS/Examples/Examples/H-0/Help_1.AMOS b/AMOS/Examples/Examples/H-0/Help_1.AMOS
new file mode 100644
index 0000000..2522cde
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_1.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_2.AMOS b/AMOS/Examples/Examples/H-0/Help_2.AMOS
new file mode 100644
index 0000000..e8826fd
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_2.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_3.AMOS b/AMOS/Examples/Examples/H-0/Help_3.AMOS
new file mode 100644
index 0000000..aa8b18e
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_3.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_4.AMOS b/AMOS/Examples/Examples/H-0/Help_4.AMOS
new file mode 100644
index 0000000..cc98f13
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_4.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_5.AMOS b/AMOS/Examples/Examples/H-0/Help_5.AMOS
new file mode 100644
index 0000000..b2905f3
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_5.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_6.AMOS b/AMOS/Examples/Examples/H-0/Help_6.AMOS
new file mode 100644
index 0000000..634c1af
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_6.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_7.AMOS b/AMOS/Examples/Examples/H-0/Help_7.AMOS
new file mode 100644
index 0000000..34efa33
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_7.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_8.AMOS b/AMOS/Examples/Examples/H-0/Help_8.AMOS
new file mode 100644
index 0000000..a7bcbe9
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_8.AMOS differ
diff --git a/AMOS/Examples/Examples/H-0/Help_9.AMOS b/AMOS/Examples/Examples/H-0/Help_9.AMOS
new file mode 100644
index 0000000..706b03d
Binary files /dev/null and b/AMOS/Examples/Examples/H-0/Help_9.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_10.AMOS b/AMOS/Examples/Examples/H-1/Help_10.AMOS
new file mode 100644
index 0000000..767babb
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_10.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_11.AMOS b/AMOS/Examples/Examples/H-1/Help_11.AMOS
new file mode 100644
index 0000000..e4807fc
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_11.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_12.AMOS b/AMOS/Examples/Examples/H-1/Help_12.AMOS
new file mode 100644
index 0000000..4dc4e7d
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_12.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_13.AMOS b/AMOS/Examples/Examples/H-1/Help_13.AMOS
new file mode 100644
index 0000000..25bfbd0
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_13.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_14.AMOS b/AMOS/Examples/Examples/H-1/Help_14.AMOS
new file mode 100644
index 0000000..c7690b0
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_14.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_15.AMOS b/AMOS/Examples/Examples/H-1/Help_15.AMOS
new file mode 100644
index 0000000..2d1cd24
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_15.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_16.AMOS b/AMOS/Examples/Examples/H-1/Help_16.AMOS
new file mode 100644
index 0000000..65b147b
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_16.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_17.AMOS b/AMOS/Examples/Examples/H-1/Help_17.AMOS
new file mode 100644
index 0000000..b00256c
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_17.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_18.AMOS b/AMOS/Examples/Examples/H-1/Help_18.AMOS
new file mode 100644
index 0000000..0bad8d6
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_18.AMOS differ
diff --git a/AMOS/Examples/Examples/H-1/Help_19.AMOS b/AMOS/Examples/Examples/H-1/Help_19.AMOS
new file mode 100644
index 0000000..949e1c0
Binary files /dev/null and b/AMOS/Examples/Examples/H-1/Help_19.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_20.AMOS b/AMOS/Examples/Examples/H-2/Help_20.AMOS
new file mode 100644
index 0000000..8263092
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_20.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_21.AMOS b/AMOS/Examples/Examples/H-2/Help_21.AMOS
new file mode 100644
index 0000000..f48a766
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_21.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_22.AMOS b/AMOS/Examples/Examples/H-2/Help_22.AMOS
new file mode 100644
index 0000000..c75de95
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_22.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_23.AMOS b/AMOS/Examples/Examples/H-2/Help_23.AMOS
new file mode 100644
index 0000000..1a0e159
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_23.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_24.AMOS b/AMOS/Examples/Examples/H-2/Help_24.AMOS
new file mode 100644
index 0000000..2bc4206
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_24.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_25.AMOS b/AMOS/Examples/Examples/H-2/Help_25.AMOS
new file mode 100644
index 0000000..11bfa91
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_25.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_26.AMOS b/AMOS/Examples/Examples/H-2/Help_26.AMOS
new file mode 100644
index 0000000..868a159
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_26.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_27.AMOS b/AMOS/Examples/Examples/H-2/Help_27.AMOS
new file mode 100644
index 0000000..f35b85b
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_27.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_28.AMOS b/AMOS/Examples/Examples/H-2/Help_28.AMOS
new file mode 100644
index 0000000..3f104c3
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_28.AMOS differ
diff --git a/AMOS/Examples/Examples/H-2/Help_29.AMOS b/AMOS/Examples/Examples/H-2/Help_29.AMOS
new file mode 100644
index 0000000..233b04a
Binary files /dev/null and b/AMOS/Examples/Examples/H-2/Help_29.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_30.AMOS b/AMOS/Examples/Examples/H-3/Help_30.AMOS
new file mode 100644
index 0000000..8663e08
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_30.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_31.AMOS b/AMOS/Examples/Examples/H-3/Help_31.AMOS
new file mode 100644
index 0000000..692d24a
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_31.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_32.AMOS b/AMOS/Examples/Examples/H-3/Help_32.AMOS
new file mode 100644
index 0000000..91ead39
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_32.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_33.AMOS b/AMOS/Examples/Examples/H-3/Help_33.AMOS
new file mode 100644
index 0000000..0b119ac
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_33.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_34.AMOS b/AMOS/Examples/Examples/H-3/Help_34.AMOS
new file mode 100644
index 0000000..0a0aff1
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_34.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_35.AMOS b/AMOS/Examples/Examples/H-3/Help_35.AMOS
new file mode 100644
index 0000000..d8861a9
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_35.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_36.AMOS b/AMOS/Examples/Examples/H-3/Help_36.AMOS
new file mode 100644
index 0000000..57d30d3
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_36.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_37.AMOS b/AMOS/Examples/Examples/H-3/Help_37.AMOS
new file mode 100644
index 0000000..21b047b
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_37.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_38.AMOS b/AMOS/Examples/Examples/H-3/Help_38.AMOS
new file mode 100644
index 0000000..25a8e44
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_38.AMOS differ
diff --git a/AMOS/Examples/Examples/H-3/Help_39.AMOS b/AMOS/Examples/Examples/H-3/Help_39.AMOS
new file mode 100644
index 0000000..21ac023
Binary files /dev/null and b/AMOS/Examples/Examples/H-3/Help_39.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_40.AMOS b/AMOS/Examples/Examples/H-4/Help_40.AMOS
new file mode 100644
index 0000000..2741a6c
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_40.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_41.AMOS b/AMOS/Examples/Examples/H-4/Help_41.AMOS
new file mode 100644
index 0000000..a757a71
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_41.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_42.AMOS b/AMOS/Examples/Examples/H-4/Help_42.AMOS
new file mode 100644
index 0000000..876011a
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_42.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_43.AMOS b/AMOS/Examples/Examples/H-4/Help_43.AMOS
new file mode 100644
index 0000000..367e37e
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_43.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_44.AMOS b/AMOS/Examples/Examples/H-4/Help_44.AMOS
new file mode 100644
index 0000000..b062ea8
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_44.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_45.AMOS b/AMOS/Examples/Examples/H-4/Help_45.AMOS
new file mode 100644
index 0000000..21ccb96
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_45.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_46.AMOS b/AMOS/Examples/Examples/H-4/Help_46.AMOS
new file mode 100644
index 0000000..9453e0e
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_46.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_47.AMOS b/AMOS/Examples/Examples/H-4/Help_47.AMOS
new file mode 100644
index 0000000..85c3375
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_47.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_48.AMOS b/AMOS/Examples/Examples/H-4/Help_48.AMOS
new file mode 100644
index 0000000..d2bc204
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_48.AMOS differ
diff --git a/AMOS/Examples/Examples/H-4/Help_49.AMOS b/AMOS/Examples/Examples/H-4/Help_49.AMOS
new file mode 100644
index 0000000..2b1a5dc
Binary files /dev/null and b/AMOS/Examples/Examples/H-4/Help_49.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_50.AMOS b/AMOS/Examples/Examples/H-5/Help_50.AMOS
new file mode 100644
index 0000000..025492f
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_50.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_51.AMOS b/AMOS/Examples/Examples/H-5/Help_51.AMOS
new file mode 100644
index 0000000..7fe2321
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_51.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_52.AMOS b/AMOS/Examples/Examples/H-5/Help_52.AMOS
new file mode 100644
index 0000000..d1ab672
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_52.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_53.AMOS b/AMOS/Examples/Examples/H-5/Help_53.AMOS
new file mode 100644
index 0000000..1c2a966
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_53.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_54.AMOS b/AMOS/Examples/Examples/H-5/Help_54.AMOS
new file mode 100644
index 0000000..2b6d041
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_54.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_55.AMOS b/AMOS/Examples/Examples/H-5/Help_55.AMOS
new file mode 100644
index 0000000..610f400
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_55.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_56.AMOS b/AMOS/Examples/Examples/H-5/Help_56.AMOS
new file mode 100644
index 0000000..260c811
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_56.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_57.AMOS b/AMOS/Examples/Examples/H-5/Help_57.AMOS
new file mode 100644
index 0000000..b5f3369
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_57.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_58.AMOS b/AMOS/Examples/Examples/H-5/Help_58.AMOS
new file mode 100644
index 0000000..c631f87
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_58.AMOS differ
diff --git a/AMOS/Examples/Examples/H-5/Help_59.AMOS b/AMOS/Examples/Examples/H-5/Help_59.AMOS
new file mode 100644
index 0000000..333d3be
Binary files /dev/null and b/AMOS/Examples/Examples/H-5/Help_59.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_60.AMOS b/AMOS/Examples/Examples/H-6/Help_60.AMOS
new file mode 100644
index 0000000..188dc70
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_60.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_61.AMOS b/AMOS/Examples/Examples/H-6/Help_61.AMOS
new file mode 100644
index 0000000..6e33aab
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_61.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_62.AMOS b/AMOS/Examples/Examples/H-6/Help_62.AMOS
new file mode 100644
index 0000000..67069df
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_62.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_63.AMOS b/AMOS/Examples/Examples/H-6/Help_63.AMOS
new file mode 100644
index 0000000..0590568
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_63.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_64.AMOS b/AMOS/Examples/Examples/H-6/Help_64.AMOS
new file mode 100644
index 0000000..98e5f0f
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_64.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_65.AMOS b/AMOS/Examples/Examples/H-6/Help_65.AMOS
new file mode 100644
index 0000000..36a28ed
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_65.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_66.AMOS b/AMOS/Examples/Examples/H-6/Help_66.AMOS
new file mode 100644
index 0000000..27cba26
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_66.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_67.AMOS b/AMOS/Examples/Examples/H-6/Help_67.AMOS
new file mode 100644
index 0000000..b805add
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_67.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_68.AMOS b/AMOS/Examples/Examples/H-6/Help_68.AMOS
new file mode 100644
index 0000000..d5beebf
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_68.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Help_69.AMOS b/AMOS/Examples/Examples/H-6/Help_69.AMOS
new file mode 100644
index 0000000..20c445a
Binary files /dev/null and b/AMOS/Examples/Examples/H-6/Help_69.AMOS differ
diff --git a/AMOS/Examples/Examples/H-6/Jokes b/AMOS/Examples/Examples/H-6/Jokes
new file mode 100644
index 0000000..14d1d9a
--- /dev/null
+++ b/AMOS/Examples/Examples/H-6/Jokes
@@ -0,0 +1,20 @@
+What do you call a dog with no legs?
+Anything you like....he still won't come
+A man walked into a bar. What did he say?
+Ouch.  (It was an iron bar)
+A meat pie walked into a bar and was not allowed to buy a drink. Why?
+The manager was not allowed to serve food.
+What do you call a man with a seagull on his head?
+Cliff.
+Did you hear about the Scotsman who dropped a 10 pence piece?
+When he bent down to pick it up it hit him on the head.
+What do you call a man with a car on his head?
+Jack.
+Why are Venetian blinds so important?
+If it wasn't for them it would be curtains for everybody.
+Why is there no ice cubes in Ireland
+The woman that had the recipe died
+Did you hear about the constipated mathematician
+He worked it out with a pencil
+What is the Liverpool version of Silence Of The Lambs
+Shut up ewes.
diff --git a/AMOS/Examples/Examples/H-7/Help_70.AMOS b/AMOS/Examples/Examples/H-7/Help_70.AMOS
new file mode 100644
index 0000000..a1048a6
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_70.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_71.AMOS b/AMOS/Examples/Examples/H-7/Help_71.AMOS
new file mode 100644
index 0000000..49dbd75
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_71.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_72.AMOS b/AMOS/Examples/Examples/H-7/Help_72.AMOS
new file mode 100644
index 0000000..dd95b1d
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_72.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_73.AMOS b/AMOS/Examples/Examples/H-7/Help_73.AMOS
new file mode 100644
index 0000000..10a7679
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_73.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_74.AMOS b/AMOS/Examples/Examples/H-7/Help_74.AMOS
new file mode 100644
index 0000000..46e83ce
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_74.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_75.AMOS b/AMOS/Examples/Examples/H-7/Help_75.AMOS
new file mode 100644
index 0000000..ee72acd
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_75.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_76.AMOS b/AMOS/Examples/Examples/H-7/Help_76.AMOS
new file mode 100644
index 0000000..792640a
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_76.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_77.AMOS b/AMOS/Examples/Examples/H-7/Help_77.AMOS
new file mode 100644
index 0000000..4d82caf
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_77.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_78.AMOS b/AMOS/Examples/Examples/H-7/Help_78.AMOS
new file mode 100644
index 0000000..a7f9623
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_78.AMOS differ
diff --git a/AMOS/Examples/Examples/H-7/Help_79.AMOS b/AMOS/Examples/Examples/H-7/Help_79.AMOS
new file mode 100644
index 0000000..4bf4161
Binary files /dev/null and b/AMOS/Examples/Examples/H-7/Help_79.AMOS differ
diff --git a/AMOS/Examples/Examples/H-8/Help_80.AMOS b/AMOS/Examples/Examples/H-8/Help_80.AMOS
new file mode 100644
index 0000000..262c5c1
Binary files /dev/null and b/AMOS/Examples/Examples/H-8/Help_80.AMOS differ
diff --git a/AMOS/Examples/Examples/H-8/Help_81.AMOS b/AMOS/Examples/Examples/H-8/Help_81.AMOS
new file mode 100644
index 0000000..c939220
Binary files /dev/null and b/AMOS/Examples/Examples/H-8/Help_81.AMOS differ
diff --git a/AMOS/Examples/Examples/H-8/Help_82.AMOS b/AMOS/Examples/Examples/H-8/Help_82.AMOS
new file mode 100644
index 0000000..6fb5893
Binary files /dev/null and b/AMOS/Examples/Examples/H-8/Help_82.AMOS differ
diff --git a/AMOS/Examples/Examples/H-8/Help_82.Asc b/AMOS/Examples/Examples/H-8/Help_82.Asc
new file mode 100644
index 0000000..8cb85cb
--- /dev/null
+++ b/AMOS/Examples/Examples/H-8/Help_82.Asc
@@ -0,0 +1,46 @@
+'**********************************
+'*    AMOS PROFESSIONAL HELP 82   *               SUBJECTS COVERED 
+'*                                *
+'*     (c) Europress Software     *                  Read Text 
+'*                                *
+'*         Ronnie Simpson         *
+'**********************************
+'
+'------------------------------------------- 
+'Read Text 
+'------------------------------------------- 
+'display a text file 
+'
+'There are 2 versions of this instruction both of which will display the 
+'text and allow the user to scroll through the listing.
+'
+'The first version displays a file from disc.
+'
+'                     Read Text NAME$
+'
+'The simplest way is probably to call the file selector:-
+'
+'                     Read Text Fsel$("**")
+'
+'The second version will display text taken from an address in memory:-
+'
+'                     Read Text "title",address,length.
+'
+'The "title" will be displayed above the listing.
+'The address parameter is the address in memory of the first character.
+'The length parameter is the number of bytes to be read. 
+'
+'The listing may be scrolled through using the vertical slider, the small
+'arrow icons or the following Keys:- 
+'
+'             Up Arrow           - Move up 1 line
+'             Down Arrow         - Move down 1 line
+'             Shift + Up Arrow   - Scroll Up 1 Page
+'             Shift + Down Arrow - Scroll down 1 page
+'             Ctrl. + Up Arrow   - Jump to top of text   
+'             Ctrl. + Down Arrow - Jump to bottom of text
+'             Return             - Exit
+'             Esc                - Exit
+'                
+'
+'You can also exit by clicking on the X icon at the top left of the display. 
diff --git a/AMOS/Examples/Examples/H-8/Help_83.AMOS b/AMOS/Examples/Examples/H-8/Help_83.AMOS
new file mode 100644
index 0000000..3008ae0
Binary files /dev/null and b/AMOS/Examples/Examples/H-8/Help_83.AMOS differ
diff --git a/AMOS/Examples/Examples/H-8/Help_84.AMOS b/AMOS/Examples/Examples/H-8/Help_84.AMOS
new file mode 100644
index 0000000..a1546cb
Binary files /dev/null and b/AMOS/Examples/Examples/H-8/Help_84.AMOS differ
diff --git a/AMOS/Examples/Iff/Logo.iff b/AMOS/Examples/Iff/Logo.iff
new file mode 100644
index 0000000..711cc4e
Binary files /dev/null and b/AMOS/Examples/Iff/Logo.iff differ
diff --git a/AMOS/Examples/Music/Med_Module b/AMOS/Examples/Music/Med_Module
new file mode 100644
index 0000000..396fd58
Binary files /dev/null and b/AMOS/Examples/Music/Med_Module differ
diff --git a/AMOS/Examples/Music/Mod.Tracker b/AMOS/Examples/Music/Mod.Tracker
new file mode 100644
index 0000000..37872cd
Binary files /dev/null and b/AMOS/Examples/Music/Mod.Tracker differ
diff --git a/AMOS/Examples/Music/Music.abk b/AMOS/Examples/Music/Music.abk
new file mode 100644
index 0000000..ee81801
Binary files /dev/null and b/AMOS/Examples/Music/Music.abk differ
diff --git a/AMOS/Examples/Objects/Bobs.abk b/AMOS/Examples/Objects/Bobs.abk
new file mode 100644
index 0000000..9818231
Binary files /dev/null and b/AMOS/Examples/Objects/Bobs.abk differ
diff --git a/AMOS/Examples/Objects/Faces_A.abk b/AMOS/Examples/Objects/Faces_A.abk
new file mode 100644
index 0000000..a9594ff
Binary files /dev/null and b/AMOS/Examples/Objects/Faces_A.abk differ
diff --git a/AMOS/Examples/Objects/Faces_B.abk b/AMOS/Examples/Objects/Faces_B.abk
new file mode 100644
index 0000000..9d26de8
Binary files /dev/null and b/AMOS/Examples/Objects/Faces_B.abk differ
diff --git a/AMOS/Examples/Objects/Faces_C.abk b/AMOS/Examples/Objects/Faces_C.abk
new file mode 100644
index 0000000..c24b6fd
Binary files /dev/null and b/AMOS/Examples/Objects/Faces_C.abk differ
diff --git a/AMOS/Examples/Objects/Ronnio.abk b/AMOS/Examples/Objects/Ronnio.abk
new file mode 100644
index 0000000..62361fe
Binary files /dev/null and b/AMOS/Examples/Objects/Ronnio.abk differ
diff --git a/AMOS/Examples/Samples/Instruments.abk b/AMOS/Examples/Samples/Instruments.abk
new file mode 100644
index 0000000..4273e95
Binary files /dev/null and b/AMOS/Examples/Samples/Instruments.abk differ
diff --git a/AMOS/Examples/Samples/Mixture.abk b/AMOS/Examples/Samples/Mixture.abk
new file mode 100644
index 0000000..3903495
Binary files /dev/null and b/AMOS/Examples/Samples/Mixture.abk differ
diff --git a/AMOS/Interpreter_Config b/AMOS/Interpreter_Config
new file mode 100644
index 0000000..71fba79
Binary files /dev/null and b/AMOS/Interpreter_Config differ
diff --git a/AMOS/Productivity1.info b/AMOS/Productivity1.info
new file mode 100644
index 0000000..39467a3
Binary files /dev/null and b/AMOS/Productivity1.info differ
diff --git a/AMOS/Productivity1/Equates/AMOSPro_System_Equates b/AMOS/Productivity1/Equates/AMOSPro_System_Equates
new file mode 100644
index 0000000..831f7c1
--- /dev/null
+++ b/AMOS/Productivity1/Equates/AMOSPro_System_Equates
@@ -0,0 +1,2507 @@
+
+AEdAsk_CurrentLine:1,7
+AEdAsk_ProgramName:2,7
+AEdAsk_X:3,7
+AEdAsk_X:4,7
+AEdAsk_NumberOfLines:5,7
+AEdAsk_BlocX1:6,7
+AEdAsk_BlocY1:7,7
+AEdAsk_BlocX2:8,7
+AEdAsk_BlocY2:9,7
+AEdAsk_Free:10,7
+AEdAsk_Struc:11,7
+AEdAsk_Token:12,7
+AEd_Up:1,7  
+AEd_Down:2,7  
+AEd_Left:3,7  
+AEd_Right:4,7  
+AEd_TopPage:5,7  
+AEd_BottomPage:6,7  
+AEd_WordLeft:7,7  
+AEd_WordRight:8,,7  
+AEd_PageUp:9,7  
+AEd_PageDown:10,7 
+AEd_StartLine:11,7 
+AEd_EndLine:12,7 
+AEd_WindowUp:13,7 
+AEd_WindowDown:14,7 
+AEd_WindowSmaller:15,7 
+AEd_WindowBigger:16,7 
+AEd_TopOfText:17,7 
+AEd_BottomOfText:18,7 
+AEd_Return:19,7 
+AEd_BackSpace:20,7 
+AEd_Delete:21,7 
+AEd_ClrLine:22,7 
+AEd_DelLine:23,7 
+AEd_Tab:24,7 
+AEd_SetTab:25,7 
+AEd_InsertLine:29,7 
+AEd_DelToEndOfLine:30,7 
+AEd_PreviousLabel:31,7 
+AEd_NextLabel:32,7 
+AEd_Load:33,7 
+AEd_SaveAs:34,7 
+AEd_Save:35,7 
+AEd_DelWordRight:36,7 
+AEd_DelWordLeft:37,7 
+AEd_Hide:38,7 
+AEd_SetSystemMark1:39,7 
+AEd_SetSystemMark2:40,7 
+AEd_SetSystemMark3:41,7 
+AEd_SetMark1:42,7 
+AEd_SetMark2:43,7 
+AEd_SetMark3:44,7 
+AEd_SetMark4:45,7 
+AEd_SetMark5:46,7 
+AEd_SetMark6:47,7 
+AEd_GotoSystemMark1:49,7 
+AEd_GotoSystemMark2:50,7 
+AEd_GotoSystemMark3:51,7 
+AEd_GotoMark1:52,7 
+AEd_GotoMark2:53,7 
+AEd_GotoMark3:54,7 
+AEd_GotoMark4:55,7 
+AEd_GotoMark5:56,7 
+AEd_GotoMark6:57,7 
+AEd_BlocOnOff:59,7 
+AEd_Forget:60,7 
+AEd_OpenLoad:61,7 
+AEd_BlocCut:62,7 
+AEd_BlocPaste:63,7 
+AEd_DelToStartOfLine:64,7 
+AEd_Undo:65,7 
+AEd_Search:66,7 
+AEd_SearchNext:67,7 
+AEd_SearchPrevious:68,7 
+AEd_ChangeLine:69,7 
+AEd_NewLine:71,7 
+AEd_BlocStore:72,7 
+AEd_Clear:80,7 
+AEd_Close:81,7 
+AEd_Merge:84,7 
+AEd_MergeAscii:85,7 
+AEd_BlocPrint:86,7 
+AEd_Fold:87,7 
+AEd_LoadHidden:88,7 
+AEd_UnfoldAll:89,7 
+AEd_WindowPrev:91,7 
+AEd_WindowNext:92,7 
+AEd_WindowToggle:93,7 
+AEd_Redo:94,7 
+AEd_BlocSaveAscii:97,7 
+AEd_BlocSave:98,7 
+AEd_Replace:99,7 
+AEd_ReplaceNext:100,7
+AEd_ReplacePrevious:101,7
+AEd_Open:103,7
+AEd_PrintProgram:146,7
+AEd_HighlightAll:181,7
+AEd_ChangeConfig:182,7
+AEd_SaveAsName:152,7
+AEd_CloseName:153,7
+AEd_Rename:154,7
+AEd_GotoLine:76,7
+_LVOSupervisor:$FFFFFFE2,7
+_LVOExitIntr:$FFFFFFDC,7
+_LVOSchedule:$FFFFFFD6,7
+_LVOReschedule:$FFFFFFD0,7
+_LVOSwitch:$FFFFFFCA,7
+_LVODispatch:$FFFFFFC4,7
+_LVOException:$FFFFFFBE,7
+_LVOInitCode:$FFFFFFB8,7
+_LVOInitStruct:$FFFFFFB2,7
+_LVOMakeLibrary:$FFFFFFAC,7
+_LVOMakeFunctions:$FFFFFFA6,7
+_LVOFindResident:$FFFFFFA0,7
+_LVOInitResident:$FFFFFF9A,7
+_LVOAlert:$FFFFFF94,7
+_LVODebug:$FFFFFF8E,7
+_LVODisable:$FFFFFF88,7
+_LVOEnable:$FFFFFF82,7
+_LVOForbid:$FFFFFF7C,7
+_LVOPermit:$FFFFFF76,7
+_LVOSuperState:$FFFFFF6A,7
+_LVOUserState:$FFFFFF64,7
+_LVOAddIntServer:$FFFFFF58,7
+_LVORemIntServer:$FFFFFF52,7
+_LVOCause:$FFFFFF4C,7
+_LVOAllocate:$FFFFFF46,7
+_LVODeallocate:$FFFFFF40,7
+_LVOAllocMem:$FFFFFF3A,7
+_LVOAllocAbs:$FFFFFF34,7
+_LVOFreeMem:$FFFFFF2E,7
+_LVOAvailMem:$FFFFFF28,7
+_LVOAllocEntry:$FFFFFF22,7
+_LVOFreeEntry:$FFFFFF1C,7
+_LVOInsert:$FFFFFF16,7
+_LVOAddHead:$FFFFFF10,7
+_LVOAddTail:$FFFFFF0A,7
+_LVORemove:$FFFFFF04,7
+_LVORemHead:$FFFFFEFE,7
+_LVORemTail:$FFFFFEF8,7
+_LVOEnqueue:$FFFFFEF2,7
+_LVOFindName:$FFFFFEEC,7
+_LVOAddTask:$FFFFFEE6,7
+_LVORemTask:$FFFFFEE0,7
+_LVOFindTask:$FFFFFEDA,7
+_LVOWait:$FFFFFEC2,7
+_LVOSignal:$FFFFFEBC,7
+_LVOAllocSignal:$FFFFFEB6,7
+_LVOFreeSignal:$FFFFFEB0,7
+_LVOAllocTrap:$FFFFFEAA,7
+_LVOFreeTrap:$FFFFFEA4,7
+_LVOAddPort:$FFFFFE9E,7
+_LVORemPort:$FFFFFE98,7
+_LVOPutMsg:$FFFFFE92,7
+_LVOGetMsg:$FFFFFE8C,7
+_LVOReplyMsg:$FFFFFE86,7
+_LVOWaitPort:$FFFFFE80,7
+_LVOFindPort:$FFFFFE7A,7
+_LVOAddLibrary:$FFFFFE74,7
+_LVORemLibrary:$FFFFFE6E,7
+_LVOOldOpenLibrary:$FFFFFE68,7
+_LVOCloseLibrary:$FFFFFE62,7
+_LVOSumLibrary:$FFFFFE56,7
+_LVOAddDevice:$FFFFFE50,7
+_LVORemDevice:$FFFFFE4A,7
+_LVOOpenDevice:$FFFFFE44,7
+_LVOCloseDevice:$FFFFFE3E,7
+_LVODoIO:$FFFFFE38,7
+_LVOSendIO:$FFFFFE32,7
+_LVOCheckIO:$FFFFFE2C,7
+_LVOWaitIO:$FFFFFE26,7
+_LVOAbortIO:$FFFFFE20,7
+_LVOAddResource:$FFFFFE1A,7
+_LVORemResource:$FFFFFE14,7
+_LVOOpenResource:$FFFFFE0E,7
+_LVORawIOInit:$FFFFFE08,7
+_LVORawMayGetChar:$FFFFFE02,7
+_LVORawPutChar:$FFFFFDFC,7
+_LVORawDoFmt:$FFFFFDF6,7
+_LVOGetCC:$FFFFFDF0,7
+_LVOTypeOfMem:$FFFFFDEA,7
+_LVOProcure:$FFFFFDE4,7
+_LVOVacate:$FFFFFDDE,7
+_LVOOpenLibrary:$FFFFFDD8,7
+_LVOInitSemaphore:$FFFFFDD2,7
+_LVOObtainSemaphore:$FFFFFDCC,7
+_LVOReleaseSemaphore:$FFFFFDC6,7
+_LVOAttemptSemaphore:$FFFFFDC0,7
+_LVOObtainSemaphoreList:$FFFFFDBA,7
+_LVOReleaseSemaphoreList:$FFFFFDB4,7
+_LVOFindSemaphore:$FFFFFDAE,7
+_LVOAddSemaphore:$FFFFFDA8,7
+_LVORemSemaphore:$FFFFFDA2,7
+_LVOSumKickData:$FFFFFD9C,7
+_LVOAddMemList:$FFFFFD96,7
+_LVOCopyMem:$FFFFFD90,7
+_LVOCopyMemQuick:$FFFFFD8A,7
+_LVOCacheClearU:$FFFFFD84,7
+_LVOCacheClearE:$FFFFFD7E,7
+_LVOCacheControl:$FFFFFD78,7
+_LVOCreateIORequest:$FFFFFD72,7
+_LVODeleteIORequest:$FFFFFD6C,7
+_LVOCreateMsgPort:$FFFFFD66,7
+_LVODeleteMsgPort:$FFFFFD60,7
+_LVOObtainSemaphoreShared:$FFFFFD5A,7
+_LVOAllocVec:$FFFFFD54,7
+_LVOFreeVec:$FFFFFD4E,7
+_LVOCreatePrivatePool:$FFFFFD48,7
+_LVODeletePrivatePool:$FFFFFD42,7
+_LVOAllocPooled:$FFFFFD3C,7
+_LVOFreePooled:$FFFFFD36,7
+_LVOColdReboot:$FFFFFD2A,7
+_LVOStackSwap:$FFFFFD24,7
+_LVOChildFree:$FFFFFD1E,7
+_LVOChildOrphan:$FFFFFD18,7
+_LVOChildStatus:$FFFFFD12,7
+_LVOChildWait:$FFFFFD0C,7
+_LVOExecReserved00:$FFFFFD06,7
+_LVOExecReserved01:$FFFFFD00,7
+_LVOExecReserved02:$FFFFFCFA,7
+_LVOExecReserved03:$FFFFFCF4,7
+_LVOOpen:-30,7
+_LVOClose:-36,7
+_LVORead:-42,7
+_LVOWrite:-48,7
+_LVOInput:-54,7
+_LVOOutput:-60,7
+_LVOSeek:-66,7
+_LVODeleteFile:-72,7
+_LVORename:-78,7
+_LVOLock:-84,7
+_LVOUnLock:-90,7
+_LVODupLock:-96,7
+_LVOExamine:-102,7
+_LVOExNext:-108,7
+_LVOInfo:-114,7
+_LVOCreateDir:-120,7
+_LVOCurrentDir:-126,7
+_LVOIoErr:-132,7
+_LVOCreateProc:-138,7
+_LVOExit:-144,7
+_LVOLoadSeg:-150,7
+_LVOUnLoadSeg:-156,7
+_LVOdosPrivate1:-162,7
+_LVOdosPrivate2:-168,7
+_LVODeviceProc:-174,7
+_LVOSetComment:-180,7
+_LVOSetProtection:-186,7
+_LVODateStamp:-192,7
+_LVODelay:-198,7
+_LVOWaitForChar:-204,7
+_LVOParentDir:-210,7
+_LVOIsInteractive:-216,7
+_LVOExecute:-222,7
+_LVOAllocDosObject:-228,7
+_LVOFreeDosObject:-234,7
+_LVODoPkt:-240,7
+_LVOSendPkt:-246,7
+_LVOWaitPkt:-252,7
+_LVOReplyPkt:-258,7
+_LVOAbortPkt:-264,7
+_LVOLockRecord:-270,7
+_LVOLockRecords:-276,7
+_LVOUnLockRecord:-282,7
+_LVOUnLockRecords:-288,7
+_LVOSelectInput:-294,7
+_LVOSelectOutput:-300,7
+_LVOFGetC:-306,7
+_LVOFPutC:-312,7
+_LVOUnGetC:-318,7
+_LVOFRead:-324,7
+_LVOFWrite:-330,7
+_LVOFGets:-336,7
+_LVOFPuts:-342,7
+_LVOVFWritef:-348,7
+_LVOVFPrintf:-354,7
+_LVOFlush:-360,7
+_LVOSetVBuf:-366,7
+_LVODupLockFromFH:-372,7
+_LVOOpenFromLock:-378,7
+_LVOParentOfFH:-384,7
+_LVOExamineFH:-390,7
+_LVOSetFileDate:-396,7
+_LVONameFromLock:-402,7
+_LVONameFromFH:-408,7
+_LVOSplitName:-414,7
+_LVOSameLock:-420,7
+_LVOSetMode:-426,7
+_LVOExAll:-432,7
+_LVOReadLink:-438,7
+_LVOMakeLink:-444,7
+_LVOChangeMode:-450,7
+_LVOSetFileSize:-456,7
+_LVOSetIoErr:-462,7
+_LVOFault:-468,7
+_LVOPrintFault:-474,7
+_LVOErrorReport:-480,7
+_LVOCli:-492,7
+_LVOCreateNewProc:-498,7
+_LVORunCommand:-504,7
+_LVOGetConsoleTask:-510,7
+_LVOSetConsoleTask:-516,7
+_LVOGetFileSysTask:-522,7
+_LVOSetFileSysTask:-528,7
+_LVOGetArgStr:-534,7
+_LVOSetArgStr:-540,7
+_LVOFindCliProc:-546,7
+_LVOMaxCli:-552,7
+_LVOSetCurrentDirName:-558,7
+_LVOGetCurrentDirName:-564,7
+_LVOSetProgramName:-570,7
+_LVOGetProgramName:-576,7
+_LVOSetPrompt:-582,7
+_LVOGetPrompt:-588,7
+_LVOSetProgramDir:-594,7
+_LVOGetProgramDir:-600,7
+_LVOSystemTagList:-606,7
+_LVOAssignLock:-612,7
+_LVOAssignLate:-618,7
+_LVOAssignPath:-624,7
+_LVOAssignAdd:-630,7
+_LVORemAssignList:-636,7
+_LVOGetDeviceProc:-642,7
+_LVOFreeDeviceProc:-648,7
+_LVOLockDosList:-654,7
+_LVOUnLockDosList:-660,7
+_LVOAttemptLockDosList:-666,7
+_LVORemDosEntry:-672,7
+_LVOAddDosEntry:-678,7
+_LVOFindDosEntry:-684,7
+_LVONextDosEntry:-690,7
+_LVOMakeDosEntry:-696,7
+_LVOFreeDosEntry:-702,7
+_LVOIsFileSystem:-708,7
+_LVOFormat:-714,7
+_LVORelabel:-720,7
+_LVOInhibit:-726,7
+_LVOAddBuffers:-732,7
+_LVOCompareDates:-738,7
+_LVODateToStr:-744,7
+_LVOStrToDate:-750,7
+_LVOInternalLoadSeg:-756,7
+_LVOInternalUnLoadSeg:-762,7
+_LVONewLoadSeg:-768,7
+_LVOAddSegment:-774,7
+_LVOFindSegment:-780,7
+_LVORemSegment:-786,7
+_LVOCheckSignal:-792,7
+_LVOReadArgs:-798,7
+_LVOFindArg:-804,7
+_LVOReadItem:-810,7
+_LVOStrToLong:-816,7
+_LVOMatchFirst:-822,7
+_LVOMatchNext:-828,7
+_LVOMatchEnd:-834,7
+_LVOParsePattern:-840,7
+_LVOMatchPattern:-846,7
+_LVOdosPrivate3:-852,7
+_LVOFreeArgs:-858,7
+_LVOFilePart:-870,7
+_LVOPathPart:-876,7
+_LVOAddPart:-882,7
+_LVOStartNotify:-888,7
+_LVOEndNotify:-894,7
+_LVOSetVar:-900,7
+_LVOGetVar:-906,7
+_LVODeleteVar:-912,7
+_LVOFindVar:-918,7
+_LVOdosPrivate4:-924,7
+_LVOCliInitNewcli:-930,7
+_LVOCliInitRun:-936,7
+_LVOWriteChars:-942,7
+_LVOPutStr:-948,7
+_LVOVPrintf:-954,7
+_LVOParsePatternNoCase:-966,7
+_LVOMatchPatternNoCase:-972,7
+_LVOdosPrivate5:-978,7
+_LVOSameDevice:-984,7
+_LVOExAllEnd:-990,7
+_LVOSetOwner:-996,7
+_LVOIEEEDPFix:$FFFFFFE2,7
+_LVOIEEEDPFlt:$FFFFFFDC,7
+_LVOIEEEDPCmp:$FFFFFFD6,7
+_LVOIEEEDPTst:$FFFFFFD0,7
+_LVOIEEEDPAbs:$FFFFFFCA,7
+_LVOIEEEDPNeg:$FFFFFFC4,7
+_LVOIEEEDPAdd:$FFFFFFBE,7
+_LVOIEEEDPSub:$FFFFFFB8,7
+_LVOIEEEDPMul:$FFFFFFB2,7
+_LVOIEEEDPDiv:$FFFFFFAC,7
+_LVOIEEEDPFloor:$FFFFFFA6,7
+_LVOIEEEDPCeil:$FFFFFFA0,7
+_LVOIEEEDPAtan:$FFFFFFE2,7
+_LVOIEEEDPSin:$FFFFFFDC,7
+_LVOIEEEDPCos:$FFFFFFD6,7
+_LVOIEEEDPTan:$FFFFFFD0,7
+_LVOIEEEDPSincas:$FFFFFFCA,7
+_LVOIEEEDPSinh:$FFFFFFC4,7
+_LVOIEEEDPCosh:$FFFFFFBE,7
+_LVOIEEEDPTanh:$FFFFFFB8,7
+_LVOIEEEDPExp:$FFFFFFB2,7
+_LVOIEEEDPLog:$FFFFFFAC,7
+_LVOIEEEDPPow:$FFFFFFA6,7
+_LVOIEEEDPSqrt:$FFFFFFA0,7
+_LVOIEEEDPTieee:$FFFFFF9A,7
+_LVOIEEEDPFieee:$FFFFFF94,7
+_LVOIEEEDPAsin:$FFFFFF8E,7
+_LVOIEEEDPAcos:$FFFFFF88,7
+_LVOIEEEDPLog10:$FFFFFF82,7
+_LVOSPAtan:$FFFFFFE2,7
+_LVOSPSin:$FFFFFFDC,7
+_LVOSPCos:$FFFFFFD6,7
+_LVOSPTan:$FFFFFFD0,7
+_LVOSPSincos:$FFFFFFCA,7
+_LVOSPSinh:$FFFFFFC4,7
+_LVOSPCosh:$FFFFFFBE,7
+_LVOSPTanh:$FFFFFFB8,7
+_LVOSPExp:$FFFFFFB2,7
+_LVOSPLog:$FFFFFFAC,7
+_LVOSPPow:$FFFFFFA6,7
+_LVOSPSqrt:$FFFFFFA0,7
+_LVOSPTieee:$FFFFFF9A,7
+_LVOSPFieee:$FFFFFF94,7
+_LVOSPAsin:$FFFFFF8E,7
+_LVOSPAcos:$FFFFFF88,7
+_LVOSPLog10:$FFFFFF82,7
+_LVOSPFix:$FFFFFFE2,7
+_LVOSPFlt:$FFFFFFDC,7
+_LVOSPCmp:$FFFFFFD6,7
+_LVOSPTst:$FFFFFFD0,7
+_LVOSPAbs:$FFFFFFCA,7
+_LVOSPNeg:$FFFFFFC4,7
+_LVOSPAdd:$FFFFFFBE,7
+_LVOSPSub:$FFFFFFB8,7
+_LVOSPMul:$FFFFFFB2,7
+_LVOSPDiv:$FFFFFFAC,7
+_LVOSPFloor:$FFFFFFA6,7
+_LVOSPCeil:$FFFFFFA0,7
+_LVOOAssignValue:$FFFFFFC4,7
+
+INCLUDE_VERSION:$24,7
+LIBRARY_MINIMUM:$21,7
+LN:$0,7
+LN_SUCC:$0,6
+LN_PRED:$4,6
+LN_TYPE:$8,3
+LN_PRI:$9,0
+LN_NAME:$A,6
+LN_SIZE:$E,7
+MLN:$0,7
+MLN_SUCC:$0,6
+MLN_PRED:$4,6
+MLN_SIZE:$8,7
+NT_UNKNOWN:$0,7
+NT_TASK:$1,7
+NT_INTERRUPT:$2,7
+NT_DEVICE:$3,7
+NT_MSGPORT:$4,7
+NT_MESSAGE:$5,7
+NT_FREEMSG:$6,7
+NT_REPLYMSG:$7,7
+NT_RESOURCE:$8,7
+NT_LIBRARY:$9,7
+NT_MEMORY:$A,7
+NT_SOFTINT:$B,7
+NT_FONT:$C,7
+NT_PROCESS:$D,7
+NT_SEMAPHORE:$E,7
+NT_SIGNALSEM:$F,7
+NT_BOOTNODE:$10,7
+NT_KICKMEM:$11,7
+NT_GRAPHICS:$12,7
+NT_DEATHMESSAGE:$13,7
+NT_USER:$FE,7
+NT_EXTENDED:$FF,7
+LH:$0,7
+LH_HEAD:$0,6
+LH_TAIL:$4,6
+LH_TAILPRED:$8,6
+LH_TYPE:$C,3
+LH_pad:$D,3
+LH_SIZE:$E,7
+MLH:$0,7
+MLH_HEAD:$0,6
+MLH_TAIL:$4,6
+MLH_TAILPRED:$8,6
+MLH_SIZE:$C,7
+ACPU_BusErr:$80000002,7
+ACPU_AddressErr:$80000003,7
+ACPU_InstErr:$80000004,7
+ACPU_DivZero:$80000005,7
+ACPU_CHK:$80000006,7
+ACPU_TRAPV:$80000007,7
+ACPU_PrivErr:$80000008,7
+ACPU_Trace:$80000009,7
+ACPU_LineA:$8000000A,7
+ACPU_LineF:$8000000B,7
+ACPU_Format:$8000000E,7
+ACPU_Spurious:$80000018,7
+ACPU_AutoVec1:$80000019,7
+ACPU_AutoVec2:$8000001A,7
+ACPU_AutoVec3:$8000001B,7
+ACPU_AutoVec4:$8000001C,7
+ACPU_AutoVec5:$8000001D,7
+ACPU_AutoVec6:$8000001E,7
+ACPU_AutoVec7:$8000001F,7
+AT_DeadEnd:$80000000,7
+AT_Recovery:$0,7
+AG_NoMemory:$10000,7
+AG_MakeLib:$20000,7
+AG_OpenLib:$30000,7
+AG_OpenDev:$40000,7
+AG_OpenRes:$50000,7
+AG_IOError:$60000,7
+AG_NoSignal:$70000,7
+AG_BadParm:$80000,7
+AG_CloseLib:$90000,7
+AG_CloseDev:$A0000,7
+AG_ProcCreate:$B0000,7
+AO_ExecLib:$8001,7
+AO_GraphicsLib:$8002,7
+AO_LayersLib:$8003,7
+AO_Intuition:$8004,7
+AO_MathLib:$8005,7
+AO_DOSLib:$8007,7
+AO_RAMLib:$8008,7
+AO_IconLib:$8009,7
+AO_ExpansionLib:$800A,7
+AO_DiskfontLib:$800B,7
+AO_UtilityLib:$800C,7
+AO_KeyMapLib:$800D,7
+AO_AudioDev:$8010,7
+AO_ConsoleDev:$8011,7
+AO_GamePortDev:$8012,7
+AO_KeyboardDev:$8013,7
+AO_TrackDiskDev:$8014,7
+AO_TimerDev:$8015,7
+AO_CIARsrc:$8020,7
+AO_DiskRsrc:$8021,7
+AO_MiscRsrc:$8022,7
+AO_BootStrap:$8030,7
+AO_Workbench:$8031,7
+AO_DiskCopy:$8032,7
+AO_GadTools:$8033,7
+AO_Unknown:$8035,7
+AN_ExecLib:$1000000,7
+AN_ExcptVect:$1000001,7
+AN_BaseChkSum:$1000002,7
+AN_LibChkSum:$1000003,7
+AN_MemCorrupt:$81000005,7
+AN_IntrMem:$81000006,7
+AN_InitAPtr:$1000007,7
+AN_SemCorrupt:$1000008,7
+AN_FreeTwice:$1000009,7
+AN_BogusExcpt:$8100000A,7
+AN_IOUsedTwice:$100000B,7
+AN_MemoryInsane:$100000C,7
+AN_IOAfterClose:$100000D,7
+AN_StackProbe:$100000E,7
+AN_BadFreeAddr:$100000F,7
+AN_BadSemaphore:$1000010,7
+AN_GraphicsLib:$2000000,7
+AN_GfxNoMem:$82010000,7
+AN_GfxNoMemMspc:$82010001,7
+AN_LongFrame:$82010006,7
+AN_ShortFrame:$82010007,7
+AN_TextTmpRas:$2010009,7
+AN_BltBitMap:$8201000A,7
+AN_RegionMemory:$8201000B,7
+AN_MakeVPort:$82010030,7
+AN_GfxNewError:$200000C,7
+AN_GfxFreeError:$200000D,7
+AN_GfxNoLCM:$82011234,7
+AN_ObsoleteFont:$2000401,7
+AN_LayersLib:$3000000,7
+AN_LayersNoMem:$83010000,7
+AN_Intuition:$4000000,7
+AN_GadgetType:$84000001,7
+AN_BadGadget:$4000001,7
+AN_CreatePort:$84010002,7
+AN_ItemAlloc:$4010003,7
+AN_SubAlloc:$4010004,7
+AN_PlaneAlloc:$84010005,7
+AN_ItemBoxTop:$84000006,7
+AN_OpenScreen:$84010007,7
+AN_OpenScrnRast:$84010008,7
+AN_SysScrnType:$84000009,7
+AN_AddSWGadget:$8401000A,7
+AN_OpenWindow:$8401000B,7
+AN_BadState:$8400000C,7
+AN_BadMessage:$8400000D,7
+AN_WeirdEcho:$8400000E,7
+AN_NoConsole:$8400000F,7
+AN_NoISem:$4000010,7
+AN_ISemOrder:$4000011,7
+AN_MathLib:$5000000,7
+AN_DOSLib:$7000000,7
+AN_StartMem:$7010001,7
+AN_EndTask:$7000002,7
+AN_QPktFail:$7000003,7
+AN_AsyncPkt:$7000004,7
+AN_FreeVec:$7000005,7
+AN_DiskBlkSeq:$7000006,7
+AN_BitMap:$7000007,7
+AN_KeyFree:$7000008,7
+AN_BadChkSum:$7000009,7
+AN_DiskError:$700000A,7
+AN_KeyRange:$700000B,7
+AN_BadOverlay:$700000C,7
+AN_BadInitFunc:$700000D,7
+AN_FileReclosed:$700000E,7
+AN_RAMLib:$8000000,7
+AN_BadSegList:$8000001,7
+AN_IconLib:$9000000,7
+AN_ExpansionLib:$A000000,7
+AN_BadExpansionFree:$A000001,7
+AN_DiskfontLib:$B000000,7
+AN_AudioDev:$10000000,7
+AN_ConsoleDev:$11000000,7
+AN_NoWindow:$11000001,7
+AN_GamePortDev:$12000000,7
+AN_KeyboardDev:$13000000,7
+AN_TrackDiskDev:$14000000,7
+AN_TDCalibSeek:$14000001,7
+AN_TDDelay:$14000002,7
+AN_TimerDev:$15000000,7
+AN_TMBadReq:$15000001,7
+AN_TMBadSupply:$15000002,7
+AN_CIARsrc:$20000000,7
+AN_DiskRsrc:$21000000,7
+AN_DRHasDisk:$21000001,7
+AN_DRIntNoAct:$21000002,7
+AN_MiscRsrc:$22000000,7
+AN_BootStrap:$30000000,7
+AN_BootError:$30000001,7
+AN_Workbench:$31000000,7
+AN_NoFonts:$B1000001,7
+AN_WBBadStartupMsg1:$31000001,7
+AN_WBBadStartupMsg2:$31000002,7
+AN_WBBadIOMsg:$31000003,7
+AN_WBReLayoutToolMenu:$B1010009,7
+AN_DiskCopy:$32000000,7
+AN_GadTools:$33000000,7
+AN_UtilityLib:$34000000,7
+AN_Unknown:$35000000,7
+IOERR_OPENFAIL:$FFFFFFFF,7
+IOERR_ABORTED:$FFFFFFFE,7
+IOERR_NOCMD:$FFFFFFFD,7
+IOERR_BADLENGTH:$FFFFFFFC,7
+IOERR_BADADDRESS:$FFFFFFFB,7
+IOERR_UNITBUSY:$FFFFFFFA,7
+IOERR_SELFTEST:$FFFFFFF9,7
+ERR_OPENDEVICE:$FFFFFFFF,7
+RT:$0,7
+RT_MATCHWORD:$0,4
+RT_MATCHTAG:$2,6
+RT_ENDSKIP:$6,6
+RT_FLAGS:$A,3
+RT_VERSION:$B,3
+RT_TYPE:$C,3
+RT_PRI:$D,0
+RT_NAME:$E,6
+RT_IDSTRING:$12,6
+RT_INIT:$16,6
+RT_SIZE:$1A,7
+RTC_MATCHWORD:$4AFC,7
+RTB_COLDSTART:$0,7
+RTF_COLDSTART:$1,7
+RTB_SINGLETASK:$1,7
+RTF_SINGLETASK:$2,7
+RTB_AFTERDOS:$2,7
+RTF_AFTERDOS:$4,7
+RTB_AUTOINIT:$7,7
+RTF_AUTOINIT:$80,7
+RTW_NEVER:$0,7
+RTW_COLDSTART:$1,7
+EOS:$0,7
+BELL:$7,7
+LF:$A,7
+CR:$D,7
+BS:$8,7
+DEL:$7F,7
+NL:$A,7
+ML:$0,7
+ML_NUMENTRIES:$E,4
+ML_ME:$10,7
+ML_SIZE:$10,7
+ME:$0,7
+ME_REQS:$0,7
+ME_ADDR:$0,6
+ME_LENGTH:$4,5
+ME_SIZE:$8,7
+MEMF_ANY:$0,7
+MEMB_PUBLIC:$0,7
+MEMF_PUBLIC:$1,7
+MEMB_CHIP:$1,7
+MEMF_CHIP:$2,7
+MEMB_FAST:$2,7
+MEMF_FAST:$4,7
+MEMB_LOCAL:$8,7
+MEMF_LOCAL:$100,7
+MEMB_24BITDMA:$9,7
+MEMF_24BITDMA:$200,7
+MEMB_KICK:$A,7
+MEMF_KICK:$400,7
+MEMB_CLEAR:$10,7
+MEMF_CLEAR:$10000,7
+MEMB_LARGEST:$11,7
+MEMF_LARGEST:$20000,7
+MEMB_REVERSE:$12,7
+MEMF_REVERSE:$40000,7
+MEMB_TOTAL:$13,7
+MEMF_TOTAL:$80000,7
+MEMB_NO_EXPUNGE:$1F,7
+MEMF_NO_EXPUNGE:$80000000,7
+MEM_BLOCKSIZE:$8,7
+MEM_BLOCKMASK:$7,7
+MemHandlerData:$0,7
+memh_RequestSize:$0,5
+memh_RequestFlags:$4,5
+memh_Flags:$8,5
+memh_SIZEOF:$C,7
+MEMHB_RECYCLE:$0,7
+MEMHF_RECYCLE:$1,7
+MEM_DID_NOTHING:$0,7
+MEM_ALL_DONE:$FFFFFFFF,7
+MEM_TRY_AGAIN:$1,7
+MH:$0,7
+MH_ATTRIBUTES:$E,4
+MH_FIRST:$10,6
+MH_LOWER:$14,6
+MH_UPPER:$18,6
+MH_FREE:$1C,5
+MH_SIZE:$20,7
+MC:$0,7
+MC_NEXT:$0,6
+MC_BYTES:$4,5
+MC_SIZE:$8,6
+MP:$0,7
+MP_FLAGS:$E,3
+MP_SIGBIT:$F,3
+MP_SIGTASK:$10,6
+MP_MSGLIST:$14,7
+MP_SIZE:$22,7
+MP_SOFTINT:$10,7
+PF_ACTION:$3,7
+PA_SIGNAL:$0,7
+PA_SOFTINT:$1,7
+PA_IGNORE:$2,7
+MN:$0,7
+MN_REPLYPORT:$E,6
+MN_LENGTH:$12,4
+MN_SIZE:$14,7
+TC_Struct:$0,7
+TC_FLAGS:$E,3
+TC_STATE:$F,3
+TC_IDNESTCNT:$10,0
+TC_TDNESTCNT:$11,0
+TC_SIGALLOC:$12,5
+TC_SIGWAIT:$16,5
+TC_SIGRECVD:$1A,5
+TC_SIGEXCEPT:$1E,5
+tc_ETask:$22,6
+TC_EXCEPTDATA:$26,6
+TC_EXCEPTCODE:$2A,6
+TC_TRAPDATA:$2E,6
+TC_TRAPCODE:$32,6
+TC_SPREG:$36,6
+TC_SPLOWER:$3A,6
+TC_SPUPPER:$3E,6
+TC_SWITCH:$42,7
+TC_LAUNCH:$46,7
+TC_MEMENTRY:$4A,7
+TC_Userdata:$58,6
+TC_SIZE:$5C,7
+ETask:$0,7
+et_Parent:$14,6
+et_UniqueID:$18,5
+et_Children:$1C,7
+et_TRAPALLOC:$28,4
+et_TRAPABLE:$2A,4
+et_Result1:$2C,5
+et_Result2:$30,6
+et_TaskMsgPort:$34,7
+ETask_SIZEOF:$56,7
+CHILD_NOTNEW:$1,7
+CHILD_NOTFOUND:$2,7
+CHILD_EXITED:$3,7
+CHILD_ACTIVE:$4,7
+StackSwapStruct:$0,7
+stk_Lower:$0,6
+stk_Upper:$4,5
+stk_Pointer:$8,6
+StackSwapStruct_SIZEOF:$C,7
+TB_PROCTIME:$0,7
+TF_PROCTIME:$1,7
+TB_ETASK:$3,7
+TF_ETASK:$8,7
+TB_STACKCHK:$4,7
+TF_STACKCHK:$10,7
+TB_EXCEPT:$5,7
+TF_EXCEPT:$20,7
+TB_SWITCH:$6,7
+TF_SWITCH:$40,7
+TB_LAUNCH:$7,7
+TF_LAUNCH:$80,7
+TS_INVALID:$0,7
+TS_ADDED:$1,7
+TS_RUN:$2,7
+TS_READY:$3,7
+TS_WAIT:$4,7
+TS_EXCEPT:$5,7
+TS_REMOVED:$6,7
+SIGB_ABORT:$0,7
+SIGF_ABORT:$1,7
+SIGB_CHILD:$1,7
+SIGF_CHILD:$2,7
+SIGB_BLIT:$4,7
+SIGF_BLIT:$10,7
+SIGB_SINGLE:$4,7
+SIGF_SINGLE:$10,7
+SIGB_INTUITION:$5,7
+SIGF_INTUITION:$20,7
+SIGB_NET:$7,7
+SIGF_NET:$80,7
+SIGB_DOS:$8,7
+SIGF_DOS:$100,7
+SYS_SIGALLOC:$FFFF,7
+SYS_TRAPALLOC:$8000,7
+IS:$0,7
+IS_DATA:$E,6
+IS_CODE:$12,6
+IS_SIZE:$16,7
+IV:$0,7
+IV_DATA:$0,6
+IV_CODE:$4,6
+IV_NODE:$8,6
+IV_SIZE:$C,7
+SB_SAR:$F,7
+SF_SAR:$8000,7
+SB_TQE:$E,7
+SF_TQE:$4000,7
+SB_SINT:$D,7
+SF_SINT:$2000,7
+SH:$0,7
+SH_PAD:$E,4
+SH_SIZE:$10,7
+SIH_PRIMASK:$F0,7
+SIH_QUEUES:$5,7
+INTB_NMI:$F,7
+INTF_NMI:$8000,7
+SSR:$0,7
+SSR_WAITER:$8,6
+SSR_SIZE:$C,7
+SS:$0,7
+SS_NESTCOUNT:$E,1
+SS_WAITQUEUE:$10,7
+SS_MULTIPLELINK:$1C,7
+SS_OWNER:$28,6
+SS_QUEUECOUNT:$2C,1
+SS_SIZE:$2E,7
+SemaphoreMessage:$0,7
+SSM_SEMAPHORE:$14,6
+SSM_SIZEOF:$18,7
+SM:$0,7
+SM_BIDS:$22,1
+SM_SIZE:$24,7
+SM_LOCKMSG:$10,7
+LIB_VECTSIZE:$6,7
+LIB_RESERVED:$4,7
+LIB_BASE:$FFFFFFFA,7
+LIB_USERDEF:$FFFFFFE2,7
+LIB_NONSTD:$FFFFFFE2,7
+LIB_OPEN:$FFFFFFFA,7
+LIB_CLOSE:$FFFFFFF4,7
+LIB_EXPUNGE:$FFFFFFEE,7
+LIB_EXTFUNC:$FFFFFFE8,7
+LIB:$0,7
+LIB_FLAGS:$E,3
+LIB_pad:$F,3
+LIB_NEGSIZE:$10,4
+LIB_POSSIZE:$12,4
+LIB_VERSION:$14,4
+LIB_REVISION:$16,4
+LIB_IDSTRING:$18,6
+LIB_SUM:$1C,5
+LIB_OPENCNT:$20,4
+LIB_SIZE:$22,7
+LIBB_SUMMING:$0,7
+LIBF_SUMMING:$1,7
+LIBB_CHANGED:$1,7
+LIBF_CHANGED:$2,7
+LIBB_SUMUSED:$2,7
+LIBF_SUMUSED:$4,7
+LIBB_DELEXP:$3,7
+LIBF_DELEXP:$8,7
+LIBB_EXP0CNT:$4,7
+LIBF_EXP0CNT:$10,7
+IO:$0,7
+IO_DEVICE:$14,6
+IO_UNIT:$18,6
+IO_COMMAND:$1C,4
+IO_FLAGS:$1E,3
+IO_ERROR:$1F,0
+IO_SIZE:$20,7
+IO_ACTUAL:$20,5
+IO_LENGTH:$24,5
+IO_DATA:$28,6
+IO_OFFSET:$2C,5
+IOSTD_SIZE:$30,7
+IOB_QUICK:$0,7
+IOF_QUICK:$1,7
+DEV_BEGINIO:$FFFFFFE2,7
+DEV_ABORTIO:$FFFFFFDC,7
+CMD_INVALID:$0,7
+CMD_RESET:$1,7
+CMD_READ:$2,7
+CMD_WRITE:$3,7
+CMD_UPDATE:$4,7
+CMD_CLEAR:$5,7
+CMD_STOP:$6,7
+CMD_START:$7,7
+CMD_FLUSH:$8,7
+CMD_NONSTD:$9,7
+DD:$0,7
+DD_SIZE:$22,7
+UNIT:$0,7
+UNIT_FLAGS:$22,3
+UNIT_pad:$23,3
+UNIT_OPENCNT:$24,4
+UNIT_SIZE:$26,7
+UNITB_ACTIVE:$0,7
+UNITF_ACTIVE:$1,7
+UNITB_INTASK:$1,7
+UNITF_INTASK:$2,7
+ExecBase:$0,7
+SoftVer:$22,4
+LowMemChkSum:$24,1
+ChkBase:$26,5
+ColdCapture:$2A,6
+CoolCapture:$2E,6
+WarmCapture:$32,6
+SysStkUpper:$36,6
+SysStkLower:$3A,6
+MaxLocMem:$3E,5
+DebugEntry:$42,6
+DebugData:$46,6
+AlertData:$4A,6
+MaxExtMem:$4E,6
+ChkSum:$52,1
+IntVects:$54,7
+IVTBE:$54,7
+IVDSKBLK:$60,7
+IVSOFTINT:$6C,7
+IVPORTS:$78,7
+IVCOPER:$84,7
+IVVERTB:$90,7
+IVBLIT:$9C,7
+IVAUD0:$A8,7
+IVAUD1:$B4,7
+IVAUD2:$C0,7
+IVAUD3:$CC,7
+IVRBF:$D8,7
+IVDSKSYNC:$E4,7
+IVEXTER:$F0,7
+IVINTEN:$FC,7
+IVNMI:$108,7
+ThisTask:$114,6
+IdleCount:$118,5
+DispCount:$11C,5
+Quantum:$120,4
+Elapsed:$122,4
+SysFlags:$124,4
+IDNestCnt:$126,0
+TDNestCnt:$127,0
+AttnFlags:$128,4
+AttnResched:$12A,4
+ResModules:$12C,6
+TaskTrapCode:$130,6
+TaskExceptCode:$134,6
+TaskExitCode:$138,6
+TaskSigAlloc:$13C,5
+TaskTrapAlloc:$140,4
+MemList:$142,7
+ResourceList:$150,7
+DeviceList:$15E,7
+IntrList:$16C,7
+LibList:$17A,7
+PortList:$188,7
+TaskReady:$196,7
+TaskWait:$1A4,7
+SoftInts:$1B2,7
+LastAlert:$202,7
+VBlankFrequency:$212,3
+PowerSupplyFrequency:$213,3
+SemaphoreList:$214,7
+KickMemPtr:$222,6
+KickTagPtr:$226,6
+KickCheckSum:$22A,6
+ex_Pad0:$22E,4
+ex_LaunchPoint:$230,5
+ex_RamLibPrivate:$234,6
+ex_EClockFrequency:$238,5
+ex_CacheControl:$23C,5
+ex_TaskID:$240,5
+ex_Reserved1:$244,7
+ex_MMULock:$258,6
+ex_Reserved2:$25C,7
+ex_MemHandlers:$268,7
+ex_MemHandler:$274,6
+SYSBASESIZE:$278,7
+AFB_68010:$0,7
+AFF_68010:$1,7
+AFB_68020:$1,7
+AFF_68020:$2,7
+AFB_68030:$2,7
+AFF_68030:$4,7
+AFB_68040:$3,7
+AFF_68040:$8,7
+AFB_68881:$4,7
+AFF_68881:$10,7
+AFB_68882:$5,7
+AFF_68882:$20,7
+AFB_FPU40:$6,7
+AFF_FPU40:$40,7
+AFB_PRIVATE:$F,7
+AFF_PRIVATE:$8000,7
+CACRB_EnableI:$0,7
+CACRF_EnableI:$1,7
+CACRB_FreezeI:$1,7
+CACRF_FreezeI:$2,7
+CACRB_ClearI:$3,7
+CACRF_ClearI:$8,7
+CACRB_IBE:$4,7
+CACRF_IBE:$10,7
+CACRB_EnableD:$8,7
+CACRF_EnableD:$100,7
+CACRB_FreezeD:$9,7
+CACRF_FreezeD:$200,7
+CACRB_ClearD:$B,7
+CACRF_ClearD:$800,7
+CACRB_DBE:$C,7
+CACRF_DBE:$1000,7
+CACRB_WriteAllocate:$D,7
+CACRF_WriteAllocate:$2000,7
+CACRB_EnableE:$1E,7
+CACRF_EnableE:$40000000,7
+CACRB_CopyBack:$1F,7
+CACRF_CopyBack:$80000000,7
+DMAB_Continue:$1,7
+DMAF_Continue:$2,7
+DMAB_NoModify:$2,7
+DMAF_NoModify:$4,7
+DOSTRUE:$FFFFFFFF,7
+DOSFALSE:$0,7
+MODE_OLDFILE:$3ED,7
+MODE_NEWFILE:$3EE,7
+MODE_READWRITE:$3EC,7
+OFFSET_BEGINNING:$FFFFFFFF,7
+OFFSET_CURRENT:$0,7
+OFFSET_END:$1,7
+OFFSET_BEGINING:$FFFFFFFF,7
+BITSPERBYTE:$8,7
+BYTESPERLONG:$4,7
+BITSPERLONG:$20,7
+MAXINT:$7FFFFFFF,7
+MININT:$80000000,7
+SHARED_LOCK:$FFFFFFFE,7
+ACCESS_READ:$FFFFFFFE,7
+EXCLUSIVE_LOCK:$FFFFFFFF,7
+ACCESS_WRITE:$FFFFFFFF,7
+DateStamp:$0,7
+ds_Days:$0,2
+ds_Minute:$4,2
+ds_Tick:$8,2
+ds_SIZEOF:$C,7
+TICKS_PER_SECOND:$32,7
+FileInfoBlock:$0,7
+fib_DiskKey:$0,2
+fib_DirEntryType:$4,2
+fib_FileName:$8,7
+fib_Protection:$74,2
+fib_EntryType:$78,2
+fib_Size:$7C,2
+fib_NumBlocks:$80,2
+fib_DateStamp:$84,7
+fib_Comment:$90,7
+fib_OwnerUID:$E0,4
+fib_OwnerGID:$E2,4
+fib_Reserved:$E4,7
+fib_SIZEOF:$104,7
+FIBB_OTR_READ:$F,7
+FIBF_OTR_READ:$8000,7
+FIBB_OTR_WRITE:$E,7
+FIBF_OTR_WRITE:$4000,7
+FIBB_OTR_EXECUTE:$D,7
+FIBF_OTR_EXECUTE:$2000,7
+FIBB_OTR_DELETE:$C,7
+FIBF_OTR_DELETE:$1000,7
+FIBB_GRP_READ:$B,7
+FIBF_GRP_READ:$800,7
+FIBB_GRP_WRITE:$A,7
+FIBF_GRP_WRITE:$400,7
+FIBB_GRP_EXECUTE:$9,7
+FIBF_GRP_EXECUTE:$200,7
+FIBB_GRP_DELETE:$8,7
+FIBF_GRP_DELETE:$100,7
+FIBB_SCRIPT:$6,7
+FIBF_SCRIPT:$40,7
+FIBB_PURE:$5,7
+FIBF_PURE:$20,7
+FIBB_ARCHIVE:$4,7
+FIBF_ARCHIVE:$10,7
+FIBB_READ:$3,7
+FIBF_READ:$8,7
+FIBB_WRITE:$2,7
+FIBF_WRITE:$4,7
+FIBB_EXECUTE:$1,7
+FIBF_EXECUTE:$2,7
+FIBB_DELETE:$0,7
+FIBF_DELETE:$1,7
+FAULT_MAX:$52,7
+InfoData:$0,7
+id_NumSoftErrors:$0,2
+id_UnitNumber:$4,2
+id_DiskState:$8,2
+id_NumBlocks:$C,2
+id_NumBlocksUsed:$10,2
+id_BytesPerBlock:$14,2
+id_DiskType:$18,2
+id_VolumeNode:$1C,2
+id_InUse:$20,2
+id_SIZEOF:$24,7
+ID_WRITE_PROTECTED:$50,7
+ID_VALIDATING:$51,7
+ID_VALIDATED:$52,7
+ID_NO_DISK_PRESENT:$FFFFFFFF,7
+ID_UNREADABLE_DISK:$42414400,7
+ID_NOT_REALLY_DOS:$4E444F53,7
+ID_DOS_DISK:$444F5300,7
+ID_FFS_DISK:$444F5301,7
+ID_INTER_DOS_DISK:$444F5302,7
+ID_INTER_FFS_DISK:$444F5303,7
+ID_FASTDIR_DOS_DISK:$444F5304,7
+ID_FASTDIR_FFS_DISK:$444F5305,7
+ID_KICKSTART_DISK:$4B49434B,7
+ID_MSDOS_DISK:$4D534400,7
+ERROR_NO_FREE_STORE:$67,7
+ERROR_TASK_TABLE_FULL:$69,7
+ERROR_BAD_TEMPLATE:$72,7
+ERROR_BAD_NUMBER:$73,7
+ERROR_REQUIRED_ARG_MISSING:$74,7
+ERROR_KEY_NEEDS_ARG:$75,7
+ERROR_TOO_MANY_ARGS:$76,7
+ERROR_UNMATCHED_QUOTES:$77,7
+ERROR_LINE_TOO_LONG:$78,7
+ERROR_FILE_NOT_OBJECT:$79,7
+ERROR_INVALID_RESIDENT_LIBRARY:$7A,7
+ERROR_NO_DEFAULT_DIR:$C9,7
+ERROR_OBJECT_IN_USE:$CA,7
+ERROR_OBJECT_EXISTS:$CB,7
+ERROR_DIR_NOT_FOUND:$CC,7
+ERROR_OBJECT_NOT_FOUND:$CD,7
+ERROR_BAD_STREAM_NAME:$CE,7
+ERROR_OBJECT_TOO_LARGE:$CF,7
+ERROR_ACTION_NOT_KNOWN:$D1,7
+ERROR_INVALID_COMPONENT_NAME:$D2,7
+ERROR_INVALID_LOCK:$D3,7
+ERROR_OBJECT_WRONG_TYPE:$D4,7
+ERROR_DISK_NOT_VALIDATED:$D5,7
+ERROR_DISK_WRITE_PROTECTED:$D6,7
+ERROR_RENAME_ACROSS_DEVICES:$D7,7
+ERROR_DIRECTORY_NOT_EMPTY:$D8,7
+ERROR_TOO_MANY_LEVELS:$D9,7
+ERROR_DEVICE_NOT_MOUNTED:$DA,7
+ERROR_SEEK_ERROR:$DB,7
+ERROR_COMMENT_TOO_BIG:$DC,7
+ERROR_DISK_FULL:$DD,7
+ERROR_DELETE_PROTECTED:$DE,7
+ERROR_WRITE_PROTECTED:$DF,7
+ERROR_READ_PROTECTED:$E0,7
+ERROR_NOT_A_DOS_DISK:$E1,7
+ERROR_NO_DISK:$E2,7
+ERROR_NO_MORE_ENTRIES:$E8,7
+ERROR_IS_SOFT_LINK:$E9,7
+ERROR_OBJECT_LINKED:$EA,7
+ERROR_BAD_HUNK:$EB,7
+ERROR_NOT_IMPLEMENTED:$EC,7
+ERROR_RECORD_NOT_LOCKED:$F0,7
+ERROR_LOCK_COLLISION:$F1,7
+ERROR_LOCK_TIMEOUT:$F2,7
+ERROR_UNLOCK_ERROR:$F3,7
+RETURN_OK:$0,7
+RETURN_WARN:$5,7
+RETURN_ERROR:$A,7
+RETURN_FAIL:$14,7
+SIGBREAKB_CTRL_C:$C,7
+SIGBREAKF_CTRL_C:$1000,7
+SIGBREAKB_CTRL_D:$D,7
+SIGBREAKF_CTRL_D:$2000,7
+SIGBREAKB_CTRL_E:$E,7
+SIGBREAKF_CTRL_E:$4000,7
+SIGBREAKB_CTRL_F:$F,7
+SIGBREAKF_CTRL_F:$8000,7
+LOCK_DIFFERENT:$FFFFFFFF,7
+LOCK_SAME:$0,7
+LOCK_SAME_VOLUME:$1,7
+LOCK_SAME_HANDLER:$1,7
+CHANGE_LOCK:$0,7
+CHANGE_FH:$1,7
+LINK_HARD:$0,7
+LINK_SOFT:$1,7
+ITEM_EQUAL:$FFFFFFFE,7
+ITEM_ERROR:$FFFFFFFF,7
+ITEM_NOTHING:$0,7
+ITEM_UNQUOTED:$1,7
+ITEM_QUOTED:$2,7
+DOS_FILEHANDLE:$0,7
+DOS_EXALLCONTROL:$1,7
+DOS_FIB:$2,7
+DOS_STDPKT:$3,7
+DOS_CLI:$4,7
+DOS_RDARGS:$5,7
+UNIT_MICROHZ:$0,7
+UNIT_VBLANK:$1,7
+UNIT_ECLOCK:$2,7
+UNIT_WAITUNTIL:$3,7
+UNIT_WAITECLOCK:$4,7
+TIMEVAL:$0,7
+TV_SECS:$0,5
+TV_MICRO:$4,5
+TV_SIZE:$8,7
+ECLOCKVAL:$0,7
+EV_HI:$0,5
+EV_LO:$4,5
+EV_SIZE:$8,7
+TIMEREQUEST:$0,7
+IOTV_TIME:$20,7
+IOTV_SIZE:$28,7
+TR_ADDREQUEST:$9,7
+TR_GETSYSTIME:$A,7
+TR_SETSYSTIME:$B,7
+Process:$0,7
+pr_Task:$0,7
+pr_MsgPort:$5C,7
+pr_Pad:$7E,1
+pr_SegList:$80,2
+pr_StackSize:$84,2
+pr_GlobVec:$88,6
+pr_TaskNum:$8C,2
+pr_StackBase:$90,2
+pr_Result2:$94,2
+pr_CurrentDir:$98,2
+pr_CIS:$9C,2
+pr_COS:$A0,2
+pr_ConsoleTask:$A4,6
+pr_FileSystemTask:$A8,6
+pr_CLI:$AC,2
+pr_ReturnAddr:$B0,6
+pr_PktWait:$B4,6
+pr_WindowPtr:$B8,6
+pr_HomeDir:$BC,2
+pr_Flags:$C0,2
+pr_ExitCode:$C4,6
+pr_ExitData:$C8,2
+pr_Arguments:$CC,6
+pr_LocalVars:$D0,7
+pr_ShellPrivate:$DC,6
+pr_CES:$E0,2
+pr_SIZEOF:$E4,7
+PRB_FREESEGLIST:$0,7
+PRF_FREESEGLIST:$1,7
+PRB_FREECURRDIR:$1,7
+PRF_FREECURRDIR:$2,7
+PRB_FREECLI:$2,7
+PRF_FREECLI:$4,7
+PRB_CLOSEINPUT:$3,7
+PRF_CLOSEINPUT:$8,7
+PRB_CLOSEOUTPUT:$4,7
+PRF_CLOSEOUTPUT:$10,7
+PRB_FREEARGS:$5,7
+PRF_FREEARGS:$20,7
+FileHandle:$0,7
+fh_Link:$0,6
+fh_Interactive:$4,6
+fh_Type:$8,6
+fh_Buf:$C,2
+fh_Pos:$10,2
+fh_End:$14,2
+fh_Funcs:$18,2
+fh_Func1:$18,7
+fh_Func2:$1C,2
+fh_Func3:$20,2
+fh_Args:$24,2
+fh_Arg1:$24,7
+fh_Arg2:$28,2
+fh_SIZEOF:$2C,7
+DosPacket:$0,7
+dp_Link:$0,6
+dp_Port:$4,6
+dp_Type:$8,2
+dp_Res1:$C,2
+dp_Res2:$10,2
+dp_Arg1:$14,2
+dp_Action:$8,7
+dp_Status:$C,7
+dp_Status2:$10,7
+dp_BufAddr:$14,7
+dp_Arg2:$18,2
+dp_Arg3:$1C,2
+dp_Arg4:$20,2
+dp_Arg5:$24,2
+dp_Arg6:$28,2
+dp_Arg7:$2C,2
+dp_SIZEOF:$30,7
+StandardPacket:$0,7
+sp_Msg:$0,7
+sp_Pkt:$14,7
+sp_SIZEOF:$44,7
+ACTION_NIL:$0,7
+ACTION_STARTUP:$0,7
+ACTION_GET_BLOCK:$2,7
+ACTION_SET_MAP:$4,7
+ACTION_DIE:$5,7
+ACTION_EVENT:$6,7
+ACTION_CURRENT_VOLUME:$7,7
+ACTION_LOCATE_OBJECT:$8,7
+ACTION_RENAME_DISK:$9,7
+ACTION_WRITE:$57,7
+ACTION_READ:$52,7
+ACTION_FREE_LOCK:$F,7
+ACTION_DELETE_OBJECT:$10,7
+ACTION_RENAME_OBJECT:$11,7
+ACTION_MORE_CACHE:$12,7
+ACTION_COPY_DIR:$13,7
+ACTION_WAIT_CHAR:$14,7
+ACTION_SET_PROTECT:$15,7
+ACTION_CREATE_DIR:$16,7
+ACTION_EXAMINE_OBJECT:$17,7
+ACTION_EXAMINE_NEXT:$18,7
+ACTION_DISK_INFO:$19,7
+ACTION_INFO:$1A,7
+ACTION_FLUSH:$1B,7
+ACTION_SET_COMMENT:$1C,7
+ACTION_PARENT:$1D,7
+ACTION_TIMER:$1E,7
+ACTION_INHIBIT:$1F,7
+ACTION_DISK_TYPE:$20,7
+ACTION_DISK_CHANGE:$21,7
+ACTION_SET_DATE:$22,7
+ACTION_SCREEN_MODE:$3E2,7
+ACTION_READ_RETURN:$3E9,7
+ACTION_WRITE_RETURN:$3EA,7
+ACTION_SEEK:$3F0,7
+ACTION_FINDUPDATE:$3EC,7
+ACTION_FINDINPUT:$3ED,7
+ACTION_FINDOUTPUT:$3EE,7
+ACTION_END:$3EF,7
+ACTION_SET_FILE_SIZE:$3FE,7
+ACTION_WRITE_PROTECT:$3FF,7
+ACTION_SAME_LOCK:$28,7
+ACTION_CHANGE_SIGNAL:$3E3,7
+ACTION_FORMAT:$3FC,7
+ACTION_MAKE_LINK:$3FD,7
+ACTION_READ_LINK:$400,7
+ACTION_FH_FROM_LOCK:$402,7
+ACTION_IS_FILESYSTEM:$403,7
+ACTION_CHANGE_MODE:$404,7
+ACTION_COPY_DIR_FH:$406,7
+ACTION_PARENT_FH:$407,7
+ACTION_EXAMINE_ALL:$409,7
+ACTION_EXAMINE_FH:$40A,7
+ACTION_LOCK_RECORD:$7D8,7
+ACTION_FREE_RECORD:$7D9,7
+ACTION_ADD_NOTIFY:$1001,7
+ACTION_REMOVE_NOTIFY:$1002,7
+ACTION_EXAMINE_ALL_END:$40B,7
+ACTION_SET_OWNER:$40C,7
+ACTION_SERIALIZE_DISK:$1068,7
+ErrorString:$0,7
+estr_Nums:$0,6
+estr_Strings:$4,6
+ErrorString_SIZEOF:$8,7
+DosLibrary:$0,7
+dl_lib:$0,7
+dl_Root:$22,6
+dl_GV:$26,6
+dl_A2:$2A,2
+dl_A5:$2E,2
+dl_A6:$32,2
+dl_Errors:$36,6
+dl_TimeReq:$3A,6
+dl_UtilityBase:$3E,6
+dl_IntuitionBase:$42,6
+dl_SIZEOF:$46,7
+RootNode:$0,7
+rn_TaskArray:$0,2
+rn_ConsoleSegment:$4,2
+rn_Time:$8,7
+rn_RestartSeg:$14,2
+rn_Info:$18,2
+rn_FileHandlerSegment:$1C,2
+rn_CliList:$20,7
+rn_BootProc:$2C,6
+rn_ShellSegment:$30,2
+rn_Flags:$34,2
+rn_SIZEOF:$38,7
+RNB_WILDSTAR:$18,7
+RNF_WILDSTAR:$1000000,7
+RNB_PRIVATE1:$1,7
+RNF_PRIVATE1:$2,7
+CliProcList:$0,7
+cpl_Node:$0,7
+cpl_First:$8,2
+cpl_Array:$C,6
+cpl_SIZEOF:$10,7
+DosInfo:$0,7
+di_McName:$0,2
+di_ResList:$0,7
+di_DevInfo:$4,2
+di_Devices:$8,2
+di_Handlers:$C,2
+di_NetHand:$10,6
+di_DevLock:$14,7
+di_EntryLock:$42,7
+di_DeleteLock:$70,7
+di_SIZEOF:$9E,7
+Segment:$0,7
+seg_Next:$0,2
+seg_UC:$4,2
+seg_Seg:$8,2
+seg_Name:$C,7
+seg_SIZEOF:$10,7
+CMD_SYSTEM:$FFFFFFFF,7
+CMD_INTERNAL:$FFFFFFFE,7
+CMD_DISABLED:$FFFFFC19,7
+CommandLineInterface:$0,7
+cli_Result2:$0,2
+cli_SetName:$4,2
+cli_CommandDir:$8,2
+cli_ReturnCode:$C,2
+cli_CommandName:$10,2
+cli_FailLevel:$14,2
+cli_Prompt:$18,2
+cli_StandardInput:$1C,2
+cli_CurrentInput:$20,2
+cli_CommandFile:$24,2
+cli_Interactive:$28,2
+cli_Background:$2C,2
+cli_CurrentOutput:$30,2
+cli_DefaultStack:$34,2
+cli_StandardOutput:$38,2
+cli_Module:$3C,2
+cli_SIZEOF:$40,7
+DevList:$0,7
+dl_Next:$0,2
+dl_Type:$4,2
+dl_Task:$8,6
+dl_Lock:$C,2
+dl_VolumeDate:$10,7
+dl_LockList:$1C,2
+dl_DiskType:$20,2
+dl_unused:$24,2
+dl_Name:$28,2
+DevList_SIZEOF:$2C,7
+DevInfo:$0,7
+dvi_Next:$0,2
+dvi_Type:$4,2
+dvi_Task:$8,6
+dvi_Lock:$C,2
+dvi_Handler:$10,2
+dvi_Stacksize:$14,2
+dvi_Priority:$18,2
+dvi_Startup:$1C,2
+dvi_SegList:$20,2
+dvi_GlobVec:$24,2
+dvi_Name:$28,2
+dvi_SIZEOF:$2C,7
+DosList:$0,7
+dol_Next:$0,2
+dol_Type:$4,2
+dol_Task:$8,6
+dol_Lock:$C,2
+dol_VolumeDate:$10,7
+dol_AssignName:$10,7
+dol_Handler:$10,2
+dol_List:$14,7
+dol_StackSize:$14,2
+dol_Priority:$18,2
+dol_LockList:$1C,7
+dol_Startup:$1C,5
+dol_DiskType:$20,7
+dol_SegList:$20,2
+dol_GlobVec:$24,2
+dol_Name:$28,2
+DosList_SIZEOF:$2C,7
+DLT_DEVICE:$0,7
+DLT_DIRECTORY:$1,7
+DLT_VOLUME:$2,7
+DLT_LATE:$3,7
+DLT_NONBINDING:$4,7
+DLT_PRIVATE:$FFFFFFFF,7
+DevProc:$0,7
+dvp_Port:$0,6
+dvp_Lock:$4,2
+dvp_Flags:$8,5
+dvp_DevNode:$C,6
+dvp_SIZEOF:$10,7
+DVPB_UNLOCK:$0,7
+DVPF_UNLOCK:$1,7
+DVPB_ASSIGN:$1,7
+DVPF_ASSIGN:$2,7
+LDB_DEVICES:$2,7
+LDF_DEVICES:$4,7
+LDB_VOLUMES:$3,7
+LDF_VOLUMES:$8,7
+LDB_ASSIGNS:$4,7
+LDF_ASSIGNS:$10,7
+LDB_ENTRY:$5,7
+LDF_ENTRY:$20,7
+LDB_DELETE:$6,7
+LDF_DELETE:$40,7
+LDB_READ:$0,7
+LDF_READ:$1,7
+LDB_WRITE:$1,7
+LDF_WRITE:$2,7
+LDF_ALL:$1C,7
+FileLock:$0,7
+fl_Link:$0,2
+fl_Key:$4,2
+fl_Access:$8,2
+fl_Task:$C,6
+fl_Volume:$10,2
+fl_SIZEOF:$14,7
+REPORT_STREAM:$0,7
+REPORT_TASK:$1,7
+REPORT_LOCK:$2,7
+REPORT_VOLUME:$3,7
+REPORT_INSERT:$4,7
+ABORT_DISK_ERROR:$128,7
+ABORT_BUSY:$120,7
+RUN_EXECUTE:$FFFFFFFF,7
+RUN_SYSTEM:$FFFFFFFE,7
+RUN_SYSTEM_ASYNCH:$FFFFFFFD,7
+ST_ROOT:$1,7
+ST_USERDIR:$2,7
+ST_SOFTLINK:$3,7
+ST_LINKDIR:$4,7
+ST_FILE:$FFFFFFFD,7
+ST_LINKFILE:$FFFFFFFC,7
+ST_PIPEFILE:$FFFFFFFB,7
+TagItem:$0,7
+ti_Tag:$0,5
+ti_Data:$4,5
+ti_SIZEOF:$8,7
+TAG_DONE:$0,7
+TAG_END:$0,7
+TAG_IGNORE:$1,7
+TAG_MORE:$2,7
+TAG_SKIP:$3,7
+TAG_USER:$80000000,7
+TAGFILTER_AND:$0,7
+TAGFILTER_NOT:$1,7
+MAP_REMOVE_NOT_FOUND:$0,7
+MAP_KEEP_NOT_FOUND:$1,7
+MERGE_OR_LIST_1:$0,7
+MERGE_OR_LIST_2:$1,7
+MERGE_AND_LIST_1:$2,7
+MERGE_AND_LIST_2:$3,7
+MERGE_NOT_LIST_1:$4,7
+MERGE_NOT_LIST_2:$5,7
+MERGE_XOR:$6,7
+DAY_1:$1,7
+DAY_2:$2,7
+DAY_3:$3,7
+DAY_4:$4,7
+DAY_5:$5,7
+DAY_6:$6,7
+DAY_7:$7,7
+ABDAY_1:$8,7
+ABDAY_2:$9,7
+ABDAY_3:$A,7
+ABDAY_4:$B,7
+ABDAY_5:$C,7
+ABDAY_6:$D,7
+ABDAY_7:$E,7
+MON_1:$F,7
+MON_2:$10,7
+MON_3:$11,7
+MON_4:$12,7
+MON_5:$13,7
+MON_6:$14,7
+MON_7:$15,7
+MON_8:$16,7
+MON_9:$17,7
+MON_10:$18,7
+MON_11:$19,7
+MON_12:$1A,7
+ABMON_1:$1B,7
+ABMON_2:$1C,7
+ABMON_3:$1D,7
+ABMON_4:$1E,7
+ABMON_5:$1F,7
+ABMON_6:$20,7
+ABMON_7:$21,7
+ABMON_8:$22,7
+ABMON_9:$23,7
+ABMON_10:$24,7
+ABMON_11:$25,7
+ABMON_12:$26,7
+YESSTR:$27,7
+NOSTR:$28,7
+AM_STR:$29,7
+PM_STR:$2A,7
+SOFTHYPHEN:$2B,7
+HARDHYPHEN:$2C,7
+OPENQUOTE:$2D,7
+CLOSEQUOTE:$2E,7
+YESTERDAYSTR:$2F,7
+TODAYSTR:$30,7
+TOMORROWSTR:$31,7
+FUTURESTR:$32,7
+MAXSTRMSG:$33,7
+LocaleBase:$0,7
+lb_SysPatches:$22,1
+Locale:$0,7
+loc_LocaleName:$0,6
+loc_LanguageName:$4,6
+loc_PrefLanguages:$8,7
+loc_Flags:$30,5
+loc_CodeSet:$34,5
+loc_CountryCode:$38,5
+loc_TelephoneCode:$3C,5
+loc_GMTOffset:$40,2
+loc_MeasuringSystem:$44,3
+loc_CalendarType:$45,3
+loc_Reserved0:$46,7
+loc_DateTimeFormat:$48,6
+loc_DateFormat:$4C,6
+loc_TimeFormat:$50,6
+loc_ShortDateTimeFormat:$54,6
+loc_ShortDateFormat:$58,6
+loc_ShortTimeFormat:$5C,6
+loc_DecimalPoint:$60,6
+loc_GroupSeparator:$64,6
+loc_FracGroupSeparator:$68,6
+loc_Grouping:$6C,6
+loc_FracGrouping:$70,6
+loc_MonDecimalPoint:$74,6
+loc_MonGroupSeparator:$78,6
+loc_MonFracGroupSeparator:$7C,6
+loc_MonGrouping:$80,6
+loc_MonFracGrouping:$84,6
+loc_MonFracDigits:$88,3
+loc_MonIntFracDigits:$89,3
+loc_Reserved1:$8A,7
+loc_MonCS:$8C,6
+loc_MonSmallCS:$90,6
+loc_MonIntCS:$94,6
+loc_MonPositiveSign:$98,6
+loc_MonPositiveSpaceSep:$9C,3
+loc_MonPositiveSignPos:$9D,3
+loc_MonPositiveCSPos:$9E,3
+loc_Reserved2:$9F,3
+loc_MonNegativeSign:$A0,6
+loc_MonNegativeSpaceSep:$A4,3
+loc_MonNegativeSignPos:$A5,3
+loc_MonNegativeCSPos:$A6,3
+loc_Reserved3:$A7,3
+Locale_SIZEOF:$A8,7
+MS_ISO:$0,7
+MS_AMERICAN:$1,7
+MS_IMPERIAL:$2,7
+MS_BRITISH:$3,7
+CT_7SUN:$0,7
+CT_7MON:$1,7
+CT_7TUE:$2,7
+CT_7WED:$3,7
+CT_7THU:$4,7
+CT_7FRI:$5,7
+CT_7SAT:$6,7
+SS_NOSPACE:$0,7
+SS_SPACE:$1,7
+SP_PARENS:$0,7
+SP_PREC_ALL:$1,7
+SP_SUCC_ALL:$2,7
+SP_PREC_CURR:$3,7
+SP_SUCC_CURR:$4,7
+CSP_PRECEDES:$0,7
+CSP_SUCCEEDS:$1,7
+OC_TagBase:$80090000,7
+OC_BuiltInLanguage:$80090001,7
+OC_BuiltInCodeSet:$80090002,7
+OC_Version:$80090003,7
+OC_Language:$80090004,7
+SC_ASCII:$0,7
+SC_COLLATE1:$1,7
+SC_COLLATE2:$2,7
+Catalog:$0,7
+cat_Pad:$E,4
+cat_Language:$10,6
+cat_CodeSet:$14,5
+cat_Version:$18,4
+cat_Revision:$1A,4
+Catalog_SIZEOF:$1C,7
+ADHARD_CHANNELS:$4,7
+ADALLOC_MINPREC:$FFFFFF80,7
+ADALLOC_MAXPREC:$7F,7
+ADCMD_FREE:$9,7
+ADCMD_SETPREC:$A,7
+ADCMD_FINISH:$B,7
+ADCMD_PERVOL:$C,7
+ADCMD_LOCK:$D,7
+ADCMD_WAITCYCLE:$E,7
+ADCMD_ALLOCATE:$20,7
+ADIOB_PERVOL:$4,7
+ADIOF_PERVOL:$10,7
+ADIOB_SYNCCYCLE:$5,7
+ADIOF_SYNCCYCLE:$20,7
+ADIOB_NOWAIT:$6,7
+ADIOF_NOWAIT:$40,7
+ADIOB_WRITEMESSAGE:$7,7
+ADIOF_WRITEMESSAGE:$80,7
+ADIOERR_NOALLOCATION:$FFFFFFF6,7
+ADIOERR_ALLOCFAILED:$FFFFFFF5,7
+ADIOERR_CHANNELSTOLEN:$FFFFFFF4,7
+IOAudio:$0,7
+ioa_AllocKey:$20,1
+ioa_Data:$22,6
+ioa_Length:$26,5
+ioa_Period:$2A,4
+ioa_Volume:$2C,4
+ioa_Cycles:$2E,4
+ioa_WriteMsg:$30,7
+ioa_SIZEOF:$44,7
+BB:$0,7
+BB_ID:$0,7
+BB_CHKSUM:$4,2
+BB_DOSBLOCK:$8,2
+BB_ENTRY:$C,7
+BB_SIZE:$C,7
+BOOTSECTS:$2,7
+BBNAME_DOS:$444F5300,7
+BBNAME_KICK:$4B49434B,7
+GPD_READEVENT:$9,7
+GPD_ASKCTYPE:$A,7
+GPD_SETCTYPE:$B,7
+GPD_ASKTRIGGER:$C,7
+GPD_SETTRIGGER:$D,7
+GPTB_DOWNKEYS:$0,7
+GPTF_DOWNKEYS:$1,7
+GPTB_UPKEYS:$1,7
+GPTF_UPKEYS:$2,7
+GamePortTrigger:$0,7
+gpt_Keys:$0,4
+gpt_Timeout:$2,4
+gpt_XDelta:$4,4
+gpt_YDelta:$6,4
+gpt_SIZEOF:$8,7
+GPCT_ALLOCATED:$FFFFFFFF,7
+GPCT_NOCONTROLLER:$0,7
+GPCT_MOUSE:$1,7
+GPCT_RELJOYSTICK:$2,7
+GPCT_ABSJOYSTICK:$3,7
+GPDERR_SETCTYPE:$1,7
+ParErr_DevBusy:$1,7
+ParErr_BufTooBig:$2,7
+ParErr_InvParam:$3,7
+ParErr_LineErr:$4,7
+ParErr_NotOpen:$5,7
+ParErr_PortReset:$6,7
+ParErr_InitErr:$7,7
+PDCMD_QUERY:$9,7
+PDCMD_SETPARAMS:$A,7
+Par_DEVFINISH:$A,7
+PARB_SHARED:$5,7
+PARF_SHARED:$20,7
+PARB_SLOWMODE:$4,7
+PARF_SLOWMODE:$10,7
+PARB_FASTMODE:$3,7
+PARF_FASTMODE:$8,7
+PARB_RAD_BOOGIE:$3,7
+PARF_RAD_BOOGIE:$8,7
+PARB_ACKMODE:$2,7
+PARF_ACKMODE:$4,7
+PARB_EOFMODE:$1,7
+PARF_EOFMODE:$2,7
+IOPARB_QUEUED:$6,7
+IOPARF_QUEUED:$40,7
+IOPARB_ABORT:$5,7
+IOPARF_ABORT:$20,7
+IOPARB_ACTIVE:$4,7
+IOPARF_ACTIVE:$10,7
+IOPTB_RWDIR:$3,7
+IOPTF_RWDIR:$8,7
+IOPTB_PARSEL:$2,7
+IOPTF_PARSEL:$4,7
+IOPTB_PAPEROUT:$1,7
+IOPTF_PAPEROUT:$2,7
+IOPTB_PARBUSY:$0,7
+IOPTF_PARBUSY:$1,7
+PTERMARRAY:$0,7
+PTERMARRAY_0:$0,5
+PTERMARRAY_1:$4,5
+PTERMARRAY_SIZE:$8,7
+IOEXTPAR:$0,7
+IO_PEXTFLAGS:$30,5
+IO_PARSTATUS:$34,3
+IO_PARFLAGS:$35,3
+IO_PTERMARRAY:$36,7
+IOEXTPar_SIZE:$3E,7
+PCMYELLOW:$0,7
+PCMMAGENTA:$1,7
+PCMCYAN:$2,7
+PCMBLACK:$3,7
+PCMBLUE:$0,7
+PCMGREEN:$1,7
+PCMRED:$2,7
+PCMWHITE:$3,7
+colorEntry:$0,7
+colorLong:$0,7
+colorSByte:$0,7
+colorByte:$0,7
+ce_SIZEOF:$4,7
+PrtInfo:$0,7
+pi_render:$0,6
+pi_rp:$4,6
+pi_temprp:$8,6
+pi_RowBuf:$C,6
+pi_HamBuf:$10,6
+pi_ColorMap:$14,6
+pi_ColorInt:$18,6
+pi_HamInt:$1C,6
+pi_Dest1Int:$20,6
+pi_Dest2Int:$24,6
+pi_ScaleX:$28,6
+pi_ScaleXAlt:$2C,6
+pi_dmatrix:$30,6
+pi_TopBuf:$34,6
+pi_BotBuf:$38,6
+pi_RowBufSize:$3C,4
+pi_HamBufSize:$3E,4
+pi_ColorMapSize:$40,4
+pi_ColorIntSize:$42,4
+pi_HamIntSize:$44,4
+pi_Dest1IntSize:$46,4
+pi_Dest2IntSize:$48,4
+pi_ScaleXSize:$4A,4
+pi_ScaleXAltSize:$4C,4
+pi_PrefsFlags:$4E,4
+pi_special:$50,5
+pi_xstart:$54,4
+pi_ystart:$56,4
+pi_width:$58,4
+pi_height:$5A,4
+pi_pc:$5C,5
+pi_pr:$60,5
+pi_ymult:$64,4
+pi_ymod:$66,4
+pi_ety:$68,4
+pi_xpos:$6A,4
+pi_threshold:$6C,4
+pi_tempwidth:$6E,4
+pi_flags:$70,4
+prtinfo_SIZEOF:$72,7
+SER_DEFAULT_CTLCHAR:$11130000,7
+SDCMD_QUERY:$9,7
+SDCMD_BREAK:$A,7
+SDCMD_SETPARAMS:$B,7
+SER_DEVFINISH:$B,7
+SERB_XDISABLED:$7,7
+SERF_XDISABLED:$80,7
+SERB_EOFMODE:$6,7
+SERF_EOFMODE:$40,7
+SERB_SHARED:$5,7
+SERF_SHARED:$20,7
+SERB_RAD_BOOGIE:$4,7
+SERF_RAD_BOOGIE:$10,7
+SERB_QUEUEDBRK:$3,7
+SERF_QUEUEDBRK:$8,7
+SERB_7WIRE:$2,7
+SERF_7WIRE:$4,7
+SERB_PARTY_ODD:$1,7
+SERF_PARTY_ODD:$2,7
+SERB_PARTY_ON:$0,7
+SERF_PARTY_ON:$1,7
+IOSTB_XOFFREAD:$4,7
+IOSTF_XOFFREAD:$10,7
+IOSTB_XOFFWRITE:$3,7
+IOSTF_XOFFWRITE:$8,7
+IOSTB_READBREAK:$2,7
+IOSTF_READBREAK:$4,7
+IOSTB_WROTEBREAK:$1,7
+IOSTF_WROTEBREAK:$2,7
+IOSTB_OVERRUN:$0,7
+IOSTF_OVERRUN:$1,7
+SEXTB_MSPON:$1,7
+SEXTF_MSPON:$2,7
+SEXTB_MARK:$0,7
+SEXTF_MARK:$1,7
+TERMARRAY:$0,7
+TERMARRAY_0:$0,5
+TERMARRAY_1:$4,5
+TERMARRAY_SIZE:$8,7
+IOEXTSER:$0,7
+IO_CTLCHAR:$30,5
+IO_RBUFLEN:$34,5
+IO_EXTFLAGS:$38,5
+IO_BAUD:$3C,5
+IO_BRKTIME:$40,5
+IO_TERMARRAY:$44,7
+IO_READLEN:$4C,3
+IO_WRITELEN:$4D,3
+IO_STOPBITS:$4E,3
+IO_SERFLAGS:$4F,3
+IO_STATUS:$50,4
+IOEXTSER_SIZE:$52,7
+SerErr_DevBusy:$1,7
+SerErr_BaudMismatch:$2,7
+SerErr_BufErr:$4,7
+SerErr_InvParam:$5,7
+SerErr_LineErr:$6,7
+SerErr_ParityErr:$9,7
+SerErr_TimerErr:$B,7
+SerErr_BufOverflow:$C,7
+SerErr_NoDSR:$D,7
+SerErr_DetectedBreak:$F,7
+NUMSECS:$B,7
+NUMUNITS:$4,7
+TD_SECTOR:$200,7
+TD_SECSHIFT:$9,7
+TDB_EXTCOM:$F,7
+TDF_EXTCOM:$8000,7
+TD_MOTOR:$9,7
+TD_SEEK:$A,7
+TD_FORMAT:$B,7
+TD_REMOVE:$C,7
+TD_CHANGENUM:$D,7
+TD_CHANGESTATE:$E,7
+TD_PROTSTATUS:$F,7
+TD_RAWREAD:$10,7
+TD_RAWWRITE:$11,7
+TD_GETDRIVETYPE:$12,7
+TD_GETNUMTRACKS:$13,7
+TD_ADDCHANGEINT:$14,7
+TD_REMCHANGEINT:$15,7
+TD_GETGEOMETRY:$16,7
+TD_EJECT:$17,7
+TD_LASTCOMM:$18,7
+ETD_WRITE:$8003,7
+ETD_READ:$8002,7
+ETD_MOTOR:$8009,7
+ETD_SEEK:$800A,7
+ETD_FORMAT:$800B,7
+ETD_UPDATE:$8004,7
+ETD_CLEAR:$8005,7
+ETD_RAWREAD:$8010,7
+ETD_RAWWRITE:$8011,7
+IOEXTTD:$0,7
+IOTD_COUNT:$30,5
+IOTD_SECLABEL:$34,5
+IOTD_SIZE:$38,7
+DriveGeometry:$0,7
+dg_SectorSize:$0,5
+dg_TotalSectors:$4,5
+dg_Cylinders:$8,5
+dg_CylSectors:$C,5
+dg_Heads:$10,5
+dg_TrackSectors:$14,5
+dg_BufMemType:$18,5
+dg_DeviceType:$1C,3
+dg_Flags:$1D,3
+dg_Reserved:$1E,4
+dg_SIZEOF:$20,7
+DG_DIRECT_ACCESS:$0,7
+DG_SEQUENTIAL_ACCESS:$1,7
+DG_PRINTER:$2,7
+DG_PROCESSOR:$3,7
+DG_WORM:$4,7
+DG_CDROM:$5,7
+DG_SCANNER:$6,7
+DG_OPTICAL_DISK:$7,7
+DG_MEDIUM_CHANGER:$8,7
+DG_COMMUNICATION:$9,7
+DG_UNKNOWN:$1F,7
+DGB_REMOVABLE:$0,7
+DGF_REMOVABLE:$1,7
+IOTDB_INDEXSYNC:$4,7
+IOTDF_INDEXSYNC:$10,7
+IOTDB_WORDSYNC:$5,7
+IOTDF_WORDSYNC:$20,7
+TD_LABELSIZE:$10,7
+TDB_ALLOW_NON_3_5:$0,7
+TDF_ALLOW_NON_3_5:$1,7
+DRIVE3_5:$1,7
+DRIVE5_25:$2,7
+DRIVE3_5_150RPM:$3,7
+TDERR_NotSpecified:$14,7
+TDERR_NoSecHdr:$15,7
+TDERR_BadSecPreamble:$16,7
+TDERR_BadSecID:$17,7
+TDERR_BadHdrSum:$18,7
+TDERR_BadSecSum:$19,7
+TDERR_TooFewSecs:$1A,7
+TDERR_BadSecHdr:$1B,7
+TDERR_WriteProt:$1C,7
+TDERR_DiskChanged:$1D,7
+TDERR_SeekError:$1E,7
+TDERR_NoMem:$1F,7
+TDERR_BadUnitNum:$20,7
+TDERR_BadDriveType:$21,7
+TDERR_DriveInUse:$22,7
+TDERR_PostReset:$23,7
+TDU_PUBLICUNIT:$0,7
+TDU_COMP01TRACK:$26,4
+TDU_COMP10TRACK:$28,4
+TDU_COMP11TRACK:$2A,4
+TDU_STEPDELAY:$2C,5
+TDU_SETTLEDELAY:$30,5
+TDU_RETRYCNT:$34,3
+TDU_PUBFLAGS:$35,3
+TDU_CURRTRK:$36,4
+TDU_CALIBRATEDELAY:$38,5
+TDU_COUNTER:$3C,5
+TDU_PUBLICUNITSIZE:$40,7
+TDPB_NOCLICK:$0,7
+TDPF_NOCLICK:$1,7
+bltddat:$0,7
+dmaconr:$2,7
+vposr:$4,7
+vhposr:$6,7
+dskdatr:$8,7
+joy0dat:$A,7
+joy1dat:$C,7
+clxdat:$E,7
+adkconr:$10,7
+pot0dat:$12,7
+pot1dat:$14,7
+potinp:$16,7
+serdatr:$18,7
+dskbytr:$1A,7
+intenar:$1C,7
+intreqr:$1E,7
+dskpt:$20,7
+dsklen:$24,7
+dskdat:$26,7
+refptr:$28,7
+vposw:$2A,7
+vhposw:$2C,7
+copcon:$2E,7
+serdat:$30,7
+serper:$32,7
+potgo:$34,7
+joytest:$36,7
+strequ:$38,7
+strvbl:$3A,7
+strhor:$3C,7
+strlong:$3E,7
+bltcon0:$40,7
+bltcon1:$42,7
+bltafwm:$44,7
+bltalwm:$46,7
+bltcpt:$48,7
+bltbpt:$4C,7
+bltapt:$50,7
+bltdpt:$54,7
+bltsize:$58,7
+bltcon0l:$5B,7
+bltsizv:$5C,7
+bltsizh:$5E,7
+bltcmod:$60,7
+bltbmod:$62,7
+bltamod:$64,7
+bltdmod:$66,7
+bltcdat:$70,7
+bltbdat:$72,7
+bltadat:$74,7
+deniseid:$7C,7
+dsksync:$7E,7
+cop1lc:$80,7
+cop2lc:$84,7
+copjmp1:$88,7
+copjmp2:$8A,7
+copins:$8C,7
+diwstrt:$8E,7
+diwstop:$90,7
+ddfstrt:$92,7
+ddfstop:$94,7
+dmacon:$96,7
+clxcon:$98,7
+intena:$9A,7
+intreq:$9C,7
+adkcon:$9E,7
+aud:$A0,7
+aud0:$A0,7
+aud1:$B0,7
+aud2:$C0,7
+aud3:$D0,7
+ac_ptr:$0,7
+ac_len:$4,7
+ac_per:$6,7
+ac_vol:$8,7
+ac_dat:$A,7
+ac_SIZEOF:$10,7
+bplpt:$E0,7
+bplcon0:$100,7
+bplcon1:$102,7
+bplcon2:$104,7
+bplcon3:$106,7
+bpl1mod:$108,7
+bpl2mod:$10A,7
+bplcon4:$10C,7
+clxcon2:$10E,7
+bpldat:$110,7
+sprpt:$120,7
+spr:$140,7
+sd_pos:$0,7
+sd_ctl:$2,7
+sd_dataa:$4,7
+sd_dataB:$6,7
+sd_SIZEOF:$8,7
+color:$180,7
+htotal:$1C0,7
+hsstop:$1C2,7
+hbstrt:$1C4,7
+hbstop:$1C6,7
+vtotal:$1C8,7
+vsstop:$1CA,7
+vbstrt:$1CC,7
+vbstop:$1CE,7
+sprhstrt:$1D0,7
+sprhstop:$1D2,7
+bplhstrt:$1D4,7
+bplhstop:$1D6,7
+hhposw:$1D8,7
+hhposr:$1DA,7
+beamcon0:$1DC,7
+hsstrt:$1DE,7
+vsstrt:$1E0,7
+hcenter:$1E2,7
+diwhigh:$1E4,7
+fmode:$1FC,7
+ERRC_MSG:$0,7
+ERR10_001:$1,7
+ERR10_002:$2,7
+ERR10_003:$3,7
+ERR10_005:$5,7
+ERR10_006:$6,7
+ERR10_008:$8,7
+ERR10_009:$9,7
+ERR10_010:$A,7
+ERR10_011:$B,7
+ERR10_012:$C,7
+ERR10_013:$D,7
+ERR10_014:$E,7
+ERR10_015:$F,7
+ERR10_016:$10,7
+ERR10_017:$11,7
+ERR10_018:$12,7
+ERR10_019:$13,7
+ERR10_020:$14,7
+ERR10_021:$15,7
+ERR10_022:$16,7
+ERR10_023:$17,7
+ERR10_024:$18,7
+ERR10_025:$19,7
+ERR10_026:$1A,7
+ERR10_027:$1B,7
+ERR10_028:$1C,7
+ERR10_029:$1D,7
+ERR10_030:$1E,7
+ERR10_031:$1F,7
+ERR10_032:$20,7
+ERR10_033:$21,7
+ERR10_034:$22,7
+ERR10_035:$23,7
+ERR10_036:$24,7
+ERR10_037:$25,7
+ERR10_039:$27,7
+ERR10_040:$28,7
+ERR10_041:$29,7
+ERR10_042:$2A,7
+ERR10_043:$2B,7
+ERR10_044:$2C,7
+ERR10_045:$2D,7
+ERR10_046:$2E,7
+ERR10_047:$2F,7
+ERR10_048:$30,7
+RC_FAIL:$FFFFFFFF,7
+RC_OK:$0,7
+RC_WARN:$5,7
+RC_ERROR:$A,7
+RC_FATAL:$14,7
+NexxStr:$0,7
+ns_Ivalue:$0,2
+ns_Length:$4,4
+ns_Flags:$6,3
+ns_Hash:$7,3
+ns_Buff:$8,7
+NSMINSIZE:$10,7
+NXADDLEN:$9,7
+IVALUE:$0,7
+NSB_KEEP:$0,7
+NSB_STRING:$1,7
+NSB_NOTNUM:$2,7
+NSB_NUMBER:$3,7
+NSB_BINARY:$4,7
+NSB_FLOAT:$5,7
+NSB_EXT:$6,7
+NSB_SOURCE:$7,7
+NSF_KEEP:$1,7
+NSF_STRING:$2,7
+NSF_NOTNUM:$4,7
+NSF_NUMBER:$8,7
+NSF_BINARY:$10,7
+NSF_FLOAT:$20,7
+NSF_EXT:$40,7
+NSF_SOURCE:$80,7
+NSF_INTNUM:$1A,7
+NSF_DPNUM:$28,7
+NSF_ALPHA:$6,7
+NSF_OWNED:$C1,7
+KEEPSTR:$86,7
+KEEPNUM:$9A,7
+RexxArg:$0,7
+ra_Size:$0,2
+ra_Length:$4,4
+ra_Flags:$6,3
+ra_Hash:$7,3
+ra_Buff:$8,7
+RexxArg_SIZEOF:$10,7
+RexxMsg:$0,7
+rm_TaskBlock:$14,6
+rm_LibBase:$18,6
+rm_Action:$1C,2
+rm_Result1:$20,2
+rm_Result2:$24,2
+rm_Args:$28,7
+rm_PassPort:$68,6
+rm_CommAddr:$6C,6
+rm_FileExt:$70,6
+rm_Stdin:$74,2
+rm_Stdout:$78,2
+rm_avail:$7C,2
+RMSIZEOF:$80,7
+ACTION:$1C,7
+RESULT1:$20,7
+RESULT2:$24,7
+ARG0:$28,7
+ARG1:$2C,7
+ARG2:$30,7
+MAXRMARG:$F,7
+RXCOMM:$1000000,7
+RXFUNC:$2000000,7
+RXCLOSE:$3000000,7
+RXQUERY:$4000000,7
+RXADDFH:$7000000,7
+RXADDLIB:$8000000,7
+RXREMLIB:$9000000,7
+RXADDCON:$A000000,7
+RXREMCON:$B000000,7
+RXTCOPN:$C000000,7
+RXTCCLS:$D000000,7
+RXFB_NOIO:$10,7
+RXFB_RESULT:$11,7
+RXFB_STRING:$12,7
+RXFB_TOKEN:$13,7
+RXFB_NONRET:$14,7
+RXFF_RESULT:$20000,7
+RXFF_STRING:$40000,7
+RXFF_TOKEN:$80000,7
+RXFF_NONRET:$100000,7
+RXCODEMASK:$FF000000,7
+RXARGMASK:$F,7
+RexxRsrc:$0,7
+rr_Func:$E,1
+rr_Base:$10,6
+rr_Size:$14,2
+rr_Arg1:$18,2
+rr_Arg2:$1C,2
+RRSIZEOF:$20,7
+RRTYPE:$8,7
+RRNAME:$A,7
+RRSIZE:$14,7
+RRT_ANY:$0,7
+RRT_LIB:$1,7
+RRT_PORT:$2,7
+RRT_FILE:$3,7
+RRT_HOST:$4,7
+RRT_CLIP:$5,7
+GLOBALSZ:$C8,7
+RexxTask:$0,7
+rt_MsgPort:$C8,7
+rt_Flags:$EA,3
+rt_SigBit:$EB,0
+rt_ClientID:$EC,6
+rt_MsgPkt:$F0,6
+rt_TaskID:$F4,6
+rt_RexxPort:$F8,6
+rt_ErrTrap:$FC,6
+rt_StackPtr:$100,6
+rt_Header1:$104,7
+rt_Header2:$112,7
+rt_Header3:$120,7
+rt_Header4:$12E,7
+rt_Header5:$13C,7
+rt_SIZEOF:$14A,7
+ENVLIST:$104,7
+FREELIST:$112,7
+MEMLIST:$120,7
+FILELIST:$12E,7
+PORTLIST:$13C,7
+NUMLISTS:$5,7
+RTFB_TRACE:$0,7
+RTFB_HALT:$1,7
+RTFB_SUSP:$2,7
+RTFB_TCUSE:$3,7
+RTFB_WAIT:$6,7
+RTFB_CLOSE:$7,7
+MEMQUANT:$10,7
+MEMMASK:$FFFFFFF0,7
+MEMQUICK:$1,7
+MEMCLEAR:$10000,7
+SrcNode:$0,7
+sn_Succ:$0,6
+sn_Pred:$4,6
+sn_Ptr:$8,6
+sn_Size:$C,2
+sn_SIZEOF:$10,7
+RXBUFFSZ:$CC,7
+IoBuff:$0,7
+iobRpt:$20,6
+iobRct:$24,2
+iobDFH:$28,2
+iobLock:$2C,6
+iobBct:$30,2
+iobArea:$34,7
+iobSIZEOF:$100,7
+IOBNAME:$A,7
+IOBMODE:$18,7
+IOBEOF:$19,7
+IOBPOS:$1C,7
+RXIO_EXIST:$FFFFFFFF,7
+RXIO_STRF:$0,7
+RXIO_READ:$1,7
+RXIO_WRITE:$2,7
+RXIO_APPEND:$3,7
+RXIO_BEGIN:$FFFFFFFF,7
+RXIO_CURR:$0,7
+RXIO_END:$1,7
+LLOFFSET:$18,7
+LLVERS:$1C,7
+CLVALUE:$18,7
+RexxMsgPort:$0,7
+rmp_Port:$20,7
+rmp_ReplyList:$42,7
+rmp_SIZEOF:$50,7
+DT_DEV:$0,7
+DT_DIR:$1,7
+DT_VOL:$2,7
+ACTION_STACK:$7D2,7
+ACTION_QUEUE:$7D3,7
+RxsLib:$0,7
+rl_Flags:$22,3
+rl_Shadow:$23,3
+rl_SysBase:$24,6
+rl_DOSBase:$28,6
+rl_IeeeDPBase:$2C,6
+rl_SegList:$30,2
+rl_NIL:$34,2
+rl_Chunk:$38,2
+rl_MaxNest:$3C,2
+rl_NULL:$40,6
+rl_FALSE:$44,6
+rl_TRUE:$48,6
+rl_REXX:$4C,6
+rl_COMMAND:$50,6
+rl_STDIN:$54,6
+rl_STDOUT:$58,6
+rl_STDERR:$5C,6
+rl_Version:$60,6
+rl_TaskName:$64,6
+rl_TaskPri:$68,2
+rl_TaskSeg:$6C,2
+rl_StackSize:$70,2
+rl_RexxDir:$74,6
+rl_CTABLE:$78,6
+rl_Notice:$7C,6
+rl_RexxPort:$80,7
+rl_ReadLock:$A2,4
+rl_TraceFH:$A4,6
+rl_TaskList:$A8,7
+rl_NumTask:$B6,1
+rl_LibList:$B8,7
+rl_NumLib:$C6,1
+rl_ClipList:$C8,7
+rl_NumClip:$D6,1
+rl_MsgList:$D8,7
+rl_NumMsg:$E6,1
+rl_PgmList:$E8,7
+rl_NumPgm:$F6,1
+rl_TraceCnt:$F8,4
+rl_avail:$FA,1
+rl_SIZEOF:$FC,7
+RLFB_TRACE:$0,7
+RLFB_HALT:$1,7
+RLFB_SUSP:$2,7
+RLFB_STOP:$6,7
+RLFB_CLOSE:$7,7
+RLFMASK:$7,7
+RXSCHUNK:$400,7
+RXSNEST:$20,7
+RXSTPRI:$0,7
+RXSSTACK:$1000,7
+_LVORexx:$FFFFFFE2,7
+_LVOrxParse:$FFFFFFDC,7
+_LVOrxInstruct:$FFFFFFD6,7
+_LVOrxSuspend:$FFFFFFD0,7
+_LVOEvalOp:$FFFFFFCA,7
+_LVOAssignValue:$FFFFFFC4,7
+_LVOEnterSymbol:$FFFFFFBE,7
+_LVOFetchValue:$FFFFFFB8,7
+_LVOLookUpValue:$FFFFFFB2,7
+_LVOSetValue:$FFFFFFAC,7
+_LVOSymExpand:$FFFFFFA6,7
+_LVOErrorMsg:$FFFFFFA0,7
+_LVOIsSymbol:$FFFFFF9A,7
+_LVOCurrentEnv:$FFFFFF94,7
+_LVOGetSpace:$FFFFFF8E,7
+_LVOFreeSpace:$FFFFFF88,7
+_LVOCreateArgstring:$FFFFFF82,7
+_LVODeleteArgstring:$FFFFFF7C,7
+_LVOLengthArgstring:$FFFFFF76,7
+_LVOCreateRexxMsg:$FFFFFF70,7
+_LVODeleteRexxMsg:$FFFFFF6A,7
+_LVOClearRexxMsg:$FFFFFF64,7
+_LVOFillRexxMsg:$FFFFFF5E,7
+_LVOIsRexxMsg:$FFFFFF58,7
+_LVOAddRsrcNode:$FFFFFF52,7
+_LVOFindRsrcNode:$FFFFFF4C,7
+_LVORemRsrcList:$FFFFFF46,7
+_LVORemRsrcNode:$FFFFFF40,7
+_LVOOpenPublicPort:$FFFFFF3A,7
+_LVOClosePublicPort:$FFFFFF34,7
+_LVOListNames:$FFFFFF2E,7
+_LVOClearMem:$FFFFFF28,7
+_LVOInitList:$FFFFFF22,7
+_LVOInitPort:$FFFFFF1C,7
+_LVOFreePort:$FFFFFF16,7
+_LVOCmpString:$FFFFFF10,7
+_LVOStcToken:$FFFFFF0A,7
+_LVOStrcmpN:$FFFFFF04,7
+_LVOStrcmpU:$FFFFFEFE,7
+_LVOStrcpyA:$FFFFFEF8,7
+_LVOStrcpyN:$FFFFFEF2,7
+_LVOStrcpyU:$FFFFFEEC,7
+_LVOStrflipN:$FFFFFEE6,7
+_LVOStrlen:$FFFFFEE0,7
+_LVOToUpper:$FFFFFEDA,7
+_LVOCVa2i:$FFFFFED4,7
+_LVOCVi2a:$FFFFFECE,7
+_LVOCVi2arg:$FFFFFEC8,7
+_LVOCVi2az:$FFFFFEC2,7
+_LVOCVc2x:$FFFFFEBC,7
+_LVOCVx2c:$FFFFFEB6,7
+_LVOOpenF:$FFFFFEB0,7
+_LVOCloseF:$FFFFFEAA,7
+_LVOReadStr:$FFFFFEA4,7
+_LVOReadF:$FFFFFE9E,7
+_LVOWriteF:$FFFFFE98,7
+_LVOSeekF:$FFFFFE92,7
+_LVOQueueF:$FFFFFE8C,7
+_LVOStackF:$FFFFFE86,7
+_LVOExistF:$FFFFFE80,7
+_LVODOSCommand:$FFFFFE7A,7
+_LVODOSRead:$FFFFFE74,7
+_LVODOSWrite:$FFFFFE6E,7
+_LVOCreateDOSPkt:$FFFFFE68,7
+_LVODeleteDOSPkt:$FFFFFE62,7
+_LVOSendDOSPkt:$FFFFFE5C,7
+_LVOWaitDOSPkt:$FFFFFE56,7
+_LVOFindDevice:$FFFFFE50,7
+_LVOAddClipNode:$FFFFFE4A,7
+_LVORemClipNode:$FFFFFE44,7
+_LVOLockRexxBase:$FFFFFE3E,7
+_LVOUnlockRexxBase:$FFFFFE38,7
+_LVOCreateCLI:$FFFFFE32,7
+_LVODeleteCLI:$FFFFFE2C,7
+_LVOCVs2i:$FFFFFE26,7
+CTB_SPACE:$0,7
+CTB_DIGIT:$1,7
+CTB_ALPHA:$2,7
+CTB_REXXSYM:$3,7
+CTB_REXXOPR:$4,7
+CTB_REXXSPC:$5,7
+CTB_UPPER:$6,7
+CTB_LOWER:$7,7
+CTF_SPACE:$1,7
+CTF_DIGIT:$2,7
+CTF_ALPHA:$4,7
+CTF_REXXSYM:$8,7
+CTF_REXXOPR:$10,7
+CTF_REXXSPC:$20,7
+CTF_UPPER:$40,7
+CTF_LOWER:$80,7
diff --git a/AMOS/Productivity1/Equates/Editor_Commands.AMOS b/AMOS/Productivity1/Equates/Editor_Commands.AMOS
new file mode 100644
index 0000000..966a571
Binary files /dev/null and b/AMOS/Productivity1/Equates/Editor_Commands.AMOS differ
diff --git a/AMOS/Productivity1/Equates/Editor_Commands.Doc b/AMOS/Productivity1/Equates/Editor_Commands.Doc
new file mode 100644
index 0000000..3f67798
--- /dev/null
+++ b/AMOS/Productivity1/Equates/Editor_Commands.Doc
@@ -0,0 +1,433 @@
+
+
+                      AMOS Professional Editor Commands
+
+                         Documentation by F.Lionet
+
+                  Copyright (c) 1993 Europress Software 1993
+
+
+
+                                Introduction
+
+
+The AMOSPro editor contains many advanced features. One of them is the
+ability to launch AMOS programs as accessories.
+
+To be an accessory a program has to respect a few rules:
+
+- The SET ACCESSORY command must be used within the sourcecode
+- The  program  must  be  launched from the AMOS menu, or assigned to a key
+  shortcut.
+- It must not be the currently edited program.
+
+If  the  above conditions are respected the program will have full access to
+the  source  code  of the current program.  This means it can edit the file,
+save  it  or  do whatever necessary with it.  It even has full access to the
+editor screen, and can even display into it!
+
+This system is incredibly powerful. Almost anything is possible.
+
+A few example ideas:
+
+- A  palette  generator:   instead of typing in the colours by hand, call a
+  palette accessory then select the colours with the mouse.  Upon quitting the
+  accessory,  the  'Palette'  instruction  with the correct colours is created
+  into the source!
+
+- Source analyser, list out all procedure names, cross reference variable
+  list etc.
+
+- An interface between the AMOSPro editor and AREXX:  The accessory gets
+  AREXX messages and transforms them into editor commands.
+
+- An adventure generator
+
+- The retokeniser is a good example: have a look at it.
+
+- etc, etc.
+
+
+
+                             How does it work?
+
+Once  your  program  is  called  as  an  accessory,  it  can use two AMOSPro
+instructions:  Ask Editor and Call Editor.
+
+Optional  parameters  returned  by  the  editor  will be found in =Param and
+=Param$.
+
+All the editor calls are defined in AMOSPro_System_Equate file.  You'll need
+to use the =Equ("") instruction to get the correct value.
+
+* Call Editor FUNCTION [,PAR][,PAR$]
+
+This  instruction is used to send commands to the editor.  It acts just like
+a  TV  remote  controler:   making the editor cursor move, opening a window
+etc.
+
+FUNCTION:  the number of the function to be called, must begin with "AEd_"
+PAR:   an  optional integer parameter, usually for requester simulated input
+(stated for each function).
+PAR$:  an optional string parameter, for example a file name.
+
+
+* Ask Editor FUNCTION [,PAR][,PAR$]
+
+As  the  name  implies, this instruction is used to get information from the
+editor.
+
+FUNCTION: the number of the function to be called. Must begin with "AEdAsk_"
+PAR: the optional integer parameter
+PAR$: the optional string parameter.
+
+
+
+                         The "Ask Editor" Commands.
+
+Any integer parameter is returned in =Param
+Any string is returned in =Param$
+
+AEdAsk_CurrentLine (1)
+* Returns the current line (under the cursor)
+* No parameter
+
+AEdAsk_ProgramName (2)
+* Returns the name of the current program
+* No parameter
+
+AEdAsk_X (3)
+* Returns the current cursor's X position
+* No parameter
+
+AEdAsk_Y (4)
+* Returns the current cursor's Y position
+* No parameter
+
+AEdAsk_NumberOfLines (5)
+* Returns the number of lines of the current program
+* No parameter
+
+AEdAsk_BlocX1 (6)
+* Returns the X position of the start of the highlighted block (if defined)
+* No parameter
+
+AEdAsk_BlocY1 (7)
+* Returns the Y position of the start of the highlighted block (if defined)
+* No parameter
+
+AEdAsk_BlocY2 (8)
+* Returns the X position of the end of the highlighted block (if defined) 
+* No parameter
+
+AEdAsk_BlocY2 (9)
+* Returns the Y position of the end of the highlighted block (if defined) 
+* No parameter
+
+AEdAsk_Free (10)
+* Returns the amount of free buffer space.
+* No parameter
+
+AEdAsk_Struc (11)
+* Internal use only
+
+AEdAsk_Token (12)
+* Tokenise the given ASCII String into AMOS source code, and returns a
+  pointer to a buffer containing the tokenised code.
+* PAR$= string to tokenise.
+
+
+                            The editor commands
+
+After the command has been called:
+
+=Param contains the error state:  0 if no error, <>0 if an error occured.
+
+=Param$  is empty if no errors occured, and contains the error message if an
+error occured.
+
+AEd_Up (1)
+* Moves the cursor up one line
+
+AEd_Down (2)
+* Moves the cursor down one line.
+
+AEd_Left (3)
+* Moves the cursor left one character.
+
+AEd_Right (4)
+* Moves the cursor right one character.
+
+AEd_TopPage (5)
+* Moves the cursor to the top of the current window.
+
+AEd_BottomPage (6)
+* Move the cursor to the bottom of the current window.
+
+AEd_WordLeft (7)
+* Move the cursor to the beginning of the previous word.
+
+AEd_WordRight (8)
+* Move the cursor to the beginning of the next word.
+
+AEd_PageUp (9)
+* Move the cursor up one page in the text.
+
+AEd_PageDown (10)
+* Move the cursor down one page in the text.
+
+AEd_StartLine (11)
+* Move the cursor to the start of the current line.
+
+AEd_EndLine (12)
+* Move the cursor to the end of the current line.
+
+AEd_WindowUp (13)
+* Moves the current window up.
+
+AEd_WindowDown (14)
+* Moves the current window down.
+
+AEd_WindowSmaller (15)
+* Reduce the size of the current window.
+
+AEd_WindowBigger (16)
+* Increase the size of the current window.
+
+AEd_TopOfText (17)
+* Move the cursor to the top of the text. 
+
+AEd_BottomOfText (18)
+* Move the cursor to the end of the text.
+
+AEd_Return (19)
+* Performs a <RETURN> 
+
+AEd_BackSpace (20)
+* Performs a <BACKSPACE>: delete one character to the left of the cursor.
+
+AEd_Delete (21)
+* Performs a <DELETE>: delete one character to the right of the cursor.
+
+AEd_ClrLine (22)
+* Clears the entire current line.
+
+AEd_DelLine (23)
+* Delete the current line, and scroll up the rest of the text <CONTROL-Y>
+
+AEd_Tab (24)
+* Insert one tab <TAB>
+
+AEd_SetTab (25)
+* Set the current tab value.
+* PAR= new tab value.
+
+AEd_InsertLine (29)
+* Insert one empty line at the current cursor position <F10>
+
+AEd_DelToEndOfLine (30)
+* Delete to the end of the current line <CONTROL-DEL>
+
+AEd_PreviousLabel (31)
+* Go to previous label.
+
+AEd_NextLabel (32)
+* Go to next label.
+
+AEd_Load (33)
+* Load a new program in the current window.
+* PAR$= filename of the program to load.
+* PAR= answer to the requester "Program not saved, save it?"
+0= CANCEL / 1=YES / 2=NO
+
+AEd_SaveAs (34)
+* Save the current program with a new name.
+* PAR$= new filename.
+
+AEd_Save (35)
+* Save the current program.
+* PAR$= optional name if program is not named.
+
+AEd_DelWordRight (36)
+* Delete the word to the right of the cursor.
+
+AEd_DelWordLeft (37)
+* Delete the word to the left of the cursor.
+
+AEd_Hide (38)
+* Hide the current program.
+
+AEd_SetSystemMark1 (39)
+* Set system mark number 1
+
+AEd_SetSystemMark2 (40)
+* Set system mark number 2.
+
+AEd_SetSystemMark3 (41)
+* Set system mark number 3.
+
+AEd_SetMark1 (42)
+* Set mark number 1.
+
+AEd_SetMark2 (43)
+* Set mark number 2.
+
+AEd_SetMark3 (44)
+* Set mark number 3.
+
+AEd_SetMark4 (45)
+* Set mark number 4.
+
+AEd_SetMark5 (46)
+* Set mark number 5.
+
+AEd_SetMark6 (47)
+* Set mark number 6.
+
+AEd_GotoSystemMark1 (49)
+* Move the cursor to the system mark number 1.
+
+AEd_GotoSystemMark2 (50)
+* Move the cursor to the system mark number 2.
+
+AEd_GotoSystemMark3 (51)
+* Move the cursor to the system mark number 3.
+
+AEd_GotoMark1 (52)
+* Move the cursor to the mark number 1.
+
+AEd_GotoMark2 (53)
+* Move the cursor to the mark number 2.
+
+AEd_GotoMark3 (54)
+* Move the cursor to the mark number 3.
+
+AEd_GotoMark4 (55)
+* Move the cursor to the mark number 4.
+
+AEd_GotoMark5 (56)
+* Move the cursor to the mark number 5.
+
+AEd_GotoMark6 (57)
+* Move the cursor to the mark number 6.
+
+AEd_BlocOnOff (59)
+* Toggle the block mode on/off.
+
+AEd_Forget (60)
+* Forget the currently stored block.
+
+AEd_OpenLoad (61)
+* Opens a new window, and loads the specified program into it. 
+* PAR$= file name to load
+* PAR= answer to "Buffer to small" requester. 0=NO / 1=YES
+
+AEd_BlocCut (62)
+* Cut the currently highlighted block.
+
+AEd_BlocPaste (63)
+* Paste the currently stored block.
+
+AEd_DelToStartOfLine (64)
+* Delete to the start of the current line.
+
+AEd_Undo (65)
+* Performs one step of UNDO.
+
+AEd_Search (66)
+* Initialise the search process. Search does NOT begin after this 
+  instruction, you should call AEd_SearchNext ou AEd_SearchPrevious.
+* PAR$= string to look for (31 char maximum).
+* PAR=0: lower<>upper, PAR=1 lower=upper.
+
+AEd_SearchNext (67)
+* Search for the next occurence of the string.
+
+AEd_SearchPrevious (68)
+* Search for the previous occurence of the string.
+
+AEd_ChangeLine (69)
+* Replace the current line with the specified one. Does NOT tokenise 
+the line or store it into the text buffer. This line will be 
+tonkenised automatically if the cursor is moved.
+* PAR$= new string to force into the screen.
+
+AEd_NewLine (71)
+* Replace the current line on the screen and tokenise it. Then redisplays
+the tokenised line (which may differ).
+* PAR$= new string to force into the text.
+
+AEd_BlocStore (72)
+* Stores the highlighted block into memory.
+
+AEd_Clear (80)
+* New the current program.
+* PAR= answer to "Program not saved, save?" requester. 0=CANCEL / 1=YES / 2=NO
+
+AEd_Close (81)
+* Close the current window.
+* PAR= answer to "Program not saved, save?" requester. 0=CANCEL / 1=YES / 2=NO
+
+AEd_Merge (84)
+* Merge a program from disc with the current one, at the cursor's position.
+* PAR$= name of the program to merge.
+
+AEd_MergeAscii (85)
+* Merge an ascii text at the cursor's position.
+* PAR$= name of the file to merge.
+
+AEd_BlocPrint (86)
+* Print the currently stored block.
+
+AEd_UnfoldAll (89)
+* Open all closed procedures.
+
+AEd_WindowPrev (91)
+* Activate previous window.
+
+AEd_WindowNext (92)
+* Activate next window.
+
+AEd_WindowToggle (93)
+* Toggle the size of the window (large or small).
+
+AEd_Redo (94)
+* Performs one REDO step.
+
+AEd_BlocSaveAscii (97)
+* Save the currently stored block as an ascii file
+* PAR$= name of the file to create
+
+AEd_BlocSave (98)
+* Saves the currently stored block.
+* PAR$= name of the file to create.
+
+AEd_Replace (99)
+* Initialise the replace string and replace modes. You should first
+  call AEd_Search to set the searched string, and the search mode.
+  Replace process only begins if TURBO mode is selected, otherwise you
+  must call AEd_ReplaceNext or AEd_ReplacePrevious.
+* PAR$= string to replace with, 31 characters maximum.
+* PAR=0: normal replace, PAR=%0100: turbo within the block, 
+  PAR=%1000: turbo for whole text.
+
+AEd_ReplaceNext (100)
+* Replace next occurence of searched string.
+
+AEd_ReplacePrevious (101)
+* Replace previous occurence of searched string.
+
+AEd_Open (103)
+* Opens a new AMOS window.
+
+AEd_PrintProgram (146)
+* Send the current program to the printer.
+
+AEd_HighlightAll (181)
+* Highlight all the current text.
+
+AEd_ChangeConfig (182)
+* Changes one of the editor's internal configuration strings.  Used in
+  AMOSPro_Editor_Config.AMOS
+* PAR$= new string
+* PAR= number of the string to change
diff --git a/AMOS/Productivity1/Equates/Equates.Doc b/AMOS/Productivity1/Equates/Equates.Doc
new file mode 100644
index 0000000..19ae092
--- /dev/null
+++ b/AMOS/Productivity1/Equates/Equates.Doc
@@ -0,0 +1,311 @@
+#HYP2000
+	           {[000,4,7]                                       }
+	           {[000,4,7]    AMOS Professional System Equate    }
+	           {[000,4,7]                                       }
+
+
+Welcome  to  the AMOS Pro System Equates!  This powerfull system enable you
+to directly access all Amiga Equates, in a symbolic manner.  AMOS Pro allow
+you to have a clean, system friendly access to the ROM's library.
+
+Please select an option:
+
+	           {[32 ,6,3]           How does it work?           }
+	           {[90 ,6,3]      Which equates are included?      }
+	           {[140,6,3]      How to add your own equates.     }
+
+	           {[ADD,4,7]  RUN and add equates to current file  }
+	           {[CRE,4,7]  RUN and create a new equate file     }
+
+	           {[QUT,4,7]                  Quit                 }
+
+
+
+
+
+
+
+
+
+
+
+	           {[000,4,7]                                       }
+	           {[000,4,7]           How does it work?           }
+	           {[000,4,7]                                       }
+
+
+AMOS  Pro  offers  four new instructions to deal with the equates (for more
+information, please refer to the AMOS Pro User Guide).
+
+	=Equ("The_Equate")
+	=Lvo("System_Function")
+	=Struc(Address,"Position")=
+	=Struc$(Address,"Position")=
+
+If during testing time AMOS Pro encounters one of the above instructions it
+will load the following file into memory:
+
+	"AMOSPro_Tutorial:AMOSPro_System_Equates"
+
+AMOS  Pro  explores  it,  looking  for  the specified equate value.  If the
+equate is found, its value is poked directly into the AMOS source code.  It
+remains  there  until  you  change the line with the editor.  Next time you
+test  the  program,  AMOS  Pro  will simply verify that the equate has been
+defined and skip the instruction.
+
+This means that once the program has been tested, AMOS Pro will not need to
+load the Equate file (unless you change the source again).  This allows you
+to  send  programs  which  contain  Equates  that someone else doesn't have
+access  too.   Or  to  someone who doesn't even have the equates file!  For
+safe  keeping,  it's  a  good  idea to place the =Equ("") instructions into
+closed procedures, ensuring they won't be changed by mistake.
+
+The  Equate  file remains in memory wherever possible.  As long as a memory
+flush  does  not  occur.   So if you have enough RAM it will only be loaded
+once.   Floppy  disc  users  will  have to keep inserting the disc with the
+equates  file  on  if they don't have enough RAM.  (If you're serious about
+developing  you must have plenty of RAM and a hard disc).  Close Editor and
+Kill  Editor  are  the  only instructions which will erase the Equate file.
+(If  they  are enabled within your configuration file.) This ensures enough
+RAM is freed when needed.
+
+ATTENTION:   Set  Equate Bank is no longer used.  We have realised that the
+above  method was much better.  It saves using a bank for storage.  To keep
+AMOS  Pro's  compatible,  it  is necessary to leave this command within the
+instruction set.  But it has absolutely NO EFFECT!
+
+
+	           {[001,4,3]             Back to Menu              }
+
+
+
+
+
+
+
+
+
+
+
+
+	           {[000,4,7]                                       }
+	           {[000,4,7]      Which equates are included?      }
+	           {[000,4,7]                                       }
+
+
+The  Amiga  system  has  a  LOT of equates.  Inserting all of them into the
+equate file would have made it as big as 400k!
+
+Here is the list of files included in this file:
+
+	All: dos.library, exec.library, math(s).library,
+        icon.library _LVOs,
+	"exec/exec.i"
+	"dos/dos.i"
+	"dos/dosextens.i"
+	"libraries/locale.i"
+
+	"devices/audio.i"
+	"devices/bootblock.i"
+	"devices/clipboard.i"
+	"devices/gameport.i"
+	"devices/parallel.i"
+	"devices/printer.i"
+	"devices/prtbase.i"
+	"devices/prtgfx.i"
+	"devices/scsidisk.i"
+	"devices/serial.i"
+	"devices/timer.i"
+	"devices/trackdisk.i"
+	"hardware/Custom.i"
+	"rexx/errors.i"
+	"rexx/rexxio.i"
+	"rexx/rxslib.i"
+	"rexx/storage.i"
+
+This means you have total control over dos and exec, any devices, arexx and
+the  hardware  chipset.   If  you  can't find the equates you need for your
+applications then read the next chapter.
+
+	           {[001,4,3]             Back to Menu              }
+
+
+
+
+
+
+
+
+
+
+
+	           {[000,4,7]                                       }
+	           {[000,4,7]     How to add your own equate.       }
+	           {[000,4,7]                                       }
+
+
+There  are two methods to achieve this task and it depends on the number of
+equates you want to add.
+
+
+1. Simple method - using a text editor
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+The  equate  file  is  a plain ASCII file. Just load it into your favourite
+text  editor.   You  will see immediately that the structure of the file is
+very simple:
+
+	The_Equate:$XXXXXXXX,Type
+
+* The_Equate is the name of the equate to be defined.  Beware!  Case is
+  important.  A colon must lie right at the end of name (no spaces).
+
+* $XXXXXXXX is the value of this equate.  It can be hexadecimal, decimal,
+  or binary (with a %).
+
+* Type defines the type of the equate:
+
+	0 Byte
+	1 Word, Bool
+	2 Long
+	3 UByte
+	4 UWord
+	5 ULong
+	6 APTR, FPRT, CPRR
+	7 No special type.
+
+The =Equ("") function returns any kind of equate, regardless of its kind.
+
+The  =Lvo("")  function also returns any kind of equates, but add an "_LVO"
+to the name of the specified equate before looking for it in the file.
+
+=STRUC= only works with equates of type 0 to 6
+
+=STRUC$= only works with equates of type 6
+
+How to add your new equate:
+
+* Go to the bottom of the file.
+* Type in your equate, no spaces and respecting the types (choose type 7 if
+  you do not know).
+* Continue for every other equate you're adding.
+* Save your file.
+
+
+2. Using Make_Equate.AMOS.
+~~~~~~~~~~~~~~~~~~~~~~~~~~
+This program automatically converts a listing produced by an assembler into
+a  file  which  AMOS Pro will understand.  Make_Equates was used to produce
+the "AMOSPro_System_Equate" file on you master disc.
+
+How to proceed?
+
+* You should use Genam2 (or 3), in fact the assembler, Genim2.
+
+* You must create a source listing which includes all the files you want to
+  grab the equates from.  Here is the source used for the default equate
+  file:
+
+
+; Make sure all macros are listed
+		OPT M+
+
+; My own include directory,
+		IncDir  "Work:includes/i/"	
+
+; Let's go with the includes
+		Include "exec/exec.i"
+		Include "dos/dos.i"
+		Include "dos/dosextens.i"
+		Include "libraries/locale.i"
+
+		Include "devices/audio.i"
+		Include "devices/bootblock.i"
+		Include "devices/clipboard.i"
+		Include "devices/gameport.i"
+		Include "devices/parallel.i"
+		Include "devices/printer.i"
+		Include "devices/prtbase.i"
+		Include "devices/prtgfx.i"
+		Include "devices/scsidisk.i"
+		Include "devices/serial.i"
+		Include "devices/timer.i"
+		Include "devices/trackdisk.i"
+		Include "hardware/Custom.i"
+		Include "rexx/errors.i"
+		Include "rexx/rexxio.i"
+		Include "rexx/rxslib.i"
+		Include "rexx/storage.i"
+
+* Under a CLI, you must assemble the source, with the "-p" option, this
+  informs the assembler to produce a 2 pass assembly listing.  Here is an
+  example of the listing produced for the default file:
+
+   22 00.00000000                      * unit defintions
+   23   =00000000                      UNIT_MICROHZ    EQU     0
+   24   =00000001                      UNIT_VBLANK     EQU     1
+   25   =00000002                      UNIT_ECLOCK     EQU     2
+   26   =00000003                      UNIT_WAITUNTIL  EQU     3
+   27   =00000004                      UNIT_WAITECLOCK EQU     4
+   28 00.00000000                      
+   29 00.00000000                      TIMERNAME       MACRO
+   30 00.00000000                                      DC.B    'timer.device',0
+   31 00.00000000                                      DS.W    0
+   32 00.00000000                                      ENDM
+   33 00.00000000                      
+   34 00.00000000                       STRUCTURE TIMEVAL,0
+   34   =00000000+                     TIMEVAL     EQU     0
+   34   =00000000+                     SOFFSET     SET     0
+   34 00.00000000                                  ENDM
+   35 00.00000000                              ULONG   TV_SECS
+   35   =00000000+                     TV_SECS     EQU     SOFFSET
+   35   =00000004+                     SOFFSET     SET     SOFFSET+4
+   35 00.00000000                                  ENDM
+   36 00.00000000                              ULONG   TV_MICRO
+   36   =00000004+                     TV_MICRO            EQU     SOFFSET
+   36   =00000008+                     SOFFSET     SET     SOFFSET+4
+   36 00.00000000                                  ENDM
+   37 00.00000000                              LABEL   TV_SIZE
+   37   =00000008+                     TV_SIZE     EQU     SOFFSET
+   37 00.00000000                                  ENDM
+   38 00.00000000                      
+   39 00.00000000                       STRUCTURE ECLOCKVAL,0
+   39   =00000000+                     ECLOCKVAL           EQU     0
+   39   =00000000+                     SOFFSET     SET     0
+   39 00.00000000                                  ENDM
+   40 00.00000000                              ULONG   EV_HI
+   40   =00000000+                     EV_HI       EQU     SOFFSET
+   40   =00000004+                     SOFFSET     SET     SOFFSET+4
+   40 00.00000000                                  ENDM
+   41 00.00000000                              ULONG   EV_LO
+   41   =00000004+                     EV_LO       EQU     SOFFSET
+   41   =00000008+                     SOFFSET     SET     SOFFSET+4
+   41 00.00000000                                  ENDM
+   42 00.00000000                              LABEL   EV_SIZE
+   42   =00000008+                     EV_SIZE     EQU     SOFFSET
+   42 00.00000000                                  ENDM
+   43 00.00000000                      
+
+  No need to tell you that this can can be enormous (the default one is
+  600k!).  I suggest you work on a hard-drive!
+
+* Once the .LST file is created, you run Make_Equates.AMOS.  The program
+  will explore the .LST file, line by line, and take any labels out of it.
+  It automatically detects the type of the label from the listing,
+  and creates the proper line for AMOS Pro.
+
+  For security reasons the program works on a temporary file on the
+  Ram Disc (you can set the path of the temporary file at the beginning of
+  the program).  When everything is finished you have the option of
+  copying the new file over the old one.
+
+  You can either:
+
+		a) Create a new file
+		b) Add labels to the existing file.
+
+  In both cases, any label defined twice will not be added to the file.  At
+  the  end  of  the  process  the  number  of  new and duplicated labels is
+  reported.
+
+
+	           {[001,4,3]             Back to Menu              }
diff --git a/AMOS/Productivity1/Equates/Make_Equates.AMOS b/AMOS/Productivity1/Equates/Make_Equates.AMOS
new file mode 100644
index 0000000..a9be065
Binary files /dev/null and b/AMOS/Productivity1/Equates/Make_Equates.AMOS differ
diff --git a/AMOS/Productivity1/Fileo'fax.AMOS b/AMOS/Productivity1/Fileo'fax.AMOS
new file mode 100644
index 0000000..fd7e6bd
Binary files /dev/null and b/AMOS/Productivity1/Fileo'fax.AMOS differ
diff --git a/AMOS/Productivity1/Menu_Editor.AMOS b/AMOS/Productivity1/Menu_Editor.AMOS
new file mode 100644
index 0000000..f207fd3
Binary files /dev/null and b/AMOS/Productivity1/Menu_Editor.AMOS differ
diff --git a/AMOS/Productivity1/Planet_Zybex/Zybex.AMOS b/AMOS/Productivity1/Planet_Zybex/Zybex.AMOS
new file mode 100644
index 0000000..d892b47
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/Zybex.AMOS differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level1_screen.abk b/AMOS/Productivity1/Planet_Zybex/level1_screen.abk
new file mode 100644
index 0000000..7fb85fe
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level1_screen.abk differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level2_screen.abk b/AMOS/Productivity1/Planet_Zybex/level2_screen.abk
new file mode 100644
index 0000000..ca986f5
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level2_screen.abk differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level3_screen.abk b/AMOS/Productivity1/Planet_Zybex/level3_screen.abk
new file mode 100644
index 0000000..b3f61c0
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level3_screen.abk differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level4_screen.abk b/AMOS/Productivity1/Planet_Zybex/level4_screen.abk
new file mode 100644
index 0000000..2f6e631
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level4_screen.abk differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level5_screen.abk b/AMOS/Productivity1/Planet_Zybex/level5_screen.abk
new file mode 100644
index 0000000..6a01c74
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level5_screen.abk differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level6_screen.abk b/AMOS/Productivity1/Planet_Zybex/level6_screen.abk
new file mode 100644
index 0000000..81e6a14
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level6_screen.abk differ
diff --git a/AMOS/Productivity1/Planet_Zybex/level7_screen.abk b/AMOS/Productivity1/Planet_Zybex/level7_screen.abk
new file mode 100644
index 0000000..b46a71f
Binary files /dev/null and b/AMOS/Productivity1/Planet_Zybex/level7_screen.abk differ
diff --git a/AMOS/Productivity1/Quatro.AMOS b/AMOS/Productivity1/Quatro.AMOS
new file mode 100644
index 0000000..e29c472
Binary files /dev/null and b/AMOS/Productivity1/Quatro.AMOS differ
diff --git a/AMOS/Productivity1/SuperBlockout.AMOS b/AMOS/Productivity1/SuperBlockout.AMOS
new file mode 100644
index 0000000..165adc3
Binary files /dev/null and b/AMOS/Productivity1/SuperBlockout.AMOS differ
diff --git a/AMOS/Productivity2.info b/AMOS/Productivity2.info
new file mode 100644
index 0000000..24d84a5
Binary files /dev/null and b/AMOS/Productivity2.info differ
diff --git a/AMOS/Productivity2/Font8x8_Editor.AMOS b/AMOS/Productivity2/Font8x8_Editor.AMOS
new file mode 100644
index 0000000..5e4d52a
Binary files /dev/null and b/AMOS/Productivity2/Font8x8_Editor.AMOS differ
diff --git a/AMOS/Productivity2/IFF_Compactor.AMOS b/AMOS/Productivity2/IFF_Compactor.AMOS
new file mode 100644
index 0000000..e77fa42
Binary files /dev/null and b/AMOS/Productivity2/IFF_Compactor.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/AMAL/Bobs.abk b/AMOS/Productivity2/Procedures/AMAL/Bobs.abk
new file mode 100644
index 0000000..1906248
Binary files /dev/null and b/AMOS/Productivity2/Procedures/AMAL/Bobs.abk differ
diff --git a/AMOS/Productivity2/Procedures/AMAL/_Single_Step.AMOS b/AMOS/Productivity2/Procedures/AMAL/_Single_Step.AMOS
new file mode 100644
index 0000000..faa415c
Binary files /dev/null and b/AMOS/Productivity2/Procedures/AMAL/_Single_Step.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Audio/_Number_to_Speech.AMOS b/AMOS/Productivity2/Procedures/Audio/_Number_to_Speech.AMOS
new file mode 100644
index 0000000..ec28f55
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Audio/_Number_to_Speech.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Audio/_Number_to_Speech.Bak b/AMOS/Productivity2/Procedures/Audio/_Number_to_Speech.Bak
new file mode 100644
index 0000000..b0b22b4
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Audio/_Number_to_Speech.Bak differ
diff --git a/AMOS/Productivity2/Procedures/Bobs/RMask b/AMOS/Productivity2/Procedures/Bobs/RMask
new file mode 100644
index 0000000..0cee1eb
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Bobs/RMask differ
diff --git a/AMOS/Productivity2/Procedures/Bobs/Rmask.S b/AMOS/Productivity2/Procedures/Bobs/Rmask.S
new file mode 100644
index 0000000..b70dcb9
--- /dev/null
+++ b/AMOS/Productivity2/Procedures/Bobs/Rmask.S
@@ -0,0 +1,147 @@
+; ____________________________________________________________________________
+;
+; 	AMOS Complex mask calculation
+;
+;	[Number,Colour0,Colour1]
+; ____________________________________________________________________________
+
+	OPT	P+
+	Include	"|AMOS_Includes.s"
+; ____________________________________________________________________________
+
+
+; Look for the sprite bank
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Bnk_GetBobs
+	beq	Erreur
+; Get the parameters back
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	(a3)+,d2	Colour 2
+	move.l	(a3)+,d1	Colour 1
+	move.l	(a3)+,d0	Number of the bob
+; Parameter check
+; ~~~~~~~~~~~~~~~
+	tst.w	d0
+	ble	Erreur
+	cmp.w	(a0)+,d0	> of available sprites 
+	bhi	Erreur		
+	lsl.w	#3,d0
+	lea	-8(a0,d0.w),a5	Adress of the bobs
+	move.l	(a5)+,d0
+	beq	Erreur
+	move.l	d0,a4		A4= SpriteBase
+
+* Built up table
+	lea	Table(pc),a0
+	cmp.l	(a0),d1
+	bne.s	DoTable
+	cmp.l	4(a0),d2
+	beq.s	PaTable
+DoTable	move.l	d1,(a0)+
+	move.l	d2,(a0)+
+	moveq	#64-1,d0
+Table0	clr.b	(a0)
+	lsr.l	#1,d1
+	roxr.l	#1,d2
+	bcc.s	Table1
+	subq.b	#1,(a0)
+Table1	addq.l	#1,a0
+	dbra	d0,Table0
+PaTable
+
+* Calculation of mask size
+	move.w	(a4),d7		TX
+	lsl.w	#1,d7		En mots
+	mulu	2(a4),d7	fois TY
+
+* Reserve memory (if needed)
+	move.l	(a5),d0
+	beq.s	Reserve
+	bpl.s	DejaLa
+Reserve	move.l	d7,d0
+	addq.l	#4,d0
+	move.l	d0,d2
+	move.l	$4,a6
+	move.l	#Chip|Public,d1		CHIP memory only
+	jsr	_LVOAllocMem(a6)
+	move.l	d0,(a5)
+	beq	Erreur
+	move.l	d0,a0
+	move.l	d2,(a0)+	Loke the size 
+DejaLa	move.l	d0,a2
+	addq.l	#4,a2
+
+* Loop initialisation
+	move.l	d7,d6		D6-> Size of one memory plane
+	subq.l	#1,d7		D7-> Byte counter
+	move.w	4(a4),d5	Number of planes
+	subq.w	#1,d5		D5-> Plane counter reload
+	lea	10(a4),a1	A1-> Bitmap base
+;				A2-> Mask address
+	lea	Table+8(pc),a3	A3-> Mask table
+
+* Calculation loop
+.loop0	moveq	#7,d3		D3-> Bit counter
+.loop1	moveq	#0,d0		D0-> Color calculation
+	moveq	#0,d1		D1-> Bit position
+	move.w	d5,d2		D2-> Plane counter
+	move.l	a1,a0		A0-> Point to current byte
+.loop2	btst	d3,(a0)
+	beq.s	.loop3
+	bset	d1,d0
+.loop3	add.l	d6,a0		Next plane
+	addq.w	#1,d1
+	dbra	d2,.loop2
+
+	bset	d3,(a2)
+	tst.b	0(a3,d0.w)	Transparent colour?	
+	beq.s	.loop4
+	bclr	d3,(a2)
+.loop4
+	dbra	d3,.loop1	Still one bit?
+	addq.l	#1,a1
+	addq.l	#1,a2
+	dbra	d7,.loop0	Still one byte?
+
+* All done, no errors
+	moveq	#0,d0
+	rts
+* An error
+Erreur	moveq	#-1,d0
+	rts
+
+; Finds a bank adress
+; ~~~~~~~~~~~~~~~~~~~
+Bnk_GetAdr
+	move.l	Cur_Banks(a5),a0
+	move.l	(a0),d1
+	beq.s	.Nof
+.Loop	move.l	d1,a1
+	cmp.l	8(a1),d0
+	beq.s	.Fnd
+	move.l	(a1),d1
+	bne.s	.Loop
+.Nof	sub.l	a1,a1
+	move.l	a1,a0
+	rts
+.Fnd	move.w	8+4(a1),d0
+	lea	8*3(a1),a0
+	move.l	a0,a1
+	move.w	#%00000,CCR
+	rts
+; Finds bob bank address
+; ~~~~~~~~~~~~~~~~~~~~~~
+;	OUT	BNE found A0/A1=address (D0/D1 unchanged)
+Bnk_GetBobs
+	movem.l	d0/d1,-(sp)
+	moveq	#1,d0
+	bsr	Bnk_GetAdr
+	beq.s	.Nof
+	btst	#Bnk_BitBob,d0
+.Nof	movem.l	(sp)+,d0/d1
+	rts
+
+******* Work table
+	even
+Table	ds.b	64+8
+	even
diff --git a/AMOS/Productivity2/Procedures/Bobs/Squashed_Bobs.Abk b/AMOS/Productivity2/Procedures/Bobs/Squashed_Bobs.Abk
new file mode 100644
index 0000000..9233c86
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Bobs/Squashed_Bobs.Abk differ
diff --git a/AMOS/Productivity2/Procedures/Bobs/_Make_Mask.AMOS b/AMOS/Productivity2/Procedures/Bobs/_Make_Mask.AMOS
new file mode 100644
index 0000000..e5f2e32
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Bobs/_Make_Mask.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Bobs/_Squash_A_Bob.AMOS b/AMOS/Productivity2/Procedures/Bobs/_Squash_A_Bob.AMOS
new file mode 100644
index 0000000..d779a4d
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Bobs/_Squash_A_Bob.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Bobs/_Squash_Procs.AMOS b/AMOS/Productivity2/Procedures/Bobs/_Squash_Procs.AMOS
new file mode 100644
index 0000000..37a902d
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Bobs/_Squash_Procs.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Copper/_Dump_Copper.AMOS b/AMOS/Productivity2/Procedures/Copper/_Dump_Copper.AMOS
new file mode 100644
index 0000000..484d543
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Copper/_Dump_Copper.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Copper/_Rainbow_Example.AMOS b/AMOS/Productivity2/Procedures/Copper/_Rainbow_Example.AMOS
new file mode 100644
index 0000000..98814ee
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Copper/_Rainbow_Example.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Disc/_DIR_First_Next.AMOS b/AMOS/Productivity2/Procedures/Disc/_DIR_First_Next.AMOS
new file mode 100644
index 0000000..be9667c
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Disc/_DIR_First_Next.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Disc/_Disc_Info.AMOS b/AMOS/Productivity2/Procedures/Disc/_Disc_Info.AMOS
new file mode 100644
index 0000000..a2eca4b
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Disc/_Disc_Info.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Fractals/_Julia_Set_Fractals.AMOS b/AMOS/Productivity2/Procedures/Fractals/_Julia_Set_Fractals.AMOS
new file mode 100644
index 0000000..bb600ad
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Fractals/_Julia_Set_Fractals.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Fractals/_Mandelbrot_Fractals.AMOS b/AMOS/Productivity2/Procedures/Fractals/_Mandelbrot_Fractals.AMOS
new file mode 100644
index 0000000..159f1c3
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Fractals/_Mandelbrot_Fractals.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Fractals/_OLSys_Plant_Fractals.AMOS b/AMOS/Productivity2/Procedures/Fractals/_OLSys_Plant_Fractals.AMOS
new file mode 100644
index 0000000..74afec4
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Fractals/_OLSys_Plant_Fractals.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Fractals/_Quatrals.AMOS b/AMOS/Productivity2/Procedures/Fractals/_Quatrals.AMOS
new file mode 100644
index 0000000..6e3b0bd
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Fractals/_Quatrals.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Graphics/_Fade_All.AMOS b/AMOS/Productivity2/Procedures/Graphics/_Fade_All.AMOS
new file mode 100644
index 0000000..c230671
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Graphics/_Fade_All.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Graphics/_Polygons.AMOS b/AMOS/Productivity2/Procedures/Graphics/_Polygons.AMOS
new file mode 100644
index 0000000..08500c7
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Graphics/_Polygons.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Graphics/_Splines.AMOS b/AMOS/Productivity2/Procedures/Graphics/_Splines.AMOS
new file mode 100644
index 0000000..dfbf4bd
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Graphics/_Splines.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma1_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma1_pal.IFF
new file mode 100644
index 0000000..2b45c22
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma1_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma2_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma2_pal.IFF
new file mode 100644
index 0000000..8354eee
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma2_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma3_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma3_pal.IFF
new file mode 100644
index 0000000..1e2fc2a
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma3_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma4_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma4_pal.IFF
new file mode 100644
index 0000000..0d05520
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma4_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma5_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma5_pal.IFF
new file mode 100644
index 0000000..e2eacad
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma5_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma6_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma6_pal.IFF
new file mode 100644
index 0000000..437cc1b
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma6_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma7_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma7_pal.IFF
new file mode 100644
index 0000000..7f5f520
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma7_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/Plasma8_pal.IFF b/AMOS/Productivity2/Procedures/Plasma/Plasma8_pal.IFF
new file mode 100644
index 0000000..6b87e4a
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/Plasma8_pal.IFF differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/_Edit_Colours.AMOS b/AMOS/Productivity2/Procedures/Plasma/_Edit_Colours.AMOS
new file mode 100644
index 0000000..f8559c3
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/_Edit_Colours.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/_Plasma1.AMOS b/AMOS/Productivity2/Procedures/Plasma/_Plasma1.AMOS
new file mode 100644
index 0000000..313ccbb
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/_Plasma1.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Plasma/_Plasma2.AMOS b/AMOS/Productivity2/Procedures/Plasma/_Plasma2.AMOS
new file mode 100644
index 0000000..b91b6db
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Plasma/_Plasma2.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/Sine_Pic.iff b/AMOS/Productivity2/Procedures/Screen_FX/Sine_Pic.iff
new file mode 100644
index 0000000..a75746d
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/Sine_Pic.iff differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_3D_Landscape.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_3D_Landscape.AMOS
new file mode 100644
index 0000000..37b0525
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_3D_Landscape.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_3D_Scroller.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_3D_Scroller.AMOS
new file mode 100644
index 0000000..555091c
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_3D_Scroller.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Fancy_Wipes.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Fancy_Wipes.AMOS
new file mode 100644
index 0000000..4c3ff01
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Fancy_Wipes.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Formula_Pics.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Formula_Pics.AMOS
new file mode 100644
index 0000000..6b567e2
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Formula_Pics.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Pause_Scroll.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Pause_Scroll.AMOS
new file mode 100644
index 0000000..5ba6e55
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Pause_Scroll.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Screen_Saver.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Screen_Saver.AMOS
new file mode 100644
index 0000000..7b4fb02
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Screen_Saver.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Screen_Sine.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Screen_Sine.AMOS
new file mode 100644
index 0000000..05ec122
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Screen_Sine.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Scroll.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Scroll.AMOS
new file mode 100644
index 0000000..094f4dd
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Scroll.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Slide.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Slide.AMOS
new file mode 100644
index 0000000..737e8e8
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Slide.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Titchy_Scroll.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Titchy_Scroll.AMOS
new file mode 100644
index 0000000..c1d7de2
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Titchy_Scroll.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Wipe1.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Wipe1.AMOS
new file mode 100644
index 0000000..7f9aab8
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Wipe1.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Wipe2.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Wipe2.AMOS
new file mode 100644
index 0000000..3c4e1dc
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Wipe2.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Screen_FX/_Wipe3.AMOS b/AMOS/Productivity2/Procedures/Screen_FX/_Wipe3.AMOS
new file mode 100644
index 0000000..cff2d87
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Screen_FX/_Wipe3.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/AMOS_Workbench_Demo.AMOS b/AMOS/Productivity2/Procedures/System/AMOS_Workbench_Demo.AMOS
new file mode 100644
index 0000000..a9f1e43
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/AMOS_Workbench_Demo.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/_Get_DOS_Error.AMOS b/AMOS/Productivity2/Procedures/System/_Get_DOS_Error.AMOS
new file mode 100644
index 0000000..dfbc63b
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/_Get_DOS_Error.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/_Get_Time.AMOS b/AMOS/Productivity2/Procedures/System/_Get_Time.AMOS
new file mode 100644
index 0000000..c836df9
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/_Get_Time.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/_Wind_Execute.AMOS b/AMOS/Productivity2/Procedures/System/_Wind_Execute.AMOS
new file mode 100644
index 0000000..3b60cde
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/_Wind_Execute.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/_Wind_Input.AMOS b/AMOS/Productivity2/Procedures/System/_Wind_Input.AMOS
new file mode 100644
index 0000000..cfdf5c9
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/_Wind_Input.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/_Wind_Open.AMOS b/AMOS/Productivity2/Procedures/System/_Wind_Open.AMOS
new file mode 100644
index 0000000..fc0e670
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/_Wind_Open.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/System/_Wind_Print.AMOS b/AMOS/Productivity2/Procedures/System/_Wind_Print.AMOS
new file mode 100644
index 0000000..81be5a5
Binary files /dev/null and b/AMOS/Productivity2/Procedures/System/_Wind_Print.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Techniques/Hiscores.SCR b/AMOS/Productivity2/Procedures/Techniques/Hiscores.SCR
new file mode 100644
index 0000000..f641c7d
--- /dev/null
+++ b/AMOS/Productivity2/Procedures/Techniques/Hiscores.SCR
@@ -0,0 +1,20 @@
+Chris Payne
+ 49963
+Robin Meakin
+ 47891
+Lee Meakin
+ 43560
+Francois Lionet
+ 36503
+Jason Holborn
+ 24331
+Fay Meakin
+ 14697
+Richard Vanner
+ 12107
+Mel Croucher
+ 4541
+Pudsey the cat
+ 2729
+
+ 0
diff --git a/AMOS/Productivity2/Procedures/Techniques/_3D_Stars.AMOS b/AMOS/Productivity2/Procedures/Techniques/_3D_Stars.AMOS
new file mode 100644
index 0000000..ed61912
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Techniques/_3D_Stars.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Techniques/_Hi_Scores.AMOS b/AMOS/Productivity2/Procedures/Techniques/_Hi_Scores.AMOS
new file mode 100644
index 0000000..eaac0dd
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Techniques/_Hi_Scores.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Techniques/_Memory_Array.AMOS b/AMOS/Productivity2/Procedures/Techniques/_Memory_Array.AMOS
new file mode 100644
index 0000000..ae6ed88
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Techniques/_Memory_Array.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Techniques/_Radar.AMOS b/AMOS/Productivity2/Procedures/Techniques/_Radar.AMOS
new file mode 100644
index 0000000..44eb522
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Techniques/_Radar.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Text/_Double_Height.AMOS b/AMOS/Productivity2/Procedures/Text/_Double_Height.AMOS
new file mode 100644
index 0000000..9659a51
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Text/_Double_Height.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Text/_Text_Highlight.AMOS b/AMOS/Productivity2/Procedures/Text/_Text_Highlight.AMOS
new file mode 100644
index 0000000..d60b37e
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Text/_Text_Highlight.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Text/_Type_Writer.AMOS b/AMOS/Productivity2/Procedures/Text/_Type_Writer.AMOS
new file mode 100644
index 0000000..6ad0fc3
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Text/_Type_Writer.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Text/_Vertical_Text.AMOS b/AMOS/Productivity2/Procedures/Text/_Vertical_Text.AMOS
new file mode 100644
index 0000000..4f85ac8
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Text/_Vertical_Text.AMOS differ
diff --git a/AMOS/Productivity2/Procedures/Text/_Wavy_Text.AMOS b/AMOS/Productivity2/Procedures/Text/_Wavy_Text.AMOS
new file mode 100644
index 0000000..bafa25d
Binary files /dev/null and b/AMOS/Productivity2/Procedures/Text/_Wavy_Text.AMOS differ
diff --git a/AMOS/Productivity2/Wonderland/Editor_Panel.Iff b/AMOS/Productivity2/Wonderland/Editor_Panel.Iff
new file mode 100644
index 0000000..5a1bb7e
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Editor_Panel.Iff differ
diff --git a/AMOS/Productivity2/Wonderland/Game1.lev b/AMOS/Productivity2/Wonderland/Game1.lev
new file mode 100644
index 0000000..0f2edb9
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Game1.lev differ
diff --git a/AMOS/Productivity2/Wonderland/Game2.lev b/AMOS/Productivity2/Wonderland/Game2.lev
new file mode 100644
index 0000000..2392227
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Game2.lev differ
diff --git a/AMOS/Productivity2/Wonderland/Landscape.Iff b/AMOS/Productivity2/Wonderland/Landscape.Iff
new file mode 100644
index 0000000..ba1a50c
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Landscape.Iff differ
diff --git a/AMOS/Productivity2/Wonderland/Score_Panel.Iff b/AMOS/Productivity2/Wonderland/Score_Panel.Iff
new file mode 100644
index 0000000..46fdd1b
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Score_Panel.Iff differ
diff --git a/AMOS/Productivity2/Wonderland/Title_Screen.Iff b/AMOS/Productivity2/Wonderland/Title_Screen.Iff
new file mode 100644
index 0000000..4516299
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Title_Screen.Iff differ
diff --git a/AMOS/Productivity2/Wonderland/Wonderland.AMOS b/AMOS/Productivity2/Wonderland/Wonderland.AMOS
new file mode 100644
index 0000000..d8bda20
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Wonderland.AMOS differ
diff --git a/AMOS/Productivity2/Wonderland/Wonderland_Samples.Abk b/AMOS/Productivity2/Wonderland/Wonderland_Samples.Abk
new file mode 100644
index 0000000..9951ffa
Binary files /dev/null and b/AMOS/Productivity2/Wonderland/Wonderland_Samples.Abk differ
diff --git a/AMOS/Tutorial.info b/AMOS/Tutorial.info
new file mode 100644
index 0000000..1ac0cb2
Binary files /dev/null and b/AMOS/Tutorial.info differ
diff --git a/AMOS/Tutorial/Extensions/Extension_ReadMe.Asc b/AMOS/Tutorial/Extensions/Extension_ReadMe.Asc
new file mode 100644
index 0000000..380a8b7
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/Extension_ReadMe.Asc
@@ -0,0 +1,117 @@
+______________________________________________________________________________
+..............................................................................
+...................................................................2222222....
+................................................................22222222220...
+...................................................222........222222.....222..
+..............................................2202222222222..22000............
+..................................22000.....20222222222200000200002...........
+.................................2002202...2222200222.220000000200000000022...
+....................220002......22222200..2200002.......2200000...20000000000.
+....................22222202....2220000022200000..........200002........200000
+.....200000.........2222200000222200220000000002..........200002........20000.
+.....00222202........2220022000000002200002000002........2000002000020000000..
+....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+....220000200002......20000..200002..220000200000000000000002.......22........
+...2220002.2200002....220002...22.....200002..0000000000002...................
+...220000..222000002...20000..........200000......2222........................
+...000000000000000000..200000..........00002..................................
+..220000000022020000002.200002.........22.......______________________________
+..0000002........2000000220022.................|
+.200000............2002........................| AMOSPro Extension System
+.200002........................................| 23/09/1992
+220002.........................................|______________________________
+______________________________________________________________________________
+
+This information is valid for AMOSPro V1.0. It may have changed with older
+version of AMOSPro. Please ask for the latest update.
+______________________________________________________________________________
+
+
+Hello everybody! Fran�ois typing on the keyboard to give you more information
+on the AMOSPro Extension system.
+
+1. Starting an extension from scratch.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+You have never created an extension before and you want to make
+your new instruction set.
+
+No problemo. All you need is:
+
+	- An assembler (GenAm2 or 3 preferably)
+
+	- All the include files in this folder
+
+	- Skill, and patience. All the necessary explanations
+	  are given in the file |Music.s.
+	  I suggest that instead of starting an extension from scratch,
+	  you begin by changing one that already exists. A simple
+	  one like |Compact.s is a good example. This way, all the crucial
+	  inits are already provided.
+
+	- Note, you can easily debug you code by placing an "Illegal" in
+	  your code. This will stop AMOSPro and you can then press [Amiga]+[A]
+	  to flip back to the workbench display. This works because Amiga-A is
+	  handled by interrupts.
+
+
+2. Transfering an AMOS1.3 extension.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+First of all, sorry for changing the format of the equates file,
+and forcing you to re-assemble your code. I have had to change things
+so that I could implement all the nice features of AMOSpro. I have also
+progressed a lot since the first AMOS, and I have discovered ugly things that 
+NEEDED to be removed.
+
+On the bright side, 99.9% of change is a simple re-assemble of your code using
+the new equates, and then it should work.
+
+What exactly has changed?
+
+	- The equates, as mentioned before. Just use "Include |AMOS_Include.s"
+
+	- The RJsr calls to the main AMOSPro function library.
+	  The new ones are much better, and more powerful. For example
+	  all the necessary bank handling functions are re-written.
+	  You can now call the file selector from within your extension.
+	  You must read the "|Music.s" file to have the list of
+	  all available instructions.
+
+	- WARNING: L_Bnk.OrAdr uses D0 to input the number of the 
+	  bank, and not D3 any more! Check your code if you use it.
+
+	- The title format has also changed: the "10" character is
+	  no longer needed. You can also have AMOS call your own
+	  title routine if you want.
+
+The AMOSPro compiler will accept your extension code.
+
+I can inform you now, when new Commodore machines are out, 
+you (and I) will have to create new extension code to use the new 
+features. But, that's the way it goes.
+
+
+3. What number should you use for your extension.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Please use a number from 26 and downwards. Official AMOSpro
+extensions are from 1 upward. This way yours and ours will
+never collide!
+
+The extension number is CRUCIAL for your code to work. AMOSPro
+will refuse to boot if the number of the extension in the list
+is not the same as the one returned by the code.
+So check your code.
+
+To register an official AMOS Extension contact Richard Vanner at
+Europress Software. He will confirm the numbers validity and ensure
+future extensions don't collide.
+
+
+4. Why do I use a "|" character before all my source names?
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Hehehe. Doing this ensures all the source code file are automatically
+sorted at the end of the file selector display. Faster and easier to 
+locate!
+
+
+Well, that's all for now, have fun. Francois.
+
diff --git a/AMOS/Tutorial/Extensions/__uae____Cequ_s b/AMOS/Tutorial/Extensions/__uae____Cequ_s
new file mode 100644
index 0000000..99a7c45
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____Cequ_s
@@ -0,0 +1,133 @@
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** ** 
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; EQUATES
+;---------------------------------------------------------------------
+C_Code1		equ	$FE
+C_Code2		equ	$01
+C_CodeD		equ	$6543
+C_CodeJ		equ	$F7
+
+CiJSR		equ	$4EB9
+CiJMP		equ	$4EF9
+CodeR		equ	$8F
+Rjmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Rjsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Ljmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Ljsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Rbra		MACRO
+		dc.b	C_Code1,2*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbsr		MACRO
+		dc.b	C_Code1,3*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbeq		MACRO
+		dc.b	C_Code1,4*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbne		MACRO
+		dc.b	C_Code1,5*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcs		MACRO
+		dc.b	C_Code1,6*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcc		MACRO
+		dc.b	C_Code1,7*16+C_Code2
+		dc.w	\1
+		ENDM
+Rblt		MACRO
+		dc.b	C_Code1,8*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbge		MACRO
+		dc.b	C_Code1,9*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbls		MACRO
+		dc.b	C_Code1,10*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbhi		MACRO
+		dc.b	C_Code1,11*16+C_Code2
+		dc.w	\1
+		ENDM
+Rble		MACRO
+		dc.b	C_Code1,12*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbpl		MACRO
+		dc.b	C_Code1,13*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbmi		MACRO
+		dc.b	C_Code1,14*16+C_Code2
+		dc.w	\1 
+		ENDM
+Rdata		MACRO
+		dc.b	C_Code1,15*16+C_Code2
+		dc.w	C_CodeD
+		ENDM
+Rlea		MACRO
+		lea	\1,\2
+		ENDM
+;Alea		MACRO
+;		move.l	a5,\2
+;		add.w	A\1(a5),\2
+;		ENDM
+*	
+GfxC		MACRO
+		movem.l	d0-d7/a0-a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d7/a0-a6
+		ENDM
+*
+BitLib		equ	31
+BitChaine	equ	30
+BitLabel	equ	29
+*
+Hunk_Public	equ	0
+Hunk_Chip	equ	$40000000
+N_HunkSys	equ	8
+NH_Header	equ	0
+NH_Prog		equ	1
+NH_Reloc	equ	2
+NH_W.Lib	equ	3
+NH_Env		equ	4
+NH_Mouse	equ	5
+NH_Font		equ	6
+NH_Key		equ	7
+*
+FlagFloat	equ	EdMarks+4*4
+AForNext	equ	EdMarks+5*4
+Ad_Labels	equ	EdMarks+6*4
+Num_Proc	equ	EdMarks+7*4
+LowPile		equ	EdMarks+8*4
+LowPileP	equ	EdMarks+9*4
+*
+;---------------------------------------------------------------------
diff --git a/AMOS/Tutorial/Extensions/__uae____Compact b/AMOS/Tutorial/Extensions/__uae____Compact
new file mode 100644
index 0000000..46152ae
Binary files /dev/null and b/AMOS/Tutorial/Extensions/__uae____Compact differ
diff --git a/AMOS/Tutorial/Extensions/__uae____LEqu_s b/AMOS/Tutorial/Extensions/__uae____LEqu_s
new file mode 100644
index 0000000..de63327
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____LEqu_s
@@ -0,0 +1,1002 @@
+; 
+; AMOS 1.34 Compiler librarie numbers
+; + AMOSPro V1.0 extension functions
+;
+L_Init1		equ	0
+L_Init2		equ	1
+L_PlusF		equ	2
+L_PlusC		equ	3
+L_MoinsF	equ	4
+L_MoinsC	equ	5
+L_IntToFl	equ	6
+L_FlToInt	equ	7
+L_Mult		equ	8
+L_Div		equ	10
+L_Mod		equ	12
+L_Puis		equ	13
+L_Eg		equ	14
+L_Dif		equ	17
+L_Inf		equ	20
+L_Sup		equ	23
+L_InfEg		equ	26
+L_SupEg		equ	29
+L_CompCh	equ	32
+L_PrintE	equ	33
+L_PrintF	equ	34
+L_PrintS	equ	35
+L_PrintX	equ	36
+L_LPrintX	equ	37
+L_CRPrint	equ	38
+L_EToAsc	equ	39
+L_FlToAsc	equ	40
+L_UsingC	equ	41
+L_UsingS	equ	42
+L_PrtRet	equ	43
+L_PrtVir	equ	44
+L_DDemande	equ	45
+L_Demande	equ	46
+L_Menage	equ	47
+L_InSearch	equ	48
+L_Dim		equ	49
+L_GetTablo	equ	50
+L_NextE		equ	51
+L_NextF		equ	52
+L_NegFl		equ	53
+L_EcWiErr	equ	54
+L_Tester	equ	56
+L_GetLabE	equ	57
+L_GetLabA	equ	58
+L_GetLab	equ	59
+L_Return	equ	60
+L_Pop		equ	61
+L_DProc1	equ	62
+L_DProc2	equ	63
+L_FProc		equ	64
+L_PrgIn		equ	65
+L_FLeft		equ	72
+L_FRight	equ	73
+L_FMid2		equ	74
+L_FMid3		equ	75
+L_ILeft		equ	78
+L_IRight	equ	79
+L_IMid2		equ	80
+L_IMid3		equ	81
+L_Instr2	equ	83
+L_Instr3	equ	84
+L_Flip		equ	85
+L_Len		equ	86
+L_Space		equ	87
+L_String	equ	88
+L_Chr		equ	90
+L_Asc		equ	91
+L_Bin1		equ	92
+L_Bin2		equ	93
+L_Hex1		equ	94
+L_Hex2		equ	95
+L_LongAscii	equ	97
+L_LongBin	equ	98
+L_FinBin	equ	99
+L_StrE		equ	100
+L_StrF		equ	101
+L_Chverbuf	equ	102
+L_ValPrg	equ	103
+L_Val		equ	104
+L_ClearVar	equ	105
+L_ChVide	equ	106
+L_InputC	equ	107
+L_LInputC	equ	108
+L_InputH	equ	109
+L_LInputH	equ	110
+L_Input		equ	111
+L_CRet		equ	112
+L_LEdit		equ	113
+L_FInky		equ 	114
+L_FScan		equ 	115
+L_FScSh		equ	116
+L_FKSt		equ	117
+L_FShft		equ	118
+L_FJ		equ	119
+L_FJoy		equ	120
+L_FJup		equ	121
+L_FJDown	equ	122
+L_FJRight	equ	123
+L_FJLeft	equ	124
+L_FFire		equ	125
+L_FJ2		equ	126
+L_PutKy		equ	127
+L_ClKy		equ	128
+L_WtKy		equ	129
+L_StKy		equ	130
+L_FKy2		equ	132
+L_FKy1		equ	133
+L_FKy:		equ	134
+L_SsGtKy	equ	135
+L_KSpeed	equ	136
+L_FUpp		equ	137
+L_FLwr		equ	138
+L_FTab		equ	139
+L_FClf		equ	140
+L_FCrt		equ	141
+L_FCup		equ	142
+L_FCDn		equ	143
+L_FPen		equ	144
+L_FPap		equ	145
+L_FPn		equ	146
+L_FAt		equ	147
+L_FCMv		equ	148
+L_FRpt		equ	149
+L_FSur		equ	150
+L_FZone		equ	151
+L_FinRpt	equ	152
+L_WnOp5		equ	153
+L_WnOp6		equ	154
+L_WnOp7		equ	155
+L_WnSave	equ	156
+L_WnMove	equ	157
+L_WnSize	equ	158
+L_WnClo	equ	159
+L_WnDow		equ	160
+L_FWnDon	equ	161
+L_WnWrt1	equ	162
+L_WnWrt2	equ	163
+L_WnBor		equ	164
+L_WnTTop	equ	165
+L_WnTBot	equ	166
+L_WnTT		equ	167
+L_FXCu		equ	168
+L_FYCu		equ	169
+L_WnSCu		equ	170
+L_WnLoc		equ	171
+L_WnCen		equ	172
+L_WnCMv		equ	173
+L_WnCPe		equ	174
+L_WnPap		equ	175
+L_WnPen		equ	176
+L_WnPp		equ	177
+L_WnClw		equ	178
+L_WnHome	equ	179
+L_WnCLf		equ	180
+L_WnCRt		equ	181
+L_WnCup		equ	182
+L_WnCDn		equ	183
+L_WnCOf		equ	184
+L_WnCOn		equ	185
+L_WnIOn		equ	186
+L_WnIOf		equ	187
+L_WnUOn		equ	188
+L_WnUOf		equ	189
+L_WnScOn	equ	190
+L_WnScOf	equ	191
+L_WnSOn		equ	192
+L_WnSOf		equ	193
+L_WnCll		equ	194
+L_WnMX1		equ	195
+L_WnMX2		equ	196
+L_WnMY1		equ	197
+L_WnMY2		equ	198
+L_GoWn		equ	199
+L_WnCln		equ	200
+L_WnHSc		equ	201
+L_WnVSc		equ	202
+L_HVSc		equ	203
+L_WnSTa		equ	204
+L_DefRun	equ	205
+L_FreeRas	equ	206
+L_Tests		equ	207
+L_Cls0		equ	208
+L_Cls1		equ	209
+L_Cls5		equ	210
+L_FScH0		equ	212
+L_FScH1		equ	213
+L_FScW0		equ	215
+L_FScW1		equ	216
+L_FSBase	equ	218
+L_FLBase	equ	219
+L_FPBase	equ	220	
+L_DBuf		equ	221
+L_Scswp0	equ	222
+L_ScSwp1	equ	223
+L_Dual		equ	224
+L_DuPri		equ	225
+L_ScClon	equ	226
+L_FSCol		equ	227
+L_ScOpen	equ	228
+L_ScClo		equ	229
+L_ScDisp	equ	230
+L_ScOffs		equ	231
+L_ScSh0		equ	232
+L_ScSh1		equ	233
+L_ScHi0		equ	234
+L_ScHi1		equ	235
+L_AvOn		equ	237
+L_AvOff		equ	238
+L_View		equ	239
+L_ScFr0		equ	240
+L_ScFr1		equ	241	
+L_ScBk0		equ	243
+L_ScBk1		equ	244
+L_Scr		equ	246
+L_FScr		equ	247
+L_FHires	equ	248
+L_FLowRes	equ	249
+L_WtVbl		equ	250
+L_Colour	equ	251
+L_FColour	equ	252
+L_ColourB	equ	253
+L_DPal		equ	254
+L_Pal		equ	255
+L_Plt		equ	256
+L_GIPal0	equ	257
+L_GIPal1	equ	258
+L_GSpPal0	equ	260
+L_GSpPal1	equ	262
+L_GSp		equ	264
+L_PalRout	equ	265
+L_GPal2		equ	266
+L_GPal1		equ	267
+L_GPal		equ	268
+L_Fade1		equ	269
+L_Fade2		equ	270
+L_Fade3		equ	271
+L_FadeN		equ	272
+L_FadT		equ	273
+L_FlOff		equ	274
+L_Flash		equ	275
+L_ShOff		equ	276
+L_ShUp		equ	277
+L_SHDown	equ	278
+L_SRain6	equ	280
+L_SRain7	equ	281
+L_Rain		equ	282
+L_RainD0	equ	283
+L_RainD1	equ	284
+L_IRain		equ	285
+L_FRain		equ	286
+L_GetEc		equ	287
+L_AutoB		equ	288
+L_CopOn		equ	289
+L_CopOf		equ	290
+L_CopSwap	equ	291
+L_CopErr	equ	292
+L_CopReset	equ	293
+L_CopW4		equ	294
+L_CopW2		equ	295
+L_CopW		equ	296
+L_CopMW		equ	297
+L_CopML		equ	298
+L_CopBase	equ	299
+L_GfxPnt	equ	300
+L_GfxFunc	equ	301
+L_GfxF0		equ	302
+L_Plot2		equ	303
+L_Replot	equ	304
+L_Plot3		equ	305
+L_FPoint	equ	306
+L_RPoint	equ	307
+L_Draw4		equ	308
+L_Draw2		equ	309
+L_Drw		equ	310
+L_GrXY		equ	311
+L_Cir		equ	312
+L_Ell		equ	313
+L_EllCir	equ	314
+L_Polyl		equ	315
+L_ScreenExt	equ	316
+L_Xgr		equ	318
+L_Ygr		equ	319
+L_GrLoc		equ	320
+L_Box		equ	321
+L_Clip0		equ	322
+L_Clip4		equ	323
+L_GoClip	equ	324
+L_GRFont	equ	325
+L_GDFont	equ	326
+L_GFont		equ	327
+L_Igf		equ	328
+L_FFont		equ	329
+L_SFont		equ	330
+L_FftE		equ	331
+L_Text		equ	332
+L_FTBase	equ	333
+L_FTLen		equ	334
+L_FStyle	equ	335
+L_SText		equ	336
+L_SPat		equ	337
+L_SPaint	equ	338
+L_Paint2	equ	339
+L_Paint3	equ	340
+L_Pogo		equ	341
+L_FinRas	equ	342
+L_Bar		equ	343
+L_SRas0		equ	344
+L_SRas1		equ	345
+L_SRas2		equ	346
+L_GetRas	equ	347
+L_Ink1		equ	349
+L_Ink2		equ	350
+L_Ink3		equ	351
+L_Ink		equ	352
+L_GrWrt		equ	353
+L_StLine	equ	354
+L_Sli		equ	355
+L_HSli		equ	356
+L_VSli		equ	357
+L_SSli		equ	358
+L_DefSc		equ	359
+L_DoSc		equ	360
+L_DoScrol	equ	361
+L_Scop2		equ	362
+L_Scop8		equ	363
+L_Scop9		equ	364
+L_Scop		equ	365
+L_Sco0		equ	366
+L_Phy0		equ	367
+L_Log0		equ	368
+L_Phy1		equ	369
+L_Log1		equ	370
+L_App4		equ	372
+L_App3		equ	373
+L_App		equ	374
+L_Zoom		equ	375
+L_ZooTab	equ	376
+L_XHard1	equ	377
+L_XHard2	equ	378
+L_XHr1		equ	379
+L_YHard1	equ	380
+L_YHard2	equ	381
+L_YHr1		equ	382
+L_XScr1		equ	383
+L_XScr2		equ	384
+L_XSc1		equ	385
+L_YScr1		equ	386
+L_YScr2		equ	387
+L_YSc1		equ	388
+L_XTxt1		equ	389
+L_YTxt1		equ	390
+L_FnXGr		equ	391
+L_FnYGr		equ	392
+L_RZo0		equ	393
+L_RZo1		equ	394
+L_RZo2		equ	395
+L_RsZo0		equ	396
+L_RsZo1		equ	397
+L_RsZo2		equ	398
+L_SZo		equ	399
+L_FZo2		equ	400
+L_FZo3		equ	401
+L_FZo		equ	402
+L_FZoX		equ	403
+L_FHZo2		equ	404
+L_FHZo3		equ	405
+L_FHZo		equ	406
+L_FScin2	equ	407
+L_FScin3:	equ	408
+L_FScin		equ	409
+L_FMouSc	equ	410
+L_FMouZo	equ	411
+L_GtCBl		equ	412
+L_PtCBl1	equ	413
+L_PtCBl3	equ	414
+L_PtCBlX	equ	415
+L_DlCBl0	equ	416
+L_DlCBl1	equ	417
+L_GtBl6		equ	418
+L_GtBl5		equ	419
+L_GtBla		equ	420
+L_PtBl1		equ	421
+L_PtBl3		equ	422
+L_PtBl4		equ	423
+L_PtBl5		equ	424
+L_PtBl		equ	425
+L_DlBl0		equ	426
+L_DlBl1		equ	427
+L_HRev		equ	428
+L_VRev		equ	429
+L_BRev		equ	430
+L_AdOuBank	equ	431
+L_RamFast	equ	432
+L_RamChip	equ	433
+L_RamFast2	equ	434
+L_RamChip2	equ	435
+L_RamFree	equ	436
+L_XMou		equ	437
+L_YMou		equ	439
+L_MouK		equ	441
+L_HidO		equ	442
+L_Hide		equ	443
+L_ShoO		equ	444
+L_Show		equ	445
+L_LimM0		equ	446
+L_LimM1		equ	447
+L_LimMX		equ	448
+L_LimM		equ	449
+L_ChMou		equ	450
+L_MouCl		equ	451
+L_EffBank	equ	452
+L_EfPointe	equ	453
+L_EffBanks	equ	454
+L_EffAllBanks	equ	455
+L_Erase		equ	456
+L_BSwap		equ	457
+L_SendBanks	equ	458
+L_BkChange	equ	459
+L_ResIco	equ	460
+L_ResSpr	equ	461
+L_ResSi		equ	462
+L_ISpr		equ	463
+L_IIco		equ	464
+L_RIIS		equ	465
+L_DIc1		equ	466
+L_DIc2		equ	467
+L_DSp1		equ	468
+L_DSp2		equ	469
+L_DSpIc		equ	470
+L_DSI8		equ	471
+L_DSIEra	equ	472
+L_RsWrk		equ	474
+L_RsCWrk	equ	475
+L_RsDat		equ	476
+L_RsCDat	equ	477	
+L_RsBk		equ	478
+L_FnSt		equ	479
+L_FnLn		equ	480
+L_BkAd		equ	481
+L_AdBob		equ	484
+L_AdBE1		equ	485
+L_AdBE2		equ	486
+L_AdBE3		equ	487
+L_AdIcon	equ	488
+L_FChip		equ	489
+L_FFast		equ	490
+L_FFree		equ	491
+L_transmem	equ	492
+L_copy		equ	493
+L_LongDec	equ	494
+L_fill		equ	495
+L_Hunt		equ	496
+L_LBank		equ	497
+L_LlBank	equ	498
+L_ImpChaine	equ	499
+L_BSet		equ	500
+L_BClr		equ	502
+L_Bchg		equ	504
+L_BTst		equ	506
+L_btF		equ	508
+L_btT		equ	509
+L_BRor		equ	510
+L_WRor		equ	512
+L_LRor		equ	514
+L_BRol		equ	516
+L_WRol		equ	518
+L_LRol		equ	520
+L_IAReg		equ	522
+L_IDReg		equ	524
+L_IReg		equ	526
+L_FReg		equ	527
+L_RReg		equ	528
+L_Pok		equ	529
+L_Dok		equ	530
+L_Lok		equ 	531
+L_AdrErr	equ	532
+L_Lik		equ	533
+L_Dik		equ	534
+L_Pik		equ	535
+L_Call		equ	536
+L_FExe		equ	537
+L_FGfx		equ	538
+L_FDos		equ	539
+L_FIntu		equ	540
+L_SysCall	equ	541
+L_UpOff		equ	542
+L_UpOn		equ	543
+L_UpDa		equ	544
+L_BUpOf		equ	545
+L_BUpOn		equ	546
+L_BUpDa		equ	547
+L_SUpOf		equ	548
+L_SUpOn		equ	549
+L_SUpDa		equ	550
+L_UpEv		equ	551
+L_BbClr		equ	553
+L_BbDrw		equ	554
+L_LBob0		equ	555
+L_LBob5		equ	556
+L_LBob4		equ	557
+L_LBob1		equ	558
+L_PrOn		equ	559
+L_PrOf		equ	560
+L_PrROn		equ	561
+L_PrROf		equ	562
+L_PrOoo		equ	563
+L_ChaSpr	equ	565
+L_ChaBob	equ	566
+L_ChaScD	equ	567
+L_ChaScS	equ	568
+L_ChaScO	equ	569
+L_ChaRain	equ	570
+L_ChaX		equ	571
+L_AmE		equ	572
+L_Frz		equ	573
+L_UFrz		equ	574
+L_SOn		equ	575
+L_SOff		equ	576
+L_Sync		equ	577
+L_AmOn0		equ	578
+L_AmOf0		equ	579
+L_AmFz0		equ	580
+L_MvOn0		equ	581
+L_AnOn0		equ	582
+L_MvOf0		equ	583
+L_AnOf0		equ	584
+L_MvFz0		equ	585
+L_AnFz0		equ	586
+L_MvOnOf0	equ	587
+L_AmOn1		equ	589
+L_AmOf1		equ	590
+L_AmFz1		equ	591
+L_MvOn1		equ	592
+L_AnOn1		equ	593
+L_MvOf1		equ	594
+L_AnOf1		equ	595
+L_MvFz1		equ	596
+L_AnFz1		equ	597
+L_MvOnOf1	equ	598
+L_MvX3		equ	599
+L_MvY3		equ	600
+L_AnM3		equ	601
+L_Am3		equ	602
+L_AMm3		equ	603
+L_MvX		equ	604
+L_MvY		equ	605
+L_Am		equ	606
+L_Anm		equ	607
+L_MvA		equ	608
+L_MvA3		equ	609
+L_Movon		equ	611
+L_ChanA		equ	612
+L_ChanM		equ	613
+L_FnAm1		equ	614
+L_IAmR1		equ	615
+L_FAmR1		equ	616
+L_IAmR2		equ	617
+L_FAmR2		equ	618
+L_IAmR		equ	619
+L_FAmR		equ	620
+L_AmRR		equ	621
+L_AmP2		equ	622
+L_AmP4		equ	623
+L_XBob		equ	624
+L_YBob		equ	625
+L_XSp		equ	626
+L_YSp		equ	627
+L_IBb		equ	629
+L_ISp		equ	630
+L_StBb		equ	631
+L_BbSt4		equ	632
+L_BbOff1	equ	633
+L_BbOff0	equ	634
+L_SsBuf		equ	635
+L_SpErr		equ	636
+L_SpPri		equ	637
+L_SpSp		equ	638
+L_SpOff1	equ	639
+L_SpOff0	equ	640
+L_HCol		equ	641
+L_FHCol		equ	642
+L_BSCol1	equ	643
+L_BSCol3	equ	644
+L_BbCol1	equ	645
+L_BbCol3	equ	646
+L_SBCol1	equ	647
+L_SBCol3	equ	648
+L_SpCol1	equ	649
+L_SpCol3	equ	650
+L_Coll		equ	652
+L_MkIMs0	equ	653
+L_MkIMs1	equ	654
+L_NoIMs0	equ	655
+L_NoIMs1	equ	656
+L_MkMask0	equ	657
+L_MkMask1	equ	658
+L_MkMa1		equ	659
+L_NoMask0	equ	660
+L_NoMask1	equ	661
+L_NoMa1		equ	662
+L_HotSp3	equ	664
+L_HotSp2	equ	665
+L_HotSp		equ	666
+L_GetSp6	equ	667
+L_GetSp5	equ	668
+L_GetSp		equ	669
+L_GetIc6	equ	671
+L_GetIc5	equ	672
+L_GetIc		equ	673
+L_Ritoune	equ	674
+L_PBob		equ	675
+L_RevX		equ	676
+L_RevY		equ	677
+L_Rev		equ	678
+L_PatBb		equ	680
+L_PatIc		equ	681
+L_SBase		equ	682
+L_IBase		equ	683
+L_FillDev	equ	686
+L_FfDeb		equ	687
+L_FOpen		equ	689
+L_FClose	equ	690
+L_FRead		equ	691
+L_ERead		equ	692
+L_FWrite	equ	693
+L_FSeek		equ	694
+L_LockFree	equ	695
+L_NomDisk	equ	696
+L_ChVerBuf2	equ	697
+L_IlDName	equ	698
+L_NomDir	equ	699
+L_NDir		equ	700
+L_DiskError	equ	701
+L_DiskErr	equ	702
+L_DiForm	equ	703
+L_LHunk		equ	705
+L_SHunk		equ	706
+L_Save2		equ	707
+L_Save1		equ	708
+L_SaveBks	equ	709
+L_SaveBk	equ	710
+L_UnRevSp	equ	711
+L_DInfo		equ	712
+L_Load1		equ	713
+L_Load2		equ	714
+L_LoadBk	equ	715
+L_LdBs		equ	716
+L_PLoad		equ	717
+L_BLoad		equ	718
+L_BSave		equ	719
+L_IffMsk	equ	720
+L_FPic		equ	721
+L_LdIff1	equ	722	
+L_LdIff2	equ	723
+L_IffInit	equ	724
+L_IffLoad	equ	725
+L_CantFit	equ	727
+L_IffFor	equ	728
+L_IffCmp	equ	729
+L_ScSave2	equ	730
+L_ScSave1 	equ	731
+L_ScSave	equ	732
+L_IDir		equ	733
+L_FDir		equ	734
+L_Par		equ	735
+L_Kill		equ	736
+L_Ren		equ	737
+L_MkDir		equ	738
+L_Drive		equ	739
+L_DFree		equ	740
+L_GetFile	equ	741
+L_FiClean	equ	742
+L_GetByte	equ	743
+L_EndByte	equ	744
+L_FPort		equ	745
+L_OpPor		equ	746
+L_OpOut2	equ	747
+L_OpIn2		equ	748
+L_OpIn		equ	749
+L_Lof		equ	750
+L_IPof		equ	751
+L_Eof		equ	753
+L_RLof		equ	754
+L_Clo1		equ	755
+L_CloAll	equ	756	
+L_Cloa1		equ	757
+L_FilOO		equ	758
+L_FilNO		equ	759
+L_FilTM		equ	760
+L_EOFil		equ	762
+L_OpRan		equ	763
+L_Appn		equ	764
+L_RanApp	equ	765
+L_Field		equ	766
+L_GetPut	equ	767
+L_Get		equ	768
+L_Put		equ	769
+L_OpPrt		equ	770
+L_ImpImp	equ	771
+L_SDir2		equ	772
+L_SDir1		equ	773
+L_DevF		equ	774
+L_AccF		equ	775
+L_DirF		equ	776
+L_DirN		equ	777
+L_Exist		equ	778
+L_NoReq		equ	779
+L_YesReq	equ	780
+L_SetReq	equ	781
+L_FillAcc	equ	782
+L_PRun		equ	783
+L_LDirW0	equ	784
+L_DirW0		equ	785
+L_DirW0a	equ	786
+L_LDirW1	equ	787
+L_DirW1		equ	788
+L_DirW2		equ	789
+L_LDir0		equ	790
+L_Dir0		equ	791
+L_Dir0a		equ	792
+L_LDir1		equ	793
+L_Dir1		equ	794
+L_Dir2		equ	795
+L_Dir3		equ	796
+L_TTDir		equ	797
+L_AskDir	equ	799
+L_AskDir2	equ	800
+L_GetDir	equ	801
+L_LockGet	equ	801
+L_FillAll	equ	802
+L_FillGet	equ	803
+L_FillFirst	equ	804
+L_FillNxt	equ	805
+L_FillFFree	equ	806
+L_FillSort	equ	807
+L_FillFPoke	equ	808
+L_Joker		equ	809
+L_Psel1		equ	811
+L_Psel2		equ	812
+L_PSel3		equ	813	
+L_PSel4		equ	814
+L_FSel1		equ	815
+L_Fsel2		equ	816
+L_FSel3		equ	817
+L_FSel4		equ	818
+L_FSel		equ	818
+L_FSel0		equ	819
+L_FsError	equ	820
+L_FsOut		equ	821
+L_AppCentre	equ	822
+L_Lettre	equ	823
+L_HPrintD	equ	824
+L_HPrintS	equ	825
+L_HPrintX	equ	826
+L_AskD3		equ	827
+L_FInput1	equ	828
+L_FInput2	equ	829
+L_SInp		equ	830
+L_MnToBank	equ	831
+L_BkToMenu	equ	832
+L_MnGere	equ	833
+L_MnEnd		equ	834
+L_MnEnd1	equ	835
+L_MnDEff	equ	836
+L_MnEBranch	equ	837
+L_IMen1		equ	839
+L_IMen2		equ	840
+L_IMen3		equ	841
+L_IMen4		equ	842
+L_MnOn		equ	843
+L_MnOff		equ	844
+L_MnDl0		equ	845
+L_MnDl1		equ	846
+L_MnMOn		equ	847
+L_MnMOf		equ	848
+L_MnBs		equ	849
+L_SMen		equ	850
+L_XMen		equ	851
+L_YMen		equ	852
+L_FMen1		equ	853
+L_FMen0		equ	854
+L_MnBa		equ	855
+L_MnLi		equ	856
+L_MnTl		equ	857
+L_MnMv		equ	858
+L_MnSt		equ	859
+L_MnIMv		equ	860
+L_MnISt		equ	861
+L_MnAct		equ	862
+L_MnInA		equ	863
+L_MnSep		equ	864
+L_MnLnk		equ	865
+L_MnCl		equ	866
+L_MnNCl		equ	867
+L_MnDim		equ	868
+L_MnINDef	equ	869
+L_MnFind	equ	870
+L_MnCa		equ	873
+L_MnRaz		equ	874
+L_MnEff		equ	875
+L_MnDel		equ	876
+L_MnCalc	equ	877
+L_MnBranch	equ	878
+L_MnDraw	equ	879
+L_MnODraw	equ	880
+L_MnODVar	equ	881
+L_MnSave	equ	882
+L_MnRest	equ	883
+L_MnSaDel	equ	884
+L_EvGosub	equ 	887
+L_EvProc	equ	888
+L_Every		equ	889
+L_EvOff		equ	890
+L_EvOn		equ	891
+L_EveJump	equ	892
+L_IntToFl2	equ	894
+L_FlToInt2	equ	895
+L_strflasc	equ	896
+L_floatasc	equ	897
+L_Flta		equ	898
+L_FlRout	equ	899
+L_FoFloat	equ	900
+L_MaxE		equ	901
+L_MaxF		equ	902
+L_MaxC		equ	903
+L_MinE		equ	904
+L_MinF		equ	905
+L_MinC		equ	906
+L_AbsE		equ	907
+L_AbsF		equ	908
+L_IntF		equ	910
+L_SgnE		equ	911
+L_SgnF		equ	912
+L_Rad		equ	913
+L_Deg		equ	914
+L_Pi		equ	915
+L_Sqr		equ	916
+L_Log		equ	917
+L_Ln		equ	918
+L_Exp		equ	919
+L_Sin		equ	920
+L_Cos		equ	921
+L_Tan		equ	922
+L_ASin		equ	923
+L_ACos		equ	924
+L_ATan		equ	925
+L_HSin		equ	926
+L_HCos		equ	927
+L_HTan		equ	928
+L_Fix		equ	929
+L_FlOpe		equ	930
+L_FMOpe		equ	931
+L_FlPos		equ	932
+L_Angle		equ	933
+L_AAngle	equ	934
+L_Mul32		equ	935
+L_Rnd		equ	936
+L_Random	equ	937
+L_RRnd		equ	938
+L_Add4		equ	939
+L_Laced		equ	940
+L_BreakOn	equ	941
+L_BreakOff	equ	942
+L_Stop		equ	943
+L_End		equ	944
+L_Direct	equ	945
+L_Edit		equ	946
+L_System	equ	947
+L_Timer		equ	948
+L_Default	equ	950
+L_Multi		equ	951
+L_WaitMul	equ	952
+L_Wait		equ	953
+L_Swap		equ	954
+L_FN		equ	955
+L_WaitRout	equ	956
+L_GTablo	equ	957
+L_Cpbis		equ	958
+L_Sort		equ	959
+L_FFind		equ	960
+L_MnKey0	equ	962
+L_MnKey1	equ	963
+L_MnKey2	equ	964	
+L_MnKey3	equ	965
+L_MnKy		equ	966
+L_MnKExp	equ	967
+L_GoMenu	equ	968
+L_OnMen		equ	969
+L_OMnOn		equ	970
+L_OMnOff	equ	971
+L_OMnDel	equ	972
+L_OMnEff	equ	972
+L_Rest0		equ	973
+L_Rest1		equ	974
+L_ReadE		equ	975
+L_ReadF		equ	976
+L_ReadS		equ	977
+L_Free		equ	978
+L_OnErr0	equ	980
+L_OnErr1	equ	981
+L_OnErr2	equ	982
+L_ResL0		equ	983
+L_ResL1		equ	984
+L_Res0		equ	985
+L_Res1		equ	986
+L_ResNext	equ	988
+L_IErrN		equ	989
+L_FErrN		equ	990
+L_PopP		equ	991
+L_Foncall	equ	992
+L_EProErr	equ	993
+L_Dbz		equ	995
+L_Typemis	equ	996
+L_InpTL		equ	998
+L_Stolong	equ	999
+L_WFoncall	equ	1000
+L_Scnop		equ	1001
+L_Aldim		equ	1002
+L_OofBuf	equ	1003
+L_IllScN	equ	1004
+L_OofMem	equ	1005
+L_BkNoRes	equ	1006
+L_RainErr	equ	1007
+L_IlNCo		equ	1008
+L_ScNoDef	equ	1009
+L_BFonCall	equ	1010
+L_BkAlRes	equ	1011
+L_MnNOp		equ	1012
+L_Overflow	equ	1013
+L_FnNDef	equ	1014
+L_NDim		equ	1015
+L_NoData	equ	1016
+L_OofData	equ	1017
+L_NoResum	equ	1018
+L_NoErr		equ	1019
+L_NoOnErr	equ	1020
+L_ResLNo	equ	1021
+L_ResPLab	equ	1022
+L_Error		equ	1024
+L_ErrorExt	equ	1025
+L_Abort		equ	1026
+L_ClosWb	equ	1027
+L_OpenWb	equ	1028
+L_AmFront	equ	1029
+L_AmBack	equ	1030
+L_AmHere	equ	1031
+L_AMLock	equ	1032
+L_AMULock	equ	1033
+L_DispH		equ	1034
+L_NTSC		equ	1035
+L_ClosEd	equ	1036
+L_Run		equ	1037
+L_VarEff	equ	1038
+L_ClosExt	equ	1039
+L_ExtCall	equ	1040
+L_ErrorAMOS	equ	1041
+L_AMOSIn	equ	1042
+L_BGrab0	equ	1043
+L_PrgState	equ	1044
+L_ICom		equ	1045
+L_FCom		equ	1046
+
+; ______________________________________________________________________________
+;	
+;		New AMOSPro Equates, not yet in the compiler, 
+;		But accessible from the extensions.
+;
+L_Bnk.GetAdr		equ	1100
+L_Bnk.GetBobs		equ	1101
+L_Bnk.GetIcons		equ	1102
+L_Bnk.Reserve		equ	1103
+L_Bnk.Eff		equ	1104
+L_Bnk.EffA0		equ	1105
+L_Bnk.EffTemp		equ	1106
+L_Bnk.EffAll		equ	1107
+L_Bnk.ResBob		equ	1108
+L_Bnk.ResIcon		equ	1109
+L_Bnk.InsBob		equ	1110
+L_Bnk.DelBob		equ	1111
+L_Bnk.Load		equ	1112
+L_Bnk.SaveA0		equ	1113
+L_Bnk.SaveAll		equ	1114
+L_Lst.ChipNew		equ	1115
+L_Lst.New		equ	1116
+L_Lst.Del		equ	1117
+L_Lst.DelAll		equ	1118
+L_Dsk.PathIt		equ	1119
+L_Dsk.FileSelector	equ	1120
+L_Bnk.OrAdr		equ	1121
+L_Dev.Open		equ	1122
+L_Dev.Close		equ	1123
+L_Dev.GetIO		equ	1124
+L_Dev.AbortIO		equ	1125
+L_Dev.DoIO		equ	1126
+L_Dev.SendIO		equ	1127
+L_Dev.CheckIO		equ	1128
+L_Dev.Error		equ	1129
+
diff --git a/AMOS/Tutorial/Extensions/__uae____Music_s b/AMOS/Tutorial/Extensions/__uae____Music_s
new file mode 100644
index 0000000..6fe65b0
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____Music_s
@@ -0,0 +1,4614 @@
+
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; Music extension source code for AMOSPro, Last change 29/09/1992
+; By Francois Lionet
+; AMOS, AMOSPro AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOSPro 1.0 and over
+;--------------------------------------------------------------------- 
+; This file is public domain
+;---------------------------------------------------------------------
+;
+Version		MACRO
+		dc.b	"1.0"
+		ENDM
+;
+;
+; This listing explains how to create an extension for AMOSPro.
+; The AMOSPro compiler will be compatible with these extension.
+;
+;	If you have made an extension for AMOS 1.3, just read the
+; file called New_In_Pro.Asc to know the difference between the
+; extension format. Not many changes, only new equates, and some
+; new functions.
+;
+; >>> What's an extension?
+;
+; An extension to AMOS is a machine language program that adds new 
+; instructions to the already huge AMOS instruction set. This system is
+; designed to be as powerfull as AMOS itself: the extension includes its 
+; own token list, its own routines. It can even access some main AMOS
+; routines via special macros. It has a total access to the internal AMOS 
+; data zone, and to the graphic library functions.
+;
+; To produce your own extension, I suggest you copy and rename this
+; file, and remove the used code. This way you will not forgive one line.
+; Also keep in mind that you can perfectly call AMOS from within MONAM2,
+; and set some ILLEGAL instructions where you want to debug. To flip back to
+; MONAM2 display, just press AMIGA-A.
+;
+; I have designed the extension system so that one only file works with 
+; both AMOS interpretor and compiler. 
+; 	- The extension is more a compiler library than a one chunk program:
+;	it is done so that the compiler can pick one routine here and there
+;	to cope with the program it is compiling.
+;	- AMOSPro extension loader works a little like the compiler, exept
+;	that all instructions are loaded and relocated.
+;
+; This code was assembled with GENIM2 on a A3000 25 Mhz machine, but a
+; A500 can do it very well!
+; The assembled program must be ONE CHUNK only, you must not link the 
+; the symbol table with it. Also be sure that you program is totally 
+; relocatable (see later) : if not it will add a relocation chunk to 
+; the output code, and your extension will simply crash AMOS on loading
+; (and the compiler too!).
+
+;
+; Here we go now!
+;
+; Here comes the number of the extension in the list of extensions in
+; AMOSPro_Interpretor_Config program (minus one).
+; This number is used later to reference the extension in internal AMOS 
+; tables...
+;
+ExtNb		equ	1-1
+
+; You must include this file, it will decalre everything for you.
+		Include	"|AMOS_Includes.s"
+; A usefull macro to find the address of data in the extension's own 
+; datazone (see later)...
+DLea		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\2
+		add.w	#\1-MB,\2
+		ENDM
+
+; Another macro to load the base address of the datazone...
+DLoad		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\1
+		ENDM
+
+; Now some equates used by the music extension itself. Ignore this in your
+; code!
+
+Translate	equ -30
+
+*************** Enveloppes definitions
+		RsReset
+EnvNb:		rs.w	1
+EnvDVol:	rs.w	1
+EnvVol:		rs.l	1
+EnvDelta:	rs.l 	1
+EnvAd:		rs.l	1
+EnvDeb:		rs.l	1
+EnvLong:	equ 	__Rs
+
+*************** Wave definition
+LWave:		equ 	256+128+64+32+16+8+4+2
+LNoise:		equ 	LWave
+		RsReset
+WaveNext:	rs.l	1
+WaveNb:		rs.w	1
+WaveEnv:	rs.w	16*2
+WaveDeb:	rs.b	LWave
+WaveLong:	equ 	__Rs
+
+*************** Music voice data
+		RsReset
+VoiAdr		rs.l	1
+VoiDeb		rs.l	1
+VoiInst		rs.l	1
+VoiDPat		rs.l	1
+VoiPat		rs.l	1
+VoiCpt		rs.w	1
+VoiRep		rs.w	1
+VoiNote		rs.w	1
+VoiDVol		rs.w	1
+VoiVol		rs.w	1
+VoiEffect	rs.l	1
+VoiValue	rs.w	1
+VoiPToTo	rs.w	1
+VoiPTone	rs.b	1
+VoiVib		rs.b	1
+VoiLong		equ 	__Rs
+
+*************** MUBASE table
+		RsReset
+* Voix 0
+MuVoix0		equ	__Rs
+VoiAdr0		rs.l	1
+VoiDeb0		rs.l	1
+VoiInst0	rs.l	1
+VoiDPat0	rs.l	1
+VoiPat0		rs.l	1
+VoiCpt0		rs.w	1
+VoiRep0		rs.w	1
+VoiNote0	rs.w	1
+VoiDVol0	rs.w	1
+VoiVol0		rs.w	1
+VoiEffect0	rs.l	1
+VoiValue0	rs.w	1
+VoiPToTo0	rs.w	1
+VoiPTone0	rs.b	1
+VoiVib0		rs.b	1
+* Voix 1
+MuVoix1		equ	__Rs
+VoiAdr1		rs.l	1
+VoiDeb1		rs.l	1
+VoiInst1	rs.l	1
+VoiDPat1	rs.l	1
+VoiPat1		rs.l	1
+VoiCpt1		rs.w	1
+VoiRep1		rs.w	1
+VoiNote1	rs.w	1
+VoiDVol1	rs.w	1
+VoiVol1		rs.w	1
+VoiEffect1	rs.l	1
+VoiValue1	rs.w	1
+VoiPToTo1	rs.w	1
+VoiPTone1	rs.b	1
+VoiVib1		rs.b	1
+* Voix 2
+MuVoix2		equ	__Rs
+VoiAdr2		rs.l	1
+VoiDeb2		rs.l	1
+VoiInst2	rs.l	1
+VoiDPat2	rs.l	1
+VoiPat2		rs.l	1
+VoiCpt2		rs.w	1
+VoiRep2		rs.w	1
+VoiNote2	rs.w	1
+VoiDVol2	rs.w	1
+VoiVol2		rs.w	1
+VoiEffect2	rs.l	1
+VoiValue2	rs.w	1
+VoiPToTo2	rs.w	1
+VoiPTone2	rs.b	1
+VoiVib2		rs.b	1
+* Voix 3
+MuVoix3		equ	__Rs
+VoiAdr3		rs.l	1
+VoiDeb3		rs.l	1
+VoiInst3	rs.l	1
+VoiDPat3	rs.l	1
+VoiPat3		rs.l	1
+VoiCpt3		rs.w	1
+VoiRep3		rs.w	1
+VoiNote3	rs.w	1
+VoiDVol3	rs.w	1
+VoiVol3		rs.w	1
+VoiEffect3	rs.l	1
+VoiValue3	rs.w	1
+VoiPToTo3	rs.w	1
+VoiPTone3	rs.b	1
+VoiVib3		rs.b	1
+
+* Other data
+MuCpt		rs.w	1
+MuTempo		rs.w	1
+MuStart		rs.w	1
+MuStop		rs.w	1
+* Total length
+MuLong		equ 	__Rs
+
+IntEnaR		equ	$1c
+IntReqR		equ	$1e
+is_data		equ	$0e
+is_code		equ	$12
+ln_pri		equ	$09
+ln_type		equ	$08
+
+; All the above did not produce any byte of code. Here is the real beginning
+; of the program. It MUST begin by a small table of pointers so that both
+; AMOS and the compiler know where to get their data...
+; Please remark that everything is relocatable...
+
+******************************************************************
+*	AMOSPro MUSIC EXTENSION
+;
+; First, a pointer to the token list
+Start	dc.l	C_Tk-C_Off
+;
+; Then, a pointer to the first library function
+	dc.l	C_Lib-C_Tk
+;
+; Then to the title
+	dc.l	C_Title-C_Lib
+;
+; From title to the end of the program
+	dc.l	C_End-C_Title
+;
+; An important flag. Imagine a program does not call your extension, the 
+; compiler will NOT copy any routine from it in the object program. For 
+; certain extensions, like MUSIC, COMPACT, it is perfect.
+; But for the REQUEST extension, even if it is not called, the first routine 
+; MUST be called, otherwise AMOS requester will not work!
+; So, a value of 0 indicates to copy if needed only,
+; A value of -1 forces the copy of the first library routine...
+	dc.w	0	
+
+******************************************************************
+*	Offset to library
+;
+; This list contains all informations for the compiler 
+; and AMOS to locate your routines, in a relocatable way.
+; You can produce such tables using the MAKE_LABEL.AMOS utility, found 
+; on this very disc.
+; All labels MUST be in order. The size of each routine MUST BE EVEN,
+; as the size is divided by two. So be carefull to put an EVEN instruction
+; after some text...
+; You easily understand that the size of each routine can reach 128K, 
+; which is largely enough. You can have up to 2000 routines in the list.
+; The main AMOS.Lib library has 1100 labels...
+
+C_Off   dc.w (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
+        dc.w (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
+        dc.w (L9-L8)/2,(L10-L9)/2,(L11-L10)/2,(L12-L11)/2
+        dc.w (L13-L12)/2,(L14-L13)/2,(L15-L14)/2,(L16-L15)/2
+        dc.w (L17-L16)/2,(L18-L17)/2,(L19-L18)/2,(L20-L19)/2
+        dc.w (L21-L20)/2,(L22-L21)/2,(L23-L22)/2,(L24-L23)/2
+        dc.w (L25-L24)/2,(L26-L25)/2,(L27-L26)/2,(L28-L27)/2
+        dc.w (L29-L28)/2,(L30-L29)/2,(L31-L30)/2,(L32-L31)/2
+        dc.w (L33-L32)/2,(L34-L33)/2,(L35-L34)/2,(L36-L35)/2
+        dc.w (L37-L36)/2,(L38-L37)/2,(L39-L38)/2,(L40-L39)/2
+        dc.w (L41-L40)/2,(L42-L41)/2,(L43-L42)/2,(L44-L43)/2
+        dc.w (L45-L44)/2,(L46-L45)/2,(L47-L46)/2,(L48-L47)/2
+        dc.w (L49-L48)/2,(L50-L49)/2,(L51-L50)/2,(L52-L51)/2
+        dc.w (L53-L52)/2,(L54-L53)/2,(L55-L54)/2,(L56-L55)/2
+        dc.w (L57-L56)/2,(L58-L57)/2,(L59-L58)/2,(L60-L59)/2
+        dc.w (L61-L60)/2,(L62-L61)/2,(L63-L62)/2,(L64-L63)/2
+        dc.w (L65-L64)/2,(L66-L65)/2,(L67-L66)/2,(L68-L67)/2
+        dc.w (L69-L68)/2,(L70-L69)/2,(L71-L70)/2,(L72-L71)/2
+        dc.w (L73-L72)/2,(L74-L73)/2,(L75-L74)/2,(L76-L75)/2
+        dc.w (L77-L76)/2,(L78-L77)/2,(L79-L78)/2,(L80-L79)/2
+        dc.w (L81-L80)/2,(L82-L81)/2,(L83-L82)/2,(L84-L83)/2
+        dc.w (L85-L84)/2,(L86-L85)/2,(L87-L86)/2,(L88-L87)/2
+	dc.w (L89-L88)/2,(L90-L89)/2,(L91-L90)/2,(L92-L91)/2
+        dc.w (L93-L92)/2,(L94-L93)/2,(L95-L94)/2,(L96-L95)/2
+        dc.w (L97-L96)/2,(L98-L97)/2,(L99-L98)/2,(L100-L99)/2
+        dc.w (L101-L100)/2,(L102-L101)/2,(L103-L102)/2,(L104-L103)/2
+        dc.w (L105-L104)/2,(L106-L105)/2,(L107-L106)/2,(L108-L107)/2
+        dc.w (L109-L108)/2,(L110-L109)/2,(L111-L110)/2,(L112-L111)/2
+	dc.w (L113-L112)/2,(L114-L113)/2
+
+; Do not forget the LAST label!!!
+
+******************************************************************
+*	TOKEN TABLE
+;
+;
+;	
+; This table is the crucial point of the extension! It tells
+; everything the tokenisation process needs to know. You have to 
+; be carefull when writing it!
+;
+; The format is simple:
+;	dc.w	Number of instruction,Number of function
+;	dc.b	"instruction nam","e"+$80,"Param list",-1[or -2]
+;
+;	(1) Number of instruction / function
+;		You must state the one that is needed for this token.
+;               I suggest you keep the same method of referencing the
+;		routines than mine: L_name, this label being defined
+;		in the main program. (If you come from a 1.23 extension,
+;		changing your program is easy: just add L_ before the 
+;		name of each routine.
+;		A -1 means take no routine is called (example a 
+;		instruction only will have a -1 in the function space...)
+;
+;	(2) Instruction name
+;		It must be finished by the letter plus $80. Be carefull
+;		ARGASM assembler produces bad code if you do "a"+$80, 
+;		he wants $80+"a"!!!
+;		- You can SET A MARK in the token table with a "!" before
+;		the name. See later
+;		-Using a $80 ALONE as a name definition, will force AMOS
+;		to point to the previous "!" mark...
+;	
+;	(3) Param list
+;		This list tells AMOS everything about the instruction.
+;
+;	- First character:
+;		The first character defines the TYPE on instruction:
+;			I--> instruction
+;			0--> function that returns a integer
+;			1--> function that returns a float
+;			2--> function that returns a string
+;			V--> reserved variable. In that case, you must
+;				state the type int-float-string
+;	- If your instruction does not need parameters, then you stop
+;	- Your instruction needs parameters, now comes the param list
+;			Type,TypetType,Type...
+;		Type of the parameter (0 1 2)
+;		Comma or "t" for TO
+;
+;	(4) End of instruction
+;			"-1" states the end of the instruction
+;			"-2" tells AMOS that another parameter list
+;			     can be accepted. if so, MUST follow the
+;			     complete instruction definition as explained
+;			     but with another param list.
+;	If so, you can use the "!" and $80 facility not to rewrite the
+;	full name of the instruction...See SAM LOOP ON instruction for an
+;	example...
+;
+;	Remember that AMOS token list comes first, so names like:
+;	PRINTHELLO will never work: AMOS will tokenise PRINT first!
+;	Extension token list are explored in order of number...
+
+; The next two lines needs to be unchanged...
+C_Tk:	dc.w 	1,0
+	dc.b 	$80,-1
+
+; Now the real tokens...
+	dc.w	-1,L_FMB
+	dc.b	"mubas","e"+$80,"0",-1
+	dc.w	-1,L_FVu
+	dc.b	"vumete","r"+$80,"00",-1
+	dc.w	L_IVoice,-1
+	dc.b	"voic","e"+$80,"I0",-1
+	dc.w	L_IMusOff,-1
+	dc.b	"music of","f"+$80,"I",-1
+	dc.w	L_IMuStop,-1
+	dc.b	"music sto","p"+$80,"I",-1
+	dc.w	L_ITempo,-1
+	dc.b	"temp","o"+$80,"I0",-1
+	dc.w	L_IMusic,-1
+	dc.b	"musi","c"+$80,"I0",-1
+
+	dc.w	L_INoTo,-1
+	dc.b	"noise t","o"+$80,"I0",-1
+	dc.w	L_Boom,-1
+	dc.b 	"boo","m"+$80,"I",-1
+	dc.w	L_Shoot,-1
+	dc.b	"shoo","t"+$80,"I",-1
+	dc.w	L_ISBank,-1
+	dc.b	"sam ban","k"+$80,"I0",-1
+	dc.w	L_ISLOn0,-1
+	dc.b	"!sam loop o","n"+$80,"I",-2
+	dc.w	L_ISLOn1,-1
+	dc.b	$80,"I",-1
+	dc.w	L_ISLOf0,-1
+	dc.b	"sam loop of","f"+$80,"I",-2
+	dc.w	L_ISLOf1,-1
+	dc.b	$80,"I0",-1
+	dc.w	L_ISamTo,-1
+	dc.b	"sampl","e"+$80,"I0t0",-1
+	dc.w 	L_ISam1,-1
+	dc.b 	"!sam pla","y"+$80,"I0",-2
+	dc.w	L_ISam2,-1
+	dc.b	$80,"I0,0",-2
+	dc.w 	L_ISam3,-1
+	dc.b	$80,"I0,0,0",-1 
+	dc.w 	L_ISamR,-1
+	dc.b 	"sam ra","w"+$80,"I0,0,0,0",-1	
+	dc.w	L_Bell0,-1
+	dc.b 	"!bel","l"+$80,"I",-2
+	dc.w 	L_Bell1,-1
+	dc.b	$80,"I0",-1
+	dc.w	L_IPlOf0,-1
+	dc.b	"!play of","f"+$80,"I",-2
+	dc.w	L_IPlOf1,-1
+	dc.b	$80,"I0",-1
+	dc.w 	L_IPlay2,-1
+	dc.b	"!pla","y"+$80,"I0,0",-2
+	dc.w	L_IPlay3,-1
+	dc.b	$80,"I0,0,0",-1
+	dc.w 	L_ISWave,-1
+	dc.b 	"set wav","e"+$80,"I0,2",-1
+	dc.w	L_IDWave1,-1
+	dc.b	"del wav","e"+$80,"I0",-1
+	dc.w	L_ISEnv,-1
+	dc.b	"set enve","l"+$80,"I0,0t0,0",-1
+	dc.w	L_IMVol,-1
+	dc.b	"mvolum","e"+$80,"I0",-1
+	dc.w 	L_IVol1,-1
+	dc.b	"!volum","e"+$80,"I0",-2
+	dc.w 	L_IVol2,-1
+	dc.b	$80,"I0,0",-1
+	dc.w	L_IWave,-1
+	dc.b 	"wav","e"+$80,"I0t0",-1
+	dc.w	L_LedOn,-1
+	dc.b	"led o","n"+$80,"I",-1
+	dc.w	L_LedOf,-1
+	dc.b	"led of","f"+$80,"I",-1
+	dc.w	L_ISay1,-1
+	dc.b	"!sa","y"+$80,"I2",-2
+	dc.w	L_ISay2,-1
+	dc.b	$80,"I2,0",-1
+	dc.w	L_ITalk,-1
+	dc.b	"set tal","k"+$80,"I0,0,0,0",-1
+	dc.w	L_SLoad,-1
+	dc.b	"sloa","d"+$80,"I0t0,0",-1
+	dc.w	-1,L_Samswapped
+	dc.b	"sam swappe","d"+$80,"00",-1
+	dc.w	L_SamSwap,-1
+	dc.b	"sam swa","p"+$80,"I0t0,0",-1
+	dc.w 	L_SamStop0,-1
+	dc.b	"!sam sto","p"+$80,"I",-2
+	dc.w	L_SamStop1,-1
+	dc.b	$80,"I0",-1
+
+	dc.w	L_TrackStop,-1
+	dc.b	"track sto","p"+$80,"I",-1
+	dc.w	L_TrackLoopon,-1
+	dc.b	"track loop o","n"+$80,"I",-1
+	dc.w	L_TrackLoopof,-1
+	dc.b	"track loop o","f"+$80,"I",-1
+	dc.w	L_TrackPlay0,-1
+	dc.b	"!track pla","y"+$80,"I",-2
+	dc.w	L_TrackPlay1,-1
+	dc.b	$80,"I0",-2
+	dc.w	L_TrackPlay2,-1
+	dc.b	$80,"I0,0",-1
+	dc.w	L_TrackLoad,-1
+	dc.b	"track loa","d"+$80,"I2,0",-1
+	
+	dc.w	-1,L_LipsX
+	dc.b	"mouth widt","h"+$80,"0",-1
+	dc.w	-1,L_LipsY
+	dc.b	"mouth heigh","t"+$80,"0",-1
+	dc.w	L_Lips,-1
+	dc.b	"mouth rea","d"+$80,"I",-1
+	dc.w	L_NarStop,-1
+	dc.b	"talk sto","p"+$80,"I",-1
+	dc.w	L_TalkMisc,-1
+	dc.b	"talk mis","c"+$80,"I0,0",-1
+
+	dc.w	L_SSave,-1
+	dc.b	"ssav","e"+$80,"I0,0t0",-1
+
+	dc.w	L_MedLoad,-1
+	dc.b	"med loa","d"+$80,"I2,0",-1
+	dc.w	L_MedPlay0,-1
+	dc.b	"!med pla","y"+$80,"I",-2
+	dc.w	L_MedPlay1,-1
+	dc.b	$80,"I0",-2
+	dc.w	L_MedPlay2,-1
+	dc.b	$80,"I0,0",-1
+	dc.w	L_MedStop,-1
+	dc.b	"med sto","p"+$80,"I",-1
+	dc.w	L_MedCont,-1
+	dc.b	"med con","t"+$80,"I",-1
+	dc.w	L_MedMidiOn,-1
+	dc.b	"med midi o","n"+$80,"I",-1
+	dc.w 	0
+
+;
+; Now come the big part, the library. Every routine is delimited by the
+; two labels: L(N) and L(N+1).
+; AMOS loads the whole extension, but the compiler works differently:
+; The compiler picks each routine in the library and copy it into the
+; program, INDIVIDUALLY. It means that you MUST NEVER perform a JMP, a
+; BSR or get an address from one library routine to another: the distance
+; between them may change!!! Use the special macros instead...
+;
+; Importants points to follow: 
+;
+;	- Your code must be (pc), TOTALLY relocatable, check carefully your
+;  	code!
+;	- You cannot directly call other library routines from one routine
+;	by doing a BSR, but I have defined special macros (in S_CEQU file) 
+;	to allow you to easily do so. Here is the list of available macros:
+;
+;	RBsr	L_Routine	does a simple BSR to the routine
+;	RBra	L_Routine	as a normal BRA
+;	RBeq	L_Routine	as a normal Beq
+;	RBne	L_Routine	...
+;	RBcc	L_Routine
+;	RBcs	L_Routine
+;	RBlt	L_Routine
+;	RBge	L_Routine
+;	RBls	L_Routine
+;	RBhi	L_Routine
+;	RBle	L_Routine
+;	RBpl	L_Routine
+;	RBmi	L_Routine
+;
+; I remind you that you can only use this to call an library routine
+; from ANOTHER routine. You cannot do a call WITHIN a routine, or call
+; the number of the routine your caling from...
+; The compiler (and AMOSPro extension loading part) will manage to find
+; the good addresses in your program from the offset table.
+;
+; You can also call some main AMOS.Lib routines, to do so, use the 
+; following macros:
+;
+;	RJsr	L_Routine	
+;	RJmp	L_Routine	
+; 
+; 
+; As you do not have access any more to the small table with jumps to the
+; routines within AMOS, here is the concordance of the routines (the numbers
+; are just refecrences to the old AMOS 1.23 calling table, and is not of
+; any use in AMOS1.3):
+;
+;
+;	RJsr	L_Error
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Jump to normal error routine. See end of listing
+;
+;	RJsr	L_ErrorExt
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+;	Jump to specific error routine. See end of listing.
+;
+; 	RJsr	L_Tests
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Perform one AMOSPro updating procedure, update screens, sprites,
+;	bobs etc. You should use it for wait loops.
+;
+;	RJsr	L_WaitRout
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+;	See play instruction.
+;
+;	RJsr	L_GetEc
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Get screen address: In: D0.l= number, Out: A0=address
+;
+;	RJsr	L_Demande
+; ~~~~~~~~~~~~~~~~~~~~~~~
+;	Ask for string space.
+;	D3.l is the length to ask for. Return A0/A1 point to free space.
+;	Poke your string there, add the length of it to A0, EVEN the 
+;	address to the highest multiple of two, and move it into
+;	HICHAINE(a5) location...
+;
+;	RJsr	L_RamChip
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Ask for PUBLIC|CLEAR|CHIP ram, size D0, return address in D0, nothing
+;	changed, Z set according to the success.
+;
+;	RJsr	L_RamChip2
+; ~~~~~~~~~~~~~~~~~~~~~~
+;	Same for PUBLIC|CHIP
+;
+;	RJsr	L_RamFast
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Same for PUBLIC|CLEAR
+;
+;	RJsr	L_RamFast2
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+;	Same for PUBLIC
+;
+;	RJsr	L_RamFree
+; ~~~~~~~~~~~~~~~~~~~~~~~
+;	Free memory A1/D0
+;
+;	RJsr	L_Bnk.OrAdr
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Find whether a number is a address or a	memory bank number
+;	IN: 	D0.l= number 
+;	OUT: 	D0/A0= number or start(number)
+;
+;	RJsr	L_Bnk.GetAdr
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Find the start of a memory bank.
+;	IN:	D0.l=	Bank number
+;	OUT:	A0=	Bank address
+;		D0.w=	Bank flags
+;		Z set if bank not defined.
+;
+;	RJsr	L_Bnk.GetBobs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Returns the address of the bob's bank
+;	IN:
+;	OUT:	Z 	Set if not defined
+;		A0=	address of bank
+;
+;	RJsr	L_Bnk.GetIcons
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Returns the address of the icons bank
+;	IN:
+;	OUT:	Z 	Set if not defined
+;		A0=	address of bank
+;
+;	RJsr	L_Bnk.Reserve
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Reserve a memory bank.
+;	IN:	D0.l	Number
+;		D1	Flags
+;		D2	Length
+;		A0	Name of the bank (8 bytes)
+;	OUT:	Z 	Set inf not successfull
+;		A0	Address of bank
+;	FLAGS:	
+;		Bnk_BitData		Data bank
+;		Bnk_BitChip		Chip bank
+;		Example:	Bset	#Bnk_BitData|Bnk_BitChip,d1
+;	NOTE: 	you should call L_Bnk.Change after reserving/erasing a bank.
+;
+;	RJsr	L_Bnk.Eff
+; ~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase one memory bank.
+;	IN:	D0.l	Number
+;	OUT:	
+;
+;	RJsr	L_Bnk.EffA0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase a bank from its address.
+;	IN:	A0	Start(bank)
+;	OUT:	
+;
+;	RJsr	L_Bnk.EffTemp
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase all temporary banks
+;	IN:
+;	OUT:
+;
+;	RJsr	L_Bnk.EffAll
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase all banks
+;	IN:
+;	OUT:
+;
+;	RJsr	L_Bnk.Change
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Inform the extension, the bob handler that something has changed
+;	in the banks. You should use this function after every bank
+;	reserve / erase.
+;	IN:
+;	OUT:
+;
+; 	RJsr	L_Dsk.PathIt
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Add the current AMOS path to a file name.
+;	IN:	(Name1(a5)) contains the name, finished by zero
+;	OUT:	(Name1(a5)) contains the name with new path
+;	Example:
+;		move.l	Name1(a5),a0
+;		move.l	#"Kiki",(a0)+
+;		clr.b	(a0)
+;		RJsr	L_Dsk.PathIt
+;		... now I load in the current directory
+;
+;	RJsr	 L_Dsk.FileSelector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Call the file selector.
+;	IN:	12(a3)	Path+filter
+;		8(a3)	Default name
+;		4(a3)	Title 2
+;		0(a3)	Title 1
+;		All strings must be in AMOS string format:
+;			dc.w	Length
+;			dc.b 	"String"
+;	OUT:	D0.w	Length of the result. 0 if no selection
+;		A0	Address of first character of the result.
+
+;
+;	HOW DOES IT WORK?
+;
+; Having a look at the |CEQU file, you see that I use special codes
+; to show the compiler that it has to copy the asked routine and relocate
+; the branch. Some remarks:
+;	- The size of a Rbsr is 4 bytes, like the normal branch, it does
+; not change the program (you can make some jumps over it)
+;	- Although I have coded the signal, and put a lot a security, 
+; a mischance may lead to the compiler thinking there is a RBsr where
+; there is nothing than normal data. The result may be disastrous! So if
+; you have BIG parts of datas in which you do not make any special calls,
+; you can put before it the macro: RDATA. It tells the compiler that 
+; the following code, up to the end of the library routine (up to the next
+; L(N) label) is normal data: the compiler will not check for RBranches...
+; Up to now, I have not been forced to do so, but if something goes wrong,
+; try that!
+;
+;
+
+C_Lib
+******************************************************************
+*		COLD START
+*
+; The first routine of the library will perform all initialisations in the
+; booting of AMOS.
+;
+; I have put here all the music datazone, and all the interrupt routines.
+; I suggest you put all you C-Code here too if you have some...
+
+; ALL the following code, from L0 to L1 will be copied into the compiled 
+; program (if any music is used in the program) at once. All RBSR, RBRA etc
+; will be detected and relocated. AMOSPro extension loader does the same.
+
+L0	movem.l	a3-a6,-(sp)
+;
+; Here I store the address of the extension data zone in the special area
+	lea	MB(pc),a3
+	move.l	a3,ExtAdr+ExtNb*16(a5)
+;
+; Here, I store the address of the routine called by DEFAULT, or RUN
+	lea	MusDef(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+4(a5)
+;
+; Here, the address of the END routine,
+	lea	MusEnd(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+8(a5)
+;
+; And now the Bank check routine..
+	lea	BkCheck(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+12(a5)
+
+; You are not obliged to store something in the above areas, you can leave
+; them to zero if no routine is to be called...
+;
+; In AMOS data zone, stands 8 long words allowing you to simply
+; put a patch in the VBL interrupt. The first on is at VBLRout.
+; At each VBL, AMOS explores this list, and call all address <> 0
+; It stops at the FIRST zero. The music patch is the first routine
+; called.
+
+	lea	MusInt(pc),a0		* Interrupt routine
+	move.l	a0,VBLRout(a5)
+; 50/60 herz?
+	move.l	#3546895,MusClock-MB(a3)
+	move.w	#100,TempoBase-MB(a3)
+	EcCall	NTSC			* Is system NTSC?
+	tst.w	d1
+	beq.s	ItsPAL
+	move.w	#120,TempoBase-MB(a3)
+	move.l	#3579545,MusClock-MB(a3)
+ItsPAL	
+; Install sample interrupts
+	lea	Sami_handler(pc),a0
+	move.l	a0,Sami_handad-MB(a3)
+
+; As you can see, you MUST preserve A3-A6, and return in D0 the 
+; Number of the extension if everything went allright. If an error has
+; occured (no more memory, no file found etc...), return -1 in D0 and
+; AMOS will refuse to start.
+	movem.l	(sp)+,a3-a6
+	moveq	#ExtNb,d0		* NO ERRORS
+ 	rts
+
+******* SCREEN RESET
+; This routine is called each time a DEFAULT occurs...
+;
+; The next instruction loads the internal datazone address. I could have
+; of course done a load MB(pc),a3 as the datazone is in the same
+; library chunk. 
+
+MusDef	DLoad	a3	
+* Stop/Init narrator
+	Rbsr	L_NarStop
+	Rbsr	L_NarInit
+* Reset TRACKER music
+	Rbsr	L_TrackStop
+* Reset MED music
+	Rbsr	L_MedClose
+	clr.b	Med_Midi-MB(a3)
+* Reset Sam_interrupts
+	move.w	#$000F,Circuits+DmaCon
+	Rbsr	L_Sami_install
+* Init musique
+	Rbsr	L_RazWave		* Reset waves
+	move.l	Buffer(a5),a0		* Draw square wave
+	move.l	a0,a1
+	moveq	#127,d0
+MuDf1	move.b	#-127,128(a0)
+	move.b	#127,(a0)+
+	dbra	d0,MuDf1
+	moveq	#0,d1			* 0-> Noise
+	Rbsr	L_NeWave
+	moveq	#1,d1			* 1-> Square wave
+	Rbsr	L_NeWave
+	move.w	#LNoise/2-1,d2		* Draw first noise
+	move.w	BSeed-MB(a3),d1
+	move.l	WaveBase-MB(a3),a0
+	lea	WaveDeb(a0),a0
+MuDf2	add.w	Circuits+6,d1
+	mulu	#$3171,d1
+	lsr.l	#8,d1
+	move.w	d1,(a0)+
+	dbra	d2,MuDf2
+	move.w	d1,BSeed-MB(a3)
+	moveq	#56,d0			* Default settings
+	moveq	#%1111,d1
+	Rbsr	L_Vol
+	Rbsr	L_MVol
+	move.w	#5,SamBank-MB(a3)	* Sample bank=5	
+	moveq	#-1,d0			* Sam loop off
+	moveq	#-1,d1
+	Rbsr	L_SL0
+	Rbra	L_MuInit
+
+******* QUIT
+; This routine is called when you quit AMOS or when the compiled program
+; ends. If you have opend devices, reserved memory you MUST close and
+; restore everything to normal.
+
+MusEnd:	DLoad	a3
+
+; Ferme le narrator
+	Rbsr	L_NarStop
+	move.l	$4.w,a6
+	move.l	WriteIo-MB(a3),d0
+	beq.s	.Skip1
+	move.l	d0,a1
+	move.l	WriteIo-MB(a3),a1
+	jsr	_LVOCloseDevice(a6)
+; Enleve la structure
+	move.l	WriteIo-MB(a3),-(sp)
+	moveq	#3,d0
+	Rbsr	L_Amiga.Lib
+	addq.l	#4,sp
+; Enleve les ports
+	move.l	WritePort-MB(a3),-(sp)
+	moveq	#1,d0
+	Rbsr	L_Amiga.Lib
+	addq.l	#4,sp
+	move.l	ReadPort-MB(a3),-(sp)
+	moveq	#1,d0
+	Rbsr	L_Amiga.Lib
+	addq.l	#4,sp
+; Enleve le translator
+.Skip1	move.l	TranBase-MB(a3),d0
+	beq.s	NarEnd
+	move.l	d0,a1
+	jsr	CloseLib(a6)
+NarEnd	
+* No more TRACKER music
+	Rbsr	L_TrackStop
+* No more MED music
+	Rbsr	L_MedClose
+* No more VBL
+	clr.l	VBLRout(a5)
+* No more Sami
+	RBsr	L_Sami_remove
+* End music
+	Rbsr	L_MOff
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff
+	Rbsr	L_RazWave
+	lea	Circuits,a0
+	move.w	#$000F,DmaCon(a0)
+	clr.w	$a8(a0)
+	clr.w	$b8(a0)
+	clr.w	$c8(a0)
+	clr.w	$d8(a0)
+* Finished!
+	rts
+
+******* LOOK FOR MUSIC BANK
+; This routine is called after any bank has been loaded, reserved or erased.
+; Here, if a music is being played and if the music bank is erased, I MUST
+; stop the music, otherwise it might crash the computer. That's why I
+; do a checksum on the first bytes of the bank to see if they have changed...
+BkCheck	
+	Rbsr	L_TrackCheck		* Check Tracker
+	Rbsr	L_MedCheck		* Check Med
+* Check normal music.
+	DLoad	a3
+	move.l	MusBank-MB(a3),d2	Old music bank address
+	moveq	#3,d0			Ask for music bank address
+	Rjsr	L_Bnk.GetAdr
+	beq.s	BkNo
+	move.l	-8(a0),d0		Looks for "Musi"
+	cmp.l	BkMus-MB(a3),d0
+	bne.s	BkNo
+	moveq	#0,d0			Performs a check sum
+	add.l	(a0),d0
+	add.l	4(a0),d0
+	add.l	8(a0),d0
+	add.l	12(a0),d0
+	cmp.l	d2,a0
+	bne.s	BkNew
+	cmp.l	MusCheck-MB(a3),d0
+	bne.s	BkNew
+* Same bank! Do nothing!
+	rts
+* No more bank!
+BkNo	tst.l	d2
+	beq.s	BkNo1
+	Rbsr	L_MuInit
+	clr.l	MusBank-MB(a3)
+BkNo1	rts
+* A NEW bank
+BkNew	move.l	a0,MusBank-MB(a3)
+	move.l	d0,MusCheck-MB(a3)
+	Rbsr	L_MuInit
+	move.l	MusBank-MB(a3),a0
+	move.l	a0,a1
+	add.l	(a0),a1
+	move.l	a1,BankInst-MB(a3)
+	move.l	a0,a1
+	add.l	4(a0),a1
+	move.l	a1,BankSong-MB(a3)
+	add.l	8(a0),a0
+	move.l	a0,BankPat-MB(a3)
+	rts
+
+***********************************************************
+*
+*	INTERRUPT ROUTINES
+*
+***********************************************************	
+
+******* Sami interrupt handlers
+Sami_handler
+	add.w	Sami_reg(a1),a0
+	move.l	Sami_pos(a1),d0
+	cmp.l	Sami_long(a1),d0
+	bcc.s	.whatnow
+* Poursuit la lecture du sample
+.samloop
+	move.l	d0,d1
+	add.l	#Sami_lplay,d1
+	cmp.l	Sami_long(a1),d1
+	bls.s	.skip
+	move.l	Sami_long(a1),d1
+.skip	move.l	d1,Sami_pos(a1)
+	sub.l	d0,d1
+	lsr.l	#1,d1
+	add.l	Sami_adr(a1),d0
+	move.l	d0,(a0)				* AUDxLOC
+	move.w	d1,4(a0)			* AUDxLEN
+	move.w	Sami_dvol(a1),d0
+	bmi.s	.skip1
+	move.w	d0,8(a0)			* AUDxVOL
+.skip1	move.w	Sami_bit(a1),Circuits+IntReq
+	rts
+* Sample termine. Que faire?
+.whatnow
+	move.l	d0,d1
+	move.l	Sami_radr(a1),d0		* Double buffer?
+	bne.s	.swap
+	move.l	Sami_rpos(a1),d0		* Boucler?
+	bpl.s	.samloop
+	bset	#7,Sami_pos(a1)			* Attend?
+	tst.l	d1
+	bpl.s	.skip1
+* Fin du sample-> met du blanc!
+	move.w	#0,$a(a0)
+	move.w	Sami_dma(a1),d0
+	moveq	#0,d1
+	bset	d0,d1
+	move.w	d1,Circuits+DmaCon
+	tst.w	Sami_dvol(a1)
+	bmi.s	.skip2
+	lea	MB(pc),a0			* Restart music
+	bset	d0,MuReStart+1-MB(a0)
+.skip2	move.w	Sami_bit(a1),Circuits+IntEna	* No more interrupts
+	move.w	Sami_bit(a1),Circuits+IntReq
+	rts
+* Change de buffer
+.swap	clr.l	Sami_radr(a1)
+	move.l	d0,Sami_adr(a1)
+	move.l	Sami_rlong(a1),Sami_long(a1)
+	moveq	#0,d0
+	bra	.samloop
+
+******* VBL Entry
+MusInt	lea	MB(pc),a3	
+	move.w	EnvOn-MB(a3),d0
+	beq	Music
+	lea	EnvBase-MB(a3),a0
+	lea	$a0(a6),a2
+	moveq	#0,d1
+	moveq	#3,d2
+	moveq	#0,d5
+MuInt1	btst	d1,d0
+	beq.s	MuIntN
+	move.l	EnvDelta(a0),d3
+	add.l	EnvVol(a0),d3
+	move.l	d3,EnvVol(a0)
+	swap	d3
+	move.w	d3,8(a2)
+MuInt2	subq.w	#1,EnvNb(a0)
+	bne.s	MuIntN
+	Rbsr	L_MuIntE
+MuIntN	lea	EnvLong(a0),a0
+	lea	$10(a2),a2
+	addq.w	#1,d1
+	dbra	d2,MuInt1
+	move.w	d0,EnvOn-MB(a3)
+	move.w	d5,DmaCon(a6)
+	lsl.w	#7,d5
+	move.w	d5,IntEna(a6)
+******* Make noise?
+	tst.w	Noise-MB(a3)
+	beq.s	Music
+	move.w	PNoise-MB(a3),d0
+	moveq	#7,d2
+	move.w	BSeed-MB(a3),d1
+	move.l	WaveBase-MB(a3),a0
+INoi1	add.w	6(a6),d1
+	mulu	#$3171,d1
+	lsr.l	#8,d1
+	move.w	d1,WaveDeb(a0,d0.w)
+	subq.w	#2,d0
+	bpl.s	INoi2
+	move.w	#LNoise-2,d0
+INoi2	dbra	d2,INoi1
+	move.w	d0,PNoise-MB(a3)
+	move.w	d1,BSeed-MB(a3)
+
+*******	Music routine
+Music:	move.l	MuBase-MB(a3),d0
+	beq	Tracker
+	movem.l	a4-a6,-(sp)
+	move.l	d0,a5
+	bsr	MuEvery
+* Here is a smart counter, which gives progressive results
+* from zero to 100(PAL), 120(NTSC)...
+	move.w	MuCpt(a5),d0
+	add.w	MuTempo(a5),d0
+	move.w	d0,MuCpt(a5)
+	move.w	TempoBase-MB(a3),d1
+	cmp.w	d1,d0
+	bcs	MuEff
+	sub.w	d1,MuCpt(a5)
+* Lets go for one step of music!
+	moveq	#0,d5
+	moveq	#0,d7
+	move.l	a5,a4
+
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus0
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus0
+	moveq	#0,d6
+	move.l	MuChip0-MB(a3),a6
+	bsr	MuStep
+Mus0	
+	lea	MuVoix1(a5),a4
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus1
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus1
+	moveq	#1,d6
+	move.l	MuChip1-MB(a3),a6
+	bsr	MuStep
+Mus1
+	lea	MuVoix2(a5),a4
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus2
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus2
+	moveq	#2,d6
+	move.l	MuChip2-MB(a3),a6
+	bsr	MuStep
+Mus2	
+	lea	MuVoix3(a5),a4
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus3
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus3
+	moveq	#3,d6
+	move.l	MuChip3-MB(a3),a6
+	bsr	MuStep
+Mus3	
+	and.w	MuDMAsk-MB(a3),d7
+	move.w	d7,$DFF096
+	tst.w	d5
+	beq.s	MuFin
+	bne.s	MuEnd
+MuEff	bsr	DoEffects
+MuEnd	movem.l	(sp)+,a4-a6
+MuEnd1	rts
+* Finished?
+MuFin	subq.w	#1,MuNumber-MB(a3)
+	beq	MuFini
+* Restarts previous music
+	move.w	MuNumber-MB(a3),d0
+	subq.w	#1,d0
+	mulu	#MuLong,d0
+	lea	MuBuffer-MB(a3),a0
+	add.w	d0,a0
+	move.l	a0,MuBase-MB(a3)
+	move.w	MuDMAsk-MB(a3),MuReStart-MB(a3)
+	clr.w	MuStart(a0)
+	clr.w	MuStop(a0)
+	bra.s	MuEnd
+* Really finished!
+MuFini	clr.l	MuBase-MB(a3)
+	Rbsr	L_MOff
+	bra.s	MuEnd
+
+******* One step of music for one voice
+MuStep	lea	MuJumps(pc),a1
+	move.l	VoiAdr(a4),a2
+MuSt0	move.w	(a2)+,d0
+	bpl.s	DoNote
+	move.w	d0,d1
+	and.w	#$7F00,d0
+	lsr.w	#6,d0
+	jmp	0(a1,d0.w)
+
+******* Play a note
+DoNote	btst	#14,d0
+	bne.s	OldNote
+* Play normal note
+	and.w	#$0FFF,d0
+	move.l	BankInst-MB(a3),d1
+	move.l	VoiInst(a4),a0
+	add.l	(a0),d1
+	move.l	d1,(a6)
+	move.w	8(a0),$04(a6)
+	bset	d6,d7
+	bclr	d6,MuStop+1(a5)
+	bset	d6,MuStart+1(a5)
+	move.b	VoiVol+1(a4),0(a3,d6.w)
+	tst.b	VoiPTone(a4)
+	bne.s	MuSt1
+* No portamento
+	move.w	d0,VoiNote(a4)
+	move.w	d0,$06(a6)
+	bra.s	MuSt0
+* Start portamento
+MuSt1	clr.b	VoiPTone(a4)
+	move.w	d0,VoiPToTo(a4)
+	lea	MuPTone(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra.s	MuSt0
+* Play note compatible with first version
+OldNote	move.w	d0,VoiCpt(a4)
+	move.w	(a2)+,d0
+	beq.s	ONoteE
+	and.w	#$0FFF,d0
+	move.w	d0,VoiNote(a4)
+	move.w	d0,$06(a6)
+	move.l	BankInst-MB(a3),d0
+	move.l	VoiInst(a4),a0
+	add.l	(a0),d0
+	move.l	d0,(a6)
+	move.w	8(a0),$04(a6)
+	bset	d6,d7
+	bclr	d6,MuStop+1(a5)
+	bset	d6,MuStart+1(a5)
+	move.b	VoiVol+1(a4),0(a3,d6.w)
+ONoteE	move.l	a2,VoiAdr(a4)
+	rts
+
+******* Jump table to labels
+MuJumps	bra	EtEnd			* 00-> Fin pattern
+	bra	MuSt0			* 01-> Old Slide up
+	bra	MuSt0			* 02-> Old Slide down
+	bra	EtSVol			* 03-> Set volume
+	bra	EtStop			* 04-> Stop effet
+	bra	EtRep			* 05-> Repeat
+	bra	EtLOn			* 06-> Led On
+	bra	EtLOff			* 07-> Led Off
+	bra	EtTemp			* 08-> Set Tempo
+	bra	EtInst			* 09-> Set Instrument
+	bra	EtArp			* 10-> Arpeggiato
+	bra	EtPort			* 11-> Portamento
+	bra	EtVib			* 12-> Vibrato
+	bra	EtVSl			* 13-> Volume slide
+	bra	EtSlU			* 14-> Slide up
+	bra	EtSlD			* 15-> Slide down
+ 	bra	EtDel			* 16-> Delay
+	bra	EtJmp			* 17-> Position jump
+	bra	MuSt0			* 18-> Free space
+	bra	MuSt0			* 19-> Free space
+	bra	MuSt0			* 20-> Free space
+	bra	MuSt0			* 21-> Free space
+	bra	MuSt0			* 22-> Free space
+	bra	MuSt0			* 23-> Free space
+	bra	MuSt0			* 24-> Free space
+	bra	MuSt0			* 25-> Free space
+	bra	MuSt0			* 26-> Free space
+	bra	MuSt0			* 27-> Free space
+	bra	MuSt0			* 28-> Free space
+	bra	MuSt0			* 29-> Free space
+	bra	MuSt0			* 30-> Free space
+	bra	MuSt0			* 31-> Free space
+
+******* End of a pattern
+EtEnd	clr.w	VoiCpt(a4)
+	clr.w	VoiRep(a4)
+	clr.l	VoiDeb(a4)
+	lea	NoEffect(pc),a0
+	move.l	a0,VoiEffect(a4)
+	move.l	VoiPat(a4),a0
+RePat	moveq	#0,d0
+	move.w	(a0)+,d0
+	bmi.s	EtEnd1
+	move.l	a0,VoiPat(a4)
+	move.l	BankPat-MB(a3),a0
+	cmp.w	(a0),d0
+	bhi.s	EtEndX
+	lsl.w	#2,d0
+	add.w	d6,d0
+	lsl.w	#1,d0
+	move.w	2(a0,d0.w),d0
+	beq.s	EtEndX
+	lea	0(a0,d0.l),a2
+	bra	MuSt0
+EtEndX	rts
+EtEnd1	cmp.w	#-1,d0
+	beq.s	EtEndX
+ 	move.l	VoiDPat(a4),a0
+	bra.s	RePat
+******* Change instrument
+EtInst	and.w	#$00FF,d1
+	move.l	BankInst-MB(a3),a0
+	lsl.w	#5,d1
+	lea	2(a0,d1.w),a0
+	move.l	a0,VoiInst(a4)
+	move.w	12(a0),d0
+	cmp.w	#64,d0
+	bcs.s	EtInst1
+	moveq	#63,d0
+EtInst1	move.w	d0,VoiDVol(a4)
+	mulu	MuVolume-MB(a3),d0
+	lsr.w	#6,d0
+	move.w	d0,VoiVol(a4)
+	bra	MuSt0
+******* Set Volume
+EtSVol	and.w	#$00FF,d1
+	cmp.w	#64,d1
+	bcs.s	EtSVol1
+	moveq	#63,d1
+EtSVol1	move.w	d1,VoiDVol(a4)
+	mulu	MuVolume-MB(a3),d1
+	lsr.w	#6,d1
+	move.w	d1,VoiVol(a4)
+	bra	MuSt0
+******* Set Tempo
+EtTemp	and.w	#$00FF,d1
+	move.w	d1,MuTempo(a5)
+	bra	MuSt0
+******* Led On
+EtLOn	bclr	#1,$bfe001
+	bra	MuSt0
+******* Led Off
+EtLOff	bset	#1,$bfe001
+	bra	MuSt0
+******* Repeat
+EtRep	and.w	#$00FF,d1
+	bne.s	EtRep1
+	move.l	a2,VoiDeb(a4)
+	bra	MuSt0
+EtRep1	tst.w	VoiRep(a4)
+	bne.s	EtRep2
+	move.w	d1,VoiRep(a4)
+	bra	MuSt0
+EtRep2	subq.w	#1,VoiRep(a4)
+	beq	MuSt0
+	move.l	VoiDeb(a4),d0
+	beq	MuSt0
+	move.l	d0,a2
+	bra	MuSt0
+******* Arpeggio
+EtArp	move.b	d1,VoiValue+1(a4)
+	lea	MuArp(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Portamento
+EtPort	move.b	#1,VoiPTone(a4)
+	lea	MuPTone(pc),a0
+	bra.s	EtSetE
+******* Vibrato
+EtVib	lea	MuVib(pc),a0
+	bra.s	EtSetE
+******* Volume slide
+EtVSl	and.w	#$00FF,d1
+	move.w	d1,d0
+	lsr.w	#4,d0
+	tst.w	d0
+	bne.s	VsEnd
+	and.w	#$000F,d1
+	neg.w	d1
+	move.w	d1,d0
+VsEnd	move.w	d0,VoiValue(a4)
+	lea	MuVSl(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Slide up
+EtSlU	and.w	#$00FF,d1
+	neg.w	d1
+	lea	MuSlide(pc),a0
+	bra.s	EtSte
+******* Slide Down
+EtSlD	lea	MuSlide(pc),a0
+EtSetE	and.w	#$00FF,d1
+EtSte	move.w	d1,VoiValue(a4)
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Stop effect
+EtStop	lea	NoEffect(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Jump to pattern
+EtJmp	and.w	#$00FF,d1
+	lsl.w	#1,d1
+	move.l	VoiDPat(a4),a0
+	add.w	d1,a0
+	move.l	a0,VoiPat(a4)
+	bra	EtEnd
+******* Delay
+EtDel	move.w	d1,VoiCpt(a4)
+	move.l	a2,VoiAdr(a4)
+	rts
+
+******* Effect routines
+
+* Performs all effects
+DoEffects
+	move.l	a5,a4
+	move.l	MuChip0-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	lea	MuVoix1(a5),a4
+	move.l	MuChip1-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	lea	MuVoix2(a5),a4
+	move.l	MuChip2-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	lea	MuVoix3(a5),a4
+	move.l	MuChip3-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	rts
+
+* TONE SLIDE
+MuSlide	move.w	VoiValue(a4),d0
+	beq.s	NoMoreE
+	add.w	VoiNote(a4),d0
+	cmp.w	#$71,d0
+	bcc.s	MuSl1
+	moveq	#$71,d0
+	bsr	NoMoreE
+MuSl1	cmp.w	#$358,d0
+	bls.s	MuSl2
+	move.w	#$358,d0
+	bsr	NoMoreE
+MuSl2	move.w	d0,VoiNote(a4)
+	move.w	d0,$06(a6)
+	rts
+NoMoreE	lea	NoEffect(pc),a0
+	move.l	a0,VoiEffect(a4)
+	rts
+NoEffect
+	move.w	VoiNote(a4),$06(a6)
+	rts
+
+* ARPEGGIO
+MuArp	moveq	#0,d0
+	move.b	VoiValue+1(a4),d0
+	move.b	VoiValue(a4),d1
+	cmp.b	#3,d1
+	bcs.s	MuArp0
+	moveq	#2,d1
+MuArp0	subq.b	#1,d1
+	move.b	d1,VoiValue(a4)
+	beq.s	MuArp2
+	bpl.s	MuArp1
+	lsr.b	#4,d0
+	bra.s	MuArp3
+MuArp1	and.b	#$0f,d0
+	bra.s	MuArp3
+MuArp2	move.w	VoiNote(a4),d2
+	bra.s	MuArp4
+MuArp3	add.w	d0,d0
+	moveq	#0,d1
+	move.w	VoiNote(a4),d1
+	lea	Periods(pc),a0
+	moveq	#$24,d3
+MuArpL	move.w	(a0,d0.w),d2
+	cmp.w	(a0),d1
+	bge.s	MuArp4
+	addq.l	#2,a0
+	dbra	d3,MuArpL
+	rts
+MuArp4	move.w	d2,$06(a6)
+	rts
+
+* PORTAMENTO
+MuPTone	move.w	VoiValue(a4),d0
+	move.w	VoiNote(a4),d1
+	cmp.w	VoiPToTo(a4),d1
+	beq.s	MuPTo3
+	bcs.s	MuPTo1
+	sub.w	d0,d1
+	cmp.w	VoiPToTo(a4),d1
+	bhi.s	MuPto4
+	bra.s	MuPTo2
+MuPTo1	add.w	d0,d1
+	cmp.w	VoiPToTo(a4),d1
+	bcs.s	MuPTo4
+MuPTo2	move.w	VoiPToTo(a4),d1
+MuPTo3	bsr	NoMoreE
+MuPTo4	move.w	d1,VoiNote(a4)
+	move.w	d1,$06(a6)
+	rts
+
+* VIBRATO
+MuVib	move.b	VoiVib(a4),d0
+	lea	Sinus(pc),a0
+	lsr.w	#2,d0
+	and.w	#$1f,d0
+	moveq	#0,d2
+	move.b	0(a0,d0.w),d2
+	move.b	VoiValue+1(a4),d0
+	and.w	#$0F,d0
+	mulu	d0,d2
+	lsr.w	#$06,d2
+	move.w	VoiNote(a4),d0
+	tst.b	VoiVib(a4)
+	bmi.s	MuVib1
+	add.w	d2,d0
+	bra.s	MuVib2
+MuVib1	sub.w	d2,d0
+MuVib2	move.w	d0,$06(a6)
+	move.b	VoiValue+1(a4),d0
+	lsr.w	#2,d0
+	and.w	#$3C,d0
+	add.b	d0,VoiVib(a4)
+	rts
+
+* VOLUME SLIDE
+MuVSl	move.w	VoiDVol(a4),d0
+	add.w	VoiValue(a4),d0
+	bpl.s	MuVSl1
+	clr.w	d0
+MuVSl1	cmp.w	#$40,d0
+	bcs.s	MuVSl2
+	moveq	#$3F,d0
+MuVSl2	move.w	d0,VoiDVol(a4)
+	mulu	MuVolume-MB(a3),d0
+	lsr.w	#6,d0
+	move.w	d0,VoiVol(a4)
+	rts
+
+*******	Routine called every VBL
+MuEvery	
+
+* Second step of sample?
+	move.w	MuStop(a5),d0
+	beq	MuEvX
+	move.l	BankInst-MB(a3),d1
+	btst	#0,d0				* Voix 0
+	beq.s	MuEv0
+	move.l	MuChip0-MB(a3),a6
+	move.l	VoiInst0(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv0	btst	#1,d0				* Voix 1
+	beq.s	MuEv1
+	move.l	MuChip1-MB(a3),a6
+	move.l	VoiInst1(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv1	btst	#2,d0				* Voix 2
+	beq.s	MuEv2
+	move.l	MuChip2-MB(a3),a6
+	move.l	VoiInst2(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv2	btst	#3,d0				* Voix 3
+	beq.s	MuEv3
+	move.l	MuChip3-MB(a3),a6
+	move.l	VoiInst3(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv3	
+
+* Start a voice
+MuEvX	move.w	MuStart(a5),d1
+	move.w	d1,MuStop(a5)
+	clr.w	MuStart(a5)
+	or.w	d1,d0
+	and.w	MuDMAsk-MB(a3),d0
+	bset	#15,d0
+	move.w	d0,$DFF096
+
+* Restart voices?
+	move.w	MuReStart-MB(a3),d0
+	beq	MuRsX
+	moveq	#0,d3
+	btst	#0,d0				* Voix 0
+	beq.s	MuRs0
+	lea	$DFF0A0,a6
+	move.l	a6,MuChip0-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst0(a5)
+	beq.s	MuRs0
+	bset	#0,d3
+MuRs0	btst	#1,d0				* Voix 1
+	beq.s	MuRs1
+	lea	$DFF0B0,a6
+	move.l	a6,MuChip1-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst1(a5)
+	beq.s	MuRs1
+	bset	#1,d3
+MuRs1	btst	#2,d0				* Voix 2
+	beq.s	MuRs2
+	lea	$DFF0C0,a6
+	move.l	a6,MuChip2-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst2(a5)
+	beq.s	MuRs2
+	bset	#2,d3
+MuRs2	btst	#3,d0				* Voix 3
+	beq.s	MuRs3
+	lea	$DFF0D0,a6
+	move.l	a6,MuChip3-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst3(a5)
+	beq.s	MuRs3
+	bset	#3,d3
+MuRs3	clr.w	MuReStart-MB(a3)
+	or.w	d0,MuDMAsk-MB(a3)
+	or.w	d3,MuStop(a5)
+MuRsX	
+	rts
+
+
+***********************************************************
+*
+*	TRACKER INTERRUPT ROUTINES
+*
+***********************************************************	
+Tracker	move.b	mt_on(pc),d0
+	beq.s	.Skip
+	movem.l	a4-a6,-(sp)
+; Poke les deuxiemes parties des samples
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	mt_dmacon-MB(a3)
+	beq.s	.SkipD
+	lea	mt_voice1(pc),a1
+	lea	$dff000,a0
+	move.l	$a(a1),$a0(a0)
+	move.w	$e(a1),$a4(a0)
+	move.l	$a+$1c(a1),$b0(a0)
+	move.w	$e+$1c(a1),$b4(a0)
+	move.l	$a+$38(a1),$c0(a0)
+	move.w	$e+$38(a1),$c4(a0)
+	move.l	$a+$54(a1),$d0(a0)
+	move.w	$e+$54(a1),$d4(a0)
+; Appelle la musique
+; ~~~~~~~~~~~~~~~~~~
+.SkipD	bsr	mt_music
+	movem.l	(sp)+,a4-a6
+.Skip	rts
+
+mt_music:
+	move.l	mt_data(pc),a0
+	lea	mt_voice1(pc),a4
+	addq.b	#1,mt_counter-mt_voice1(a4)
+	move.b	mt_counter(pc),d0
+	cmp.b	mt_speed(pc),d0
+	blt	mt_nonew
+	moveq	#0,d0
+	move.b	d0,mt_counter-mt_voice1(a4)
+	move.w	d0,mt_dmacon-mt_voice1(a4)
+	move.l	mt_data(pc),a0
+	lea	$3b8(a0),a2
+	lea	$43c(a0),a0
+
+	moveq	#0,d1
+	move.b	mt_songpos(pc),d0
+	move.b	(a2,d0.w),d1
+	lsl.w	#8,d1
+	lsl.w	#2,d1
+	add.w	mt_pattpos(pc),d1
+
+	lea	$dff0a0,a5
+	lea	mt_samplestarts-4(pc),a1
+	lea	mt_playvoice(pc),a6
+	jsr	(a6)
+	addq.l	#4,d1
+	lea	$dff0b0,a5
+	lea	mt_voice2(pc),a4
+	jsr	(a6)
+	addq.l	#4,d1
+	lea	$dff0c0,a5
+	lea	mt_voice3(pc),a4
+	jsr	(a6)
+	addq.l	#4,d1
+	lea	$dff0d0,a5
+	lea	mt_voice4(pc),a4
+	jsr	(a6)
+
+	move.w	mt_dmacon(pc),d0
+	beq.s	mt_nodma
+	or.w	#$8000,mt_dmacon-mt_voice4(a4)
+
+mt_nodma:
+	add.w	#$10,mt_pattpos-mt_voice4(a4)
+	cmp.w	#$400,mt_pattpos-mt_voice4(a4)
+	bne.s	mt_exit
+mt_next:clr.w	mt_pattpos-mt_voice4(a4)
+	clr.b	mt_break-mt_voice4(a4)
+	addq.b	#1,mt_songpos-mt_voice4(a4)
+	and.b	#$7f,mt_songpos-mt_voice4(a4)
+	move.b	-2(a2),d0
+	cmp.b	mt_songpos(pc),d0
+	bne.s	mt_exit
+	move.b	-1(a2),mt_songpos-mt_voice4(a4)
+mt_exit:tst.b	mt_break-mt_voice4(a4)
+	bne.s	mt_next
+; Provoque l'actualisation du DMA
+	move.w	mt_dmacon(pc),d0
+	beq.s	.Skip
+	moveq	#4,d3		
+.wai2	move.b	$dff006,d2	
+.wai3	cmp.b	$dff006,d2	
+	beq.s	.wai3
+	dbf	d3,.wai2	
+	move.w	d0,$dff096
+.Skip	rts
+
+mt_nonew:
+	lea	$dff0a0,a5
+	lea	mt_com(pc),a6
+	jsr	(a6)
+	lea	mt_voice2(pc),a4
+	lea	$dff0b0,a5
+	jsr	(a6)
+	lea	mt_voice3(pc),a4
+	lea	$dff0c0,a5
+	jsr	(a6)
+	lea	mt_voice4(pc),a4
+	lea	$dff0d0,a5
+	jsr	(a6)
+	tst.b	mt_break-mt_voice4(a4)
+	bne	mt_next
+	rts
+
+mt_playvoice:
+	move.l	(a0,d1.l),(a4)
+	moveq	#0,d2
+	move.b	2(a4),d2
+	lsr.b	#4,d2
+	move.b	(a4),d0
+	and.b	#$f0,d0
+	or.b	d0,d2
+	beq	mt_oldinstr
+
+	asl.w	#2,d2
+	move.l	(a1,d2.l),4(a4)
+	move.l	mt_mulu(pc,d2.w),a3
+	move.w	(a3)+,8(a4)
+	move.w	(a3)+,$12(a4)
+	move.l	4(a4),d0
+	moveq	#0,d3
+	move.w	(a3)+,d3
+	beq	mt_noloop
+	asl.w	#1,d3
+	add.l	d3,d0
+	move.l	d0,$a(a4)
+	move.w	-2(a3),d0
+	add.w	(a3),d0
+	move.w	d0,8(a4)
+	bra	mt_hejaSverige
+
+mt_mulu:dcb.l	$20,0
+
+mt_noloop:
+	add.l	d3,d0
+	move.l	d0,$a(a4)
+mt_hejaSverige:
+	move.w	(a3),$e(a4)
+	move.w	$12(a4),8(a5)
+
+mt_oldinstr:
+	move.w	(a4),d3
+	and.w	#$fff,d3
+	beq	mt_com2
+	tst.w	8(a4)
+	beq.s	mt_stopsound
+	move.b	2(a4),d0
+	and.b	#$f,d0
+	cmp.b	#5,d0
+	beq.s	mt_setport
+	cmp.b	#3,d0
+	beq.s	mt_setport
+
+	move.w	d3,$10(a4)
+	move.w	$1a(a4),$dff096
+	clr.b	$19(a4)
+
+	move.l	4(a4),(a5)
+	move.w	8(a4),4(a5)
+	move.w	$10(a4),6(a5)
+
+	move.w	$1a(a4),d0
+	or.w	d0,mt_dmacon-mt_playvoice(a6)
+	bra	mt_com2
+
+mt_stopsound:
+	move.w	$1a(a4),$dff096
+	bra	mt_com2
+
+mt_setport:
+	move.w	(a4),d2
+	and.w	#$fff,d2
+	move.w	d2,$16(a4)
+	move.w	$10(a4),d0
+	clr.b	$14(a4)
+	cmp.w	d0,d2
+	beq.s	mt_clrport
+	bge	mt_com2
+	move.b	#1,$14(a4)
+	bra	mt_com2
+mt_clrport:
+	clr.w	$16(a4)
+	rts
+
+mt_port:moveq	#0,d0
+	move.b	3(a4),d2
+	beq.s	mt_port2
+	move.b	d2,$15(a4)
+	move.b	d0,3(a4)
+mt_port2:
+	tst.w	$16(a4)
+	beq.s	mt_rts
+	move.b	$15(a4),d0
+	tst.b	$14(a4)
+	bne.s	mt_sub
+	add.w	d0,$10(a4)
+	move.w	$16(a4),d0
+	cmp.w	$10(a4),d0
+	bgt.s	mt_portok
+	move.w	$16(a4),$10(a4)
+	clr.w	$16(a4)
+mt_portok:
+	move.w	$10(a4),6(a5)
+mt_rts:	rts
+
+mt_sub:	sub.w	d0,$10(a4)
+	move.w	$16(a4),d0
+	cmp.w	$10(a4),d0
+	blt.s	mt_portok
+	move.w	$16(a4),$10(a4)
+	clr.w	$16(a4)
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_sin:
+	dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
+	dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
+
+mt_vib:	move.b	$3(a4),d0
+	beq.s	mt_vib2
+	move.b	d0,$18(a4)
+
+mt_vib2:move.b	$19(a4),d0
+	lsr.w	#2,d0
+	and.w	#$1f,d0
+	moveq	#0,d2
+	move.b	mt_sin(pc,d0.w),d2
+	move.b	$18(a4),d0
+	and.w	#$f,d0
+	mulu	d0,d2
+	lsr.w	#7,d2
+	move.w	$10(a4),d0
+	tst.b	$19(a4)
+	bmi.s	mt_vibsub
+	add.w	d2,d0
+	bra.s	mt_vib3
+mt_vibsub:
+	sub.w	d2,d0
+mt_vib3:move.w	d0,6(a5)
+	move.b	$18(a4),d0
+	lsr.w	#2,d0
+	and.w	#$3c,d0
+	add.b	d0,$19(a4)
+	rts
+
+mt_arplist:
+	dc.b 0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1
+
+mt_arp:	moveq	#0,d0
+	move.b	mt_counter(pc),d0
+	move.b	mt_arplist(pc,d0.w),d0
+	beq.s	mt_normper
+	cmp.b	#2,d0
+	beq.s	mt_arp2
+mt_arp1:move.b	3(a4),d0
+	lsr.w	#4,d0
+	bra.s	mt_arpdo
+mt_arp2:move.b	3(a4),d0
+	and.w	#$f,d0
+mt_arpdo:
+	asl.w	#1,d0
+	move.w	$10(a4),d1
+	lea	mt_periods(pc),a0
+mt_arp3:cmp.w	(a0)+,d1
+	blt.s	mt_arp3
+	move.w	-2(a0,d0.w),6(a5)
+	rts
+
+mt_normper:
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_com:	move.w	2(a4),d0
+	and.w	#$fff,d0
+	beq.s	mt_normper
+	move.b	2(a4),d0
+	and.b	#$f,d0
+	beq.s	mt_arp
+	cmp.b	#6,d0
+	beq.s	mt_volvib
+	cmp.b	#4,d0
+	beq	mt_vib
+	cmp.b	#5,d0
+	beq.s	mt_volport
+	cmp.b	#3,d0
+	beq	mt_port
+	cmp.b	#1,d0
+	beq.s	mt_portup
+	cmp.b	#2,d0
+	beq.s	mt_portdown
+	move.w	$10(a4),6(a5)
+	cmp.b	#$a,d0
+	beq.s	mt_volslide
+	rts
+
+mt_portup:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	sub.w	d0,$10(a4)
+	move.w	$10(a4),d0
+	cmp.w	#$71,d0
+	bpl.s	mt_portup2
+	move.w	#$71,$10(a4)
+mt_portup2:
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_portdown:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	add.w	d0,$10(a4)
+	move.w	$10(a4),d0
+	cmp.w	#$358,d0
+	bmi.s	mt_portdown2
+	move.w	#$358,$10(a4)
+mt_portdown2:
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_volvib:
+	 bsr	mt_vib2
+	 bra.s	mt_volslide
+mt_volport:
+	 bsr	mt_port2
+
+mt_volslide:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	lsr.b	#4,d0
+	beq.s	mt_vol3
+	add.b	d0,$13(a4)
+	cmp.b	#$40,$13(a4)
+	bmi.s	mt_vol2
+	move.b	#$40,$13(a4)
+mt_vol2:move.w	$12(a4),8(a5)
+	rts
+
+mt_vol3:move.b	3(a4),d0
+	and.b	#$f,d0
+	sub.b	d0,$13(a4)
+	bpl.s	mt_vol4
+	clr.b	$13(a4)
+mt_vol4:move.w	$12(a4),8(a5)
+	rts
+
+mt_com2:move.b	2(a4),d0
+	and.b	#$f,d0
+	beq	mt_rts
+	cmp.b	#$e,d0
+	beq.s	mt_filter
+	cmp.b	#$d,d0
+	beq.s	mt_pattbreak
+	cmp.b	#$b,d0
+	beq.s	mt_songjmp
+	cmp.b	#$c,d0
+	beq.s	mt_setvol
+	cmp.b	#$f,d0
+	beq.s	mt_setspeed
+	rts
+
+mt_filter:
+	move.b	3(a4),d0
+	and.b	#1,d0
+	asl.b	#1,d0
+	and.b	#$fd,$bfe001
+	or.b	d0,$bfe001
+	rts
+
+mt_pattbreak:
+	move.b	#1,mt_break-mt_playvoice(a6)
+	rts
+
+mt_songjmp:
+	move.b	#1,mt_break-mt_playvoice(a6)
+	move.b	3(a4),d0
+	subq.b	#1,d0
+	move.b	d0,mt_songpos-mt_playvoice(a6)
+	rts
+
+mt_setvol:
+	cmp.b	#$40,3(a4)
+	bls.s	mt_sv2
+	move.b	#$40,3(a4)
+mt_sv2:	moveq	#0,d0
+	move.b	3(a4),d0
+	move.b	d0,$13(a4)
+	move.w	d0,8(a5)
+	rts
+
+mt_setspeed:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	cmp.b	#$1f,d0
+	bls.s	mt_sp2
+	moveq	#$1f,d0
+mt_sp2:	tst.w	d0
+	bne.s	mt_sp3
+	moveq	#1,d0
+mt_sp3:	move.b	d0,mt_speed-mt_playvoice(a6)
+	rts
+
+
+*********************************************************************
+*		MUSIC extension data zone
+
+; Branches for AMOSPro Editor (-4)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		Rbra	L_GoSam
+MB:
+MuVu		dc.l	0		* Vu Meters
+MuBase		dc.l	0		* Curretn music address
+MusAdr		dc.l	0		* Branch table address
+MusClock	dc.l 	3546895		* Clock speed
+WaveBase	dc.l	0		* Wave tree
+Waves		dc.w 	0,0,0,0
+EnvOn:		dc.w 	0		* ADSR running?
+EnvBase:	ds.b	EnvLong*4	* ADSR table
+SamBank:	dc.w 	0		* Sample bank
+BSeed:		dc.w 	0		* Random seed
+Noise:		dc.w	0		* Noise on?
+PNoise:		dc.w	0		* Pointer to noise buffer
+TempoBase:	dc.w	0		* 100 (PAL) - 120 (NTSC)
+* 		Musique
+MusBank		dc.l 	0		* Music bank
+MusCheck	dc.l	0		* Check sum
+BankInst	dc.l	0		* Instruments
+BankSong	dc.l	0		* Songs
+BankPat		dc.l 	0		* Patterns
+MuNumber	dc.w	0		* Music priority
+MuVolume	dc.w	0		* Music volume
+MuDMAsk		dc.w	0		* Voice mask
+MuReStart	dc.w	0		* Restart the voice
+MuChip0		dc.l	0		* Circuits 0
+MuChip1		dc.l 	0		*	   1
+MuChip2		dc.l 	0		*          2
+MuChip3		dc.l 	0		*          3
+FoEnd		dc.w	$8000		* Fake empty pattern
+MuBuffer	ds.b	MuLong*3	* Music tables
+
+		RDATA
+
+*************** Tables for effects
+Sinus	
+ dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
+ dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
+
+Periods	
+ dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
+ dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
+ dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
+ dc.w $007f,$0078,$0071,$0000,$0000
+
+*************** Default enveloppes
+EnvDef:		dc.w 1,64,4,55,5,50,25,0,0,0
+EnvShoot	dc.w 1,64,10,0,0,0
+EnvBoom		dc.w 1,64,10,50,50,0,0,0
+EnvBell		dc.w 1,64,4,40,25,0,0,0
+
+*************** Bank headers
+BkMus:		dc.b "Music   "
+
+*************** Frequency / notes
+TFreq:	dc.w 000,256/2
+	dc.w 000,256/2
+	dc.w 256,128/2
+	dc.w 384,64/2
+	dc.w 448,32/2
+	dc.w 480,16/2
+	dc.w 496,8/2
+	dc.w 504,4/2
+	dc.w 504,4/2
+TNotes:	dc.w 00,00,00,33,35,37,39,41,44,46,49,52
+	dc.w 55,58,62,65,69,73,78,82,87,92,98,104
+	dc.w 110,117,123,131,139,147,156,165,175,185,196,208
+	dc.w 220,233,247,262,277,294,311,330,349,370,392,415
+	dc.w 440,466,494,523,554,587,622,659,698,740,784,830
+	dc.w 880,932,988,1046,1109,1175,1245,1319,1397,1480,1568,1661
+	dc.w 1760,1865,1986,2093,2217,2349,2489,2637,2794,2960,3136,3322
+	dc.w 3520,3729,3952,4186,4435,4699,4978,5274,5588,5920,6272,6645
+	dc.w 7040,7459,7902,8372
+
+*************** SAMPLE PLAYER INTERRUPT STRUCTURES
+Sami_lplay	equ	1024*4
+Sami_bit	equ	22
+Sami_dma	equ	24
+Sami_reg	equ	26
+Sami_adr	equ	28
+Sami_long	equ	32
+Sami_pos	equ	36
+Sami_rpos	equ	40
+Sami_radr	equ	44
+Sami_rlong	equ	48
+Sami_dvol	equ	52
+Sami_old	equ	54
+Sami_intl	equ	58
+
+Sami_int	ds.b	22				* Channel 0
+		dc.w	%0000000010000000	bit
+		dc.w	0			dma
+		dc.w	$a0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old			
+
+		ds.b	22				* Channel 1
+		dc.w	%0000000100000000	bit
+		dc.w	1			dma
+		dc.w	$b0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old			
+
+		ds.b	22				* Channel 2
+		dc.w	%0000001000000000	bit
+		dc.w	2			dma
+		dc.w	$c0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old			
+
+		ds.b	22				* Channel 3
+		dc.w	%0000010000000000	bit
+		dc.w	3			dma
+		dc.w	$d0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old			
+
+Sami_OldEna	dc.w	0
+Sami_empty	dc.l	0
+Sami_bits	dc.w	0
+Sami_handad	dc.l	0
+Sami_flag	dc.w	0
+SamLoops	dc.w	0
+*************** NARRATOR
+Amaps:		dc.b	3,5,10,12
+TranBase	dc.l	0
+		even
+L_WriteIo	equ	88
+WriteIo		dc.l	0
+WritePort:	dc.l	0
+L_ReadIo	equ	92
+ReadIo		ds.b	L_ReadIo
+ReadPort	dc.l	0
+TranName	dc.b	"translator.library",0
+NarDevice	dc.b	"narrator.device",0
+		even
+
+; 	MED data zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Med_Bank	dc.w	7		Bank number 6= tracker
+Med_Base	dc.l	0
+Med_Adr		dc.l	0
+Med_On		dc.b	0
+Med_Midi	dc.b	0
+Med_Name	dc.b	"medplayer.library",0	
+		even
+_MEDGetPlayer		equ	-30
+_MEDFreePlayer		equ	-36
+_MEDPlayModule		equ	-42
+_MEDContModule		equ	-48
+_MEDStopPlayer		equ	-54
+_MEDDimOffPlayer	equ	-60
+_MEDSetTempo		equ	-66
+_MEDLoadModule		equ	-72
+_MEDUnLoadModule	equ	-78
+_MEDGetCurrentModule	equ	-84
+_MEDResetMIDI		equ	-90
+_MEDSetModnum		equ	-96
+_MEDRelocModule		equ	-102
+
+*********************************************************************
+*	mt TRACKER data zone
+
+Track_Bank	dc.w	6		Bank number 6= tracker
+mt_on		dc.b	0
+colour		dc.w	0
+
+mt_periods:
+	dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
+	dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
+	dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
+	dc.w $007f,$0078,$0071,$0000
+
+mt_speed:	dc.b	6
+mt_counter:	dc.b	0
+mt_pattpos:	dc.w	0
+mt_songpos:	dc.b	0
+mt_break:	dc.b	0
+mt_dmacon:	dc.w	0
+mt_samplestarts:dcb.l	$1f,0
+mt_voice1:	dcb.w	13,0
+		dc.w	1
+mt_voice2:	dcb.w	13,0
+		dc.w	2
+mt_voice3:	dcb.w	13,0
+		dc.w	4
+mt_voice4:	dcb.w	13,0
+		dc.w	8
+mt_data:	dc.l	0
+		dc.l	0
+
+
+**********************************************************************
+; Please leave 1 or two labels free for future extension. You never
+; know!
+L1
+
+; Now follow all the music routines. Some are just routines called by others,
+; some are instructions. 
+; See how a adress the internal music datazone, by using a base register
+; (usually A3) and adding the offset of the data in the datazone...
+
+; >>> How to get the parameters for the instruction?
+;
+; When an instruction or function is called, you get the parameters
+; pushed in A3. Remember that you unpile them in REVERSE order than
+; the instruction syntax.
+; As you have a entry point for each set of parameters, you know
+; how many are pushed...
+;	- INTEGER:	move.l	(a3)+,d0
+;	- STRING:	move.l	(a3)+,a0
+;			move.w	(a0)+,d0
+;		A0---> start of the string.
+;		D0---> length of the string
+;	- FLOAT:	move.l	(a3)+,d0
+;			fast floatting point format.
+;
+; IMPORTANT POINT: you MUST unpile the EXACT number of parameters,
+; to restore A3 to its original level. If you do not, you will not
+; have a immediate error, and AMOS will certainely crash on next
+; UNTIL / WEND / ENDIF / NEXT etc... 
+;
+; So, your instruction must:
+;	- Unpile the EXACT number of parameters from A3, and exit with
+;	A3 at the original level it was before collecting your parameters)
+;	- Preserve A4, A5 and A6
+; You can use D0-D7/A0-A2 freely...
+;
+; You can jump to the error routine without thinking about A3 if an error
+; occurs in your routine (via a RBra of course). BUT A4, A5 and A6 registers
+; MUST be preserved!
+;
+; You end must end by a RTS.
+;
+; >>> Functions, how to return the parameter?
+;
+; To send a function`s parameter back to AMOS, you load it in D3,
+; and put its type in D2:
+;	moveq	#0,d2	for an integer
+;	moveq	#1,d2	for a float
+;	moveq	#2,d2	for a string
+;
+
+******* Stop sound routine
+L_MOff		equ	2
+L2	lea	Circuits,a0
+	move.w	#%0000011110000000,IntEna(a0) 	* No more interrupts
+	move.w	MuDMAsk-MB(a3),d0
+	beq.s	MOf3
+	move.w	d0,DmaCon(a0)
+	moveq	#3,d1
+MOf1	btst	d1,d0
+	beq.s	MOf2
+	move.w	#2,$a4(a0)
+	clr.w	$a8(a0)
+MOf2	lea	$10(a0),a0
+	dbra	d1,MOf1
+MOf3	rts
+
+***********************************************************
+*	NARRATOR!
+
+******* Open narrator
+L_OpNar		equ	3
+L3	movem.l	a3-a6,-(sp)
+	Dload	a3
+	move.l	$4.w,a6
+	move.l	TranBase-MB(a3),d0
+	bne	OpNarCheck
+
+; Opens communication port
+	clr.l	-(sp)
+	clr.l	-(sp)
+	moveq	#0,d0
+	Rbsr	L_Amiga.Lib
+	addq.l	#8,sp
+	move.l	d0,WritePort-MB(a3)
+; Opens IO structure
+	move.l	#L_WriteIo,-(sp)
+	move.l	d0,-(sp)
+	moveq	#2,d0
+	Rbsr	L_Amiga.Lib
+	addq.l	#8,sp
+	move.l	d0,WriteIo-Mb(a3)
+	move.l	d0,a1
+	moveq	#0,d0
+	moveq	#0,d1
+	lea	NarDevice-MB(a3),a0
+	jsr	OpenDev(a6)
+	tst.l	d0
+	bne	OpNarE
+
+; Open READ structure
+	clr.l	-(sp)
+	clr.l	-(sp)
+	moveq	#0,d0
+	Rbsr	L_Amiga.Lib
+	addq.l	#8,sp
+	move.l	d0,ReadPort-MB(a3)
+	move.l	WriteIo-MB(a3),a0
+	lea	ReadIo-MB(a3),a1
+	moveq	#L_WriteIo/2-1,d0
+.Loop	move.w	(a0)+,(a1)+
+	dbra	d0,.Loop
+	lea	ReadIo-MB(a3),a1
+	move.l	ReadPort-MB(a3),14(a1)
+
+; Open translator
+	Rbsr	L_NarInit
+	lea	TranName-MB(a3),a1
+	moveq	#0,d0
+	jsr	OpenLib(a6)
+	move.l	d0,TranBase-MB(a3)
+	beq	OpNarE
+* Restore Sami interrupts
+	move.l	DosBase(a5),a6
+	moveq	#50,d1
+	jsr	-198(a6)
+	clr.w	Sami_Flag-MB(a3)
+	RBsr	L_Sami_Install
+* Ok!
+	movem.l	(sp)+,a3-a6
+	rts
+
+;-----> Annule un speech pr�c�dent
+OpNarCheck
+	RBsr	L_NarStop
+	movem.l	(sp)+,a3-a6
+	rts
+;-----> Can't open narrator
+OpNarE	movem.l	(sp)+,a3-a6
+NoNar	moveq	#7,d0
+	Rbra	L_Custom
+
+******* Init narrator (if here)!
+L_NarInit	equ	4
+L4	move.l	WriteIO-MB(a3),d0
+	beq.s	.Skip
+	move.l	d0,a1
+	move.w	#150,48(a1)
+	move.w	#110,50(a1)
+	clr.w	52(a1)
+	clr.w	54(a1)
+	lea	Amaps-MB(a3),a0
+	move.l	a0,56(a1)
+	move.w	#4,60(a1)
+	move.w	#63,62(a1)
+	move.w	#22200,64(a1)
+.Skip	rts
+
+******* SAY a$[,multi]
+L_ISay2:	equ	5
+L5	Rbsr	L_OpNar
+	move.l	(a3)+,d7
+	RBra	L_ISay
+L_ISay1:	equ	6
+L6	Rbsr	L_OpNar
+	moveq	#0,d7	
+	Rbra	L_ISay
+L_ISay:		equ	7
+L7	moveq	#%0000,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+	DLoad	a0
+	clr.w	EnvOn-MB(a0)
+	clr.w	Noise-MB(a0)
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+* Phoneme?
+	cmp.b	#"~",(a0)
+	bne.s	ISayN
+	addq.l	#1,a0
+	move.l	Buffer(a5),a1
+	move.w	d0,d1
+	cmp.w	#1024,d1
+	bcc	ISayN
+	subq.w	#2,d1
+	bmi.s	ISayN
+ISayP	move.b	(a0)+,(a1)+
+	dbra	d1,ISayP
+	move.b	#"Q",(a1)+
+	move.b	#"#",(a1)+
+	move.b	#"U",(a1)+
+	clr.b	(a1)+
+	clr.b	(a1)+
+	addq.w	#4,d0
+	movem.l	a3/a6,-(sp)
+	DLoad	a3
+	bra.s	ISayNn
+* Call TRANSLATOR
+ISayN	move.l	Buffer(a5),a1
+	move.l	a1,a2
+	move.l	#1024,d1
+	move.l	d1,d2
+	lsr.w	#2,d2
+	subq.w	#2,d2
+ISayN1	clr.l	(a2)+
+	dbra	d2,ISayN1
+	movem.l	a3/a6,-(sp)
+	DLoad	a3
+	move.l	TranBase-MB(a3),a6
+	jsr	Translate(a6)
+	tst.w	d0
+	bne.s	SayX
+	move.l	#1024,d0
+ISayNn
+	Rbsr	L_Sami_remove
+	move.l	WriteIO-MB(a3),a1
+	move.w	#3,28(a1)
+	move.l	d0,36(a1)
+	move.l	Buffer(a5),40(a1)
+	move.l	ExecBase,a6
+	tst.w	d7
+	bne.s	ISayA
+; Mode non multitache
+	clr.b	66(a1)
+	jsr	DoIO(a6)
+	RBsr	L_Sami_install
+SayX	movem.l	(sp)+,a3/a6
+	moveq	#%1111,d0
+	Rbsr	L_VOnOf
+	rts
+; Mode multitache
+ISayA	move.b	#1,66(a1)		Generer des mouths!
+	jsr	SendIO(a6)
+	movem.l	(sp)+,a3/a6
+	rts
+******* SET TALK sex,mode,pitch,rate
+L_ITalk		equ	8
+L8	Rbsr	L_OpNar
+	move.l	#EntNul,d0
+	Dload	a1
+	move.l	WriteIo-MB(a1),a1
+	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd1
+	cmp.w	#40,d1
+	Rbcs	L_IFonc
+	cmp.w	#400,d1
+	Rbhi	L_IFonc
+	move.w	d1,48(a1)
+IRd1	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd2
+	cmp.w	#65,d1
+	Rbcs	L_IFonc
+	cmp.w	#320,d1
+	Rbhi	L_IFonc
+	move.w	d1,50(a1)
+IRd2	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd3
+	and.w	#$0001,d1
+	move.w	d1,52(a1)
+IRd3	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd4
+	and.w	#$0001,d1
+	move.w	d1,54(a1)
+IRd4	rts
+
+******* Narrator READ lips
+L_LipsX		equ	9
+L9	Dlea	ReadIo,a0
+	moveq	#0,d2
+	move.b	88(a0),d3
+	ext.w	d3
+	ext.l	d3
+	rts
+L_LipsY		equ	10
+L10	Dlea	ReadIo,a0
+	moveq	#0,d2
+	move.b	89(a0),d3
+	ext.w	d3
+	ext.l	d3
+	rts
+
+***********************************************************
+*	MUSIC INSTRUCTION
+
+*******	BELL
+L_Bell0		equ	11
+L11	moveq	#0,d3
+	moveq	#70,d2
+	moveq	#%1111,d1
+	moveq	#1,d5
+	Dlea	EnvBell,a0
+	move.l	a0,d6
+	Rbra	L_GoBel
+L_Bell1		equ	12
+L12	moveq	#0,d3
+	move.l	(a3)+,d2
+	moveq	#%1111,d1
+	moveq	#1,d5
+	Dlea	EnvBell,a0
+	move.l	a0,d6
+	Rbra	L_GoBel
+******* BOOM
+L_Boom		equ	13
+L13	moveq	#0,d3
+	moveq	#36,d2
+	moveq	#0,d5
+	Dlea	EnvBoom,a0
+	move.l	a0,d6
+	Rbra	L_Shout
+******* SHOOT
+L_Shoot		equ	14
+L14	moveq	#0,d3
+	moveq	#60,d2
+	moveq	#0,d5
+	Dlea	EnvShoot,a0
+	move.l	a0,d6
+	Rbra	L_Shout
+* Gives a stereo effect
+L_Shout:	equ	15
+L15	moveq	#%0000,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+	moveq	#%1000,d1
+Shot	movem.l	d0-d7,-(sp)
+	Rbsr	L_GoShot
+	movem.l	(sp)+,d0-d7
+	addq.w	#1,d2
+	lsr.w	#1,d1
+	bcc.s	Shot
+	rts
+
+*******	VOLUME n
+L_IVol1		equ	16
+L16	move.l	(a3)+,d0
+	moveq	#%1111,d1
+	Rbsr	L_Vol
+	Rbsr	L_MVol
+	rts
+******* VOLUME voice,n
+L_IVol2		equ	17
+L17	move.l	(a3)+,d0
+	move.l	(a3)+,d1
+	Rbra	L_Vol
+* Set voices volume level
+L_Vol		equ	18
+L18	cmp.l	#64,d0
+	Rbcc	L_IFonc
+	moveq	#0,d2
+	Dlea	EnvBase,a0
+	Dlea	Sami_int,a1
+Vol1	btst	d2,d1
+	beq.s	Vol2
+	move.w	d0,EnvDVol(a0)
+	tst.w	Sami_dvol(a1)
+	bmi.s	Vol2
+	move.w	d0,Sami_dvol(a1)
+Vol2	lea	EnvLong(a0),a0
+	lea	Sami_intl(a1),a1
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	Vol1
+	rts
+
+******* Stops Narrator if it was playing in multitask mode!
+L_NarStop	equ	19
+L19	movem.l	a3/a6,-(sp)
+	Dload	a3
+	move.l	$4.w,a6
+	move.l	WriteIo-MB(a3),d0
+	beq.s	.Skip2
+	move.l	d0,a1
+	tst.b	66(a1)
+	beq.s	.Skip2
+	clr.b	66(a1)
+	jsr	_LVOCheckIO(a6)
+	tst.l	d0
+	bne.s	.Skip1
+	move.l	WriteIo-MB(a3),a1
+	jsr	_LVOAbortIO(a6)
+.Skip1	move.l	WriteIo-MB(a3),a1
+	jsr	_LVOWaitIO(a6)
+	Rbsr	L_Sami_Install
+.Skip2	movem.l	(sp)+,a3/a6
+	rts
+
+*******	PLAY note,length
+L_IPlay2	equ	20
+L20	move.l	(a3)+,d3
+	Rbmi	L_IFonc
+	move.l	(a3)+,d2
+	moveq	#%1111,d1
+	moveq	#-1,d5
+	moveq	#0,d6
+	Rbra	L_GoBel
+******* Play voice,note,length
+L_IPlay3	equ	21
+L21	move.l	(a3)+,d3
+	Rbmi	L_IFonc
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	moveq	#-1,d5
+	moveq	#0,d6
+	Rbra	L_GoBel
+L_GoBel		equ	22
+L22	cmp.l	#96,d2			* <96?
+	Rbhi	L_IFonc
+	move.w	d1,d0			* Stop voices
+	eor.w	#$000F,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+	Rbra	L_GoShot
+L_GoShot	equ	23
+L23	move.l	a3,-(sp)
+	lea	Circuits,a2
+	Dload	a3
+	move.w	EnvOn-MB(a3),d7
+	clr.w	EnvOn-MB(a3)
+	move.w	#$8000,Sami_Bits-MB(a3)
+* Explores all 4 voices
+	moveq	#0,d0
+	move.w	d1,d4
+	moveq	#3,d1
+IPl1	btst	d1,d4
+	beq.s	IPl2
+	Rbsr	L_VPlay
+IPl2	dbra	d1,IPl1
+******* Start!
+IPlX	Rbsr	L_DmaWait
+	bset	#15,d0
+	move.w	d0,DmaCon(a2)
+	move.w	Sami_bits-MB(a3),IntEna(a2)
+	move.w	d7,EnvOn-MB(a3)
+	move.l	(sp)+,a3
+* Wait?
+	tst.l	d3
+	beq.s	IPlX1
+	Rjsr	L_WaitRout
+IPlX1	rts
+
+******* Play voice D1: WAVE orSAMPLE
+L_VPlay		equ	24
+L24	movem.l	d0-d6/a0-a2,-(sp)
+
+	moveq	#0,d3
+	bset	d1,d3
+	move.w	d3,DmaCon(a2)		* Stop voice
+	lsl.w	#7,d3
+	move.w	d3,IntEna(a2)		* Stop interrupts
+	bclr	d1,Noise-MB(a3)		* No more random
+	
+	tst.w	d2
+	beq	VSil
+	addq.w	#3,d2
+	move.w	d5,d0			* Forced wave? (bell)
+	bpl.s	VPl0
+	move.w	d1,d0			* Wave or Sample?
+	lsl.w	#1,d0
+	lea	Waves-MB(a3),a0
+	move.w	0(a0,d0.w),d0
+	bmi	VPl2
+
+* Play WAVE!
+VPl0	beq	VPl4
+	lea	$a0(a2),a2
+	move.w	d1,d3
+	lsl.w	#4,d3
+	add.w	d3,a2			* a2-> I/O
+	movem.l	d1-d3/a2,-(sp)
+	move.w	d0,d1
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	move.l	a2,a1
+	movem.l	(sp)+,d1-d3/a2
+	pea	WaveEnv(a1)
+	lea	WaveDeb(a1),a1
+	subq.w	#1,d2
+	move.w	d2,d3
+	ext.l	d3
+	divu	#12,d3
+	lsl.w	#2,d3
+	lea	TFreq-MB(a3),a0
+	add.w	d3,a0
+	add.w	(a0)+,a1
+	move.l	a1,(a2)			* AudAd
+	move.w	(a0)+,d3
+	move.w	d3,4(a2)		* AudLen
+	lsl.w	#1,d3
+	lea	TNotes-MB(a3),a1
+	lsl.w	#1,d2
+	mulu	0(a1,d2.w),d3
+	move.l	MusClock-MB(a3),d2
+	divu	d3,d2
+	cmp.w	#124,d2
+	bcc.s	VPl1
+	moveq	#124,d2
+VPl1:	move.w	d2,6(a2)		* AudPer
+* Start enveloppe 
+	move.l	(sp)+,d5
+	tst.l	d6			* Fixed enveloppe? (bell / shoot)
+	bne.s	VPl1a
+	move.l	d5,d6
+VPl1a	lea	EnvBase-MB(a3),a0	
+	move.w	d1,d0
+	mulu	#EnvLong,d0
+	add.w	d0,a0
+	move.l	d6,EnvAd(a0)
+	move.l	d6,EnvDeb(a0)
+	clr.w	EnvVol(a0)
+	Rbsr	L_MuIntE
+	movem.l	(sp)+,a0-a2/d0-d6
+	bset	d1,d0
+	bset	d1,d7
+	rts
+******* Silence!
+VSil	moveq	#0,d0
+	bset	d1,d0
+	move.w	d0,DmaCon(a2)
+	movem.l	(sp)+,a0-a2/d0-d6
+	bclr	d1,d7
+	rts	
+******* Play SAMPLE
+VPl2	move.l	a2,-(sp)
+	move.w	d2,-(sp)
+	neg.w	d0
+	Rbsr	L_GetSam
+	move.w	(sp)+,d0
+	move.l	(sp)+,a2
+	moveq	#0,d6
+VPl3	lea	TNotes-MB(a3),a0
+	lsl.w	#1,d0
+	mulu	-2(a0,d0.w),d3
+	divu	#440,d3
+	and.l	#$0000FFFF,d3
+	Rbra	L_SPl0
+******* Play NOISE
+VPl4	bset	d1,Noise-MB(a3)
+	move.w	d2,d0
+	move.l	WaveBase-MB(a3),a1
+	lea	WaveEnv(a1),a0
+	lea	WaveDeb(a1),a1
+	move.l	#LNoise,d2
+	move.l	#2000,d3
+	tst.l	d6
+	bne.s	VPl3
+	move.l	a0,d6
+	bset	#0,d6
+	bra.s	VPl3
+
+******* PLAY OFF (voice)
+L_IPlOf0	equ	25
+L25	moveq	#%1111,d0
+	Rbra	L_PlOf
+L_IPlOf1	equ	26
+L26	move.l	(a3)+,d0
+	Rbra	L_Plof
+L_PlOf		equ	27
+L27	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_EnvOff
+	move.l	(sp)+,a3
+	rts
+
+******* Attente DMA
+L_DmaWait	equ	28
+L28	movem.l	d2-d3,-(sp)
+
+; A modifier!!! Demander les caracteristiques du DMA!!!
+;	move.w	#$200,d0
+;.loop	nop
+;	dbra	d0,.loop
+
+.wait	moveq	#4,d3		
+.wai2	move.b	$dff006,d2	
+.wai3	cmp.b	$dff006,d2	
+	beq.s	.wai3
+	dbf	d3,.wai2	
+	moveq	#8,d2
+.wai4	dbf	d2,.wai4
+
+	movem.l	(sp)+,d2-d3
+	rts
+
+***********************************************************
+*	SAMPLE INSTRUCTIONS
+
+*******	SAM BANK n
+L_ISBank	equ	29
+L29	move.l	(a3)+,d0
+	Rbls	L_IFonc
+	cmp.l	#16,d0
+	Rbhi	L_IFonc
+	Dlea	SamBank,a0
+	move.w	d0,(a0)
+	rts
+******* SAMLOOP ON
+L_ISLOn1	equ	30
+L30	moveq	#0,d0
+	move.l	(a3)+,d1
+	Rbra	L_Sl0
+
+******* STOP DMA / INTERUPTS
+*	D0= value
+L_StopDma	equ	31
+L31	move.w	d0,-(sp)
+	eor.w	#%1111,d0
+	move.w	d0,Circuits+DmaCon
+	lsl.w	#7,d0
+	move.w	d0,Circuits+IntEna
+	move.w	(sp)+,d0
+	RBra	L_DmaWait
+
+L_ISLOn0	equ	32
+L32	moveq	#0,d0
+	moveq	#%1111,d1
+	Rbra	L_Sl0
+
+******* SAMLOOP OFF
+L_ISLOf1	equ	33
+L33	moveq	#-1,d0
+	move.l	(a3)+,d1
+	Rbra	L_Sl0
+L_ISLOf0	equ	34
+L34	moveq	#-1,d0
+	moveq	#%1111,d1
+	Rbra	L_SL0
+L_SL0		equ	35
+L35	moveq	#0,d2
+	Dlea	Sami_int,a0
+	Dlea	SamLoops+1,a1
+Sl1	btst	d2,d1
+	beq.s	Sl2
+	bclr	d2,(a1)
+	move.l	d0,Sami_rpos(a0)
+	bne.s	Sl2
+	bset	d2,(a1)
+Sl2	lea	Sami_intl(a0),a0
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	Sl1
+	rts
+
+******* NOISE TO voice
+L_INoTo		equ	36
+L36	move.l	(a3)+,d1
+	moveq	#0,d0
+	Rbra	L_ISmt
+******* SAMPLE n TO voice
+L_ISamTo	equ	37
+L37	move.l	4(a3),d0
+	Rbsr	L_GetSam
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	neg.w	d0
+	Rbra	L_Ismt
+* Poke D1-> waves
+L_ISmt		equ	38
+L38	Dlea	Waves,a0
+	moveq	#0,d2
+ISmt1	btst	d2,d1
+	beq.s	ISmt2
+	move.w	d0,(a0)
+ISmt2	addq.l	#2,a0
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	ISmt1
+	rts
+
+******* SAM PLAY number
+L_ISam1		equ	39
+L39	move.l	(a3)+,d0
+	Rbsr	L_GetSam
+	moveq	#%1111,d1
+	Rbra	L_GoSam
+******* SAM PLAY voix,number
+L_ISam2		equ	40
+L40	move.l	(a3)+,d0
+	Rbsr	L_GetSam
+	move.l	(a3)+,d1
+	Rbra	L_GoSam
+******* SAM PLAY voix,number,frequence
+L_ISam3		equ	41
+L41	move.l	4(a3),d0
+	Rbsr	L_GetSam
+	move.l	(a3)+,d3
+	cmp.l	#500,d3
+	Rble	L_IFonc
+	addq.l	#4,a3
+	move.l	(a3)+,d1	
+	Rbra	L_GoSam
+******* SAM RAW voice,ad,length,freq
+L_ISamR		equ	42
+L42	move.l	(a3)+,d3
+	cmp.l	#500,d3
+	Rble	L_IFonc
+	move.l	(a3)+,d2
+	cmp.l	#256,d2
+	Rble	L_IFonc
+	move.l	(a3)+,a1
+	move.l	(a3)+,d1
+	Rbra	L_GoSam
+L_GoSam:	equ	43
+L43	move.l	a3,-(sp)
+	Dload	a3
+
+	move.w	d1,d0
+	eor.w	#$000F,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf	
+
+	lea	Circuits,a2
+	move.w	EnvOn-MB(a3),d7
+	clr.w	EnvOn-MB(a3)
+	move.w	#$8000,Sami_bits-MB(a3)
+* Do all voices
+	moveq	#0,d0
+	move.w	d1,d4
+	moveq	#3,d1
+ISp2b	btst	d1,d4
+	beq.s	ISp2c
+	Rbsr	L_SPlay
+ISp2c	dbra	d1,ISp2b
+* Start!
+ISpX	
+	Rbsr	L_DmaWait
+	bset	#15,d0
+	move.w	d0,DmaCon(a2)
+	move.w	Sami_bits-MB(a3),IntEna(a2)
+	move.w	d7,EnvOn-MB(a3)
+	move.l	(sp)+,a3
+	rts
+	
+******* Find a sample -> A0
+L_GetSam	equ	44
+L44	move.l	d0,-(sp)
+	Dload	a0
+	move.w	SamBank-MB(a0),d0
+	ext.l	d0
+	Rbeq	L_IFonc
+	move.l	d1,-(sp)
+	Rjsr	L_Bnk.GetAdr
+	Rbeq	L_BNSam
+	move.l	(sp)+,d1
+	move.l	-8(a0),d0
+	cmp.l	#"Samp",d0
+	Rbne	L_BNSam
+* Get sample characteristics1
+	move.l	(sp)+,d0
+	Rbls	L_IFonc
+	cmp.w	(a0),d0
+	Rbhi	L_SNDef
+	lsl.w	#2,d0
+	move.l	2-4(a0,d0.w),d0
+	Rbeq	L_SNDef
+	add.l	d0,a0
+	moveq	#0,d3
+	move.w	8(a0),d3
+	move.l	10(a0),d2
+	lea	14(a0),a1
+	rts
+
+*********************************************************************
+*	SLOAD fichier,adresse,longueur
+L_Sload		equ	45
+L45	move.l	(a3)+,d3		Length
+	RBmi	L_IFonc	
+	move.l	(a3)+,d0		Adress (or bank)
+	RJsr	L_Bnk.OrAdr
+	move.l	d0,d2
+	move.l	(a3)+,d0		File
+	cmp.l	#10,d0
+	Rbcc	L_IFonc
+	subq.l	#1,d0
+	Rbmi	L_IFonc
+	mulu	#TFiche,d0
+	lea	Fichiers(a5),a2
+	add.w	d0,a2
+	move.l	Fha(a2),d1
+	RBeq	L_IFonc
+	btst	#2,FhT(a2)
+	Rbne	L_IFonc
+* Load the data
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-42(a6)			DosRead
+	move.l	(sp)+,a6
+	tst.l	d0
+	RBmi	L_IDError
+	rts
+
+******* SAMPLAY routine
+*	A1= Sample
+*	D3= Freq
+*	D2= Long
+*	D1= Voice
+L_SPlay:	equ	46
+L46	movem.l	d0-d6/a0-a2,-(sp)
+	bclr	d1,Noise-MB(a3)
+	moveq	#0,d6
+	Rbra	L_SPl0
+
+L_SPl0		equ	47
+L47
+	movem.l	a4,-(sp)
+
+	moveq	#0,d0
+	bset	d1,d0			* Stop voice
+	move.w	d0,DmaCon(a2)
+
+	lea	Sami_int-MB(a3),a4
+	move.w	#Sami_intl,d0
+	mulu	d1,d0
+	add.w	d0,a4			* a4-> Sami interrupts
+	move.w	Sami_bit(a4),IntEna(a2)	* No more interrupts
+
+	lea	EnvBase-MB(a3),a0	* Enveloppe
+	move.w	d1,d0
+	mulu	#EnvLong,d0
+	add.w	d0,a0
+
+	lea	$a0(a2),a2
+	move.w	d1,d4
+	lsl.w	#4,d4
+	add.w	d4,a2			* a2-> I/O
+
+	move.w	#1,$4(a2)
+	move.l	a1,Sami_adr(a4)			* Adresse
+	move.l	d2,Sami_long(a4)		* Longueur
+	clr.l	Sami_pos(a4)			* Position
+	clr.l	Sami_rpos(a4)			* Sam loop on?
+	btst	d1,SamLoops+1-MB(a3)
+	bne.s	.skipa
+	subq.l	#1,Sami_rpos(a4)
+.skipa	clr.l	Sami_radr(a4)			* Pas de double buffer
+	
+	move.l	d6,d5
+	move.l	MusClock-MB(a3),d6
+	bsr	Div32
+	cmp.l	#124,d0
+	bcc.s	.skip0
+	moveq	#124,d0
+.skip0	move.w	d0,6(a2)			* AudPer
+
+	bclr	d1,d7
+	move.w	EnvDVol(a0),Sami_dvol(a4)	* Volume, sauf si 
+	tst.l	d5				  une enveloppe est
+	beq.s	.skip1				  definie
+	clr.l	Sami_rpos(a4)
+	bclr	#0,d5
+	bne.s	.skipb
+	subq.l	#1,Sami_rpos(a4)
+.skipb	bset	d1,d7
+	move.w	#-1,Sami_dvol(a4)
+	move.l	d5,EnvAd(a0)
+	move.l	d5,EnvDeb(a0)
+	clr.w	EnvVol(a0)
+	Rbsr	L_MuIntE
+
+.skip1	move.w	Sami_bit(a4),d0
+	or.w	d0,Sami_bits-MB(a3)
+
+* Va demarrer le son...
+	lea	Circuits,a0
+	move.l	a4,a1
+	move.l	Sami_Handad-MB(a3),a2
+	jsr	(a2)
+* Fini!
+	move.l	(sp)+,a4
+	movem.l	(sp)+,d0-d6/a0-a2
+	bset	d1,d0
+	rts
+
+* Division 32 bits
+* D6/D3 -> D0
+Div32	movem.l	d1/d3/d4/d5/d6,-(sp)
+	moveq 	#31,d5
+        moveq 	#-1,d4
+        clr.l 	d1
+dv2:    lsl.l 	#1,d6
+        roxl.l 	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	dv1
+        sub.l 	d3,d1
+        lsr 	#1,d4
+dv1:    roxl.l 	#1,d0
+        dbra 	d5,dv2
+	movem.l	(sp)+,d1/d3/d4/d5/d6
+	rts
+
+***********************************************************
+*	WAVE INSTRUCTION SET
+
+*******	WAVE n TO n
+L_IWave:	equ	48
+L48	move.l	4(a3),d1
+	Rbmi	L_IFonc
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbra	L_ISmt
+*******	SET WAVE n,a$
+L_ISWave:	equ	49
+L49	move.l	(a3)+,a1
+	move.w	(a1)+,d1
+	cmp.w	#256,d1
+	Rbcs	L_STSho
+	move.l	(a3)+,d1
+	Rbls	L_IFonc
+	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_NeWave
+	Rbne	L_IOOMem
+	move.l	(sp)+,a3
+	rts
+*******	DEL WAVE 
+L_IDWave1	equ	50
+L50	move.l	(a3)+,d1
+	Rbmi	L_IFonc
+	Rbeq	L_W0Res
+	cmp.l	#1,d1
+	Rbeq	L_W0Res
+	move.l	a3,-(sp)
+	DLoad	a3
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	Rbsr	L_WaveDel
+	Rbsr	L_NoWave
+	move.l	(sp)+,a3
+	rts
+*******	SET ENVEL n,n TO n,v
+L_ISEnv		equ	51
+L51	move.l	(a3)+,d4
+	cmp.l	#64,d4
+	Rbcc	L_IFonc
+	move.l	(a3)+,d3
+	move.l	(a3)+,d5
+	Rbmi	L_IFonc
+	cmp.l	#7,d5
+	Rbcc	L_IFonc
+	move.l	(a3)+,d1
+	Rbmi	L_IFonc
+	tst.w	d5
+	bne.s	ISe1
+	tst.w	d3
+	Rbls	L_IFonc
+ISe1	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	lsl.w	#2,d5
+	lea	WaveEnv(a2,d5.w),a2
+	move.w	d3,(a2)+
+	move.w	d4,(a2)+
+	clr.w	(a2)
+	move.l	(sp)+,a3
+	rts
+******* RAZ WAVES
+L_RazWave	equ	52
+L52	movem.l	a2/d0-d2,-(sp)
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff		* Stop all voices
+	lea	WaveBase-MB(a3),a2	* Erase all instruments
+	move.l	a2,d2
+RzW1	move.l	d2,a2
+	move.l	(a2),d0
+	beq.s	RzW2
+	move.l	d0,a2
+	Rbsr	L_WaveDel
+	bra.s	RzW1
+RzW2	Rbsr	L_NoWave
+	movem.l	(sp)+,a2/d0-d2
+	rts
+* Plus de Waves speciales
+L_NoWave	equ	53
+L53	Dlea	Waves,a0		* Default waves
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	rts
+
+******* NEW WAVES
+*	A1= Array address
+*	D1= # to create
+L_NeWave:	equ	54
+L54	movem.l	d1-d7/a1-a2,-(sp)
+NeW0	Rbsr	L_WaveAd
+	beq.s	NeW1
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff
+	Rbsr	L_WaveDel
+	bra.s	NeW0
+NeW1	move.l	#WaveLong,d0
+	RJsr	L_RamChip
+	beq.s	NeWE
+	move.l	d0,(a2)
+	move.l	d0,a2
+	move.w	d1,WaveNb(a2)
+* Copy default ADSR
+	move.l	a1,-(sp)
+	lea	EnvDef-MB(a3),a0
+	lea	WaveEnv(a2),a1
+NeW3	move.l	(a0)+,(a1)+
+	bne.s	NeW3
+	move.l	(sp)+,a1
+* Full wave: 256 bytes
+	lea	WaveDeb(a2),a2
+	move.l	a2,a0
+	moveq	#256/4-1,d0
+NeW2	move.l	(a1)+,(a0)+
+	dbra	d0,NeW2
+* 1/2
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#127,d0
+	bsr	NewRout
+* 1/4
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#63,d0
+	bsr	NewRout
+* 1/8
+	move.l	a2,a1	
+	move.l	a0,a2
+	moveq	#31,d0
+	bsr	NewRout
+* 1/16
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#15,d0
+	bsr	NewRout
+* 1/32
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#7,d0
+	bsr	NewRout
+* 1/64
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#3,d0
+	bsr	NewRout
+******* No error
+	moveq	#0,d0
+NeWx	movem.l	(sp)+,d1-d7/a1-a2
+	rts
+******* Out of mem
+NeWE	moveq	#-1,d0
+	bra.s	NeWx
+******* Divide a sample by 2
+NewRout	move.b	(a1)+,d1
+	ext.w	d1
+	move.b	(a1)+,d2
+	ext.w	d2
+	add.w	d2,d1
+	asr.w	#1,d1
+	move.b	d1,(a0)+
+	dbra	d0,NewRout
+	rts
+
+******* Get a wave address
+L_WaveAd:	equ	55
+L55	moveq	#0,d2
+	Dlea	WaveBase,a2
+	move.l	(a2),d0
+	beq.s	WAd2
+WAd1	move.l	a2,d2
+	move.l	d0,a2
+	cmp.w	WaveNb(a2),d1
+	beq.s	WAd3
+	move.l	(a2),d0
+	bne.s	WAd1
+WAd2	moveq	#0,d0
+	rts
+WAd3	moveq	#-1,d0
+	rts
+
+******* Deletion of a WAVE (A2)-D2
+L_WaveDel	equ	56
+L56	movem.l	a0-a2/d0-d2,-(sp)
+	move.w	WaveNb(a2),d1
+	move.l	d2,a0
+	move.l	(a2),(a0)
+	move.l	#WaveLong,d0
+	move.l	a2,a1
+	Rjsr	L_RamFree
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+***********************************************************
+*	STOP SAMPLES INTERRUPTS
+L_Sami_stop	equ	57
+L57	move.w	#%0000011110000000,d0
+	move.w	d0,Circuits+IntEna
+	move.w	d0,Circuits+IntReq
+	rts
+
+***********************************************************
+*	ENVELOPPES 
+
+***********************************************************
+*	STOP ENVELOPPE D0
+L_EnvOff	equ	58
+L58	movem.l	d0-d3/a0,-(sp)
+	move.w	EnvOn-MB(a3),d1
+	clr.w	EnvOn-MB(a3)
+	moveq	#0,d3
+	lea	Circuits,a0
+	moveq	#0,d2
+EOf1	btst	d2,d0
+	beq.s	EOf2
+	bclr	d2,d1
+	beq.s	EOf2
+	bset	d2,d3
+	move.w	#2,$a4(a0)
+	clr.w	$a8(a0)
+EOf2	lea	$10(a0),a0
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	EOf1
+	move.w	d1,EnvOn-MB(a3)
+	move.w	d3,MuReStart-MB(a3)
+	movem.l	(sp)+,d0-d3/a0
+	rts
+	
+******* Next enveloppe
+L_MuIntE	equ	59
+L59	move.l	EnvAd(a0),a1
+MuIe0	move.w	(a1)+,d3
+	beq.s	MuIntS
+	bmi.s	MuIe1
+	move.w	d3,EnvNb(a0)
+	move.w	EnvDVol(a0),d4
+	mulu	(a1)+,d4
+	lsr.w	#6,d4
+	sub.w	EnvVol(a0),d4
+	ext.l	d4
+	lsl.w	#8,d4
+	divs	d3,d4
+	ext.l	d4
+	lsl.l	#8,d4
+	move.l	d4,EnvDelta(a0)
+	clr.w	EnvVol+2(a0)
+	move.l	a1,EnvAd(a0)
+	rts
+* Loop
+MuIe1	move.l	EnvDeb(a0),a1
+	bra.s	MuIe0
+* End of a voice
+MuIntS	bset	d1,d5
+	bclr	d1,d0
+	bclr	d1,Noise-MB(a3)
+* Restarts the music
+	bset	d1,MuReStart+1-MB(a3)
+	rts
+
+******************************************************************
+*	MUSIC
+
+******* Music initialisation
+L_MuInit:	equ	60
+L60	clr.l	MuBase-MB(a3)
+	clr.w	MuNumber-MB(a3)
+	move.l	#$DFF0A0,MuChip0-MB(a3)
+	move.l	#$DFF0B0,MuChip1-MB(a3)
+	move.l	#$DFF0C0,MuChip2-MB(a3)
+	move.l	#$DFF0D0,MuChip3-MB(a3)
+	move.w	#$000F,MuDMAsk-MB(a3)
+	clr.w	MuReStart-MB(a3)
+	Rbra	L_MOff
+
+******* MUSIC OFF-> Stops all musics
+L_IMuSOff	equ	61
+L61	movem.l	a0-a3/d0-d1,-(sp)
+	Dload	a3
+	clr.l	MuBase-MB(a3)
+	clr.w	MuNumber-MB(a3)
+	Rbsr	L_MOff
+	movem.l	(sp)+,a0-a3/d0-d1
+	rts
+
+******* MUSIC STOP-> Stops current music
+L_IMuStop	equ	62
+L62	movem.l	a0-a3/d0-d1,-(sp)
+	Dload	a3
+	move.l	MuBase-MB(a3),d0
+	beq.s	IStp
+	clr.w	MuBase-MB(a3)
+	move.l	d0,a0
+	clr.w	VoiCpt0(a0)
+	clr.w	VoiCpt1(a0)
+	clr.w	VoiCpt2(a0)
+	clr.w	VoiCpt3(a0)
+	move.l	d0,MuBase-MB(a3)
+IStp	movem.l	(sp)+,a0-a3/d0-d1
+	rts
+
+******* MUSIC VOLUME
+L_IMVol		equ	63
+L63	move.l	(a3)+,d0
+	cmp.l	#64,d0
+	Rbcs	L_MVol
+	Rbcc	L_IFonc
+* Set volume
+L_MVol		equ	64
+L64	and.w	#63,d0
+	Dload	a0
+	move.w	d0,MuVolume-MB(a0)
+	move.l	MuBase-MB(a0),d4
+	beq.s	MVol3
+	clr.l	MuBase-MB(a0)
+	lea	MuBuffer-MB(a0),a1
+	move.w	MuNumber-MB(a0),d1
+MVol0	move.l	a1,a2
+	moveq	#3,d2
+MVol1	move.w	VoiDVol(a2),d3
+	mulu	d0,d3
+	lsr.w	#6,d3
+	move.w	d3,VoiVol(a2)
+	lea	VoiLong(a2),a2
+	dbra	d2,MVol1
+MVol2	lea	MuLong(a1),a1
+	subq.w	#1,d1
+	bne.s	MVol0
+	move.l	d4,MuBase-MB(a0)
+MVol3	rts
+
+******* VOICE ON/OFF Voices
+L_IVoice	equ	65
+L65	move.l	(a3)+,d0
+	and.w	#$000F,d0
+	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_VOnOf
+	movem.l	(sp)+,a3
+	rts
+
+******* Start / Stop voices D0
+L_VOnOf		equ	66
+L66	movem.l	d0-d5/a0-a3,-(sp)
+	move.w	d0,d4
+	Dload	a3
+	move.l	MuBase-MB(a3),d1
+	beq.s	VooX
+	clr.l	MuBase-MB(a3)
+	move.l	d1,a1
+	move.l	d1,a2
+	move.w	MuDMAsk-MB(a3),d1
+	move.w	d0,MuDMAsk-MB(a3)
+	move.l	WaveBase-MB(a3),a0
+	lea	WaveDeb(a0),a0
+	move.l	a0,d3
+	lea	MuChip0-MB(a3),a0
+	moveq	#0,d2
+	moveq	#0,d4
+* Exploration loop
+Voo1	btst	d2,d0
+	bne.s	Voo2
+* Stop a voice!
+	btst	d2,d1			* Already stopped?
+	beq.s	VooN
+	bset	d2,d4
+	move.l	d3,(a0)
+	bclr	d2,MuStart+1(a2)
+	bclr	d2,MuStop+1(a2)
+	bra.s	VooN
+* Re start a voice
+Voo2	btst	d2,d1			* Already on?
+	bne.s	VooN
+	bset	d2,MuReStart+1-MB(a3)
+* Next
+VooN	addq.l	#4,a0
+	lea	VoiLong(a1),a1
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	Voo1
+* Stop them!
+	move.l	a2,MuBase-MB(a3)
+	move.w	d4,Circuits+DmaCon
+VooX	movem.l	(sp)+,d0-d5/a0-a3
+	rts
+
+******* MUSIC n
+L_IMusic	equ	67
+L67	move.l	(a3)+,d3
+	Rbls	L_IFonc
+* Points to the SONG
+	move.l	a3,-(sp)
+	Dload	a3
+	tst.l	MusBank-MB(a3)
+	Rbeq	L_MnRes
+	move.l	BankSong-MB(a3),a1
+	cmp.w	(a1),d3
+	Rbhi	L_MNDef
+	lsl.w	#2,d3
+	add.l	2-4(a1,d3.w),a1
+* Still room?
+	cmp.w	#3,MuNumber-MB(a3)
+	bcc	IMusX
+	clr.l	MuBase-MB(a3)
+* Buffer address
+	move.w	MuNumber-MB(a3),d0
+	move.w	d0,d1
+	addq.w	#1,MuNumber-MB(a3)
+	mulu	#MuLong,d0
+	lea	MuBuffer-MB(a3),a2
+	add.w	d0,a2
+* Init datas
+	moveq	#(VoiLong*4)/2-1,d0
+	move.l	a2,a0
+IMus1	clr.w	(a0)+
+	dbra	d0,IMus1
+	clr.w	MuStop(a2)
+	clr.w	MuStart(a2)
+* Init parameters
+	move.l	a2,d2
+	move.w	TempoBase-MB(a3),MuCpt(a2)
+	move.w	#17,MuTempo(a2)			*XXX
+	moveq	#0,d0
+IMus2	move.w	#1,VoiCpt(a2)
+	lea	FoEnd-MB(a3),a0
+	move.l	a0,VoiAdr(a2)
+	move.l	a1,a0
+	add.w	0(a0,d0.w),a0
+	move.l	a0,VoiPat(a2)
+	move.l	a0,VoiDPat(a2)
+	lea	NoEffect2(pc),a0
+	move.l	a0,VoiEffect(a2)
+	lea	VoiLong(a2),a2
+	addq.w	#2,d0
+	cmp.w	#8,d0
+	bne.s	IMus2
+* No more samples
+	move.w	#%0000011110000000,Circuits+IntEna
+* Starts music
+	move.l	d2,MuBase-MB(a3)
+IMusX	move.l	(sp)+,a3
+	rts
+NoEffect2
+	move.w	VoiNote(a4),$06(a6)
+	rts
+
+******* Tempo T
+L_ITempo	equ	68
+L68	move.l	(a3)+,d0
+	cmp.l	#100,d0
+	Rbhi	L_IFonc
+	Dload	a0
+	move.l	MuBase-MB(a0),d1
+	beq.s	ITemp
+	move.l	d1,a0
+	move.w	d0,MuTempo(a0)
+ITemp	rts
+
+***********************************************************
+*	=VU METRE(v)
+L_FVu		equ	69
+L69	move.l	(a3)+,d0
+	cmp.l	#4,d0
+	Rbcc	L_IFonc
+	Dload	a0
+	moveq	#0,d3
+	move.b	0(a0,d0.w),d3
+	clr.b	0(a0,d0.w)
+	moveq	#0,d2
+	rts
+
+***********************************************************
+*	=MU BASE
+L_FMB		equ	70
+L70	Dload	a0
+	move.l	a0,d3
+	moveq	#0,d2
+	rts
+
+***********************************************************
+*	LED INSTRUCTION
+L_LedOn		equ	71
+L71	bclr	#1,$BFE001
+	rts
+L_LedOf		equ	72
+L72	bset	#1,$BFE001
+	rts
+
+***********************************************************
+*	INSTALL THE SAMPLE HANDLER
+L_Sami_install	equ	73
+L73	tst.w	Sami_flag-MB(a3)
+	bne.s	.skip
+	movem.l	d0-d2/a0-a2/a6,-(sp)
+	move.l	$4.w,a6
+; Save state of interrupts
+	move.w	Circuits+IntEnaR,d0
+	and.w	#%0000011110000000,d0
+	move.w	d0,Sami_OldEna-MB(a3)
+	Rbsr	L_Sami_stop
+; Install 4 voices
+	lea	Sami_int-MB(a3),a1
+	moveq	#7,d0
+.loop	bsr.s	Sami_start
+	lea	Sami_intl(a1),a1
+	addq.w	#1,d0
+	cmp.w	#11,d0
+	bne.s	.loop
+	subq.w	#1,Sami_flag-MB(a3)
+	movem.l	(sp)+,d0-d2/a0-a2/a6
+.skip	rts
+Sami_start
+	move.l	a1,is_data(a1)
+	move.l	Sami_handad-MB(a3),is_code(a1)
+	move.b	#2,ln_type(a1)
+	move.b	#0,ln_pri(a1)
+	move.l	$4.w,a6	
+	movem.l	d0/a1,-(sp)
+	jsr	-162(a6)		SetIntVector
+	move.l	d0,d1
+	movem.l	(sp)+,d0/a1
+	move.l	d1,Sami_old(a1)
+	rts
+
+***********************************************************
+*	REMOVE THE SAMPLE HANDLER
+L_Sami_remove	equ	74
+L74	tst.w	Sami_flag-MB(a3)
+	beq.s	.skip
+	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Rbsr	L_Sami_Stop
+	move.l	$4.w,a6
+	moveq	#7,d2
+	lea	Sami_Int-MB(a3),a2
+.loop	move.l	Sami_old(a2),a1
+	move.l	d2,d0
+	jsr	-162(a6)		SetIntVector
+	lea	Sami_intl(a2),a2
+	addq.w	#1,d2	
+	cmp.w	#11,d2
+	bne.s	.loop
+	lea	Circuits,a0
+	move.w	#$000F,DmaCon(a0)
+	move.w	Sami_oldena-MB(a3),IntEna(a0)
+	clr.w	Sami_flag-MB(a3)
+	movem.l	(sp)+,a0-a2/a6/d0-d2
+.skip	rts
+
+***********************************************************
+*	Normal error messages
+; This routines performs jump to the normal AMOS error messages:
+; Load in D0 the number of the error, and do a RJmp to L_Error.
+L_IOOMem	equ	75
+L75	
+	moveq	#24,d0
+	Rjmp	L_Error
+L_IFonc		equ	76
+L76	moveq	#23,d0
+	Rjmp	L_Error
+
+***********************************************************
+* 	Customized error messages
+; This list of routines just load in D0 the number of the error message in
+; the extension error-list, and call the error handling routine.
+
+L_WNDef		equ	77
+L77	moveq	#0,d0	
+	Rbra	L_Custom
+L_SNDef		equ	78
+L78	moveq	#1,d0
+	Rbra	L_Custom
+L_BNSam		equ	79
+L79	moveq	#2,d0
+	Rbra	L_Custom
+L_STSho		equ	80
+L80	moveq	#3,d0
+	Rbra	L_Custom
+L_W0Res		equ	81
+L81	moveq	#4,d0
+	Rbra	L_Custom
+L_MnRes		equ	82
+L82	moveq	#5,d0
+	Rbra	L_Custom
+L_MNDef		equ	83
+L83	moveq	#6,d0
+	Rbra	L_Custom
+
+
+********************************************************************
+*	=SAM SWAPPED(V)
+L_Samswapped	equ	84
+L84	move.l	(a3)+,d0
+	moveq	#0,d2
+	moveq	#0,d3
+	cmp.l	#3,d0
+	Rbhi	L_IFonc
+	move.w	Circuits+IntEnaR,d1
+	lsr.w	#7,d1
+	btst	d0,d1
+	beq.s	.stop
+	Dlea	Sami_int,a0
+	mulu	#Sami_intl,d0
+	tst.l	Sami_radr(a0,d0.l)
+	bne.s	.skip
+	move.l	Sami_pos(a0,d0.l),d1
+	cmp.l	#Sami_lplay,d1
+	beq.s	.skip
+	moveq	#-1,d3
+.skip	rts
+.stop	moveq	#1,d3
+	rts
+*********************************************************************
+*	SAM SWAP
+L_SamSwap	equ	85
+L85	move.l	(a3)+,d4
+	Rbmi	L_IFonc
+	move.l	(a3)+,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,d3
+	move.l	(a3)+,d2
+	moveq	#0,d1
+	Dlea	Sami_int,a0
+.loop	btst	d1,d2
+	beq.s	.skip
+	move.l	d3,Sami_radr(a0)
+	move.l	d4,Sami_rlong(a0)
+.skip	lea	Sami_intl(a0),a0
+	addq.w	#1,d1
+	cmp.w	#4,d1
+	bne.s	.loop
+	rts
+*********************************************************************
+*	SAM STOP
+L_SamStop0	equ	86
+L86	move.l	#$f,-(a3)
+	RBra	L_SamStop1
+L_SamStop1	equ	87
+L87	move.l	(a3)+,d1
+	and.l	#$F,d1
+	move.w	d1,Circuits+DmaCon
+	lsl.w	#7,d1	
+	move.w	d1,Circuits+IntEna
+	rts
+
+*********************************************************************
+*	TRACKER instructions
+
+*******	TRACK LOAD "nom",banque
+L_Trackload	equ	88
+L88	
+	move.l	(a3)+,d3
+	cmp.l	#$10000,d3
+	Rbge	L_IFonc
+	Dload	a0
+	cmp.w	Track_Bank-MB(a0),d3
+	bne.s	.kkk
+	tst.b	mt_on-MB(a0)
+	beq.s	.kkk
+	RBsr	L_TrackStop
+.kkk	move.w	d3,Track_Bank-MB(a0)	* Numero de la banque
+	move.l	d3,-(sp)
+; Get name to load
+; ~~~~~~~~~~~~~~~~
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0	
+	cmp.w	#128,d0
+	Rbcc	L_IFonc
+	move.l	Name1(a5),a1
+.loop	move.b	(a0)+,(a1)+
+	dbra	d0,.loop
+	clr.b	(a1)
+	Rjsr	L_Dsk.PathIt
+; Open the file
+; ~~~~~~~~~~~~~
+	move.l	Name1(a5),d1
+	move.l	#1005,d2
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-30(a6)			DosOpen, fichier sons
+	move.l	(sp)+,a6
+	move.l	d0,d7
+	Rbeq	L_IDError
+	move.l	d7,d1			Trouve la taille
+	bsr	.taille
+	move.l	d0,d6
+; Reserve the bank
+; ~~~~~~~~~~~~~~~~
+	move.l	(sp)+,d0				Numero
+	moveq	#(1<<Bnk_BitData+1<<Bnk_BitChip),d1	Flag
+	move.l	d6,d2					Taille
+	lea	BkTrack(pc),a0				Nom
+	Rjsr	L_Bnk.Reserve
+	beq	.mem
+; Load the music
+; ~~~~~~~~~~~~~~
+	move.l	d7,d1
+	move.l	a0,d2
+	move.l	d6,d3
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-42(a6)			Read
+	move.l	(sp)+,a6
+	move.l	d0,d2
+	move.l	d7,d1
+	bsr	.clo
+	cmp.l	d2,d3
+	Rbne	L_IFonc
+	rts
+* Close the file
+.clo	movem.l	a6/a0/a1,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-36(a6)			Close
+	movem.l	(sp)+,a6/a0/a1
+	rts
+* Out of memory
+.mem	move.l	d7,d1
+	bsr.s	.clo
+	RBra	L_IOOMem
+* Find the size of the file
+.taille	move.l	a6,-(sp)
+	move.l	d1,-(sp)
+	moveq	#0,d2
+	moveq	#1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,d1
+	move.l	d0,d2
+	moveq	#-1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,a6
+	rts
+BkTrack	dc.b	"Tracker "
+	even
+
+******* TRACK CHECK, arrete la musique si pas banque...
+L_TrackCheck	equ	89
+L89	movem.l	a0-a1,-(sp)
+	DLoad	a1
+	tst.b	mt_on-MB(a1)
+	beq.s	.skip
+	move.l	mt_data-MB(a1),a0
+	cmp.l	#"ker ",-(a0)
+	bne.s	.stop
+	cmp.l	#"Trac",-(a0)
+	beq.s	.skip
+.stop	RBsr	L_TrackStop
+.skip	movem.l	(sp)+,a0-a1
+	rts
+
+******* TRACK STOP
+L_TrackStop	equ	90
+L90	move.l	a0,-(sp)
+	Dload	a0
+	tst.b	mt_on-MB(a0)
+	beq.s	.Skip
+	clr.b	mt_on-MB(a0)
+	moveq	#0,d0
+	lea	$dff000,a0
+	move.w	d0,$a8(a0)
+	move.w	d0,$b8(a0)
+	move.w	d0,$c8(a0)
+	move.w	d0,$d8(a0)
+	move.w	#$f,$dff096
+.Skip	move.l	(sp)+,a0
+	rts
+
+******* TRACK LOOP ON/OFF
+L_TrackLoopon	equ	91
+L91	rts
+L_TrackLoopof	equ	92
+L92	rts
+
+******* TRACK PLAY [Bank],[Pattern]
+
+L_TrackPlay0	equ	93
+L93
+	move.l	#Entnul,-(a3)
+	Rbra	94
+
+L_TrackPlay1	equ	94
+L94	
+	move.l	#Entnul,-(a3)
+	Rbra	95
+
+L_TrackPlay2	equ	95
+L95	
+	move.l	(a3)+,d7
+	cmp.l	#Entnul,(a3)
+	bne.s	.skip
+	Dload	a0
+	moveq	#0,d0
+	move.w	Track_Bank-MB(a0),d0
+	move.l	d0,(a3)
+.skip	
+	move.l	(a3)+,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,a2
+	cmp.l	#"Trac",-8(a2)	
+	bne	.nobank
+	cmp.l	#"ker ",-4(a2)
+	bne	.nobank
+	
+	Rbsr	L_SamStop0
+	Rbsr	L_TrackStop
+	
+; Init music...
+; ~~~~~~~~~~~~~
+	move.l	a3,-(sp)
+	Dload	a3
+	move.l	a2,a0
+	move.l	a0,mt_data-MB(a3)
+	lea	mt_mulu-MB(a3),a1
+	moveq	#$0c,d0
+	add.l	a0,d0
+	moveq	#$1f,d1
+	moveq	#$1e,d3
+.lop4	move.l	d0,(a1)+
+	add.l	d3,d0
+	dbf	d1,.lop4
+
+	lea	$3b8(a0),a1
+	moveq	#$7f,d0
+	moveq	#0,d1
+	moveq	#0,d2
+.lop2	move.b	(a1)+,d1
+	cmp.b	d2,d1
+	ble.s	.lop
+	move.l	d1,d2
+.lop	dbf	d0,.lop2
+	addq.w	#1,d2
+
+	asl.l	#8,d2
+	asl.l	#2,d2
+	lea	4(a1,d2.l),a2
+	lea	mt_samplestarts-MB(a3),a1
+	add.w	#$2a,a0
+	moveq	#$1e,d0
+.lop3	clr.l	(a2)
+	move.l	a2,(a1)+
+	moveq	#0,d1
+	move.b	d1,2(a0)
+	move.w	(a0),d1
+	asl.l	#1,d1
+	add.l	d1,a2
+	add.l	d3,a0
+	dbf	d0,.lop3
+
+	move.b	#6,mt_speed-mt_samplestarts-$7c(a1)
+	moveq	#0,d0
+	lea	$dff000,a0
+	move.w	d0,$a8(a0)
+	move.w	d0,$b8(a0)
+	move.w	d0,$c8(a0)
+	move.w	d0,$d8(a0)
+	move.b	d0,mt_songpos-mt_samplestarts-$7c(a1)
+	move.b	d0,mt_counter-mt_samplestarts-$7c(a1)
+	move.w	d0,mt_pattpos-mt_samplestarts-$7c(a1)
+
+; Demarage de la musique!
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	#1,mt_on-MB(a3)
+	move.l	(sp)+,a3	
+	rts
+* Pas un module tracker
+.nobank	moveq	#8,d0
+	Rbra	L_Custom
+
+******* Erreur disque
+L_IDError	equ	96
+L96	move.w	#DEBase+15,d0
+	Rjmp	L_Error
+
+******* Routine, demande la bouche du narrator
+L_Lips		equ	97
+L97	Dload	a2
+	tst.l	TranBase-MB(a2)
+	beq.s	.Err
+	move.l	WriteIo-MB(a2),d0
+	beq.s	.Err
+	move.l	d0,a0
+	tst.b	66(a0)
+	beq.s	.Err
+	lea	ReadIo-MB(a2),a1
+	move.w	#2,28(a1)			CMD_READ
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	DoIO(a6)
+	move.l	(sp)+,a6
+	lea	ReadIo-MB(a2),a1
+	cmp.b	#-8,$1f(a1)			ND_NOWRITE
+	beq.s	.Err
+	rts
+.Err	lea	ReadIo-MB(a2),a0
+	move.w	#-1,88(a0)
+	rts
+
+*********************************************************************
+*	AMIGA.LIB linked code. 
+*	In order to make it relocatable, I have been
+*	obliged to disassemble the code and include it in this 
+*	routine.
+L_Amiga.Lib	equ	98
+L98	lsl.w	#2,d0
+	lea	JJJmp(pc),a0
+	jmp	0(a0,d0.w)
+JJJmp	bra	_CreatePort
+	bra	_DeletePort
+	bra	_CreateExtIO
+	bra	_DeleteExtIO
+
+_CreatePort
+	MOVEM.L	D2-7/A2,-(A7)
+	MOVE.L	$20(A7),D4
+	MOVE.B	$27(A7),D3
+	MOVE.L	#$FFFFFFFF,-(A7)
+	BSR	L7C7DB14
+	MOVE.L	D0,D5
+	MOVE.L	D5,D6
+	MOVEQ	#-1,D2
+	CMP.L	D5,D2
+	ADDQ.L	#4,A7
+	BNE.S	L7C7D97A
+	MOVEQ	#0,D0
+	BRA	L7C7D9E6
+L7C7D97A	MOVE.L	#$10001,-(A7)
+	PEA	$22.W
+	BSR	L7C7DAD0
+	MOVEA.L	D0,A2
+	EXG	D7,A2
+	TST.L	D7
+	EXG	D7,A2
+	ADDQ.L	#8,A7
+	BNE.S	L7C7D9A4
+	MOVE.L	D6,-(A7)
+	BSR	L7C7DB28
+	MOVEQ	#0,D0
+	ADDQ.L	#4,A7
+	BRA.S	L7C7D9E6
+L7C7D9A4	MOVE.L	D4,$A(A2)
+	MOVE.B	D3,9(A2)
+	MOVE.B	#4,8(A2)
+	CLR.B	$E(A2)
+	MOVE.B	D6,$F(A2)
+	CLR.L	-(A7)
+	BSR	L7C7DB00
+	MOVE.L	D0,$10(A2)
+	TST.L	D4
+	ADDQ.L	#4,A7
+	BEQ.S	L7C7D9D8
+	MOVE.L	A2,-(A7)
+	BSR	L7C7DB3C
+	ADDQ.L	#4,A7
+	BRA.S	L7C7D9E4
+L7C7D9D8	PEA	$14(A2)
+	BSR	_NewList
+	ADDQ.L	#4,A7
+L7C7D9E4	MOVE.L	A2,D0
+L7C7D9E6	MOVEM.L	(A7)+,D2-7/A2
+	RTS
+
+_DeletePort
+	MOVEM.L	D2/A2,-(A7)
+	MOVEA.L	$C(A7),A2
+	TST.L	$A(A2)
+	BEQ.S	L7C7DA04
+	MOVE.L	A2,-(A7)
+	BSR	L7C7DB50
+	ADDQ.L	#4,A7
+L7C7DA04	MOVE.B	#$FF,8(A2)
+	MOVEQ	#-1,D2
+	MOVE.L	D2,$14(A2)
+	MOVEQ	#0,D2
+	MOVE.B	$F(A2),D2
+	MOVE.L	D2,-(A7)
+	BSR	L7C7DB28
+	PEA	$22.W
+	MOVE.L	A2,-(A7)
+	BSR	L7C7DAE8
+	LEA	$C(A7),A7
+	MOVEM.L	(A7)+,D2/A2
+	RTS
+_CreateExtIO
+	MOVEM.L	D2-4,-(A7)
+	MOVE.L	$10(A7),D2
+	MOVE.L	$14(A7),D3
+	TST.L	D2
+	BNE.S	L7C7DA54
+	MOVEQ	#0,D0
+	BRA.S	L7C7DA82
+L7C7DA54	MOVE.L	#$10001,-(A7)
+	MOVE.L	D3,-(A7)
+	BSR	L7C7DAD0
+	MOVEA.L	D0,A0
+	EXG	D4,A0
+	TST.L	D4
+	EXG	D4,A0
+	ADDQ.L	#8,A7
+	BNE.S	L7C7DA72
+	MOVEQ	#0,D0
+	BRA.S	L7C7DA82
+L7C7DA72	MOVE.B	#5,8(A0)
+	MOVE.W	D3,$12(A0)
+	MOVE.L	D2,$E(A0)
+	MOVE.L	A0,D0
+L7C7DA82	MOVEM.L	(A7)+,D2-4
+	RTS
+
+_DeleteExtIO
+	MOVEM.L	D2-3,-(A7)
+	MOVEA.L	$C(A7),A0
+	EXG	D3,A0
+	TST.L	D3
+	EXG	D3,A0
+	BEQ	L7C7DABE
+	MOVE.B	#$FF,8(A0)
+	MOVEQ	#-1,D2
+	MOVE.L	D2,$14(A0)
+	MOVEQ	#-1,D2
+	MOVE.L	D2,$18(A0)
+	MOVEQ	#0,D2
+	MOVE.W	$12(A0),D2
+	MOVE.L	D2,-(A7)
+	MOVE.L	A0,-(A7)
+	BSR	L7C7DAE8
+	ADDQ.L	#8,A7
+L7C7DABE	MOVEM.L	(A7)+,D2-3
+	RTS
+L7C7DAD0
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEM.L	8(A7),D0-1
+	JSR	-$C6(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DAE8
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	MOVE.L	$C(A7),D0
+	JSR	-$D2(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB00
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	JSR	-$126(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB14
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVE.L	8(A7),D0
+	JSR	-$14A(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB28
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVE.L	8(A7),D0
+	JSR	-$150(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB3C
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	JSR	-$162(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+L7C7DB50
+	MOVE.L	A6,-(A7)
+	MOVEA.L	$4.w,A6
+	MOVEA.L	8(A7),A1
+	JSR	-$168(A6)
+	MOVEA.L	(A7)+,A6
+	RTS
+_NewList
+	move.l	4(a7),a0
+	move.l	a0,(a0)
+	addq.l	#4,(a0)
+	clr.l	4(a0)
+	move.l	a0,8(a0)
+	rts
+
+******* TALK MISC volume,freq
+L_TalkMisc		equ	99
+L99	Rbsr	L_OpNar
+	move.l	#EntNul,d0
+	Dload	a1
+	move.l	WriteIo-MB(a1),a1
+	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	.IRd0
+	cmp.w	#5000,d1
+	Rbcs	L_IFonc
+	cmp.w	#25000,d1
+	Rbhi	L_IFonc
+	move.w	d1,64(a1)
+.IRd0
+	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	.IRd1
+	tst.l	d1
+	RBmi	L_IFonc
+	cmp.w	#64,d1
+	Rbhi	L_IFonc
+	move.w	d1,62(a1)
+.IRd1
+	rts
+
+*********************************************************************
+*	SSAVE fichier,adresse To fin
+L_SSave		equ	100
+L100	move.l	(a3)+,d3		End adress
+	move.l	(a3)+,d2		Start Adress
+	sub.l	d2,d3
+	RBle	L_IFonc
+	move.l	(a3)+,d0		File
+	cmp.l	#10,d0
+	Rbcc	L_IFonc
+	subq.l	#1,d0
+	Rbmi	L_IFonc
+	mulu	#TFiche,d0
+	lea	Fichiers(a5),a2
+	add.w	d0,a2
+	move.l	Fha(a2),d1
+	Rbeq	L_IFonc
+	btst	#2,FhT(a2)
+	Rbne	L_IFonc
+* Save the data
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	RBmi	L_IDError
+	rts
+
+
+; ___________________________________________________________________
+;
+;	MED instructions
+; ___________________________________________________________________
+
+;	MED LOAD "nom",banque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedLoad	equ	101
+L101	Rbsr	L_MedOpen
+	move.l	(a3)+,d3
+	cmp.l	#$10000,d3
+	Rbge	L_IFonc
+	Dload	a2
+	cmp.w	Med_Bank-MB(a2),d3
+	bne.s	.k
+	Rbsr	L_MedStop
+.k	move.w	d3,Med_Bank-MB(a2)	* Numero de la banque
+; Get name to load
+; ~~~~~~~~~~~~~~~~
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0	
+	cmp.w	#128,d0
+	Rbcc	L_IFonc
+	move.l	Name1(a5),a1
+.loop	move.b	(a0)+,(a1)+
+	dbra	d0,.loop
+	clr.b	(a1)
+	Rjsr	L_Dsk.PathIt
+; Trouve la taille
+; ~~~~~~~~~~~~~~~~
+	move.l	Name1(a5),d1
+	move.l	#1005,d2
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-30(a6)			DosOpen,
+	move.l	(sp)+,a6
+	move.l	d0,d7
+	Rbeq	L_IDError
+	move.l	d7,d1			Trouve la taille
+	bsr	.taille
+	move.l	d0,d6
+; Reserve la banque
+; ~~~~~~~~~~~~~~~~~
+	move.w	Med_Bank-MB(a2),d0			Numero de la banque
+	ext.l	d0
+	moveq	#(1<<Bnk_BitChip),d1			Flag CHIP
+	move.l	d6,d2
+	addq.l	#8,d2					Taille
+	lea	.BkMed(pc),a0				Nom
+	Rjsr	L_Bnk.Reserve
+	beq	.mem
+	move.l	a0,a2
+; Charge la musique
+; ~~~~~~~~~~~~~~~~~
+	move.l	d7,d1
+	move.l	a2,d2
+	move.l	d6,d3
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-42(a6)			Read
+	move.l	(sp)+,a6
+	move.l	d0,d2
+	move.l	d7,d1
+	bsr	.clo
+	cmp.l	d2,d3
+	Rbne	L_IFonc
+	cmp.l	#"MMD0",(a2)
+	beq.s	.ok
+	cmp.l	#"MMD1",(a2)
+	bne.s	.med
+; Relocation du module
+; ~~~~~~~~~~~~~~~~~~~~
+.ok	move.l	a6,-(sp)
+	Dload	a0
+	move.l	Med_Base-MB(a0),a6
+	move.l	a2,a0
+	jsr	_MEDRelocModule(a6)
+	move.l	(sp)+,a6
+	rts
+* Ferme le fichier
+.clo	movem.l	a6/a0/a1,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-36(a6)			Close
+	movem.l	(sp)+,a6/a0/a1
+	rts
+* Out of memory
+.mem	move.l	d7,d1
+	beq.s	.xx
+	bsr.s	.clo
+.xx	Rbra	L_IOOMem
+* Not a MED file
+.med	Dlea	Med_Bank,a0
+	move.w	(a0),d0
+	ext.l	d0
+	Rjsr	L_Bnk.Eff
+	move.w	#189,d0
+	Rjmp	L_Error
+* Routine, trouve la taille d'un fichier
+.taille	move.l	a6,-(sp)
+	move.l	d1,-(sp)
+	moveq	#0,d2
+	moveq	#1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,d1
+	move.l	d0,d2
+	moveq	#-1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,a6
+	rts
+.BkMed	dc.b	"Med     "
+	even
+
+;	MED CHECK, arrete la musique si pas banque...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedCheck	equ	102
+L102	movem.l	d0/a0-a1,-(sp)
+	DLoad	a1
+	tst.b	Med_On-MB(a1)
+	beq.s	.skip
+	move.l	Med_Adr-MB(a1),d0
+	beq.s	.skip
+	move.l	d0,a0
+	cmp.l	#"Med ",-(a0)
+	bne.s	.stop
+	cmp.l	#"    ",-(a0)
+	beq.s	.skip
+.stop	Rbsr	L_MedStop
+	clr.l	Med_Adr-MB(a1)
+.skip	movem.l	(sp)+,d0/a0-a1
+	rts
+
+;	MED STOP
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedStop	equ	103
+L103	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Dload	a0
+	tst.b	Med_On-MB(a0)
+	beq.s	.NoMed
+	clr.b	Med_On-MB(a0)
+	move.l	Med_Base-MB(a0),a6
+	jsr	_MEDStopPlayer(a6)
+.NoMed	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+
+;	MED PLAY [Bank],[Song]
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedPlay0	equ	104
+L104	move.l	#EntNul,-(a3)
+	Rbra	L_MedPlay1
+L_MedPlay1	equ	105
+L105	move.l	#EntNul,-(a3)
+	Rbra	L_MedPlay2
+L_MedPlay2	equ	106
+L106	Dload	a2			Arret d'une eventuelle musique
+	Rbsr	L_MedOpen		Ouvre la librairie, s'il faut
+	Rbsr	L_MedStop
+	clr.l	Med_Adr-MB(a2)
+; Verification de la banque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	(a3)+,d7
+	cmp.l	#Entnul,(a3)
+	bne.s	.skip
+	moveq	#0,d0
+	move.w	Med_Bank-MB(a2),d0
+	move.l	d0,(a3)
+.skip	move.l	(a3)+,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,a2
+	cmp.l	#"Med ",-8(a2)	
+	bne	.nobank
+	cmp.l	#"    ",-4(a2)
+	bne	.nobank
+	
+; Arret de tous les sons...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_SamStop0
+	Rbsr	L_TrackStop
+	Rbsr	L_MedStop
+; Pointe la chanson
+; ~~~~~~~~~~~~~~~~~
+	movem.l	a3/a6,-(sp)
+	Dload	a3
+	moveq	#0,d0
+	cmp.l	#Entnul,d7
+	beq.s	.skp
+	move.l	d7,d0
+.skp	move.l	Med_Base-MB(a3),a6
+	jsr	_MEDSetModnum(a6)
+; Demarre la chanson
+; ~~~~~~~~~~~~~~~~~~
+	move.l	a2,a0
+	jsr	_MEDPlayModule(a6)
+	move.l	a2,Med_Adr-MB(a3)
+	move.b	#1,Med_On-MB(a3)
+; Termin�
+; ~~~~~~~
+	movem.l	(sp)+,a3/a6
+	rts
+; Pas une banque MED
+; ~~~~~~~~~~~~~~~~~~
+.nobank	moveq	#8,d0
+	Rbra	L_Custom
+
+; 	Ouvre la librairie MED
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedOpen	equ	107
+L107	movem.l	a0-a2/d0-d2,-(sp)
+	Dload	a2
+	tst.l	Med_Base-MB(a2)
+	bne.s	.Open
+	lea	Med_Name-MB(a2),a1
+	moveq	#2,d0			2 et pas 3!!!!!!!!!!!!!!!!!!!!
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Med_Base-MB(a2)
+	beq.s	.Err1
+	moveq	#0,d0
+	move.b	Med_Midi-MB(a2),d0
+	move.l	a6,-(sp)
+	move.l	Med_Base-MB(a2),a6
+	jsr	_MEDGetPlayer(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	bne	.Err2
+.Open	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+.Err1	move.w	#187,d0			Cannot load med.lib
+	Rjmp	L_Error
+.Err2	Rbsr	L_MedClose		Cannot initialise med.lib
+	move.w	#188,d0
+	Rjmp	L_Error	
+
+;	MED MIDI ON / OFF
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedMidiOn	equ	108	
+L108	Dlea	Med_Midi,a0
+	move.b	#1,(a0)
+	rts
+L109
+
+;	MED CLOSE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedClose	equ	110
+L110	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Rbsr	L_MedStop
+	Dload	a2
+	clr.b	Med_Midi-MB(a2)
+	clr.l	Med_Adr-MB(a2)
+	move.l	Med_Base-MB(a2),d0
+	beq.s	.Skip
+	move.l	d0,a6
+	jsr	_MEDFreePlayer(a6)
+	move.l	Med_Base-MB(a2),a1
+	clr.l	Med_Base-MB(a2)
+	move.l	$4.w,a6
+	jsr	_LVOCloseLibrary(a6)
+.Skip	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+
+;	MED CONT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MedCont	equ	111
+L111	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Dload	a0
+	move.l	Med_Adr-MB(a0),d0
+	beq.s	.Skip
+	tst.b	Med_On-MB(a0)
+	bne.s	.Skip
+	move.b	#1,Med_On-MB(a0)
+	move.l	Med_Base-MB(a0),a6
+	move.l	d0,a0
+	jsr	_MEDContModule(a6)
+.Skip	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+	
+
+*********************************************************************
+*	ERROR MESSAGES...
+;
+; You know that the compiler have a -E1 option (with errors) and a 
+; a -E0 (without errors). To achieve that, the compiler copies one of
+; the two next routines, depending on the -E flag. If errors are to be
+; copied along with the program, then the next next routine is used. If not,
+; then the next one is copied.
+; The compiler assumes that the two last routines in the library handles
+; the errors: the previous last is WITH errors, the last is WITHOUT. So,
+; remember:
+;
+; THESE ROUTINES MUST BE THE LAST ONES IN THE LIBRARY
+;
+; The AMOS interpretor always needs errors. So make all your custom errors
+; calls point to the L_Custom routine, and everything will work fine...
+;
+******* "With messages" routine.
+; The following routine is the one your program must call to output
+; a extension error message. It will be used under interpretor and under
+; compiled program with -E1
+
+L_Custom	equ	112
+L112	lea	ErrMess(pc),a0
+	moveq	#0,d1			* Can be trapped
+	moveq	#ExtNb,d2		* Number of extension
+	moveq	#0,d3			* IMPORTANT!!!
+	RJmp	L_ErrorExt		* Jump to routine...
+* Messages...
+ErrMess	dc.b	"Wave not defined",0			*0
+	dc.b 	"Sample not defined",0			*1
+	dc.b 	"Sample bank not found",0		*2
+	dc.b	"256 characters for a wave",0		*3
+	dc.b	"Wave 0 and 1 are reserved",0		*4
+	dc.b	"Music bank not found",0		*5
+	dc.b 	"Music not defined",0			*6
+	dc.b	"Can't open narrator",0			*7
+	dc.b	"Not a tracker module",0		*8
+* IMPORTANT! Always EVEN!
+	even
+
+******* "No errors" routine
+; If you compile with -E0, the compiler will replace the previous
+; routine by this one. This one just sets D3 to -1, and does not
+; load messages in A0. Anyway, values in D1 and D2 must be valid.
+;	
+; THIS ROUTINE MUST BE THE LAST ONE IN THE LIBRARY!
+;
+
+L113	moveq	#0,d1
+	moveq	#ExtNb,d2
+	moveq	#-1,d3
+	RJmp	L_ErrorExt
+
+; Do not forget the last label to delimit the last library routine!
+L114
+
+; ---------------------------------------------------------------------
+; Now the title of the extension, just the string.
+;
+; TITLE MESSAGE
+C_Title	dc.b	"AMOSPro Music extension V "
+	Version
+	dc.b	0,"$VER: "
+	Version
+	dc.b	0
+	Even
+; 
+; Note : magic title!
+; ~~~~~~~~~~~~~~~~~~~
+; If your extension begins with "MAGIC***", AMOSPro will call the 
+; address located after the string (even of course!). You can do whatever
+; you want to the editor screen (the current at the moment), but
+; restore it.
+; You also handle the user key press, and the PREVIOUS/NEXT/CANCEL
+; selection, buy returning a number in D0:
+;	D0=-1	Cancel
+;	D0=0	Previous extension
+;	D0=1	Next extension
+; Example of magic title:
+;	C_Title		dc.b	"MAGIC***"
+;			bra	Magic_Title
+
+
+; END OF THE EXTENSION
+C_End	dc.w	0
+	even
+
+
diff --git a/AMOS/Tutorial/Extensions/__uae____amos_includes_s b/AMOS/Tutorial/Extensions/__uae____amos_includes_s
new file mode 100644
index 0000000..33ea189
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____amos_includes_s
@@ -0,0 +1,24 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   
+;   ****  *** *** ** ** **     
+;  **  ** ** * ** ** **  ***   
+;  ****** **   ** ** **    **  
+;  **  ** **   ** ** ** *  **  
+;  **  ** **   **  ***   ***   
+;---------------------------------------------------------------------
+;  Includes all includes - Francois Lionet / Europress 1992
+;---------------------------------------------------------------------
+
+; These ones are for me!
+Finale:		equ 1
+VDemo:		equ 0
+ROnly:		equ 0
+;
+		Include "|LibOffsets.s"			Library offsets
+		Include	"|Equ.s"			Main includes
+		RsSet	DataLong
+;
+		Include	"|CEqu.s"			1.34 Compiler 
+		Include	"|WEqu.s"			amos.library 
+		Include "|LEqu.s"			1.34 Compiler 
+;
diff --git a/AMOS/Tutorial/Extensions/__uae____compact_s b/AMOS/Tutorial/Extensions/__uae____compact_s
new file mode 100644
index 0000000..7b195ac
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____compact_s
@@ -0,0 +1,717 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; AMOSPro Picture compactor extension source code,
+; By Fran�ois Lionet
+; AMOS, AMOSPro and AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOS1.3 and over
+;--------------------------------------------------------------------- 
+; This file is public domain
+;---------------------------------------------------------------------
+; Please refer to the _Music.s file for more informations
+;---------------------------------------------------------------------
+*
+Version		MACRO
+		dc.b	"1.0"
+		ENDM
+*
+*
+ExtNb		equ	2-1
+*
+		Include "|AMOS_Includes.s"
+*
+Start		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	0
+
+***********************************************************
+* 		OFFSETS TO FUNCTIONS
+C_Off   	dc.w (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
+        	dc.w (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
+        	dc.w (L9-L8)/2,(L10-L9)/2,(L11-L10)/2,(L12-L11)/2
+       		dc.w (L13-L12)/2,(L14-L13)/2,(L15-L14)/2,(L16-L15)/2
+        	dc.w (L17-L16)/2,(L18-L17)/2,(L19-L18)/2,(L20-L19)/2
+		dc.w (L21-L20)/2,(L22-L21)/2,(L23-L22)/2
+
+***********************************************************
+* 		COMPACTOR TOKENS
+C_Tk		dc.w 	1,0
+		dc.b 	$80,-1
+		dc.w 	L_Pack2,-1
+		dc.b 	"!pac","k"+$80,"I0t0",-2
+		dc.w	L_Pack6,-1
+		dc.b	$80,"I0t0,0,0,0,0",-1
+		dc.w 	L_SPack2,-1
+		dc.b 	"!spac","k"+$80,"I0t0",-2
+		dc.w	L_SPack6,-1
+		dc.b	$80,"I0t0,0,0,0,0",-1
+		dc.w	L_UPack1,-1
+		dc.b	"!unpac","k"+$80,"I0",-2
+		dc.w 	L_UPack2,-1
+		dc.b	$80,"I0t0",-2
+		dc.w 	L_UPack3,-1
+		dc.b	$80,"I0,0,0",-1
+		dc.w 	0
+
+******************************************************************
+*		Start of library
+C_Lib
+
+******************************************************************
+*		COLD START
+L0	moveq	#ExtNb,d0
+	rts
+
+******************************************************************
+*
+L1
+
+******************************************************************
+*	
+L2
+
+******************************************************************
+*		PACK Screen,Bank#
+L_Pack2		equ	3
+L3	clr.l	-(a3)
+	clr.l	-(a3)
+	move.l	#10000,-(a3)
+	move.l	(a3),-(a3)
+	RBra	L_Pack6
+
+******************************************************************
+*		PACK Screen,Bank#
+L_Pack6		equ	4
+L4	Rbsr	L_PacPar
+	Rbsr	L_GetSize
+	Rbsr	L_ResBank
+	Rbsr	L_Pack
+	rts
+
+*******************************************************************
+*		SPACK Screen,Bank#
+L_SPack2	equ	5
+L5	clr.l	-(a3)
+	clr.l	-(a3)
+	move.l	#10000,-(a3)
+	move.l	(a3),-(a3)
+	Rbra	L_SPack6
+
+*******************************************************************
+*		SPACK Screen,Bank#,X1,Y1 TO X2,Y2
+L_SPack6	equ	6
+L6	Rbsr	L_PacPar
+	Rbsr	L_GetSize
+	add.l	#PsLong,d0
+	Rbsr	L_ResBank
+* Screen definition header
+	move.l	#SCCode,(a1)
+	move.w	EcTx(a0),PsTx(a1)
+	move.w	EcTy(a0),PsTy(a1)
+	move.w	EcNbCol(a0),PsNbCol(a1)
+	move.w	EcNPlan(a0),PsNPlan(a1)
+	move.w	EcCon0(a0),PsCon0(a1)
+	move.w	EcAWX(a0),PsAWX(a1)
+	move.w	EcAWY(a0),PsAWY(a1)
+	move.w	EcAWTX(a0),PsAWTX(a1)
+	move.w	EcAWTY(a0),PsAWTY(a1)
+	move.w	EcAVX(a0),PsAVX(a1)
+	move.w	EcAVY(a0),PsAVY(a1)
+	movem.l	a0/a1,-(sp)
+	moveq	#31,d0
+	lea	EcPal(a0),a0
+	lea	PsPal(a1),a1
+SPac1	move.w	(a0)+,(a1)+
+	dbra	d0,SPac1
+	movem.l	(sp)+,a0/a1
+	lea	PsLong(a1),a1
+* Finish packing!
+	Rbsr	L_Pack
+	rts
+
+*************************************************************************
+*		UNPACK Bank# 		-> To current screen
+L_UPack1	equ	7
+L7	move.l	ScOnAd(a5),d0
+	Rbeq	L_JFonCall
+	move.l	d0,a1
+	moveq	#-1,d1
+	moveq	#-1,d2
+	Rbra	L_UPack
+
+*************************************************************************
+*		UNPACK Bank#,X,Y	-> To current screen
+L_UPack3	equ	8
+L8	move.l	ScOnAd(a5),d0
+	Rbeq	L_JFonCall
+	move.l	d0,a1
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	lsr.l	#3,d1
+	Rbra	L_UPack
+
+L_UPack		equ	9
+L9	movem.l	d1/a1,-(sp)
+	 move.l	(a3)+,d0
+	RJsr	L_Bnk.OrAdr
+	movem.l	(sp)+,d1/a1
+* Autoback 
+	tst.w	EcAuto(a1)		* Is screen autobacked?
+	Rbeq	L_UnPack		* NOPE! Do simple unpack
+	movem.l	d0-d7/a0-a2,-(sp)	* YEP! First step
+	EcCall	AutoBack1
+	movem.l	(sp),d0-d7/a0-a2
+	btst	#BitDble,EcFlags(a1)	* DOUBLE BUFFER?
+	beq.s	ABPac1
+	Rbsr	L_UnPack
+	EcCall	AutoBack2		* Second step
+	movem.l	(sp),d0-d7/a0-a2
+	Rbsr	L_UnPack
+	EcCall	AutoBack3		* Third step
+	bra.s	ABPac2
+ABPac1	Rbsr	L_UnPack		* SINGLE BUFFER autobacked
+	EcCall	AutoBack4
+ABPac2	movem.l	(sp)+,d0-d7/a0-a2
+	rts
+
+*************************************************************************
+*		UNPACK Bank# TO screen	-> Creates/Erases screen!
+L_UPack2	equ	10
+L10	move.l	(a3)+,d1
+	cmp.l	#8,d1
+	Rbcc	L_JFoncall
+* Creates new screen
+	move.l	d1,-(sp)
+	move.l	(a3)+,d0
+	RJsr	L_Bnk.OrAdr
+	move.l	(sp)+,d1
+	cmp.l	#SCCode,PsCode(a0)
+	Rbne	L_NoScr
+	moveq	#0,d2
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#0,d5
+	move.w	PsTx(a0),d2
+	move.w	PsTy(a0),d3
+	move.w	PsNPlan(a0),d4
+	move.w	PsCon0(a0),d5
+	move.w	PsNbCol(a0),d6
+	lea	PsPal(a0),a1
+	move.l	a0,-(sp)
+	EcCall	Cree
+	Rbne	L_JOOfMem
+	move.l	a0,a1
+	move.l	(sp)+,a0
+	move.l	a1,ScOnAd(a5)
+	move.w	EcNumber(a1),ScOn(a5)
+	addq.w	#1,ScOn(a5)
+* Enleve le curseur
+	movem.l	a0-a6/d0-d7,-(sp)
+	lea	CuCuOff(pc),a1
+	WiCall	Print
+	movem.l	(sp)+,a0-a6/d0-d7
+* Change View/Offset
+	move.w	PsAWX(a0),EcAWX(a1)
+	move.w	PsAWY(a0),EcAWY(a1)
+	move.w	PsAWTx(a0),EcAWTx(a1)
+	move.w	PsAWTy(a0),EcAWTy(a1)
+	move.w	PsAVX(a0),EcAVX(a1)
+	move.w	PsAVY(a0),EcAVY(a1)
+	move.b	#%110,EcAW(a1)
+	move.b	#%110,EcAWT(a1)
+	move.b	#%110,EcAV(a1)
+* Unpack!
+	lea	PsLong(a0),a0
+	moveq	#0,d1
+	moveq	#0,d2
+	Rbra	L_UnPack
+CuCuOff	dc.b	27,"C0",0
+	even
+
+***********************************************************
+*		Reserves memory bank, A1= number
+L_ResBank	equ	11
+L11	movem.l	a0/d1/d2,-(sp)
+	move.l	d0,d2
+	moveq	#(1<<Bnk_BitData),d1
+	move.l	a1,d0
+	lea	BkPac(pc),a0
+	Rjsr	L_Bnk.Reserve
+	Rbeq	L_JOOfMem
+	move.l	a0,a1 
+	movem.l	(sp)+,a0/d1/d2
+	rts
+******* Definition banque de samples
+BkPac:	dc.b "Pac.Pic."
+	even
+
+***********************************************************
+*		Unpile parameters
+L_PacPar	equ	12
+L12	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	lsr.w	#3,d4
+	lsr.w	#3,d2
+* Screen
+	move.l	4(a3),d1
+	RJsr	L_GetEc
+	move.l	d0,a2
+	cmp.w	EcTLigne(a0),d4
+	bls.s	PacP1
+	move.w	EcTLigne(a0),d4
+PacP1	cmp.w	EcTy(a0),d5
+	bls.s	PacP2
+	move.w	EcTy(a0),d5
+PacP2	sub.w	d2,d4
+	Rble	L_JFoncall
+	sub.w	d3,d5
+	Rble	L_JFoncall
+; Number of memory bank
+	move.l	(a3)+,a1
+	cmp.l	#$10000,a1
+	Rbcc	L_JFoncall
+	addq.l	#4,a3
+	rts
+
+***************************************************************************
+* 
+*       BITMAP COMPACTOR
+*                       A0: Origin screen datas
+*                       A1: Destination zone
+*			A2: Origin screen bitmap
+*                       D2: DX in BYTES
+*                       D3: DY in LINES
+*                       D4: TX in BYTES
+*                       D5: TY in LINES
+*
+***************************************************************************
+* 	ESTIMATE THE SIZE OF A PICTURE
+
+******* Makes differents tries
+*	And finds the best square size in D1
+L_GetSize	equ	13
+L13	movem.l	a1-a3,-(sp)
+	lea	TSize(pc),a3
+	move.l	Buffer(a5),a1
+	moveq	#0,d7
+	move.w	d5,d7
+	clr.w	-(sp)
+	move.l	#$10000000,-(sp)
+GSize1	move.l	d7,d5
+	move.w	(a3)+,d1
+	beq.s	GSize2
+	divu	d1,d5
+	swap	d5
+	tst.w	d5
+	bne.s	GSize1
+	swap	d5
+	bsr	PacSize
+	cmp.l	(sp),d0
+	bcc.s	GSize1
+	move.l	d0,(sp)
+	move.w	d1,4(sp)
+	bra.s	GSize1
+GSize2	move.l	(sp)+,d0
+	move.w	(sp)+,d1
+	move.l	d7,d5
+	divu	d1,d5
+	movem.l	(sp)+,a1-a3
+	rts
+
+******* Simulate a packing
+PacSize	movem.l	d1-d7/a0-a6,-(sp)
+* Fake data zone
+        move.w 	d2,Pkdx(a1)
+        move.w 	d3,Pkdy(a1)  
+        move.w 	d4,Pktx(a1)  
+        move.w 	d5,Pkty(a1)   
+        move.w 	d1,Pktcar(a1)  
+* Reserve intermediate table space
+	move.w	d1,d0
+	mulu	d4,d0
+	mulu	d5,d0
+	mulu	EcNPlan(a0),d0
+	lsr.l	#3,d0
+	addq.l	#2,d0
+	move.l	d0,-(sp)
+	move.l	a0,-(sp)
+	Rjsr	L_RamFast
+	Rbeq	L_JOofMem
+	move.l	(sp)+,a0
+	move.l	d0,a6
+	move.l	d0,-(sp)
+* Prepare registers
+        move.l	a2,a4	        	;a4--> picture address
+        lea 	PkDatas1(a1),a5        	;a5--> main datas
+	move.w	EcTLigne(a0),d7
+	move.w	d7,d5
+	mulu	d1,d5			;d5--> SY line of square
+        move.w 	Pkdy(a1),d3
+        mulu 	d7,d3
+        move.w 	Pkdx(a1),d0
+	ext.l	d0
+	add.l	d0,d3
+	move.w	EcNPlan(a0),-(sp)
+* Main packing
+        moveq 	#7,d1  		        * Bit pointer
+	moveq	#0,d0
+Iplan:  move.l 	(a4)+,a3
+	add.l	d3,a3
+        move.w 	Pkty(a1),d6
+	subq.w	#1,d6
+Iligne: move.l 	a3,a2
+	move.w	Pktx(a1),d4
+	subq.w	#1,d4
+Icarre: move.l 	a2,a0
+        move.w 	Pktcar(a1),d2
+	subq.w	#1,d2
+Ioct0: 	cmp.b 	(a0),d0         	* Compactage d'un carre
+        beq.s 	Ioct1
+	move.b	(a0),d0
+        addq.l 	#1,a5
+        bset 	d1,(a6)
+Ioct1:  dbra 	d1,Ioct2
+        moveq 	#7,d1
+        addq.l 	#1,a6
+	clr.b	(a6)
+Ioct2:  add.w 	d7,a0
+        dbra 	d2,Ioct0
+        addq.l	#1,a2	
+        dbra 	d4,Icarre	
+	add.l	d5,a3	
+        dbra 	d6,Iligne	
+	subq.w	#1,(sp)
+	bne.s	IPlan
+	addq.l	#2,sp
+	addq.l	#1,a5
+* Packing of first pointers table
+	move.l	a5,a6
+	move.l	4(sp),d2
+	move.l	d2,d0
+	subq.w	#1,d2
+	lsr.w	#3,d0
+	addq.w	#2,d0
+	add.w	d0,a5
+	move.l	(sp),a0
+	moveq	#0,d0
+        moveq 	#7,d1
+Icomp2  cmp.b 	(a0)+,d0
+        beq.s 	Icomp2a
+	move.b	-1(a0),d0
+        addq.l 	#1,a5
+Icomp2a dbra	d2,Icomp2
+* Final size (EVEN!)
+	move.l	a5,d2
+	sub.l	a1,d2
+	addq.l	#3,d2
+	and.l	#$FFFFFFFE,d2
+* Free intermediate memory
+	move.l	(sp)+,a1
+	move.l	(sp)+,d0
+	Rjsr	L_RamFree
+* Finished!
+	move.l	d2,d0
+	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+******* Packing methods
+TSize	dc.w 	1,2,3,4,5,6,7,8,12,16,24,32,48,64,0
+
+
+***********************************************************
+*	REAL PACKING!!!
+L_Pack		equ	14
+L14
+* Header of the packed bitmap
+	movem.l	d1-d7/a0-a6,-(sp)
+
+* Packed bitmap header
+        move.l 	#BMCode,PkCode(a1)
+        move.w 	d2,Pkdx(a1)
+        move.w 	d3,Pkdy(a1)  
+        move.w 	d4,Pktx(a1)  
+        move.w 	d5,Pkty(a1)   
+        move.w 	d1,Pktcar(a1)  
+	move.w	EcNPlan(a0),PkNPlan(a1)
+
+* Reserve intermediate table space
+	move.w	d1,d0
+	mulu	d4,d0
+	mulu	d5,d0
+	mulu	EcNPlan(a0),d0
+	lsr.l	#3,d0
+	addq.l	#2,d0
+	move.l	d0,-(sp)
+	move.l	a0,-(sp)
+	Rjsr	L_RamFast
+	Rbeq	L_JOofMem
+	move.l	(sp)+,a0
+	move.l	d0,a6
+	move.l	d0,-(sp)
+
+* Prepare registers
+        move.l	a2,a4        		;a4--> picture address
+        lea 	PkDatas1(a1),a5        	;a5--> main datas
+	move.w	EcTLigne(a0),d7
+	move.w	d7,d5
+	mulu	d1,d5			;d5--> SY line of square
+        move.w 	Pkdy(a1),d3
+        mulu 	d7,d3
+        move.w 	Pkdx(a1),d0
+	ext.l	d0
+	add.l	d0,d3
+	move.w	EcNPlan(a0),-(sp)
+
+* Main packing
+        moveq 	#7,d1  		        * Bit pointer
+	moveq	#0,d0
+        clr.b 	(a5)              	* First byte to zero
+        clr.b 	(a6)              
+plan:   move.l 	(a4)+,a3
+	add.l	d3,a3
+        move.w 	Pkty(a1),d6
+	subq.w	#1,d6
+ligne:  move.l 	a3,a2
+	move.w	Pktx(a1),d4
+	subq.w	#1,d4
+carre:  move.l 	a2,a0
+        move.w 	Pktcar(a1),d2
+	subq.w	#1,d2
+oct0: 	cmp.b 	(a0),d0         	* Compactage d'un carre
+        beq.s 	oct1
+	move.b	(a0),d0
+        addq.l 	#1,a5
+        move.b 	d0,(a5)
+        bset 	d1,(a6)
+oct1:   dbra 	d1,oct2
+        moveq 	#7,d1
+        addq.l 	#1,a6
+        clr.b 	(a6)
+oct2:   add.w 	d7,a0
+        dbra 	d2,oct0
+        addq.l	#1,a2			* Carre suivant en X
+        dbra 	d4,carre	
+	add.l	d5,a3			* Ligne suivante
+        dbra 	d6,ligne	
+	subq.w	#1,(sp)			* Plan couleur suivant
+	bne.s	Plan
+	addq.l	#2,sp
+	addq.l	#1,a5
+
+; Packing of first pointers table
+	move.l	a5,d0
+	sub.l	a1,d0
+	move.l	d0,PkPoint2(a1)
+	move.l	a5,a6
+	move.l	4(sp),d0
+	move.l	d0,d2
+	subq.w	#1,d2
+	lsr.w	#3,d0
+	addq.w	#2,d0
+	add.w	d0,a5
+	move.l	a5,d0
+	sub.l	a1,d0
+	move.l	d0,PkDatas2(a1)
+	move.l	(sp),a0
+	moveq	#0,d0
+        moveq 	#7,d1
+        clr.b 	(a5)
+        clr.b 	(a6)
+comp2:  cmp.b 	(a0)+,d0
+        beq.s 	comp2a
+	move.b	-1(a0),d0
+        addq.l 	#1,a5
+        move.b 	d0,(a5)
+        bset 	d1,(a6)
+comp2a: dbra 	d1,comp2b
+        moveq 	#7,d1
+        addq.l 	#1,a6
+        clr.b 	(a6)
+comp2b: dbra	d2,Comp2
+
+* Free intermediate memory
+	move.l	(sp)+,a1
+	move.l	(sp)+,d0
+	RJsr	L_RamFree
+	movem.l	(sp)+,d1-d7/a0-a6
+	rts
+
+***********************************************************
+*		Bitmap unpacker
+*		A0-> packed picture
+*		A1-> Destination screen
+*		D1.L Start in X
+*		D2.L Start in Y
+UAEc:	equ 0
+UDEc:	equ 4
+UITy:	equ 8
+UTy:	equ 10
+UTLine:	equ 12
+UNPlan:	equ 14
+UPile:	equ 16
+L_UnPack	equ	15
+L15	movem.l	a0-a6/d1-d7,-(sp)
+
+* Jump over SCREEN DEFINITION
+	cmp.l	#SCCode,(a0)
+	bne.s	dec0
+	lea	PsLong(a0),a0
+* Is it a packed bitmap?
+dec0	cmp.l	#BMCode,(a0)
+	Rbne	L_NoPac
+
+* Parameter preparation
+	lea	-UPile(sp),sp		* Space to work
+	lea	EcCurrent(a1),a2
+	move.l	a2,UAEc(sp)		* Bitmaps address
+        move.w 	EcTLigne(a1),d7    	* d7--> line size
+	move.w	EcNPlan(a1),d0		* How many bitplanes
+	cmp.w	PkNPlan(a0),d0
+	Rbne	L_JFoncall
+	move.w	d0,UNPlan(sp)
+	move.w	Pktcar(a0),d6		* d6--> SY square
+
+        tst.l 	d1			* Screen address in X
+        bpl.s 	dec1
+        move.w 	Pkdx(a0),d1
+dec1:   tst.l 	d2			* In Y
+        bpl.s 	dec2
+        move.w 	Pkdy(a0),d2
+dec2:   move.w	Pktx(a0),d0
+	add.w	d1,d0
+	cmp.w	d7,d0
+	Rbhi	L_JFoncall
+	move.w	Pkty(a0),d0
+	mulu	d6,d0
+	add.w	d2,d0
+	cmp.w	EcTy(a1),d0
+	Rbhi	L_JFoncall
+
+	mulu	d7,d2			* Screen address
+	ext.l	d1	
+	add.l	d2,d1
+	move.l	d1,UDEc(sp)
+	
+	move.w	d6,d0			* Size of one line
+        mulu 	d7,d0
+        move 	d0,UTLine(sp)
+
+        move.w 	Pktx(a0),a3		* Size in X
+        subq.w	#1,a3
+        move.w 	Pkty(a0),UITy(sp)	* in Y
+        lea 	PkDatas1(a0),a4        	* a4--> bytes table 1
+        move.l 	a0,a5
+        move.l 	a0,a6
+        add.l 	PkDatas2(a0),a5     	* a5--> bytes table 2
+        add.l 	PkPoint2(a0),a6     	* a6--> pointer table
+
+        moveq 	#7,d0			
+        moveq 	#7,d1
+        move.b 	(a5)+,d2
+        move.b 	(a4)+,d3
+        btst 	d1,(a6)
+        beq.s 	prep
+        move.b 	(a5)+,d2
+prep:   subq.w 	#1,d1
+
+* Unpack!
+dplan:  move.l 	UAEc(sp),a2
+	addq.l	#4,UAEc(sp)
+	move.l	(a2),a2
+	add.l	UDEc(sp),a2
+        move.w 	UITy(sp),UTy(sp)	* Y Heigth counter
+dligne: move.l 	a2,a1
+        move.w 	a3,d4
+dcarre: move.l 	a1,a0
+        move.w 	d6,d5   		* Square height
+doctet1:subq.w 	#1,d5
+        bmi.s 	doct3
+        btst 	d0,d2
+        beq.s 	doct1
+        move.b 	(a4)+,d3
+doct1:  move.b 	d3,(a0)
+        add.w 	d7,a0
+        dbra 	d0,doctet1
+        moveq 	#7,d0
+        btst 	d1,(a6)
+        beq.s 	doct2
+        move.b 	(a5)+,d2
+doct2:  dbra 	d1,doctet1
+        moveq 	#7,d1
+        addq.l 	#1,a6
+        bra.s 	doctet1
+doct3:  addq.l	#1,a1           	* Other squares?
+        dbra 	d4,Dcarre
+        add.w 	UTLine(sp),a2          	* Other square line?
+        subq.w 	#1,UTy(sp)
+        bne.s 	Dligne
+        subq.w 	#1,UNPlan(sp)
+        bne.s 	Dplan
+        lea	UPile(sp),sp            * Restore the pile
+* Finished!
+	movem.l	(sp)+,a0-a6/d1-d7
+	rts
+
+
+***********************************************************
+*		JUMP TO ERROR MESSAGES
+L_JFoncall	equ	16
+L16	moveq	#23,d0
+	RJmp	L_Error
+L_JScnop	equ	17
+L17	moveq	#47,d0
+	RJmp	L_Error
+L_JOOfmem	equ	18
+L18	moveq	#24,d0
+	RJmp	L_Error
+
+***********************************************************
+*		ERROR HANDLING
+L_NoPac		equ	19
+L19	moveq	#0,d0
+	RBra	L_Custom
+L_NoScr		equ	20
+L20	moveq	#1,d0
+	RBra	L_Custom
+
+***********************************************************
+*		ERROR MESSAGES
+
+******* First routine
+L_Custom	equ	21
+L21	lea	ErrMes(pc),a0
+	moveq	#0,d1
+	moveq	#ExtNb,d2
+	moveq	#0,d3
+	RJmp	L_ErrorExt
+ErrMes	dc.b 	"Not a packed bitmap",0
+	dc.b 	"Not a packed screen",0
+	even	
+******* Second routine
+L22	moveq	#0,d1
+	moveq	#ExtNb,d2
+	moveq	#0,d3
+	RJmp	L_ErrorExt
+L23
+
+***********************************************************
+* 		Welcome message
+C_Title		dc.b 	"AMOSPro Picture Compactor V "
+		Version
+		dc.b	0,"$VER: "
+		Version
+		dc.b	0
+		Even
+
+***********************************************************
+C_End	dc.w	0
+
+
diff --git a/AMOS/Tutorial/Extensions/__uae____equ_s b/AMOS/Tutorial/Extensions/__uae____equ_s
new file mode 100644
index 0000000..ba0242f
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____equ_s
@@ -0,0 +1,1884 @@
+
+ 
+*
+CDebug		set	0
+Switcher_Signal	equ	24
+*
+***********************************************************
+*
+*		AMOSPro EQUATES DEFINITION
+*
+*		By Francois Lionet
+*		AMOS (c) 1990-1992 Europress Software Ltd.
+*
+*		Last change 23/09/1992
+*
+***********************************************************
+*	This file contains all the equates of the AMOSPro
+* programs and extension.
+* Be patient, we will soon (I hope) publish informations
+* about the functions of the amos.library.
+***********************************************************
+* 	Only for multi-lingual readers: half english
+* half french. That's Europe!
+***********************************************************
+
+BFORM_ILBM	equ	%00000001
+BFORM_ACBM	equ	%00000010
+BFORM_ANIM	equ	%00000100
+BCHUNK_BMHD	equ	0
+BCHUNK_CAMG	equ	1
+BCHUNK_CMAP	equ	2
+BCHUNK_CCRT	equ	3
+BCHUNK_BODY	equ	4
+BCHUNK_AMSC	equ	5
+BCHUNK_ABIT	equ	6
+
+EntNul:		equ $80000000
+
+Circuits:	equ $dff000
+
+IntReq:		equ $9c
+IntEna:		equ $9a
+DmaCon:		equ $96
+DmaConR:	equ $02
+
+Color00:	equ $180
+VhPosR:		equ $6
+
+; Copper
+Cop1lc:		equ $80
+Cop2lc:		equ $84
+CopJmp1:	equ $88
+CopJmp2:	equ $8a
+
+; Souris
+CiaAprA:	equ $bfe001
+Joy0Dat:	equ $a
+Joy1Dat:	equ $c
+JoyTest:	equ $36
+PotGo:		equ $34
+PotGoR:		equ $16
+Pot0Dat:	equ $12
+Pot1Dat:	equ $14
+
+; Bitplanes
+BplCon0:	equ $100
+BplCon1:	equ $102
+BplCon2:	equ $104
+Bpl1PtH:	equ $0e0
+Bpl1PtL:	equ $0e2
+Bpl1Mod:	equ $108
+Bpl2Mod:	equ $10a
+DiwStrt:	equ $08e
+DiwStop:	equ $090
+DdfStrt:	equ $092
+DdfStop:	equ $094
+
+; Blitter
+BltSize:	equ $058
+BltAdA:		equ $050
+BltAdB:		equ $04c
+BltAdC:		equ $048
+BltAdD:		equ $054
+BltModA:	equ $064
+BltModB:	equ $062
+BltModC:	equ $060
+BltModD:	equ $066
+BltCon0:	equ $040
+BltCon1:	equ $042
+BltDatA:	equ $074
+BltDatB:	equ $072
+BltDatC:	equ $070
+BltDatD:	equ $000
+BltMaskG:	equ $044
+BltMaskD:	equ $046
+
+;-------------> Systeme
+		IFND	ExecBase
+ExecBase:	equ 4
+		ENDC
+StartList:	equ 38
+Forbid:		equ -132
+Permit:		equ -138
+OwnBlitter:	equ -30-426
+DisOwnBlitter:	equ -30-432
+WaitBlit:	equ -228
+OpenLib:	equ -552
+CloseLib:	equ -414
+AllocMem:	equ -198
+AvailMem:	equ -216
+FreeMem:	equ -210
+Chip:		equ $02
+Fast:		equ $04
+Clear:		equ $10000
+Public:		equ $01
+Total		equ $80000
+SetFunction:	equ -420
+CloseWB:	equ -78
+FindTask:	equ -294
+AddPort:	equ -354
+RemPort:	equ -360
+OpenDev:	equ -444
+CloseDev:	equ -450
+DoIO:		equ -456
+SendIO:		equ -462
+
+;-------------> Intuition
+OpenScreen:	equ -198
+CloseScreen:	equ -66
+ScreenToBack:	equ -$F6
+OpenWindow:	equ -204
+CloseWindow:	equ -72
+LoadView:	equ -$DE
+CUFLayer:	equ -36
+DelLayer:	equ -90
+
+;-------------> Graphic library
+InitRastPort:	equ -198
+InitTmpRas:	equ -$1d4
+TextLength:	equ -54
+Text:		equ -60
+SetFont:	equ -66
+OpenFont:	equ -72
+CloseFont:	equ -78
+AskSoftStyle:	equ -84
+SetSoftStyle:	equ -90
+RMove:		equ -240
+RDraw:		equ -246
+DrawEllipse:	equ -$b4
+AreaEllipse:	equ -$ba
+AreaMove:	equ -252
+AreaDraw:	equ -258
+AreaEnd:	equ -264
+InitArea:	equ -282
+RectFill:	equ -306
+ReadPixel:	equ -318
+WritePixel:	equ -324
+Flood:		equ -330
+PolyDraw:	equ -336
+ScrollRaster:	equ -396
+AskFont:	equ -474
+AddFont:	equ -480
+RemFont:	equ -486
+ClipBlit:	equ -552
+BltBitMap:	equ -30
+SetAPen:	equ -342
+SetBPen:	equ -348
+SetDrMd:	equ -354
+AvailFonts:	equ -$24
+OpenDiskFont	equ -$1e
+
+;-------------> Dos
+Input:		equ -54
+WaitChar:	equ -204
+Read:		equ -42
+
+Execall:	MACRO
+		move.l	$4.w,a6
+		jsr	\1(a6)
+		ENDM
+GfxCa5		MACRO
+		movem.l	d0/d1/a0/a1/a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0/d1/a0/a1/a6
+		ENDM
+
+*************** DOS
+DosCall		MACRO
+		move.l	a6,-(sp)
+		move.l	DosBase(a5),a6
+		jsr	\1(a6)
+		move.l	(sp)+,a6
+		ENDM
+DosOpen:	equ -30
+DosClose:	equ -36
+DosRead:	equ -42
+DosWrite:	equ -48
+DosSeek:	equ -66
+DosDel:		equ -72
+DosRen:		equ -78
+DosLock:	equ -84
+DosUnLock:	equ -90
+DosDupLock:	equ -96
+DosExam:	equ -102
+DosExNext:	equ -108
+Dosinfo:	equ -114
+DosMkDir:	equ -120
+DosCuDir:	equ -126
+DosIOErr:	equ -132
+DosDProc:	equ -174
+DosParent:	equ -210
+DosLoadSeg:	equ -150
+DosULoadSeg:	equ -156
+DosWChar:	equ -204
+
+*************** FLOAT
+SPFix:		equ -30
+SPFlt:		equ -36
+SPCmp:		equ -42
+SPTst:		equ -48
+SPAbs:		equ -54
+SPNeg:		equ -60
+SPAdd:		equ -66
+SPSub:		equ -72
+SPMul:		equ -78
+SPDiv:		equ -84
+SPFloor:	equ -90
+SPCeil:		equ -96
+
+SPATan:		equ -30
+SPSin:		equ -36
+SPCos:		equ -42
+SPTan:		equ -48
+SPSinCos:	equ -54
+SPSinH:		equ -60
+SPCosH:		equ -66
+SPTanH:		equ -72
+SPExp:		equ -78
+SPLog:		equ -84
+SPPow:		equ -90
+SPSqrt:		equ -96
+SPTIeee:	equ -102
+SPFIeee:	equ -108
+SPASin:		equ -114
+SPACos:		equ -120
+SPLog10:	equ -126
+
+*************** AMOS system library
+Inkey:		equ 0
+ClearKey:	equ 1
+Shifts:		equ 2
+Instant:	equ 3
+KeyMap:		equ 4
+Joy:		equ 5
+PutKey:		equ 6
+Hide:		equ 7
+Show:		equ 8
+ChangeM:	equ 9
+XyMou:		equ 10
+XyHard:		equ 11
+XyScr:		equ 12
+MouseKey:	equ 13
+SetM:		equ 14
+ScIn:		equ 15
+XyWin:		equ 16
+LimitM:		equ 17
+ZoHd:		equ 18
+ResZone:	equ 19
+RazZone:	equ 20
+SetZone:	equ 21
+GetZone:	equ 22
+WaitVbl:	equ 23
+SetHs:		equ 24
+USetHs:		equ 25
+SetFunk:	equ 26
+GetFunk:	equ 27
+AffHs:		equ 28
+SetSpBank:	equ 29
+NXYAHs:		equ 30
+XOffHs:		equ 31
+OffHs:		equ 32
+ActHs:		equ 33
+SBufHs:		equ 34
+StActHs:	equ 35
+ReActHs:	equ 36
+StoreM:		equ 37
+RecallM:	equ 38
+PriHs:		equ 39
+AMALTok:	equ 40
+AMALCre:	equ 41
+AMALMvO:	equ 42
+AMALDAll:	equ 43
+AMAL:		equ 44
+AMALReg:	equ 45
+AMALClr:	equ 46
+AMALFrz:	equ 47
+AMALUFrz:	equ 48
+SetBob:		equ 49
+OffBob:		equ 50
+OffBobS:	equ 51
+ActBob:		equ 52
+AffBob:		equ 53
+EffBob:		equ 54
+SyChip:		equ 55
+SyFast:		equ 56
+LimBob:		equ 57
+ZoGr:		equ 58
+SprGet:		equ 59
+MaskMk:		equ 60
+SpotHot:	equ 61
+ColBob:		equ 62
+ColGet:		equ 63
+ColSpr:		equ 64
+SetSync:	equ 65
+Synchro:	equ 66
+PlaySet:	equ 67
+XYBob:		equ 68
+XYSp:		equ 69
+PutBob:		equ 70
+Patch:		equ 71
+MouRel:		equ 72
+LimitMEc:	equ 73
+SyFree:		equ 74
+SetHCol:	equ 75
+GetHCol:	equ 76
+MovOn:		equ 77
+KeySpeed:	equ 78
+ChanA:		equ 79
+ChanM:		equ 80
+SPrio:		equ 81
+GetDisc:	equ 82
+RestartVBL	equ 83
+StopVBL		equ 84
+KeyWaiting	equ 85		(P) Une touche en attente?
+MouScrFront	equ 86		(P) Souris dans ecran de front
+
+SyCall:		MACRO
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalA:		MACRO
+		lea	\2,a1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+***********************************************************
+*		EQUATES BOBS
+		RsReset
+BbPrev:		rs.l 1
+BbNext:		rs.l 1
+BbNb:		rs.w 1
+BbAct:		rs.w 1
+BbX:		rs.w 1
+BbY:		rs.w 1
+BbI:		rs.w 1
+BbEc:		rs.l 1
+BbAAEc:		rs.l 1
+BbAData:	rs.l 1
+BbAMask:	rs.l 1
+BbNPlan:	rs.w 1
+BbAPlan:	rs.w 1
+BbASize:	rs.w 1
+BbAMaskG:	rs.w 1
+BbAMaskD:	rs.w 1
+BbTPlan:	rs.w 1
+BbTLigne:	rs.w 1
+BbAModO:	rs.w 1
+BbAModD:	rs.w 1
+BbACon:		rs.w 1
+BbACon0:	rs.w 1
+BbACon1:	rs.w 1
+BbADraw:	rs.l 1
+BbLimG:		rs.w 1
+BbLimD:		rs.w 1
+BbLimH:		rs.w 1
+BbLimB:		rs.w 1
+* Datas retournement des bobs
+BbARetour	rs.l 1
+BbRetour	rs.w 1
+* Datas decor
+BbDecor:	rs.w 1
+BbEff:		rs.w 1
+BbDCur1:	rs.w 1
+BbDCur2:	rs.w 1
+BbDCpt:		rs.w 1
+BbEMod:		rs.w 1
+BbECpt:		rs.w 1
+BbEAEc:		rs.w 1
+BbESize:	rs.w 1
+BbETPlan:	rs.w 1
+* Datas pour une sauvegarde de decor
+BbDABuf:	rs.l 1		* 0  Adresse buffer
+BbDLBuf:	rs.w 1		* 4  Longueur buffer
+BbDAEc:		rs.w 1		* 6  Decalage ecran
+BbDAPlan:	rs.l 1		* 8  Plans sauves
+BbDNPlan:	rs.l 1		* 12 Max plans
+BbDMod:		rs.w 1		* 16 Modulo ecran
+BbDASize:	rs.w 1		* 18 Taille blitter
+Decor:		equ 20		* 20 Taille totale
+* Datas pour seconde sauvegarde!
+		rs.l Decor
+BbLong:		equ __RS
+
+
+
+*************** AMOS Screen library
+
+BitHide:	equ 7
+BitClone:	equ 6
+BitDble:	equ 5
+EcMaxPlans	equ		6		6 Plans pour le moment!
+
+		RsReset
+* Bitmap address
+EcLogic:	rs.l 6		* 
+EcPhysic	rs.l 6		* 
+EcCurrent:	rs.l 6		* 
+
+* Datas!
+EcCon0:		rs.w 1		* 
+EcCon2:		rs.w 1		* 
+EcTx:		rs.w 1		* 
+EcTy:		rs.w 1		* 
+EcNPlan:	rs.w 1		* 
+EcWX:		rs.w 1		* 
+EcWY:		rs.w 1		* 
+EcWTx:		rs.w 1		* 
+EcWTy:		rs.w 1		* 
+EcVX:		rs.w 1		* 
+EcVY:		rs.w 1		* 
+
+EcDEcran:	rs.l 1		* 
+EcColorMap	rs.w 1
+EcNbCol		rs.w 1
+EcPal		rs.w 32
+
+EcTPlan:	rs.l 1		* 
+EcWindow:	rs.l 1		* 
+EcTxM:		rs.w 1		* 
+EcTyM:		rs.w 1		* 
+EcTLigne:	rs.w 1		* 
+EcFlags:	rs.w 1		* 
+EcDual:		rs.w 1		* 
+EcWXr:		rs.w 1		* 
+EcWTxr:		rs.w 1		* 
+EcNumber:	rs.w 1		* 
+EcAuto:		rs.w 1		* 
+
+* Link with AMAL
+EcAW:		rs.w 1
+EcAWX:		rs.w 1
+EcAWY:		rs.w 1
+EcAWT:		rs.w 1
+EcAWTX:		rs.w 1
+EcAWTY:		rs.w 1
+EcAV:		rs.w 1
+EcAVX:		rs.w 1
+EcAVY:		rs.w 1
+* Zone table
+EcAZones:	rs.l 1
+EcNZones:	rs.w 1
+* Save the backgrountd for window
+EcWiDec:	rs.w 1
+* Graphic functions
+EcInkA:		rs.b 1
+EcInkB:		rs.b 1
+EcMode:		rs.b 1
+EcOutL:		rs.b 1
+EcLine:		rs.w 1
+EcCont:		rs.w 1
+EcX:		rs.w 1
+EcY:		rs.w 1
+EcPat:		rs.l 1
+EcPatL:		rs.w 1
+EcPatY:		rs.w 1
+EcClipX0:	rs.w 1
+EcClipY0:	rs.w 1
+EcClipX1:	rs.w 1
+EcClipY1:	rs.w 1
+EcFontFlag:	rs.w 1
+EcText:		rs.b 14 
+EcFInkA:	rs.b 1
+EcFInkB:	rs.b 1
+EcFInkC:	rs.b 1
+EcIInkA:	rs.b 1
+EcIInkB:	rs.b 1
+EcIInkC:	rs.b 1
+EcFPat:		rs.w 1
+EcIPat:		rs.w 1
+* Cursor saving
+EcCurS:		rs.b 8*6
+; Length of a screen
+EcLong:		equ __RS
+
+; Y Screen base
+EcYBase:	equ $1000
+EcYStrt:	equ EcYBase+26
+PalMax:		equ 16
+
+***********************************************************
+*		FUNCTIONS
+***********************************************************
+
+Raz:		equ 0
+CopMake:	equ 1
+*		equ 2
+Cree:		equ 3
+Del:		equ 4
+First:		equ 5
+Last:		equ 6
+Active:		equ 7
+CopForce:	equ 8
+AView:		equ 9
+OffSet:		equ 10
+Visible:	equ 11
+DelAll:		equ 12
+GCol:		equ 13
+SCol:		equ 14
+SPal:		equ 15
+SColB:		equ 16
+FlRaz:		equ 17
+Flash:		equ 18
+ShRaz:		equ 19
+Shift:		equ 20
+EHide:		equ 21
+CBlGet:		equ 22
+CBlPut:		equ 23
+CBlDel:		equ 24
+CBlRaz:		equ 25
+Libre:		equ 26
+CCloEc:		equ 27
+Current:	equ 28
+Double:		equ 29
+SwapSc:		equ 30
+SwapScS:	equ 31
+AdrEc:		equ 32
+SetDual:	equ 33
+PriDual:	equ 34
+ClsEc:		equ 35
+Pattern:	equ 36
+GFonts:		equ 37
+FFonts:		equ 38
+GFont:		equ 39
+SFont:		equ 40
+SetClip:	equ 41
+BlGet:		equ 42
+BlDel:		equ 43
+BlRaz:		equ 44
+BlPut:		equ 45
+VerSli:		equ 46
+HorSli:		equ 47
+SetSli:		equ 48
+MnStart:	equ 49
+MnStop:		equ 50
+RainDel:	equ 51
+RainSet:	equ 52
+RainDo:		equ 53
+RainHide:	equ 54
+RainVar:	equ 55
+FadeOn:		equ 56
+FadeOf:		equ 57
+CopOnOff:	equ 58
+CopReset:	equ 59
+CopSwap:	equ 60
+CopWait:	equ 61
+CopMove:	equ 62
+CopMoveL:	equ 63
+CopBase:	equ 64
+AutoBack1:	equ 65
+AutoBack2:	equ 66
+AutoBack3:	equ 67
+AutoBack4:	equ 68
+SuPaint:	equ 69
+BlRev:		equ 70
+DoRev:		equ 71
+AMOS_WB		equ 72
+ScCpyW		equ 73
+MaxRaw		equ 74
+NTSC		equ 75
+
+EcCall:		MACRO
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalA:		MACRO
+		lea	\2,a1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+*************** AMOS Window library
+
+* Window structure
+WiPrev:		equ 0		
+WiNext:		equ WiPrev+4	
+WiFont:		equ WiNext+4	
+WiAdhg:		equ WiFont+4
+WiAdhgR:	equ WiAdhg+4
+WiAdhgI:	equ WiAdhgR+4
+WiAdCur:	equ WiAdhgI+4
+WiColor:	equ WiAdCur+4
+WiColFl:	equ WiColor+4*6
+
+WiX:		equ WiColFl+4*6
+WiY:		equ WiX+2
+WiTx:		equ WiY+2
+WiTy:		equ WiTx+2
+WiTyCar:	equ WiTy+2
+WiTLigne:	equ WiTyCar+2
+WiTxR:		equ WiTLigne+2
+WiTyR:		equ WiTxR+2
+WiDxI:		equ WiTyR+2
+WiDyI:		equ WiDxI+2
+WiTxI:		equ WiDyI+2
+WiTyI:		equ WiTxI+2
+WiDxR:		equ WiTyI+2
+WiDyR:		equ WiDxR+2
+WiFxR:		equ WiDyR+2
+WiFyR:		equ WiFxR+2
+WiTyP:		equ WiFyR+2
+WiDBuf:		equ WiTyP+2
+WiTBuf:		equ WiDBuf+4
+WiTxBuf:	equ WiTBuf+4
+
+WiPaper:	equ WiTxBuf+2
+WiPen:		equ WiPaper+2
+WiBorder:	equ WiPen+2
+WiFlags:	equ WiBorder+2
+WiGraph:	equ WiFlags+2
+WiNPlan:	equ WiGraph+2
+WiNumber:	equ WiNPlan+2
+WiSys:		equ WiNumber+2
+WiEsc:		equ WiSys+2
+WiEscPar:	equ WiEsc+2
+WiTab:		equ WiEscPar+2
+
+WiBord:		equ WiTab+2
+WiBorPap:	equ WiBord+2
+WiBorPen:	equ WiBorPap+2
+
+WiMx:		equ WiBorPen+2
+WiMy:		equ WiMx+2
+WiZoDx:		equ WiMy+2
+WiZoDy:		equ WiZoDx+2
+
+WiCuDraw:	equ WiZoDy+2
+WiCuCol:	equ WiCuDraw+8
+
+WiTitH:		equ WiCuCol+2
+WiTitB:		equ WiTitH+80
+WiLong:		equ WiTitB+80
+WiSAuto:	equ WiTitH
+
+***********************************************************
+*		WINDOW INSTRUCTIONS 
+***********************************************************
+ChrOut:		equ 0
+Print:		equ 1
+Centre:		equ 2
+WindOp:		equ 3
+Locate:		equ 4
+QWindow:	equ 5
+WinDel:		equ 6
+SBord:		equ 7
+STitle:		equ 8
+GAdr:		equ 9
+MoveWi:		equ 10
+ClsWi:		equ 11
+SizeWi:		equ 12
+SCurWi:		equ 13
+XYCuWi:		equ 14
+XGrWi:		equ 15
+YGrWi:		equ 16
+Print2		equ 17
+Print3		equ 18
+SXSYCuWi	equ 19
+	
+WiCall:		MACRO
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalA:		MACRO
+		lea	\2,a1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+**************	Equates basic
+EcFonc:		equ 8
+EcEdit:		equ 9
+EcFsel:		equ 10
+EcReq:		equ 11
+
+EdTx:		equ 78
+
+EdBTT:		equ 512+256
+NbEnd:		equ 10
+EcEBase		equ 45
+DEBase		equ EcEBase+35-1
+SpEBase 	equ DEBase+25
+FkLong:		equ 26
+Shf:		equ %00000011
+Ctr:		equ %00001000
+Alt:		equ %00110000
+Ami:		equ %11000000
+
+***************	Menu definition
+		RsReset
+MnPrev:		rs.l 	1
+MnNext:		rs.l 	1
+MnLat:		rs.l	1
+MnNb:		rs.w	1
+MnFlag:		rs.w	1
+MnX:		rs.w	1
+MnY:		rs.w	1
+MnTx:		rs.w	1
+MnTy:		rs.w	1
+MnMX:		rs.w	1
+MnMY:		rs.w	1
+MnXX:		rs.w	1
+MnYY:		rs.w	1
+MnZone:		rs.w	1
+MnKFlag:	rs.b	1
+MnKAsc:		rs.b	1
+MnKSc:		rs.b 	1
+MnKSh:		rs.b	1
+* Menu objects
+MnObF:		rs.l	1
+MnOb1:		rs.l	1
+MnOb2:		rs.l	1
+MnOb3:		rs.l	1
+MnAdSave:	rs.l	1
+MnDatas:	rs.l	1
+MnLData:	rs.w 	1
+MnInkA1:	rs.b	1
+MnInkB1:	rs.b	1
+MnInkC1:	rs.b	1
+MnInkA2:	rs.b	1
+MnInkB2:	rs.b	1
+MnInkC2:	rs.b	1
+MnLong:		equ __RS
+
+* Flags
+MnFlat:		equ 	0
+MnFixed:	equ 	1
+MnSep:		equ 	2
+MnBar:		equ 	3
+MnOff:		equ 	4
+MnTotal:	equ 	5
+MnTBouge:	equ 	6
+MnBouge:	equ 	7
+
+*************** Test control bits 
+BitControl:	equ 	8
+BitMenu:	equ 	9
+BitJump:	equ 	10
+BitEvery:	equ 	11
+BitEcrans:	equ 	12
+BitBobs:	equ 	13
+BitSprites:	equ 	14
+BitVBL:		equ 	15
+
+; __________________________________
+;
+; 	Definition d'un slider
+; __________________________________
+;
+Sl_FlagVertical	equ 	0
+		RsReset
+; Variables positionnement
+Sl_Sx		rs.w	1
+Sl_Sy		rs.w	1
+Sl_Global	rs.w	1
+Sl_Position	rs.w	1
+Sl_Window	rs.w	1
+Sl_X		rs.w	1
+Sl_Y		rs.w	1
+Sl_ZDx		rs.w	1
+Sl_ZDy		rs.w	1
+; Variables fonctionnement
+Sl_Flags	rs.w	1
+Sl_Start	rs.w	1
+Sl_Size		rs.w	1
+Sl_Scroll	rs.w	1
+Sl_Mouse1	rs.w	1
+Sl_Mouse2	rs.w	1
+Sl_Zone		rs.w	1
+Sl_Routines	rs.l	1
+; Encres
+Sl_Inactive	rs.w	3+3+2
+Sl_Active	rs.w	3+3+2
+Sl_Long		equ	__RS
+; __________________________________
+;
+; 	Definition d'un bouton
+; __________________________________
+;
+Bt_FlagNew	equ	0
+Bt_FlagNoWait	equ	1
+Bt_FlagOnOf	equ	2
+		RsReset
+Bt_Number	rs.w	1
+Bt_X		rs.w	1
+Bt_Y		rs.w	1
+Bt_Image	rs.w	1
+Bt_Zone		rs.w	1
+Bt_Pos		rs.w	1
+Bt_Routines	rs.l	1
+Bt_Dx		rs.b	1
+Bt_Dy		rs.b	1
+Bt_Sx		rs.b	1
+Bt_Sy		rs.b	1
+Bt_RDraw	rs.b	1
+Bt_RChange	rs.b	1
+Bt_RPos		rs.b	1
+Bt_Flags	rs.b	1
+Bt_Long		equ	__RS
+
+; ___________________________________
+;
+; 	BITMAP PACKER/UNPACKER
+; ___________________________________
+
+; Packed screen header
+		RsReset
+PsCode		rs.l 1
+PsTx		rs.w 1
+PsTy		rs.w 1
+PsAWx		rs.w 1
+PsAWy		rs.w 1
+PsAWTx		rs.w 1
+PsAWTy		rs.w 1
+PsAVx		rs.w 1
+PsAVy		rs.w 1
+PsCon0		rs.w 1
+PsNbCol		rs.w 1
+PsNPlan		rs.w 1
+PsPal		rs.w 32
+PsLong		equ __RS
+SCCode		equ $12031990
+; Packed bitmap header
+; ~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Pkcode   	rs.l 1
+Pkdx     	rs.w 1
+Pkdy     	rs.w 1
+Pktx     	rs.w 1
+Pkty     	rs.w 1
+Pktcar   	rs.w 1
+Pknplan		rs.w 1
+PkDatas2 	rs.l 1
+PkPoint2 	rs.l 1
+PkLong  	equ __RS
+PkDatas1	equ __RS
+BMCode		equ $06071963
+
+; ______________________________________________________________________________
+;
+;		EDITEUR LIGNE
+;
+		RsReset
+LEd_Buffer	rs.l	1
+LEd_Start	rs.w	1
+LEd_Large	rs.w	1
+LEd_Max		rs.w	1
+LEd_Long	rs.w	1
+LEd_Cur		rs.w	1
+LEd_X		rs.w	1
+LEd_Y		rs.w	1
+LEd_Screen	rs.w	1
+LEd_Flags	rs.w	1
+LEd_Mask	rs.l	3
+LEd_Size	equ	__RS
+LEd_FKeys	equ	0
+LEd_FOnce	equ	1
+LEd_FCursor	equ	2
+LEd_FFilter	equ	3
+LEd_FMouse	equ	4
+LEd_FTests	equ	5
+LEd_FMulti	equ	6
+LEd_FMouCur	equ	7
+
+; _____________________________________________________________________________
+; 
+; 	GESTION DES DIALOGUES
+; 
+
+; __________________________________________
+;
+;	Base de la zone de dialogue
+;
+		RsReset
+Dia_Channel	rs.l	1
+Dia_NVar	rs.l	1
+Dia_Sp		rs.l	1
+Dia_Screen	rs.l	1
+Dia_ScreenNb	rs.w	1
+Dia_ScreenOld	rs.w	1
+Dia_WindOld	rs.w	1
+Dia_WindOn	rs.w	1
+Dia_Programs	rs.l	1
+Dia_ProgLong	rs.l	1
+Dia_Labels	rs.l	1
+Dia_Messages	rs.l	1
+Dia_ABuffer	rs.l	1
+Dia_PBuffer	rs.l	1
+Dia_Buffer	rs.l	1
+Dia_Pile	rs.l	1
+Dia_PUsers	rs.l	1
+Dia_NPUsers	rs.w	1
+Dia_Users	rs.w	1
+Dia_Edited	rs.l	1
+Dia_Timer	rs.l	1
+Dia_TimerPos	rs.l	1
+Dia_LastZone	rs.l	1
+Dia_NextZone	rs.l	1
+Dia_Release	rs.l	1
+Dia_BaseX	rs.l	1
+Dia_BaseY	rs.l	1
+Dia_Sx		rs.l	1
+Dia_Sy		rs.l	1
+Dia_XA		rs.w	1
+Dia_YA		rs.w	1
+Dia_XB		rs.w	1
+Dia_YB		rs.w	1
+Dia_Puzzle	rs.l	1
+Dia_PuzzleSx	rs.l	1
+Dia_PuzzleSy	rs.l	1
+Dia_PuzzleI	rs.l	1
+Dia_LastKey	rs.l	1
+Dia_Error	rs.w	1
+Dia_ErrorPos	rs.w	1
+Dia_Return	rs.w	1
+Dia_Exit	rs.w	1
+Dia_Writing	rs.w	1
+Dia_RFlags	rs.b	1
+Dia_Flags	rs.b	1
+Dia_SlDefault	rs.b	16
+		rs.l	4
+Dia_Vars	equ	__RS
+Dia_Source	equ	Dia_LastKey
+Dia_FSource	equ	Dia_Edited
+
+; Entete d'une zone active
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Dia_Ln		rs.w	1		0 Long
+Dia_Id		rs.w	1		2 Id
+Dia_ZoId	rs.w	1		4 ZoId
+Dia_ZoX		rs.w	1		6 ZoX
+Dia_ZoY		rs.w	1		8 ZoY
+Dia_ZoSx	rs.w	1		10 ZoSx
+Dia_ZoSy	rs.w	1		12 ZoSy
+Dia_ZoNumber	rs.w	1		14 ZoNumber
+Dia_ZoRChange	rs.w	1		16 Routine change
+Dia_ZoPos	rs.l	1		18 Position
+Dia_ZoVar	rs.l	1		22 Variable interne
+Dia_ZoFlags	rs.b	1		26
+		rs.b	1
+Dia_ZoLong	equ	__RS
+; Entete d'un bouton dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_BtRDraw	rs.w	1
+Dia_BtRChange	rs.w	1
+Dia_BtMin	rs.w	1
+Dia_BtMax	rs.w	1
+Dia_BtLong	equ	__RS
+; Entete d'une ligne d'edition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_LEd		rs.b	LEd_Size
+Dia_EdLong	equ	__RS
+Dia_DiValue	rs.l	1
+Dia_DiBuffer	rs.b	16
+Dia_DiLong	equ	__RS
+; Entete d'une liste active
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_LiTx	rs.w	1
+Dia_LiTy	rs.w	1
+Dia_LiPos	rs.w	1
+Dia_LiMaxAct	rs.w	1
+Dia_LiArray	rs.l	1
+Dia_LiLArray	rs.w	1
+Dia_LiActNumber	rs.w	1
+Dia_LiLong	equ	__RS
+; Entete d'un texte actif
+; ~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_TxTx	rs.w	1
+Dia_TxTy	rs.w	1
+Dia_TxPos	rs.w	1
+Dia_TxNLine	rs.w	1
+Dia_TxText	rs.l	1
+Dia_TxDisplay	rs.l	1
+Dia_TxDispSize	rs.w	1
+Dia_TxDispMax	rs.w	1
+Dia_TxAdress	rs.l	1
+Dia_TxAct	rs.l	1
+Dia_TxYAct	rs.w	1
+Dia_TxPen	rs.b	1
+Dia_TxPaper	rs.b	1
+Dia_TxPp	rs.b	8
+Dia_TxBuffer	rs.b	64
+Dia_TxBufferEnd	equ	__RS
+Dia_TxLong	equ	__RS
+; Definition des zones actives
+Dia_TxDispZone	equ	8
+
+; Entete d'un slider
+; ~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	Entete zone active
+Dia_Sl		rs.b	Sl_Long		Donn�es gestion slider
+Dia_SlLong	equ	__RS
+; Entete d'une definition de touche
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.w	2
+Dia_KyCode	rs.b	1
+Dia_KyShift	rs.b	1
+Dia_KyZone	rs.l	1
+Dia_KyLong	equ	__RS
+; Entete d'une sauvegarde de block
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.w	2
+Dia_BlNumber	rs.w	1
+Dia_BlLong	equ	__RS
+; Marques de reconnaissance
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_BtMark	equ	"Bt"
+Dia_StMark	equ	"St"
+Dia_EdMark	equ	"Ed"
+Dia_KyMark	equ	"Ky"
+Dia_BlMark	equ	"Bl"
+Dia_ZoMark	equ	"Zo"
+Dia_SlMark	equ	"Sl"
+Dia_LiMark	equ	"Li"
+Dia_TxMark	equ	"Tx"
+Dia_TaMark	equ	"Ta"
+Dia_TdMark	equ	"Td"
+; Numero des messages d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EDia_Syntax	equ	1
+EDia_OMem	equ	2
+EDia_LabAD	equ	3
+EDia_LabND	equ	4
+EDia_ChanAD	equ	5
+EDia_ChanND	equ	6
+EDia_Screen	equ	7
+EDia_VarND	equ	8
+EDia_FCall	equ	9
+EDia_Type	equ	10
+EDia_OBuffer	equ	11
+EDia_NPar	equ	12
+
+***************************************************************
+*		Interpretor datas zone
+*		Pointed to by A5
+***************************************************************
+
+		RsReset
+
+;		VBL Routines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~ 
+VblRout:	rs.l 	8
+
+;		Extensions
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+AdTokens:	rs.l 	27		
+AdTTokens:	rs.l 	27
+ExtAdr:		rs.l 	26*4
+ExtTests:	rs.l 	8
+
+; 		Adresses Kickstart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DosBase:	rs.l 	1
+DFloatBase	rs.l	1
+DMathBase	rs.l	1
+FloatBase:	rs.l	1
+MathBase:	rs.l 	1
+IconBase:	rs.l 	1
+
+; 		Donn�es systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_AData	rs.l	1
+Sys_LData	rs.l	1
+Sys_Message	rs.l	1
+Sys_WAd		rs.l	1
+Sys_WSegment	rs.l	1
+Sys_Messages	rs.l	1
+Sys_Banks	rs.l	1
+Sys_Stopped	rs.l	1
+Sys_MyTask	rs.l	1
+Sys_OldName	rs.l	1
+Sys_Editor	rs.l	1
+Sys_Monitor	rs.l	1
+Sys_Resource	rs.l	1
+Sys_WStarted	rs.b	1
+		rs.b	1
+Sys_Pathname	rs.b	80
+
+Mon_Base	rs.l	1
+Prg_List	rs.l	1
+Prg_Runned	rs.l	1
+
+;		Graphics
+; ~~~~~~~~~~~~~~~~~~~~~~
+AAreaSize:	equ 	16
+AAreaInfo:	rs.b 	24
+AAreaBuf:	rs.b 	AAreaSize*5+10
+		rs.b 	16
+ATmpRas:	rs.l 	2
+AppNPlan	rs.w 	1
+SccEcO:		rs.l 	1
+SccEcD:		rs.l 	1
+
+;		File selector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsAdEc:		rs.l 1
+FsOldEc		rs.w 1
+FsFlag:		rs.w 1
+FsActive:	rs.w 1
+FsPosF:		rs.w 1
+FsIFlag:	rs.w 1
+FsLPath:	rs.w 1
+FsLPath1:	rs.w 1
+FsCPath:	rs.w 1
+FsLNom:		rs.w 1
+FsCNom:		rs.w 1
+FsWiAct:	rs.w 1
+FsSp:		rs.l 1
+WB2.0:		rs.w 1
+Fs_Base		rs.l	1
+Fs_Saved	rs.l	1
+Fs_SaveList	rs.l	1
+		rs.b	1
+FillFSorted	rs.b	1
+
+;		Editor
+; ~~~~~~~~~~~~~~~~~~~~
+BasSp:		rs.l 	1	
+		rs.w 	1		
+ColBack:	rs.w 	1
+DefFlag:	rs.w 	1	
+
+;		Float
+; ~~~~~~~~~~~~~~~~~~~
+BuFloat:	rs.b 	64
+DeFloat:	rs.b 	32
+TempFl:		rs.l 	1
+TempBuf:	rs.l 	1
+ValPi:		rs.l 	1
+Val180:		rs.l 	1
+
+;		Disque I/O
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+IffParam:	rs.l 	1
+IffFlag:	rs.l 	1
+IffReturn	rs.l 	1
+BufFillF:	rs.l 	1
+FillFLong:	rs.w 	1
+FillFSize:	rs.w 	1
+FillFNb:	rs.w 	1
+FillF32:	rs.w 	1
+DirLong:	rs.l 	1
+DirComp:	rs.w 	1
+DirLNom:	rs.w 	1	
+PathAct:	rs.l 	1
+DirFNeg:	rs.l 	1	
+BufBMHD:	rs.l 	1
+BufCMAP:	rs.l 	1
+BufCAMG:	rs.l 	1
+BufCCRT:	rs.l 	1
+BufAMSC:	rs.l 	1
+
+; 		Tokenisation / Stockage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TkAd:		rs.l 	1	
+TkChCar:	rs.w 	1	
+VerPos:		rs.l 	1	
+VerBase:	rs.l 	1	
+VerNInst	rs.l	1
+VerNot1.3	rs.b	1
+VerCheck1.3	rs.b	1
+Parenth:	rs.w 	1	
+WBench		rs.b	1
+WB_Closed	rs.b	1
+
+TBuffer:	equ 	1024	
+TMenage:	equ 	160*10-64
+Buffer:		rs.l 	1	
+BMenage:	rs.l 	1
+
+LimSave:	rs.w 	4
+FsLimSave:	rs.w 	4
+Name1:		rs.l 	1	
+Name2:		rs.l 	1
+
+Access:		rs.l 	1		
+AcLdTemp:	rs.l 	1
+AccFlag:	rs.w 	1
+
+RasAd:		rs.l 	1		
+RasLong:	rs.l 	1
+RasSize:	rs.w 	1
+RasLock:	rs.l 	1
+ScOn:		rs.w 	1
+ScOnAd:		rs.l 	1
+BufBob:		rs.l 	1
+BufLabel:	rs.l 	1
+LMouse:		rs.l 	1
+VBLOCount:	rs.w 	1
+VBLDelai:	rs.w 	1
+SScan:		rs.w 	1
+Seed:		rs.l 	1
+OldRnd:		rs.l 	1
+PAmalE:		rs.w 	1
+ReqSave:	rs.l 	1
+ReqSSave:	rs.l 	1
+SNoFlip:	rs.w 	1
+LockSave:	rs.l 	1
+Handle:		rs.l 	1
+PrtHandle:	rs.l 	1
+PosFillF:	rs.w 	1
+TempBuffer	rs.l 	1
+
+;		Canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AnCanaux:	rs.w 64
+InterOff:	rs.w 1
+
+; ____________________________________________________________________________
+;
+;							VARIABLES RUN-TIME
+; ____________________________________________________________________________
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;					Debut de la zone poussee par PRUN
+;
+DebSave:	equ __RS
+
+;		Adresse de la liste de Banques/Dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cur_Banks	rs.l 	1
+Cur_Dialogs	rs.l	1
+Cur_ChrJump	rs.l	1
+
+; 		Donnnes du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Stack_ProcSize	equ	42
+Stack_Size	rs.w 	1
+Stack_CSize	rs.w 	1
+Prg_Source	rs.l 	1
+Prg_FullSource	rs.l	1
+Prg_Includes	rs.l	1
+Prg_Run		rs.l	1
+Prg_Test	rs.l	1
+Prg_JError	rs.l	1
+Prg_ChrGet	rs.l	1
+
+; 		Verification / Buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Passe:		rs.w 1
+VarBuf:		rs.l 1		
+VarBufL:	rs.l 1		
+VarBufFlg:	rs.w 1		
+LabHaut:	rs.l 1		
+LabBas:		rs.l 1
+LabMini:	rs.l 1
+DVNmBas:	rs.l 1		
+DVNmHaut:	rs.l 1
+VNmLong:	rs.l 1
+VNmHaut:	rs.l 1
+VNmBas:		rs.l 1
+VNmMini:	rs.l 1
+VDLigne:	rs.l 1
+BaTablA:	rs.l 1		
+HoTablA:	rs.l 1
+VarLong:	rs.w 1
+GloLong:	rs.w 1
+VarGlo:		rs.l 1
+VarLoc:		rs.l 1
+TabBas:		rs.l 1
+ChVide:		rs.l 1
+LoChaine:	rs.l 1		
+HiChaine:	rs.l 1		
+HoLoop:		rs.l 1
+BaLoop:		rs.l 1
+
+;		Donnees RUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+PLoop:		rs.l 1
+MinLoop:	rs.l 1
+BasA3:		rs.l 1
+ErrRet:		rs.l 1		
+ErrRAd:		rs.l 1
+Phase:		rs.w 1
+DTablA:		rs.l 1
+CurTablA:	rs.l 1
+PDebug:		rs.l 1
+		rs.b 1
+		rs.b 1
+ActuMask:	rs.w 1		
+IffMask:	rs.l 1
+ExpFlg:		rs.w 1
+FixFlg:		rs.w 1
+
+; 		DEVICES / LIBRARIES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dev_Max		equ	7
+Dev_List	rs.b	12*Dev_Max
+Lib_Max		equ	7
+Lib_List	rs.l	4*Lib_Max
+
+; 		MENUS
+; ~~~~~~~~~~~~~~~~~~~
+MnNDim:		equ 8
+Mn_SSave	equ	__RS		Debut du flip de l'editeur
+MnBase:		rs.l 	1		~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnBaseX:	rs.w 	1
+MnBaseY:	rs.w 	1
+MnChange:	rs.w 	1
+MnMouse:	rs.w 	1
+MnError:	rs.w 	1
+MnAdEc:		rs.l 	1
+MnScOn:		rs.w 	1
+MgFlags:	rs.w 	1
+MnNZone:	rs.w 	1
+MnZoAct:	rs.w	1
+MnAct:		rs.l	1
+MnTDraw:	rs.l	1
+MnTable:	rs.l 	MnNDim+1
+MnChoix:	rs.w 	MnNDim
+MnDFlags:	rs.b 	MnNDim
+MnDAd:		rs.l 	1
+MnProc:		rs.w 	1
+Mn_ESave	equ	__RS		Fin du flip editeur
+MnRA3:		rs.l 	1		~~~~~~~~~~~~~~~~~~~
+MnRA4:		rs.l 	1
+MnPile:		rs.l 	1
+OMnBase:	rs.l 	1
+OMnNb:		rs.w 	1
+OMnType:	rs.w	1
+
+;		Def Scroll
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+DScrolls:	rs.w 6*16
+
+; 		Dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~
+IDia_BankPuzzle	rs.l	1
+IDia_Error	rs.l	1
+
+;		Patch monitor
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Patch_ScCopy	rs.l	1
+Patch_ScFront	rs.l	1
+Patch_Errors	rs.l	1
+Patch_Menage	rs.l	1
+Mon_Here	rs.b	1
+		rs.b	1
+
+; 		Fichiers
+; ~~~~~~~~~~~~~~~~~~~~~~
+FhA:		equ 0
+FhT:		equ 4
+FhF:		equ 6
+TFiche:		equ 10
+NFiche:		equ 10
+ChrInp:		rs.w 1
+Fichiers:	rs.b TFiche*NFiche
+
+; 		AREXX
+; ~~~~~~~~~~~~~~~~~~~
+Arx_Port	rs.l	1
+Arx_Base	rs.l	1
+Arx_Answer	rs.l	1
+Arx_PortName	rs.b	32
+
+;		Every
+; ~~~~~~~~~~~~~~~~~~~
+EveType:	rs.w 	1
+EveLabel:	rs.l 	1
+EveCharge:	rs.w 	1
+
+;		Miscellenous
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+BuffSize:	rs.l 	1
+AdrIcon:	rs.l 	1
+DefPal:		rs.w 	32
+DBugge		rs.l 	1
+CallAd:		rs.l 	1
+
+; 		Donn�es t�l�commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_Accessory	rs.b	1 
+Ed_Zappeuse	rs.b	1
+
+;		Variables mises � zero par un RUN 
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DebRaz:		equ 	__RS
+PrintFlg:	rs.w 	1
+PrintPos:	rs.l 	1
+PrinType:	rs.w 	1
+PrintFile:	rs.l 	1
+UsingFlg:	rs.w 	1
+ImpFlg:		rs.w 	1
+ParamE:		rs.l 	1
+ParamF:		rs.l 	1
+ParamC:		rs.l 	1
+InputFlg:	rs.w 	1
+ContFlg:	rs.w 	1
+ContChr:	rs.l 	1
+ErrorOn:	rs.w 	1
+ErrorChr:	rs.l 	1
+OnErrLine:	rs.l 	1
+TrapAdr		rs.l	1
+TrapErr		rs.w	1
+TVMax:		rs.w 	1
+DProc:		rs.l 	1
+AData:		rs.l 	1
+PData:		rs.l 	1
+MenA4:		rs.l 	1
+LockOld:	rs.l 	1
+MnChoice:	rs.w 	1
+Angle:		rs.w 	1
+DMathFlag:	rs.b	1
+Ed_YaUTest	rs.b	1
+CallReg:	rs.l 	8+7
+FinRaz:		equ 	__RS
+FinSave:	equ 	__RS
+;		Fin de la zone pousse par PRUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;             	Donn�es de Configuration Interpr�teur
+;
+PI_Start	equ	__RS
+; Initialisation de la trappe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_ParaTrap	rs.l	1		0 - Adresse actualisation
+PI_AdMouse	rs.l	1		4 - Adresse souris
+		rs.w	1		8 - Nombre de bobs
+		rs.w	1		10- Position par defaut ecran!!
+		rs.l	1		12- Taille liste copper
+		rs.l	1		16- Nombre lignes sprites
+; Taille des buffers 
+; ~~~~~~~~~~~~~~~~~~
+PI_VNmMax	rs.l	1		20- Buffer des noms de variable
+PI_TVDirect	rs.w	1		24- Variables mode direct
+PI_DefSize	rs.l	1		26- Taille buffer par defaut
+; Directory
+; ~~~~~~~~~
+PI_DirSize	rs.w	1		30- Taille nom directory
+PI_DirMax	rs.w	1		32- Nombre max de noms
+; Faire carriage return lors de PRINT?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_PrtRet	rs.b	1		34- Return lors de 10
+; Faire des icones?
+; ~~~~~~~~~~~~~~~~~
+PI_Icons	rs.b	1		35- Faire de icones
+; Autoclose workbench?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_AutoWB	rs.b	1		36- Fermer automatiquement
+PI_AllowWB	rs.b	1		37- Close Workbench effective?
+; Close editor?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_CloseEd	rs.b	1		38- Autoriser fermeture
+PI_KillEd	rs.b	1		39- Autoriser fermeture
+PI_FsSort	rs.b	1		40- Sort files
+PI_FsSize	rs.b	1		41- Size of files
+PI_FsStore	rs.b	1		42- Store directories
+; Securite flags
+; ~~~~~~~~~~~~~~
+		rs.b	1		43- Flag libre
+		rs.b	4		44- 4 flags libres!
+; Text reader
+; ~~~~~~~~~~~
+PI_RtSx		rs.w	1		48- Taille X ecran Readtext
+PI_RtSy		rs.w	1		50- Taille Y ecran Readtext
+PI_RtWx		rs.w	1		52- Position X
+PI_RtWy		rs.w	1		54- Position Y
+PI_RtSpeed	rs.w	1		56- Vitesse apparition
+; File selector
+; ~~~~~~~~~~~~
+PI_FsDSx	rs.w	1		58- Taille X fsel
+PI_FsDSy	rs.w	1		60- Taille Y fsel
+PI_FsDWx	rs.w	1		62- Position X
+PI_FsDWy	rs.w	1		64- Position Y
+PI_FsDVApp	rs.w	1		66- Vitesse app
+; Ecran par defaut
+; ~~~~~~~~~~~~~~~~
+PI_DefETx	rs.w	1
+PI_DefETy	rs.w	1
+PI_DefECo	rs.w	1
+PI_DefECoN	rs.w	1
+PI_DefEMo	rs.w	1
+PI_DefEBa	rs.w	1
+PI_DefEPa	rs.w	32
+		rs.l	8		Pour extension!
+;
+;		Fin de la zone configuration interpreteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+; __________________________
+;
+; 		Mode Escape
+; __________________________
+;
+Esc_TFonc	rs.l 	1
+Esc_Buf		rs.l 	1		
+Esc_KMem	rs.l	1
+Esc_KMemPos	rs.l	1
+Direct		rs.w 	1
+DirFlag		rs.w 	1
+EsFlag		rs.w 	1
+Es_LEd		rs.b	LEd_Size
+; _______________________
+;
+; 		Editeur
+; _______________________
+;
+
+; Pointeurs sur zones de chaines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ConfigHead	equ	"ApCf"
+Ed_QuitHead	equ	"ApLC"
+
+; Adresse des elements de configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Config	rs.l	1
+Ed_Systeme	rs.l	1		Ne pas changer l'ordre
+EdM_Messages	rs.l	1
+Ed_Messages	rs.l	1
+Ed_TstMessages	rs.l	1
+Ed_RunMessages	rs.l	1
+Ed_MnPrograms	rs.l	1
+EdM_User	rs.l	1
+EdM_Definition	rs.l	1
+
+
+; Donn�es normales
+; ~~~~~~~~~~~~~~~~
+Ed_Banks	rs.l	1
+Ed_Dialogs	rs.l	1
+
+Edt_List	rs.l	1
+Edt_Current	rs.l	1
+Edt_Runned	rs.l	1
+
+Ed_Prg2ReLoad	rs.l	1
+Ed_BankGrab	rs.w 	1
+Ed_BankFlag	rs.w 	1
+Ed_ZapCounter	rs.w	1
+Ed_ZapError	rs.w	1
+Ed_ZapMessage	rs.l	1
+Ed_ZapParam	rs.l	1
+Ed_ADialogues	rs.l	1
+Ed_VDialogues	rs.l	1
+Ed_DiaCopyD	rs.l	1
+Ed_DiaCopyC	rs.l	1
+
+EdMa_Changed	rs.b	1
+Ed_FUndo	rs.b	1
+Ed_SCallFlags	rs.b	1
+EdC_Changed	rs.b	1
+
+EdMa_Head	equ	"ApMa"
+EdMa_List	rs.l	1
+EdMa_Play	rs.l	1
+EdMa_Tape	rs.w	1
+EdMa_Change	rs.b	1
+Ed_CuFlag	rs.b	1
+
+Ed_AutoSaveRef	rs.l	1
+Ed_Avert	rs.w	1
+
+Ed_Ty		rs.w	1
+Ed_Block	rs.l	1
+Ed_BufE:	rs.l 	1	
+Ed_BufT:	rs.l 	1		
+Ed_WindowToDel	rs.l	1
+Ed_EtCps	rs.b 	1
+Ed_EtatAff	rs.b	1
+Ed_EtXX		rs.b	8	
+Ed_EtOCps	rs.b 	1
+EdC_Modified	rs.b	1
+Ed_MemoryX	rs.w	1
+Ed_MemorySx	rs.w	1
+
+Ed_Resource	rs.l	1
+
+Ed_ExtTitles	rs.l	26
+
+Ed_MKey		rs.b	1
+Ed_MkFl		rs.b	1
+Ed_MkIns	rs.b	1
+Ed_OMKey	rs.b	1
+Ed_BigView	rs.b	1
+Ed_LinkTokCur	rs.b	1
+
+Ed_MkCpt	rs.w	1
+Ed_WMax		rs.w	1
+Ed_SchLong	rs.b	1
+Ed_RepLong	rs.b 	1
+Ed_Opened	rs.b	1
+Ed_TstMesOn	rs.b	1
+
+Ed_NoAff	rs.b	1	
+Ed_Warm		rs.b	1
+Ed_Disk		rs.w	1
+Ed_FSel		rs.w	1
+
+Ed_SchBuf	rs.b 	34
+Ed_RepBuf	rs.b 	34
+
+EdM_Table	rs.l	1
+EdM_TableSize	rs.l	1
+EdM_TableAMOS	rs.l	1
+EdM_MenuAMOS	rs.l	1
+EdM_MessAMOS	rs.l	1
+EdM_PosHidden	rs.w	1
+EdM_Flag	rs.b	1
+		rs.b	1
+
+EdM_Copie	rs.b	Mn_ESave-Mn_SSave
+Ed_Boutons	rs.b	Bt_Long*14
+
+SlDelai		equ 	10		
+
+* ILLEGAL � enlever
+EdMarks:	equ 	__RS
+
+; Zone de sauvegarde de la config Editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DConfig	equ	__RS
+; Screen definition
+Ed_Sx		rs.w	1		
+Ed_Sy		rs.w	1
+Ed_Wx		rs.w	1
+Ed_Wy		rs.w	1
+Ed_VScrol	rs.w	1
+Ed_Inter	rs.b	1
+		rs.b	1
+; Colour back
+Ed_ColB		rs.w	1
+; Length UNDO
+Ed_LUndo	rs.l	1	
+Ed_NUndo	rs.l	1
+; Untok case
+DtkMaj1		rs.b	1	
+DtkMaj2		rs.b	1
+; Flags
+Ed_SvBak	rs.b	1
+EdM_Keys	rs.b	1
+Esc_KMemMax	rs.w	1
+; Colour palette
+Ed_Palette	rs.w	8
+; Escape mode positions
+Es_Y1		rs.w	1
+Es_Y2		rs.w	1
+; Security!
+		rs.l	7
+; Flags change within the editor
+Ed_AutoSave	rs.l	1	
+Ed_AutoSaveMn	rs.l	1	
+Ed_SchMode	rs.w 	1	
+Ed_Tabs		rs.w	1
+Esc_Output	rs.b	1
+Ed_QuitFlags	rs.b	1
+Ed_Insert	rs.b	1
+Ed_Sounds	rs.b	1
+
+; Programmes autoload
+; ~~~~~~~~~~~~~~~~~~~
+Ed_AutoLoad	rs.b	3*184
+; Touches par defaut
+; ~~~~~~~~~~~~~~~~~~
+Ed_KFonc	rs.b	3*184
+		rs.b	2
+Ed_FConfig	equ	__RS
+
+; Find de la config editeur		
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+********************************* Total data length
+DataLong:	equ __RS
+
+;	Flags banques
+; ~~~~~~~~~~~~~~~~~~~
+Bnk_BitData	equ	0		Banque de data
+Bnk_BitChip	equ	1		Banque en chip
+Bnk_BitBob	equ	2		Banque de Bobs
+Bnk_BitIcon	equ	3		Banque d'icons
+
+; _____________________________________________________________________________
+;
+;				 	D�finition d'un programme
+; _____________________________________________________________________________
+;
+
+		RsReset
+
+Prg_Next	rs.l	1		Prochain dans la liste
+
+Prg_NLigne:	rs.w 	1		Nombre de lignes
+
+Prg_StMini	rs.l	1		Buffer de stockage
+Prg_StTTexte	rs.l 	1	
+Prg_StHaut	rs.l 	1	
+Prg_StBas	rs.l 	1
+Prg_Banks	rs.l	1
+Prg_Dialogs	rs.l	1
+Prg_StModif	rs.b 	1		Listing modifie
+Prg_Change	rs.b	1		Sauver le programme
+Prg_Edited	rs.b	1		Une fenetre?
+Prg_NoNamed	rs.b	1		Numero de la structure
+Prg_Not1.3	rs.b	1		Compatible 1.3?
+		rs.b	1
+
+Prg_Previous	rs.l	1		Programme precedent
+Prg_RunData	rs.l	1		Donn�e si PRUN
+Prg_ZapData	rs.l	1
+Prg_AdEProc	rs.l 	1		Procedure d'erreur
+Prg_XEProc	rs.w 	1
+
+Prg_Undo	rs.l	1		Buffer undo
+Prg_PUndo	rs.l	1		Position dans buffer
+Prg_Marks	rs.l 	10		
+
+Prg_NamePrg	rs.b	128		Nom du programme
+Prg_Long	equ	__RS
+		
+
+; _____________________________________________________________________________
+;
+;				 	D�finition d'une edition
+; _____________________________________________________________________________
+;
+
+		RsReset
+Edt_Next	rs.l	1		Edition suivante
+Edt_Prg		rs.l	1		Adresse structure programme
+Edt_BufE	rs.l	1		Adresse buffer edition
+
+; Donn�es affichage
+Edt_Order	rs.w	1		Numero d'ordre dans l'affichage
+Edt_Window	rs.w	1		Numero des diverse zones / fenetres
+Edt_WindEtat	rs.w	1
+Edt_Zones	rs.w	1
+Edt_ZEtat	rs.w	1
+Edt_ZBas	rs.w	1
+
+Edt_X		rs.w	1		Coordonnees de la fenetre
+Edt_Y		rs.w	1
+Edt_Sy		rs.w	1
+Edt_WindX	rs.w	1
+Edt_WindY	rs.w	1
+Edt_WindSx	rs.w	1
+Edt_WindSy	rs.w	1
+Edt_WindTx	rs.w	1
+Edt_WindTy	rs.w	1
+Edt_WindOldTy	rs.w	1
+Edt_WindEX	rs.w	1
+Edt_WindEY	rs.w	1
+Edt_WindESx	rs.w	1
+Edt_BasY	rs.w	1
+Edt_EtMess	rs.w 	1		
+Edt_EtAlert	rs.l 	1		
+
+Edt_SInit	equ	__RS		Zone � remettre � zero
+Edt_SReload	equ	__RS
+Edt_SSplit	equ	__RS
+Edt_XPos	rs.w 	1		Positions texte dans fenetre
+Edt_YPos	rs.w 	1
+Edt_XCu		rs.w 	1		Positions curseur
+Edt_YCu		rs.w 	1
+Edt_DebProc	rs.l 	1
+Edt_CurLigne	rs.l 	1		Recherche
+Edt_LEdited	rs.w	1		Flag ligne editee
+Edt_EInit	equ	__RS
+Edt_EReload	equ	__RS
+Edt_ESplit	equ	__RS
+
+Edt_XBloc	rs.w	1		Position bloc
+Edt_YBloc	rs.w	1
+Edt_YOldBloc	rs.w	1
+
+Edt_LinkPrev	rs.l	1		Links de fenetre
+Edt_LinkNext	rs.l	1
+Edt_LinkScroll	rs.l	1
+Edt_LinkYOld	rs.w	1
+
+Edt_Hidden	rs.b	1		Fenetre cachee
+Edt_LinkFlag	rs.b	1		Fenetre linkee
+Edt_First	rs.b	1		Premiere fenetre affichee?
+Edt_Last	rs.b	1		Derniere fenetre affichee?
+Edt_EtatAff	rs.b	1		Flags ligne d'etat
+Edt_PrgDelete	rs.b	1		Programme � effacer en retour
+Edt_ASlY	rs.b	1		Compteur affichage slider
+		rs.b	1
+
+Edt_SlV		rs.b	Sl_Long		Structure slider
+Edt_Bt1		rs.b	Bt_Long		Structures bouton
+Edt_Bt2		rs.b	Bt_Long
+Edt_Bt3		rs.b	Bt_Long
+		rs.w	1
+Edt_Long	equ	__RS		Longueur de la structure
+
+;						Flags de la ligne d'etat
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EtA_Caps	equ	0
+EtA_Ins		equ	1
+EtA_X		equ	2
+EtA_Y		equ	3
+EtA_Nom		equ	4
+EtA_Free	equ	5
+EtA_Clw		equ	6
+EtA_Alert	equ	7
+EtA_BXY		equ	%00001100
+EtA_BAll	equ	%01111111
+
+;			AREXX
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+RC_OK			equ	0
+RC_WARN			equ	5
+RC_ERROR		equ	10
+RC_FATAL		equ	20
+RXCODEMASK		equ 	$FF000000
+RXCOMM			equ	$01000000
+RXFUNC			equ	$02000000
+RXFF_RESULT		equ	$00020000
+ra_Length		equ	4
+ra_Buff			equ	8
+rm_Result1		equ	$20
+rm_Result2		equ	$24
+rm_Sdtin		equ	$74
+rm_Sdout		equ	$78
+rm_Args			equ	$28
+rm_Action		equ	$1c
+
diff --git a/AMOS/Tutorial/Extensions/__uae____io_Ports_s b/AMOS/Tutorial/Extensions/__uae____io_Ports_s
new file mode 100644
index 0000000..ce957dc
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____io_Ports_s
@@ -0,0 +1,1029 @@
+
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; Serial / Parallel / Printer extension source code
+; By Fran�ois Lionet
+; AMOS, AMOSPro, AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOSPro V1.0 and over
+;--------------------------------------------------------------------- 
+; This file is public domain
+;---------------------------------------------------------------------
+;
+; Please refer to the _Music.s file for more informations...
+;
+;---------------------------------------------------------------------
+
+Version		MACRO
+		dc.b	"1.0"
+		ENDM
+
+
+* AMIGA's includes
+		INCDIR		":Includes/I/"
+		INCLUDE		"Exec/Types.I"
+		INCLUDE		"Exec/Exec.I"
+		INCLUDE 	"Devices/Serial.I"
+		INCLUDE		"Devices/PrtBase.I"
+		INCLUDE		"Devices/Printer.I"
+		INCLUDE		"Devices/PrtGfx.I"
+		INCLUDE		"Devices/Parallel.I"
+
+*************** AMOS includes
+ExtNb		equ	6-1
+
+		Include	"|AMOS_Includes.s"
+
+Dlea		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\2
+		add.w	#\1-DT,\2
+		ENDM
+Dload		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\1
+		ENDM
+
+* Number of serial channels allowed
+NSerial		equ	4
+
+******************************************************************
+*	Header
+Start	dc.l	C_Tk-C_Off
+	dc.l	C_Lib-C_Tk
+	dc.l	C_Title-C_Lib
+	dc.l	C_End-C_Title
+	dc.w	0	
+
+******************************************************************
+*	Offsets to library
+C_Off   dc.w (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
+        dc.w (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
+        dc.w (L9-L8)/2,(L10-L9)/2,(L11-L10)/2,(L12-L11)/2
+        dc.w (L13-L12)/2,(L14-L13)/2,(L15-L14)/2,(L16-L15)/2
+        dc.w (L17-L16)/2,(L18-L17)/2,(L19-L18)/2,(L20-L19)/2
+        dc.w (L21-L20)/2,(L22-L21)/2,(L23-L22)/2,(L24-L23)/2
+        dc.w (L25-L24)/2,(L26-L25)/2,(L27-L26)/2,(L28-L27)/2
+        dc.w (L29-L28)/2,(L30-L29)/2,(L31-L30)/2,(L32-L31)/2
+        dc.w (L33-L32)/2,(L34-L33)/2,(L35-L34)/2,(L36-L35)/2
+        dc.w (L37-L36)/2,(L38-L37)/2,(L39-L38)/2,(L40-L39)/2
+        dc.w (L41-L40)/2,(L42-L41)/2,(L43-L42)/2,(L44-L43)/2
+        dc.w (L45-L44)/2,(L46-L45)/2,(L47-L46)/2,(L48-L47)/2
+        dc.w (L49-L48)/2,(L50-L49)/2,(L51-L50)/2,(L52-L51)/2
+        dc.w (L53-L52)/2,(L54-L53)/2,(L55-L54)/2,(L56-L55)/2
+        dc.w (L57-L56)/2,(L58-L57)/2,(L59-L58)/2,(L60-L59)/2
+        dc.w (L61-L60)/2,(L62-L61)/2,(L63-L62)/2,(L64-L63)/2
+        dc.w (L65-L64)/2,(L66-L65)/2,(L67-L66)/2,(L68-L67)/2
+        dc.w (L69-L68)/2,(L70-L69)/2,(L71-L70)/2,(L72-L71)/2
+
+******************************************************************
+*	TOKEN TABLE
+C_Tk	dc.w 	1,0
+	dc.b 	$80,-1
+	dc.w	L_SerOp2,-1
+	dc.b	"!serial ope","n"+$80,"I0,0",-2
+	dc.w	L_SerOp5,-1
+	dc.b	$80,"I0,0,0,0,0",-1
+	dc.w	L_SerClo0,-1
+	dc.b	"!serial clos","e"+$80,"I",-2
+	dc.w	L_SerClo1,-1
+	dc.b	$80,"I0",-1
+	dc.w	L_SerSp,-1
+	dc.b	"serial spee","d"+$80,"I0,0",-1
+	dc.w	-1,L_SerChk
+	dc.b	"serial chec","k"+$80,"00",-1
+	dc.w 	L_SerSend,-1
+	dc.b	"serial sen","d"+$80,"I0,2",-1
+	dc.w 	L_SerSp,-1
+	dc.b	"serial spee","d"+$80,"I0,0",-1
+	dc.w 	L_SerBit,-1
+	dc.b	"serial bit","s"+$80,"I0,0,0",-1
+	dc.w 	L_SerX,-1
+	dc.b	"serial ","x"+$80,"I0,0",-1
+	dc.w 	L_SerBuf,-1
+	dc.b	"serial bu","f"+$80,"I0,0",-1
+	dc.w 	L_SerPar,-1
+	dc.b	"serial parit","y"+$80,"I0,0",-1
+	dc.w	-1,L_SerGet
+	dc.b	"serial ge","t"+$80,"00",-1
+	dc.w	-1,L_SerInp
+	dc.b	"serial input","$"+$80,"20",-1
+	dc.w	L_SerFast,-1
+	dc.b	"serial fas","t"+$80,"I0",-1
+	dc.w	L_SerSlow,-1
+	dc.b	"serial slo","w"+$80,"I0",-1
+	dc.w	-1,L_SerE
+	dc.b	"serial erro","r"+$80,"00",-1
+	dc.w	L_SerOut,-1
+	dc.b	"serial ou","t"+$80,"I0,0,0",-1
+	dc.w	-1,L_SerStatus
+	dc.b	"serial statu","s"+$80,"00",-1
+	dc.w	-1,L_SerBase
+	dc.b	"serial bas","e"+$80,"00",-1
+	dc.w	L_SerAbort,-1
+	dc.b	"serial abor","t"+$80,"I0",-1
+	
+; Printer commands
+; ~~~~~~~~~~~~~~~~
+	dc.w   	L_PrtOpen,-1
+	dc.b	"printer ope","n"+$80,"I",-1
+	dc.w	L_PrtClose,-1
+	dc.b	"printer clos","e"+$80,"I",-1
+	dc.w	L_PrtSend,-1
+	dc.b	"printer sen","d"+$80,"I2",-1
+	dc.w	L_PrtRaw,-1
+	dc.b	"printer ou","t"+$80,"I0,0",-1
+	dc.w	L_PrtDump1,-1
+	dc.b	"!printer dum","p"+$80,"I0",-2	
+	dc.w	L_PrtDump2,-1
+	dc.b	$80,"I0,0t0,0",-2 
+	dc.w	L_PrtDump3,-1
+	dc.b	$80,"I0,0t0,0,0,0,0",-1	
+	dc.w	L_PrtAbort,-1
+	dc.b	"printer abor","t"+$80,"I",-1
+	dc.w	-1,L_PrtCheck
+	dc.b 	"printer chec","k"+$80,"0",-1
+	dc.w	-1,L_PrtOnLine
+	dc.b	"printer onlin","e"+$80,"0",-1
+	dc.w	-1,L_PrtBase
+	dc.b	"printer bas","e"+$80,"0",-1
+	dc.w	-1,L_PrtError
+	dc.b	"printer erro","r"+$80,"0",-1
+; Parallel commands
+; ~~~~~~~~~~~~~~~~~
+	dc.w   	L_ParOpen,-1
+	dc.b	"parallel ope","n"+$80,"I",-1
+	dc.w	L_ParClose,-1
+	dc.b	"parallel clos","e"+$80,"I",-1
+	dc.w	L_ParSend,-1
+	dc.b	"parallel sen","d"+$80,"I2",-1
+	dc.w	L_ParRaw,-1
+	dc.b	"parallel ou","t"+$80,"I0,0",-1
+	dc.w	L_ParAbort,-1
+	dc.b	"parallel abor","t"+$80,"I",-1
+	dc.w	-1,L_ParCheck
+	dc.b 	"parallel chec","k"+$80,"0",-1
+	dc.w	-1,L_ParStatus
+	dc.b	"parallel statu","s"+$80,"0",-1
+	dc.w	-1,L_ParBase
+	dc.b	"parallel bas","e"+$80,"0",-1
+	dc.w	-1,L_ParError
+	dc.b	"parallel erro","r"+$80,"0",-1
+	dc.w	-1,L_ParInput1
+	dc.b	"!parallel input","$"+$80,"20",-2
+	dc.w	-1,L_ParInput2
+	dc.b	$80,"20,0",-2
+
+	dc.w	0
+C_Lib
+
+******************************************************************
+*		COLD START
+L0	movem.l	a3-a6,-(sp)
+	lea	DT(pc),a3
+	move.l	a3,ExtAdr+ExtNb*16(a5)
+	lea	SerDef(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+4(a5)
+	lea	SerEnd(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+8(a5)
+	movem.l	(sp)+,a3-a6
+	moveq	#ExtNb,d0		* NO ERRORS
+	rts
+
+******* SCREEN RESET
+SerDef	
+******* QUIT
+SerEnd	Rbsr	L_SCloseA
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.Close
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.Close
+	rts
+
+*************** Data zone
+DT
+SerialIO	ds.l	3*NSerial	Serial IO Port
+PrinterIO	ds.l	3		Printer IO Port
+ParallelIO	ds.l	3		Parallel IO Port
+BufIn		dc.l	0
+Prt_Query	dc.l	0		Espace pour informations
+
+; Screen Dump
+; ~~~~~~~~~~~
+width:		dc.w	0
+height:		dc.w	0
+viewModes	dc.w	0
+depth:		dc.w	0
+screen		dc.l	0
+vPort		dc.l	0
+rPort		dc.l	0
+colourmap	dc.l	0
+oldCtable	dc.l	0
+special		dc.w	$84
+srcX		dc.w	0
+srcY		dc.w	0
+pwidth		dc.w	0
+pheight		dc.w	0
+temp1		dc.w	0
+temp2		dc.w	0
+destCols	dc.l	0
+destRows	dc.l	0
+ScreenBase:	dc.l 	0
+
+; Nom des devices
+; ~~~~~~~~~~~~~~~
+SerName		dc.b	"serial.device",0
+PrtName		dc.b	"printer.device",0
+ParName		dc.b	"parallel.device",0
+		even
+
+L1
+L2
+
+***********************************************************
+*	OPEN SERIAL DEVICE
+
+******* Seropen logicnumber,physicnumber[,shared,xdisabled,7wires]	
+L_SerOp2	equ	3
+L3	clr.l	-(a3)
+	clr.l	-(a3)
+	clr.l	-(a3)
+	Rbra	L_SerOp5
+L_SerOp5	equ	4
+L4	move.l	16(a3),d0
+	Rbsr	L_GetSerial
+; Opening parameters
+	move.w	#IO_SERFLAGS,d5
+	swap	d5
+	clr.w	d5
+	tst.l	(a3)+
+	beq.s	SerOpA
+	bset	#SERB_7WIRE,d5
+SerOpA	bset	#SERB_XDISABLED,d5
+	tst.l	(a3)+
+	beq.s	SerOpB
+	bclr	#SERB_XDISABLED,d5
+SerOpB  tst.l	(a3)+
+	beq.s	SerOpC
+	bset	#SERB_SHARED,d5
+SerOpC	Dlea	SerName,a0
+	moveq	#IOEXTSER_SIZE,d0
+	move.l	(a3),d1
+	moveq	#0,d2
+	move.w	#145,d3
+	moveq	#16,d4
+	Rjsr	L_Dev.Open
+	move.l	(a3)+,d0
+	addq.l	#4,a3
+	beq.s	.PaSet
+* If NOT user-serial (#0),
+* default settings for French MINITEL: 1200/7/1 Stop/EVEN parity
+	move.l	(a2),a1
+	move.l	#1200,IO_BAUD(a1)
+	move.b	#7,IO_READLEN(a1)
+	move.b	#7,IO_WRITELEN(a1)
+	move.b	#1,IO_STOPBITS(a1)
+	bset	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	bset	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bclr	#SERB_PARTY_ODD,IO_SERFLAGS(a1)
+	bclr	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bclr	#SEXTB_MARK,IO_EXTFLAGS+3(a1)
+* Appelle le device au moins une fois! BUG!
+.PaSet	move.l	(a2),a1
+	Rbra	L_Stpar
+
+***********************************************************
+*	Serclose [N]
+L_SerClo1	equ	5
+L5	move.l	(a3)+,d0
+	Rbsr	L_GetSerial
+	Rjmp	L_Dev.Close
+;-----> Close ALL channels
+L_SerClo0	equ	6	
+L_SCloseA	equ	6
+L6	Dlea	SerialIO,a2
+	moveq	#NSerial-1,d2
+SCloA1	Rjsr	L_Dev.Close
+	lea	12(a2),a2
+	dbra	d2,SCloA1
+	rts
+L7	
+
+***********************************************************
+*	Serial Send ser,A$
+L_SerSend	equ	8
+L8	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d2,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	Rbeq	L_IFonc
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.SendIO
+***********************************************************
+*	Serial Out ser,address,length
+L_SerOut	equ	9
+L9	move.l	(a3)+,d2
+	Rbmi	L_IFonc
+	Rbeq	L_IFonc
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d1,IO_DATA(a1)
+	move.l	d2,IO_LENGTH(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.SendIO
+***********************************************************
+*	=Serial Get(ser)
+L_SerGet	equ	10
+L10	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.w	#SDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#-1,d3
+	move.l	IO_ACTUAL(a1),d0
+	beq.s	SerINo
+	Dlea	BufIn,a0
+	move.l	a0,IO_DATA(a1)
+	move.l	#1,IO_LENGTH(a1)
+	moveq	#CMD_READ,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#0,d3
+	Dlea	BufIn,a0
+	move.b	(a0),d3
+SerINo	moveq	#0,d2
+	rts
+***********************************************************
+*	=Serial Input$(Ser) 
+L_SerInp	equ	11
+L11	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	moveq	#SDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	move.l	IO_ACTUAL(a1),d4
+	beq.s	SInpNo
+	cmp.l	#65530,d4
+	Rbcc	L_IFonc
+* Ask for string space...
+	movem.l	a1/a2,-(sp)
+	move.l	d4,d3
+	and.w	#$FFFE,d3		* Only EVEN!
+	addq.w	#2,d3
+	Rjsr	L_Demande
+	lea	2(a1,d3.w),a1
+	move.l	a1,HiChaine(a5)
+* Send to device...
+	movem.l	(sp)+,a1/a2
+	move.l	a0,d3
+	move.w	d4,(a0)+
+	move.l	a0,IO_DATA(a1)
+	move.l	d4,IO_LENGTH(a1)
+	moveq	#CMD_READ,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#2,d2
+	rts
+* Nothing to return
+SInpNo	move.l	ChVide(a5),d3		* Empty string
+	moveq	#2,d2
+	rts
+
+***********************************************************
+*	Serial Speed ser,baud
+L_SerSp		equ	12
+L12	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d1,IO_BAUD(a1)
+	Rbra	L_Stpar
+L_Stpar		equ	13
+L13	moveq	#SDCMD_SETPARAMS,d0
+	Rjmp	L_Dev.DoIO
+***********************************************************
+*	Serial Bit ser,number,stop
+L_SerBit	equ	14
+L14	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.b	d1,IO_READLEN(a1)
+	move.b	d1,IO_WRITELEN(a1)
+	move.b	d2,IO_STOPBITS(a1)
+	Rbra	L_Stpar
+***********************************************************
+*	Serial Parity ser,on/off/odd/even/mspon
+L_SerPar	equ	15
+L15	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	bclr	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bclr	#SERB_PARTY_ODD,IO_SERFLAGS(a1)
+	bclr	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bclr	#SEXTB_MARK,IO_EXTFLAGS+3(a1)
+; -1-> NO PARITY
+	tst.w	d1
+	bmi.s	.parX
+; 0--> EVEN
+	bne.s	.par1
+	bset	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bra.s	.parX
+; 1--> ODD
+.par1	cmp.w	#1,d1
+	bne.s	.par2
+	bset	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bset	#SERB_PARTY_ODD,IO_SERFLAGS(a1)
+	bra.s	.parX
+; 2--> SPACE
+.par2	cmp.w	#2,d1
+	bne.s	.par3
+	bset	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bra.s	.parX
+; 3--> MARK
+.par3	cmp.w	#3,d1
+	bne.s	.parX
+	bset	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bset	#SEXTB_MARK,IO_EXTFLAGS+3(a1)
+; Envoie
+.parX	Rbra	L_Stpar	
+**********************************************************
+*	Serial X ser,value
+L_SerX		equ	16
+L16	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	bset	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	cmp.l	#-1,d1
+	Rbeq	L_Stpar
+	bclr	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	move.l	d1,IO_CTLCHAR(a1)
+	Rbra	L_Stpar
+**********************************************************
+*	Serial Buffer ser,length
+L_SerBuf	equ	17
+L17	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d1,IO_RBUFLEN(a1)
+	Rbra	L_Stpar
+**********************************************************
+*	Serial Fast ser
+L_SerFast	equ	18
+L18	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	bclr	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bclr	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bset	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	move.b	#8,IO_READLEN(a1)
+	move.b	#8,IO_WRITELEN(a1)
+	bset	#SERB_RAD_BOOGIE,IO_SERFLAGS(a1)
+	Rbra	L_Stpar
+**********************************************************
+*	Serial Slow Ser
+L_SerSlow	equ	19
+L19	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	bclr	#SERB_RAD_BOOGIE,IO_SERFLAGS(a1)
+	Rbra	L_Stpar
+**********************************************************
+*	=Serial Check(N)
+L_SerChk	equ	20
+L20	move.l	(a3)+,d0
+	Rbsr	L_GetSerial
+	Rjsr	L_Dev.CheckIO
+	move.l	d0,d3
+	beq.s	SerChk1
+	moveq	#-1,d3
+SerChk1	moveq	#0,d2	
+	rts
+**********************************************************
+*	=Serial Error(n)
+L_SerE		equ	21
+L21	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	moveq	#0,d3
+	move.b	IO_ERROR(a1),d3
+	moveq	#0,d2
+	rts
+
+**********************************************************
+*	=Serial Status(n)
+L_SerStatus	equ	22
+L22	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	moveq	#SDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#0,d3
+	move.l	(a2),a1
+	move.w	IO_STATUS(a1),d3
+	moveq	#0,d2
+	rts
+
+**********************************************************
+*		=SERIAL BASE
+L_SerBase	equ	23	
+L23	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	a1,d3
+	moveq	#0,d2	
+	rts
+
+;-----> IO #D0 to A1/a2
+L_GetSerA1	equ	24
+L24	Rbsr	L_GetSerial
+	Rjmp	L_Dev.GetIO
+;-----> Find IO address > D0
+L_GetSerial	equ	25
+L25	cmp.l	#NSerial,d0
+	Rbcc	L_IFonc
+	mulu	#12,d0
+	Dlea	SerialIO,a2
+	add.w	d0,a2
+	rts
+
+*********************************************************************
+*		SERIAL ABORT channel
+L_SerAbort	equ	26
+L26	move.l	(a3)+,d0
+	Rbsr	L_GetSerial
+	Rjmp	L_Dev.AbortIO
+
+L27
+L28
+*********************************************************************
+*	ERRORS
+L_IFonc		equ	29
+L29	moveq	#23,d0			* Illegal function call
+	Rjmp	L_Error
+L30	
+L31
+L32
+
+**********************************************************
+*		=PRINTER BASE
+L_PrtBase	equ	33
+L33	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	a1,d3
+	moveq	#0,d2	
+	rts
+**********************************************************
+*		=PRINTER CHECK
+L_PrtCheck	equ	34
+L34	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.CheckIO
+	move.l	d0,d3
+	beq.s	PrtChk1
+	moveq	#-1,d3
+PrtChk1	moveq	#0,d2	
+	rts
+
+*********************************************************************
+*		PRINTER OPEN
+L_PrtOpen	equ	35
+L35	Dlea	PrtName,a0
+	Dlea	PrinterIO,a2
+	moveq	#64,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	move.w	#161,d3		Premier message erreurs
+	moveq	#7,d4		7 messages
+	moveq	#0,d5
+	Rjmp	L_Dev.Open
+
+*********************************************************************
+*		PRINTER CLOSE
+L_PrtClose	equ	36
+L36	Dlea	PrinterIO,a2
+	Rjmp	L_Dev.Close
+
+*********************************************************************
+*		=PRINTER ERROR
+L_PrtError	equ	37
+L37	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	moveq	#0,d3
+	move.b	IO_ERROR(a1),d3
+	moveq	#0,d2
+	rts
+
+***********************************************************
+*		PRINTER SEND A$
+L_PrtSend	equ	38
+L38	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	Rbeq	L_IFonc
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.SendIO
+
+***********************************************************
+*		PRINTER SENDRAW ad,lenght
+L_PrtRaw	equ	39
+L39	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	(a3)+,d0
+	Rbeq	L_IFonc
+	move.l	(a3)+,a0
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#PRD_RAWWRITE,d0
+	Rjmp	L_Dev.SendIO
+
+*********************************************************************
+*		PRINTER ABORT
+L_PrtAbort	equ	40
+L40	Dlea	PrinterIO,a2
+	Rjmp	L_Dev.AbortIO
+
+*********************************************************************
+*		=PRINTER ONLINE
+L_PrtOnLine	equ	41
+L41	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	Dlea	Prt_Query,a0
+	move.l	a0,IO_DATA(a1)
+	moveq	#PRD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	Dlea	Prt_Query,a0
+	moveq	#0,d3
+	move.l	(a2),a1
+	cmp.l	#1,IO_ACTUAL(a1)
+	bne.s	.Skip
+	btst	#0,(a0)
+	bne.s	.Skip
+	moveq	#-1,d3
+.Skip	moveq	#0,d2
+	rts
+
+*********************************************************************
+*		PRINTER DUMP
+
+; No parameters
+; ~~~~~~~~~~~~~
+L_PrtDump1	equ	42
+L42	Dload	a2
+	Rbsr	L_GetScr
+	move.w	width-DT(a2),pwidth-DT(a2)
+	move.w	height-DT(a2),pheight-DT(a2)
+	move.l	#0,destCols-DT(a2)
+	move.l	#0,destRows-DT(a2)
+	move.w	#$8c,special-DT(a2)	; ASPECT | FULLROWS | FULLCOLS
+	Rbra	L_Dump
+
+; Four parameters
+; ~~~~~~~~~~~~~~~
+L_PrtDump2	equ	43
+L43	Dload	a2
+	Rbsr	L_Dump2a
+	
+; Calculate proportional DestX, DestY
+	clr.l	d0
+	clr.l	d1
+	move.w	pwidth-DT(a2),d0
+	tst.w	d0
+	Rbeq	L_IFonc	
+	move.w	width-DT(a2),d1
+	divu.w	d0,d1
+	tst.w	d1
+	Rbeq	L_IFonc
+	lea	destCols-DT(a2),a0
+	move.l	#$ffff,d0
+	divu.w	d1,d0
+	move.l	d0,(a0)
+	andi.l	#$ffff,(a0)
+	move.l	#$10,d1
+	move.l	(a0),d0
+	rol.l	d1,d0
+	move.l	d0,(a0)
+
+	clr.l	d0
+	clr.l	d1
+	move.w	pheight-DT(a2),d0
+	tst.w	d0
+	Rbeq	L_IFonc
+	move.w	height-DT(a2),d1
+	divu.w	d0,d1
+	tst.w	d1
+	Rbeq	L_IFonc
+	lea	destRows-DT(a2),a0
+	move.l	#$ffff,d0
+	divu.w	d1,d0
+	move.l	d0,(a0)
+	andi.l	#$ffff,(a0)
+	move.l	#$10,d1
+	move.l	(a0),d0
+	rol.l	d1,d0
+	move.l	d0,(a0)
+	lea	special-DT(a2),a0
+	move.w	#$b0,(a0)
+	Rbra 	L_Dump
+
+; Tous les parametres
+; ~~~~~~~~~~~~~~~~~~~
+L_PrtDump3	equ	44
+L44	movem.l	a4-a6,-(sp)
+	Dload	a2
+	Rbsr	L_Dump3a
+	Rbra	L_Dump
+
+; DUMP Routines...
+; ~~~~~~~~~~~~~~~~
+L_Dump3a	equ	45
+L45	lea	special-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; special
+	lea	destRows-DT(a2),a0
+	move.l	(a3)+,(a0)		; destY
+	lea	destCols-DT(a2),a0
+	move.l	(a3)+,(a0)		; destY
+	Rbra	L_Dump2a
+L_Dump2a	equ	46
+L46	lea	pheight-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; bottom y
+	lea	pwidth-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; bottom x
+	lea	srcY-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; srcy
+	lea	srcX-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; srcx
+	Rbsr	L_GetScr
+; get srcX,Y back
+	move.w	srcX-DT(a2),d0
+	move.w	srcY-DT(a2),d1
+; calculate width, height
+	neg.w	d0
+	neg.w	d1
+	lea	pwidth-DT(a2),a0
+	add.w	d0,(a0)			; width = -srcX+bottomX
+	lea	pheight-DT(a2),a0
+	add.w	d1,(a0)			; height = -srcY+bottomY
+	rts
+; Do the screen dump
+; ~~~~~~~~~~~~~~~~~~
+L_Dump		equ	47
+L47	
+; Initialise colour map
+	moveq	#32,d0
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-570(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq	cl5
+	move.l	d0,colourmap-DT(a2)
+	move.l	d0,a0
+	moveq	#0,d0
+	move.l	ScreenBase-DT(a2),a1
+	lea	EcPal(a1),a1
+.loop	move.w	(a1)+,d1
+	move.w	d1,d3
+	and.w	#$f,d3
+	lsr.w	#4,d1
+	move.w	d1,d2
+	and.w	#$f,d2
+	lsr.w	#4,d1
+	movem.l	d0/a0-a1/a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-$276(a6)
+	movem.l	(sp)+,d0/a0-a1/a6
+	addq.w	#1,d0
+	cmp.w	#32,d0
+	bne.s	.loop
+
+; Dump the rast port!!!
+	move.l	PrinterIO-DT(a2),a1
+	move.w	#11,28(a1)		; command
+	move.l	T_RastPort(a5),32(a1)	; rastPort
+	move.l	colourmap-DT(a2),36(a1)	; colourmap
+	move.w	viewModes-DT(a2),40+2(a1)	; viewmodes
+	move.w	srcX-DT(a2),44(a1)	; srcX
+	move.w	srcY-DT(a2),46(a1)	; srcY
+	move.w	pwidth-DT(a2),48(a1)	; srcWidth
+	move.w	pheight-DT(a2),50(a1)	; srcHeight
+	move.l	destCols-DT(a2),52(a1)	; destCols
+	move.l	destRows-DT(a2),56(a1)	; destRows
+	move.w	special-DT(a2),60(a1)	; special
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOSendIO(a6)		; Do it!!!! (at last)
+	move.l	(sp)+,a6
+	move.w	d0,-(sp)
+
+; Free colour map
+cl8	move.l	colourmap-DT(a2),a0
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-576(a6)		; Free colourmap
+	move.l	(sp)+,a6
+cl5
+; Return to the user
+	move.w	(sp)+,d0
+	bne.s	.Err
+	rts
+; Error
+.Err	Rjmp	L_Dev.Error
+
+; Return informations about the current screen
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_GetScr	equ	48
+L48	move.l	ScOnAd(a5),d0	
+	beq.s	.Err				; get the address of the screen 
+	move.l	d0,a0
+	move.l 	a0,ScreenBase-DT(a2)
+; Now we need to extract all the information about the screen
+	move.w	EcTx(a0),width-DT(a2)		; width
+	move.w	EcTy(a0),height-DT(a2)		; height
+	move.w	EcCon0(a0),d0
+	and.w	#%1000100010000100,d0		; Hires / HAM / DualPF / Halfbrite
+	move.w	d0,viewModes-DT(a2)		; View Modes
+	move.w	EcNPlan(a0),depth-DT(a2)	; depth
+	rts
+.Err	moveq	#47,d0				; Screen not opened
+	Rjmp	L_Error
+
+L49
+L50
+L51
+L52
+**********************************************************
+*		=PARALLEL BASE
+L_ParBase	equ	53
+L53	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	a1,d3
+	moveq	#0,d2	
+	rts
+
+**********************************************************
+*		=PARALLEL CHECK
+L_ParCheck	equ	54
+L54	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.CheckIO
+	move.l	d0,d3
+	beq.s	ParChk1
+	moveq	#-1,d3
+ParChk1	moveq	#0,d2	
+	rts
+
+*********************************************************************
+*		PARALLEL OPEN
+L_ParOpen	equ	55
+L55	Dlea	ParName,a0
+	Dlea	ParallelIO,a2
+	moveq	#62,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	move.w	#171,d3		Premier message erreurs
+	moveq	#7,d4		7 messages
+	moveq	#0,d5
+	Rjmp	L_Dev.Open
+
+*********************************************************************
+*		PARALLEL CLOSE
+L_ParClose	equ	56
+L56	Dlea	ParallelIO,a2
+	Rjmp	L_Dev.Close
+
+*********************************************************************
+L57
+
+***********************************************************
+*		PARALLEL SEND A$
+L_ParSend	equ	58
+L58	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	Rbeq	L_IFonc
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.DoIO
+
+***********************************************************
+*		PARALLEL SENDRAW ad,lenght
+L_ParRaw	equ	59
+L59	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	(a3)+,d0
+	Rbeq	L_IFonc
+	move.l	(a3)+,a0
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#PRD_RAWWRITE,d0
+	Rjmp	L_Dev.DoIO
+
+*********************************************************************
+*		PARALLEL ABORT
+L_ParAbort	equ	60
+L60	Dlea	ParallelIO,a2
+	Rjmp	L_Dev.AbortIO
+
+*********************************************************************
+*		=PARALLEL STATUS
+L_ParStatus	equ	61
+L61	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	moveq	#PDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#0,d3
+	move.l	(a2),a1
+	move.b	$34(a1),d3
+	moveq	#0,d2
+	rts
+
+*********************************************************************
+*		=PARALLEL ERROR
+L_ParError	equ	62
+L62	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	moveq	#0,d3
+	move.l	(a2),a1
+	move.b	IO_ERROR(a1),d3
+	moveq	#0,d2
+	rts
+
+*********************************************************************
+*		=PARALLEL INPUT$(long[,stop])
+L_ParInput1	equ	63
+L63	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	bclr	#PARB_EOFMODE,IO_PARFLAGS(a1)
+	Rbra	L_ParInput
+L_ParInput2	equ	64
+L64	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	(a3)+,d3
+	bset	#PARB_EOFMODE,IO_PARFLAGS(a1)
+	beq.s	.Set
+	cmp.b	IO_PTERMARRAY(a1),d3
+	beq.s	.Skip
+.Set	moveq	#7,d0
+	lea	IO_PTERMARRAY(a1),a0
+.Loop	move.b	d3,(a0)+
+	dbra	d0,.Loop
+	moveq	#PDCMD_SETPARAMS,d0
+	Rjsr	L_Dev.DoIO
+.Skip	Rbra	L_ParInput
+; Appel
+L_ParInput	equ	65
+L65	move.l	(a3)+,d4
+	Rble	L_IFonc
+	cmp.l	#65000,d4
+	Rbcc	L_IFonc
+* Ask for string space...
+	movem.l	a1/a2,-(sp)
+	move.l	d4,d3
+	and.l	#$FFFE,d3
+	addq.w	#2,d3
+	Rjsr	L_Demande
+	lea	2(a1,d3.w),a1
+	move.l	a1,HiChaine(a5)
+	movem.l	(sp)+,a1/a2
+* Send to device...
+	move.l	a0,d3
+	move.w	d4,(a0)+
+	move.l	a0,IO_DATA(a1)
+	move.l	d4,IO_LENGTH(a1)
+	moveq	#CMD_READ,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#2,d2
+	rts
+
+L66
+L67
+L68
+L69
+
+**********************************************************************
+*	SPACE FOR ERROR ROUTINES...
+L70
+L71
+L72
+*********************************************************************
+
+******* TITLE MESSAGE
+C_Title	dc.b	"AMOSPro IO Devices Extension V "
+	Version
+	dc.b	0,"$VER: "
+	Version
+	dc.b	0
+	Even
+
+******* END OF THE EXTENSION
+C_End	dc.w	0
+	even
diff --git a/AMOS/Tutorial/Extensions/__uae____liboffsets_s b/AMOS/Tutorial/Extensions/__uae____liboffsets_s
new file mode 100644
index 0000000..51c59a8
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____liboffsets_s
@@ -0,0 +1,460 @@
+***********************************************************
+*
+*		Amiga library offsets
+*
+***********************************************************
+
+FUNCSTART	Macro
+LibPointer	set 	-$1e
+		EndM
+
+FUNCDEF		Macro
+_LVO\1		equ	LibPointer
+LibPointer	set	LibPointer-6
+		EndM
+*
+* Exec
+		FUNCSTART
+		FUNCDEF	Supervisor
+		FUNCDEF	ExitIntr
+		FUNCDEF	Schedule
+		FUNCDEF	Reschedule
+		FUNCDEF	Switch
+		FUNCDEF	Dispatch
+		FUNCDEF	Exception
+		FUNCDEF	InitCode
+		FUNCDEF	InitStruct
+		FUNCDEF	MakeLibrary
+		FUNCDEF	MakeFunctions
+		FUNCDEF	FindResident
+		FUNCDEF	InitResident
+		FUNCDEF	Alert
+		FUNCDEF	Debug
+		FUNCDEF	Disable
+		FUNCDEF	Enable
+		FUNCDEF	Forbid
+		FUNCDEF	Permit
+		FUNCDEF	SetSR
+		FUNCDEF	SuperState
+		FUNCDEF	UserState
+		FUNCDEF	SetIntVector
+		FUNCDEF	AddIntServer
+		FUNCDEF	RemIntServer
+		FUNCDEF	Cause
+		FUNCDEF	Allocate
+		FUNCDEF	Deallocate
+		FUNCDEF	AllocMem
+		FUNCDEF	AllocAbs
+		FUNCDEF	FreeMem
+		FUNCDEF	AvailMem
+		FUNCDEF	AllocEntry
+		FUNCDEF	FreeEntry
+		FUNCDEF	Insert
+		FUNCDEF	AddHead
+		FUNCDEF	AddTail
+		FUNCDEF	Remove
+		FUNCDEF	RemHead
+		FUNCDEF	RemTail
+		FUNCDEF	Enqueue
+		FUNCDEF	FindName
+		FUNCDEF	AddTask
+		FUNCDEF	RemTask
+		FUNCDEF	FindTask
+		FUNCDEF	SetTaskPri
+		FUNCDEF	SetSignal
+		FUNCDEF	SetExcept
+		FUNCDEF	Wait
+		FUNCDEF	Signal
+		FUNCDEF	AllocSignal
+		FUNCDEF	FreeSignal
+		FUNCDEF	AllocTrap
+		FUNCDEF	FreeTrap
+		FUNCDEF	AddPort
+		FUNCDEF	RemPort
+		FUNCDEF	PutMsg
+		FUNCDEF	GetMsg
+		FUNCDEF	ReplyMsg
+		FUNCDEF	WaitPort
+		FUNCDEF	FindPort
+		FUNCDEF	AddLibrary
+		FUNCDEF	RemLibrary
+		FUNCDEF	OldOpenLibrary
+		FUNCDEF	CloseLibrary
+		FUNCDEF	SetFunction
+		FUNCDEF	SumLibrary
+		FUNCDEF	AddDevice
+		FUNCDEF	RemDevice
+		FUNCDEF	OpenDevice
+		FUNCDEF	CloseDevice
+		FUNCDEF	DoIO
+		FUNCDEF	SendIO
+		FUNCDEF	CheckIO
+		FUNCDEF	WaitIO
+		FUNCDEF	AbortIO
+		FUNCDEF	AddResource
+		FUNCDEF	RemResource
+		FUNCDEF	OpenResource
+		FUNCDEF	RawIOInit
+		FUNCDEF	RawMayGetChar
+		FUNCDEF	RawPutChar
+		FUNCDEF	RawDoFmt
+		FUNCDEF	GetCC
+		FUNCDEF	TypeOfMem
+		FUNCDEF	Procure
+		FUNCDEF	Vacate
+		FUNCDEF	OpenLibrary
+		FUNCDEF	InitSemaphore
+		FUNCDEF	ObtainSemaphore
+		FUNCDEF	ReleaseSemaphore
+		FUNCDEF	AttemptSemaphore
+		FUNCDEF	ObtainSemaphoreList
+		FUNCDEF	ReleaseSemaphoreList
+		FUNCDEF	FindSemaphore
+		FUNCDEF	AddSemaphore
+		FUNCDEF	RemSemaphore
+		FUNCDEF	SumKickData
+		FUNCDEF	AddMemList
+		FUNCDEF	CopyMem
+		FUNCDEF	CopyMemQuick
+		FUNCDEF	CacheClearU
+		FUNCDEF	CacheClearE
+		FUNCDEF	CacheControl
+		FUNCDEF	CreateIORequest
+		FUNCDEF	DeleteIORequest
+		FUNCDEF	CreateMsgPort
+		FUNCDEF	DeleteMsgPort
+		FUNCDEF	ObtainSemaphoreShared
+		FUNCDEF	AllocVec
+		FUNCDEF	FreeVec
+		FUNCDEF	CreatePrivatePool
+		FUNCDEF	DeletePrivatePool
+		FUNCDEF	AllocPooled
+		FUNCDEF	FreePooled
+		FUNCDEF	SetFunction8
+		FUNCDEF	ColdReboot
+		FUNCDEF	StackSwap
+		FUNCDEF	ChildFree
+		FUNCDEF	ChildOrphan
+		FUNCDEF	ChildStatus
+		FUNCDEF	ChildWait
+		FUNCDEF	ExecReserved00
+		FUNCDEF	ExecReserved01
+		FUNCDEF	ExecReserved02
+		FUNCDEF	ExecReserved03
+*
+* Dos
+		FUNCSTART
+		FUNCDEF	Open
+		FUNCDEF	Close
+		FUNCDEF	Read
+		FUNCDEF	Write
+		FUNCDEF	Input
+		FUNCDEF	Output
+		FUNCDEF	Seek
+		FUNCDEF	DeleteFile
+		FUNCDEF	Rename
+		FUNCDEF	Lock
+		FUNCDEF	UnLock
+		FUNCDEF	DupLock
+		FUNCDEF	Examine
+		FUNCDEF	ExNext
+		FUNCDEF	Info
+		FUNCDEF	CreateDir
+		FUNCDEF	CurrentDir
+		FUNCDEF	IoErr
+		FUNCDEF	CreateProc
+		FUNCDEF	Exit
+		FUNCDEF	LoadSeg
+		FUNCDEF	UnLoadSeg
+		FUNCDEF	ClearVec
+		FUNCDEF	NoReqLoadSeg
+		FUNCDEF	DeviceProc
+		FUNCDEF	SetComment
+		FUNCDEF	SetProtection
+		FUNCDEF	DateStamp
+		FUNCDEF	Delay
+		FUNCDEF	WaitForChar
+		FUNCDEF	ParentDir
+		FUNCDEF	IsInteractive
+		FUNCDEF	Execute
+		FUNCDEF	AllocDosObject
+		FUNCDEF	FreeDosObject
+		FUNCDEF	DoPkt
+		FUNCDEF	SendPkt
+		FUNCDEF	WaitPkt
+		FUNCDEF	ReplyPkt
+		FUNCDEF	AbortPkt
+		FUNCDEF	LockRecord
+		FUNCDEF	LockRecords
+		FUNCDEF	UnLockRecord
+		FUNCDEF	UnLockRecords
+		FUNCDEF	SelectInput
+		FUNCDEF	SelectOutput
+		FUNCDEF	FGetC
+		FUNCDEF	FPutC
+		FUNCDEF	UnGetC
+		FUNCDEF	FRead
+		FUNCDEF	FWrite
+		FUNCDEF	FGets
+		FUNCDEF	FPuts
+		FUNCDEF	VFWritef
+		FUNCDEF	VFPrintf
+		FUNCDEF	Flush
+		FUNCDEF	SetVBuf
+		FUNCDEF	DupLockFromFH
+		FUNCDEF	OpenFromLock
+		FUNCDEF	ParentOfFH
+		FUNCDEF	ExamineFH
+		FUNCDEF	SetFileDate
+		FUNCDEF	NameFromLock
+		FUNCDEF	NameFromFH
+		FUNCDEF	SplitName
+		FUNCDEF	SameLock
+		FUNCDEF	SetMode
+		FUNCDEF	ExAll
+		FUNCDEF	ReadLink
+		FUNCDEF	MakeLink
+		FUNCDEF	ChangeMode
+		FUNCDEF	SetFileSize
+		FUNCDEF	SetIoErr
+		FUNCDEF	Fault
+		FUNCDEF	PrintFault
+		FUNCDEF	ErrorReport
+		FUNCDEF	Requester
+		FUNCDEF	Cli
+		FUNCDEF	CreateNewProc
+		FUNCDEF	RunCommand
+		FUNCDEF	GetConsoleTask
+		FUNCDEF	SetConsoleTask
+		FUNCDEF	GetFileSysTask
+		FUNCDEF	SetFileSysTask
+		FUNCDEF	GetArgStr
+		FUNCDEF	SetArgStr
+		FUNCDEF	FindCliProc
+		FUNCDEF	MaxCli
+		FUNCDEF	SetCurrentDirName
+		FUNCDEF	GetCurrentDirName
+		FUNCDEF	SetProgramName
+		FUNCDEF	GetProgramName
+		FUNCDEF	SetPrompt
+		FUNCDEF	GetPrompt
+		FUNCDEF	SetProgramDir
+		FUNCDEF	GetProgramDir
+		FUNCDEF	System
+		FUNCDEF	AssignLock
+		FUNCDEF	AssignLate
+		FUNCDEF	AssignPath
+		FUNCDEF	AssignAdd
+		FUNCDEF	RemAssignList
+		FUNCDEF	GetDeviceProc
+		FUNCDEF	FreeDeviceProc
+		FUNCDEF	LockDosList
+		FUNCDEF	UnlockDosList
+		FUNCDEF	AttemptLockDosList
+		FUNCDEF	RemDosEntry
+		FUNCDEF	AddDosEntry
+		FUNCDEF	FindDosEntry
+		FUNCDEF	NextDosEntry
+		FUNCDEF	MakeDosEntry
+		FUNCDEF	FreeDosEntry
+		FUNCDEF	IsFileSystem
+		FUNCDEF	Format
+		FUNCDEF	Relabel
+		FUNCDEF	Inhibit
+		FUNCDEF	AddBuffers
+		FUNCDEF	CompareDates
+		FUNCDEF	DateToStr
+		FUNCDEF	StrToDate
+		FUNCDEF	InternalLoadSeg
+		FUNCDEF	InternalUnLoadSeg
+		FUNCDEF	NewLoadSeg
+		FUNCDEF	AddSegment
+		FUNCDEF	FindSegment
+		FUNCDEF	RemSegment
+		FUNCDEF	CheckSignal
+		FUNCDEF	ReadArgs
+		FUNCDEF	FindArg
+		FUNCDEF	ReadItem
+		FUNCDEF	StrToLong
+		FUNCDEF	MatchFirst
+		FUNCDEF	MatchNext
+		FUNCDEF	MatchEnd
+		FUNCDEF	ParsePattern
+		FUNCDEF	MatchPattern
+		FUNCDEF	DosPrivateFunc4
+		FUNCDEF	FreeArgs
+		FUNCDEF	DosPrivateFunc5
+		FUNCDEF	FilePart
+		FUNCDEF	PathPart
+		FUNCDEF	AddPart
+		FUNCDEF	StartNotify
+		FUNCDEF	EndNotify
+		FUNCDEF	SetVar
+		FUNCDEF	GetVar
+		FUNCDEF	DeleteVar
+		FUNCDEF	FindVar
+		FUNCDEF	PrivateEntry1
+		FUNCDEF	PrivateEntry2
+		FUNCDEF	PrivateEntry3
+		FUNCDEF	WriteChars
+		FUNCDEF	PutStr
+		FUNCDEF	VPrintf
+		FUNCDEF	MatchReplace
+*
+* Mathieeedoubas
+		FUNCSTART
+		FUNCDEF	IEEEDPFix
+		FUNCDEF	IEEEDPFlt
+		FUNCDEF	IEEEDPCmp
+		FUNCDEF	IEEEDPTst
+		FUNCDEF	IEEEDPAbs
+		FUNCDEF	IEEEDPNeg
+		FUNCDEF	IEEEDPAdd
+		FUNCDEF	IEEEDPSub
+		FUNCDEF	IEEEDPMul
+		FUNCDEF	IEEEDPDiv
+		FUNCDEF	IEEEDPFloor
+		FUNCDEF	IEEEDPCeil
+*
+* Mathieeedoubtrans
+		FUNCSTART
+		FUNCDEF	IEEEDPAtan
+		FUNCDEF	IEEEDPSin
+		FUNCDEF	IEEEDPCos
+		FUNCDEF	IEEEDPTan
+		FUNCDEF	IEEEDPSincas
+		FUNCDEF	IEEEDPSinh
+		FUNCDEF	IEEEDPCosh
+		FUNCDEF	IEEEDPTanh
+		FUNCDEF	IEEEDPExp
+		FUNCDEF	IEEEDPLog
+		FUNCDEF	IEEEDPPow
+		FUNCDEF	IEEEDPSqrt
+		FUNCDEF	IEEEDPTieee
+		FUNCDEF	IEEEDPFieee
+		FUNCDEF	IEEEDPAsin
+		FUNCDEF	IEEEDPAcos
+		FUNCDEF IEEEDPLog10
+*
+* Mathtrans.library
+		FUNCSTART
+		FUNCDEF	SPAtan
+		FUNCDEF	SPSin
+		FUNCDEF	SPCos
+		FUNCDEF	SPTan
+		FUNCDEF	SPSincos
+		FUNCDEF	SPSinh
+		FUNCDEF	SPCosh
+		FUNCDEF	SPTanh
+		FUNCDEF	SPExp
+		FUNCDEF	SPLog
+		FUNCDEF	SPPow
+		FUNCDEF	SPSqrt
+		FUNCDEF	SPTieee
+		FUNCDEF	SPFieee
+		FUNCDEF	SPAsin
+		FUNCDEF	SPAcos
+		FUNCDEF	SPLog10
+*
+* Mathffp.library
+		FUNCSTART
+		FUNCDEF	SPFix
+		FUNCDEF	SPFlt
+		FUNCDEF	SPCmp
+		FUNCDEF	SPTst
+		FUNCDEF	SPAbs
+		FUNCDEF	SPNeg
+		FUNCDEF	SPAdd
+		FUNCDEF	SPSub
+		FUNCDEF	SPMul
+		FUNCDEF	SPDiv
+		FUNCDEF SPFloor
+		FUNCDEF SPCeil
+* AREXX
+		FUNCSTART
+		FUNCDEF Rexx             ; Main entry point
+		FUNCDEF rxParse          ; (private)
+		FUNCDEF rxInstruct       ; (private)
+		FUNCDEF rxSuspend        ; (private)
+		FUNCDEF EvalOp           ; (private)
+		FUNCDEF OAssignValue      ; (private)
+		FUNCDEF EnterSymbol      ; (private)
+		FUNCDEF FetchValue       ; (private)
+		FUNCDEF LookUpValue      ; (private)
+		FUNCDEF SetValue         ; (private)
+		FUNCDEF SymExpand        ; (private)
+
+		FUNCDEF ErrorMsg
+		FUNCDEF IsSymbol
+		FUNCDEF CurrentEnv
+		FUNCDEF GetSpace
+		FUNCDEF FreeSpace
+
+		FUNCDEF CreateArgstring
+		FUNCDEF DeleteArgstring
+		FUNCDEF LengthArgstring
+		FUNCDEF CreateRexxMsg
+		FUNCDEF DeleteRexxMsg
+		FUNCDEF ClearRexxMsg
+		FUNCDEF FillRexxMsg
+		FUNCDEF IsRexxMsg
+
+		FUNCDEF AddRsrcNode
+		FUNCDEF FindRsrcNode
+		FUNCDEF RemRsrcList
+		FUNCDEF RemRsrcNode
+		FUNCDEF OpenPublicPort
+		FUNCDEF ClosePublicPort
+		FUNCDEF ListNames
+
+		FUNCDEF ClearMem
+		FUNCDEF InitList
+		FUNCDEF InitPort
+		FUNCDEF FreePort
+
+		FUNCDEF CmpString
+		FUNCDEF StcToken
+		FUNCDEF StrcmpN
+		FUNCDEF StrcmpU
+		FUNCDEF StrcpyA          ; obsolete
+		FUNCDEF StrcpyN
+		FUNCDEF StrcpyU
+		FUNCDEF StrflipN
+		FUNCDEF Strlen
+		FUNCDEF ToUpper
+
+		FUNCDEF CVa2i
+		FUNCDEF CVi2a
+		FUNCDEF CVi2arg
+		FUNCDEF CVi2az
+		FUNCDEF CVc2x
+		FUNCDEF CVx2c
+
+		FUNCDEF OpenF
+		FUNCDEF CloseF
+		FUNCDEF ReadStr
+		FUNCDEF ReadF
+		FUNCDEF WriteF
+		FUNCDEF SeekF
+		FUNCDEF QueueF
+		FUNCDEF StackF
+		FUNCDEF ExistF
+
+		FUNCDEF DOSCommand
+		FUNCDEF DOSRead
+		FUNCDEF DOSWrite
+		FUNCDEF CreateDOSPkt     ; obsolete
+		FUNCDEF DeleteDOSPkt     ; obsolete
+		FUNCDEF SendDOSPkt       ; private
+		FUNCDEF WaitDOSPkt       ; private
+		FUNCDEF FindDevice
+
+		FUNCDEF AddClipNode
+		FUNCDEF RemClipNode
+		FUNCDEF LockRexxBase
+		FUNCDEF UnlockRexxBase
+		FUNCDEF CreateCLI
+		FUNCDEF DeleteCLI
+		FUNCDEF CVs2i
+
+
diff --git a/AMOS/Tutorial/Extensions/__uae____pointe_s b/AMOS/Tutorial/Extensions/__uae____pointe_s
new file mode 100644
index 0000000..931b496
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____pointe_s
@@ -0,0 +1,335 @@
+
+*-----------------------------------------------------------------
+*	 **  *    * **** ****    ***    **  **** ***  ***
+* 	*  * **  ** *  * *       *  *  *  * *     *  *
+* 	**** * ** * *  * ****    ****  **** ****  *  *
+* 	*  * *    * *  *    *    *   * *  *    *  *  *  
+* 	*  * *    * **** ****    ****  *  * **** ***  ***
+*-----------------------------------------------------------------
+*	AMOS.ENV pointers
+*-----------------------------------------------------------------
+*	By Francois Lionet
+*	
+*	AMOS (c) 1990 Mandarin / Jawx
+*-----------------------------------------------------------------
+*	This file is public domain!
+*-----------------------------------------------------------------
+
+Mixed:		equ %0100000000000000
+Fixed:		equ %0010000000000000
+Keys:		equ %0001000000000000
+FkTDef		equ 6
+
+*************** Message pointers
+AEdMem:		rs.w 2			*EdMem-ZZ,$0001
+AEdOm:		rs.w 2			*EdOm-ZZ,$0001
+AEdTop:		rs.w 2			*EdTop-ZZ,$0001
+AEdBot:		rs.w 2			*EdBot-ZZ,$0001
+AEdLLong:	rs.w 2			*EdLLong-ZZ,$0001
+AEdTest:	rs.w 2			*EdTest-ZZ,$0001
+AEdNoE:		rs.w 2			*EdNoE-ZZ,$0001
+AEdInd:		rs.w 2			*EdInd-ZZ,$0001
+ANoFold		rs.w 2			*NoFold-ZZ,$0001
+ANMark		rs.w 2			*NMark-ZZ,$0001
+AWBloc		rs.w 2			*WBloc-ZZ,$0001
+ANFound		rs.w 2			*NFound-ZZ,$0001
+ASching		rs.w 2			*Sching-ZZ,$0001
+AMPAmos		rs.w 2			*MPAmos-ZZ,$0001
+AMPlace		rs.w 2			*MPlace-ZZ,$0001
+AAvNoProg	rs.w 2			*AvNoProg-ZZ,$0001
+AMesNotD:	rs.w 2			*MesNotD-ZZ,$0001
+ACloClo:	rs.w 2			*CloClo-ZZ,$0001
+AEdDemo:	rs.w 2			*EdDemo-ZZ,$0001
+
+AVIlD:		rs.w 2			*VIlD-ZZ,$0002
+AVSynt:		rs.w 2			*VSynt-ZZ,$0002
+AVLong:		rs.w 2			*VLong-ZZ,$0002
+AVType:		rs.w 2			*VType-ZZ,$0002
+AVOut:		rs.w 2			*VOut-ZZ,$0002
+AVVNm:		rs.w 2			*VVNm-ZZ,$0002
+AVNmO:		rs.w 2			*VNmO-ZZ,$0002
+AVNDim:		rs.w 2			*VNDim-ZZ,$0002
+AVLbl2:		rs.w 2			*VLbl2-ZZ,$0002
+AVUnd:		rs.w 2			*VUnd-ZZ,$0002
+AVAlD:		rs.w 2			*VAlD-ZZ,$0002
+AVFoN:		rs.w 2			*VFoN-ZZ,$0002
+AVNFo:		rs.w 2			*VNFo-ZZ,$0002
+AVRUn:		rs.w 2			*VRun-ZZ,$0002
+AVUnR:		rs.w 2			*VUnR-ZZ,$0002
+AVWWn:		rs.w 2			*VWWn-ZZ,$0002
+AVWnW:		rs.w 2			*VWnW-ZZ,$0002
+AVDoL:		rs.w 2			*VDoL-ZZ,$0002
+AVLDo:		rs.w 2			*VLDo-ZZ,$0002
+AVCrs:		rs.w 2			*VCrs-ZZ,$0002
+AVNoL:		rs.w 2			*VNoL-ZZ,$0002
+AVEIf:		rs.w 2			*VEIf-ZZ,$0002
+AVElE:		rs.w 2			*VElE-ZZ,$0002
+AVElI:		rs.w 2			*VElI-ZZ,$0002
+AVIfE:		rs.w 2			*VIfE-ZZ,$0002
+AVNoT:		rs.w 2			*VNoT-ZZ,$0002
+AVPDeb:		rs.w 2			*VPDeb-ZZ,$0002
+AVPOp:		rs.w 2			*VPOp-ZZ,$0002
+AVPNo:		rs.w 2			*VPNo-ZZ,$0002
+AVIlP:		rs.w 2			*VIlP-ZZ,$0002
+AVPRTy:		rs.w 2			*VPRTy-ZZ,$0002
+AVUndP:		rs.w 2			*VUndP-ZZ,$0002
+AVShP:		rs.w 2			*VShP-ZZ,$0002
+AVAlG:		rs.w 2			*VAlG-ZZ,$0002
+AVPaG:		rs.w 2			*VPaG-ZZ,$0002
+AVShal:		rs.w 2			*VShal-ZZ,$0002
+AVNoPa:		rs.w 2			*VNoPa-ZZ,$0002
+AVPaGo:		rs.w 2			*VPaGo-ZZ,$0002
+AVVTo:		rs.w 2			*VVTo-ZZ,$0002
+AVDal:		rs.w 2			*VDal-ZZ,$0002
+AVNoB:		rs.w 2			*VNoB-ZZ,$0002
+AVExN:		rs.w 2			*VExN-ZZ,$0002
+AVNFn:		rs.w 2			*VNFn-ZZ,$0002
+AExtNot:	rs.w 2			*ExtNot-ZZ,$0000
+
+AMErreur:	rs.w 2			*MErreur-ZZ,$8003
+ARedo:		rs.w 2			*Redo-ZZ,$0003+Mixed
+
+AExtNames:	rs.w 2			*ExtNames-ZZ,$8004
+
+ASelDrv:	rs.w 2			*SelDrv-ZZ,$8005+Empty
+ANmPrt:		rs.w 2			*NmPrt-ZZ,$0005
+ANmSer:		rs.w 2			*NmSer-ZZ,$0005
+
+AMesLd1:	rs.w 2			*MesLd1-ZZ,$0006+Empty
+AMesLd2:	rs.w 2			*MesLd2-ZZ,$0006+Empty
+AMesLd3:	rs.w 2			*MesLd3-ZZ,$0006+Empty
+AMesMe1:	rs.w 2			*MesMe1-ZZ,$0006+Empty
+AMesMe2:	rs.w 2			*MesMe2-ZZ,$0006+Empty
+AMesLdA1:	rs.w 2			*MesLdA1-ZZ,$0006+Empty
+AMesLdA2:	rs.w 2			*MesLdA2-ZZ,$0006+Empty
+AMesLdA3:	rs.w 2			*MesLdA3-ZZ,$0006+Empty
+AAvMe:		rs.w 2			*AvMe-ZZ,$0006+Empty
+AAvLd:		rs.w 2			*AvLd-ZZ,$0006+Empty
+AAvPrt:		rs.w 2			*AvPrt-ZZ,$0006+Empty
+AMesSv1:	rs.w 2			*MesSv1-ZZ,$0006+Empty
+AMesSv2:	rs.w 2			*MesSv2-ZZ,$0006+Empty
+AMesSBl1:	rs.w 2			*MesSBl1-ZZ,$0006+Empty
+AMesSBl2:	rs.w 2			*MesSBl2-ZZ,$0006+Empty
+AMesSvA1:	rs.w 2			*MesSvA1-ZZ,$0006+Empty
+AMesSvA2:	rs.w 2			*MesSvA2-ZZ,$0006+Empty
+AMesSvA3:	rs.w 2			*MesSvA3-ZZ,$0006+Empty
+AAvSv:		rs.w 2			*AvSv-ZZ,$0006+Empty
+AAvSvA:		rs.w 2			*AvSvA-ZZ,$0006+Empty
+AMesAc1:	rs.w 2			*MesAc1-ZZ,$0006+Empty
+AMesAc2:	rs.w 2			*MesAc2-ZZ,$0006+Empty
+AMesAc3:	rs.w 2			*MesAc3-ZZ,$0006+Empty
+AMesAn1:	rs.w 2			*MesAn1-ZZ,$0006+Empty
+AMesAn2:	rs.w 2			*MesAn2-ZZ,$0006+Empty
+AMesAn3:	rs.w 2			*MesAn3-ZZ,$0006+Empty
+AMesEd1:	rs.w 2			*MesEd1-ZZ,$0006+Empty
+AMesEd2:	rs.w 2			*MesEd2-ZZ,$0006+Empty
+AMesEd3:	rs.w 2			*MesEd3-ZZ,$0006+Empty
+AMesRn1:	rs.w 2			*MesRn1-ZZ,$0006+Empty
+AMesRn2:	rs.w 2			*MesRn2-ZZ,$0006+Empty
+AMesRn3:	rs.w 2			*MesRn3-ZZ,$0006+Empty
+AAvAccL:	rs.w 2			*AvAccL-ZZ,$0006+Empty
+
+AEdPName:	rs.w 2			*EdPName-ZZ,$0001
+AEdLName:	rs.w 2
+ASMark:		rs.w 2			*SMark-ZZ,$0001
+AEdTSize:	rs.w 2			*EdTSize-ZZ,$0001
+AEdTTab:	rs.w 2			*EdTTab-ZZ,$0001
+ASchinp:	rs.w 2			*Schinp-ZZ,$0001
+ARepinp:	rs.w 2			*Repinp-ZZ,$0001
+
+AFsTxt:		rs.w 2			*FsTxt-ZZ,$8006+Mixed+Fixed
+AFaTxt:		rs.w 2			*FaTxt-ZZ,$8006+Mixed+Fixed
+AFsWait:	rs.w 2			*FsWait-ZZ,$0006
+AFsDTit:	rs.w 2			*FsDTit-ZZ,$0006
+AFsDirSet:	rs.w 2			*FsDirSet-ZZ,$0006
+
+*************** Editor messages
+AConfYes:	rs.w 2			*ConfYes-ZZ,$0001
+AConfNo:	rs.w 2			*ConfNo-ZZ,$0001
+AConfConf:	rs.w 2			*ConfConf-ZZ,$0001
+AConfSave:	rs.w 2			*ConfSave-ZZ,$0001
+AConfText:	rs.w 2			*ConfText-ZZ,$0001
+ADispText:	rs.w 2			*DispText-ZZ,$0001
+
+AConfYN:	rs.w 2			*ConfYN-ZZ,$0001+Mixed
+AConfYi:	rs.w 2			*ConfYi-ZZ,$0001+Mixed
+AConfNi:	rs.w 2			*ConfNi-ZZ,$0001+Mixed
+
+*************** Function key
+AFkDef1:	rs.w 2			*FkDef1-ZZ,$0000
+AFkDef2:	rs.w 2			*FkDef2-ZZ,$0000
+AFkDef3:	rs.w 2			*FkDef3-ZZ,$0000
+AFkDef4:	rs.w 2			*FkDef4-ZZ,$0000
+AFkDef5:	rs.w 2			*FkDef5-ZZ,$0000
+AFkIt0:		rs.w 2			*FkIt0-ZZ,$0007+Fixed
+AFkIt1:		rs.w 2			*FkIt1-ZZ,$0007+Fixed
+AFkLt0:		rs.w 2			*FkLt0-ZZ,$0007+Fixed
+AFkLt1:		rs.w 2			*FkLt1-ZZ,$0007+Fixed
+
+*************** Cursor flash
+AEdFlCu:	rs.w 2			*EdFlCu-ZZ,$0000
+AFolFl:		rs.w 2			*FolFl-ZZ,$0000
+
+*************** Error screen 
+AErrLine:	rs.w 2			*ErrLine-ZZ,$000a
+AErrFin:	rs.w 2			*ErrFin-ZZ,$000a+Mixed
+AFolI2:		rs.w 2			*FolI2-ZZ,$000a+Mixed
+
+*************** Directory
+ADirFilt:	rs.w 2			*DirFilt-ZZ,$0010
+AChDir0:	rs.w 2			*ChDir0-ZZ,$000b+Mixed
+AChDir1:	rs.w 2			*ChDir1-ZZ,$000b+Mixed
+AChDir6:	rs.w 2			*CHDir6-ZZ,$000b+Mixed
+AChDir3:	rs.w 2			*ChDir3-ZZ,$000b
+
+*************** Info line
+AMrgMes		rs.w 2			*MrgMes-ZZ,$0001+Mixed+Fixed
+* Caps
+AEtCps0:	rs.w 2			*EtCps0-ZZ,$0001+Mixed+Fixed
+AEtCps1:	rs.w 2			*EtCps1-ZZ,$0001+Mixed+Fixed
+* Insert / OverW
+AEtIns0:	rs.w 2			*EtIns0-ZZ,$0001+Mixed+Fixed
+AEtIns1:	rs.w 2			*EtIns1-ZZ,$0001+Mixed+Fixed
+* Line #
+AEtY:		rs.w 2			*EtY-ZZ,$0001+Mixed+Fixed
+AEtY1:		rs.w 2			*EtY1-ZZ,$0001+Mixed+Fixed
+* Col#
+AEtX:		rs.w 2			*EtX-ZZ,$0001+Mixed+Fixed
+AEtX1:		rs.w 2			*EtX1-ZZ,$0001+Mixed+Fixed
+* Free
+AEtFr0:		rs.w 2			*EtFr0-ZZ,$0001+Mixed+Fixed
+AEtFr1:		rs.w 2			*EtFr1-ZZ,$0001+Mixed+Fixed
+* Chip
+AEtCh0:		rs.w 2			*EtCh0-ZZ,$0001+Mixed+Fixed
+AEtCh1:		rs.w 2			*EtCh1-ZZ,$0001+Mixed+Fixed
+* Fast
+AEtFs0:		rs.w 2			*EtFs0-ZZ,$0001+Mixed+Fixed
+AEtFs1:		rs.w 2			*EtFs1-ZZ,$0001+Mixed+Fixed
+* Editing
+AEtNm1:		rs.w 2			*EtNm1-ZZ,$0001+Mixed+Fixed
+AEtNm2:		rs.w 2			*EtNm2-ZZ,$0001+Mixed+Fixed
+
+*************** Editor functions
+AKFonc:		rs.w 2			*KFonc-ZZ,$000F+Keys
+
+*************** HELP escape
+AEscH1:		rs.w 2			*EscH1-ZZ,$000c+Mixed
+AEscH2:		rs.w 2			*EscH2-ZZ,$800c+Fixed
+	
+*************** Esc screen function keys
+AAmiDef:	rs.w 2			*AmiDef-ZZ,$800d+Empty
+
+*************** Auto loaded acc
+AAutoLd		rs.w 2			*AutoLd-ZZ,$8011+Empty
+
+*************** Help.Acc
+ANameHelp	rs.w 2			*NameHelp-ZZ,$0013+Empty
+AHelpLoad	rs.w 2			*HelpLoad-ZZ,$0013+Empty
+AHNoF		rs.w 2
+
+*************** Basic header
+AEntete:	rs.w 2			*Entete-ZZ,0
+*************** FK window
+AFkFond:	rs.w 2			*FkFond-ZZ,0 
+*************** Edit window
+AEdClw:		rs.w 2			*EdClw-ZZ,0 
+ASlDInit:	rs.w 2			*SlDInit-ZZ,0 
+ASlBInit:	rs.w 2			*SlBInit-ZZ,0 
+AEdDBloc	rs.w 2			*EdDBloc-ZZ,0 
+AEdFBloc	rs.w 2			*EdFBloc-ZZ,0 
+*************** Basic title
+ATitle1:	rs.w 2			*Title1-ZZ,$000e+Mixed+Fixed+Empty
+ATitle2:	rs.w 2			*Title2-ZZ,0 
+*************** Suffix
+ASufBas:	rs.w 2			*SufBas-ZZ,0 
+ASufBak:	rs.w 2			*SufBak-ZZ,0 
+ASufAcc:	rs.w 2			*SufAcc-ZZ,0 
+AAutoEx:	rs.w 2			*AutoEx-ZZ,0 
+*************** Default icon
+ADefIcon	rs.w 2			*DefIcon-ZZ,$0012 
+*************** AMOS Logo
+ANMouse:	rs.w 2			*NMouse-ZZ,$0012 
+ANFonte:	rs.w 2			*NFonte-ZZ,$0012
+*************** Default Keyboard
+AKyNom:		rs.w 2			*KyNom-ZZ,$00012 
+*************** Diverse
+ACRet:		rs.w 2			*CRet-ZZ,0 
+AChCuOn:	rs.w 2			*ChCuOn-ZZ,0 
+AChCuOff:	rs.w 2			*ChCuOff-ZZ,0 
+AChDir1a:	rs.w 2			*ChDir1A-ZZ,0 
+AChDir2:	rs.w 2			*ChDir2-ZZ,0 
+AChDir4: 	rs.w 2			*ChDir4-ZZ,0 
+AChDir5:	rs.w 2			*ChDir5-ZZ,0 
+AEtInp:		rs.w 2			*EtInp-ZZ,0 
+AEtInit:	rs.w 2			*EtClw-ZZ,0 
+AEtClw		rs.w 2			*EtCuOf-ZZ,0 
+AEtAl:		rs.w 2			*EtAl-ZZ,0 
+ADefEFl:	rs.w 2			*DefEFl-ZZ,0 
+AErrIOn:	rs.w 2			*ErrIOn-ZZ,0 
+AErrIOff:	rs.w 2			*ErrIOff-ZZ,0 
+AErrIci:	rs.w 2			*ErrIci-ZZ,0 
+AErrFl:		rs.w 2			*ErrFl-ZZ,0 
+AFolI1:		rs.w 2			*FolI1-ZZ,0 
+AFolI3:		rs.w 2			*FolI3-ZZ,0 
+AFolI4:		rs.w 2			*FolI4-ZZ,0 
+AFolI5:		rs.w 2			*FolI5-ZZ,0 
+AEscI:		rs.w 2			*EscI-ZZ,0 
+AEscOk:		rs.w 2			*EscOk-ZZ,0 
+AEscI0:		rs.w 2			*EscI0-ZZ,0 
+AEdELi:		rs.w 2			*EdELi-ZZ,0 
+AEscH4:		rs.w 2			*EscH4-ZZ,0 
+AEscH5:		rs.w 2			*EscH5-ZZ,0 
+		rs.w 2			*EndPar-ParaTrap
+
+
+***********************************************************
+*		AMOS PARAMETRES 
+ParaTrap:	rs.l 1
+AdMouse:	rs.l 1
+		rs.l 1
+		rs.l 1
+		rs.l 1
+
+VNmMax:		rs.l 1
+TVDirect:	rs.w 1
+DefSize:	rs.l 1
+Icons:		rs.w 1
+Ed_Wy		rs.w 1
+Ed_Sx		rs.w 1
+FsDWy:		rs.w 1
+Ed_Ty		rs.w 1
+Ed_Wx		rs.w 1
+		rs.w 1
+DirSize:	rs.w 1
+DirMax:		rs.w 1
+EdSvBak:	rs.w 1
+PrtRet:		rs.w 1
+FsDVApp:	rs.w 1
+EdVScrol:	rs.w 1
+		rs.w 1
+EdPal:		rs.w 4
+		rs.w 4
+FsPal:		rs.w 4
+EscPal:		rs.w 4
+ErrPal:		rs.w 4
+FolPal		rs.w 4
+EdColB:		rs.w 1
+AutoWB:		rs.w 1
+Ed_Inter	rs.w 1
+		rs.w 1
+FsDWx:		rs.w 1
+EcYErr:		rs.w 1
+EsWY:		rs.w 1
+EsWTy:		rs.w 1
+EsVY:		rs.w 1
+DefETx:		rs.w 1
+DefETy:		rs.w 1
+DefECo:		rs.w 1
+DefECoN:	rs.w 1
+DefEMo:		rs.w 1
+DefEBa:		rs.w 1
+DefEPa:		rs.w 8
+		rs.w 8
+		rs.w 8
+		rs.w 8
+EndPar:
diff --git a/AMOS/Tutorial/Extensions/__uae____request_s b/AMOS/Tutorial/Extensions/__uae____request_s
new file mode 100644
index 0000000..9c46737
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____request_s
@@ -0,0 +1,797 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; AMOS Requester handler V1.6
+; By Fran�ois Lionet
+; AMOS - AMOS Pro - AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOS Pro 1.0 and over
+;--------------------------------------------------------------------- 
+; This file is public domain
+;---------------------------------------------------------------------
+; Please refer to the _Music.s file for more informations
+;---------------------------------------------------------------------
+
+Version		MACRO
+		dc.b	"1.0"
+		ENDM
+
+
+
+Req_WY		equ	100
+
+T_Tit		equ	0
+T_Text		equ	T_Tit+80
+T_Gad		equ	T_Text+320
+T_Size		equ	T_Gad+128
+
+*
+ExtNb		equ	3-1
+*
+ 		Include	"|AMOS_Includes.s"
+*
+Start		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	-1	
+*
+******************************************************************
+* 		OFFSETS TO FUNCTIONS
+C_Off           dc.w (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
+        	dc.w (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
+        	dc.w (L9-L8)/2,(L10-L9)/2,(L11-L10)/2
+
+******************************************************************
+* 	TOKEN TABLE + Addresses
+C_Tk		dc.w 	1,0
+		dc.b 	$80,-1
+		dc.w	L_ReqOn,-1
+		dc.b	"request o","n"+$80,"I",-1
+		dc.w	L_ReqOf,-1
+		dc.b	"request of","f"+$80,"I",-1
+		dc.w	L_ReqWb,-1
+		dc.b	"request w","b"+$80,"I",-1
+		dc.w 	0
+
+******************************************************************
+C_Lib
+******************************************************************
+*		COLD START
+L0	movem.l	a3-a6,-(sp)
+	lea	ReqData(pc),a4
+	move.l	a4,ExtAdr+ExtNb*16(a5)
+	lea	Quit(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+8(a5)
+* Copy default palette	
+	lea	PI_DefEPa+8*2(a5),a0	
+	lea	Req_Pal+8*2(pc),a1
+	moveq	#24-1,d0
+CPal	move.w	(a0)+,(a1)+
+	dbra	d0,CPal
+* Branch the requester
+	move.l	a5,Datas-ReqData(a4)
+	lea	AutoReq(pc),a2
+	lea	EasyReq(pc),a3
+	Rbsr	L_SetJump
+	move.l	a2,PrevAuto-ReqData(a4)
+	move.l	a3,PrevEasy-ReqData(a4)
+	move.w	#-1,ReqFlag-ReqData(a4)	        * Default is AMOS request
+* Return to caller
+	movem.l	(sp)+,a3-a6
+	moveq	#ExtNb,d0			* NO ERRORS
+	rts
+
+******* SCREEN RESET
+Warm	rts
+
+******* QUIT
+Quit	move.l	PrevAuto(pc),a2
+	move.l	PrevEasy(pc),a3
+	Rbra	L_SetJump
+
+***********************************************************
+*	AMOS REQUESTER
+
+AutoReq	movem.l	a0-a6/d0-d7,-(sp)
+	bsr	Req_In
+	bpl.s	.Skip
+	bsr	Req_Auto
+	bra	Req_AMOS
+.Skip	move.l	PrevAuto-ReqData(a6),ScAdr-ReqData(a6)
+	bra.s	Req_WB
+
+EasyReq	movem.l	a0-a6/d0-d7,-(sp)
+	bsr	Req_In
+	bpl.s	.Skip
+	bsr	Req_Easy
+	bra.s	Req_AMOS
+.Skip	move.l	PrevEasy-ReqData(a6),ScAdr-ReqData(a6)
+	bra.s	Req_WB
+
+******* Dispatch requester between AMOS/WB
+Req_In	lea	ReqData(pc),a6
+	move.l	Datas-ReqData(a6),a5
+	tst	ReqFlag-ReqData(a6)
+	beq.s	Req_ANo
+	bmi.s	.AMOS
+* System requester?
+	tst.b	WB_Closed(a5)		WB closed!
+	bne.s	.AMOS
+.WB	moveq	#1,d0
+	rts
+* AMOS requester
+.AMOS	tst.w	T_AMOSHere(a5)		AMOS here?
+	beq.s	.WB
+	moveq	#-1,d0
+	rts
+
+******* Always no!
+Req_ANo	addq.l	#4,sp
+	movem.l	(sp)+,a0-a6/d0-d7
+	moveq	#0,d0
+	rts
+
+******* WB requester
+Req_WB	move.w	T_AMOSHere(a5),d0	Is AMOS here?
+	move.w	d0,ReqOld-ReqData(a6)
+	beq.s	.skip1
+	EcCalD	AMOS_WB,0		AMOS To BACK
+.skip1	movem.l	(sp),a0-a6/d0-d7
+	move.l	ScAdr(pc),a5
+	jsr	(a5)
+	lea	ReqData(pc),a6
+	move.l	Datas-ReqData(a6),a5
+	move.l	d0,Req_Pos-ReqData(a6)
+	move.w	ReqOld-ReqData(a6),d1
+	beq.s	.skip2
+	EcCalD	AMOS_WB,1		AMOS To FRONT
+.skip2	movem.l	(sp)+,a0-a6/d0-d7
+	move.l	Req_Pos(pc),d0
+	rts
+
+******* AMOS Normal requester
+Req_AMOS
+
+	SyCall	AMALFrz
+	bsr	UnMix1
+
+	move.w	Req_Sx-ReqData(a6),d2
+	lsl.w	#3,d2
+	ext.l	d2
+	move.w	Req_Sy-ReqData(a6),d3
+	lsl.w	#3,d3
+	ext.l	d3
+	moveq	#3,d4
+	move.l	#$8000,d5
+	moveq	#8,d6
+	moveq	#0,d7
+	lea	Req_Pal-ReqData(a6),a1
+	EcCalD	Cree,EcReq
+	bne	NoReq
+	move.l	a0,ScAdr-ReqData(a6)
+	WiCalA	Print,Req_Init-ReqData(a6)
+
+* Top
+	moveq	#0,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	moveq	#4,d4
+	moveq	#3*8,d5
+	bsr	Copy
+	moveq	#4,d0
+	moveq	#1,d4
+	move.w	Req_Sx-ReqData(a6),d6
+.lp1	bsr	Copy
+	subq.w	#1,d6
+	cmp.w	#9,d6
+	bcc.s	.lp1
+	moveq	#10,d0
+	moveq	#4,d4
+	bsr	Copy
+* Middle
+	moveq	#3*8,d3
+	move.w	Req_Sy-ReqData(a6),d7
+	sub.w	#6,d7
+.lp2	moveq	#0,d0
+	moveq	#3*8,d1
+	moveq	#0,d2
+	moveq	#2,d4
+	moveq	#12,d5
+	bsr	Copy
+	moveq	#6,d0
+	moveq	#1,d4
+	move.w	Req_Sx-ReqData(a6),d6
+.lp3	bsr	Copy
+	subq.w	#1,d6
+	cmp.w	#5,d6
+	bcc.s	.lp3
+	moveq	#12,d0
+	moveq	#2,d4
+	bsr	Copy
+	addq.w	#8,d3
+	subq.w	#1,d7
+	bne.s	.lp2
+* Bottom
+	moveq	#0,d0
+	moveq	#4*8+4,d1
+	moveq	#0,d2
+	add.w	#4,d3
+	moveq	#1,d4
+	moveq	#2*8+4,d5
+	bsr	Copy
+	moveq	#6,d0
+	moveq	#1,d4
+	move.w	Req_Sx-ReqData(a6),d6
+.lp4	bsr	Copy
+	subq.w	#1,d6
+	cmp.w	#3,d6
+	bcc.s	.lp4
+	moveq	#13,d0
+	moveq	#1,d4
+	bsr	Copy
+* Bottom Left
+	move.l	Req_Pos-ReqData(a6),a0
+.lp5	tst.b	(a0)+
+	bne.s	.lp5
+	sub.l	Req_Pos-ReqData(a6),a0
+	move.w	a0,d6
+	moveq	#1,d0
+	moveq	#4*8+4,d1
+	moveq	#1,d2
+	moveq	#2,d4
+	moveq	#2*8,d5
+	bsr	Copy
+	moveq	#3,d0
+	moveq	#1,d4
+	subq.w	#3+1,d6
+	bmi.s	.sk2
+.lp6	bsr	Copy
+	dbra	d6,.lp6
+.sk2	moveq	#4,d0
+	moveq	#2,d4
+	bsr	Copy
+* Bottom right
+	move.l	Req_Neg-ReqData(a6),d0
+	move.l	d0,a0
+	beq.s	.sk1
+.lp7	tst.b	(a0)+
+	bne.s	.lp7
+	sub.l	Req_Neg-ReqData(a6),a0
+	move.w	a0,d6
+	move.w	Req_Sx-ReqData(a6),d0
+	sub.w	a0,d0
+	add.b	#48-1,d0
+	move.b	d0,XTNeg-ReqData(a6)
+	moveq	#8,d0
+	moveq	#4*8+4,d1
+	move.w	Req_Sx-ReqData(a6),d2
+	sub.w	d6,d2
+	subq.w	#2,d2
+	moveq	#2,d4
+	moveq	#2*8,d5
+	bsr	Copy
+	moveq	#10,d0
+	moveq	#1,d4
+	subq.w	#3+1,d6
+	bmi.s	.sk3
+.lp8	bsr	Copy
+	dbra	d6,.lp8
+.sk3	moveq	#11,d0
+	moveq	#2,d4
+	bsr	Copy
+.sk1
+* End of init
+	SyCalD	ResZone,2
+	move.w	Req_Sy-ReqData(a6),d0
+	lsl.w	#3,d0
+	move.w	d0,Req_Sy-ReqData(a6)
+
+* Initialise background text
+	WiCalA	Centre,T_Tit(a4)
+* Print main text
+	WiCalA	Print,Req_Main(pc)
+	lea	T_Text(a4),a1
+.lop	move.l	a1,-(sp)
+	WiCall	Centre
+	move.l	(sp)+,a1
+.lop1	tst.b	(a1)+
+	bne.s	.lop1
+	tst.b	(a1)
+	bne.s	.lop
+* Positive text (left)
+	moveq	#1,d0
+	moveq	#"0",d1
+	bsr	PrtZone
+* Negative text (right)
+	move.l	Req_Neg-ReqData(a6),d0
+	beq.s	.NoNeg
+	move.l	d0,a0
+	moveq	#2,d0
+	moveq	#"0",d1
+	bsr	PrtZone
+* Screen appearance
+.NoNeg	move.l	ScAdr-ReqData(a6),a2
+	move.w	#288,d0
+	move.w	Req_Sx-ReqData(a6),d1
+	lsl.w	#1,d1
+	sub.w	d1,d0
+	move.w	d0,EcAWX(a2)
+	bset	#1,EcAW(a2)
+	moveq	#8,d7
+	moveq	#1,d6
+	move.w	Req_Sy-ReqData(a6),d5
+	lsr.w	#1,d5
+	add.w	#Req_Wy,d5
+	bsr	AppCentre
+* State of disc drive
+	SyCall	GetDisc
+	move.w	d0,DOld-ReqData(a6)
+
+******* Test loop (fun!)
+ReqLoop	
+	bsr	UnMix2
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)		WaitTOF
+	move.l	(sp)+,a6
+	bsr	UnMix1
+
+* Automatic disc change
+	move.l	Req_IDCMP-ReqData(a6),d0
+	btst	#15,d0
+	beq.s	NoAuto
+	SyCall	GetDisc
+	cmp.w	DOld-ReqData(a6),d0
+	beq.s	NoAuto
+	move.w	d0,DOld-ReqData(a6)
+	bne	ReqYes
+* Keyboard
+NoAuto	SyCall	Inkey
+	cmp.w	#13,d1		* ASCII-> Return 
+	beq.s	ReqYes	
+	cmp.w	#27,d1		* ASCII-> ESC
+	beq.s	ReqNo	
+* Don't you think it is better than this wierd Amiga V and B?
+* Sometime I ask myself what they were thinking when they chose such
+* key combinations!
+	swap	d1
+	move.w	d1,d0		* Isolate AMIGA keys
+	and.w	#%1100000000000000,d0
+	beq.s	RqL0
+	cmp.b	#$34,d1		* V
+	beq.s	ReqYes
+	cmp.b	#$35,d1		* B
+	beq.s	ReqNo
+* Mouse pointer
+RqL0	SyCall	GetZone
+	cmp.w	#EcReq,d1
+	beq.s	RqL1
+	moveq	#0,d1
+RqL1:	swap 	d1
+	cmp.w	d7,d1
+	beq.s	RqL2
+	move.w	d7,d0
+	move.w	d1,d7
+	moveq	#"0",d1
+	bsr	PrtZone
+RqL2:	move.w	d7,d0
+	moveq	#"1",d1
+	bsr	PrtZone
+	tst.w	d7
+	beq	ReqLoop
+	SyCall	MouseKey
+	tst.w	d1
+	beq	ReqLoop
+	cmp.w	#2,d7
+	beq.s	ReqNo
+ReqYes	moveq	#-1,d0
+	bra.s	ReqGo
+ReqNo	moveq	#0,d0
+
+******* End of screen (well done!!!)
+ReqGo	move.l	d0,-(sp)
+	move.l	ScAdr-ReqData(a6),a2
+	moveq	#-8,d7
+	move.w	EcTY(a2),d6
+	lsr.w	#1,d6
+	move.w	Req_Sy-ReqData(a6),d5
+	lsr.w	#1,d5
+	add.w	#Req_Wy,d5
+	bsr	AppCentre
+	EcCalD	Del,EcReq
+
+******* Back to system!
+ReqX	bsr	UnMix2
+	bsr	ClrData
+	SyCall	AMALUFrz	
+	move.l	(sp)+,Req_Pos-ReqData(a6)	* Returns answer
+* Normal exit
+ReqXX	movem.l	(sp)+,a0-a6/d0-d7
+	move.l	Req_Pos(pc),d0
+	rts
+******* Can't open screen!!!
+NoReq	clr.l	-(sp)
+	bra.s	ReqX
+
+******* Print a zone D0-> zone, D1-> inverse or not
+PrtZone	subq.w	#1,d0
+	bmi.s	PrtX
+	bne.s	PrtNeg
+* Print pos text
+PrtPos	tst.l	Req_Pos-ReqData(a6)
+	beq.s	.skip
+	lea	TPos1-ReqData(a6),a1
+	move.b	d1,8(a1)
+	WiCall	Print
+	move.l	Req_Pos-ReqData(a6),a1
+	WiCall	Print
+	WiCalA	Print,TPos2-ReqData(a6)
+.skip	bra.s	PrtX
+* Print neg text
+PrtNeg	tst.l	Req_Neg-ReqData(a6)
+	beq.s	.skip
+	lea	TNeg1-ReqData(a6),a1
+	move.b	d1,8(a1)
+	WiCall	Print
+	move.l	Req_Neg-ReqData(a6),a1
+	WiCall	Print
+	WiCalA	Print,TNeg2-ReqData(a6)
+.skip
+PrtX	rts
+
+******* Screen appearance
+AppCentre:
+	move.w	d6,d4
+	move.w	d6,EcAWTy(a2)
+	add.w	d6,EcAWTy(a2)
+	bset	#2,EcAWT(a2)
+	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	sub.w	d6,d0
+	move.w	d0,EcAVY(a2)
+	bset	#2,EcAV(a2)
+	move.w	d5,EcAWy(a2)
+	sub.w	d6,EcAWy(a2)
+	bset	#2,EcAW(a2)
+	movem.l	a2/d4-d7,-(sp)
+	SyCall	WaitVBL
+	EcCall	CopForce
+	movem.l	(sp)+,a2/d4-d7
+	add.w	d7,d6
+	bpl.s	FsApp2
+	clr.w	d6
+FsApp2:	move.w	EcTy(a2),d0
+	lsr.w	#1,d0
+	cmp.w	d0,d6
+	bcs.s	FsApp3
+	move.w	d0,d6
+FsApp3:	cmp.w	d4,d6
+	bne.s	AppCentre
+	rts
+
+******* Prevent mixes between AMOS and the requester!
+UnMix1	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	$4.w,a6
+	jsr	Forbid(a6)
+	EcCall	Current
+	move.w	EcNumber(a0),d1
+	lea	ReqOld(pc),a0
+	move.w	d1,(a0)
+	EcCalD	Active,EcReq
+	EcCalD	First,EcReq
+	EcCall	CopMake
+	SyCall	WaitVBL
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+UnMix2	movem.l	d0-d7/a0-a6,-(sp)
+	move.w	ReqOld(pc),d1
+	EcCall	Active
+	move.l	$4.w,a6
+	jsr	Permit(a6)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+******* Open TEXT data zone
+ResData	move.l	#T_Size,d0
+	SyCall	SyFast
+	move.l	d0,a4
+	rts
+******* Clear TEXT data zone
+ClrData	move.l	#T_Size,d0
+	move.l	a4,a1
+	SyCall	SyFree
+	rts
+
+******* Entree requester WB1.3
+Req_Auto
+
+	bsr	ResData
+
+	move.l	#$00008000,Req_IDCMP-ReqData(a6)
+
+	lsr.w	#3,d2
+	addq.w	#3,d2
+	and.w	#$FFFC,d2
+	move.w	d2,Req_Sx-ReqData(a6)
+	lsr.w	#3,d3
+	addq.w	#2,d3
+	move.w	d3,Req_Sy-ReqData(a6)
+
+	move.l	a1,a0
+	lea	T_Text(a4),a1
+	moveq	#10,d0
+	bsr	IT_Print
+
+	clr.l	Req_Pos-ReqData(a6)
+	lea	T_Gad(a4),a1
+	move.l	a2,d0
+	move.l	d0,a0
+	beq.s	.skip1
+	move.l	a1,Req_Pos-ReqData(a6)
+	moveq	#0,d0
+	bsr	IT_Print
+.skip1
+	clr.l	Req_Neg-ReqData(a6)
+	lea	T_Gad+64(a4),a1
+	move.l	a3,d0
+	move.l	d0,a0
+	beq.s	.skip2
+	move.l	a1,Req_Neg-ReqData(a6)
+	moveq	#0,d0
+	bsr	IT_Print
+.skip2
+	lea	Req_Tit(pc),a0
+	lea	T_Tit(a4),a1
+.loop	move.b	(a0)+,(a1)+
+	bne.s	.loop
+	rts	
+
+******* Entree requester WB2.0: fabrique les chaines de caracteres
+Req_Easy
+	bsr	ResData
+	move.l	(a2),Req_IDCMP-ReqData(a6)
+
+	lea	8(a1),a2
+	clr.w	TxtMaxCx-ReqData(a6)
+
+	lea	T_Tit(a4),a1
+	move.l	(a2)+,d0
+	move.l	d0,a0
+	bne.s	.nof
+	lea	Req_Tit(pc),a0
+.nof	bsr	Format
+
+	move.l	(a2)+,a0
+	lea	T_Text(a4),a1
+	bsr	Format
+	move.w	TxtCy-ReqData(a6),Req_Sy-ReqData(a6)
+
+	move.l	(a2)+,a0
+	lea	T_Gad(a4),a1
+	bsr	Format
+
+	lea	T_Gad(a4),a0
+	move.l	a0,Req_Pos-ReqData(a6)
+	clr.l	Req_Neg-ReqData(a6)
+.loop	move.b	(a0)+,d0
+	beq.s	.skp
+	cmp.b	#"|",d0
+	bne.s	.loop
+	clr.b	-1(a0)
+	move.l	a0,Req_Neg-ReqData(a6)
+.skp
+	move.w	TxtMaxCx-ReqData(a6),d0
+	cmp.w	#32,d0
+	bcc.s	.skp2
+	moveq	#32,d0
+.skp2	add.w	#9,d0
+	and.w	#$FFFC,d0
+	move.w	d0,Req_Sx-ReqData(a6)
+
+	add.w	#8,Req_Sy-ReqData(a6)
+	rts
+
+** Routine, appel de RawDoFmt
+Format	clr.w	TxtCx-ReqData(a6)
+	move.w	#1,TxtCy-ReqData(a6)
+	movem.l	a2/a3/a6,-(sp)
+	exg	a3,a1
+	lea	.OutC(pc),a2
+	move.l	$4.w,a6
+	jsr	-522(a6)
+	exg	a3,a1
+	movem.l	(sp)+,a2/a3/a6
+.XMax	move.w	TxtCx-ReqData(a6),d0
+	cmp.w	TxtMaxCx-ReqData(a6),d0
+	bls.s	.sk
+	move.w	d0,TxtMaxCx-ReqData(a6)
+.sk	rts
+.OutC	movem.l	a6/d0,-(sp)
+	lea	ReqData(pc),a6
+	addq.w	#1,TxtCx-ReqData(a6)
+	move.b	d0,(a3)+
+	cmp.b	#10,d0
+	bne.s	.Skip
+	clr.b	(a3)+
+	addq.w	#1,TxtCy-ReqData(a6)
+	bsr.s	.XMax
+	clr.w	TxtCx-ReqData(a6)
+.Skip	movem.l	(sp)+,a6/d0
+	clr.b	(a3)
+	rts
+
+******* Routine: copie un intuitext dans le buffer
+*	A0-> ITEXT
+*	A1-> Buffer
+*	D0-> Mettre un 10 a la fin...
+IT_Print
+	movem.l	a0-a2/d0-d1,-(sp)
+.loop	move.l	12(a0),d1
+	move.l	d1,a2
+	beq.s	.skip
+.loop1	move.b	(a2)+,(a1)+
+	bne.s	.loop1
+	tst.w	d0
+	beq.s	.skip
+	move.b	d0,-1(a1)
+	clr.b	(a1)+
+.skip	move.l	16(a0),d1
+	move.l	d1,a0
+	bne.s	.loop
+	movem.l	(sp)+,a0-a2/d0-d1
+	rts
+
+******* Routine: copie les donnees binaires
+Copy	movem.l	d0-d7/a0-a5,-(sp)
+	mulu	#RPic_Sx/8,d1			d1= offset source
+	add.l	d1,d0
+	lea	RPic-ReqData(a6),a0		a0= adress source
+	move.w	Req_Sx-ReqData(a6),d1
+	ext.l	d1				d1= size of dest line
+	mulu	d1,d3
+	add.l	d2,d3				d3= offset dest
+	move.l	ScAdr-ReqData(a6),a3		a3= dest screen
+	subq.w	#1,d4
+	subq.w	#1,d5
+	move.w	#RPic_NP-1,d2
+.loop1	move.l	(a3)+,a4
+	add.l	d3,a4
+	move.l	a0,a1
+	add.l	d0,a1
+	move.w	d5,d7
+.loop2	move.w	d4,d6
+	move.l	a1,a2
+	move.l	a4,a5
+.loop3	move.b	(a2)+,(a5)+
+	dbra	d6,.loop3
+	add.w	#RPic_Sx/8,a1		
+	add.l	d1,a4
+	dbra	d7,.loop2
+	add.w	#(RPic_Sx/8)*RPic_Sy,a0
+	dbra	d2,.loop1
+	movem.l	(sp)+,d0-d7/a0-a5
+	add.w	d4,d2
+	rts
+
+;--------------------------------------------------------------------
+*		DATA ZONE
+ReqData		
+*
+ScAdr		dc.l 	0
+Datas		dc.l 	0
+PrevAuto	dc.l	0
+PrevEasy	dc.l	0
+
+Req_Sx		dc.w 	0
+Req_Sy		dc.w	0
+Req_Pos		dc.l	0
+Req_Neg		dc.l	0
+
+Req_IDCMP	dc.l	0
+ReqFlag		dc.w 	0
+ReqOld		dc.w 	0
+DOld		dc.w	0
+TxtCx		dc.w	0
+TxtMaxCx	dc.w	0
+TxtCy		dc.w	0
+
+* 		Title
+Req_Tit		dc.b "System request",0
+Req_Init	dc.b 27,"C0",27,"V0",27,"Y1",27,"B2",27,"P7",0
+*		Main text
+Req_Main	dc.b 27,"B2",27,"P3",27,"Y4",0
+* 		Positive text
+TPos1		dc.b 27,"B4",27,"P3",27,"I0",24,30,30,27,"X2",27,"Z0",0
+TPos2		dc.b 27,"Z1",0
+* 		Negative text
+TNeg1		dc.b 27,"B4",27,"P3",27,"I0",24,30,30,27,"X"
+XTNeg		dc.b "0",27,"Z0",0
+TNeg2		dc.b 27,"Z2",0
+		even
+RPic_Sx		equ	112
+RPic_Sy		equ	56
+RPic_Np		equ	3
+
+Req_Pal		Incbin	"ReqPic.Bin"
+RPic		equ	Req_Pal+32*2
+
+		even
+
+;--------------------------------------------------------------------
+
+L1
+L2
+L3
+
+***********************************************************
+*		REQUEST WB
+L_ReqWb		equ	4
+L4	moveq	#1,d0
+	Rbra	L_ROnOf
+*********************************************************** 
+*		REQUEST ON
+L_ReqOn		equ	5
+L5	moveq	#-1,d0
+	Rbra	L_ROnOf
+*********************************************************** 
+*		REQUEST OFF
+L_ReqOf		equ	6
+L6	moveq	#0,d0
+	Rbra	L_ROnOf
+*
+L_ROnOf		equ	7
+L7	move.l	ExtAdr+ExtNb*16(a5),a0
+	move.w	d0,ReqFlag-ReqData(a0)
+	rts
+
+********************************************************** 
+*	Change the library jumps
+*	a2->	AutoRequest entry
+*	a3->	EasyRequest entry
+L_SetJump	equ	8
+L8	movem.l	a0/a1/a6,-(sp)
+	move.l	$4.w,a6
+* AutoRequest
+	move.l	a2,d0
+	lea	-$15c,a0
+	move.l	T_IntBase(a5),a1
+	jsr	SetFunction(a6)
+	move.l	d0,a2
+* EasyRequest
+	tst.w	WB2.0(a5)
+	beq.s	.skip
+	move.l	a3,d0
+	lea	-$1d4-(20*6),a0
+	move.l	T_IntBase(a5),a1
+	jsr	SetFunction(a6)
+	move.l	d0,a3
+.skip	movem.l	(sp)+,a0/a1/a6
+	rts
+
+**********************************************************
+*	Even if you do not have error messages, you MUST
+*	leave TWO routines empty at the end...
+L9
+L10
+* Two routines means three borders!
+L11
+
+*******************************************************************************
+
+* 		Welcome message
+C_Title		dc.b 	"AMOSPro Requester V"
+		Version
+		dc.b	0,"$VER: "
+		Version
+		dc.b	0
+		Even
+*		End of extension
+C_End		dc.w	0
+
+	even
diff --git a/AMOS/Tutorial/Extensions/__uae____wequ_s b/AMOS/Tutorial/Extensions/__uae____wequ_s
new file mode 100644
index 0000000..22bc547
--- /dev/null
+++ b/AMOS/Tutorial/Extensions/__uae____wequ_s
@@ -0,0 +1,318 @@
+*********************************************************************
+*		EQUATES GRAPHIC FUNCTIONS AMOS
+*********************************************************************
+RwReset		MACRO
+Count		SET	0
+		ENDM
+Rl		MACRO	
+Count		SET	Count-4*(\2)
+T_\1		equ	Count
+		ENDM
+Rw		MACRO
+Count		SET	Count-2*(\2)
+T_\1		equ	Count
+		ENDM
+Rb		MACRO
+Count		SET	Count-(\2)
+T_\1		equ	Count
+		ENDM
+GfxPc		MACRO
+		movem.l	d0-d7/a0-a6,-(sp)
+		move.l	GfxBase(pc),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d7/a0-a6
+		ENDM
+
+***************************************************************
+
+		RwReset
+
+***************************************************************
+*		VECTEURS
+***************************************************************
+		Rl	SyVect,1
+		Rl	EcVect,1
+		Rl	WiVect,1
+
+***************************************************************
+*		ADRESSES AMOS / COMPILER
+***************************************************************
+		Rl	JError,1
+		Rl	CompJmp,1
+		Rw	AMOState,1
+		Rw	Pour_Plus_Tard,1
+
+***************************************************************
+*		Gestions AMOS Multiples
+***************************************************************
+		Rl	MyTask,1
+		Rw	Inhibit,1
+		Rw	OldDma,1
+
+***************************************************************
+*		FENETRES
+***************************************************************
+* Jeu de caracteres par defaut
+		Rl	JeuDefo,1
+* Fonction REPETER
+WiRepL		equ	80
+		Rw	WiRep,1
+		Rl	WiRepAd,2
+		Rb	WiRepBuf,WiRepL
+* Fonction ENCADRER
+		Rw	WiEncDX,1
+		Rw	WiEncDY,1
+
+
+***************************************************************
+*		INTER VBL
+***************************************************************
+		Rl	VblCount,1
+		Rl	VblTimer,1
+		Rw	EveCpt,1
+
+***************************************************************
+*		FLAG AMOS/WORKBENCH
+***************************************************************
+		Rw	AMOSHere,1
+		Rw	NoFlip,1
+		Rw	DevHere,1
+		Rw	DiscIn,1
+
+***************************************************************
+*		GESTION ECRANS
+***************************************************************
+
+*************** Variables gestion
+EcMax:		equ 	12	
+		Rw	DefWX,1
+		Rw	DefWY,1
+		Rw	DefWX2,1
+		Rw	DefWY2,1
+		Rl	EcCourant,1
+		Rw	EcFond,1
+		Rw	EcYAct,1
+		Rw	EcYMax,1
+		Rw	Actualise,1
+		Rl	ChipBuf,1
+
+***************	Buffer de calculs des ecrans
+		Rw	EcBuf,128
+
+*************** Table des NUMEROS ---> ADRESSES
+		Rl	EcAdr,EcMax
+
+*************** Table de priorite
+		Rl	EcPri,EcMax+1
+
+*************** FLASHEUR
+FlMax:		equ 	16	
+LFlash:		equ 	2+2+4+2+16*4+2
+		Rw	NbFlash,1
+		Rb	TFlash,LFlash*FlMax
+
+*************** SHIFTER
+LShift:		equ 	2+2+4+2+2+2
+		Rb	TShift,LShift
+
+*************** FADER
+		Rw	FadeFlag,1
+		Rw	FadeNb,1
+		Rw	FadeCpt,1
+		Rw	FadeVit,1
+		Rl	FadePal,1
+		Rl	FadeCop,1
+		Rb	FadeCol,8*32
+
+***************************************************************
+*		GESTION COPPER
+***************************************************************
+EcTCop		equ  	1024
+		Rl	EcCop,1
+		Rw	Cop255,1
+		Rl	CopLogic,1
+		Rl	CopPhysic,1
+		Rw	CopON,1
+		Rl	CopPos,1
+		Rl	CopLong,1
+
+* Rainbows
+NbRain		equ	4
+		RsReset
+RnDY		rs.w	1
+RnFY		rs.w	1
+RnTY		rs.w	1
+RnBase		rs.w	1
+RnColor		rs.w	1
+RnLong		rs.w	1
+RnBuf		rs.l	1
+RnAct		rs.w	1
+RnX		rs.w	1
+RnY		rs.w	1
+RnI		rs.w	1
+RainLong	rs.w	1
+		Rb	RainTable,RainLong*NbRain
+		Rw	RainBow,1
+		Rw	OldRain,1
+
+* Marques copper liste
+CopL1:		equ 	16*4*2
+CopL2:		equ 	16*4
+CopML:		equ 	(EcMax*CopL1)+10*CopL2
+		Rb	CopMark,CopML+4
+
+* Liste screen swaps
+SwapL:		equ 	32
+		Rl	SwapList,SwapL*8+4
+
+* Interlaced!
+		Rw	InterInter,1
+		Rw	InterBit,1
+		Rl	InterList,EcMax*2
+	
+***************************************************************
+*		SPRITES HARD
+***************************************************************
+HsNb		equ 	64
+* Limites souris
+		Rw	MouYMax,1
+		Rw	MouXMax,1
+		Rw	MouYMin,1
+		Rw	MouXMin,1
+
+* Gestion souris
+		Rw	MouYOld,1
+		Rw	MouXOld,1
+		Rw	MouHotY,1
+		Rw	MouHotX,1
+		Rw	MouseY,1
+		Rw	MouseX,1
+		Rw	MouseDY,1
+		Rw	MouseDX,1
+		Rw	YMouse,1
+		Rw	XMouse,1
+		Rw	OldMk,1
+
+		Rw	MouShow,1
+		Rw	MouSpr,1
+		Rw	OMouShow,1
+		Rw	OMouSpr,1
+		Rl	MouBank,1
+		Rl	MouDes,1
+		Rw	MouTy,1
+
+		Rl	SprBank,1
+		Rl	HsTBuf,1
+		Rl	HsBuffer,1
+		Rl	HsLogic,1
+		Rl	HsPhysic,1
+		Rl	HsInter,1
+		Rl	HsChange,1
+		Rl	HsTable,1
+		Rw	HsPMax,1
+		Rw	HsTCol,1
+		Rw	HsNLine,1
+		Rl	HsPosition,2*8+1
+
+* Actualisation sprites
+HsYAct:		equ 	4
+HsPAct:		equ 	6
+		Rw	HsTAct,4*HsNb
+
+* Structure SPrites
+HsPrev:		equ 	0
+HsNext:		equ 	2
+HsX:		equ 	4
+HsY:		equ 	6
+HsYr:		equ 	8
+HsLien:		equ 	10
+HsImage:	equ 	12
+HsControl:	equ 	16
+HsLong:		equ 	20		
+		Rb	SpBase,HsLong+4
+
+***************************************************************
+*		BOBS
+***************************************************************
+		Rw	BbMax,1
+		Rl	BbDeb,1
+		Rl	BbPrio,1
+		Rl	BbPrio2,1
+		Rl	Priorite,1
+		Rw	PriRev,1
+*		Rb	TRetour,256
+
+***************************************************************
+*		AMAL!
+***************************************************************
+		Rl	AmDeb,1
+		Rl	AmFreeze,1
+		Rl	AmChaine,1
+		Rl	AmBank,1
+		Rw	AmRegs,26
+		Rw	SyncOff,1
+		Rl	AMALSp,1
+		Rw	AmSeed,1
+
+***************************************************************
+*		COLLISIONS
+***************************************************************
+		Rl	TColl,8
+
+***************************************************************
+*		BLOCS
+***************************************************************
+		Rl	AdCBlocs,1
+		Rl	AdBlocs,1
+
+***************************************************************
+*		SYSTEME
+***************************************************************
+		Rl	GPile,1
+		Rl	IntBase,1
+		Rl	IntScreen,1
+		Rl	GfxBase,1
+		Rl	LayBase,1
+		Rl	FntBase,1
+		Rl	ScreenAdr,1
+		Rl	WindowAdr,1
+		Rl	Layer,1
+		Rl	BitMap,1
+		Rl	RastPort,1
+		Rl	ClipRect,1
+		Rl	FontInfos,1
+		Rw	FontILong,1
+		Rw	PaPeek,1
+		Rl	SaveZo,1
+		Rw	SaveNZo,1
+* Sauvegarde du BitMap
+		Rb	SBitMap,40
+* Sauvegarde de la fonte systeme
+		Rb	SFonte,14+4
+* Interrupt VBL
+Lis		equ	$16
+Lio		equ	$30
+Lmsg		equ	$20
+		Rb	VBL_Is,Lis
+* Interrupt clavier
+		Rb	IoDevice,Lio+Lmsg+8
+		Rb	Interrupt,Lis
+* Buffer clavier
+ClLong		equ 	32*3
+FFkLong		equ 	24
+		Rl	ClAsc,1
+		Rw	ClFlag,1
+		Rw	ClQueue,1
+		Rw	ClTete,1
+		Rb	ClShift,4
+		Rb	ClTable,12
+		Rb	ClBuffer,ClLong
+		Rl	ClLast,1
+		Rb	TFF2,10*FFkLong
+		Rb	TFF1,10*FFkLong
+
+*************** Longueur de la structure W.S
+		Rb	L_Trp,4
+L_Trappe	equ	-Count
+***********************************************************
+
diff --git a/AMOS/Tutorial/Extra_Configs/Compiler_Config.Backup b/AMOS/Tutorial/Extra_Configs/Compiler_Config.Backup
new file mode 100644
index 0000000..0df1d05
Binary files /dev/null and b/AMOS/Tutorial/Extra_Configs/Compiler_Config.Backup differ
diff --git a/AMOS/Tutorial/Extra_Configs/Editor_Config.Backup b/AMOS/Tutorial/Extra_Configs/Editor_Config.Backup
new file mode 100644
index 0000000..1f5fb6e
Binary files /dev/null and b/AMOS/Tutorial/Extra_Configs/Editor_Config.Backup differ
diff --git a/AMOS/Tutorial/Extra_Configs/Interpreter_Config.Backup b/AMOS/Tutorial/Extra_Configs/Interpreter_Config.Backup
new file mode 100644
index 0000000..199f569
Binary files /dev/null and b/AMOS/Tutorial/Extra_Configs/Interpreter_Config.Backup differ
diff --git a/AMOS/Tutorial/Iff/Example_resource.Iff b/AMOS/Tutorial/Iff/Example_resource.Iff
new file mode 100644
index 0000000..16f5a6f
Binary files /dev/null and b/AMOS/Tutorial/Iff/Example_resource.Iff differ
diff --git a/AMOS/Tutorial/Iff/Window.Iff b/AMOS/Tutorial/Iff/Window.Iff
new file mode 100644
index 0000000..fbca3bd
Binary files /dev/null and b/AMOS/Tutorial/Iff/Window.Iff differ
diff --git a/AMOS/Tutorial/Iff_Anim/AMOS.Anim b/AMOS/Tutorial/Iff_Anim/AMOS.Anim
new file mode 100644
index 0000000..dd8f638
Binary files /dev/null and b/AMOS/Tutorial/Iff_Anim/AMOS.Anim differ
diff --git a/AMOS/Tutorial/Objects/Amal_Bobs.Abk b/AMOS/Tutorial/Objects/Amal_Bobs.Abk
new file mode 100644
index 0000000..998f2ea
Binary files /dev/null and b/AMOS/Tutorial/Objects/Amal_Bobs.Abk differ
diff --git a/AMOS/Tutorial/Objects/Bobs.Abk b/AMOS/Tutorial/Objects/Bobs.Abk
new file mode 100644
index 0000000..9818231
Binary files /dev/null and b/AMOS/Tutorial/Objects/Bobs.Abk differ
diff --git a/AMOS/Tutorial/Objects/Col.Abk b/AMOS/Tutorial/Objects/Col.Abk
new file mode 100644
index 0000000..acf8e4a
Binary files /dev/null and b/AMOS/Tutorial/Objects/Col.Abk differ
diff --git a/AMOS/Tutorial/Objects/Menu_Bobs.Abk b/AMOS/Tutorial/Objects/Menu_Bobs.Abk
new file mode 100644
index 0000000..388940d
Binary files /dev/null and b/AMOS/Tutorial/Objects/Menu_Bobs.Abk differ
diff --git a/AMOS/Tutorial/Objects/Play_Bobs.Abk b/AMOS/Tutorial/Objects/Play_Bobs.Abk
new file mode 100644
index 0000000..988bd7f
Binary files /dev/null and b/AMOS/Tutorial/Objects/Play_Bobs.Abk differ
diff --git a/AMOS/Tutorial/Objects/Sprites.Abk b/AMOS/Tutorial/Objects/Sprites.Abk
new file mode 100644
index 0000000..ac41a38
Binary files /dev/null and b/AMOS/Tutorial/Objects/Sprites.Abk differ
diff --git a/AMOS/Tutorial/ReTokenise.AMOS b/AMOS/Tutorial/ReTokenise.AMOS
new file mode 100644
index 0000000..dca0d0c
Binary files /dev/null and b/AMOS/Tutorial/ReTokenise.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_1.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_1.AMOS
new file mode 100644
index 0000000..2ee16f7
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_1.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_2.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_2.AMOS
new file mode 100644
index 0000000..bd3e11e
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_2.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_3.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_3.AMOS
new file mode 100644
index 0000000..19feb87
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_3.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_4.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_4.AMOS
new file mode 100644
index 0000000..85e591d
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_4.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_5.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_5.AMOS
new file mode 100644
index 0000000..5033283
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_5.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_6.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_6.AMOS
new file mode 100644
index 0000000..da2dd45
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_6.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/AMAL_7.AMOS b/AMOS/Tutorial/Tutorials/AMAL/AMAL_7.AMOS
new file mode 100644
index 0000000..ac04c78
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/AMAL_7.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/AMAL/PLay_Data.Abk b/AMOS/Tutorial/Tutorials/AMAL/PLay_Data.Abk
new file mode 100644
index 0000000..5105d0b
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/AMAL/PLay_Data.Abk differ
diff --git a/AMOS/Tutorial/Tutorials/Appear.AMOS b/AMOS/Tutorial/Tutorials/Appear.AMOS
new file mode 100644
index 0000000..19233f1
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Appear.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Arrays.AMOS b/AMOS/Tutorial/Tutorials/Arrays.AMOS
new file mode 100644
index 0000000..30a7e4f
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Arrays.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Autoback_&_Update.AMOS b/AMOS/Tutorial/Tutorials/Autoback_&_Update.AMOS
new file mode 100644
index 0000000..7175f99
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Autoback_&_Update.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Collision_Detection.AMOS b/AMOS/Tutorial/Tutorials/Collision_Detection.AMOS
new file mode 100644
index 0000000..13b7a29
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Collision_Detection.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Computed_Sprites.AMOS b/AMOS/Tutorial/Tutorials/Computed_Sprites.AMOS
new file mode 100644
index 0000000..7a74fa8
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Computed_Sprites.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Error_Handling_1.AMOS b/AMOS/Tutorial/Tutorials/Error_Handling_1.AMOS
new file mode 100644
index 0000000..d771de1
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Error_Handling_1.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Error_Handling_2.AMOS b/AMOS/Tutorial/Tutorials/Error_Handling_2.AMOS
new file mode 100644
index 0000000..efb5e5c
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Error_Handling_2.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Fade.AMOS b/AMOS/Tutorial/Tutorials/Fade.AMOS
new file mode 100644
index 0000000..47152ea
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Fade.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Hardware_Sprites.AMOS b/AMOS/Tutorial/Tutorials/Hardware_Sprites.AMOS
new file mode 100644
index 0000000..12af0e8
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Hardware_Sprites.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Iff_Animation.AMOS b/AMOS/Tutorial/Tutorials/Iff_Animation.AMOS
new file mode 100644
index 0000000..681582f
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Iff_Animation.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Autocentering.AMOS b/AMOS/Tutorial/Tutorials/Interface/Autocentering.AMOS
new file mode 100644
index 0000000..f2fb0de
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Autocentering.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Button_Types.AMOS b/AMOS/Tutorial/Tutorials/Interface/Button_Types.AMOS
new file mode 100644
index 0000000..7dcffca
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Button_Types.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Communication.AMOS b/AMOS/Tutorial/Tutorials/Interface/Communication.AMOS
new file mode 100644
index 0000000..15c09c5
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Communication.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Editing_Zones.AMOS b/AMOS/Tutorial/Tutorials/Interface/Editing_Zones.AMOS
new file mode 100644
index 0000000..aab1043
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Editing_Zones.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Example_Resource.Abk b/AMOS/Tutorial/Tutorials/Interface/Example_Resource.Abk
new file mode 100644
index 0000000..34ff711
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Example_Resource.Abk differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Full_Example.AMOS b/AMOS/Tutorial/Tutorials/Interface/Full_Example.AMOS
new file mode 100644
index 0000000..757af9a
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Full_Example.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Graphics.AMOS b/AMOS/Tutorial/Tutorials/Interface/Graphics.AMOS
new file mode 100644
index 0000000..dd30799
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Graphics.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Simple_Requester.AMOS b/AMOS/Tutorial/Tutorials/Interface/Simple_Requester.AMOS
new file mode 100644
index 0000000..ad8fc80
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Simple_Requester.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Sliders.AMOS b/AMOS/Tutorial/Tutorials/Interface/Sliders.AMOS
new file mode 100644
index 0000000..e56e216
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Sliders.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Interface/Working_Buttons.AMOS b/AMOS/Tutorial/Tutorials/Interface/Working_Buttons.AMOS
new file mode 100644
index 0000000..857862e
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Interface/Working_Buttons.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Data.Menu b/AMOS/Tutorial/Tutorials/Menus/Data.Menu
new file mode 100644
index 0000000..c07e466
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Data.Menu differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_1.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_1.AMOS
new file mode 100644
index 0000000..60ec7bb
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_1.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_2.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_2.AMOS
new file mode 100644
index 0000000..45f5c00
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_2.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_3.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_3.AMOS
new file mode 100644
index 0000000..277d223
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_3.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_4.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_4.AMOS
new file mode 100644
index 0000000..89f0e30
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_4.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_5.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_5.AMOS
new file mode 100644
index 0000000..7830840
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_5.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_6.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_6.AMOS
new file mode 100644
index 0000000..6164e26
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_6.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_7.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_7.AMOS
new file mode 100644
index 0000000..32ea6b7
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_7.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_8.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_8.AMOS
new file mode 100644
index 0000000..fa0b305
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_8.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Menus/Menus_9.AMOS b/AMOS/Tutorial/Tutorials/Menus/Menus_9.AMOS
new file mode 100644
index 0000000..a3a168e
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Menus/Menus_9.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Multi_Rainbows.AMOS b/AMOS/Tutorial/Tutorials/Multi_Rainbows.AMOS
new file mode 100644
index 0000000..88fe7b6
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Multi_Rainbows.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Multi_Rainbows.V1_00 b/AMOS/Tutorial/Tutorials/Multi_Rainbows.V1_00
new file mode 100644
index 0000000..88fe7b6
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Multi_Rainbows.V1_00 differ
diff --git a/AMOS/Tutorial/Tutorials/Procedures_1.AMOS b/AMOS/Tutorial/Tutorials/Procedures_1.AMOS
new file mode 100644
index 0000000..f2c8ec8
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Procedures_1.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Procedures_2.AMOS b/AMOS/Tutorial/Tutorials/Procedures_2.AMOS
new file mode 100644
index 0000000..6b5102e
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Procedures_2.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Rainbows.AMOS b/AMOS/Tutorial/Tutorials/Rainbows.AMOS
new file mode 100644
index 0000000..719550c
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Rainbows.AMOS differ
diff --git a/AMOS/Tutorial/Tutorials/Sprites_v_Bobs.AMOS b/AMOS/Tutorial/Tutorials/Sprites_v_Bobs.AMOS
new file mode 100644
index 0000000..5c913b1
Binary files /dev/null and b/AMOS/Tutorial/Tutorials/Sprites_v_Bobs.AMOS differ
diff --git a/AMOSPro Sources/(Compiler_Config.o) b/AMOSPro Sources/(Compiler_Config.o)
new file mode 100644
index 0000000..e915624
Binary files /dev/null and b/AMOSPro Sources/(Compiler_Config.o) differ
diff --git a/AMOSPro Sources/(Convert.o) b/AMOSPro Sources/(Convert.o)
new file mode 100644
index 0000000..1a8d78a
Binary files /dev/null and b/AMOSPro Sources/(Convert.o) differ
diff --git a/AMOSPro Sources/(Editor_Config.o) b/AMOSPro Sources/(Editor_Config.o)
new file mode 100644
index 0000000..102dbef
Binary files /dev/null and b/AMOSPro Sources/(Editor_Config.o) differ
diff --git a/AMOSPro Sources/(FSel.o) b/AMOSPro Sources/(FSel.o)
new file mode 100644
index 0000000..5e2ea1f
Binary files /dev/null and b/AMOSPro Sources/(FSel.o) differ
diff --git a/AMOSPro Sources/(Interpreter_Config.o) b/AMOSPro Sources/(Interpreter_Config.o)
new file mode 100644
index 0000000..2bbeae2
Binary files /dev/null and b/AMOSPro Sources/(Interpreter_Config.o) differ
diff --git a/AMOSPro Sources/(b.o) b/AMOSPro Sources/(b.o)
new file mode 100644
index 0000000..f077d53
Binary files /dev/null and b/AMOSPro Sources/(b.o) differ
diff --git a/AMOSPro Sources/+3d.s b/AMOSPro Sources/+3d.s
new file mode 100644
index 0000000..2b60267
--- /dev/null
+++ b/AMOSPro Sources/+3d.s	
@@ -0,0 +1,1558 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+*      Incdir   "i:"
+
+; AMOS Professional stuff
+
+Version MACRO
+      	dc.b   "Issue 1.02(AP200)"
+      	ENDM
+
+      Include  "+AMOS_Includes.s"
+
+
+ExtNb          equ   3                 * Number of extension - 1
+
+CStackSize     equ   3000-1            * Must be odd
+FirstCode      equ   4                 * Offset of code from start of Segment
+C_COLD_START   equ   2                 * Offset from start of code to cold
+                                       * start routine (=sizeof(bra.s))
+
+LEN_CPRG_NAME  equ   8                 * length of "c3d.prg\0"
+MX_SMOS_PATH   equ   50                * A reasonable path length
+MX_CPRG_PATH   equ   MX_SMOS_PATH+LEN_CPRG_NAME
+
+
+BEARING_A      equ   0
+BEARING_B      equ   1
+BEARING_R      equ   2
+BEARING_CALC   equ   8
+BEARING_OB_OB  equ   0
+BEARING_OB_PT  equ   4
+
+TX_XCOORD      equ   0
+TX_YCOORD      equ   1
+TX_ZCOORD      equ   2
+TX_CALCULATE   equ   4
+
+ANIM_ABS       equ   0
+ANIM_REL       equ   1
+
+ERR_CANT_LOAD_CODE equ 28  * Must be consistant with error messages below
+
+******************************************************************************
+*                     Imports from C 3d functions
+*   Each equate corresponds to a C function whose address is given in the
+*   corresponding position in the look-up table at the start of 'c3d.s'.
+*   Any changes to these equates must be mirrored in the look-up table.
+
+TD_DEBUG            equ     0
+TD_SCREEN_HEIGHT    equ     1
+TD_BACKGROUND       equ     2
+TD_CLS              equ     3
+TD_OBJECT           equ     4
+TD_LOAD             equ     5
+TD_SET_DIR          equ     6
+TD_CLEAR_ALL        equ     7
+TD_KILL             equ     8
+TD_MOVE_XYZ         equ     9
+TD_MOVE_ABS         equ     10
+TD_MOVE_REL         equ     11
+TD_POSITION_XYZ     equ     12
+TD_ANGLE_ABC        equ     13
+TD_ANGLE_ABS        equ     14
+TD_ANGLE_REL        equ     15
+TD_ATTITUDE_ABC     equ     16
+TD_VISIBLE          equ     17
+TD_RANGE            equ     18
+TD_ANIM             equ     19
+TD_ANIM_POINT       equ     20
+TD_REDRAW           equ     21
+TD_SET_ZONE         equ     22
+TD_COLLIDE          equ     23
+TD_ZONE_XYZR        equ     24
+TD_WORLD_XYZ        equ     25
+TD_VIEW_XYZ         equ     26
+TD_SCREEN_XY        equ     27
+TD_INIT             equ     28      * Not used in AMOS
+TD_FORWARD          equ     29
+TD_FACE             equ     30
+TD_BEARING_ABR      equ     31
+
+TD_SURFACE          equ     32
+TD_SURFACE_POINTS   equ     33
+TD_KEEP             equ     34
+TD_ADVANCED         equ     35
+TD_PRIORITY         equ     (TD_ADVANCED+1)
+TD_PRAGMA_STATUS    equ     (TD_PRIORITY+1)
+TD_PRAGMA           equ     (TD_PRAGMA_STATUS+1)
+TD_DELETE_ZONE      equ     (TD_PRAGMA+1)
+TD_SETCOL           equ     (TD_DELETE_ZONE+1)
+
+TD_ROTATE           equ     (TD_SETCOL+1)  ; Test 3/92
+
+N_SPARES            equ     9    ; 10
+
+* RESET_3D            equ     (TD_SETCOL+N_SPARES+1)
+RESET_3D            equ     (TD_ROTATE+N_SPARES+1)
+
+QUIT_3D             equ     (RESET_3D+1)
+NUM_LIB_ROUTINES    equ     (QUIT_3D+1)
+
+******************************************************************************
+*   CallC and CallCP are macros intended to simplify entry to C from
+*   library routines. The macros calculate the start of the compiler
+*   library 'data' area label (NOT the 68000 data section) and then jumps
+*   to one of the set up routines:
+*       Macro       Set up routine                  Notes
+*       -----       --------------                  -----
+*       CallC       SetUpC          Normal parameters expected.
+*       CallCP      SetUpCP         Passes an extra parameter to the C function
+*                                   as its first parameter.
+*       CallCPM                     Not used in AMOS (see STOS version)
+
+CallC:      MACRO
+            move.l  ExtAdr+ExtNb*16(a5),a2      * Get address of Data zone
+            jmp     SetUpC-Data(a2)
+            ENDM
+
+CallCP:     MACRO
+            move.l  ExtAdr+ExtNb*16(a5),a2      * Get address of Data zone
+            jmp     SetUpCP-Data(a2)
+            ENDM
+
+******************************************************************************
+*                           Compiler Header
+*                           ===============
+
+*           Offsets to the three main sections of the Library
+
+Start       dc.l     TokenTable-Catalogue    * Offset to Token Table
+            dc.l     Library-TokenTable      * Offset to Library
+            dc.l     Title-Library           * Offset to Welcome message
+            dc.l     End-Title               * Offset to end of extension
+
+*  This flag forces the compiler to include Library function 0 in all
+*  compiled programs. I think it should be off for 3D.
+            dc.w     0
+
+
+*       Catalogue of the lengths of all compiler library functions, in 3D
+*       these are all just entry points to the C environment code.
+
+
+Catalogue:
+   dc.w    (IDummy-Library)>>1          * 1  Dummy - for expansion
+   dc.w    (IDebug-IDummy)>>1           * 2  Td Debug
+   dc.w    (ILoad-IDebug)>>1            * 3  Td Load
+   dc.w    (IClearAll-ILoad)>>1         * 4  Td Clear All
+   dc.w    (IObject-IClearAll)>>1       * 5  Td Object
+   dc.w    (IScrHeight-IObject)>>1      * 6  Td Screen height
+   dc.w    (FVisible-IScrHeight)>>1     * 7
+   dc.w    (FRange-FVisible)>>1         * 8
+   dc.w    (IKill-FRange)>>1            * 9
+   dc.w    (IMove_x-IKill)>>1           * 10
+   dc.w    (IMove_y-IMove_x)>>1         * 11
+   dc.w    (IMove_z-IMove_y)>>1         * 12
+   dc.w    (IMove_rel-IMove_z)>>1       * 13
+   dc.w    (IMove_abs-IMove_rel)>>1     * 14
+   dc.w    (IForward-IMove_abs)>>1      * 15
+   dc.w    (FPosition_x-IForward)>>1    * 16
+   dc.w    (FPosition_y-FPosition_x)>>1 * 17
+   dc.w    (FPosition_z-FPosition_y)>>1 * 18
+   dc.w    (IAngle_A-FPosition_z)>>1    * 19
+   dc.w    (IAngle_B-IAngle_A)>>1       * 20
+   dc.w    (IAngle_C-IAngle_B)>>1       * 21
+   dc.w    (IAngle_rel-IAngle_C)>>1     * 22
+   dc.w    (IAngle_abs-IAngle_rel)>>1   * 23
+   dc.w    (FAttitudeA-IAngle_abs)>>1   * 24
+   dc.w    (FAttitudeB-FAttitudeA)>>1   * 25
+   dc.w    (FAttitudeC-FAttitudeB)>>1   * 26
+   dc.w    (IFaceObs-FAttitudeC)>>1     * 27
+   dc.w    (IFaceObPt-IFaceObs)>>1      * 28
+   dc.w    (FBearA-IFaceObPt)>>1        * 29
+   dc.w    (FBearAObOb-FBearA)>>1       * 30
+   dc.w    (FBearAObPt-FBearAObOb)>>1   * 31
+   dc.w    (FBearB-FBearAObPt)>>1       * 32
+   dc.w    (FBearBObOb-FBearB)>>1       * 33
+   dc.w    (FBearBObPt-FBearBObOb)>>1   * 34
+   dc.w    (FBearR-FBearBObPt)>>1       * 35
+   dc.w    (FBearRObOb-FBearR)>>1       * 36
+   dc.w    (FBearRObPt-FBearRObOb)>>1   * 37
+   dc.w    (IAnimRel-FBearRObPt)>>1     * 38
+   dc.w    (FAnimPtX-IAnimRel)>>1       * 39
+   dc.w    (FAnimPtY-FAnimPtX)>>1       * 40
+   dc.w    (FAnimPtZ-FAnimPtY)>>1       * 41
+   dc.w    (IAnim-FAnimPtZ)>>1          * 42
+   dc.w    (IRedraw-IAnim)>>1           * 43
+   dc.w    (ISetZone-IRedraw)>>1        * 44
+   dc.w    (FCollide1-ISetZone)>>1      * 45
+   dc.w    (FCollide2-FCollide1)>>1     * 46
+   dc.w    (FZoneX-FCollide2)>>1        * 47
+   dc.w    (FZoneY-FZoneX)>>1           * 48
+   dc.w    (FZoneZ-FZoneY)>>1           * 49
+   dc.w    (FZoneR-FZoneZ)>>1           * 50
+   dc.w    (FWorldX-FZoneR)>>1          * 51
+   dc.w    (FWorldXxyz-FWorldX)>>1      * 52
+   dc.w    (FWorldY-FWorldXxyz)>>1      * 53
+   dc.w    (FWorldYxyz-FWorldY)>>1      * 54
+   dc.w    (FWorldZ-FWorldYxyz)>>1      * 55
+   dc.w    (FWorldZxyz-FWorldZ)>>1      * 56
+   dc.w    (FViewX-FWorldZxyz)>>1       * 57
+   dc.w    (FViewXxyz-FViewX)>>1        * 58
+   dc.w    (FViewY-FViewXxyz)>>1        * 59
+   dc.w    (FViewYxyz-FViewY)>>1        * 60
+   dc.w    (FViewZ-FViewYxyz)>>1        * 61
+   dc.w    (FViewZxyz-FViewZ)>>1        * 62
+   dc.w    (FScreenX-FViewZxyz)>>1      * 63
+   dc.w    (FScreenXxyz-FScreenX)>>1    * 64
+   dc.w    (FScreenY-FScreenXxyz)>>1    * 65
+   dc.w    (FScreenYxyz-FScreenY)>>1    * 66
+   dc.w    (IBackGnd-FScreenYxyz)>>1    * 67 Plane=0
+   dc.w    (IBackGndPl-IBackGnd)>>1     * 68 Plane is a parameter
+   dc.w    (ISetDir-IBackGndPl)>>1      * 69
+   dc.w    (ISurfPtsOff-ISetDir)>>1     * 70
+   dc.w    (ISurfacePts-ISurfPtsOff)>>1 *
+   dc.w    (ISurface-ISurfacePts)>>1    *
+   dc.w    (ICls-ISurface)>>1           *
+   dc.w    (IKeepOn-ICls)>>1            * 73
+   dc.w    (IKeepOff-IKeepOn)>>1        * 4
+   dc.w    (FAdvanced-IKeepOff)>>1      * 75
+   dc.w    (IQuit-FAdvanced)>>1         *
+
+   * New in Issue 1.30 28/6/91 for Tony
+   dc.w    (IPriority-IQuit)>>1         * Td Priority n,pri
+   dc.w    (FPragmaStat-IPriority)>>1   * = Td Pragma Status(param0,param1)
+   dc.w    (IPragma-FPragmaStat)>>1     * Td Pragma(param0,param1)
+
+   * New in Issue 1.50
+   dc.w    (IDelZone-IPragma)>>1          * 9
+
+   * New in issue 1.90
+   dc.w    (ISetCol-IDelZone)>>1           * 80
+
+*   dc.w    (Spare0-ISetCol)>>1           * 81 Spare - for expansion
+   dc.w    (IRotate-ISetCol)>>1           * New 3/92
+   dc.w    (Spare0-IRotate)>>1           *
+
+   dc.w    (Spare1-Spare0)>>1           * 2
+   dc.w    (Spare2-Spare1)>>1           * 83
+   dc.w    (Spare3-Spare2)>>1           * 4
+   dc.w    (Spare4-Spare3)>>1           * 5
+   dc.w    (Spare5-Spare4)>>1           * 6
+   dc.w    (Spare6-Spare5)>>1           *
+   dc.w    (Spare7-Spare6)>>1           * 8
+   dc.w    (Spare8-Spare7)>>1           * 89
+
+*   dc.w    (Spare9-Spare8)>>1           * 0
+*   dc.w    (ErrScrNotOpen-Spare9)>>1    * 91 Screen not opened error message
+
+   dc.w    (ErrScrNotOpen-Spare8)>>1    * 91 Screen not opened error message
+
+
+   dc.w    (ErrCustomMsg-ErrScrNotOpen)>>1 * 22.0 Custom errors with messages
+   dc.w    (ErrCustom-ErrCustomMsg)>>1  * 92.1 Custom errors no messages
+   dc.w    (LibraryEnd-ErrCustom)>>1    * End Of Library !!
+
+*       Parameter check tables for use during compilation
+
+TokenTable:
+ExTk:       dc.w     1,0               * Fake instruction
+            dc.b     $80,-1
+
+            dc.w     L_IDebug,1        * Debug
+            dc.b     "td debu","g"+$80,"I0",-1
+
+            dc.w     L_ILoad,1
+            dc.b     "td loa","d"+$80,"I2",-1
+
+            dc.w     L_IClearAll,1
+            dc.b     "td clear al","l"+$80,"I",-1
+
+            dc.w     L_IObject,1       * Td Object
+            dc.b     "td objec","t"+$80,"I0,2,0,0,0,0,0,0",-1
+
+            dc.w     L_IScrHeight,1    * Screen height
+            dc.b     "td screen heigh","t"+$80,"I0",-1
+
+            dc.w     1,L_FVisible        * Object visible function
+            dc.b     "td visibl","e"+$80,"00",-1
+
+            dc.w     1,L_FRange          * Object range function
+            dc.b     "td rang","e"+$80,"00,0",-1
+
+            dc.w     L_IKill,1         * Kill Object n instruction
+            dc.b     "td kil","l"+$80,"I0",-1   * 1 param
+
+            dc.w     L_IMove_x,1       * Move x instruction
+            dc.b     "td move ","x"+$80,"I0,2",-1
+
+            dc.w     L_IMove_y,1       * Move y instruction
+            dc.b     "td move ","y"+$80,"I0,2",-1
+
+            dc.w     L_IMove_z,1       * Move z instruction
+            dc.b     "td move ","z"+$80,"I0,2",-1
+
+            dc.w     L_IMove_rel,1     * Move relative instructon
+            dc.b     "td move re","l"+$80,"I0,0,0,0",-1
+
+            dc.w     L_IMove_abs,1     * Move absolute instructon
+            dc.b     "td mov","e"+$80,"I0,0,0,0",-1
+
+            dc.w     L_IForward,1      * Move forward instructon
+            dc.b     "td forwar","d"+$80,"I0,0",-1
+
+            dc.w     1,L_FPosition_x     * Td Position X function
+            dc.b     "td position ","x"+$80,"00",-1
+
+            dc.w     1,L_FPosition_y     * Td Position Y function
+            dc.b     "td position ","y"+$80,"00",-1
+
+            dc.w     1,L_FPosition_z     * Td Position Z function
+            dc.b     "td position ","z"+$80,"00",-1
+
+            dc.w     L_IAngle_A,1      * Td Angle A instruction
+            dc.b     "td angle ","a"+$80,"I0,2",-1
+
+            dc.w     L_IAngle_B,1      * Td Angle B instruction
+            dc.b     "td angle ","b"+$80,"I0,2",-1
+
+            dc.w     L_IAngle_C,1      * Td Angle C instruction
+            dc.b     "td angle ","c"+$80,"I0,2",-1
+
+            dc.w     L_IAngle_rel,1    * Td Angle rel n A,B,C
+            dc.b     "td angle re","l"+$80,"I0,0,0,0",-1
+
+            dc.w     L_IAngle_abs,1    * Td Angle n A,B,C
+            dc.b     "td angl","e"+$80,"I0,0,0,0",-1
+
+            dc.w     1,L_FAttitudeA      * Td Attitude A instruction
+            dc.b     "td attitude ","a"+$80,"00",-1
+
+            dc.w     1,L_FAttitudeB      * Td Attitude B instruction
+            dc.b     "td attitude ","b"+$80,"00",-1
+
+            dc.w     1,L_FAttitudeC      * Td Attitude C instruction
+            dc.b     "td attitude ","c"+$80,"00",-1
+
+            dc.w     L_IFaceObs,1      * Td Face n1,n2 function
+            dc.b     "!td fac","e"+$80,"I0,0",-2
+
+            dc.w     L_IFaceObPt,1     * Td Face n,x,y,z function
+            dc.b     $80,"I0,0,0,0",-1
+
+            dc.w     1,L_FBearA        * =Td Bearing A
+            dc.b     "!td bearing ","a"+$80,"0",-2
+
+            dc.w     1,L_FBearAObOb    * =Td Bearing A(n1,n2)
+            dc.b     $80,"00,0",-2
+
+            dc.w     1,L_FBearAObPt    * =Td Bearing A(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FBearB        * =Td Bearing B
+            dc.b     "!td bearing ","b"+$80,"0",-2
+
+            dc.w     1,L_FBearBObOb    * =Td Bearing B(n1,n2)
+            dc.b     $80,"00,0",-2
+
+            dc.w     1,L_FBearBObPt    * =Td Bearing B(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FBearR        * =Td Bearing R
+            dc.b     "!td bearing ","r"+$80,"0",-2
+
+            dc.w     1,L_FBearRObOb    * =Td Bearing R(n1,n2)
+            dc.b     $80,"00,0",-2
+
+            dc.w     1,L_FBearRObPt    * =Td Bearing R(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     L_IAnimRel,1     * Td anim rel instruction
+            dc.b     "td anim re","l"+$80,"I0,0,0,0,0,0",-1
+
+            dc.w     1,L_FAnimPtX   * =Td Anim Point X/Y/Z(n,pn)
+            dc.b     "td anim point ","x"+$80,"00,0",-1
+
+            dc.w     1,L_FAnimPtY
+            dc.b     "td anim point ","y"+$80,"00,0",-1
+
+            dc.w     1,L_FAnimPtZ
+            dc.b     "td anim point ","z"+$80,"00,0",-1
+
+            dc.w     L_IAnim,1         * Td anim instruction
+            dc.b     "td ani","m"+$80,"I0,0,0,0,0,0",-1
+
+            dc.w     L_IRedraw,1      * Td Redraw instruction
+            dc.b     "td redra","w"+$80,"I",-1
+
+            dc.w     L_ISetZone,1     * Set zone instruction
+            dc.b     "td set zon","e"+$80,"I0,0,0,0,0,0",-1
+
+            dc.w     1,L_FCollide1     * =Td Collide(n)
+            dc.b     "!td collid","e"+$80,"00",-2
+
+            dc.w     1,L_FCollide2     * =Td Collide(n1,n2)
+            dc.b     $80,"00,0",-1
+
+            dc.w     1,L_FZoneX        * Td Zone X function
+            dc.b     "td zone ","x"+$80,"00,0",-1
+
+            dc.w     1,L_FZoneY        * Td Zone X function
+            dc.b     "td zone ","y"+$80,"00,0",-1
+
+            dc.w     1,L_FZoneZ        * Td Zone X function
+            dc.b     "td zone ","z"+$80,"00,0",-1
+
+            dc.w     1,L_FZoneR        * Td Zone X function
+            dc.b     "td zone ","r"+$80,"00,0",-1
+
+            dc.w     1,L_FWorldX       * =Td World X
+            dc.b     "!td world ","x"+$80,"0",-2
+
+            dc.w     1,L_FWorldXxyz    * =Td World X(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FWorldY       * =Td World Y
+            dc.b     "!td world ","y"+$80,"0",-2
+
+            dc.w     1,L_FWorldYxyz    * =Td World Y(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FWorldZ       * =Td World Z
+            dc.b     "!td world ","z"+$80,"0",-2
+
+            dc.w     1,L_FWorldZxyz    * =Td World Z(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FViewX        * =Td View X
+            dc.b     "!td view ","x"+$80,"0",-2
+
+            dc.w     1,L_FViewXxyz     * =Td View X(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FViewY        * =Td View Y
+            dc.b     "!td view ","y"+$80,"0",-2
+
+            dc.w     1,L_FViewYxyz     * =Td View Y(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FViewZ        * =Td View Z
+            dc.b     "!td view ","z"+$80,"0",-2
+
+            dc.w     1,L_FViewZxyz     * =Td View Z(n,x,y,z)
+            dc.b     $80,"00,0,0,0",-1
+
+            dc.w     1,L_FScreenX      * =Td Screen X
+            dc.b     "!td screen ","x"+$80,"0",-2
+
+            dc.w     1,L_FScreenXxyz   * =Td Screen X(x,y,z)
+            dc.b     $80,"00,0,0",-1
+
+            dc.w     1,L_FScreenY      * =Td Screen Y
+            dc.b     "!td screen ","y"+$80,"0",-2
+
+            dc.w     1,L_FScreenYxyz   * =Td Screen Y(x,y,z)
+            dc.b     $80,"00,0,0",-1
+
+            dc.w     L_IBackGnd,1      * Background, plane=0
+            dc.b     "!td backgroun","d"+$80,"I0,0,0,0,0t0,0",-2
+
+            dc.w     L_IBackGndPl,1    * Background, plane is last parameter
+            dc.b     $80,"I0,0,0,0,0t0,0,0",-1
+
+            dc.w     L_ISetDir,1       * Object directory function
+            dc.b     "td di","r"+$80,"I2",-1
+
+            dc.w     L_ISurfPtsOff,1
+            dc.b     "td surface points of","f"+$80,"I",-1
+
+            dc.w     L_ISurfacePts,1   * Td Surface Points p0,p1,p2,p3
+            dc.b     "td surface point","s"+$80,"I0,0,0,0",-1
+
+            dc.w     L_ISurface,1      * Td Surface S$,sb,sf to t,tb,ts,r
+            dc.b     "td surfac","e"+$80,"I2,0,0t0,0,0,0",-1
+
+            dc.w     L_ICls,1          * Td Cls
+            dc.b     "td cl","s"+$80,"I",-1
+
+            dc.w     L_IKeepOn,1       * Keep objects loaded
+            dc.b     "td keep o","n"+$80,"I",-1
+
+            dc.w     L_IKeepOff,1      * Dont keep objects loaded
+            dc.b     "td keep of","f"+$80,"I",-1
+
+            dc.w     1,L_FAdvanced     * Td Advanced n
+            dc.b     "td advance","d"+$80,"00",-1
+
+            dc.w     L_IQuit,1         * Td Quit
+            dc.b     "td qui","t"+$80,"I",-1
+
+            dc.w     L_IPriority,1     * Td Priority n,pri
+            dc.b     "td priorit","y"+$80,"I0,0",-1
+
+            dc.w     1,L_FPragmaStat   * =Td Pragma Status(param0,param1)
+            dc.b     "td pragma statu","s"+$80,"00,0",-1
+
+            dc.w     L_IPragma,1       * Td Pragma param0,param1
+            dc.b     "td pragm","a"+$80,"I0,0",-1
+
+            dc.w     L_IDelZone,1      * Td Delete Zone n,zn
+            dc.b     "td delete zon","e"+$80,"I0,0",-1
+
+            dc.w     L_ISetCol,1       * Td Set Colour n,b,c
+            dc.b     "td set colou","r"+$80,"I0,0,0",-1
+
+            dc.w     L_IRotate,1       * Td Rotate n,A,B,C
+            dc.b     "td rotat","e"+$80,"I0,0,0,0",-1
+
+            dc.w     0                 * End of token table
+
+
+******************************************************************************
+*                               LIBRARY
+******************************************************************************
+
+*** Cold Start
+* The first library function (L0) is the extension cold start routine.
+* Various addresses are saved in the AMOS extension area and memory
+* is allocated for the C stack.
+* The 3d reset routine reset_3d is now called after the 3d code segment
+* has been loaded.
+
+Library:
+	cmp.l	#"APex",d1
+	bne	BadVer
+
+* Save extension addresses in AMOS extension table
+            lea      Data(pc),a2        * Stash data zone
+            move.l   a2,ExtAdr+ExtNb*16(a5)
+            lea      ExDef(pc),a0       * Stash 'default' routine
+            move.l   a0,ExtAdr+ExtNb*16+4(a5)
+            lea      ExEnd(pc),a0       * Stash 'end' routine
+            move.l   a0,ExtAdr+ExtNb*16+8(a5)
+            move.l   a5,AmosA5(a2)      * Stash Amos a5 for ___aprintf
+
+* Prend la ligne de commande (le path)
+	lea	CmdPath(pc),a0
+	clr.b	(a0)
+.Space	cmp.b	#" ",(a1)+
+	beq.s	.Space
+	subq.l	#1,a1
+	cmp.b	#"-",(a1)+
+	bne.s	.NoCom
+	move.b	(a1)+,d0
+	cmp.b	#"f",d0
+	beq.s	.Copy
+	cmp.b	#"F",d0
+	bne.s	.NoCom
+.Copy	move.b	(a1)+,(a0)+
+	bne.s	.Copy
+.NoCom
+* Allocate some stack space for C
+            move.l   #CStackSize,d0
+            move.l   #Clear,d1
+            Execall  AllocMem
+            tst.l    d0
+            bne.s    StackMemOk
+            moveq    #-1,d0              * Error condition
+	    sub.l    a0,a0
+            bra.s    StackErr
+StackMemOk: move.l   d0,CStackEnd(a2)    * Stack end = low address
+            add.l    #CStackSize-1,d0
+            move.l   d0,CStackStart(a2)  * Stack start = high address
+            moveq    #ExtNb,d0           * Returns NUMBER OF EXTENSION
+	    move.w   #$0110,d1		 * Current version of AMOSPro
+StackErr:   rts
+* Bad version
+BadVer	lea	.BadMes(pc),a0		Error message
+	moveq	#-1,d0			Stop loading
+	rts
+.BadMes	dc.b	"3d extension only works with AMOSPro 1.10 and over.",0
+	even
+
+*** Default/Run reset
+* Everytime AMOS is reset or run it will call this code. If the C code
+* segment is loaded reset_3d() is called.
+
+ExDef:
+	    lea      Data(pc),a2
+            tst.l    CPrgSeg(a2)
+            beq.s    NoCProgram           * C isn't loaded - Do nothing
+
+*         illegal
+            move.l   a4,-(sp)             * Stash a4 for AMOS
+            move.l   sp,AmosStack(a2)     * Set up 'C' stack
+            move.l   CStackStart(a2),sp
+            move.l   CLinkerDB(a2),a4     * C V5.10 base relative addressing
+            move.l   CTable(a2),a0
+            move.l   RESET_3D*4(a0),a0
+            jsr      (a0)                 * Jump to 'C' function
+            move.l   AmosStack(a2),sp     * Restore AMOS stack
+            move.l   (sp)+,a4             * ...and a4
+NoCProgram: rts
+
+*** AMOS quit routine
+*
+* This function is called when AMOS quits. If present the C code segment
+* is unloaded via UnLoadCPrg. In all cases the memory allocated as C stack
+* space is freed.
+
+ExEnd:      lea      Data(pc),a2
+            bsr      UnLoadCPrg
+            move.l   CStackEnd(a2),a1
+            move.l   #CStackSize,d0
+            ExeCall  FreeMem
+            rts
+
+*** C set up routines.
+*
+* Either SetUpC or SetUpCP is by called its corresponding CallXX macro.
+* The functions install the C stack and environment, place the Amos
+* parameters onto the C stack and then jsr to the relevant C function.
+* On return from C the Amos stack and environment is restored and,
+* if required, the function return value passed back to Amos.
+
+SetUpC:     moveq    #-1,d2              * Flag no extra parameters
+SetUpCP:    tst.l    CPrgSeg(a2)
+            bne.s    CPrgOk
+            bsr      LoadCPrg
+CPrgOk:     move.l   CStackStart(a2),a1   * a1=C C stack base
+            jmp      0(a2,d0.w)
+
+CSurface:   move.l   (a3)+,-(a1)          * Td Surface s$,n,n to n,n,n,n
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,a0
+            move.w   (a0)+,d3
+            ext.l    d3
+            move.l   a0,-(a1)
+            move.l   d3,-(a1)
+            bra.s    CNoneNoRet
+
+CObject:    move.l   (a3)+,-(a1)          * Td Object n,"s$",n,n,n,n,n,n
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,-(a1)
+            move.l   (a3)+,a0
+            move.w   (a0)+,d3
+            ext.l    d3
+            move.l   a0,-(a1)
+            move.l   d3,-(a1)
+            move.l   (a3)+,-(a1)
+            bra.s    CNoneNoRet
+
+CIntStrNoR: move.l  (a3)+,a0
+            move.w  (a0)+,d3
+            ext.l   d3
+            move.l  a0,-(a1)
+            move.l  d3,-(a1)
+            bra.s   CIntNoRet
+
+CStrNoRet:  move.l  (a3)+,a0
+            move.w  (a0)+,d3
+            ext.l   d3
+            move.l  a0,-(a1)
+            move.l  d3,-(a1)
+            bra.s   CNoneNoRet
+
+C8IntNoRet: move.l  (a3)+,-(a1)
+            move.l  (a3)+,-(a1)
+C6IntNoRet: move.l  (a3)+,-(a1)
+            move.l  (a3)+,-(a1)
+C4IntNoRet: move.l  (a3)+,-(a1)
+C3IntNoRet: move.l  (a3)+,-(a1)
+C2IntNoRet: move.l  (a3)+,-(a1)
+CIntNoRet:  move.l  (a3)+,-(a1)
+CNoneNoRet: tst.l    d2
+            bmi.s    NoExtraPar1
+            move.l   d2,-(a1)
+NoExtraPar1:movem.l  a3-a6,-(sp)           * Stash registers on AMOS stack
+            move.l   sp,AmosStack(a2)
+            move.l   a1,sp
+            move.l   CLinkerDB(a2),a4      * C V5.10 base relative addressing
+            move.l   CTable(a2),a0
+            move.l   0(a0,d1.w),a0
+            jsr      (a0)
+            move.l   AmosStack(a2),sp
+            movem.l  (sp)+,a3-a6
+            rts
+
+C4IntRInt:  move.l  (a3)+,-(a1)
+C3IntRInt:  move.l  (a3)+,-(a1)
+C2IntRInt:  move.l  (a3)+,-(a1)
+CIntRInt:   move.l  (a3)+,-(a1)
+CNoneRInt:  tst.w   d2
+            bmi.s   NoExtraPar2
+            move.l  d2,-(a1)
+NoExtraPar2:movem.l  a3-a6,-(sp)           * Stash registers on AMOS stack
+            move.l   sp,AmosStack(a2)
+            move.l   a1,sp
+            move.l  CTable(a2),a0
+            move.l   CLinkerDB(a2),a4      * C V5.10 base relative addressing
+            move.l  0(a0,d1.w),a0
+            jsr     (a0)
+            move.l  AmosStack(a2),sp
+            movem.l (sp)+,a3-a6
+            move.l   d0,d3
+            moveq    #0,d2
+            rts
+
+*** Load C code segment
+*
+* On entry a2 must contain the address of the extension data area.
+*
+* The main 3D C code is loaded here. At the start of the newly loaded code
+* segment is a small machine code module, this contains a jump table to all
+* the C td_ functions. In order to find the address of the jump table, the
+* procedure below jsrs to the start of the new segment, on return a0
+* contains the jump table start address. In order for C to call various
+*
+* AMOS functions two addresses are passed to the new segment:
+*     a0.l - __smos_error, invokes an AMOS error message
+*     a1.l - ___aprintf, prints a string to the current AMOS window.
+*
+*     d0.l - DosBase
+*     d1.l - GfxBase
+*
+* On Exit
+*     a0   - C Jump table address
+*     a1   - C LinkerDB for C V5.10 compatibility
+*
+* N.B. LoadSeg returns a BCPL pointer (!)
+
+LoadCPrg:   movem.l  d0-d2/a3-a6,-(sp)       * d0-d2 for 3d, a3-a6 for AMOS
+
+	bsr	GetAMOSPath1		Essai avec la command line
+	beq.s	.Skip
+	bsr.s	TryToLoadC
+	bne.s	CLoadedOK
+.Skip	bsr	GetAMOSPath2		Essai dans APSystem
+	beq.s	.Skip2
+	bsr.s	TryToLoadC
+	bne.s	CLoadedOK
+
+* Try to find c3d.lib using the default paths
+.Skip2      lea      DefPaths(pc),a3
+            moveq.w  #2,d2                   * 3 Names, -1 for dbeq
+NextDefPath:move.w   (a3)+,a1                * New path string in a1
+            lea      0(a2,a1.w),a1
+            lea      CPrgPath(pc),a0
+CopyPath:   move.b   (a1)+,(a0)+
+            bne.s    CopyPath                * NUL ("\0") terminated strings
+            bsr.s    TryToLoadC
+            dbne     d2,NextDefPath
+	    beq.s    CantLoadPrg
+
+* Code loaded. BCPL code pointer in d0
+CLoadedOk:  move.l   d0,CPrgSeg(a2)
+            asl.l    #2,d0                   * d0=3d Code=(d0<<2)+4
+            addq.l   #FirstCode,d0
+            move.l   d0,a4
+            move.l   sp,AmosStack(a2)
+            move.l   CStackStart(a2),sp
+            lea      ___aprintf(pc),a0
+            lea      __smos_error(pc),a1
+            move.l   DosBase(a5),d0
+            move.l   T_GfxBase(a5),d1
+            jsr      C_COLD_START(a4)        * 3d initialisation
+            move.l   a0,CTable(a2)
+            move.l   a1,CLinkerDB(a2)        * Stash C V5.10 base address
+            move.l   AmosStack(a2),sp
+            movem.l  (sp)+,d0-d2/a3-a6
+            rts
+
+* Cant find C run time library, all we can do is quit
+CantLoadPrg:moveq    #ERR_CANT_LOAD_CODE,d0  * Error number
+            moveq    #0,d1                   * Error not trappable
+            moveq    #ExtNb,d2
+            RBra     L_Custom
+
+* Try to load the code using LoadSeg
+TryToLoadC: lea      CPrgPath(pc),a0
+            move.l   a0,d1
+            move.l   ExecBase,a6
+            move.l   DosBase(a5),a0
+            jsr      DosLoadSeg(a0)          * d0=BCPL Code Segment Pointer
+            tst.l    d0                      * ...or NULL
+            rts
+
+; Path found in command line...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+GetAMOSPath1
+	lea     CmdPath(pc),a0
+	tst.b	(a0)
+	beq	BadAMOSPath
+	move.l  a0,a1
+.Loop	tst.b   (a0)+
+	bne.s 	.Loop
+	move.l  a0,d0                   * Is the path too long ?
+	sub.l   a1,d0
+	cmp.l   #MX_CPRG_PATH,d0
+	bcc.s   BadAMOSPath
+	bra.s	PathCopy
+
+; Path found in normal system path
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+GetAMOSPath2
+	lea     Sys_Pathname(a5),a0
+	move.l  a0,a1
+.Loop	tst.b   (a0)+
+        bne.s 	.Loop
+	move.l  a0,d0                   * Is the path too long ?
+        sub.l   a1,d0
+        cmp.l   #MX_CPRG_PATH,d0
+        bcc.s   BadAMOSPath             * ...yes,fail !
+
+; Copy the path +/ name
+; ~~~~~~~~~~~~~~~~~~~~~
+PathCopy
+	subq     #2,a0
+	lea      CPrgPath(pc),a3         * Copy Sys_Pathname -> CPrgPath
+.Loop	move.b   (a1)+,(a3)+
+	cmpa.l   a1,a0
+	bcc.s    .Loop
+CopyName
+ 	lea      CPrgName(pc),a0
+.Loop	move.b   (a0)+,(a3)+             * Copy name (and "\0")
+        bne.s    .Loop
+        moveq    #-1,d0                  * Ok, return(TRUE);
+        rts
+BadAMOSPath
+	moveq    #0,d0                   * Fail, return(FALSE);
+        rts
+
+**** Unload C code segment
+*
+* This function is called when AMOS quits or when a Td Quit instruction is
+* issued. If the 3d C code segment is loaded quit_3d() is called and the
+* C code segment is unloaded.
+*
+* On entry a2 must contain the address of the extension data area.
+
+UnLoadCPrg: tst.l    CPrgSeg(a2)
+            beq.s    CNotLoaded
+            movem.l  a3-a6,-(sp)           * a3-a6 for AMOS
+            move.l   sp,AmosStack(a2)
+            move.l   CStackStart(a2),sp
+            move.l   CLinkerDB(a2),a4      * C V5.10 base relative addressing
+            move.l   CTable(a2),a0
+            move.l   QUIT_3D*4(a0),a0
+            jsr      (a0)
+            move.l   AmosStack(a2),sp
+            move.l   CPrgSeg(a2),d1        * d1=segment address
+            move.l   DosBase(a5),a0
+            move.l   ExecBase,a6           * Just in case !
+            jsr      DosULoadSeg(a0)
+            clr.l    CPrgSeg(a2)           * For Td Quit
+            movem.l  (sp)+,a3-a6
+CNotLoaded: rts
+
+**** Print a string routine, for debugging
+
+___aprintf: move.l   sp,a0
+            movem.l  d2-d7/a2-a6,-(sp)
+            lea      Data(pc),a2
+            move.l   AmosA5(a2),a5
+            move.l   4(a0),a1
+            WiCall   Print
+            movem.l  (sp)+,d2-d7/a2-a6
+            rts
+
+**** C error handler
+*
+*  C invokes an AMOS error message using the call 'smos_error'. This
+*  routine restores the AMOS environment before passing the parameters
+*  from C to Francois' error handlers. The parameters are :
+*
+*               smos_error(type, number [ ,trappable ]);
+*
+*   type      :    : Normal(0) or Custom(1) error message
+*   number    : d0 : Number of message in either list
+*   trappable : d2 : Only applies to Custom errors - can the error be trapped
+*             : d1 : ExtNb - Extension number
+
+
+__smos_error:
+            move.l   sp,a0             * Stash C stack
+            lea      Data(pc),a2
+            move.l   AmosStack(a2),sp  * Recover AMOS stack
+            movem.l  (sp)+,a3-a6       * Recover AMOS registers
+            move.l   8(a0),d0          * d0=error number
+            move.l   12(a0),d1         * d1=trappable
+            moveq    #ExtNb,d2         * d2=extension number
+            tst.l    4(a0)             * type of error...
+            beq.s    AmosError
+            RBra     L_Custom          * Does this zap the compiler bug ?
+AmosError:  RJmp     L_Error           * ...compiler error routine
+
+**** 3D Library data zone
+*
+            rsreset
+AmosStack:  rs.l    1
+AmosA5:     rs.l    1
+CTable:     rs.l    1
+CPrgSeg     rs.l    1
+CStackEnd:  rs.l    1
+CStackStart:rs.l    1
+CLinkerDB   rs.l    1
+
+Data:       ds.b     __RS
+DefPaths:   dc.w     CPrgName-Data     * (1) Look in current dir
+            dc.w     Default2-Data     * (2) amos_system/  APSystem/
+            dc.w     Default3-Data     * (3) command line
+Default3:   dc.b     ":"
+Default2:   dc.b     "APSystem/"       * AMOS Pro
+CPrgName:   dc.b     "c3d.lib",0
+CmdPath     ds.b     64
+CPrgPath:   ds.b     MX_CPRG_PATH
+            even
+
+****************************************************************************
+*                       Library functions
+
+L_IDummy     equ     1
+IDummy:
+
+L_IDebug    equ     2
+IDebug:
+            IFD     DEBUG
+            cmp.l   #-1,(a3)
+            bne.s NoTrap
+            illegal
+            ENDC
+NoTrap:
+            EcCall   Current                    * Get screen base (in a0)
+            tst.w    d0
+            RBmi     L_ErrScrNotOpen
+            move.l   a0,d2                      * Pass to C as extra parameter
+            move.w  #CIntNoRet-Data,d0
+            move.w  #4*TD_DEBUG,d1
+            CallCP
+
+L_ILoad     equ     3
+ILoad:      move.w  #CStrNoRet-Data,d0  * 130 Load an object instruction
+            move.w  #4*TD_LOAD,d1
+            CallC
+
+L_IClearAll equ     4
+IClearAll:  move.w  #CNoneNoRet-Data,d0
+            move.w  #4*TD_CLEAR_ALL,d1
+            CallC
+
+L_IObject   equ     5
+IObject:    move.w  #CObject-Data,d0
+            move.w  #4*TD_OBJECT,d1
+            CallC
+
+L_IScrHeight equ    6
+IScrHeight: move.w  #CIntNoRet-Data,d0
+            move.w  #4*TD_SCREEN_HEIGHT,d1
+            CallC
+
+L_FVisible  equ     7
+FVisible:   move.w  #CIntRInt-Data,d0    * 129 Object visible function
+            move.w  #4*TD_VISIBLE,d1
+            CallC
+
+L_FRange    equ     8
+FRange:     move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_RANGE,d1
+            CallC
+
+L_IKill     equ     9
+IKill:      move.w  #CIntNoRet-Data,d0
+            move.w  #4*TD_KILL,d1
+            CallC
+
+L_IMove_x   equ      10
+IMove_x:    move.w   #CIntStrNoR-Data,d0
+            move.w   #4*TD_MOVE_XYZ,d1
+            moveq    #0,d2
+            CallCP
+
+L_IMove_y    equ      11
+IMove_y:    move.w   #CIntStrNoR-Data,d0
+            move.w   #4*TD_MOVE_XYZ,d1
+            moveq    #1,d2
+            CallCP
+
+L_IMove_z    equ      12
+IMove_z:    move.w   #CIntStrNoR-Data,d0
+            move.w   #4*TD_MOVE_XYZ,d1
+            moveq    #2,d2
+            CallCP
+
+L_IMove_rel equ      13
+IMove_rel:  move.w   #C4IntNoRet-Data,d0     * 146 Move relative instructon
+            move.w   #4*TD_MOVE_REL,d1
+            CallC
+
+L_IMove_abs equ      14
+IMove_abs:  move.w   #C4IntNoRet-Data,d0 * 148 Move absolute instructon
+            move.w   #4*TD_MOVE_ABS,d1
+            CallC
+
+L_IForward  equ      15
+IForward:   move.w   #C2IntNoRet-Data,d0
+            move.w   #4*TD_FORWARD,d1
+            CallC
+
+L_FPosition_x equ    16
+FPosition_x:move.w   #CIntRInt-Data,d0
+            move.w   #4*TD_POSITION_XYZ,d1
+            moveq    #0,d2
+            CallCP
+
+L_FPosition_y equ    17
+FPosition_y:move.w  #CIntRInt-Data,d0
+            move.w  #4*TD_POSITION_XYZ,d1
+            moveq   #1,d2
+            CallCP
+
+L_FPosition_z equ    18
+FPosition_z:moveq   #2,d2
+            move.w  #CIntRInt-Data,d0
+            move.w  #4*TD_POSITION_XYZ,d1
+            CallCP
+
+L_IAngle_A  equ      19
+IAngle_A:   move.w  #CIntStrNoR-Data,d0
+            move.w  #4*TD_ANGLE_ABC,d1
+            moveq   #0,d2
+            CallCP
+
+L_IAngle_B  equ      20
+IAngle_B:   move.w   #CIntStrNoR-Data,d0
+            move.w   #4*TD_ANGLE_ABC,d1
+            moveq    #1,d2
+            CallCP
+
+L_IAngle_C  equ      21
+IAngle_C:   move.w   #CIntStrNoR-Data,d0
+            move.w   #4*TD_ANGLE_ABC,d1
+            moveq    #2,d2               * 154 Td Angle C instruction
+            CallCP
+
+L_IAngle_rel equ     22
+IAngle_rel: move.w   #C4IntNoRet-Data,d0
+            move.w   #4*TD_ANGLE_REL,d1          * 156 Oangle rel n A,B,C
+            CallC
+
+L_IAngle_abs equ     23
+IAngle_abs: move.w  #C4IntNoRet-Data,d0         * 158 Oangle n A,B,C
+            move.w  #4*TD_ANGLE_ABS,d1
+            CallC
+
+L_FAttitudeA equ     24
+FAttitudeA: move.w   #CIntRInt-Data,d0
+            move.w   #4*TD_ATTITUDE_ABC,d1
+            moveq    #0,d2
+            CallCP
+
+L_FAttitudeB equ     25
+FAttitudeB: move.w   #CIntRInt-Data,d0
+            move.w   #4*TD_ATTITUDE_ABC,d1
+            moveq    #1,d2
+            CallCP
+
+L_FAttitudeC equ     26
+FAttitudeC: moveq    #2,d2
+            move.w   #CIntRInt-Data,d0
+            move.w   #4*TD_ATTITUDE_ABC,d1
+            CallCP
+
+L_IFaceobs  equ      27
+IFaceObs:   move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_FACE,d1
+            moveq    #BEARING_CALC+BEARING_OB_OB,d2
+            CallCP
+
+L_IFaceObPt equ      28
+IFaceObPt:  move.w  #C4IntRInt-Data,d0
+            move.w  #4*TD_FACE,d1
+            moveq   #BEARING_CALC+BEARING_OB_PT,d2
+            CallCP
+
+L_FBearA    equ      29
+FBearA      move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_A,d2
+            CallCP
+
+L_FBearAObOb equ    30
+FBearAObOb  move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_A+BEARING_CALC+BEARING_OB_OB,d2
+            CallCP
+
+L_FBearAObPt equ      31
+FBearAObPt  move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_A+BEARING_CALC+BEARING_OB_PT,d2
+            CallCP
+
+L_FBearB    equ      32
+FBearB      move.w   #CNoneRInt-Data,d0       * This should be CNONE... !
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_B,d2
+            CallCP
+
+L_FBearBObOb equ    33
+FBearBObOb  move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_B+BEARING_CALC+BEARING_OB_OB,d2
+            CallCP
+
+L_FBearBObPt equ      34
+FBearBObPt  move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_B+BEARING_CALC+BEARING_OB_PT,d2
+            CallCP
+
+L_FBearR    equ      35
+FBearR      move.w   #CNoneRInt-Data,d0       * This should be CNONE... !
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_R,d2
+            CallCP
+
+L_FBearRObOb equ     36
+FBearRObOb  move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_R+BEARING_CALC+BEARING_OB_OB,d2
+            CallCP
+
+L_FBearRObPt equ     37
+FBearRObPt  move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_BEARING_ABR,d1
+            moveq.w  #BEARING_R+BEARING_CALC+BEARING_OB_PT,d2
+            CallCP
+
+L_IAnimRel  equ      38
+IAnimRel:   move.w   #C6IntNoRet-Data,d0
+            move.w   #4*TD_ANIM,d1
+            moveq    #ANIM_REL,d2
+            CallCP
+
+L_FAnimPtX  equ      39
+FAnimPtX:   move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_ANIM_POINT,d1
+            moveq   #TX_XCOORD,d2
+            CallCP
+
+L_FAnimPtY  equ      40
+FAnimPtY:   move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_ANIM_POINT,d1
+            moveq   #TX_YCOORD,d2
+            CallCP
+
+L_FAnimPtZ  equ      41
+FAnimPtZ:   move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_ANIM_POINT,d1
+            moveq   #TX_ZCOORD,d2
+            CallCP
+
+L_IAnim     equ      42
+IAnim:      move.w   #C6IntNoRet-Data,d0
+            move.w   #4*TD_ANIM,d1
+            moveq    #ANIM_ABS,d2
+            CallCP
+
+L_IRedraw   equ      43
+IRedraw:    EcCall   Current                    * Get screen base (in a0)
+            tst.w    d0
+            RBmi     L_ErrScrNotOpen
+            move.l   a0,d2                      * Pass to C as extra parameter
+            move.w   #CNoneNoRet-Data,d0        * Call C as normal
+            move.w   #4*TD_REDRAW,d1
+            CallCP
+
+L_ISetZone  equ      44
+ISetZone:   move.w   #C6IntNoRet-Data,d0         * 166 Set zone instruction
+            move.w   #4*TD_SET_ZONE,d1
+            CallC
+
+L_FCollide1 equ      45                 * =Td Collide(n)
+FCollide1:  move.w   #CIntRInt-Data,d0
+            move.w   #4*TD_COLLIDE,d1
+            moveq    #1,d2
+            CallCP
+
+L_FCollide2 equ      46                 * =Td Collide(n1,n2)
+FCollide2:  move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_COLLIDE,d1
+            moveq    #0,d2
+            CallCP
+
+L_FZoneX    equ      47
+FZoneX:     move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_ZONE_XYZR,d1
+            moveq    #0,d2               * 147 Td Zone X function
+            CallCP
+
+L_FZoneY    equ      48
+FZoneY:     move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_ZONE_XYZR,d1
+            moveq   #1,d2
+            CallCP
+
+L_FZoneZ    equ      49
+FZoneZ:     move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_ZONE_XYZR,d1
+            moveq   #2,d2
+            CallCP
+
+L_FZoneR    equ      50
+FZoneR:     move.w  #C2IntRInt-Data,d0
+            move.w  #4*TD_ZONE_XYZR,d1
+            moveq   #3,d2
+            CallCP
+
+L_FWorldX   equ      51
+FWorldX:    move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_WORLD_XYZ,d1
+            moveq    #TX_XCOORD,d2
+            CallCP
+
+L_FWorldXxyz equ     52
+FWorldXxyz: move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_WORLD_XYZ,d1
+            moveq    #TX_XCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FWorldY   equ      53
+FWorldY:    move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_WORLD_XYZ,d1
+            moveq    #TX_YCOORD,d2
+            CallCP
+
+L_FWorldYxyz equ     54
+FWorldYxyz: move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_WORLD_XYZ,d1
+            moveq    #TX_YCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FWorldZ   equ      55
+FWorldZ:    move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_WORLD_XYZ,d1
+            moveq    #TX_ZCOORD,d2
+            CallCP
+
+L_FWorldZxyz equ     56
+FWorldZxyz: move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_WORLD_XYZ,d1
+            moveq    #TX_ZCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FViewX    equ      57
+FViewX:     move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_VIEW_XYZ,d1
+            moveq    #TX_XCOORD,d2
+            CallCP
+
+L_FViewXxyz equ      58
+FViewXxyz:  move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_VIEW_XYZ,d1
+            moveq    #TX_XCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FViewY    equ      59
+FViewY:     move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_VIEW_XYZ,d1
+            moveq    #TX_YCOORD,d2
+            CallCP
+
+L_FViewYxyz equ      60
+FViewYxyz:  move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_VIEW_XYZ,d1
+            moveq    #TX_YCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FViewZ    equ      61
+FViewZ:     move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_VIEW_XYZ,d1
+            moveq    #TX_ZCOORD,d2
+            CallCP
+
+L_FViewZxyz equ      62
+FViewZxyz:  move.w   #C4IntRInt-Data,d0
+            move.w   #4*TD_VIEW_XYZ,d1
+            moveq    #TX_ZCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FScreenX  equ      63
+FScreenX:   move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_SCREEN_XY,d1
+            moveq    #TX_XCOORD,d2
+            CallCP
+
+L_FScreenXxyz equ    64
+FScreenXxyz:move.w   #C3IntRInt-Data,d0
+            move.w   #4*TD_SCREEN_XY,d1
+            moveq    #TX_XCOORD+TX_CALCULATE,d2
+            CallCP
+
+L_FScreenY  equ      65
+FScreenY:   move.w   #CNoneRInt-Data,d0
+            move.w   #4*TD_SCREEN_XY,d1
+            moveq    #TX_YCOORD,d2
+            CallCP
+
+L_FScreenYxyz equ    66
+FScreenYxyz:move.w   #C3IntRInt-Data,d0
+            move.w   #4*TD_SCREEN_XY,d1
+            moveq    #TX_YCOORD+TX_CALCULATE,d2
+            CallCP
+
+* The Td Background instruction needs two addresses, the destination screen
+* where the background is to be drawn and the source screen where the
+* background image data is kept.
+* The source screen number is the first AMOS parameter at 28(a6), the screen
+* number at this address is swapped with the its corresponding screen
+* address. The destination screen address is passed as an extra parameter.
+
+* td background src_scr,src X,src Y,width,height to dest X,dest Y [,plane]
+
+L_IBackGnd  equ    67
+IBackGnd:   clr.l  -(a3)             * Dummy AMOS parameter, plane=0
+            RBra   L_IBackGndPl
+
+L_IBackGndPl equ    68
+IBackGndPl:
+IBackground:move.l   28(a3),d1             * Get source screen no
+            cmp.l    #8,d1
+            bcc.s    BadScreenN
+            EcCall   AdrEc
+            move.l   d0,28(a3)             * Save as valid screen address
+            RBeq     L_ErrScrNotOpen
+            EcCall   Current               * Current screen as extra parameter
+            tst.w    d0
+            RBmi     L_ErrScrNotOpen
+            move.l   a0,d2
+*            beq.s    ScrNotOpen
+*            move.w   #C6IntNoRet-Data,d0   * Call C as normal
+            move.w   #C8IntNoRet-Data,d0   * Call C as normal
+            move.w   #4*TD_BACKGROUND,d1
+            CallCP
+
+BadScreenN: move.l   #50,d0               * AMOS bad screen error no
+            RJmp     L_Error              * AMOS error routine
+
+L_ISetDir   equ      69
+ISetDir:    move.w  #CStrNoRet-Data,d0
+            move.w  #4*TD_SET_DIR,d1
+            CallC
+
+L_ISurfPtsOff equ    (L_ISetDir+1)
+ISurfPtsOff:move.w   #CNoneNoRet-Data,d0
+            move.w   #4*TD_SURFACE_POINTS,d1
+            moveq    #0,d2
+            CallCP
+
+L_ISurfacePts equ    (L_ISurfPtsOff+1)
+ISurfacePts:move.w   #C4IntNoRet-Data,d0
+            move.w   #4*TD_SURFACE_POINTS,d1
+            moveq    #1,d2
+            CallCP
+
+L_ISurface  equ      (L_ISurfacePts+1)
+ISurface:   move.w   #CSurface-Data,d0
+            move.w   #4*TD_SURFACE,d1
+            CallC
+
+L_ICls      equ      (L_ISurface+1)
+ICls:       EcCall   Current                    * Get screen base (in a0)
+            tst.w    d0
+            RBmi     L_ErrScrNotOpen
+            move.l   a0,d2                      * Pass to C as extra parameter
+            move.w   #CNoneNoRet-Data,d0
+            move.w   #4*TD_CLS,d1
+            CallCP
+
+L_IKeepOn   equ      (L_ICls+1)
+IKeepOn:    moveq.l #1,d2
+            move.w  #CNoneNoRet-Data,d0
+            move.w  #4*TD_KEEP,d1
+            CallCP
+
+L_IKeepOff  equ      (L_IKeepOn+1)
+IKeepOff:   moveq.l #0,d2
+            move.w  #CNoneNoRet-Data,d0
+            move.w  #4*TD_KEEP,d1
+            CallCP
+
+L_FAdvanced equ      (L_IKeepOff+1)
+FAdvanced:  move.w  #CIntRInt-Data,d0
+            move.w  #4*TD_ADVANCED,d1
+            CallC
+
+L_IQuit     equ     (L_FAdvanced+1)             * Td Quit - doesn't call C
+IQuit:      move.l  ExtAdr+ExtNb*16(a5),a2      * Get address of Data zone
+            jmp     UnLoadCPrg-Data(a2)         * Clear C code if present.
+
+L_IPriority equ      (L_IQuit+1)
+IPriority:  move.w   #C2IntNoRet-Data,d0
+            move.w   #4*TD_PRIORITY,d1
+            CallC
+
+L_FPragmaStat equ    (L_IPriority+1)
+FPragmaStat:move.w   #C2IntRInt-Data,d0
+            move.w   #4*TD_PRAGMA_STATUS,d1
+            CallC
+
+L_IPragma   equ      (L_FPragmaStat+1)
+IPragma:     move.w   #C2IntNoRet-Data,d0
+            move.w   #4*TD_PRAGMA,d1
+            CallC
+
+L_IDelZone  equ      (L_IPragma+1)
+IDelZone:   move.w   #C2IntNoRet-Data,d0
+            move.w   #4*TD_DELETE_ZONE,d1
+            CallC
+
+L_ISetCol   equ      (L_IDelZone+1)
+ISetCol:    move.w   #C3IntNoRet-Data,d0
+            move.w   #4*TD_SETCOL,d1
+            CallC
+
+L_IRotate   equ      (L_ISetCol+1)
+IRotate:    move.w   #C4IntNoRet-Data,d0
+            move.w   #4*TD_ROTATE,d1
+            CallC
+
+*L_Spare0    equ      (L_ISetCol+1)
+L_Spare0    equ      (L_IRotate+1)
+
+Spare0:
+L_Spare1    equ      (L_Spare0+1)
+Spare1:
+L_Spare2    equ      (L_Spare1+1)
+Spare2:
+L_Spare3    equ      (L_Spare2+1)
+Spare3:
+L_Spare4    equ      (L_Spare3+1)
+Spare4:
+L_Spare5    equ      (L_Spare4+1)
+Spare5:
+L_Spare6    equ      (L_Spare5+1)
+Spare6:
+L_Spare7    equ      (L_Spare6+1)
+Spare7:
+L_Spare8    equ      (L_Spare7+1)
+Spare8:
+
+*L_Spare9    equ      (L_Spare8+1)
+*Spare9:
+
+*L_ErrScrNotOpen equ  (L_Spare9+1)
+
+L_ErrScrNotOpen equ  (L_Spare8+1)
+ErrScrNotOpen:
+            move.l   #47,d0               * Screen not open error number
+            RJmp     L_Error              * Error routine
+
+******* Custom error routines
+*  Custom errors come in two flavors the first prints an error message,
+*  it is always used by the interpreter and by a compiled program when the
+*  -E1 option is specified. The second library routine does not print
+*  anything and so does not require 3D custom error messages, it is
+*  used in programs compiled under the -E0 option.
+*
+*  Both routines expect the following registers to be set up:
+*        d0=error number
+*        d1=trappable
+*        d2=extension number
+
+*  Custom errors with messages (compiler option -E1).
+*   THIS MUST BE THE PENULTIMATE ROUTINE IN THE LIBRARY!!!!
+L_Custom:   equ   (L_ErrScrNotOpen+1)
+
+ErrCustomMsg:lea     ErrorMsgs(pc),a0  * a0=error messages
+            moveq   #0,d3              * d3=Print messages
+            RJmp   L_ErrorExt          * AMOS error handler
+
+* Error messages...
+
+ErrorMsgs:  dc.b     "Invalid object number",0
+            dc.b     "Object already exists",0
+            dc.b     "Not enough memory for 3D",0
+            dc.b     "Object does not exist",0
+            dc.b     "Syntax error in string",0
+            dc.b     "Object not loaded",0
+            dc.b     "Object file not found",0
+            dc.b     "Template file not found",0
+            dc.b     "Surface file not found",0
+            dc.b     "Invalid 3d screen size",0
+            dc.b     "Can't change screen size while objects exist",0
+            dc.b     "Amos screen not compatible with 3d",0
+            dc.b     "Zone parameter(s) out of range",0
+            dc.b     "Object already loaded",0
+            dc.b     "Too many objects",0
+            dc.b     "Directory string too long",0
+            dc.b     "Image offset must be an even number",0
+            dc.b     "Image too large",0
+            dc.b     "Image width must be a multiple of 16",0
+            dc.b     "Image data exceeds screen bank",0
+            dc.b     "Point does not exist",0
+            dc.b     "Bad Object file",0
+            dc.b     "Bad Template file",0
+            dc.b     "Bad Surface file",0
+            dc.b     "Block does not exist",0
+            dc.b     "Face does not exist",0
+            dc.b     "3d background source screen is current screen",0
+            dc.b     "Too many planes for 3d background",0
+            dc.b     "Can't load 3d code",0
+            even                                * Important !
+
+*  Custom errors without messages (compiler option -E0).
+ErrCustom:   moveq   #0,d1               * I Think this has been done already
+             moveq   #ExtNb,d2
+
+            moveq   #-1,d3                      * d3=No messages
+            RJmp    L_ErrorExt                  * AMOS error handler
+LibraryEnd:
+
+Title:
+ExWel:      dc.b     "Voodoo 3D extension "
+            Version
+            dc.b     0,"$VER: "
+            Version
+            dc.b     0
+            even
+
+******* Make sure to length of file is even!
+End:        dc.w     0
+            even
diff --git a/AMOSPro Sources/+CLib_Labels.s b/AMOSPro Sources/+CLib_Labels.s
new file mode 100644
index 0000000..28bdb07
--- /dev/null
+++ b/AMOSPro Sources/+CLib_Labels.s	
@@ -0,0 +1,33 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +CLib.s, list of the library functions on the 08-05-1996 15:17:20
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
diff --git a/AMOSPro Sources/+CLib_Size.s b/AMOSPro Sources/+CLib_Size.s
new file mode 100644
index 0000000..2be3f57
--- /dev/null
+++ b/AMOSPro Sources/+CLib_Size.s	
@@ -0,0 +1,34 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +CLib.s, library size on the 08-05-1996 15:17:20
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 500
diff --git a/AMOSPro Sources/+Compact_Labels.s b/AMOSPro Sources/+Compact_Labels.s
new file mode 100644
index 0000000..02d0088
--- /dev/null
+++ b/AMOSPro Sources/+Compact_Labels.s	
@@ -0,0 +1,53 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Compact.s, list of the library functions on the 06-06-1996 01:48:58
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Compact_Cold:		set	0
+L_InPack2:		set	2
+L_InPack6:		set	3
+L_InSPack2:		set	4
+L_InSPack6:		set	5
+L_InUnpack1:		set	6
+L_InUnpack3:		set	7
+L_UPack:		set	8
+L_InUnpack2:		set	9
+L_ResBank:		set	10
+L_PacPar:		set	11
+L_GetSize:		set	12
+L_Pack:			set	13
+L_JFoncall:		set	14
+L_JScnop:		set	15
+L_JOOfMem:		set	16
+L_NoPac:		set	17
+L_NoScr:		set	18
+L_Custom:		set	19
+L_Custom2:		set	20
diff --git a/AMOSPro Sources/+Compact_Size.s b/AMOSPro Sources/+Compact_Size.s
new file mode 100644
index 0000000..609e264
--- /dev/null
+++ b/AMOSPro Sources/+Compact_Size.s	
@@ -0,0 +1,35 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Compact.s, library size on the 06-06-1996 01:48:58
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 21
diff --git a/AMOSPro Sources/+Compext_Labels.s b/AMOSPro Sources/+Compext_Labels.s
new file mode 100644
index 0000000..d357f94
--- /dev/null
+++ b/AMOSPro Sources/+Compext_Labels.s	
@@ -0,0 +1,68 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Compext.s, list of the library functions on the 08-05-1996 14:52:22
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Cmp_Cold:		set	0
+L_CmpCall:		set	1
+L_CmpOpt:		set	2
+L_Compile1:		set	3
+L_Compile2:		set	4
+L_CompErr:		set	5
+L_Rien:			set	6
+L_CompLoad0:		set	7
+L_CompLoad1:		set	8
+L_CLoad:		set	9
+L_CompDel:		set	10
+L_FCall:		set	11
+L_NFound:		set	12
+L_OOMem:		set	13
+L_Errdisc:		set	14
+L_CompHere:		set	15
+L_FinComp:		set	16
+L_CompSize:		set	17
+L_InppLoad1:		set	18
+L_InppLoad2:		set	19
+L_ppLoad:		set	20
+L_ppBnk_Load:		set	21
+L_LoadUncrunch:		set	22
+L_InppSave2:		set	23
+L_InppSave3:		set	24
+L_Crunche:		set	25
+L_FreeCrunchInfo:	set	26
+L_Openpplib:		set	27
+L_Closepplib:		set	28
+L_Squash:		set	29
+L_UnSquash:		set	30
+L_Sq:			set	31
+L_Custom:		set	32
+L_NoErrors:		set	33
diff --git a/AMOSPro Sources/+Compext_Size.s b/AMOSPro Sources/+Compext_Size.s
new file mode 100644
index 0000000..afb5d09
--- /dev/null
+++ b/AMOSPro Sources/+Compext_Size.s	
@@ -0,0 +1,35 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Compext.s, library size on the 08-05-1996 14:52:22
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 34
diff --git a/AMOSPro Sources/+CreateCompiler b/AMOSPro Sources/+CreateCompiler
new file mode 100644
index 0000000..86a1fc8
--- /dev/null
+++ b/AMOSPro Sources/+CreateCompiler	
@@ -0,0 +1,3 @@
+.Key Drv
+Format drive <Drv> Name AMOSPro_Compiler NOICONS
++MakeCompiler <Drv>
diff --git a/AMOSPro Sources/+CreateExtras b/AMOSPro Sources/+CreateExtras
new file mode 100644
index 0000000..70fe18c
--- /dev/null
+++ b/AMOSPro Sources/+CreateExtras	
@@ -0,0 +1,3 @@
+.Key Drv
+Format drive <Drv> Name AMOSPro_Extras NOICONS
++MakeExtras <Drv>
diff --git a/AMOSPro Sources/+Debug0.s b/AMOSPro Sources/+Debug0.s
new file mode 100644
index 0000000..d32da99
--- /dev/null
+++ b/AMOSPro Sources/+Debug0.s	
@@ -0,0 +1,4 @@
+
+; No debugging!
+; ~~~~~~~~~~~~~
+Debug		set	0
diff --git a/AMOSPro Sources/+Debug1.s b/AMOSPro Sources/+Debug1.s
new file mode 100644
index 0000000..d812049
--- /dev/null
+++ b/AMOSPro Sources/+Debug1.s	
@@ -0,0 +1,4 @@
+
+; Debugging!
+; ~~~~~~~~~~
+Debug		set	1
diff --git a/AMOSPro Sources/+Debug_2On b/AMOSPro Sources/+Debug_2On
new file mode 100644
index 0000000..3c92290
--- /dev/null
+++ b/AMOSPro Sources/+Debug_2On	
@@ -0,0 +1,4 @@
+
+; Debugging!
+; ~~~~~~~~~~
+Debug		set	2
diff --git a/AMOSPro Sources/+Debug_On b/AMOSPro Sources/+Debug_On
new file mode 100644
index 0000000..3c92290
--- /dev/null
+++ b/AMOSPro Sources/+Debug_On	
@@ -0,0 +1,4 @@
+
+; Debugging!
+; ~~~~~~~~~~
+Debug		set	2
diff --git a/AMOSPro Sources/+ILib_Functions.s b/AMOSPro Sources/+ILib_Functions.s
new file mode 100644
index 0000000..b6dd546
--- /dev/null
+++ b/AMOSPro Sources/+ILib_Functions.s	
@@ -0,0 +1,6 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; AMOSPro Internal Library Definition on the 06-06-1996 01:47:34
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Ini	 0
+	Lib_Pos	500
diff --git a/AMOSPro Sources/+ILib_Size.s b/AMOSPro Sources/+ILib_Size.s
new file mode 100644
index 0000000..8d436a8
--- /dev/null
+++ b/AMOSPro Sources/+ILib_Size.s	
@@ -0,0 +1,5 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; AMOSPro Internal Library Size on the 06-06-1996 01:47:34
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 500
diff --git a/AMOSPro Sources/+IO_Ports_Labels.s b/AMOSPro Sources/+IO_Ports_Labels.s
new file mode 100644
index 0000000..87f8b20
--- /dev/null
+++ b/AMOSPro Sources/+IO_Ports_Labels.s	
@@ -0,0 +1,57 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +IO_Ports.s, list of the library functions on the 06-06-1996 01:49:06
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_IOCold:		set	0
+L_InSerialOpen2:	set	2
+L_InSerialOpen5:	set	3
+L_InSerialClose1:	set	4
+L_InSerialClose0:	set	5
+L_InSerialSend:		set	6
+L_InSerialOut:		set	7
+L_FnSerialGet:		set	8
+L_FnSerialInput:	set	9
+L_InSerialSpeed:	set	10
+L_InSerialBits:		set	11
+L_InSerialParity:	set	12
+L_InSerialX:		set	13
+L_InSerialBuf:		set	14
+L_InSerialFast:		set	15
+L_InSerialSlow:		set	16
+L_FnSerialCheck:	set	17
+L_FnSerialError:	set	18
+L_FnSerialStatus:	set	19
+L_FnSerialBase:		set	20
+L_InSerialAbort:	set	21
+L_GetSerA1:		set	22
+L_GetSerial:		set	23
+L_Stpar:		set	24
+L_FnPrinterBase:	set	25
+L_FnPrinterCheck:	set	26
+L_InPrinterOpen:	set	27
+L_InPrinterClose:	set	28
+L_FnPrinterError:	set	29
+L_InPrinterSend:	set	30
+L_InPrinterOut:		set	31
+L_InPrinterAbort:	set	32
+L_FnPrinterOnline:	set	33
+L_InPrinterDump0:	set	34
+L_InPrinterDump4:	set	35
+L_InPrinterDump7:	set	36
+L_Dump3a:		set	37
+L_Dump2a:		set	38
+L_Dump:			set	39
+L_GetScr:		set	40
+L_FnParallelBase:	set	41
+L_FnParallelCheck:	set	42
+L_InParallelOpen:	set	43
+L_InParallelClose:	set	44
+L_InParallelSend:	set	45
+L_InParallelOut:	set	46
+L_InParallelAbort:	set	47
+L_FnParallelStatus:	set	48
+L_FnParallelError:	set	49
+L_FnParallelInput1:	set	50
+L_FnParallelInput2:	set	51
+L_ParInput:		set	52
+L_IOFonc:		set	53
diff --git a/AMOSPro Sources/+IO_Ports_Size.s b/AMOSPro Sources/+IO_Ports_Size.s
new file mode 100644
index 0000000..94f1a77
--- /dev/null
+++ b/AMOSPro Sources/+IO_Ports_Size.s	
@@ -0,0 +1,5 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +IO_Ports.s, library size on the 06-06-1996 01:49:06
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 56
diff --git a/AMOSPro Sources/+Lib_Title.s b/AMOSPro Sources/+Lib_Title.s
new file mode 100644
index 0000000..3ebd2b9
--- /dev/null
+++ b/AMOSPro Sources/+Lib_Title.s	
@@ -0,0 +1,5 @@
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def
+; - - - - - - - - - - - - -
diff --git a/AMOSPro Sources/+MakeCompiler b/AMOSPro Sources/+MakeCompiler
new file mode 100644
index 0000000..064107a
--- /dev/null
+++ b/AMOSPro Sources/+MakeCompiler	
@@ -0,0 +1,4 @@
+.Key Drv
+Format drive <Drv> Name AMOSPro_Compiler NOICONS QUICK
+Install <Drv>
+Copy APC_Compiler: <Drv> ALL
diff --git a/AMOSPro Sources/+MakeExtras b/AMOSPro Sources/+MakeExtras
new file mode 100644
index 0000000..3791f06
--- /dev/null
+++ b/AMOSPro Sources/+MakeExtras	
@@ -0,0 +1,3 @@
+.Key Drv
+Format drive <Drv> Name AMOSPro_Extras NOICONS QUICK
+Copy APC_Extras: <Drv> ALL
diff --git a/AMOSPro Sources/+Request_Labels.s b/AMOSPro Sources/+Request_Labels.s
new file mode 100644
index 0000000..9ffce0c
--- /dev/null
+++ b/AMOSPro Sources/+Request_Labels.s	
@@ -0,0 +1,8 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Request.s, list of the library functions on the 06-06-1996 01:48:51
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Cold:			set	0
+L_InRequestWb:		set	2
+L_InRequestOn:		set	3
+L_InRequestOff:		set	4
diff --git a/AMOSPro Sources/+Request_Size.s b/AMOSPro Sources/+Request_Size.s
new file mode 100644
index 0000000..a7238c1
--- /dev/null
+++ b/AMOSPro Sources/+Request_Size.s	
@@ -0,0 +1,5 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Request.s, library size on the 06-06-1996 01:48:51
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 7
diff --git a/AMOSPro Sources/+Token.s b/AMOSPro Sources/+Token.s
new file mode 100644
index 0000000..1ddedd9
--- /dev/null
+++ b/AMOSPro Sources/+Token.s	
@@ -0,0 +1,1043 @@
+	
+; ______________________________________________________________________________
+; ..............................................................................
+; ...................................................................2222222....
+; ................................................................22222222220...
+; ...................................................222........222222.....222..
+; ..............................................2202222222222..22000............
+; ..................................22000.....20222222222200000200002...........
+; .................................2002202...2222200222.220000000200000000022...
+; ....................220002......22222200..2200002.......2200000...20000000000.
+; ....................22222202....2220000022200000..........200002........200000
+; .....200000.........2222200000222200220000000002..........200002........20000.
+; .....00222202........2220022000000002200002000002........2000002000020000000..
+; ....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+; ....220000200002......20000..200002..220000200000000000000002.......22........
+; ...2220002.220000 2....220002...22.....200002..0000000000002...................
+; ...220000..222000002...20000..........200000......2222........................
+; ...000000000000000000..200000..........00002..................................
+; ..220000000022020000002.200002.........22.......______________________________
+; ..0000002........2000000220022.................|
+; .200000............2002........................| Tokenisation 
+; .200002........................................|
+; 220002.........................................|______________________________
+; ______________________________________________________________________________
+;
+		Include	"+Debug.s"
+		IFEQ	Debug=2
+		Include "+AMOS_Includes.s"	
+		Include "+Version.s"
+		ENDC
+; ______________________________________________________________________________
+
+; Branchements internes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TDebut		dc.l	Tokenise-TDebut
+		dc.l	Detok-TDebut
+		dc.l	Mon_Detok-TDebut
+		dc.l	TInst-TDebut
+		dc.l	0
+
+***********************************************************
+*	TOKENISE LA LIGNE COURANTE
+***********************************************************
+Tokenise:
+	movem.l	a1-a6/d2-d7,-(sp)	* Sauve le debut de la ligne
+	move.l	a1,a4
+	move.l	a0,a3
+	pea	512(a4)
+	clr.w	d5			* RAZ de tous les flags
+	clr.w	(a4)+
+
+******* Compte les TABS
+	moveq	#0,d1
+TokT:	addq.w	#1,d1
+	move.b	(a3)+,d0
+	beq	TokVide
+	cmp.b	#32,d0
+	beq.s	TokT
+	subq.l	#1,a3
+	cmp.w	#127,d1
+	bcs.s	TokT1
+	moveq	#127,d1
+TokT1:	move.b	d1,-1(a4)
+
+******* Un chiffre au debut de la ligne?
+	move.b	(a3),d0
+	cmp.b	#"0",d0
+	bcs.s	TokT2
+	cmp.b	#"9",d0
+	bhi.s	TokT2
+	bset	#1,d5		* Flag VARIABLE
+	bset 	#4,d5		* Flag LABEL
+	move.l	a4,TkAd(a5)
+	move.w	#_TkVar,(a4)+
+	clr.l	(a4)+
+	move.b	(a3)+,(a4)+
+
+******* Une apostrophe en debut de ligne?
+TokT2:	cmp.b 	#"'",d0
+	bne.s	TokLoop
+	addq.l	#1,a3
+	move.w	#_TkRem2,(a4)+
+	bra	TkKt2
+
+*******	Prend une lettre
+TokLoop:
+	cmp.l	(sp),a4
+	bhi	TokFin
+	move.b	(a3)+,d0
+	beq	TokFin
+
+* Rem en route?
+	btst	#5,d5
+	beq.s	TkROn
+	move.b	d0,(a4)+
+	bra.s	TokLoop
+TkROn:
+
+* Variable en route?
+	btst	#1,d5
+	bne	TkVD
+
+* Chaine en route?
+	btst	#0,d5
+	beq.s	TkC2
+	cmp.b	TkChCar(a5),d0
+	beq.s	TkC1
+	move.b	d0,(a4)+
+	bra.s	TokLoop
+* Fin d'une chaine alphanumerique
+TkChf:	subq.l	#1,a3
+TkC1:	bclr	#0,d5
+	move.l	a4,d0
+	btst	#0,d0
+	beq.s	TkC0
+	clr.b	(a4)+
+TkC0:	move.l	TkAd(a5),a0
+	sub.l	a0,d0
+	subq.w	#4,d0
+	move.w	d0,2(a0)
+	bra.s	TokLoop
+* Debut d'une chaine alphanumerique?
+TkC2:	cmp.b	#'"',d0
+	beq 	TkC2a
+	cmp.b	#"'",d0
+	bne	TkOtre
+TkC2a:	move.b	d0,TkChCar(a5)
+	move.l	a4,TkAd(a5)
+	cmp.b	#"'",d0
+	beq.s	TkC2b
+	move.w	#_TkCh1,(a4)+
+	bra.s	TkC2c
+TkC2b:	move.w	#_TkCh2,(a4)+
+TkC2c:	clr.w	(a4)+
+	bset	#0,d5
+	bra.s	TokLoop
+
+* Variable en route
+TkVD:	bsr	Minus
+* Numero de ligne en route
+TkFV:	moveq	#0,d1
+	move.l	TkAd(a5),a0
+	btst	#4,d5	
+	beq.s	TkV2
+	cmp.b	#"0",d0
+	bcs.s	TkV0
+	cmp.b	#"9",d0
+	bls.s	TkV3
+TkV0:	bset	#3,d5		Fin du debut de ligne!
+	bclr	#4,d5		Fin du numero de ligne
+	cmp.b	#":",d0
+	beq.s	TkV1
+	subq.l	#1,a3
+	bra.s	TkV1
+* Variable normale / label
+TkV2:	cmp.b	#"_",d0
+	beq.s	TkV3
+	cmp.b	#"0",d0
+	bcs.s	TkV4
+	cmp.b	#"9",d0
+	bls.s	TkV3
+	cmp.b	#"a",d0
+	bcs.s	TkV4
+	cmp.b	#"z",d0
+	bls.s	TkV3
+	cmp.b	#128,d0
+	bls.s	TkV4
+TkV3:	move.b	d0,(a4)+
+	bra	TokLoop
+* Fin de la variable/label/label goto
+TkV4:	bset	#3,d5		* Si pas debut de ligne
+	bne.s	TkV5
+	cmp.b	#":",d0		* Si :
+	bne.s	TkV5
+TkV1:	move.w	#_TkLab,(a0)
+	bra.s	TkV7		
+	
+TkV5:	subq.l	#1,a3
+	moveq	#2,d1
+	cmp.b	#"$",d0
+	beq.s	TkV6
+	moveq	#1,d1
+	cmp.b	#"#",d0
+	beq.s	TkV6
+	moveq	#0,d1
+	bra.s	TkV7
+TkV6:	addq.w	#1,a3
+TkV7:	move.w	a4,d2		* Rend pair
+	btst	#0,d2
+	beq.s	TkV8
+	clr.b	(a4)+
+TkV8:	move.l	a4,d0
+	sub.l	a0,d0
+	subq.l	#6,d0
+	move.b	d0,4(a0)	* Poke la longueur
+	move.b	d1,5(a0)	* Poke le flag
+	bclr	#1,d5
+	bra	TokLoop
+
+* Saute les 32
+TkOtre:	cmp.b	#" ",d0
+	beq	TokLoop
+
+* Est-ce un chiffre?
+	lea	-1(a3),a0	Pointe le debut du chiffre
+	moveq	#0,d0		Ne pas tenir compte du signe (valtok)
+	JJsrR	L_ValRout,a1
+	bne.s	TkK
+	move.l	a0,a3
+	move.w	d1,(a4)+
+	move.l	d3,(a4)+
+	cmp.w	#_TkDFl,d1
+	bne	TokLoop
+	move.l	d4,(a4)+
+	bra	TokLoop
+TkK:
+
+******* Tokenisation RAPIDE!
+	moveq	#-4,d7			* D7--> Numero de l'extension
+	lea	AdTokens(a5),a6
+	moveq	#0,d3
+	lea	-10(sp),sp
+* Prend le premiere caractere...
+	moveq	#0,d0
+	move.b	-1(a3),d0
+	bsr	MinD0	
+	move.l	d0,d2
+	lea	Dtk_Operateurs(pc),a1	Operateur, LENTS en 1er...
+	bra	TkLIn
+* Lent ou rapide?
+TkUn	cmp.b	#"a",d2
+	bcs.s	Tkl1
+	cmp.b	#"z",d2
+	bhi.s	Tkl1
+	bset	#31,d2
+	move.w	d2,d6
+	sub.w	#"a",d6
+	lsl.w	#1,d6
+* Mode rapide: init!
+Tkr1	lea	AdTTokens(a5),a2
+	move.l	0(a2,d7.w),d0
+	beq.s	Tkl1
+	move.l	d0,a2
+	move.w	4(a2,d6.w),d0
+	add.w	d0,a2			* A2-> Adresse des adresses
+	bset	#31,d6
+	bra	TkRNext
+* Tokens lents
+Tkl1	move.l	0(a6,d7.w),d0
+	beq	TkNext
+	move.l	d0,a1
+	addq.l	#6,a1
+TkLIn	bclr	#31,d6
+	cmp.b	#"!",d2			Entree pour les operateurs...
+	beq	TkKF
+	cmp.b	#"?",d2
+	bne.s	Tkl2
+	move.l	a3,a0
+Tkl1a	move.b	(a0)+,d0		* ? PRINT / ? PRINT #
+	beq.s	Tkl1b
+	cmp.b	#"#",d0
+	beq.s	Tkl1c
+	cmp.s	#" ",d0
+	beq.s	Tkl1a
+Tkl1b	move.w	#_TkPr,d4
+	bra	TkKt0
+Tkl1c	move.l	a0,a3
+	move.w	#_TkHPr,d4
+	bra	TkKt0
+Tkl2	move.l	a1,d4			* Recherche la 1ere lettre
+	lea	4(a1),a1
+	move.w	d2,d0
+Tkl0	move.b	(a1)+,d1
+	bmi	Tkl4
+	cmp.b	#" ",d1
+	beq.s	Tkl0
+	cmp.b	#"!",d1
+	beq.s	Tkl0
+	cmp.b	d0,d1
+	beq.s	TkRe0
+Tkl3	bsr	TklNext
+	bne.s	Tkl2
+* Tableau de token suivant!
+TkNext	addq.l	#4,d7
+	beq	TkUn
+	cmp.l	#4*26,d7
+	bcc.s	.TrouV
+	tst.l	d2
+	bpl.s	Tkl1
+	bra	Tkr1
+.TrouV	tst.w	d3
+	beq	TkKF
+	move.l	(sp),d4
+	move.l	4(sp),a3
+	move.w	8(sp),d7
+	bra	TklT
+* Trouve 1 lettre lent?
+Tkl4	subq.l	#1,a1
+	and.b	#$7f,d1
+	cmp.b	#" ",d1
+	beq	TklT
+	cmp.b	d0,d1
+	bne.s	Tkl3
+	bra	TklT
+* Token rapide suivant
+TkRNext	move.w	(a2)+,d0
+	beq	TkNext
+	move.l	0(a6,d7.w),a1
+	add.w	d0,a1
+	move.l	a1,d4
+	lea	5(a1),a1
+	move.b	-1(a1),d0
+	cmp.b	#"!",d0
+	beq.s	TkRe0a
+	cmp.b	#" ",d0
+	bne.s	TkRe0
+TkRe0a	addq.l	#1,a1
+* Explore les autres lettres du token
+TkRe0	move.l	a3,a0
+TkRe1	move.b	(a0)+,d0
+	bsr	MinD0
+TkRe2	move.b	(a1)+,d1
+	bmi.s	TkKt
+	cmp.b	#" ",d1
+	bne.s	TkRe3
+	cmp.b	d1,d0
+	bne.s	TkRe2
+	beq.s	TkRe1
+TkRe3	cmp.b	d0,d1
+	beq.s	TkRe1
+* Mot cle suivant
+TkRe4	tst.l	d6
+	bpl	Tkl3
+	bmi.s	TkRNext
+* Mot trouve?
+TkKt:	subq.l	#1,a0
+	subq.l	#1,a1
+	and.b	#$7f,d1
+	cmp.b	#" ",d1
+	beq.s	TkKt1
+	cmp.b	d0,d1
+	bne.s	TkRe4
+	addq.l	#1,a0
+TkKt1:	
+	tst.l	d6
+	bpl.s	TklTl
+	move.l	a1,d0
+	sub.l	d4,d0
+	cmp.w	d3,d0
+	bls.s	TkRe4
+	move.w	d0,d3
+	move.l	d4,(sp)
+	move.l	a0,4(sp)
+	move.w	d7,8(sp)
+	bra.s	TkRe4
+TklTl	move.l	a0,a3
+*** Token trouve!
+TklT	tst.w	d7			Une extension
+	bgt	TkKtE
+	beq.s	.Norm			Un operateur?
+	lea	Dtk_OpFin(pc),a0
+	sub.l	a0,d4
+	bra.s	TkKt0
+.Norm	sub.l	AdTokens(a5),d4		Un token librairie principale
+TkKt0:	lea	10(sp),sp
+	move.w	d4,(a4)+
+	bclr	#4,d5			Plus de numero de ligne
+	bset	#3,d5			Plus debut de ligne
+	cmp.w	#_TkEqu,d4		Tokens de structure?
+	bcs.s	.SkS
+	cmp.w	#_TkStruS,d4
+	bls	TkKt5
+.SkS	cmp.w	#_TkOn,d4
+	beq.s	TkKt7
+	cmp.w	#_TkData,d4
+	beq	TkKt3
+	cmp.w	#_TkRem1,d4
+	beq.s	TkKt2
+	cmp.w	#_TkFor,d4
+	beq.s	TkKt3
+	cmp.w	#_TkRpt,d4
+	beq.s	TkKt3
+	cmp.w	#_TkWhl,d4
+	beq.s	TkKt3
+	cmp.w	#_TkDo,d4
+	beq.s	TkKt3	
+	cmp.w	#_TkExit,d4
+	beq.s	TkKt4
+	cmp.w	#_TkExIf,d4
+	beq.s	TkKt4
+	cmp.w	#_TkIf,d4
+	beq.s	TkKt3
+	cmp.w	#_TkElse,d4
+	beq.s	TkKta
+	cmp.w	#_TkElsI,d4
+	beq.s	TkKt3
+	cmp.w	#_TkThen,d4
+	beq.s	TkKtb
+	cmp.w	#_TkProc,d4
+	beq.s	TkKt6
+	cmp.w	#_TkDPre,d4
+	beq.s	TkKDPre
+	bra	TokLoop
+* ON
+TkKt7:	clr.l	(a4)+
+	bra	TokLoop
+* Debut d'une REM
+TkKt2:	clr.w	(a4)+
+	move.l	a4,TkAd(a5)
+	bset	#5,d5
+	bra	TokLoop
+* Poke les blancss
+TkKt6	clr.w	(a4)+		8 octets
+TkKt5	clr.w	(a4)+		6 octets
+TkKt4	clr.w	(a4)+		4 octets
+TkKt3	clr.w	(a4)+		2 octets
+	bra	TokLoop
+* Token double precision: flags � 1
+TkKDPre	or.b	#%10000011,MathFlags(a5)
+	bra	TokLoop
+* Token d'extension! .w EXT/.b #Ext/.b Nb Par/.w TOKEN
+TkKtE:	lea	10(sp),sp
+	move.w	#_TkExt,(a4)+
+	move.w	d7,d0
+	lsr.w	#2,d0
+	move.b	d0,(a4)+
+	clr.b	(a4)+
+	lea	AdTokens(a5),a6
+	sub.l	0(a6,d7.w),d4
+	move.w	d4,(a4)+
+	bclr	#4,d5
+	bset	#3,d5
+	bra	TokLoop
+* ELSE/THEN: regarde si numero de ligne apres!
+TkKta:	clr.w	(a4)+
+TkKtb:	move.l	a3,a0
+TkKtc:	move.b	(a0)+,d0
+	beq	TokLoop
+	cmp.b	#" ",d0
+	beq	TkKtc
+	cmp.b	#"0",d0
+	bcs	TokLoop
+	cmp.b	#"9",d0
+	bhi	TokLoop
+	move.l	a0,a3
+	move.w	#_TkLGo,d1
+	bra.s	TkKf2
+
+******* Rien trouve ===> debut d'une variable
+TkKF:	lea	10(sp),sp
+	move.w	#_TkVar,d1
+	move.b	-1(a3),d0
+TkKf0:	cmp.b	#"A",d0
+	bcs.s	TkKf1
+	cmp.b	#"Z",d0
+	bhi.s	TkKf1
+	add.b	#"a"-"A",d0
+TkKf1:	cmp.b	#"_",d0
+	beq.s	TkKf2
+	cmp.b	#128,d0
+	bcc.s	TkKf2
+	cmp.b	#"a",d0
+	bcs	TokLoop
+	cmp.b	#"z",d0
+	bhi	TokLoop
+TkKf2:	move.l	a4,TkAd(a5)
+	move.w	d1,(a4)+
+	clr.l	(a4)+
+	move.b	d0,(a4)+
+	bset 	#1,d5
+	bra	TokLoop
+* Appel d'un label?
+TkKf3:	move.w	#_TkLGo,d1
+	cmp.b	#"0",d0
+	bcs.s	TkKf0
+	cmp.b	#"9",d0
+	bls.s	TkKf2
+	bra.s	TkKf0
+
+******* Fin de la tokenisation
+TokFin:	btst	#1,d5		Fin de variable
+	bne	TkFV	
+	btst	#0,d5		Fin de chaine alphanumerique
+	bne	TkChf
+
+	moveq	#1,d0		* Quelquechose dans la ligne!
+
+	btst	#5,d5		REM
+	beq.s	TokPaR
+	move.w	a4,d1
+	btst	#0,d1		Rend pair la REM!
+	beq.s	FRem
+	move.b	#" ",(a4)+
+FRem:	move.l	a4,d1		Calcule et stocke la longueur
+	move.l	TkAd(a5),a0
+	sub.l	a0,d1
+	move.w	d1,-2(a0)
+* Marque la fin
+TokPaR:	clr.w	(a4)+
+	clr.w	(a4)
+* Poke la longueur de la ligne / 2
+	move.l	a4,d1
+	addq.l	#4,sp
+	movem.l	(sp)+,a1-a6/d2-d7
+	sub.l	a1,d1
+	cmp.w	#510,d1
+	bcc.s	.Long
+	lsr.w	#1,d1
+	move.b	d1,(a1)
+	lsl.w	#1,d1
+	ext.l	d1
+* Fini!
+	tst.w	d0
+	rts
+* Trop longue!
+.Long	clr.w	(a1)		* <0= Trop longue
+	moveq	#0,d1
+	moveq	#-1,d0
+	rts
+* Ligne vide!
+TokVide	moveq	#0,d0		* = 0 Vide
+	moveq	#0,d1
+	bra.s	TokPaR
+
+* Routine: D0 minuscule
+MinD0	cmp.b	#"A",d0
+	bcs.s	Mnd0a
+	cmp.b	#"Z",d0
+	bhi.s	Mnd0a
+	add.b	#32,d0
+Mnd0a	rts
+* Routine: token suivant
+TklNext	tst.b	(a1)+			* Saute le nom
+	bpl.s	TklNext
+Tkln1	tst.b	(a1)+			* Saute les params
+	bpl.s	Tkln1
+	move.w	a1,d1
+	btst	#0,d1			* Rend pair
+	beq.s	Tkln2
+	addq.l	#1,a1
+Tkln2	tst.w	(a1)
+	rts
+
+
+; ___________________________________________________________________________
+;
+;							DETOKENISATION 
+; ___________________________________________________________________________
+;
+;	A0:	Ligne � detokeniser
+; 	A1:	Buffer
+;	D0:	Adresse � d�tecter
+; ___________________________________________________________________________
+;
+Mon_Detok
+	moveq	#-1,d1
+	bra.s	Dtk
+Detok:	
+	moveq	#0,d1
+Dtk
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	2(a1),a4		* Place pour la taille
+	move.l	a0,a6
+	move.l	d0,a3
+	move.l	a4,a2
+	clr.w	-(sp)			* Position du curseur
+
+******* Met les espaces devant?
+	tst.w	d1			Mode monitor
+	bne.s	DtkMon
+	tst.b	(a6)			Mode normal
+	beq	DtkFin
+	clr.w	d0
+	move.b	1(a6),d0
+	subq.w	#2,d0
+	bmi.s	Dtk2
+Dtk1:	move.b	#" ",(a4)+
+	dbra	d0,Dtk1
+Dtk2:	addq.l	#2,a6
+DtkMon	clr.w	d5
+
+******* Boucle de detokenisation
+DtkLoop:cmp.l	a3,a6			Trouve la P en X?
+	bne.s	Dtk0
+	move.l	a4,d0
+	sub.l	a2,d0
+	move.w	d0,(sp)
+Dtk0:	move.l	a3,d0			Detournement?
+	bpl.s	.Skip
+	neg.l	d0
+	move.l	d0,a0
+	jsr	(a0)
+.Skip	move.w	(a6)+,d0
+	beq	DtkFin
+	cmp.w	#_TkLGo,d0
+	bls	DtkVar
+	cmp.w	#_TkExt,d0
+	bcs	DtkCst
+	bclr	#0,d5
+	tst.w	d0
+	bmi	DtkOpe				Un operateur?
+	lea	AdTokens(a5),a0
+	cmp.w	#_TkPar1,d0
+	beq	DtkP
+	cmp.w	#_TkDFl,d0
+	beq	DtkCst
+	cmp.w	#_TkExt,d0
+	bne.s	Dtk0a
+
+* Detokenise une extension
+	move.w	2(a6),d1
+	move.b	(a6),d2
+	ext.w	d2
+	move.w	d2,d3
+	lsl.w	#2,d2
+	tst.l	0(a0,d2.w)
+	beq.s	DtkEe
+	move.l	0(a0,d2.w),a0
+	lea	4(a0,d1.w),a0
+	move.l	a0,a1
+	bra.s	Dtk3
+* Extension not present
+DtkEe:	lea	ExtNot(pc),a0
+	add.b	#"A",d3
+	add.b	#$80,d3
+	move.l	a0,a1
+DtkEee	tst.b	(a1)+
+	bpl.s	DtkEee
+	move.b	d3,-1(a1)
+	move.w	#"I",d3
+	bra.s	Dtk3a
+
+* Un operateur
+DtkOpe	lea	Dtk_OpFin(pc),a0
+	bra.s	Dtk0b
+* Instruction normale
+Dtk0a	move.l	AdTokens(a5),a0
+Dtk0b	lea	4(a0,d0.w),a0
+	move.l	a0,a1
+Dtk3:	tst.b	(a1)+
+	bpl.s	Dtk3
+	move.b	(a1),d3
+	cmp.b	#"O",d3
+	beq.s	Dtk4
+	cmp.b	#"0",d3
+	beq.s	Dtk4
+	cmp.b	#"1",d3
+	beq.s	Dtk4
+	cmp.b	#"2",d3
+	beq.s	Dtk4
+	cmp.b	#"V",d3
+	beq.s	Dtk4
+* Met un espace avant s'il n'y en a pas!
+Dtk3a:	cmp.l	a4,a2		* Debut de la ligne?
+	beq.s	Dtk4
+	cmp.b	#" ",-1(a4)
+	beq.s	Dtk4
+	move.b	#" ",(a4)+
+* Doit prendre le token prececent?
+Dtk4:	move.b	(a0),d1
+	cmp.b	#$80,d1
+	bcs.s	Dtk4x
+	cmp.b	#$9f,d1
+	bhi.s	Dtk4x
+	subq.l	#4,a0
+	sub.b	#$80,d1
+	beq.s	Dtk4a
+	ext.w	d1
+	sub.w	d1,a0
+	bra.s	Dtk4x
+Dtk4a:	move.b	-(a0),d1
+	cmp.b	#"!",d1
+	beq.s	Dtk4x
+	cmp.b	#$80,d1
+	bne.s	Dtk4a
+	bra.s	Dtk4
+* Ecrit le mot
+Dtk4x:	cmp.b	#"!",d1
+	bne.s	Dtk4y
+	addq.l	#1,a0
+Dtk4y:	move.b	DtkMaj1(a5),d1
+	beq.s	Dtk5
+	cmp.b	#1,d1
+	beq.s	Dtk6
+	bne.s	Dtk8
+* 0- Ecrit en MINUSCULES
+Dtk5:	move.b	(a0)+,(a4)+
+	bpl.s	Dtk5
+	and.b	#$7f,-1(a4)
+	bra.s	DtkE
+* 1- Ecrit en MAJUSCULES
+Dtk6:	move.b	(a0)+,d1
+	move.b	d1,d2
+	and.b	#$7f,d1
+	cmp.b	#"a",d1
+	bcs.s	Dtk7
+	cmp.b	#"z",d1
+	bhi.s	Dtk7
+	sub.b	#"a"-"A",d1
+Dtk7:	move.b	d1,(a4)+
+	tst.b	d2
+	bpl.s	Dtk6
+	bra	DtkE
+* 2- Ecrit AVEC UNE MAJUSCULE
+Dtk8:	move.b	(a0)+,d1
+	move.b	d1,d2
+	and.b	#$7f,d1
+	cmp.b	#"a",d1
+	bcs.s	Dtk9
+	cmp.b	#"z",d1
+	bhi.s	Dtk9
+	sub.b	#"a"-"A",d1
+Dtk9:	move.b	d1,(a4)+
+	tst.b	d2
+	bmi.s	DtkE
+Dtk9a:	move.b	(a0)+,d1
+	move.b	d1,(a4)+
+	bmi.s	Dtk9b
+	cmp.b	#" ",d1
+	bne.s	Dtk9a
+	bra.s	Dtk8
+Dtk9b:	and.b	#$7f,-1(a4)
+* Met une espace si c'est une INSTRUCTION
+DtkE:	cmp.w	#_TkRem1,d0
+	beq	DtkRem
+	cmp.w	#_TkRem2,d0
+	beq	DtkRem
+	cmp.b	#"I",d3
+	bne.s	DtkE1
+	move.b	#" ",(a4)+
+* Saute le token...
+DtkE1:	move.l	a6,a0
+	bsr	TInst
+	move.l	a0,a6
+	bra	DtkLoop
+* Ouverture de parenthese, jamais d'espace!
+DtkP:	cmp.l	a4,a2
+	beq.s	DtkP1
+	cmp.b 	#" ",-1(a4)
+	bne.s	DtkP1
+	subq.l	#1,a4
+DtkP1:	move.b	#"(",(a4)+
+	bra.s	DtkE1
+
+******* Detokenisation de VARIABLE
+DtkVar:	btst	#0,d5		* Si variable juste avant, met 32
+	beq.s	DtkV0
+	cmp.b	#" ",-1(a4)
+	beq.s	DtkV0
+	move.b	#" ",(a4)+
+DtkV0:	moveq	#0,d2
+	move.b	2(a6),d2	* Longueur
+	move.w	d2,d1
+	subq.w	#1,d1
+	move.b	3(a6),d3	FLAG
+	lea	4(a6),a0
+	moveq	#0,d4
+	cmp.w	#_TkLab,d0
+	bne.s	DtkV1
+	moveq	#1,d4		D4: 0=> Variable 
+	cmp.b	#"0",(a0)	    1=> Label
+	bcs.s	DtkV1		   -1=> Numero ligne
+	cmp.b	#"9",(a0)
+	bhi.s	DtkV1
+	moveq	#-1,d4
+DtkV1:	move.b	DtkMaj2(a5),d0
+	beq.s	DtkV2
+	cmp.b	#1,d0
+	beq.s	DtkV3
+	bne.s	DtkV5
+* 0- En MINUSCULES
+DtkV2:	move.b	(a0)+,d0
+	beq	DtkVF
+	move.b	d0,(a4)+
+	dbra	d1,DtkV2
+	bra	DtkVF
+* 1- En MAJUSCULES
+DtkV3:	move.b	(a0)+,d0
+	beq	DtkVF
+	cmp.b	#"a",d0
+	bcs.s	DtkV4
+	cmp.b	#"z",d0
+	bhi.s	DtkV4
+	sub.b	#"a"-"A",d0
+DtkV4:	move.b	d0,(a4)+
+	dbra	d1,DtkV3
+	bra	DtkVF
+* 2- Avec UNE MAJUSCULE
+DtkV5:	move.b	(a6)+,d0
+	cmp.b	#"a",d0
+	bcs.s	DtkV6
+	cmp.b	#"z",d0
+	bhi.s	DtkV6
+	sub.b	#"a"-"A",d0
+DtkV6:	move.b	d0,(a4)+
+	dbra	d1,DtkV2
+* Saute la variable / met le flag de la variable
+DtkVF:	bset	#0,d5
+	lea	4(a6,d2.w),a6
+	moveq	#":",d0
+	tst.w	d4
+	bmi	DtkLoop
+	bne.s	DtkV7
+	moveq	#"#",d0
+	and.b	#3,d3
+	cmp.b	#1,d3
+	beq.s	DtkV7
+	moveq	#"$",d0
+	cmp.b	#2,d3
+	bne	DtkLoop
+DtkV7:	move.b	d0,(a4)+
+	bra	DtkLoop
+
+******* Detokenise des constantes
+DtkCst:	bclr	#0,d5		Si variable avant, met un espace!
+	beq.s	DtkC0
+	cmp.b	#" ",-1(a4)
+	beq.s	DtkC0
+	move.b	#" ",(a4)+
+DtkC0:	cmp.w	#_TkEnt,d0
+	beq.s	DtkC3
+	cmp.w	#_TkHex,d0
+	beq.s	DtkC4
+	cmp.w	#_TkBin,d0
+	beq.s	DtkC5
+	cmp.w	#_TkFl,d0
+	beq.s	DtkC6
+	cmp.w	#_TkDFl,d0
+	beq.s	DtkC7
+* Detokenise une chaine alphanumerique
+	cmp.w	#_TkCh1,d0
+	bne.s	DtkC0a
+	moveq	#'"',d0
+	bra.s	DtkC0b
+DtkC0a:	moveq	#"'",d0
+DtkC0b:	move.b	d0,(a4)+
+	move.w	(a6)+,d1
+	subq.w	#1,d1
+	bmi.s	DtkC2
+DtkC1:	move.b	(a6)+,(a4)+
+	dbra	d1,DtkC1
+	move.w	a6,d1
+	btst	#0,d1
+	beq.s	DtkC2
+	addq.l	#1,a6
+DtkC2:	move.b	d0,(a4)+
+	bra	DtkLoop
+* Detokenise un chiffre entier
+DtkC3:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToDec,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre HEXA
+DtkC4:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToHex,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre BINAIRE
+DtkC5:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToBin,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre FLOAT simple precision
+DtkC6:	move.l	(a6)+,d0
+	move.l	a4,a0
+	moveq	#-1,d4
+	moveq	#0,d5
+ 	JJsrR	L_FloatToAsc,a1
+	exg	a0,a4
+	bra.s	DtkC8
+* Detokenise un chiffre FLOAT double precision
+DtkC7	move.l	(a6)+,d0
+	move.l	(a6)+,d1
+	pea	2.w			Automatique
+	pea	15.w			15 maxi
+	move.l	a4,-(sp)		Buffer
+	move.l	d1,-(sp)		Le chiffre
+	move.l	d0,-(sp)
+	JJsrR	L_DoubleToAsc,a1
+	lea	20(sp),sp
+	move.l	a4,a0
+.Fin	tst.b	(a4)+
+	bne.s	.Fin
+	subq.l	#1,a4
+; Si pas 0.0, le met!
+DtkC8	move.b	(a0)+,d0		* Si pas de .0, le met!
+	beq.s	DtkC9
+	cmp.b	#".",d0
+	beq	DtkLoop
+	cmp.b	#"E",d0
+	beq	DtkLoop
+	bra.s	DtkC8
+DtkC9	move.b	#".",(a4)+
+	move.b	#"0",(a4)+
+	bra	DtkLoop
+
+******* Token d'extension
+DtkX:	bra	DtkLoop
+
+******* REMarque
+DtkRem:	addq.w	#2,a6		Saute la longueur
+DtkR:	tst.b	(a6)
+	beq	DtkLoop
+	move.b	(a6)+,(a4)+
+	bra.s	DtkR 
+
+******* Fin de la DETOKENISATION
+DtkFin:	sub.l	a2,a4		* Ramene PX
+	move.w	a4,-2(a2)
+	move.l	a4,a0
+	move.w	(sp)+,d0
+	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+;	RAMENE LA TAILLE DE L'INSTRUCTION D0 en D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TInst:	tst.w	d0
+	beq	TFin
+	cmp.w	#_TkLGo,d0
+	bls	TVar
+	cmp.w	#_TkCh1,d0	
+	beq	TCh
+	cmp.w	#_TkCh2,d0
+	beq	TCh
+	cmp.w	#_TkRem1,d0
+	beq	TCh
+	cmp.w	#_TkRem2,d0
+	beq	TCh
+	cmp.w	#_TkDFl,d0
+	beq.s	T8
+	cmp.w	#_TkFl,d0
+	bls.s	T4
+	cmp.w	#_TkExt,d0
+	beq.s	T4
+	cmp.w	#_TkFor,d0
+	beq.s	T2
+	cmp.w	#_TkRpt,d0
+	beq.s	T2
+	cmp.w	#_TkWhl,d0
+	beq.s	T2
+	cmp.w	#_TkDo,d0
+	beq.s	T2
+	cmp.w	#_TkExit,d0
+	beq.s	T4 
+	cmp.w	#_TkExIf,d0
+	beq.s	T4
+	cmp.w	#_TkIf,d0
+	beq.s	T2
+	cmp.w	#_TkElse,d0
+	beq.s	T2
+	cmp.w	#_TkElsI,d0
+	beq.s	T2
+	cmp.w	#_TkData,d0
+	beq.s	T2
+	cmp.w	#_TkProc,d0
+	beq.s	T8
+	cmp.w	#_TkOn,d0
+	beq.s	T4
+	cmp.w	#_TkEqu,d0
+	bcs.s	T0
+	cmp.w	#_TkStruS,d0
+	bls.s	T6
+T0:	moveq	#1,d1
+TFin:	rts
+T2:	addq.l	#2,a0
+	bra.s	T0
+T4:	addq.l	#4,a0
+	bra.s	T0
+T8:	addq.l	#8,a0
+	bra.s	T0
+T6:	addq.l	#6,a0
+	bra.s	T0
+TCh:	add.w	(a0)+,a0
+	move.w	a0,d1
+	btst	#0,d1
+	beq.s	T0
+	addq.l	#1,a0
+	bra.s	T0
+TVar:	moveq	#0,d1
+	move.b	2(a0),d1
+	lea	4(a0,d1.w),a0
+	bra.s	T0
+
+;	Passe en minuscules
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Minus:	cmp.b 	#"A",d0
+	bcs.s	.Skip
+	cmp.b	#"Z",d0
+	bhi.s	.Skip
+	add.b	#"a"-"A",d0
+.Skip	rts	
+
+
+;						Table des operateurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dtk_Operateurs
+	dc.w	1,1				
+	dc.b 	" xor"," "+$80,"O00",-1
+	dc.w	1,1				
+	dc.b 	" or"," "+$80,"O00",-1
+	dc.w	1,1				
+	dc.b 	" and"," "+$80,"O00",-1
+	dc.w	1,1				
+	dc.b 	"<",">"+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	">","<"+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	"<","="+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	"=","<"+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	">","="+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	"=",">"+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	"="+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	"<"+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	">"+$80,"O20",-1
+	dc.w	1,1				
+	dc.b 	"+"+$80,"O22",-1
+	dc.w	1,1				
+	dc.b 	"-"+$80,"O22",-1
+	dc.w	1,1				
+	dc.b 	" mod"," "+$80,"O00",-1
+	dc.w	1,1				
+	dc.b 	"*"+$80,"O00",-1
+	dc.w	1,1				
+	dc.b 	"/"+$80,"O00",-1
+	dc.w	1,1				
+	dc.b 	"^"+$80,"O00",-1
+	even
+Dtk_OpFin
+	dc.l 	0
+ExtNot	dc.b	"Extension ",$80
+
+	Even
+
+
diff --git a/AMOSPro Sources/+Toktab_Verif.Bin b/AMOSPro Sources/+Toktab_Verif.Bin
new file mode 100644
index 0000000..00508a2
Binary files /dev/null and b/AMOSPro Sources/+Toktab_Verif.Bin differ
diff --git a/AMOSPro Sources/+Toktab_Verif.s b/AMOSPro Sources/+Toktab_Verif.s
new file mode 100644
index 0000000..592bc1a
Binary files /dev/null and b/AMOSPro Sources/+Toktab_Verif.s differ
diff --git a/AMOSPro Sources/+assigns b/AMOSPro Sources/+assigns
new file mode 100644
index 0000000..0631b5f
--- /dev/null
+++ b/AMOSPro Sources/+assigns	
@@ -0,0 +1,7 @@
+Assign APC_Compiler: 		Work:Masters/Compiler/AMOSPro_Compiler
+Assign APC_Extras:	 	Work:Masters/Compiler/AMOSPro_Extras
+Assign APC_Update:	 	Work:Masters/Compiler/AMOSPro_Update
+Assign AMOSPro_Compiler:	Work:AMOS_Pro/Compiler
+Assign AMOSPro_Accessories:	Work:AMOS_Pro/Accessories
+Assign AMOSPro_Extras:		Work:AMOS_Pro/Extras
+Assign AMOSPro_System:		Work:AMOS_Pro
diff --git a/AMOSPro Sources/+bugs.s b/AMOSPro Sources/+bugs.s
new file mode 100644
index 0000000..780ee8f
--- /dev/null
+++ b/AMOSPro Sources/+bugs.s	
@@ -0,0 +1,35 @@
+
+BUGS AMOSPRO II
+~~~~~~~~~~~~~~~
+(*) Editor crashe avec des floats
+(*) Flush crashe dans getbob
+(*) AutoTest ramene un mauvais numero d'erreur
+(*) Multiplication entiere
+(*) Voir PRUN en cas d'erreur dans le test
+(*) Sortie du moniteur
+(*) =MATCH / =ARRAY retourne le type du tableau!!!
+(*) FLUSH memory avec equates charges
+( ) Set Accessory pas si RUN et pas PRUN
+(*) Screen Logic / Screen Physic : Wonderland / Quatro
+( ) Editeur bloc non tokenises
+(*) Hide fenetre en haut
+(*) AMOS1.3/Programs/Demo_Coll.AMOS
+(*) Extras/Sprite600
+(*) AMOS1.3/Programs/Shoot-em-up.AMOS
+(*) Magic Forest
+( ) If : Else If
+( ) Del Sprite multiple
+( ) Bank to menu laisse un chunk memoire
+
+BUGS AMOSPRO COMPILER
+~~~~~~~~~~~~~~~~~~~~~
+( ) Faire PrgIn avec double 
+(*) Verifier une garbage dans l'entree d'une procedure
+(*) Verifier test =STRUC$ dans le compilateur
+( ) Verifier les includes dans le compilateur
+( ) Tiny Shell: compiler unprogramme vide
+( ) APCmp: error test Compiler_Shell_Bug.AMOS
+( ) CloseWindow: parametre=2
+( ) Rajouter .AMOS si pas trouve source
+( ) Compile TO Ram: ...
+( ) =screen
diff --git a/AMOSPro Sources/+comp.s b/AMOSPro Sources/+comp.s
new file mode 100644
index 0000000..0a2d616
--- /dev/null
+++ b/AMOSPro Sources/+comp.s	
@@ -0,0 +1,6678 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+*
+		INCDIR	":AMOS.S/Common/"
+		Include	"_Equ.s"
+		RsSet	DataLong
+		Include "_Pointe.s"
+*
+		Include	"_WEqu.s"
+		Include "_CEqu.s"
+		Include	"_LEqu.s"
+*
+CDebug		set	0
+*
+F_Courant	equ	0
+F_Source	equ	1
+F_Objet		equ	2
+F_Libs		equ	3
+M_Libs		equ	27
+M_Fichiers	equ	F_Libs+M_Libs
+Mes_Base	equ	14+26
+Mes_BaseCh	equ	36
+Mes_BaseNoms	equ	46
+*
+		Bra	CliIn
+		Bra	AMOSIn1
+		Bra	AMOSIn2
+		dc.b	"ACmp"
+;---------------------------------------------------------------------
+		dc.b	0,"$VER: 1.36",0
+		even
+; Modifs 1.34b / 1.34
+;        	- Print # avec des ;
+;
+;---------------------------------------------------------------------
+*
+Ext_Nb		equ	5
+Ext_TkCmp       equ     6
+Ext_TkCOp       equ     $14
+Ext_TkTston     equ     $28
+Ext_TkTstof     equ     $3a
+Ext_TkTst       equ     $4e
+*
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+;  Entree AMOS mode direct
+;---------------------------------------------------------------------
+AMOSIn1	move.l	a5,a4
+	lea	DZ(pc),a5
+	bsr	ResetDZ
+	move.w	#1,Flag_AMOS(a5)
+	bra.s	AMOS_Suite
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+;  Entree AMOS compiler.amos
+;---------------------------------------------------------------------
+AMOSIn2	lea	AMOS_Save(pc),a1
+	movem.l	a3-a6,(a1)
+	move.l	a5,a4
+	lea	DZ(pc),a5
+	bsr	ResetDZ
+	move.w	#-1,Flag_Quiet(a5)
+	move.w	#-1,Flag_AMOS(a5)
+AMOS_Suite
+	move.l	IconBase(a4),C_IconBase(a5)
+	bne.s	.skip
+	move.w	#-1,IconAMOS(a5)
+.skip	move.l	DosBase(a4),C_DosBase(a5)
+	move.l	T_GfxBase(a4),C_GfxBase(a5)
+	move.l	a4,AMOS_Dz(a5)
+	bra	Go_On
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+;  Entree CLI
+;---------------------------------------------------------------------
+CliIn	lea	DZ(pc),a5
+	bsr	ResetDZ
+	clr.w	Flag_AMOS(a5)
+
+* Entree commune
+Go_On	move.l	sp,C_Pile(a5)
+	move.l	a0,a1
+	move.l	d0,d1
+* Buffer de travail
+	move.l	#256,d0
+	bsr	ResBuffer
+	beq	OOfMem
+	move.l	a0,B_Work(a5)
+* Recopie la ligne de commande
+	subq.l	#1,d1
+	bmi.s	.loop3
+.loop1	move.b	(a1)+,d0
+	cmp.b	#32,d0
+	bcs.s	.loop2
+	move.b	d0,(a0)+
+.loop2	dbra	d1,.loop1
+.loop3	clr.b	(a1)
+* Init de l'amigados
+	bsr	IniDisc
+* Liste par defaut
+	lea	Def_Liste(pc),a0
+	lea	Nom_Liste(a5),a1
+.Init0	move.b	(a0)+,(a1)+
+	bne.s	.Init0
+
+	moveq	#3,d0
+	bsr	GoPos
+* Flash par defaut, aucun!
+	move.w	#32,Flag_Flash(a5)
+* Explore la ligne de commande (si option -C)
+	move.l	B_Work(a5),a0
+	bsr	CommandLine
+* Charge la LIB LISTE / Explore sa ligne de commande (si option -E)
+	lea	Nom_Liste(a5),a1
+	bsr	LoadInBuffer
+	moveq	#1,d3
+	bsr	ListeNom
+	move.l	B_DiskIn(a5),a0
+	bsr	CommandLine
+	move.l	d0,-(sp)
+* Encore un coup la vraie...
+	move.l	B_Work(a5),a0
+	bsr	CommandLine
+	move.l	d0,-(sp)
+* Ca y est! On peut trouver les noms
+	bsr	InitListe
+* Des erreurs?
+	move.l	(sp)+,d0
+	bne	ErrCommand
+	move.l	(sp)+,d0
+	bne	ErrComList
+* Imprime le titre
+	moveq	#20,d0
+	bsr	MesPrint
+* Ouvre l'icon.library
+	bsr	InitIcons
+* Longueur des buffers
+	moveq	#1,d0
+	bsr	GetChiffre
+	move.l	d0,L_Bso(a5)
+	moveq	#2,d0
+	bsr	GetChiffre
+	move.l	d0,MaxBob(a5)
+
+* 1ere phase terminee
+	moveq	#6,d0
+	bsr	GoPos
+
+* Debut de compilation
+Compile
+* Initialisations
+	bsr	IniSource
+	bsr	IniNOb
+	moveq	#9,d0
+	bsr	GoPos
+
+	bsr	IniObjet
+	moveq	#12,d0
+	bsr	GoPos
+
+	moveq	#18,d0
+	bsr	CompPos
+	bsr	InitLibs
+	bsr	FActualise
+
+* Compilation
+	bsr	Passe1
+	bsr	Passe2
+
+* Sauvegarde
+	bsr	SObject
+	bsr	SIcon
+	move.w	#143,d0
+	bsr	GoPos
+	bsr	FActualise
+
+* Nettoyage
+CFin
+	moveq	#29,d0
+	bsr	MesPrint
+	move.l	MaxMem(a5),d0
+	bsr	Digit
+	moveq	#31,d0
+	bsr	MesPrint
+*
+	moveq	#30,d0
+	bsr	MesPrint
+	move.l	L_Objet(a5),d0
+	bsr	Digit
+	moveq	#31,d0
+	bsr	MesPrint
+*
+	moveq	#32,d0
+	bsr	MesPrint
+
+	IFNE	CDebug
+	bsr	Print_Buffers
+	ENDC
+
+	moveq	#0,d0
+	move.l	L_Objet(a5),d1
+	moveq	#0,d2
+	move.w	NbInstr(a5),d2
+	bra	CFini
+
+******* Re-initialisation Datazone
+ResetDZ
+	movem.l	a0/d0,-(sp)
+	move.l	a5,a0
+	move.w	#LDZ-1,d0
+Rdz	clr.b	(a0)+
+	dbra	d0,Rdz
+	movem.l	(sp)+,a0/d0
+	rts
+
+******* Exploration d'une ligne de commande...
+
+CommandLine:
+
+; Saute le d�but
+.Cli0	move.b	(a0)+,d0
+	beq	.CliX
+	cmp.b	#" ",d0
+	beq.s	.Cli0
+	subq.l	#1,a0
+; Nom du programme SOURCE?
+	cmp.b	#"-",(a0)
+	beq.s	.CliO
+	lea	Nom_Source(a5),a1
+	move.l	a1,d2
+	bsr	.CliNom
+; Options
+.CliO	move.b	(a0)+,d0
+	beq	.CliX
+	cmp.b	#" ",d0
+	beq.s	.CliO
+	cmp.b	#"-",d0
+	bne	.CliE
+	move.b	(a0)+,d0
+	beq	.CliE
+	bsr	D0Maj
+	cmp.b	#"D",d0
+	beq	.ClioD
+	cmp.b	#"O",d0
+	beq	.ClioO
+	cmp.b	#"C",d0
+	beq	.ClioC
+	cmp.b	#"F",d0
+	beq	.ClioF
+	cmp.b	#"E",d0
+	beq	.ClioE
+	cmp.b	#"S",d0
+	beq	.ClioS
+	cmp.b	#"T",d0
+	beq	.ClioT
+	cmp.b	#"W",d0
+	beq	.ClioW
+	cmp.b	#"Q",d0
+	beq	.ClioQ
+	cmp.b	#"L",d0
+	beq	.ClioL
+	cmp.b	#"Z",d0
+	beq	.ClioZ
+** Erreur dans la commandline
+.CliE	moveq	#-1,d0
+	rts
+** OK!
+.CliX	moveq	#0,d0
+	rts
+** OPTION -D<source><sbjet>
+.ClioD	bsr	.Cli01
+	move.w	d0,Flag_Source(a5)
+	bsr	.Cli01
+	move.w	d0,Flag_Objet(a5)
+	bra	.CliO
+** OPTION -Errors
+.ClioE	bsr	.Cli01
+	move.w	d0,Flag_Errors(a5)
+	bra	.CliO
+** OPTION -L
+.ClioL	move.w	#1,Flag_Long(a5)
+	bra	.CliO
+** OPTION -Screen
+.ClioS	bsr	.Cli01
+	move.w	d0,Flag_Default(a5)
+	bra	.CliO
+** OPTION -Object
+.ClioO	lea	Nom_Objet(a5),a1
+	bsr	.CliNom
+	bra	.CliO
+** OPTION -Configuration
+.ClioC	lea	Nom_Liste(a5),a1
+	bsr	.CliNom
+	bra	.CliO
+** OPTION -FromDEVICE:
+.ClioF	lea	Nom_From(a5),a1
+	bsr	.CliNom
+	bra	.CliO
+** OPTION Type : 0=WB / 1=CLI / 2=Backstart / 3=AMOS
+.ClioT	bsr	.CliDigit
+	move.w	d0,Flag_Type(a5)
+	bra	.CliO
+** OPTION Wb01 : 0= AMOS / 1= WB
+.ClioW	bsr	.Cli01
+	move.w	d0,Flag_WB(a5)
+	bra	.CliO
+** OPTION Quiet
+.ClioQ	or.w	#1,Flag_Quiet(a5)
+	bra	.CliO
+** OPTION Z
+.ClioZ	bsr	.CliDigit
+	move.w	d0,d1
+	mulu	#10,d1
+	bsr	.CliDigit
+	add.b	d0,d1
+	move.w	d1,Flag_Flash(a5)
+	bra	.CliO
+** Routines
+.CliNom	move.b	#" ",d1
+	move.b	(a0),d0
+	beq.s	.Clin1
+	cmp.b	#'"',d0
+	beq.s	.ClinB
+	cmp.b	#"'",d0
+	bne.s	.Clin0
+.ClinB	move.b	d0,d1
+	addq.l	#1,a0
+.Clin0	move.b	(a0),d0
+	beq.s	.Clin1
+	addq.l	#1,a0
+	cmp.b	d0,d1
+	beq.s	.Clin1
+	move.b	d0,(a1)+
+	bra.s	.Clin0
+.Clin1	clr.b	(a1)
+	rts
+.Cli01	move.b	(a0)+,d1
+	beq	.CliE
+	clr.w	d0
+	cmp.b	#"0",d1
+	beq.s	.Cli01x
+	cmp.b	#"1",d1
+	bne	.CliE
+	subq.w	#1,d0
+.Cli01x	rts
+.CliDigit
+	moveq	#0,d0
+	move.b	(a0)+,d0
+	beq	.CliE
+	sub.b	#"0",d0
+	bcs	.CliE
+	rts
+D0Maj	cmp.b	#"a",d0
+	bcs.s	D0mx
+	cmp.b	#"z",d0
+	bhi.s	D0mx
+	sub.b	#$20,d0
+D0mx	rts
+******* Fabrique le nom du programme OBJET, si NOM.AMOS!
+IniNOb	tst.b	Nom_Objet(a5)
+	bne.s	NObX
+	lea	Nom_Source(a5),a1
+	move.l	a1,d2
+.Nob	tst.b	(a1)+
+	bne.s	.Nob
+	subq.l	#1,a1
+	lea	SOMA(pc),a2
+.Cli2	cmp.l	d2,a1
+	bls.s	NObx
+	move.b	(a2)+,d1
+	beq.s	.Cli3
+	move.b	-(a1),d0
+	bsr	D0Maj
+	cmp.b	d0,d1
+	beq.s	.Cli2
+	bne.s	NObx
+.Cli3	exg	d2,a1
+	lea	Nom_Objet(a5),a2
+.Cli4	move.b	(a1)+,(a2)+
+	cmp.l	d2,a1
+	bcs.s	.Cli4
+; Si type=4, nom= nom_C.AMOS
+	cmp.w	#3,Flag_Type(a5)
+	bne.s	.Cli6
+	lea	_C.AMOS(pc),a1
+.Cli5	move.b	(a1)+,(a2)+
+	bne.s	.Cli5
+.Cli6	clr.b	(a2)
+NObX	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; SORTIE compilation
+;---------------------------------------------------------------------
+
+******* Actualisation position compilateur
+Actualise
+	tst.w	Flag_AMOS(a5)
+	bpl.s	.End
+	move.l	AMOS_Dz(a5),a0
+	tst.b	T_Actualise(a0)
+	bne.s	DoVbl
+.End	rts
+* Un VBL!
+DoVbl	movem.l	a1-a6/d1-d7,-(sp)
+	lea	AMOS_Save(pc),a0
+	movem.l	(a0),a3-a6
+* Actualise
+	SyCall	Synchro
+* Break
+	move.w	T_Actualise(a5),d7
+	clr.w	T_Actualise(a5)
+	bclr	#BitControl,d7
+	beq.s	.cont
+	movem.l	(sp)+,a1-a6/d1-d7
+	bra	ErrAbort
+* Affiche le bob?
+.cont	bclr	#BitBobs,d7
+	beq.s	.skip
+	SyCall	ActBob
+	SyCall	AffBob
+.skip	movem.l	(sp)+,a1-a6/d1-d7
+	rts
+
+******* Set compiler position...
+GoPos	bsr	CompPos
+	bra	FActualise
+CompPos	tst.w	Flag_AMOS(a5)
+	bmi.s	.Yes
+	rts
+.Yes	movem.l	d0-d7/a1-a6,-(sp)
+	move.l	AMOS_Dz(a5),a5
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	SyCall	AMALReg
+	movem.l	(sp)+,d0-d7/a1-a6
+	move.w	d0,(a0)
+	move.w	d0,Pour_Pos(a5)
+	rts
+
+******* Fait progresser la fleche -> fin
+FActualise
+	tst.w	Flag_AMOS(a5)
+	bmi.s	.Loop
+	rts
+.Loop	bsr	Actualise
+	movem.l	d1-d7/a1-a2/a5,-(sp)
+	move.l	AMOS_Dz(a5),a5
+	moveq	#-1,d1
+	moveq	#0,d2
+	moveq	#1,d3
+	SyCall	AMALReg
+	movem.l	(sp)+,d1-d7/a1-a2/a5
+	move.w	(a0),d0
+	cmp.w	Pour_Pos(a5),d0
+	bcs.s	.loop
+	rts
+
+******* Set pourcentage
+*	D0= largeur alouee
+*	D1= nombre de pas
+SetPour	divu	d0,d1
+	tst.w	d1
+	bne.s	.skip
+	moveq	#1,d1
+.skip	move.w	d1,Pour_Base(a5)
+	move.w	d1,Pour_Cpt(a5)
+	add.w	Pour_Pos(a5),d0
+	bra	CompPos
+******* Un pas d'affichage...
+AffPour	tst.w	Flag_AMOS(a5)
+	bpl.s	.Skip
+	subq.w	#1,Pour_Cpt(a5)
+	bne.s	.Skip
+	move.w	Pour_Base(a5),Pour_Cpt(a5)
+	bsr	DoVBL
+.Skip	rts
+
+******* Print un chiffre!
+Digit	movem.l	d1-d7/a0-a2,-(sp)
+	move.l	B_Work(a5),a0
+	bsr	LongDec
+	clr.b	(a0)
+	move.l	B_Work(a5),a0
+	bsr	StrPrint
+	movem.l	(sp)+,d1-d7/a0-a2
+	rts
+
+******* Syntax error!
+Synt
+	moveq	#7,d0
+NoQuiet
+	move.w	Flag_Quiet(a5),-(sp)
+	bmi.s	.skip
+	clr.w	Flag_Quiet(a5)
+	bsr	MesPrint
+	bsr	FindL
+	bsr	Digit
+	bsr	Return
+.skip
+	move.w	(sp)+,Flag_Quiet(a5)
+	moveq	#12,d0
+	bra	SyntOut
+******* Compilation aborted!
+ErrAbort
+	moveq	#9,d0
+	bra.s	ErrPrint
+******* Erreur: program not tested!
+ErrNotest
+	moveq	#12,d0
+	bra.s	ErrPrint
+******* Erreur: not an AMOS program!
+ErrNoAMOS
+	moveq	#13,d0
+	bra.s	ErrPrint
+******* Erreur: label not defined
+ErrLabel
+	bclr	#31,d0
+	move.l	d0,a6
+	moveq	#14,d0
+	bra.s	NoQuiet
+******* Erreur program already compiled
+ErrAlready
+	moveq	#15,d0
+	bra.s	ErrPrint
+******* Erreur: use the -l option
+ErrDoLong
+	moveq	#16,d0
+	bra.s	ErrPrint
+******* Erreur: nothing to compile!
+ErrNothing
+	moveq	#10,d0
+	bra.s	ErrPrint
+******* Erreur:	bad list!
+ErrListe
+	moveq	#4,d0
+	bra.s	ErrPrint
+******* Erreur: cannot uncode procedure
+NoCode
+	moveq	#8,d0
+	bra.s	ErrPrint
+******* Erreur: extension not loaded.
+ErrExt
+	moveq	#3,d0
+	bra.s	ErrPrint
+******* Syntax error dans la ligne de commande
+ErrCommand
+	moveq	#1,d0
+	bra.s	ErrPrint
+******* Syntax error dans la ligne de commande LISTE
+ErrComList
+	moveq	#2,d0
+	bra.s	ErrPrint
+******* Syntax error dans la configuration
+ErrConfig
+	moveq	#11,d0
+	bra.s	ErrPrint
+******* Erreur disque
+DError
+	moveq	#5,d0
+	bra.s	ErrPrint
+******* Erreur icons
+NoIcons
+	moveq	#4,d0
+	bra.s	ErrPrint
+******* Out of mem
+Oofmem
+	moveq	#6,d0
+
+******* Sortie avec erreur!
+ErrPrint
+	move.w	d0,-(sp)
+	move.w	Flag_Quiet(a5),-(sp)
+	bmi.s	.skip
+	clr.w	Flag_Quiet(a5)
+	bsr	MesPrint
+.skip
+	move.w	(sp)+,Flag_Quiet(a5)
+	move.w	(sp)+,d0
+SyntOut
+	add.w	#Mes_BaseNoms,d0
+	bsr	GetNom
+	lea	Nom_Source(a5),a1
+.loop	move.b	(a0)+,(a1)+
+	beq.s	.loop1
+	cmp.b	#32,-1(a1)
+	bcc.s	.loop
+	subq.l	#1,a1
+	bra.s	.loop
+.loop1	tst.l	B_Noms(a5)
+	beq.s	.loop2
+	moveq	#32,d0
+	bsr	MesPrint
+.loop2
+; Efface l'objet, si cree
+	bsr	KObject
+; Retour de parametres
+	moveq	#10,d0
+	moveq	#0,d1
+	moveq	#0,d2
+
+******* Abort general!
+CFini	movem.l	d0/d1/d2,-(sp)
+	bsr	EraBuffer
+	bsr	FinIcons
+	bsr	FinDisc
+	movem.l	(sp)+,d0/d1/d2
+CFini2	lea	Nom_Source(a5),a0
+	move.l	C_Pile(a5),sp
+	rts
+
+	IFNE	CDebug
+******* Imprime l'etat des buffers
+Print_Buffers:
+	lea	Mes_Buffers(pc),a4
+	lea	B_Work(a5),a3
+.Loop0	move.l	a4,a0
+	bsr	StrPrint
+	move.l	(a3),d0
+	beq.s	.Loop3
+	move.l	d0,a2
+	move.l	-4(a2),d6
+	subq.l	#4,d6
+	lea	0(a2,d6.l),a1
+.Loop1	tst.l	-(a1)
+	bne.s	.Loop2
+	cmp.l	a2,a1
+	bhi.s	.Loop1
+.Loop2	addq.l	#4,a1
+	move.l	a1,d7
+	sub.l	a2,d7
+	move.l	d7,d0
+	bsr	Digit
+	lea	Mes_Bufs2(pc),a0
+	bsr	StrPrint
+	move.l	d6,d0
+	bsr	Digit
+	lea	Mes_Bufs3(pc),a0
+	bsr	StrPrint
+	move.l	d6,d0
+	sub.l	d7,d0
+	bsr	Digit
+	bsr	Return
+.Loop3	tst.b	(a4)+
+	bne.s	.Loop3
+	addq.l	#4,a3
+	tst.b	(a4)
+	bne.s	.Loop0
+	bsr	Return
+	rts
+	ENDC
+
+******* Trouve le num�ro de la ligne pointee par A6->D0
+FindL	move.l	a6,d2
+	move.l	#20,a6
+	moveq	#0,d1
+.Loop0	addq.l	#1,d1
+	bsr	GetWord
+	lsr.w	#8,d0
+	beq.s	.Loop2
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a6
+	cmp.l	d2,a6
+	bcs.s	.Loop0
+* Trouve!
+.Loop1	move.l	d1,d0
+	rts
+* Pas trouve!
+.Loop2	moveq	#-1,d0
+	rts
+
+******* Imprime le message D0
+MesPrint
+	tst.w	Flag_Quiet(a5)
+	bne.s	PrintXXX
+* Imprime le message...
+	movem.l	a0-a6/d0-d7,-(sp)
+	add.w	#Mes_BaseNoms,d0
+	bsr	GetNom
+	tst.w	Flag_Amos(a5)
+	bne.s	AMOSPrint
+	move.l	d0,d3
+	move.l	a0,d2
+	move.l	C_DosBase(a5),a6
+	jsr	-60(a6)
+	move.l	d0,d1
+	jsr	DosWrite(a6)
+	movem.l	(sp)+,a0-a6/d0-d7
+PrintXXX
+	rts
+AMOSPrint
+	move.l	B_DiskIn(a5),a1
+.Loop1	move.b	(a0)+,(a1)+
+	beq.s	.Loop2
+	cmp.b	#10,-1(a1)
+	bne.s	.Loop1
+	move.b	#13,-1(a1)
+	move.b	#10,(a1)+
+	bra.s	.Loop1
+.Loop2	clr.b	(a1)
+	move.l	B_DiskIn(a5),a1
+	move.l	AMOS_Dz(a5),a5
+	WiCall	Print
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+*******	Imprime la chaine A0 sur l'output standart
+StrPrint
+	tst.w	Flag_Quiet(a5)
+	bne.s	Clip1
+	movem.l	a0-a6/d0-d7,-(sp)
+	tst.w	Flag_AMOS(a5)
+	bne.s	AMOSPrint
+	move.l	a0,-(sp)
+	move.l	C_DosBase(a5),a6
+	jsr	-60(a6)
+	move.l	d0,d1
+	move.l	(sp)+,d2
+	move.l	d2,a0
+Clip0	tst.b	(a0)+
+	bne.s	Clip0
+	move.l	a0,d3
+	sub.l	d2,d3
+	subq.l	#1,d3
+	jsr	DosWrite(a6)
+	movem.l	(sp)+,a0-a6/d0-d7
+Clip1	rts
+
+******* Return
+Return
+	lea	Mes_return(pc),a0
+	bra.s	StrPrint
+
+
+; CONVERSION HEXA--->DECIMAL SUR QUATRE OCTETS
+longdec1: move #-1,d3         ;proportionnel
+          moveq #1,d4         ;avec signe
+          bra.s longent
+longdec:  clr.l d4            ;proportionnel, sans espace si positif!
+          move.l #-1,d3
+; conversion proprement dite: LONG-->ENTIER
+longent:  move.l a1,-(sp)
+	  tst.l d0            ;test du signe!
+          bpl.s hexy
+          move.b #"-",(a0)+
+          neg.l d0
+          bra.s hexz
+hexy:     tst d4
+          beq.s hexz
+          move.b #32,(a0)+
+hexz:     tst.l d3
+          bmi.s hexv
+          neg.l d3
+          add.l #10,d3
+hexv:     move.l #9,d4
+          lea multdix(pc),a1
+hxx0:     move.l (a1)+,d1     ;table des multiples de dix
+          move.b #$ff,d2
+hxx1:     addq.b #1,d2
+          sub.l d1,d0
+          bcc.s hxx1
+          add.l d1,d0
+          tst.l d3
+          beq.s hxx4
+          bpl.s hxx3
+          btst #31,d4
+          bne.s hxx4
+          tst d4
+          beq.s hxx4
+          tst.b d2
+          beq.s hxx5
+          bset #31,d4
+          bra.s hxx4
+hxx3:     subq.l #1,d3
+          bra.s hxx5
+hxx4:     add #48,d2
+          move.b d2,(a0)+
+hxx5:     dbra d4,hxx0
+	  move.l (sp)+,a1
+          rts
+* TABLE DES MULTIPLES DE DIX
+multdix:  dc.l 1000000000,100000000,10000000,1000000
+          dc.l 100000,10000,1000,100,10,1,0
+
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; PASSE 1-> Fabrication du code
+;---------------------------------------------------------------------
+
+Passe1
+* Reservation des buffers
+	moveq	#8,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_FlagVarL(a5)
+	moveq	#7,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_FlagVarG(a5)
+	move.l	a0,A_FlagVarL(a5)
+	moveq	#5,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_Chaines(a5)
+	move.l	a0,A_Chaines(a5)
+	moveq	#8,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_Lea(a5)
+	move.l	a0,A_Lea(a5)
+	move.l	#$7FFFFFFF,(a0)
+	moveq	#6,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_Labels(a5)
+	moveq	#7,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_Bcles(a5)
+	move.l	a0,A_Bcles(a5)
+	move.l	#128,d0
+	bsr	ResBuffer
+	move.l	a0,B_Stock(a5)
+	move.l	a0,A_Stock(a5)
+* Longueur du buffer par default
+	move.l	#8,L_Buf(a5)
+* Relocation
+	bsr	InitRel
+* Adresses SORTIE / ENTREE
+	sub.l	a4,a4
+	lea	20,a6
+
+******* Message
+	moveq	#22,d0
+	bsr	MesPrint
+	moveq	#36,d0
+	moveq	#0,d1
+	move.w	NL_Source(a5),d1
+	bsr	SetPour
+
+******* Va fabriquer le header
+	bsr	Header
+
+;-----> Debut du hunk programme
+	moveq	#NH_Prog,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+
+;-----> Debut de la relocation
+	move.l	a4,DebRel(a5)
+	move.l	a4,OldRel(a5)
+
+;-----> NO DATAS
+	bsr	CreNoData
+
+;-----> Appel des routines d'init
+	bsr	CreeInits
+
+;-----> Code bug
+	IFNE	CDebug
+	lea	BugCode(pc),a0
+	bsr	OutCode
+	ENDC
+
+;--------------------------------------> Programme principal
+	bsr	PrgIn
+	moveq	#L_PrgIn,d0
+	bsr	CreFonc
+ChrGet	bsr	AffPour
+	cmp.l	A_Banks(a5),a6
+	beq.s	ChrEnd
+	bsr	GetWord
+	beq.s	ChrEnd
+; Regarde la table des branchements en avant
+Chr0	move.l	B_Lea(a5),a0
+	cmp.l	(a0),a6
+	bcs.s	Chr1
+	bsr	PokeAd
+	bra.s	Chr0
+; Appelle l'instruction
+Chr1	bsr	GetWord
+	beq.s	ChrGet
+	addq.w	#1,NbInstr(a5)
+	lea	Tk(pc),a0
+	move.w	0(a0,d0.w),d1
+	bne.s	Chr2
+	bsr	IStandard
+	bra.s	Chr0
+Chr2	jsr	0(a0,d1.w)		* Une autre instruction
+	bra.s	Chr0
+* Appelle la routine de fin
+ChrEnd	move.w	#L_End,d0
+	bsr	CreJmp
+	move.l	AdAdress(a5),AdAdAdress(a5)
+	move.w	Flag_Labels(a5),OFlag_Labels(a5)
+	move.w	Flag_Procs(a5),OFlag_Procs(a5)
+	move.l	B_FlagVarL(a5),A_FlagVarL(a5)
+	move.l	A_Datas(a5),A_ADatas(a5)
+	move.w	M_ForNext(a5),MM_ForNext(a5)
+* Quelque chose � compiler???
+	tst.w	NbInstr(a5)
+	beq	ErrNothing
+
+;--------------------------------------> Procedures
+	move.l	B_Labels(a5),A_Proc(a5)
+PChr1	move.l	A_Proc(a5),a0
+	moveq	#-6,d0
+PChr2	lea	6(a0,d0.w),a0
+	move.w	(a0),d0
+	beq	PChrX
+	move.l	2(a0),d1
+	bclr	#30,d1
+	beq.s	PChr2
+	move.l	d1,a6
+	move.l	a4,2(a0)
+* Adresse de la fin de la procedure
+	bsr	GetLong
+	subq.l	#4,a6
+	lea	10-2(a6,d0.l),a0
+	move.l	a0,F_Proc(a5)
+* Stockage position actuelle
+	move.w	CMvqd0(pc),d0
+	bsr	OutWord
+	moveq	#L_DProc1,d0
+	bsr	CreFonc
+	bsr	PrgIn
+	moveq	#L_PrgIn,d0
+	bsr	CreFonc
+* Adresse des variables
+	lea	10(a6),a6
+	bsr	Sovar
+	moveq	#0,d7
+	moveq	#0,d6
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkBra1-Tk,d0
+	bne.s	DPro6
+	addq.l	#2,a6
+DPro0	addq.l	#2,a6
+	lsl.l	#1,d6
+	addq.l	#1,d7
+	movem.l	d6/d7,-(sp)
+	bsr	VarAdr
+	movem.l	(sp)+,d6/d7
+	cmp.b	#1,d2
+	bne.s	DPro1
+	bset	#0,d6
+DPro1	tst.w	d1
+	bmi.s	DPro4
+	beq.s	DPro2
+; Variable GLOBALE
+	move.w	CLea2a0a0(pc),d0
+	bra.s	DPro3
+; Variable LOCALE
+DPro2	move.w	CLea2a6a0(pc),d0
+DPro3	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	bra.s	DPro5
+; Variable TABLEAU
+DPro4	moveq	#L_GetTablo,d0
+	bsr	CreFonc
+DPro5	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+; Encore un param?
+	bsr	GetWord
+	cmp.w	#TkBra2-Tk,d0
+	bne.s	DPro0
+* Entete de la procedure
+	move.w	Cmvqd4(pc),d0		* N params
+	move.b	d7,d0
+	bsr	OutWord
+	move.w	Cmvid5(pc),d0		* Flags des params
+	bsr	OutWord
+	move.l	d6,d0
+	bsr	OutLong
+	moveq	#L_DProc2,d0		* Routine d'egalisation
+	bsr	CreFonc
+* Pas de melange des labels!
+DPro6	addq.w	#1,N_Proc(a5)
+
+* CHRGET!
+	addq.l	#2,a6
+ProChr	bsr	AffPour
+	bsr	GetWord
+	beq	Synt
+;
+ProChr0	move.l	B_Lea(a5),a0
+	cmp.l	(a0),a6
+	bcs.s	ProChr1
+	bsr	PokeAd
+	bra.s	ProChr0
+;
+ProChr1	bsr	GetWord
+	beq.s	ProChr
+	addq.w	#1,NbInstr(a5)
+	lea	Tk(pc),a0
+	move.w	0(a0,d0.w),d1
+	bne.s	ProChr2
+	bsr	IStandard
+	bra.s	ProChr0
+ProChr2	jsr	0(a0,d1.w)		* Une autre instruction
+	bra.s	ProChr0
+; Fin procedure
+CEProc	addq.l	#4,sp
+	bsr	GetWord			* Un parametre???
+	subq.w	#2,a6
+	cmp.w	#TkBra1-Tk,d0
+	bne.s	CEpr2
+	bsr	FnEval
+	addq.l	#2,a6
+	move.l	CdEProE(pc),d0
+	and.b	#$0F,d2
+	subq.b	#1,d2
+	bmi.s	CEpr1
+	move.l	CdEProF(pc),d0
+	tst.b	d2
+	beq.s	CEpr1
+	move.l	CdEProS(pc),d0
+CEpr1	bsr	OutLong
+CEpr2	moveq	#L_FProc,d0
+	bsr	CreJmp
+	move.l	A_FlagVarL(a5),a0
+	bsr	PrgOut
+	bra	PChr1
+PChrX
+
+;-----> Variables globales
+	move.l	AdAdAdress(a5),AdAdress(a5)
+	move.l	B_FlagVarG(a5),a0
+	move.l	A_ADatas(a5),A_Datas(a5)
+	move.w	OFlag_Labels(a5),Flag_Labels(a5)
+	move.w	OFlag_Procs(a5),Flag_Procs(a5)
+	move.w	MM_ForNext(a5),M_ForNext(a5)
+	clr.w	N_Proc(a5)
+	bsr	PrgOut
+
+;------------------------------------> COPIE LES ROUTINES LIBRAIRIE
+	moveq	#23,d0
+	bsr	MesPrint
+	bsr	FActualise
+	moveq	#36,d0
+	move.l	#36*12,d1
+	bsr	SetPour
+
+	move.l	B_Bcles(a5),a6
+CLib0	lea	BufLibs(a5),a2
+	moveq	#-1,d6
+CLib1	addq.l	#1,d6
+	move.l	(a2)+,d0
+	bne.s	CLib2
+	cmp.w	#M_Libs-1,d6
+	bne.s	CLib1
+	tst.l	d6
+	bmi.s	CLib0
+	moveq 	#0,d0
+        bsr 	OutRel
+        bsr 	OutRel
+	bra	CLibFin
+
+; Une librairie chargee
+CLib2	move.l	d0,a1
+	tst.w	(a1)
+	bne.s	CLib3
+; Pas appel�e: met un RTS!
+	move.l	a4,4(a1)
+	move.w	CRts(pc),d0
+	bsr	OutWord
+	bra.s	CLib1
+; Appell�e
+CLib3	lea	4-10(a1),a1
+	moveq	#-10,d5
+CLib4	add.l	#10,d5
+	lea	10(a1),a1
+	move.l	(a1),d0
+	beq.s	CLib4
+	bmi.s	CLib1
+	subq.l	#1,d0
+	bne.s	CLib4
+	movem.l	a1/a2,-(sp)
+	bsr	GetRout
+	movem.l	(sp)+,a1/a2
+	bset	#31,d6
+	bra.s	CLib4
+
+******* Routine recursive de copie d'une routine
+*	D6= 	# librairie
+*	D5=	# routine
+GetRout	movem.l	d5/d6,-(sp)
+
+* Actions particulieres sur librairie principale...
+	tst.w	d6
+	bne.s	PaPrin
+; Copie les routines FLOAT?
+	cmp.w	#L_FlRout*10,d5
+	bne.s	.PaFl
+	btst	#0,Flag_Math(a5)
+	bne.s	.PaFl
+	move.w	#L_FoFloat*10,d5
+.PaFl
+; Copie des RUN et ERROR (.AMOS)
+	cmp.w	#3,Flag_Type(a5)
+	bne.s	PaPrin
+	cmp.w	#L_Error*10,d5
+	bne.s	PaPrin
+	move.w	#L_ErrorAMOS*10,d5
+PaPrin
+; Pointe la librairie
+	move.w	d6,d0
+	lsl.w	#2,d0
+	lea	BufLibs(a5),a2
+	move.l	0(a2,d0.w),d0
+	beq	DError
+	move.l	d0,a2
+	move.w	2(a2),d1
+	move.w	d1,MaxCLibs(a5)
+	addq.l	#4,a2
+; Est-ce la routine d'erreur d'une extension???
+	tst.w	d6		; Librairie extension?
+	beq.s	.skip
+	mulu	#10,d1
+	move.w	d5,d0
+	add.w	#20,d0
+	cmp.w	d0,d1		; Avant derniere routine?
+	bne.s	.skip
+	tst.w	Flag_Errors(a5)	; Erreurs a charger?
+	bne.s	.skip
+	add.w	#10,d5		; PAS D'ERREURS!!!
+.skip
+; Continue
+	move.w	d5,d0
+	add.w	d0,a2
+	move.l	(a2),d0
+	cmp.l	#1,d0
+	bhi	GRouX
+; Charge la routine dans le buffer
+	moveq	#24,d0
+	bsr	MesPrint
+	bsr	AffPour
+	move.l	a4,(a2)		; Poke l'adresse de la routine
+	move.l	a4,-(sp)
+	move.w	#-1,(a6)+
+** Init recopie routine
+	move.l	4(a2),P_Clib(a5)
+	moveq	#0,d0
+	move.w	8(a2),d0
+	lsl.l	#1,d0
+	move.l	d0,T_Clib(a5)
+	moveq	#0,d4		* P_CLIB-> D4
+** Boucle de recopie, D3 octets
+GRou0	bsr	LdClib
+GRou1	move.b	(a2),d0
+	cmp.b	#C_Code1,d0
+	beq	GRou10
+GRou2	move.w	(a2)+,d0
+	bsr	OutWord
+	addq.l	#2,d4
+GRouR	cmp.l	d3,d4
+	bcs.s	GRou1
+	cmp.l	T_Clib(a5),d4
+	bcs.s	GRou0
+; Branche les routines demandees
+GRou4	move.w	-(a6),d0
+	bmi.s	GRou6
+	move.w	d0,d5
+	bsr	GetRout
+	move.l	a4,d2
+	move.l	-(a6),a4
+	move.l	d0,d1
+	sub.l	a4,d0
+	cmp.l	#-32760,d0
+	ble.s	GRou5
+	cmp.l	#+32760,d0
+	bge.s	GRou5
+; Saut relatif OK!
+	bsr	OutWord
+	move.l	d2,a4
+	bra.s	GRou4
+; Saut en ARRIERE trop long: BRA-> JMP
+GRou5	move.l	d2,d0		* 1-> BRA sur le JMP
+	sub.l	a4,d0
+	cmp.l	#-32760,d0
+	ble	DError
+	cmp.l	#+32760,d0
+	bge	DError
+	bsr	OutWord
+	move.l	d2,a4		* 2-> JMP sur la routine
+	move.w	CJmp(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	d1,d0
+	bsr	OutLong
+	bra.s	GRou4
+; Ramene l'adresse de la routine
+GRou6	move.l	(sp)+,d0
+;-----> Fin copie routine
+GRouX	movem.l	(sp)+,d5/d6
+	rts
+
+******* Charge la routine dans le buffer
+LdClib	move.w	d6,d1
+	addq.w	#F_Libs,d1
+	move.l	d4,d2
+	add.l	P_Clib(a5),d2
+	moveq	#-1,d3
+	bsr	FSeek
+	move.w	d6,d1
+	addq.w	#F_Libs,d1
+	move.l	B_DiskIn(a5),d2
+	move.l	T_Clib(a5),d3
+	sub.l	d4,d3
+	clr.l	-(sp)
+	cmp.l	#L_DiscIn,d3
+	bcs.s	Ldcl1
+	move.l	#L_DiscIn,d3
+	move.l	#8,(sp)
+Ldcl1	bsr	FRead
+	beq	DError
+	move.l	d2,a2
+	add.l	d4,d3
+	sub.l	(sp)+,d3
+	rts
+
+;-----> Instruction speciale
+GRou10	move.w	(a2),d0
+	move.b	d0,d2
+	and.b	#$0F,d0
+	cmp.b	#C_Code2,d0
+	bne	GRou2
+	and.w	#$00F0,d2
+	lsr.w	#1,d2
+	lea	GRout(pc),a1
+	jmp	0(a1,d2.w)
+;-----> Table des sauts
+GRout	bra.s	GRouJ			; 0 - RJmp
+	jmp	$FFFFF0
+	bra.s	GRouJ			; 1 - RJsr
+	jsr	$FFFFF0
+	bra	GRouB			; 2 - RBra
+	bra	GRout
+	bra	GRouB			; 3 - RBsr
+	bsr	GRout
+	bra	GRouB			; 4 - RBeq
+	beq	GRout
+	bra	GRouB			; 5 - RBne
+	bne	GRout
+	bra	GRouB			; 6 - RBcs
+	bcs	GRout
+	bra	GRouB			; 7 - RBcc
+	bcc	GRout
+	bra	GRouB			; 8 - RBlt
+	blt	GRout
+	bra	GRouB			; 9 - RBge
+	bge	GRout
+	bra	GRouB			; 10- RBls
+	bls	GRout
+	bra	GRouB			; 11- RBhi
+	bhi	GRout
+	bra	GRouB			; 12- RBle
+	ble	GRout
+	bra	GRouB			; 13- RBpl
+	bpl	GRout
+	bra	GRouB			; 14- RBmi
+	bmi	GRout
+	bra	GRouD			; 15- RData
+;-----> RJMP / RJSR
+GRouJ	cmp.b	#C_CodeJ,2(a2)
+	bne	GRou2
+	moveq	#0,d1
+	move.b	3(a2),d1
+	cmp.b	#27,d1
+	bcc	GRou2
+	move.w	4(a2),d0
+; Poke l'appel
+	move.w	2(a1,d2.w),d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.w	4(a2),d0
+	mulu	#10,d0
+	swap	d0
+	lsl.w	#2,d1
+	move.w	d1,d0
+	swap	d0
+	bset	#BitLib,d0
+	bsr	OutLong
+	addq.l	#6,a2
+	addq.l	#6,d4
+; Marque la librairie
+	lea	BufLibs(a5),a0
+	move.l	0(a0,d1.w),d2
+	beq	DError
+	move.l	d2,a0
+	tst.l	4(a0,d0.w)
+	bne	GRou1
+	move.l	#1,4(a0,d0.w)
+	bra	GRouR
+;-----> RBRA etc..
+GRouB	move.w	2(a2),d1
+	cmp.w	MaxClibs(a5),d1
+	bcc	GRou2
+	mulu	#10,d1
+	move.w	4(a1,d2.w),d0
+	bsr	OutWord
+	move.l	a4,(a6)+
+	move.w	d1,(a6)+
+	addq.l	#4,a2
+	addq.l	#4,d4
+	addq.l	#2,a4
+	bra	GRouR
+;-----> Instruction RDATA
+GRouD	cmp.w	#C_CodeD,2(a2)
+	bne	GRou2
+	addq.l	#4,a2
+	addq.l	#4,d4
+	move.w	CNop(pc),d0
+	bsr	OutWord
+	bsr	OutWord
+GRouD1	cmp.l	d3,d4
+	bcc	GRouD2
+	move.w	(a2)+,d0
+	bsr	OutWord
+	addq.l	#2,d4
+	bra.s	GRouD1
+GRouD2	cmp.l	T_Clib(a5),d4
+	bcc	GRou4
+	bsr	LdClib
+	bra.s	GRouD1
+CLibFin
+;	lea	Protect(pc),a0
+;	bsr	OutCode
+	bsr	Return
+
+;-----> Copie les constantes alphanumeriques
+	move.l	B_Chaines(a5),a1
+	bra.s	c_ch5
+c_ch1	move.l	d0,a6
+	move.l	a4,(a1)
+	bsr	GetWord
+	move.w	d0,d1
+	bsr	OutWord
+	addq.w	#1,d1
+	lsr.w	#1,d1
+	subq.w	#1,d1
+	bmi.s	c_ch4
+c_ch3	bsr	GetWord
+	bsr	OutWord
+	dbra	d1,c_ch3
+c_ch4	addq.l	#4,a1
+c_ch5	move.l	(a1),d0
+	bne.s	c_ch1
+; Securite un mot long
+	moveq	#0,d0
+	bsr	OutLong
+
+;-----> Fin du hunk programme
+	moveq	#NH_Prog,d1
+	bsr	FinHunk
+	bsr	FActualise
+
+******* HUNK 2: Table de relocation
+	moveq	#NH_Reloc,d1
+	moveq	#Hunk_Public,d2		* En PUBLIC Mem
+	bsr	DebHunk
+	move.l	a4,AA_Reloc(a5)
+; Copie
+	move.l	B_Reloc(a5),a1
+CRel1	move.b	(a1)+,d0
+	bsr	OutByte
+	tst.b	d0
+	bne.s	CRel1
+	sub.l	B_Reloc(a5),a1
+	move.w	a1,L_Reloc(a5)
+; Fin du hunk reloc
+	moveq	#NH_Reloc,d1
+	bsr	FinHunk
+	moveq	#93,d0
+	bsr	GoPos
+
+******* Copie du systeme?
+	cmp.w	#3,Flag_Type(a5)
+	bne	CSystem
+* AMOS: Copie la fin de la procedure
+	moveq	#0,d0
+	bsr	OutWord
+	move.l	a4,AA_EProc(a5)
+	move.w	#$0301,d0
+	bsr	OutWord
+	move.w	#TkEndP-Tk,d0
+	bsr	OutWord
+	clr.w	d0
+	bsr	OutWord
+	moveq	#108,d0
+	bsr	GoPos
+	bra	NoSystem
+
+******* HUNK 2: W.Lib
+CSystem	moveq	#25,d0
+	bsr	MesPrint
+	moveq	#NH_W.Lib,d1
+	moveq	#Hunk_Public,d2		* PUBLIC mem
+	moveq	#$20,d3			* Pas d'entete
+	moveq	#4,d4
+	moveq	#4-1,d0
+	bsr	GetNom
+	move.l	a0,a1
+	bsr	CopyHunk
+	moveq	#96,d0
+	bsr	GoPos
+
+******* HUNK 4: .Env
+	moveq	#NH_Env,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	moveq	#0,d0			* Mot vide!!!
+	bsr	OutLong
+	moveq	#1,d0
+	bsr	GetNom
+	move.l	a0,a1
+	moveq	#F_Courant,d1
+	bsr	FOpenOld
+	beq	DError
+	moveq	#F_Courant,d1
+	bsr	FLof
+	move.l	d0,d6
+	moveq	#F_Courant,d1
+	move.l	B_Work(a5),d2		* Longueur DATAZONE
+	moveq	#$24,d3
+	bsr	FRead
+	beq	DError
+	move.l	d2,a0
+	move.l	$20(a0),d0
+	bsr	OutLong
+	sub.l	#$24,d6
+	move.l	d6,d0			* Longueur donnees
+	bsr	OutLong
+	moveq	#F_Courant,d1
+	move.l	d6,d3			* Charge
+	bsr	OutFRead
+	moveq	#F_Courant,d1
+	bsr	FClose
+	moveq	#NH_Env,d1
+	bsr	FinHunk
+	moveq	#99,d0
+	bsr	GoPos
+
+******* HUNK 5: Mouse.Abk
+	moveq	#NH_Mouse,d1
+	move.l	#Hunk_Chip,d2		* CHIP mem
+	bsr	DebHunk
+	move.l	a4,-(sp)
+	lea	16*2(a4),a4		* Place pour la palette
+	moveq	#9-1,d0
+	bsr	GetNom
+	move.l	a0,a1
+	moveq	#F_Courant,d1
+	bsr	FOpenOld
+	beq	DError
+	moveq	#F_Courant,d1
+	moveq	#6,d2
+	moveq	#-1,d3
+	bsr	FSeek
+	moveq	#F_Courant,d1
+	bsr	FLof
+	moveq	#F_Courant,d1
+	move.l	d0,d3			* Tout sauf la palette
+	sub.l	#32*2+6,d3
+	bsr	OutFRead
+	moveq	#-1,d0			* Marque la fin
+	bsr	OutWord
+	moveq	#F_Courant,d1
+	moveq	#16*2,d2		* Saute 1ere moitie palette
+	moveq	#0,d3
+	bsr	FSeek
+	move.l	(sp)+,d0
+	move.l	a4,-(sp)
+	move.l	d0,a4
+	moveq	#16*2,d3
+	moveq	#F_Courant,d1
+	bsr	OutFRead
+	moveq	#F_Courant,d1
+	bsr	FClose
+	move.l	(sp)+,a4
+	moveq	#NH_Mouse,d1
+	bsr	FinHunk
+	moveq	#102,d0
+	bsr	GoPos
+
+******* HUNK 6: Default.Font
+	moveq	#NH_Font,d1			* Numero 5
+	moveq	#Hunk_Public,d2		* PUBLIC mem
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#10-1,d0
+	bsr	GetNom
+	move.l	a0,a1
+	bsr	CopyHunk
+	moveq	#105,d0
+	bsr	GoPos
+
+******* HUNK 7: Default.Key
+	moveq	#NH_Key,d1			* Numero 6
+	moveq	#Hunk_Public,d2		* PUBLIC mem
+	moveq	#0,d3
+	moveq	#0,d4
+	moveq	#11-1,d0
+	bsr	GetNom
+	move.l	a0,a1
+	bsr	CopyHunk
+	moveq	#108,d0
+	bsr	GoPos
+NoSystem:
+
+******* HUNK 8 - 25 : Banques
+	moveq	#26,d0
+	bsr	MesPrint
+	moveq	#16,d0
+	moveq	#16,d1
+	bsr	SetPour
+	move.l	A_Banks(a5),a6
+	cmp.w	#3,Flag_Type(a5)
+	beq	BankAMOS
+
+* Copie les banques NORMALE
+	addq.l	#4,a6
+	bsr	GetWord
+	move.w	d0,d6
+	beq	P1Finie
+	moveq	#N_HunkSys,d5
+BkLoop	bsr	AffPour
+	bsr	GetLong
+	cmp.l	#"AmSp",d0
+	beq.s	BklS
+	cmp.l	#"AmIc",d0
+	beq.s	BklI
+* Banque normale
+	bsr	GetWord			* Numero banque
+	move.w	d0,-(sp)
+	bsr	GetWord
+	moveq	#Hunk_Public,d2
+	move.w	d0,-(sp)
+	bne.s	Bkl1
+	move.l	#Hunk_Chip,d2
+Bkl1	move.l	d5,d1
+	bsr	DebHunk
+	move.l	a4,d7
+	bsr	GetLong
+	move.l	d0,d3		0-> Longueur reelle
+	and.l	#$FFFFFFF,d3	avec flags: 31-> DATA, 30-> CHIP
+	tst.w	(sp)+
+	bne.s	Bkl1a
+	bset	#30,d0
+Bkl1a	bsr	OutLong
+	move.w	(sp)+,d0	4-> Numero
+	bsr	OutWord
+	clr.w	d0		6-> 0
+	bsr	OutWord
+	bsr	CopySrce
+	bra	BklEnd
+* Banque de sprites/Icones
+BklS	pea	Nom_Spr(pc)
+	move.w	#-1,-(sp)
+	bra.s	Bkl2
+BklI	pea	Nom_Ico(pc)
+	move.w	#-2,-(sp)
+Bkl2	move.l	d5,d1
+	move.l	#Hunk_Chip,d2
+	bsr	DebHunk
+	move.l	a4,d7
+	bsr	GetWord		0-> Nombre sprite/icones
+	ext.l	d0
+	bsr	OutLong
+	move.w	d0,d4
+	move.w	(sp)+,d0	4-> -1 sprites / -2 icones
+	bsr	OutWord
+	clr.w	d0		6-> 0
+	bsr	OutWord
+* Place pour la table d'entete
+	move.l	(sp)+,a1
+	move.l	(a1)+,d0
+	bsr	OutLong
+	move.l	(a1)+,d0
+	bsr	OutLong
+	move.l	a4,a3
+	move.w	d4,d0
+	lsl.w	#3,d0
+	lea	2+64+6(a4,d0.w),a4
+	move.w	d4,d2
+	subq.w	#1,d2
+	bmi.s	Bkl4
+	move.l	B_Lea(a5),a2
+* Copie les bobs
+Bkl3	move.l	a4,d7
+	bsr	GetWord		TX
+	move.w	d0,d3
+	bsr	OutWord
+	bsr	GetWord		TY
+	mulu	d0,d3
+	bsr	OutWord
+	bsr	GetWord		NPlan
+	mulu	d0,d3
+	bsr	OutWord
+	bsr	GetLong
+	bsr	OutLong
+	lsl.l	#1,d3
+	beq.s	Bkl3a
+	bsr	CopySrce
+	bra.s	Bkl3c
+Bkl3a	lea	-10(a4),a4
+Bkl3c	bsr	Mult8
+	move.l	a4,d0
+	sub.l	d7,d0
+	move.l	d0,(a2)+
+	dbra	d2,Bkl3
+* Refait l'entete
+Bkl4	exg	a4,a3
+	move.w	d4,d0
+	bsr	OutWord
+	subq.w	#1,d4
+	bmi.s	Bkl4b
+	move.l	B_Lea(a5),a2
+Bkl4a	move.l	(a2)+,d0
+	bsr	OutLong
+	moveq	#0,d0
+	bsr	OutLong
+	dbra	d4,Bkl4a
+Bkl4b	moveq	#64,d3
+	bsr	CopySrce
+	exg	a4,a3
+	move.l	a4,d7
+* Fin de la banque
+BklEnd	bsr	Mult8
+	move.l	d5,d1
+	bsr	FinHunk
+	addq.w	#1,d5
+	subq.w	#1,d6
+	bne	BkLoop
+	bra	P1Finie
+
+******* Copie les banques / AMOS
+BankAMOS
+	move.l	L_Source(a5),d3		FACILE!
+	sub.l	a6,d3
+	bsr	CopySrce
+
+******* Fin de la passe 1
+P1Finie	bsr	FActualise
+	move.l	a4,L_Objet(a5)
+	rts
+
+* ROUTINE: rend multiple de 8
+Mult8	move.l	a4,d0
+	sub.l	d7,d0
+	and.l	#7,d0
+	beq.s	Mu8.2
+	moveq	#8,d1
+	sub.l	d0,d1
+	beq.s	Mu8.2
+	lsr.w	#1,d1
+Mu8.1	moveq	#0,d0
+	bsr	OutWord
+	subq.w	#1,d1
+	bne.s	Mu8.1
+Mu8.2	rts
+
+* ROUTINE: Entree programme/procedure
+PrgIn	move.l	a4,AdAdress(a5)
+	move.w	Cleaa0(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	addq.l	#4,a4
+	move.w	Cleaa1(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	addq.l	#4,a4
+	move.w	Cleaa2(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	addq.l	#4,a4
+	move.l	A_FlagVarL(a5),a0
+	clr.w	(a0)
+	clr.l	A_Datas(a5)
+	clr.w	Flag_Labels(a5)
+	clr.w	Flag_Procs(a5)
+	clr.w	M_ForNext(a5)
+	rts
+* ROUTINE -> Sortie programme/procedures
+* A0-> Buffer a copier
+PrgOut	move.l	a4,-(sp)
+	move.l	a0,-(sp)
+	tst.w	Flag_Labels(a5)
+	beq.s	PaClb
+	move.w	N_Proc(a5),d7
+	move.l	B_Labels(a5),a2
+	move.w	(a2),d2
+	beq.s	ClbX
+Clb1	cmp.w	-2+6(a2,d2.w),d7
+	beq.s	Clb0
+	tst.w	Flag_Procs(a5)		* Pour le moment PROC a$, interdit!
+	beq.s	Clb3
+	tst.w	-2+6(a2,d2.w)
+	bpl.s	Clb3
+Clb0	move.w	d2,d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	2(a2),d0
+	bsr	OutLong
+	lea	6(a2),a1
+	move.w	d2,d1
+	lsr.w	#1,d1
+	subq.w	#1,d1
+Clb2	move.w	(a1)+,d0
+	bsr	OutWord
+	dbra	d1,Clb2
+Clb3	lea	6(a2,d2.w),a2
+	move.w	(a2),d2
+	bne.s	Clb1
+ClbX	moveq	#0,d0
+	bsr	OutWord
+	clr.w	Flag_Labels(a5)
+* Copie la table des flags variable
+PaClb	move.l	(sp),a1
+	move.l	a4,(sp)
+	move.w	M_ForNext(a5),d0
+	bsr	OutWord
+	move.w	(a1)+,d0
+	moveq	#0,d1
+	move.w	d0,d1
+	neg.w	d0
+	bsr	OutWord
+	divu	#6,d1
+	subq.w	#1,d1
+	bmi.s	CFg2
+CFg1	move.b	(a1)+,d0
+	bsr	OutByte
+	dbra	d1,CFg1
+CFg2	moveq	#-1,d0
+	bsr	OutByte
+	bsr	A4Pair
+* Change les adresses au debut de la procedure
+	move.l	a4,-(sp)
+	move.l	AdAdress(a5),a4
+	addq.l	#2,a4
+	move.l	8(sp),d0
+	bsr	OutLong
+	addq.l	#2,a4
+	move.l	4(sp),d0
+	bsr	OutLong
+	addq.l	#2,a4
+	move.l	A_Datas(a5),d0
+	bne.s	CFg3
+	move.l	A_EDatas(a5),d0
+CFg3	bsr	OutLong
+	move.l	(sp)+,a4
+	addq.l	#8,sp
+	rts
+
+*********************************************************************
+*	Fabrique le header...
+Header	cmp.w	#3,Flag_Type(a5)
+	beq	HeaderAMOS
+
+******* Programme NORMAL
+* Fabrique le HUNK entete
+	move.l	#$3F3,d0		* AmigaDos
+	bsr	OutLong
+	moveq	#0,d0			* Pas de nom
+	bsr	OutLong
+	move.w	N_Banks(a5),d1
+	ext.l	d1
+	addq.w	#N_HunkSys,d1
+	move.l	d1,d0
+	bsr	OutLong
+	moveq	#0,d0			* Debut=0
+	bsr	OutLong
+	move.l	d1,d0
+	subq.l	#1,d0
+	bsr	OutLong
+	lsl.w	#2,d1			* Saute les tailles
+	lea	0(a4,d1.w),a4
+* Fabrique le hunk header
+	moveq	#NH_Header,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	moveq	#5-1,d0
+	cmp.w	#2,Flag_Type(a5)
+	bne.s	.Skip
+	moveq	#6-1,d0
+.Skip	bsr	GetNom
+	move.l	a0,a1
+	moveq	#F_Courant,d1
+	bsr	FOpenOld
+	beq	DError
+	moveq	#F_Courant,d1
+	move.l	B_Work(a5),d2
+	moveq	#$20+2+4,d3
+	bsr	FRead
+	beq	DError
+	move.l	d2,a1
+; Envoie le BRA
+	move.w	$22(a1),d0
+	bsr	Outword
+; Envoie les FLAGS
+	moveq	#0,d0
+	move.w	Flag_Flash(a5),d0	Couleur a flasher
+	lsl.w	#8,d0
+	tst.w	Flag_WB(a5)		Workbench???
+	bne.s	.Skip1
+	bset	#0,d0
+.Skip1	bsr	OutWord
+; Envoie le reste
+	moveq	#0,d3
+	move.w	$20(a1),d3
+	sub.w	#4,d3
+	moveq	#F_Courant,d1
+	bsr	OutFRead
+	moveq	#F_Courant,d1
+	bsr	FClose
+	moveq	#NH_Header,d1
+	bsr	FinHunk
+	rts
+
+******* Programme AMOS
+HeaderAMOS
+	moveq	#7-1,d0
+	bsr	GetNom
+	move.l	a0,a1
+	bsr	LoadInBuffer
+	move.l	d5,a1
+* Recopie le header AMOS Basic
+	moveq	#3,d1
+.loop0	move.l	(a1)+,d0
+	bsr	OutLong
+	dbra	d1,.loop0
+	move.l	a4,AA_Long(a5)
+* Recopie en cherchant le SET BUFFER
+.loop1	move.w	(a1)+,d0
+	bsr	OutWord
+	cmp.w	#TkSBu-Tk,d0
+	bne.s	.loop1
+	move.l	a4,AA_SBuf(a5)
+* Cherche maintenant le PROCEDURE
+.loop2	move.w	(a1)+,d0
+	bsr	OutWord
+	cmp.w	#TkProc-Tk,d0
+	bne.s	.loop2
+	move.l	a4,AA_Proc(a5)
+	move.l	(a1)+,d0
+	bsr	OutLong
+	move.l	(a1)+,d0
+	or.w	#%0101000000000000,d0
+	bsr	OutLong
+* Cherche maintenant le CMPCALL
+.loop3	move.w	(a1)+,d0
+	bsr	OutWord
+	cmp.w	#TkExt-Tk,d0
+	bne.s	.loop3
+	cmp.w	#Ext_Nb*256,(a1)
+	bne.s	.loop3
+	cmp.w	#Ext_TkCmp,2(a1)
+	bne.s	.loop3
+	move.l	(a1)+,d0
+	bsr	OutLong
+* Sort des zeros
+	move.l	a4,A_InitMath(a5)
+	moveq	#0,d0
+	bsr	OutWord
+	bsr	OutLong
+	bsr	OutLong
+* Efface le programme
+	bsr 	EraInBuffer
+* Debut du programme proprement dit!
+	rts
+
+***********************************************************************
+*	Fabrique les routines d'init
+CreeInits
+	cmp.w	#3,Flag_Type(a5)
+	beq	InitAMOS
+
+******* Programme normal
+	move.l	a4,A_InitMath(a5)
+	move.w	CMvqd0(pc),d0		* Flags
+	bsr	OutWord
+	move.w	CMvid1(pc),d0		* Taille du buffer
+	bsr	OutWord
+	moveq	#0,d0
+	bsr	OutLong
+	moveq	#L_Init1,d0
+	bsr	CreFonc
+	lea	BufLibs+4(a5),a1
+	moveq	#1,d1
+IInit0	move.l	(a1)+,d0
+	beq.s	IInit1
+	move.l	d0,a0
+	move.w	(a0),-(sp)
+	movem.l	d1/a0/a1,-(sp)
+	moveq	#0,d0
+	bsr	CreFoncExt
+	movem.l	(sp)+,d1/a0/a1
+	move.w	(sp)+,(a0)
+IInit1	addq.w	#1,d1
+	cmp.w	#26,d1
+	bls.s	IInit0
+	moveq	#L_Init2,d0
+	bsr	CreFonc
+	rts
+
+******* Programme .AMOS
+InitAMOS
+	move.w	#L_AMOSIn,d0
+	bsr	CreFonc
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; PASSE 2-> Relocation
+;---------------------------------------------------------------------
+Passe2
+	cmp.w	#3,Flag_Type(a5)
+	beq	P2AMOS
+
+******* Copie toutes les longueurs de HUNKS dans l'entete
+	sub.l	a4,a4
+	lea	20(a4),a4
+	moveq	#N_HunkSys-1,d4
+	add.w	N_Banks(a5),d4
+	lea	T_Hunks(a5),a1
+CLhu1	move.l	4(a1),d0
+	bsr	OutLong
+	addq.l	#8,a1
+	dbra	d4,CLhu1
+
+******* Longueur du hunk programme
+	moveq	#NH_Header,d1
+	bsr	MarkHunk
+	moveq	#NH_Prog,d1
+	bsr	MarkHunk
+
+******* Flags ouverture...
+	move.l	A_InitMath(a5),a4
+	move.w	CMvqd0(pc),d0
+	move.b	Flag_Math(a5),d0
+	tst.w	Flag_Default(a5)
+	beq.s	.Label
+	bset	#2,d0
+.Label	bsr	OutWord
+	addq.l	#2,a4
+	move.l	L_Buf(a5),d0
+	mulu	#1024,d0
+	add.l	#512,d0
+	bsr	OutLong
+	bra	P2Reloc
+
+******* Programme .AMOS, fabrique l'entete
+P2AMOS	move.l	AA_Long(a5),a4		* Longueur du source
+	move.l	AA_EProc(a5),d0
+	add.l	#6-4,d0
+	sub.l	a4,d0
+	bsr	OutLong
+	move.l	AA_SBuf(a5),a4		* Instruction Set Buffer
+	addq.l	#2,a4
+	move.l	L_Buf(a5),d0
+*	add.l	#512,d0
+	bsr	OutLong
+	move.l	AA_Proc(a5),a4
+	move.l	AA_EProc(a5),d0
+	sub.l	a4,d0
+	subq.l	#4,d0
+	bsr	OutLong
+	move.l	A_InitMath(a5),a4	* Flags maths
+	moveq	#0,d0
+	move.b	Flag_Math(a5),d0
+	bsr	OutWord
+	move.l	AA_Reloc(a5),d0		* Pointeur sur relocation
+	sub.l	a4,d0
+	bsr	OutLong
+
+******* Reloge le programme
+P2Reloc
+	moveq	#10,d0
+	moveq	#0,d1
+	move.w	L_Reloc(a5),d1
+	bsr	SetPour
+
+	move.l 	DebRel(a5),d7         	;Base de toute les adresses
+        move.l 	d7,a4            	;Debut de l'exploration
+        move.l 	B_Reloc(a5),a6        	;Table de relocation
+P2a:    bsr	AffPour
+	move.b 	(a6)+,d0
+        beq.s 	P2Fin
+        cmp.b 	#1,d0
+        bne.s 	P2b
+        lea	508(a4),a4
+        bra.s 	P2a
+; Affyche la position
+P2b:    and.w	#$FF,d0
+	lsl.w	#1,d0
+        add.w 	d0,a4
+        bsr 	GtoLong
+        subq.l 	#4,a4
+	bclr	#BitLib,d0
+	bne.s	P2L
+	bclr	#BitChaine,d0
+	bne.s	P2S
+	bclr	#BitLabel,d0
+	bne.s	P2G
+; Simple JSR
+	sub.l	d7,d0
+	bsr	OutLong
+	subq.l	#4,a4
+	bra.s	P2a
+; Trouve l'adresse d'une routine librairie
+P2L	move.w	d0,d1
+	swap	d0
+	lea	BufLibs(a5),a0
+	move.l	0(a0,d0.w),a0
+        move.l 	4(a0,d1.w),d0    	;Adresse absolue de la routine
+        sub.l 	d7,d0
+        bsr 	OutLong
+        subq.l 	#4,a4
+        bra.s 	P2a
+; Trouve l'adresse d'une chaine
+P2S	move.l	d0,a1
+	move.l	(a1),d0
+	sub.l	d7,d0
+	bsr	OutLong
+	subq.l	#4,a4
+	bra.s	P2a
+; Adresse d'un label
+P2G	move.l	d0,a1
+	move.l	2(a1),d0
+	bmi	ErrLabel
+	sub.l	d7,d0
+	bsr	OutLong
+	subq.l	#4,a4
+	bra.s	P2a
+P2Fin
+
+******* Marque les longueurs des HUNKS
+	cmp.w	#3,Flag_Type(a5)
+	beq.s	P2Finie
+	moveq	#NH_Reloc,d2
+	move.w	N_Banks(a5),d3
+	add.w	#N_HunkSys-3,d3
+P2hu	move.w	d2,d1
+	bsr	MarkHunk
+	addq.w	#1,d2
+	dbra	d3,P2Hu
+
+******* Fin passe 2
+P2Finie	bsr	FActualise
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Gestion des librairies / Relocation
+;---------------------------------------------------------------------
+
+******* Charge la LIB LIST et les datas. Fabrique la liste des noms.
+InitListe
+; Trouve le nom des datas
+	moveq	#2,d3			PAL
+	move.l	C_GfxBase(a5),a0
+	move.w	212(a0),d0
+	cmp.w	#300,d0
+	bcc.s	.skip
+	moveq	#3,d3			NTSC
+.skip	tst.w	Flag_Errors(a5)
+	bne.s	.Init0
+	moveq	#4,d3			NO ERRORS
+.Init0	move.w	d3,d7
+	bsr	ListeNom
+	move.l	B_DiskIn(a5),a3
+	lea	128(a3),a3
+	move.l	a3,d3
+	moveq	#-1,d2
+	bsr	CopyNom
+* Charge les datas
+	move.l	d3,d1
+	move.l	C_DosBase(a5),a6
+	jsr	DosLoadSeg(a6)
+	tst.l	d0
+	beq	DError
+	move.l	d0,d4
+	lsl.l	#2,d0
+	addq.l	#8,d0
+	move.l	d0,a4
+* Estimation de la taille
+	moveq	#0,d2
+	move.w	d7,d3
+	bsr	InitNoms
+* Reserve le buffer, recommence!
+	move.l	d2,d0
+	addq.l	#8,d0
+	bsr	ResBuffer
+	move.l	a0,a3
+	move.l	a0,B_Noms(a5)
+	moveq	#-1,d2
+	move.w	d7,d3
+	bsr	InitNoms
+* Reserve le buffer des pointeurs
+	move.l	d3,d0
+	lsl.w	#1,d0
+	addq.w	#8,d0
+	bsr	ResBuffer
+	move.l	a0,B_Pointeurs(a5)
+	move.l	B_Noms(a5),a1
+	subq.w	#1,d3
+.Init1	move.l	a1,d1
+.Init2	tst.b	(a1)+
+	bne.s	.Init2
+	sub.l	a1,d1
+	neg.l	d1
+	move.w	d1,(a0)+
+	dbra	d3,.Init1
+* Enleve le .Env
+	move.l	C_DosBase(a5),a6
+	move.l	d4,d1
+	jsr	DosULoadSeg(a6)
+* Enleve le buffer et revient.
+	bsr	EraInBuffer
+	rts
+
+** Charge le fichier dans un buffer...
+LoadInBuffer
+	moveq	#F_Courant,d1
+	bsr	FOpenOld
+	beq	DError
+	moveq	#F_Courant,d1
+	bsr	FLof
+	move.l	d0,d6
+	bsr	RamFast
+	move.l	d0,d5
+	beq	OOfMem
+	move.l	d5,InBuf(a5)
+	move.l	d6,InBufs(a5)
+	moveq	#F_Courant,d1
+	move.l	d5,d2
+	move.l	d6,d3
+	bsr	FRead
+	beq	DError
+	moveq	#F_Courant,d1
+	bsr	FClose
+	rts
+** Enleve le buffer
+EraInBuffer
+	move.l	InBuf(a5),d0
+	beq.s	EraIb
+	clr.l	InBuf(a5)
+	move.l	d0,a1
+	move.l	InBufs(a5),d0
+	bsr	RamFree
+EraIb	rts
+
+** Trouve les noms des librairies principales
+InitNoms
+* .Env
+	bsr	ListeNom
+	bsr	CopyNom
+* Librairies principales
+	moveq	#5,d3
+.Init1	bsr	ListeNom
+	bsr	CopyNom
+	addq.w	#1,d3
+	cmp.w	#11,d3
+	bcs.s	.Init1
+* Trouve les noms des fichiers par defaut
+	bsr	ListeNom
+	move.w	#ANMouse,d0
+	bsr	GetA1
+	bsr	EnvOuListe
+	moveq	#12,d3
+	bsr	ListeNom
+	move.w	#ANFonte,d0
+	bsr	GetA1
+	bsr	EnvOuListe
+	moveq	#13,d3
+	bsr	ListeNom
+	move.w	#AKyNom,d0
+	bsr	GetA1
+	bsr	EnvOuListe
+* Trouve les noms des extensions
+	moveq	#14,d3
+	move.w	#AExtNames,d0
+	bsr	GetA1
+	move.l	a1,a2
+.Init2	bsr	ListeNom
+	move.l	a2,a1
+	bsr	EnvOuListe
+.Init3	tst.b	(a2)+
+	bne.s	.Init3
+	addq.w	#1,d3
+	cmp.w	#14+26,d3
+	bcs.s	.Init2
+* Trouve les messages du compilateur
+	moveq	#Mes_Base,d3
+.Init4	bsr	ListeNom
+	bne.s	.Init5
+	bsr	Copy
+	addq.w	#1,d3
+	bra.s	.Init4
+.Init5	move.w	d3,d0
+	rts
+** Routine: trouve le nom #D3 dans la liste
+ListeNom
+	move.l	d5,a0
+	bsr.s	.Liste
+	bne.s	.ListeE
+	move.w	d3,d0
+	subq.w	#2,d0
+	bmi.s	.List1
+.List0	bsr.s	.Liste
+	bne.s	.ListeE
+	dbra	d0,.List0
+.List1	move.l	B_DiskIn(a5),a1
+.List2	move.b	(a0)+,(a1)
+	beq.s	.ListeE
+	cmp.b	#"}",(a1)+
+	bne.s	.List2
+	clr.b	-1(a1)
+	move.l	B_DiskIn(a5),a0
+	moveq	#0,d0
+	rts
+.Liste	tst.b	(a0)
+	beq.s	.ListeE
+	cmp.b	#"{",(a0)+
+	bne.s	.Liste
+	rts
+.ListeE	moveq	#-1,d0
+	rts
+** Routine: adresse string dans les datas
+GetA1	sub.w	-2(a4),d0
+	move.l	a4,a1
+	sub.l	-4(a4),a1
+	add.w	0(a4,d0.w),a1
+	rts
+** Routine: copie ou nom dans la liste
+EnvOuListe
+	exg	a0,a1
+	tst.b	(a1)
+	beq.s	CopyNom
+	move.l	a1,a0
+	cmp.w	#$2E00,(a0)
+	bne.s	CopyNom
+	clr.b	(a0)
+** Routine: copie dans les noms, inclus le NOM_PATH, si defini!
+CopyNom	tst.b	(a0)
+	beq.s	Copy
+	tst.b	Nom_From(a5)
+	beq.s	Copy
+	move.l	a0,a1
+.Copy1	tst.b	(a1)+
+	bne.s	.Copy1
+.Copy2	move.b	-(a1),d0
+	cmp.l	a0,a1
+	bcs.s	.Copy3
+	cmp.b	#"/",d0
+	beq.s	.Copy3
+	cmp.b	#":",d0
+	bne.s	.Copy2
+.Copy3	lea	Nom_From(a5),a0
+	bsr	Copy
+	subq.l	#1,a3
+	lea	1(a1),a0
+* Routine de copie / comptage
+Copy	tst.l	d2
+	bmi.s	List4
+; Compte la taille
+List3	addq.l	#1,d2
+	tst.b	(a0)+
+	bne.s	List3
+	rts
+; Recopie
+List4	move.b	(a0)+,(a3)+
+	bne.s	List4
+	rts
+
+******* Trouve le nom #D0 dans la liste-> A0
+GetNom	tst.l	B_Noms(a5)
+	beq.s	.Nom2
+	move.l	d1,-(sp)
+	move.l	B_Pointeurs(a5),a0
+	moveq	#0,d1
+	subq.w	#2,d0
+	bmi.s	.Nom1
+.Nom0	add.w	(a0)+,d1
+	dbra	d0,.Nom0
+.Nom1	moveq	#0,d0
+	move.w	(a0),d0
+	subq.w	#1,d0
+	move.l	B_Noms(a5),a0
+	lea	0(a0,d1.w),a0
+	move.l	(sp)+,d1
+	tst.b	(a0)
+	rts
+* Si noms pas charg�s: messages d'urgence!
+.Nom2	lea	Mes_OOfMem(pc),a0
+	cmp.w	#Mes_BaseNoms+6,d0
+	beq.s	.Nom3
+	lea	Mes_DError(pc),a0
+.Nom3	move.l	a0,d0
+.Nom4	tst.b	(a0)+
+	bne.s	.Nom4
+	sub.l	d0,a0
+	exg	d0,a0
+	rts
+******* Trouve le chiffre #D dans la liste -> D0
+GetChiffre
+ 	add.w	#Mes_BaseCh,d0
+	bsr	GetNom
+	moveq	#0,d0
+ 	moveq	#0,d2
+ddh1:  	move.b 	(a0)+,d2
+        beq.s 	ddh2
+        cmp.b 	#32,d2
+        beq.s 	ddh1
+	sub.b 	#48,d2
+	cmp.b	#10,d2
+        bcc	ErrConfig
+        move 	d0,d1
+        mulu 	#10,d1
+        swap 	d0
+        mulu 	#10,d0
+        swap 	d0
+        tst 	d0
+        bne	ErrConfig
+        add.l 	d1,d0
+        bcs 	ErrConfig
+        add.l 	d2,d0
+        bmi 	ErrConfig
+        addq 	#1,d3
+        bra.s 	ddh1
+ddh2: 	rts				;OK: chiffre en d0, et beq
+
+******* Initialisation de toutes les librairies
+InitLibs
+	moveq	#21,d0
+	bsr	MesPrint
+* Charge AMOS.Lib
+	moveq	#3-1,d0
+	moveq	#0,d1
+	bsr	GetNom
+	bsr	InitLib
+* Charge les librairies!
+	moveq	#12-1,d0
+	moveq	#1,d1
+Ilib5	movem.l	d0/d1,-(sp)
+	bsr	GetNom
+	movem.l	(sp)+,d0/d1
+	beq.s	Ilib6
+	bsr	InitLib
+Ilib6	addq.w	#1,d0
+	addq.w	#1,d1
+	cmp.w	#27,d1
+	bcs.s	ILib5
+	rts
+******* Initialisation librairie D1, nom A0
+InitLib	movem.l	a0-a6/d0-d7,-(sp)
+	move.l	a0,a1
+	move.w	d1,d0
+	lsl.w	#2,d0
+	lea	BufLibs(a5),a2
+	lea	BufToks(a5),a3
+	add.w	d0,a2			* A2-> Pointeur librairie
+	add.w	d0,a3			* A3-> Pointeurs tokens/erreurs
+	addq.l	#F_Libs,d1
+	move.l	d1,d6
+	bsr	FOpenOld
+	beq	DError
+	move.l	d6,d1
+	move.l	B_DiskIn(a5),d2
+	moveq	#$20+$12,d3
+	bsr	FRead
+	beq	DError
+	move.l	d2,a0
+* Charge le catalogue
+	move.l	$20(a0),d3		* Longueur du catalogue
+	move.l	d6,d1
+	add.l	#$32,d2
+	bsr	FRead
+	beq	DError
+	move.l	d2,a1
+; Reserve le buffer
+	lsr.w	#1,d3
+	move.w	d3,d0
+	mulu	#10,d0
+	add.l	#16,d0
+	bsr	ResBuffer
+	move.l	a0,(a2)
+; Calcule les offsets des routines
+	move.l	B_DiskIn(a5),a2
+	move.w	$20+$10(a2),(a0)+	* Compteur / Signal
+	move.w	d3,(a0)+		* Nombre d'instructions
+	moveq	#$20+$12,d1
+	add.l	$20(a2),d1
+	add.l	$24(a2),d1
+	subq.w	#1,d3
+ILib1	clr.l	(a0)+
+	move.l	d1,d0
+	move.l	d0,(a0)+
+	moveq	#0,d2
+	move.w	(a1)+,d2
+	move.w	d2,(a0)+
+	lsl.l	#1,d2
+	add.l	d2,d1
+	dbra	d3,ILib1
+	move.l	#-1,(a0)+
+* Charge la table des tokens?
+	move.l	B_DiskIn(a5),a2
+	move.l	$20+4(a2),d3
+	beq.s	ILib0
+	move.l	d3,d0
+	bsr	ResBuffer
+	move.l	a0,(a3)
+	move.l	a0,d2
+	move.l	d6,d1
+	bsr	FRead
+	beq	DError
+* Ca y est!
+ILib0	bsr	Actualise
+	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+******* Relocation
+
+;-----> Init relocation
+InitRel	moveq	#4,d0
+	bsr	GetChiffre
+	bsr	ResBuffer
+	move.l	a0,B_Reloc(a5)
+	move.l	a0,a3
+	rts
+;-----> Cree un appel a la routine #D0
+CreJmp: mulu	#10,d0
+        move.l 	d0,a0
+        move.w 	#CiJmp,d0
+        bra.s 	CreF
+;-----> Cree un appel a un sous programme #D0
+CreFonc:mulu	#10,d0
+        move.l 	d0,a0
+        move.w 	#CiJsr,d0           ;Dans le source: JSR
+CreF:   bsr 	OutWord
+        bsr 	RelJsr              ;Pointe la table de relocation ici
+	move.l	a0,d0
+	bset	#BitLib,d0
+        bsr 	OutLong             ;#ROUTINE.L
+; Met le flag dans buffer
+        move.l	BufLibs(a5),a0
+	move.w	#1,(a0)
+        move.l 	#1,4(a0,d0.w)
+        rts
+;-----> Cree un appel a un sous programme #D0, librairie #D1
+;	Incrementer flag: D2=0 / D2=1
+CreFoncExt
+	mulu	#10,d0
+        move.l 	d0,a0
+        move.w 	#CiJsr,d0           ;Dans le source: JSR
+	bsr 	OutWord
+        bsr 	RelJsr              ;Pointe la table de relocation ici
+	lsl.w	#2,d1
+	move.w	d1,d0
+	swap	d0
+	move.w	a0,d0
+	bset	#BitLib,d0
+        bsr 	OutLong             ;#ROUTINE.L
+; Met le flag dans buffer
+	lea	BufLibs(a5),a0
+	move.l	0(a0,d1.w),d1
+	beq	Synt
+	move.l	d1,a0
+	move.w	#1,(a0)
+        move.l 	#1,4(a0,d0.w)
+        rts
+
+;-----> Marque la table de relocation
+RelJsr: move.l d0,-(sp)
+        move.l 	a4,d0
+        sub.l 	OldRel(a5),d0
+.ReJ1:  cmp.w	#510,d0
+	beq.s	.Rej2
+	cmp.w 	#508,d0
+        bls.s 	.ReJ2
+	bsr	OutRel1
+        sub.w 	#508,d0
+        bra.s 	.ReJ1
+.ReJ2:  lsr.w	#1,d0
+	bsr	OutRel
+	move.l 	a4,OldRel(a5)
+        move.l	(sp)+,d0
+        rts
+; Poke un octet dans la table de relocation
+OutRel 	move.b 	d0,(a3)+
+	rts
+OutRel1 move.b 	#1,(a3)+
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Routines compilateur
+;---------------------------------------------------------------------
+
+******* Reservation memoire
+ResBuffer
+	movem.l	d0/d1,-(sp)
+	addq.l	#4,d0
+	move.l	d0,d1
+	bsr	RamFast
+	beq	Oofmem
+	move.l	d0,a0
+	move.l	d1,(a0)+
+	add.l	d1,MaxMem(a5)
+	movem.l	(sp)+,d0/d1
+	rts
+******* Effacement memoire
+EraBuffer
+	lea	D_Buffers(a5),a2
+	lea	F_Buffers(a5),a0
+	move.l	a0,d2
+EBuf1	move.l	(a2)+,d0
+	beq.s	EBuf2
+	move.l	d0,a1
+	move.l	-(a1),d0
+	bsr	RamFree
+EBuf2	cmp.l	d2,a2
+	bcs.s	EBuf1
+	bsr	EraInBuffer
+	bsr	EraObjet
+	rts
+
+******* Fabrication des hunks
+
+;-----> Debut HUNK D1, type D2
+DebHunk
+	cmp.w	#3,Flag_Type(a5)
+	beq.s	PasHunk
+	movem.l	d0-d2/a0-a1,-(sp)
+	move.l	#$3E9,d0
+	or.l	d2,d0
+	bsr	OutLong
+	moveq	#0,d0
+	bsr	OutLong
+	lsl.w	#3,d1
+	lea	T_Hunks(a5),a1
+	move.l	a4,0(a1,d1.w)
+	move.l	d2,4(a1,d1.w)
+	movem.l	(sp)+,d0-d2/a0-a1
+	rts
+;-----> Fin d'un hunk
+FinHunk
+	cmp.w	#3,Flag_Type(a5)
+	bne.s	FHu0
+; Rend pair...
+PasHunk	move.w	a4,d0
+	and.w	#$0001,d0
+	add.w	d0,a4
+	rts
+; Fait le HUNK
+FHu0	movem.l	d0-d2/a0-a1,-(sp)
+	lsl.w	#3,d1
+	lea	T_Hunks(a5),a1
+	move.l	a4,d0
+	sub.l	0(a1,d1.w),d0
+	and.w	#$0003,d0
+	beq.s	FHu1
+	neg.w	d0
+	addq.w	#4,d0
+	add.w	d0,a4
+FHu1	move.l	a4,d0
+	sub.l	0(a1,d1.w),d0
+	lsr.l	#2,d0
+	or.l	d0,4(a1,d1.w)
+	move.l	#$3F2,d0
+	bsr	OutLong
+	movem.l	(sp)+,d0-d2/a0-a1
+	rts
+;-----> Marque la longueur d'un hunk
+MarkHunk
+	movem.l	d0-d2/a0-a1,-(sp)
+	lsl.w	#3,d1
+	lea	T_Hunks(a5),a1
+	move.l	0(a1,d1.w),a4
+	subq.l	#4,a4
+	move.l	4(a1,d1.w),d0
+	and.l	#$00FFFFFF,d0
+	bsr	OutLong
+	movem.l	(sp)+,d0-d2/a0-a1
+	rts
+;-----> Copie D3 octets, fichier D1 en (a4)
+OutFRead
+	movem.l	a0-a2/d0-d7,-(sp)
+	move.l	d1,d5
+	move.l	B_DiskIn(a5),d2
+	move.l	d3,d6
+Ofr0	move.l	#L_DiscIn,d3
+	cmp.l	d6,d3
+	bcs.s	Ofr1
+	move.l	d6,d3
+Ofr1	move.l	d5,d1
+	bsr	FRead
+	beq	DError
+	sub.l	d3,d6
+	move.l	d2,a2
+	move.w	d3,d4
+	lsr.l	#2,d3
+	beq.s	Ofr3
+	sub.w	#1,d3
+Ofr2	move.l	(a2)+,d0
+	bsr	OutLong
+	dbra	d3,Ofr2
+Ofr3	and.w	#$0003,d4
+	beq.s	Ofr5
+	subq.w	#1,d4
+Ofr4	move.b	(a2)+,d0
+	bsr	OutByte
+	dbra	d4,Ofr4
+Ofr5	tst.l	d6
+	bne.s	Ofr0
+	movem.l	(sp)+,a0-a2/d0-d7
+	rts
+
+;-----> Copie D3 octets source->objet
+CopySrce
+	tst.l	d3
+	beq.s	CpyS
+CpyS1	bsr	GetWord
+	bsr	OutWord
+	subq.l	#2,d3
+	bcs.s	CpyS
+	bne.s	CpyS1
+CpyS	rts
+
+;-----> Copie d'un fichier
+;	A0=	Nom du fichier
+;	D1/D2=	definition hunk
+;	D3=	Nombre d'octets � sauter au debut!
+;	D4=	A sauter a la fin
+CopyHunk
+	move.l	d1,-(sp)	* Cree le hunk
+	move.l	d3,-(sp)
+	move.l	d4,-(sp)
+	bsr	DebHunk
+	moveq	#F_Courant,d1
+	bsr	FOpenOld	* Ouvre le fichier
+	beq	DError
+	moveq	#F_Courant,d1
+	bsr	FLof		* Taille
+	sub.l	(sp)+,d0
+	moveq	#-1,d3
+	move.l	(sp)+,d2
+	sub.l	d2,d0
+	move.l	d0,-(sp)
+	moveq	#F_Courant,d1
+	bsr	FSeek		* Saute le debut
+	move.l	(sp)+,d3	* Charge
+	moveq	#F_Courant,d1
+	bsr	OutFRead
+	moveq	#F_Courant,d1
+	bsr	FClose
+	move.l	(sp)+,d1	* Fin du hunk
+	bsr	FinHunk
+	rts
+
+******* Initialisation disque
+IniDisc	movem.l	a0-a2/d0-d7,-(sp)
+	move.l	#$1000,L_DiscIn(a5)	* Buffer disque
+	move.l	#128,BordBso(a5)	* Bordure source
+	move.l	#768,BordBob(a5)	* Bordure objet
+	tst.w	Flag_AMOS(a5)
+	bne.s	InidX
+* Ouvre le DOS
+	moveq	#0,d0
+	move.l	$4,a6
+	lea	Nom_Dos(pc),a1
+	jsr	OpenLib(a6)
+	move.l	d0,C_DosBase(a5)
+	beq	CFini2
+* Ouvre la graphics library
+	moveq	#0,d0
+	lea	Nom_Graphic(pc),a1
+	jsr	OpenLib(a6)
+	move.l	d0,C_GfxBase(a5)
+	beq	DError
+* Buffer disque
+InidX	move.l	#L_DiscIn,d0
+	bsr	ResBuffer
+	move.l	a0,B_DiskIn(a5)
+	movem.l	(sp)+,a0-a2/d0-d7
+	rts
+
+******* FIN DISQUE
+FinDisc
+* Ferme tous les fichiers
+	bsr	CloseAll
+* Ferme les librairies, si pas AMOS
+	tst.w	Flag_AMOS(a5)
+	bne.s	FDi2
+	tst.l	C_DosBase(a5)
+	beq.s	FDi1
+	move.l	C_DosBase(a5),a1
+	move.l	$4.w,a6
+	jsr	CloseLib(a6)
+* Ferme la GFX
+FDi1	move.l	C_GfxBase(a5),d0
+	beq.s	FDi2
+	move.l	d0,a1
+	move.l	$4.w,a6
+	jsr	CloseLib(a6)
+FDi2	rts
+
+******* Initialisation des icones
+InitIcons
+	tst.w	Flag_Type(a5)
+	bne.s	.Iicx
+	tst.l	C_IconBase(a5)
+	bne.s	.Iic1
+	moveq	#0,d0
+	lea	Nom_IconLib(pc),a1
+	move.l	$4,a6
+	jsr	OpenLib(a6)
+	move.l	d0,C_IconBase(a5)
+	beq	NoIcons
+; Charge l'icone par defaut
+.Iic1	move.l	C_IconBase(a5),a6
+	moveq	#8-1,d0
+	bsr	GetNom
+	jsr	-78(a6)
+	move.l	d0,C_Icon(a5)
+	beq	NoIcons
+	move.l	d0,a0
+	move.l	#$80000000,d0
+	move.l	d0,$3a(a0)
+	move.l	d0,$3e(a0)
+; Ok!
+.Iicx	rts
+
+******* Fin des icones
+FinIcons
+	move.l	C_IconBase(a5),d0
+	beq.s	.FicX
+	move.l	d0,a6
+	move.l	C_Icon(a5),d0
+	beq.s	.Fic1
+	move.l	d0,a0
+	jsr	-90(a6)
+.Fic1
+	tst.w	IconAMOS(a5)
+	bne.s	.FicX
+	move.l	a6,a1
+	move.l	$4.w,a6
+	jsr	CloseLib(a6)
+.FicX	rts
+
+******* Sauve l'icone du programme
+SIcon	tst.w	Flag_Type(a5)
+	bne.s	.SicX
+	move.l	a6,-(sp)
+	lea	Nom_Objet(a5),a0
+	move.l	C_Icon(a5),a1
+	move.l	C_IconBase(a5),a6
+	jsr	-84(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq	DError
+.SicX	rts
+
+*********************************************************************
+*	GESTION SOURCE
+
+******* Initilialisation SOURCE
+IniSource
+	moveq	#27,d0
+	bsr	MesPrint
+	lea	Nom_Source(a5),a0
+	bsr	StrPrint
+	bsr	Return
+	tst.w	Flag_Source(a5)
+	bne.s	IniS2
+* Tout en RAM
+	lea	Nom_Source(a5),a1
+	moveq	#F_Source,d1
+	bsr	FOpenOld
+	beq	DError
+	moveq	#F_Source,d1
+	bsr	FLof
+	move.l	d0,L_Source(a5)
+	move.l	d0,d3
+	addq.l	#8,d0
+	bsr	ResBuffer
+	move.l	a0,B_Source(a5)
+	move.l	a0,d2
+	moveq	#F_Source,d1
+	bsr	FRead
+	moveq	#F_Source,d1
+	bsr	FClose
+	bra	HVerif
+******* Petit buffer
+IniS2	move.l	L_BSo(a5),d0
+	move.l	d0,MaxBso(a5)
+	bsr	ResBuffer
+	move.l	a0,B_Source(a5)
+	lea	Nom_Source(a5),a1
+	moveq	#F_Source,d1
+	bsr	FOpenOld
+	beq	DError
+	moveq	#F_Source,d1
+	bsr	FLof
+	move.l	d0,L_Source(a5)
+; Charge le debut
+        clr.l 	DebBso(a5)
+	move.l	d0,TopSou(a5)
+        move.l 	MaxBso(a5),FinBso(a5)
+        bsr 	LoadBso
+* Verifie le HEADER
+HVerif:	move.l 	B_Source(a5),a0
+        lea 	HeadAMOS(pc),a1
+        moveq 	#10-1,d0
+OpSo   	cmpm.b 	(a0)+,(a1)+
+        bne 	ErrNoAMOS
+        dbra 	d0,OpSo
+* Si V>1.3, est-ce teste???
+	move.b	1(a0),d0
+	cmp.b	#"v",d0
+	beq	ErrNoTest
+* Adresse des banques
+	move.l	B_Source(a5),a0
+	move.l	16(a0),d0
+	lea	20(a0,d0.l),a0
+	sub.l	B_Source(a5),a0
+	move.l	a0,A_Banks(a5)
+	lea	4(a0),a6
+	bsr	GetWord
+	move.w	d0,N_Banks(a5)
+* Estime le nombre de lignes
+	move.l	L_Source(a5),d0
+	lsr.l	#4,d0
+	mulu	#584,d0
+	divu	#19000,d0
+	lsl.w	#4,d0
+	move.w	d0,NL_Source(a5)
+	rts
+
+;-----> Prend un MOT du programme (A6)
+GetWord:tst.w 	Flag_Source(a5)
+        bne.s 	Gsw
+	add.l	B_Source(a5),a6
+        move.w 	(a6)+,d0
+	sub.l	B_Source(a5),a6
+        rts
+Gsw	move.l 	a0,-(sp)
+        bsr 	SoDisk
+        move.w 	(a0),d0
+        addq.l 	#2,a6
+        move.l 	(sp)+,a0
+        rts
+
+;-----> Prend un MOTLONG du programme (A6)
+GetLong:tst.w 	Flag_Source(a5)
+        bne.s 	Gsl
+	add.l	B_Source(a5),a6
+	move.l	(a6)+,d0
+	sub.l	B_Source(a5),a6
+	rts
+Gsl	move.l 	a0,-(sp)
+        bsr 	SoDisk
+        move.l 	(a0),d0
+        addq.l 	#4,a6
+        move.l 	(sp)+,a0
+        rts
+
+;-----> Gestion du buffer entree SOURCE
+SoDisk: cmp.l 	DebBso(a5),a6
+        bcs.s 	SoDi1
+        lea 	4(a6),a0
+        cmp.l 	FinBso(a5),a0
+        bcc.s 	SoDi1
+; Adresse RELATIVE dans le buffer
+        move.l 	a6,a0
+        sub.l 	DebBso(a5),a0
+        add.l 	B_Source(a5),a0
+        rts
+; Change la position du buffer
+SoDi1:  movem.l d0-d7/a1,-(sp)
+; Bouge le bout
+        move.l 	DebBso(a5),d0
+        move.l 	FinBso(a5),d1
+        move.l 	MaxBso(a5),d2
+        sub.l 	BordBso(a5),d2
+        lea 	4(a6),a0
+SoDi3:  cmp.l 	d0,a6
+        bcs.s 	SoDi4
+        cmp.l 	d1,a0
+        bcs.s 	SoDi5
+; Monte le buffer
+        add.l 	d2,d0
+        add.l 	d2,d1
+        bra.s 	SoDi3
+; Descend le buffer
+SoDi4:  sub.l 	d2,d0
+        sub.l 	d2,d1
+        bra.s 	SoDi3
+SoDi5:  move.l 	d0,DebBso(a5)
+        move.l 	d1,FinBso(a5)
+        bsr 	LoadBso
+; Trouve l'adresse relative
+        movem.l (sp)+,d0-d7/a1
+        move.l 	a6,a0
+        sub.l 	DebBso(a5),a0
+        add.l 	B_Source(a5),a0
+        rts
+
+;-----> Charge le buffer SOURCE
+LoadBso:moveq 	#F_Source,d1
+	move.l	DebBso(a5),d2
+	moveq	#-1,d3
+        bsr 	FSeek
+; Sauve l'ancien
+	moveq	#F_Source,d1
+        move.l 	B_Source(a5),d2
+        move.l	TopSou(a5),d3
+        sub.l 	DebBso(a5),d3
+        cmp.l 	MaxBso(a5),d3
+        bcs.s 	SoDi2
+        move.l 	FinBso(a5),d3
+        sub.l 	DebBso(a5),d3
+SoDi2:  bra 	FRead
+
+
+*********************************************************************
+*	GESTION OBJET
+
+******* Initialisation OBJET
+IniObjet
+	tst.w	Flag_Objet(a5)
+	bne.s	IObdisc
+* En m�moire, reserve le 1er buffer
+	moveq	#3,d0
+	bsr	GetChiffre
+	move.l	d0,L_Bob(a5)
+	add.l	#16,d0
+	bsr	ResBuffer
+	move.l	a0,Bb_Objet_Base(a5)
+	move.l	a0,Bb_OBjet(a5)
+	move.l	#L_Bob,4(a0)
+	rts
+* Sur disque
+IObDisc	move.l	#L_Bob,d0
+	move.l	d0,L_Bob(a5)
+	bsr	ResBuffer
+	move.l	a0,B_Objet(a5)
+	clr.l	DebBob(a5)
+	move.l	#L_Bob,FinBob(a5)
+	clr.l	TopOb(a5)
+	lea	Nom_Objet(a5),a1
+	moveq	#F_Objet,d1
+	bsr	FOpenNew
+	beq	DError
+	rts
+
+******* Efface tous les buffers objets
+EraObjet
+	move.l	Bb_Objet_Base(a5),d3
+	beq.s	.skip
+.loop	move.l	d3,a1
+	move.l	8(a1),d3
+	move.l	-(a1),d0
+	bsr	RamFree
+	tst.l	d3
+	bne.s	.loop
+.skip	rts
+
+******* Sauve/Ferme le programme objet
+SObject
+	moveq	#28,d0
+	bsr	MesPrint
+	lea	Nom_Objet(a5),a0
+	bsr	StrPrint
+	bsr	Return
+
+	tst.w	Flag_Objet(a5)
+	bne.s	SObj1
+	lea	Nom_Objet(a5),a1
+	moveq	#F_Objet,d1
+	bsr	FOpenNew
+	beq	DError
+	move.l	BB_Objet_Base(a5),d4
+.loop	move.l	d4,a0
+	move.l	(a0)+,d0
+	move.l	(a0)+,d3
+	move.l	(a0)+,d4
+	move.l	a0,d2
+	add.l	d3,d0
+	cmp.l	L_Objet(a5),d0
+	bls.s	.loop1
+	sub.l	L_Objet(a5),d0
+	sub.l	d0,d3
+	beq.s	SObj2
+.loop1	moveq	#F_Objet,d1
+	bsr	FWrite
+	beq	DError
+.loop2	tst.l	d4
+	bne.s	.loop
+	bra.s	SObj2
+* Sur disque: sauve le dernier buffer!
+SObj1	bsr	SaveBob
+SObj2	moveq	#F_Objet,d1
+	bsr	FClose
+	rts
+
+;-----> En cas d'erreur, KILL OBJECT!
+KObject	moveq	#F_Objet,d1
+	bsr	FHandle
+	beq.s	KObx
+; Ferme le fichier
+	clr.l	(a0)
+	move.w	#DosClose,d7
+	bsr	DosCall
+; Efface le fichier
+	lea	Nom_Objet(a5),a0
+	move.l	a0,d1
+	move.w	#DosDel,d7
+	bsr	DosCall
+; Fini
+KObX	rts
+
+;-----> Trouve le buffer objet contenant A4
+GetBob	movem.l	a1/d0/d1,-(sp)
+	move.l	Bb_Objet_Base(a5),a0
+.loop	move.l	a0,a1
+	move.l	(a0),d1
+	add.l	4(a0),d1
+	cmp.l	d1,a4
+	bcs.s	.loop2
+	move.l	8(a0),d0
+	move.l	d0,a0
+	bne.s	.loop
+; Il faut en reserver un autre...
+.loop1	move.l	#L_Bob,d0
+	add.l	#16,d0
+	bsr	ResBuffer
+	move.l	a0,8(a1)
+; En reserver ENCORE un autre?
+	move.l	d1,(a0)
+	move.l	#L_Bob,4(a0)
+	move.l	a0,a1
+	add.l	#L_Bob,d1
+	cmp.l	d1,a4
+	bcc.s	.loop1
+* Ok!
+.loop2	move.l	a1,Bb_Objet(a5)
+	movem.l	(sp)+,a1/d0/d1
+	rts
+
+;-----> Poke un BYTE dans l'objet
+OutByte:tst.w	Flag_Objet(a5)
+	bne.s	OutbD
+* En m�moire
+	movem.l	a0/a4,-(sp)
+.Reskip	move.l	Bb_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	add.l	a0,a4
+	move.b	d0,12(a4)
+	movem.l	(sp)+,a0/a4
+	addq.l	#1,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	bra.s	.ReSkip
+* Sur disque
+OutbD   move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.b 	d0,(a0)+
+        addq.l 	#1,a4
+        move.l 	(sp)+,a0
+        cmp.l 	TopOb(a5),a4
+        bcs.s 	PamB
+        move.l 	a4,TopOb(a5)
+PamB:   rts
+
+;-----> Poke un MOT dans l'objet
+OutWord:tst.w	Flag_Objet(a5)
+	bne.s	OutwD
+* En m�moire
+OutW	movem.l	a0/a4,-(sp)
+.Reskip	move.l	Bb_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	add.l	a0,a4
+	move.w	d0,12(a4)
+	movem.l	(sp)+,a0/a4
+	addq.l	#2,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	bra.s	.ReSkip
+* Sur disque
+OutwD   move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.w 	d0,(a0)+
+        addq.l 	#2,a4
+        move.l 	(sp)+,a0
+        cmp.l 	TopOb(a5),a4
+        bcs.s 	PamW
+        move.l 	a4,TopOb(a5)
+PamW:   rts
+
+;-----> Poke un MOT LONG dans l'objet
+OutLong:tst.w	Flag_Objet(a5)
+	bne.s	OutlD
+* En m�moire
+	movem.l	a0/a4,-(sp)
+.Reskip	move.l	Bb_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	addq.l	#4,a4
+	cmp.l	4(a0),a4
+	bhi.s	.probleme
+	add.l	a0,a4
+	move.l	d0,12-4(a4)
+	movem.l	(sp)+,a0/a4
+	addq.l	#4,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	bra.s	.ReSkip
+.probleme
+	movem.l	(sp)+,a0/a4
+	swap	d0
+	bsr	OutW
+	swap	d0
+	bra	OutW
+* Sur disque
+OutlD   move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.l 	d0,(a0)+
+        addq.l 	#4,a4
+        move.l 	(sp)+,a0
+        cmp.l 	TopOb(a5),a4
+        bcs.s 	PamL
+        move.l 	a4,TopOb(a5)
+PamL:   rts
+
+;-----> Debuggage
+;Protect
+;	move.l	#0,-(sp)
+;	move.l	#0,-(sp)
+;	move.l	#0,-(sp)
+;	move.l	#0,-(sp)
+;	bsr	*+$212
+;	lea	$10(sp),sp
+;	rts
+;	dc.w	$4321
+
+;-----> Prend un mot long dans l'objet
+GtoLong:tst.w	Flag_Objet(a5)
+	bne.s	PaGL
+* En memoire
+	bsr	GtoW
+	swap	d0
+	bsr	GtoW
+	tst.l	d0
+	rts
+GtoW	movem.l	a0/a4,-(sp)
+.Reskip	move.l	Bb_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	add.l	a0,a4
+	move.w	12(a4),d0
+	movem.l	(sp)+,a0/a4
+	addq.l	#2,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	bra.s	.ReSkip
+* Sur disque
+PaGL    move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.l 	(a0)+,d0
+        addq.l 	#4,a4
+        move.l 	(sp)+,a0
+        rts
+
+;-----> Sortie de code
+OutCode	move.l	d0,-(sp)
+	move.w	(a0)+,d0
+OutC1	bsr	OutWord
+	move.w	(a0)+,d0
+	cmp.w	#$4321,d0
+	bne.s	OutC1
+	move.l	(sp)+,d0
+	rts
+
+;-----> GESTION DU BUFFER OBJET DISQUE
+ObDisk: cmp.l 	DebBob(a5),a4
+        bcs.s 	ObDi1
+        lea 	4(a4),a0
+        cmp.l 	FinBob(a5),a0
+        bcc.s 	ObDi1
+; Adresse RELATIVE dans le buffer
+        move.l 	a4,a0
+        sub.l 	DebBob(a5),a0
+        add.l 	B_Objet(a5),a0
+        rts
+; Change la position du buffer
+ObDi1:  movem.l d0-d7/a0-a2,-(sp)
+; Sauve le buffer
+        bsr 	SaveBob
+; Bouge le bout
+        move.l 	DebBob(a5),d0
+        move.l 	FinBob(a5),d1
+        move.l 	#L_Bob,d2
+        sub.l 	BordBob(a5),d2
+        lea 	4(a4),a0
+ObDi3:  cmp.l 	d0,a4
+        bcs.s 	ObDi4
+        cmp.l 	d1,a0
+        bcs.s 	ObDi5
+; Monte le buffer
+        add.l 	d2,d0
+        add.l 	d2,d1
+        bra.s 	ObDi3
+; Descend le buffer
+ObDi4:  sub.l 	d2,d0
+        sub.l 	d2,d1
+        bra.s 	ObDi3
+ObDi5:  move.l 	d0,DebBob(a5)
+        move.l 	d1,FinBob(a5)
+; Charge le nouveau bout
+	moveq 	#F_Objet,d1
+	move.l	DebBob(a5),d2
+	moveq	#-1,d3
+        bsr 	FSeek
+        move.l 	FinBob(a5),d3
+        cmp.l 	TopOb(a5),d3
+        bcs.s 	ObDi6
+        move.l 	TopOb(a5),d3
+ObDi6:  sub.l 	DebBob(a5),d3
+        beq.s 	ObDi7
+	moveq	#F_Objet,d1
+	move.l	B_Objet(a5),d2
+        bsr 	FRead
+; Trouve l'adresse relative
+ObDi7:  movem.l (sp)+,d0-d7/a0-a2
+        move.l 	a4,a0
+        sub.l 	DebBob(a5),a0
+        add.l 	B_Objet(a5),a0
+        rts
+
+;-----> Sauve le buffer OBJET
+SaveBob:moveq	#F_Objet,d1
+        move.l 	DebBob(a5),d2
+	moveq	#-1,d3
+        bsr 	FSeek
+; Sauve l'ancien
+	moveq	#F_Objet,d1
+        move.l 	B_Objet(a5),d2
+        move.l 	TopOb(a5),d3
+        sub.l 	DebBob(a5),d3
+        cmp.l 	#L_Bob,d3
+        bcs.s 	ObDi2
+	move.l 	FinBob(a5),d3
+        sub.l 	DebBob(a5),d3
+ObDi2:  bsr 	FWrite
+        rts
+
+
+******* DOS CALL: appelle une routine DOS D7
+DosCall
+	movem.l a5/a6,-(sp)
+	move.l 	C_DosBase(a5),a6
+	move.l	a6,a5
+	add.w	d7,a5
+	jsr	(a5)
+	movem.l	(sp)+,a5/a6
+	tst.l	d0
+	rts
+******* Trouve le handle #D1
+FHandle	move.w	d1,d0
+	lsl.w	#2,d0
+	lea	T_Handles(a5),a0
+	add.w	d0,a0
+	move.l	(a0),d1
+	rts
+
+******* OPEN: ouvre le fichier A0, # Handle D1, acces D2
+FOpenOld
+	move.l	#1005,d2
+	bra.s	FOpen
+FOpenNew
+	move.l	#1006,d2
+FOpen
+	bsr	FHandle
+	bne	DError
+	move.l	a0,-(sp)
+	move.l	a1,d1
+	move.w	#DosOpen,d7
+	bsr	DosCall
+	move.l	(sp)+,a0
+	move.l	d0,(a0)
+	rts
+******* CLOSE fichier D1
+FClose
+	bsr	FHandle
+	beq	PaFCl
+	clr.l	(a0)
+	move.w	#DosClose,d7
+	bsr	DosCall
+PaFCl:	rts
+******* CLOSE TOUS les fichiers
+CloseAll
+	moveq	#M_Fichiers-1,d6
+ClAl	move.l	d6,d1
+	bsr	FClose
+	dbra	d6,ClAl
+	rts
+******* READ fichier D1, D3 octets dans D2
+FRead:
+	movem.l	d1/a6,-(sp)
+	bsr	FHandle
+	move.l	C_DosBase(a5),a6
+	jsr	DosRead(a6)
+	movem.l	(sp)+,d1/a6
+	tst.l	d0
+	beq.s	ErdE
+	bmi.s	ErdE
+	cmp.l	d0,d3
+	bne.s	ErdE
+ErdB	moveq	#-1,d7
+	rts
+ErdE 	moveq	#0,d7
+	rts
+******* WRITE fichier D1, D3 octets de D2
+FWrite:	movem.l	d1/a6,-(sp)
+	bsr	FHandle
+	move.l	C_DosBase(a5),a6
+	jsr	DosWrite(a6)
+	movem.l	(sp)+,d1/a6
+	tst.l	d0
+	beq.s	ErdE
+	bmi.s	ErdE
+	cmp.l	d0,d3
+	bne.s	ErdE
+	bra.s	ErdB
+
+******* SEEK fichier D1, D3 mode D2 deplacement
+FSeek:
+	movem.l	d1/a6,-(sp)
+	bsr	FHandle
+	move.l	C_DosBase(a5),a6
+	jsr	DosSeek(a6)
+	movem.l	(sp)+,d1/a6
+	tst.l	d0
+	bmi.s	ErdE
+	bra.s	ErdB
+******* LOF fichier D1
+FLof
+	bsr	FHandle
+FLof2	move.l	d1,-(sp)
+	moveq	#0,d2			* Seek --> fin
+	moveq	#1,d3
+	move.w	#DosSeek,d7
+	bsr	DosCall
+	move.l	(sp)+,d1
+	move.l	d0,d2			* Seek --> debut!
+	moveq	#-1,d3
+	bra	DosCall
+*
+A4Pair	move.w	a4,d0
+	btst	#0,d0
+	beq.s	A4p
+	addq.l	#1,a4
+A4p	rts
+
+
+******* Mise a zero!
+RamFast	movem.l	d1-d2/a0-a2/a6,-(sp)
+	move.l	#Public|Clear,d1
+	ExeCall	AllocMem
+	movem.l	(sp)+,d1-d2/a0-a2/a6
+	tst.l	d0
+	rts
+RamChip	movem.l	d1-d2/a0-a2/a6,-(sp)
+	move.l	#Public|Chip|Clear,d1
+	ExeCall	AllocMem
+	movem.l	(sp)+,d1-d2/a0-a2/a6
+	tst.l	d0
+	rts
+******* Liberation
+RamFree	movem.l	d0-d2/a0-a2/a6,-(sp)
+	ExeCall	FreeMem
+	movem.l	(sp)+,d0-d2/a0-a2/a6
+	rts
+
+******* stocke la position dans l'objet
+StockOut
+	move.l	a0,-(sp)
+	move.l	A_Stock(a5),a0
+	move.l	a3,(a0)+
+	move.l	a4,(a0)+
+	move.l	OldRel(a5),(a0)+
+	move.l	a0,A_Stock(a5)
+	move.l	(sp)+,a0
+	rts
+RestOut
+	move.l	a0,-(sp)
+	move.l	A_Stock(a5),a0
+	move.l	-(a0),OldRel(a5)
+	move.l	-(a0),a4
+	move.l	-(a0),a3
+	move.l	a0,A_Stock(a5)
+	move.l	(sp)+,a0
+	rts
+SautOut
+	sub.l	#12,A_Stock(a5)
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Instructions / Fonctions standart
+;---------------------------------------------------------------------
+
+;-----> CONTROLE COMPILATEUR
+CTstOn	clr.w	Flag_NoTests(a5)
+	rts
+CTstOf	move.w	#-1,Flag_NoTests(a5)
+	rts
+CTst	move.w	#L_Tests,d0
+	bra	CreFonc
+COpt	bsr	StockOut
+	bsr	Evalue
+	bra	RestOut
+
+;-----> Instruction etendue...
+IExtension
+	bsr	GetWord
+	lsr.w	#8,d0
+	move.w	d0,d2
+	lsl.w	#2,d0
+	lea	BufToks(a5),a2
+	move.l	0(a2,d0.w),d0
+	beq	ErrExt
+	move.l	d0,a2
+	bsr	GetWord
+	move.w	d0,d4
+	move.w	0(a2,d0.w),d1
+	lea	4(a2,d0.w),a2
+* Est-ce un instruction de controle COMPILER?
+	cmp.w	#Ext_Nb,d2
+	bne.s	.PaCont
+	cmp.w	#Ext_TkCmp,d0
+	beq	ErrAlready
+	cmp.w	#Ext_TkCOp,d0
+	beq	COpt
+	cmp.w	#Ext_TkTstOn,d0
+	beq	CTstOn
+	cmp.w	#Ext_TkTstOf,d0
+	beq	CTstOf
+	cmp.w	#Ext_TkTst,d0
+	beq	CTst
+.PaCont
+* Est-ce un .AMOS?
+	moveq	#-1,d3
+	cmp.w	#3,Flag_Type(a5)
+	bne	IStan
+	moveq	#0,d3
+	bsr	IStan
+	bra	ExtCall
+;-----> Fonction etendue
+FExtension
+	bsr	GetWord
+	lsr.w	#8,d0
+	move.w	d0,d2
+	lsl.w	#2,d0
+	lea	BufToks(a5),a2
+	move.l	0(a2,d0.w),d0
+	beq	ErrExt
+	move.l	d0,a2
+	bsr	GetWord
+	move.w	d0,d4
+	addq.w	#2,d4
+	move.w	2(a2,d0.w),d1
+	lea	4(a2,d0.w),a2
+; Est-ce un .AMOS?
+	cmp.w	#3,Flag_Type(a5)
+	beq.s	.Skip1
+	moveq	#-1,d3
+	bsr	FStan
+	bra.s	.Skip2
+.Skip1	moveq	#0,d3
+	bsr	FStan
+	bsr	ExtCall
+.Skip2
+; Pousse le parametre dans la pile et revient...
+	move.w	CMvd3ma3(pc),d0
+	bra	OutWord
+* Routine: appelle l'extension en .AMOS
+ExtCall	move.w	Cmviwd0(pc),d0
+	bsr	OutWord
+	move.w	d1,d0
+	lsl.w	#2,d0
+	bsr	OutWord
+	move.w	Cmviwd1(pc),d0
+	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	move.w	#L_ExtCall,d0
+	bra	CreFonc
+
+;-----> Instruction standard
+IStandard
+	move.w	2(a0,d0.w),d1
+	moveq	#0,d2
+	moveq	#-1,d3
+	lea	4(a0,d0.w),a2
+	bra	IStan
+;-----> Fonction standard
+FStandard
+	move.w	2(a0,d0.w),d1
+FStand
+	moveq	#0,d2
+	moveq	#-1,d3
+	lea	4(a0,d0.w),a2
+	bra	FStan
+
+* Routine instruction
+IStan	movem.w	d1/d2/d3/d4,-(sp)
+IStan0	tst.b	(a2)+
+	bpl.s	IStan0
+	move.b	(a2)+,d0
+; Instruction
+	cmp.b	#"I",d0
+	bne.s	IStan1
+	bsr	OutLea
+	bsr	CParams
+	movem.w	(sp)+,d0/d1/d2/d3
+	tst.w	d2
+	bne	CreFoncExt
+	rts
+; Variable reservee en instruction
+IStan1	cmp.b	#"V",d0
+	bne	Synt
+	move.b	(a2)+,d0
+	sub.b	#"0",d0
+	move.w	d0,-(sp)
+	tst.b	(a2)		* Saute la parenthese!
+	bmi.s	IStan1a
+	addq.l	#2,a6
+	bsr	CParams
+IStan1a	bsr	GetWord
+	cmp.w	#TkEg-Tk,d0
+	bne	Synt
+	bsr	Evalue
+	move.w	(sp)+,d1
+	cmp.b	d1,d2
+	beq.s	IStan3
+	subq.b	#1,d1
+	bmi.s	IStan2
+	bne	Synt
+	bsr	IntToFl
+	bra.s	IStan3
+IStan2	bsr	FlToInt
+IStan3	movem.w	(sp)+,d0/d1/d2/d3
+	tst.w	d2
+	bne	CreFoncExt
+	rts
+* Routine fonction
+FStan	movem.w	d1/d2/d3/d4,-(sp)
+FStan0	tst.b	(a2)+
+	bpl.s	FStan0
+	move.b	(a2)+,d0
+; Fonction
+	cmp.b	#"2",d0
+	bhi.s	FStan2
+FStand1	and.w	#$00FF,d0
+	sub.b	#"0",d0
+	move.w	d0,-(sp)
+	tst.b	(a2)
+	bmi.s	FStan1a
+	addq.l	#2,a6
+	bsr	CParams
+FStan1a	move.w	(sp)+,d4
+	cmp.b	#1,d4
+	bne.s	FStan1b
+	bset	#0,Flag_Math(a5)
+FStan1b	movem.w	(sp)+,d0/d1/d2/d3
+	exg	d2,d4
+	tst.w	d4
+	bne	CreFoncExt
+	rts
+; Variable reservee en fonction
+FStan2	cmp.b	#"V",d0
+	bne	Synt
+	addq.w	#1,(sp)
+	move.b	(a2)+,d0
+	bra.s	FStand1
+
+* ROUTINE > recupere les parametres standards
+CParams	move.b	(a2)+,d0
+	bmi.s	CParX
+CPar1	move.l	a2,-(sp)
+	cmp.b	#"3",d0
+	beq.s	.Con
+	sub.b	#48+1,d0
+	bmi.s	CPar3
+	beq.s	CPar2
+; Une chaine
+	bsr	Evalue
+	cmp.b	#2,d2
+	beq.s	CParL
+	bra	Synt
+; N'importe quoi (entier/float)
+.Con	bsr	Evalue
+	cmp.b	#1,d0
+	bne.s	CParL
+	bsr	FlToInt
+	bra.s	CParL
+; Un float
+CPar2	bset	#0,Flag_Math(a5)
+	bsr	Evalue
+	subq.b	#1,d2
+	beq.s	CParL
+	bpl	Synt
+	bsr	IntToFl
+	bra.s	CParL
+; Entier
+CPar3	bsr	Evalue
+	subq.b	#1,d2
+	bmi.s	CParL
+	bne	Synt
+	bsr	FlToInt
+; Encore un param?
+CParL	move.l	(sp)+,a2
+	tst.b	(a2)+
+	bmi.s	CParX
+	addq.l	#2,a6
+	move.b	(a2)+,d0
+	bra.s	CPar1
+CParX	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Evaluations / Calculs
+;---------------------------------------------------------------------
+
+******* SET BUFFER
+CSBuf	addq.l	#2,a6
+	bsr	GetLong
+	move.l	d0,L_Buf(a5)
+	rts
+
+******* GLOBAL / SHARED -> saute les variables
+CGlob
+CShar	addq.l	#2,a6
+	bsr	GetWord
+	move.w	d0,d3
+	bsr	GetWord
+	moveq	#0,d2
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	bsr	VAdr0
+CSh1	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CShar
+	cmp.w	#TkPar1-Tk,d0
+	bne.s	CSh2
+	addq.l	#2,a6
+	bra.s	CSh1
+CSh2	subq.l	#2,a6
+	rts
+
+******* Prise d'une variable
+IVar	bsr	OutLea
+IVarBis	move.l	a6,-(sp)
+	bsr	SoVar
+	move.w	d2,-(sp)
+	bsr	FnEval
+	move.b	d2,d5
+	move.w	(sp),d2
+	and.w	#$07,d2
+	cmp.b	#1,d2
+	bne.s	.skip
+	bset	#0,Flag_Math(a5)
+.skip	cmp.b	d2,d5
+	beq.s	IVr1
+	tst.b	d2
+	bne.s	IVr0
+	bsr	FlToInt
+	bra.s	IVr1
+IVr0	bsr	IntToFl
+IVr1	addq.l	#2,sp
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	move.l	(sp)+,a6
+	bmi.s	IVrT
+	beq.s	IVrL
+* Variable GLOBALE
+	move.w	CVrG(pc),d0
+	bra.s	IVr2
+CVrG	move.l	(a3)+,2(a0)
+* Variable LOCALE
+IVrL	move.w	CVrL(pc),d0
+IVr2	bsr	OutWord
+	move.w	d3,d0
+	bra	OutWord
+CVrL	move.l	(a3)+,2(a6)
+* Variable TABLEAU
+IVrT	moveq	#L_GetTablo,d0
+	bsr	CreFonc
+	move.w	CVrT(pc),d0
+	bra	OutWord
+CVrT	move.l	(a3)+,(a0)
+
+******* Met l'adresse de base d'une variable en A0
+AdBase	tst.w	d1
+	beq.s	AdA0L
+	bpl.s	AdA0G
+	rts
+* Variable GLOBALE
+AdA0G	move.w	CLea2a0a0(pc),d0
+	bra.s	IVr2
+* Variable LOCALE
+Ada0L	move.w	CLea2a6a0(pc),d0
+	bra.s	IVr2
+******* Met l'adresse d'une variable en A0
+AdToA0	tst.w	d1
+	beq.s	AdA0L
+	bpl.s	AdA0G
+	moveq	#L_GetTablo,d0
+	bra	CreFonc
+
+******* Variable en fonction
+FVar	bsr	VarAdr
+	and.w	#$000F,d2
+	cmp.b	#1,d2
+	bne.s	.skip
+	bset	#0,Flag_Math(a5)
+.skip	tst.w	d1
+	bmi.s	FVrT
+	beq.s	FVrL
+; Variable globale
+	move.w	Cmv2a0Ma3(pc),d0		Globale
+	bra.s	FVr
+; Variable locale
+FVrL	move.w	Cmv2a6Ma3(pc),d0		Locale
+FVr	bsr	OutWord
+	move.w	d3,d0
+	bra	OutWord
+; Variable tableau
+FVrT	moveq	#L_GetTablo,d0
+	bsr	CreFonc
+	move.w	Cmvpa0Ma3(pc),d0
+	bra	OutWord
+
+** Saute une variable
+SoVar	bsr	GetWord
+	bsr	GetWord
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	btst	#6,d2
+	beq.s	SoV3
+; Saute les params du tableau
+	clr.w	d1
+SoV1	bsr	GetWord
+	cmp.w	#TkPar1-Tk,d0
+	bne.s	SoV2
+	addq.w	#1,d1
+SoV2	cmp.w	#TkPar2-Tk,d0
+	bne.s	SoV1
+	subq.w	#1,d1
+	bne.s	SoV1
+; Met le flag float!
+SoV3	rts
+** Trouve l'adresse d'une variable D2-D3
+VarAdr	bsr	GetWord
+	move.w	d0,d3
+	bsr	GetWord
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	btst	#6,d2
+	bne	VAdrT
+VAdr0	moveq	#0,d0
+	tst.w	d3
+	bmi.s	VAdrL
+* >0: Variable LOCALE
+	move.w	d3,d0
+	move.l	A_FlagVarL(a5),a0
+	bsr	VMark
+	addq.w	#6,d3
+	neg.w	d3
+	moveq	#0,d1
+	rts
+* <0: Variable GLOBALE
+VAdrL	addq.w	#1,d3
+	move.w	d3,d0
+	neg.w	d0
+	move.l	B_FlagVarG(a5),a0
+	bsr	VMark
+	sub.w	#12,d3
+ 	move.l	CVarGlo(pc),d0
+	bsr	OutLong
+	moveq	#1,d1
+	rts
+CVarGlo	move.l	VarGlo(a5),a0
+* Variable tableau
+VAdrT	movem.w	d2/d3,-(sp)
+	addq.l	#2,a6
+	clr.w	-(sp)
+VAdrt1	addq.w	#1,(sp)
+	bsr	Expentier
+	cmp.w	#TkPar2-Tk,d0
+	beq.s	VAdrt2
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	VAdrt1
+	bra	Synt
+VAdrt2	move.w	(sp)+,d7
+	movem.w	(sp)+,d2/d3
+	bsr	VAdr0
+	tst.w	d1
+	beq.s	VAtl
+	move.w	Clea2a0a0(pc),d0
+	bra.s	VAtt
+VAtl	move.w	Clea2a6a0(pc),d0
+VAtt	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	moveq	#-1,d1
+	rts
+* Marque le flag de la variable
+VMark	addq.w	#6,d0
+	cmp.w	(a0),d0
+	bcs.s	Vml1
+	move.w	d0,(a0)
+Vml1	divu	#6,d0
+	and.b	#%01001111,d2
+	lea	2-1(a0,d0.w),a0
+	move.b	d2,(a0)
+	rts
+** Trouve l'adresse d'une variable D2-D3, SPECIAL FN
+VarAdrFn
+	bsr	GetWord
+	move.w	d0,d3
+	bsr	GetWord
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	moveq	#0,d0
+	tst.w	d3
+	bmi.s	.VAdrL
+* >0: Variable LOCALE
+	move.w	d3,d0
+	move.l	A_FlagVarL(a5),a0
+	bsr	.VMark
+	addq.w	#6,d3
+	neg.w	d3
+	moveq	#0,d1
+	rts
+* <0: Variable GLOBALE
+.VAdrL	addq.w	#1,d3
+	move.w	d3,d0
+	neg.w	d0
+	move.l	B_FlagVarG(a5),a0
+	bsr.s	.VMark
+	sub.w	#12,d3
+ 	move.l	CVarGlo(pc),d0
+	bsr	OutLong
+	moveq	#1,d1
+	rts
+* PREND le flag de la variable SPECIAL Def Fn
+.VMark	addq.w	#6,d0
+	divu	#6,d0
+	lea	2-1(a0,d0.w),a0
+	move.b	(a0),d2
+	rts
+
+******* DIM
+CDim	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	move.w	Cmvqd0(pc),d0
+	move.b	d7,d0
+	bsr	OutWord
+	moveq	#L_Dim,d0
+	bsr	CreFonc
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CDim
+	subq.l	#2,a6
+	rts
+
+******* DEF FN
+CDefFn	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	move.l	a0,-(sp)		Adresse du flag!
+	bsr	AdBase
+	lea	CdDfn1(pc),a0
+	bsr	OutCode
+	move.l	a4,-(sp)
+	bsr	GetWord
+	cmp.w	#TkPar1-Tk,d0
+	bne.s	Cdfn2
+* Prend les variables (� l'envers)
+	clr.w	N_Dfn(a5)
+Cdfn0	addq.l	#2,a6
+	move.l	a6,-(sp)
+	addq.w	#1,N_Dfn(a5)
+	bsr	SoVar
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	Cdfn0
+	addq.l	#2,a6
+	move.l	a6,A_Dfn(a5)
+Cdfn1	move.l	(sp)+,a6
+	bsr	VarAdr
+	bsr	AdBase
+	move.w	Cmvqd2(pc),d0
+	and.b	#$03,d2
+	move.b	d2,d0
+	bsr	OutWord
+	lea	CdDfn2(pc),a0
+	bsr	OutCode
+	subq.w	#1,N_Dfn(a5)
+	bne.s	Cdfn1
+	move.l	A_Dfn(a5),a6
+* Fonction!
+Cdfn2	bsr	Evalue
+	move.l	4(sp),a0
+	and.b	#%00000011,d2
+	bset	#3,d2
+	move.b	d2,(a0)
+	move.w	CRts(pc),d0
+	bsr	OutWord
+* Saute le tout!
+	move.l	a4,d0
+	move.l	(sp),a4
+	move.l	d0,(sp)
+	subq.l	#2,a4
+	sub.l	a4,d0
+	bsr	OutWord
+	move.l	(sp)+,a4
+	addq.l	#4,sp
+	rts
+CdDfn1	lea	*+10(pc),a1
+	move.l	a1,(a0)
+	bra	CdDfn2
+	dc.w	$4321
+CdDfn2	lea	*+6(pc),a2
+	rts
+	dc.w	$4321
+
+******* =FN
+CFn	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	clr.w	-(sp)
+	bsr	GetWord
+	cmp.w	#TkPar1-Tk,d0
+	bne.s	CFn2
+* Prend les parametres
+CFn1	addq.w	#1,(sp)
+	bsr	Evalue
+	move.w	Cmvima3(pc),d0
+	bsr	OutWord
+	and.w	#$0F,d2
+	move.w	d2,d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CFn1
+* Appelle la fonction
+CFn2	subq.l	#2,a6
+	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	VarAdrFn
+	bsr	AdBase
+	move.w	(sp)+,d1
+	move.w	Cmvqd0(pc),d0
+	move.b	d1,d0
+	bsr	OutWord
+	move.l	(sp)+,a6
+	move.w	#L_FN,d0
+	bsr	CreFonc
+	and.w	#$03,d2
+	rts
+
+******* SORT a()
+CSort	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdBase
+	move.w	Cmvqd2(pc),d0
+	and.w	#$03,d2
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	#L_Sort,d0
+	bra	CreFonc
+******* =MATCH(a(),b)
+CMatch	bsr	OutLea
+	addq.l	#4,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	and.w	#$0f,d2
+	move.w	d2,-(sp)
+	addq.l	#2,a6
+	bsr	Evalue
+	move.w	(sp)+,d1
+	bsr	EqType
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	bsr	AdBase
+	move.w	Cmvqd2(pc),d0
+	and.w	#$0f,d2
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	#L_FFind,d0
+	bsr	CreFonc
+	move.l	(sp)+,a6
+	moveq	#0,d2
+	rts
+
+*******	Evaluation d'expression
+FnEval:	addq.l	#2,a6
+Evalue:	move.w	#$7FFF,d0
+	bra.s	Eva1
+Eva0:	move.w	d2,-(sp)
+Eva1:	move.w	d0,-(sp)
+	bsr	Operande
+Eva2:	bsr	GetWord
+	cmp.w	(sp),d0
+	bhi.s	Eva0
+	subq.l	#2,a6
+	move.w	(sp)+,d1
+	bpl.s	Eva3
+	move.w	(sp)+,d5
+	lea	Tk(pc),a0
+	move.w	0(a0,d1.w),d1
+	beq	Synt
+	addq.w	#1,NbInstr(a5)
+	jsr	0(a0,d1.w)
+	clr.w	Flag_Const(a5)
+	bra.s	Eva2
+Eva3:	cmp.w	#TkPar2-Tk,d0
+	bne.s	Eva4
+	addq.l	#2,a6
+Eva4:	rts
+** Recupere un operande
+Operande:
+	clr.w	-(sp)
+Ope0:	addq.w	#1,NbInstr(a5)
+	bsr	GetWord
+	lea	Tk(pc),a0
+ 	tst.w	0(a0,d0.w)
+	bne.s	Ope0a
+	bsr	FStandard
+	bra.s	Ope0b
+Ope0a	move.w	2(a0,d0.w),d1
+	beq	Synt
+	jsr	0(a0,d1.w)
+Ope0b	clr.w	Flag_Const(a5)
+* Changement de signe non effectue?
+Const	tst.w	(sp)+
+	bne.s	Chs0
+	rts
+Chs0:	tst.b	d2
+	bne.s	Chs1
+	move.w	CChsI(pc),d0
+	bra	OutWord
+Chs1:	moveq	#L_NegFl,d0
+	bra	CreFonc
+CChsI	neg.l	(a3)
+	dc.w	$4321
+* Signe moins devant
+OpeM:	addq.l	#4,sp
+	addq.w	#1,(sp)
+	bra.s	Ope0
+
+;-----> VIRGULE / : / TO / THEN / ELSE ---> pas de parametre, entier
+FNull	lea	CNull(pc),a0
+	bsr	OutCode
+	moveq	#0,d2
+	subq.l	#2,a6
+	rts
+CNull	move.l	#EntNul,-(a3)
+	dc.w	$4321
+
+;-----> CONSTANTE Entiere/Hex/Bin
+FEnt	move.w	CCst(pc),d0
+	bsr	OutWord
+	bsr	GetLong
+	tst.w	4(sp)
+	beq	FEnt1
+	clr.w	4(sp)
+	neg.l	d0
+FEnt1	move.l	d0,d3
+	bsr	OutLong
+	moveq	#0,d2
+	bra.s	DoConst
+;-----> CONSTANTE Float
+FFloat	bset	#0,Flag_Math(a5)
+	move.w	CCst(pc),d0
+	bsr	OutWord
+	bsr	GetLong
+	tst.w	4(a7)
+	beq	FFlo1
+	clr.w	4(a7)
+; Change le signe!
+	tst.b	d0
+	beq.s	FFlo1
+	bchg	#7,d0
+FFlo1	bsr	OutLong
+	moveq	#1,d2
+	bra.s	DoConst
+CCst	move.l	#$55555555,-(a3)
+;-----> CONSTANTE Chaine
+FChaine	move.w	CCst(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	A_Chaines(a5),d0
+	move.l	d0,a1
+	bset	#BitChaine,d0
+	bsr	OutLong
+	move.l	a6,(a1)
+	addq.l	#4,A_Chaines(a5)
+; Saute la constante
+	bsr	GetWord
+	btst	#0,d0
+	beq.s	FCh1
+	addq.w	#1,d0
+FCh1	add.w	d0,a6
+	moveq	#2,d2
+; Marque le flag CONSTANTE
+DoConst	lea	Const(pc),a0
+	move.l	a0,(sp)
+	rts
+
+******* Fonctions compilo
+FnExpentier
+	addq.l	#2,a6
+Expentier
+	bsr	Evalue
+DoEntier
+	tst.b	d2
+	bne	FlToInt
+	rts
+Compat
+	cmp.b	d2,d5
+	beq.s	CptX
+	bsr	QueFloat
+CptX	subq.w	#1,d5
+	bne.s	CptX1
+	bset	#0,Flag_Math(a5)
+CptX1	tst.b	d5
+	rts
+QuEntier
+	tst.b	d2
+	beq.s	Que1
+	moveq	#L_FlToInt,d0
+	bsr	CreFonc
+	moveq	#0,d2
+Que1	tst.b	d5
+	beq.s	Que2
+	move.w	#L_FlToInt2,d0
+	bsr	CreFonc
+	moveq	#0,d5
+Que2	rts
+QueFloat
+	bset	#0,Flag_Math(a5)
+	tst.b	d2
+	bne.s	QueF1
+	moveq	#L_IntToFl,d0
+	bsr	CreFonc
+	moveq	#1,d2
+QueF1	tst.b	d5
+	bne.s	QueF2
+	move.w	#L_IntToFl2,d0
+	bsr	CreFonc
+	moveq	#1,d5
+QueF2	rts
+EqType
+	cmp.b	d1,d2
+	bne.s	Eqt1
+	rts
+Eqt1	tst.b	d1
+	bne.s	IntToFl
+	beq.s	FlToInt
+FnFloat
+	bset	#0,Flag_Math(a5)
+	bsr	FnEval
+	tst.b	d2
+	bne.s	FnFl1
+	moveq	#L_IntToFl,d0
+	bsr	CreFonc
+	moveq	#1,d2
+FnFl1	rts
+IntToFl
+	movem.l	d0-d1/a0-a2,-(sp)
+	bset	#0,Flag_Math(a5)
+	moveq	#L_IntToFl,d0
+	bsr	CreFonc
+	moveq	#1,d2
+	movem.l	(sp)+,d0-d1/a0-a2
+	rts
+FlToInt
+	movem.l	d0-d1/a0-a2,-(sp)
+	bset	#0,Flag_Math(a5)
+	moveq	#L_FlToInt,d0
+	bsr	CreFonc
+	moveq	#0,d2
+	movem.l	(sp)+,d0-d1/a0-a2
+	rts
+
+;-----> Operateur +
+CPlus	bsr	Compat
+	bmi.s	CPl2
+	beq.s	CPl1
+* Chaines
+	moveq	#L_PlusC,d0
+	bsr	CreFonc
+	moveq	#2,d2
+	rts
+* Float
+CPl1	moveq	#L_PlusF,d0
+	bsr	CreFonc
+	bset	#0,Flag_Math(a5)
+	moveq	#1,d2
+	rts
+* Entiere
+CPl2	lea	CcPlus(pc),a0
+	bra	OutCode
+CcPlus	move.l	(a3)+,d0
+	add.l	d0,(a3)
+	dc.w	$4321
+;-----> Operateur -
+CMoins	bsr	Compat
+	bmi.s	CMn2
+	beq.s	CMn1
+* Chaines
+	moveq	#L_MoinsC,d0
+	bsr	CreFonc
+	moveq	#2,d2
+	rts
+* Float
+CMn1	moveq	#L_MoinsF,d0
+	bsr	CreFonc
+	bset	#0,Flag_Math(a5)
+	moveq	#1,d2
+	rts
+* Entiere
+CMn2	lea	CcMoins(pc),a0
+	bra	OutCode
+CcMoins	move.l	(a3)+,d0
+	sub.l	d0,(a3)
+	dc.w	$4321
+;-----> Operateur *
+CMult:  moveq	#L_Mult,d0
+	bsr	COpe
+	move.w	d1,d2
+	rts
+;-----> Operateur /
+CDiv	moveq	#L_Div,d0
+	bsr	COpe
+	move.w	d1,d2
+	rts
+;-----> Operateur MODULO
+CMod	bsr 	Quentier
+        moveq 	#L_Mod,d0
+        bra 	CreFonc
+;-----> Operateur PUISSANCE
+CPuis:  bsr 	QueFloat
+	bset	#1,Flag_Math(a5)
+        moveq 	#L_Puis,d0
+        bra 	CreFonc
+;-----> Operateur =
+CEg:  	moveq 	#L_Eg,d0
+        bra.s 	COpe
+;-----> Operateur <>
+CDif:  	moveq 	#L_Dif,d0
+        bra.s 	COpe
+;-----> Operateur <
+CInf:   moveq 	#L_Inf,d0
+        bra.s 	COpe
+;-----> Operateur >
+CSup:   moveq 	#L_Sup,d0
+        bra.s 	COpe
+;-----> Operateur <=
+CInfEg  moveq 	#L_InfEg,d0
+        bra.s 	COpe
+;-----> Operateur >=
+CSupEg  moveq 	#L_SupEg,d0
+COpe	move.w	d0,-(sp)
+	bsr	Compat
+	bmi.s	COp2
+	beq.s	COp1
+; Chaines
+	move.w	(sp)+,d0
+	addq.w	#2,d0
+	bsr	CreFonc
+	moveq	#0,d2
+	moveq	#2,d1
+	rts
+; Float
+COp1	move.w	(sp)+,d0
+	addq.w	#1,d0
+	bsr	CreFonc
+	bset	#0,Flag_Math(a5)
+	moveq	#0,d2
+	moveq	#1,d1
+	rts
+; Entier
+COp2	move.w	(sp)+,d0
+	bsr	CreFonc
+	moveq	#0,d2
+	moveq	#0,d1
+	rts
+
+;-----> Operateur OR
+COr:    bsr 	Quentier
+        lea 	COr2(pc),a0
+COr1:   bsr 	OutCode
+	moveq	#0,d2
+        rts
+COr2:   move.l 	(a3)+,d0
+        or.l 	d0,(a3)
+        dc.w 	$4321
+;-----> Operateur AND
+CAnd:   bsr 	Quentier
+        lea 	CAnd1(pc),a0
+        bra.s 	COr1
+CAnd1:  move.l 	(a3)+,d0
+        and.l 	d0,(a3)
+        dc.w 	$4321
+;-----> Operateur XOR
+CXor:   bsr 	Quentier
+        lea 	CXor1(pc),a0
+        bra.s 	COr1
+CXor1:  move.l 	(a3)+,d0
+        eor.l 	d0,(a3)
+        dc.w 	$4321
+;-----> Fonction NOT
+CNot:   bsr 	Expentier
+        lea 	CNt(pc),a0
+        bra.s 	COr1
+CNt:    not.l 	(a3)
+        dc.w 	$4321
+;-----> FALSE / TRUE
+CFalse	moveq	#0,d2
+	lea	CdFal(pc),a0
+	bra	OutCode
+CTrue	moveq	#0,d2
+	lea	CdTru(pc),a0
+	bra	OutCode
+CdFal	clr.l	-(a3)
+	dc.w	$4321
+CdTru	move.l	#-1,-(a3)
+	dc.w	$4321
+
+;-----> SWAP
+CSwap	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	addq.l	#4,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.w	#L_Swap,d0
+	bra	CreFonc
+
+******* MIN + MAX
+CMin	move.w	#L_MinE,-(sp)
+	bra.s	CMinMax
+CMax	move.w	#L_MaxE,-(sp)
+CMinMax	bsr	FnEval
+	move.w	d2,-(sp)
+	bsr	FnEval
+	move.w	(sp)+,d5
+	bsr	Compat
+	bmi.s	Cmm3
+	beq.s	Cmm2
+Cmm1	addq.w	#1,(sp)
+Cmm2	addq.w	#1,(sp)
+Cmm3	move.w	(sp)+,d0
+	bra	CreFonc
+
+*******	ABS
+CInt	bsr	FnEval
+	tst.b	d2
+	beq.s	CInt2
+	move.w	#L_IntF,d0
+	bsr	CreFonc
+	moveq	#1,d2
+CInt2	rts
+CAbs	bsr	FnEval
+	move.w	#L_AbsE,d0
+	tst.b	d2
+	beq	CreFonc
+	addq.w	#1,d0
+	bra	CreFonc
+CSgn	bsr	FnEval
+	move.w	#L_SgnE,d0
+	tst.b	d2
+	beq	CreFonc
+	addq.w	#1,d0
+	moveq	#0,d2
+	bra	CreFonc
+CSqr	move.w	#L_Sqr,d0
+	bra.s	CMath
+CLog	move.w	#L_Log,d0
+	bra.s	CMath
+CLn	move.w	#L_Ln,d0
+	bra.s	CMath
+CExp	move.w	#L_Exp,d0
+	bra.s	CMath
+CSin	move.w	#L_Sin,d0
+	bra.s	CMath
+CCos	move.w	#L_Cos,d0
+	bra.s	CMath
+CTan	move.w	#L_Tan,d0
+	bra.s	CMath
+CASin	move.w	#L_ASin,d0
+	bra.s	CMath
+CACos	move.w	#L_ACos,d0
+	bra.s	CMath
+CATan	move.w	#L_ATan,d0
+	bra.s	CMath
+CHsin	move.w	#L_HSin,d0
+	bra.s	CMath
+CHCos	move.w	#L_HCos,d0
+	bra.s	CMath
+CHTan	move.w	#L_HTan,d0
+* Appel de la fonction
+CMath	bset	#0,Flag_Math(a5)
+	bset	#1,Flag_Math(a5)
+	move.w	d0,-(sp)
+	bsr	FnFloat
+	move.w	(sp)+,d0
+	moveq	#1,d2
+	bra	CreFonc
+
+******* INC
+CInc	pea	CdInc(pc)
+	bra.s	CIncDec
+CDec	pea	CdDec(pc)
+CIncDec	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.l	(sp)+,a0
+	bra	OutCode
+CdInc	addq.l	#1,(a0)
+	dc.w	$4321
+CdDec	subq.l	#1,(a0)
+	dc.w	$4321
+******* ADD a,b
+CAdd2	bsr	OutLea
+	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	bsr	FnExpentier
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	lea	CdAdd1(pc),a0
+	bsr	OutCode
+	move.l	(sp)+,a6
+	rts
+CdAdd1	move.l	(a3)+,d0
+	add.l	d0,(a0)
+	dc.w	$4321
+******* ADD a,b,c to d
+CAdd4	bsr	OutLea
+	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	bsr	FnExpentier
+	bsr	FnExpentier
+	bsr	FnExpentier
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.l	(sp)+,a6
+	move.w	#L_Add4,d0
+	bra	CreFonc
+
+******* Instruction finie??
+Finie:	bsr	GetWord
+FinieB:	beq.s	Finy
+	cmp.w	#TkDP-Tk,d0
+	beq.s	Finy
+	cmp.w	#TkThen-Tk,d0
+	beq.s	Finy
+	cmp.w	#TkElse-Tk,d0
+Finy:	rts
+
+******* Appel de la routine de test
+CTests	tst.w	Flag_NoTests(a5)
+	bne.s	.skip
+	move.w	#L_Tests,d0
+	bsr	CreFonc
+.skip	rts
+
+******* =PARAM
+CparamE	moveq	#0,d2
+	move.l	CdParE(pc),d0
+	bra	OutLong
+CparamF	moveq	#1,d2
+	bset	#0,Flag_Math(a5)
+	move.l	CdParF(pc),d0
+	bra	OutLong
+CparamC	moveq	#2,d2
+	move.l	CdParS(pc),d0
+	bra	OutLong
+
+******* FOLLOW
+CFollow	bsr	Finie
+	subq.l	#2,a6
+	beq.s	CFol3
+CFol1	bsr	Evalue
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CFol1
+CFol2	subq.l	#2,a6
+CFol3	rts
+
+******* VARPTR
+CVarptr	addq.l	#4,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	addq.l	#2,a6
+	and.w	#$F,d2
+	subq.w	#1,d2
+	bhi.s	CVpt1
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	moveq	#0,d2
+	rts
+CVpt1	lea	CVpt2(pc),a0
+	bsr	OutCode
+	moveq	#0,d2
+	rts
+CVpt2	move.l	(a0),-(a3)
+	addq.l	#2,(a3)
+	dc.w	$4321
+
+******* DATA
+CData	addq.l	#2,a6
+	move.l	CBra(pc),d0
+	bsr	OutLong
+	move.l	a4,-(sp)
+	tst.l	A_Datas(a5)
+	bne.s	CDt1
+	move.l	a4,A_Datas(a5)
+	bra.s	CDt2
+CDt1	move.l	a4,-(sp)
+	move.l	a4,d0
+	move.l	A_JDatas(a5),a4
+	bsr	OutLong
+	move.l	(sp)+,a4
+CDt2	move.w	CNop(pc),d0		* Signal-> DATAS!
+	bsr	OutWord
+	bsr	Evalue
+	move.w	Cmvqd2(pc),d0
+	and.w	#$000F,d2
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	Cleaa2(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	a4,A_JDatas(a5)
+	move.l	A_EDatas(a5),d0
+	bsr	OutLong
+	move.w	CRts(pc),d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CDt1
+	subq.l	#2,a6
+* Met le BRA
+	move.l	a4,d0
+	move.l	(sp),a4
+	move.l	d0,(sp)
+	subq.l	#2,a4
+	sub.l	a4,d0
+	bsr	OutWord
+	move.l	(sp)+,a4
+	rts
+CdDNul	clr.l	-(a3)
+	moveq	#-1,d2
+	rts
+	dc.w	$4321
+
+******* Cree la routine NO DATA
+CreNoData
+	tst.l	A_EDatas(a5)
+	bne.s	CnDtX
+	move.l	a4,A_EDatas(a5)
+	addq.l	#2,A_EDatas(a5)
+	lea	Cd0Data(pc),a0
+	bsr	OutCode
+CnDtX	rts
+Cd0Data	bra.s	Cd1Data
+	moveq	#-1,d0
+	moveq	#-1,d2
+	rts
+Cd1Data	dc.w	$4321
+
+******* RESTORE
+CRest	bsr	OutLea
+	move.w	#L_Rest0,d1
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	CRest1
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_Rest1,d1
+CRest1	move.w	d1,d0
+	bra	CreFonc
+
+******* READ
+CRead	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	and.w	#$000F,d2
+	move.w	#L_ReadE,d0
+	subq.b	#1,d2
+	bmi.s	Cread1
+	addq.w	#1,d0
+	tst.b	d2
+	beq.s	Cread1
+	addq.w	#1,d0
+Cread1	bsr	CreFonc
+	bsr	GetWord
+	cmp.w	#TkVir-TK,d0
+	beq.s	Cread
+	subq.l	#2,a6
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; CHAINES / TEXTE
+;---------------------------------------------------------------------
+
+;------> MID en fonction
+CFLeft	move.w	#L_FLeft,d1
+	bra	FStand
+CFRight	move.w	#L_FRight,d1
+	bra	FStand
+CFMid2	move.w	#L_FMid2,d1
+	bra	FStand
+CFMid3	move.w	#L_FMid3,d1
+	bra	FStand
+;------> MID en instruction
+CIMid3	move.w	#L_IMid3,-(sp)
+	bra.s	CIMid
+CIMid2	move.w	#L_IMid2,-(sp)
+	bra.s	CIMid
+CILeft	move.w	#L_ILeft,-(sp)
+	bra.s	CIMid
+CIRight	move.w	#L_IRight,-(sp)
+CIMid	bsr	OutLea
+	addq.l	#4,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	addq.l	#2,a6
+	bsr	Expentier
+	cmp.w	#L_IMid3,4(sp)
+	bne.s	CIMd
+	addq.l	#2,a6
+	bsr	Expentier
+CIMd	addq.l	#2,a6
+	bsr	Evalue
+	move.l	a6,d0
+	move.l	(sp)+,a6
+	move.l	d0,-(sp)
+	bsr	VarAdr
+	bsr	AdToA0
+	move.l	(sp)+,a6
+	move.w	(sp)+,d0
+	bra	CreFonc
+;------> =STR$(n)
+CStr	bsr	FnEval
+	moveq	#L_StrE,d0
+	move.w	d2,d1
+	moveq	#2,d2
+	subq.w	#1,d1
+	bmi	CreFonc
+	moveq	#L_StrF,d0
+	bra	CreFonc
+;------> =VAL(a$)
+CVal	bsr	FnEval
+	moveq	#L_Val,d0
+	moveq	#0,d2
+	btst	#0,Flag_Math(a5)
+	beq	CreFonc
+	moveq	#1,d2
+	bra	CreFonc
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Boucles/Structure
+;---------------------------------------------------------------------
+
+******* REMs
+CRem	subq.w	#1,NbInstr(a5)
+	bsr	GetWord
+	add.w	d0,a6
+	rts
+
+;----------------------> TRAITEMENT DES ERREURS
+OutLea	move.l	CLeapca4(pc),d0
+	bra	OutLong
+
+;----------------------> PROCEDURES
+
+******* Codage / Decodage procedure LOCKEE
+*	A6---> "PROC"
+ProCode	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	2(a6),d0
+	lea	10+2+4(a6,d0.l),a2	* A2---> ENDPROC
+	move.w	-2(a6),d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a1		* A1---> Ligne suivante
+	move.l	2(a6),d5
+	rol.l	#8,d5
+	move.b	9(a6),d5
+	moveq	#1,d4
+	move.w	6(a6),d3
+	bra.s	PrCo2
+PrCo1	eor.w	d5,(a0)+
+	add.w	d4,d5
+	add.w	d3,d4
+	ror.l	#1,d5
+	cmp.l	a0,a1
+	bne.s	PrCo1
+PrCo2	move.l	a1,a0
+	move.w	(a0)+,d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a0,d0.w),a1
+	addq.l	#2,a0
+	cmp.l	a0,a2
+	bne.s	PrCo1
+* Change le flag
+	bchg	#5,8(a6)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+******* Debut de procedure, premiere exploration
+CProc	subq.w	#1,NbInstr(a5)
+* Decode la procedure si codee...
+	move.l	a6,-(sp)
+	addq.l	#6,a6
+	bsr	GetWord
+	btst	#6+8,d0
+	beq.s	VPr0
+	btst	#5+8,d0
+	beq.s	VPr0
+	tst.w	Flag_Source(a5)
+	bne	NoCode
+	move.l	(sp),a6
+	subq.l	#2,a6
+	add.l	B_Source(a5),a6
+	bsr	ProCode
+VPr0	move.l	(sp)+,a6
+* Stocke le label et les types
+	bsr	GetLong
+	subq.l	#4,a6
+	pea	8(a6,d0.l)
+	pea	(a6)
+	lea	8+2(a6),a6
+	moveq	#-1,d7
+	bsr	RLabel
+	move.l	(sp)+,d0
+	bset	#30,d0
+	move.l	d0,2(a2)
+	move.l	(sp)+,a6
+	rts
+
+******* Proc
+CPrc
+	addq.l	#2,a6
+******* Appel de procedure
+CDoPro
+	bsr	OutLea
+	subq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	StockOut
+	moveq	#-1,d7
+	bsr	GetLabel
+	bsr	RestOut
+	moveq	#0,d7
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkBra1-Tk,d0
+	bne.s	CDop3
+	addq.l	#2,a6
+CDop1	lsl.l	#1,d7
+	move.l	d7,-(sp)
+	bsr	Evalue
+	move.l	(sp)+,d7
+	cmp.b	#1,d2
+	bne.s	CDop2
+	bset	#0,d7
+CDop2	bsr	GetWord
+	cmp.w	#TkBra2-Tk,d0
+	bne.s	CDop1
+CDop3	move.l	a6,d0
+	move.l	(sp),a6
+	move.l	d0,(sp)
+	move.l	d7,-(sp)
+	moveq	#-1,d7
+	bsr	GetLabel
+	lea	CdDop(pc),a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+	addq.l	#4,a0
+	move.l	(sp)+,d0
+	bsr	OutLong
+	bsr	OutCode
+	move.l	(sp)+,a6
+	rts
+CdDop	move.l	#0,d6
+	jsr	(a0)
+	dc.w	$4321
+******* POP PROC
+CPopP	moveq	#L_FProc,d0
+	bra	CreJmp
+
+;----------------------> FOR / TO / NEXT
+CFor
+	bsr	OutLea
+; Prend et egalise la variable
+	bsr	GetWord		; Teste?
+	beq	Synt
+	pea	-2(a6,d0.w)	; Adresse du NEXT
+	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	StockOut	; Saute la variable
+        bsr 	IVarBis
+	bsr	RestOut
+	and.w	#$0F,d2
+        move.w 	d2,-(sp)        ; Sauve le type
+; Compile le TO
+	addq.l	#2,a6
+        bsr 	Evalue
+        move.w 	(sp),d1
+        bsr 	EqType 	        ; Egalise les types
+; Compile le STEP
+	move.w	#-1,Flag_Const(a5)
+	bsr 	GetWord
+        subq.l 	#2,a6
+	cmp.w	#TkStp-Tk,d0
+	bne.s	CFor3
+        addq.l 	#2,a6
+        bsr 	Evalue          ; va chercher le STEP
+        bra.s 	CFor4
+CFor3	lea 	ForCd1(pc),a0
+        bsr 	OutCode
+	moveq	#1,d3
+        moveq	#0,d2
+CFor4	move.w 	(sp),d1
+        bsr 	EqType          ; Egalise les type TO / STEP
+	move.l	d3,-(sp)
+; Compile la variable
+	move.l	4+2(sp),d0
+	move.l	a6,4+2(sp)
+	move.l	d0,a6
+	bsr	IVarBis
+	bsr	AdToA0
+	move.l	4+2(sp),a6
+; Adresse des adresses
+	move.w	M_ForNext(a5),d1
+	lea	forcd2(pc),a0
+	bsr	RForNxt
+	bsr	OutCode
+; Fonction de demarrage de la boucle
+	moveq	#0,d7
+	tst.w	Flag_Const(a5)
+	beq.s	CForPaR
+	tst.w	4(sp)
+	bne.s	CForPar
+	moveq	#-1,d7
+CForPaR
+; Poke les tables du compilateur
+        move.l 	A_Bcles(a5),a1
+	move.w	d7,(a1)+		; 0  Flag rapide
+	move.w	4(sp),(a1)+		; 2  Type
+	move.l	(sp),(a1)+		; 4  Step
+	move.l	a4,(a1)+		; 8  -6 Adresse dans le programme
+	move.w	M_ForNext(a5),(a1)+	; 12 Position de la boucle
+	move.w	#16,(a1)+		; 14 -2 Taille FOR/NEXT
+        move.l 	a1,A_Bcles(a5)
+; Un FOR/NEXT de plus!
+	add.w	#12,M_ForNext(a5)
+        addq.w 	#1,N_Bcles(a5)
+	lea	14(sp),sp
+	rts
+forcd1: move.l 	#$1,-(a3)
+        dc.w 	$4321
+forcd2:	move.l	AForNext(a5),a2
+	lea	0(a2),a2
+	move.l	(a3)+,(a2)+
+	move.l	(a3)+,(a2)+
+	move.l	a0,(a2)
+	dc.w	$4321
+
+;-----------------------------------> NEXT
+CNext:
+	bsr	OutLea
+	bsr	CTests
+; Saute la variable
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkVar-Tk,d0
+	bne.s	CNx0
+	addq.l	#2,a6
+	bsr	SoVar
+; Depile la boucle
+CNx0	move.l	A_Bcles(a5),a1
+	sub.w	-2(a1),a1
+	move.w	12(a1),d1		* P_FORNEXT
+	tst.w	(a1)
+	beq.s	CNx2
+; Une boucle "rapide"
+	lea	CdNx(pc),a0
+	bsr	RForNxt
+	bsr	OutCode
+	move.w	CBgtS(pc),d7
+	swap	d7
+	move.w	CBle(pc),d7
+	tst.l	4(a1)
+	bmi.s	CNx1
+	move.w	CBltS(pc),d7
+	swap	d7
+	move.w	CBge(pc),d7
+CNx1	moveq	#0,d5
+	move.l	8(a1),d6
+	bsr	DoTest
+	bra.s	CNxX
+* Boucle lente
+CNx2	lea	CdNx(pc),a0
+	bsr	RForNxt
+	move.w	CLeaa1(pc),d7
+	swap	d7
+	move.w	CLeapca1(pc),d7
+	move.l	8(a1),d6
+	moveq	#0,d5
+	bsr	DoLea
+	moveq	#L_NextE,d0
+	tst.w	2(a1)
+	beq.s	CNx6
+	moveq	#L_NextF,d0
+CNx6	bsr	CreFonc
+* Fin de la boucle
+CNxX	bra	UnPile
+; Routine
+RForNxt	move.l	(a0)+,d0
+	bsr	OutLong
+	tst.w	d1
+	beq.s	.Skip1
+	move.w	(a0),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+.Skip1	addq.l	#4,a0
+	rts
+; Code RAPIDE
+CdNx	move.l	AForNext(a5),a2
+	lea	0(a2),a2
+	move.l	(a2)+,d0
+	move.l	(a2)+,d1
+	move.l	(a2),a2
+	add.l	d0,(a2)
+	cmp.l	(a2),d1
+	dc.w	$4321
+
+;------------------------------> REPEAT / UNTIL
+CDo
+CRepeat	move.l	A_Bcles(a5),a1
+	move.l	a4,(a1)+		; 0  6 Adresse boucle
+	bsr	GetWord
+	beq	Synt
+	lea	-2(a6,d0.w),a0
+	move.w	#6,(a1)+
+	move.l	a1,A_Bcles(a5)
+	addq.w	#1,N_Bcles(a5)
+	rts
+CUntil
+	bsr	OutLea
+	bsr	CTests
+	bsr	Evalue
+	lea	CdUntil(pc),a0
+	bsr	OutCode
+	move.l	A_Bcles(a5),a1
+	move.w	CBne8(pc),d7
+	swap	d7
+	move.w	CBeq(pc),d7
+	move.l	-6(a1),d6
+	moveq	#0,d5
+	bsr	DoTest
+	bra	UnPile
+CdWhile
+CdUntil	tst.l	(a3)+
+	dc.w	$4321
+
+;------------------------------> LOOP
+CLoop
+	bsr	OutLea
+	bsr	CTests
+	moveq	#0,d5
+	move.l	A_Bcles(a5),a1
+	move.l	-6(a1),d6
+	bsr	DoBra
+	bra	UnPile
+
+;------------------------------> WHILE / WEND
+CWhile
+	bsr	GetWord
+	beq	Synt
+; Retour du WEND
+	move.l	A_Bcles(a5),a1
+	move.l	a6,(a1)+
+	move.w	CJmp(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	addq.l	#4,a4
+	move.l	a4,(a1)+
+	move.w	#10,(a1)+
+	move.l	a1,A_Bcles(a5)
+	addq.w	#1,N_Bcles(a5)
+; Saute l'expression
+	bsr	StockOut
+	bsr	Evalue
+	bsr	RestOut
+	rts
+
+CWend
+	bsr	OutLea
+	bsr	CTests
+	move.l	A_Bcles(a5),a1
+; Reloge le JMP du debut
+	move.l	a4,-(sp)
+	move.l	a4,d0
+	move.l	-6(a1),a4
+	subq.l	#4,a4
+	bsr	OutLong
+	move.l	(sp)+,a4
+; Evalue l'expression
+	movem.l	a1/a6,-(sp)
+	move.l	-10(a1),a6
+	bsr	Expentier
+	movem.l	(sp)+,a1/a6
+	move.w	Ctsta3p(pc),d0
+	bsr	OutWord
+; Met le branchement
+	moveq	#0,d5
+	move.l	-6(a1),d6
+	move.w	CBeq8(pc),d7
+	swap	d7
+	move.w	CBne(pc),d7
+	bsr	DoTest
+	bra	UnPile
+
+;------------------------------> EXIT / EXIT IF
+CExitIf
+	bsr	OutLea
+	bsr	GetWord
+	move.w	d0,d1
+	beq	Synt
+	bsr	GetWord
+	beq	Synt
+	pea	0(a6,d1.w)
+	bsr	Expentier
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkVir-Tk,d0
+	bne.s	CEIf0
+	addq.l	#2+6,a6
+CEIf0	move.w	Ctsta3p(pc),d0
+	bsr	OutWord
+	move.l	(sp)+,d5
+	moveq	#0,d6
+	move.w	Cbeq8(pc),d7
+	swap	d7
+	move.w	Cbne(pc),d7
+	bsr	DoTest
+	rts
+CExit
+	bsr	GetWord
+	move.w	d0,d1
+	beq	Synt
+	bsr	GetWord
+	beq	Synt
+	lea	0(a6,d1.w),a0
+	move.l	a0,d5
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkEnt-Tk,d0
+	bne.s	Cexi1
+	addq.l	#6,a6
+Cexi1	moveq	#0,d6
+	bsr	DoBra
+	rts
+
+;------------------------------> IF / THEN / ELSE
+CIf
+	bsr	OutLea
+	bsr	GetWord
+	beq	Synt
+	pea	0(a6,d0.w)
+	bsr	Expentier
+CIf0
+	move.w	Ctsta3p(pc),d0
+	bsr	OutWord
+	move.l	(sp)+,d5
+	moveq	#0,d6
+	move.w	CBne8(pc),d7
+	swap	d7
+	move.w	CBeq(pc),d7
+	bsr	DoTest
+	rts
+
+CElse
+	bsr	GetWord
+	beq	Synt
+	lea	0(a6,d0.w),a0
+	move.l	a0,d5
+	moveq	#0,d6
+	bsr	DoBra
+	rts
+
+******* DEUX POINTS
+CIDP	subq.w	#1,NbInstr(a5)
+CINop	rts
+
+;-------------------------------------> GOTO / LABELS
+
+;-----> LABEL:
+CLabel
+	move.w	N_Proc(a5),d7
+	bsr	RLabel
+	tst.l	2(a2)
+	bpl	Synt
+	move.l	a4,2(a2)
+	rts
+
+;-----> GOTO
+CLGoto
+	subq.l	#2,a6
+CGoto
+	bsr	OutLea
+	bsr	CTests
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+CGoto1	move.w	Cjmpa0(pc),d0
+	bra	OutWord
+;-----> THEN ligne
+CGoto2
+	bsr	OutLea
+	bsr	CTests
+	bsr	CGlab1
+	bra.s	CGoto1
+
+;-----> EVERY n GOSUB / PROC
+CEvery
+	bsr	Expentier
+	bsr	GetWord
+	cmp.w	#TkPrc-Tk,d0
+	beq.s	CEv1
+; Every GOSUB
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_EvGosub,d0
+	bra	CreFonc
+; Every PROC
+CEv1	moveq	#-1,d7
+	bsr	GetLabel
+	move.w	#L_EvProc,d0
+	bra	CreFonc
+
+;-----> GOSUB
+CGosub
+	bsr	OutLea
+	bsr	CTests
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	lea	CdGsb(pc),a0
+	bra	OutCode
+CdGsb:	lea	-4(sp),a1
+	move.l	a1,LowPile(a5)
+	jsr	(a0)
+	dc.w	$4321
+;-----> RETURN
+CReturn
+	bsr	OutLea
+	bsr	CTests
+	moveq	#L_Return,d0
+	bra	CreJmp
+;-----> POP
+CPop
+	bsr	OutLea
+	bsr	CTests
+	moveq	#L_Pop,d0
+	bra	CreFonc
+
+;-----> ON exp GOTO / GOSUB
+COn
+	bsr	OutLea
+	bsr	CTests
+	bsr	GetWord
+	beq	Synt
+	lea	2(a6,d0.w),a1
+	bsr	GetWord
+	move.w	d0,-(sp)
+	beq	Synt
+	move.l	a1,-(sp)
+	bsr	Expentier
+	bsr	GetWord
+	move.w	d0,-(sp)
+	lea	CdOn(pc),a0
+	move.w	(a0)+,d0
+	move.b	6+1(sp),d0
+	bsr	OutWord
+	bsr	OutCode
+	move.w	N_Proc(a5),d7
+	move.w	(sp)+,d0
+	cmp.w	#TkGsb-Tk,d0
+	beq.s	COn1
+	cmp.w	#TkPrc-Tk,d0
+	beq.s	COnP
+; On...Goto
+	move.w	Cjmpa0(pc),d0
+	bra.s	COnP1
+; On...Gosub
+COn1	lea	CdGsb(pc),a0
+	bsr	OutCode
+	bra.s	COn2
+; On...Proc
+COnP	moveq	#-1,d7
+	move.w	Cjsra0(pc),d0
+COnP1	bsr	OutWord
+	move.w	CNop(pc),d0
+	bsr	OutWord
+	bsr	OutWord
+	bsr	OutWord
+	bsr	OutWord
+; Bra final
+COn2	move.w	CBra(pc),d0
+	move.l	a4,d4
+	move.l	(sp)+,d5
+	bsr	OutWord
+	addq.l	#2,a4
+	bsr	MarkAd
+; Met les labels
+	move.w	(sp),d0
+	move.l	a4,-(sp)
+	move.l	a4,-(sp)
+	lsl.w	#1,d0
+	add.w	d0,a4
+COn3	move.l	a4,d0
+	move.l	a4,d4
+	move.l	(sp),a4
+	sub.l	4(sp),d0
+	bsr	OutWord
+	addq.l	#2,(sp)
+	move.l	d4,a4
+	bsr	GetLabel
+	move.w	CRts(pc),d0
+	bsr	OutWord
+	addq.l	#2,a6
+	subq.w	#1,8(sp)
+	bne.s	COn3
+; Ouf!
+	subq.l	#2,a6
+	lea	10(sp),sp
+	rts
+CdOn	moveq	#0,d1
+	move.l	(a3)+,d0
+	beq.s	CdOn1+10
+	cmp.l	d1,d0
+	bhi.s	CdOn1+10
+	lsl.w	#1,d0
+	move.w	CdOn1+10+4-2(pc,d0.w),d0
+	jsr	CdOn1+10+4(pc,d0.w)
+CdOn1	dc.w	$4321
+
+
+******* ON ERROR
+COnErr	bsr	OutLea
+	move.w	#L_OnErr0,d1
+	bsr	GetWord
+	cmp.w	#TkPrc-Tk,d0
+	beq.s	CerP
+	cmp.w	#TkGto-Tk,d0
+	bne.s	Cer0
+* On error GOTO
+	move.l	a6,-(sp)
+	bsr	GetWord
+	cmp.w	#TkEnt-Tk,d0
+	bne.s	CerG
+	bsr	GetLong
+	tst.l	d0
+	bne.s	CerG
+	addq.l	#4,sp
+	bra.s	Cer1
+CerG	move.l	(sp)+,a6
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_OnErr1,d0
+	bra	CreFonc
+* On error PROC
+CerP	moveq	#-1,d7
+	bsr	GetLabel
+	move.w	#L_OnErr2,d0
+	bra	CreFonc
+* On error RIEN
+Cer0	subq.l	#2,a6
+Cer1	move.w	#L_OnErr0,d0
+	bra	CreFonc
+
+******* RESUME
+CRes	bsr	OutLea
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	CRes0
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_Res1,d0
+	bra	CreJmp
+CRes0	move.w	#L_Res0,d0
+	bra	CreJmp
+
+******* RESUME LABEL
+CResL	bsr	OutLea
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	CResl0
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_Resl1,d0
+	bra	CreFonc
+Cresl0	move.w	#L_Resl0,d0
+	bra	CreFonc
+
+* ROUTINE -> adresse d'un label
+* OUT >>> lea label,a0
+* Retour VRAI si FIXE / FAUX si variable
+GetLabel
+	bsr	GetWord
+	cmp.w	#TkLGo-Tk,d0
+	beq	Cglab1
+	cmp.w	#TkPro-Tk,d0
+	beq	Cglab1
+; Expression
+	subq.w	#2,a6
+	addq.w	#1,Flag_Labels(a5)		; Copier la table!
+	move.w	#-1,Flag_Const(a5)
+	bsr	StockOut
+	move.w	d7,-(sp)
+	bsr	Evalue
+	move.w	(sp)+,d7
+	moveq	#L_GetLabA,d1
+	cmp.b	#2,d2
+	beq	Glab0a
+	tst.b	d2
+	beq.s	Glab0
+	bsr	FlToInt
+Glab0	moveq	#L_GetLabE,d1
+	tst.w	Flag_Const(a5)
+	bne.s	Clab0b
+; Expression variable!
+Glab0a	bsr	SautOut
+	move.w	Cmviwd6(pc),d0
+	bsr	OutWord
+	move.w	N_Proc(a5),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bra	CreFonc
+; Numero de ligne FIXE
+Clab0b	subq.w	#1,Flag_Labels(a5)
+	bsr	RestOut
+	move.l	d3,d0
+	moveq	#-1,d3
+	moveq	#0,d4
+	move.l	B_Work(a5),a2
+	move.l	a2,a0
+	bsr	HexToAsc
+	move.l	a0,a1
+	move.l	a1,d6
+	btst	#0,d6
+	beq.s	Clab0c
+	clr.b	(a1)+
+	addq.l	#1,d6
+Clab0c	sub.l	a2,d6
+	move.w	d6,d5
+	lsr.w	#1,d5
+	bsr	CLabBis
+	bra.s	Cglab0
+; Label simple
+Cglab1	bsr	RLabel
+Cglab0	move.w	CLeaa0(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	a2,d0
+	bset	#BitLabel,d0
+	bra	OutLong
+
+* ROUTINE -> Trouve / Cree / Saute le label (a6)
+* Entree D7=	Numero procedure
+* Retour A2=	Label
+RLabel
+	addq.l	#2,a6
+	moveq	#0,d0
+	bsr	GetWord
+	lsr.w	#8,d0
+	move.w	d0,d6
+	lsr.w	#1,d0
+	move.w	d0,d5
+	move.w	d0,d1
+	move.l	B_Work(a5),a1
+CLab1	bsr	GetWord
+	move.w	d0,(a1)+
+	subq.b	#1,d1
+	bne.s	CLab1
+CLabBis	move.w	d7,(a1)+
+	addq.w	#2,d6
+*	addq.w	#1,d5		Pour DBRA!
+; Recherche dans la table
+	move.l	B_Labels(a5),a2
+	moveq	#-6,d1
+CLab3	lea	6(a2,d1.w),a2
+	move.w	(a2),d1
+	beq.s	CLab5
+	cmp.w	d6,d1
+	bne.s	CLab3
+	move.l	B_Work(a5),a0
+	lea	6(a2),a1
+	move.w	d5,d0
+CLab4	cmp.w	(a0)+,(a1)+
+	bne.s	CLab3
+	dbra	d0,CLab4
+	rts
+; Cree le nouveau
+CLab5	move.w	d6,(a2)
+	move.l	a6,d0
+	bset	#31,d0
+	move.l	d0,2(a2)
+	move.l	B_Work(a5),a0
+	lea	6(a2),a1
+CLab6	move.w	(a0)+,(a1)+
+	dbra	d5,CLab6
+	lea	6(a2,d6.w),a0
+	clr.w	(a0)
+	rts
+
+* ROUTINE -> Conversion HEX- > DEC
+HexToAsc
+	tst.l 	d0
+        bpl.s	Chexy
+        move.b 	#"-",(a0)+
+        neg.l 	d0
+        bra.s 	Chexz
+Chexy:  tst 	d4
+        beq.s 	Chexz
+        move.b 	#32,(a0)+
+Chexz:  tst.l 	d3
+        bmi.s 	Chexv
+        neg.l 	d3
+        add.l 	#10,d3
+Chexv:  move.l 	#9,d4
+        lea 	Cmdx(pc),a1
+Chxx0:  move.l 	(a1)+,d1     ;table des multiples de dix
+        move.b 	#$ff,d2
+Chxx1:  addq.b 	#1,d2
+        sub.l 	d1,d0
+        bcc.s 	Chxx1
+        add.l 	d1,d0
+        tst.l 	d3
+        beq.s 	Chxx4
+        bpl.s 	Chxx3
+        btst 	#31,d4
+        bne.s 	Chxx4
+        tst 	d4
+        beq.s 	Chxx4
+        tst.b 	d2
+        beq.s 	Chxx5
+        bset 	#31,d4
+        bra.s 	Chxx4
+Chxx3:  subq.l 	#1,d3
+        bra.s 	Chxx5
+Chxx4:  add 	#48,d2
+        move.b 	d2,(a0)+
+Chxx5:  dbra 	d4,Chxx0
+        rts
+Cmdx:   dc.l 	1000000000,100000000,10000000,1000000
+        dc.l 	100000,10000,1000,100,10,1,0
+
+* ROUTINE -> BRA/JMP
+* D5= adresse en AVANT
+* D6= adresse en ARRIERE
+DoBra	move.w	CJmp(pc),d7
+	swap	d7
+	move.w	CBra(pc),d7
+* Entree pour LEA / LEA (pc)
+DoLea	tst.l	d5
+	bne.s	DBr2
+* En arriere!
+	move.l	d6,d1
+	sub.l	a4,d1
+	subq.l	#2,d1
+	cmp.l	#32764,d1
+	bge.s	Dbr1
+	cmp.l	#-32764,d1
+	ble.s	DBr1
+; Ok, en SHORT!
+DBr0	move.w	d7,d0
+	bsr	OutWord
+	move.w	d1,d0
+	bra	OutWord
+; En LONG!
+Dbr1	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	d6,d0
+	bra	OutLong
+* En avant!
+Dbr2	move.l	a4,d4
+	tst.w	Flag_Long(a5)
+	bne.s	DBr3
+; En short
+Dbr4	move.w	d7,d0
+	bsr	OutWord
+	addq.l	#2,a4
+	bra.s	MarkAd
+; En long
+Dbr3	bset	#31,d4
+	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	bsr	RelJsr
+	addq.l	#4,a4
+	bra.s	MarkAd
+
+* ROUTINE -> TEST ET BRANCHEMENT
+* D5= adresse en AVANT
+* D6= adresse en ARRIERE
+DoTest	tst.l	d5
+	bne.s	DTst2
+* En arriere!
+	move.l	d6,d1
+	sub.l	a4,d1
+	subq.l	#2,d1
+	cmp.l	#32764,d1
+	bge.s	Dtst1
+	cmp.l	#-32764,d1
+	bge.s	Dbr0
+; En LONG!
+Dtst1	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	move.w	CJmp(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	move.l	d6,d0
+	bra	OutLong
+* En Avant!
+DTst2	move.l	a4,d4
+	tst.w	Flag_Long(a5)
+	beq.s	DBr4
+; En long!
+	bset	#31,d4
+	addq.l	#2,d4
+	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	move.w	CJmp(pc),d0
+	bsr	OutWord
+	bsr	RelJsr
+	addq.l	#4,a4
+
+* Marque la table des branch forward
+MarkAd
+	movem.l	a0/a1,-(sp)
+	move.l	B_Lea(a5),a0
+MAd1	cmp.l	(a0),d5
+	addq.l	#8,a0
+	bcc.s	MAd1
+	subq.l	#8,a0
+; Fait une place
+	move.l	A_Lea(a5),a1
+MAd2	move.l	(a1),8(a1)
+	move.l	4(a1),12(a1)
+	subq.l	#8,a1
+	cmp.l	a0,a1
+	bcc.s	MAd2
+; Poke le nouveau
+	move.l	d5,(a0)+
+	move.l	d4,(a0)
+	addq.l	#8,A_Lea(a5)
+	movem.l	(sp)+,a0/a1
+	rts
+* ROUTINE -> Poke l'adresse d'une ligne
+PokeAd	move.l	a4,-(sp)
+	move.l	a4,d0
+	move.l	B_Lea(a5),a2
+	move.l	4(a2),d1
+	bmi.s	JAbs
+; Branchement (pc)
+	addq.l	#2,d1
+	move.l	d1,a4
+	sub.l	d1,d0
+	cmp.l	#32764,d0
+	bgt	ErrDoLong
+	cmp.l	#-32764,d0
+	blt	ErrDoLong
+	bsr	OutWord
+; Enleve de la table
+ETable	move.l	A_Lea(a5),a1
+PAd1	move.l	8(a2),(a2)+
+	move.l	8(a2),(a2)+
+	cmp.l	a1,a2
+	bcs.s	PAd1
+	subq.l	#8,A_Lea(a5)
+	move.l	(sp)+,a4
+	rts
+; Branchement absolu
+JAbs	bclr	#31,d1
+	addq.l	#2,d1
+	move.l	d1,a4
+	bsr	OutLong
+	bra.s	ETable
+* ROUTINE -> Depile une boucle -> A1
+UnPile	move.l	A_Bcles(a5),a1
+	sub.w	-2(a1),a1
+	move.l	a1,A_Bcles(a5)
+	subq.w	#1,N_Bcles(a5)
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Entree / Sortie
+;---------------------------------------------------------------------
+
+Lp1	lea	Lp1(pc),a4	 	; Debut expression
+	dc.w	$4321
+
+;-----> LPRINT
+CLPrnt: move.w	#1,-(sp)
+	bra.s	Cp2
+;-----> PRINT #
+CHPrnt	move.w	#-1,-(sp)
+	bsr	Expentier
+	addq.l	#2,a6
+	move.w	#L_HPrintD,d0
+	bsr	CreFonc
+	bra.s	Cp2
+;-----> PRINT
+CPrnt:  clr.w	-(sp)
+; Prend les expressions
+Cp2   	bsr	Finie
+	bne.s	Cp3
+	subq.l	#2,a6
+	moveq	#L_CRPrint,d0
+	bsr	CreFonc
+	bra	Cp13
+Cp3	lea	Lp1(pc),a0
+	bsr	OutCode
+* USING: prend la chaine et marque le using
+	clr.w	-(sp)
+	cmp.w 	#TkUsing-Tk,d0
+	bne.s 	Cp4
+	subq.w	#1,(sp)
+	bsr	Evalue
+	addq.l	#4,a6
+	cmp.b	#2,d2
+	bne	Synt
+; Prend l'expression
+Cp4     subq.l	#2,a6
+	bsr 	Evalue
+        subq.w	#1,d2
+	bmi.s	Cp5
+	beq.s	Cp6
+* Chaine
+	tst.w	(sp)+
+	bne.s	Cp4a
+	moveq	#L_PrintS,d0		; Pas using
+	tst.w	(sp)
+	beq.s	Cp7a
+	moveq	#L_PrintS,d0		; ILLEGAL!!
+	tst.w	(sp)
+	bpl.s	Cp7a
+	move.w	#L_HPrintS,d0
+	bra.s	Cp7a
+cp4a	moveq	#L_UsingS,d0		; Using
+	bra.s	Cp7a
+* Entier
+cp5	bclr	#6,2(sp)
+	move.w	#L_PrintE,d0
+	bsr	CreFonc
+	moveq	#L_UsingC,d0
+        bra.s 	Cp7
+* Float
+cp6	bset	#0,Flag_Math(a5)
+	bclr	#6,2(sp)
+	moveq	#L_PrintF,d0
+	bsr	CreFonc
+	moveq	#L_UsingC,d0
+Cp7:    and.w	(sp)+,d0
+	beq.s	Cp7b
+Cp7a	bsr 	CreFonc
+Cp7b
+; Prend le separateur
+Cp8:    bsr 	GetWord
+	cmp.w 	#TkPVir-Tk,d0
+        beq.s 	Cp13
+	bclr	#6,(sp)
+        cmp.w	#TkVir-Tk,d0
+        beq.s 	Cp11
+        subq.l 	#2,a6
+	moveq 	#L_PrtRet,d0
+        bra.s 	Cp12
+Cp11:   moveq 	#L_PrtVir,d0
+Cp12:   bsr 	CreFonc
+
+; Imprime!
+Cp13	moveq	#L_PrintX,d0
+	tst.w	(sp)
+	beq.s	Cp14
+	moveq	#L_LPrintX,d0
+	tst.w	(sp)
+	bpl.s	Cp14
+	bset	#6,(sp)
+	bne.s	Cp15
+	move.w	#L_HPrintX,d0
+Cp14	bsr	CreFonc
+Cp15
+* Encore quelque chose a imprimer?
+	bsr 	Finie
+        bne	Cp3
+
+* Termine!
+	subq.l	#2,a6
+	tst.w	(sp)+
+	rts
+
+;----------------------------------> INPUT #
+CInputH
+	move.w	#-1,-(sp)
+	move.w	#L_InputH,-(sp)
+	bra.s	CIn0
+;----------------------------------> INPUT #
+CLInputH
+	move.w	#-1,-(sp)
+	move.w	#L_LInputH,-(sp)
+CIn0	bsr	OutLea
+	bsr	Stockout
+	move.l	a6,-(sp)
+	bsr	Expentier
+	bsr	RestOut
+	addq.l	#2,a6
+	bra.s	CIn7
+;----------------------------------> LINE INPUT
+CLInput clr.w	-(sp)
+	move.w	#L_LInputC,-(sp)
+        bra.s 	CIn1
+;----------------------------------> INPUT
+CInput  clr.w	-(sp)
+	move.w	#L_InputC,-(sp)
+CIn1:   bsr	OutLea
+	bsr	GetWord
+	subq.l	#2,a6
+; Saute la chaine alphanumerique
+	clr.l	-(sp)
+	cmp.w	#TkVar-Tk,d0
+	beq.s	CIn7
+	move.l	a6,(sp)
+	bsr	Stockout
+	bsr	Evalue
+	bsr	RestOut
+	addq.l	#2,a6
+* Stocke la liste des variable ---> -(A3) / moveq #NB,d6
+CIn7:   clr.w 	-(sp)
+CIn8:  	addq.l	#2,a6
+	bsr 	VarAdr
+	bsr	AdToA0
+	and.w	#$000F,d2
+	lea	CdInp(pc),a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+	move.w	d2,d0
+	bsr	OutWord
+	addq.l	#2,a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+        addq.w 	#1,(sp)
+        bsr 	GetWord
+        cmp.w	#TkVir-Tk,d0
+        beq.s 	CIn8
+CIn9:   subq.l 	#2,a6
+******* Input clavier...
+	tst.w	8(sp)
+	bne.s	CIn11
+; Evalue la chaine
+	move.l	2(sp),d0
+	bne.s	Cin10
+	move.w	Cclrma3(pc),d0
+	bsr	OutWord
+	bra.s	CIn12
+CIn10	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	Evalue
+	move.l	2(sp),a6
+	bra.s	CIn12
+; Evalue le fichier
+CIn11	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	Expentier
+	move.l	2(sp),a6
+; Moveq nombre de params
+CIn12	move.w 	cmvqd6(pc),d0
+        move.w 	(sp)+,d1
+        move.b 	d1,d0
+        bsr 	Outword
+	addq.l	#4,sp
+; Appele la fonction
+	move.w	(sp)+,d0
+	bsr	CreFonc
+; Un point virgule?
+	tst.w	(sp)+
+	bne	CInX
+	bsr	GetWord
+	cmp.w	#TkPVir-Tk,d0
+	beq.s	CInX
+	moveq	#L_CRet,d0
+	bsr	CreFonc
+	subq.l	#2,a6
+CInX	rts
+
+CdInp	move.w 	#$ffff,-(a3)
+        move.l 	a0,-(a3)
+        dc.w 	$4321
+
+
+;-----> FIELD
+CField	bsr	OutLea
+	bsr	Stockout
+	move.l	a6,-(sp)
+	bsr	Expentier
+	bsr	RestOut
+	addq.l	#2,a6
+	clr.w	-(sp)
+Cfld1	addq.w	#1,(sp)
+	bsr	Expentier
+	addq.l	#4,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CFld1
+	subq.l	#2,a6
+; Handle fichier
+	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	Expentier
+	move.l	2(sp),a6
+; Nombre de champs
+	move.w	Cmvqd0(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+; Appelle la fontion
+	addq.l	#4,sp
+	move.w	#L_Field,d0
+	bra	CreFonc
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; ECRANS / GRAPHIQUES
+;---------------------------------------------------------------------
+
+*******	PALETTEs
+CDPal	move.w	#L_DPal,-(sp)
+	bra.s	CPal0
+CPal	move.w	#L_Pal,-(sp)
+CPal0 	bsr	OutLea
+	clr.w	-(sp)
+CPal1	addq.w	#1,(sp)
+	bsr	Expentier
+	bsr	GetWord
+	cmp.w	#TKVir-Tk,d0
+	beq.s	CPal1
+	subq.l	#2,a6
+	move.w	CMvqd0(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	(sp)+,d0
+	bsr	CreFonc
+	rts
+
+******* FADE
+CFade	bsr	OutLea
+	bsr	Expentier
+	bsr	GetWord
+	move.w	#L_FadeN,-(sp)
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CPal0
+	cmp.w	#TkTo-Tk,d0
+	beq.s	CFad1
+	subq.l	#2,a6
+	move.w	#L_Fade1,(sp)
+	bra	CFadX
+CFad1	move.w	#L_Fade2,(sp)
+	bsr	Expentier
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkVir-Tk,d0
+	bne.s	CFadX
+	move.w	#L_Fade3,(sp)
+	bsr	FnExpentier
+CFadX	move.w	(sp)+,d0
+	bra	CreFonc
+
+******* POLYLINE / POLYGON
+CPoLine	move.w	#L_Polyl,-(sp)
+	bra.s	CPol
+CPoGone	move.w	#L_Pogo,-(sp)
+CPol	clr.l	-(sp)
+	bsr	OutLea
+	bsr	GetWord
+	cmp.w	#TkTo-Tk,d0
+	beq.s	CPol1
+	subq.l	#2,a6
+	move.w	#-1,2(sp)
+	bsr	Expentier
+	addq.l	#2,a6
+	bsr	Expentier
+	addq.w	#1,(sp)
+	addq.l	#2,a6
+CPol1	addq.w	#1,(sp)
+	bsr	Expentier
+	addq.l	#2,a6
+	bsr	Expentier
+	bsr	GetWord
+	cmp.w	#TkTo-Tk,d0
+	beq.s	CPol1
+	subq.l	#2,a6
+	move.w	Cmvqd0(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	CMvqd1(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	(sp)+,d0
+	bra	CreFonc
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; MEMOIRE
+;---------------------------------------------------------------------
+
+******* BSET
+CBset	move.w	#L_Bset,-(sp)
+	bra.s	BsRout
+CBclr	move.w	#L_Bclr,-(sp)
+	bra.s	BsRout
+CBchg	move.w	#L_Bchg,-(sp)
+	bra.s	BsRout
+CBtst	addq.l	#2,a6
+	move.w	#L_BTst,-(sp)
+	bra.s	BsRout
+******* ROR / ROL
+CRorb	move.w	#L_BRor,-(sp)
+	bra.s	BsRout
+CRorw	move.w	#L_WRor,-(sp)
+	bra.s	BsRout
+CRorl	move.w	#L_LRor,-(sp)
+	bra.s	BsRout
+CRolb	move.w	#L_BRol,-(sp)
+	bra.s	BsRout
+CRolw	move.w	#L_WRol,-(sp)
+	bra.s	BsRout
+CRoll	move.w	#L_LRol,-(sp)
+******* Routine: ramene l'adresse a affecter!
+BsRout	bsr	OutLea
+	move.l	A_Stock(a5),-(sp)
+	bsr	Expentier
+	addq.l	#2,a6
+	bsr	GetWord
+	cmp.w	#TkVar-Tk,d0
+	bne.s	BsR3
+* Une variable
+BsR1	bsr	StockOut
+	move.l	a6,-(sp)
+	bsr	VarAdr
+	bsr	AdToA0
+	bsr	Finie
+	bne.s	BsR2
+	subq.l	#2,a6
+BsR0	addq.l	#4,sp
+	bra.s	BsR4
+BsR2	cmp.w	#TkPar2-Tk,d0
+	beq.s	BsR0
+	bsr	RestOut
+	move.l	(sp)+,a6
+* Une adresse
+BsR3	addq.w	#1,4(sp)
+	subq.l	#2,a6
+	bsr	Expentier
+* Fin...
+BsR4	move.l	(sp)+,A_Stock(a5)
+	move.w	(sp)+,d0
+	bra	CreFonc
+
+******* CALL
+CCall	bsr	OutLea
+	move.w	Cmva3msp(pc),d0
+	bsr	OutWord
+	move.l	a6,-(sp)
+	bsr	StockOut
+	bsr	Expentier
+	bsr	RestOut
+CCal0	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	bne.s	CCal1
+	bsr	Evalue
+	bra.s	CCal0
+CCal1	move.l	(sp)+,d0
+	pea	-2(a6)
+	move.l	d0,a6
+	bsr	Expentier
+	move.l	(sp)+,a6
+	move.w	#L_Call,d0
+	bsr	CreFonc
+	move.w	Cmvpspa3(pc),d0
+	bra	OutWord
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; BOB/SPRITES et autres
+;---------------------------------------------------------------------
+
+******* Channel
+CChannel
+	bsr	OutLea
+	bsr	Expentier
+	addq.l	#2,a6
+	bsr	GetWord
+	move.w	#L_ChaSpr,d1
+	cmp.w	#TkSpr-Tk,d0
+	beq.s	CChaX
+	move.w	#L_ChaBob,d1
+	cmp.w	#TkBob-Tk,d0
+	beq.s	CChaX
+	move.w	#L_ChaScD,d1
+	cmp.w	#TkScD-Tk,d0
+	beq.s	CChaX
+	move.w	#L_ChaScO,d1
+	cmp.w	#TkScO-Tk,d0
+	beq.s	CChaX
+	move.w	#L_ChaScS,d1
+	cmp.w	#TkScS-Tk,d0
+	beq.s	CChaX
+	move.w	#L_ChaRain,d1
+CChaX	move.w	d1,-(sp)
+	bsr	Expentier
+	move.w	(sp)+,d0
+	bra	CreFonc
+
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; MENUS
+;---------------------------------------------------------------------
+
+;-----> MENU$(,,)=
+CMenu	bsr	OutLea
+	move.w	#L_Imen1-1,-(sp)
+	bsr	MPar
+	subq.l	#2,a4
+	move.w	d1,-(sp)
+	addq.l	#2,a6
+CMenL	addq.w	#1,2(sp)
+	bsr	Evalue
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	CMenL
+	subq.l	#2,a6
+	move.w	Cmvqd7(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	(sp)+,d0
+	bra	CreFonc
+
+;-----> MENU DEL
+CMnDel	bsr	OutLea
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkPar1-Tk,d0
+	beq.s	CMnD1
+	move.w	#L_MnDl0,d0
+	bra	CreFonc
+CMnD1	bsr	MPar
+	move.w	#L_MnDl1,d0
+	bra	CreFonc
+
+;-----> SET MENU
+CSMenu	bsr	OutLea
+	move.l	a6,-(sp)
+	bsr	Stockout
+	bsr	MPar
+	bsr	Restout
+	addq.l	#2,a6
+	bsr	Expentier
+	addq.l	#2,a6
+	bsr	Expentier
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	MPar
+	move.l	(sp)+,a6
+	move.w	#L_SMen,d0
+	bra	CreFonc
+
+;-----> Instruction flags
+CXMenu
+	move.w	#L_XMen,d0
+	bra.s	GoFlag
+CYMenu
+	move.w	#L_YMen,d0
+	bra.s	GoFlag
+CmnBar
+	move.w	#L_MnBa,d0
+	bra.s	GoFlag
+Cmnline
+	move.w	#L_MnLi,d0
+	bra.s	GoFlag
+Cmntline
+	move.w	#L_Mntl,d0
+	bra.s	GoFlag
+Cmnmove
+	move.w	#L_Mnmv,d0
+	bra.s	GoFlag
+Cmnsta
+	move.w	#L_Mnst,d0
+	bra.s	GoFlag
+Cmnimove
+	move.w	#L_mnimv,d0
+	bra.s	GoFlag
+Cmnista
+	move.w	#L_mnist,d0
+	bra.s	GoFlag
+Cmnact
+	move.w	#L_Mnact,d0
+	bra.s	GoFlag
+Cmninact
+	move.w	#L_Mnina,d0
+	bra.s	GoFlag
+Cmnsep
+	move.w	#L_Mnsep,d0
+	bra.s	GoFlag
+CMnlink
+	move.w	#L_Mnlnk,d0
+	bra.s	GoFlag
+CMnCall
+	move.w	#L_MnCl,d0
+	bra.s	GoFlag
+CMnOnce
+	move.w	#L_Mnncl,d0
+;
+GoFlag	move.w	d0,-(sp)
+	bsr	OutLea
+	bsr	MPar
+	move.w	(sp)+,d0
+	bra	CreFonc
+
+;-----> MENU KEY
+CMnKey	bsr	OutLea
+	move.l	a6,-(sp)
+	bsr	Stockout
+	bsr	MPar
+	bsr	GetWord
+	cmp.w	#TkTo-Tk,d0
+	beq.s	CMnk1
+* MENU KEY (,,) seul
+	bsr	SautOut
+	subq.l	#2,a6
+	addq.l	#4,sp
+	move.w	#L_MnKey0,d0
+	bra	CreFonc
+* MENU KEY (,,) TO
+Cmnk1	bsr	RestOut
+	move.w	#L_MnKey1,-(sp)
+	bsr	Evalue
+	cmp.b	#2,d2
+	beq.s	Cmnk2
+	bsr	DoEntier
+	move.w	#L_MnKey2,(sp)
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#TkVir-Tk,d0
+	bne.s	Cmnk2
+	move.w	#L_MnKey3,(sp)
+	bsr	FnExpentier
+Cmnk2	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	MPar
+	move.w	(sp)+,d0
+	bsr 	CreFonc
+	move.l	(sp)+,a6
+	rts
+
+;-----> ON MENU got/gosub/proc
+Conmen	bsr	OutLea
+	bsr	GetWord
+	moveq	#-1,d1
+	move.w	N_Proc(a5),d7
+	cmp.w	#TkGto-Tk,d0
+	beq.s	Com0
+	addq.l	#1,d1
+	cmp.w	#TkGsb-Tk,d0
+	beq.s	Com0
+	addq.l	#1,d1
+	moveq	#-1,d7
+Com0	move.w	d1,-(sp)
+	clr.w	-(sp)
+Com1	addq.w	#1,(sp)
+	bsr	GetLabel
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	Com1
+	subq.l	#2,a6
+	move.w	Cmvqd0(pc),d0
+	move.b	3(sp),d0
+	bsr	OutWord
+	move.w	Cmvqd1(pc),d0
+	move.b	1(sp),d0
+	bsr	OutWord
+	addq.l	#4,sp
+	move.w	#L_OnMen,d0
+	bra	CreFonc
+
+;-----> Prend les parametres menus
+MPar	bsr	GetWord
+	cmp.w	#TkPar1-Tk,d0
+	beq.s	MPar1
+; Une dimension
+	subq.l	#2,a6
+	bsr	Expentier
+	move.w	Cmvqd7(pc),d0
+	bra	OutWord
+; Un objet de menu
+MPar1	clr.w	-(sp)
+MPar2	addq.w	#1,(sp)
+	bsr	Expentier
+	bsr	GetWord
+	cmp.w	#TkVir-Tk,d0
+	beq.s	MPar2
+	subq.l	#2,a6
+	move.w	Cmvqd7(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bra	OutWord
+
+
+;---------------------------------------------------------------------
+BugCode		btst	#6,CiaaPra
+		bne.s	BugCode1
+		illegal
+BugCode1	dc.w	$4321
+
+* Endproc / Param
+CdEproE		move.l	(a3)+,ParamE(a5)
+CdEproF		move.l	(a3)+,ParamF(a5)
+CdEproS		move.l	(a3)+,ParamC(a5)
+CdParE		move.l	ParamE(a5),-(a3)
+CdParF		move.l	ParamF(a5),-(a3)
+CdParS		move.l	ParamC(a5),-(a3)
+
+CJsr		jsr	$fffff0
+CBsr		bsr	CBsr
+CJmp		jmp	$fffff0
+Cjmpa0		jmp	(a0)
+Cjsra0		jsr	(a0)
+CBra		bra	CBra
+Cble		ble	Cble
+Cbge		bge	Cbge
+CbltS		blt.s	*+8
+CbgtS		bgt.s	*+8
+Cbeq		beq	CBeq
+Cbeq8		beq.s	*+8
+Cbeq10		beq.s	*+10
+Cbeq12		beq.s	*+12
+Cbne		bne	CBne
+Cbne8		bne.s	*+8
+Cbne10		bne.s	*+10
+Cbne12		bne.s	*+12
+CLea2a3a3	lea	2(a3),a3
+Clea2a0a0	lea	2(a0),a0
+Clea2a6a0	lea	2(a6),a0
+Cleapca4	lea	Cleapca4(pc),a4
+CLeapca0	lea	Cjsr(pc),a0
+Cleapca1	lea	Cjsr(pc),a1
+Cleapca2	lea	Cjsr(pc),a2
+Cleaa0		lea	$fffff0,a0
+Cleaa1		lea	$fffff0,a1
+Cleaa2		lea	$fffff0,a2
+Cmv2a0ma3	move.l	2(a0),-(a3)
+Cmv2a6Ma3	move.l	2(a6),-(a3)
+Cmvpa0Ma3	move.l	(a0),-(a3)
+Cmva3msp	move.l	a3,-(sp)
+Cmvpspa3	move.l	(sp)+,a3
+Cmva0ma3	move.l	a0,-(a3)
+Cmvi2a5		move.l	#-1,2(a5)
+Cmvd3ma3	move.l	d3,-(a3)
+Cmvima3		move.w	#0,-(a3)
+Cmvid1		move.l	#0,d1
+Cmvid5		move.l	#0,d5
+Cmviwd0		move.w	#0,d0
+Cmviwd1		move.w	#0,d1
+Cmviwd6		move.w	#0,d6
+Cmvqd0		moveq	#0,d0
+Cmvqd1		moveq	#0,d1
+Cmvqd2		moveq	#0,d2
+Cmvqd4		moveq	#0,d4
+Cmvqd6		moveq	#0,d6
+Cmvqd7		moveq	#0,d7
+CTsta3p		tst.l	(a3)+
+Cillegal	illegal
+CRts		rts
+CClrma3		clr.l	-(a3)
+Cnop		nop
+;---------------------------------------------------------------------
+		Include	"_TokTab.s"
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+;  Zone de donnees
+;---------------------------------------------------------------------
+AMOS_Save	ds.l	4
+Nom_Dos		dc.b	"dos.library",0
+Nom_Graphic	dc.b	"graphics.library",0
+Nom_IconLib	dc.b	"icon.library",0
+Def_Liste	dc.b	":AMOS_System/Compiler_Configuration",0
+HeadAMOS	dc.b	"AMOS Basic "
+SOMA		dc.b	"SOMA.",0
+_C.AMOS		dc.b	"_C.AMOS",0
+Mes_DError	dc.b	"Could not load .ENV or Compiler_Configuration file.",10,0
+Mes_OOfMem	dc.b	"Out of memory when loading Compiler_Configuration file.",10,0
+		even
+Nom_Spr		dc.b	"Sprites "
+Nom_Ico		dc.b	"Icons   "
+		even
+Mes_Return	dc.b	13,10,0
+
+		IFNE	CDebug
+Mes_Buffers:
+		dc.b	"Buffer work: ",0
+		dc.b	"Buffer relocation: ",0
+		dc.b	"Buffer object: ",0
+		dc.b	"Buffer flags local: ",0
+		dc.b	"Buffer flags global: ",0
+		dc.b	"Buffer strings: ",0
+		dc.b 	"Buffer leas: ",0
+		dc.b	"Buffer labels: ",0
+		dc.b	"Buffer loops: ",0
+		dc.b	"Buffer discin: ",0
+		dc.b	"Buffer stock: ",0
+		dc.b	0
+Mes_Bufs2	dc.b	" / ",0
+Mes_Bufs3	dc.b	" - Free: ",0
+		ENDC
+
+		even
+
+		RsReset
+Nom_Source	rs.b	108
+Nom_Objet	rs.b	108
+Nom_Liste	rs.b	108
+Nom_From	rs.b	108
+Nom_Messages	rs.b	108
+C_Pile		rs.l	1
+Flag_Source	rs.w	1
+Flag_Objet	rs.w	1
+Flag_AMOS	rs.w	1
+Flag_Errors	rs.w	1
+Flag_Default	rs.w	1
+Flag_Type	rs.w	1
+Flag_WB		rs.w	1
+Flag_Quiet	rs.w	1
+Flag_NoTests	rs.w	1
+Flag_Flash	rs.w	1
+PrintJSR	rs.l	1
+C_GfxBase	rs.l	1
+C_DosBase	rs.l	1
+C_IconBase	rs.l	1
+C_Icon		rs.l	1
+AMOS_Dz		rs.l	1
+
+OldRel		rs.l	1
+DebRel		rs.l	1
+Sa3		rs.l	1
+Sa4		rs.l	1
+SOldRel		rs.l	1
+A_Chaines	rs.l	1
+A_Bcles		rs.l	1
+A_Lea		rs.l	1
+A_Proc		rs.l	1
+N_Bcles		rs.w	1
+N_Proc		rs.w	1
+Flag_Const	rs.w	1
+Flag_Labels	rs.w	1
+Flag_Procs	rs.w	1
+OFlag_Labels	rs.w	1
+OFlag_Procs	rs.w	1
+Flag_Long	rs.w	1
+Flag_Val	rs.w	1
+Flag_Math	rs.w	1
+AdAdress	rs.l	1
+AdAdAdress	rs.l	1
+F_Proc		rs.l	1
+A_FlagVarL	rs.l	1
+L_Buf		rs.l	1
+P_Source	rs.l	1
+A_Banks		rs.l	1
+A_InitMath	rs.l	1
+A_Dfn		rs.l	1
+N_Dfn		rs.w	1
+A_Datas		rs.l	1
+A_ADatas	rs.l	1
+A_EDatas	rs.l	1
+A_JDatas	rs.l	1
+A_Stock		rs.l	1
+AA_Proc		rs.l	1
+AA_EProc	rs.l	1
+AA_SBuf		rs.l	1
+AA_Reloc	rs.l	1
+AA_Long		rs.l	1
+MaxMem		rs.l	1
+Pour_Cpt	rs.w	1
+Pour_Base	rs.w	1
+Pour_Pos	rs.w	1
+L_Reloc		rs.w	1
+M_ForNext	rs.w	1
+MM_ForNext	rs.w	1
+NbInstr		rs.w	1
+IconAMOS	rs.w	1
+
+* Source
+L_Source	rs.l	1
+NL_Source	rs.w	1
+DebBso		rs.l	1
+FinBso		rs.l	1
+MaxBso		rs.l	1
+BordBso		rs.l	1
+TopSou		rs.l	1
+L_Bso		rs.l	1
+
+* Objet
+L_Objet		rs.l	1
+DebBob		rs.l	1
+FinBob		rs.l	1
+MaxBob		rs.l	1
+TopOb		rs.l	1
+BordBob		rs.l	1
+BB_Objet_Base	rs.l	1
+BB_Objet	rs.l	1
+L_Bob		rs.l	1
+
+* Banques
+N_Banks		rs.w	1
+
+* Disque
+L_DiscIn	rs.l	1
+T_Handles	rs.l	M_Fichiers
+P_Clib		rs.l	1
+T_Clib		rs.l	1
+MaxClibs	rs.w	1
+
+* Table des hunks
+T_Hunks		rs.l	24*2
+
+* Buffers reserves
+InBuf		rs.l	1
+InBufs		rs.l	1
+
+D_Buffers	equ	__Rs
+B_Noms		rs.l	1
+B_Pointeurs	rs.l	1
+B_Work		rs.l	1
+B_Reloc		rs.l	1
+B_Objet		rs.l	1
+B_FlagVarL	rs.l	1
+B_FlagVarG	rs.l	1
+B_Chaines	rs.l	1
+B_Lea		rs.l	1
+B_Labels	rs.l	1
+B_Bcles		rs.l	1
+B_DiskIn	rs.l	1
+B_Stock		rs.l	1
+B_Source	rs.l	1
+BufLibs		rs.l	M_Libs
+BufToks		rs.l	M_Libs
+F_Buffers	equ	__Rs
+
+LDZ		equ	__Rs
+
+		even
+DZ		ds.b	LDZ
+		even
diff --git a/AMOSPro Sources/+copyall b/AMOSPro Sources/+copyall
new file mode 100644
index 0000000..cb1b923
--- /dev/null
+++ b/AMOSPro Sources/+copyall	
@@ -0,0 +1,3 @@
++Assigns
++CopyCompiler
++CopyExtras
diff --git a/AMOSPro Sources/+copycompiler b/AMOSPro Sources/+copycompiler
new file mode 100644
index 0000000..b7816f8
--- /dev/null
+++ b/AMOSPro Sources/+copycompiler	
@@ -0,0 +1,47 @@
+
+IF EXISTS AP2:+Debug_On
+	ECHO "------------------------------------------------------------------"
+	ECHO "---------------------------Mode debug ON--------------------------"
+	ECHO "------------------------------------------------------------------"
+ENDIF
+
++Assigns
+
+Compiler
+
+Delete APC_Compiler:APSystem/#? ALL
+
+Copy AMOSPro_System:APSystem/AMOSPro.Lib 		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_Compact.Lib 	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_Request.Lib 	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_Music.Lib 		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_IOPorts.Lib 	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_Compiler.Lib 	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/Compiler.Lib 		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/APCmp 			APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/Header_CLI.Lib 		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/Header_Backstart.Lib 	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/Header_AMOS.AMOS 		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/Def_Compiled.info		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_Default_Resource.Abk	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_CompilerA_Resource.Abk	APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/AMOSPro_Editor_Config		APC_Compiler:APSystem/
+Copy AMOSPro_System:APSystem/Locate_APSystem.info	APC_Compiler:APSystem/
+
+Copy S:AMOSPro_Interpreter_Config 			APC_Compiler:S/
+Copy S:AMOSPro_Compiler_Config 				APC_Compiler:S/
+Copy Libs:AMOS.Library	 				APC_Compiler:Libs/
+
+Copy AMOSPro_Compiler:Compiler_Shell.AMOS To 		APC_Compiler:
+Copy AMOSPro_Compiler:Tiny_Shell.AMOS To 		APC_Compiler:
+
+APCmp AMOSPro_Compiler:Compiler_Shell.AMOS TO AMOSPro_System:Compiler_Shell TYPE=1 NOERR NODEF LIBS=APro:APSystem/
+Copy AMOSPro_System:Compiler_Shell TO APC_Compiler:
+APCmp AP2:Dot_AMOS/Compiler_Install.AMOS TO APC_Compiler:Compiler_Install TYPE=1 NOERR NODEF LIBS=APro:APSystem/
+Squash APC_Compiler:Compiler_Install
+
+APCmp AP2:Dot_AMOS/Locate_APSystem.AMOS TO AMOSPro_System:APSystem/Locate_APSystem TYPE=1 NOERR NODEF WB LIBS=APro:APSystem/
+Squash AMOSPro_System:APSystem/Locate_APSystem
+Copy AMOSPro_System:APSystem/Locate_APSystem 		APC_Compiler:APSystem/
+
+Francois
diff --git a/AMOSPro Sources/+copyextras b/AMOSPro Sources/+copyextras
new file mode 100644
index 0000000..2c37c15
--- /dev/null
+++ b/AMOSPro Sources/+copyextras	
@@ -0,0 +1,36 @@
+
+IF EXISTS AP2:+Debug_On
+	ECHO "------------------------------------------------------------------"
+	ECHO "---------------------------Mode debug ON--------------------------"
+	ECHO "------------------------------------------------------------------"
+ENDIF
+
++Assigns
+
+Compiler
+
+Delete APC_Extras:Compiler_Help/#? ALL
+
+Copy AMOSPro_System:Interpreter_Config.AMOS		APC_Extras:
+Copy AMOSPro_System:Editor_Config.AMOS			APC_Extras:
+
+Copy AMOSPro_Extras:Compiler_Examples			APC_Extras:Compiler_Examples ALL
+Copy AMOSPro_Extras:Compiler_Help/Compiler_Help.Txt	APC_Extras:Compiler_Help/
+Copy AMOSPro_Extras:Compiler_Help/Compiler_Help.Map	APC_Extras:Compiler_Help/
+Copy AMOSPro_Extras:Boot_Disk_Maker.AMOS		APC_Extras:
+
+APCmp AMOSPro_Accessories:AMOSPro_Help/AMOSPro_Help.AMOS TO AMOSPro_Extras:Compiler_Help/AMOSPro_Help TYPE=1 NOERR NODEF LIBS=APro:APSystem/
+Copy AMOSPro_Extras:Compiler_Help/AMOSPro_Help TO APC_Extras:Compiler_Help/
+
+APCmp AMOSPro_System:Interpreter_Config.AMOS TO AMOSPro_Extras:Interpreter_Config TYPE=1 NOERR NODEF LIBS=APro:APSystem/
+Copy AMOSPro_Extras:Interpreter_Config TO APC_Extras:
+
+Copy AMOSPro_Accessories:AMOSPro_Help/AMOSPro_Help.AMOS TO APC_Extras:Compiler_Help/
+
+Delete APC_Extras:Compiler_Examples/AMOS_Versions/#?.Bak
+Delete APC_Extras:Compiler_Examples/AMOS_Versions/Galax/#?.Bak
+Delete APC_Extras:Compiler_Examples/Easy-AMOS_Versions/#?.Bak
+Delete APC_Extras:Compiler_Examples/Graphics/#?.Bak
+Delete APC_Extras:#?.Bak
+
+Francois
diff --git a/AMOSPro Sources/+copyfiles b/AMOSPro Sources/+copyfiles
new file mode 100644
index 0000000..1a81338
--- /dev/null
+++ b/AMOSPro Sources/+copyfiles	
@@ -0,0 +1,24 @@
+
+Copy APro:APSystem/AMOSPro.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Compact.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Request.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Music.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_IOPorts.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Editor Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Monitor Net:Work/AMOS_Pro/APSystem/
+Copy APro:AMOSPro Net:Work/AMOS_Pro/
+
+Copy APro:APSystem/AMOSPro_Compiler.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/Compiler.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/APCmp Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/APCmp Net:Sys/C/
+Copy APro:APSystem/Header_CLI.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/Header_Backstart.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/Header_AMOS.AMOS Net:Work/AMOS_Pro/APSystem/
+
+Copy S:AMOSPro_Interpreter_Config Net:Sys/s/
+Copy S:AMOSPro_Compiler_Config Net:Sys/s/
+
+;Copy Instructions_ATester.Asc Net:Work/AMOS_Pro/
+;Copy Instructions_Testees.Asc Net:Work/AMOS_Pro/
+
diff --git a/AMOSPro Sources/+debug2.s b/AMOSPro Sources/+debug2.s
new file mode 100644
index 0000000..3c92290
--- /dev/null
+++ b/AMOSPro Sources/+debug2.s	
@@ -0,0 +1,4 @@
+
+; Debugging!
+; ~~~~~~~~~~
+Debug		set	2
diff --git a/AMOSPro Sources/+internal_jumps.s b/AMOSPro Sources/+internal_jumps.s
new file mode 100644
index 0000000..69accc7
--- /dev/null
+++ b/AMOSPro Sources/+internal_jumps.s	
@@ -0,0 +1,160 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; AMOSPro Internal Jump list on the 06-06-1996 01:47:34
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	dc.w	L_Edit_Load
+	dc.l	Edit_Load
+	dc.w	L_Edit_Free
+	dc.l	Edit_Free
+	dc.w	L_Mon_Load
+	dc.l	Mon_Load
+	dc.w	L_Mon_Free
+	dc.l	Mon_Free
+	dc.w	L_Tk_FindA
+	dc.l	Tk_FindA
+	dc.w	L_Tk_EditL
+	dc.l	Tk_EditL
+	dc.w	L_Tk_FindL
+	dc.l	Tk_FindL
+	dc.w	L_Tk_FindN
+	dc.l	Tk_FindN
+	dc.w	L_Tk_SizeL
+	dc.l	Tk_SizeL
+	dc.w	L_Prg_RunIt
+	dc.l	Prg_RunIt
+	dc.w	L_Prg_TestIt
+	dc.l	Prg_TestIt
+	dc.w	L_Prg_Save
+	dc.l	Prg_Save
+	dc.w	L_Prg_Load
+	dc.l	Prg_Load
+	dc.w	L_Prg_New
+	dc.l	Prg_New
+	dc.w	L_Prg_NewStructure
+	dc.l	Prg_NewStructure
+	dc.w	L_Prg_DelStructure
+	dc.l	Prg_DelStructure
+	dc.w	L_Prg_AccAdr
+	dc.l	Prg_AccAdr
+	dc.w	L_Prg_DejaRunned
+	dc.l	Prg_DejaRunned
+	dc.w	L_Prg_DataLoad
+	dc.l	Prg_DataLoad
+	dc.w	L_Prg_DataSave
+	dc.l	Prg_DataSave
+	dc.w	L_Prg_DataNew
+	dc.l	Prg_DataNew
+	dc.w	L_Prg_CptLines
+	dc.l	Prg_CptLines
+	dc.w	L_Prg_ChgTTexte
+	dc.l	Prg_ChgTTexte
+	dc.w	L_Prg_SetBanks
+	dc.l	Prg_SetBanks
+	dc.w	L_Prg_ReSetBanks
+	dc.l	Prg_ReSetBanks
+	dc.w	L_Prg_SetBanks
+	dc.l	Prg_SetBanks
+	dc.w	L_Prg_Pull
+	dc.l	Prg_Pull
+	dc.w	L_ClearVar
+	dc.l	ClearVar
+	dc.w	L_PTest
+	dc.l	PTest
+	dc.w	L_SsTest
+	dc.l	SsTest
+	dc.w	L_ResVNom
+	dc.l	ResVNom
+	dc.w	L_ResDir
+	dc.l	ResDir
+	dc.w	L_ResVarBuf
+	dc.l	ResVarBuf
+	dc.w	L_VerDirect
+	dc.l	VerDirect
+	dc.w	L_Stack_Reserve
+	dc.l	Stack_Reserve
+	dc.w	L_Includes_Clear
+	dc.l	Includes_Clear
+	dc.w	L_Includes_Adr
+	dc.l	Includes_Adr
+	dc.w	L_Equ_Free
+	dc.l	Equ_Free
+	dc.w	L_RamFast
+	dc.l	RamFast
+	dc.w	L_RamFast2
+	dc.l	RamFast2
+	dc.w	L_RamChip
+	dc.l	RamChip
+	dc.w	L_RamChip2
+	dc.l	RamChip2
+	dc.w	L_RamFree
+	dc.l	RamFree
+	dc.w	L_ResTempBuffer
+	dc.l	ResTempBuffer
+	dc.w	L_Math_Close
+	dc.l	Math_Close
+	dc.w	L_Sys_WaitMul
+	dc.l	Sys_WaitMul
+	dc.w	L_Def_GetMessage
+	dc.l	Def_GetMessage
+	dc.w	L_Sys_GetMessage
+	dc.l	Sys_GetMessage
+	dc.w	L_GetMessage
+	dc.l	GetMessage
+	dc.w	L_Sys_AddPath
+	dc.l	Sys_AddPath
+	dc.w	L_Sys_UnCode
+	dc.l	Sys_UnCode
+	dc.w	L_MemMaximum
+	dc.l	MemMaximum
+	dc.w	L_MemDelBanks
+	dc.l	MemDelBanks
+	dc.w	L_TheEnd
+	dc.l	TheEnd
+	dc.w	L_UserReg
+	dc.l	UserReg
+	dc.w	L_VersionN
+	dc.l	VersionN
+	dc.w	L_BugBug
+	dc.l	BugBug
+	dc.w	L_PreBug
+	dc.l	PreBug
+	dc.w	L_Sys_ClearCache
+	dc.l	Sys_ClearCache
+	dc.w	L_WOption
+	dc.l	WOption
+	dc.w	L_ReCop
+	dc.l	ReCop
+	dc.w	L_Lst.ChipNew
+	dc.l	Lst.ChipNew
+	dc.w	L_Lst.New
+	dc.l	Lst.New
+	dc.w	L_Lst.Cree
+	dc.l	Lst.Cree
+	dc.w	L_Lst.DelAll
+	dc.l	Lst.DelAll
+	dc.w	L_Lst.Del
+	dc.l	Lst.Del
+	dc.w	L_Lst.Insert
+	dc.l	Lst.Insert
+	dc.w	L_Lst.Remove
+	dc.l	Lst.Remove
+	dc.w	L_Bnk.PrevProgram
+	dc.l	Bnk.PrevProgram
+	dc.w	L_Bnk.CurProgram
+	dc.l	Bnk.CurProgram
+	dc.w	L_AskDir
+	dc.l	AskDir
+	dc.w	L_AskDir2
+	dc.l	AskDir2
+	dc.w	L_Bnk.PrevProgram
+	dc.l	Bnk.PrevProgram
+	dc.w	L_Bnk.CurProgram
+	dc.l	Bnk.CurProgram
+	dc.w	L_InCloseEditor
+	dc.l	InCloseEditor
+	dc.w	L_InKillEditor
+	dc.l	InKillEditor
+	dc.w	L_InMonitor
+	dc.l	InMonitor
+	dc.w	0
+	dc.l	0
diff --git a/AMOSPro Sources/+lequ.s b/AMOSPro Sources/+lequ.s
new file mode 100644
index 0000000..60c06e3
--- /dev/null
+++ b/AMOSPro Sources/+lequ.s	
@@ -0,0 +1,1493 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; AMOSPro Internal Library functions on the 06-06-1996 01:47:34
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Init:			set	0
+L_Edit_Load:		set	1
+L_Edit_Free:		set	2
+L_Mon_Load:		set	3
+L_Mon_Free:		set	4
+L_Mon_Start:		set	5
+L_Mon_In_Editor:	set	6
+L_Mon_In_Program:	set	7
+L_Mon_MonitorChr:	set	8
+L_Mon_Free2:		set	9
+L_Mon_Free3:		set	10
+L_Ed_Start:		set	11
+L_Ed_Cold:		set	12
+L_Ed_Title:		set	13
+L_Ed_End:		set	14
+L_Ed_Loop:		set	15
+L_Ed_ErrRun:		set	16
+L_Ed_CloseEditor:	set	17
+L_Ed_KillEditor:	set	18
+L_Ed_ZapFonction:	set	19
+L_Ed_ZapIn:		set	20
+L_Ed_RunDirect:		set	21
+L_Tokenise:		set	22
+L_Detok:		set	23
+L_Mon_Detok:		set	24
+L_TInst:		set	25
+L_Ed_Free1:		set	26
+L_Ed_Free2:		set	27
+L_Ed_Free3:		set	28
+L_Ed_Free1:		set	29
+L_Ed_Free2:		set	30
+L_Tk_FindA:		set	31
+L_Tk_EditL:		set	32
+L_Tk_FindL:		set	33
+L_Tk_FindN:		set	34
+L_Tk_SizeL:		set	35
+L_Prg_RunIt:		set	36
+L_Prg_TestIt:		set	37
+L_Prg_Save:		set	38
+L_Prg_Load:		set	39
+L_Prg_New:		set	40
+L_Prg_NewStructure:	set	41
+L_Prg_DelStructure:	set	42
+L_Prg_AccAdr:		set	43
+L_Prg_DejaRunned:	set	44
+L_Prg_DataLoad:		set	45
+L_Prg_DataSave:		set	46
+L_Prg_DataNew:		set	47
+L_Prg_CptLines:		set	48
+L_Prg_ChgTTexte:	set	49
+L_Prg_SetBanks:		set	50
+L_Prg_ReSetBanks:	set	51
+L_Prg_SetBanks:		set	52
+L_Prg_Pull:		set	53
+L_ClearVar:		set	54
+L_PTest:		set	55
+L_SsTest:		set	56
+L_ResVNom:		set	57
+L_ResDir:		set	58
+L_ResVarBuf:		set	59
+L_VerDirect:		set	60
+L_Stack_Reserve:	set	61
+L_Includes_Clear:	set	62
+L_Includes_Adr:		set	63
+L_Equ_Free:		set	64
+L_RamFast:		set	65
+L_RamFast2:		set	66
+L_RamChip:		set	67
+L_RamChip2:		set	68
+L_RamFree:		set	69
+L_ResTempBuffer:	set	70
+L_Math_Close:		set	71
+L_Sys_WaitMul:		set	72
+L_Def_GetMessage:	set	73
+L_Sys_GetMessage:	set	74
+L_GetMessage:		set	75
+L_Sys_AddPath:		set	76
+L_Sys_GetPath:		set	77
+L_Sys_UnCode:		set	78
+L_MemMaximum:		set	79
+L_MemDelBanks:		set	80
+L_TheEnd:		set	81
+L_UserReg:		set	82
+L_VersionN:		set	83
+L_BugBug:		set	84
+L_PreBug:		set	85
+L_Sys_ClearCache:	set	86
+L_WOption:		set	87
+L_ReCop:		set	88
+L_Lst.ChipNew:		set	89
+L_Lst.New:		set	90
+L_Lst.Cree:		set	91
+L_Lst.DelAll:		set	92
+L_Lst.Del:		set	93
+L_Lst.Insert:		set	94
+L_Lst.Remove:		set	95
+L_Bnk.PrevProgram:	set	96
+L_Bnk.CurProgram:	set	97
+L_AskDir:		set	98
+L_AskDir2:		set	99
+L_Tokenisation:		set	100
+L_Testing:		set	101
+L_CValRout:		set	102
+L_CmpInit1:		set	103
+L_CmpInit2:		set	104
+L_AMOSInit:		set	105
+L_CmpDbMode:		set	106
+L_CmpLineCLI:		set	107
+L_CmpLineSER:		set	108
+L_CmpPrintCLI:		set	109
+L_CmpPrintSER:		set	110
+L_CmpEffVarBuf:		set	111
+L_CmpLibrariesInit:	set	112
+L_CmpLibrariesStop:	set	113
+L_CmpEndRoutines:	set	114
+L_CmpLibClose:		set	115
+L_CmpClearVar:		set	116
+L_PlusF:		set	117
+L_PlusC:		set	118
+L_MoinsF:		set	119
+L_MoinsC:		set	120
+L_MultE:		set	121
+L_MultF:		set	122
+L_DiviseE:		set	123
+L_DiviseF:		set	124
+L_Puissance:		set	125
+L_Modulo:		set	126
+L_Chaine_Compare:	set	127
+L_DefRun1:		set	128
+L_DefRun2:		set	129
+L_DefRunAcc:		set	130
+L_DefRunExtensions:	set	131
+L_SetChrPatch:		set	132
+L_Pos_IRet:		set	133
+L_New_ChrGet:		set	134
+L_InEnd:		set	135
+L_InExtCall:		set	136
+L_FnExtCall:		set	137
+L_Open_MathLibraries:	set	138
+L_Parameters:		set	139
+L_Test_PaSaut:		set	140
+L_Test_Normal:		set	141
+L_Test_Force:		set	142
+L_GoMenu:		set	143
+L_OnBreakGo:		set	144
+L_EveJump:		set	145
+L_RIllDir:		set	146
+L_OOfData:		set	147
+L_OOfBuf:		set	148
+L_InpTL:		set	149
+L_EProErr:		set	150
+L_ResLNo:		set	151
+L_NoOnErr:		set	152
+L_ResPLab:		set	153
+L_NoResume:		set	154
+L_NoErr:		set	155
+L_OofStack:		set	156
+L_NonDim:		set	157
+L_AlrDim:		set	158
+L_DByZero:		set	159
+L_OverFlow:		set	160
+L_RetGsb:		set	161
+L_PopGsb:		set	162
+L_Error:		set	163
+L_ErrorExt:		set	164
+L_Start_Type:		set	165
+L_InAPCmp:		set	166
+L_InAPCmpCLI:		set	167
+L_InRun0:		set	168
+L_InRun0CLI:		set	169
+L_InRun1:		set	170
+L_InRun1CLI:		set	171
+L_InPRun:		set	172
+L_InPRunCLI:		set	173
+L_InAskEditor1:		set	174
+L_InAskEditor1CLI:	set	175
+L_InAskEditor2:		set	176
+L_InAskEditor2CLI:	set	177
+L_InAskEditor3:		set	178
+L_InAskEditor3CLI:	set	179
+L_InCallEditor1:	set	180
+L_InCallEditor1CLI:	set	181
+L_InCallEditor2:	set	182
+L_InCallEditor2CLI:	set	183
+L_InCallEditor3:	set	184
+L_InCallEditor3CLI:	set	185
+L_Bnk.PrevProgram:	set	186
+L_Bnk.PrevProgramCLI:	set	187
+L_Bnk.CurProgram:	set	188
+L_Bnk.CurProgramCLI:	set	189
+L_FnPrgUnder:		set	190
+L_FnPrgUnderCLI:	set	191
+L_InCloseEditor:	set	192
+L_InCloseEditorCLI:	set	193
+L_InKillEditor:		set	194
+L_InKillEditorCLI:	set	195
+L_InMonitor:		set	196
+L_InMonitorCLI:		set	197
+L_End_Type:		set	198
+L_RunName:		set	199
+L_Ed_Par:		set	200
+L_ZapReturn:		set	201
+L_FnPrgState:		set	202
+L_GetInstruction:	set	203
+L_GetInstruction2:	set	204
+L_InRem:		set	205
+L_InSetBuffer:		set	206
+L_InLab:		set	207
+L_InSystem:		set	208
+L_InEdit:		set	209
+L_InDirect:		set	210
+L_InBreakOn:		set	211
+L_InBreakOff:		set	212
+L_InOnBreak:		set	213
+L_InOnError:		set	214
+L_InOnErrorGoto:	set	215
+L_InOnErrorProc:	set	216
+L_InResumeLabel:	set	217
+L_InResumeLabel1:	set	218
+L_InResume:		set	219
+L_InResume1:		set	220
+L_InResumeNext:		set	221
+L_InTrap:		set	222
+L_FnErrTrap:		set	223
+L_InEveryGosub:		set	224
+L_InEveryProc:		set	225
+L_InEvery:		set	226
+L_InEveryOff:		set	227
+L_InEveryOn:		set	228
+L_InFor:		set	229
+L_InNext:		set	230
+L_InNextF:		set	231
+L_InNextD:		set	232
+L_InRepeat:		set	233
+L_InUntil:		set	234
+L_InWhile:		set	235
+L_InWend:		set	236
+L_InDo:			set	237
+L_InLoop:		set	238
+L_InExit:		set	239
+L_InExitIf:		set	240
+L_InIf:			set	241
+L_InElseIf:		set	242
+L_InElse:		set	243
+L_FnElse:		set	244
+L_InGosub:		set	245
+L_InReturn:		set	246
+L_InPop:		set	247
+L_DProc1:		set	248
+L_DProc2F:		set	249
+L_DProc2D:		set	250
+L_FProc:		set	251
+L_PrgInF:		set	252
+L_PrgInD:		set	253
+L_InProcedure:		set	254
+L_InProc:		set	255
+L_CallProc:		set	256
+L_InEndProc:		set	257
+L_InPopProc:		set	258
+L_PopP:			set	259
+L_Goto2:		set	260
+L_InGoto:		set	261
+L_InOn:			set	262
+L_GetLabelE:		set	263
+L_GetLabelA:		set	264
+L_GetLabel:		set	265
+L_Finie:		set	266
+L_TInst:		set	267
+L_L_OpeNul:		set	268
+L_Fn_New_Evalue:	set	269
+L_New_Evalue:		set	270
+L_InNull:		set	271
+L_FnNull:		set	272
+L_InVar:		set	273
+L_FnVar:		set	274
+L_InDim:		set	275
+L_GetTablo:		set	276
+L_FnVarPtr:		set	277
+L_FnArray:		set	278
+L_FnCEntier:		set	279
+L_FnCstFl:		set	280
+L_FnCstDFl:		set	281
+L_FnCstCh:		set	282
+L_InShared:		set	283
+L_InDFn:		set	284
+L_FnFn:			set	285
+L_InSwap:		set	286
+L_InSwapD:		set	287
+L_FnNot:		set	288
+L_FnMax:		set	289
+L_FnMaxS:		set	290
+L_FnMin:		set	291
+L_FnMinS:		set	292
+L_InInc:		set	293
+L_InDec:		set	294
+L_InAdd2:		set	295
+L_InAdd4:		set	296
+L_InSort:		set	297
+L_FnMatch:		set	298
+L_GTablo:		set	299
+L_AdSort:		set	300
+L_CpBis:		set	301
+L_InData:		set	302
+L_InRead:		set	303
+L_InReadF:		set	304
+L_InReadS:		set	305
+L_InRestore:		set	306
+L_InRestore1:		set	307
+L_InField:		set	308
+L_InLineInputH:		set	309
+L_InInputH:		set	310
+L_InInput:		set	311
+L_InLineInput:		set	312
+L_Input:		set	313
+L_CRet:			set	314
+L_InPrintH:		set	315
+L_InLPrint:		set	316
+L_InPrint:		set	317
+L_PrintE:		set	318
+L_PrintF:		set	319
+L_PrintS:		set	320
+L_PrintX:		set	321
+L_LPrintX:		set	322
+L_CRPrint:		set	323
+L_HPrintS:		set	324
+L_PrtRet:		set	325
+L_PrtVir:		set	326
+L_HPrintX:		set	327
+L_UsingC:		set	328
+L_UsingS:		set	329
+L_InDefaultPalette:	set	330
+L_InPalette:		set	331
+L_Plt:			set	332
+L_InFade1:		set	333
+L_InFade2:		set	334
+L_InFade3:		set	335
+L_InFadePal:		set	336
+L_InFade:		set	337
+L_InPolyline:		set	338
+L_InPolygon:		set	339
+L_ChannelToSprite:	set	340
+L_ChannelToBob:		set	341
+L_ChannelToSDisplay:	set	342
+L_ChannelToSSize:	set	343
+L_ChannelToSOffset:	set	344
+L_ChannelToRainbow:	set	345
+L_InChannel:		set	346
+L_InBset:		set	347
+L_InBset1:		set	348
+L_InBclr:		set	349
+L_InBclr1:		set	350
+L_InBchg:		set	351
+L_InBchg1:		set	352
+L_FnBtst:		set	353
+L_FnBtst1:		set	354
+L_InRorB:		set	355
+L_InRorB1:		set	356
+L_InRorW:		set	357
+L_InRorW1:		set	358
+L_InRorL:		set	359
+L_InRorL1:		set	360
+L_InRolB:		set	361
+L_InRolB1:		set	362
+L_InRolW:		set	363
+L_InRolW1:		set	364
+L_InRolL:		set	365
+L_InRolL1:		set	366
+L_In_apml_:		set	367
+L_InCall:		set	368
+L_FnEqu:		set	369
+L_InStruc:		set	370
+L_FnStruc:		set	371
+L_InStrucD:		set	372
+L_FnStrucD:		set	373
+L_Demande:		set	374
+L_DDemande:		set	375
+L_Menage:		set	376
+L_InLeft:		set	377
+L_FnLeft:		set	378
+L_InRight:		set	379
+L_FnRight:		set	380
+L_InMid2:		set	381
+L_FnMid2:		set	382
+L_InMid3:		set	383
+L_FnMid3:		set	384
+L_RFnMid:		set	385
+L_RInMid:		set	386
+L_RInMid2:		set	387
+L_FnVal:		set	388
+L_FnResource:		set	389
+L_InMenuKey:		set	390
+L_InMenuKey1:		set	391
+L_InMenuKey2:		set	392
+L_InMenuKey3:		set	393
+L_MnKy:			set	394
+L_InOnMenu:		set	395
+L_InMenu:		set	396
+L_InMenu2:		set	397
+L_InMenu3:		set	398
+L_InMenu4:		set	399
+L_InMenuDel:		set	400
+L_InMenuDel1:		set	401
+L_InSetMenu:		set	402
+L_MnDim:		set	403
+L_MenuProcedure:	set	404
+L_ValRout:		set	405
+L_Start_FloatSwap:	set	406
+L_CmpInitFloat:		set	407
+L_CmpInitDouble:	set	408
+L_IntToFl1:		set	409
+L_DIntToFl1:		set	410
+L_IntToFl2:		set	411
+L_DIntToFl2:		set	412
+L_FlToInt1:		set	413
+L_DFlToInt1:		set	414
+L_FlToInt2:		set	415
+L_DFlToInt2:		set	416
+L_Math_Fonction:	set	417
+L_DMath_Fonction:	set	418
+L_Float_Compare:	set	419
+L_DFloat_Compare:	set	420
+L_Float_Operation:	set	421
+L_DFloat_Operation:	set	422
+L_Float_Test:		set	423
+L_Float_TestF:		set	424
+L_Math_Operation:	set	425
+L_DMath_Operation:	set	426
+L_Float_Fonction:	set	427
+L_DFloat_Fonction:	set	428
+L_FlPos:		set	429
+L_FlPosD:		set	430
+L_AAngle:		set	431
+L_AAngleD:		set	432
+L_FFAngle:		set	433
+L_FAngleD:		set	434
+L_FnParamF:		set	435
+L_FnParamD:		set	436
+L_Ascii2Float:		set	437
+L_Ascii2FloatD:		set	438
+L_Float2Ascii:		set	439
+L_Float2AsciiD:		set	440
+L_FnMaxF:		set	441
+L_FnMaxD:		set	442
+L_FnMinF:		set	443
+L_FnMinD:		set	444
+L_End_FloatSwap:	set	445
+; Main library
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MainLibrary:		set	500
+L_FnErrn:		set	501
+L_FnErrD:		set	502
+L_FnSgn:		set	503
+L_FnSgnF:		set	504
+L_FnStrE:		set	505
+L_FnStrF:		set	506
+L_FnAbs:		set	507
+L_FnAbsF:		set	508
+L_FnInt:		set	509
+L_FnIntF:		set	510
+L_FnTan:		set	511
+L_FnSqr:		set	512
+L_FnLog:		set	513
+L_FnLn:			set	514
+L_FnExp:		set	515
+L_FnSin:		set	516
+L_FnCos:		set	517
+L_FnASin:		set	518
+L_FnACos:		set	519
+L_FnATan:		set	520
+L_FnHSin:		set	521
+L_FnHCos:		set	522
+L_FnHTan:		set	523
+L_InRadian:		set	524
+L_InDegree:		set	525
+L_InFix:		set	526
+L_FnRnd:		set	527
+L_Mulu32:		set	528
+L_InRandom:		set	529
+L_InTimer:		set	530
+L_FnTimer:		set	531
+L_FnPi:			set	532
+L_InWait:		set	533
+L_Wait_Normal:		set	534
+L_WaitRout:		set	535
+L_Wait_Event:		set	536
+L_InMWait:		set	537
+L_InWtVbl:		set	538
+L_InWtKy:		set	539
+L_InKeySpeed:		set	540
+L_FnParamS:		set	541
+L_FnParamE:		set	542
+L_InListBank:		set	543
+L_InErase:		set	544
+L_InEraseTemp:		set	545
+L_InEraseAll:		set	546
+L_InBankSwap:		set	547
+L_FnBStart:		set	548
+L_FnBLength:		set	549
+L_InBGrab:		set	550
+L_InBSend:		set	551
+L_InInsSprite:		set	552
+L_InInsIcon:		set	553
+L_InDelIcon1:		set	554
+L_InDelIcon2:		set	555
+L_InDelSprite1:		set	556
+L_InDelSprite2:		set	557
+L_IDIc3:		set	558
+L_InResWork:		set	559
+L_InResChipWork:	set	560
+L_InResData:		set	561
+L_InResChipData:	set	562
+L_RsBqX:		set	563
+L_InBankSchrink:	set	564
+L_FnStart:		set	565
+L_FnLength:		set	566
+L_FnChipFree:		set	567
+L_FnFastFree:		set	568
+L_FFree:		set	569
+L_TransMem:		set	570
+L_InCopy:		set	571
+L_InFill:		set	572
+L_FillBis:		set	573
+L_FnHunt:		set	574
+L_InAReg:		set	575
+L_FnAReg:		set	576
+L_InDReg:		set	577
+L_FnDReg:		set	578
+L_IReg:			set	579
+L_FReg:			set	580
+L_RReg:			set	581
+L_InPoke:		set	582
+L_InDoke:		set	583
+L_InLoke:		set	584
+L_FnPeek:		set	585
+L_FnDeek:		set	586
+L_FnLeek:		set	587
+L_InPokeD:		set	588
+L_FnPeekD2:		set	589
+L_FnPeekD3:		set	590
+L_FPeekD:		set	591
+L_Lib.Close:		set	592
+L_Lib.CloseD0:		set	593
+L_Lib.GetA2:		set	594
+L_Lib.Call:		set	595
+L_FnExeCall:		set	596
+L_FnGfxCall:		set	597
+L_FnDosCall:		set	598
+L_FnIntCall:		set	599
+L_InLibOpen:		set	600
+L_InLibClose0:		set	601
+L_InLibClose1:		set	602
+L_FnLibCall:		set	603
+L_FnLibBase:		set	604
+L_Dev.GetA2:		set	605
+L_Dev.Open:		set	606
+L_Dev.Close:		set	607
+L_Dev.CloseA2:		set	608
+L_Dev.GetIO:		set	609
+L_Dev.SendIO:		set	610
+L_Dev.DoIO:		set	611
+L_Dev.CheckIO:		set	612
+L_Dev.AbortIO:		set	613
+L_Dev.Error:		set	614
+L_InDevOpen:		set	615
+L_InDevClose0:		set	616
+L_InDevClose1:		set	617
+L_FnDevBase:		set	618
+L_InDevDo:		set	619
+L_InDevSend:		set	620
+L_InDevAbort:		set	621
+L_FnDevCheck:		set	622
+L_InExec:		set	623
+L_CreatePort:		set	624
+L_DeletePort:		set	625
+L_CreateExtIO:		set	626
+L_DeleteExtIO:		set	627
+L_AmigaLib:		set	628
+L_BkSpr:		set	629
+L_BkIco:		set	630
+L_BkMus:		set	631
+L_BkAmal:		set	632
+L_BkMenu:		set	633
+L_BkDat:		set	634
+L_BkWrk:		set	635
+L_BkAsm:		set	636
+L_BkIff:		set	637
+L_Bnk_NoLoad:		set	638
+L_ChVerBuf:		set	639
+L_ChVerBuf2:		set	640
+L_Str2Chaine:		set	641
+L_Mes2Chaine:		set	642
+L_MCSuit:		set	643
+L_Set_HiChaine:		set	644
+L_Ret_ChVide:		set	645
+L_A0ToChaine:		set	646
+L_FinBin:		set	647
+L_AskD3:		set	648
+L_SHunk:		set	649
+L_NHunk:		set	650
+L_InSave2:		set	651
+L_InSave1:		set	652
+L_Bnk.SaveAll:		set	653
+L_Bnk.SaveVide:		set	654
+L_Bnk.SaveA0:		set	655
+L_InLoad1:		set	656
+L_InLoad2:		set	657
+L_Load0:		set	658
+L_Bnk.Load:		set	659
+L_InPLoad:		set	660
+L_InBload:		set	661
+L_InBSave:		set	662
+L_InMaskIff:		set	663
+L_FnPicture:		set	664
+L_InLoadIff1:		set	665
+L_InLoadIff2:		set	666
+L_FnFormLoad2:		set	667
+L_FnFormLoad3:		set	668
+L_FnFormLength1:	set	669
+L_FnFormLength2:	set	670
+L_FnFormPlay2:		set	671
+L_FnFormPlay3:		set	672
+L_FnFormSkip1:		set	673
+L_FnFormSkip2:		set	674
+L_InIffAnim2:		set	675
+L_InIffAnim3:		set	676
+L_FnFormParam:		set	677
+L_InSaveIff1:		set	678
+L_InSaveIff2:		set	679
+L_GetFile:		set	680
+L_FiClean:		set	681
+L_InSetInput:		set	682
+L_FnInputD1:		set	683
+L_FnInputD2:		set	684
+L_GetByte:		set	685
+L_EndByte:		set	686
+L_InDirD:		set	687
+L_FnDirD:		set	688
+L_InParent:		set	689
+L_InKill:		set	690
+L_InRename:		set	691
+L_InMkDir:		set	692
+L_FnDrive:		set	693
+L_FnDFree:		set	694
+L_FnDiscInfo:		set	695
+L_FnPort:		set	696
+L_InOpenPort:		set	697
+L_InOpenOut:		set	698
+L_InOpenIn:		set	699
+L_OpIn:			set	700
+L_DiskClear:		set	701
+L_FnLof:		set	702
+L_InPof:		set	703
+L_FnPof:		set	704
+L_FnEof:		set	705
+L_RLof:			set	706
+L_InClose1:		set	707
+L_InClose0:		set	708
+L_CloAll:		set	709
+L_Cloa1:		set	710
+L_InOpenRandom:		set	711
+L_InAppend:		set	712
+L_RanApp:		set	713
+L_InGet:		set	714
+L_InPut:		set	715
+L_GetPut:		set	716
+L_ImpChaine:		set	717
+L_PRT_Open:		set	718
+L_PRT_Close:		set	719
+L_PRT_Print:		set	720
+L_InSetDir2:		set	721
+L_InSetDir1:		set	722
+L_FnPrgFirst:		set	723
+L_FnDevFirst:		set	724
+L_DevAcc:		set	725
+L_FnDirFirst:		set	726
+L_FnFillNext:		set	727
+L_InAssign:		set	728
+L_FnExist:		set	729
+L_RExist:		set	730
+L_NoReq:		set	731
+L_YesReq:		set	732
+L_InLDirW0:		set	733
+L_InDirW0:		set	734
+L_DirW0a:		set	735
+L_InLDirW1:		set	736
+L_InDirW1:		set	737
+L_DirW1a:		set	738
+L_DirW2:		set	739
+L_InLDir0:		set	740
+L_InDir0:		set	741
+L_Dir0a:		set	742
+L_InLDir1:		set	743
+L_InDir1:		set	744
+L_Dir1a:		set	745
+L_Dir2:			set	746
+L_Dir3:			set	747
+L_TTDir:		set	748
+L_LockGet:		set	749
+L_LockFree:		set	750
+L_FillAll:		set	751
+L_FillGet:		set	752
+L_FillDev:		set	753
+L_FillFirst:		set	754
+L_FillNxt:		set	755
+L_FillFFree:		set	756
+L_FillSort:		set	757
+L_FillFPoke:		set	758
+L_FfComp:		set	759
+L_FfComp2:		set	760
+L_FillFFind:		set	761
+L_Dsk.DNom:		set	762
+L_Dsk.PathIt:		set	763
+L_NomDisc:		set	764
+L_NomDir:		set	765
+L_Joker:		set	766
+L_D_Open:		set	767
+L_D_OpenD1:		set	768
+L_D_Close:		set	769
+L_D_Read:		set	770
+L_D_Write:		set	771
+L_D_Seek:		set	772
+L_FnPSel:		set	773
+L_FnFileSelector1:	set	774
+L_FnFileSelector2:	set	775
+L_FnFileSelector3:	set	776
+L_FnFileSelector4:	set	777
+L_AppCentre:		set	778
+L_IffFormLoad:		set	779
+L_IffFormSize:		set	780
+L_IffRead:		set	781
+L_IffSeek:		set	782
+L_IffInit:		set	783
+L_IffForm:		set	784
+L_IffFormPlay:		set	785
+L_IffSaveScreen:	set	786
+L_SaveBMHD:		set	787
+L_SaveCMAP:		set	788
+L_SaveCAMG:		set	789
+L_SaveAMSC:		set	790
+L_SaveBODY:		set	791
+L_SaveA1:		set	792
+L_SaveRegs:		set	793
+L_LoadRegs:		set	794
+L_InCommandLine:	set	795
+L_FnCommandLine:	set	796
+L_Bnk.GetAdr:		set	797
+L_Bnk.GetBobs:		set	798
+L_Bnk.GetIcons:		set	799
+L_Bnk.Eff:		set	800
+L_Bnk.EffA0:		set	801
+L_Bnk.EffBobA0:		set	802
+L_Bnk.EffAll:		set	803
+L_Bnk.EffTemp:		set	804
+L_Bnk.OrAdr:		set	805
+L_Bnk.AdBob:		set	806
+L_Bnk.AdIcon:		set	807
+L_Bnk.ResIco:		set	808
+L_Bnk.ResBob:		set	809
+L_Bnk.Ric:		set	810
+L_Bnk.Ric2:		set	811
+L_Bnk.Schrink:		set	812
+L_Bnk.InsBob:		set	813
+L_Bnk.DelBob:		set	814
+L_Bnk.UnRev:		set	815
+L_Bnk.Reserve:		set	816
+L_Bnk.GetLength:	set	817
+L_Bnk.Length:		set	818
+L_Bnk.Change:		set	819
+L_Bnk.List:		set	820
+L_FnTrue:		set	821
+L_FnOne:		set	822
+L_FnFalse:		set	823
+L_InDefault:		set	824
+L_InCls0:		set	825
+L_InCls1:		set	826
+L_InCls5:		set	827
+L_Cls5a:		set	828
+L_FnScreenHeight0:	set	829
+L_FnScreenHeight1:	set	830
+L_FnScreenWidth0:	set	831
+L_FnScreenWidth1:	set	832
+L_FnScreenBase:		set	833
+L_FnScreenColour:	set	834
+L_FnScreenMode:		set	835
+L_GetScreen0:		set	836
+L_FnDisplayHeight:	set	837
+L_FnNTSC:		set	838
+L_FnLogBase:		set	839
+L_FnPhyBase:		set	840
+L_InDoubleBuffer:	set	841
+L_InScreenSwap0:	set	842
+L_InScreenSwap1:	set	843
+L_InDualPlayfield:	set	844
+L_InDualPriority:	set	845
+L_InScreenClone:	set	846
+L_InScreenOpen:		set	847
+L_InScreenClose:	set	848
+L_InScreenDisplay:	set	849
+L_InScreenOffset:	set	850
+L_InScreenShow0:	set	851
+L_InScreenShow1:	set	852
+L_InScreenHide0:	set	853
+L_ScShHi0:		set	854
+L_InScreenHide1:	set	855
+L_ScShHi:		set	856
+L_InAutoViewOn:		set	857
+L_InAutoViewOff:	set	858
+L_InView:		set	859
+L_InScreenToFront0:	set	860
+L_InScreenToFront1:	set	861
+L_InScreenToBack0:	set	862
+L_InScreenToBack1:	set	863
+L_InScreen:		set	864
+L_FnScreen:		set	865
+L_FnLaced:		set	866
+L_FnHires:		set	867
+L_FnLowres:		set	868
+L_CheckScreenNumber:	set	869
+L_InColour:		set	870
+L_FnColour:		set	871
+L_InColourBack:		set	872
+L_InGetIconPalette0:	set	873
+L_InGetIconPalette1:	set	874
+L_InGetSpritePalette0:	set	875
+L_InGetSpritePalette1:	set	876
+L_InGetPalette1:	set	877
+L_InGetPalette2:	set	878
+L_GSPal:		set	879
+L_PalRout:		set	880
+L_InFlashOff:		set	881
+L_InFlash:		set	882
+L_InShiftOff:		set	883
+L_InShiftUp:		set	884
+L_InShiftDown:		set	885
+L_ShD1:			set	886
+L_InSetRainbow6:	set	887
+L_InSetRainbow7:	set	888
+L_InRainbow:		set	889
+L_InRainbowDel0:	set	890
+L_InRainbowDel1:	set	891
+L_InRain:		set	892
+L_FnRain:		set	893
+L_InCopOn:		set	894
+L_InCopOff:		set	895
+L_InCopSwap:		set	896
+L_InCopReset:		set	897
+L_InCopWait2:		set	898
+L_InCopWait4:		set	899
+L_InCopMove:		set	900
+L_InCopMoveL:		set	901
+L_FnCopLogic:		set	902
+L_InAutoback:		set	903
+L_InPlot2:		set	904
+L_InPlot3:		set	905
+L_FnPoint:		set	906
+L_RPoint:		set	907
+L_InDrawTo:		set	908
+L_InDraw:		set	909
+L_InCircle:		set	910
+L_InEllipse:		set	911
+L_EllCir:		set	912
+L_FnXGr:		set	913
+L_FnYGr:		set	914
+L_InGrLocate:		set	915
+L_InBox:		set	916
+L_InClip0:		set	917
+L_InClip4:		set	918
+L_InGetRomFonts:	set	919
+L_InGetDiscFonts:	set	920
+L_InGetFonts:		set	921
+L_Igf:			set	922
+L_FnFont:		set	923
+L_InSetFont:		set	924
+L_InText:		set	925
+L_FnTextBase:		set	926
+L_FnTextLength:		set	927
+L_FnTextStyle:		set	928
+L_InSetText:		set	929
+L_InSetPattern:		set	930
+L_InSetPaint:		set	931
+L_InPaint2:		set	932
+L_InPaint3:		set	933
+L_InBar:		set	934
+L_InSetTempras1:	set	935
+L_InSetTempras0:	set	936
+L_InSetTempras2:	set	937
+L_GetRas:		set	938
+L_FreeRas:		set	939
+L_InInk1:		set	940
+L_InInk2:		set	941
+L_InInk3:		set	942
+L_InGrWriting:		set	943
+L_InSetLine:		set	944
+L_InHSlider:		set	945
+L_InVSlider:		set	946
+L_GetSli:		set	947
+L_InSetSlider:		set	948
+L_InDefScroll:		set	949
+L_InScroll:		set	950
+L_DoScroll:		set	951
+L_InScreenCopy2:	set	952
+L_InScreenCopy3:	set	953
+L_InScreenCopy8:	set	954
+L_InScreenCopy9:	set	955
+L_Sco0:			set	956
+L_FnPhysic0:		set	957
+L_FnPhysic1:		set	958
+L_FnLogic0:		set	959
+L_FnLogic1:		set	960
+L_InAppear3:		set	961
+L_InAppear4:		set	962
+L_InZoom:		set	963
+L_FnXHard1:		set	964
+L_FnXHard2:		set	965
+L_XHr1:			set	966
+L_FnYHard1:		set	967
+L_FnYHard2:		set	968
+L_YHr1:			set	969
+L_FnXScreen1:		set	970
+L_FnXScreen2:		set	971
+L_XSc1:			set	972
+L_FnYScreen1:		set	973
+L_FnYScreen2:		set	974
+L_YSc1:			set	975
+L_FnXText:		set	976
+L_FnYText:		set	977
+L_FnXGraphic:		set	978
+L_FnYGraphic:		set	979
+L_InReserveZone0:	set	980
+L_InReserveZone1:	set	981
+L_InResetZone0:		set	982
+L_InResetZone1:		set	983
+L_InSetZone:		set	984
+L_FnZone2:		set	985
+L_FnZone3:		set	986
+L_FZo:			set	987
+L_FnHZone2:		set	988
+L_FnHZone3:		set	989
+L_FHZo:			set	990
+L_FnScIn2:		set	991
+L_FnScIn3:		set	992
+L_ScIn:			set	993
+L_FnMouseScreen:	set	994
+L_FnMouseZone:		set	995
+L_InGetCBlock:		set	996
+L_InPutCBlock1:		set	997
+L_InPutCBlock3:		set	998
+L_InDelCBlock0:		set	999
+L_InDelCBlock1:		set	1000
+L_InGetBlock5:		set	1001
+L_InGetBlock6:		set	1002
+L_InPutBlock1:		set	1003
+L_InPutBlock3:		set	1004
+L_InPutBlock4:		set	1005
+L_InPutBlock5:		set	1006
+L_InDelBlock0:		set	1007
+L_InDelBlock1:		set	1008
+L_InHRevBlock:		set	1009
+L_InVRevBlock:		set	1010
+L_Rev:			set	1011
+L_GrXY:			set	1012
+L_GfxPnt:		set	1013
+L_GfxFunc:		set	1014
+L_GfxF0:		set	1015
+L_GetEc:		set	1016
+L_InCloseWorkbench:	set	1017
+L_InAmosToFront:	set	1018
+L_InAmosToBack:		set	1019
+L_FnAmosHere:		set	1020
+L_InAmosLock:		set	1021
+L_InAmosUnlock:		set	1022
+L_WB_Close:		set	1023
+L_WB_Open:		set	1024
+L_InError:		set	1025
+L_MajD0:		set	1026
+L_InUpdateOff:		set	1027
+L_InUpdateOn:		set	1028
+L_InUpdate:		set	1029
+L_InBobUpdateOff:	set	1030
+L_InBobUpdateOn:	set	1031
+L_InBobUpdate:		set	1032
+L_InSpriteUpdateOff:	set	1033
+L_InSpriteUpdateOn:	set	1034
+L_InSpriteUpdate:	set	1035
+L_InUpdateEvery:	set	1036
+L_InBobClear:		set	1037
+L_InBobDraw:		set	1038
+L_InLimitBob0:		set	1039
+L_InLimitBob4:		set	1040
+L_InLimitBob5:		set	1041
+L_InPriorityOn:		set	1042
+L_InPriorityOff:	set	1043
+L_InPriorityReverseOn:	set	1044
+L_InPriorityReverseOff:	set	1045
+L_Prooo:		set	1046
+L_FnAmalerr:		set	1047
+L_InFreeze:		set	1048
+L_InUnFreeze:		set	1049
+L_InSynchroOn:		set	1050
+L_InSynchroOff:		set	1051
+L_InSynchro:		set	1052
+L_InAmalOn0:		set	1053
+L_InAmalOff0:		set	1054
+L_InAmalFreeze0:	set	1055
+L_InMoveOn0:		set	1056
+L_InAnimOn0:		set	1057
+L_InMoveOff0:		set	1058
+L_InAnimOff0:		set	1059
+L_InMoveFreeze0:	set	1060
+L_InAnimFreeze0:	set	1061
+L_MvOnOf0:		set	1062
+L_InAmalOn1:		set	1063
+L_InAmalOff1:		set	1064
+L_InAmalFreeze1:	set	1065
+L_InMoveOn1:		set	1066
+L_InAnimOn1:		set	1067
+L_InMoveOff1:		set	1068
+L_InAnimOff1:		set	1069
+L_InMoveFreeze1:	set	1070
+L_InAnimFreeze1:	set	1071
+L_MvOnOf1:		set	1072
+L_InMoveX3:		set	1073
+L_InMoveY3:		set	1074
+L_InAnim3:		set	1075
+L_InAmal3:		set	1076
+L_AMm3:			set	1077
+L_InMoveX2:		set	1078
+L_InMoveY2:		set	1079
+L_InAmal2:		set	1080
+L_InAnim2:		set	1081
+L_MvA:			set	1082
+L_MvA3:			set	1083
+L_FnMovon:		set	1084
+L_FnChanAn:		set	1085
+L_FnChanMv:		set	1086
+L_FnAm1:		set	1087
+L_InAmreg1:		set	1088
+L_FnAmreg1:		set	1089
+L_InAmreg2:		set	1090
+L_FnAmreg2:		set	1091
+L_IAmR:			set	1092
+L_FAmR:			set	1093
+L_AmRR:			set	1094
+L_InAmPlay2:		set	1095
+L_InAmPlay4:		set	1096
+L_FnXBob:		set	1097
+L_FnYBob:		set	1098
+L_FnXSprite:		set	1099
+L_FnYSprite:		set	1100
+L_FnIBob:		set	1101
+L_FnISprite:		set	1102
+L_InXMouse:		set	1103
+L_FnXMouse:		set	1104
+L_InYMouse:		set	1105
+L_FnYMouse:		set	1106
+L_FnMouseKey:		set	1107
+L_FnMouseClick:		set	1108
+L_InHide:		set	1109
+L_InHideOn:		set	1110
+L_InShow:		set	1111
+L_InShowOn:		set	1112
+L_InLimitMouse0:	set	1113
+L_InLimitMouse1:	set	1114
+L_LimMX:		set	1115
+L_InLimitMouse4:	set	1116
+L_InChangeMouse:	set	1117
+L_InSetBob:		set	1118
+L_InBob:		set	1119
+L_InBobOff0:		set	1120
+L_InBobOff1:		set	1121
+L_InSetSpriteBuffer:	set	1122
+L_InSpritePriority:	set	1123
+L_InSprite:		set	1124
+L_InSpriteOff0:		set	1125
+L_InSpriteOff1:		set	1126
+L_InSetHardcol:		set	1127
+L_FnHardcol:		set	1128
+L_FnBobSpriteCol1:	set	1129
+L_FnBobSpriteCol3:	set	1130
+L_FnBobCol1:		set	1131
+L_FnBobCol3:		set	1132
+L_FnSpriteBobCol1:	set	1133
+L_FnSpriteBobCol3:	set	1134
+L_FnSpriteCol1:		set	1135
+L_FnSpriteCol3:		set	1136
+L_FnCol:		set	1137
+L_InMakeIconMask0:	set	1138
+L_InMakeIconMask1:	set	1139
+L_InNoIconMask0:	set	1140
+L_InNoIconMask1:	set	1141
+L_InMakeMask0:		set	1142
+L_InMakeMask1:		set	1143
+L_MkMa1:		set	1144
+L_InNoMask0:		set	1145
+L_InNoMask1:		set	1146
+L_NoMa1:		set	1147
+L_InHotSpot3:		set	1148
+L_InHotSpot2:		set	1149
+L_HotSp:		set	1150
+L_InGetSprite6:		set	1151
+L_InGetSprite5:		set	1152
+L_GS:			set	1153
+L_InGetIcon6:		set	1154
+L_InGetIcon5:		set	1155
+L_GI:			set	1156
+L_Ritoune:		set	1157
+L_InPutBob:		set	1158
+L_FnHRev:		set	1159
+L_FnVRev:		set	1160
+L_FnRev:		set	1161
+L_InPasteBob:		set	1162
+L_InPasteIcon:		set	1163
+L_Paste:		set	1164
+L_FnSpriteBase:		set	1165
+L_FnIconBase:		set	1166
+L_Sb:			set	1167
+L_AdBob:		set	1168
+L_AdIcon:		set	1169
+L_AdBErr:		set	1170
+L_CopyPath:		set	1171
+L_DiskError:		set	1172
+L_DiskErr:		set	1173
+L_TypeMis:		set	1174
+L_FilOO:		set	1175
+L_FilNO:		set	1176
+L_FilTM:		set	1177
+L_EOFil:		set	1178
+L_IffFor2:		set	1179
+L_DiForm:		set	1180
+L_ScNOp:		set	1181
+L_RainErr:		set	1182
+L_EcWiErr:		set	1183
+L_CopErr:		set	1184
+L_BkAlRes:		set	1185
+L_BkNoRes:		set	1186
+L_OOfMem:		set	1187
+L_Syntax:		set	1188
+L_Syntax2:		set	1189
+L_StooLong:		set	1190
+L_FonCall:		set	1191
+L_AdrErr:		set	1192
+L_CantFit:		set	1193
+L_IffFor:		set	1194
+L_IffCmp:		set	1195
+L_IllScN:		set	1196
+L_FftE:			set	1197
+L_FnfE:			set	1198
+L_BFonCall:		set	1199
+L_WFonCall:		set	1200
+L_SpErr:		set	1201
+L_InStop:		set	1202
+L_GoError:		set	1203
+L_InWindopen5:		set	1204
+L_InWindopen6:		set	1205
+L_InWindopen7:		set	1206
+L_InWindsave:		set	1207
+L_InWindmove:		set	1208
+L_InWindsize:		set	1209
+L_InWindclose:		set	1210
+L_InWindow:		set	1211
+L_FnWindon:		set	1212
+L_InWriting1:		set	1213
+L_InWriting2:		set	1214
+L_InBorder:		set	1215
+L_InTitleTop:		set	1216
+L_InTitleBottom:	set	1217
+L_WnTT:			set	1218
+L_FnXCurs:		set	1219
+L_FnYCurs:		set	1220
+L_InSetCurs:		set	1221
+L_InLocate:		set	1222
+L_InCentre:		set	1223
+L_InCmove:		set	1224
+L_InCursPen:		set	1225
+L_InPaper:		set	1226
+L_InPen:		set	1227
+L_WnPp:			set	1228
+L_InClw:		set	1229
+L_InHome:		set	1230
+L_InCleft:		set	1231
+L_InCright:		set	1232
+L_InCup:		set	1233
+L_InCdown:		set	1234
+L_InCursOff:		set	1235
+L_InCursOn:		set	1236
+L_InInverseOn:		set	1237
+L_InInverseOff:		set	1238
+L_InUnderOn:		set	1239
+L_InUnderOff:		set	1240
+L_InScrollOn:		set	1241
+L_InScrollOff:		set	1242
+L_InShadeOn:		set	1243
+L_InShadeOff:		set	1244
+L_InCline0:		set	1245
+L_InMemorizeX:		set	1246
+L_InMemorizeY:		set	1247
+L_InRememberX:		set	1248
+L_InRememberY:		set	1249
+L_InCline1:		set	1250
+L_InHScroll:		set	1251
+L_InVScroll:		set	1252
+L_HVSc:			set	1253
+L_InSetTab:		set	1254
+L_GoWn:			set	1255
+L_FnFree:		set	1256
+L_FnInkey:		set	1257
+L_FnScancode:		set	1258
+L_FnScanshift:		set	1259
+L_FnKeyState:		set	1260
+L_FnKeyShift:		set	1261
+L_FnJoy:		set	1262
+L_FnJup:		set	1263
+L_FnJdown:		set	1264
+L_FnJleft:		set	1265
+L_FnJright:		set	1266
+L_FnFire:		set	1267
+L_FJ:			set	1268
+L_InPutKey:		set	1269
+L_InClearKey:		set	1270
+L_InKeyD:		set	1271
+L_FnKeyD:		set	1272
+L_FnScan1:		set	1273
+L_FnScan2:		set	1274
+L_FnInstr2:		set	1275
+L_FnInstr3:		set	1276
+L_InstrFind:		set	1277
+L_FnFlip:		set	1278
+L_FnLen:		set	1279
+L_FnSpace:		set	1280
+L_FnString:		set	1281
+L_RString:		set	1282
+L_FnChr:		set	1283
+L_FnTab:		set	1284
+L_FnCleft:		set	1285
+L_FnCright:		set	1286
+L_FnCup:		set	1287
+L_FnCdown:		set	1288
+L_FinChr:		set	1289
+L_FnPenD:		set	1290
+L_FnPaperD:		set	1291
+L_FPn:			set	1292
+L_FnAt:			set	1293
+L_FnCMoveD:		set	1294
+L_FnRepeat:		set	1295
+L_FnBorderD:		set	1296
+L_FnZoneD:		set	1297
+L_FinRpt:		set	1298
+L_FnLower:		set	1299
+L_FnUpper:		set	1300
+L_FnAsc:		set	1301
+L_FnBin1:		set	1302
+L_FnBin2:		set	1303
+L_FnHex1:		set	1304
+L_FnHex2:		set	1305
+L_BinHex:		set	1306
+L_Dia_WarmInit:		set	1307
+L_InDialogOpen2:	set	1308
+L_InDialogOpen3:	set	1309
+L_InDialogOpen4:	set	1310
+L_Dia_GoError:		set	1311
+L_FnEDialog:		set	1312
+L_InDialogClose0:	set	1313
+L_InDialogClose1:	set	1314
+L_InDialogClr:		set	1315
+L_InDialogFreeze0:	set	1316
+L_InDialogFreeze1:	set	1317
+L_InDialogUnFreeze0:	set	1318
+L_InDialogUnFreeze1:	set	1319
+L_InDialogUpdate2:	set	1320
+L_InDialogUpdate3:	set	1321
+L_InDialogUpdate4:	set	1322
+L_InDialogUpdate5:	set	1323
+L_FnDialogRun1:		set	1324
+L_FnDialogRun2:		set	1325
+L_FnDialogRun4:		set	1326
+L_FnDialog:		set	1327
+L_InVDialog:		set	1328
+L_FnVDialog:		set	1329
+L_InVDialogD:		set	1330
+L_FnVDialogD:		set	1331
+L_FnRDialog2:		set	1332
+L_FnRDialog3:		set	1333
+L_FnRDialogD2:		set	1334
+L_FnRDialogD3:		set	1335
+L_FnZDialog:		set	1336
+L_FnDialogBox1:		set	1337
+L_FnDialogBox2:		set	1338
+L_FnDialogBox3:		set	1339
+L_FnDialogBox5:		set	1340
+L_InReadText1:		set	1341
+L_InReadText3:		set	1342
+L_IRText:		set	1343
+L_InResourceScreenOpen:	set	1344
+L_InResourceBank:	set	1345
+L_Dia_GetPuzzle:	set	1346
+L_Dia_GetDefault:	set	1347
+L_InResourceUnpack:	set	1348
+L_FnArexxExist:		set	1349
+L_InArexxOpen:		set	1350
+L_FnArexx:		set	1351
+L_InArexxWait:		set	1352
+L_InArexxClose:		set	1353
+L_FnArexxD:		set	1354
+L_InArexxAnswer1:	set	1355
+L_InArexxAnswer2:	set	1356
+L_Arx_Close:		set	1357
+L_Arx_Open:		set	1358
+L_Arx_RegisterPort:	set	1359
+L_Arx_Message:		set	1360
+L_InOnMenuOn:		set	1361
+L_InOnMenuOff:		set	1362
+L_InOnMenuDel:		set	1363
+L_OMnEff:		set	1364
+L_InMenuToBank:		set	1365
+L_InBankToMenu:		set	1366
+L_InMenuOn:		set	1367
+L_InMenuOff:		set	1368
+L_InMenuMouseOn:	set	1369
+L_InMenuMouseOff:	set	1370
+L_InMenuBase:		set	1371
+L_FnXMenu:		set	1372
+L_FnYMenu:		set	1373
+L_FnChoice0:		set	1374
+L_FnChoice1:		set	1375
+L_InMenuBar:		set	1376
+L_InMenuLine:		set	1377
+L_InMenuTline:		set	1378
+L_InMenuMovable:	set	1379
+L_InMenuStatic:		set	1380
+L_InMenuItemMovable:	set	1381
+L_InMenuItemStatic:	set	1382
+L_InMenuActive:		set	1383
+L_InMenuInactive:	set	1384
+L_InMenuSeparate:	set	1385
+L_InMenuLink:		set	1386
+L_InMenuCalled:		set	1387
+L_InMenuOnce:		set	1388
+L_InMenuCalc:		set	1389
+L_MnNOp:		set	1390
+L_Start_Externes:	set	1391
+L_Start_Menus:		set	1392
+L_MnGere:		set	1393
+L_MnEnd:		set	1394
+L_MnEnd1:		set	1395
+L_MnDEff:		set	1396
+L_MnEBranch:		set	1397
+L_MnCalc:		set	1398
+L_MnBranch:		set	1399
+L_MnDraw:		set	1400
+L_MnODraw:		set	1401
+L_MnODVar:		set	1402
+L_MnSave:		set	1403
+L_MnRest:		set	1404
+L_MnSaDel:		set	1405
+L_ObInkC:		set	1406
+L_ObInkB:		set	1407
+L_ObInkA:		set	1408
+L_ObWrite:		set	1409
+L_ObPat:		set	1410
+L_MnFind:		set	1411
+L_MnIns:		set	1412
+L_MenuReset:		set	1413
+L_MnRaz:		set	1414
+L_MnClearVar:		set	1415
+L_MnEff:		set	1416
+L_MnDel:		set	1417
+L_MnObjet:		set	1418
+L_MenuKeyExplore:	set	1419
+L_End_Menus:		set	1420
+L_Start_FSel:		set	1421
+L_Dsk.FileSelector:	set	1422
+L_End_FSel:		set	1423
+L_CreateTask:		set	1424
+L_LEd_Init:		set	1425
+L_LEd_Loop:		set	1426
+L_LEd_New:		set	1427
+L_LEd_Print:		set	1428
+L_LEd_CuStoppe:		set	1429
+L_LEd_CuMarche:		set	1430
+L_LEd_FauCu:		set	1431
+L_LEd_Lettre:		set	1432
+L_Dia_WaitMul:		set	1433
+L_Start_Dialogs:	set	1434
+L_Dia_OpenChannel:	set	1435
+L_Dia_GetBuffer:	set	1436
+L_Dia_SetBuffer:	set	1437
+L_Dia_Active:		set	1438
+L_Dia_ReActive:		set	1439
+L_Dia_ClearVar:		set	1440
+L_Dia_CloseChannels:	set	1441
+L_Dia_CloseChannel:	set	1442
+L_Dia_CloseA0:		set	1443
+L_Dia_RunQuick:		set	1444
+L_Dia_Update:		set	1445
+L_Dia_RunProgram:	set	1446
+L_Dia_GetLabel:		set	1447
+L_Dia_FreezeChannels:	set	1448
+L_Dia_FreezeChannel:	set	1449
+L_Dia_FrzA0:		set	1450
+L_Dia_EffChannel:	set	1451
+L_Dia_EffChanA0:	set	1452
+L_Dia_GetVariable:	set	1453
+L_Dia_GetZone:		set	1454
+L_Dia_GetValue:		set	1455
+L_Dia_GetZoneAd:	set	1456
+L_Dia_SetVFlags:	set	1457
+L_Dia_GetVFlags:	set	1458
+L_Dia_GetReturn:	set	1459
+L_Dia_RScOpen:		set	1460
+L_Dia_Instr:		set	1461
+L_Dia_FTokens:		set	1462
+L_Dia_Loop:		set	1463
+L_Dia_Evalue:		set	1464
+L_Dia_FDecimal:		set	1465
+L_Dia_StDebut:		set	1466
+L_Dia_StFini:		set	1467
+L_Dia_EdEnd:		set	1468
+L_Dia_EdActive:		set	1469
+L_Dia_EdOn:		set	1470
+L_Dia_EdInactive:	set	1471
+L_Dia_WActive:		set	1472
+L_Dia_WiZero:		set	1473
+L_Dia_TxActive:		set	1474
+L_Dia_TxEnd:		set	1475
+L_Dia_TxDraw:		set	1476
+L_Dia_TxAff:		set	1477
+L_Dia_TxAffActive:	set	1478
+L_Dia_LiActive:		set	1479
+L_Dia_LiEnd:		set	1480
+L_Dia_LiDraw:		set	1481
+L_Dia_LiAff:		set	1482
+L_Dia_SlDraw:		set	1483
+L_Dia_BtDraw:		set	1484
+L_Dia_GetRout:		set	1485
+L_Dia_EndP:		set	1486
+L_Dia_ZUpdate:		set	1487
+L_Dia_ZoChange:		set	1488
+L_Dia_GetChannel:	set	1489
+L_Dia_AutoTest:		set	1490
+L_Dia_AutoTest2:	set	1491
+L_Dia_Tests:		set	1492
+L_Dia_GetMouseZone:	set	1493
+L_Dia_GetZ:		set	1494
+L_Dia_EdFirst:		set	1495
+L_Dia_EdNext:		set	1496
+L_EdaLoop:		set	1497
+L_Dia_OBuffer:		set	1498
+L_Dia_NPar:		set	1499
+L_Dia_Fonc:		set	1500
+L_Dia_Synt:		set	1501
+L_Dia_Er:		set	1502
+L_Dia_Quit:		set	1503
+L_Dia_Chr:		set	1504
+L_Dia_FChif:		set	1505
+L_Dia_ChrC:		set	1506
+L_Dia_DecToAsc:		set	1507
+L_Bt_InitList:		set	1508
+L_Bt_Init:		set	1509
+L_Bt_End:		set	1510
+L_Bt_Gere:		set	1511
+L_Bt_CChange:		set	1512
+L_Bt_CPos:		set	1513
+L_Bt_CDraw:		set	1514
+L_Bt_Call:		set	1515
+L_Sl_Init:		set	1516
+L_Sl_Call:		set	1517
+L_Sl_Clic:		set	1518
+L_Sl_Draw:		set	1519
+L_Dia_NoMKey:		set	1520
+L_Dia_ClearKey:		set	1521
+L_Dia_Patch:		set	1522
+L_End_Dialogs:		set	1523
+L_ScCopy:		set	1524
+L_Dia_ScCopy:		set	1525
+L_UnPack_Screen:	set	1526
+L_UnPack_Bitmap:	set	1527
+L_LongToDec:		set	1528
+L_LongToAsc:		set	1529
+L_LongToHex:		set	1530
+L_LongToBin:		set	1531
+L_FFP2Ieee:		set	1532
+L_Ieee2FFP:		set	1533
+L_Sp2Dp:		set	1534
+L_Dp2Sp:		set	1535
+L_AscToFloat:		set	1536
+L_FloatToAsc:		set	1537
+L_AscToDouble:		set	1538
+L_DoubleToAsc:		set	1539
+L_End_Externes:		set	1540
diff --git a/AMOSPro Sources/+lib_Labels.s b/AMOSPro Sources/+lib_Labels.s
new file mode 100644
index 0000000..2410b90
--- /dev/null
+++ b/AMOSPro Sources/+lib_Labels.s	
@@ -0,0 +1,1045 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +lib.s, list of the library functions on the 07-06-1993 17:59:12
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_MainLibrary:		set	0
+L_FnErrn:		set	1
+L_FnErrD:		set	2
+L_FnSgn:		set	3
+L_FnSgnF:		set	4
+L_FnStrE:		set	5
+L_FnStrF:		set	6
+L_FnAbs:		set	7
+L_FnAbsF:		set	8
+L_FnInt:		set	9
+L_FnIntF:		set	10
+L_FnTan:		set	11
+L_FnSqr:		set	12
+L_FnLog:		set	13
+L_FnLn:			set	14
+L_FnExp:		set	15
+L_FnSin:		set	16
+L_FnCos:		set	17
+L_FnASin:		set	18
+L_FnACos:		set	19
+L_FnATan:		set	20
+L_FnHSin:		set	21
+L_FnHCos:		set	22
+L_FnHTan:		set	23
+L_InRadian:		set	24
+L_InDegree:		set	25
+L_InFix:		set	26
+L_FnRnd:		set	27
+L_Mulu32:		set	28
+L_InRandom:		set	29
+L_InTimer:		set	30
+L_FnTimer:		set	31
+L_FnPi:			set	32
+L_InWait:		set	33
+L_Wait_Normal:		set	34
+L_WaitRout:		set	35
+L_Wait_Event:		set	36
+L_InMWait:		set	37
+L_InWtVbl:		set	38
+L_InWtKy:		set	39
+L_InKeySpeed:		set	40
+L_FnParamS:		set	41
+L_FnParamE:		set	42
+L_InListBank:		set	43
+L_InErase:		set	44
+L_InEraseTemp:		set	45
+L_InEraseAll:		set	46
+L_InBankSwap:		set	47
+L_FnBStart:		set	48
+L_FnBLength:		set	49
+L_InBGrab:		set	50
+L_InBSend:		set	51
+L_InInsSprite:		set	52
+L_InInsIcon:		set	53
+L_InDelIcon1:		set	54
+L_InDelIcon2:		set	55
+L_InDelSprite1:		set	56
+L_InDelSprite2:		set	57
+L_IDIc3:		set	58
+L_InResWork:		set	59
+L_InResChipWork:	set	60
+L_InResData:		set	61
+L_InResChipData:	set	62
+L_RsBqX:		set	63
+L_InBankSchrink:	set	64
+L_FnStart:		set	65
+L_FnLength:		set	66
+L_FnChipFree:		set	67
+L_FnFastFree:		set	68
+L_FFree:		set	69
+L_TransMem:		set	70
+L_InCopy:		set	71
+L_InFill:		set	72
+L_FillBis:		set	73
+L_FnHunt:		set	74
+L_InAReg:		set	75
+L_FnAReg:		set	76
+L_InDReg:		set	77
+L_FnDReg:		set	78
+L_IReg:			set	79
+L_FReg:			set	80
+L_RReg:			set	81
+L_InPoke:		set	82
+L_InDoke:		set	83
+L_InLoke:		set	84
+L_FnPeek:		set	85
+L_FnDeek:		set	86
+L_FnLeek:		set	87
+L_InPokeD:		set	88
+L_FnPeekD2:		set	89
+L_FnPeekD3:		set	90
+L_FPeekD:		set	91
+L_Lib.Close:		set	92
+L_Lib.CloseD0:		set	93
+L_Lib.GetA2:		set	94
+L_Lib.Call:		set	95
+L_FnExeCall:		set	96
+L_FnGfxCall:		set	97
+L_FnDosCall:		set	98
+L_FnIntCall:		set	99
+L_InLibOpen:		set	100
+L_InLibClose0:		set	101
+L_InLibClose1:		set	102
+L_FnLibCall:		set	103
+L_FnLibBase:		set	104
+L_Dev.GetA2:		set	105
+L_Dev.Open:		set	106
+L_Dev.Close:		set	107
+L_Dev.CloseA2:		set	108
+L_Dev.GetIO:		set	109
+L_Dev.SendIO:		set	110
+L_Dev.DoIO:		set	111
+L_Dev.CheckIO:		set	112
+L_Dev.AbortIO:		set	113
+L_Dev.Error:		set	114
+L_InDevOpen:		set	115
+L_InDevClose0:		set	116
+L_InDevClose1:		set	117
+L_FnDevBase:		set	118
+L_InDevDo:		set	119
+L_InDevSend:		set	120
+L_InDevAbort:		set	121
+L_FnDevCheck:		set	122
+L_InExec:		set	123
+L_CreatePort:		set	124
+L_DeletePort:		set	125
+L_CreateExtIO:		set	126
+L_DeleteExtIO:		set	127
+L_AmigaLib:		set	128
+L_BkSpr:		set	129
+L_BkIco:		set	130
+L_BkMus:		set	131
+L_BkAmal:		set	132
+L_BkMenu:		set	133
+L_BkDat:		set	134
+L_BkWrk:		set	135
+L_BkAsm:		set	136
+L_BkIff:		set	137
+L_Bnk_NoLoad:		set	138
+L_ChVerBuf:		set	139
+L_ChVerBuf2:		set	140
+L_Str2Chaine:		set	141
+L_Mes2Chaine:		set	142
+L_MCSuit:		set	143
+L_Set_HiChaine:		set	144
+L_Ret_ChVide:		set	145
+L_A0ToChaine:		set	146
+L_FinBin:		set	147
+L_AskD3:		set	148
+L_SHunk:		set	149
+L_NHunk:		set	150
+L_InSave2:		set	151
+L_InSave1:		set	152
+L_Bnk.SaveAll:		set	153
+L_Bnk.SaveVide:		set	154
+L_Bnk.SaveA0:		set	155
+L_InLoad1:		set	156
+L_InLoad2:		set	157
+L_Load0:		set	158
+L_Bnk.Load:		set	159
+L_InPLoad:		set	160
+L_InBload:		set	161
+L_InBSave:		set	162
+L_InMaskIff:		set	163
+L_FnPicture:		set	164
+L_InLoadIff1:		set	165
+L_InLoadIff2:		set	166
+L_FnFormLoad2:		set	167
+L_FnFormLoad3:		set	168
+L_FnFormLength1:	set	169
+L_FnFormLength2:	set	170
+L_FnFormPlay2:		set	171
+L_FnFormPlay3:		set	172
+L_FnFormSkip1:		set	173
+L_FnFormSkip2:		set	174
+L_InIffAnim2:		set	175
+L_InIffAnim3:		set	176
+L_FnFormParam:		set	177
+L_InSaveIff1:		set	178
+L_InSaveIff2:		set	179
+L_GetFile:		set	180
+L_FiClean:		set	181
+L_InSetInput:		set	182
+L_FnInputD1:		set	183
+L_FnInputD2:		set	184
+L_GetByte:		set	185
+L_EndByte:		set	186
+L_InDirD:		set	187
+L_FnDirD:		set	188
+L_InParent:		set	189
+L_InKill:		set	190
+L_InRename:		set	191
+L_InMkDir:		set	192
+L_FnDrive:		set	193
+L_FnDFree:		set	194
+L_FnDiscInfo:		set	195
+L_FnPort:		set	196
+L_InOpenPort:		set	197
+L_InOpenOut:		set	198
+L_InOpenIn:		set	199
+L_OpIn:			set	200
+L_DiskClear:		set	201
+L_FnLof:		set	202
+L_InPof:		set	203
+L_FnPof:		set	204
+L_FnEof:		set	205
+L_RLof:			set	206
+L_InClose1:		set	207
+L_InClose0:		set	208
+L_CloAll:		set	209
+L_Cloa1:		set	210
+L_InOpenRandom:		set	211
+L_InAppend:		set	212
+L_RanApp:		set	213
+L_InGet:		set	214
+L_InPut:		set	215
+L_GetPut:		set	216
+L_ImpChaine:		set	217
+L_PRT_Open:		set	218
+L_PRT_Close:		set	219
+L_PRT_Print:		set	220
+L_InSetDir2:		set	221
+L_InSetDir1:		set	222
+L_FnPrgFirst:		set	223
+L_FnDevFirst:		set	224
+L_DevAcc:		set	225
+L_FnDirFirst:		set	226
+L_FnFillNext:		set	227
+L_InAssign:		set	228
+L_FnExist:		set	229
+L_RExist:		set	230
+L_NoReq:		set	231
+L_YesReq:		set	232
+L_InLDirW0:		set	233
+L_InDirW0:		set	234
+L_DirW0a:		set	235
+L_InLDirW1:		set	236
+L_InDirW1:		set	237
+L_DirW1a:		set	238
+L_DirW2:		set	239
+L_InLDir0:		set	240
+L_InDir0:		set	241
+L_Dir0a:		set	242
+L_InLDir1:		set	243
+L_InDir1:		set	244
+L_Dir1a:		set	245
+L_Dir2:			set	246
+L_Dir3:			set	247
+L_TTDir:		set	248
+L_LockGet:		set	249
+L_LockFree:		set	250
+L_FillAll:		set	251
+L_FillGet:		set	252
+L_FillDev:		set	253
+L_FillFirst:		set	254
+L_FillNxt:		set	255
+L_FillFFree:		set	256
+L_FillSort:		set	257
+L_FillFPoke:		set	258
+L_FfComp:		set	259
+L_FfComp2:		set	260
+L_FillFFind:		set	261
+L_Dsk.DNom:		set	262
+L_Dsk.PathIt:		set	263
+L_NomDisc:		set	264
+L_NomDir:		set	265
+L_Joker:		set	266
+L_D_Open:		set	267
+L_D_OpenD1:		set	268
+L_D_Close:		set	269
+L_D_Read:		set	270
+L_D_Write:		set	271
+L_D_Seek:		set	272
+L_FnPSel:		set	273
+L_FnFileSelector1:	set	274
+L_FnFileSelector2:	set	275
+L_FnFileSelector3:	set	276
+L_FnFileSelector4:	set	277
+L_AppCentre:		set	278
+L_IffFormLoad:		set	279
+L_IffFormSize:		set	280
+L_IffRead:		set	281
+L_IffSeek:		set	282
+L_IffInit:		set	283
+L_IffForm:		set	284
+L_IffFormPlay:		set	285
+L_IffSaveScreen:	set	286
+L_SaveBMHD:		set	287
+L_SaveCMAP:		set	288
+L_SaveCAMG:		set	289
+L_SaveAMSC:		set	290
+L_SaveBODY:		set	291
+L_SaveA1:		set	292
+L_SaveRegs:		set	293
+L_LoadRegs:		set	294
+L_InCommandLine:	set	295
+L_FnCommandLine:	set	296
+L_Bnk.GetAdr:		set	297
+L_Bnk.GetBobs:		set	298
+L_Bnk.GetIcons:		set	299
+L_Bnk.Eff:		set	300
+L_Bnk.EffA0:		set	301
+L_Bnk.EffBobA0:		set	302
+L_Bnk.EffAll:		set	303
+L_Bnk.EffTemp:		set	304
+L_Bnk.OrAdr:		set	305
+L_Bnk.AdBob:		set	306
+L_Bnk.AdIcon:		set	307
+L_Bnk.ResIco:		set	308
+L_Bnk.ResBob:		set	309
+L_Bnk.Ric:		set	310
+L_Bnk.Ric2:		set	311
+L_Bnk.Schrink:		set	312
+L_Bnk.InsBob:		set	313
+L_Bnk.DelBob:		set	314
+L_Bnk.UnRev:		set	315
+L_Bnk.Reserve:		set	316
+L_Bnk.GetLength:	set	317
+L_Bnk.Length:		set	318
+L_Bnk.Change:		set	319
+L_Bnk.List:		set	320
+L_FnTrue:		set	321
+L_FnOne:		set	322
+L_FnFalse:		set	323
+L_InDefault:		set	324
+L_InCls0:		set	325
+L_InCls1:		set	326
+L_InCls5:		set	327
+L_Cls5a:		set	328
+L_FnScreenHeight0:	set	329
+L_FnScreenHeight1:	set	330
+L_FnScreenWidth0:	set	331
+L_FnScreenWidth1:	set	332
+L_FnScreenBase:		set	333
+L_FnScreenColour:	set	334
+L_FnScreenMode:		set	335
+L_GetScreen0:		set	336
+L_FnDisplayHeight:	set	337
+L_FnNTSC:		set	338
+L_FnLogBase:		set	339
+L_FnPhyBase:		set	340
+L_InDoubleBuffer:	set	341
+L_InScreenSwap0:	set	342
+L_InScreenSwap1:	set	343
+L_InDualPlayfield:	set	344
+L_InDualPriority:	set	345
+L_InScreenClone:	set	346
+L_InScreenOpen:		set	347
+L_InScreenClose:	set	348
+L_InScreenDisplay:	set	349
+L_InScreenOffset:	set	350
+L_InScreenShow0:	set	351
+L_InScreenShow1:	set	352
+L_InScreenHide0:	set	353
+L_ScShHi0:		set	354
+L_InScreenHide1:	set	355
+L_ScShHi:		set	356
+L_InAutoViewOn:		set	357
+L_InAutoViewOff:	set	358
+L_InView:		set	359
+L_InScreenToFront0:	set	360
+L_InScreenToFront1:	set	361
+L_InScreenToBack0:	set	362
+L_InScreenToBack1:	set	363
+L_InScreen:		set	364
+L_FnScreen:		set	365
+L_FnLaced:		set	366
+L_FnHires:		set	367
+L_FnLowres:		set	368
+L_CheckScreenNumber:	set	369
+L_InColour:		set	370
+L_FnColour:		set	371
+L_InColourBack:		set	372
+L_InGetIconPalette0:	set	373
+L_InGetIconPalette1:	set	374
+L_InGetSpritePalette0:	set	375
+L_InGetSpritePalette1:	set	376
+L_InGetPalette1:	set	377
+L_InGetPalette2:	set	378
+L_GSPal:		set	379
+L_PalRout:		set	380
+L_InFlashOff:		set	381
+L_InFlash:		set	382
+L_InShiftOff:		set	383
+L_InShiftUp:		set	384
+L_InShiftDown:		set	385
+L_ShD1:			set	386
+L_InSetRainbow6:	set	387
+L_InSetRainbow7:	set	388
+L_InRainbow:		set	389
+L_InRainbowDel0:	set	390
+L_InRainbowDel1:	set	391
+L_InRain:		set	392
+L_FnRain:		set	393
+L_InCopOn:		set	394
+L_InCopOff:		set	395
+L_InCopSwap:		set	396
+L_InCopReset:		set	397
+L_InCopWait2:		set	398
+L_InCopWait4:		set	399
+L_InCopMove:		set	400
+L_InCopMoveL:		set	401
+L_FnCopLogic:		set	402
+L_InAutoback:		set	403
+L_InPlot2:		set	404
+L_InPlot3:		set	405
+L_FnPoint:		set	406
+L_RPoint:		set	407
+L_InDrawTo:		set	408
+L_InDraw:		set	409
+L_InCircle:		set	410
+L_InEllipse:		set	411
+L_EllCir:		set	412
+L_FnXGr:		set	413
+L_FnYGr:		set	414
+L_InGrLocate:		set	415
+L_InBox:		set	416
+L_InClip0:		set	417
+L_InClip4:		set	418
+L_InGetRomFonts:	set	419
+L_InGetDiscFonts:	set	420
+L_InGetFonts:		set	421
+L_Igf:			set	422
+L_FnFont:		set	423
+L_InSetFont:		set	424
+L_InText:		set	425
+L_FnTextBase:		set	426
+L_FnTextLength:		set	427
+L_FnTextStyle:		set	428
+L_InSetText:		set	429
+L_InSetPattern:		set	430
+L_InSetPaint:		set	431
+L_InPaint2:		set	432
+L_InPaint3:		set	433
+L_InBar:		set	434
+L_InSetTempras1:	set	435
+L_InSetTempras0:	set	436
+L_InSetTempras2:	set	437
+L_GetRas:		set	438
+L_FreeRas:		set	439
+L_InInk1:		set	440
+L_InInk2:		set	441
+L_InInk3:		set	442
+L_InGrWriting:		set	443
+L_InSetLine:		set	444
+L_InHSlider:		set	445
+L_InVSlider:		set	446
+L_GetSli:		set	447
+L_InSetSlider:		set	448
+L_InDefScroll:		set	449
+L_InScroll:		set	450
+L_DoScroll:		set	451
+L_InScreenCopy2:	set	452
+L_InScreenCopy3:	set	453
+L_InScreenCopy8:	set	454
+L_InScreenCopy9:	set	455
+L_Sco0:			set	456
+L_FnPhysic0:		set	457
+L_FnPhysic1:		set	458
+L_FnLogic0:		set	459
+L_FnLogic1:		set	460
+L_InAppear3:		set	461
+L_InAppear4:		set	462
+L_InZoom:		set	463
+L_FnXHard1:		set	464
+L_FnXHard2:		set	465
+L_XHr1:			set	466
+L_FnYHard1:		set	467
+L_FnYHard2:		set	468
+L_YHr1:			set	469
+L_FnXScreen1:		set	470
+L_FnXScreen2:		set	471
+L_XSc1:			set	472
+L_FnYScreen1:		set	473
+L_FnYScreen2:		set	474
+L_YSc1:			set	475
+L_FnXText:		set	476
+L_FnYText:		set	477
+L_FnXGraphic:		set	478
+L_FnYGraphic:		set	479
+L_InReserveZone0:	set	480
+L_InReserveZone1:	set	481
+L_InResetZone0:		set	482
+L_InResetZone1:		set	483
+L_InSetZone:		set	484
+L_FnZone2:		set	485
+L_FnZone3:		set	486
+L_FZo:			set	487
+L_FnHZone2:		set	488
+L_FnHZone3:		set	489
+L_FHZo:			set	490
+L_FnScIn2:		set	491
+L_FnScIn3:		set	492
+L_ScIn:			set	493
+L_FnMouseScreen:	set	494
+L_FnMouseZone:		set	495
+L_InGetCBlock:		set	496
+L_InPutCBlock1:		set	497
+L_InPutCBlock3:		set	498
+L_InDelCBlock0:		set	499
+L_InDelCBlock1:		set	500
+L_InGetBlock5:		set	501
+L_InGetBlock6:		set	502
+L_InPutBlock1:		set	503
+L_InPutBlock3:		set	504
+L_InPutBlock4:		set	505
+L_InPutBlock5:		set	506
+L_InDelBlock0:		set	507
+L_InDelBlock1:		set	508
+L_InHRevBlock:		set	509
+L_InVRevBlock:		set	510
+L_Rev:			set	511
+L_GrXY:			set	512
+L_GfxPnt:		set	513
+L_GfxFunc:		set	514
+L_GfxF0:		set	515
+L_GetEc:		set	516
+L_InCloseWorkbench:	set	517
+L_InAmosToFront:	set	518
+L_InAmosToBack:		set	519
+L_FnAmosHere:		set	520
+L_InAmosLock:		set	521
+L_InAmosUnlock:		set	522
+L_WB_Close:		set	523
+L_WB_Open:		set	524
+L_InError:		set	525
+L_MajD0:		set	526
+L_InUpdateOff:		set	527
+L_InUpdateOn:		set	528
+L_InUpdate:		set	529
+L_InBobUpdateOff:	set	530
+L_InBobUpdateOn:	set	531
+L_InBobUpdate:		set	532
+L_InSpriteUpdateOff:	set	533
+L_InSpriteUpdateOn:	set	534
+L_InSpriteUpdate:	set	535
+L_InUpdateEvery:	set	536
+L_InBobClear:		set	537
+L_InBobDraw:		set	538
+L_InLimitBob0:		set	539
+L_InLimitBob4:		set	540
+L_InLimitBob5:		set	541
+L_InPriorityOn:		set	542
+L_InPriorityOff:	set	543
+L_InPriorityReverseOn:	set	544
+L_InPriorityReverseOff:	set	545
+L_Prooo:		set	546
+L_FnAmalerr:		set	547
+L_InFreeze:		set	548
+L_InUnFreeze:		set	549
+L_InSynchroOn:		set	550
+L_InSynchroOff:		set	551
+L_InSynchro:		set	552
+L_InAmalOn0:		set	553
+L_InAmalOff0:		set	554
+L_InAmalFreeze0:	set	555
+L_InMoveOn0:		set	556
+L_InAnimOn0:		set	557
+L_InMoveOff0:		set	558
+L_InAnimOff0:		set	559
+L_InMoveFreeze0:	set	560
+L_InAnimFreeze0:	set	561
+L_MvOnOf0:		set	562
+L_InAmalOn1:		set	563
+L_InAmalOff1:		set	564
+L_InAmalFreeze1:	set	565
+L_InMoveOn1:		set	566
+L_InAnimOn1:		set	567
+L_InMoveOff1:		set	568
+L_InAnimOff1:		set	569
+L_InMoveFreeze1:	set	570
+L_InAnimFreeze1:	set	571
+L_MvOnOf1:		set	572
+L_InMoveX3:		set	573
+L_InMoveY3:		set	574
+L_InAnim3:		set	575
+L_InAmal3:		set	576
+L_AMm3:			set	577
+L_InMoveX2:		set	578
+L_InMoveY2:		set	579
+L_InAmal2:		set	580
+L_InAnim2:		set	581
+L_MvA:			set	582
+L_MvA3:			set	583
+L_FnMovon:		set	584
+L_FnChanAn:		set	585
+L_FnChanMv:		set	586
+L_FnAm1:		set	587
+L_InAmreg1:		set	588
+L_FnAmreg1:		set	589
+L_InAmreg2:		set	590
+L_FnAmreg2:		set	591
+L_IAmR:			set	592
+L_FAmR:			set	593
+L_AmRR:			set	594
+L_InAmPlay2:		set	595
+L_InAmPlay4:		set	596
+L_FnXBob:		set	597
+L_FnYBob:		set	598
+L_FnXSprite:		set	599
+L_FnYSprite:		set	600
+L_FnIBob:		set	601
+L_FnISprite:		set	602
+L_InXMouse:		set	603
+L_FnXMouse:		set	604
+L_InYMouse:		set	605
+L_FnYMouse:		set	606
+L_FnMouseKey:		set	607
+L_FnMouseClick:		set	608
+L_InHide:		set	609
+L_InHideOn:		set	610
+L_InShow:		set	611
+L_InShowOn:		set	612
+L_InLimitMouse0:	set	613
+L_InLimitMouse1:	set	614
+L_LimMX:		set	615
+L_InLimitMouse4:	set	616
+L_InChangeMouse:	set	617
+L_InSetBob:		set	618
+L_InBob:		set	619
+L_InBobOff0:		set	620
+L_InBobOff1:		set	621
+L_InSetSpriteBuffer:	set	622
+L_InSpritePriority:	set	623
+L_InSprite:		set	624
+L_InSpriteOff0:		set	625
+L_InSpriteOff1:		set	626
+L_InSetHardcol:		set	627
+L_FnHardcol:		set	628
+L_FnBobSpriteCol1:	set	629
+L_FnBobSpriteCol3:	set	630
+L_FnBobCol1:		set	631
+L_FnBobCol3:		set	632
+L_FnSpriteBobCol1:	set	633
+L_FnSpriteBobCol3:	set	634
+L_FnSpriteCol1:		set	635
+L_FnSpriteCol3:		set	636
+L_FnCol:		set	637
+L_InMakeIconMask0:	set	638
+L_InMakeIconMask1:	set	639
+L_InNoIconMask0:	set	640
+L_InNoIconMask1:	set	641
+L_InMakeMask0:		set	642
+L_InMakeMask1:		set	643
+L_MkMa1:		set	644
+L_InNoMask0:		set	645
+L_InNoMask1:		set	646
+L_NoMa1:		set	647
+L_InHotSpot3:		set	648
+L_InHotSpot2:		set	649
+L_HotSp:		set	650
+L_InGetSprite6:		set	651
+L_InGetSprite5:		set	652
+L_GS:			set	653
+L_InGetIcon6:		set	654
+L_InGetIcon5:		set	655
+L_GI:			set	656
+L_Ritoune:		set	657
+L_InPutBob:		set	658
+L_FnHRev:		set	659
+L_FnVRev:		set	660
+L_FnRev:		set	661
+L_InPasteBob:		set	662
+L_InPasteIcon:		set	663
+L_Paste:		set	664
+L_FnSpriteBase:		set	665
+L_FnIconBase:		set	666
+L_Sb:			set	667
+L_AdBob:		set	668
+L_AdIcon:		set	669
+L_AdBErr:		set	670
+L_CopyPath:		set	671
+L_DiskError:		set	672
+L_DiskErr:		set	673
+L_TypeMis:		set	674
+L_FilOO:		set	675
+L_FilNO:		set	676
+L_FilTM:		set	677
+L_EOFil:		set	678
+L_IffFor2:		set	679
+L_DiForm:		set	680
+L_ScNOp:		set	681
+L_RainErr:		set	682
+L_EcWiErr:		set	683
+L_CopErr:		set	684
+L_BkAlRes:		set	685
+L_BkNoRes:		set	686
+L_OOfMem:		set	687
+L_Syntax:		set	688
+L_Syntax2:		set	689
+L_StooLong:		set	690
+L_FonCall:		set	691
+L_AdrErr:		set	692
+L_CantFit:		set	693
+L_IffFor:		set	694
+L_IffCmp:		set	695
+L_IllScN:		set	696
+L_FftE:			set	697
+L_FnfE:			set	698
+L_BFonCall:		set	699
+L_WFonCall:		set	700
+L_SpErr:		set	701
+L_InStop:		set	702
+L_GoError:		set	703
+L_InWindopen5:		set	704
+L_InWindopen6:		set	705
+L_InWindopen7:		set	706
+L_InWindsave:		set	707
+L_InWindmove:		set	708
+L_InWindsize:		set	709
+L_InWindclose:		set	710
+L_InWindow:		set	711
+L_FnWindon:		set	712
+L_InWriting1:		set	713
+L_InWriting2:		set	714
+L_InBorder:		set	715
+L_InTitleTop:		set	716
+L_InTitleBottom:	set	717
+L_WnTT:			set	718
+L_FnXCurs:		set	719
+L_FnYCurs:		set	720
+L_InSetCurs:		set	721
+L_InLocate:		set	722
+L_InCentre:		set	723
+L_InCmove:		set	724
+L_InCursPen:		set	725
+L_InPaper:		set	726
+L_InPen:		set	727
+L_WnPp:			set	728
+L_InClw:		set	729
+L_InHome:		set	730
+L_InCleft:		set	731
+L_InCright:		set	732
+L_InCup:		set	733
+L_InCdown:		set	734
+L_InCursOff:		set	735
+L_InCursOn:		set	736
+L_InInverseOn:		set	737
+L_InInverseOff:		set	738
+L_InUnderOn:		set	739
+L_InUnderOff:		set	740
+L_InScrollOn:		set	741
+L_InScrollOff:		set	742
+L_InShadeOn:		set	743
+L_InShadeOff:		set	744
+L_InCline0:		set	745
+L_InMemorizeX:		set	746
+L_InMemorizeY:		set	747
+L_InRememberX:		set	748
+L_InRememberY:		set	749
+L_InCline1:		set	750
+L_InHScroll:		set	751
+L_InVScroll:		set	752
+L_HVSc:			set	753
+L_InSetTab:		set	754
+L_GoWn:			set	755
+L_FnFree:		set	756
+L_FnInkey:		set	757
+L_FnScancode:		set	758
+L_FnScanshift:		set	759
+L_FnKeyState:		set	760
+L_FnKeyShift:		set	761
+L_FnJoy:		set	762
+L_FnJup:		set	763
+L_FnJdown:		set	764
+L_FnJleft:		set	765
+L_FnJright:		set	766
+L_FnFire:		set	767
+L_FJ:			set	768
+L_InPutKey:		set	769
+L_InClearKey:		set	770
+L_InKeyD:		set	771
+L_FnKeyD:		set	772
+L_FnScan1:		set	773
+L_FnScan2:		set	774
+L_FnInstr2:		set	775
+L_FnInstr3:		set	776
+L_InstrFind:		set	777
+L_FnFlip:		set	778
+L_FnLen:		set	779
+L_FnSpace:		set	780
+L_FnString:		set	781
+L_RString:		set	782
+L_FnChr:		set	783
+L_FnTab:		set	784
+L_FnCleft:		set	785
+L_FnCright:		set	786
+L_FnCup:		set	787
+L_FnCdown:		set	788
+L_FinChr:		set	789
+L_FnPenD:		set	790
+L_FnPaperD:		set	791
+L_FPn:			set	792
+L_FnAt:			set	793
+L_FnCMoveD:		set	794
+L_FnRepeat:		set	795
+L_FnBorderD:		set	796
+L_FnZoneD:		set	797
+L_FinRpt:		set	798
+L_FnLower:		set	799
+L_FnUpper:		set	800
+L_FnAsc:		set	801
+L_FnBin1:		set	802
+L_FnBin2:		set	803
+L_FnHex1:		set	804
+L_FnHex2:		set	805
+L_BinHex:		set	806
+L_Dia_WarmInit:		set	807
+L_InDialogOpen2:	set	808
+L_InDialogOpen3:	set	809
+L_InDialogOpen4:	set	810
+L_Dia_GoError:		set	811
+L_FnEDialog:		set	812
+L_InDialogClose0:	set	813
+L_InDialogClose1:	set	814
+L_InDialogClr:		set	815
+L_InDialogFreeze0:	set	816
+L_InDialogFreeze1:	set	817
+L_InDialogUnFreeze0:	set	818
+L_InDialogUnFreeze1:	set	819
+L_InDialogUpdate2:	set	820
+L_InDialogUpdate3:	set	821
+L_InDialogUpdate4:	set	822
+L_InDialogUpdate5:	set	823
+L_FnDialogRun1:		set	824
+L_FnDialogRun2:		set	825
+L_FnDialogRun4:		set	826
+L_FnDialog:		set	827
+L_InVDialog:		set	828
+L_FnVDialog:		set	829
+L_InVDialogD:		set	830
+L_FnVDialogD:		set	831
+L_FnRDialog2:		set	832
+L_FnRDialog3:		set	833
+L_FnRDialogD2:		set	834
+L_FnRDialogD3:		set	835
+L_FnZDialog:		set	836
+L_FnDialogBox1:		set	837
+L_FnDialogBox2:		set	838
+L_FnDialogBox3:		set	839
+L_FnDialogBox5:		set	840
+L_InReadText1:		set	841
+L_InReadText3:		set	842
+L_IRText:		set	843
+L_InResourceScreenOpen:	set	844
+L_InResourceBank:	set	845
+L_Dia_GetPuzzle:	set	846
+L_Dia_GetDefault:	set	847
+L_InResourceUnpack:	set	848
+L_FnArexxExist:		set	849
+L_InArexxOpen:		set	850
+L_FnArexx:		set	851
+L_InArexxWait:		set	852
+L_InArexxClose:		set	853
+L_FnArexxD:		set	854
+L_InArexxAnswer1:	set	855
+L_InArexxAnswer2:	set	856
+L_Arx_Close:		set	857
+L_Arx_Open:		set	858
+L_Arx_RegisterPort:	set	859
+L_Arx_Message:		set	860
+L_InOnMenuOn:		set	861
+L_InOnMenuOff:		set	862
+L_InOnMenuDel:		set	863
+L_OMnEff:		set	864
+L_InMenuToBank:		set	865
+L_InBankToMenu:		set	866
+L_InMenuOn:		set	867
+L_InMenuOff:		set	868
+L_InMenuMouseOn:	set	869
+L_InMenuMouseOff:	set	870
+L_InMenuBase:		set	871
+L_FnXMenu:		set	872
+L_FnYMenu:		set	873
+L_FnChoice0:		set	874
+L_FnChoice1:		set	875
+L_InMenuBar:		set	876
+L_InMenuLine:		set	877
+L_InMenuTline:		set	878
+L_InMenuMovable:	set	879
+L_InMenuStatic:		set	880
+L_InMenuItemMovable:	set	881
+L_InMenuItemStatic:	set	882
+L_InMenuActive:		set	883
+L_InMenuInactive:	set	884
+L_InMenuSeparate:	set	885
+L_InMenuLink:		set	886
+L_InMenuCalled:		set	887
+L_InMenuOnce:		set	888
+L_InMenuCalc:		set	889
+L_Start_Externes:	set	890
+L_Start_Menus:		set	891
+L_MnGere:		set	892
+L_MnEnd:		set	893
+L_MnEnd1:		set	894
+L_MnNOp:		set	895
+L_MnDEff:		set	896
+L_MnEBranch:		set	897
+L_MnCalc:		set	898
+L_MnBranch:		set	899
+L_MnDraw:		set	900
+L_MnODraw:		set	901
+L_MnODVar:		set	902
+L_MnSave:		set	903
+L_MnRest:		set	904
+L_MnSaDel:		set	905
+L_ObInkC:		set	906
+L_ObInkB:		set	907
+L_ObInkA:		set	908
+L_ObWrite:		set	909
+L_ObPat:		set	910
+L_MnFind:		set	911
+L_MnIns:		set	912
+L_MenuReset:		set	913
+L_MnRaz:		set	914
+L_MnClearVar:		set	915
+L_MnEff:		set	916
+L_MnDel:		set	917
+L_MnObjet:		set	918
+L_MenuKeyExplore:	set	919
+L_End_Menus:		set	920
+L_Start_FSel:		set	921
+L_Dsk.FileSelector:	set	922
+L_End_FSel:		set	923
+L_CreateTask:		set	924
+L_LEd_Init:		set	925
+L_LEd_Loop:		set	926
+L_LEd_New:		set	927
+L_LEd_Print:		set	928
+L_LEd_CuStoppe:		set	929
+L_LEd_CuMarche:		set	930
+L_LEd_FauCu:		set	931
+L_LEd_Lettre:		set	932
+L_Dia_WaitMul:		set	933
+L_Start_Dialogs:	set	934
+L_Dia_OpenChannel:	set	935
+L_Dia_GetBuffer:	set	936
+L_Dia_SetBuffer:	set	937
+L_Dia_Active:		set	938
+L_Dia_ReActive:		set	939
+L_Dia_ClearVar:		set	940
+L_Dia_CloseChannels:	set	941
+L_Dia_CloseChannel:	set	942
+L_Dia_CloseA0:		set	943
+L_Dia_RunQuick:		set	944
+L_Dia_Update:		set	945
+L_Dia_RunProgram:	set	946
+L_Dia_GetLabel:		set	947
+L_Dia_FreezeChannels:	set	948
+L_Dia_FreezeChannel:	set	949
+L_Dia_FrzA0:		set	950
+L_Dia_EffChannel:	set	951
+L_Dia_EffChanA0:	set	952
+L_Dia_GetVariable:	set	953
+L_Dia_GetZone:		set	954
+L_Dia_GetValue:		set	955
+L_Dia_GetZoneAd:	set	956
+L_Dia_SetVFlags:	set	957
+L_Dia_GetVFlags:	set	958
+L_Dia_GetReturn:	set	959
+L_Dia_RScOpen:		set	960
+L_Dia_Instr:		set	961
+L_Dia_FTokens:		set	962
+L_Dia_Loop:		set	963
+L_Dia_Evalue:		set	964
+L_Dia_FDecimal:		set	965
+L_Dia_StDebut:		set	966
+L_Dia_StFini:		set	967
+L_Dia_EdEnd:		set	968
+L_Dia_EdActive:		set	969
+L_Dia_EdOn:		set	970
+L_Dia_EdInactive:	set	971
+L_Dia_WActive:		set	972
+L_Dia_WiZero:		set	973
+L_Dia_TxActive:		set	974
+L_Dia_TxEnd:		set	975
+L_Dia_TxDraw:		set	976
+L_Dia_TxAff:		set	977
+L_Dia_TxAffActive:	set	978
+L_Dia_LiActive:		set	979
+L_Dia_LiEnd:		set	980
+L_Dia_LiDraw:		set	981
+L_Dia_LiAff:		set	982
+L_Dia_SlDraw:		set	983
+L_Dia_BtDraw:		set	984
+L_Dia_GetRout:		set	985
+L_Dia_EndP:		set	986
+L_Dia_ZUpdate:		set	987
+L_Dia_ZoChange:		set	988
+L_Dia_GetChannel:	set	989
+L_Dia_AutoTest:		set	990
+L_Dia_AutoTest2:	set	991
+L_Dia_Tests:		set	992
+L_Dia_GetMouseZone:	set	993
+L_Dia_GetZ:		set	994
+L_Dia_EdFirst:		set	995
+L_Dia_EdNext:		set	996
+L_EdaLoop:		set	997
+L_Dia_OBuffer:		set	998
+L_Dia_NPar:		set	999
+L_Dia_Fonc:		set	1000
+L_Dia_Synt:		set	1001
+L_Dia_Er:		set	1002
+L_Dia_Quit:		set	1003
+L_Dia_Chr:		set	1004
+L_Dia_FChif:		set	1005
+L_Dia_ChrC:		set	1006
+L_Dia_DecToAsc:		set	1007
+L_Bt_InitList:		set	1008
+L_Bt_Init:		set	1009
+L_Bt_End:		set	1010
+L_Bt_Gere:		set	1011
+L_Bt_CChange:		set	1012
+L_Bt_CPos:		set	1013
+L_Bt_CDraw:		set	1014
+L_Bt_Call:		set	1015
+L_Sl_Init:		set	1016
+L_Sl_Call:		set	1017
+L_Sl_Clic:		set	1018
+L_Sl_Draw:		set	1019
+L_Dia_NoMKey:		set	1020
+L_Dia_ClearKey:		set	1021
+L_Dia_Patch:		set	1022
+L_End_Dialogs:		set	1023
+L_ScCopy:		set	1024
+L_Dia_ScCopy:		set	1025
+L_UnPack_Screen:	set	1026
+L_UnPack_Bitmap:	set	1027
+L_LongToDec:		set	1028
+L_LongToAsc:		set	1029
+L_LongToHex:		set	1030
+L_LongToBin:		set	1031
+L_FFP2Ieee:		set	1032
+L_Ieee2FFP:		set	1033
+L_Sp2Dp:		set	1034
+L_Dp2Sp:		set	1035
+L_AscToFloat:		set	1036
+L_FloatToAsc:		set	1037
+L_AscToDouble:		set	1038
+L_DoubleToAsc:		set	1039
+L_End_Externes:		set	1040
diff --git a/AMOSPro Sources/+lib_size.s b/AMOSPro Sources/+lib_size.s
new file mode 100644
index 0000000..c8b5b5f
--- /dev/null
+++ b/AMOSPro Sources/+lib_size.s	
@@ -0,0 +1,5 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; AMOSPro Main Library Size on the 06-06-1996 01:47:39
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 1541
diff --git a/AMOSPro Sources/+liboffsets.s b/AMOSPro Sources/+liboffsets.s
new file mode 100644
index 0000000..51c59a8
--- /dev/null
+++ b/AMOSPro Sources/+liboffsets.s	
@@ -0,0 +1,460 @@
+***********************************************************
+*
+*		Amiga library offsets
+*
+***********************************************************
+
+FUNCSTART	Macro
+LibPointer	set 	-$1e
+		EndM
+
+FUNCDEF		Macro
+_LVO\1		equ	LibPointer
+LibPointer	set	LibPointer-6
+		EndM
+*
+* Exec
+		FUNCSTART
+		FUNCDEF	Supervisor
+		FUNCDEF	ExitIntr
+		FUNCDEF	Schedule
+		FUNCDEF	Reschedule
+		FUNCDEF	Switch
+		FUNCDEF	Dispatch
+		FUNCDEF	Exception
+		FUNCDEF	InitCode
+		FUNCDEF	InitStruct
+		FUNCDEF	MakeLibrary
+		FUNCDEF	MakeFunctions
+		FUNCDEF	FindResident
+		FUNCDEF	InitResident
+		FUNCDEF	Alert
+		FUNCDEF	Debug
+		FUNCDEF	Disable
+		FUNCDEF	Enable
+		FUNCDEF	Forbid
+		FUNCDEF	Permit
+		FUNCDEF	SetSR
+		FUNCDEF	SuperState
+		FUNCDEF	UserState
+		FUNCDEF	SetIntVector
+		FUNCDEF	AddIntServer
+		FUNCDEF	RemIntServer
+		FUNCDEF	Cause
+		FUNCDEF	Allocate
+		FUNCDEF	Deallocate
+		FUNCDEF	AllocMem
+		FUNCDEF	AllocAbs
+		FUNCDEF	FreeMem
+		FUNCDEF	AvailMem
+		FUNCDEF	AllocEntry
+		FUNCDEF	FreeEntry
+		FUNCDEF	Insert
+		FUNCDEF	AddHead
+		FUNCDEF	AddTail
+		FUNCDEF	Remove
+		FUNCDEF	RemHead
+		FUNCDEF	RemTail
+		FUNCDEF	Enqueue
+		FUNCDEF	FindName
+		FUNCDEF	AddTask
+		FUNCDEF	RemTask
+		FUNCDEF	FindTask
+		FUNCDEF	SetTaskPri
+		FUNCDEF	SetSignal
+		FUNCDEF	SetExcept
+		FUNCDEF	Wait
+		FUNCDEF	Signal
+		FUNCDEF	AllocSignal
+		FUNCDEF	FreeSignal
+		FUNCDEF	AllocTrap
+		FUNCDEF	FreeTrap
+		FUNCDEF	AddPort
+		FUNCDEF	RemPort
+		FUNCDEF	PutMsg
+		FUNCDEF	GetMsg
+		FUNCDEF	ReplyMsg
+		FUNCDEF	WaitPort
+		FUNCDEF	FindPort
+		FUNCDEF	AddLibrary
+		FUNCDEF	RemLibrary
+		FUNCDEF	OldOpenLibrary
+		FUNCDEF	CloseLibrary
+		FUNCDEF	SetFunction
+		FUNCDEF	SumLibrary
+		FUNCDEF	AddDevice
+		FUNCDEF	RemDevice
+		FUNCDEF	OpenDevice
+		FUNCDEF	CloseDevice
+		FUNCDEF	DoIO
+		FUNCDEF	SendIO
+		FUNCDEF	CheckIO
+		FUNCDEF	WaitIO
+		FUNCDEF	AbortIO
+		FUNCDEF	AddResource
+		FUNCDEF	RemResource
+		FUNCDEF	OpenResource
+		FUNCDEF	RawIOInit
+		FUNCDEF	RawMayGetChar
+		FUNCDEF	RawPutChar
+		FUNCDEF	RawDoFmt
+		FUNCDEF	GetCC
+		FUNCDEF	TypeOfMem
+		FUNCDEF	Procure
+		FUNCDEF	Vacate
+		FUNCDEF	OpenLibrary
+		FUNCDEF	InitSemaphore
+		FUNCDEF	ObtainSemaphore
+		FUNCDEF	ReleaseSemaphore
+		FUNCDEF	AttemptSemaphore
+		FUNCDEF	ObtainSemaphoreList
+		FUNCDEF	ReleaseSemaphoreList
+		FUNCDEF	FindSemaphore
+		FUNCDEF	AddSemaphore
+		FUNCDEF	RemSemaphore
+		FUNCDEF	SumKickData
+		FUNCDEF	AddMemList
+		FUNCDEF	CopyMem
+		FUNCDEF	CopyMemQuick
+		FUNCDEF	CacheClearU
+		FUNCDEF	CacheClearE
+		FUNCDEF	CacheControl
+		FUNCDEF	CreateIORequest
+		FUNCDEF	DeleteIORequest
+		FUNCDEF	CreateMsgPort
+		FUNCDEF	DeleteMsgPort
+		FUNCDEF	ObtainSemaphoreShared
+		FUNCDEF	AllocVec
+		FUNCDEF	FreeVec
+		FUNCDEF	CreatePrivatePool
+		FUNCDEF	DeletePrivatePool
+		FUNCDEF	AllocPooled
+		FUNCDEF	FreePooled
+		FUNCDEF	SetFunction8
+		FUNCDEF	ColdReboot
+		FUNCDEF	StackSwap
+		FUNCDEF	ChildFree
+		FUNCDEF	ChildOrphan
+		FUNCDEF	ChildStatus
+		FUNCDEF	ChildWait
+		FUNCDEF	ExecReserved00
+		FUNCDEF	ExecReserved01
+		FUNCDEF	ExecReserved02
+		FUNCDEF	ExecReserved03
+*
+* Dos
+		FUNCSTART
+		FUNCDEF	Open
+		FUNCDEF	Close
+		FUNCDEF	Read
+		FUNCDEF	Write
+		FUNCDEF	Input
+		FUNCDEF	Output
+		FUNCDEF	Seek
+		FUNCDEF	DeleteFile
+		FUNCDEF	Rename
+		FUNCDEF	Lock
+		FUNCDEF	UnLock
+		FUNCDEF	DupLock
+		FUNCDEF	Examine
+		FUNCDEF	ExNext
+		FUNCDEF	Info
+		FUNCDEF	CreateDir
+		FUNCDEF	CurrentDir
+		FUNCDEF	IoErr
+		FUNCDEF	CreateProc
+		FUNCDEF	Exit
+		FUNCDEF	LoadSeg
+		FUNCDEF	UnLoadSeg
+		FUNCDEF	ClearVec
+		FUNCDEF	NoReqLoadSeg
+		FUNCDEF	DeviceProc
+		FUNCDEF	SetComment
+		FUNCDEF	SetProtection
+		FUNCDEF	DateStamp
+		FUNCDEF	Delay
+		FUNCDEF	WaitForChar
+		FUNCDEF	ParentDir
+		FUNCDEF	IsInteractive
+		FUNCDEF	Execute
+		FUNCDEF	AllocDosObject
+		FUNCDEF	FreeDosObject
+		FUNCDEF	DoPkt
+		FUNCDEF	SendPkt
+		FUNCDEF	WaitPkt
+		FUNCDEF	ReplyPkt
+		FUNCDEF	AbortPkt
+		FUNCDEF	LockRecord
+		FUNCDEF	LockRecords
+		FUNCDEF	UnLockRecord
+		FUNCDEF	UnLockRecords
+		FUNCDEF	SelectInput
+		FUNCDEF	SelectOutput
+		FUNCDEF	FGetC
+		FUNCDEF	FPutC
+		FUNCDEF	UnGetC
+		FUNCDEF	FRead
+		FUNCDEF	FWrite
+		FUNCDEF	FGets
+		FUNCDEF	FPuts
+		FUNCDEF	VFWritef
+		FUNCDEF	VFPrintf
+		FUNCDEF	Flush
+		FUNCDEF	SetVBuf
+		FUNCDEF	DupLockFromFH
+		FUNCDEF	OpenFromLock
+		FUNCDEF	ParentOfFH
+		FUNCDEF	ExamineFH
+		FUNCDEF	SetFileDate
+		FUNCDEF	NameFromLock
+		FUNCDEF	NameFromFH
+		FUNCDEF	SplitName
+		FUNCDEF	SameLock
+		FUNCDEF	SetMode
+		FUNCDEF	ExAll
+		FUNCDEF	ReadLink
+		FUNCDEF	MakeLink
+		FUNCDEF	ChangeMode
+		FUNCDEF	SetFileSize
+		FUNCDEF	SetIoErr
+		FUNCDEF	Fault
+		FUNCDEF	PrintFault
+		FUNCDEF	ErrorReport
+		FUNCDEF	Requester
+		FUNCDEF	Cli
+		FUNCDEF	CreateNewProc
+		FUNCDEF	RunCommand
+		FUNCDEF	GetConsoleTask
+		FUNCDEF	SetConsoleTask
+		FUNCDEF	GetFileSysTask
+		FUNCDEF	SetFileSysTask
+		FUNCDEF	GetArgStr
+		FUNCDEF	SetArgStr
+		FUNCDEF	FindCliProc
+		FUNCDEF	MaxCli
+		FUNCDEF	SetCurrentDirName
+		FUNCDEF	GetCurrentDirName
+		FUNCDEF	SetProgramName
+		FUNCDEF	GetProgramName
+		FUNCDEF	SetPrompt
+		FUNCDEF	GetPrompt
+		FUNCDEF	SetProgramDir
+		FUNCDEF	GetProgramDir
+		FUNCDEF	System
+		FUNCDEF	AssignLock
+		FUNCDEF	AssignLate
+		FUNCDEF	AssignPath
+		FUNCDEF	AssignAdd
+		FUNCDEF	RemAssignList
+		FUNCDEF	GetDeviceProc
+		FUNCDEF	FreeDeviceProc
+		FUNCDEF	LockDosList
+		FUNCDEF	UnlockDosList
+		FUNCDEF	AttemptLockDosList
+		FUNCDEF	RemDosEntry
+		FUNCDEF	AddDosEntry
+		FUNCDEF	FindDosEntry
+		FUNCDEF	NextDosEntry
+		FUNCDEF	MakeDosEntry
+		FUNCDEF	FreeDosEntry
+		FUNCDEF	IsFileSystem
+		FUNCDEF	Format
+		FUNCDEF	Relabel
+		FUNCDEF	Inhibit
+		FUNCDEF	AddBuffers
+		FUNCDEF	CompareDates
+		FUNCDEF	DateToStr
+		FUNCDEF	StrToDate
+		FUNCDEF	InternalLoadSeg
+		FUNCDEF	InternalUnLoadSeg
+		FUNCDEF	NewLoadSeg
+		FUNCDEF	AddSegment
+		FUNCDEF	FindSegment
+		FUNCDEF	RemSegment
+		FUNCDEF	CheckSignal
+		FUNCDEF	ReadArgs
+		FUNCDEF	FindArg
+		FUNCDEF	ReadItem
+		FUNCDEF	StrToLong
+		FUNCDEF	MatchFirst
+		FUNCDEF	MatchNext
+		FUNCDEF	MatchEnd
+		FUNCDEF	ParsePattern
+		FUNCDEF	MatchPattern
+		FUNCDEF	DosPrivateFunc4
+		FUNCDEF	FreeArgs
+		FUNCDEF	DosPrivateFunc5
+		FUNCDEF	FilePart
+		FUNCDEF	PathPart
+		FUNCDEF	AddPart
+		FUNCDEF	StartNotify
+		FUNCDEF	EndNotify
+		FUNCDEF	SetVar
+		FUNCDEF	GetVar
+		FUNCDEF	DeleteVar
+		FUNCDEF	FindVar
+		FUNCDEF	PrivateEntry1
+		FUNCDEF	PrivateEntry2
+		FUNCDEF	PrivateEntry3
+		FUNCDEF	WriteChars
+		FUNCDEF	PutStr
+		FUNCDEF	VPrintf
+		FUNCDEF	MatchReplace
+*
+* Mathieeedoubas
+		FUNCSTART
+		FUNCDEF	IEEEDPFix
+		FUNCDEF	IEEEDPFlt
+		FUNCDEF	IEEEDPCmp
+		FUNCDEF	IEEEDPTst
+		FUNCDEF	IEEEDPAbs
+		FUNCDEF	IEEEDPNeg
+		FUNCDEF	IEEEDPAdd
+		FUNCDEF	IEEEDPSub
+		FUNCDEF	IEEEDPMul
+		FUNCDEF	IEEEDPDiv
+		FUNCDEF	IEEEDPFloor
+		FUNCDEF	IEEEDPCeil
+*
+* Mathieeedoubtrans
+		FUNCSTART
+		FUNCDEF	IEEEDPAtan
+		FUNCDEF	IEEEDPSin
+		FUNCDEF	IEEEDPCos
+		FUNCDEF	IEEEDPTan
+		FUNCDEF	IEEEDPSincas
+		FUNCDEF	IEEEDPSinh
+		FUNCDEF	IEEEDPCosh
+		FUNCDEF	IEEEDPTanh
+		FUNCDEF	IEEEDPExp
+		FUNCDEF	IEEEDPLog
+		FUNCDEF	IEEEDPPow
+		FUNCDEF	IEEEDPSqrt
+		FUNCDEF	IEEEDPTieee
+		FUNCDEF	IEEEDPFieee
+		FUNCDEF	IEEEDPAsin
+		FUNCDEF	IEEEDPAcos
+		FUNCDEF IEEEDPLog10
+*
+* Mathtrans.library
+		FUNCSTART
+		FUNCDEF	SPAtan
+		FUNCDEF	SPSin
+		FUNCDEF	SPCos
+		FUNCDEF	SPTan
+		FUNCDEF	SPSincos
+		FUNCDEF	SPSinh
+		FUNCDEF	SPCosh
+		FUNCDEF	SPTanh
+		FUNCDEF	SPExp
+		FUNCDEF	SPLog
+		FUNCDEF	SPPow
+		FUNCDEF	SPSqrt
+		FUNCDEF	SPTieee
+		FUNCDEF	SPFieee
+		FUNCDEF	SPAsin
+		FUNCDEF	SPAcos
+		FUNCDEF	SPLog10
+*
+* Mathffp.library
+		FUNCSTART
+		FUNCDEF	SPFix
+		FUNCDEF	SPFlt
+		FUNCDEF	SPCmp
+		FUNCDEF	SPTst
+		FUNCDEF	SPAbs
+		FUNCDEF	SPNeg
+		FUNCDEF	SPAdd
+		FUNCDEF	SPSub
+		FUNCDEF	SPMul
+		FUNCDEF	SPDiv
+		FUNCDEF SPFloor
+		FUNCDEF SPCeil
+* AREXX
+		FUNCSTART
+		FUNCDEF Rexx             ; Main entry point
+		FUNCDEF rxParse          ; (private)
+		FUNCDEF rxInstruct       ; (private)
+		FUNCDEF rxSuspend        ; (private)
+		FUNCDEF EvalOp           ; (private)
+		FUNCDEF OAssignValue      ; (private)
+		FUNCDEF EnterSymbol      ; (private)
+		FUNCDEF FetchValue       ; (private)
+		FUNCDEF LookUpValue      ; (private)
+		FUNCDEF SetValue         ; (private)
+		FUNCDEF SymExpand        ; (private)
+
+		FUNCDEF ErrorMsg
+		FUNCDEF IsSymbol
+		FUNCDEF CurrentEnv
+		FUNCDEF GetSpace
+		FUNCDEF FreeSpace
+
+		FUNCDEF CreateArgstring
+		FUNCDEF DeleteArgstring
+		FUNCDEF LengthArgstring
+		FUNCDEF CreateRexxMsg
+		FUNCDEF DeleteRexxMsg
+		FUNCDEF ClearRexxMsg
+		FUNCDEF FillRexxMsg
+		FUNCDEF IsRexxMsg
+
+		FUNCDEF AddRsrcNode
+		FUNCDEF FindRsrcNode
+		FUNCDEF RemRsrcList
+		FUNCDEF RemRsrcNode
+		FUNCDEF OpenPublicPort
+		FUNCDEF ClosePublicPort
+		FUNCDEF ListNames
+
+		FUNCDEF ClearMem
+		FUNCDEF InitList
+		FUNCDEF InitPort
+		FUNCDEF FreePort
+
+		FUNCDEF CmpString
+		FUNCDEF StcToken
+		FUNCDEF StrcmpN
+		FUNCDEF StrcmpU
+		FUNCDEF StrcpyA          ; obsolete
+		FUNCDEF StrcpyN
+		FUNCDEF StrcpyU
+		FUNCDEF StrflipN
+		FUNCDEF Strlen
+		FUNCDEF ToUpper
+
+		FUNCDEF CVa2i
+		FUNCDEF CVi2a
+		FUNCDEF CVi2arg
+		FUNCDEF CVi2az
+		FUNCDEF CVc2x
+		FUNCDEF CVx2c
+
+		FUNCDEF OpenF
+		FUNCDEF CloseF
+		FUNCDEF ReadStr
+		FUNCDEF ReadF
+		FUNCDEF WriteF
+		FUNCDEF SeekF
+		FUNCDEF QueueF
+		FUNCDEF StackF
+		FUNCDEF ExistF
+
+		FUNCDEF DOSCommand
+		FUNCDEF DOSRead
+		FUNCDEF DOSWrite
+		FUNCDEF CreateDOSPkt     ; obsolete
+		FUNCDEF DeleteDOSPkt     ; obsolete
+		FUNCDEF SendDOSPkt       ; private
+		FUNCDEF WaitDOSPkt       ; private
+		FUNCDEF FindDevice
+
+		FUNCDEF AddClipNode
+		FUNCDEF RemClipNode
+		FUNCDEF LockRexxBase
+		FUNCDEF UnlockRexxBase
+		FUNCDEF CreateCLI
+		FUNCDEF DeleteCLI
+		FUNCDEF CVs2i
+
+
diff --git a/AMOSPro Sources/+music.s_Labels.s b/AMOSPro Sources/+music.s_Labels.s
new file mode 100644
index 0000000..57cdb76
--- /dev/null
+++ b/AMOSPro Sources/+music.s_Labels.s	
@@ -0,0 +1,114 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +music.s, list of the library functions on the 09-04-1993 09:39:45
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Init			set	0
+L_MOff			set	2
+L_OpNar			set	3
+L_NarInit		set	4
+L_InSay2		set	5
+L_InSay1		set	6
+L_Say			set	7
+L_InSetTalk		set	8
+L_FnLipsX		set	9
+L_LipsY			set	10
+L_Bell0			set	11
+L_Bell1			set	12
+L_Boom			set	13
+L_InShoot		set	14
+L_Shout			set	15
+L_InVol1		set	16
+L_InVol2		set	17
+L_Vol			set	18
+L_NarStop		set	19
+L_InPlay2		set	20
+L_InPlay3		set	21
+L_GoBel			set	22
+L_GoShot		set	23
+L_VPlay			set	24
+L_InPlayOff0		set	25
+L_InPlayOff1		set	26
+L_PlOf			set	27
+L_StopDma		set	28
+L_DmaWait		set	29
+L_InSamBank		set	30
+L_InSamLoopOn1		set	31
+L_InSamLoopOn0		set	32
+L_InSamLoopOff1		set	33
+L_InSamLoopOff0		set	34
+L_SL0			set	35
+L_InNoiseTo		set	36
+L_InSampleTo		set	37
+L_ISmt			set	38
+L_InSamPlay1		set	39
+L_InSamPlay2		set	40
+L_InSamPlay3		set	41
+L_InSamRaw		set	42
+L_GoSam			set	43
+L_GetSam		set	44
+L_InSLoad		set	45
+L_SPlay			set	46
+L_SPl0			set	47
+L_InWave		set	48
+L_InSetWave		set	49
+L_InDelWave1		set	50
+L_InSetEnvel		set	51
+L_RazWave		set	52
+L_NoWave		set	53
+L_NeWave		set	54
+L_WaveAd		set	55
+L_WaveDel		set	56
+L_Sami_stop		set	57
+L_EnvOff		set	58
+L_MuIntE		set	59
+L_MuInit		set	60
+L_InMusicOff		set	61
+L_InMusicStop		set	62
+L_InMusicVolume		set	63
+L_MVol			set	64
+L_InVoice		set	65
+L_VOnOf			set	66
+L_InMusic		set	67
+L_InTempo		set	68
+L_FnVuMeter		set	69
+L_FnMusicBase		set	70
+L_InLedOn		set	71
+L_InLedOf		set	72
+L_Sami_install		set	73
+L_Sami_remove		set	74
+L_IOOMem		set	75
+L_IFonc			set	76
+L_WNDef			set	77
+L_SNDef			set	78
+L_BNSam			set	79
+L_STSho			set	80
+L_W0Res			set	81
+L_MnRes			set	82
+L_MNDef			set	83
+L_FnSamSwapped		set	84
+L_InSamSwap		set	85
+L_InSamStop0		set	86
+L_InSamStop1		set	87
+L_InTrackLoad		set	88
+L_TrackCheck		set	89
+L_InTrackStop		set	90
+L_InTrackLoopOn		set	91
+L_InTrackLoopOff	set	92
+L_InTrackPlay0		set	93
+L_InTrackPlay1		set	94
+L_InTrackPlay2		set	95
+L_IDError		set	96
+L_Lips			set	97
+L_InTalkMisc		set	98
+L_InSSave		set	99
+L_InMedLoad		set	100
+L_MedCheck		set	101
+L_InMedStop		set	102
+L_InMedPlay0		set	103
+L_InMedPlay1		set	104
+L_InMedPlay2		set	105
+L_MedOpen		set	106
+L_InMedMidiOn		set	107
+L_MedClose		set	108
+L_InMedCont		set	109
+L_Custom		set	110
diff --git a/AMOSPro Sources/+music.s_Size.s b/AMOSPro Sources/+music.s_Size.s
new file mode 100644
index 0000000..f2cc8d7
--- /dev/null
+++ b/AMOSPro Sources/+music.s_Size.s	
@@ -0,0 +1,5 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;  on the 09-04-1993 09:39:45
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 113
diff --git a/AMOSPro Sources/+music_Labels.s b/AMOSPro Sources/+music_Labels.s
new file mode 100644
index 0000000..f4a0dd3
--- /dev/null
+++ b/AMOSPro Sources/+music_Labels.s	
@@ -0,0 +1,113 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Music.s, list of the library functions on the 06-06-1996 01:48:40
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_Mus_Cold:		set	0
+L_MOff:			set	2
+L_OpNar:		set	3
+L_NarInit:		set	4
+L_InSay2:		set	5
+L_InSay1:		set	6
+L_Say:			set	7
+L_InSetTalk:		set	8
+L_FnMouthWidth:		set	9
+L_FnMouthHeight:	set	10
+L_InBell0:		set	11
+L_InBell1:		set	12
+L_InBoom:		set	13
+L_InShoot:		set	14
+L_Shout:		set	15
+L_InVolume1:		set	16
+L_InVolume2:		set	17
+L_Vol:			set	18
+L_InTalkStop:		set	19
+L_InPlay2:		set	20
+L_InPlay3:		set	21
+L_GoBel:		set	22
+L_GoShot:		set	23
+L_VPlay:		set	24
+L_InPlayOff0:		set	25
+L_InPlayOff1:		set	26
+L_PlOf:			set	27
+L_StopDma:		set	28
+L_DmaWait:		set	29
+L_InSamBank:		set	30
+L_InSamLoopOn1:		set	31
+L_InSamLoopOn0:		set	32
+L_InSamLoopOff1:	set	33
+L_InSamLoopOff0:	set	34
+L_SL0:			set	35
+L_InNoiseTo:		set	36
+L_InSampleTo:		set	37
+L_ISmt:			set	38
+L_InSamPlay1:		set	39
+L_InSamPlay2:		set	40
+L_InSamPlay3:		set	41
+L_InSamRaw:		set	42
+L_GoSam:		set	43
+L_GetSam:		set	44
+L_InSload:		set	45
+L_SPlay:		set	46
+L_SPl0:			set	47
+L_InWave:		set	48
+L_InSetWave:		set	49
+L_InDelWave:		set	50
+L_InSetEnvel:		set	51
+L_RazWave:		set	52
+L_NoWave:		set	53
+L_NeWave:		set	54
+L_WaveAd:		set	55
+L_WaveDel:		set	56
+L_Sami_stop:		set	57
+L_EnvOff:		set	58
+L_MuIntE:		set	59
+L_MuInit:		set	60
+L_InMusicOff:		set	61
+L_InMusicStop:		set	62
+L_InMvolume:		set	63
+L_MVol:			set	64
+L_InVoice:		set	65
+L_VOnOf:		set	66
+L_InMusic:		set	67
+L_InTempo:		set	68
+L_FnVuMeter:		set	69
+L_FnMusicBase:		set	70
+L_InLedOn:		set	71
+L_InLedOf:		set	72
+L_Sami_install:		set	73
+L_Sami_remove:		set	74
+L_IOOMem:		set	75
+L_IFonc:		set	76
+L_WNDef:		set	77
+L_SNDef:		set	78
+L_BNSam:		set	79
+L_STSho:		set	80
+L_W0Res:		set	81
+L_MnRes:		set	82
+L_MNDef:		set	83
+L_FnSamSwapped:		set	84
+L_InSamSwap:		set	85
+L_InSamStop0:		set	86
+L_InSamStop1:		set	87
+L_InTrackLoad:		set	88
+L_TrackCheck:		set	89
+L_InTrackStop:		set	90
+L_InTrackLoopOn:	set	91
+L_InTrackLoopOff:	set	92
+L_InTrackPlay0:		set	93
+L_InTrackPlay1:		set	94
+L_InTrackPlay2:		set	95
+L_IDError:		set	96
+L_InMouthRead:		set	97
+L_InTalkMisc:		set	98
+L_InSsave:		set	99
+L_InMedLoad:		set	100
+L_MedCheck:		set	101
+L_InMedStop:		set	102
+L_InMedPlay0:		set	103
+L_InMedPlay1:		set	104
+L_InMedPlay2:		set	105
+L_MedOpen:		set	106
+L_InMedMidiOn:		set	107
+L_MedClose:		set	108
+L_InMedCont:		set	109
diff --git a/AMOSPro Sources/+music_Size.s b/AMOSPro Sources/+music_Size.s
new file mode 100644
index 0000000..b39d822
--- /dev/null
+++ b/AMOSPro Sources/+music_Size.s	
@@ -0,0 +1,5 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; +Music.s, library size on the 06-06-1996 01:48:40
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Size		equ	 112
diff --git a/AMOSPro Sources/+pro2.s b/AMOSPro Sources/+pro2.s
new file mode 100644
index 0000000..39843eb
--- /dev/null
+++ b/AMOSPro Sources/+pro2.s	
@@ -0,0 +1,695 @@
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				CHARGEMENT DES LIBRARIES + EXTENSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Load
+; - - - - - - - - - - - - - - - -
+
+; Librairie principale AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#14,d0
+	bsr	Sys_GetMessage
+	bsr	Sys_AddPathCom
+	moveq	#0,d0
+	bsr	Library_Load
+	bne.s	.Err
+; Charge la librairie complementaire AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#15,d0
+	bsr	Sys_GetMessage
+	bsr	Sys_AddPathCom
+	moveq	#0,d0
+; Integre les fonctions internes AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Library_Patch
+; Extensions
+; ~~~~~~~~~~
+	moveq	#1,d2
+.Loop	move.l	d2,d0
+	add.w	#16-1,d0
+	bsr	Sys_GetMessage
+	tst.b	(a0)
+	beq.s	.Next
+	bsr	Sys_AddPathCom
+	move.w	d2,d0
+	bsr	Library_Load
+	bne.s	.Err
+.Next	addq.w	#1,d2	
+	cmp.w	#27,d2
+	bne.s	.Loop
+	moveq	#0,d0
+.Err	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				RELOCATION DES LIBRAIRIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Reloc
+; - - - - - - - - - - - - - - - -
+	moveq	#0,d2
+.Loop	move.l	d2,d0
+	bsr	Library_Reloc
+	bne.s	.Err
+	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop
+	bsr	Libraries_FreeSizes
+	bsr	Library_GetParams
+	moveq	#0,d0
+.Err	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				INITIALISATION DES LIBRAIRIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Init
+; - - - - - - - - - - - - - - - -
+	moveq	#0,d2
+.Loop	move.l	d2,d0
+	bsr	Library_Init
+	bne.s	.Err
+	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop
+	moveq	#0,d0
+.Err	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				CHARGEMENT D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Name1=	Nom
+;	A0=	Command line
+;	D0=	Numero
+; - - - - - - - - - - - - - - - -
+Library_Load
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+
+	move.l	d0,d6
+	move.l	a0,a4
+	lea	AdTokens(a5),a6
+	lsl.w	#2,d0
+	add.w	d0,a6
+; Ouvre le fichier
+; ~~~~~~~~~~~~~~~~
+	move.l	#1005,d2
+	bsr	D_Open
+	beq	Ll_Disc
+; Lis l'entete dans le buffer
+	move.l	Buffer(a5),d2
+	move.l	#$20+18,d3
+	bsr	D_Read
+	bne	Ll_Disc
+	move.l	d2,a3
+	lea	$20(a3),a3
+	move.l	(a3),d5
+	lsr.l	#1,d5			D5= nombre de fonctions
+; Reserve la zone memoire...
+	move.l	d5,d4
+	lsl.l	#2,d4			Taille des jumps
+	addq.l	#4,d4			+ Dernier jump (taille derniere routine)
+	moveq	#LB_Size,d3		Data zone negative
+	add.l	4(a3),d3		+ Tokens
+	add.l	8(a3),d3		+ Librairie
+	add.l	12(a3),d3		+ Titre
+	move.l	d3,d0
+	add.l	d4,d0
+	move.l	d0,d1
+	jsr	RamFast
+	beq	Ll_OMem
+	move.l	d0,a0
+	lea	LB_Size(a0,d4.l),a2	Saute les jumps et la datazone
+	move.l	a2,(a6)			Extension chargee!!!
+	move.l	d1,LB_MemSize(a2)	Taille de la zone memoire
+	move.l	a0,LB_MemAd(a2)		Adresse de base
+	move.l	(a3),d3			Buffer temporaire pour les tailles
+	move.l	d3,d0
+	addq.l	#4,d0
+	jsr	RamFast
+	beq	Ll_OMem
+	move.l	d0,a0
+	move.l	d3,(a0)+
+	move.l	a0,LB_LibSizes(a2)
+	move.l	a0,d2	
+	bsr	D_Read			des routines
+	bne	Ll_Disc
+; Fabrique la table d'adresse des routines internes
+	move.w	d5,d0
+	subq.w	#1,d0
+	move.l	a2,d1			Base des tokens
+	add.l	4(a3),d1		+ Taille des tokens = Librairie
+	lea	Ll_Rts(pc),a0		RTS pour les fonctions vides
+	move.l	a0,d3
+	move.l	LB_LibSizes(a2),a0	Liste des fonctions
+	lea	-LB_Size(a2),a1		Debut des adresses
+	moveq	#0,d2
+.Loop1	move.l	d1,-(a1)
+	move.w	(a0)+,d2
+	bne.s	.Skip1
+	move.l	d3,(a1)			Si routine vide>>> RTS
+.Skip1	add.l	d2,d1
+	add.l	d2,d1
+	dbra	d0,.Loop1
+; Charge tout le reste
+	move.l	4(a3),d3		Tokens
+	add.l	8(a3),d3		+ Librairie
+	add.l	12(a3),d3		+ Titre
+	move.l	a2,d2
+	bsr	D_Read
+	bne	Ll_Disc
+; Ferme le fichier!
+	bsr	D_Close
+; Rempli la datazone
+	move.w	d5,LB_NRout(a2)		Nombre de routines
+	clr.w	LB_Flags(a2)		Flags
+	move.l	4(a3),d0
+	add.l	8(a3),d0		
+	add.l	a2,d0
+	move.l	d0,LB_Title(a2)		Adresse du titre
+	move.l	a4,LB_Command(a2)	Command line
+; Pas d'erreur
+	moveq	#0,d0
+	bra	Ll_Out
+
+Ll_Rts	illegal				RTS pour les fonctions vides...
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				INTEGRATION DES LIBRAIRIES INTERNES AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;
+; - - - - - - - - - - - - - - - -
+Library_Patch
+; - - - - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	move.l	AdTokens(a5),a2	
+	move.l	LB_LibSizes(a2),a3
+	lea	AMOSJmps,a1
+	move.w	(a1)+,d0
+.Loop	lsl.w	#1,d0				Plus de taille => plus de relocation
+	clr.w	0(a3,d0.w)
+	lsl.w	#1,d0				Pointe dans la librarie
+	neg.w	d0
+	lea	-LB_Size-4(a2,d0.w),a0
+	move.l	(a1)+,(a0)
+	move.w	(a1)+,d0
+	bne.s	.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				RELOCATION D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	D0=	Numero
+; - - - - - - - - - - - - - - - -
+Library_Reloc
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	d0,d6
+	lea	AdTokens(a5),a3
+	lsl.w	#2,d0
+	move.l	0(a3,d0.w),d0
+	beq	Ll_Out
+	move.l	d0,a3
+
+; 	Exploration de la table de tokens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a3,a0
+.RLoop	move.w	2(a0),d1
+	move.w	(a0),d0	
+	beq	.RExit
+	bmi.s	.RFonc
+	cmp.w	#1,d0
+	beq.s	.RFonc
+; Une Instruction / Instruction ET fonction 
+.RInst	addq.w	#1,d0			Instruction pointe direct
+;	bmi.s	.INop			Instruction NOP
+	lsl.w	#2,d0
+	neg.w	d0
+	move.w	d0,(a0)
+	tst.w	d1			Faire un flag?
+	bmi	.RNext
+	moveq	#0,d0
+	bset	#6,d0			Une instruction
+	cmp.w	#1,d1
+	ble.s	.RSuit
+	bset	#7,d0			Une instruction + fonction
+	bra.s	.RSuit
+;.INop	move.w	#1,(a0)			Positif>>> Instruction NOP
+;	moveq	#0,d0
+;	bra.s	.RNext
+; Une fonction / Fonction mathematique
+.RFonc	cmp.w	#1,d1			1, ou 0>>> VIDE!!!
+	ble.s	.RSuit
+	lsl.w	#2,d1			Fonction, pointe AVANT
+	neg.w	d1
+	move.w	d1,(a0)
+	and.w	#$FF00,d0		Fonction normale?
+	beq	.RFn
+	and.w	#%0111111100000000,d0	Faire un flag?
+	beq	.RNext
+.RFn	bset	#7,d0			Une fonction!
+; Fabrication du flag parametres...
+.RSuit	lea	4(a0),a1
+.RNom	tst.b	(a1)+			Saute le nom
+	bpl.s	.RNom
+	moveq	#0,d2			Type de fonction
+	move.b	(a1)+,d1		Definition fonction / instruciton
+	bmi.s	.RDoke
+	cmp.b	#"C",d1			Si constante
+	beq.s	.RCst	
+	cmp.b	#"V",d1			Si variable reservee
+	bne.s	.RSkip1	
+	move.b	(a1)+,d1
+	bmi.s	.RDoke
+	or.w	#L_VRes,d0
+.RSkip1	move.b	(a1)+,d1
+	bmi.s	.RDoke
+	addq.w	#1,d0
+	cmp.b	#"1",d1			Un float?
+	bne.s	.RSkip2
+	or.w	#L_FFloat,d0
+.RSkip2	move.b	(a1)+,d1
+	bpl.s	.RSkip1
+.RDoke	move.w	d0,2(a0)		Doke le flag parametres
+	move.l	a1,d0			On est deja a la fin
+	addq.l	#1,d0
+	and.w	#$FFFE,d0
+	move.l	d0,a0
+	bra	.RLoop			On peut donc reboucler
+.RCst	tst.b	(a1)+			Une constante
+	bpl.s	.RCst
+	bra.s	.RDoke
+.RNext	clr.w	2(a0)			Pas de flag
+	bsr	Ll_TkNext		Saute le token
+	bra	.RLoop
+.RExit
+	addq.l	#2,a0
+; 	Swapper les routines floats?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	#"FSwp",(a0)
+	bne.s	.NoFSwp
+	move.w	4(a0),LB_DFloatSwap(a3)
+	move.w	6(a0),LB_FFloatSwap(a3)
+	addq.l	#8,a0
+.NoFSwp	
+; 	Une table de verification rapide?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.l	#"KwiK",(a0)		Le code?
+	bne.s	.NoKwik
+	lea	4(a0),a0
+	move.l	a0,LB_Verif(a3)		Poke l'adresse...
+.NoKwik
+; 	Relocation des routines...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	LB_NRout(a3),d3		Nombre de routines
+	move.w	d3,d5			Pour comparer...
+	subq.w	#1,d3
+	lea	-LB_Size(a3),a2
+	move.l	LB_LibSizes(a3),a4	Tailles des routines
+	JLea	L_Pos_IRet,a0		Position du delta _IRet
+	move.w	(a0),d0
+	JLea	L_New_ChrGet,a0		Plus adresse
+	add.w	d0,a0			=Adresse retour
+	sub.l	AdTokens(a5),a0		Moins A4
+	move.w	a0,d6			=Delta du JSR(a4)
+GRou0	move.l	-(a2),a0		Debut routine
+	moveq	#0,d4
+	move.w	(a4)+,d4
+	beq.s	GRouN
+	lsl.l	#1,d4
+	add.l	a0,d4			Fin routine
+GRou1	move.b	(a0),d0
+	cmp.b	#C_Code1,d0
+	beq	GRou10
+GRou2	addq.l	#2,a0
+	cmp.l	d4,a0
+	bcs.s	GRou1
+GRouN	dbra	d3,GRou0
+	bra	GRouX
+; Instruction speciale
+GRou10	move.w	(a0),d0
+	move.b	d0,d2
+	and.b	#$0F,d0
+	cmp.b	#C_Code2,d0
+	bne	GRou2
+	and.w	#$00F0,d2
+	lsr.w	#1,d2
+	lea	GRout(pc),a1
+	jmp	0(a1,d2.w)
+; Table des sauts
+GRout	bra	GRouJ			; 0 - RJmp / Rjmptable
+	dc.w	$4ef9			JMP
+	jmp	(a0)	
+	bra	GRouJ			; 1 - RJsr / Rjsrtable
+	dc.w	$4eb9			JSR
+	jsr	(a0)
+	bra	GRouB			; 2 - RBra
+	bra	GRout
+	bra	GRouB			; 3 - RBsr
+	bsr	GRout
+	bra	GRouB			; 4 - RBeq
+	beq	GRout
+	bra	GRouB			; 5 - RBne
+	bne	GRout
+	bra	GRouB			; 6 - RBcs
+	bcs	GRout
+	bra	GRouB			; 7 - RBcc
+	bcc	GRout
+	bra	GRouB			; 8 - RBlt
+	blt	GRout
+	bra	GRouB			; 9 - RBge
+	bge	GRout
+	bra	GRouB			; 10- RBls
+	bls	GRout
+	bra	GRouB			; 11- RBhi
+	bhi	GRout
+	bra	GRouB			; 12- RBle
+	ble	GRout
+	bra	GRouB			; 13- RBpl
+	bpl	GRout
+	bra	GRouB			; 14- RBmi
+	bmi	GRout
+	bra	GRouD			; 15- RData / Ret_Inst
+GRouMve	move.l	0(a4),a0
+GRlea	lea	$0.l,a0
+CJsr	jsr	0(a4)
+CJmp	move.l	(sp),a0
+	jmp	(a0)
+	jmp	0(a4)
+; RJMP / RJSR
+GRouJ	cmp.b	#C_CodeJ,2(a0)
+	beq.s	.Rjsr
+	cmp.b	#C_CodeT,2(a0)
+	bne	GRou2
+; Rjsrt / Rjmpt
+	move.b	3(a0),d0
+	cmp.b	#8,d0
+	bcc.s	.Rlea
+	and.w	#$0007,d0
+	move.w	d0,d1
+	lsl.w	#8,d1
+	lsl.w	#1,d1
+	or.w	GRouMve(pc),d1		Move.l	X(a4),ax
+	move.w	d1,(a0)+
+	move.w	2(a0),d1
+	lsl.w	#2,d1
+	add.w	#LB_Size+4,d1
+	neg.w	d1
+	move.w	d1,(a0)+
+	or.w	6(a1,d2.w),d0		Jsr/Jmp	(ax)
+	move.w	d0,(a0)+
+	bra	GRou1
+; Rlea	
+.Rlea	subq.w	#8,d0
+	cmp.b	#8,d0
+	bcc	GRou2
+	lsl.w	#8,d0
+	lsl.w	#1,d0
+	or.w	GRlea(pc),d0
+	move.w	d0,(a0)
+	move.w	4(a0),d0
+	moveq	#0,d1
+	addq.l	#6,a0
+	bra.s	.Qq
+; Rjsr / Rjmp direct
+.Rjsr	moveq	#0,d1			Transforme en JSR direct
+	move.b	3(a0),d1
+	cmp.b	#27,d1			Numero de l'extension
+	bcc	GRou2	
+	move.w	4(a1,d2.w),(a0)
+	move.w	4(a0),d0
+	addq.l	#6,a0
+	ext.w	d1
+; Extension quelconque
+.Qq	lsl.w	#2,d1
+	lea	AdTokens(a5),a1
+	move.l	0(a1,d1.w),d1
+	beq	Ll_BadExt
+	move.l	d1,a1			Adresse des tokens de l'extension
+	cmp.w	LB_NRout(a1),d0		Superieur au maximum?
+	bcc	Ll_BadExt
+.AA	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a1,d0.w),-4(a0)
+	bra	GRou1
+; RBRA etc..
+GRouB	move.w	2(a0),d1
+	cmp.w	d5,d1
+	bcc	GRou2
+	lsl.w	#2,d1
+	move.w	4(a1,d2.w),(a0)+
+	neg.w	d1
+	move.l	-LB_Size-4(a3,d1.w),d0
+	sub.l	a0,d0
+	cmp.l	#-32766,d0
+	ble	Gfaux
+	cmp.l	#32766,d0
+	bge	Gfaux
+	move.w	d0,(a0)+
+	bra	GRou1
+; Instruction RDATA / Ret_Inst
+GRouD	cmp.w	#C_CodeD,2(a0)
+	bne.s	GRouD1
+	move.w	CNop(pc),d0
+	move.w	d0,(a0)+
+	move.w	d0,(a0)+
+	bra	GRouN
+; Instruction Ret_Inst
+GRouD1	cmp.w	#C_CodeInst,2(a0)
+	bne	GRou2
+	move.l	CJmp(pc),(a0)+
+;	move.w	d6,(a0)+
+	bra	GRou1
+; Fini, pas d'erreur
+GRouX	jsr	Sys_ClearCache		Nettoie les caches
+	moveq	#0,d0
+	bra	Ll_Out
+Gfaux	illegal
+
+; Sortie des chargements/relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ll_BadExt
+	moveq	#2,d0
+	bra.s	Ll_Err
+Ll_Disc	moveq	#1,d0
+	bra.s	Ll_Err
+Ll_OMem	moveq	#2,d0
+Ll_Err
+Ll_Out	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+L_NoFlag	equ	%1000000000000000
+L_Entier	equ	%0000000000000000	0
+L_FFloat	equ	%1001000000000000	1
+L_FAngle	equ	%1010000000000000	2
+L_FMath		equ	%1011000000000000	3
+L_VRes		equ	%1100000000000000	4
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Relocation des recoltes de parametres
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Library_GetParams
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	AdTokens(a5),a4
+	JLea	L_Parameters,a3
+
+; 	Exploration de la table de tokens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,a2
+	move.w	(a2),d3
+.Loop	move.w	2(a2),d2
+	beq.s	.Next
+; Une instruction?
+; ~~~~~~~~~~~~~~~~
+	move.w	d2,d1
+	and.w	#%0000000000111111,d1		Nombre de parametres
+	move.w	d1,2(a2)
+	btst	#6,d2
+	beq.s	.NoIns
+	lea	-LB_Size(a4,d3.w),a1
+	moveq	#0,d0
+	bsr	.Rout
+.NoIns
+; Une fonction?
+; ~~~~~~~~~~~~~
+	btst	#7,d2
+	beq.s	.NoFunc
+	lea	-LB_Size-4(a4,d3.w),a1
+	moveq	#2,d0
+	bsr	.Rout
+.NoFunc
+; Suivante
+; ~~~~~~~~
+.Next	addq.l	#4,a2
+.Ins	tst.b	(a2)+
+	bpl.s	.Ins
+.Ins2	tst.b	(a2)+
+	bpl.s	.Ins2
+	move.l	a2,d0
+	and.w	#$0001,d0
+	add.w	d0,a2
+	move.w	(a2),d3
+	bne.s	.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+
+;	Branche la routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.Rout	and.w	#$7000,d2		Isole le code
+	rol.w	#4,d2			Pointe la table
+	lsl.w	#1,d2
+	jmp	.Jmps(pc,d2.w)		Branche a la routine
+.Jmps	bra.s	.Entier			0
+	bra.s	.Float			1
+	bra.s	.FAngle			2
+	bra.s	.FMath			3
+	bra.s	.Var			4
+.Float	tst.w	d1			Des parametres?
+	beq.s	.Exit
+	addq.w	#6,d1			Float
+	cmp.w	#6+6,d1
+	bcs.s	.Doke
+	moveq	#6+5,d1
+	bra.s	.Doke
+.IVar	add.w	#12,d1			Variable reservee en instruction
+	cmp.w	#12+6,d1
+	bcs.s	.Doke
+	moveq	#12+5,d1
+	bra.s	.Doke
+.FAngle	moveq	#0,d0
+	moveq	#18,d1			Fonction angle
+	bra.s	.Doke
+.FMath	moveq	#0,d0			
+	moveq	#19,d1			Fonction math
+	bra.s	.Doke
+.Var	tst.w	d0			Variable reservee en fonction
+	beq.s	.IVar
+.Entier	tst.w	d1			Des parametres?
+	beq.s	.Exit
+	cmp.w	#6,d1			Entier
+	bcs.s	.Doke
+	moveq	#5,d1
+; Doke l'adresse de la fonction
+.Doke	lsl.w	#1,d1			Pointe la table des adresses
+	move.w	0(a3,d1.w),d1		Delta au debut
+	sub.w	d0,d1			Moins ADDQ.L #2,a6 si fonction
+	ext.l	d1	
+	add.l	a3,d1			Plus debut
+	sub.l	a4,d1			Moins base
+	move.l	(a1),a0			Adresse de la routine
+	move.w	CJsr(pc),d0
+	cmp.l	#"GetP",-(a0)		Un espace pour parametres?
+	beq.s	.Ok
+	cmp.w	4(a0),d0		Deja fait?
+	beq.s	.Exit
+	illegal
+.Ok	move.w	d0,(a0)+		Met le JSR
+	move.w	d1,(a0)+		Doke le delta
+	subq.l	#4,(a1)			Recule la fonction
+.Exit	rts
+	
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				INITIALISATION D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Library_Init
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	AdTokens(a5),a3
+	move.w	d0,d1
+	lsl.w	#2,d0
+	move.l	0(a3,d0.w),d0
+	beq	Ll_Out
+	move.l	d0,a3
+	subq.w	#1,d1			Extension= number-1
+	move.w	d1,-(sp)
+	move.l	-LB_Size-4(a3),a0	Adresse routine #0
+	move.l	LB_Command(a3),a1	Command Line
+	move.l	#"APex",d1		Magic
+	move.l	#VerNumber,d2		Numero de version
+	jsr	(a0)
+	move.w	(sp)+,d3
+	tst.w	d0			Refuse de charger...
+	bpl.s	.Nomi
+	move.l	a0,d0			Un message?
+	bne	Ll_Mess			Oui,
+	beq	Ll_BadExt		Non
+.Nomi	ext.w	d0
+	cmp.w	d0,d3			Bon numero d'extension?
+	bne	Ll_BadExt
+	cmp.w	#VerNumber,d1		Bon numero de version?
+	bcs	Ll_BadExt
+	moveq	#0,d0
+	bra	Ll_Out
+Ll_Mess	bra	Ll_BadExt		Illegal
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				ARRET DES LIBRAIRIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Stop
+; - - - - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#26-1,d2
+	lea	ExtAdr+26*16-16(a5),a2
+.Loop	move.l	8(a2),d0
+	beq.s	.Next
+	move.l	d0,a0
+	movem.l	a2/d2,-(sp)
+	jsr	(a0)
+	movem.l	(sp)+,a2/d2
+.Next	lea	-16(a2),a2
+	dbra	d2,.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				EFFACEMENT DES LIBRARIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Free
+; - - - - - - - - - - - - - - - -
+	bsr	Libraries_FreeSizes
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#27-1,d2
+	lea	AdTokens(a5),a2
+.Loop	move.l	(a2),d0
+	beq.s	.Next
+	move.l	d0,a0			La library elle meme...	
+	clr.l	(a2)
+	move.l	LB_MemAd(a0),a1
+	move.l	LB_MemSize(a0),d0
+	SyCall	MemFree
+.Next	addq.l	#4,a2			Library suivante...
+	dbra	d2,.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				LIBERATION DE LA TABLE DES TAILLES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_FreeSizes
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	AdTokens(a5),a2
+	moveq	#27-1,d2
+.Loop	move.l	(a2)+,d0
+	beq.s	.Skip
+	move.l	d0,a0
+	move.l	LB_LibSizes(a0),d0
+	beq.s	.Skip
+	clr.l	LB_LibSizes(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	jsr	RamFree
+.Skip	dbra	d2,.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+
+; Passe � le prochaine instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ll_TkNext
+	addq.l	#4,a0
+.Loop1	tst.b	(a0)+
+	bpl.s	.Loop1
+.Loop2	tst.b	(a0)+
+	bpl.s	.Loop2
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	rts
+
diff --git a/AMOSPro Sources/+w.s.auts.info b/AMOSPro Sources/+w.s.auts.info
new file mode 100644
index 0000000..e1fc4ce
Binary files /dev/null and b/AMOSPro Sources/+w.s.auts.info differ
diff --git a/AMOSPro Sources/AMOSProDrip b/AMOSPro Sources/AMOSProDrip
new file mode 100644
index 0000000..2818765
--- /dev/null
+++ b/AMOSPro Sources/AMOSProDrip	
@@ -0,0 +1,5 @@
+Flush
+Drip
+AMOSPro
+Flush
+Drip
diff --git a/AMOSPro Sources/AP2 b/AMOSPro Sources/AP2
new file mode 100644
index 0000000..c9685aa
Binary files /dev/null and b/AMOSPro Sources/AP2 differ
diff --git a/AMOSPro Sources/APCmp b/AMOSPro Sources/APCmp
new file mode 100644
index 0000000..b94e27f
Binary files /dev/null and b/AMOSPro Sources/APCmp differ
diff --git a/AMOSPro Sources/Bug.AMOS b/AMOSPro Sources/Bug.AMOS
new file mode 100644
index 0000000..77117f3
Binary files /dev/null and b/AMOSPro Sources/Bug.AMOS differ
diff --git a/AMOSPro Sources/Bug.Anim b/AMOSPro Sources/Bug.Anim
new file mode 100644
index 0000000..a1ca54f
Binary files /dev/null and b/AMOSPro Sources/Bug.Anim differ
diff --git a/AMOSPro Sources/Bug.Anim.info b/AMOSPro Sources/Bug.Anim.info
new file mode 100644
index 0000000..0b10f7f
Binary files /dev/null and b/AMOSPro Sources/Bug.Anim.info differ
diff --git a/AMOSPro Sources/Compiler b/AMOSPro Sources/Compiler
new file mode 100644
index 0000000..14486c9
--- /dev/null
+++ b/AMOSPro Sources/Compiler	
@@ -0,0 +1,2 @@
+Copy Compiler_Editor_Config APro:APSystem/AMOSPro_Editor_Config
+Copy Compiler_Interpreter_Config s:AMOSPro_Interpreter_Config
diff --git a/AMOSPro Sources/Compiler_Editor_Config b/AMOSPro Sources/Compiler_Editor_Config
new file mode 100644
index 0000000..0ff561a
Binary files /dev/null and b/AMOSPro Sources/Compiler_Editor_Config differ
diff --git a/AMOSPro Sources/Compiler_Interpreter_Config b/AMOSPro Sources/Compiler_Interpreter_Config
new file mode 100644
index 0000000..5b48ca0
Binary files /dev/null and b/AMOSPro Sources/Compiler_Interpreter_Config differ
diff --git a/AMOSPro Sources/Dbl_Source/Compiler_Dbl.Asc b/AMOSPro Sources/Dbl_Source/Compiler_Dbl.Asc
new file mode 100644
index 0000000..c73b9ae
--- /dev/null
+++ b/AMOSPro Sources/Dbl_Source/Compiler_Dbl.Asc	
@@ -0,0 +1,344 @@
+
+main dialog program of the amospro compiler shell
+
+main panel
+
+LAbel    0;
+SIze     SW,SH;
+BAse     SWidth SX -2/,SHeight SY -2/;
+SetVar   0,SX 640- 16/ 8*;
+UNpack   32,0,60;
+LIne     424,0,61,SX56-;
+BUtton   0,32,0,SX96-,16,0,0,0;[][SM;]
+BUtton   15,SX 56-,0,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+BUtton   1,0,0,32,16,0,0,1;[UNpack 0,0,55BP+;][BR0;]
+KY       27,0;
+INk      0,0,0; GLine 0,16,SX,16;
+BOx      0,17,1,SX,SY;
+BOx      8 0VA+,28,1,8 216+ 0VA+,110;
+UNpack   72 0VA+,40,57;
+RotBut   2,8 8+ 0VA+,68,200;
+BOx      232 0VA+,28,1,232 216+ 0VA+,110;
+UNpack   200 0VA+,40,64;
+UNpack   264 0VA+,40,58;
+RotBut   3,232 8+ 0VA+,68,200;
+BOx      456 0VA+,28,1,SX 0VA- 8-,110;
+UNpack   512 0VA+,40,59;
+RotBut   4,456 8+ 0VA+,68,160;
+BUtton   5,24 0VA+,120,184,24,0,0,1;[LIne 0,0,33 3BP*+,184; UN 16,4BP+,53;PR 56,THBP+,99ME,3;][BR0;]
+BUtton   6,SX 384- 0VA- 24-,120,384,24,0,0,1;[LIne 0,0,33 3BP*+,384;UN 120,4BP+,54;][BR0;]
+EXit;
+      
+setup main panel
+
+LAbel    1;
+SIze     600,150;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 64-,20;
+POutline 130MECX,8,130ME,0,7;
+BUtton   0,0,0,SX64-,16,0,0,0;[][SM;]
+BUtton   15,SX 64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+BUtton   3,32,26,SX32-,24,0,0,1;[LIne 0,0,33 3BP*+,SX 32-; PRint 131ME CX,8,131ME,3;][BR0;]
+BUtton   4,32,54,SX32-,24,0,0,1;[LIne 0,0,33 3BP*+,SX 32-; PRint 132ME CX,8,132ME,3;][BR0;]
+BUtton   5,32,82,SX32-,16,0,0,1;[LIne 0,0,68 3BP*+,SX 32-; PRint 133ME CX,4,133ME,3;][BR0;]
+BUtton   6,32,SY40-,135METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,135METW16+; PRint 135MECX BP+,4,135ME,3;][BR0;]
+BUtton   7,SX 136METW- 24- 2/,SY40-,136METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,136METW16+; PRint 136MECX BP+,4,136ME,3;][BR0;]
+BUtton   8,SX 137METW- 48- ,SY40-,137METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,137METW16+; PRint 137MECX BP+,4,137ME,3;][BR0;]
+BUtton   1,32,SY22-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+BUtton   2,SX96-,SY22-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 5MECX BP+,4,5ME,3;][BR0;]
+EXit;
+
+setup compiled prog one
+      
+LAbel 2;
+SIze     560,140;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 64-,20;
+POutline 140MECX16-,8,140ME' - 1'!,0,7;
+BUtton   0,0,0,SX64-,16,0,0,0;[][SM;]
+BUtton   15,SX 64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+DOption  3,16,32,SX16-,141,4VA;
+DOption  4,16,44,SX16-,142,5VA;
+DOption  5,16,56,SX16-,143,6VA;
+DOption  6,16,68,SX16-,144,7VA;
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+BUtton   8,SX 8METW- 16- 2/,SY20-,8METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,8METW16+; PRint 8MECX BP+,4,8ME,3;][BR0;]
+EXit;
+
+setup compiled prog two
+
+LAbel 3;
+SIze     560,140;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX64-,20;
+POutline 140MECX16-,8,140ME' - 2'!,0,7;
+BUtton   0,0,0,SX 64-,16,0,0,0;[][SM;]
+BUtton   15,SX 64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+DOption  3,16,32,SX16-,151,14VA;
+DOption  4,16,44,SX16-,152,15VA;
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+BUtton   8,SX 8METW- 16- 2/,SY20-,8METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,8METW16+; PRint 8MECX BP+,4,8ME,3;][BR0;]
+EXit;
+
+setup compiler shell one
+
+LAbel 4;
+SIze     560,140;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 64-,20;
+POutline 160MECX16-,8,160ME' - 1'!,0,7;
+BUtton   0,0,0,SX64-,16,0,0,0;[][SM;]
+BUtton   15,SX 64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+DOption  3,16,32,SX16-,161,24VA;
+DOption  4,16,44,SX16-,162,25VA;
+DOption  5,16,56,SX16-,163,26VA;
+DOption  6,16,68,SX16-,164,27VA;
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+BUtton   8,SX8METW- 16- 2/,SY20-,8METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,8METW16+; PRint 8MECX BP+,4,8ME,3;][BR0;]
+EXit;
+
+setup compiler shell two
+
+LAbel 5;
+SIze     560,140;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 64-,20;
+SetVar   0,SW SX- 2/;
+SetVar   1,SH SY- 2/;
+POutline 160MECX16-,8,160ME' - 2'!,0,7;
+BUtton   0,0,0,SX64-,16,0,0,0;[][SM;]
+BUtton   15,SX 64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+DOption  3,16,32,SX16-,171,34VA;
+DSelect  7,16,44,SX16-;
+DOption  4,16,56,SX16-,172,35VA;
+DSelect  8,16,68,SX16-;
+DOption  5,16,80,SX16-,173,36VA;
+DOption  6,16,92,SX16-,174,37VA;
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+BUtton   9,SX8METW- 16- 2/,SY20-,8METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,8METW16+; PRint 8MECX BP+,4,8ME,3;][BR0;]
+EXit;
+
+setup compiler system
+
+LAbel 6;
+SIze     560,140;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 64-,20;
+POutline 180MECX,8,180ME,0,7;
+BUtton   0,0,0,SX64-,16,0,0,0;[][SM;]
+BUtton   15,SX 64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+BUtton   3,16,32,SX16-,16,0,0,1;[LIne 0,0,68 3BP*+,SX16-; PRint 181MECX BP+,4,181ME,3;][BR0;]
+BUtton   4,16,50,SX16-,16,0,0,1;[LIne 0,0,68 3BP*+,SX16-; PRint 182MECX BP+,4,182ME,3;][BR0;]
+BUtton   5,16,68,SX16-,16,0,0,1;[LIne 0,0,68 3BP*+,SX16-; PRint 183MECX BP+,4,183ME,3;][BR0;]
+BUtton   6,16,86,SX16-,16,0,0,1;[LIne 0,0,68 3BP*+,SX16-; PRint 184MECX BP+,4,184ME,3;][BR0;]
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+EXit;
+      
+list of strings 
+      
+LAbel 7;
+SIze     496,140;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 64-,20;
+POutline 0VACX,8,0VA,0,7;
+BUtton   0,0,0,SX64-,16,0,0,0;[][SM;]
+BUtton   15,SX64-,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+VLine    SX32-,24,30,116;
+VSlider  3,SX24-,28,8,84,3VA,10,1VA,1;[ZChange 4,ZPos; SV 3,ZPos;]
+BOx      8,24,21,SX32-,116;
+AList    4,32,30,SX80-8/,10,2VA,3VA,3,2,3;[]
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+EXit;
+      
+popup string edit
+      
+LAbel    8:
+SIze     480,64;
+BAse     SW SX-2/,SH SY-2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 8-,20;
+POutline 0VACX,8,0VA,0,7;
+BUtton   0,0,0,SX,16,0,0,0;[][SM;]
+LIne     8,24,12,472;
+EDit     3,24,28,56,255,1VA,0,3;
+BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]
+KY       13,0;
+EXit;
+      
+about
+      
+LAbel    9:
+SIze     360,100;
+BAse     SW SX -2/,SH SY -2/; SA 1;
+BOx      0,0,1,SX,SY;
+BOx      16,8,1,SX 16-,72;
+SVar     2,1ME 0VA!;
+POutilne 2 VA CentreX,8 TH+,2VA,0,7;
+SVar     2,10ME ' Francois LIONET'!;
+PRint    2VA CentreX,24 TH+,2VA,7;
+SVar     2,11ME ' Jean-Baptiste BOLCATO'!;
+PRint    2VA CentreX,36 TH+,2VA,7;
+SVar     2,'� 1993 Europress Software Ltd.';
+PRint    2VA CentreX,48 TH+,2 VA,7;
+PRint    1VA CentreX,78 TH+,1 VA,3;
+EXit;
+      
+compiler vumeter 
+      
+LAbel    10:
+SIze     480,120;
+BAse     SW SX -2/,SH SY -2/;
+BOx      0,0,1,SX,SY;
+BOx      16,8,1,SX 16-,32;
+BOx      16,40,1,SX 16-,SY 8-;
+POutilne 13ME CentreX,8 TH+,13ME,0,7;
+BOx      32,48,21,SX 32-,SY 40-;
+PRint    32,SY 44- TH+,'0%',5;
+PRint    SX 64-,SY 44- TH+,'100%',5;
+EXit;
+      
+edit list of progs 
+      
+LAbel    11:
+SIze     586,144;
+BAse     SW SX -2/,SH SY -2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,256 64-,20;
+POutline 20,8,15ME,0,7;
+BUtton   15,192,4,56,16,0,0,1;[UNpack 0,0,76BP+;][]
+BOx      280,8,21,580,120;
+BUtton   0,0,0,256,32,0,0,0;[][SM;]
+BUtton   1,16,SY24-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4ME CX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,256 64- 16-,SY24-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3ME CX BP+,4,3ME,3;][BR0;]
+BUtton   3,16,40,256 32-,24,0,0,1;[LIne 0,0,33 3BP*+,256 32-; PRint 16ME CX BP+,8,16ME,3;][BR0;]
+BUtton   4,16,72,256 32-,24,0,0,1;[LIne 0,0,33 3BP*+,256 32-; PRint 17ME CX BP+,8,17ME,3;][BR0;]
+BUtton   5,256,SY24-,160,16,0,0,1;[LIne 0,0,68 3BP*+,160; PRint 18ME CX BP+,4,18ME,3;][BR0;]
+BUtton   6,416,SY24-,160,16,0,0,1;[LIne 0,0,68 3BP*+,160; PRint 19ME CX BP+,4,19ME,3;][BR0;]
+VLine    256,8,30,120;
+VSlider  7,264,12,8,104,0,12,1VA,1;[ZChange 8,ZPos;]
+AList    8,304,16,256 8/,100 8/,0VA,0,4,2,3;[]
+EXit;
+      
+compile report 
+      
+LAbel    12:
+SIze     0VA,1VA;
+BAse     SW SX -2/,SH SY -2/;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 8-,20;
+POutline 3VA CentreX,8,3VA,0,7;
+PRint    4VA CentreX,28,4VA,3;
+PRint    5VA CentreX,44,5VA,3;
+PRint    6VA CentreX,56,6VA,3;
+BUtton   0,0,0,SX,20,0,0,0;[][SM;]
+IF       2VA1=; [
+  BUtton 1,SX 2/ 32-,SY24-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3ME CX BP+,4,3ME,3;][BR0;]
+  KY     13,0;]
+IF       2VA2=; [
+  BUtton 1,16,SY24-,113METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,113METW16+; PRint 113ME CX BP+,4,113ME,3;][BR0;]
+  KY     13,0;
+  BUtton 2,SX 114METW-16-16-,SY24-,114METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,114METW16+; PRint 114ME CX BP+,4,114ME,3;][BR0;]
+  KY     27,0;]
+IF       2VA3=; [
+  BUtton 1,16,SY24-,118METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,118METW16+; PRint 118ME CX BP+,4,118ME,3;][BR0;]
+  KY     13,0;
+  BUtton 2,SX 117METW-16-16-,SY24-,117METW16+,16,0,0,1;[LIne 0,0,68 3BP*+,117METW16+; PRint 117ME CX BP+,4,117ME,3;][BR0;]
+  KY     27,0;]
+EXit;
+      
+warning requester
+
+LAbel    13;
+SIze     1VA TW 32+, 48 0VA 24*+;
+BAse     SW SX -2/,SH SY -2/; SA 1;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 8-,20;
+POutline 21ME CentreX,8,21ME,0,7;
+PRint    1VA CentreX,20 TH+,1VA,3;
+BUtton   0,0,0,SX,32,0,0,0;[][SM;]
+IF       0VA 1=;[
+BUtton   1,16,SY24-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 4ME CX BP+,4,4ME,3;][BR0;]
+KY       27,0;
+BUtton   2,SX80-,SY24-,64,16,0,0,1;[UNpack 0,0,10BP+; PRint 3ME CX BP+,4,3ME,3;][BR0;]
+KY       13,0;  ]
+EXit;
+
+information
+      
+LAbel    14:
+SIze     0VATW 64+,40;
+BAse     SW SX -2/,SH SY -2/; SA 1;
+BOx      0,0,1,SX,SY;
+PRint    0VA CentreX,16,0VA,7;
+EXit;
+
+
+information and vumeter
+      
+LAbel    15:
+SIze     0VA TW 32+,72;
+BAse     SW SX -2/,SH SY -2/; SA 1;
+BOx      0,0,1,SX,SY;
+PRint    0VA CentreX,12,0VA,7;
+BOx      32,28,21,SX 32-,50;
+PRint    32,SY 24- TH+,'0%',5;
+PRint    SX 64-,SY 24- TH+,'100%',5;
+EXit;
+
+
+user instructions
+      
+UI       DO,6;
+         drawoption zn x y w me bp
+[
+LIne     P2,P3,65,P4 68-;
+PRint    P2 16+,P3 1+,P5ME,3;
+BUtton   P1,P4 64-,P3,64,10,P6,0,1;
+         [LIne 0,0,15 3BP*+,64; PRint 6BP+MECX BP+,1,6BP+ME,3;][]
+]
+      
+UI       DS,4;
+         drawselect zn x y w
+[
+LIne     P2,P3,65,P4 28-;
+BUtton   P1,P4 24-,P3,24,10,0,0,1;
+         [UNpack 0,0,74BP+;][BR0;]
+]
+      
+UI       RB,4;
+         rotating button zn x y w
+[
+SetZon P4;
+BUtton P1,P2,P3,P4,24,0,0,1;
+       [LIne 0,0,39 3BP*+,SX; UN 48,4BP+,45 ZN50+1-VA+;
+       PRint 88,THBP+,91 ZN50+1-VA+ ME,3;]
+       [BR0; SV ZN50+1-,ZN10* 40+ ZN50+1-VA+ VA;]
+]
diff --git a/AMOSPro Sources/Dbl_Source/Tiny_Shell_Dbl.Asc b/AMOSPro Sources/Dbl_Source/Tiny_Shell_Dbl.Asc
new file mode 100644
index 0000000..94bff5e
--- /dev/null
+++ b/AMOSPro Sources/Dbl_Source/Tiny_Shell_Dbl.Asc	
@@ -0,0 +1,72 @@
+
+main dialog program of the amospro compiler tiny shell
+
+main panel
+
+LAbel    0;
+SIze     SW,SH;
+BAse     SWidth SX -2/,SHeight SY -2/;
+BOx      0,0,1,SX,10;
+PRint    1MECX,1,1ME,7;
+INk      0,2,2;
+GLine    0,10,SX,10;
+BOx      0,11,1,SX,SY;
+BUtton   0,0,0,SX,10,0,0,0;[][SM;]
+EXit;
+      
+compiler vumeter 
+      
+LAbel    10:
+SIze     600,50;
+BAse     SW SX -2/,SH SY- 10- 2/ 10+;
+BOx      0,0,1,SX,SY;
+BOx      32,8,67,SX 32-,33;
+PRint    32,SY 22- TH+,'0%',5;
+PRint    SX 64-,SY 22- TH+,'100%',5;
+PRint    0VA CX,SY 22- TH+,0VA,3;
+EXit;
+      
+compile report 
+      
+LAbel    12:
+SIze     0VA,1VA;
+BAse     SW SX -2/,SH SY- 10- 2/ 10+;
+BOx      0,0,1,SX,SY;
+PRint    3VA CentreX,6,3VA,7;
+PRint    4VA CentreX,20,4VA,3;
+PRint    5VA CentreX,30,5VA,3;
+EXit;
+      
+warning requester
+
+LAbel    13;
+SIze     0VA TW 32+, 48;
+BAse     SW SX -2/,SH SY- 10- 2/ 10+; SA 1;
+BOx      0,0,1,SX,SY;
+BOx      8,4,1,SX 8-,20;
+POutline 21ME CentreX,6,21ME,0,7;
+PRint    0VA CentreX,20 TH+,0VA,3;
+BUtton   0,0,0,SX,32,0,0,0;[][SM;]
+EXit;
+
+
+information
+      
+LAbel    14:
+SIze     0VA TW 64+,40;
+BAse     SW SX -2/,SH SY- 10- 2/ 10+; SA 1;
+BOx      0,0,1,SX,SY;
+PRint    0VA CentreX,16,0VA,7;
+EXit;
+
+information and vumeter
+      
+LAbel    15:
+SIze     0VA TW 32+,50;
+BAse     SW SX- 2/,SH SY- 10- 2/ 10+; SA 1;
+BOx      0,0,1,SX,SY;
+PRint    0VA CentreX,5,0VA,7;
+BOx      32,16,67,SX 32-,36;
+PRint    32,SY 20- TH+,'0%',5;
+PRint    SX 64-,SY 20- TH+,'100%',5;
+EXit;
diff --git a/AMOSPro Sources/Default_DBL.Bin b/AMOSPro Sources/Default_DBL.Bin
new file mode 100644
index 0000000..04eb235
Binary files /dev/null and b/AMOSPro Sources/Default_DBL.Bin differ
diff --git a/AMOSPro Sources/Default_Editor_Config b/AMOSPro Sources/Default_Editor_Config
new file mode 100644
index 0000000..860c066
Binary files /dev/null and b/AMOSPro Sources/Default_Editor_Config differ
diff --git a/AMOSPro Sources/Default_Interpreter_Config b/AMOSPro Sources/Default_Interpreter_Config
new file mode 100644
index 0000000..787abe1
Binary files /dev/null and b/AMOSPro Sources/Default_Interpreter_Config differ
diff --git a/AMOSPro Sources/Docs/Compiler_250593.FC b/AMOSPro Sources/Docs/Compiler_250593.FC
new file mode 100644
index 0000000..424d013
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_250593.FC differ
diff --git a/AMOSPro Sources/Docs/Compiler_250593.FC.info b/AMOSPro Sources/Docs/Compiler_250593.FC.info
new file mode 100644
index 0000000..b3cef70
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_250593.FC.info differ
diff --git a/AMOSPro Sources/Docs/Compiler_260493.Doc b/AMOSPro Sources/Docs/Compiler_260493.Doc
new file mode 100644
index 0000000..bb95fac
--- /dev/null
+++ b/AMOSPro Sources/Docs/Compiler_260493.Doc	
@@ -0,0 +1,320 @@
+
+
+Hi Richard... Here are a lot of infos on the compiler. You must
+read the compiler help as well. Both files and the compiler shell
+itself should keep Stephen Hill busy for a few days, time for me
+to finish the APCmp.
+
+In the help file, some titles may need to be re-centered, the
+display needs to be checked: Jean-Baptiste did not spend too
+much time on this as all the text need re-writing.
+If you dont like the structure of the help file (the way the different
+chapters are linked together) fell free to change it, but 
+please do not change the keywords.
+
+In the help file, I have put remarks, preceeded by "***".
+
+
+Cheers, Francois.
+
+
+
+AMOSPro Compiler Documentation 26/04/93
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+1- The installer.
+-----------------
+
+It will have the same look than the AMOSpro installer. I will ask
+Jean Baptiste to start it as soon as possible.
+
+Floppy users: we will have to ask the user to format an empty
+disc, and call it AMOSPro_Extras:. The installer will copy
+on this disc some programs from the AMOSPro_System disc:
+Install.AMOS + Memory banks
+Interpreter_Config.AMOS
+Editor_Config.AMOS
+
+This will leave enough space to install the compiler on the system
+disc. It will automatically modify the menu options (Interpreter Config, 
+Editor Config) from the editor, so that the system remains fully
+unchanged.
+
+This installer will automatically add 2 new options to the user menu:
+
+- "Compiler" call the compiler main screen
+- "Compile!" compile the current program in a new window. This option
+will not call the main shell, but a reduced version that will eat less
+memory.
+- "Set Compiler" call the main shell with a command line that will
+make it directly boot into MAIN SETUP page.
+When you quit this page, it will return to the editor.
+
+
+
+2- The Compiler Shell
+---------------------
+
+Nothing to say here, as it is very obvious to use. You will get informations
+on all the buttons by clicking on HELP and then clicking on the
+buttons.
+I have added information on the configuration files in the setup panels.
+Still to do are the error messages.
+
+In order to have the help, you must have at least 150 K of free memory.
+You will be asked to insert the AMOSPro_Accessories: disc into any
+drive to load AMOSPro_Help.AMOS
+TIP: just load the AMOSPro_Help.AMOS program in the AMOS menu from the
+editor if you want to speed up the help feature from the compiler:
+the program will not need to be loaded any more, just the help
+files.
+If you select "Enable warm start" from the editor's QUIT OPTION, next
+time you boot AMOSPro, you'll find the help accessorie pre-loaded
+for you.
+
+TIP: if HELP refuses to load when you call the compiler from the
+USER menu, it will certainly work if you load the compiler in the 
+main window.
+
+
+The buttons in the shell do not have the same meaning as for the original
+AMOS Compiler Shell.
+* Before: DISC / RAM selecting the way to compile the program, ie how
+fast it would go.
+* Now: APCmp is automatic, it decides alone of the best way to compile the
+program depending on your system (see later).
+The buttons now select where to take to program, and where to put it.
+	- Where it comes from: 
+		+ Current window (only if the shell is an accessory) 
+		+ Disc: opens a file selector
+		+ List: opens a	list selector
+	- Where to put the object code:
+		+ Current window (only if the shell is an accessory)
+		+ Disc: opens a file selector
+Make sure that old AMOS users understand this.
+
+
+Compiling from current window to another editor window.
+
+This option takes advantage of the AMOSPro accessories system, and 
+will make you gain a lot of time.
+It asks for quite a lot of memory or space disc to hold the
+temporary files, so you should have more than one meg to use it on a big
+program.
+How does it work?
+
+- The source option "current" will only be available if the compiler
+shell is called from the USER menu (you can select it now even if you
+run the shell from the editor window, but this will be corrected later)
+If selected, the source program is taken in the active editor window.
+- The object option "current" here too be only available if the 
+compiler shell is an accessory.
+If selected, the object program type can only be "AMOS".
+How does it work:
+- Select the options,
+- Click on "Compile"
+- The compiler grabs the current program, test it, report any errors.
+If an error is found, you will have a requester:
+Syntax error at line XXX
+and have two choices:
+(1) Back to AMOSPro Editor : you will be brought back to the faulty line
+(2) Go on : back to the main Compiler_Shell panel.
+... More on this when APCmp is over.
+- The compiler then compiles the program onto the temporary files disc
+(see later in this file), by default, the ramdisc.
+- Then a new window is opened in the editor, and the temporary program
+loaded into it.
+- The temporary program is then erased from the temporary folder
+- The newly created compiled program in the editor is then renamed to match
+the source program pathname, and not any more the temporary pathname.
+- The Compiler_Shell ends and brings you back to the editor, in the
+newly compiled program, ready to be runned.
+
+NOTE: if a window with the compiled program already exist, then the 
+compiler shell close this window before opening a the new one, preventing
+you from having many windows with the same compiled program on the screen.
+
+
+3- Compiling from direct mode.
+------------------------------
+The "COMPILE" instruction will still be available, of course, as in
+the original AMOS Compiler:
+
+Compile "command_line"
+
+Improvment: if you specify an empty string (Compile ""), AMOSPro will
+compile the CURRENT program, using the default command line in the
+compiler configuration, and automatically save the program to disc using
+its name, just near it.
+
+Example, you are editing "Work:AMOS_Pro/My_Program.AMOS", go in direct
+mode, type Compile "", the compiler will create the program:
+Work:AMOS_Pro/My_Program
+
+You should recommend this way of compiling for people who dont have a lot
+of RAM: this way they save the space used by the compiler shell.
+
+
+
+4- The compiler itself.
+-----------------------
+
+All the topics I dont talk about are un-changed since AMOS compiler.
+
+
+1. The configuration
+~~~~~~~~~~~~~~~~~~~~
+The compiler configuration is now stored in the "S:" folder of the Amiga,
+just near the AMOSPro_Interpreter_Config, and is called (surprisingly)
+AMOSPro_Compiler_Config
+This file is no more an ascii file, and cannot be edited with a 
+normal editor. The only way to modify it is to boot the Compiler_Shell.AMOS,
+and select the configuration panels.
+
+
+2. Memory management (command line option -d00)
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+The -d option does not exist any more, as the compiler is now much smarter.
+before compiling a program, it looks to the free memory, and decides
+alone what are the best options to use.
+Of course, it will prefer to do everything in ram if it is possible.
+
+
+3. The buffers size
+~~~~~~~~~~~~~~~~~~~
+The compiler now evaluates the size of the internal buffers from the size
+of the source to compile. So it will happily work well on small programs
+and on biiiiig programs, over 80k : you do not have to choose another
+configuration file as before.
+
+
+4. Tokenising
+~~~~~~~~~~~~~
+The compiler is also smart on this: it finds out by itself about the
+type of the source code.
+When you call the compiler from the CLI (ex: APCmp MyProg.Asc)
+the compiler look at the first 16 bytes of the source code. If if finds
+the proper AMOSPro or AMOS headers, then it realise that the source
+code is an AMOS program.
+If not, then it loads the first 256 bytes of the source, and finds out
+if the source code is an ascii file: it counts the number of good
+ascii characters (>32, and cariage returns and tabs) out of the 256 bytes.
+If the percentage of bad bytes exeed the one you expect for a normal
+ascii file, then the compiler sees that it cannot compile the file, and you
+will get the error message:
+"Not an AMOS program"
+
+If the file is a proper ASCII file, then the compiler loads the tokenisation
+routines from the "Compiler.Lib" library, and starts the tokenisation
+process.
+
+Tokenising is ALWAYS done to the disc. The name of the file is computed
+from the name of the source code by turning the ".asc" (or anything after
+the latest dot) into ".AMOS". If no dot is found, the ".AMOS" is simply
+added to the name.
+This file is to be deleted after compilation, unless you specify the
+"-f" option (see later)
+This file is normally saved just beside the source files (ie using the
+same pathname) unless you specify a temporary file pathname using the
+"-?" option or change the string number 9 in the compiler system strings
+setup (see help file)
+For example, temporary file name is "Ram:", the tokenised program 
+pathname will be: "Ram:MyProg.AMOS"
+
+Tokenising can bring some errors:
+
+Line too long at line XXX
+
+After the program is tokenised, then APCmp goes to TESTING.
+
+* Option "-f", FORCE tokenisation.
+This option can be very usefull: it turns the compiler into a 
+tokeniser only. Example:
+
+APCmp MyProg.Asc -f
+
+APCmp will tokenise MyProg.Asc into MyProg.AMOS, and quit. MyProg.AMOS
+will be directly loadable into the AMOSPro Editor.
+Such a tokenisation goes much faster than loading an ascii source 
+directly into the editor.
+
+
+5. Testing
+~~~~~~~~~~
+If the program is not tested (saved before begin tested from the 
+AMOSpro editor, or just freshly tokenised by APCmp), then APCmp
+will test it.
+To do so, it will load the test routines from "Compiler.Lib", and
+then load the .AMOS program into RAM. As a consequence, you must
+have enough space to hold the entiere program all at once in ram
+to compile a non-tested program.
+Then the testing process takes place, and asks for the usual testing
+time (same as under AMOSpro Editor)
+If any error is detected, then APCmp loads the testing error messages
+from the AMOSPro_Editor_Config (he can find the proper pathname to this
+file by just lookin into AMOSPro_Interpreter_Config), and then extract
+the correct message.
+As a consequence, if a user customise his error messages under the 
+editor, they will ALSO be customised under the compiler.
+
+Then the message is printed like this:
+
+Syntax error at line XXX
+
+and the compilation is aborted.
+
+
+6. Compiling.
+~~~~~~~~~~~~~
+Nothing more to say on the compiling process. Some changes inside, but
+externally, it just compiles!
+
+
+7. The amos.library
+~~~~~~~~~~~~~~~~~~~
+If you have AMOSPro installed on your machine, then you must have
+"amos.library" installed in your libs: folder.
+The library contains al the core of the AMOS display: all the
+screen routines, bob/sprite/amal/inputs are here.
+
+The original AMOS compiler used to copy all these routines each
+time into the object code, resulting in a object code minimum size
+of 45K.
+APCmp does not copy the amos.library into the compiled program (unless
+you specify it with a command line option). The result is a much smaller
+objet code.
+Example, Print "Hello" is compiled in 4K (to be confirmed later)
+The only obligation is to have the amos.library available when you start
+compiled program. Make sure you copy the library when you create a bootable
+disc.
+
+You can force the copy of the library with the new compiler option : "-a"
+
+"-a" will force APCmp to copy the amos.library in the program. The program
+will then run even if the library is not present in the libs: folder.
+This also ensures that you program will run whatever the version of the 
+amos.library is present in the libs: folder.
+
+
+8. Creating a boot disc
+~~~~~~~~~~~~~~~~~~~~~~~
+A big problem for many users. I'll have Jean Baptiste to program a small
+utility that will:
+- Ask for the name of the program to be put on a bootable disc
+- Format a blank disc,
+- Copy all the necessary files from the AMOSPro_System disc on this
+  disc,
+- Save out a proper startup-sequence to have a bootable disc ready.
+
+Just document this in the manual. No need to have any screen shot, as
+the interface will be simple: just a dialog box, and then a file 
+selector.
+
+
+Informations still to come:
+~~~~~~~~~~~~~~~~~~~~~~~~~~~
+- New powerpacker.library access with the Compiler Extension new commands
+- Exact list of the new command line options (I may add a few this week)
+- The compiled code, technical infos
+- List of the compiler error messages (many more than for the original
+  compiler)
diff --git a/AMOSPro Sources/Docs/Compiler_270593.FC b/AMOSPro Sources/Docs/Compiler_270593.FC
new file mode 100644
index 0000000..f985fd2
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_270593.FC differ
diff --git a/AMOSPro Sources/Docs/Compiler_270593.FC.info b/AMOSPro Sources/Docs/Compiler_270593.FC.info
new file mode 100644
index 0000000..b9d18ec
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_270593.FC.info differ
diff --git a/AMOSPro Sources/Docs/Compiler_Discs.Asc b/AMOSPro Sources/Docs/Compiler_Discs.Asc
new file mode 100644
index 0000000..a063c92
--- /dev/null
+++ b/AMOSPro Sources/Docs/Compiler_Discs.Asc	
@@ -0,0 +1,263 @@
+
+
+AMOSpro Compiler Disc layout
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+3 Discs:
+
+* Disc 1: "AMOSPro_Compiler:"
+
+This disc will bootable. It will contain at least:
+
+S/AMOSPro_Interpreter_Config		To use the compiler
+S/AMOSPro_Compiler_Config	        "
+S/startup-sequence
+
+L/...
+Devs/...	
+C/...
+
+Libs/powerpacker.library		Needed by the compiler
+Libs/amos.library			The latest one
+Libs/...other system libraries
+
+APSystem/APCmp				The compiler
+APSystem/AMOSPro.Lib			The main AMOSPro Library
+APSystem/Compiler.Lib			The compiler library
+APSystem/AMOSPro_Compact.Lib		The main extensions
+APSystem/AMOSPro_Compiler.Lib
+APSystem/AMOSPro_Music.Lib
+APSystem/AMOSPro_Request.Lib
+APSystem/AMOSPro_IOPorts.Lib
+APSystem/AMOSPro_Editor_Config		For the error messages
+APSystem/AMOSPro_Mouse.Abk
+APSystem/Def_Compiled.info
+APSystem/CompilerA_Resource.Abk		The shell animated buttons
+APSystem/Compiler_Resource.Abk		The resource
+
+AMOSPro_Help/Compiler_Help.Txt		The help files
+AMOSPro_Help/Compiler_Help.Map                "
+AMOSPro_Help/AMOSPro_Help		The help program, compiled
+
+Compiler_Shell				The compiled shell
+Compiler_Shell.info
+Install					The compiler installer
+Install.info
+
+
+* Disc 2 : "AMOSPro_Extras:"
+
+This disc will not be bootable. It will contain
+
+Compiler_Examples/... 			All of Jean-Baptiste examples
+Compiler_Examples/Galax/...		The galaxian game
+
+Anim/Turtle.anim			The IFF animation
+
+Interpreter_Config.AMOS			Interpreter configuration program
+Editor_Config.AMOS			Editor configuration program
+Install.AMOS				AMOSPro installer
+Install_Data/...			AMOSPro installer data
+
+Compiler_Shell.AMOS			The compiler shell
+Compile_Current.AMOS			Small accessory to compile the
+					... current program
+
+
+*Disc 3 : "AMOSPro_Update:"
+
+This disc will be bootable, and contain the AMOSPro 2.0 update.
+
+
+
+How to use the compiler?
+~~~~~~~~~~~~~~~~~~~~~~~~
+Here is a list of all the possible users, and how it will work:
+
+
+1. You dont have AMOSPro
+
+1.1 You have only one drive
+	-a- Boot disc 1, enter registration. Disc 1 will now boot
+	    into the compiler shell.
+	-b- Select "I don't have AMOSPro", and then "I don't have
+	    a hard-disc": the installer will simply quit.
+	-c- To compile, either boot from DISC 1 or click on the 
+	    "Compiler_Shell" icon from the Wb
+	    The compiler will copy all the necessary files onto
+	    ram-disc.
+	    You can now compile on another disc.
+
+1.2. You have two drives.
+	-a- same 
+	-b- Select "I don't have AMOSPro", and then "I don't have
+	    a hard-disc": the installer will simply quit.
+	-c- You can compile as for 1.1., but also select not to 
+	    copy the files onto ram-disc, and compile with Disc 1
+	    in drive DF0: and your program disc in drive DF1:
+
+1.3. You have a hard drive.
+	-a- same
+	-b- Select "I don't have AMOSPro", and then "I have
+	    a hard-disc"
+	-c- The installer will ask where
+	    to install your AMOSPro_Compiler, and copy the files
+	    in it, save the configuration files at the appropriate
+	    locations.
+	-d- To compile, two solutions: 1) click on the "Compiler_Shell" 
+	    icon from the Workbench. 2) Use APCMP command from the CLI.
+	-e- Of course, Disc 1 will be also useable as a stand alone
+            compiler...
+
+
+2. You have AMOSPro.
+
+Before all, you should update your current version of AMOSPro, being
+on a floppy disc or on a hard-disc. The updater will be _exactly_ the
+same as V1.12 updater. The only modification will be a neat AGA logo
+as a title if you run the updater on a AGA machine.
+
+The Compiler Installer will refuse to work if your version of
+AMOSPro is not updated.
+
+2.1. You have only one drive.
+	-a- same
+	-b- select "I own AMOSPro", then "I don't have a hard-disc"
+	-c- The installer will copy the appropriate files onto your
+	    AMOSPro_System disc.
+	-d- Simply reboot your AMOSPro_System disc.
+	    You will now have new options in your user menu. You will
+	    also find the Compiler_Shell.AMOS in your directory. To 
+	    compile, just run the Compiler_Shell. It will copy
+	    all the necessary files onto ram-disc so that you can
+            compile on an alternate disc.
+
+2.2. You have two drives.
+	-a- same
+	-b- same
+	-c- same
+	-d- same as before but you'll wont be obliged to copy the
+	    files onto ram-disc, although compiling would be much
+	    faster by doing so.
+
+
+2.3. You have a hard-disc.
+	-a- same
+	-b- select "I own AMOSPro", then "I have a hard-disc"
+	-c- The installer will ask for your current AMOSPro program,
+	    check if it is V2.0
+	-d- The installer will create a new folder just near the 
+	    usual Accessories/Tutorials etc... ones, called "Compiler"
+	-e- It will copy the examples, the animation, everything in it.
+            It will also copy all the files necessary to have the
+	    AMOSPro compiler working.
+	-f- Next time you start AMOSPro, you'll have a new automatic
+	    assign "AMOSPro_Compiler", pointing to your new "Compiler"
+	    folder. You'll have as well new user menu options etc...
+	-g- To compile, 3 solutions: 1) from AMOSPro with the menu,
+            2) using the compiled compiler shell, 3) from the CLI using
+ 	    APCMP.
+	-h- Of course, Disc 1 will be also useable as a stand alone
+            compiler...
+
+
+The new command line
+~~~~~~~~~~~~~~~~~~~~
+APCmp will match the new 2.0 standarts of command line syntax.
+All the previous parameters used by ACMP are obsolete. You must use the
+new ones.
+
+*** please forget what I have written in my previous doc about the "-f"
+option!!!
+
+
+APCMP [FROM] "Source_Name.AMOS" [TO "Object_Name"] 
+[TYPE=0/1/2/3] [TOKEN] 
+[ERR=ERRORS] or [NOERR=NOERRORS], [LONG] or [NOLONG]
+[DEF=DEFAULT] or [NODEF=NODEFAULT] 
+[WB] or [NOWB] 
+[QUIET]
+[TEMP="Temp_Directory"]
+[LIBS="Libs_Directory"]
+[CONFIG="Config_Name"]
+
+
+- [FROM]"Source_Name.AMOS" specify the name of the source file. This file
+  can be and AMOS program or an ASCII file. FROM is optional. The name
+  can include spaces, in this case it must be included in quotes.
+
+- TO "Object_Name" is optional, and specify the name of the program to
+  create. If not specifed, the name will be computed from the source
+  name. TO must be present.
+  Same as "-o" from ACMP
+
+- TYPE=0/1/2/3 is optional, and specify the type of the program to create,
+  The number has the same meaning as for ACMP.
+  Same as "-t" from ACMP
+
+- TOKEN is optional, and forces the compiler to tokenise the source 
+  program, and stop after tokenisation. This way, APCMP behave like a
+  simple tokeniser.
+
+- ERR or ERRORS is optional, both syntax will be recognised. Force
+  the compiler to include the error messages in the object code. Otherwise
+  no messages is included.
+  Same as "-e1" from ACMP
+- NOERR or NOERRORS is the reverse of the previous one, optional too.
+  Same as "-e0" from ACMP
+
+- LONG is optional, and force long branches within the compiled program.
+  Same as "-l" from ACMP
+- NOLONG is the reverse of the previous one, optional too.
+  This is the default.
+
+- DEF or DEFAULT is optional. Force the compiler to create a default screen
+  in the compiled program. Default option.
+  Same as "-s1" from ACMP
+- NODEF or NODEFAULT is optional. Force the compiler not to create a
+  default screen. 
+  Same as "-s0" from ACMP
+
+- WB is optional. Make the compiled program start in AMOS TO BACK mode,
+  allowing a clean startup.
+  Same as "-W1" from ACMP
+- NOWB is optional. Reverse of the previous one. 
+  Same as -"W0" from ACMP
+ 
+- QUIET is optional. Prevent any message but error message from the
+  compiler.
+  Same as "-q" from ACMP
+
+- TEMP="Temp_Directory" is optional. Specify the directory where to 
+  store the temporary files created by the compiler.
+
+- LIBS="Libs_Directory" is optional, and specify a pathname where to
+  find all the libraries to compile, instead of using the ones
+  normally pointed to within s:AMOSPro_Interpreter_Config
+  Same as "-f" from ACMP
+
+- CONFIG="Config_name" is optional, and specify a pathname of the
+  Compiler configuration to use to compile.
+  Same as "-C" from ACMP
+
+
+Examples:
+
+APCMP FROM MyProg.AMOS
+APCMP FROM MyProg.Asc TOKEN 
+APCMP FROM MyProg.Asc TO Compiled WB ERRORS NODEFAULT
+APCMP FROM MyProg.Asc NOWB NOERR NODEF TEMP="Ram:" LIBS="Ram:APSystem"
+
+As you can see, although it seems a bit longer to type in, this 
+system of command line is much easier to remember than the previous one.
+
+
+The exact system template is, in a proper AmigaDos syntax:
+
+APCMP FROM/A,TO/K,TYPE/K/N,ERR/K,NOERR/K,LONG/K,NOLONG/K,DEF=DEFAULT/K...
+...NODEF=NODEFAULT/K,WB/K,NOWB/K,QUIET/K,TEMP/K/A,LIBS/K/A,CONFIG/K/A
+
+Just copy this in the manual!!!
+
+
+Cheers! Francois.
diff --git a/AMOSPro Sources/Docs/Compiler_Errors.Final b/AMOSPro Sources/Docs/Compiler_Errors.Final
new file mode 100644
index 0000000..e2566ea
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_Errors.Final differ
diff --git a/AMOSPro Sources/Docs/Compiler_Errors.Final.info b/AMOSPro Sources/Docs/Compiler_Errors.Final.info
new file mode 100644
index 0000000..f316f52
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_Errors.Final.info differ
diff --git a/AMOSPro Sources/Docs/Compiler_Foreword.Asc b/AMOSPro Sources/Docs/Compiler_Foreword.Asc
new file mode 100644
index 0000000..bc5ba7f
--- /dev/null
+++ b/AMOSPro Sources/Docs/Compiler_Foreword.Asc	
@@ -0,0 +1,35 @@
+
+AMOSPro Compiler Foreword
+
+Welcome to the AMOSPro Compiler! 
+
+In this box, you will find a magic utility that will enhance the
+global speed of your programs by a factor of two to three!
+Not only this utility will make your program run like the wind, but
+it will entierely recode them so that it is virtually impossible
+to look at your code: you can now turn all your production into
+public domain, shareware or even publication software.
+
+We have also crammed a lot of examples on the disc, games, utilities,
+demos to show to enhancement brought by compiling. Just run them
+through the AMOSPro interpretor first, compile them and look to the
+difference! 
+Then have fun exploring the code: we have inserted as many comments
+as possible...
+
+You will also be glad to hear that this box also include a version
+of AMOSPro (V 2.0) that includes major enhancements, like AGA support.
+Of course the compiler also cope with the AGA graphics modes: you can
+now have ultra-fast bobs over a 256 colour hires screen...
+
+A considerable re-writing job has been done on AMOSPro and the compiler.
+The resulting software is now much easier to modify and ammend. The
+obvious advantage is for you, the user: AMOSPro and its compiler
+will evolve very fast. Be ready for new instructions, new modes,
+new possibilities every three month: AMOSPro is a fast moving product,
+and we want to have it moving even faster, at the speed of our 
+beloved machine, the Amiga!
+
+Now, insert the AMOSPro Compiler disc into your drive, fasten your
+seatbelts, and be ready for speed!
+
diff --git a/AMOSPro Sources/Docs/Compiler_PPDoc.FC b/AMOSPro Sources/Docs/Compiler_PPDoc.FC
new file mode 100644
index 0000000..db4b423
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_PPDoc.FC differ
diff --git a/AMOSPro Sources/Docs/Compiler_PPDoc.FC.info b/AMOSPro Sources/Docs/Compiler_PPDoc.FC.info
new file mode 100644
index 0000000..5497a56
Binary files /dev/null and b/AMOSPro Sources/Docs/Compiler_PPDoc.FC.info differ
diff --git a/AMOSPro Sources/Docs/Compiler_install.Doc b/AMOSPro Sources/Docs/Compiler_install.Doc
new file mode 100644
index 0000000..7fe5b3d
--- /dev/null
+++ b/AMOSPro Sources/Docs/Compiler_install.Doc	
@@ -0,0 +1,124 @@
+
+Installation
+~~~~~~~~~~~~
+
+
+1. Petit demo d'introduction
+
+
+
+2. Welcome.
+Laisse la procedure de langage clavier.
+Laisse _CHECK_INSTALLATION et _ADAPT_CONFIG (mais pour tester, tu les vide!)
+
+AMOS Professional Compiler Registration
+Welcome to the AMOS Pro Compiler. Please enter your names below
+...Idem install AMOSPro...
+
+
+
+3. Your unique registration is:
+...etc...
+
+
+
+4. AMOS Professional Compiler Installation
+>>> Tu appelle la procedure _INSTALL_DISC (a la place de la boucle
+"install startup", que je ferais. Puis:
+
+Do you own AMOS Professional?
+
+YES >>> 5.
+NO  >>> 10.
+
+
+
+5. 
+Welcome happy AMOS Professional Users. The Compiler installer will
+copy all the necessary files onto your AMOSPro_System disc or
+onto your hard-disc, so that you can use the Compiler with all
+the facilities of AMOS Professional.
+
+The Compiler can only work with AMOS Professional V2.0 and over.
+Have you changed the version of your AMOSPro system?
+
+YES
+NO
+
+5.1. NO
+Please insert the AMOSPro_Updater disc into any drive, 
+and click on "UPDATE" (faire un seul bouton, UPDATE)
+... et puis la tu fais STOP!
+
+
+
+6. Si YES, on continue.
+
+Please choose one option:
+
+Install AMOSPro Compiler on a floppy disc   >>> 7
+
+Install AMOSPro Compiler on a hard disc     >>> 9
+
+
+
+
+7. AMOSPro Compiler Floppy disc installation.
+
+In order to make some room on your AMOSPro_System disc, the installer
+will have to remove some files from it, and copy them onto a newly
+formated disc called "AMOSPro_Extras:"
+
+So before proceeding, you should with the Workbench:
+
+- Format a blank disc,
+
+- Make a copy of you current AMOSPro_System disc as a matter of security.
+
+2 boutons:
+
+(1) My discs are ready, proceed with installation
+
+(2) Back to Workbench to format and copy
+
+En bas de l'ecran:
+
+Having trouble? Just read the manual at page XXX where the entiere procedure
+is fully described.
+
+Si (2): 
+Tu appelle la procedure _BACK_TO_WB. Elle fermera tout les ecrans, liberera
+le maximum de memoire, et fera revenir le workbench. Sur le workbench
+il y aura une joli icone "BACK TO INSTALLER" sur lequel clicker pour
+revenir.
+La procedure rouvrira tout avant de revenir.
+
+
+
+8. Tu appelle la procedure _FLOPPY_INSTALL et je prend le relai.
+
+
+
+9. Install AMOSPro Compiler on a hard-disc
+... Tu appelle la procedure _HD_INSTALL et je prend le relai.
+
+
+
+10. Suite pour ceux qui ne possedent pas AMOSpro
+
+The installer will create a disc called AMOSPro_Compiler which
+will enable you to compile all your programs created with 
+Easy AMOS and AMOS.
+
+In order to do so, you must have one blank disc ready to use.
+
+Please choose one option:
+
+Back to workbench to format a blank disc
+
+My disc is ready, let install it.
+
+En bas de l'ecran:
+Having trouble? All the procedure is explained in details
+in chapter XXX of the users manual.
+
diff --git a/AMOSPro Sources/Docs/Dom_Public_list.Asc b/AMOSPro Sources/Docs/Dom_Public_list.Asc
new file mode 100644
index 0000000..1171080
--- /dev/null
+++ b/AMOSPro Sources/Docs/Dom_Public_list.Asc	
@@ -0,0 +1,78 @@
+---------------------------------------------------------------------
+				Compilation	Execution
+---------------------------------------------------------------------
+
+Apd 77 - Rainbow warrior
+------------------------
+- Autoexecs			Abort line 2	?
+- counter			Ok		bug 1 seul sprite!
+- mscroll			Abort line 8	?
+- rainbowwarrior		Boom!		?
+- sel				Ok		Ok? (bank 5 erased...)
+- spadgetext			Abort line 2	?
+
+
+AMOS Demo II
+------------
+- AMOS_DEMO/AMOS_DEMO_II	Ok		Ok (screen defaut=9!)
+
+
+Bobs maniacs
+------------
+- autoexec			Ok		stop � 'run "positron"'
+
+
+Megamix - Syntex
+----------------
+- megamix			Ok		bug scroll defender
+
+
+Totally AMOS 3 (sources_progs)
+--------------
+- 3d-tutorial			extension not loaded at line ???
+- Astro-wars			Ok		bug!!! (array not dim,flash)
+				bug sous AP2 �galement (chanmv)
+- dual_play			extension not loaded
+- make_button			Boom!		?
+	
+
+Totally AMOS 4 (sources_progs)
+--------------
+- Diskute/diskutility		Bug!!!		?
+- Inertia/inertia		Ok		ne bouge pas (joy?)
+- score/scoreline		Ok		plante sur 'menu' (run)
+- scrolly/scrolly		Ok		flash en sortie
+
+Totally AMOS 5 (sources_progs)
+--------------
+- da_lorner/patience		Boom!		?
+
+
+Totally AMOS 6 (sources_progs)
+--------------
+- esay_rainbow			Boom!		?
+
+
+Totally AMOS 7 (sources_progs)
+--------------
+- Mix'N'palette			Boom!		?
+- New_requester			Ok		bug, flash en sortie
+- PrintAT			aborted		?
+
+
+Totally AMOS 8 (sources_progs)
+--------------
+- source_progs/All_fall_down	Not an AMOS prg	?
+
+
+Totally AMOS 9 (sources_progs)
+--------------
+- Lonny_lander			Ok		ne bouge pas! (float?)
+- Phase				Boom!		?
+- Pro_users_only/APro_calc	Ok		Boom! (dble precision)
+
+
+Fr Scheurer Bugs_compiler1.0
+----------------------------
+- Bugs				bug!		(cf Fr_scheurer_list.ASC)
+
diff --git a/AMOSPro Sources/Docs/Fr_Scheurer_list.Asc b/AMOSPro Sources/Docs/Fr_Scheurer_list.Asc
new file mode 100644
index 0000000..e408ff5
--- /dev/null
+++ b/AMOSPro Sources/Docs/Fr_Scheurer_list.Asc	
@@ -0,0 +1,77 @@
+Fran�ois Scheurer, Develier le 30 d�cembre 1991.
+
+
+	Bugs de l'AMOS Compiler1.00:
+	----------------------------
+
+1) 'Under On/Off'
+Cette  commande  fonctionne  comme  s'il s'agissait de la commande 'Inverse
+On/Off'!
+
+
+2) 'Val'
+La  commande  'Val' ne retourne que des entiers, m�me lorsque je signale au
+compilateur que je travaille avec des nombres � virgule (comme indiqu� dans
+la doc.).  Par exemple:
+
+	A#=0.0
+	Print Val("12.56")
+
+	=> On a '0' au lieu de '12.56'!  (si l'on compile avec type=AMOS)
+
+
+3) 'Def Fn'
+M�me probl�me...  La commande ne retourne que des entiers:
+
+	Def Fn F(X#)=X#
+	Print Fn F(12.56)
+
+	=> On a '-923418044' au lieu de '12.56'!
+
+
+4) 'Input'
+Un probl�me survient lorsqu'on veut entrer un nombre � virgule:
+
+	Input "B#: ";B#
+	Print B#
+
+	=>Si  l'on  entre  "12.56",  on  a  '12' au lieu de '12.56'!  (si l'on
+	compile avec type=AMOS)
+
+
+5) 'On Error Proc'
+On ne peut pas capturer les erreurs avec un programme compil�.  Cet exemple
+l'illustre:
+
+	On Error Proc ERREUR
+	Print 5/0
+	Procedure ERREUR
+		Print "Erreur:"; Errn
+		Resume Next
+	End Proc
+
+	=>Au  lieu  d'avoir  'Erreur:  20' (Division par 0), on a 'Erreur:  0'
+	(Plus  d'espace  de  pile)  puis, si l'on a compil� avec type=AMOS, le
+	programme s'arr�te avec le message 'Resume sans erreur'...
+
+
+En  regardant  le  code  machine,  j'ai  vu  qu'il  existait  les commandes
+suivantes:
+
+	'Cmp Call'
+	'Comp Option'
+
+Et  elles ne sont pas d�crites dans mon manuel d'AMOS Compiler!  J'aimerais
+bien conna�tre leur fonction.  De m�me il manquait dans le manuel de l'AMOS
+la commande 'Rainbow Del'!  J'esp�re qu'il n'y en a pas d'autres...
+
+--------------------------------------
+
+JBB report - 17/06/93 - 11h30
+
+- Le programme Bugs.AMOS compil� en .AMOS avec APCmp marche tr�s bien
+(� premi�re vue et avec TinyShell). Les bugs signal�s ont tous l'air 
+corrig�s. H�las, AMOSPro a plant� lorsque je l'ai quitt� juste apr�s!
+
+- En compilant depuis le CLI, l'execution merde puis renvoie un magni-
+fique 'out of memory'...
diff --git a/AMOSPro Sources/Docs/Last_Sheddule.FC b/AMOSPro Sources/Docs/Last_Sheddule.FC
new file mode 100644
index 0000000..ff06e9e
Binary files /dev/null and b/AMOSPro Sources/Docs/Last_Sheddule.FC differ
diff --git a/AMOSPro Sources/Docs/Last_Sheddule.FC.info b/AMOSPro Sources/Docs/Last_Sheddule.FC.info
new file mode 100644
index 0000000..2294728
Binary files /dev/null and b/AMOSPro Sources/Docs/Last_Sheddule.FC.info differ
diff --git a/AMOSPro Sources/Docs/PCOSReport_260393.Asc b/AMOSPro Sources/Docs/PCOSReport_260393.Asc
new file mode 100644
index 0000000..aff1248
--- /dev/null
+++ b/AMOSPro Sources/Docs/PCOSReport_260393.Asc	
@@ -0,0 +1,57 @@
+
+
+		   PCos report 26/03/1993
+
+
+Giving you a perfect idea of the advancement is quite hard,
+as a big part of the time Yves spend on PCos is for experimenting the
+best way to achieve effects under Windows.
+
+Yves is still working on the DLL. He has spend last week
+investigating on the Microsoft DDK (27 High density discs!!!!!!)
+
+The result of this study is that (by a very legal, but very un-
+documented way), Yves has made it possible to double the speed of
+sprites under Windows: you can now have twice as many frogs in
+the little demo.
+Yves is persuaded that he can find ways to make sprites fasters,
+and he is still digging into the huuuuuuuge documentation to find
+his way.
+It is absolutely crucial that we are faster on certain key points
+(as sprites) than the other products. This will be definite plus
+for PCos.
+
+We really insist on the fact that PCOS is a ridiculous name in
+French: another name should be found, at least for the french
+speaking countries...
+
+Job done.
+~~~~~~~~~
+- All window + text primitives
+- 75% of sprites, still working on improoving the speed,
+- 50% of internal window garbage like window refreshing,
+- 75% of menus + dialog box handling primitives
+- Tiny PCOS interpretor to allow testing of the primitives (Yves
+  is obliged to cope with my delays in AMOSpro...)
+
+Job still to be done.
+~~~~~~~~~~~~~~~~~~~~~
+- A lot.
+
+Yves planing for last week:
+~~~~~~~~~~~~~~~~~~~~~~~~~~~
+-Monday: 	DDK
+-Tuesday:	DDK
+-Wednesday:	DDK
+-Thursday:	DDK
+-Friday:	DDK
+
+Yves planning for next week:
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+-Monday: 	DDL
+-Tuesday:	DDL
+-Wednesday:	DDL
+-Thursday:	DDL
+-Friday:	DDL
+
+...What a surprise...
diff --git a/AMOSPro Sources/Docs/Report_260393.asc b/AMOSPro Sources/Docs/Report_260393.asc
new file mode 100644
index 0000000..16eea01
--- /dev/null
+++ b/AMOSPro Sources/Docs/Report_260393.asc	
@@ -0,0 +1,582 @@
+
+
+  			AMOSPro Compiler report 26/03/1993
+
+
+1. Job done.
+~~~~~~~~~~~~
+- AMOSPro 2.0 Library
+- Commodore Conference (!)
+- Foreword for User Guide
+- Interface commands
+- ARexx (to be tested thought)
+- System commands
+- Structures
+- Editor
+- Memory
+- IFF Anim
+- Graphics / Errors
+- Floating Point
+- Disc
+- AA logo (in lowres yet, as we cannot open a 32 colours 
+  hires screen yet...)
+
+2. Still to do.
+~~~~~~~~~~~~~~~
+- Menus (1 day)
+- Other small instructions ex: kill editor etc... (1/2 day)
+- Check extensions with new library system (1 day)
+- AMOS_System (in fact amos.library)
+
+3. Where are we?
+~~~~~~~~~~~~~~~~
+On Wednesday 31st, the entiere instruction set will ve re-written
+into a library. This library is to be used by both AMOSPro 2.0 and
+the compiler.
+On Wednesday, you'll be able to run AMOS programs under AMOSpro 2.0,
+and therefore, I will send you a version for testing purpose: 
+you can start to test the compiler library even with no compiler!
+
+We are actually a bit ahead of the scheddule by 2 days.
+
+4. What's next?
+~~~~~~~~~~~~~~~
+I want to finish APCmp FIRST before jumping into AA support, this will
+enable us to test many programs using the compiler while I write
+the AA support.
+Then only, I will re-write the amos.library (AMOS_System in your
+scheddule)
+Jean-Baptiste has started to work on the compiler shell today. I imagine
+he will be finished when I finish APcmp.
+So in 12 days from next wednesday, you will have the compiler almost
+finished, with the shell, the options, and its final behaviour : 
+the manual can be started quite soon. 
+Once more, as soon as you have 
+
+* 31/03/93: AMOSPro.Lib finished
+* 12/04/93: APCmp + Compiler.AMOS finished, with graphics.
+
+5. The AGA logo.
+~~~~~~~~~~~~~~~~
+Jean Baptiste has worked on it this morning. You will find in AA_Logo.AMOS
+the result of this work. You must realise that the picture is a 32 
+colours LOWRES on AMOS, but the finished one will be in HIRES: 
+the display is by far sharper and better.
+I will in fact implement a new wicked option in AMOSPro: if you want,
+AMOSPro will automatically load a program from the APSystem folder
+(here AA_Logo.AMOS) before loading the editor. This program will be
+in fact a title.
+Very fun for the user, as he will be able to change this program to put
+his face in it.
+Very good for me, as I don't see myself re-writing the colour animation
+of AA_logo in machine langage.
+
+6. List of instructions done & tested.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Small comments for internal use!
+
+ = abs:
+ = acos: 	retourne '++++++++++++++++' si on entre abs(valeur)>1 
+ = amalerr:
+ = amos here:
+ = array:
+ = asc:
+ = asin: 	retourne '++++++++++++++++' si on entre abs(valeur)>1 
+ = at:
+ = atan:
+ = bin$:
+ = bob col:
+ = border$:
+ = btst:
+ = cdown$:
+ = chanan:
+ = chanmv:
+ = chip free:
+ = chr$:
+ = cleft$:
+ = cmove$:
+ = col:
+ = cos:
+ = cright$:
+ = cup$:
+ = deek:
+ = dev first$:
+ = dev next$:
+ = dfree:
+ = dialog:
+ = dialog box:
+ = dialog run:
+ = dir first$:
+ = dir next$:
+ = disc info$:
+ = display height:
+ = drive:
+ = edialog:
+ = eof:
+ = err$:
+ = errn:
+ = errtrap:
+ = exist: 	ENHANCED!
+ = exp:
+ = false:
+ = fast free:
+ = fire:
+ = flip$:
+ = font$:
+ = frame length:
+ = frame load:
+ = frame param:
+ = frame play:
+ = frame skip:
+ = fsel$:
+ = hardcol:
+ = hcos:
+ = hex$:
+ = hires:
+ = hrev:
+ = hsin:
+ = htan:
+ = hunt:
+ = hzone:
+ = i bob:
+ = i sprite:
+ = icon base:
+ = inkey$:
+ = input$:
+ = instr:
+ = int:
+ = jdown:
+ = jleft:
+ = joy:
+ = jright:
+ = jup:
+ = key shift:
+ = key state:
+ = laced:
+ = leek:
+ = left$:
+ = len:
+ = length:
+ = ln:
+ = lof:
+ = log:
+ = logbase:
+ = logic:
+ = lower$:
+ = lowres:
+ = max:
+ = mid$:
+ = min:
+ = mouse click:
+ = mouse key:
+ = mouse screen:
+ = mouse zone:
+ = movon:
+ = ntsc:
+ = paper$:
+ = param:
+ = param#:
+ = param$:
+ = peek:
+ = peek$: 
+ = pen$:
+ = phybase:
+ = physic:
+ = pi#:
+ = picture:
+ = point:
+ = port:
+ = prg first$: 	retourne les devices!
+ = prg next$: 	retourne les devices!
+ = psel$: 	retourne les devices!
+ = rdialog:
+ = rdialog$:
+ = repeat$:
+ = resource$:
+ = rev: 
+ = right$:
+ = rnd:
+ = scan$:
+ = scancode:
+ = scanshift:
+ = scin:
+ = screen base:
+ = screen colour:
+ = screen height:
+ = screen mode:
+ = screen width:
+ = sgn:
+ = sin:
+ = space$:
+ = sprite base:
+ = sprite col:
+ = spritebob col:
+ = sqr:
+ = start:
+ = str$:
+ = string$:
+ = tab$:
+ = tan:
+ = text base:
+ = text length:
+ = text styles:
+ = true:
+ = upper$:
+ = varptr:
+ = vrev:
+ = windon:
+ = x bob:
+ = x curs:
+ = x graphic:
+ = x hard:
+ = x screen:
+ = x sprite:
+ = x text:
+ = xgr:
+ = y bob:
+ = y curs:
+ = y graphic:
+ = y hard:
+ = y screen:
+ = y sprite:
+ = y text:
+ = ygr:
+ = zone:
+ = zone$:
+ i \\\\\\\\\\\\\\\/:
+ i add:
+ i amos lock:
+ i amos to back:
+ i amos to front:
+ i amos unlock:
+ i appear: 
+ i append:
+ i as:
+ i assign:
+ i auto view off:
+ i auto view on:
+ i autoback:
+ i bank shrink: 
+ i bank swap:
+ i bar:
+ i bchg:
+ i bclr:	
+ i bload:
+ i bob:
+ i bob clear:
+ i bob draw:
+ i bob off:
+ i bob update:
+ i bob update off:
+ i bob update on:
+ i border: 	ok, mais border zarbi si windopen sans border au depart
+ i box:
+ i break off:
+ i break on:
+ i bsave:
+ i bset:
+ i cdown:
+ i centre:
+ i change mouse:
+ i channel:
+ i circle:
+ i clear key:
+ i cleft:
+ i cline:
+ i clip:
+ i close:
+ i close editor:
+ i close workbench: (ne marche pas car autres progs lanc�s sous WB...)
+ i cls:
+ i clw:
+ i cmove:
+ i colour:
+ i colour back:
+ i copy:
+ i cright:
+ i cup:
+ i curs off:
+ i curs on:
+ i curs pen:
+ i dec:
+ i def scroll:
+ i default:
+ i default palette:
+ i degree:
+ i del block:
+ i del bob:
+ i del cblock:
+ i del icon:
+ i del sprite:
+ i dialog close:
+ i dialog clr:
+ i dialog freeze:
+ i dialog open:
+ i dialog unfreeze:
+ i dialog update:
+ i dim:
+ i dir:
+ i dir/w:
+ i direct:
+ i doke:
+ i double buffer:
+ i draw:
+ i draw to:
+ i dual playfield:
+ i dual priority:
+ i edit:
+ i ellipse:
+ i erase: 
+ i erase all:
+ i erase temp:
+ i error:
+ i every:
+ i every off:
+ i every on: 
+ i fade:
+ i field:
+ i fill:
+ i fix:
+ i flash:
+ i flash off:
+ i follow:
+ i follow off:
+ i freeze:
+ i get:
+ i get block:
+ i get bob:
+ i get bob palette:
+ i get cblock:
+ i get disc fonts:
+ i get fonts:
+ i get icon:
+ i get icon palette:
+ i get palette:
+ i get rom fonts:
+ i get sprite:
+ i get sprite palette:
+ i gr locate:
+ i gr writing:
+ i hide:
+ i hide on:
+ i home:
+ i hot spot:
+ i hrev block:
+ i hscroll:
+ i hslider:
+ i iff anim:
+ i inc:
+ i ink:
+ i input:
+ i ins bob: 	ok mais insere un bob flanbinette!
+ i ins icon:
+ i ins sprite: 	ok mais insere un sprite flanbinette!
+ i inverse off:
+ i inverse on:
+ i key speed:
+ i kill:
+ i limit bob:
+ i limit mouse:
+ i line input:
+ i list bank:
+ i load:
+ i load iff:
+ i locate:
+ i loke:
+ i make icon mask:
+ i make mask:
+ i mask iff:
+ i memorize x:
+ i memorize y:
+ i mkdir:
+ i multi wait:
+ i no icon mask:
+ i no mask:
+ i open in:
+ i open out:
+ i open port:
+ i open random:
+ i paint: 
+ i palette:
+ i paper:
+ i parent:
+ i paste bob:
+ i paste icon:
+ i pen:
+ i pload:
+ i plot:
+ i poke:
+ i poke$:
+ i polygon:
+ i polyline:
+ i pop:
+ i print:
+ i priority off:
+ i priority on:
+ i priority reverse off:
+ i priority reverse on:
+ i put:
+ i put block:
+ i put bob:
+ i put cblock:
+ i put key:
+ i radian:
+ i rainbow:
+ i rainbow del:
+ i randomize:
+ i remember x:
+ i remember y:
+ i rename:
+ i reserve as chip data:
+ i reserve as chip work:
+ i reserve as data:
+ i reserve as work:
+ i reserve zone:
+ i reset zone:
+ i resource bank:
+ i resource screen open:
+ i resource unpack:
+ i resume next:
+ i return:
+ i rol.b:
+ i rol.l:
+ i rol.w:
+ i ror.b:
+ i ror.l:
+ i ror.w:
+ i save:
+ i save iff:
+ i screen:
+ i screen clon8: ok mais renvoie 'Block not defined' si 2 fois de suite   
+ i screen clos8:
+ i screen copy:
+ i screen display:
+ i screen hide:
+ i screen offset:
+ i screen open:
+ i screen show:
+ i screen swap:
+ i screen to back:
+ i screen to front:
+ i scroll:
+ i scroll off:
+ i scroll on:
+ i set bob:
+ i set curs:
+ i set dir:
+ i set dir:
+ i set double precision:
+ i set equate bank:
+ i set font: 
+ i set hardcol:
+ i set input:
+ i set line:
+ i set paint:
+ i set pattern:
+ i set rainbow:
+ i set slider:
+ i set sprite buffer:
+ i set stack:
+ i set tab:
+ i set tempras:
+ i set text: 
+ i set zone:
+ i shade off:
+ i shade on:
+ i shift down:
+ i shift off:
+ i shift up:
+ i show:
+ i show on:
+ i sprite:
+ i sprite off:
+ i sprite priority:
+ i sprite update:
+ i sprite update off:
+ i sprite update on:
+ i synchro:
+ i synchro off:
+ i synchro on:
+ i system:
+ i text: 
+ i title bottom:
+ i title top:
+ i trap:
+ i under off:
+ i under on:
+ i unfreeze:
+ i update:
+ i update every:
+ i update off:
+ i update on:
+ i using:
+ i view:
+ i vrev block:
+ i vscroll:
+ i vslider:
+ i wait:
+ i wait key:
+ i wait vbl:
+ i wind close:
+ i wind move:
+ i wind open:
+ i wind save:
+ i wind size:
+ i window:
+ i writing:
+ i zoom:
+ s ':
+ s ::
+ s data:
+ s def fn:
+ s do:
+ s else:
+ s else if:
+ s end if:
+ s end proc:
+ s exit:
+ s exit if:
+ s fn:
+ s for:
+ s global:
+ s gosub:
+ s goto:
+ s if:
+ s input #:
+ s line input #:
+ s loop:
+ s next:
+ s not:
+ s on:
+ s on break proc:
+ s on error:
+ s pop proc:
+ s print #:
+ s proc:
+ s procedure:
+ s read:
+ s rem:
+ s repeat:
+ s restore:
+ s resume:
+ s resume label:
+ s screen size:
+ s shared:
+ s swap:
+ s then:
+ s to:
+ s until:
+ s wend:
+ s while:
+ v amreg:
+ v areg:
+ v dir$:
+ v dreg:
+ v key$:
+ v pof:
+ v rain:
+ v timer:
+ v vdialog:
+ v vdialog$:
+ v x mouse:
+ v y mouse:
diff --git a/AMOSPro Sources/Docs/Requests_JBB.Asc b/AMOSPro Sources/Docs/Requests_JBB.Asc
new file mode 100644
index 0000000..179a5fb
--- /dev/null
+++ b/AMOSPro Sources/Docs/Requests_JBB.Asc	
@@ -0,0 +1,22 @@
+global Bugs report by JBB:
+--------------------------
+sous Shell:
+-----------
+* La compilation en type .AMOS fait flasher en sortant du shell 
+(ou tiny-shell) d'abord puis fait flasher en sortant d'AMOSPro.
+(en sortant de la compilation du prog 'Bugs.AMOS' de F. Scheurer
+tout a plant�, si! si!)
+
+* Les messages d'erreurs ne sont pas pass�s correctement par la
+fonction 'Comp Err$'...
+
+sous CLI:
+---------
+* certains messages (comme extension not loaded) ne renvoient pas
+la ligne malgr� l'option 'Numbers'.
+
+* chercher un eventuel '.AMOS' si le nom tap� en source n'est pas
+trouv�. (exemple: APCmp bug <-> APCmp bug.AMOS TO bug)
+
+* avoir possibilit� de taper juste le path de la destination (par
+exemple: APCmp df0:bug.AMOS TO Ram:)
diff --git a/AMOSPro Sources/Docs/System_disks_list.Asc b/AMOSPro Sources/Docs/System_disks_list.Asc
new file mode 100644
index 0000000..5f38a1b
--- /dev/null
+++ b/AMOSPro Sources/Docs/System_disks_list.Asc	
@@ -0,0 +1,266 @@
+
+Tests compilation de programmes _ JBB _ 09/06/1993
+--------------------------------------------------
+
+
+Path/name		Compilation		Execution
+---------------------------------------------------------------------------
+
+AMOS_Pro/
+
++ Interpreter_Config	Ok			Ok
+- Editor_Config		Ok			?
+
+AMOS_Pro/Productivity1:
+
+- Menu_Editor:		Boum!			?
+- Fileo'fax:		Ok			Plante sur 'Find'
+- Quattro		Ok			Bug de double buffering
+- SuperBlockout		Not an AMOS program	?
+
+AMOS_Pro/Productivity1/Planet_Zybex
+
++ Zybex			Ok			Ok
+
+AMOS_Pro/Productivity1/Equates
+
+- Make_Equates		Ok			up to you, Francois!
++ Editor_Commands	Ok			Ok
+			
+AMOS_Pro/Productivity2/Wonderland
+
+- Wonderland		Ok			Bug de double buffering 
+
+AMOS_Pro/Productivity2/Procedures/Bobs
+
++ _make_Mask		Ok			Ok (flash en quittant-RMB)
++ _Squash_a_Bob		Ok			Ok
++ _Squash_procs		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Screen_FX
+
++ _3_D_Landscape	Ok			Ok
++ _3_D_Scroller		Ok			Ok
++ _Fancy_Wipes		Ok			Ok
++ _Formula_pics		Ok			Ok
++ _Pause_Scroll		Ok			Ok
+- _Screen_saver		Ok			bugs timing?
++ _Screen_sine		Ok			Ok
++ _Scroll		Ok			Ok
++ _Slide		Ok			Ok
++ _Titchy_Scroll	Ok			Ok
++ _Wipe1		Ok			Ok
++ _Wipe2		Ok			Ok
++ _Wipe3		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Graphics
+
++ _Fade_All		Ok			Ok
++ _Polygons		Ok			Ok
++ _Splines		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Plasma
+
+- _Plasma1		Ok			PlasmaMAX# tjrs <0
++ _Plasma2		Ok			Ok
+- _Edit_Colours		Ok			bug sliders
+
+AMOS_Pro/Productivity2/Procedures/Techniques
+
+- _3D_stars		Ok			bug affichage
++ _Hi_Scores		Ok			Ok
++ _Memory_Array		Ok			Ok
++ _Radar		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Text
+
++ _Double_Height	Ok			Ok
++ _Text_Highlight	Ok			Ok
++ _Type_writer		Ok			Ok
++ _Vertical_Text	Ok			Ok
++ _Wavy_Text		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Fractals
+
+- _Julia_Set_Fractals	Ok			calcule faux puis Boom!
+- _Mandelbrot_Fractals	Ok			calcule faux puis Boom!
++ _Olsys_plant_Fractals	Ok			Ok
++ _Quatrals		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/AMAL
+
++ _Single_Step		hOk			Ok
+
+AMOS_Pro/Productivity2/Procedures/System
+
+- AMOS_workbench_Demo	Ok			plante en cas d'erreur
++ _Get_Time		Ok			Ok
++ _Get_DOS_Error	Ok			Nothing to compile
++ _Wind_Execute		Ok			Ok
++ _Wind_Input		Ok			Ok
++ _Wind_Open		Ok			Ok
++ _Wind_Print		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Disc
+
+- _DIR_First_Next	Ok			Out of variable space at 276
++ _Disc_Info		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Copper
+
++ _Rainbow_Example	Ok			Ok
++ _Copper_Dump		Ok			Ok
+
+AMOS_Pro/Productivity2/Procedures/Audio
+
++ _Number_to_Speech	Ok			Ok
+
+
+Tests compilation de programmes _ JBB _ 10/06/1993
+--------------------------------------------------
+
+AMOS_Pro/Tutorial
+
++ ReTokenise		Ok			Ok (? ->Acccessory )
+
+AMOS_Pro/Tutorial/Tutorials
+
++ Appear		Ok			Ok
++ Arrays		Ok			Ok
++ Autoback_&_Update	Ok			Ok
++ Collsion_Detection	Ok			Ok
++ Computed_Sprites	Ok			Ok
++ Error_Handling_1	Ok			Ok
+- Error_Handling_2	Ok			Ok
++ Fade			Ok			Ok
++ Hardware_Sprites	Ok			Ok
++ Iff_Animation		Ok			Ok
++ Multi_Rainbows	Ok			Ok
++ Procedures_1		Ok			Ok
++ Procedures_2		Ok			Ok
++ Rainbows		Ok			Ok
++ Sprites_v_Bobs	Ok			Ok
+
+AMOS_Pro/Tutorial/Tutorials/Interface
+
++ Autocentering		Ok			Ok
++ Button_Types		Ok			Ok
++ Communication		Ok			Ok
++ Editing_Zones		Ok			Ok
++ Full_Example		Ok			Ok
++ Graphics		Ok			Ok
++ Simple_Requester	Ok			Ok
++ Sliders		Ok			Ok
++ Working_Buttons	Ok			Ok
+
+AMOS_Pro/Tutorial/Tutorials/AMAL
+
++ AMAL_1		Ok			Ok
++ AMAL_2		Ok			Ok
++ AMAL_3		Ok			Ok
++ AMAL_4		Ok			Ok
++ AMAL_5		Ok			Ok
++ AMAL_6		Ok			Ok
+- AMAL_7		Ok			Bug de double buffering
+
+AMOS_Pro/Tutorial/Tutorials/Menus
+
++ Menus_1		Ok			Ok
++ Menus_2		Ok			Ok, tres lent pour sortir
++ Menus_3		Ok			Ok
++ Menus_4		Ok			Ok
++ Menus_5		Ok			Ok
+- Menus_6		Bad compiler config	?
+- Menus_7		Boom!			?
+- Menus_8		Ok			illegal function call at 74
+- Menus_10		Boom!			?
+
+Easy_AMOS/Tutorial
+
++ Challenge		Ok			Ok
++ TB_Step_1		Ok			Ok
++ TB_Step_2		Ok			Ok
++ TB_Step_3		Ok			Ok
++ TB_Step_4		Ok			Ok
++ TB_Step_5		Ok			Ok
++ TB_Step_6		Ok			Ok
+- TB_Step_7		Ok			sort ligne 82 (pas d'erreur)
++ TB_Step_8		Ok			Ok
++ Typing_Tutor		Ok			Ok
+
+Easy_AMOS/Tutorial/Text_Tutorials
+
+- Text_Tutorial01	Ok			Ok (routine Font merdouille)
+
+Easy_AMOS/Tutorial/Bob_Tutorials
+
++ Bob_Tutorial01	Ok			Ok
++ Bob_Tutorial02	Ok			Ok
++ Bob_Tutorial03	Ok			Ok
++ Bob_Tutorial04	Ok			Ok
++ Bob_Tutorial05	Ok			Ok
++ Bob_Tutorial06	Ok			Ok
++ Bob_Tutorial07	Ok			Ok
++ Bob_Tutorial08	Ok			Ok
++ Bob_Tutorial09	Ok			Ok
++ Bob_Tutorial10	Ok			Ok
++ Bob_Tutorial11	Ok			Ok
++ Bob_Tutorial12	Ok			Ok
++ Bob_Tutorial13	Ok			Ok
++ Bob_Tutorial14	Ok			Ok
++ Bob_Tutorial15	Ok			Ok
++ Bob_Tutorial16	Ok			Ok
+
+Easy_AMOS/Tutorial/Screen_Tutorials
+
++ Screen_Tutorial01	Ok			Ok
++ Screen_Tutorial02	Ok			Ok
++ Screen_Tutorial03	Ok			Ok
++ Screen_Tutorial04	Ok			Ok
++ Screen_Tutorial05	Ok			Ok
++ Screen_Tutorial06	Ok			Ok
++ Screen_Tutorial07	Ok			Ok
++ Screen_Tutorial08	Ok			Ok
++ Screen_Tutorial09	Ok			Ok
++ Screen_Tutorial10	Ok			Ok
++ Screen_Tutorial11	Ok			Ok
++ Screen_Tutorial12	Ok			Ok
++ Screen_Tutorial13	Ok			Ok
++ Screen_Tutorial14	Ok			Ok
+
+Easy_AMOS/Tutorial/Challenge
+
++ Graduate		Ok			Ok? (you are not graduate!)
+
+Easy_AMOS/Tutorial/Sound_Tutorials
+
++ Music_Tutorial01	Ok			Ok
++ Music_Tutorial02	Ok			Ok
++ Music_Tutorial03	Ok			Ok
+
+Easy_AMOS/Examples
+
++ Block_Buster		Ok			Ok
++ Block_Buster_Help	Ok			Ok
++ Block_Buster_NTSC	Ok			Ok
++ Block_Buster_NTSC_HelpOk			Ok
++ Easy_Database		Ok			Ok
++ Block_Buster_NTSC	Ok			Ok
++ Block_Buster		Ok			Ok
++ Font_Creator		Ok			Ok
++ Block_Buster		Ok			Ok
++ Hi_Scores		Ok			Ok
++ Scrolling_Text	Ok			Ok
++ Tricycle_Ball		Ok			Ok
++ Tricycle_Race		Ok			Ok
+
+
+Tests compilation de programmes _ JBB _ 17/06/1993
+--------------------------------------------------
+
+AMOS1.3/AMOS_DATA
+
++ Amosteroids		Ok			Ok
+- Castle_Amos		Ok			Ok mais si monte ecalier
++ Magic_Forest		Ok			Ok mais fade nec�ssite waitvbl!
++ Number_leap		Ok			Ok
diff --git a/AMOSPro Sources/Docs/bugs_&_fun.lzh b/AMOSPro Sources/Docs/bugs_&_fun.lzh
new file mode 100644
index 0000000..b9f2c3d
Binary files /dev/null and b/AMOSPro Sources/Docs/bugs_&_fun.lzh differ
diff --git a/AMOSPro Sources/Dot_AMOS/+Version.s b/AMOSPro Sources/Dot_AMOS/+Version.s
new file mode 100644
index 0000000..701cf6c
--- /dev/null
+++ b/AMOSPro Sources/Dot_AMOS/+Version.s	
@@ -0,0 +1,4 @@
+Version    MACRO
+           dc.b "Dev 01-12-1998",0
+           ENDM
+VerNumber  equ $200
diff --git a/AMOSPro Sources/Dot_AMOS/AA_Logo b/AMOSPro Sources/Dot_AMOS/AA_Logo
new file mode 100644
index 0000000..78b9175
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/AA_Logo differ
diff --git a/AMOSPro Sources/Dot_AMOS/AA_Logo.AMOS b/AMOSPro Sources/Dot_AMOS/AA_Logo.AMOS
new file mode 100644
index 0000000..7796fd6
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/AA_Logo.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/AA_Logo.info b/AMOSPro Sources/Dot_AMOS/AA_Logo.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/AA_Logo.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Check_CLib b/AMOSPro Sources/Dot_AMOS/Check_CLib
new file mode 100644
index 0000000..8712e54
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Check_CLib differ
diff --git a/AMOSPro Sources/Dot_AMOS/Check_CLib.info b/AMOSPro Sources/Dot_AMOS/Check_CLib.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Check_CLib.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Compiler_Install b/AMOSPro Sources/Dot_AMOS/Compiler_Install
new file mode 100644
index 0000000..cc93570
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Compiler_Install differ
diff --git a/AMOSPro Sources/Dot_AMOS/Compiler_Install.AMOS b/AMOSPro Sources/Dot_AMOS/Compiler_Install.AMOS
new file mode 100644
index 0000000..8c6aed3
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Compiler_Install.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Compiler_Install.info b/AMOSPro Sources/Dot_AMOS/Compiler_Install.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Compiler_Install.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/File_Compare b/AMOSPro Sources/Dot_AMOS/File_Compare
new file mode 100644
index 0000000..8792ae8
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/File_Compare differ
diff --git a/AMOSPro Sources/Dot_AMOS/File_Compare.AMOS b/AMOSPro Sources/Dot_AMOS/File_Compare.AMOS
new file mode 100644
index 0000000..5fcfe12
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/File_Compare.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/File_Compare.info b/AMOSPro Sources/Dot_AMOS/File_Compare.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/File_Compare.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Hunt_String b/AMOSPro Sources/Dot_AMOS/Hunt_String
new file mode 100644
index 0000000..5e514ba
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Hunt_String differ
diff --git a/AMOSPro Sources/Dot_AMOS/Hunt_String.AMOS b/AMOSPro Sources/Dot_AMOS/Hunt_String.AMOS
new file mode 100644
index 0000000..28f4bb6
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Hunt_String.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Hunt_String.info b/AMOSPro Sources/Dot_AMOS/Hunt_String.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Hunt_String.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Insert_DBL b/AMOSPro Sources/Dot_AMOS/Insert_DBL
new file mode 100644
index 0000000..3e25ab3
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Insert_DBL differ
diff --git a/AMOSPro Sources/Dot_AMOS/Insert_DBL.AMOS b/AMOSPro Sources/Dot_AMOS/Insert_DBL.AMOS
new file mode 100644
index 0000000..09ca5cc
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Insert_DBL.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Insert_DBL.info b/AMOSPro Sources/Dot_AMOS/Insert_DBL.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Insert_DBL.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Install_Banks.Abs b/AMOSPro Sources/Dot_AMOS/Install_Banks.Abs
new file mode 100644
index 0000000..8b7d466
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Install_Banks.Abs differ
diff --git a/AMOSPro Sources/Dot_AMOS/Library_Digest b/AMOSPro Sources/Dot_AMOS/Library_Digest
new file mode 100644
index 0000000..a21e642
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Library_Digest differ
diff --git a/AMOSPro Sources/Dot_AMOS/Library_Digest.info b/AMOSPro Sources/Dot_AMOS/Library_Digest.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Library_Digest.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Library_Handler b/AMOSPro Sources/Dot_AMOS/Library_Handler
new file mode 100644
index 0000000..a7abb6b
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Library_Handler differ
diff --git a/AMOSPro Sources/Dot_AMOS/Library_Handler.AMOS b/AMOSPro Sources/Dot_AMOS/Library_Handler.AMOS
new file mode 100644
index 0000000..b2bce40
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Library_Handler.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Library_Handler.info b/AMOSPro Sources/Dot_AMOS/Library_Handler.info
new file mode 100644
index 0000000..fd5483e
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Library_Handler.info differ
diff --git a/AMOSPro Sources/Dot_AMOS/Locate_APSystem.AMOS b/AMOSPro Sources/Dot_AMOS/Locate_APSystem.AMOS
new file mode 100644
index 0000000..8c93bd0
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Locate_APSystem.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Make_Checklist.AMOS b/AMOSPro Sources/Dot_AMOS/Make_Checklist.AMOS
new file mode 100644
index 0000000..3caa59c
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Make_Checklist.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Make_Help.AMOS b/AMOSPro Sources/Dot_AMOS/Make_Help.AMOS
new file mode 100644
index 0000000..81e783b
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Make_Help.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/Make_Linked.AMOS b/AMOSPro Sources/Dot_AMOS/Make_Linked.AMOS
new file mode 100644
index 0000000..e3057fd
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/Make_Linked.AMOS differ
diff --git a/AMOSPro Sources/Dot_AMOS/version.amos b/AMOSPro Sources/Dot_AMOS/version.amos
new file mode 100644
index 0000000..798d5d1
Binary files /dev/null and b/AMOSPro Sources/Dot_AMOS/version.amos differ
diff --git a/AMOSPro Sources/EComp.Asc b/AMOSPro Sources/EComp.Asc
new file mode 100644
index 0000000..18ea305
--- /dev/null
+++ b/AMOSPro Sources/EComp.Asc	
@@ -0,0 +1,1446 @@
+Set Buffer 20
+
+DPATH$=Resource$(0)
+CNAME$=DPATH$+"AMOSPro_Compiler_Config"
+'lkflkdlfk xxxx  
+Dim ANM_IC_T(11),XZ(6),YZ(6)
+Dim LST$(NLST)
+Global PATH$,DPATH$,PRAM$,CNAME$,FACC,CFLASH$,VER$
+Global FLAG$,ANM$,ANM_NF,SND$,LST$(),NLST
+Global ANM_IC_T(),XZ(),YZ()
+Global SCR,SCX,SCY,SCSX,SCSY,DY,SOP
+
+TIMING=3
+ZAP=1 : VZAP=1
+
+If Length(16)=0
+   Load DPATH$+"AMOSPro_Compiler_resource.Abk",16
+End If 
+Resource Bank 16
+VER$=Resource$(1)
+'
+_LOAD_CONFIG[CNAME$,0]
+'
+'FLAG$="2100101100000110100000001000000001111000000" 
+'
+'       0  0     1   1     2        3   3     4    
+'       1234567890123456789012345678901234567890123    
+'      / |||         |         |         | 
+'     / / | \Compiled \         \Compiler \      
+'    S  D T  \program  \         \Setup    \   
+'    o  e y   \setup 1  \   2     \      1  \      2 
+'    u  s p  
+'    r  t e  
+'    c  i    
+'    e  n  
+'
+'   VAR(1,1->44:flag$)   
+'   VAR(1,51->53:rotbutt pointer & 61->89:rotbutt offset)  
+
+Set Accessory 
+
+' Colour to flash when un-squashing compiled programs. >31 for no flash
+CFLASH$="-Z32"
+
+' Enough RAM?
+
+Close Workbench 
+'Close Editor  
+Set Sprite Buffer 48
+
+If Chip Free+Fast Free<80*1024
+   Screen Open 0,640,24,2,Hires : Colour 1,$FFF : Curs Off 
+   Centre ">> Sorry, AMOS-Compiler "+VER$+" needs at least 80 Kbytes free to run. <<"
+   Print : Print : Centre "Press any key"
+   Wait Key : Edit 
+End If 
+
+' screens definitions  
+
+If Prg Under=1
+   For S=0 To 7
+      Trap Screen Close S
+   Next 
+   Set Sprite Buffer 40
+End If 
+
+ADAT=Leek(Dreg(3))
+If ADAT Then SCSX=Deek(ADAT) : SCX=Deek(ADAT+4)
+If SCSX<640 Then SCSX=640 : SCX=128
+
+SCY=75 : SCSY=160
+Auto View Off : SCR=-1
+_OPEN_FREE_SCREEN[SCSX,SCSY]
+If Param<0 Then _OMM
+SCR=Param
+'_GRAB_EDITOR_PALETTE
+_INIT_MENU
+_INIT_ZONES
+_INIT_DISPLAY
+
+' open screen
+
+Screen Show SCR : Auto View On 
+For Y=1 To SCSY Step SOP
+   Screen Display SCR,SCX,SCY,,Y
+   Wait Vbl 
+Next 
+Screen Display SCR,,SCY,,SCSY
+Limit Mouse 64,25 To 512,310 : Show On 
+
+_LOAD_BANKS[15]
+
+' Get the directories
+
+If Exist(PRAM$+"/"+CNAME$)
+   DPATH$=PRAM$
+   Open In 1,PRAM$+"/Compiler_Origin"
+   Input #1,PATH$
+   Close 
+End If 
+
+' Load ACmp program
+
+'If Not Comp Here
+'   _INFO[resource$(25)]   
+'   If PATH$<>"" 
+'      Comp Load PATH$+"/APcmp"  
+'   Else 
+'      Comp Load DPATH$+"/APcmp" 
+'   End If 
+'   _NOINFO  
+'End If  
+
+
+' --- Main --- 
+
+X=Free
+Menu On 
+
+Do 
+   MN_ABOUT
+   Do 
+      Multi Wait 
+      If Choice
+         If Choice(1)=1
+            On Choice(2) Proc MN_ABOUT,MN_VERSIONS,_SETUP,_NOP,_COMPILE,_NOP,_QUIT
+         Else 
+            If Choice(1)=2
+               'On Choice(2) Proc _NOP  
+            Else 
+               If Choice(1)=3
+                  'On Choice(2) Proc _NOP  
+               Else 
+                  If Choice(1)=4
+                     'On Choice(2) Proc _NOP  
+                  End If 
+               End If 
+            End If 
+         End If 
+      End If 
+      
+      _DISPLAY_VDIALOG
+      
+      DIAL=Dialog(1)
+      If DIAL
+         If DIAL=6
+            _COMPILE
+         End If 
+         If DIAL>=2 and DIAL<=4
+            _SETFLAG[DIAL-1,Vdialog(1,50+DIAL-1)+3*(DIAL=3)+5*(DIAL=4)]
+            _UPDATE_BUTTONS[DIAL]
+         End If 
+         If DIAL=1 : _QUIT : End If 
+         If DIAL=5 : _SETUP : End If 
+      Else 
+         _GETFLAG[37]
+         If Param
+            MZ_OLD=MZ
+            MZ=Mouse Zone
+            If MZ<>MZ_OLD
+               If IC
+                  If IC<10
+                     Resource Unpack 91+IC,XZ(MZ_OLD)+XO,YZ(MZ_OLD)+YO
+                  Else 
+                     Resource Unpack 105,XZ(MZ_OLD)+XO,YZ(MZ_OLD)+YO
+                     '
+                     '  ** � revoir... ^ ** 
+                     '                 |
+                  End If 
+               End If 
+            End If 
+            If MZ
+               Inc TIME
+               If TIME=TIMING
+                  TIME=0
+                  If MZ=1
+                     IC=9 : XO=0 : YO=0
+                  Else 
+                     If MZ=5
+                        IC=8 : XO=16 : YO=4
+                     Else 
+                        If MZ=6
+                           IC=10 : XO=120 : YO=4
+                        Else 
+                           If MZ>=2
+                              IC=Vdialog(1,50+MZ-1) : XO=48 : YO=4
+                           End If 
+                        End If 
+                     End If 
+                  End If 
+                  If ANM_IC_T(IC)=0
+                     Add ZAP,1,1 To 5
+                  Else 
+                     Add ZAP,VZAP
+                     If ZAP=0 : ZAP=1 : VZAP=1 : End If 
+                     If ZAP=6 : ZAP=5 : VZAP=-1 : End If 
+                  End If 
+                  Resource Bank 15
+                  Resource Unpack IC*5+ZAP,XZ(MZ)+XO,YZ(MZ)+YO
+                  Resource Bank 16
+               End If 
+            Else 
+               IC=0
+            End If 
+         End If 
+      End If 
+   Loop 
+Loop 
+
+
+' --- Procedures --- 
+
+Procedure _COMPILE
+   '
+   Menu Off 
+   On Error Proc _GEST_ERR
+   Resume Label _FINISH_COMPILE
+   '
+   
+   _GETFLAG[1] : SRCE=Param : C$=" -?"+Mid$(Str$(P),2)
+   If SRCE=0
+      S$="__Current__" : Rem *** GRAB FROM EDITOR   
+   Else If SRCE=1
+      S$=Fsel$("*.AMOS","",Resource$(27))
+   Else If SRCE=2
+      _EDIT_LIST
+      If Param=True
+         NL=0
+         S$=LST$(NL)
+      End If 
+   End If 
+   
+   If S$=""
+      _INFO[Resource$(112)] : _WAIT[50]
+      _NOINFO : Goto _FINISH_COMPILE
+   End If 
+   '
+   _GETFLAG[2] : DEST=Param : C$=C$+Mid$(Str$(DEST),2)
+   If DEST=0
+      D$="__Current__" : Rem *** SEND TO EDITOR 
+      TYPE=3
+   Else 
+      If DEST=1
+         If SRCE<2
+            D$=Fsel$("**","",Resource$(30),Resource$(33))
+         End If 
+         If D$=""
+            _GETFLAG[3] : TYPE=Param
+            If Upper$(Right$(S$,5))=".AMOS"
+               If TYPE>0
+                  D$=Left$(S$,Len(S$)-5)
+                  If TYPE=2 : TYPE=0 : End If 
+                  If TYPE=1 : TYPE=1 : End If 
+                  '
+                  '  ** � revoir... ^ ** 
+                  '                 |
+               Else 
+                  D$=Left$(S$,Len(S$)-5)+"_C.AMOS"
+                  TYPE=3
+               End If 
+            End If 
+         End If 
+      End If 
+   End If 
+   If D$=""
+      _INFO[Resource$(112)] : _WAIT[50]
+      _NOINFO : Goto _FINISH_COMPILE
+   End If 
+   C$='"'+S$+'"'+C$+" -O"+'"'+D$+'"'
+   _GETFLAG[5] : C$=C$+" -S"+Mid$(Str$(Param),2)
+   _GETFLAG[4] : C$=C$+" -E"+Mid$(Str$(Param),2)
+   _GETFLAG[6] : C$=C$+" -W"+Mid$(Str$(Param),2)
+   _GETFLAG[14] : If Param : C$=C$+" -L" : End If 
+   _GETFLAG[7] : If TYPE=1 : Add TYPE,Param : End If 
+   C$=C$+" -T"+Mid$(Str$(TYPE),2)
+   C$=C$+" -F"+DPATH$+"/"+" -C"+DPATH$+"/"+CNAME$
+   C$=C$+" "+CFLASH$
+   
+   Timer=0
+   'Compile C$,$12345678  
+   'E$=Comp Err$  
+   
+   Trap Dialog Close 1
+   STATUS=0
+   
+   _GETFLAG[34]
+   If Param<>0 and Length(10)>0
+      
+      ' Play Animation!
+      For S=0 To 7
+         Trap Screen S
+         If Errtrap
+            SCR_ANIM=S : Exit 
+         End If 
+      Next 
+      ' hide all screens 
+      Screen Hide SCR
+      If Prg Under
+         Trap Screen Hide 8 : Rem *** Try to Hide the editor (Don't Works!!!) ***
+      End If 
+      _GETFLAG[35] : If Param : _PLAY_SND : End If 
+      
+      Do 
+         F=Frame Play(10,1,SCR_ANIM)
+         Colour Back Colour(0)
+         Trap Double Buffer 
+         If Errtrap : Proc _GEST_ERR : End If 
+         E$="" : STATUS=0 : CF=0
+         Clear Key 
+         Repeat 
+            Add STATUS,1,0 To 100
+            C=(STATUS*ANM_NF)/100
+            If C-CF>0
+               F=Frame Play(F,1) : CF=C
+               Screen Swap : Wait Vbl 
+            End If 
+            Exit If STATUS=100
+            Multi Wait 
+            K$=Inkey$
+         Until K$=Chr$(27)
+         If K$=Chr$(27) : E$="< User Interruption >" : End If 
+         _OPEN_FREE_SCREEN[SCSX,60-(SRCE<>2)*24]
+         '_GRAB_EDITOR_PALETTE
+         SCR_2=Param
+         Screen SCR_2 : Cls 0 : Flash Off 
+         Screen Display SCR_2,SCX,180,,
+         Screen Show SCR_2 : Screen To Front SCR_2
+         Wait Vbl 
+         _END_COMPILE[SCSX,60-(SRCE<>2)*24,Comp Size,Timer,D$,E$,-(SRCE<>2)]
+         
+         ' squash the prog? 
+         _GETFLAG[28]
+         If Param<>0 and TYPE<>3
+            _WAIT[50]
+            DD$=D$+"_Temp"
+            _SQUASH_A_PROG[D$,DD$,1]
+         End If 
+         
+         Screen Close SCR_2
+         
+         ' List of Progs Looping? 
+         If SRCE<>2 : Exit : End If 
+         Inc NL : S$=LST$(NL)
+         If S$="" : Exit : End If 
+         
+         F=FF
+         
+      Loop 
+      
+      Screen SCR : Colour Back Colour(0)
+      Screen Close SCR_ANIM
+   Else 
+      
+      ' pas d'animation! 
+      Do 
+         _DISPLAY_VUMETER
+         Set Slider 2,2,2,0,4,4,4,0
+         _EXTRACT_PATH[S$]
+         A$=Resource$(14)+(S$-Param$)
+         Cls 6,SCSX/2-216,112 To SCSX/2+216,124
+         Ink 3 : Text SCSX/2-Len(A$)*4,120,A$
+         HSX1=SCSX/2-240+32+10 : HSY1=67+6
+         HSX2=SCSX/2+240-32-10 : HSY2=SCSY/2+60-40-6
+         _GETFLAG[35] : If Param : _PLAY_SND : End If 
+         E$="" : STATUS=0
+         Clear Key 
+         Repeat 
+            Add STATUS,1,0 To 100
+            Hslider HSX1,HSY1 To HSX2,HSY2,100,0,STATUS
+            Exit If STATUS=100
+            Multi Wait 
+            K$=Inkey$
+         Until K$=Chr$(27)
+         If K$=Chr$(27) : E$="< User Interruption >" : End If 
+         Hslider HSX1,HSY1 To HSX2,HSY2,100,0,0
+         _EXTRACT_PATH[D$]
+         _END_COMPILE[480,60-(SRCE<>2)*24,Comp Size,Timer,D$-Param$,E$,-(SRCE<>2)]
+         
+         ' Squash the prog? 
+         _GETFLAG[28]
+         If Param<>0 and TYPE<>3
+            _WAIT[50]
+            DD$=D$+"_Temp"
+            _SQUASH_A_PROG[D$,DD$,1]
+         End If 
+         
+         ' List of Progs Looping? 
+         If SRCE<>2 : Exit : End If 
+         Inc NL : S$=LST$(NL)
+         If TYPE<3
+            D$=Left$(S$,Len(S$)-5)
+         Else 
+            D$=Left$(S$,Len(S$)-5)+"_C.AMOS"
+         End If 
+         If S$="" : Exit : End If 
+         
+      Loop 
+      
+   End If 
+   
+   _FINISH_COMPILE:
+   _GETFLAG[35] : If Param : _STOP_SND : End If 
+   _INIT_DISPLAY
+   Menu On 
+   
+End Proc
+Procedure _DISPLAY_VUMETER
+   VU$="SIze     480,120;"
+   VU$=VU$+"BAse     SW SX -2/,SH SY -2/;"
+   VU$=VU$+"BOx      0,0,1,SX,SY;"
+   VU$=VU$+"BOx      16,8,1,SX 16-,32;"
+   VU$=VU$+"BOx      16,40,1,SX 16-,SY 8-;"
+   VU$=VU$+"POutilne 13ME CentreX,8 TH+,13ME,0,7;"
+   VU$=VU$+"BOx      32,48,67,SX 32-,SY 40-;"
+   VU$=VU$+"PRint    32,SY 44- TH+,'0%',5;"
+   VU$=VU$+"PRint    SX 64-,SY 44- TH+,'100%',5;"
+   VU$=VU$+"EXit;"
+   D=Dialog Box(VU$)
+End Proc
+Procedure _EDIT_LIST
+   Dim LST2$(NLST)
+   Trap Dialog Close 1
+   NL=0
+   While LST$(NL)<>"" and NL<NLST
+      _EXTRACT_PATH[LST$(NL)] : PAT$=Param$
+      LST2$(NL)=Left$(" "+LST$(NL)-PAT$,30)
+      Inc NL
+   Wend 
+   If ED$=""
+      ED$="    SIze     586,144;"
+      ED$=ED$+"BAse     SW SX -2/,SH SY -2/;"
+      ED$=ED$+"BOx      0,0,1,SX,SY;"
+      ED$=ED$+"BOx      8,8,1,256 8-,32;"
+      ED$=ED$+"POutline 20,16,15ME,0,7;"
+      ED$=ED$+"BOx      280,8,67,580,120;"
+      ED$=ED$+"BUtton   0,0,0,SX,32,0,0,0;[][SM;]"
+      ED$=ED$+"BUtton   1,16,SY24-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 4ME CX BP+,4,4ME,3;][BR0;]"
+      ED$=ED$+"KY       27,0;"
+      ED$=ED$+"BUtton   2,256 64- 16-,SY24-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 3ME CX BP+,4,3ME,3;][BR0;]"
+      ED$=ED$+"BUtton   3,16,48,256 32-,24,0,0,1;[LIne 0,0,79 3BP*+,256 32-; PRint 16ME CX BP+,8,16ME,3;][BR0;]"
+      ED$=ED$+"BUtton   4,16,80,256 32-,24,0,0,1;[LIne 0,0,79 3BP*+,256 32-; PRint 17ME CX BP+,8,17ME,3;][BR0;]"
+      ED$=ED$+"BUtton   5,256,SY24-,160,16,0,0,1;[LIne 0,0,114 3BP*+,160; PRint 18ME CX BP+,4,18ME,3;][BR0;]"
+      ED$=ED$+"BUtton   6,416,SY24-,160,16,0,0,1;[LIne 0,0,114 3BP*+,160; PRint 19ME CX BP+,4,19ME,3;][BR0;]"
+      ED$=ED$+"VLine    256,8,76,120;"
+      ED$=ED$+"VSlider  7,264,12,8,104,0,12,1VA,1;[ZChange 8,ZPos;]"
+      ED$=ED$+"AList    8,304,16,256 8/,100 8/,0VA,0,4,2,3;[]"
+      ED$=ED$+"EXit;"
+   End If 
+   Dialog Open 2,ED$
+   Vdialog(2,0)=Array(LST2$(0))
+   Vdialog(2,1)=NL
+   POSL=0
+   D=Dialog Run(2)
+   Dialog Update 2,8,,NLST+1,NL
+   Do 
+      D=Dialog(2)
+      Multi Wait 
+      If D
+         Exit If D=2 or D=1
+         If D=3
+            If NL<NLST
+               F$=Fsel$(PAT$+"*.AMOS","",Resource$(27))
+               If F$<>""
+                  If Exist(F$)
+                     _MATCH[F$]
+                     If Param=False
+                        LST$(NL)=F$
+                        _EXTRACT_PATH[F$] : PAT$=Param$
+                        LST2$(NL)=Left$(" "+LST$(NL)-PAT$,30)
+                        Inc NL
+                        Dialog Update 2,8,,NLST+1,NL
+                        If(Rdialog(2,7)<NL-12 or Rdialog(2,7)>=NL) and NL>=12
+                           Dialog Update 2,7,NL-12,,NL
+                        Else 
+                           Dialog Update 2,7,0,,NL
+                        End If 
+                     Else 
+                        _WARN[Err$(79),0]
+                     End If 
+                  Else 
+                     _WARN[Err$(81),0]
+                  End If 
+               End If 
+            Else 
+               _WARN[Resource$(30),0]
+            End If 
+         Else If D=4
+            If NL<NLST
+               F$=Fsel$(PAT$+"*.AMOS","",Resource$(28),Resource$(29))
+               If F$<>""
+                  If Exist(F$)
+                     _EXTRACT_PATH[F$] : PAT$=Param$
+                     F$=Dir First$(PAT$+"*.AMOS")
+                     While F$<>""
+                        If NL<NLST
+                           If Left$(F$,1)<>"*"
+                              _STRING_FILTER[F$] : F$=PAT$+Param$
+                              _MATCH[F$]
+                              If Param=False
+                                 LST$(NL)=F$
+                                 LST2$(NL)=Left$(" "+LST$(NL)-PAT$,30)
+                                 Inc NL
+                              End If 
+                           End If 
+                           F$=Dir Next$
+                        Else 
+                           _WARN[Resource$(31),0]
+                           Exit 
+                        End If 
+                     Wend 
+                     Dialog Update 2,8,,NLST+1,NL
+                     If(Rdialog(2,7)<NL-12 or Rdialog(2,7)>=NL) and NL>=12
+                        Dialog Update 2,7,NL-12,,NL
+                     Else 
+                        Dialog Update 2,7,0,,NL
+                     End If 
+                  Else 
+                     _WARN[Err$(81),0]
+                  End If 
+               End If 
+            Else 
+               _WARN[Resource$(31),0]
+            End If 
+         Else If D=5
+            If POSL>=0
+               For I=POSL To NL-1
+                  LST$(I)=LST$(I+1)
+                  LST2$(I)=LST2$(I+1)
+               Next I
+               LST$(NL)="" : LST2$(NL)=""
+               Dec NL
+               If POSL>=NL : POSL=NL-1 : End If 
+               Dialog Update 2,7,0,,NL
+               Dialog Update 2,8,,POSL,NL
+            End If 
+         Else If D=6
+            If NL>0
+               _WARN[Resource$(32),1]
+               If Param=True
+                  For I=0 To NL
+                     LST$(I)=""
+                     LST2$(I)=""
+                  Next I
+                  NL=0
+                  Dialog Update 2,7,0,,NL
+                  Dialog Update 2,8,,NLST+1,NL
+               End If 
+            End If 
+         Else If D=8
+            POSL=Rdialog(2,8)
+            If POSL>=NL
+               Dialog Update 2,8,,NLST+1,NL
+            End If 
+         End If 
+      End If 
+   Loop 
+   Dialog Close 2
+End Proc[(D=2)]
+Procedure _END_COMPILE[W,H,SZ,T,D$,E$,REQUESTER]
+   C$="   SIze     0VA,1VA;"
+   C$=C$+"BAse     SW SX -2/,SH SY -2/;"
+   C$=C$+"BOx      0,0,1,SX,SY;"
+   C$=C$+"BOx      8,4,1,SX 8-,20;"
+   C$=C$+"POutline 3VA CentreX,8,3VA,0,7;"
+   C$=C$+"PRint    4VA CentreX,28,4VA,3;"
+   C$=C$+"PRint    5VA CentreX,40,5VA,3;"
+   C$=C$+"BUtton   0,0,0,SX,20,0,0,0;[][SM;]"
+   C$=C$+"IF       2VA1=; ["
+   C$=C$+"  BUtton 1,SX 2/ 32-,SY24-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 3ME CX BP+,4,3ME,3;][BR0;]"
+   C$=C$+"KY       27,0;  ]"
+   C$=C$+"EXit;"
+   Dialog Open 2,C$
+   Vdialog(2,0)=W
+   Vdialog(2,1)=H
+   Vdialog(2,2)=REQUESTER
+   If E$=""
+      Vdialog$(2,3)=Resource$(110)
+      T=T/50 : M=T/60 : S=T mod 60
+      Vdialog$(2,4)=D$
+      Vdialog$(2,5)=Resource$(121)+Str$(SZ)+" "+Resource$(12)+".   "+Resource$(120)+Str$(M)+"m"+Str$(S)+"s."
+   Else 
+      Vdialog$(2,3)=Resource$(112)
+      Vdialog$(2,4)=D$
+      Vdialog$(2,5)=E$
+   End If 
+   
+   ' bell warning!
+   _GETFLAG[36]
+   If Param
+      If Length(3)
+         T$=Peek$(Start(3)-8,8)
+         If T$="Music   " or T$="Samples "
+            Play 3,70,0
+         End If 
+      Else 
+         Play 3,70,0
+      End If 
+   End If 
+   
+   D=Dialog Run(2)
+   Timer=0
+   Do 
+      Multi Wait 
+      Exit If Dialog(2)=1 and REQUESTER=1
+      Exit If REQUESTER=0 and Timer>100
+   Loop 
+   
+   _GETFLAG[35]
+   If Param : _STOP_SND : End If 
+   Dialog Close 2
+   
+End Proc
+Procedure _EXTRACT_PATH[A$]
+   If A$<>""
+      I=Len(A$)+1
+      Repeat 
+         Dec I : B$=Mid$(A$,I,1)
+      Until B$="/" or B$=":" or I=1
+      If I>1
+         A$=Left$(A$,I)
+      Else 
+         A$=""
+      End If 
+   End If 
+End Proc[A$]
+Procedure _GETFLAG[N]
+End Proc[Asc(Mid$(FLAG$,N,1))-48]
+Procedure _GRAB_EDITOR_PALETTE
+   ADAT=Leek(Dreg(3))
+   If ADAT=0
+      Palette 0,$6F,$77,$EEE,$F00,$DD,$AA,$FF3
+   Else 
+      For C=0 To 7
+         Colour C,Deek(ADAT+28+C*2)
+      Next 
+      Colour 1,(Colour(2) and $EEE)/2
+   End If 
+End Proc
+Procedure _INFO[A$]
+   Trap Dialog Freeze 1
+   L=Len(A$)*8
+   I$="SIze     "+Str$(L+64)+",48;"
+   I$=I$+"BAse     SW SX -2/,SH SY -2/; SA 1;"
+   I$=I$+"BOx      0,0,1,SX,SY;"
+   I$=I$+"SetVar   2,'"+A$+"';"
+   I$=I$+"PRint    2 VA CentreX,20,2 VA,7;"
+   I$=I$+"EXit;"
+   Dialog Open 2,I$
+   D=Dialog Run(2)
+End Proc
+Procedure _INIT_DISPLAY
+   Menu Off 
+   _INIT_WORK
+   Trap D=Dialog Run(1,1)
+   _UPDATE_BUTTONS[0]
+   Screen Show SCR
+   Menu On 
+End Proc
+Procedure _INIT_MENU
+   Paper 0 : Pen 3
+   I=40 : J=0
+   A$=Resource$(I)
+   Repeat 
+      If Left$(A$,1)=" "
+         Inc J
+         Menu$(J)=A$+"  "
+         Inc I
+         LMAX=0 : I0=I : I1=I
+         Repeat 
+            Inc I1 : A$=Resource$(I1)
+            If Len(A$)>LMAX : LMAX=Len(A$) : End If 
+         Until Left$(A$,1)=" "
+         
+         K=0
+         For I=I0 To I1-1
+            Inc K : A$=Left$(Resource$(I),1)
+            If A$<>"-"
+               Menu$(J,K)=Left$(" "+Resource$(I)+Space$(LMAX+1),LMAX+2)
+            Else 
+               Menu$(J,K)="(INk 1,2)"+String$("-",LMAX+2)
+               Menu Inactive(J,K)
+            End If 
+         Next I
+         I=I1 : A$=Resource$(I)
+      End If 
+   Until A$=" end"
+End Proc
+Procedure _INIT_WORK
+   
+   If DB$=""
+      DB$=DB$+"LA 1;"
+      DB$=DB$+"SIze   SW,SH;"
+      DB$=DB$+"BAse   SWidth SX -2/,SHeight SY -2/;"
+      DB$=DB$+"SetVar 0,SX 640- 16/ 8*;"
+      DB$=DB$+"BOx    0,0,1,SX,SY;"
+      DB$=DB$+"LIne   416,0,107,SX;"
+      DB$=DB$+"PRint  500,4,1ME,7;"
+      DB$=DB$+"UNpack 40,0,106;"
+      DB$=DB$+"BUtton 0,40,0,SX,16,0,0,0;[][SM;]"
+      DB$=DB$+"BUtton 1,0,0,40,16,0,0,1;[UNpack 0,0,100 BP+;][BR0;]"
+      DB$=DB$+"KY     27,0;"
+      DB$=DB$+"BOx    8 0VA+,28,1,8 216+ 0VA+,110;"
+      DB$=DB$+"UNpack 72 0VA+,40,102;"
+      DB$=DB$+"RotBut 2,8 8+ 0VA+,68,200;"
+      DB$=DB$+"BOx    232 0VA+,28,1,232 216+ 0VA+,110;"
+      DB$=DB$+"UNpack 200 0VA+,40,110;"
+      DB$=DB$+"UNpack 264 0VA+,40,103;"
+      DB$=DB$+"RotBut 3,232 8+ 0VA+,68,200;"
+      DB$=DB$+"BOx    456 0VA+,28,1,SX 0VA- 8-,110;"
+      DB$=DB$+"UNpack 512 0VA+,40,104;"
+      DB$=DB$+"RotBut 4,456 8+ 0VA+,68,160;"
+      DB$=DB$+"BUtton 5,24 0VA+,120,184,24,0,0,1;[LIne 0,0,79   3BP*+ ,184; UN 16,4BP+,99;PR 56,THBP+,99ME,3;][BR0;]"
+      DB$=DB$+"BUtton 6,SX 384- 0VA- 24-,120,384,24,0,0,1;[LI0,0,79 3BP*+,384;UN 120,4BP+,105;][BR0;]"
+      DB$=DB$+"EXit;"
+      DB$=DB$+"UI RotatingButton,4;"
+      '        RotBut ZN, X, Y, W  
+      _START_ICON_BUTT=91
+      _START_TEXT_BUTT=91
+      DB$=DB$+"["
+      DB$=DB$+"SetZon P4;"
+      DB$=DB$+"BUtton P1,P2,P3,P4,24,0,0,1;"
+      DB$=DB$+"       [LIne 0,0,85 3BP*+,SX; UN 48,4BP+,"+Str$(_START_ICON_BUTT)+" ZN50+1-VA+;"
+      DB$=DB$+"       PRint 88,THBP+,"+Str$(_START_TEXT_BUTT)+" ZN50+1-VA+ ME,3;]"
+      DB$=DB$+"       [BR0; SV ZN50+1-,ZN10* 40+ ZN50+1-VA+ VA;]"
+      DB$=DB$+"]"
+   End If 
+   Trap Dialog Close 1
+   Dialog Open 1,DB$,99,1024*12
+   For I=1 To Len(FLAG$)
+      _GETFLAG[I]
+      Vdialog(1,I)=Param
+   Next I
+   _GETFLAG[1] : Vdialog(1,51)=Param
+   _GETFLAG[2] : Vdialog(1,52)=Param+3
+   _GETFLAG[3] : Vdialog(1,53)=Param+5
+End Proc[Errtrap]
+Procedure _INIT_ZONES
+   NZ=6
+   VA0=((SCSX-640)/16)*8
+   ' Set up zones 
+   Restore DAT0
+   Reserve Zone NZ
+   For Z=1 To NZ
+      Read XZ(Z),YZ(Z),A,B : Set Zone Z,XZ(Z),YZ(Z) To XZ(Z)+A,YZ(Z)+B
+   Next 
+   DAT0:
+   Data 0,0,40,16
+   Data 16+VA0,68,200,24
+   Data 240+VA0,68,200,24
+   Data 464+VA0,68,160,24
+   Data 24+VA0,120,184,24
+   Data SCSX-384-VA0-24,120,384,24
+   Restore DAT1
+   For I=0 To 10
+      Read ANM_IC_T(I)
+   Next I
+   DAT1:
+   Data 0,1,0,0,1,1,1,1,1,1,1,1
+End Proc
+Procedure _LOAD_BANKS[A]
+   
+   If A
+      Timer=0
+      _INFO[Resource$(24)] : _WAIT[50]
+      If A and 1
+         _GETFLAG[37] : Rem *** animated buttons *** 
+         If Param
+            If Length(15)=0
+               Trap Load DPATH$+"AMOSPro_CompilerA_resource.Abk",15
+               If Errtrap
+                  _NOINFO
+                  _INFO[Resource$(70)] : _WAIT[50]
+                  _SETFLAG[37,0] : Erase 15
+                  _NOINFO
+               End If 
+            End If 
+         Else 
+            Erase 15
+         End If 
+      End If 
+      
+      If A and 2
+         _GETFLAG[34] : Rem *** iff animation ***  
+         Erase 10
+         If Param
+            If ANM$<>""
+               Trap Open In 1,ANM$
+               If Errtrap
+                  _NOINFO
+                  _INFO[Resource$(71)] : _WAIT[50]
+                  _SETFLAG[34,0] : Erase 10
+                  _NOINFO
+               Else 
+                  L=Frame Length(1)
+                  Trap Reserve As Work 10,L
+                  If Errtrap
+                     _NOINFO
+                     _INFO[Resource$(71)] : _WAIT[50]
+                     _SETFLAG[34,0] : Erase 10
+                     _NOINFO
+                  Else 
+                     ANM_NF=Frame Load(1 To 10,100)-3
+                  End If 
+                  Close 1
+               End If 
+            End If 
+         End If 
+      End If 
+      
+      If A and 4
+         _GETFLAG[35] : Rem *** Soundtrack *** 
+         Erase 3
+         If Param
+            If SND$<>""
+               If Length(3)=0
+                  Trap Load SND$,3
+                  If Errtrap
+                     Trap Med Load SND$,3
+                     If Errtrap
+                        Trap Track Load SND$,3
+                        If Errtrap
+                           _NOINFO
+                           _INFO[Resource$(72)] : _WAIT[50]
+                           _SETFLAG[35,0] : Erase 3
+                        End If 
+                     End If 
+                  End If 
+               End If 
+            End If 
+         End If 
+      End If 
+      Repeat : Multi Wait : Until Timer>50
+      _NOINFO
+   End If 
+   
+End Proc
+Procedure _LOAD_CONFIG[F$,REQ]
+   
+   On Error Proc _GEST_ERR
+   Resume Label _END
+   If F$=""
+      F$=Fsel$(Dir$+"**","",Resource$(22))
+   End If 
+   If F$<>""
+      Trap Open In 1,F$
+      If Errtrap
+         If REQ
+            _WARN[Resource$(73),1]
+            If Param=True
+               F$=Fsel$(Dir$+"**","",Resource$(22))
+               _LOAD_CONFIG[F$,1]
+               Pop Proc
+            End If 
+         End If 
+         _WARN[Resource$(74),0]
+         FLAG$="2100101100000000000000001100000000000000000"
+         ANM$="" : SND$=""
+         Pop Proc
+      End If 
+      Input #1,FL$
+      Input #1,A$
+      Input #1,S$
+      Close 1
+      If Len(FL$)<>43
+         Error 95
+      Else 
+         FLAG$=FL$
+         ANM$=A$
+         SND$=S$
+      End If 
+   End If 
+   _END:
+   
+End Proc
+Procedure _MATCH[A$]
+   A=0 : F=False
+   Repeat 
+      If A$=LST$(A) : F=True : Exit : End If 
+      Inc A
+   Until LST$(A)=""
+End Proc[F]
+Procedure _NOINFO
+   Trap Dialog Close 2
+   Trap Dialog Unfreeze 1
+End Proc
+Procedure _NOP
+   Multi Wait 
+End Proc
+Procedure _OPEN_FREE_SCREEN[SX,SY]
+   For S=0 To 7
+      Trap Screen S
+      If Errtrap
+         Trap Resource Screen Open S,SX,SY,0
+         If Errtrap : Pop Proc[-1] : End If 
+         Screen Hide S
+         Cls 0 : Paper 0 : Pen 0
+         Wait Vbl 
+         Pop Proc[S]
+      End If 
+   Next 
+End Proc[-1]
+Procedure _OMM
+   Auto View On 
+   If SCR>=0
+      Trap Screen Close SCR
+      Trap Screen Open SCR,640,8,2,Hires
+      If Errtrap=0
+         Curs Off 
+         Screen Display SCR,,78,,
+         Palette $777,$FFF
+         Centre Resource$(14) : Rem **** � changer ! ****  
+         Clear Key : While Mouse Key : Multi Wait : Wend 
+         Repeat : Multi Wait : Until Inkey$<>"" or Mouse Key<>0
+         Screen Close SCR
+      End If 
+   End If 
+   _QUIT
+   Error 24
+End Proc
+Procedure _PLAY_SND
+   On Error Proc _GEST_ERR
+   Resume Label _END
+   If Length(3)
+      T$=Peek$(Start(3)-8,8)
+      If T$="Music   "
+         Trap Music 1
+      Else If T$="Tracker "
+         Track Loop On 
+         Trap Track Play 3
+      Else If T$="Med     "
+         Trap Med Play 3
+      Else If T$="Samples "
+         Sam Bank 3
+         Sam Loop On 
+         Trap Sam Play 12,1
+      End If 
+   End If 
+   _END:
+End Proc
+Procedure _STOP_SND
+   On Error Proc _GEST_ERR
+   Resume Label _END
+   If Length(3)
+      T$=Peek$(Start(3)-8,8)
+      If T$="Music   "
+         Trap Music Off 
+      Else If T$="Tracker "
+         Trap Track Stop 
+      Else If T$="Med     "
+         Trap Med Stop 
+      Else If T$="Samples "
+         Trap Sam Stop 
+      End If 
+   End If 
+   _END:
+End Proc
+Procedure _QUIT
+   _WARN[Resource$(20),1]
+   If Param=True
+      Trap Dialog Close 
+      Trap Screen SCR
+      If Errtrap=0
+         For Y=1 To SCSY Step SOP
+            Screen Offset SCR,,Y
+            Screen Display SCR,,,,SCSY-Y
+            Wait Vbl 
+         Next 
+         Screen Close SCR
+      End If 
+      Trap Close 
+      Erase All 
+      Edit 
+   End If 
+End Proc
+Procedure _SETFLAG[N,V]
+   
+   Mid$(FLAG$,N,1)=Chr$(48+V)
+   
+End Proc
+Procedure _SETUP
+   
+   Dialog Close 1
+   FLAG_OLD$=FLAG$
+   ANM_OLD$=ANM$
+   SND_OLD$=SND$
+   SU$="    LAbel 1;"
+   SU$=SU$+"SIze     560,140;"
+   SU$=SU$+"BAse     SW SX-2/,SH SY-2/;"
+   SU$=SU$+"BOx      0,0,1,SX,SY;"
+   SU$=SU$+"BOx      8,4,1,SX 8-,20;"
+   SU$=SU$+"POutline 130MECX,8,130ME,0,7;"
+   SU$=SU$+"BUtton   0,0,0,SX,16,0,0,0;[][SM;]"
+   SU$=SU$+"BUtton   3,32,32,SX 32-,24,0,0,1;[LIne 0,0,79 3BP*+,SX 32-; PRint 131ME CX,8,131ME,3;][BR0;]"
+   SU$=SU$+"BUtton   4,32,60,SX 32-,24,0,0,1;[LIne 0,0,79 3BP*+,SX 32-; PRint 132ME CX,8,132ME,3;][BR0;]"
+   SU$=SU$+"BUtton   5,32,SY48-,135METL 8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,135METL8*16+; PRint 135MECX BP+,4,135ME,3;][BR0;]"
+   SU$=SU$+"BUtton   6,SX 136METL8*- 16- 2/,SY 48-,136METL 8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,136METL8*16+; PRint 136MECX4- BP+,4,136ME,3;][BR0;]"
+   SU$=SU$+"BUtton   7,SX 137METL8*-48-,SY48-,137METL 8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,137METL8*16+; PRint 137MECX4- BP+,4,137ME,3;][BR0;]"
+   SU$=SU$+"BUtton   1,32,SY28-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]"
+   '   SU$=SU$+"KY       27,0;" 
+   SU$=SU$+"BUtton   2,SX96-,SY28-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 5MECX BP+,4,5ME,3;][BR0;]"
+   '   SU$=SU$+"KY       13,0;" : Rem  *** Selecteur Fichier perturbateur! ***  
+   SU$=SU$+"EXit;"
+   
+   SU$=SU$+"LAbel 2;"
+   SU$=SU$+"SIze     560,140;"
+   SU$=SU$+"BAse     SW SX-2/,SH SY-2/;"
+   SU$=SU$+"BOx      0,0,1,SX,SY;"
+   SU$=SU$+"BOx      8,4,1,SX 8-,20;"
+   SU$=SU$+"POutline 140MECX16-,8,140ME' - 1'!,0,7;"
+   SU$=SU$+"BUtton   0,0,0,SX,16,0,0,0;[][SM;]"
+   SU$=SU$+"DOption  3,16,32,SX16-,141,4VA;"
+   SU$=SU$+"DOption  4,16,44,SX16-,142,5VA;"
+   SU$=SU$+"DOption  5,16,56,SX16-,143,6VA;"
+   SU$=SU$+"DOption  6,16,68,SX16-,144,7VA;"
+   SU$=SU$+"BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]"
+   SU$=SU$+"KY       27,0;"
+   SU$=SU$+"BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]"
+   SU$=SU$+"KY       13,0;"
+   SU$=SU$+"BUtton   8,SX 8METL8*- 16- 2/,SY20-,8METL 8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,8METL8*16+; PRint 8MECX BP+,4,8ME,3;][BR0;]"
+   SU$=SU$+"EXit;"
+   
+   SU$=SU$+"LAbel 3;"
+   SU$=SU$+"SIze     560,140;"
+   SU$=SU$+"BAse     SW SX-2/,SH SY-2/;"
+   SU$=SU$+"BOx      0,0,1,SX,SY;"
+   SU$=SU$+"BOx      8,4,1,SX 8-,20;"
+   SU$=SU$+"POutline 140MECX16-,8,140ME' - 2'!,0,7;"
+   SU$=SU$+"BUtton   0,0,0,SX,16,0,0,0;[][SM;]"
+   SU$=SU$+"DOption  3,16,32,SX16-,151,14VA;"
+   SU$=SU$+"DOption  4,16,44,SX16-,152,15VA;"
+   SU$=SU$+"DOption  5,16,56,SX16-,153,16VA;"
+   SU$=SU$+"DOption  6,16,68,SX16-,154,17VA;"
+   SU$=SU$+"BUtton   1,SX 9METL8*- 16- 2/,SY20-,9METL 8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,9METL8*16+; PRint 9MECX BP+,4,9ME,3;][BR0;]"
+   SU$=SU$+"KY       27,0;"
+   SU$=SU$+"EXit;"
+   
+   SU$=SU$+"LAbel 4;"
+   SU$=SU$+"SIze     560,140;"
+   SU$=SU$+"BAse     SW SX-2/,SH SY-2/;"
+   SU$=SU$+"BOx      0,0,1,SX,SY;"
+   SU$=SU$+"BOx      8,4,1,SX 8-,20;"
+   SU$=SU$+"POutline 160MECX16-,8,160ME' - 1'!,0,7;"
+   SU$=SU$+"BUtton   0,0,0,SX,16,0,0,0;[][SM;]"
+   SU$=SU$+"DOption  3,16,32,SX16-,161,24VA;"
+   SU$=SU$+"DOption  4,16,44,SX16-,162,25VA;"
+   SU$=SU$+"DOption  5,16,56,SX16-,163,26VA;"
+   SU$=SU$+"DOption  6,16,68,SX16-,164,27VA;"
+   SU$=SU$+"BUtton   1,16,SY20-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 4MECX BP+,4,4ME,3;][BR0;]"
+   SU$=SU$+"KY       27,0;"
+   SU$=SU$+"BUtton   2,SX80-,SY20-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 3MECX BP+,4,3ME,3;][BR0;]"
+   SU$=SU$+"KY       13,0;"
+   SU$=SU$+"BUtton   8,SX8METL8*- 16- 2/,SY20-,8METL8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,8METL8*16+; PRint 8MECX BP+,4,8ME,3;][BR0;]"
+   SU$=SU$+"EXit;"
+   
+   SU$=SU$+"LAbel 5;"
+   SU$=SU$+"SIze     560,140;"
+   SU$=SU$+"BAse     SW SX-2/,SH SY-2/;"
+   SU$=SU$+"BOx      0,0,1,SX,SY;"
+   SU$=SU$+"BOx      8,4,1,SX 8-,20;"
+   SU$=SU$+"SetVar   0,SW SX- 2/;"
+   SU$=SU$+"SetVar   1,SH SY- 2/;"
+   SU$=SU$+"POutline 160MECX16-,8,160ME' - 2'!,0,7;"
+   SU$=SU$+"BUtton   0,0,0,SX,16,0,0,0;[][SM;]"
+   SU$=SU$+"DOption  3,16,32,SX16-,171,34VA;"
+   SU$=SU$+"DSelect  7,16,44,SX16-;"
+   SU$=SU$+"DOption  4,16,56,SX16-,172,35VA;"
+   SU$=SU$+"DSelect  8,16,68,SX16-;"
+   SU$=SU$+"DOption  5,16,80,SX16-,173,36VA;"
+   SU$=SU$+"DOption  6,16,92,SX16-,174,37VA;"
+   SU$=SU$+"BUtton   1,SX9METL8*- 16- 2/,SY20-,9METL8*16+,16,0,0,1;[LIne 0,0,114 3BP*+,9METL8*16+; PRint 9MECX BP+,4,9ME,3;][BR0;]"
+   SU$=SU$+"KY       27,0;"
+   SU$=SU$+"EXit;"
+   
+   SU$=SU$+"UI       DO,6;"
+   '                 DrawOption P1:ZN, P2:X, P3:Y, P4:W, P5:ME, P6:BP   
+   SU$=SU$+"["
+   SU$=SU$+"LIne     P2,P3,111,P4 68-;"
+   SU$=SU$+"PRint    P2 16+,P3 1+,P5ME,3;"
+   SU$=SU$+"BUtton   P1,P4 64-,P3,64,10,P6,0,1;"
+   SU$=SU$+"         [LIne 0,0,41 3BP*+,64; PRint 6BP+MECX BP+,1,6BP+ME,3;][]"
+   SU$=SU$+"]"
+   
+   SU$=SU$+"UI       DS,4;"
+   '                 Drawselect P1:ZN, P2:X, P3:Y, P4:W 
+   SU$=SU$+"["
+   SU$=SU$+"LIne     P2,P3,111,P4 28-;"
+   SU$=SU$+"BUtton   P1,P4 24-,P3,24,10,0,0,1;"
+   SU$=SU$+"         [UNpack 0,0,120BP+;][BR0;]"
+   SU$=SU$+"]"
+   
+   Dialog Open 1,SU$,60,1024*12
+   Do 
+      For I=4 To Len(FLAG$)
+         _GETFLAG[I]
+         Vdialog(1,I)=Param
+      Next I
+      Do 
+         D1=Dialog Run(1,1)
+         Do 
+            Multi Wait 
+            D1=Dialog(1)
+            If D1=1
+               FLAG$=FLAG_OLD$
+               ANM$=ANM_OLD$
+               SND$=SND_OLD$
+               Exit 3
+            Else If D1=2
+               A=0
+               If Vdialog(1,37)<>Asc(Mid$(FLAG_OLD$,37,1))-48 : A=1 : End If 
+               If Vdialog(1,34)<>Asc(Mid$(FLAG_OLD$,34,1))-48 or ANM$<>ANM_OLD$ : A=A+2 : End If 
+               If Vdialog(1,35)<>Asc(Mid$(FLAG_OLD$,35,1))-48 or SND$<>SND_OLD$ : A=A+4 : End If 
+               _LOAD_BANKS[A]
+               Exit 3
+            Else If D1=3
+               
+               ' -- Compiled prog setup 1 --  
+               
+               FLAG_OLD2$=FLAG$
+               ANM_OLD2$=ANM$
+               SND_OLD2$=SND$
+               Wait Vbl 
+               D2=Dialog Run(1,2)
+               Do 
+                  Multi Wait 
+                  D2=Dialog(1)
+                  _DISPLAY_VDIALOG
+                  If D2=1
+                     FLAG$=FLAG_OLD2$
+                     Exit 3
+                  Else If D2=2
+                     Exit 3
+                  Else If D2>=3 and D2<8
+                     D=D2+1
+                     Vdialog(1,D)=Abs(Vdialog(1,D)-1)
+                     _SETFLAG[D,Vdialog(1,D)]
+                  Else If D2=8
+                     
+                     ' -- Compiled prog setup 2 --  
+                     
+                     D3=Dialog Run(1,3)
+                     Do 
+                        Multi Wait 
+                        _DISPLAY_VDIALOG
+                        D3=Dialog(1)
+                        If D3=1
+                           Exit 
+                        Else If D3>=3
+                           D=D3+11
+                           Vdialog(1,D)=Abs(Vdialog(1,D)-1)
+                           _SETFLAG[D,Vdialog(1,D)]
+                        End If 
+                     Loop 
+                     D2=Dialog Run(1,2)
+                  End If 
+               Loop 
+            Else If D1=4
+               
+               ' -- Compiler setup 1 -- 
+               
+               FLAG_OLD2$=FLAG$
+               Wait Vbl 
+               D2=Dialog Run(1,4)
+               Do 
+                  Multi Wait 
+                  D2=Dialog(1)
+                  _DISPLAY_VDIALOG
+                  
+                  If D2=1
+                     FLAG$=FLAG_OLD2$
+                     ANM$=ANM_OLD2$
+                     SND$=SND_OLD2$
+                     Exit 3
+                  Else If D2=2
+                     Exit 3
+                  Else If D2>=3 and D2<8
+                     D=D2+21
+                     Vdialog(1,D)=Abs(Vdialog(1,D)-1)
+                     _SETFLAG[D,Vdialog(1,D)]
+                  Else If D2=8
+                     
+                     ' -- Compiler setup 2 -- 
+                     
+                     D3=Dialog Run(1,5)
+                     LMAX=(SCSX-Vdialog(1,0)*2-88)/8
+                     Ink 5 : Text Vdialog(1,0)+24,Vdialog(1,1)+51,Left$(ANM$,LMAX)
+                     Text Vdialog(1,0)+24,Vdialog(1,1)+75,Left$(SND$,LMAX)
+                     Do 
+                        Multi Wait 
+                        D3=Dialog(1)
+                        _DISPLAY_VDIALOG
+                        If D3=1
+                           Exit 
+                        Else If D3=7
+                           If Vdialog(1,3+31)
+                              _EXTRACT_PATH[ANM$]
+                              A$=Fsel$(Param$,ANM$-Param$,Resource$(2))
+                              If A$<>""
+                                 ANM$=A$
+                                 Cls 6,Vdialog(1,0)+24,Vdialog(1,1)+45 To Vdialog(1,0)+24+LMAX*8,Vdialog(1,1)+53
+                                 Ink 5 : Text Vdialog(1,0)+24,Vdialog(1,1)+51,Left$(ANM$,LMAX)
+                              End If 
+                           End If 
+                        Else If D3=8
+                           If Vdialog(1,4+31)
+                              _EXTRACT_PATH[SND$]
+                              A$=Fsel$(Param$,SND$-Param$,Resource$(2))
+                              If A$<>""
+                                 SND$=A$
+                                 Cls 6,Vdialog(1,0)+24,Vdialog(1,1)+69 To Vdialog(1,0)+24+LMAX*8,Vdialog(1,1)+77
+                                 Ink 5 : Text Vdialog(1,0)+24,Vdialog(1,1)+75,Left$(SND$,LMAX)
+                              End If 
+                           End If 
+                        Else If D3>=3
+                           D=D3+31
+                           Vdialog(1,D)=Abs(Vdialog(1,D)-1)
+                           _SETFLAG[D,Vdialog(1,D)]
+                        End If 
+                     Loop 
+                     D2=Dialog Run(1,4)
+                  End If 
+               Loop 
+            Else If D1=5
+               _LOAD_CONFIG["",1]
+            Else If D1=6
+               _SAVE_CONFIG[CNAME$]
+            Else If D1=7
+               _SAVE_CONFIG[""]
+            End If 
+         Loop 
+      Loop 
+   Loop 
+   Dialog Close 1
+   _INIT_DISPLAY
+   
+End Proc
+Procedure _SAVE_CONFIG[F$]
+   If F$=""
+      F$=Fsel$("**","",Resource$(23))
+   End If 
+   If F$<>""
+      Trap Open Out 1,F$
+      Trap Print #1,FLAG$
+      Trap Print #1,ANM$
+      Trap Print #1,SND$
+      Trap Close 1
+      If Errtrap
+         _WARN[Resource$(27),0]
+      End If 
+   End If 
+End Proc
+Procedure _SQUASH_A_PROG[A$,B$,A]
+   '      If Param>0
+   '         A$="Successfull squash! Final size:"+Str$(Param)+","+Str$(SZ-Param)+" bytes saved."
+   '         _INFO[A$]
+   '      Else  
+   '         If Param=0 
+   '            _INFO["Squash interrupted."]  
+   '         End If 
+   '         If Param<0 
+   '            _INFO["Un-successfull Squash, No object file on disc."] 
+   '         End If 
+   '      End If  
+   '      _WAIT[50] : _NOINFO 
+   '      trap Kill D$  
+   '      trap Rename DD$ To D$ 
+End Proc
+Procedure _STRING_FILTER[A$]
+   A$=Mid$(A$,2,Len(A$)-9)
+   For I=Len(A$) To 1 Step -1
+      Exit If Mid$(A$,I,1)<>" "
+   Next I
+   A$=Left$(A$,I)
+End Proc[A$]
+Procedure _UPDATE_BUTTONS[A]
+   If A=0
+      Restore "DAT"+Right$("0"+(Str$(10*Vdialog(1,51)+Vdialog(1,52))-" "),2)
+      DAT03:
+      Data 1,2,0,-1
+      Data 0,0,0,4,3,-1
+      Data 0,0,0,0,0,5,-1
+      DAT04:
+      Data 1,2,0,-1
+      Data 0,0,0,4,3,-1
+      Data 0,0,0,0,0,6,7,5,-1
+      DAT13:
+      Data 1,2,0,-1
+      Data 0,0,0,4,3,-1
+      Data 0,0,0,0,0,5,-1
+      DAT14:
+      Data 1,2,0,-1
+      Data 0,0,0,4,3,-1
+      Data 0,0,0,0,0,6,7,5,-1
+      DAT24:
+      Data 1,2,0,-1
+      Data 0,0,0,0,4,-1
+      Data 0,0,0,0,0,6,7,5,-1
+      For BUTT=2 To 4
+         I=0
+         Do 
+            Read VA
+            Exit If VA<0
+            Vdialog(1,40+BUTT*10+I)=VA
+            Inc I
+         Loop 
+      Next BUTT
+   Else 
+      If A=2
+         If Vdialog(1,51)<=1
+            If Vdialog(1,52)=3
+               Restore DAT20
+               DAT20:
+               Data 2
+               Data 3,0,0,0,4,3,-1
+               Data 4,0,0,0,0,0,5,-1
+            Else 
+               Restore DAT21
+               DAT21:
+               Data 2
+               Data 3,0,0,0,4,3,-1
+               Data 4,0,0,0,0,0,6,7,5,-1
+            End If 
+         Else 
+            Restore DAT22
+            DAT22:
+            Data 2
+            Data 3,0,0,0,0,4,-1
+            Data 4,0,0,0,0,0,6,7,5,-1
+         End If 
+      Else 
+         If A=3
+            If Vdialog(1,52)=3
+               Restore DAT30
+               DAT30:
+               Data 1
+               Data 4,0,0,0,0,0,5,-1
+            Else 
+               Restore DAT31
+               DAT31:
+               Data 1
+               Data 4,0,0,0,0,0,6,7,5,-1
+            End If 
+         Else 
+            Pop Proc
+         End If 
+      End If 
+      Read NB_LIST
+      For J=1 To NB_LIST
+         FLAG=True
+         Read BUTT
+         I=0
+         Do 
+            Read V
+            Exit If V<0
+            VA=V
+            If VA=Vdialog(1,50+BUTT-1) : FLAG=False : End If 
+            Vdialog(1,40+BUTT*10+I)=VA
+            Inc I
+         Loop 
+         If FLAG
+            Vdialog(1,50+BUTT-1)=VA
+            _SETFLAG[BUTT-1,Vdialog(1,50+BUTT-1)+5*(BUTT=4)+3*(BUTT=3)]
+            Dialog Update 1,BUTT
+         End If 
+      Next J
+   End If 
+End Proc
+Procedure _WAIT[T]
+   For I=1 To T
+      Multi Wait 
+   Next I
+End Proc
+Procedure _WARN[A$,REQUESTER]
+   Trap Dialog Freeze 1
+   Trap Dialog Freeze 2
+   L=Len(A$)*8
+   WA$="    SIze     1VA TL8* 32+, 48 0VA 24*+;"
+   WA$=WA$+"BAse     SW SX -2/,SH SY -2/; SA 1;"
+   WA$=WA$+"BOx      0,0,1,SX,SY;"
+   WA$=WA$+"BOx      8,4,1,SX 8-,20;"
+   WA$=WA$+"POutline 21ME CentreX,8,21ME,0,7;"
+   WA$=WA$+"PRint    1VA CentreX,20 TH+,1VA,3;"
+   WA$=WA$+"BUtton   0,0,0,SX,32,0,0,0;[][SM;]"
+   WA$=WA$+"IF       0VA 1=;["
+   WA$=WA$+"BUtton   1,16,SY24-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 4ME CX BP+,4,4ME,3;][BR0;]"
+   WA$=WA$+"KY       27,0;"
+   WA$=WA$+"BUtton   2,SX80-,SY24-,64,16,0,0,1;[UNpack 0,0,13BP+; PRint 3ME CX BP+,4,3ME,3;][BR0;]"
+   WA$=WA$+"KY       13,0;  ]"
+   WA$=WA$+"EXit;"
+   Dialog Open 3,WA$
+   Vdialog(3,0)=REQUESTER
+   Vdialog$(3,1)=A$
+   D=Dialog Run(3)
+   Timer=0
+   Repeat 
+      Multi Wait 
+      D=Dialog(3)
+      Exit If Timer>200 and REQUESTER=0
+   Until D=1 or D=2
+   Dialog Close 3
+   Trap Dialog Unfreeze 1
+   Trap Dialog Unfreeze 2
+End Proc[(D=2)]
+Procedure MN_ABOUT
+   Dialog Freeze 1
+   AB$="SIze     480,100;"
+   AB$=AB$+"BAse     SW SX -2/,SH SY -2/; SA 1;"
+   AB$=AB$+"BOx      0,0,1,SX,SY;"
+   AB$=AB$+"BOx      16,8,1,SX 16-,72;"
+   AB$=AB$+"SVar     2,'AMOS Compiler  "+VER$+"';"
+   AB$=AB$+"POutilne 2 VA CentreX,8 TH+,2VA,0,7;"
+   AB$=AB$+"SVar     2,10ME ' Francois LIONET'!;"
+   AB$=AB$+"PRint    2VA CentreX,24 TH+,2VA,7;"
+   AB$=AB$+"SVar     2,11ME ' Jean-Baptiste BOLCATO'!;"
+   AB$=AB$+"PRint    2VA CentreX,36 TH+,2VA,7;"
+   AB$=AB$+"SVar     2,'� 1993 Europress Software Ltd.';"
+   AB$=AB$+"PRint    2VA CentreX,48 TH+,2VA,7;"
+   AB$=AB$+"PRint    1VA CentreX,78 TH+,1 VA,3;"
+   AB$=AB$+"RUn      250,%1111;"
+   AB$=AB$+"EXit;"
+   D=Dialog Box(AB$,1,"Chip:"+Str$(Chip Free)+"   Fast:"+Str$(Fast Free))
+   Dialog Unfreeze 1
+End Proc
+Procedure MN_VERSIONS
+End Proc
+
+' *** debug!!... *** 
+
+Procedure _MON
+   Monitor 
+   Resume Next 
+End Proc
+Procedure _GEST_ERR
+   _WARN[Err$(Errn),0]
+   Resume Label 
+End Proc
+Procedure _DISPLAY_VDIALOG
+   'Home  
+   'Print Chip Free+Fast Free 
+   Pop Proc
+   Trap D=Dialog(1)
+   If Errtrap=0
+      For I=1 To Len(FLAG$) : Print Using "#";Vdialog(1,I); : Next I
+   End If 
+   Print : Print FLAG$
+   For I=1 To Len(FLAG$) : Print Right$(Str$(I),1); : Next I
+End Proc
diff --git a/AMOSPro Sources/Editor_DBL.Bin b/AMOSPro Sources/Editor_DBL.Bin
new file mode 100644
index 0000000..bbb91ae
Binary files /dev/null and b/AMOSPro Sources/Editor_DBL.Bin differ
diff --git a/AMOSPro Sources/Francois b/AMOSPro Sources/Francois
new file mode 100644
index 0000000..c6179ba
--- /dev/null
+++ b/AMOSPro Sources/Francois	
@@ -0,0 +1,2 @@
+Copy Francois_Editor_Config APro:APSystem/AMOSPro_Editor_Config
+Copy Francois_Interpreter_Config s:AMOSPro_Interpreter_Config
diff --git a/AMOSPro Sources/Francois_Editor_Config b/AMOSPro Sources/Francois_Editor_Config
new file mode 100644
index 0000000..92ec404
Binary files /dev/null and b/AMOSPro Sources/Francois_Editor_Config differ
diff --git a/AMOSPro Sources/Francois_Interpreter_Config b/AMOSPro Sources/Francois_Interpreter_Config
new file mode 100644
index 0000000..97e4b5b
Binary files /dev/null and b/AMOSPro Sources/Francois_Interpreter_Config differ
diff --git a/AMOSPro Sources/GenAm.opts b/AMOSPro Sources/GenAm.opts
new file mode 100644
index 0000000..6501031
--- /dev/null
+++ b/AMOSPro Sources/GenAm.opts	
@@ -0,0 +1,3 @@
+incdir :Devpac/Include,:Devpac/Examples,Include2.0:Include
+debug
+hcln
diff --git a/AMOSPro Sources/GenAm2 b/AMOSPro Sources/GenAm2
new file mode 100644
index 0000000..7df015c
Binary files /dev/null and b/AMOSPro Sources/GenAm2 differ
diff --git a/AMOSPro Sources/GetChunk.info b/AMOSPro Sources/GetChunk.info
new file mode 100644
index 0000000..14bbb23
Binary files /dev/null and b/AMOSPro Sources/GetChunk.info differ
diff --git a/AMOSPro Sources/Icons.Abk b/AMOSPro Sources/Icons.Abk
new file mode 100644
index 0000000..3e787ef
Binary files /dev/null and b/AMOSPro Sources/Icons.Abk differ
diff --git a/AMOSPro Sources/Instruction_List.Asc b/AMOSPro Sources/Instruction_List.Asc
new file mode 100644
index 0000000..bcb7933
--- /dev/null
+++ b/AMOSPro Sources/Instruction_List.Asc	
@@ -0,0 +1,716 @@
+' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+' AMOSPro II 710 instructions le 14-04-1993 10:47:02
+' 99 % Termine...
+'
+' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AF i include
+OK = abs
+OK = acos
+OK = amalerr
+OK = amos here
+OK = arexx
+OK = arexx exist
+OK = arexx$
+OK = array
+OK = asc
+OK = asin
+OK = at
+OK = atan
+OK = bin$
+OK = blength
+OK = bob col
+OK = bobsprite col
+OK = border$
+OK = bstart
+OK = btst
+OK = cdown$
+OK = chanan
+OK = chanmv
+OK = chip free
+OK = choice
+OK = chr$
+OK = cleft$
+OK = cmove$
+OK = col
+OK = cop logic
+OK = cos
+OK = cright$
+OK = cup$
+OK = deek
+OK = dev base
+OK = dev check
+OK = dev first$
+OK = dev next$
+OK = dfree
+OK = dialog
+OK = dialog box
+OK = dialog run
+OK = dir first$
+OK = dir next$
+OK = disc info$
+OK = display height
+OK = doscall
+OK = drive
+OK = edialog
+OK = eof
+OK = equ
+OK = err$
+OK = errn
+OK = errtrap
+OK = execall
+OK = exist
+OK = exp
+OK = false
+OK = fast free
+OK = fire
+OK = flip$
+OK = font$
+OK = frame length
+OK = frame load
+OK = frame param
+OK = frame play
+OK = frame skip
+OK = free
+OK = fsel$
+OK = gfxcall
+OK = hardcol
+OK = hcos
+OK = hex$
+OK = hires
+OK = hrev
+OK = hsin
+OK = htan
+OK = hunt
+OK = hzone
+OK = i bob
+OK = i sprite
+OK = icon base
+OK = inkey$
+OK = input$
+OK = instr
+OK = int
+OK = intcall
+OK = jdown
+OK = jleft
+OK = joy
+OK = jright
+OK = jup
+OK = key shift
+OK = key state
+OK = laced
+OK = leek
+OK = left$
+OK = len
+OK = length
+OK = lib base
+OK = lib call
+OK = ln
+OK = lof
+OK = log
+OK = logbase
+OK = logic
+OK = lower$
+OK = lowres
+OK = lvo
+OK = match
+OK = max
+OK = mid$
+OK = min
+OK = mouse click
+OK = mouse key
+OK = mouse screen
+OK = mouse zone
+OK = mouth height
+OK = mouth width
+OK = movon
+OK = mubase
+OK = ntsc
+OK = paper$
+OK = parallel base
+OK = parallel check
+OK = parallel error
+OK = parallel input$
+OK = parallel status
+OK = param
+OK = param#
+OK = param$
+OK = peek
+OK = peek$
+OK = pen$
+OK = phybase
+OK = physic
+OK = pi#
+OK = picture
+OK = point
+OK = port
+OK = prg first$
+OK = prg next$
+OK = prg state
+OK = prg under
+OK = printer base
+OK = printer check
+OK = printer error
+OK = printer online
+OK = psel$
+OK = rdialog
+OK = rdialog$
+OK = repeat$
+OK = resource$
+OK = rev
+OK = right$
+OK = rnd
+OK = sam swapped
+OK = scan$
+OK = scancode
+OK = scanshift
+OK = scin
+OK = screen base
+OK = screen colour
+OK = screen height
+OK = screen mode
+OK = screen width
+OK = serial base
+OK = serial check
+OK = serial error
+OK = serial get
+OK = serial input$
+OK = serial status
+OK = sgn
+OK = sin
+OK = space$
+OK = sprite base
+OK = sprite col
+OK = spritebob col
+OK = sqr
+OK = start
+OK = str$
+OK = string$
+OK = tab$
+OK = tan
+OK = text base
+OK = text length
+OK = text styles
+OK = true
+OK = upper$
+OK = val
+OK = varptr
+OK = vrev
+OK = vumeter
+OK = windon
+OK = x bob
+OK = x curs
+OK = x graphic
+OK = x hard
+OK = x menu
+OK = x screen
+OK = x sprite
+OK = x text
+OK = xgr
+OK = y bob
+OK = y curs
+OK = y graphic
+OK = y hard
+OK = y menu
+OK = y screen
+OK = y sprite
+OK = y text
+OK = ygr
+OK = zone
+OK = zone$
+OK i @_apml_@
+OK i \\\\\\\\\\\\\\\/
+OK i add
+OK i amal
+OK i amal freeze
+OK i amal off
+OK i amal on
+OK i amos lock
+OK i amos to back
+OK i amos to front
+OK i amos unlock
+OK i amplay
+OK i anim
+OK i anim freeze
+OK i anim off
+OK i anim on
+OK i appear
+OK i append
+OK i arexx answer
+OK i arexx close
+OK i arexx open
+OK i arexx wait
+OK i as
+OK i ask editor
+OK i assign
+OK i auto view off
+OK i auto view on
+OK i autoback
+OK i bank shrink
+OK i bank swap
+OK i bank to menu
+OK i bar
+OK i bchg
+OK i bclr
+OK i bell
+OK i bgrab
+OK i bload
+OK i bob
+OK i bob clear
+OK i bob draw
+OK i bob off
+OK i bob update
+OK i bob update off
+OK i bob update on
+OK i boom
+OK i border
+OK i box
+OK i break off
+OK i break on
+OK i bsave
+OK i bsend
+OK i bset
+OK i call
+OK i call editor
+OK i cdown
+OK i centre
+OK i change mouse
+OK i channel
+OK i circle
+OK i clear key
+OK i cleft
+OK i cline
+OK i clip
+OK i close
+OK i close editor
+OK i close workbench
+OK i cls
+OK i clw
+OK i cmove
+OK i colour
+OK i colour back
+OK i cop move
+OK i cop movel
+OK i cop reset
+OK i cop swap
+OK i cop wait
+OK i copper off
+OK i copper on
+OK i copy
+OK i cright
+OK i cup
+OK i curs off
+OK i curs on
+OK i curs pen
+OK i dec
+OK i def scroll
+OK i default
+OK i default palette
+OK i degree
+OK i del block
+OK i del bob
+OK i del cblock
+OK i del icon
+OK i del sprite
+OK i del wave
+OK i dev abort
+OK i dev close
+OK i dev do
+OK i dev open
+OK i dev send
+OK i dialog close
+OK i dialog clr
+OK i dialog freeze
+OK i dialog open
+OK i dialog unfreeze
+OK i dialog update
+OK i dim
+OK i dir
+OK i dir/w
+OK i direct
+OK i doke
+OK i double buffer
+OK i draw
+OK i draw to
+OK i dual playfield
+OK i dual priority
+OK i edit
+OK i ellipse
+OK i end
+OK i erase
+OK i erase all
+OK i erase temp
+OK i error
+OK i every
+OK i every off
+OK i every on
+OK i exec
+OK i fade
+OK i field
+OK i fill
+OK i fix
+OK i flash
+OK i flash off
+OK i follow
+OK i follow off
+OK i freeze
+OK i get
+OK i get block
+OK i get bob
+OK i get bob palette
+OK i get cblock
+OK i get disc fonts
+OK i get fonts
+OK i get icon
+OK i get icon palette
+OK i get palette
+OK i get rom fonts
+OK i get sprite
+OK i get sprite palette
+OK i gr locate
+OK i gr writing
+OK i hide
+OK i hide on
+OK i home
+OK i hot spot
+OK i hrev block
+OK i hscroll
+OK i hslider
+OK i iff anim
+OK i inc
+OK i ink
+OK i input
+OK i ins bob
+OK i ins icon
+OK i ins sprite
+OK i inverse off
+OK i inverse on
+OK i key speed
+OK i kill
+OK i kill editor
+OK i ldir
+OK i ldir/w
+OK i led off
+OK i led on
+OK i lib close
+OK i lib open
+OK i limit bob
+OK i limit mouse
+OK i line input
+OK i list bank
+OK i load
+OK i load iff
+OK i locate
+OK i loke
+OK i lprint
+OK i make icon mask
+OK i make mask
+OK i mask iff
+OK i med cont
+OK i med load
+OK i med midi on
+OK i med play
+OK i med stop
+OK i memorize x
+OK i memorize y
+OK i menu active
+OK i menu bar
+OK i menu base
+OK i menu calc
+OK i menu called
+OK i menu del
+OK i menu inactive
+OK i menu item movable
+OK i menu item static
+OK i menu key
+OK i menu line
+OK i menu link
+OK i menu mouse off
+OK i menu mouse on
+OK i menu movable
+OK i menu off
+OK i menu on
+OK i menu once
+OK i menu separate
+OK i menu static
+OK i menu tline
+OK i menu to bank
+OK i mkdir
+OK i monitor
+OK i mouth read
+OK i move freeze
+OK i move off
+OK i move on
+OK i move x
+OK i move y
+OK i multi wait
+OK i music
+OK i music off
+OK i music stop
+OK i mvolume
+OK i no icon mask
+OK i no mask
+OK i noise to
+OK i on menu
+OK i on menu del
+OK i on menu off
+OK i on menu on
+OK i open in
+OK i open out
+OK i open port
+OK i open random
+OK i pack
+OK i paint
+OK i palette
+OK i paper
+OK i parallel abort
+OK i parallel close
+OK i parallel open
+OK i parallel out
+OK i parallel send
+OK i parent
+OK i paste bob
+OK i paste icon
+OK i pen
+OK i play
+OK i play off
+OK i pload
+OK i plot
+OK i poke
+OK i poke$
+OK i polygon
+OK i polyline
+OK i pop
+OK i print
+OK i printer abort
+OK i printer close
+OK i printer dump
+OK i printer open
+OK i printer out
+OK i printer send
+OK i priority off
+OK i priority on
+OK i priority reverse off
+OK i priority reverse on
+OK i prun
+OK i put
+OK i put block
+OK i put bob
+OK i put cblock
+OK i put key
+OK i radian
+OK i rainbow
+OK i rainbow del
+OK i randomize
+OK i read text
+OK i remember x
+OK i remember y
+OK i rename
+OK i request off
+OK i request on
+OK i request wb
+OK i reserve as chip data
+OK i reserve as chip work
+OK i reserve as data
+OK i reserve as work
+OK i reserve zone
+OK i reset zone
+OK i resource bank
+OK i resource screen open
+OK i resource unpack
+OK i resume next
+OK i return
+OK i rol.b
+OK i rol.l
+OK i rol.w
+OK i ror.b
+OK i ror.l
+OK i ror.w
+OK i run
+OK i sam bank
+OK i sam loop off
+OK i sam loop on
+OK i sam play
+OK i sam raw
+OK i sam stop
+OK i sam swap
+OK i sample
+OK i save
+OK i save iff
+OK i say
+OK i screen
+OK i screen clon8
+OK i screen clos8
+OK i screen copy
+OK i screen display
+OK i screen hide
+OK i screen offset
+OK i screen open
+OK i screen show
+OK i screen swap
+OK i screen to back
+OK i screen to front
+OK i scroll
+OK i scroll off
+OK i scroll on
+OK i serial abort
+OK i serial bits
+OK i serial buf
+OK i serial close
+OK i serial fast
+OK i serial open
+OK i serial out
+OK i serial parity
+OK i serial send
+OK i serial slow
+OK i serial speed
+OK i serial speed
+OK i serial x
+OK i set accessory
+OK i set bob
+OK i set buffer
+OK i set curs
+OK i set dir
+OK i set dir
+OK i set double precision
+OK i set envel
+OK i set equate bank
+OK i set font
+OK i set hardcol
+OK i set input
+OK i set line
+OK i set menu
+OK i set paint
+OK i set pattern
+OK i set rainbow
+OK i set slider
+OK i set sprite buffer
+OK i set stack
+OK i set tab
+OK i set talk
+OK i set tempras
+OK i set text
+OK i set wave
+OK i set zone
+OK i shade off
+OK i shade on
+OK i shift down
+OK i shift off
+OK i shift up
+OK i shoot
+OK i show
+OK i show on
+OK i sload
+OK i sort
+OK i spack
+OK i sprite
+OK i sprite off
+OK i sprite priority
+OK i sprite update
+OK i sprite update off
+OK i sprite update on
+OK i ssave
+OK i stop
+OK i synchro
+OK i synchro off
+OK i synchro on
+OK i system
+OK i talk misc
+OK i talk stop
+OK i tempo
+OK i text
+OK i title bottom
+OK i title top
+OK i track load
+OK i track loop of
+OK i track loop on
+OK i track play
+OK i track stop
+OK i trap
+OK i under off
+OK i under on
+OK i unfreeze
+OK i unpack
+OK i update
+OK i update every
+OK i update off
+OK i update on
+OK i using
+OK i view
+OK i voice
+OK i volume
+OK i vrev block
+OK i vscroll
+OK i vslider
+OK i wait
+OK i wait key
+OK i wait vbl
+OK i wave
+OK i wind close
+OK i wind move
+OK i wind open
+OK i wind save
+OK i wind size
+OK i window
+OK i writing
+OK i zoom
+OK s '
+OK s :
+OK s data
+OK s def fn
+OK s do
+OK s else
+OK s else if
+OK s end if
+OK s end proc
+OK s exit
+OK s exit if
+OK s fn
+OK s for
+OK s global
+OK s gosub
+OK s goto
+OK s if
+OK s input #
+OK s line input #
+OK s loop
+OK s next
+OK s not
+OK s on
+OK s on break proc
+OK s on error
+OK s pop proc
+OK s print #
+OK s proc
+OK s procedure
+OK s read
+OK s rem
+OK s repeat
+OK s restore
+OK s resume
+OK s resume label
+OK s screen size
+OK s shared
+OK s step
+OK s swap
+OK s then
+OK s to
+OK s until
+OK s wend
+OK s while
+OK v amreg
+OK v areg
+OK v command line$
+OK v dir$
+OK v dreg
+OK v key$
+OK v menu$
+OK v pof
+OK v rain
+OK v struc
+OK v struc$
+OK v timer
+OK v vdialog
+OK v vdialog$
+OK v x mouse
+OK v y mouse
+'
diff --git a/AMOSPro Sources/JBB_grafics/1_Turbo.anim b/AMOSPro Sources/JBB_grafics/1_Turbo.anim
new file mode 100644
index 0000000..d155e62
Binary files /dev/null and b/AMOSPro Sources/JBB_grafics/1_Turbo.anim differ
diff --git a/AMOSPro Sources/JBB_grafics/2_Boost.Anim b/AMOSPro Sources/JBB_grafics/2_Boost.Anim
new file mode 100644
index 0000000..ad44396
Binary files /dev/null and b/AMOSPro Sources/JBB_grafics/2_Boost.Anim differ
diff --git a/AMOSPro Sources/JBB_grafics/Mouse2.Abk b/AMOSPro Sources/JBB_grafics/Mouse2.Abk
new file mode 100644
index 0000000..231b35b
Binary files /dev/null and b/AMOSPro Sources/JBB_grafics/Mouse2.Abk differ
diff --git a/AMOSPro Sources/JBB_grafics/editor.AMOS4c.iff b/AMOSPro Sources/JBB_grafics/editor.AMOS4c.iff
new file mode 100644
index 0000000..7be782f
Binary files /dev/null and b/AMOSPro Sources/JBB_grafics/editor.AMOS4c.iff differ
diff --git a/AMOSPro Sources/JBB_grafics/editor.WB4c.iff b/AMOSPro Sources/JBB_grafics/editor.WB4c.iff
new file mode 100644
index 0000000..85eb5c9
Binary files /dev/null and b/AMOSPro Sources/JBB_grafics/editor.WB4c.iff differ
diff --git a/AMOSPro Sources/JBB_grafics/editor.WB8c.iff b/AMOSPro Sources/JBB_grafics/editor.WB8c.iff
new file mode 100644
index 0000000..a2e1bd6
Binary files /dev/null and b/AMOSPro Sources/JBB_grafics/editor.WB8c.iff differ
diff --git a/AMOSPro Sources/JBB_progs/AMOSPro_CompilerA_Res_WB.Abk b/AMOSPro Sources/JBB_progs/AMOSPro_CompilerA_Res_WB.Abk
new file mode 100644
index 0000000..b470907
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/AMOSPro_CompilerA_Res_WB.Abk differ
diff --git a/AMOSPro Sources/JBB_progs/AMOSPro_Compiler_Res_WB.Abk b/AMOSPro Sources/JBB_progs/AMOSPro_Compiler_Res_WB.Abk
new file mode 100644
index 0000000..21c298d
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/AMOSPro_Compiler_Res_WB.Abk differ
diff --git a/AMOSPro Sources/JBB_progs/AMOSPro_Compiler_Res_WB2.Abk b/AMOSPro Sources/JBB_progs/AMOSPro_Compiler_Res_WB2.Abk
new file mode 100644
index 0000000..4a173f8
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/AMOSPro_Compiler_Res_WB2.Abk differ
diff --git a/AMOSPro Sources/JBB_progs/AMOSPro_Default_Res_WB.Abk b/AMOSPro Sources/JBB_progs/AMOSPro_Default_Res_WB.Abk
new file mode 100644
index 0000000..0a2527b
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/AMOSPro_Default_Res_WB.Abk differ
diff --git a/AMOSPro Sources/JBB_progs/AMOSPro_Default_Res_secu.Abk b/AMOSPro Sources/JBB_progs/AMOSPro_Default_Res_secu.Abk
new file mode 100644
index 0000000..f889b03
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/AMOSPro_Default_Res_secu.Abk differ
diff --git a/AMOSPro Sources/JBB_progs/AMOSPro_Editor_Res_WB.Abk b/AMOSPro Sources/JBB_progs/AMOSPro_Editor_Res_WB.Abk
new file mode 100644
index 0000000..3db5f92
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/AMOSPro_Editor_Res_WB.Abk differ
diff --git a/AMOSPro Sources/JBB_progs/Hexa_Editor.AMOS b/AMOSPro Sources/JBB_progs/Hexa_Editor.AMOS
new file mode 100644
index 0000000..4a94f1a
Binary files /dev/null and b/AMOSPro Sources/JBB_progs/Hexa_Editor.AMOS differ
diff --git a/AMOSPro Sources/Library_handler b/AMOSPro Sources/Library_handler
new file mode 100644
index 0000000..3764cb4
Binary files /dev/null and b/AMOSPro Sources/Library_handler differ
diff --git a/AMOSPro Sources/MergeDBL b/AMOSPro Sources/MergeDBL
new file mode 100644
index 0000000..0ae99ab
--- /dev/null
+++ b/AMOSPro Sources/MergeDBL	
@@ -0,0 +1,2 @@
+AMOSPro -w Insert_DBL.AMOS APSystem/AMOSPro_Editor_Resource.Abk Editor_DBL.Bin 2
+AMOSPro -w Insert_DBL.AMOS APSystem/AMOSPro_Default_Resource.Abk Default_DBL.Bin 2
diff --git a/AMOSPro Sources/Object_Pics.Abk b/AMOSPro Sources/Object_Pics.Abk
new file mode 100644
index 0000000..519dd96
Binary files /dev/null and b/AMOSPro Sources/Object_Pics.Abk differ
diff --git a/AMOSPro Sources/ReOrg.prefs b/AMOSPro Sources/ReOrg.prefs
new file mode 100644
index 0000000..7d1e7f8
Binary files /dev/null and b/AMOSPro Sources/ReOrg.prefs differ
diff --git a/AMOSPro Sources/Version.info b/AMOSPro Sources/Version.info
new file mode 100644
index 0000000..fa73edf
Binary files /dev/null and b/AMOSPro Sources/Version.info differ
diff --git a/AMOSPro Sources/a3d b/AMOSPro Sources/a3d
new file mode 100644
index 0000000..d9e2a70
--- /dev/null
+++ b/AMOSPro Sources/a3d	
@@ -0,0 +1 @@
+Genim2 +3d.s -oAPro:APSystem/AMOSPro_3d.Lib -c
diff --git a/AMOSPro Sources/acompd b/AMOSPro Sources/acompd
new file mode 100644
index 0000000..6bc43fa
--- /dev/null
+++ b/AMOSPro Sources/acompd	
@@ -0,0 +1,3 @@
+Genam FROM "+APComp.s" TO "AP2:APCmp" -d
+Copy APCmp To APro:APSystem
+Copy APCmp to C:APCmp
diff --git a/AMOSPro Sources/adebug.prefs b/AMOSPro Sources/adebug.prefs
new file mode 100644
index 0000000..1846501
Binary files /dev/null and b/AMOSPro Sources/adebug.prefs differ
diff --git a/AMOSPro Sources/adebug.var b/AMOSPro Sources/adebug.var
new file mode 100644
index 0000000..53ad56c
--- /dev/null
+++ b/AMOSPro Sources/adebug.var	
@@ -0,0 +1,655 @@
+; adebug.var
+
+Dosbase,la=openlib("dos.library",0)
+Gfxbase,la=openlib("graphics.library",0)
+Intuitionbase,la=openlib("intuition.library",0)
+
+-o+
+-d+
+;**********************
+;	EXEC
+;**********************
+Execbase,la={4.w}
+
+; STRUCTURE Execbase
+
+SoftVer,la=Execbase+$22
+LowMemChkSum,la=Execbase+$24
+ChkBase,la=Execbase+$26
+ColdCapture,la=Execbase+$2a
+CoolCapture,la=Execbase+$2e
+WarmCapture,la=Execbase+$32
+SysStkUpper,la=Execbase+$36
+SysStkLower,la=Execbase+$3a
+MaxLocMem,la=Execbase+$3e
+DebugEntry,la=Execbase+$42
+DebugData,la=Execbase+$46
+AlertData,la=Execbase+$4a
+MaxExtMem,la=Execbase+$4e
+ChkSum,la=Execbase+$52
+IVTBE,la=Execbase+$54
+IVDSKBLK,la=Execbase+$60
+IVSOFTINT,la=Execbase+$6c
+IVPORTS,la=Execbase+$78
+IVCOPER,la=Execbase+$84
+IVVERTB,la=Execbase+$90
+IVBLIT,la=Execbase+$9c
+IVAUD0,la=Execbase+$a8
+IVAUD1,la=Execbase+$b4
+IVAUD2,la=Execbase+$c0
+IVAUD3,la=Execbase+$cc
+IVRBF,la=Execbase+$d8
+IVDSKSYNC,la=Execbase+$e4
+IVEXTER,la=Execbase+$f0
+IVINTEN,la=Execbase+$fc
+IVNMI,la=Execbase+$108
+ThisTask,la=Execbase+$114
+IdleCount,la=Execbase+$118
+DispCount,la=Execbase+$11c
+Quantum,la=Execbase+$120
+Elapsed,la=Execbase+$122
+SysFlags,la=Execbase+$124
+IDNestCnt,la=Execbase+$126
+TDNestCnt,la=Execbase+$127
+AttnFlags,la=Execbase+$128
+AttnResched,la=Execbase+$12a
+ResModules,la=Execbase+$12c
+TaskTrapCode,la=Execbase+$130
+TaskExceptCode,la=Execbase+$134
+TaskExitCode,la=Execbase+$138
+TaskSigAlloc,la=Execbase+$13c
+TaskTrapAlloc,la=Execbase+$140
+MemList,la=Execbase+$142
+ResourceList,la=Execbase+$150
+DeviceList,la=Execbase+$15e
+IntrList,la=Execbase+$16c
+LibList,la=Execbase+$17a
+PortList,la=Execbase+$188
+TaskReady,la=Execbase+$196
+TaskWait,la=Execbase+$1a4
+SoftInts,la=Execbase+$1b2
+LastAlert,la=Execbase+$202
+VBlankFrequency,la=Execbase+$212
+PowerSupplyFrequency,la=Execbase+$213
+SemaphoreList,la=Execbase+$214
+KickMemPtr,la=Execbase+$222
+KickTagPtr,la=Execbase+$226
+KickCheckSum,la=Execbase+$22a
+
+; *** a partir du KickStart 2.x ***
+ex_Pad0,la=Execbase+$22e
+ex_Reserved0,la=Execbase+$230
+ex_RamLibPrivate,la=Execbase+$234
+ex_EClockFrequency,la=Execbase+$238
+ex_CacheControl,la=Execbase+$23c
+ex_TaskID,la=Execbase+$240
+ex_PuddleSize,la=Execbase+$244
+ex_PoolThreshold,la=Execbase+$248
+ex_PublicPool,la=Execbase+$24c
+ex_MMULock,la=Execbase+$254
+ex_Reserved,la=Execbase+$258
+
+;fonctions Exec
+
+Supervisor,la=Execbase-$1e
+ExitIntr,la=Execbase-$24
+Schedule,la=Execbase-$2a
+Reschedule,la=Execbase-$30
+Switch,la=Execbase-$36
+Dispatch,la=Execbase-$3c
+Exception,la=Execbase-$42
+InitCode,la=Execbase-$48
+InitStruct,la=Execbase-$4e
+MakeLibrary,la=Execbase-$54
+MakeFunctions,la=Execbase-$5a
+FindResident,la=Execbase-$60
+InitResident,la=Execbase-$66
+Alert,la=Execbase-$6c
+Debug,la=Execbase-$72
+Disable,la=Execbase-$78
+Enable,la=Execbase-$7e
+Forbid,la=Execbase-$84
+Permit,la=Execbase-$8a
+SetSR,la=Execbase-$90
+SuperState,la=Execbase-$96
+UserState,la=Execbase-$9c
+SetIntVector,la=Execbase-$a2
+AddIntServer,la=Execbase-$a8
+RemIntServer,la=Execbase-$ae
+Cause,la=Execbase-$b4
+Allocate,la=Execbase-$ba
+Deallocate,la=Execbase-$c0
+AllocMem,la=Execbase-$c6
+AllocAbs,la=Execbase-$cc
+FreeMem,la=Execbase-$d2
+AvailMem,la=Execbase-$d8
+AllocEntry,la=Execbase-$de
+FreeEntry,la=Execbase-$e4
+Insert,la=Execbase-$ea
+AddHead,la=Execbase-$f0
+AddTail,la=Execbase-$f6
+Remove,la=Execbase-$fc
+RemHead,la=Execbase-$102
+RemTail,la=Execbase-$108
+Enqueue,la=Execbase-$10e
+FindName,la=Execbase-$114
+AddTask,la=Execbase-$11a
+RemTask,la=Execbase-$120
+FindTask,la=Execbase-$126
+SetTaskPri,la=Execbase-$12c
+SetSignal,la=Execbase-$132
+SetExcept,la=Execbase-$138
+Wait,la=Execbase-$13e
+Signal,la=Execbase-$144
+AllocSignal,la=Execbase-$14a
+FreeSignal,la=Execbase-$150
+AllocTrap,la=Execbase-$156
+FreeTrap,la=Execbase-$15c
+AddPort,la=Execbase-$162
+RemPort,la=Execbase-$168
+PutMsg,la=Execbase-$16e
+GetMsg,la=Execbase-$174
+ReplyMsg,la=Execbase-$17a
+WaitPort,la=Execbase-$180
+FindPort,la=Execbase-$186
+AddLibrary,la=Execbase-$18c
+RemLibrary,la=Execbase-$192
+OldOpenLibrary,la=Execbase-$198
+CloseLibrary,la=Execbase-$19e
+SetFunction,la=Execbase-$1a4
+SumLibrary,la=Execbase-$1aa
+AddDevice,la=Execbase-$1b0
+RemDevice,la=Execbase-$1b6
+OpenDevice,la=Execbase-$1bc
+CloseDevice,la=Execbase-$1c2
+DoIO,la=Execbase-$1c8
+SendIO,la=Execbase-$1ce
+CheckIO,la=Execbase-$1d4
+WaitIO,la=Execbase-$1da
+AbortIO,la=Execbase-$1e0
+AddResource,la=Execbase-$1e6
+RemResource,la=Execbase-$1ec
+OpenResource,la=Execbase-$1f2
+RawIOInit,la=Execbase-$1f8
+RawMayGetChar,la=Execbase-$1fe
+RawPutChar,la=Execbase-$204
+RawDoFmt,la=Execbase-$20a
+GetCC,la=Execbase-$210
+TypeOfMem,la=Execbase-$216
+Procure,la=Execbase-$21c
+Vacate,la=Execbase-$222
+OpenLibrary,la=Execbase-$228
+InitSemaphore,la=Execbase-$22e
+ObtainSemaphore,la=Execbase-$234
+ReleaseSemaphore,la=Execbase-$23a
+AttemptSemaphore,la=Execbase-$240
+ObtainSemaphoreList,la=Execbase-$246
+ReleaseSemaphoreList,la=Execbase-$24c
+FindSemaphore,la=Execbase-$252
+AddSemaphore,la=Execbase-$258
+RemSemaphore,la=Execbase-$25e
+SumKickData,la=Execbase-$264
+AddMemList,la=Execbase-$26a
+CopyMem,la=Execbase-$270
+CopyMemQuick,la=Execbase-$276
+
+; *** a partir du KickStart 2.x ***
+CacheClearU,la=Execbase-$27c
+CacheClearE,la=Execbase-$282
+CacheControl,la=Execbase-$288
+CreateIORequest,la=Execbase-$28e
+DeleteIORequest,la=Execbase-$294
+CreateMsgPort,la=Execbase-$29a
+DeleteMsgPort,la=Execbase-$2a0
+ObtainSemaphoreShared,la=Execbase-$2a6
+AllocVec,la=Execbase-$2ac
+FreeVec,la=Execbase-$2b2
+CreatePrivatePool,la=Execbase-$2b8
+DeletePrivatePool,la=Execbase-$2be
+AllocPooled,la=Execbase-$2c4
+FreePooled,la=Execbase-$2ca
+SetFunction8,la=Execbase-$2d0
+ColdReboot,la=Execbase-$2d6
+StackSwap,la=Execbase-$2dc
+ChildFree,la=Execbase-$2e2
+ChildOrphan,la=Execbase-$2e8
+ChildStatus,la=Execbase-$2ee
+ChildWait,la=Execbase-$2f4
+
+;**********************
+;	DOS
+;**********************
+Open,la=Dosbase-$1e
+Close,la=Dosbase-$24
+Read,la=Dosbase-$2a 
+Write,la=Dosbase-$30
+Input,la=Dosbase-$36
+Output,la=Dosbase-$3c
+Seek,la=Dosbase-$42
+DeleteFile,la=Dosbase-$48
+Rename,la=Dosbase-$4e
+Lock,la=Dosbase-$54
+UnLock,la=Dosbase-$5a
+DupLock,la=Dosbase-$60
+Examine,la=Dosbase-$66
+ExNext,la=Dosbase-$6c
+Info,la=Dosbase-$72
+CreateDir,la=Dosbase-$78
+CurrentDir,la=Dosbase-$7e
+IoErr,la=Dosbase-$84
+CreateProc,la=Dosbase-$8a
+Exit,la=Dosbase-$90
+LoadSeg,la=Dosbase-$96
+UnLoadSeg,la=Dosbase-$9c
+GetPacket,la=Dosbase-$a2 
+QueuePacket,la=Dosbase-$a8
+DeviceProc,la=Dosbase-$ae
+SetComment,la=Dosbase-$b4
+SetProtection,la=Dosbase-$ba
+DateStamp,la=Dosbase-$c0
+Delay,la=Dosbase-$c6
+WaitForChar,la=Dosbase-$cc
+ParentDir,la=Dosbase-$d2
+IsInteractive,la=Dosbase-$d8
+Execute,la=Dosbase-$de
+
+;*** a partir du KickStart 2.x ***
+AllocDosObject,la=Dosbase-$e4
+AllocDosObjectTagList,la=Dosbase-$ea
+AllocDosObjectTags,la=Dosbase-$f0
+FreeDosObject,la=Dosbase-$f6
+DoPkt,la=Dosbase-$fc
+DoPkt0,la=Dosbase-$102
+DoPkt1,la=Dosbase-$108
+DoPkt2,la=Dosbase-$10e
+DoPkt3,la=Dosbase-$114
+DoPkt4,la=Dosbase-$11a
+SendPkt,la=Dosbase-$120
+DosPacket,la=Dosbase-$126
+ReplyPkt,la=Dosbase-$12c
+AbortPkt,la=Dosbase-$132
+LockRecord,la=Dosbase-$138
+LockRecords,la=Dosbase-$13e
+UnLockRecord,la=Dosbase-$144
+UnLockRecords,la=Dosbase-$14a
+SelectInput,la=Dosbase-$150
+SelectOutput,la=Dosbase-$156
+FGetC,la=Dosbase-$15c
+FPutC,la=Dosbase-$162
+UnGetC,la=Dosbase-$168
+FRead,la=Dosbase-$16e
+FWrite,la=Dosbase-$174
+FGets,la=Dosbase-$17a
+FPuts,la=Dosbase-$180
+VFWritef,la=Dosbase-$186
+FWritef,la=Dosbase-$18c
+VFPrintf,la=Dosbase-$192
+FPrintf,la=Dosbase-$198
+Flush,la=Dosbase-$19e
+SetVBuf,la=Dosbase-$1a4
+DupLockFromFH,la=Dosbase-$1aa
+OpenFromLock,la=Dosbase-$1b0
+ParentOfFH,la=Dosbase-$1b6
+ExamineFH,la=Dosbase-$1bc
+SetFileDate,la=Dosbase-$1c2
+NameFromLock,la=Dosbase-$1c8
+NameFromFH,la=Dosbase-$1ce
+SplitName,la=Dosbase-$1d4
+SameLock,la=Dosbase-$1da
+SetMode,la=Dosbase-$1e0
+ExAll,la=Dosbase-$1e6
+ReadLink,la=Dosbase-$1ec
+MakeLink,la=Dosbase-$1f2
+ChangeMode,la=Dosbase-$1f8
+SetFileSize,la=Dosbase-$1fe
+SetIoErr,la=Dosbase-$204
+Fault,la=Dosbase-$20a
+PrintFault,la=Dosbase-$210
+ErrorReport,la=Dosbase-$216
+Requester,la=Dosbase-$21c
+CommandLineInterface,la=Dosbase-$222
+CreateNewProc,la=Dosbase-$228
+CreateNewProcTagList,la=Dosbase-$22e
+CreateNewProcTags,la=Dosbase-$234
+RunCommand,la=Dosbase-$23a
+GetConsoleTask,la=Dosbase-$240
+SetConsoleTask,la=Dosbase-$246
+GetFileSysTask,la=Dosbase-$24c
+SetFileSysTask,la=Dosbase-$252
+GetArgStr,la=Dosbase-$258
+SetArgStr,la=Dosbase-$25e
+FindCliProc,la=Dosbase-$264
+MaxCli,la=Dosbase-$26a
+SetCurrentDirName,la=Dosbase-$270
+GetCurrentDirName,la=Dosbase-$276
+SetProgramName,la=Dosbase-$27c
+GetProgramName,la=Dosbase-$282
+SetPrompt,la=Dosbase-$288
+GetPrompt,la=Dosbase-$28e
+SetProgramDir,la=Dosbase-$294
+GetProgramDir,la=Dosbase-$29a
+SystemTagList,la=Dosbase-$2a0
+System,la=Dosbase-$2a6
+SystemTags,la=Dosbase-$2ac
+AssignLock,la=Dosbase-$2b2
+AssignLate,la=Dosbase-$2b8
+AssignPath,la=Dosbase-$2be
+AssignAdd,la=Dosbase-$2c4
+RemAssignList,la=Dosbase-$2ca
+GetDeviceProc,la=Dosbase-$2d0
+FreeDeviceProc,la=Dosbase-$2d6
+LockDosList,la=Dosbase-$2dc
+UnLockDosList,la=Dosbase-$2e2
+AttemptLockDosList,la=Dosbase-$2e8
+RemDosEntry,la=Dosbase-$2ee
+AddDosEntry,la=Dosbase-$2f4
+FindDosEntry,la=Dosbase-$2fa
+NextDosEntry,la=Dosbase-$300
+MakeDosEntry,la=Dosbase-$306
+FreeDosEntry,la=Dosbase-$30c
+IsFileSystem,la=Dosbase-$312
+Format,la=Dosbase-$318
+Relabel,la=Dosbase-$31e
+Inhibit,la=Dosbase-$324
+AddBuffers,la=Dosbase-$32a
+CompareDates,la=Dosbase-$330
+DateToStr,la=Dosbase-$336
+StrToDate,la=Dosbase-$33c
+InternalLoadSeg,la=Dosbase-$342
+InternalUnLoadSeg,la=Dosbase-$348
+NewLoadSeg,la=Dosbase-$34e
+NewLoadSegTagList,la=Dosbase-$354
+NewLoadSegTags,la=Dosbase-$35a
+AddSegment,la=Dosbase-$360
+FindSegment,la=Dosbase-$366
+RemSegment,la=Dosbase-$36c
+CheckSignal,la=Dosbase-$372
+ReadArgs,la=Dosbase-$378
+FindArg,la=Dosbase-$37e
+ReadItem,la=Dosbase-$384
+StrToLong,la=Dosbase-$38a
+MatchFirst,la=Dosbase-$390
+MatchNext,la=Dosbase-$396
+MatchEnd,la=Dosbase-$39c
+ParsePattern,la=Dosbase-$3a2
+MatchPattern,la=Dosbase-$3a8
+FreeArgs,la=Dosbase-$3ae
+FilePart,la=Dosbase-$3b4
+PathPart,la=Dosbase-$3ba
+AddPart,la=Dosbase-$3c0
+StartNotify,la=Dosbase-$3c6
+EndNotify,la=Dosbase-$3cc
+SetVar,la=Dosbase-$3d2
+GetVar,la=Dosbase-$3d8
+DeleteVar,la=Dosbase-$3de
+FindVar,la=Dosbase-$3e4
+CliInit,la=Dosbase-$3ea
+CliInitNewcli,la=Dosbase-$3f0
+CliInitRun,la=Dosbase-$3f6
+WriteChars,la=Dosbase-$3fc
+PutStr,la=Dosbase-$402
+VPrintf,la=Dosbase-$408
+
+;**********************
+;	GRAPHICS
+;**********************
+BltBitMap,la=Gfxbase-$1e
+BltTemplate,la=Gfxbase-$24
+ClearEOL,la=Gfxbase-$2a
+ClearScreen,la=Gfxbase-$30
+TextLength,la=Gfxbase-$36
+Text,la=Gfxbase-$3c
+SetFont,la=Gfxbase-$42
+OpenFont,la=Gfxbase-$48
+CloseFont,la=Gfxbase-$4e
+AskSoftStyle,la=Gfxbase-$54
+SetSoftStyle,la=Gfxbase-$5a
+AddBob,la=Gfxbase-$60
+AddVSprite,la=Gfxbase-$66
+DoCollision,la=Gfxbase-$6c
+DrawGList,la=Gfxbase-$72
+InitGels,la=Gfxbase-$78
+InitMasks,la=Gfxbase-$7e
+RemIBob,la=Gfxbase-$84
+RemVSprite,la=Gfxbase-$8a
+SetCollision,la=Gfxbase-$90
+SortGList,la=Gfxbase-$96
+AddAnimOb,la=Gfxbase-$9c
+Animate,la=Gfxbase-$a2
+GetGBuffers,la=Gfxbase-$a8
+InitGMasks,la=Gfxbase-$ae
+DrawEllipse,la=Gfxbase-$b4
+AreaEllipse,la=Gfxbase-$ba
+LoadRGB4,la=Gfxbase-$c0
+InitRastPort,la=Gfxbase-$c6
+InitVPort,la=Gfxbase-$cc
+MrgCop,la=Gfxbase-$d2
+MakeVPort,la=Gfxbase-$d8
+LoadView,la=Gfxbase-$de
+WaitBlit,la=Gfxbase-$e4
+SetRast,la=Gfxbase-$ea
+Move,la=Gfxbase-$f0
+Draw,la=Gfxbase-$f6
+AreaMove,la=Gfxbase-$fc
+AreaDraw,la=Gfxbase-$102
+AreaEnd,la=Gfxbase-$108
+WaitTOF,la=Gfxbase-$10e
+QBlit,la=Gfxbase-$114
+InitArea,la=Gfxbase-$11a
+SetRGB4,la=Gfxbase-$120
+QBSBlit,la=Gfxbase-$126
+BltClear,la=Gfxbase-$12c
+RectFill,la=Gfxbase-$132
+BltPattern,la=Gfxbase-$138
+ReadPixel,la=Gfxbase-$13e
+WritePixel,la=Gfxbase-$144
+Flood,la=Gfxbase-$14a
+PolyDraw,la=Gfxbase-$150
+SetAPen,la=Gfxbase-$156
+SetBPen,la=Gfxbase-$15c
+SetDrMd,la=Gfxbase-$162
+InitView,la=Gfxbase-$168
+CBump,la=Gfxbase-$16e
+CMove,la=Gfxbase-$174
+CWait,la=Gfxbase-$17a
+VBeamPos,la=Gfxbase-$180
+InitBitMap,la=Gfxbase-$186
+ScrollRaster,la=Gfxbase-$18c
+WaitBOVP,la=Gfxbase-$192
+GetSprite,la=Gfxbase-$198
+FreeSprite,la=Gfxbase-$19e
+ChangeSprite,la=Gfxbase-$1a4
+MoveSprite,la=Gfxbase-$1aa
+LockLayerRom,la=Gfxbase-$1b0
+UnlockLayerRom,la=Gfxbase-$1b6
+SyncSBitMap,la=Gfxbase-$1bc
+CopySBitMap,la=Gfxbase-$1c2
+OwnBlitter,la=Gfxbase-$1c8
+DisownBlitter,la=Gfxbase-$1ce
+InitTmpRas,la=Gfxbase-$1d4
+AskFont,la=Gfxbase-$1da
+AddFont,la=Gfxbase-$1e0
+RemFont,la=Gfxbase-$1e6
+AllocRaster,la=Gfxbase-$1ec
+FreeRaster,la=Gfxbase-$1f2
+AndRectRegion,la=Gfxbase-$1f8
+OrRectRegion,la=Gfxbase-$1fe
+NewRegion,la=Gfxbase-$204
+ClearRectRegion,la=Gfxbase-$20a
+ClearRegion,la=Gfxbase-$210
+DisposeRegion,la=Gfxbase-$216
+FreeVPortCopLists,la=Gfxbase-$21c
+FreeCopList,la=Gfxbase-$222
+ClipBlit,la=Gfxbase-$228
+XorRectRegion,la=Gfxbase-$22e
+FreeCprList,la=Gfxbase-$234
+GetColorMap,la=Gfxbase-$23a
+FreeColorMap,la=Gfxbase-$240
+GetRGB4,la=Gfxbase-$246
+ScrollVPort,la=Gfxbase-$24c
+UCopperListInit,la=Gfxbase-$252
+FreeGBuffers,la=Gfxbase-$258
+BltBitMapRastPort,la=Gfxbase-$25e
+OrRegionRegion,la=Gfxbase-$264
+XorRegionRegion,la=Gfxbase-$26a
+AndRegionRegion,la=Gfxbase-$270
+SetRGB4CM,la=Gfxbase-$276
+BltMaskBitMapRastPort,la=Gfxbase-$27c
+GraphicsReserved1,la=Gfxbase-$282
+GraphicsReserved2,la=Gfxbase-$288
+AttemptLockLayerRom,la=Gfxbase-$28e
+
+;*** a partir du KickStart 2.x ***
+GfxNew,la=Gfxbase-$294
+GfxFree,la=Gfxbase-$29a
+GfxAssociate,la=Gfxbase-$2a0
+BitMapScale,la=Gfxbase-$2a6
+ScalerDiv,la=Gfxbase-$2ac
+TextExtent,la=Gfxbase-$2b2
+TextFit,la=Gfxbase-$2b8
+GfxLookUp,la=Gfxbase-$2be
+VideoControl,la=Gfxbase-$2c4
+MonitorSpec,la=Gfxbase-$2ca
+CloseMonitor,la=Gfxbase-$2d0
+DisplayInfoHandle,la=Gfxbase-$2d6
+NextDisplayInfo,la=Gfxbase-$2dc
+GetDisplayInfoData,la=Gfxbase-$2e2
+FontExtent,la=Gfxbase-$2e8
+ReadPixelLine8,la=Gfxbase-$2ee
+WritePixelLine8,la=Gfxbase-$2f4
+ReadPixelArray8,la=Gfxbase-$2fa
+WritePixelArray8,la=Gfxbase-$300
+GetVPModeID,la=Gfxbase-$306
+ModeNotAvailable,la=Gfxbase-$30c
+WeighTAMatch,la=Gfxbase-$312
+EraseRect,la=Gfxbase-$318
+ExtendFont,la=Gfxbase-$31e
+StripFont,la=Gfxbase-$324
+
+;**********************
+;	INTUITION
+;**********************
+OpenIntuition,la=Intuitionbase-$1e
+Intuition,la=Intuitionbase-$24
+AddGadget,la=Intuitionbase-$2a
+ClearDMRequest,la=Intuitionbase-$30
+ClearMenuStrip,la=Intuitionbase-$36
+ClearPointer,la=Intuitionbase-$3c
+CloseScreen,la=Intuitionbase-$42
+CloseWindow,la=Intuitionbase-$48
+CloseWorkBench,la=Intuitionbase-$4e
+CurrentTime,la=Intuitionbase-$54
+DisplayAlert,la=Intuitionbase-$5a
+DisplayBeep,la=Intuitionbase-$60
+DoubleClick,la=Intuitionbase-$66
+DrawBorder,la=Intuitionbase-$6c
+DrawImage,la=Intuitionbase-$72
+EndRequest,la=Intuitionbase-$78
+GetDefPrefs,la=Intuitionbase-$7e
+GetPrefs,la=Intuitionbase-$84
+InitRequester,la=Intuitionbase-$8a
+ItemAddress,la=Intuitionbase-$90
+ModifyIDCMP,la=Intuitionbase-$96
+ModifyProp,la=Intuitionbase-$9c
+MoveScreen,la=Intuitionbase-$a2
+MoveWindow,la=Intuitionbase-$a8
+OffGadget,la=Intuitionbase-$ae
+OffMenu,la=Intuitionbase-$b4
+OnGadget,la=Intuitionbase-$ba
+OnMenu,la=Intuitionbase-$c0
+OpenScreen,la=Intuitionbase-$c6
+OpenWindow,la=Intuitionbase-$cc
+OpenWorkBench,la=Intuitionbase-$d2
+PrintIText,la=Intuitionbase-$d8
+RefreshGadgets,la=Intuitionbase-$de
+RemoveGadget,la=Intuitionbase-$e4
+ReportMouse,la=Intuitionbase-$ea
+Request,la=Intuitionbase-$f0
+ScreenToBack,la=Intuitionbase-$f6
+ScreenToFront,la=Intuitionbase-$fc
+SetDMRequest,la=Intuitionbase-$102
+SetMenuStrip,la=Intuitionbase-$108
+SetPointer,la=Intuitionbase-$10e
+SetWindowTitles,la=Intuitionbase-$114
+ShowTitle,la=Intuitionbase-$11a
+SizeWindow,la=Intuitionbase-$120
+ViewAddress,la=Intuitionbase-$126
+ViewPortAddress,la=Intuitionbase-$12c
+WindowToBack,la=Intuitionbase-$132
+WindowToFront,la=Intuitionbase-$138
+WindowLimits,la=Intuitionbase-$13e
+SetPrefs,la=Intuitionbase-$144
+IntuiTextLength,la=Intuitionbase-$14a
+WBenchToBack,la=Intuitionbase-$150
+WBenchToFront,la=Intuitionbase-$156
+AutoRequest,la=Intuitionbase-$15c
+BeginRefresh,la=Intuitionbase-$162
+BuildSysRequest,la=Intuitionbase-$168
+EndRefresh,la=Intuitionbase-$16e
+FreeSysRequest,la=Intuitionbase-$174
+MakeScreen,la=Intuitionbase-$17a
+RemakeDisplay,la=Intuitionbase-$180
+RethinkDisplay,la=Intuitionbase-$186
+AllocRemember,la=Intuitionbase-$18c
+AlohaWorkbench,la=Intuitionbase-$192
+FreeRemember,la=Intuitionbase-$198
+LockIBase,la=Intuitionbase-$19e
+UnlockIBase,la=Intuitionbase-$1a4
+GetScreenData,la=Intuitionbase-$1aa
+RefreshGList,la=Intuitionbase-$1b0
+AddGList,la=Intuitionbase-$1b6
+RemoveGList,la=Intuitionbase-$1bc
+ActivateWindow,la=Intuitionbase-$1c2
+RefreshWindowFrame,la=Intuitionbase-$1c8
+ActivateGadget,la=Intuitionbase-$1ce
+NewModifyProp,la=Intuitionbase-$1d4
+
+;*** a partir du KickStart 2.x ***
+QueryOverscan,la=Intuitionbase-$1da
+MoveWindowInFrontOf,la=Intuitionbase-$1e0
+ChangeWindowBox,la=Intuitionbase-$1e6
+SetEditHook,la=Intuitionbase-$1ec
+SetMouseQueue,la=Intuitionbase-$1f2
+ZipWindow,la=Intuitionbase-$1f8
+LockPubScreen,la=Intuitionbase-$1fe
+UnlockPubScreen,la=Intuitionbase-$204
+LockPubScreenList,la=Intuitionbase-$20a
+UnlockPubScreenList,la=Intuitionbase-$210
+NextPubScreen,la=Intuitionbase-$216
+SetDefaultPubScreen,la=Intuitionbase-$21c
+SetPubScreenModes,la=Intuitionbase-$222
+PubScreenStatus,la=Intuitionbase-$228
+ObtainGIRPort,la=Intuitionbase-$22e
+ReleaseGIRPort,la=Intuitionbase-$234
+GadgetMouse,la=Intuitionbase-$23a
+GetDefaultPubScreen,la=Intuitionbase-$240
+EasyRequestArgs,la=Intuitionbase-$246
+EasyRequest,la=Intuitionbase-$24c
+BuildEasyRequestArgs,la=Intuitionbase-$252
+BuildEasyRequest,la=Intuitionbase-$258
+SysReqHandler,la=Intuitionbase-$25e
+OpenWindowTagList,la=Intuitionbase-$264
+OpenWindowTags,la=Intuitionbase-$26a
+OpenScreenTagList,la=Intuitionbase-$270
+OpenScreenTags,la=Intuitionbase-$276
+DrawImageState,la=Intuitionbase-$27c
+PointInImage,la=Intuitionbase-$282
+EraseImage,la=Intuitionbase-$288
+NewObjectA,la=Intuitionbase-$28e
+NewObject,la=Intuitionbase-$294
+DisposeObject,la=Intuitionbase-$29a
+SetAttrsA,la=Intuitionbase-$2a0
+SetAttrs,la=Intuitionbase-$2a6
+GetAttr,la=Intuitionbase-$2ac
+SetGadgetAttrsA,la=Intuitionbase-$2b2
+SetGadgetAttrs,la=Intuitionbase-$2b8
+NextObject,la=Intuitionbase-$2be
+FindClass,la=Intuitionbase-$2c4
+MakeClass,la=Intuitionbase-$2ca
+AddClass,la=Intuitionbase-$2d0
+GetScreenDrawInfo,la=Intuitionbase-$2d6
+FreeScreenDrawInfo,la=Intuitionbase-$2dc
+ResetMenuStrip,la=Intuitionbase-$2e2
+RemoveClass,la=Intuitionbase-$2e8
+FreeClass,la=Intuitionbase-$2ee
+-o-
diff --git a/AMOSPro Sources/adefaultdbl b/AMOSPro Sources/adefaultdbl
new file mode 100644
index 0000000..8f1eee1
--- /dev/null
+++ b/AMOSPro Sources/adefaultdbl	
@@ -0,0 +1,3 @@
+Genam +Default_DBL.s TO "(Default_DBL.o)"
+GetChunk (Default_DBL.o) Default_DBL.Bin
+Insert_DBL APro:APSystem/AMOSPro_Default_Resource.Abk Default_DBL.Bin 2
diff --git a/AMOSPro Sources/aeditdbl b/AMOSPro Sources/aeditdbl
new file mode 100644
index 0000000..2a8b9e1
--- /dev/null
+++ b/AMOSPro Sources/aeditdbl	
@@ -0,0 +1,3 @@
+Genam +Editor_DBL.s TO "(Editor_DBL.o)"
+GetChunk (Editor_DBL.o) Editor_DBL.Bin
+Insert_DBL APro:APSystem/AMOSPro_Editor_Resource.Abk Editor_DBL.Bin 2
diff --git a/AMOSPro Sources/alib2 b/AMOSPro Sources/alib2
new file mode 100644
index 0000000..0d19d7e
--- /dev/null
+++ b/AMOSPro Sources/alib2	
@@ -0,0 +1 @@
+Genam FROM +lib.s TO APro:APSystem/AMOSPro.Lib
diff --git a/AMOSPro Sources/aprod b/AMOSPro Sources/aprod
new file mode 100644
index 0000000..f6f4f8b
--- /dev/null
+++ b/AMOSPro Sources/aprod	
@@ -0,0 +1,2 @@
+Genam FROM +b.s TO AP2 -d
+Copy AP2 TO APro:AMOSPro
diff --git a/AMOSPro Sources/c3d.lib b/AMOSPro Sources/c3d.lib
new file mode 100644
index 0000000..e6bae37
Binary files /dev/null and b/AMOSPro Sources/c3d.lib differ
diff --git a/AMOSPro Sources/ddrip b/AMOSPro Sources/ddrip
new file mode 100644
index 0000000..8929d91
--- /dev/null
+++ b/AMOSPro Sources/ddrip	
@@ -0,0 +1,2 @@
+Flush
+Drip
diff --git a/AMOSPro Sources/debug0 b/AMOSPro Sources/debug0
new file mode 100644
index 0000000..685de7d
--- /dev/null
+++ b/AMOSPro Sources/debug0	
@@ -0,0 +1,3 @@
+Copy +Debug0.s +Debug.s
+Delete +Debug_On
+Delete +Debug_2On
diff --git a/AMOSPro Sources/debug1 b/AMOSPro Sources/debug1
new file mode 100644
index 0000000..04076d8
--- /dev/null
+++ b/AMOSPro Sources/debug1	
@@ -0,0 +1,3 @@
+Copy +Debug1.s +Debug.s
+Copy +Debug1.s +Debug_On
+Delete +Debug_2On
diff --git a/AMOSPro Sources/debug2 b/AMOSPro Sources/debug2
new file mode 100644
index 0000000..b60d362
--- /dev/null
+++ b/AMOSPro Sources/debug2	
@@ -0,0 +1,3 @@
+Copy +Debug2.s +Debug.s
+Copy +Debug2.s +Debug_On
+Copy +Debug2.s +Debug_2On
diff --git a/AMOSPro Sources/defaultdbl b/AMOSPro Sources/defaultdbl
new file mode 100644
index 0000000..c3c5754
--- /dev/null
+++ b/AMOSPro Sources/defaultdbl	
@@ -0,0 +1,3 @@
+Genim2 |Default_DBL.s -o(Default_DBL.o)
+GetChunk (Default_DBL.o) Default_DBL.Bin
+AMOSPro -w Insert_DBL.AMOS APSystem/AMOSPro_Default_Resource.Abk Default_DBL.Bin 2
diff --git a/AMOSPro Sources/dir_clone b/AMOSPro Sources/dir_clone
new file mode 100644
index 0000000..c2f32aa
Binary files /dev/null and b/AMOSPro Sources/dir_clone differ
diff --git a/AMOSPro Sources/dir_clone.amos b/AMOSPro Sources/dir_clone.amos
new file mode 100644
index 0000000..8e71f4c
Binary files /dev/null and b/AMOSPro Sources/dir_clone.amos differ
diff --git a/AMOSPro Sources/editdbl b/AMOSPro Sources/editdbl
new file mode 100644
index 0000000..1d36e2d
--- /dev/null
+++ b/AMOSPro Sources/editdbl	
@@ -0,0 +1,3 @@
+Genim2 |Editor_DBL.s -o(Editor_DBL.o)
+GetChunk (Editor_DBL.o) Editor_DBL.Bin
+AMOSPro -w Insert_DBL.AMOS APSystem/AMOSPro_Editor_Resource.Abk Editor_DBL.Bin 2
diff --git a/AMOSPro Sources/enf b/AMOSPro Sources/enf
new file mode 100644
index 0000000..a474e89
--- /dev/null
+++ b/AMOSPro Sources/enf	
@@ -0,0 +1,3 @@
+newcli
+Enforcer
+Sushi
diff --git a/AMOSPro Sources/includes.info b/AMOSPro Sources/includes.info
new file mode 100644
index 0000000..c881317
Binary files /dev/null and b/AMOSPro Sources/includes.info differ
diff --git a/AMOSPro Sources/includes/devices/audio.i b/AMOSPro Sources/includes/devices/audio.i
new file mode 100644
index 0000000..432afa0
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/audio.i	
@@ -0,0 +1,59 @@
+	IFND	DEVICES_AUDIO_I
+DEVICES_AUDIO_I SET	1
+**
+**	$Filename: devices/audio.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+			IFND	EXEC_IO_I
+			INCLUDE "exec/io.i"
+			ENDC
+
+AUDIONAME		MACRO
+			DC.B	'audio.device',0
+			ENDM
+
+ADHARD_CHANNELS		EQU	4
+
+ADALLOC_MINPREC		EQU	-128
+ADALLOC_MAXPREC		EQU	127
+
+ADCMD_FREE		EQU	CMD_NONSTD+0
+ADCMD_SETPREC		EQU	CMD_NONSTD+1
+ADCMD_FINISH		EQU	CMD_NONSTD+2
+ADCMD_PERVOL		EQU	CMD_NONSTD+3
+ADCMD_LOCK		EQU	CMD_NONSTD+4
+ADCMD_WAITCYCLE		EQU	CMD_NONSTD+5
+ADCMDB_NOUNIT		EQU	5
+ADCMDF_NOUNIT		EQU	1<<5
+ADCMD_ALLOCATE		EQU	ADCMDF_NOUNIT+0
+
+ADIOB_PERVOL		EQU	4
+ADIOF_PERVOL		EQU	1<<4
+ADIOB_SYNCCYCLE		EQU	5
+ADIOF_SYNCCYCLE		EQU	1<<5
+ADIOB_NOWAIT		EQU	6
+ADIOF_NOWAIT		EQU	1<<6
+ADIOB_WRITEMESSAGE	EQU	7
+ADIOF_WRITEMESSAGE	EQU	1<<7
+
+ADIOERR_NOALLOCATION	EQU	-10
+ADIOERR_ALLOCFAILED	EQU	-11
+ADIOERR_CHANNELSTOLEN	EQU	-12
+ 
+			STRUCTURE	IOAudio,IO_SIZE
+			WORD	ioa_AllocKey
+			APTR	ioa_Data
+			ULONG	ioa_Length
+			UWORD	ioa_Period
+			UWORD	ioa_Volume
+			UWORD	ioa_Cycles
+			STRUCT	ioa_WriteMsg,MN_SIZE
+			LABEL	ioa_SIZEOF
+
+	ENDC	; DEVICES_AUDIO_I
diff --git a/AMOSPro Sources/includes/devices/bootblock.i b/AMOSPro Sources/includes/devices/bootblock.i
new file mode 100644
index 0000000..b0fcde4
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/bootblock.i	
@@ -0,0 +1,34 @@
+	IFND	DEVICES_BOOTBLOCK_I
+DEVICES_BOOTBLOCK_I	SET	1
+**
+**	$Filename: devices/bootblock.i $
+**	$Release: 1.3 $
+**
+**	BootBlock definition: 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+ STRUCTURE BB,0
+	STRUCT	BB_ID,4		* 4 character identifier
+	LONG	BB_CHKSUM	* boot block checksum (balance)
+	LONG	BB_DOSBLOCK	* reserved for DOS patch
+	LABEL	BB_ENTRY	* bootstrap entry point
+	LABEL	BB_SIZE
+
+BOOTSECTS	equ	2	* 1K bootstrap
+
+BBID_DOS	macro		* something that is bootable
+		dc.b	'DOS',0
+		endm
+
+BBID_KICK	macro		* firmware image disk
+		dc.b	'KICK'
+		endm
+
+
+BBNAME_DOS	EQU	(('D'<<24)!('O'<<16)!('S'<<8))
+BBNAME_KICK	EQU	(('K'<<24)!('I'<<16)!('C'<<8)!('K'))
+
+	ENDC	; DEVICES_BOOTBLOCK_I
diff --git a/AMOSPro Sources/includes/devices/clipboard.i b/AMOSPro Sources/includes/devices/clipboard.i
new file mode 100644
index 0000000..c0aabb7
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/clipboard.i	
@@ -0,0 +1,65 @@
+	IFND	DEVICES_CLIPBOARD_I
+DEVICES_CLIPBOARD_I	SET	1
+**
+**	$Filename: devices/clipboard.i $
+**	$Release: 1.3 $
+**
+**	clipboard device command definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	    EXEC_NODES_I
+   INCLUDE     "exec/nodes.i"
+   ENDC
+   IFND	    EXEC_LISTS_I
+   INCLUDE     "exec/lists.i"
+   ENDC
+   IFND	    EXEC_PORTS_I
+   INCLUDE     "exec/ports.i"
+   ENDC
+   IFND	    EXEC_IO_I
+   INCLUDE     "exec/io.i"
+   ENDC
+
+   DEVINIT
+
+   DEVCMD   CBD_POST
+   DEVCMD   CBD_CURRENTREADID
+   DEVCMD   CBD_CURRENTWRITEID
+
+CBERR_OBSOLETEID  EQU	1
+
+
+ STRUCTURE  ClipboardUnitPartial,0
+    STRUCT  cu_Node,LN_SIZE;	 ; list of units
+    ULONG   cu_UnitNum;	      ; unit number for this unit
+    ; the remaining unit data is private to the device
+
+
+ STRUCTURE  IOClipReq,0
+    STRUCT  io_Message,MN_SIZE
+    APTR    io_Device	      ; device node pointer 
+    APTR    io_Unit	      ; unit (driver private)
+    UWORD   io_Command	      ; device command
+    UBYTE   io_Flags	      ; including QUICK and SATISFY
+    BYTE    io_Error	      ; error or warning num
+    ULONG   io_Actual	      ; number of bytes transferred
+    ULONG   io_Length	      ; number of bytes requested
+    APTR    io_Data	      ; either clip stream or post port
+    ULONG   io_Offset	      ; offset in clip stream
+    LONG    io_ClipID	      ; ordinal clip identifier
+    LABEL   iocr_SIZEOF
+
+
+
+PRIMARY_CLIP   EQU   0	      ; primary clip unit
+
+ STRUCTURE  SatisfyMsg,0
+    STRUCT  sm_Msg,MN_SIZE    ; the length will be 6
+    UWORD   sm_Unit	      ; which clip unit this is
+    LONG    sm_ClipID	      ; the clip identifier of the post
+    LABEL   satisfyMsg_SIZEOF
+
+	ENDC	; DEVICES_CLIPBOARD_I
diff --git a/AMOSPro Sources/includes/devices/console.i b/AMOSPro Sources/includes/devices/console.i
new file mode 100644
index 0000000..7edc3d4
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/console.i	
@@ -0,0 +1,98 @@
+	IFND	DEVICES_CONSOLE_I
+DEVICES_CONSOLE_I	SET	1
+**
+**	$Filename: devices/console.i $
+**	$Release: 1.3 $
+**
+**	Console device command definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 EXEC_IO_I
+   INCLUDE  "exec/io.i"
+   ENDC
+
+******* Console commands *******
+   DEVINIT
+
+   DEVCMD	  CD_ASKKEYMAP
+   DEVCMD	  CD_SETKEYMAP
+   DEVCMD	  CD_ASKDEFAULTKEYMAP
+   DEVCMD	  CD_SETDEFAULTKEYMAP
+
+
+******* SGR parameters
+
+SGR_PRIMARY	  EQU	0
+SGR_BOLD	  EQU	1
+SGR_ITALIC	  EQU	3
+SGR_UNDERSCORE	  EQU	4
+SGR_NEGATIVE	  EQU	7
+
+*  these names refer to the ANSI standard, not the implementation
+SGR_BLACK	  EQU	30
+SGR_RED		  EQU	31
+SGR_GREEN	  EQU	32
+SGR_YELLOW	  EQU	33
+SGR_BLUE	  EQU	34
+SGR_MAGENTA	  EQU	35
+SGR_CYAN	  EQU	36
+SGR_WHITE	  EQU	37
+SGR_DEFAULT	  EQU	39
+
+SGR_BLACKBG	  EQU	40
+SGR_REDBG	  EQU	41
+SGR_GREENBG	  EQU	42
+SGR_YELLOWBG	  EQU	43
+SGR_BLUEBG	  EQU	44
+SGR_MAGENTABG	  EQU	45
+SGR_CYANBG	  EQU	46
+SGR_WHITEBG	  EQU	47
+SGR_DEFAULTBG	  EQU	49
+
+*  these names refer to the implementation, they are the preferred
+*  names for use with the Amiga console device.
+SGR_CLR0	  EQU	30
+SGR_CLR1	  EQU	31
+SGR_CLR2	  EQU	32
+SGR_CLR3	  EQU	33
+SGR_CLR4	  EQU	34
+SGR_CLR5	  EQU	35
+SGR_CLR6	  EQU	36
+SGR_CLR7	  EQU	37
+
+SGR_CLR0BG	  EQU	40
+SGR_CLR1BG	  EQU	41
+SGR_CLR2BG	  EQU	42
+SGR_CLR3BG	  EQU	43
+SGR_CLR4BG	  EQU	44
+SGR_CLR5BG	  EQU	45
+SGR_CLR6BG	  EQU	46
+SGR_CLR7BG	  EQU	47
+
+
+******	 DSR parameters
+
+DSR_CPR		  EQU	6
+
+******	 CTC parameters
+CTC_HSETTAB	  EQU	0
+CTC_HCLRTAB	  EQU	2
+CTC_HCLRTABSALL	  EQU	5
+
+******	 TBC parameters
+TBC_HCLRTAB	  EQU	0
+TBC_HCLRTABSALL	  EQU	3
+
+******	 SM and RM parameters
+M_LNM		  EQU	20    ; linefeed newline mode
+M_ASM	 MACRO
+      DC.B  '>1'	      ; auto scroll mode
+      ENDM
+M_AWM	 MACRO
+      DC.B  '?7'	      ; auto wrap mode
+      ENDM
+
+	ENDC	; DEVICES_CONSOLE_I
diff --git a/AMOSPro Sources/includes/devices/conunit.i b/AMOSPro Sources/includes/devices/conunit.i
new file mode 100644
index 0000000..eb731cb
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/conunit.i	
@@ -0,0 +1,87 @@
+	IFND	DEVICES_CONUNIT_I
+DEVICES_CONUNIT_I	SET	1
+**
+**	$Filename: devices/conunit.i $
+**	$Release: 1.3 $
+**
+**	Console device unit definitions 
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 EXEC_PORTS_I
+   INCLUDE  "exec/ports.i"
+   ENDC
+
+   IFND	 DEVICES_CONSOLE_I
+   INCLUDE  "devices/console.i"
+   ENDC
+
+   IFND	 DEVICES_KEYMAP_I
+   INCLUDE  "devices/keymap.i"
+   ENDC
+
+   IFND	 DEVICES_INPUTEVENT_I
+   INCLUDE  "devices/inputevent.i"
+   ENDC
+
+PMB_ASM	    EQU	  M_LNM+1     ; internal storage bit for AS flag
+PMB_AWM	    EQU	  PMB_ASM+1   ; internal storage bit for AW flag
+MAXTABS	    EQU	  80
+
+
+ STRUCTURE  ConUnit,MP_SIZE
+    ;------ read only variables
+   APTR	 cu_Window	      ; intuition window bound to this unit
+   WORD	 cu_XCP		      ; character position
+   WORD	 cu_YCP
+   WORD	 cu_XMax	      ; max character position
+   WORD	 cu_YMax
+   WORD	 cu_XRSize	      ; character raster size
+   WORD	 cu_YRSize
+   WORD	 cu_XROrigin	      ; raster origin
+   WORD	 cu_YROrigin
+   WORD	 cu_XRExtant	      ; raster maxima
+   WORD	 cu_YRExtant
+   WORD	 cu_XMinShrink	      ; smallest area intact from resize process
+   WORD	 cu_YMinShrink
+   WORD	 cu_XCCP	      ; cursor position
+   WORD	 cu_YCCP
+
+   ;------ read/write variables (writes must must be protected)
+   ;------ storage for AskKeyMap and SetKeyMap
+   STRUCT   cu_KeyMapStruct,km_SIZEOF
+   ; ---- tab stops
+   STRUCT   cu_TabStops,2*MAXTABS   ; 0 at start, 0xffff at end of list
+
+   ;------ console rastport attributes
+   BYTE	 cu_Mask	      ; these must appear as in RastPort
+   BYTE	 cu_FgPen	      ;	  |
+   BYTE	 cu_BgPen	      ;	  |
+   BYTE	 cu_AOLPen	      ;	  +
+   BYTE	 cu_DrawMode	      ; these must appear as in RastPort
+   BYTE	 cu_AreaPtSz	      ;	  +
+   APTR	 cu_AreaPtrn	      ; cursor area pattern
+   STRUCT   cu_Minterms,8     ; console minterms
+   APTR	 cu_Font	      ;
+   UBYTE cu_AlgoStyle	      ; these must appear as in RastPort
+   UBYTE cu_TxFlags	      ;	  +
+   UWORD cu_TxHeight	      ; these must appear as in RastPort
+   UWORD cu_TxWidth	      ;	  |
+   UWORD cu_TxBaseline	      ;	  |
+   UWORD cu_TxSpacing	      ;	  +
+
+   ;------ console MODES and RAW EVENTS switches
+   STRUCT   cu_Modes,<(PMB_AWM+7)/8>   ; one bit per mode
+   STRUCT   cu_RawEvents,<(IECLASS_MAX+7)/8>
+
+   ;------ ensure the ConsUnit structure is even
+ODDEVEN	 EQU   ((PMB_AWM+7)/8)+((IECLASS_MAX+7)/8)
+   IFNE	 ODDEVEN-((ODDEVEN/2)*2)
+      UBYTE cu_pad   
+   ENDC
+
+   LABEL ConUnit_SIZEOF
+
+	ENDC	; DEVICES_CONUNIT_I
diff --git a/AMOSPro Sources/includes/devices/gameport.i b/AMOSPro Sources/includes/devices/gameport.i
new file mode 100644
index 0000000..f0d4a95
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/gameport.i	
@@ -0,0 +1,52 @@
+	IFND	DEVICES_GAMEPORT_I
+DEVICES_GAMEPORT_I	SET	1
+**
+**	$Filename: devices/gameport.i $
+**	$Release: 1.3 $
+**
+**	Game Port device command definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 EXEC_IO_I
+   INCLUDE  "exec/io.i"
+   ENDC
+
+
+******* GamePort commands *******
+   DEVINIT
+
+   DEVCMD   GPD_READEVENT
+   DEVCMD   GPD_ASKCTYPE
+   DEVCMD   GPD_SETCTYPE
+   DEVCMD   GPD_ASKTRIGGER
+   DEVCMD   GPD_SETTRIGGER
+
+******* GamePort structures *******
+
+*  gpt_Keys
+   BITDEF	GPT,DOWNKEYS,0
+   BITDEF	GPT,UPKEYS,1
+
+ STRUCTURE  GamePortTrigger,0
+       UWORD   gpt_Keys	       ;key transition triggers
+       UWORD   gpt_Timeout     ;time trigger (vertical blank units)
+       UWORD   gpt_XDelta      ;X distance trigger
+       UWORD   gpt_YDelta      ;Y distance trigger
+       LABEL   gpt_SIZEOF
+
+******* Controller Types ******
+GPCT_ALLOCATED	  EQU	-1     ; allocated by another user
+GPCT_NOCONTROLLER EQU	0
+
+GPCT_MOUSE	  EQU	1
+GPCT_RELJOYSTICK  EQU	2
+GPCT_ABSJOYSTICK  EQU	3
+
+
+******* Errors ******
+GPDERR_SETCTYPE	  EQU	1      ; this controller not valid at this time
+
+	ENDC	; DEVICES_GAMEPORT_I
diff --git a/AMOSPro Sources/includes/devices/hardblocks.i b/AMOSPro Sources/includes/devices/hardblocks.i
new file mode 100644
index 0000000..65fde83
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/hardblocks.i	
@@ -0,0 +1,195 @@
+	IFND	DEVICES_HARDBLOCKS_I
+DEVICES_HARDBLOCKS_I	SET	1
+**
+**	$Filename: devices/hardblocks.i $
+**	$Revision: 1.0 $
+**	$Date: 88/07/11 15:32:58 $
+**
+**	File System identifier blocks for hard disks
+**
+**	(C) Copyright 1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+;---------------------------------------------------------------------
+;
+;	This file describes blocks of data that exist on a hard disk
+;	to describe that disk.  They are not generically accessable to
+;	the user as they do not appear on any DOS drive.  The blocks
+;	are tagged with a unique identifier, checksummed, and linked
+;	together.  The root of these blocks is the RigidDiskBlock.
+;
+;	The RigidDiskBlock must exist on the disk within the first
+;	RDB_LOCATION_LIMIT blocks.  This inhibits the use of the zero
+;	cylinder in an AmigaDOS partition: although it is strictly
+;	possible to store the RigidDiskBlock data in the reserved
+;	area of a partition, this practice is discouraged since the
+;	reserved blocks of a partition are overwritten by "Format",
+;	"Install", "DiskCopy", etc.  The recommended disk layout,
+;	then, is to use the first cylinder(s) to store all the drive
+;	data specified by these blocks: i.e. partition descriptions,
+;	file system load images, drive bad block maps, spare blocks,
+;	etc.
+;
+;	Though only 512 byte blocks are currently supported by the
+;	file system, this proposal tries to be forward-looking by
+;	making the block size explicit, and by using only the first
+;	256 bytes for all blocks but the LoadSeg data.
+;
+;---------------------------------------------------------------------
+
+;
+;   NOTE
+;	optional block addresses below contain $ffffffff to indicate
+;	a NULL address
+;
+ STRUCTURE	RigidDiskBlock,0
+    ULONG   rdb_ID		; 4 character identifier
+    ULONG   rdb_SummedLongs	; size of this checksummed structure
+    LONG    rdb_ChkSum		; block checksum (longword sum to zero)
+    ULONG   rdb_HostID		; SCSI Target ID of host
+    ULONG   rdb_BlockBytes	; size of disk blocks
+    ULONG   rdb_Flags		; see below for defines
+    ; block list heads
+    ULONG   rdb_BadBlockList	; optional bad block list
+    ULONG   rdb_PartitionList	; optional first partition block
+    ULONG   rdb_FileSysHeaderList ; optional fule system header block
+    ULONG   rdb_DriveInit	; optional drive-specific init code
+				; DriveInit(lun,rdb,ior): "C" stk & d0/a0/a1
+    STRUCT  rdb_Reserved1,6*4	; set to $ffffffff
+    ; physical drive characteristics
+    ULONG   rdb_Cylinders	; number of drive cylinders
+    ULONG   rdb_Sectors		; sectors per track
+    ULONG   rdb_Heads		; number of drive heads
+    ULONG   rdb_Interleave	; interleave
+    ULONG   rdb_Park		; landing zone cylinder
+    STRUCT  rdb_Reserved2,3*4
+    ULONG   rdb_WritePreComp	; starting cylinder: write precompensation
+    ULONG   rdb_ReducedWrite	; starting cylinder: reduced write current
+    ULONG   rdb_StepRate	; drive step rate
+    STRUCT  rdb_Reserved3,5*4
+    ; logical drive characteristics
+    ULONG   rdb_RDBBlocksLo	; low block of range reserved for hardblocks
+    ULONG   rdb_RDBBlocksHi	; high block of range for these hardblocks
+    ULONG   rdb_LoCylinder	; low cylinder of partitionable disk area
+    ULONG   rdb_HiCylinder	; high cylinder of partitionable data area
+    ULONG   rdb_CylBlocks	; number of blocks available per cylinder
+    ULONG   rdb_AutoParkSeconds	; zero for no auto park
+    STRUCT  rdb_Reserved4,2*4
+    ; drive identification
+    STRUCT  rdb_DiskVendor,8
+    STRUCT  rdb_DiskProduct,16
+    STRUCT  rdb_DiskRevision,4
+    STRUCT  rdb_ControllerVendor,8
+    STRUCT  rdb_ControllerProduct,16
+    STRUCT  rdb_ControllerRevision,4
+    STRUCT  rdb_Reserved5,10*4
+
+    LABEL   RigidDiskBlock_SIZEOF
+
+IDNAME_RIGIDDISK	EQU	(('R'<<24)!('D'<<16)!('S'<<8)!('K'))
+
+RDB_LOCATION_LIMIT	EQU	16
+
+    BITDEF  RDBF,LAST,0		; no disks exist to be configured after
+				;   this one on this controller
+    BITDEF  RDBF,LASTLUN,1	; no LUNs exist to be configured greater
+				;   than this one at this SCSI Target ID
+    BITDEF  RDBF,LASTTID,2	; no Target IDs exist to be configured
+				;   greater than this one on this SCSI bus
+    BITDEF  RDBF,NORESELECT,3	; don't bother trying to perform reselection
+				;   when talking to this drive
+    BITDEF  RDBF,DISKID,4	; rdb_Disk... identification valid
+    BITDEF  RDBF,CTRLRID,5	; rdb_Controller... identification valid
+
+
+;---------------------------------------------------------------------
+ STRUCTURE	BadBlockEntry,0
+    ULONG   bbe_BadBlock	; block number of bad block 
+    ULONG   bbe_GoodBlock	; block number of replacement block  
+    LABEL   BadBlockEntry_SIZEOF
+
+ STRUCTURE	BadBlockBlock,0
+    ULONG   bbb_ID		; 4 character identifier
+    ULONG   bbb_SummedLongs	; size of this checksummed structure
+    LONG    bbb_ChkSum		; block checksum (longword sum to zero)
+    ULONG   bbb_HostID		; SCSI Target ID of host
+    ULONG   bbb_Next		; block number of the next BadBlockBlock
+    ULONG   bbb_Reserved
+    STRUCT  bbb_BlockPairs,61*BadBlockEntry_SIZEOF ; bad block entry pairs
+    ; note 61 assumes 512 byte blocks
+    ; there is no BadBlockBlock_SIZEOF: try rdb_BlockBytes
+
+IDNAME_BADBLOCK		EQU	(('B'<<24)!('A'<<16)!('D'<<8)!('B'))
+
+;---------------------------------------------------------------------
+ STRUCTURE	PartitionBlock,0
+    ULONG   pb_ID		; 4 character identifier
+    ULONG   pb_SummedLongs	; size of this checksummed structure
+    LONG    pb_ChkSum		; block checksum (longword sum to zero)
+    ULONG   pb_HostID		; SCSI Target ID of host
+    ULONG   pb_Next		; block number of the next PartitionBlock
+    ULONG   pb_Flags		; see below for defines
+    STRUCT  pb_Reserved1,2*4
+    ULONG   pb_DevFlags		; preferred flags for OpenDevice
+    STRUCT  pb_DriveName,32	; preferred DOS device name: BSTR form
+				; (not used if this name is in use)
+    STRUCT  pb_Reserved2,15*4	; filler to 32 longwords
+    STRUCT  pb_Environment,17*4	; environment vector for this partition
+    STRUCT  pb_EReserved,15*4	; reserved for future environment vector
+    LABEL   PartitionBlock_SIZEOF
+
+IDNAME_PARTITION	EQU	(('P'<<24)!('A'<<16)!('R'<<8)!('T'))
+
+    BITDEF  PBF,BOOTABLE,0	; this partition is intended to be bootable
+				;   (expected directories and files exist)
+    BITDEF  PBF,NOMOUNT,1	; do not mount this partition (e.g. manually
+				;   mounted, but space reserved here)
+
+;---------------------------------------------------------------------
+ STRUCTURE	FileSysHeaderBlock,0
+    ULONG   fhb_ID		; 4 character identifier
+    ULONG   fhb_SummedLongs	; size of this checksummed structure
+    LONG    fhb_ChkSum		; block checksum (longword sum to zero)
+    ULONG   fhb_HostID		; SCSI Target ID of host
+    ULONG   fhb_Next		; block number of the next FileSysHeaderBlock
+    ULONG   fhb_Flags		; see below for defines
+    STRUCT  fhb_Reserved1,2*4
+    ULONG   fhb_DosType		; file system description: match this with
+				; partition environment's DE_DOSTYPE entry 
+    ULONG   fhb_Version		; release version of this code
+    ULONG   fhb_PatchFlags	; bits set for those of the following that
+				;   need to be substituted into a standard
+				;   device node for this file system: e.g.
+				;   $180 to substitute SegList & GlobalVec
+    ULONG   fhb_Type		; device node type: zero
+    ULONG   fhb_Task		; standard dos "task" field: zero
+    ULONG   fhb_Lock		; not used for devices: zero
+    ULONG   fhb_Handler		; filename to loadseg: zero placeholder
+    ULONG   fhb_StackSize	; stacksize to use when starting task
+    LONG    fhb_Priority	; task priority when starting task
+    LONG    fhb_Startup		; startup msg: zero placeholder
+    LONG    fhb_SegListBlocks	; first of linked list of LoadSegBlocks:
+				;   note that this entry requires some
+				;   processing before substitution
+    LONG    fhb_GlobalVec	; BCPL global vector when starting task
+    STRUCT  fhb_Reserved2,23*4	; (those reserved by PatchFlags)
+    STRUCT  fhb_Reserved3,21*4
+    LABEL   FileSysHeader_SIZEOF
+
+IDNAME_FILESYSHEADER	EQU	(('F'<<24)!('S'<<16)!('H'<<8)!('D'))
+
+;---------------------------------------------------------------------
+ STRUCTURE	LoadSegBlock,0
+    ULONG   lsb_ID		; 4 character identifier
+    ULONG   lsb_SummedLongs	; size of this checksummed structure
+    LONG    lsb_ChkSum		; block checksum (longword sum to zero)
+    ULONG   lsb_HostID		; SCSI Target ID of host
+    ULONG   lsb_Next		; block number of the next FileSysBlock
+    STRUCT  lsb_LoadData,123*4	; data for "loadseg"
+    ; note 123 assumes 512 byte blocks
+    ; there is no LoadSegBlock_SIZEOF: try rdb_BlockBytes
+
+IDNAME_LOADSEG		EQU	(('L'<<24)!('S'<<16)!('E'<<8)!('G'))
+
+	ENDC
diff --git a/AMOSPro Sources/includes/devices/keyboard.i b/AMOSPro Sources/includes/devices/keyboard.i
new file mode 100644
index 0000000..dfed2c3
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/keyboard.i	
@@ -0,0 +1,25 @@
+	IFND	DEVICES_KEYBOARD_I
+DEVICES_KEYBOARD_I	SET	1
+**
+**	$Filename: devices/keyboard.i $
+**	$Release: 1.3 $
+**
+**	Keyboard device command definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	    EXEC_IO_I
+   INCLUDE     "exec/io.i"
+   ENDC
+
+   DEVINIT
+
+   DEVCMD	KBD_READEVENT
+   DEVCMD	KBD_READMATRIX
+   DEVCMD	KBD_ADDRESETHANDLER
+   DEVCMD	KBD_REMRESETHANDLER
+   DEVCMD	KBD_RESETHANDLERDONE
+
+	ENDC	; DEVICES_KEYBOARD_I
diff --git a/AMOSPro Sources/includes/devices/keymap.i b/AMOSPro Sources/includes/devices/keymap.i
new file mode 100644
index 0000000..18de910
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/keymap.i	
@@ -0,0 +1,71 @@
+	IFND	DEVICES_KEYMAP_I
+DEVICES_KEYMAP_I	SET	1
+**
+**	$Filename: devices/keymap.i $
+**	$Release: 1.3 $
+**
+**	keymap.resource definitions and console.device key map definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+       IFND	EXEC_NODES_I
+       INCLUDE	"exec/nodes.i"
+       ENDC
+       IFND	EXEC_LISTS_I
+       INCLUDE	"exec/lists.i"
+       ENDC
+
+ STRUCTURE  KeyMap,0
+   APTR	 km_LoKeyMapTypes
+   APTR	 km_LoKeyMap
+   APTR	 km_LoCapsable
+   APTR	 km_LoRepeatable
+   APTR	 km_HiKeyMapTypes
+   APTR	 km_HiKeyMap
+   APTR	 km_HiCapsable
+   APTR	 km_HiRepeatable
+   LABEL km_SIZEOF
+
+ STRUCTURE	KeyMapNode,0
+    STRUCT  kn_Node,LN_SIZE	; including name of keymap
+    STRUCT  kn_KeyMap,km_SIZEOF
+    LABEL   kn_SIZEOF
+
+;------ the structure of keymap.resource
+ STRUCTURE	KeyMapResource,0
+    STRUCT  kr_Node,LN_SIZE
+    STRUCT  kr_List,LH_SIZE	; a list of KeyMapNodes
+    LABEL   kr_SIZEOF
+
+
+KCB_NOP	    EQU	  7
+KCF_NOP	    EQU	  $80
+
+KC_NOQUAL   EQU	  0
+KC_VANILLA  EQU	  7	      ; note that SHIFT+ALT+CTRL is VANILLA
+KCB_SHIFT   EQU	  0
+KCF_SHIFT   EQU	  $01
+KCB_ALT	    EQU	  1
+KCF_ALT	    EQU	  $02
+KCB_CONTROL EQU	  2
+KCF_CONTROL EQU	  $04
+KCB_DOWNUP  EQU	  3
+KCF_DOWNUP  EQU	  $08
+KCB_DEAD    EQU	  5		; may be dead or modified by dead key:
+KCF_DEAD    EQU	  $20		;   use dead prefix bytes
+
+KCB_STRING  EQU	  6
+KCF_STRING  EQU	  $40
+
+;------ Dead Prefix Bytes
+DPB_MOD		EQU	0
+DPF_MOD		EQU	$01
+DPB_DEAD	EQU	3
+DPF_DEAD	EQU	$08
+
+DP_2DINDEXMASK	EQU	$0F	; mask for index for 1st of two dead keys
+DP_2DFACSHIFT	EQU	4	; shift for factor for 1st of two dead keys
+
+	ENDC	; DEVICES_KEYMAP_I
diff --git a/AMOSPro Sources/includes/devices/narrator.i b/AMOSPro Sources/includes/devices/narrator.i
new file mode 100644
index 0000000..6750d4d
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/narrator.i	
@@ -0,0 +1,87 @@
+	IFND	DEVICES_NARRATOR_I
+DEVICES_NARRATOR_I	SET	1
+**
+**	$Filename: devices/narrator.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_IO_I
+	INCLUDE "exec/io.i"
+	ENDC
+
+*-------- DEFAULT VALUES, USER PARMS, AND GENERAL CONSTANTS
+
+DEFPITCH  EQU	    110		   ;DEFAULT PITCH
+DEFRATE	  EQU	    150		   ;DEFAULT RATE
+DEFVOL	  EQU	    64		   ;DEFAULT VOLUME (FULL)
+DEFFREQ	  EQU	    22200	   ;DEFAULT SAMPLING FREQUENCY
+NATURALF0 EQU	    0		   ;NATURAL F0 CONTOURS
+ROBOTICF0 EQU	    1		   ;MONOTONE F0
+MALE	  EQU	    0		   ;MALE SPEAKER
+FEMALE	  EQU	    1		   ;FEMALE SPEAKER
+DEFSEX	  EQU	    MALE	   ;DEFAULT SEX
+DEFMODE	  EQU	    NATURALF0	   ;DEFAULT MODE
+
+*     Parameter bounds
+
+MINRATE	  EQU	    40		   ;MINIMUM SPEAKING RATE
+MAXRATE	  EQU	    400		   ;MAXIMUM SPEAKING RATE
+MINPITCH  EQU	    65		   ;MINIMUM PITCH
+MAXPITCH  EQU	    320		   ;MAXIMUM PITCH
+MINFREQ	  EQU	    5000	   ;MINIMUM SAMPLING FREQUENCY
+MAXFREQ	  EQU	    28000	   ;MAXIMUM SAMPLING FREQUENCY
+MINVOL	  EQU	    0		   ;MINIMUM VOLUME
+MAXVOL	  EQU	    64		   ;MAXIMUM VOLUME
+
+*     Driver error codes
+
+ND_NotUsed	EQU	-1		;
+ND_NoMem	EQU	-2		;Can't allocate memory
+ND_NoAudLib	EQU	-3		;Can't open audio device
+ND_MakeBad	EQU	-4		;Error in MakeLibrary call
+ND_UnitErr	EQU	-5		;Unit other than 0
+ND_CantAlloc	EQU	-6		;Can't allocate the audio channel
+ND_Unimpl	EQU	-7		;Unimplemented command
+ND_NoWrite	EQU	-8		;Read for mouth shape without write
+ND_Expunged	EQU	-9		;Can't open, deferred expunge bit set
+ND_PhonErr	EQU	-20		;Phoneme code spelling error
+ND_RateErr	EQU	-21		;Rate out of bounds
+ND_PitchErr	EQU	-22		;Pitch out of bounds
+ND_SexErr	EQU	-23		;Sex not valid
+ND_ModeErr	EQU	-24		;Mode not valid
+ND_FreqErr	EQU	-25		;Sampling freq out of bounds
+ND_VolErr	EQU	-26		;Volume out of bounds
+
+
+
+*		;------ Write IORequest block 
+ STRUCTURE NDI,IOSTD_SIZE
+	UWORD	NDI_RATE		;Speaking rate in words/minute
+	UWORD	NDI_PITCH		;Baseline pitch in Hertz
+	UWORD	NDI_MODE		;F0 mode
+	UWORD	NDI_SEX			;Speaker sex
+	APTR	NDI_CHMASKS		;Pointer to audio channel masks
+	UWORD	NDI_NUMMASKS		;Size of channel masks array
+	UWORD	NDI_VOLUME		;Channel volume
+	UWORD	NDI_SAMPFREQ		;Sampling frequency
+	UBYTE	NDI_MOUTHS		;Generate mouths? (Boolean value)
+	UBYTE	NDI_CHANMASK		;Actual channel mask used (internal use)
+	UBYTE	NDI_NUMCHAN		;Number of channels used (internal use)
+	UBYTE	NDI_PAD			;For alignment
+	LABEL	NDI_SIZE		;Size of Narrator IORequest block
+
+
+*		;------ Mouth read IORB
+ STRUCTURE MRB,NDI_SIZE
+	UBYTE	MRB_WIDTH		;Mouth width
+	UBYTE	MRB_HEIGHT		;Mouth height
+	UBYTE	MRB_SHAPE		;Compressed shape (height/width)
+	UBYTE	MRB_PAD			;Alignment
+	LABEL	MRB_SIZE
+
+	ENDC	; DEVICES_NARRATOR_I
diff --git a/AMOSPro Sources/includes/devices/scsidisk.i b/AMOSPro Sources/includes/devices/scsidisk.i
new file mode 100644
index 0000000..61aea80
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/scsidisk.i	
@@ -0,0 +1,96 @@
+	IFND	DEVICES_SCSIDISK_I
+DEVICES_SCSIDISK_I	EQU	1
+**
+**	$Filename: devices/scsidisk.i $
+**	$Revision: 1.0 $
+**	$Date: 88/07/11 15:33:14 $
+**
+**	SCSI exec-level device command
+**
+**	(C) Copyright 1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+;---------------------------------------------------------------------
+;
+;   SCSI Command
+;	Several Amiga SCSI controller manufacturers are converging on
+;	standard ways to talk to their controllers.  This include
+;	file describes an exec-device command (e.g. for hddisk.device)
+;	that can be used to issue SCSI commands
+;
+;   UNIT NUMBERS
+;	Unit numbers to the OpenDevice call have encoded in them which
+;	SCSI device is being referred to.  The three decimal digits of
+;	the unit number refer to the SCSI Target ID (bus address) in
+;	the 1's digit, the SCSI logical unit (LUN) in the 10's digit,
+;	and the controller board in the 100's digit.
+;
+;	Examples:
+;		  0	drive at address 0
+;		 12	LUN 1 on multiple drive controller at address 2
+;		104	second controller board, address 4
+;		 88	not valid: both logical units and addresses
+;			range from 0..7.
+;
+;   CAVEATS
+;	Original 2090 code did not support this command.
+;
+;	Commodore 2090/2090A unit numbers are different.  The SCSI
+;	logical unit is the 100's digit, and the SCSI Target ID
+;	is a permuted 1's digit: Target ID 0..6 maps to unit 3..9
+;	(7 is reserved for the controller).
+;
+;	    Examples:
+;		  3	drive at address 0
+;		109	drive at address 6, logical unit 1
+;		  1	not valid: this is not a SCSI unit.  Perhaps
+;			it's an ST506 unit.
+;
+;	Some controller boards generate a unique name (e.g. 2090A's
+;	iddisk.device) for the second controller board, instead of
+;	implementing the 100's digit.
+;
+;	There are optional restrictions on the alignment, bus
+;	accessability, and size of the data for the data phase.
+;	Be conservative to work with all manufacturer's controllers.
+;
+;---------------------------------------------------------------------
+
+HD_SCSICMD	EQU	28	; issue a SCSI command to the unit
+				; io_Data points to a SCSICmd
+				; io_Length is sizeof(struct SCSICmd)
+				; io_Actual and io_Offset are not used
+
+ STRUCTURE	SCSICmd,0
+    APTR    scsi_Data		; word aligned data for SCSI Data Phase
+				; (optional) data need not be byte aligned
+				; (optional) data need not be bus accessable
+    ULONG   scsi_Length		; even length of Data area
+				; (optional) data can have odd length
+				; (optional) data length can be > 2**24
+    ULONG   scsi_Actual		; actual Data used
+    APTR    scsi_Command	; SCSI Command (same options as scsi_Data)
+    UWORD   scsi_CmdLength	; length of Command
+    UWORD   scsi_CmdActual	; actual Command used
+    UBYTE   scsi_Flags		; includes intended data direction
+    UBYTE   scsi_Status		; SCSI status of command
+    LABEL   scsi_SIZEOF
+
+
+;------ scsi_Flags ------
+SCSIF_WRITE		EQU	0	; intended data direction is out
+SCSIF_READ		EQU	1	; intended data direction is in
+
+;------ SCSI io_Error values ------
+HFERR_SelfUnit		EQU	40	; cannot issue SCSI command to self
+HFERR_DMA		EQU	41	; DMA error
+HFERR_Phase		EQU	42	; illegal or unexpected SCSI phase
+HFERR_Parity		EQU	43	; SCSI parity error
+HFERR_SelTimeout	EQU	44	; Select timed out
+HFERR_BadStatus		EQU	45	; status and/or sense error
+
+;------ OpenDevice io_Error values ------
+HFERR_NoBoard		EQU	50	; Open failed for non-existant board
+
+	ENDC	; DEVICES_SCSIDISK_I
diff --git a/AMOSPro Sources/includes/devices/trackdisk.i b/AMOSPro Sources/includes/devices/trackdisk.i
new file mode 100644
index 0000000..e8e3822
--- /dev/null
+++ b/AMOSPro Sources/includes/devices/trackdisk.i	
@@ -0,0 +1,181 @@
+	IFND	DEVICES_TRACKDISK_I
+DEVICES_TRACKDISK_I	SET	1
+**
+**	$Filename: devices/trackdisk.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_IO_I
+	INCLUDE "exec/io.i"
+	ENDC	; EXEC_IO_I
+
+	IFND	EXEC_DEVICES_I
+	INCLUDE "exec/devices.i"
+	ENDC	; EXEC_DEVICES_I
+
+*--------------------------------------------------------------------
+*
+* Physical drive constants
+*
+*--------------------------------------------------------------------
+
+
+* OBSOLETE -- only valid for 3 1/4" drives.  Use the TD_GETNUMTRACKS command!
+*
+*NUMCYLS		EQU	80		; normal # of cylinders
+*MAXCYLS		EQU	NUMCYLS+20	; max # of cyls to look for
+*						;	during a calibrate
+*NUMHEADS	EQU	2
+*NUMTRACKS	EQU	NUMCYLS*NUMHEADS
+
+NUMSECS		EQU	11
+NUMUNITS	EQU	4
+
+*--------------------------------------------------------------------
+*
+* Useful constants
+*
+*--------------------------------------------------------------------
+
+
+*-- sizes before mfm encoding
+TD_SECTOR	EQU	512
+TD_SECSHIFT	EQU	9			; log TD_SECTOR
+*						;    2
+
+
+*--------------------------------------------------------------------
+*
+* Driver Specific Commands
+*
+*--------------------------------------------------------------------
+
+*-- TD_NAME is a generic macro to get the name of the driver.  This
+*-- way if the name is ever changed you will pick up the change
+*-- automatically.
+*--
+*-- Normal usage would be:
+*--
+*-- internalName:	TD_NAME
+*--
+
+TD_NAME:	MACRO
+		DC.B	'trackdisk.device',0
+		DS.W	0
+		ENDM
+
+	BITDEF	TD,EXTCOM,15
+
+	DEVINIT
+	DEVCMD	TD_MOTOR		; control the disk's motor
+	DEVCMD	TD_SEEK			; explicit seek (for testing)
+	DEVCMD	TD_FORMAT		; format disk
+	DEVCMD	TD_REMOVE		; notify when disk changes
+	DEVCMD	TD_CHANGENUM		; number of disk changes
+	DEVCMD	TD_CHANGESTATE		; is there a disk in the drive?
+	DEVCMD	TD_PROTSTATUS		; is the disk write protected?
+	DEVCMD	TD_RAWREAD		; read raw bits from the disk
+	DEVCMD	TD_RAWWRITE		; write raw bits to the disk
+	DEVCMD	TD_GETDRIVETYPE		; get the type of the disk drive
+	DEVCMD	TD_GETNUMTRACKS		; get the # of tracks on this disk
+	DEVCMD	TD_ADDCHANGEINT		; TD_REMOVE done right
+	DEVCMD	TD_REMCHANGEINT		; removes softint set by ADDCHANGEINT
+	DEVCMD	TD_LASTCOMM		; dummy placeholder for end of list
+
+
+*
+*
+* The disk driver has an "extended command" facility.  These commands
+* take a superset of the normal IO Request block.
+*
+ETD_WRITE	EQU	(CMD_WRITE!TDF_EXTCOM)
+ETD_READ	EQU	(CMD_READ!TDF_EXTCOM)
+ETD_MOTOR	EQU	(TD_MOTOR!TDF_EXTCOM)
+ETD_SEEK	EQU	(TD_SEEK!TDF_EXTCOM)
+ETD_FORMAT	EQU	(TD_FORMAT!TDF_EXTCOM)
+ETD_UPDATE	EQU	(CMD_UPDATE!TDF_EXTCOM)
+ETD_CLEAR	EQU	(CMD_CLEAR!TDF_EXTCOM)
+ETD_RAWREAD	EQU	(TD_RAWREAD!TDF_EXTCOM)
+ETD_RAWWRITE	EQU	(TD_RAWWRITE!TDF_EXTCOM)
+
+
+*
+* extended IO has a larger than normal io request block.
+*
+
+ STRUCTURE IOEXTTD,IOSTD_SIZE
+	ULONG	IOTD_COUNT	; removal/insertion count
+	ULONG	IOTD_SECLABEL	; sector label data region
+	LABEL	IOTD_SIZE
+
+*
+* raw read and write can be synced with the index pulse.  This flag
+* in io request's IO_FLAGS field tells the driver that you want this.
+*
+	BITDEF	IOTD,INDEXSYNC,4
+
+* labels are TD_LABELSIZE bytes per sector
+
+TD_LABELSIZE	EQU	16
+
+*
+* This is a bit in the FLAGS field of OpenDevice.  If it is set, then
+* the driver will allow you to open all the disks that the trackdisk
+* driver understands.  Otherwise only 3.5" disks will succeed.
+*
+*
+	BITDEF	TD,ALLOW_NON_3_5,0
+
+*
+*  If you set the TDB_ALLOW_NON_3_5 bit in OpenDevice, then you don't
+*  know what type of disk you really got.  These defines are for the
+*  TD_GETDRIVETYPE command.  In addition, you can find out how many
+*  tracks are supported via the TD_GETNUMTRACKS command.
+*
+DRIVE3_5	EQU	1
+DRIVE5_25	EQU	2
+
+*--------------------------------------------------------------------
+*
+* Driver error defines
+*
+*--------------------------------------------------------------------
+
+TDERR_NotSpecified	EQU	20	; general catchall
+TDERR_NoSecHdr		EQU	21	; couldn't even find a sector
+TDERR_BadSecPreamble	EQU	22	; sector looked wrong
+TDERR_BadSecID		EQU	23	; ditto
+TDERR_BadHdrSum		EQU	24	; header had incorrect checksum
+TDERR_BadSecSum		EQU	25	; data had incorrect checksum
+TDERR_TooFewSecs	EQU	26	; couldn't find enough sectors
+TDERR_BadSecHdr		EQU	27	; another "sector looked wrong"
+TDERR_WriteProt		EQU	28	; can't write to a protected disk
+TDERR_DiskChanged	EQU	29	; no disk in the drive
+TDERR_SeekError		EQU	30	; couldn't find track 0
+TDERR_NoMem		EQU	31	; ran out of memory
+TDERR_BadUnitNum	EQU	32	; asked for a unit > NUMUNITS
+TDERR_BadDriveType	EQU	33	; not a drive that trackdisk groks
+TDERR_DriveInUse	EQU	34	; someone else allocated the drive
+TDERR_PostReset		EQU	35	; user hit reset; awaiting doom
+
+*--------------------------------------------------------------------
+*
+* Public portion of unit structure
+*
+*--------------------------------------------------------------------
+
+ STRUCTURE TDU_PUBLICUNIT,UNIT_SIZE
+	UWORD	TDU_COMP01TRACK		; track for first precomp
+	UWORD	TDU_COMP10TRACK		; track for second precomp
+	UWORD	TDU_COMP11TRACK		; track for third precomp
+	ULONG	TDU_STEPDELAY		; time to wait after stepping
+	ULONG	TDU_SETTLEDELAY		; time to wait after seeking
+	UBYTE	TDU_RETRYCNT		; # of times to retry
+	LABEL	TDU_PUBLICUNITSIZE
+
+	ENDC	; DEVICES_TRACKDISK_I
diff --git a/AMOSPro Sources/includes/exec/ables.i b/AMOSPro Sources/includes/exec/ables.i
new file mode 100644
index 0000000..f4c75d7
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/ables.i	
@@ -0,0 +1,98 @@
+	IFND	EXEC_ABLES_I
+EXEC_ABLES_I	SET	1
+**
+**	$Filename: exec/ables.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_TYPES_I
+    INCLUDE "exec/types.i"
+    ENDC	; EXEC_TYPES_I
+
+    IFND EXEC_EXECBASE_I
+    INCLUDE "exec/execbase.i"
+    ENDC	; EXEC_EXECBASE_I
+
+
+*----------------------------------------------------------------
+*
+*   Interrupt Exclusion Macros
+*
+*----------------------------------------------------------------
+
+INT_ABLES   MACRO			* externals for dis/enable
+	    XREF    _intena
+	    ENDM
+
+
+DISABLE	    MACRO   * [scratchReg]
+	    IFC	    '\1',''
+	    MOVE.W  #$04000,_intena	*(NOT IF_SETCLR)+IF_INTEN
+	    ADDQ.B  #1,IDNestCnt(A6)
+	    ENDC
+	    IFNC    '\1',''
+	    MOVE.L  4,\1
+	    MOVE.W  #$04000,_intena	*(NOT IF_SETCLR)+IF_INTEN
+	    ADDQ.B  #1,IDNestCnt(\1)
+	    ENDC
+	    ENDM
+
+
+ENABLE	    MACRO   * [scratchReg]
+	    IFC	    '\1',''
+	    SUBQ.B  #1,IDNestCnt(A6)
+	    BGE.S   ENABLE\@
+	    MOVE.W  #$0C000,_intena	*IF_SETCLR+IF_INTEN
+ENABLE\@:
+	    ENDC
+	    IFNC    '\1',''
+	    MOVE.L  4,\1
+	    SUBQ.B  #1,IDNestCnt(\1)
+	    BGE.S   ENABLE\@
+	    MOVE.W  #$0C000,_intena
+ENABLE\@:
+	    ENDC
+	    ENDM
+
+
+*----------------------------------------------------------------
+*
+*   Tasking Exclusion Macros
+*
+*----------------------------------------------------------------
+
+TASK_ABLES  MACRO
+*	    INCLUDE "execbase.i" for TDNestCnt offset
+	    XREF    _LVOPermit
+	    ENDM
+
+
+FORBID	    MACRO
+	    IFC	    '\1',''
+	    ADDQ.B  #1,TDNestCnt(A6)
+	    ENDC
+	    IFNC    '\1',''
+	    MOVE.L  4,\1
+	    ADDQ.B  #1,TDNestCnt(\1)
+	    ENDC
+	    ENDM
+
+
+PERMIT	    MACRO
+	    IFC	    '\1',''
+	    JSR	    _LVOPermit(A6)
+	    ENDC
+	    IFNC    '\1',''
+	    MOVE.L  A6,-(SP)
+	    MOVE.L  4,A6
+	    JSR	    _LVOPermit(A6)
+	    MOVE.L  (SP)+,A6
+	    ENDC
+	    ENDM
+
+	ENDC	; EXEC_ABLES_I
diff --git a/AMOSPro Sources/includes/exec/alerts.i b/AMOSPro Sources/includes/exec/alerts.i
new file mode 100644
index 0000000..6dd150a
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/alerts.i	
@@ -0,0 +1,226 @@
+	IFND	EXEC_ALERTS_I
+EXEC_ALERTS_I	SET	1
+**
+**	$Filename: exec/alerts.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    BITDEF  S,ALERTWACK,1	* in ExecBase.SysFlags
+
+
+**********************************************************************
+*
+*  Format of the alert error number:
+*
+*    +---------------+----------------+--------------------------------+  
+*    |D|  SubSysId   |	General Error |	   SubSystem Specific Error    |
+*    +---------------+----------------+--------------------------------+
+*
+*		     D:	 DeadEnd alert
+*	      SubSysId:	 indicates ROM subsystem number.
+*	 General Error:	 roughly indicates what the error was
+*	Specific Error:	 indicates more detail
+***********************************************************************
+
+*
+*  Use this macro for causing an alert.	 THIS MACRO MAY CHANGE!
+*  It is very sensitive to memory corruption.... like stepping on
+*  location 4!	But it should work for now.
+*
+ALERT		macro	(alertNumber, paramArray, scratch)
+		movem.l d7/a5/a6,-(sp)
+		move.l	#\1,d7
+		IFNC	'\2',''
+		lea	\2,a5
+		ENDC
+		move.l	4,a6		; (use proper name!!!)
+		jsr	_LVOAlert(a6)
+		movem.l (sp)+,d7/a5/a6
+		endm
+
+
+**********************************************************************
+*
+*  General Dead-End Alerts
+*
+*  For example:	 timer.device cannot open math.library:
+*
+*	ALERT  (AN_TimerDev!AG_OpenLib!AO_MathLib),(A0),A1
+*
+**********************************************************************
+
+;------ alert types
+AT_DeadEnd	equ $80000000
+AT_Recovery	equ $00000000
+
+;------ general purpose alert codes
+AG_NoMemory	equ $00010000
+AG_MakeLib	equ $00020000
+AG_OpenLib	equ $00030000
+AG_OpenDev	equ $00040000
+AG_OpenRes	equ $00050000
+AG_IOError	equ $00060000
+AG_NoSignal	equ $00070000
+
+;------ alert objects:
+AO_ExecLib	equ $00008001
+AO_GraphicsLib	equ $00008002
+AO_LayersLib	equ $00008003
+AO_Intuition	equ $00008004
+AO_MathLib	equ $00008005
+AO_CListLib	equ $00008006
+AO_DOSLib	equ $00008007
+AO_RAMLib	equ $00008008
+AO_IconLib	equ $00008009
+AO_ExpansionLib equ $0000800A
+AO_AudioDev	equ $00008010
+AO_ConsoleDev	equ $00008011
+AO_GamePortDev	equ $00008012
+AO_KeyboardDev	equ $00008013
+AO_TrackDiskDev equ $00008014
+AO_TimerDev	equ $00008015
+AO_CIARsrc	equ $00008020
+AO_DiskRsrc	equ $00008021
+AO_MiscRsrc	equ $00008022
+AO_BootStrap	equ $00008030
+AO_Workbench	equ $00008031
+
+
+**********************************************************************
+*
+*   Specific Dead-End Alerts:
+*
+*   For example:   exec.library -- corrupted memory list
+*
+*	    ALERT  AN_MemCorrupt,(A0),A1
+*
+**********************************************************************
+
+;------ exec.library
+AN_ExecLib	equ $01000000
+AN_ExcptVect	equ $81000001	; 68000 exception vector checksum
+AN_BaseChkSum	equ $81000002	; execbase checksum
+AN_LibChkSum	equ $81000003	; library checksum failure
+AN_LibMem	equ $81000004	; no memory to make library
+AN_MemCorrupt	equ $81000005	; corrupted memory list
+AN_IntrMem	equ $81000006	; no memory for interrupt servers
+AN_InitAPtr	equ $81000007	; InitStruct() of an APTR source
+AN_SemCorrupt	equ $81000008	; a semaphore is in illegal state
+AN_FreeTwice	equ $81000009	; freeing memory that is already free
+AN_BogusExcpt	equ $8100000A	; illegal 68k exception taken
+
+;------ graphics.library
+AN_GraphicsLib	equ $02000000
+AN_GfxNoMem	equ $82010000	; graphics out of memory
+AN_LongFrame	equ $82010006	; long frame, no memory
+AN_ShortFrame	equ $82010007	; short frame, no memory
+AN_TextTmpRas	equ $02010009	; text, no memory for TmpRas
+AN_BltBitMap	equ $8201000A	; BltBitMap, no memory
+AN_RegionMemory equ $8201000B	; regions, memory not available
+AN_MakeVPort	equ $82010030	; MakeVPort, no memory
+AN_GfxNoLCM	equ $82011234	; emergency memory not available
+
+;------ layers.library
+AN_LayersLib	equ $03000000
+AN_LayersNoMem	equ $83010000	; layers out of memory
+
+;------ intuition.library
+AN_Intuition	equ $04000000
+AN_GadgetType	equ $84000001	; unknown gadet type
+AN_BadGadget	equ $04000001	; Recovery form of AN_GadgetType
+AN_CreatePort	equ $84010002	; create port, no memory
+AN_ItemAlloc	equ $04010003	; item plane alloc, no memory
+AN_SubAlloc	equ $04010004	; sub alloc, no memory
+AN_PlaneAlloc	equ $84010005	; plane alloc, no memory
+AN_ItemBoxTop	equ $84000006	; item box top < RelZero
+AN_OpenScreen	equ $84010007	; open screen, no memory
+AN_OpenScrnRast equ $84010008	; open screen, raster alloc, no memory
+AN_SysScrnType	equ $84000009	; open sys screen, unknown type
+AN_AddSWGadget	equ $8401000A	; add SW gadgets, no memory
+AN_OpenWindow	equ $8401000B	; open window, no memory
+AN_BadState	equ $8400000C	; Bad State Return entering Intuition
+AN_BadMessage	equ $8400000D	; Bad Message received by IDCMP
+AN_WeirdEcho	equ $8400000E	; Weird echo causing incomprehension
+AN_NoConsole	equ $8400000F	; couldn't open the Console Device
+
+;------ math.library
+AN_MathLib	equ $05000000
+
+;------ clist.library
+AN_CListLib	equ $06000000
+
+;------ dos.library
+AN_DOSLib	equ $07000000
+AN_StartMem	equ $07010001	; no memory at startup 
+AN_EndTask	equ $07000002	; EndTask didn't 
+AN_QPktFail	equ $07000003	; Qpkt failure 
+AN_AsyncPkt	equ $07000004	; Unexpected packet received 
+AN_FreeVec	equ $07000005	; Freevec failed 
+AN_DiskBlkSeq	equ $07000006	; Disk block sequence error 
+AN_BitMap	equ $07000007	; Bitmap corrupt 
+AN_KeyFree	equ $07000008	; Key already free 
+AN_BadChkSum	equ $07000009	; Invalid checksum 
+AN_DiskError	equ $0700000A	; Disk Error 
+AN_KeyRange	equ $0700000B	; Key out of range 
+AN_BadOverlay	equ $0700000C	; Bad overlay
+
+;------ ramlib.library
+AN_RAMLib	equ $08000000
+AN_BadSegList	equ $08000001	; overlays are illegal for library segments
+
+;------ icon.library
+AN_IconLib	equ $09000000
+
+;------ expansion.library
+AN_ExpansionLib equ $0A000000
+AN_BadExpansionFree	equ $0A000001
+
+;------ audio.device
+AN_AudioDev	equ $10000000
+
+;------ console.device
+AN_ConsoleDev	equ $11000000
+
+;------ gameport.device
+AN_GamePortDev	equ $12000000
+
+;------ keyboard.device
+AN_KeyboardDev	equ $13000000
+
+;------ trackdisk.device
+AN_TrackDiskDev equ $14000000
+AN_TDCalibSeek	equ $14000001	; calibrate: seek error
+AN_TDDelay	equ $14000002	; delay: error on timer wait
+
+;------ timer.device
+AN_TimerDev	equ $15000000
+AN_TMBadReq	equ $15000001	; bad request
+AN_TMBadSupply	equ $15000002	; power supply does not supply ticks
+
+;------ cia.resource
+AN_CIARsrc	equ $20000000
+
+;------ disk.resource
+AN_DiskRsrc	equ $21000000
+AN_DRHasDisk	equ $21000001	: get unit: already has disk
+AN_DRIntNoAct	equ $21000002	; interrupt: no active unit
+
+;------ misc.resource
+AN_MiscRsrc	equ $22000000
+
+;------ bootstrap
+AN_BootStrap	equ $30000000
+AN_BootError	equ $30000001	; boot code returned an error
+
+;------ workbench
+AN_Workbench	equ $31000000
+
+;------ DiskCopy
+AN_DiskCopy	equ $32000000
+
+	ENDC	; EXEC_ALERTS_I
diff --git a/AMOSPro Sources/includes/exec/errors.i b/AMOSPro Sources/includes/exec/errors.i
new file mode 100644
index 0000000..a8b8341
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/errors.i	
@@ -0,0 +1,21 @@
+	IFND	EXEC_ERRORS_I
+EXEC_ERRORS_I	SET	1
+**
+**	$Filename: exec/errors.i $
+**	$Release: 1.3 $
+**
+**	Standard IO Errors: 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+IOERR_OPENFAIL	EQU	-1		* device/unit failed to open
+IOERR_ABORTED	EQU	-2		* request aborted
+IOERR_NOCMD	EQU	-3		* command not supported
+IOERR_BADLENGTH EQU	-4		* not a valid length
+
+
+ERR_OPENDEVICE	EQU  IOERR_OPENFAIL	* REMOVE !!!
+
+	ENDC	; EXEC_ERRORS_I
diff --git a/AMOSPro Sources/includes/exec/exec_lib.i b/AMOSPro Sources/includes/exec/exec_lib.i
new file mode 100644
index 0000000..7d5659e
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/exec_lib.i	
@@ -0,0 +1,115 @@
+	IFND	EXEC_EXEC_LIB_I
+EXEC_EXEC_LIB_I SET	1
+**
+**	$Filename: exec/exec_lib.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	FUNCDEF Supervisor
+	FUNCDEF ExitIntr
+	FUNCDEF Schedule
+	FUNCDEF Reschedule
+	FUNCDEF Switch
+	FUNCDEF Dispatch
+	FUNCDEF Exception
+	FUNCDEF InitCode
+	FUNCDEF InitStruct
+	FUNCDEF MakeLibrary
+	FUNCDEF MakeFunctions
+	FUNCDEF FindResident
+	FUNCDEF InitResident
+	FUNCDEF Alert
+	FUNCDEF Debug
+	FUNCDEF Disable
+	FUNCDEF Enable
+	FUNCDEF Forbid
+	FUNCDEF Permit
+	FUNCDEF SetSR
+	FUNCDEF SuperState
+	FUNCDEF UserState
+	FUNCDEF SetIntVector
+	FUNCDEF AddIntServer
+	FUNCDEF RemIntServer
+	FUNCDEF Cause
+	FUNCDEF Allocate
+	FUNCDEF Deallocate
+	FUNCDEF AllocMem
+	FUNCDEF AllocAbs
+	FUNCDEF FreeMem
+	FUNCDEF AvailMem
+	FUNCDEF AllocEntry
+	FUNCDEF FreeEntry
+	FUNCDEF Insert
+	FUNCDEF AddHead
+	FUNCDEF AddTail
+	FUNCDEF Remove
+	FUNCDEF RemHead
+	FUNCDEF RemTail
+	FUNCDEF Enqueue
+	FUNCDEF FindName
+	FUNCDEF AddTask
+	FUNCDEF RemTask
+	FUNCDEF FindTask
+	FUNCDEF SetTaskPri
+	FUNCDEF SetSignal
+	FUNCDEF SetExcept
+	FUNCDEF Wait
+	FUNCDEF Signal
+	FUNCDEF AllocSignal
+	FUNCDEF FreeSignal
+	FUNCDEF AllocTrap
+	FUNCDEF FreeTrap
+	FUNCDEF AddPort
+	FUNCDEF RemPort
+	FUNCDEF PutMsg
+	FUNCDEF GetMsg
+	FUNCDEF ReplyMsg
+	FUNCDEF WaitPort
+	FUNCDEF FindPort
+	FUNCDEF AddLibrary
+	FUNCDEF RemLibrary
+	FUNCDEF OldOpenLibrary
+	FUNCDEF CloseLibrary
+	FUNCDEF SetFunction
+	FUNCDEF SumLibrary
+	FUNCDEF AddDevice
+	FUNCDEF RemDevice
+	FUNCDEF OpenDevice
+	FUNCDEF CloseDevice
+	FUNCDEF DoIO
+	FUNCDEF SendIO
+	FUNCDEF CheckIO
+	FUNCDEF WaitIO
+	FUNCDEF AbortIO
+	FUNCDEF AddResource
+	FUNCDEF RemResource
+	FUNCDEF OpenResource
+	FUNCDEF RawIOInit
+	FUNCDEF RawMayGetChar
+	FUNCDEF RawPutChar
+	FUNCDEF RawDoFmt
+	FUNCDEF GetCC
+	FUNCDEF TypeOfMem
+	FUNCDEF Procure
+	FUNCDEF Vacate
+	FUNCDEF OpenLibrary
+	FUNCDEF InitSemaphore
+	FUNCDEF ObtainSemaphore
+	FUNCDEF ReleaseSemaphore
+	FUNCDEF AttemptSemaphore
+	FUNCDEF ObtainSemaphoreList
+	FUNCDEF ReleaseSemaphoreList
+	FUNCDEF FindSemaphore
+	FUNCDEF AddSemaphore
+	FUNCDEF RemSemaphore
+	FUNCDEF SumKickData
+	FUNCDEF AddMemList
+	FUNCDEF CopyMem
+	FUNCDEF CopyMemQuick
+
+	ENDC	; EXEC_EXEC_LIB_I
diff --git a/AMOSPro Sources/includes/exec/execbase.i b/AMOSPro Sources/includes/exec/execbase.i
new file mode 100644
index 0000000..f493783
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/execbase.i	
@@ -0,0 +1,152 @@
+	IFND	EXEC_EXECBASE_I
+EXEC_EXECBASE_I SET	1
+**
+**	$Filename: exec/execbase.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_TYPES_I
+    INCLUDE "exec/types.i"
+    ENDC	; EXEC_TYPES_I
+
+    IFND EXEC_LISTS_I
+    INCLUDE "exec/lists.i"
+    ENDC	; EXEC_LISTS_I
+
+    IFND EXEC_INTERRUPTS_I
+    INCLUDE "exec/interrupts.i"
+    ENDC	; EXEC_INTERRUPTS_I
+
+    IFND EXEC_LIBRARIES_I
+    INCLUDE "exec/libraries.i"
+    ENDC	; EXEC_LIBRARIES_I
+
+
+******* Static System Variables **************************************
+
+ STRUCTURE  ExecBase,LIB_SIZE		; Standard library node
+
+	    UWORD	SoftVer		; kickstart release number
+	    WORD	LowMemChkSum	; checksum of 68000 trap vectors
+	    ULONG	ChkBase		; system base pointer complement
+	    APTR	ColdCapture	; cold soft capture vector
+	    APTR	CoolCapture	; cool soft capture vector
+	    APTR	WarmCapture	; warm soft capture vector
+	    APTR	SysStkUpper	; system stack base   (upper bound)
+	    APTR	SysStkLower	; top of system stack (lower bound)
+	    ULONG	MaxLocMem	; last calculated local memory max
+	    APTR	DebugEntry	; global debugger entry point
+	    APTR	DebugData	; global debugger data segment
+	    APTR	AlertData	; alert data segment
+	    APTR	MaxExtMem	; top of extended mem, or null if none
+
+	    WORD	ChkSum		; for all of the above
+
+
+******* Interrupt Related ********************************************
+
+	    LABEL	IntVects  
+	    STRUCT	IVTBE,IV_SIZE
+	    STRUCT	IVDSKBLK,IV_SIZE
+	    STRUCT	IVSOFTINT,IV_SIZE
+	    STRUCT	IVPORTS,IV_SIZE
+	    STRUCT	IVCOPER,IV_SIZE
+	    STRUCT	IVVERTB,IV_SIZE
+	    STRUCT	IVBLIT,IV_SIZE
+	    STRUCT	IVAUD0,IV_SIZE
+	    STRUCT	IVAUD1,IV_SIZE
+	    STRUCT	IVAUD2,IV_SIZE
+	    STRUCT	IVAUD3,IV_SIZE
+	    STRUCT	IVRBF,IV_SIZE
+	    STRUCT	IVDSKSYNC,IV_SIZE
+	    STRUCT	IVEXTER,IV_SIZE
+	    STRUCT	IVINTEN,IV_SIZE
+	    STRUCT	IVNMI,IV_SIZE
+
+
+******* Dynamic System Variables *************************************
+
+	    APTR	ThisTask	; pointer to current task
+	    ULONG	IdleCount	; idle counter
+	    ULONG	DispCount	; dispatch counter
+	    UWORD	Quantum		; time slice quantum
+	    UWORD	Elapsed		; current quantum ticks
+	    UWORD	SysFlags	; misc system flags
+	    BYTE	IDNestCnt	; interrupt disable nesting count
+	    BYTE	TDNestCnt	; task disable nesting count
+
+	    UWORD	AttnFlags	; special attention flags
+	    UWORD	AttnResched	; rescheduling attention
+	    APTR	ResModules	; pointer to resident module array
+
+	    APTR	TaskTrapCode	; default task trap routine
+	    APTR	TaskExceptCode	; default task exception code
+	    APTR	TaskExitCode	; default task exit code
+	    ULONG	TaskSigAlloc	; preallocated signal mask
+	    UWORD	TaskTrapAlloc	; preallocated trap mask
+
+
+******* System List Headers ******************************************
+
+	    STRUCT	MemList,LH_SIZE
+	    STRUCT	ResourceList,LH_SIZE
+	    STRUCT	DeviceList,LH_SIZE
+	    STRUCT	IntrList,LH_SIZE
+	    STRUCT	LibList,LH_SIZE
+	    STRUCT	PortList,LH_SIZE
+	    STRUCT	TaskReady,LH_SIZE
+	    STRUCT	TaskWait,LH_SIZE
+
+	    STRUCT	SoftInts,SH_SIZE*5
+
+	    STRUCT	LastAlert,4*4
+
+
+	    ;------ these next two variables are provided to allow
+	    ;------ system developers to have a rough idea of the
+	    ;------ period of two externally controlled signals --
+	    ;------ the time between vertical blank interrupts and the
+	    ;------ external line rate (which is counted by CIA A's
+	    ;------ "time of day" clock).  In general these values
+	    ;------ will be 50 or 60, and may or may not track each
+	    ;------ other.  These values replace the obsolete AFB_PAL
+	    ;------ and AFB_50HZ flags.
+	    UBYTE	VBlankFrequency
+	    UBYTE	PowerSupplyFrequency
+
+	    STRUCT	SemaphoreList,LH_SIZE
+
+	    ;------ these next two are to be able to kickstart into user ram.
+	    ;------ KickMemPtr holds a singly linked list of MemLists which
+	    ;------ will be removed from the memory list via AllocAbs.	If
+	    ;------ all the AllocAbs's succeeded, then the KickTagPtr will
+	    ;------ be added to the rom tag list.
+	    APTR	KickMemPtr	; ptr to queue of mem lists
+	    APTR	KickTagPtr	; ptr to rom tag queue
+	    APTR	KickCheckSum	; checksum for mem and tags
+
+	    STRUCT	ExecBaseReserved,10
+	    STRUCT	ExecBaseNewReserved,20
+
+	    LABEL	SYSBASESIZE
+
+******* AttnFlags
+*  Processors and Co-processors:
+	BITDEF	AF,68010,0	; also set for 68020
+	BITDEF	AF,68020,1
+	BITDEF	AF,68881,4
+
+; These two bits used to be AFB_PAL and AFB_50HZ.  After some soul
+; searching we realized that they were misnomers, and the information
+; is now kept in VBlankFrequency and PowerSupplyFrequency above.
+; To find out what sort of video conversion is done, look in the
+; graphics subsytem.
+	BITDEF	AF,RESERVED8,8
+	BITDEF	AF,RESERVED9,9
+
+	ENDC	; EXEC_EXECBASE_I
diff --git a/AMOSPro Sources/includes/exec/execname.i b/AMOSPro Sources/includes/exec/execname.i
new file mode 100644
index 0000000..30a7dde
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/execname.i	
@@ -0,0 +1,18 @@
+	IFND	EXEC_EXECNAME_I
+EXEC_EXECNAME_I SET	1
+**
+**	$Filename: exec/execname.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+EXECNAME	macro
+		dc.b	'exec.library',0
+		ds.w	0
+		endm
+
+	ENDC	; EXEC_EXECNAME_I
diff --git a/AMOSPro Sources/includes/exec/initializers.i b/AMOSPro Sources/includes/exec/initializers.i
new file mode 100644
index 0000000..bbff0a2
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/initializers.i	
@@ -0,0 +1,54 @@
+	IFND	EXEC_INITIALIZERS_I
+EXEC_INITIALIZERS_I	SET	1
+**
+**	$Filename: exec/initializers.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+INITBYTE	MACRO	* &offset,&value
+		DC.B	$e0
+		DC.B	0
+		DC.W	\1
+		DC.B	\2
+		DC.B	0
+		ENDM
+
+INITWORD	MACRO	* &offset,&value
+		DC.B	$d0
+		DC.B	0
+		DC.W	\1
+		DC.W	\2
+		ENDM
+
+INITLONG	MACRO	* &offset,&value
+		DC.B	$c0
+		DC.B	0
+		DC.W	\1
+		DC.L	\2
+		ENDM
+      
+INITSTRUCT  MACRO   * &size,&offset,&value,&count
+	    DS.W    0
+	    IFC	    '\4',''
+COUNT\@	    SET	    0
+	    ENDC
+	    IFNC    '\4',''
+COUNT\@	    SET	    \4
+	    ENDC
+CMD\@	    SET	    (((\1)<<4)!COUNT\@)
+	    IFLE    (\2)-255
+	    DC.B    (CMD\@)!$80
+	    DC.B    \2
+	    MEXIT
+	    ENDC
+	    DC.B    CMD\@!$0C0
+	    DC.B    (((\2)>>16)&$0FF)
+	    DC.W    ((\2)&$0FFFF)
+	    ENDM
+
+	ENDC	; EXEC_INITIALIZERS_I
diff --git a/AMOSPro Sources/includes/exec/resident.i b/AMOSPro Sources/includes/exec/resident.i
new file mode 100644
index 0000000..1bcba86
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/resident.i	
@@ -0,0 +1,48 @@
+	IFND	EXEC_RESIDENT_I
+EXEC_RESIDENT_I SET	1
+**
+**	$Filename: exec/resident.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*----------------------------------------------------------------
+*
+*   Resident Module Tag
+*
+*----------------------------------------------------------------
+
+ STRUCTURE RT,0
+    UWORD RT_MATCHWORD			* word to match
+    APTR  RT_MATCHTAG			* pointer to structure base
+    APTR  RT_ENDSKIP			* address to continue scan 
+    UBYTE RT_FLAGS			* various tag flags
+    UBYTE RT_VERSION			* release version number
+    UBYTE RT_TYPE			* type of module
+    BYTE  RT_PRI			* initialization priority
+    APTR  RT_NAME			* pointer to node name
+    APTR  RT_IDSTRING			* pointer to id string
+    APTR  RT_INIT			* pointer to init code
+    LABEL RT_SIZE
+
+
+*------ Match word definition:
+
+RTC_MATCHWORD	EQU	$4AFC		* (ILLEGAL instruction)
+
+
+*------ RT_FLAGS bit and field definitions:
+
+    BITDEF RT,COLDSTART,0
+    BITDEF RT,AUTOINIT,7		* RT_INIT points to data
+
+* Compatibility:
+RTM_WHEN	EQU	1		* field position in RT_FLAGS
+RTW_NEVER	EQU	0		* never ever init
+RTW_COLDSTART	EQU	1		* init at coldstart time
+
+	ENDC	; EXEC_RESIDENT_I
diff --git a/AMOSPro Sources/includes/exec/strings.i b/AMOSPro Sources/includes/exec/strings.i
new file mode 100644
index 0000000..91346d5
--- /dev/null
+++ b/AMOSPro Sources/includes/exec/strings.i	
@@ -0,0 +1,59 @@
+	IFND	EXEC_STRINGS_I
+EXEC_STRINGS_I	SET	1
+**
+**	$Filename: exec/strings.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*------ Terminal Control:
+
+EOS		EQU	0
+BELL		EQU	7
+LF		EQU	10
+CR		EQU	13
+BS		EQU	8
+DEL		EQU	$7F
+NL		EQU	LF
+
+
+*----------------------------------------------------------------
+*
+*   String Support Macros
+*
+*----------------------------------------------------------------
+
+STRING	    MACRO
+	    DC.B    \1
+	    DC.B    0
+	    CNOP    0,2
+	    ENDM
+
+
+STRINGL	    MACRO
+	    DC.B    13,10
+	    DC.B    \1
+	    DC.B    0
+	    CNOP    0,2
+	    ENDM
+
+
+STRINGR	    MACRO
+	    DC.B    \1
+	    DC.B    13,10,0
+	    CNOP    0,2
+	    ENDM
+
+
+STRINGLR    MACRO
+	    DC.B    13,10
+	    DC.B    \1
+	    DC.B    13,10,0
+	    CNOP    0,2
+	    ENDM
+
+	ENDC	; EXEC_STRINGS_I
diff --git a/AMOSPro Sources/includes/graphics/display.i b/AMOSPro Sources/includes/graphics/display.i
new file mode 100644
index 0000000..3b4593e
--- /dev/null
+++ b/AMOSPro Sources/includes/graphics/display.i	
@@ -0,0 +1,40 @@
+	IFND	GRAPHICS_DISPLAY_I
+GRAPHICS_DISPLAY_I	SET	1
+**
+**	$Filename: graphics/display.i $
+**	$Release: 1.3 $
+**
+**	include define file for display control registers 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+* bplcon0 defines
+MODE_640    equ	  $8000
+PLNCNTMSK   equ	  $7		    * how many bit planes?
+*				    * 0 = none, 1->6 = 1->6, 7 = reserved
+PLNCNTSHFT  equ	  12		    * bits to shift for bplcon0
+PF2PRI	    equ	  $40		    * bplcon2 bit
+COLORON	    equ	  $0200		    * disable color burst
+DBLPF	    equ	  $400
+HOLDNMODIFY equ	  $800
+INTERLACE   equ	  4		    * interlace mode for 400
+
+* bplcon1 defines
+PFA_FINE_SCROLL	      equ   $F
+PFB_FINE_SCROLL_SHIFT equ   4
+PF_FINE_SCROLL_MASK   equ   $F
+
+* display window start and stop defines
+DIW_HORIZ_POS	      equ   $7F	    * horizontal start/stop
+DIW_VRTCL_POS	      equ   $1FF    * vertical start/stop
+DIW_VRTCL_POS_SHIFT   equ   7
+
+* Data fetch start/stop horizontal position
+DFTCH_MASK	      equ   $FF
+
+* vposr bits
+VPOSRLOF	      equ   $8000
+
+	ENDC	; GRAPHICS_DISPLAY_I
diff --git a/AMOSPro Sources/includes/graphics/gels.i b/AMOSPro Sources/includes/graphics/gels.i
new file mode 100644
index 0000000..2897380
--- /dev/null
+++ b/AMOSPro Sources/includes/graphics/gels.i	
@@ -0,0 +1,204 @@
+	IFND	GRAPHICS_GELS_I
+GRAPHICS_GELS_I SET	1
+**
+**	$Filename: graphics/gels.i $
+**	$Release: 1.3 $
+**
+**	include file for AMIGA GELS (Graphics Elements) 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*------ VS_vSflags ---------------------------------------------------
+
+*   ;-- user-set vSprite flags --
+SUSERFLAGS  EQU $00FF	      ; mask of all user-settable vSprite-flags
+    BITDEF  VS,VSPRITE,0      ; set if vSprite, clear if bob
+    BITDEF  VS,SAVEBACK,1     ; set if background is to be saved/restored
+    BITDEF  VS,OVERLAY,2      ; set to mask image of bob onto background
+    BITDEF  VS,MUSTDRAW,3     ; set if vSprite absolutely must be drawn
+*   ;-- system-set vSprite flags --
+    BITDEF  VS,BACKSAVED,8    ; this bob's background has been saved
+    BITDEF  VS,BOBUPDATE,9    ; temporary flag, useless to outside world
+    BITDEF  VS,GELGONE,10     ; set if gel is completely clipped (offscreen)
+    BITDEF  VS,VSOVERFLOW,11  ; vSprite overflow (if MUSTDRAW set we draw!)
+
+
+*------ B_flags ------------------------------------------------------
+*   ;-- these are the user flag bits --
+BUSERFLAGS  EQU $00FF	      ; mask of all user-settable bob-flags
+    BITDEF  B,SAVEBOB,0	      ; set to not erase bob
+    BITDEF  B,BOBISCOMP,1     ; set to identify bob as animComp
+*   ;-- these are the system flag bits --
+    BITDEF  B,BWAITING,8      ; set while bob is waiting on 'after'
+    BITDEF  B,BDRAWN,9	      ; set when bob is drawn this DrawG pass
+    BITDEF  B,BOBSAWAY,10     ; set to initiate removal of bob
+    BITDEF  B,BOBNIX,11	      ; set when bob is completely removed
+    BITDEF  B,SAVEPRESERVE,12 ; for back-restore during double-buffer
+    BITDEF  B,OUTSTEP,13      ; for double-clearing if double-buffer
+
+
+*------ defines for the animation procedures -------------------------
+
+ANFRACSIZE  EQU 6
+ANIMHALF    EQU $0020
+RINGTRIGGER EQU $0001
+
+*------ macros --------------------------------------------------------
+* these are GEL functions that are currently simple enough to exist as a
+* definition.  It should not be assumed that this will always be the case
+
+InitAnimate MACRO   * &animKey
+       CLR.L   \1
+       ENDM
+
+
+RemBob	    MACRO   * &b
+       OR.W    #BF_BOBSAWAY,b_BobFlags+\1
+       ENDM
+
+*------ VS : vSprite -------------------------------------------------
+ STRUCTURE  VS,0    ; vSprite
+*   -- SYSTEM VARIABLES --
+*   GEL linked list forward/backward pointers sorted by y,x value
+    APTR    vs_NextVSprite    ; struct *vSprite
+    APTR    vs_PrevVSprite    ; struct *vSprite
+*   GEL draw list constructed in the order the bobs are actually drawn, then
+*   list is copied to clear list
+*   must be here in vSprite for system boundary detection
+    APTR    vs_DrawPath	      ; struct *vSprite: pointer of overlay drawing
+    APTR    vs_ClearPath      ; struct *vSprite: pointer for overlay clearing
+*   the vSprite positions are defined in (y,x) order to make sorting
+*   sorting easier, since (y,x) as a long integer
+    WORD    vs_Oldy	      ; previous position
+    WORD    vs_Oldx	      ;
+*   -- COMMON VARIABLES --
+    WORD    vs_VSFlags	      ; vSprite flags
+*   -- USER VARIABLES --
+*    the vSprite positions are defined in (y,x) order to make sorting
+*    easier, since (y,x) as a long integer
+    WORD    vs_Y	      ; screen position
+    WORD    vs_X
+    WORD    vs_Height
+    WORD    vs_Width	      ; number of words per row of image data
+    WORD    vs_Depth	      ; number of planes of data
+    WORD    vs_MeMask	      ; which types can collide with this vSprite
+    WORD    vs_HitMask	      ; which types this vSprite can collide with
+    APTR    vs_ImageData      ; *WORD pointer to vSprite image
+*    borderLine is the one-dimensional logical OR of all
+*    the vSprite bits, used for fast collision detection of edge
+    APTR    vs_BorderLine     ; *WORD: logical OR of all vSprite bits
+    APTR    vs_CollMask	      ; *WORD: similar to above except this is a 
+*    matrix pointer to this vSprite's color definitions (not used by bobs)
+    APTR    vs_SprColors      ; *WORD
+    APTR    vs_VSBob	      ; struct *bob: points home if this vSprite is 
+			      ;	 part of a bob
+*    planePick flag:  set bit selects a plane from image, clear bit selects
+*	  use of shadow mask for that plane
+*    OnOff flag: if using shadow mask to fill plane, this bit (corresponding
+*	  to bit in planePick) describes whether to fill with 0's or 1's
+*    There are two uses for these flags:
+*	       - if this is the vSprite of a bob, these flags describe how 
+*		 the bob is to be drawn into memory
+*	       - if this is a simple vSprite and the user intends on setting 
+*		 the MUSTDRAW flag of the vSprite, these flags must be set 
+*		 too to describe which color registers the user wants for 
+*		 the image
+    BYTE    vs_PlanePick
+    BYTE    vs_PlaneOnOff
+    LABEL   vs_SUserExt	      ; user definable
+    LABEL   vs_SIZEOF
+
+
+*------ BOB : bob ------------------------------------------------------
+
+ STRUCTURE  BOB,0     ; bob: blitter object
+*   -- COMMON VARIABLES --
+    WORD    bob_BobFlags      ; general purpose flags (see definitions below)
+*   -- USER VARIABLES --
+    APTR    bob_SaveBuffer    ; *WORD pointer to the buffer for background 
+*    save used by bobs for "cookie-cutting" and multi-plane masking
+    APTR    bob_ImageShadow   ; *WORD
+*    pointer to BOBs for sequenced drawing of bobs
+*      for correct overlaying of multiple component animations
+    APTR    bob_Before	      ; struct *bob: draw this bob before bob pointed
+			      ; to by before
+    APTR    bob_After	      ; struct *bob: draw this bob after bob pointed
+			      ; to by after
+    APTR    bob_BobVSprite    ; struct *vSprite: this bob's vSprite definition
+    APTR    bob_BobComp	      ; struct *animComp: pointer to this bob's 
+			      ; animComp def
+    APTR    bob_DBuffer	      ; struct dBufPacket: pointer to this bob's 
+			      ; dBuf packet
+    LABEL   bob_BUserExt      ; bob user extension
+    LABEL   bob_SIZEOF
+
+*------ AC : animComp ------------------------------------------------
+
+ STRUCTURE  AC,0    ; animComp
+*   -- COMMON VARIABLES --
+    WORD    ac_CompFlags      ; animComp flags for system & user
+*    timer defines how long to keep this component active:
+*      if set non-zero, timer decrements to zero then switches to nextSeq
+*      if set to zero, animComp never switches
+    WORD    ac_Timer
+*   -- USER VARIABLES --
+*    initial value for timer when the animComp is activated by the system
+    WORD    ac_TimeSet
+*    pointer to next and previous components of animation object
+    APTR    ac_NextComp	      ; struct *animComp
+    APTR    ac_PrevComp	      ; struct *animComp
+*    pointer to component component definition of next image in sequence
+    APTR    ac_NextSeq	      ; struct *animComp
+    APTR    ac_PrevSeq	      ; struct *animComp
+    APTR    ac_AnimCRoutine   ; address of special animation procedure
+    WORD    ac_YTrans	      ; initial y translation (if this is a component)
+    WORD    ac_XTrans	      ; initial x translation (if this is a component)
+    APTR    ac_HeadOb	      ; struct *animOb
+    APTR    ac_AnimBob	      ; struct *bob
+    LABEL   ac_SIZE
+
+*------ AO : animOb --------------------------------------------------
+
+ STRUCTURE  AO,0    ; animOb
+*   -- SYSTEM VARIABLES --
+    APTR    ao_NextOb	      ; struct *animOb
+    APTR    ao_PrevOb	      ; struct *animOb
+*    number of calls to Animate this animOb has endured
+    LONG    ao_Clock
+    WORD    ao_AnOldY	      ; old y,x coordinates
+    WORD    ao_AnOldX	      ;
+*   -- COMMON VARIABLES --
+    WORD    ao_AnY	      ; y,x coordinates of the animOb
+    WORD    ao_AnX	      ;
+*   -- USER VARIABLES --
+    WORD    ao_YVel	      ; velocities of this object
+    WORD    ao_XVel	      ;
+    WORD    ao_XAccel	      ; accelerations of this object
+    WORD    ao_YAccel	      ;	  !!! backwards !!!
+    WORD    ao_RingYTrans     ; ring translation values
+    WORD    ao_RingXTrans     ;
+    APTR    ao_AnimORoutine   ; address of special animation procedure
+    APTR    ao_HeadComp	      ; struct *animComp: pointer to first component
+    LABEL   ao_AUserExt	      ; animOb user extension
+    LABEL   ao_SIZEOF
+
+
+*------ DBP : dBufPacket ---------------------------------------------
+* dBufPacket defines the values needed to be saved across buffer to buffer
+*   when in double-buffer mode
+
+ STRUCTURE  DBP,0	      ; dBufPacket
+    WORD    dbp_BufY	      ; save the other buffers screen coordinates
+    WORD    dbp_BufX	      ;
+    APTR    dbp_BufPath	      ; struct *vSprite: carry the draw path over
+			      ; the gap
+*    these pointers must be filled in by the user
+*    pointer to other buffer's background save buffer
+    APTR    dbp_BufBuffer     ; *WORD
+*    pointer to other buffer's background plane pointers
+    APTR    dbp_BufPlanes     ; **WORD
+    LABEL   dbp_SIZEOF
+
+	ENDC	; GRAPHICS_GELS_I
diff --git a/AMOSPro Sources/includes/graphics/gfxbase.i b/AMOSPro Sources/includes/graphics/gfxbase.i
new file mode 100644
index 0000000..c554570
--- /dev/null
+++ b/AMOSPro Sources/includes/graphics/gfxbase.i	
@@ -0,0 +1,78 @@
+	IFND	GRAPHICS_GFXBASE_I
+GRAPHICS_GFXBASE_I	SET	1
+**
+**	$Filename: graphics/gfxbase.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND    EXEC_LISTS_I
+    include "exec/lists.i"
+    ENDC
+    IFND    EXEC_LIBRARIES_I
+    include "exec/libraries.i"
+    ENDC
+    IFND    EXEC_INTERRUPTS_I
+    include "exec/interrupts.i"
+    ENDC
+
+ STRUCTURE  GfxBase,LIB_SIZE
+    APTR    gb_ActiView	    ; struct *View
+    APTR    gb_copinit	    ; struct *copinit; ptr to copper start up list
+    APTR    gb_cia	; for 6526 resource use
+    APTR    gb_blitter	    ; for blitter resource use
+    APTR    gb_LOFlist	    ; current copper list being run
+    APTR    gb_SHFlist	    ; current copper list being run
+    APTR    gb_blthd	    ; struct *bltnode
+    APTR    gb_blttl	    ;
+    APTR    gb_bsblthd	    ;
+    APTR    gb_bsblttl	    ;
+    STRUCT  gb_vbsrv,IS_SIZE
+    STRUCT  gb_timsrv,IS_SIZE
+    STRUCT  gb_bltsrv,IS_SIZE
+    STRUCT  gb_TextFonts,LH_SIZE
+    APTR    gb_DefaultFont
+    UWORD   gb_Modes	    ; copy of bltcon0
+    BYTE    gb_VBlank
+    BYTE    gb_Debug
+    UWORD   gb_BeamSync
+    WORD    gb_system_bplcon0
+    BYTE    gb_SpriteReserved
+    BYTE    gb_bytereserved
+
+    WORD    gb_Flags
+    WORD    gb_BlitLock
+	WORD	gb_BlitNest
+	STRUCT	gb_BlitWaitQ,LH_SIZE
+	APTR	gb_BlitOwner
+	STRUCT	gb_TOF_WaitQ,LH_SIZE
+
+	WORD	gb_DisplayFlags
+	APTR	gb_SimpleSprites
+	WORD	gb_MaxDisplayRow
+	WORD	gb_MaxDisplayColumn
+	WORD	gb_NormalDisplayRows
+	WORD	gb_NormalDisplayColumns
+	WORD	gb_NormalDPMX
+	WORD	gb_NormalDPMY
+
+	APTR	gb_LastChanceMemory
+	APTR	gb_LCMptr
+
+	WORD	gb_MicrosPerLine	; usecs per line times 256
+	WORD	gb_MinDisplayColumn
+
+    STRUCT  gb_reserved,92   ; bytes reserved for future use
+    LABEL   gb_SIZE
+
+* bits for dalestuff, which may go away when blitter becomes a resource
+OWNBLITTERn equ 0   * blitter owned bit
+QBOWNERn    equ 1   * blitter owned by blit queuer
+
+QBOWNER	    equ 1<<QBOWNERn
+
+	ENDC	; GRAPHICS_GFXBASE_I
diff --git a/AMOSPro Sources/includes/graphics/regions.i b/AMOSPro Sources/includes/graphics/regions.i
new file mode 100644
index 0000000..9a42570
--- /dev/null
+++ b/AMOSPro Sources/includes/graphics/regions.i	
@@ -0,0 +1,28 @@
+	IFND	GRAPHICS_REGIONS_I
+GRAPHICS_REGIONS_I	SET	1
+**
+**	$Filename: graphics/regions.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 GRAPHICS_GFX_I
+   include  "graphics/gfx.i"
+   ENDC
+
+    STRUCTURE	Region,0
+      STRUCT   rg_bounds,ra_SIZEOF
+      APTR  rg_RegionRectangle
+   LABEL    rg_SIZEOF
+
+   STRUCTURE   RegionRectangle,0
+      APTR  rr_Next
+      APTR  rr_Prev
+      STRUCT   rr_bounds,ra_SIZEOF
+   LABEL    rr_SIZEOF
+
+	ENDC	; GRAPHICS_REGIONS_I
diff --git a/AMOSPro Sources/includes/graphics/sprite.i b/AMOSPro Sources/includes/graphics/sprite.i
new file mode 100644
index 0000000..e76eb92
--- /dev/null
+++ b/AMOSPro Sources/includes/graphics/sprite.i	
@@ -0,0 +1,21 @@
+	IFND	GRAPHICS_SPRITE_I
+GRAPHICS_SPRITE_I	SET	1
+**
+**	$Filename: graphics/sprite.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   STRUCTURE   SimpleSprite,0
+   APTR	       ss_posctldata
+   WORD	       ss_height
+   WORD	       ss_x
+   WORD	       ss_y
+   WORD	       ss_num
+   LABEL       ss_SIZEOF
+
+	ENDC	; GRAPHICS_SPRITE_I
diff --git a/AMOSPro Sources/includes/hardware/adkbits.i b/AMOSPro Sources/includes/hardware/adkbits.i
new file mode 100644
index 0000000..d8fa7b1
--- /dev/null
+++ b/AMOSPro Sources/includes/hardware/adkbits.i	
@@ -0,0 +1,52 @@
+	IFND	HARDWARE_ADKBITS_I
+HARDWARE_ADKBITS_I	SET	1
+**
+**	$Filename: hardware/adkbits.i $
+**	$Release: 1.3 $
+**
+**	bit definitions for adkcon register 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+ADKB_SETCLR    EQU   15 ; standard set/clear bit
+ADKB_PRECOMP1  EQU   14 ; two bits of precompensation
+ADKB_PRECOMP0  EQU   13
+ADKB_MFMPREC   EQU   12 ; use mfm style precompensation
+ADKB_UARTBRK   EQU   11 ; force uart output to zero
+ADKB_WORDSYNC  EQU   10 ; enable DSKSYNC register matching
+ADKB_MSBSYNC   EQU   9	; (Apple GCR Only) sync on MSB for reading
+ADKB_FAST      EQU   8	; 1 -> 2 us/bit (mfm), 2 -> 4 us/bit (gcr)
+ADKB_USE3PN    EQU   7	; use aud chan 3 to modulate period of ??
+ADKB_USE2P3    EQU   6	; use aud chan 2 to modulate period of 3
+ADKB_USE1P2    EQU   5	; use aud chan 1 to modulate period of 2
+ADKB_USE0P1    EQU   4	; use aud chan 0 to modulate period of 1
+ADKB_USE3VN    EQU   3	; use aud chan 3 to modulate volume of ??
+ADKB_USE2V3    EQU   2	; use aud chan 2 to modulate volume of 3
+ADKB_USE1V2    EQU   1	; use aud chan 1 to modulate volume of 2
+ADKB_USE0V1    EQU   0	; use aud chan 0 to modulate volume of 1
+
+ADKF_SETCLR    EQU   (1<<15)
+ADKF_PRECOMP1  EQU   (1<<14)
+ADKF_PRECOMP0  EQU   (1<<13)
+ADKF_MFMPREC   EQU   (1<<12)
+ADKF_UARTBRK   EQU   (1<<11)
+ADKF_WORDSYNC  EQU   (1<<10)
+ADKF_MSBSYNC   EQU   (1<<9)
+ADKF_FAST      EQU   (1<<8)
+ADKF_USE3PN    EQU   (1<<7)
+ADKF_USE2P3    EQU   (1<<6)
+ADKF_USE1P2    EQU   (1<<5)
+ADKF_USE0P1    EQU   (1<<4)
+ADKF_USE3VN    EQU   (1<<3)
+ADKF_USE2V3    EQU   (1<<2)
+ADKF_USE1V2    EQU   (1<<1)
+ADKF_USE0V1    EQU   (1<<0)
+
+ADKF_PRE000NS  EQU   0			     ; 000 ns of precomp
+ADKF_PRE140NS  EQU   (ADKF_PRECOMP0)	     ; 140 ns of precomp
+ADKF_PRE280NS  EQU   (ADKF_PRECOMP1)	     ; 280 ns of precomp
+ADKF_PRE560NS  EQU   (ADKF_PRECOMP0!ADKF_PRECOMP1) ; 560 ns of precomp
+
+	ENDC	; HARDWARE_ADKBITS_I
diff --git a/AMOSPro Sources/includes/hardware/blit.i b/AMOSPro Sources/includes/hardware/blit.i
new file mode 100644
index 0000000..f08277a
--- /dev/null
+++ b/AMOSPro Sources/includes/hardware/blit.i	
@@ -0,0 +1,88 @@
+	IFND	HARDWARE_BLIT_I
+HARDWARE_BLIT_I SET	1
+**
+**	$Filename: hardware/blit.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   STRUCTURE bltnode,0
+   LONG	 bn_n
+   LONG	 bn_function
+   BYTE	 bn_stat
+   BYTE	 bn_dummy
+   WORD	 bn_blitsize
+   WORD	 bn_beamsync
+   LONG	 bn_cleanup
+   LABEL bn_SIZEOF
+
+* bit defines used by blit queuer
+CLEANMEn    equ 6
+CLEANME	    equ 1<<CLEANMEn
+
+* include file for blitter */
+HSIZEBITS   equ	  6
+VSIZEBITS   equ	  16-HSIZEBITS
+HSIZEMASK   equ	  $3f	      /* 2^6 -- 1 */
+VSIZEMASK   equ	  $3FF	      /* 2^10 - 1 */
+
+MAXBYTESPERROW EQU   128
+
+* definitions for blitter control register 0 */
+
+ABC	    equ	  $80
+ABNC	    equ	  $40
+ANBC	    equ	  $20
+ANBNC	    equ	  $10
+NABC	    equ	  $8
+NABNC	    equ	  $4
+NANBC	    equ	  $2
+NANBNC	    equ	  $1
+
+BC0B_DEST   equ	    8 
+BC0B_SRCC   equ	    9 
+BC0B_SRCB   equ	    10 
+BC0B_SRCA   equ	    11 
+BC0F_DEST   equ	  $100
+BC0F_SRCC   equ	  $200
+BC0F_SRCB   equ	  $400
+BC0F_SRCA   equ	  $800
+
+BC1F_DESC   equ 2
+
+DEST	    equ	  $100
+SRCC	    equ	  $200
+SRCB	    equ	  $400
+SRCA	    equ	  $800
+
+ASHIFTSHIFT equ	  12 /* bits to right align ashift value */
+BSHIFTSHIFT equ	  12 /* bits to right align bshift value */
+
+* definations for blitter control register 1 */
+LINEMODE    equ	  $1
+FILL_OR	    equ	  $8
+FILL_XOR    equ	  $10
+FILL_CARRYIN   equ   $4
+ONEDOT	    equ	  $2
+OVFLAG	    equ	  $20
+SIGNFLAG    equ	  $40
+BLITREVERSE equ	  $2
+
+SUD	    equ	  $10
+SUL	    equ	  $8
+AUL	    equ	  $4
+
+OCTANT8	    equ	  24
+OCTANT7	    equ	  4
+OCTANT6	    equ	  12
+OCTANT5	    equ	  28
+OCTANT4	    equ	  20
+OCTANT3	    equ	  8
+OCTANT2	    equ	  0
+OCTANT1	    equ	  16
+
+	ENDC	; HARDWARE_BLIT_I
diff --git a/AMOSPro Sources/includes/hardware/cia.i b/AMOSPro Sources/includes/hardware/cia.i
new file mode 100644
index 0000000..1aefb73
--- /dev/null
+++ b/AMOSPro Sources/includes/hardware/cia.i	
@@ -0,0 +1,173 @@
+	IFND	HARDWARE_CIA_I
+HARDWARE_CIA_I	SET	1
+**
+**	$Filename: hardware/cia.i $
+**	$Release: 1.3 $
+**
+**	registers and bits in the Complex Interface Adapter (CIA) chip 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*
+* _ciaa is on an ODD address (e.g. the low byte) -- $bfe001
+* _ciab is on an EVEN address (e.g. the high byte) -- $bfd000
+*
+* do this to get the definitions:
+*    XREF _ciaa
+*    XREF _ciab
+*
+
+
+* cia register offsets
+ciapra		  EQU	$0000
+ciaprb		  EQU	$0100
+ciaddra		  EQU	$0200
+ciaddrb		  EQU	$0300
+ciatalo		  EQU	$0400
+ciatahi		  EQU	$0500
+ciatblo		  EQU	$0600
+ciatbhi		  EQU	$0700
+ciatodlow	  EQU	$0800
+ciatodmid	  EQU	$0900
+ciatodhi	  EQU	$0A00
+ciasdr		  EQU	$0C00
+ciaicr		  EQU	$0D00
+ciacra		  EQU	$0E00
+ciacrb		  EQU	$0F00
+
+* interrupt control register bit numbers
+CIAICRB_TA	  EQU	0
+CIAICRB_TB	  EQU	1
+CIAICRB_ALRM	  EQU	2
+CIAICRB_SP	  EQU	3
+CIAICRB_FLG	  EQU	4
+CIAICRB_IR	  EQU	7
+CIAICRB_SETCLR	  EQU	7
+
+* control register A bit numbers
+CIACRAB_START	  EQU	0
+CIACRAB_PBON	  EQU	1
+CIACRAB_OUTMODE	  EQU	2
+CIACRAB_RUNMODE	  EQU	3
+CIACRAB_LOAD	  EQU	4
+CIACRAB_INMODE	  EQU	5
+CIACRAB_SPMODE	  EQU	6
+CIACRAB_TODIN	  EQU	7
+
+* control register B bit numbers
+CIACRBB_START	  EQU	0
+CIACRBB_PBON	  EQU	1
+CIACRBB_OUTMODE	  EQU	2
+CIACRBB_RUNMODE	  EQU	3
+CIACRBB_LOAD	  EQU	4
+CIACRBB_INMODE0	  EQU	5
+CIACRBB_INMODE1	  EQU	6
+CIACRBB_ALARM	  EQU	7
+ 
+* interrupt control register bit masks
+CIAICRF_TA	  EQU	(1<<0)
+CIAICRF_TB	  EQU	(1<<1)
+CIAICRF_ALRM	  EQU	(1<<2)
+CIAICRF_SP	  EQU	(1<<3)
+CIAICRF_FLG	  EQU	(1<<4)
+CIAICRF_IR	  EQU	(1<<7)
+CIAICRF_SETCLR	  EQU	(1<<7)
+
+* control register A bit masks
+CIACRAF_START	  EQU	(1<<0)
+CIACRAF_PBON	  EQU	(1<<1)
+CIACRAF_OUTMODE	  EQU	(1<<2)
+CIACRAF_RUNMODE	  EQU	(1<<3)
+CIACRAF_LOAD	  EQU	(1<<4)
+CIACRAF_INMODE	  EQU	(1<<5)
+CIACRAF_SPMODE	  EQU	(1<<6)
+CIACRAF_TODIN	  EQU	(1<<7)
+
+* control register B bit masks
+CIACRBF_START	  EQU	(1<<0)
+CIACRBF_PBON	  EQU	(1<<1)
+CIACRBF_OUTMODE	  EQU	(1<<2)
+CIACRBF_RUNMODE	  EQU	(1<<3)
+CIACRBF_LOAD	  EQU	(1<<4)
+CIACRBF_INMODE0	  EQU	(1<<5)
+CIACRBF_INMODE1	  EQU	(1<<6)
+CIACRBF_ALARM	  EQU	(1<<7)
+ 
+* control register B INMODE masks
+CIACRBF_IN_PHI2	  EQU	0
+CIACRBF_IN_CNT	  EQU	(CIACRBF_INMODE0)
+CIACRBF_IN_TA	  EQU	(CIACRBF_INMODE1)
+CIACRBF_IN_CNT_TA EQU	(CIACRBF_INMODE0!CIACRBF_INMODE1)
+
+
+*
+* Port definitions -- what each bit in a cia peripheral register is tied to
+*
+
+* ciaa port A (0xbfe001)
+CIAB_GAMEPORT1	  EQU	(7)   * gameport 1, pin 6 (fire button*)
+CIAB_GAMEPORT0	  EQU	(6)   * gameport 0, pin 6 (fire button*)
+CIAB_DSKRDY	  EQU	(5)   * disk ready*
+CIAB_DSKTRACK0	  EQU	(4)   * disk on track 00*
+CIAB_DSKPROT	  EQU	(3)   * disk write protect*
+CIAB_DSKCHANGE	  EQU	(2)   * disk change*
+CIAB_LED	  EQU	(1)   * led light control (0==>bright)
+CIAB_OVERLAY	  EQU	(0)   * memory overlay bit
+
+* ciaa port B (0xbfe101) -- parallel port
+
+* ciab port A (0xbfd000) -- serial and printer control
+CIAB_COMDTR	  EQU	(7)   * serial Data Terminal Ready*
+CIAB_COMRTS	  EQU	(6)   * serial Request to Send*
+CIAB_COMCD	  EQU	(5)   * serial Carrier Detect*
+CIAB_COMCTS	  EQU	(4)   * serial Clear to Send*
+CIAB_COMDSR	  EQU	(3)   * serial Data Set Ready*
+CIAB_PRTRSEL	  EQU	(2)   * printer SELECT
+CIAB_PRTRPOUT	  EQU	(1)   * printer paper out
+CIAB_PRTRBUSY	  EQU	(0)   * printer busy
+
+* ciab port B (0xbfd100) -- disk control
+CIAB_DSKMOTOR	  EQU	(7)   * disk motorr*
+CIAB_DSKSEL3	  EQU	(6)   * disk select unit 3*
+CIAB_DSKSEL2	  EQU	(5)   * disk select unit 2*
+CIAB_DSKSEL1	  EQU	(4)   * disk select unit 1*
+CIAB_DSKSEL0	  EQU	(3)   * disk select unit 0*
+CIAB_DSKSIDE	  EQU	(2)   * disk side select*
+CIAB_DSKDIREC	  EQU	(1)   * disk direction of seek*
+CIAB_DSKSTEP	  EQU	(0)   * disk step heads*
+
+* ciaa port A (0xbfe001)
+CIAF_GAMEPORT1	  EQU	(1<<7)
+CIAF_GAMEPORT0	  EQU	(1<<6)
+CIAF_DSKRDY	  EQU	(1<<5)
+CIAF_DSKTRACK0	  EQU	(1<<4)
+CIAF_DSKPROT	  EQU	(1<<3)
+CIAF_DSKCHANGE	  EQU	(1<<2)
+CIAF_LED	  EQU	(1<<1)
+CIAF_OVERLAY	  EQU	(1<<0)
+
+* ciaa port B (0xbfe101) -- parallel port
+
+* ciab port A (0xbfd000) -- serial and printer control
+CIAF_COMDTR	  EQU	(1<<7)
+CIAF_COMRTS	  EQU	(1<<6)
+CIAF_COMCD	  EQU	(1<<5)
+CIAF_COMCTS	  EQU	(1<<4)
+CIAF_COMDSR	  EQU	(1<<3)
+CIAF_PRTRSEL	  EQU	(1<<2)
+CIAF_PRTRPOUT	  EQU	(1<<1)
+CIAF_PRTRBUSY	  EQU	(1<<0)
+
+* ciab port B (0xbfd100) -- disk control
+CIAF_DSKMOTOR	  EQU	(1<<7)
+CIAF_DSKSEL3	  EQU	(1<<6)
+CIAF_DSKSEL2	  EQU	(1<<5)
+CIAF_DSKSEL1	  EQU	(1<<4)
+CIAF_DSKSEL0	  EQU	(1<<3)
+CIAF_DSKSIDE	  EQU	(1<<2)
+CIAF_DSKDIREC	  EQU	(1<<1)
+CIAF_DSKSTEP	  EQU	(1<<0)
+
+	ENDC	; HARDWARE_CIA_I
diff --git a/AMOSPro Sources/includes/hardware/custom.i b/AMOSPro Sources/includes/hardware/custom.i
new file mode 100644
index 0000000..4f8a246
--- /dev/null
+++ b/AMOSPro Sources/includes/hardware/custom.i	
@@ -0,0 +1,123 @@
+	IFND	HARDWARE_CUSTOM_I
+HARDWARE_CUSTOM_I	SET	1
+**
+**	$Filename: hardware/custom.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*
+* do this to get base of custom registers:
+*  XREF _custom;
+*
+
+bltddat	    EQU	  $000
+dmaconr	    EQU	  $002
+vposr	    EQU	  $004
+vhposr	    EQU	  $006
+dskdatr	    EQU	  $008
+joy0dat	    EQU	  $00A
+joy1dat	    EQU	  $00C
+clxdat	    EQU	  $00E
+
+adkconr	    EQU	  $010
+pot0dat	    EQU	  $012
+pot1dat	    EQU	  $014
+potinp	    EQU	  $016
+serdatr	    EQU	  $018
+dskbytr	    EQU	  $01A
+intenar	    EQU	  $01C
+intreqr	    EQU	  $01E
+
+dskpt	    EQU	  $020
+dsklen	    EQU	  $024
+dskdat	    EQU	  $026
+refptr	    EQU	  $028
+vposw	    EQU	  $02A
+vhposw	    EQU	  $02C
+copcon	    EQU	  $02E
+serdat	    EQU	  $030
+serper	    EQU	  $032
+potgo	    EQU	  $034
+joytest	    EQU	  $036
+strequ	    EQU	  $038
+strvbl	    EQU	  $03A
+strhor	    EQU	  $03C
+strlong	    EQU	  $03E
+
+bltcon0	    EQU	  $040
+bltcon1	    EQU	  $042
+bltafwm	    EQU	  $044
+bltalwm	    EQU	  $046
+bltcpt	    EQU	  $048
+bltbpt	    EQU	  $04C
+bltapt	    EQU	  $050
+bltdpt	    EQU	  $054
+bltsize	    EQU	  $058
+
+bltcmod	    EQU	  $060
+bltbmod	    EQU	  $062
+bltamod	    EQU	  $064
+bltdmod	    EQU	  $066
+
+bltcdat	    EQU	  $070
+bltbdat	    EQU	  $072
+bltadat	    EQU	  $074
+
+dsksync	    EQU	  $07E
+
+cop1lc	    EQU	  $080
+cop2lc	    EQU	  $084
+copjmp1	    EQU	  $088
+copjmp2	    EQU	  $08A
+copins	    EQU	  $08C
+diwstrt	    EQU	  $08E
+diwstop	    EQU	  $090
+ddfstrt	    EQU	  $092
+ddfstop	    EQU	  $094
+dmacon	    EQU	  $096
+clxcon	    EQU	  $098
+intena	    EQU	  $09A
+intreq	    EQU	  $09C
+adkcon	    EQU	  $09E
+
+aud	    EQU	  $0A0
+aud0	    EQU	  $0A0
+aud1	    EQU	  $0B0
+aud2	    EQU	  $0C0
+aud3	    EQU	  $0D0
+
+* STRUCTURE AudChannel,0
+ac_ptr	    EQU	  $00	; ptr to start of waveform data
+ac_len	    EQU	  $04	; length of waveform in words
+ac_per	    EQU	  $06	; sample period
+ac_vol	    EQU	  $08	; volume
+ac_dat	    EQU	  $0A	; sample pair
+ac_SIZEOF   EQU	  $10
+
+bplpt	    EQU	  $0E0
+
+bplcon0	    EQU	  $100
+bplcon1	    EQU	  $102
+bplcon2	    EQU	  $104
+bpl1mod	    EQU	  $108
+bpl2mod	    EQU	  $10A
+
+bpldat	    EQU	  $110
+
+sprpt	    EQU	  $120
+
+spr	    EQU	  $140
+* STRUCTURE SpriteDef
+sd_pos	    EQU	  $00
+sd_ctl	    EQU	  $02
+sd_dataa    EQU	  $04
+sd_datab    EQU	  $08
+
+color	    EQU	  $180
+
+	ENDC	; HARDWARE_CUSTOM_I
diff --git a/AMOSPro Sources/includes/hardware/dmabits.i b/AMOSPro Sources/includes/hardware/dmabits.i
new file mode 100644
index 0000000..77adcca
--- /dev/null
+++ b/AMOSPro Sources/includes/hardware/dmabits.i	
@@ -0,0 +1,49 @@
+	IFND	HARDWARE_DMABITS_I
+HARDWARE_DMABITS_I	SET	1
+**
+**	$Filename: hardware/dmabits.i $
+**	$Release: 1.3 $
+**
+**	include file for defining dma control stuff 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+* write definitions for dmaconw
+DMAF_SETCLR    EQU   $8000
+DMAF_AUDIO     EQU   $000F  * 4 bit mask
+DMAF_AUD0      EQU   $0001
+DMAF_AUD1      EQU   $0002
+DMAF_AUD2      EQU   $0004
+DMAF_AUD3      EQU   $0008
+DMAF_DISK      EQU   $0010
+DMAF_SPRITE    EQU   $0020
+DMAF_BLITTER   EQU   $0040
+DMAF_COPPER    EQU   $0080
+DMAF_RASTER    EQU   $0100
+DMAF_MASTER    EQU   $0200
+DMAF_BLITHOG   EQU   $0400
+DMAF_ALL       EQU   $01FF  * all dma channels
+
+* read definitions for dmaconr
+* bits 0-8 correspnd to dmaconw definitions
+DMAF_BLTDONE   EQU   $4000
+DMAF_BLTNZERO  EQU   $2000
+
+DMAB_SETCLR    EQU   15
+DMAB_AUD0      EQU   0
+DMAB_AUD1      EQU   1
+DMAB_AUD2      EQU   2
+DMAB_AUD3      EQU   3
+DMAB_DISK      EQU   4
+DMAB_SPRITE    EQU   5
+DMAB_BLITTER   EQU   6
+DMAB_COPPER    EQU   7
+DMAB_RASTER    EQU   8
+DMAB_MASTER    EQU   9
+DMAB_BLITHOG   EQU   10
+DMAB_BLTDONE   EQU   14
+DMAB_BLTNZERO  EQU   13
+
+	ENDC	; HARDWARE_DMABITS_I
diff --git a/AMOSPro Sources/includes/libraries/.fastdir b/AMOSPro Sources/includes/libraries/.fastdir
new file mode 100644
index 0000000..d26ed0b
Binary files /dev/null and b/AMOSPro Sources/includes/libraries/.fastdir differ
diff --git a/AMOSPro Sources/includes/libraries/configregs.i b/AMOSPro Sources/includes/libraries/configregs.i
new file mode 100644
index 0000000..df783a0
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/configregs.i	
@@ -0,0 +1,192 @@
+	IFND	LIBRARIES_CONFIGREGS_I
+LIBRARIES_CONFIGREGS_I	SET	1
+**
+**	$Filename: libraries/configregs.i $
+**	$Release: 1.3 $
+**
+**	register and bit definitions for expansion boards 
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+** Expansion boards are actually organized such that only one nibble per
+** word (16 bits) are valid information.  This table is structured
+** as LOGICAL information.  This means that it never corresponds
+** exactly with a physical implementation.
+**
+** The expansion space is logically split into two regions:
+** a rom portion and a control portion.	 The rom portion is
+** actually stored in one's complement form (except for the
+** er_type field).
+
+
+ STRUCTURE ExpansionRom,0
+    UBYTE	er_Type
+    UBYTE	er_Product
+    UBYTE	er_Flags
+    UBYTE	er_Reserved03
+    UWORD	er_Manufacturer
+    ULONG	er_SerialNumber
+    UWORD	er_InitDiagVec
+    UBYTE	er_Reserved0c
+    UBYTE	er_Reserved0d
+    UBYTE	er_Reserved0e
+    UBYTE	er_Reserved0f
+    LABEL	ExpansionRom_SIZEOF
+
+ STRUCTURE ExpansionControl,0
+    UBYTE	ec_Interrupt		; interrupt control register
+    UBYTE	ec_Reserved11
+    UBYTE	ec_BaseAddress		; set new config address
+    UBYTE	ec_Shutup		; don't respond, pass config out
+    UBYTE	ec_Reserved14
+    UBYTE	ec_Reserved15
+    UBYTE	ec_Reserved16
+    UBYTE	ec_Reserved17
+    UBYTE	ec_Reserved18
+    UBYTE	ec_Reserved19
+    UBYTE	ec_Reserved1a
+    UBYTE	ec_Reserved1b
+    UBYTE	ec_Reserved1c
+    UBYTE	ec_Reserved1d
+    UBYTE	ec_Reserved1e
+    UBYTE	ec_Reserved1f
+    LABEL	ExpansionControl_SIZEOF
+
+**
+** many of the constants below consist of a triplet of equivalent
+** definitions: xxMASK is a bit mask of those bits that matter.
+** xxBIT is the starting bit number of the field.  xxSIZE is the
+** number of bits that make up the definition.	This method is
+** used when the field is larger than one bit.
+**
+** If the field is only one bit wide then the xxB_xx and xxF_xx convention
+** is used (xxB_xx is the bit number, and xxF_xx is mask of the bit).
+**
+
+** manifest constants */
+E_SLOTSIZE		EQU	$10000
+E_SLOTMASK		EQU	$ffff
+E_SLOTSHIFT		EQU	16
+
+** these define the two free regions of Zorro memory space.
+** THESE MAY WELL CHANGE FOR FUTURE PRODUCTS!
+E_EXPANSIONBASE		EQU	$e80000
+E_EXPANSIONSIZE		EQU	$080000
+E_EXPANSIONSLOTS	EQU	8
+
+E_MEMORYBASE		EQU	$200000
+E_MEMORYSIZE		EQU	$800000
+E_MEMORYSLOTS		EQU	128
+
+
+
+******* ec_Type definitions */
+
+** board type -- ignore "old style" boards */
+ERT_TYPEMASK		EQU	$c0
+ERT_TYPEBIT		EQU	6
+ERT_TYPESIZE		EQU	2
+ERT_NEWBOARD		EQU	$c0
+
+
+** type field memory size */
+ERT_MEMMASK		EQU	$07
+ERT_MEMBIT		EQU	0
+ERT_MEMSIZE		EQU	3
+
+
+** other bits defined in type field */
+	BITDEF	ERT,CHAINEDCONFIG,3
+	BITDEF	ERT,DIAGVALID,4
+	BITDEF	ERT,MEMLIST,5
+
+
+** er_Flags byte -- for those things that didn't fit into the type byte */
+	BITDEF	ERF,MEMSPACE,7		; wants to be in 8 meg space.  Also
+					;     implies that board is moveable
+	BITDEF	ERF,NOSHUTUP,6		; board can't be shut up.  Must not
+					;     be a board.  Must be a box that
+					;     does not pass on the bus.
+
+
+** interrupt control register */
+	BITDEF	ECI,INTENA,1
+	BITDEF	ECI,RESET,3
+	BITDEF	ECI,INT2PEND,4
+	BITDEF	ECI,INT6PEND,5
+	BITDEF	ECI,INT7PEND,6
+	BITDEF	ECI,INTERRUPTING,7
+
+
+**************************************************************************
+**
+** these are the specifications for the diagnostic area.  If the Diagnostic
+** Address Valid bit is set in the Board Type byte (the first byte in
+** expansion space) then the Diag Init vector contains a valid offset.
+**
+** The Diag Init vector is actually a word offset from the base of the
+** board.  The resulting address points to the base of the DiagArea
+** structure.  The structure may be physically implemented either four,
+** eight, or sixteen bits wide.	 The code will be copied out into
+** ram first before being called.
+**
+** The da_Size field, and both code offsets (da_DiagPoint and da_BootPoint)
+** are offsets from the diag area AFTER it has been copied into ram, and
+** "de-nibbleized" (if needed).	 Inotherwords, the size is the size of
+** the actual information, not how much address space is required to
+** store it.
+**
+** All bits are encoded with uninverted logic (e.g. 5 volts on the bus
+** is a logic one).
+**
+** If your board is to make use of the boot facility then it must leave
+** its config area available even after it has been configured.	 Your
+** boot vector will be called AFTER your board's final address has been
+** set.
+**
+**************************************************************************
+
+ STRUCTURE DiagArea,0
+    UBYTE	da_Config	; see below for definitions
+    UBYTE	da_Flags	; see below for definitions
+    UWORD	da_Size		; the size (in bytes) of the total diag area
+    UWORD	da_DiagPoint	; where to start for diagnostics, or zero
+    UWORD	da_BootPoint	; where to start for booting
+    UWORD	da_Name		; offset in diag area where a string
+				;   identifier can be found (or zero if no
+				;   identifier is present).
+
+    UWORD	da_Reserved01	; two words of reserved data.  must be zero.
+    UWORD	da_Reserved02
+    LABEL	DiagArea_SIZEOF
+
+; da_Config definitions
+DAC_BUSWIDTH	EQU	$C0	; two bits for bus width
+DAC_NIBBLEWIDE	EQU	$00
+DAC_BYTEWIDE	EQU	$40
+DAC_WORDWIDE	EQU	$80
+
+DAC_BOOTTIME	EQU	$30	; two bits for when to boot
+DAC_NEVER	EQU	$00	; obvious
+DAC_CONFIGTIME	EQU	$10	; call da_BootPoint when first configing the
+				;   the device
+DAC_BINDTIME	EQU	$20	; run when binding drivers to boards
+
+**
+** These are the calling conventions for Diag or Boot area
+**
+** A7 -- points to at least 2K of stack
+** A6 -- ExecBase
+** A5 -- ExpansionBase
+** A3 -- your board's ConfigDev structure
+** A2 -- Base of diag/init area that was copied
+** A0 -- Base of your board
+**
+** Your board should return a value in D0.  If this value is NULL, then
+** the diag/init area that was copied in will be returned to the free
+** memory pool.
+**
+
+	ENDC	; LIBRARIES_CONFIGREGS_I
diff --git a/AMOSPro Sources/includes/libraries/configvars.i b/AMOSPro Sources/includes/libraries/configvars.i
new file mode 100644
index 0000000..f900ee8
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/configvars.i	
@@ -0,0 +1,48 @@
+	IFND	LIBRARIES_CONFIGVARS_I
+LIBRARIES_CONFIGVARS_I	SET	1
+**
+**	$Filename: libraries/configvars.i $
+**	$Release: 1.3 $
+**
+**	software structures for configuration subsystem 
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_NODES_I
+	INCLUDE "exec/nodes.i"
+	ENDC	; EXEC_NODES_I
+
+	IFND	LIBRARIES_CONFIGREGS_I
+	INCLUDE "libraries/configregs.i"
+	ENDC	; LIBRARIES_CONFIGREGS_I
+
+
+ STRUCTURE ConfigDev,0
+    STRUCT	cd_Node,LN_SIZE
+    UBYTE	cd_Flags
+    UBYTE	cd_Pad
+    STRUCT	cd_Rom,ExpansionRom_SIZEOF ; copy of boards config rom
+    APTR	cd_BoardAddr	; where in memory the board is
+    APTR	cd_BoardSize	; size in bytes
+    UWORD	cd_SlotAddr	; which slot number
+    UWORD	cd_SlotSize	; number of slots the board takes
+    APTR	cd_Driver	; pointer to node of driver
+    APTR	cd_NextCD	; linked list of drivers to config
+    STRUCT	cd_Unused,4*4	; for whatever the driver whats
+    LABEL	ConfigDev_SIZEOF
+
+; cd_Flags
+	BITDEF	CD,SHUTUP,0	; this board has been shut up
+	BITDEF	CD,CONFIGME,1	; this board needs a driver to claim it
+
+; this structure is used by GetCurrentBinding() and SetCurrentBinding()
+ STRUCTURE CurrentBinding,0
+    APTR	cb_ConfigDev
+    APTR	cb_FileName
+    APTR	cb_ProductString
+    APTR	cb_ToolTypes
+    LABEL	CurrentBinding_SIZEOF
+
+	ENDC	; LIBRARIES_CONFIGVARS_I
diff --git a/AMOSPro Sources/includes/libraries/diskfont.i b/AMOSPro Sources/includes/libraries/diskfont.i
new file mode 100644
index 0000000..0f01f65
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/diskfont.i	
@@ -0,0 +1,72 @@
+	IFND	LIBRARIES_DISKFONT_I
+LIBRARIES_DISKFONT_I	SET	1
+**
+**	$Filename: libraries/diskfont.i $
+**	$Release: 1.3 $
+**
+**	diskfont library definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	    EXEC_NODES_I
+   INCLUDE     "exec/nodes.i"
+   ENDC
+   IFND	    EXEC_LISTS_I
+   INCLUDE     "exec/lists.i"
+   ENDC
+   IFND	    GRAPHICS_TEXT_I
+   INCLUDE     "graphics/text.i"
+   ENDC
+
+MAXFONTPATH EQU	  256	; including null terminator
+
+ STRUCTURE  FC,0
+   STRUCT   fc_FileName,MAXFONTPATH
+   UWORD fc_YSize
+   UBYTE fc_Style
+   UBYTE fc_Flags
+   LABEL fc_SIZEOF
+
+FCH_ID	    EQU	  $0f00
+
+ STRUCTURE  FCH,0
+   UWORD fch_FileID  ; FCH_ID
+   UWORD fch_NumEntries ; the number of FontContents elements
+   LABEL fch_FC	     ; the FontContents elements
+
+
+DFH_ID	    EQU	  $0f80
+MAXFONTNAME EQU	  32 ; font name including ".font\0"
+
+ STRUCTURE  DiskFontHeader,0
+    ; the following 8 bytes are not actually considered a part of the
+    ; DiskFontHeader, but immediately preceed it.  The NextSegment is supplied
+    ; by the linker/loader, and the ReturnCode is the code at the beginning
+    ; of the font in case someone runs it...
+    ; ULONG dfh_NextSegment   ; actually a BPTR
+    ; ULONG dfh_ReturnCode    ; MOVEQ #0,D0 : RTS
+    ; here then is the official start of the DiskFontHeader...
+   STRUCT   dfh_DF,LN_SIZE    ; node to link disk fonts
+   UWORD dfh_FileID	      ; DFH_ID
+   UWORD dfh_Revision	      ; the font revision in this version
+   LONG	 dfh_Segment	      ; the segment address when loaded
+   STRUCT   dfh_Name,MAXFONTNAME ; the font name (null terminated)
+   STRUCT   dfh_TF,tf_SIZEOF  ; loaded TextFont structure
+   LABEL dfh_SIZEOF
+
+
+   BITDEF   AF,MEMORY,0
+   BITDEF   AF,DISK,1
+
+ STRUCTURE  AF,0
+   UWORD af_Type	; MEMORY or DISK
+   STRUCT   af_Attr,ta_SIZEOF ; text attributes for font
+   LABEL af_SIZEOF
+
+ STRUCTURE  AFH,0
+   UWORD afh_NumEntries	   ; number of AvailFonts elements
+   LABEL afh_AF		; the AvailFonts elements
+
+	ENDC	; LIBRARIES_DISKFONT_I
diff --git a/AMOSPro Sources/includes/libraries/dos_lib.i b/AMOSPro Sources/includes/libraries/dos_lib.i
new file mode 100644
index 0000000..44a99ba
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/dos_lib.i	
@@ -0,0 +1,57 @@
+	IFND	LIBRARIES_DOS_LIB_I
+LIBRARIES_DOS_LIB_I	SET	1
+**
+**	$Filename: libraries/dos_lib.i $
+**	$Release: 1.3 $
+**
+**	Library interface offsets for DOS library 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+reserve EQU	4
+vsize	EQU	6
+count	SET	-vsize*(reserve+1)
+LIBENT	MACRO
+_LVO\1	EQU	count
+count	SET	count-vsize
+	ENDM
+*
+*
+*
+   LIBENT   Open
+   LIBENT   Close
+   LIBENT   Read
+   LIBENT   Write
+   LIBENT   Input
+   LIBENT   Output
+   LIBENT   Seek
+   LIBENT   DeleteFile
+   LIBENT   Rename
+   LIBENT   Lock
+   LIBENT   UnLock
+   LIBENT   DupLock
+   LIBENT   Examine
+   LIBENT   ExNext
+   LIBENT   Info
+   LIBENT   CreateDir
+   LIBENT   CurrentDir
+   LIBENT   IoErr
+   LIBENT   CreateProc
+   LIBENT   Exit
+   LIBENT   LoadSeg
+   LIBENT   UnLoadSeg
+   LIBENT   GetPacket
+   LIBENT   QueuePacket
+   LIBENT   DeviceProc
+   LIBENT   SetComment
+   LIBENT   SetProtection
+   LIBENT   DateStamp
+   LIBENT   Delay
+   LIBENT   WaitForChar
+   LIBENT   ParentDir
+   LIBENT   IsInteractive
+   LIBENT   Execute
+
+	ENDC	; LIBRARIES_DOS_LIB_I
diff --git a/AMOSPro Sources/includes/libraries/expansion.i b/AMOSPro Sources/includes/libraries/expansion.i
new file mode 100644
index 0000000..8186e79
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/expansion.i	
@@ -0,0 +1,21 @@
+	IFND	LIBRARIES_EXPANSION_I
+LIBRARIES_EXPANSION_I	SET	1
+**
+**	$Filename: libraries/expansion.i $
+**	$Release: 1.3 $
+**
+**	external definitions for expansion.library 
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+EXPANSIONNAME	MACRO
+		dc.b	'expansion.library',0
+		ENDM
+
+
+;* flags for the AddDosNode() call */
+	BITDEF	ADN,STARTPROC,0
+
+	ENDC	; LIBRARIES_EXPANSION_I
diff --git a/AMOSPro Sources/includes/libraries/expansionbase.i b/AMOSPro Sources/includes/libraries/expansionbase.i
new file mode 100644
index 0000000..8c0fa4e
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/expansionbase.i	
@@ -0,0 +1,69 @@
+	IFND	LIBRARIES_EXPANSIONBASE_I
+LIBRARIES_EXPANSIONBASE_I	SET	1
+**
+**	$Filename: libraries/expansionbase.i $
+**	$Release: 1.3 $
+**
+**	library structure for expansion library 
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC	; EXEC_TYPES_I
+
+	IFND	EXEC_LIBRARIES_I
+	INCLUDE "exec/libraries.i"
+	ENDC	; EXEC_LIBRARIES_I
+
+	IFND	EXEC_INTERRUPTS_I
+	INCLUDE "exec/interrupts.i"
+	ENDC	; EXEC_INTERRUPTS_I
+
+	IFND	EXEC_SEMAPHORES_I
+	INCLUDE "exec/semaphores.i"
+	ENDC	; EXEC_SEMAPHORES_I
+
+	IFND	LIBRARIES_CONFIGVARS_I
+	INCLUDE "libraries/configvars.i"
+	ENDC	; LIBRARIES_CONFIGVARS_I
+
+
+TOTALSLOTS	EQU	256
+
+ STRUCTURE	ExpansionInt,0
+    UWORD		ei_IntMask	; mask for this list
+    UWORD		ei_ArrayMax	; current max valid index
+    UWORD		ei_ArraySize	; allocated size
+    LABEL		ei_Array	; actual data is after this
+    LABEL		ExpansionInt_SIZEOF
+
+ STRUCTURE	ExpansionBase,LIB_SIZE
+    UBYTE		eb_Flags
+    UBYTE		eb_pad
+    ULONG		eb_ExecBase
+    ULONG		eb_SegList
+    STRUCT		eb_CurrentBinding,CurrentBinding_SIZEOF
+    STRUCT		eb_BoardList,LH_SIZE
+    STRUCT		eb_MountList,LH_SIZE
+    STRUCT		eb_AllocTable,TOTALSLOTS
+    STRUCT		eb_BindSemaphore,SS_SIZE
+    STRUCT		eb_Int2List,IS_SIZE
+    STRUCT		eb_Int6List,IS_SIZE
+    STRUCT		eb_Int7List,IS_SIZE
+    LABEL		ExpansionBase_SIZEOF
+
+
+; error codes
+EE_LASTBOARD	EQU	40	; could not shut him up
+EE_NOEXPANSION	EQU	41	; not enough expansion mem; board shut up
+EE_NOBOARD	EQU	42	; no board at that address
+EE_NOMEMORY	EQU	42	; not enough normal memory
+
+; flags
+	BITDEF	EB,CLOGGED,0	; someone could not be shutup
+	BITDEF	EB,SHORTMEM,1	; ran out of expansion mem
+
+	ENDC	; LIBRARIES_EXPANSIONBASE_I
diff --git a/AMOSPro Sources/includes/libraries/filehandler.i b/AMOSPro Sources/includes/libraries/filehandler.i
new file mode 100644
index 0000000..a011574
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/filehandler.i	
@@ -0,0 +1,122 @@
+	IFND	LIBRARIES_FILEHANDLER_I
+LIBRARIES_FILEHANDLER_I SET	1
+**
+**	$Filename: libraries/filehandler.i $
+**	$Release: 1.3 $
+**
+**	device and file handler specific code for AmigaDOS 
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	  EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC	; EXEC_TYPES_I
+
+	IFND	  EXEC_PORTS_I
+	INCLUDE "exec/ports.i"
+	ENDC	; EXEC_PORTS_I
+
+	IFND	  LIBRARIES_DOS_I
+	INCLUDE "libraries/dos.i"
+	ENDC	; LIBRARIES_DOS_I
+
+
+* The disk "environment" is a longword array that describes the
+* disk geometry.  It is variable sized, with the length at the beginning.
+* Here are the constants for a standard geometry.
+
+
+
+ STRUCTURE DosEnvec,0
+    ULONG de_TableSize	     ; Size of Environment vector
+    ULONG de_SizeBlock	     ; in longwords: standard value is 128
+    ULONG de_SecOrg	     ; not used; must be 0
+    ULONG de_Surfaces	     ; # of heads (surfaces). drive specific
+    ULONG de_SectorPerBlock  ; not used; must be 1 
+    ULONG de_BlocksPerTrack  ; blocks per track. drive specific 
+    ULONG de_Reserved	     ; DOS reserved blocks at start of partition. 
+    ULONG de_PreAlloc	     ; DOS reserved blocks at end of partition 
+    ULONG de_Interleave	     ; usually 0 
+    ULONG de_LowCyl	     ; starting cylinder. typically 0 
+    ULONG de_HighCyl	     ; max cylinder. drive specific 
+    ULONG de_NumBuffers	     ; Initial # DOS of buffers.  
+    ULONG de_BufMemType	     ; type of mem to allocate for buffers 
+    ULONG de_MaxTransfer     ; Max number of bytes to transfer at a time 
+    ULONG de_Mask	     ; Address Mask to block out certain memory 
+    LONG  de_BootPri	     ; Boot priority for autoboot 
+    ULONG de_DosType	     ; ASCII (HEX) string showing filesystem type;
+			     ; 0X444F5300 is old filesystem,
+			     ; 0X444F5301 is fast file system 
+    LABEL DosEnvec_SIZEOF
+
+* these are the offsets into the array
+
+DE_TABLESIZE	EQU	0	; standard value is 11
+DE_SIZEBLOCK	EQU	1	; in longwords: standard value is 128
+DE_SECORG	EQU	2	; not used; must be 0
+DE_NUMHEADS	EQU	3	; # of heads (surfaces). drive specific
+DE_SECSPERBLK	EQU	4	; not used; must be 1
+DE_BLKSPERTRACK EQU	5	; blocks per track. drive specific
+DE_RESERVEDBLKS EQU	6	; unavailable blocks at start.	usually 2
+DE_PREFAC	EQU	7	; not used; must be 0
+DE_INTERLEAVE	EQU	8	; usually 0
+DE_LOWCYL	EQU	9	; starting cylinder. typically 0
+DE_UPPERCYL	EQU	10	; max cylinder.	 drive specific
+DE_NUMBUFFERS	EQU	11	; starting # of buffers.  typically 5
+DE_MEMBUFTYPE	EQU	12	; type of mem to allocate for buffers.
+DE_BUFMEMTYPE	EQU	12	; same as above, better name
+				; 1 is public, 3 is chip, 5 is fast
+DE_MAXTRANSFER	EQU	13	; Maximum number of bytes to transfer at a time
+DE_MASK		EQU	14	; Address Mask to block out certain memory
+DE_BOOTPRI	EQU	15	; Boot priority for autoboot
+DE_DOSTYPE	EQU	16	; ASCII (HEX) string showing filesystem type
+				; 0X444F5300 is old filesystem,
+				; 0X444F5301 is fast file system
+
+
+*
+* The file system startup message is linked into a device node's startup
+* field.  It contains a pointer to the above environment, plus the
+* information needed to do an exec OpenDevice().
+*
+
+ STRUCTURE FileSysStartupMsg,0
+    ULONG	fssm_Unit	; exec unit number for this device
+    BSTR	fssm_Device	; null terminated bstring to the device name
+    BPTR	fssm_Environ	; ptr to environment table (see above)
+    ULONG	fssm_Flags	; flags for OpenDevice()
+    LABEL	FileSysStartupMsg_SIZEOF
+
+
+* The include file "libraries/dosextens.h" has a DeviceList structure.
+* The "device list" can have one of three different things linked onto
+* it.  Dosextens defines the structure for a volume.  DLT_DIRECTORY
+* is for an assigned directory.	 The following structure is for
+* a dos "device" (DLT_DEVICE).
+
+ STRUCTURE DeviceNode,0
+    BPTR	dn_Next		; singly linked list
+    ULONG	dn_Type		; always 0 for dos "devices"
+    CPTR	dn_Task		; standard dos "task" field.  If this is
+				;     null when the node is accesses, a task
+				;     will be started up
+    BPTR	dn_Lock		; not used for devices -- leave null
+    BSTR	dn_Handler	; filename to loadseg (if seglist is null)
+    ULONG	dn_StackSize	; stacksize to use when starting task
+    LONG	dn_Priority	; task priority when starting task
+    BPTR	dn_Startup	; startup msg: FileSysStartupMsg for disks
+    BPTR	dn_SegList	; code to run to start new task (if necessary).
+				;     if null then dn_Handler will be loaded.
+    BPTR	dn_GlobalVec	; BCPL global vector to use when starting
+				;     a task.  -1 means that dn_SegList is not
+				;     for a bcpl program, so the dos won't
+				;     try and construct one.  0 tell the
+				;     dos that you obey BCPL linkage rules,
+				;     and that it should construct a global
+				;     vector for you.
+    BSTR	dn_Name		; the node name, e.g. '\3','D','F','3'
+    LABEL	DeviceNode_SIZEOF
+
+	ENDC	; LIBRARIES_FILEHANDLER_I
diff --git a/AMOSPro Sources/includes/libraries/mathlibrary.i b/AMOSPro Sources/includes/libraries/mathlibrary.i
new file mode 100644
index 0000000..a046c3f
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/mathlibrary.i	
@@ -0,0 +1,42 @@
+	IFND	LIBRARIES_MATHLIBRARY_I
+LIBRARIES_MATHLIBRARY_I SET	1
+**
+**	$Filename: libraries/mathlibrary.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	ifnd	EXEC_TYPES_I
+	include "exec/types.i"
+	endc
+
+	ifnd	EXEC_LIBRARIES_I
+	include "exec/libraries.i"
+	endc
+
+	STRUCTURE MathIEEEBase,0
+		STRUCT	MathIEEEBase_LibNode,LIB_SIZE
+		UBYTE	MathIEEEBase_Flags
+		UBYTE	MathIEEEBase_reserved1
+		APTR	MathIEEEBase_68881	; ptr to base of 68881 io
+		APTR	MathIEEEBase_SysLib
+		APTR	MathIEEEBase_SegList
+		APTR	MathIEEEBase_Resource	; ptr to math resource found
+		APTR	MathIEEEBase_TaskOpenLib	; hook
+		APTR	MathIEEEBase_TaskCloseLib	; hook
+*	This structure may be extended in the future */
+	LABEL	MathIEEEBase_SIZE
+
+;	Math resources may need to know when a program opens or closes this
+;	library. The functions TaskOpenLib and TaskCloseLib are called when
+;	a task opens or closes this library. The yare initialized to point
+;	local initialization pertaining to 68881 stuff if 68881 resources
+;	are found. To override the default the vendor must provide appropriate
+;	hooks in the MathIEEEResource. If specified, these will be called
+;	when the library initializes.
+
+	ENDC	; LIBRARIES_MATHLIBRARY_I
diff --git a/AMOSPro Sources/includes/libraries/romboot_base.i b/AMOSPro Sources/includes/libraries/romboot_base.i
new file mode 100644
index 0000000..80329df
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/romboot_base.i	
@@ -0,0 +1,48 @@
+	IFND	LIBRARIES_ROMBOOT_BASE_I
+LIBRARIES_ROMBOOT_BASE_I	SET	1
+**
+**	$Filename: libraries/romboot_base.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND    EXEC_TYPES_I
+    include "exec/types.i"
+    ENDC
+    IFND    EXEC_NODES_I
+    include "exec/nodes.i"
+    ENDC
+    IFND    EXEC_LISTS_I
+    include "exec/lists.i"
+    ENDC
+    IFND    EXEC_LIBRARIES_I
+    include "exec/libraries.i"
+    ENDC
+    IFND    EXEC_EXECBASE_I
+    include "exec/execbase.i"
+    ENDC
+    IFND    EXEC_EXECNAME_I
+    include "exec/execname.i"
+    ENDC
+
+ STRUCTURE  RomBootBase,LIB_SIZE
+	APTR	rbb_ExecBase
+	STRUCT	rbb_BootList,LH_SIZE
+	STRUCT	rbb_Reserved,16			; for future expansion
+    LABEL   rbb_SIZEOF
+
+ STRUCTURE BootNode,LN_SIZE
+	UWORD	bn_Flags
+	CPTR	bn_DeviceNode
+	LABEL	BootNode_SIZEOF
+
+ROMBOOT_NAME:  MACRO
+	DC.B	'romboot.library',0
+	DS.W	0
+	ENDM
+
+	ENDC	; LIBRARIES_ROMBOOT_BASE_I
diff --git a/AMOSPro Sources/includes/libraries/translator.i b/AMOSPro Sources/includes/libraries/translator.i
new file mode 100644
index 0000000..f383dbd
--- /dev/null
+++ b/AMOSPro Sources/includes/libraries/translator.i	
@@ -0,0 +1,17 @@
+	IFND	LIBRARIES_TRANSLATOR_I
+LIBRARIES_TRANSLATOR_I	SET	1
+**
+**	$Filename: libraries/translator.i $
+**	$Release: 1.3 $
+**
+**	Translator error codes 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+TR_NotUsed	EQU	-1		;This is an often used system rc
+TR_NoMem	EQU	-2		;Can't allocate memory
+TR_MakeBad	EQU	-4		;Error in MakeLibrary call
+
+	ENDC	; LIBRARIES_TRANSLATOR_I
diff --git a/AMOSPro Sources/includes/resources/cia.i b/AMOSPro Sources/includes/resources/cia.i
new file mode 100644
index 0000000..b58fee7
--- /dev/null
+++ b/AMOSPro Sources/includes/resources/cia.i	
@@ -0,0 +1,21 @@
+	IFND	RESOURCES_CIA_I
+RESOURCES_CIA_I SET	1
+**
+**	$Filename: resources/cia.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+CIAANAME	MACRO
+		DC.B	'ciaa.resource',0
+		ENDM
+
+CIABNAME	MACRO
+		DC.B	'ciab.resource',0
+		ENDM
+
+	ENDC	; RESOURCES_CIA_I
diff --git a/AMOSPro Sources/includes/resources/disk.i b/AMOSPro Sources/includes/resources/disk.i
new file mode 100644
index 0000000..12d03d1
--- /dev/null
+++ b/AMOSPro Sources/includes/resources/disk.i	
@@ -0,0 +1,118 @@
+	IFND	RESOURCES_DISK_I
+RESOURCES_DISK_I	SET	1
+**
+**	$Filename: resources/disk.i $
+**	$Release: 1.3 $
+**
+**	external declarations for disc resources 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC	; EXEC_TYPES_I
+
+	IFND	EXEC_LISTS_I
+	INCLUDE "exec/lists.i"
+	ENDC	; EXEC_LISTS_I
+
+	IFND	EXEC_PORTS_I
+	INCLUDE "exec/ports.i"
+	ENDC	; EXEC_PORTS_I
+
+	IFND	EXEC_INTERRUPTS_I
+	INCLUDE "exec/interrupts.i"
+	ENDC	; EXEC_INTERRUPTS_I
+
+	IFND	EXEC_LIBRARIES_I
+	INCLUDE "exec/libraries.i"
+	ENDC	; EXEC_LIBRARIES_I
+
+
+*********************************************************************
+*
+* Resource structures
+*
+*********************************************************************
+
+    STRUCTURE DISCRESOURCEUNIT,MN_SIZE
+	STRUCT	DRU_DISCBLOCK,IS_SIZE
+	STRUCT	DRU_DISCSYNC,IS_SIZE
+	STRUCT	DRU_INDEX,IS_SIZE
+	LABEL	DRU_SIZE
+
+
+
+    STRUCTURE DISCRESOURCE,LIB_SIZE
+	APTR	DR_CURRENT	; pointer to current unit structure
+	UBYTE	DR_FLAGS
+	UBYTE	DR_pad
+	APTR	DR_SYSLIB
+	APTR	DR_CIARESOURCE
+	STRUCT	DR_UNITID,4*4
+	STRUCT	DR_WAITING,LH_SIZE
+	STRUCT	DR_DISCBLOCK,IS_SIZE
+	STRUCT	DR_DISCSYNC,IS_SIZE
+	STRUCT	DR_INDEX,IS_SIZE
+	LABEL	DR_SIZE
+
+	BITDEF	DR,ALLOC0,0	; unit zero is allocated
+	BITDEF	DR,ALLOC1,1	; unit one is allocated
+	BITDEF	DR,ALLOC2,2	; unit two is allocated
+	BITDEF	DR,ALLOC3,3	; unit three is allocated
+	BITDEF	DR,ACTIVE,7	; is the disc currently busy?
+
+
+*********************************************************************
+*
+* Hardware Magic
+*
+*********************************************************************
+
+
+DSKDMAOFF	EQU	$4000	; idle command for dsklen register
+
+
+*********************************************************************
+*
+* Resource specific commands
+*
+*********************************************************************
+
+*-- DR_NAME is a generic macro to get the name of the resource.	 This
+*-- way if the name is ever changed you will pick up the change
+*-- automatically.
+*--
+*-- Normal usage would be:
+*--
+*-- internalName:	DISKNAME
+*--
+
+DISKNAME:	MACRO
+		DC.B	'disk.resource',0
+		DS.W	0
+		ENDM
+
+	LIBINIT LIB_BASE
+	LIBDEF	DR_ALLOCUNIT
+	LIBDEF	DR_FREEUNIT
+	LIBDEF	DR_GETUNIT
+	LIBDEF	DR_GIVEUNIT
+	LIBDEF	DR_GETUNITID
+
+DR_LASTCOMM	EQU	DR_GIVEUNIT
+
+
+*********************************************************************
+*
+* drive types
+*
+*********************************************************************
+
+DRT_AMIGA	EQU	$00000000
+DRT_37422D2S	EQU	$55555555
+DRT_EMPTY	EQU	$FFFFFFFF
+
+	ENDC	; RESOURCES_DISK_I
diff --git a/AMOSPro Sources/includes/resources/filesysres.i b/AMOSPro Sources/includes/resources/filesysres.i
new file mode 100644
index 0000000..93e51c9
--- /dev/null
+++ b/AMOSPro Sources/includes/resources/filesysres.i	
@@ -0,0 +1,52 @@
+	IFND	RESOURCES_FILESYSRES_I
+RESOURCES_FILESYSRES_I	SET	1
+**
+**	$Filename: resources/filesysres.i $
+**	$Revision: 1.0 $
+**	$Date: 88/07/11 15:32:39 $
+**
+**	FileSystem.resource description
+**
+**	(C) Copyright 1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_NODES_I
+	INCLUDE	"exec/nodes.i"
+	ENDC
+	IFND	EXEC_LISTS_I
+	INCLUDE	"exec/lists.i"
+	ENDC
+	IFND	LIBRARIES_DOS_I
+	INCLUDE	"libraries/dos.i"
+	ENDC
+
+FSRNAME	MACRO
+		dc.b	'FileSystem.resource',0
+	ENDM
+
+ STRUCTURE  FileSysResource,LN_SIZE	; on resource list
+    CPTR    fsr_Creator			; name of creator of this resource
+    STRUCT  fsr_FileSysEntries,LH_SIZE	; list of FileSysEntry structs
+    LABEL   FileSysResource_SIZEOF
+
+ STRUCTURE  FileSysEntry,LN_SIZE	; on fsr_FileSysEntries list
+					; LN_NAME is of creator of this entry
+    ULONG   fse_DosType		; DosType of this FileSys
+    ULONG   fse_Version		; Version of this FileSys
+    ULONG   fse_PatchFlags	; bits set for those of the following that need
+				;   to be substituted into a standard device
+				;   node for this file system: e.g. $180
+				;   for substitute SegList & GlobalVec
+    ULONG   fse_Type		; device node type: zero
+    CPTR    fse_Task		; standard dos "task" field
+    BPTR    fse_Lock		; not used for devices: zero
+    BSTR    fse_Handler		; filename to loadseg (if SegList is null)
+    ULONG   fse_StackSize	; stacksize to use when starting task
+    LONG    fse_Priority	; task priority when starting task
+    BPTR    fse_Startup		; startup msg: FileSysStartupMsg for disks
+    BPTR    fse_SegList		; code to run to start new task
+    BPTR    fse_GlobalVec	; BCPL global vector when starting task
+    ; no more entries need exist than those implied by fse_PatchFlags
+
+	ENDC	; RESOURCES_FILESYSRES_I
diff --git a/AMOSPro Sources/includes/resources/mathresource.i b/AMOSPro Sources/includes/resources/mathresource.i
new file mode 100644
index 0000000..cd807f2
--- /dev/null
+++ b/AMOSPro Sources/includes/resources/mathresource.i	
@@ -0,0 +1,55 @@
+	IFND	RESOURCES_MATHRESOURCE_I
+RESOURCES_MATHRESOURCE_I	SET	1
+**
+**	$Filename: resources/mathresource.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_TYPES_I
+	include "exec/types.i"
+	ENDC
+
+	IFND	EXEC_NODES_I
+	include "exec/nodes.i"
+	ENDC
+
+*
+*	The 'Init' entries are only used if the corresponding
+*	bit is set in the Flags field.
+*
+*	So if you are just a 68881, you do not need the Init stuff
+*	just make sure you have cleared the Flags field.
+*
+*	This should allow us to add Extended Precision later.
+*
+*	For Init users, if you need to be called whenever a task
+*	opens this library for use, you need to change the appropriate
+*	entries in MathIEEELibrary.
+*
+
+	STRUCTURE MathIEEEResourceResource,0
+		STRUCT	MathIEEEResource_Node,LN_SIZE
+		USHORT	MathIEEEResource_Flags
+		APTR	MathIEEEResource_BaseAddr	* ptr to 881 if exists *
+		APTR	MathIEEEResource_DblBasInit
+		APTR	MathIEEEResource_DblTransInit
+		APTR	MathIEEEResource_SglBasInit
+		APTR	MathIEEEResource_SglTransInit
+		APTR	MathIEEEResource_ExtBasInit
+		APTR	MathIEEEResource_ExtTransInit
+	LABEL	MathIEEEResourceResource_SIZE
+
+* definations for MathIEEERESOURCE_FLAGS *
+	BITDEF	MATHIEEERESOURCE,DBLBAS,0
+	BITDEF	MATHIEEERESOURCE,DBLTRANS,1
+	BITDEF	MATHIEEERESOURCE,SGLBAS,2
+	BITDEF	MATHIEEERESOURCE,SGLTRANS,3
+	BITDEF	MATHIEEERESOURCE,EXTBAS,4
+	BITDEF	MATHIEEERESOURCE,EXTTRANS,5
+
+	ENDC	; RESOURCES_MATHRESOURCE_I
diff --git a/AMOSPro Sources/includes/resources/misc.i b/AMOSPro Sources/includes/resources/misc.i
new file mode 100644
index 0000000..ee28cb4
--- /dev/null
+++ b/AMOSPro Sources/includes/resources/misc.i	
@@ -0,0 +1,47 @@
+	IFND	RESOURCES_MISC_I
+RESOURCES_MISC_I	SET	1
+**
+**	$Filename: resources/misc.i $
+**	$Release: 1.3 $
+**
+**	external declarations for misc system resources 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC	; EXEC_TYPES_I
+
+	IFND	EXEC_LIBRARIES_I
+	INCLUDE "exec/libraries.i"
+	ENDC	; EXEC_LIBRARIES_I
+
+*********************************************************************
+*
+* Resource structures
+*
+*********************************************************************
+
+MR_SERIALPORT	EQU	0
+MR_SERIALBITS	EQU	1
+MR_PARALLELPORT EQU	2
+MR_PARALLELBITS EQU	3
+
+NUMMRTYPES	EQU	4
+
+    STRUCTURE MiscResource,LIB_SIZE
+	STRUCT	mr_AllocArray,4*NUMMRTYPES
+	LABEL	mr_Sizeof
+
+	LIBINIT LIB_BASE
+	LIBDEF	MR_ALLOCMISCRESOURCE
+	LIBDEF	MR_FREEMISCRESOURCE
+
+
+MISCNAME	MACRO
+		DC.B	'misc.resource',0
+		ENDM
+
+	ENDC	; RESOURCES_MISC_I
diff --git a/AMOSPro Sources/includes/resources/potgo.i b/AMOSPro Sources/includes/resources/potgo.i
new file mode 100644
index 0000000..a1b30aa
--- /dev/null
+++ b/AMOSPro Sources/includes/resources/potgo.i	
@@ -0,0 +1,19 @@
+	IFND	RESOURCES_POTGO_I
+RESOURCES_POTGO_I	SET	1
+**
+**	$Filename: resources/potgo.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+POTGONAME   MACRO
+      DC.B  'potgo.resource'
+      DC.B  0
+      DS.W  0
+      ENDM
+
+	ENDC	; RESOURCES_POTGO_I
diff --git a/AMOSPro Sources/includes/workbench/icon.i b/AMOSPro Sources/includes/workbench/icon.i
new file mode 100644
index 0000000..5c2515b
--- /dev/null
+++ b/AMOSPro Sources/includes/workbench/icon.i	
@@ -0,0 +1,24 @@
+	IFND	WORKBENCH_ICON_I
+WORKBENCH_ICON_I	SET	1
+**
+**	$Filename: workbench/icon.i $
+**	$Release: 1.3 $
+**
+**	external declarations for workbench support library 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*********************************************************************
+*
+* Library structures
+*
+*********************************************************************
+
+
+ICONNAME	MACRO
+		DC.B	'icon.library',0
+		ENDM
+
+	ENDC	; WORKBENCH_ICON_I
diff --git a/AMOSPro Sources/includes/workbench/startup.i b/AMOSPro Sources/includes/workbench/startup.i
new file mode 100644
index 0000000..e01758e
--- /dev/null
+++ b/AMOSPro Sources/includes/workbench/startup.i	
@@ -0,0 +1,39 @@
+	IFND	WORKBENCH_STARTUP_I
+WORKBENCH_STARTUP_I	SET	1
+**
+**	$Filename: workbench/startup.i $
+**	$Release: 1.3 $
+**
+**	Workbench startup definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC	; EXEC_TYPES_I
+
+	IFND	EXEC_PORTS_I
+	INCLUDE "exec/ports.i"
+	ENDC	; EXEC_PORTS_I
+
+	IFND	LIBRARIES_DOS_I
+	INCLUDE "libraries/dos.i"
+	ENDC	; LIBRARIES_DOS_I
+
+ STRUCTURE WBStartup,0
+    STRUCT	sm_Message,MN_SIZE	; a standard message structure
+    APTR	sm_Process		; the process descriptor for you
+    BPTR	sm_Segment		; a descriptor for your code
+    LONG	sm_NumArgs		; the number of elements in ArgList
+    APTR	sm_ToolWindow		; description of window
+    APTR	sm_ArgList		; the arguments themselves
+    LABEL	sm_SIZEOF
+
+ STRUCTURE WBArg,0
+    BPTR	wa_Lock			; a lock descriptor
+    APTR	wa_Name			; a string relative to that lock
+    LABEL	wa_SIZEOF
+
+	ENDC	; WORKBENCH_STARTUP_I
diff --git a/AMOSPro Sources/includes/workbench/workbench.i b/AMOSPro Sources/includes/workbench/workbench.i
new file mode 100644
index 0000000..1fc0100
--- /dev/null
+++ b/AMOSPro Sources/includes/workbench/workbench.i	
@@ -0,0 +1,106 @@
+	IFND	WORKBENCH_WORKBENCH_I
+WORKBENCH_WORKBENCH_I	SET	1
+**
+**	$Filename: workbench/workbench.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC	; EXEC_TYPES_I
+
+	IFND	EXEC_NODES_I
+	INCLUDE "exec/nodes.i"
+	ENDC	; EXEC_NODES_I
+
+	IFND	EXEC_LISTS_I
+	INCLUDE "exec/lists.i"
+	ENDC	; EXEC_LISTS_I
+
+	IFND	EXEC_TASKS_I
+	INCLUDE "exec/tasks.i"
+	ENDC	; EXEC_TASKS_I
+
+	IFND	INTUITION_INTUITION_I
+	INCLUDE "intuition/intuition.i"
+	ENDC	; INTUITION_INTUITION_I
+
+
+; the Workbench object types
+WBDISK		EQU	1
+WBDRAWER	EQU	2
+WBTOOL		EQU	3
+WBPROJECT	EQU	4
+WBGARBAGE	EQU	5
+WBDEVICE	EQU	6
+WBKICK		EQU	7
+
+
+; the main workbench object structure
+ STRUCTURE DrawerData,0
+    STRUCT	dd_NewWindow,nw_SIZE	; args to open window
+    LONG	dd_CurrentX		; current x coordinate of origin
+    LONG	dd_CurrentY		; current y coordinate of origin
+    LABEL	dd_SIZEOF
+
+; the amount of DrawerData actually written to disk
+DRAWERDATAFILESIZE	EQU (dd_SIZEOF)
+
+
+ STRUCTURE DiskObject,0
+    UWORD	do_Magic		; a magic num at the start of the file
+    UWORD	do_Version		; a version number, so we can change it
+    STRUCT	do_Gadget,gg_SIZEOF	; a copy of in core gadget
+    UWORD	do_Type
+    APTR	do_DefaultTool
+    APTR	do_ToolTypes
+    LONG	do_CurrentX
+    LONG	do_CurrentY
+    APTR	do_DrawerData
+    APTR	do_ToolWindow		; only applies to tools
+    LONG	do_StackSize		; only applies to tools
+    LABEL	do_SIZEOF
+
+WB_DISKMAGIC	EQU	$e310	; a magic number, not easily impersonated
+WB_DISKVERSION	EQU	1	; our current version number
+
+ STRUCTURE FreeList,0
+    WORD	fl_NumFree
+    STRUCT	fl_MemList,LH_SIZE
+    ; weird name to avoid conflicts with FileLocks
+    LABEL	FreeList_SIZEOF
+
+
+
+* each message that comes into the WorkBenchPort must have a type field
+* in the preceeding short.  These are the defines for this type
+*
+
+MTYPE_PSTD		EQU	1	; a "standard Potion" message
+MTYPE_TOOLEXIT		EQU	2	; exit message from our tools
+MTYPE_DISKCHANGE	EQU	3	; dos telling us of a disk change
+MTYPE_TIMER		EQU	4	; we got a timer tick
+MTYPE_CLOSEDOWN		EQU	5	; <unimplemented>
+MTYPE_IOPROC		EQU	6	; <unimplemented>
+
+
+* workbench does different complement modes for its gadgets.
+* It supports separate images, complement mode, and backfill mode.
+* The first two are identical to intuitions GADGIMAGE and GADGHCOMP.
+* backfill is similar to GADGHCOMP, but the region outside of the
+* image (which normally would be color three when complemented)
+* is flood-filled to color zero.
+*
+GADGBACKFILL		EQU	$0001
+
+* if an icon does not really live anywhere, set its current position
+* to here
+*
+NO_ICON_POSITION	EQU	($80000000)
+
+	ENDC	; WORKBENCH_WORKBENCH_I
diff --git a/AMOSPro Sources/info.abk b/AMOSPro Sources/info.abk
new file mode 100644
index 0000000..5cf62dd
Binary files /dev/null and b/AMOSPro Sources/info.abk differ
diff --git a/AMOSPro Sources/lrout b/AMOSPro Sources/lrout
new file mode 100644
index 0000000..f726bef
--- /dev/null
+++ b/AMOSPro Sources/lrout	
@@ -0,0 +1,2 @@
+Make_Linked
+Ed Ram:Linked_Routines.Asc
diff --git a/AMOSPro Sources/make_linked b/AMOSPro Sources/make_linked
new file mode 100644
index 0000000..5eb3d7a
Binary files /dev/null and b/AMOSPro Sources/make_linked differ
diff --git a/AMOSPro Sources/monam2.inf b/AMOSPro Sources/monam2.inf
new file mode 100644
index 0000000..c14d3f5
Binary files /dev/null and b/AMOSPro Sources/monam2.inf differ
diff --git a/AMOSPro Sources/parnetcopy b/AMOSPro Sources/parnetcopy
new file mode 100644
index 0000000..087b66f
--- /dev/null
+++ b/AMOSPro Sources/parnetcopy	
@@ -0,0 +1,21 @@
+
+Copy APro:APSystem/AMOSPro.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Compact.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Request.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Music.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_IOPorts.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Editor Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/AMOSPro_Monitor Net:Work/AMOS_Pro/APSystem/
+Copy APro:AMOSPro Net:Work/AMOS_Pro/
+
+Copy APro:APSystem/AMOSPro_Compiler.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/Compiler.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/APCmp Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/APCmp Net:Sys/C/
+Copy APro:APSystem/Header_CLI.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/Header_Backstart.Lib Net:Work/AMOS_Pro/APSystem/
+Copy APro:APSystem/Header_AMOS.AMOS Net:Work/AMOS_Pro/APSystem/
+
+Copy S:AMOSPro_Interpreter_Config Net:Sys/s/
+Copy S:AMOSPro_Compiler_Config Net:Sys/s/
+
diff --git a/AMOSPro Sources/secu b/AMOSPro Sources/secu
new file mode 100644
index 0000000..d36084a
--- /dev/null
+++ b/AMOSPro Sources/secu	
@@ -0,0 +1,36 @@
+
+IF EXISTS AP2:Securite/AP2_9.Lha
+	Delete AP2:Securite/AP2_9.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_8.Lha
+	Rename AP2:Securite/AP2_8.Lha To AP2:Securite/AP2_9.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_7.Lha
+	Rename AP2:Securite/AP2_7.Lha To AP2:Securite/AP2_8.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_6.Lha
+	Rename AP2:Securite/AP2_6.Lha To AP2:Securite/AP2_7.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_5.Lha
+	Rename AP2:Securite/AP2_5.Lha To AP2:Securite/AP2_6.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_4.Lha
+	Rename AP2:Securite/AP2_4.Lha To AP2:Securite/AP2_5.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_3.Lha
+	Rename AP2:Securite/AP2_3.Lha To AP2:Securite/AP2_4.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_2.Lha
+	Rename AP2:Securite/AP2_2.Lha To AP2:Securite/AP2_3.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_1.Lha
+	Rename AP2:Securite/AP2_1.Lha To AP2:Securite/AP2_2.Lha
+ENDIF
+IF EXISTS AP2:Securite/AP2_0.Lha
+	Copy AP2:Securite/AP2_0.Lha To AP2:Securite/AP2_1.Lha
+ENDIF
+
+Lha u AP2:Securite/AP2_0.Lha +#?.s 
+
+AMOSPro -W Work:Utiles/Dir_Clone.AMOS Work:AMOS.s/Pro2/ IDH0:Work/AMOS.s/Pro2/
+
diff --git a/AMOSPro Sources/squash.amos b/AMOSPro Sources/squash.amos
new file mode 100644
index 0000000..9ded267
Binary files /dev/null and b/AMOSPro Sources/squash.amos differ
diff --git a/AMOSPro Sources/unfrancois b/AMOSPro Sources/unfrancois
new file mode 100644
index 0000000..a110b95
--- /dev/null
+++ b/AMOSPro Sources/unfrancois	
@@ -0,0 +1,2 @@
+Copy Default_Editor_Config APro:APSystem/AMOSPro_Editor_Config
+Copy Default_Interpreter_Config s:AMOSPro_Interpreter_Config
diff --git a/LICENSE b/LICENSE
index 4dbd098..91bbd83 100644
--- a/LICENSE
+++ b/LICENSE
@@ -1,6 +1,7 @@
 MIT License
 
-Copyright (c) 2020 Francaoz
+Copyright (c) 1992 Europress Software
+Copyright (c) 2020 Francois Lionet
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal
diff --git a/README.md b/README.md
index c894da6..18a79d5 100644
--- a/README.md
+++ b/README.md
@@ -1,2 +1,53 @@
-# AMOS-Professional-Official
-The official source code of the AMOS Professional on the Amiga
+
+### Welcome to the official AMOS Professional source code repository.
+
+You will find in this repository the entire source code of AMOS Professional, as it was on my machine at the end of 1993 when I decided to switch to PC and create Klik and Play with my partner Yves Lamoureux.
+
+This source-code is published under the MIT licence, which means you can do anything you want from it as long as the copyright notice is present in both the modified source code and the boot screen of the application. I have unfortunately forgotten how you can compile it and would appreciate to receive an extra documentation, if you have managed to compile, so that I can include it is this readme. Do not hesitate to contact me by mail about this.
+
+I am delighted to see that this code, that was made at a very special moment of my life, is still alive 30 years after it was written. I cannot wait to discover what you will do with it. Be creative!
+
+Please note that I will not answer to any technical questions as I do not remember how it works and all this is for me the past. Even if the Amiga is and will always be in my heart, my focus is the future and this future is called AOZ.
+
+Francois - fl@aoz.studio
+
+---
+
+This distribution is based on the repository created by marc365. https://github.com/marc365/AMOSProfessional
+
+I have added the MIT licence headers to all the sources. If you know about a newer of better version of the source-code, do not hesitate to send it to me by mail, I will gladly update the repository.
+
+Thank you Marc365! I have included your readme after this intro.
+
+.
+
+.
+
+.
+
+Anyone who is interested in this project should join François Lionets patreon:
+
+>[https://www.patreon.com/francoislionet](https://www.patreon.com/francoislionet)
+
+This repository is 68k Assembly and unique in design. It is powerful and runs like an operating system. Games and multimedia become exciting to program again, relying on your own skills instead of libraries.
+
+This release is as-is and doesn't contain any installation or demos.
+
+It's really fun and will test your "actual" programming skills!
+
+# AMOS Professional
+
+based on the original 68000 source code by François Lionet (Thank you!)
+
+# History
+Some years ago there was discussion of re-development, but the work mentioned in [this article](http://www.amiworld.it/news/amos_upgrade_eng.html) was not made public, any collaborative efforts have disappeared. An archive was made available at a later date but was partially incomplete and difficult to build - this project fixes the build problems, but has no relation to any previous plans or news releases.
+
+# AMOS PRO goes Public Domain!
+
+> [01 dec 2012](https://web.archive.org/web/20130530022407/http://www.pianetaamiga.it)
+In occasion of Pianeta Amiga 2012, Pietro Ghizzoni, current owner of AMOS Pro sources after Francois Lionet ceased development, has kindly agreed to release them as Public Domain. You can download the full package in advance from this link. Sources will be also put on Aminet in the next days.
+
+# AMOS present and future
+
+> [pre Public Domain ?](http://www.amiworld.it/news/amos_upgrade_eng.html)
+As you know some months ago i've obtained the AMOS sources... during these months I've spent my time learning the AMOS internal functions and structures, in order to upgrade it and develop the new AMOSPro V3... but I've to say that my projects have changed a lot during this period. My original idea was to upgrade/expand it, add AGA support and most of all to make AMOS more OS friendly! but when I examined the sources some problems have arisen...
diff --git a/aall b/aall
new file mode 100644
index 0000000..7c036f3
--- /dev/null
+++ b/aall
@@ -0,0 +1,18 @@
+echo "***Assembling RELEASE build"
+execute alib
+execute aw
+execute apro
+execute adata
+execute aedit
+execute amon
+execute aext
+execute acomp
+
+delete >NIL: +LEqu.s
+delete >NIL: +Toktab_Verif.Bin
+
+echo "***Success RELEASE build"
+
+echo "***Running Tests"
+execute atools
+echo "***All Tests Successful"
diff --git a/acomp b/acomp
new file mode 100644
index 0000000..3c2f1be
--- /dev/null
+++ b/acomp
@@ -0,0 +1,6 @@
+echo "***Assembling compiler"
+execute compiler/acdata
+execute compiler/acomp
+execute compiler/aclib
+execute compiler/acompext
+execute compiler/aheader
diff --git a/adata b/adata
new file mode 100644
index 0000000..6fe984f
--- /dev/null
+++ b/adata
@@ -0,0 +1,15 @@
+echo "***Assembling the Editor Configuration"
+c/genim2 +Editor_Config.s -oRAM:Editor_Config.o
+c/Get_Chunk RAM:Editor_Config.o AMOS/Tutorial/Extra_Configs/Editor_Config.Backup
+
+echo "***Assembling the default Interpreter Configuration"
+c/genim2 +Interpreter_Config.s -oRAM:Interpreter_Config.o
+c/Get_Chunk RAM:Interpreter_Config.o AMOS/Tutorial/Extra_Configs/Interpreter_Config.Backup
+
+echo "***Installing default configuration"
+Copy AMOS/Tutorial/Extra_Configs/Editor_Config.Backup AMOS/APSystem/AMOSPro_Editor_Config
+Copy AMOS/Tutorial/Extra_Configs/Interpreter_Config.Backup AMOS/AMOSPro_Interpreter_Config
+
+echo "***Installing default configuration to s:"
+Copy AMOS/Tutorial/Extra_Configs/Interpreter_Config.Backup s:AMOSPro_Interpreter_Config
+
diff --git a/aedit b/aedit
new file mode 100644
index 0000000..1e37efb
--- /dev/null
+++ b/aedit
@@ -0,0 +1,2 @@
+echo "***Assembling AMOSPro_Editor"
+c/Genam FROM +Edit.s TO AMOS/APSystem/AMOSPro_Editor
diff --git a/aext b/aext
new file mode 100644
index 0000000..aa3eb96
--- /dev/null
+++ b/aext
@@ -0,0 +1,5 @@
+echo "***Assembling Extensions"
+execute extensions/amusic
+execute extensions/acompact
+execute extensions/arequest
+execute extensions/aio
diff --git a/alib b/alib
new file mode 100644
index 0000000..65ac10b
--- /dev/null
+++ b/alib
@@ -0,0 +1,9 @@
+echo "***Making Token Table +Toktab_Verif.Bin"
+c/Make_Toktable
+echo "***Making Label Files"
+c/Make_Labels
+echo "***Assembling AMOSPro.Lib"
+c/genam FROM +lib.s TO AMOS/APSystem/AMOSPro.Lib
+delete >NIL: +ILib_Functions.s
+delete >NIL: +ILib_Size.s
+delete >NIL: +lib_size.s
diff --git a/amon b/amon
new file mode 100644
index 0000000..a2ce1ac
--- /dev/null
+++ b/amon
@@ -0,0 +1,2 @@
+echo "***Assembling AMOSPro_Monitor"
+c/genam FROM +Monitor.s TO AMOS/APSystem/AMOSPro_Monitor
diff --git a/apro b/apro
new file mode 100644
index 0000000..3705019
--- /dev/null
+++ b/apro
@@ -0,0 +1,7 @@
+echo "***Assembling AMOSPro"
+IF NOT EXISTS +internal_jumps.s
+execute alib
+ENDIF
+c/Genam FROM +B.s TO AMOS/AMOSPro
+delete >NIL: +internal_jumps.s
+List AMOS/AMOSPro
diff --git a/atools b/atools
new file mode 100644
index 0000000..33aea1d
--- /dev/null
+++ b/atools
@@ -0,0 +1,14 @@
+echo "***Re-Compiling Build Tools"
+cd AMOS
+APSystem/APCmp /c/Check_CLib.AMOS TYPE=0 WB NOERR NODEF
+APSystem/APCmp /c/Get_Chunk.AMOS TYPE=0 WB NOERR NODEF
+APSystem/APCmp /c/Library_Digest.AMOS TYPE=0 WB NOERR NODEF
+APSystem/APCmp /c/Make_Labels.AMOS TYPE=0 WB NOERR NODEF
+APSystem/APCmp /c/Make_Toktable.AMOS TYPE=0 WB NOERR NODEF
+cd /
+delete >NIL: c/Check_CLib.info
+delete >NIL: c/Get_Chunk.info
+delete >NIL: c/Library_Digest.info
+delete >NIL: c/Make_labels.info
+delete >NIL: c/Make_Toktable.info
+
diff --git a/aw b/aw
new file mode 100644
index 0000000..5664606
--- /dev/null
+++ b/aw
@@ -0,0 +1,4 @@
+echo "***Assembling AMOS.library"
+c/genim2 +W.s -oAMOS/APSystem/AMOS.library -C
+echo "***Installing AMOS.Library to LIBS:"
+Copy AMOS/APSystem/AMOS.library LIBS:AMOS.library
diff --git a/bin/+AMOSPro_Mouse.abk b/bin/+AMOSPro_Mouse.abk
new file mode 100644
index 0000000..73b8161
Binary files /dev/null and b/bin/+AMOSPro_Mouse.abk differ
diff --git a/bin/+Dialog_Funcs.bin b/bin/+Dialog_Funcs.bin
new file mode 100644
index 0000000..5aea913
Binary files /dev/null and b/bin/+Dialog_Funcs.bin differ
diff --git a/bin/+WFont.bin b/bin/+WFont.bin
new file mode 100644
index 0000000..547d2f9
Binary files /dev/null and b/bin/+WFont.bin differ
diff --git a/bin/Editor_Menus.asc b/bin/Editor_Menus.asc
new file mode 100644
index 0000000..4aa114a
Binary files /dev/null and b/bin/Editor_Menus.asc differ
diff --git a/bin/Editor_Menus.bin b/bin/Editor_Menus.bin
new file mode 100644
index 0000000..a6fe62d
Binary files /dev/null and b/bin/Editor_Menus.bin differ
diff --git a/bin/ReqPic.bin b/bin/ReqPic.bin
new file mode 100644
index 0000000..02fc0ff
Binary files /dev/null and b/bin/ReqPic.bin differ
diff --git a/c/Check_CLib b/c/Check_CLib
new file mode 100644
index 0000000..df95b59
Binary files /dev/null and b/c/Check_CLib differ
diff --git a/c/Check_CLib.AMOS b/c/Check_CLib.AMOS
new file mode 100644
index 0000000..59d6c58
Binary files /dev/null and b/c/Check_CLib.AMOS differ
diff --git a/c/Get_Chunk b/c/Get_Chunk
new file mode 100644
index 0000000..6c04ede
Binary files /dev/null and b/c/Get_Chunk differ
diff --git a/c/Get_Chunk.AMOS b/c/Get_Chunk.AMOS
new file mode 100644
index 0000000..525db17
Binary files /dev/null and b/c/Get_Chunk.AMOS differ
diff --git a/c/Library_Digest b/c/Library_Digest
new file mode 100644
index 0000000..8c948e5
Binary files /dev/null and b/c/Library_Digest differ
diff --git a/c/Library_Digest.AMOS b/c/Library_Digest.AMOS
new file mode 100644
index 0000000..0c5744a
Binary files /dev/null and b/c/Library_Digest.AMOS differ
diff --git a/c/Make_Labels b/c/Make_Labels
new file mode 100644
index 0000000..8b81a68
Binary files /dev/null and b/c/Make_Labels differ
diff --git a/c/Make_Labels.AMOS b/c/Make_Labels.AMOS
new file mode 100644
index 0000000..2d5517a
Binary files /dev/null and b/c/Make_Labels.AMOS differ
diff --git a/c/Make_Toktable b/c/Make_Toktable
new file mode 100644
index 0000000..c088715
Binary files /dev/null and b/c/Make_Toktable differ
diff --git a/c/Make_Toktable.AMOS b/c/Make_Toktable.AMOS
new file mode 100644
index 0000000..bbc058b
Binary files /dev/null and b/c/Make_Toktable.AMOS differ
diff --git a/c/genam b/c/genam
new file mode 100644
index 0000000..8043f8a
Binary files /dev/null and b/c/genam differ
diff --git a/c/genim2 b/c/genim2
new file mode 100644
index 0000000..78d149e
Binary files /dev/null and b/c/genim2 differ
diff --git a/compiler/+APComp.s b/compiler/+APComp.s
new file mode 100644
index 0000000..66e2eae
--- /dev/null
+++ b/compiler/+APComp.s
@@ -0,0 +1,12053 @@
+;____________________________________________________________________________
+;............................................................................
+;..................................................................2222222...
+;...............................................................22222222220..
+;..................................................222........222222.....222.
+;.............................................2202222222222..22000...........
+;.................................22000.....20222222222200000200002..........
+;................................2002202...2222200222.220000000200000000022..
+;...................220002......22222200..2200002.......2200000...20000000000
+;...................22222202....2220000022200000..........200002........20000
+;....200000.........2222200000222200220000000002..........200002........20000
+;....00222202........2220022000000002200002000002........2000002000020000000.
+;...2222200000.......220002200000002.2000000000000222222000000..2000000002...
+;...220000200002......20000..200002..220000200000000000000002.......22.......
+;..2220002.220000 2....220002...22.....200002..0000000000002.................
+;..220000..222000002...20000..........200000......2222.......................
+;..000000000000000000..200000..........00002.................................
+;.220000000022020000002.200002.........22......._____________________________
+;.0000002........2000000220022.................|
+;200000............2002........................| AMOSPro Compiler
+;200002........................................|
+;20002.........................................|_____________________________
+;____________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;____________________________________________________________________________
+
+		Include "+AMOS_Includes.s"
+		Include "+Version.s"
+;____________________________________________________________________________
+
+PP_Config	equ	1
+PP_IntConfig	equ	2
+PP_LibLoad	equ	4
+PP_OpenSource	equ	10
+PP_OpenObjet	equ	12
+PP_Compile	equ	20
+PP_Chaines	equ	30
+PP_LibInternes	equ	33
+PP_LibExternes	equ	45
+PP_System1	equ	60		amos.library
+PP_System2	equ	62		interpreter env
+PP_System3	equ	64		mouse.abk
+PP_System4	equ	66		resource
+PP_System5	equ	68		messages erreur
+PP_Banks	equ	80
+PP_RelRel	equ	85
+PP_RelAbs	equ	90
+PP_CloseObjet	equ	95
+PP_Icons	equ	100
+
+M_Libs			equ	28		26 librairies + defaut
+F_Courant		equ	0
+F_Source		equ	1
+F_Objet			equ	2
+F_Libs			equ	3
+F_LibInterne		equ	F_Libs+M_Libs-1
+F_Debug			equ	F_Libs+M_Libs
+M_Fichiers		equ	F_Debug+1
+
+L_PathToDelete		equ	108*2
+
+; 			Tailles buffers standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+L_BSo			equ	8000		Longueur buffer source
+L_DiscIn		equ	1024*4		Buffer chargement banques...
+L_BordBso		equ	128		Bordure buffer source
+L_BordBob		equ	768		Bordure buffer objet
+L_Bob			equ	1024*6		Buffer objet
+
+;			Flags relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Rel_Libraries		equ	$01000000
+Rel_Chaines		equ	$02000000
+Rel_Label		equ	$03000000
+
+;			Tokens de l'extension
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ext_Nb			equ	5
+Ext_TkCmp       	equ     6
+Ext_TkCOp       	equ     $14
+Ext_TkTstOn     	equ     $28
+Ext_TkTstOf     	equ     $3a
+Ext_TkTst       	equ     $4e
+
+
+F_Externes		equ	0
+F_Dialogs		equ	1
+F_Menus			equ	2
+F_Input			equ	3
+F_FSel			equ	4
+
+;---------------------------------------------------------------------
+		bra	CliIn			0
+		bra	AMOS_Compile		4
+		bra	AMOS_Start		8
+		bra	AMOS_Cont		12
+		bra	AMOS_Stop		16
+		dc.b	"APcp"			20
+;---------------------------------------------------------------------
+		dc.b	0,"$VER:"
+		Version
+		even
+;---------------------------------------------------------------------
+
+;---------------------------------------------------------------------
+;  	Entree AMOS instruction "Compile"
+;---------------------------------------------------------------------
+AMOS_Compile
+	movem.l	a3-a6/d6/d7,-(sp)
+	move.l	a5,a4
+	bsr	Reserve_DZ		***
+	move.l	a4,AMOS_Dz(a5)
+	move.b	#1,Flag_AMOS(a5)
+	clr.b	Flag_Quiet(a5)
+	bsr	Go_On
+	movem.l	(sp)+,a3-a6/d6/d7
+	rts
+
+;---------------------------------------------------------------------
+;  	Entree Compiler_Shell.AMOS
+;---------------------------------------------------------------------
+
+;	Premier appel: reserve une pile pour le compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_Start
+	movem.l	a3-a6/d6/d7,-(sp)	Sauve les registres
+
+	move.l	d2,d4			Adresse de la config
+	move.l	d1,d3			Taille des sliders
+	move.l	d0,d2
+	move.l	a0,a2
+
+	lea	DZ(pc),a3
+	move.l	sp,Pile_AMOS-DZ(a3)	Position pile AMOS
+
+	move.l	#1024*4,d0		Reserve la pile
+	move.l	#Public|Clear,d1
+	move.l	$4.w,a6
+	jsr	_LVOAllocMem(a6)
+	tst.l	d0
+	beq.s	.OOMem
+	move.l	d0,Pile_Base-DZ(a3)
+	move.l	d0,a0
+	lea	1024*4(a0),a0
+	move.l	a0,sp
+
+	move.l	a5,a4			Reserve la datazone APCmp
+	bsr	Reserve_DZ		***
+	move.l	a4,AMOS_Dz(a5)
+	move.b	#-1,Flag_AMOS(a5)	Flag Compiler_Shell.AMOS
+	move.l	d2,d0
+	move.l	a2,a0
+	move.w	d3,Total_Position(a5)	Stocke pour l'affichage
+	move.l	d4,A_Config(a5)		Adresse de la configuration
+	move.b	#-1,Flag_Quiet(a5)	Pas de messages
+	bra	Go_On			Branche au compilateur
+
+; Out of memory immediat
+.OOMem	moveq	#-2,d0
+	movem.l	(sp)+,a3-a6/d6/d7
+	rts
+
+; 	Rebranche au compilateur pour continuer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_Cont
+	movem.l	a3-a6/d6/d7,-(sp)	Sauve les registres AMOSPro
+	lea	DZ(pc),a0
+	move.l	sp,Pile_AMOS-DZ(a0)	Stocke l'adresse de retour
+	move.l	Pile_APCmp-DZ(a0),sp
+	movem.l	(sp)+,d0-d7/a0-a6	Recupere tout le compilateur
+	rts				Rebranche a la routine
+
+;	ABORT: arrete la compilation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_Stop
+	movem.l	a3-a6/d6/d7,-(sp)	Sauve les registres AMOSPro
+	lea	DZ(pc),a0
+	move.l	sp,Pile_AMOS-DZ(a0)	Stocke l'adresse de retour
+	move.l	Pile_APCmp-DZ(a0),sp
+	movem.l	(sp)+,d0-d7/a0-a6	Recupere tout le compilateur
+	bra	Err_ControlC
+
+; 	Retourne au basic avec tout ouvert!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_Back
+	movem.l	a0-a6/d0-d7,-(sp)	Stocke tout!
+	lea	DZ(pc),a0
+	move.l	sp,Pile_APCmp-DZ(a0)	Stocke la pile
+	move.l	Pile_AMOS-DZ(a0),sp	Pile d'AMOSPro en plan
+	movem.l	(sp)+,a3-a6/d6/d7	On recupere tout!
+	moveq	#-1,d0			Retour normal
+	rts
+
+;	Efface le buffer de la pile
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOS_TheEnd
+	lea	DZ(pc),a3
+	move.l	Pile_AMOS-DZ(a3),sp
+	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.l	Pile_Base-DZ(a3),a1
+	clr.l	Pile_Base-DZ(a3)
+	move.l	#1024*4,d0
+	move.l	$4.w,a6
+	jsr	_LVOFreeMem(a6)
+.Skip	movem.l	(sp)+,d0-d1/a0-a1/a6
+	movem.l	(sp)+,a3-a6/d6/d7
+	tst.l	d0
+	rts
+
+
+
+;---------------------------------------------------------------------
+;  Entree CLI
+;---------------------------------------------------------------------
+CliIn	bsr	Reserve_DZ
+	clr.b	Flag_AMOS(a5)
+
+; Entree commune
+Go_On	move.l	sp,C_Pile(a5)
+	movem.l	a0/d0,-(sp)
+; Reserve les buffers principaux
+	bsr	Reserve_Work
+; Recopie la ligne de commande dans le buffer
+	movem.l	(sp)+,a1/d1
+	move.l	B_Work(a5),a0
+	subq.l	#1,d1
+	bmi.s	.loop3
+.loop1	move.b	(a1)+,d0
+	cmp.b	#32,d0
+	bcs.s	.loop2
+	move.b	d0,(a0)+
+.loop2	dbra	d1,.loop1
+.loop3	clr.b	(a0)
+; Init de l'amigados
+	bsr	Init_Disc
+
+; Flags par defaut
+	move.b	#32,Flag_Flash(a5)
+	clr.b	Flag_Type(a5)
+	move.b	#1,Flag_Default(a5)
+	clr.b	Flag_WB(a5)
+
+	IFNE	Debug
+	move.w	d7,Stop_Line(a5)
+	ENDC
+
+; Explore la ligne de commande (si option -C)
+	move.l	B_Work(a5),a0
+	bsr	CommandLine
+; Si pas sous AP_Compiler.AMOS, charge la config
+; Explore sa ligne de commande (si option -E)
+	tst.l	A_Config(a5)		Deja chargee?
+	bne.s	.COk
+	move.l	Path_Config(a5),a0
+	tst.b	(a0)			Une command line specifiee?
+	bne.s	.CLoad			OUI! Charge directement...
+	lea	Def_Config0(pc),a0
+	move.l	Path_Config(a5),a1
+	bsr	CopName
+	bsr	Load_Config
+	bne.s	.COk
+	lea	Def_Config1(pc),a0
+	move.l	Path_Config(a5),a1
+	bsr	CopName
+	bsr	Load_Config
+	bne.s	.COk
+	lea	Def_Config2(pc),a0
+	move.l	Path_Config(a5),a1
+	bsr	CopName
+.CLoad	bsr	Load_Config
+	beq	Err_CantLoadConfig
+.COk	bsr	Cold_Config		Recupere les chaines par defaut
+	moveq	#1,d0
+	bsr	Get_ConfigMessage	Recupere la ligne de commande
+	bsr	CommandLine		Explore la commande line
+	move.l	d0,-(sp)
+	moveq	#PP_Config,d0
+	bsr	Go_Position
+; Encore un coup la vraie...
+	move.l	B_Work(a5),a0
+	bsr	CommandLine
+	move.l	d0,-(sp)
+; Charge la configuration interpreteur
+	bsr	Init_Config
+; Des erreurs?
+	move.l	(sp)+,d0
+	bne	Err_InCommand
+	move.l	(sp)+,d0
+	bne	Err_InDefCommand
+; Si mode debug, force le mode numbers!
+	tst.b	Flag_Debug(a5)		Debug en route?
+	beq.s	.Sl
+	move.b	#1,Flag_Numbers(a5)	Oui, force les numbers
+.Sl
+; Imprime le titre
+	moveq	#16,d0
+	moveq	#19,d1
+	bsr	Mes_MPrint
+	moveq	#PP_IntConfig,d0
+	bsr	Go_Position
+; Fabrique le nom du programme objet
+	bsr	Make_ObjectName
+
+;	Debut de compilation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+; Ouvre les librairies
+	bsr	Libraries_Load
+	moveq	#PP_LibLoad,d0
+	bsr	Go_Position
+; Ouverture / Tokenisation / Test du source
+	bsr	Open_Source
+	moveq	#PP_OpenSource,d0
+	bsr	Go_Position
+; Ouverture de l'objet
+	bsr	Open_Objet
+	moveq	#PP_OpenObjet,d0
+	bsr	Go_Position
+
+; Compilation
+	bsr	Compile
+
+; Sauvegarde
+	bsr	Close_Objet
+	moveq	#PP_CloseObjet,d0
+	bsr	Go_Position
+
+; Sauve l'icon
+	bsr	Init_Icon
+	bsr	Save_Icon
+	moveq	#PP_Icons,d0
+	bsr	Go_Position
+
+; Messages de fin
+	moveq	#30,d0
+	bsr	Mes_Print
+	move.l	Mem_Maximum(a5),d0
+	bsr	Digit
+	moveq	#32,d0
+	bsr	Mes_Print
+	bsr	Return
+
+	moveq	#31,d0
+	bsr	Mes_Print
+	move.l	L_Objet(a5),d0
+	bsr	Digit
+	moveq	#32,d0
+	bsr	Mes_Print
+	bsr	Return
+
+	moveq	#33,d0
+	bsr	Mes_Print
+
+; Mode INFOS: imprime l'etat des buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	Flag_Infos(a5)
+	beq	.Noinfos
+	bsr	Return
+
+; Les informations generales
+	tst.b	MathFlags(a5)			Des maths?
+	beq.s	.Nomath
+	lea	Debug_Float(pc),a0
+	bsr	Str_Print
+.Nomath	lea	Debug_LObjet(pc),a0		Longueur objet
+	move.l	Info_LObjet(a5),d0
+	bsr	Info_Print
+	lea	Debug_LLibrary(pc),a0		Longueur lib relatives
+	move.l	Info_LLibrary(a5),d0
+	bsr	Info_Print
+	lea	Debug_ELibrary(pc),a0
+	move.l	Info_ELibrary(a5),d0
+	bsr	Info_Print
+; Les buffers
+	lea	Mes_Buffers(pc),a4
+	lea	D_Buffers(a5),a3
+.Loop0	move.l	a4,a0
+	bsr	Str_Print
+	move.l	(a3),d0
+	bne.s	.Pavide
+	lea	Mes_Bufs1(pc),a0
+	bsr	Str_Print
+	bsr	Return
+	bra.s	.Loop3
+.Pavide	move.l	d0,a2
+	move.l	-4(a2),d6
+	subq.l	#4,d6
+	lea	0(a2,d6.l),a1
+.Loop1	tst.l	-(a1)
+	bne.s	.Loop2
+	cmp.l	a2,a1
+	bhi.s	.Loop1
+.Loop2	addq.l	#4,a1
+	move.l	a1,d7
+	sub.l	a2,d7
+	move.l	d7,d0
+	bsr	Digit
+	lea	Mes_Bufs2(pc),a0
+	bsr	Str_Print
+	move.l	d6,d0
+	bsr	Digit
+	lea	Mes_Bufs3(pc),a0
+	bsr	Str_Print
+	move.l	d6,d0
+	sub.l	d7,d0
+	bsr	Digit
+	bsr	Return
+.Loop3	tst.b	(a4)+
+	bne.s	.Loop3
+	addq.l	#4,a3
+	tst.b	(a4)
+	bne.s	.Loop0
+	bsr	Return
+.Noinfos
+
+; Compilation complete: retourne la taille / nombre instructions etc...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TheEndOk
+	move.l	B_Work(a5),a0
+	clr.b	(a0)
+	moveq	#0,d0
+	move.l	L_Objet(a5),d1
+	moveq	#0,d2
+	move.w	NbInstr(a5),d2
+	bra	TheEnd
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SORTIE DU COMPILATEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+TheEnd
+; - - - - - - - - - - - - -
+	move.l	C_Pile(a5),sp
+	movem.l	a0/d0/d1/d2,-(sp)
+	move.b	Flag_AMOS(a5),d7
+	bsr	F_CloseAll
+	bsr	Libraries_Free
+	bsr	DeleteList
+	bsr	Close_Source
+	bsr	Free_Objet
+	bsr	End_Icon
+	bsr	Free_Work
+	bsr	Free_DZ
+	movem.l	(sp)+,a0/d0/d1/d2
+	tst.b	d7
+	bmi	AMOS_TheEnd
+	rts
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; PASSE 1-> Fabrication du code
+;---------------------------------------------------------------------
+
+; 	Reservation des buffers de compilation base= programme de 32K
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Compile_Reserve
+	move.l	End_Source(a5),d2	Longueur source
+	lsr.l	#8,d2			/ 1024
+	lsr.l	#2,d2
+	cmp.w	#16,d2			Base de calculs= 16K
+	bcc.s	.Sup
+	moveq	#16,d2
+.Sup	tst.b	Flag_Big(a5)		Si flag big, buffers= buffersX4
+	beq.s	.Pabig
+	lsl.l	#2,d2
+.Pabig	moveq	#4,d3			4 shifts= 16
+
+	lea	B_FlagVarL(a5),a0	Variables locales
+	move.l	d2,d0
+	mulu	#256,d0
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+
+	lea	B_FlagVarG(a5),a0	Variable globales
+	move.l	d2,d0
+	mulu	#256,d0
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+
+	lea	B_Chaines(a5),a0	Buffer des chaines
+	move.l	d2,d0
+	mulu	#384*4,d0
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+	move.l	a0,A_Chaines(a5)	Marque la fin des chaines
+
+	lea	B_Lea(a5),a0		Buffer des branchements en avant
+	move.l	d2,d0
+	mulu	#64*8,d0
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+	move.l	a0,B_Lea(a5)
+	move.l	a0,A_Lea(a5)
+	move.l	#$7FFFFFFF,(a0)
+
+	lea	B_Labels(a5),a0		Buffer des labels
+	move.l	d2,d0
+	mulu	#768*4,d0
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+	move.l	a0,B_Labels(a5)
+
+	lea	B_Reloc(a5),a0		Buffer de relocation
+	move.l	d2,d0
+	mulu	#256*4,d0
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+
+	lea	B_Instructions1(a5),a0	Buffer des adresses des instructions
+	move.l	d2,d0
+	mulu	#1024*4,d0		Environ 1500 instructions / 32 k
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+
+	lea	B_Instructions2(a5),a0	Buffer des adresses des instructions procedures
+	move.l	d2,d0
+	mulu	#768*4,d0		Environ 1500 instructions / 32 k
+	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+
+	lea	B_LibRel(a5),a0		Buffer de relocation des JSR
+	move.l	d2,d0
+	mulu	#1024*2,d0
+	cmp.b	#1,Flag_Debug(a5)	Si mode DEBUG, un jump par instruction!
+	bcs.s	.NoD
+	lsl.l	#1,d0			Donc, fois deux!
+.NoD	lsr.l	d3,d0
+	bsr	Buffer_Reserve
+	move.l	a0,A_LibRel(a5)
+
+	move.l	#1024,d0		Buffer des boucles
+	lea	B_Bcles(a5),a0
+	bsr	Buffer_Reserve
+	move.l	a0,A_Bcles(a5)
+
+	move.l	#256,d0			Buffer de stockage position
+	lea	B_Stock(a5),a0
+	bsr	Buffer_Reserve
+	move.l	a0,A_Stock(a5)
+
+	move.l	#1024*4,d0		Buffer de script expressions
+	lea	B_Script(a5),a0
+	bsr	Buffer_Reserve
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	COMPILATION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+Compile
+
+; Longueur du buffer variable par default
+	move.l	#8,L_Buf(a5)
+
+; Relocation
+	bsr	Init_Reloc
+
+; Adresses SORTIE / ENTREE
+	sub.l	a4,a4
+	lea	20,a6			Commence apres le header
+
+; Message
+	moveq	#23,d0
+	bsr	Mes_Print
+	bsr	Return
+	move.l	A_Banks(a5),d2		Estime le nombre de lignes
+	lsr.l	#4,d2
+	mulu	#584,d2
+	divu	#19000,d2
+	lsl.w	#4,d2
+	move.w	New_Position(a5),d0
+	moveq	#PP_Compile,d1
+	bsr	Set_Pour
+
+; Float
+	clr.w	MathType(a5)
+	tst.b	MathFlags(a5)
+	bpl.s	.Flt
+	move.w	#1,MathType(a5)
+.Flt
+
+;	Va fabriquer le header
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Header
+
+;	Debut du hunk programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Prog,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+
+;	Debut de la relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,DebRel(a5)
+	move.l	a4,OldRel(a5)
+	move.l	a4,Lib_OldRel(a5)
+
+;	Prepare le source si DEBUG / NUMBERS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Db	tst.b	Flag_Numbers(a5)
+	beq	DbEnd
+	move.b	#1,Flag_Errors(a5)	Force les messages d'erreur
+	move.l	B_Source(a5),d2		Position de la fin
+	add.l	End_Source(a5),d2
+	move.l	B_Source(a5),a0
+	lea	20(a0),a0
+	moveq	#0,d3			Commence en ligne 1
+DbRloop	moveq	#0,d1
+DbLoop	addq.w	#1,d3
+	add.w	d1,a0			Ligne suivante
+	add.w	d1,a0
+	cmp.l	d2,a0			La fin?
+	beq.s	DbEnd
+	move.b	(a0),d1			Encore la fin?
+	beq.s	DbEnd
+	move.w	d3,(a0)			Change le numero
+	cmp.w	#_TkProc,2(a0)		Une procedure
+	bne.s	DbLoop
+	move.w	10(a0),d0		Fermee?
+	bpl.s	DbLoop
+	btst	#6+8,d0			Bloquee?
+	beq.s	DbLoop
+	move.l	4(a0),d1		Oui, saute!
+	lea	12+2(a0,d1.l),a0
+	bra.s	DbRloop
+DbEnd
+
+;	NO DATAS
+; ~~~~~~~~~~~~~~
+	bsr	CreNoData
+
+;	Appel des routines d'init
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	CreeInits
+
+;	Code bug
+; ~~~~~~~~~~~~~~
+	IFNE	Debug>1
+	lea	BugCode(pc),a0
+	bsr	OutCode
+	ENDC
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Compilation du programme principal
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	bsr	Ver_Compile		Table de tokenisation speciale
+
+; Variables locales au niveau 0= variables globales
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	B_FlagVarG(a5),A_FlagVarL(a5)
+	move.l	B_Instructions1(a5),B_Instructions(a5)
+
+; Procedure d'entree
+; ~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	bsr	PrgIn
+	move.w	Cmva6d7(pc),d0		VGlobales=VLocales
+	bsr	OutWord
+
+;	Boucle du CHRGET
+; ~~~~~~~~~~~~~~~~~~~~~~
+ChrGet	bsr	Aff_Pour		Affichage
+	cmp.l	End_Source(a5),a6	La fin?
+	beq.s	ChrEnd
+	bsr	GetWord
+	beq.s	ChrEnd
+	move.w	d0,Cur_Line(a5)
+; Sort le numero de la ligne si mode debug
+Chr0	bsr	Db_OutNumber
+; Regarde la table des branchements en avant
+.Loop	move.l	B_Lea(a5),a0		Faire un saut?
+	cmp.l	(a0),a6
+	bcs.s	Chr1
+	bsr	PokeAd
+	bra.s	.Loop
+; Appelle l'instruction
+Chr1	bsr	GetWord
+	beq.s	ChrGet
+	cmp.w	#_TkDP,d0
+	beq.s	Chr0
+	addq.w	#1,NbInstr(a5)
+	move.l	B_Script(a5),A_Script(a5)
+	clr.w	EvaCompteur(a5)
+	move.l	AdTokens(a5),a0
+	move.w	0(a0,d0.w),d1		Prend l'instruction
+	bmi.s	.Spe			Speciale?
+	bsr	InNormal		Non, routine generale
+	bra.s	Chr0
+.Spe	neg.w	d1			Negatif
+	lea	Inst_Jumps(pc),a1	= pointeur sur la table
+	jsr	0(a1,d1.w)
+	bra.s	Chr0
+; Appelle la routine de fin
+ChrEnd	bsr	OutLea			Marque la fin du programme
+	move.w	#L_InEnd,d0
+	bsr	Do_JmpLibrary
+	move.l	B_Instructions(a5),B_Instructions1(a5)
+	move.l	B_Instructions2(a5),B_Instructions(a5)
+	move.l	AdAdress(a5),AdAdAdress(a5)
+	move.w	Cpt_Labels(a5),OCpt_Labels(a5)
+	move.b	Flag_Procs(a5),OFlag_Procs(a5)
+	move.l	A_Datas(a5),A_ADatas(a5)
+	move.w	M_ForNext(a5),MM_ForNext(a5)
+; Quelque chose � compiler???
+	tst.w	NbInstr(a5)
+	beq	Err_NothingToCompile
+
+
+;--------------------------------------> Procedures
+	move.l	B_FlagVarL(a5),A_FlagVarL(a5)
+	move.l	B_Labels(a5),A_Proc(a5)
+PChr1	move.l	A_Proc(a5),a0
+	moveq	#-6,d0
+PChr2	lea	6(a0,d0.w),a0		Label suivant
+	move.w	(a0),d0			Le dernier?
+	beq	PChrX
+	move.l	2(a0),d1		Une procedure
+	bclr	#30,d1
+	beq.s	PChr2			Non, on boucle
+	move.l	d1,a6
+	move.l	a4,2(a0)		Adresse de l'entree de cette procedure
+; Adresse de la fin de la procedure
+	bsr	GetLong
+	subq.l	#4,a6			Prend l'offset dans le source
+	lea	10-2(a6,d0.l),a0
+	move.l	a0,F_Proc(a5)
+; Stocke l'entree procedure si procedure langage machine
+	lea	Proc_Start(a5),a0
+	move.l	a3,(a0)+		4  S_a3
+	move.l	a4,(a0)+		8  S_a4
+	move.l	OldRel(a5),(a0)+	12 S_OldRel
+	move.l	A_LibRel(a5),(a0)+	16 S_LibRel
+	move.l	Lib_OldRel(a5),(a0)+	20 S_LibOldRel
+	move.l	A_Chaines(a5),(a0)+	24 S_Chaines
+; Stockage position actuelle
+	move.w	Cmvqd0(pc),d0
+	bsr	OutWord
+	move.w	#L_DProc1,d0
+	bsr	Do_JsrLibrary
+	moveq	#4,d0
+	bsr	PrgIn
+; Adresse des variables
+	lea	10(a6),a6
+	bsr	SoVar
+	moveq	#0,d7
+	moveq	#0,d6
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkBra1,d0
+	bne.s	DPro6
+; Empile les variables / Appelle DPROC2 + Float
+	addq.l	#2,a6
+DPro0	addq.l	#2,a6
+	lsl.l	#1,d6
+	addq.l	#1,d7
+	movem.l	d6/d7,-(sp)
+	bsr	VarAdr
+	movem.l	(sp)+,d6/d7
+	cmp.b	#1,d2
+	bne.s	DPro1
+	bset	#0,d6
+DPro1	tst.w	d1
+	bmi.s	DPro4
+	beq.s	DPro2
+; Variable GLOBALE
+	move.w	Clea2a0a0(pc),d0
+	bra.s	DPro3
+; Variable LOCALE
+DPro2	move.w	Clea2a6a0(pc),d0
+DPro3	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	bra.s	DPro5
+; Variable TABLEAU
+DPro4	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+DPro5	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+; Encore un param?
+	bsr	GetWord
+	cmp.w	#_TkBra2,d0
+	bne.s	DPro0
+; Entete de la procedure
+	move.w	Cmvqd3(pc),d0		N params
+	move.b	d7,d0
+	bsr	OutWord
+	move.w	Cmvid4(pc),d0		Flags des variables destination
+	move.w	Cmvqd4(pc),d1
+	move.l	d6,d2
+	bsr	OutMove
+	move.w	#L_DProc2F,d0		Routine d'egalisation
+	add.w	MathType(a5),d0		+ 0 / 1 selon precision
+	bsr	Do_JsrLibrary
+; Pas de melange des labels!
+DPro6	addq.w	#1,N_Proc(a5)
+
+;	CHRGET!
+; ~~~~~~~~~~~~~
+	addq.l	#2,a6
+
+ProChr	bsr	Aff_Pour		Nouvelle ligne
+	bsr	GetWord
+	beq	Err_Syntax		???
+	move.w	d0,Cur_Line(a5)
+
+; Sort le numero de la ligne si mode debug
+ProChr0	bsr	Db_OutNumber
+
+; Verifie les sauts en avant
+.Loop	move.l	B_Lea(a5),a0
+	cmp.l	(a0),a6
+	bcs.s	ProChr1
+	bsr	PokeAd
+	bra.s	.Loop
+
+ProChr1	bsr	GetWord			Nouvelle instruction
+	beq.s	ProChr
+	cmp.w	#_TkDP,d0
+	beq.s	ProChr0
+	addq.w	#1,NbInstr(a5)
+	move.l	B_Script(a5),A_Script(a5)
+	clr.w	EvaCompteur(a5)
+	move.l	AdTokens(a5),a0
+	move.w	0(a0,d0.w),d1		Prend l'instruction
+	bmi.s	.Spe			Speciale?
+	bsr	InNormal		Non, routine generale
+	bra.s	ProChr0
+.Spe	neg.w	d1			Negatif
+	lea	Inst_Jumps(pc),a1	= pointeur sur la table
+	jsr	0(a1,d1.w)
+	bra.s	ProChr0
+
+; Fin procedure
+InEndProc
+	bsr	OutLea
+	addq.l	#4,sp
+	bsr	GetWord			END PROC[ ]???
+	subq.w	#2,a6
+	cmp.w	#_TkBra1,d0
+	bne.s	CEpr2
+	bsr	Fn_New_Evalue
+	bsr	Optimise_D2
+	addq.l	#2,a6
+	and.b	#$0F,d2			Recupere les parametres
+	lsl.w	#1,d2
+	jmp	.jmp(pc,d2.w)
+.jmp	bra.s	.Ent
+	bra.s	.Float
+	lea	CdEProS(pc),a0
+	bra.s	.Suite
+.Float	lea	CdEProF(pc),a0
+	tst.b	MathFlags(a5)
+	bpl.s	.Suite
+	lea	CdEProD(pc),a0
+	bra.s	.Suite
+.Ent	lea	CdEProE(pc),a0
+.Suite	bsr	OutCode
+CEpr2	move.w	#L_FProc,d0		Routine de fin de procedure
+	bsr	Do_JmpLibrary
+	move.l	A_FlagVarL(a5),a0	Poke toutes les adresses dans l'appel
+	bsr	PrgOut
+	bra	PChr1
+PChrX
+
+;	Insere les routines d'init
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr 	FiniInits
+
+;	Retrouve les variables globales >>> init du niveau zero
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	B_Instructions1(a5),B_Instructions(a5)
+	move.l	AdAdAdress(a5),AdAdress(a5)
+	move.l	B_FlagVarG(a5),a0
+	move.l	A_ADatas(a5),A_Datas(a5)
+	move.w	OCpt_Labels(a5),Cpt_Labels(a5)
+	move.b	OFlag_Procs(a5),Flag_Procs(a5)
+	move.w	MM_ForNext(a5),M_ForNext(a5)
+	clr.w	N_Proc(a5)
+	bsr	PrgOut
+	bsr	End_Pour
+
+;	Si source en INCLUDE, on fait les banques!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	and.b	#1,Flag_Source(a5)
+
+;	Copie les constantes alphanumeriques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	B_Chaines(a5),a1
+	bra.s	c_ch5
+c_ch1	move.l	d0,a6
+	move.l	a4,(a1)
+	bsr	GetWord
+	move.w	d0,d1
+	bsr	OutWord
+	addq.w	#1,d1
+	lsr.w	#1,d1
+	subq.w	#1,d1
+	bmi.s	c_ch4
+c_ch3	bsr	GetWord
+	bsr	OutWord
+	dbra	d1,c_ch3
+c_ch4	addq.l	#4,a1
+c_ch5	move.l	(a1),d0
+	bne.s	c_ch1
+; Securite un mot long
+	moveq	#0,d0
+	bsr	OutLong
+	moveq	#PP_Chaines,d0
+	bsr	Go_Position
+
+;	Fin du hunk programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	A_LibRel(a5),a0		Fin de la relocation relative
+	clr.w	(a0)+
+	moveq	#NH_Prog,d1
+	bsr	FinHunk
+	move.l	a4,Info_LObjet(a5)
+
+; 	Si pas de banques, on peut fermer le source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	N_Banks(a5)
+	bne.s	.Banks
+	bsr	Close_Source
+.Banks
+	cmp.b	#3,Flag_Type(a5)	Si AMOS >>> Fin speciale
+	beq	Fin_AMOS
+
+;	HUNK: libraries
+; ~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Libraries,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	moveq	#0,d0			Termine la 1ere partie relocation
+	bsr	OutRel
+	move.l	a4,OldRel(a5)		Debut 2eme partie relocation
+	bsr	Linker			Va linker!
+	moveq	#NH_Libraries,d1
+	bsr	FinHunk
+	moveq	#0,d0			Fin 2eme partie relocation
+	bsr	OutRel
+
+;	HUNK: Recopie la table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Reloc,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	move.l	a4,AA_Reloc(a5)
+; Copie
+	move.l	B_Reloc(a5),a1
+CRel1	move.b	(a1)+,d0
+	bsr	OutByte
+	cmp.l	a3,a1
+	bcs.s	CRel1
+	sub.l	B_Reloc(a5),a1
+	move.w	a1,L_Reloc(a5)
+	moveq	#NH_Reloc,d1
+	bsr	FinHunk
+
+;	HUNK: AMOS.library
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+CopyAMOSLib
+	moveq	#NH_amoslib,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	tst.b	Flag_AMOSLib(a5)
+	bne.s	.Lib
+	moveq	#0,d0
+	bsr	OutLong
+	bra.s	.PasLib
+; Inclus la librairie!
+.Lib	moveq	#26,d0
+	bsr	Mes_Print
+	bsr	Return
+	lea	Nom_AMOSLib(pc),a0
+	move.l	a0,d1
+	moveq	#F_Courant,d0
+	bsr	F_OpenOldD1
+	beq	Err_AMOSLib
+	moveq	#F_Courant,d1		Ouvre le fichier
+	move.l	B_Work(a5),d2
+	moveq	#36,d3			Charge le header
+	bsr	F_Read
+	bne	Err_AMOSLib
+	move.l	d2,a2
+	cmp.l	#$03F3,(a2)		Un programme?
+	bne	Err_BadConfig
+	move.l	20(a2),d3		Longueur du code
+	lsl.l	#2,d3
+	moveq	#F_Courant,d1
+	bsr	Out_F_Read
+	moveq	#2,d0			Une mouse.abk?
+	bsr	Get_IntConfigMessage
+	tst.b	(a0)
+	beq.s	.PasLib
+	moveq	#F_Courant,d1		OUI, on ferme!
+	bsr	F_Close
+.PasLib	moveq	#NH_amoslib,d1		Fin du hunk
+	bsr	FinHunk
+	moveq	#PP_System1,d0
+	bsr	Go_Position
+
+;	HUNK: Mouse.Abk
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Mouse,d1
+	move.l	#Hunk_Chip,d2		CHIP mem
+	bsr	DebHunk
+	moveq	#2,d0			Mouse.Abk
+	bsr	Get_IntConfigMessage
+	tst.b	(a0)			Charger le fichier?
+	bne.s	.Mouse
+	tst.b	Flag_AMOSLib(a5)	Prendre celui de l'AMOS.Library
+	bne.s	.AMouse
+; Utiliser le fichier par defaut
+	moveq	#0,d0
+	bsr	OutLong
+	bra.s	.FMouse
+; Charger le fichier actuel
+.Mouse	bsr	AddPath
+	moveq	#F_Courant,d0
+	bsr	F_OpenOld
+	beq	Err_DiskError
+	moveq	#F_Courant,d1
+	bsr	F_Lof
+	moveq	#F_Courant,d1
+	move.l	d0,d3			Copie tout!
+	bsr	Out_F_Read
+	bra.s	.CMouse
+; Charge la mouse de la librairie AMOS
+.AMouse	moveq	#F_Courant,d1		Le debut du hunk
+	move.l	B_Work(a5),d2
+	moveq	#4+8,d3
+	bsr	F_Read
+	move.l	d2,a2			Longueur des sprites
+	move.l	8(a2),d3
+	and.l	#$0FFFFFFF,d3
+	lsl.l	#2,d3
+	bsr	Out_F_Read
+.CMouse	moveq	#F_Courant,d1
+	bsr	F_Close
+; Ferme le hunk mouse
+.FMouse	moveq	#NH_Mouse,d1
+	bsr	FinHunk
+	moveq	#PP_System2,d0
+	bsr	Go_Position
+
+;	HUNK: environnement interpreter (deja charge)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Env,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	move.l	#PI_End-PI_Start,d0	Recopie les donnees
+	move.w	d0,d1
+	lsr.w	#1,d1
+	subq.w	#1,d1
+	bsr	OutLong			Longueur des donnees
+	lea	PI_Start(a5),a1
+.Loop	move.w	(a1)+,d0		Puis donnees
+	bsr	OutWord
+	dbra	d1,.Loop
+	move.l	Sys_Messages(a5),a1	Buffer des chaines
+	move.l	-(a1),d1		Taille du buffer
+	lsr.w	#1,d1			Copie tout!
+	subq.w	#1,d1
+.Loop1	move.w	(a1)+,d0		Puis donnees
+	bsr	OutWord
+	dbra	d1,.Loop1
+	moveq	#NH_Env,d1
+	bsr	FinHunk
+	moveq	#PP_System3,d0
+	bsr	Go_Position
+
+;	HUNK: banque par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_DefaultBank,d1	Un nouveau hunk
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	btst	#F_Dialogs,Flag_Libraries(a5)	Quelques messages?
+	bne.s	.Open
+	btst	#F_Input,Flag_Libraries(a5)	Quelques messages?
+	bne.s	.Open
+; Pas de banque: un -1
+	moveq	#-1,d0			Un simple 0 si pas de banque
+	bsr	OutLong
+	bra	.Close
+; Ouvre le fichier
+.Open	moveq	#8,d0			Le fichier
+	bsr	Get_IntConfigMessage
+	bsr	AddPath
+	moveq	#F_Courant,d0
+	bsr	F_OpenOld
+	beq	Err_DiskError
+	moveq	#F_Courant,d1
+	move.l	B_Work(a5),d2		Charge le header dans le buffer
+	moveq	#4,d3
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a1
+	cmp.l	#"AmBk",(a1)		C'est bien la banque?
+	bne	Err_DiskError
+	moveq	#8,d3
+	bsr	F_Read
+	bne	Err_DiskError
+	moveq	#0,d4
+	move.w	(a1),d4			Numero
+	move.w	#1<<Bnk_BitData,d5	Le flag
+	move.l	4(a1),d6		Longueur avec le nom
+	and.l	#$0FFFFFFF,d6
+	move.l	d4,(a1)+		Fabrique un entete
+	move.w	d5,(a1)+
+	clr.w	(a1)+
+	btst	#F_Dialogs,Flag_Libraries(a5)	Copier toute la banque?
+	bne	.All
+; On ne copie que quelques messages
+	move.l	a1,d2			Charge le nom
+	moveq	#8,d3
+	bsr	F_Read
+	bne	Err_DiskError
+	lea	8(a1),a1
+	move.w	#2,(a1)+		2 Chunks
+	clr.l	(a1)+			Pas de graphismes
+	move.l	#12,(a1)+		Pointeur sur les textes
+	move.l	B_DiskIn(a5),a0
+	move.l	a0,d2
+	moveq	#12,d3			Lis le header de la banque
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	2+4(a0),d2		Longueur des graphismes
+	sub.l	#12,d2			Moins le header
+	moveq	#0,d3			Par rapport a la position courante
+	bsr	F_Seek
+	move.l	B_DiskIn(a5),d2		Lis 1k de texte!
+	move.l	#1024,d3
+	bsr	F_Read			sans erreur
+	moveq	#15,d0			Copie les message 15 � 19
+	moveq	#19,d1
+	moveq	#0,d2
+.Cop	cmp.w	d0,d2			Copie des messages
+	bcc.s	.In
+	clr.b	(a1)+
+	clr.b	(a1)+
+	bra.s	.Suit
+.In	movem.l	d0/d1,-(sp)
+	move.w	d2,d0
+	move.l	B_DiskIn(a5),a0
+	bsr	Get_Message
+	clr.b	(a1)+
+	move.b	d0,(a1)+
+	ext.w	d0
+	bra.s	.Co
+.Copy	move.b	(a0)+,(a1)+
+.Co	dbra	d0,.Copy
+	movem.l	(sp)+,d0/d1
+.Suit	addq.w	#1,d2
+	cmp.w	d1,d2
+	bls.s	.Cop
+	clr.b	(a1)+			Marque la fin
+	move.b	#$FF,(a1)+
+	move.w	a1,d0			Rend pair
+	and.w	#$0001,d0
+	add.w	d0,a1
+	move.l	B_Work(a5),a0
+	move.l	a1,d0
+	sub.l	a0,d0
+	bsr	Copy_Out
+	bra.s	.Close
+; On copie toute la banque
+.All	moveq	#8,d0			Va ecrire l'entete
+	move.l	B_Work(a5),a0
+	bsr	Copy_Out
+	move.l	d6,d3
+	moveq	#F_Courant,d1
+	bsr	Out_F_Read		Copie le reste
+; Ferme le fichier
+.Close	moveq	#F_Courant,d1
+	bsr	F_Close
+	moveq	#NH_DefaultBank,d1	Ferme le hunk
+	bsr	FinHunk
+.Nodialog
+	moveq	#PP_System4,d0
+	bsr	Go_Position
+
+;	Copie les messages d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_ErrorMessage,d1	Un nouveau hunk
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	tst.b	Flag_Errors(a5)
+	bne.s	.Err
+	moveq	#0,d0			Un simple 0 si pas de banque
+	bsr	OutLong
+	bra.s	.NoErr
+.Err	bsr	Open_EditConfig
+	bsr	Skip_EditChunk		Saute les data systeme
+	bsr	Skip_EditChunk		Saute les chaines systeme
+	bsr	Skip_EditChunk		Saute les menus
+	bsr	Skip_EditChunk		Saute les messages editeur
+	moveq	#F_Courant,d1
+	move.l	B_Work(a5),d2		Charge la taille
+	moveq	#4,d3
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a1
+	move.l	(a1),d0
+	move.l	d0,d3			Longueur
+	bsr	OutLong
+	bsr	Out_F_Read		Puis les messages
+	bsr	F_Close
+.NoErr	moveq	#NH_ErrorMessage,d1
+	bsr	FinHunk
+	moveq	#PP_System5,d0
+	bsr	Go_Position
+
+; 	Copie les banques
+; ~~~~~~~~~~~~~~~~~~~~~~~
+CopyBanks
+	move.w	New_Position(a5),d0
+	moveq	#PP_Banks,d1
+	move.w	N_Banks(a5),d2
+	bsr	Set_Pour
+	move.w	N_Banks(a5),d7
+	beq	.NoBanks
+	moveq	#27,d0
+	bsr	Mes_Print
+	bsr	Return
+	move.l	A_Banks(a5),a6		Debut des banques
+	addq.l	#6,a6
+	moveq	#NH_Banks,d6		Numero des hunks
+; Boucle de copie d'une banque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.BLoop	bsr	GetLong
+	cmp.l	#"AmSp",d0
+	beq.s	.SprIco
+	cmp.l	#"AmIc",d0
+	beq.s	.SprIco
+	cmp.l	#"AmBk",d0
+	bne	Err_NotAMOSProgram
+; Un banque normale
+; ~~~~~~~~~~~~~~~~~
+	bsr	GetWord
+	move.w	d0,d4			Numero de la banque
+	moveq	#0,d5			Type de banque
+	bsr	GetWord
+	move.w	d0,d1
+	bsr	GetLong
+	move.l	d0,d3			Longueur
+	and.l	#$0FFFFFFF,d3
+	tst.l	d0			Data ou work?
+	bpl.s	.Skip1
+	bset	#Bnk_BitData,d5
+.Skip1	move.l	#Hunk_Public,d2		Type de HUNK
+	tst.w	d1			Chip ou fast?
+	bne.s	.Skip2
+	bset	#Bnk_BitChip,d5
+	move.l	#Hunk_Chip,d2
+.Skip2	move.l	d6,d1			Debut du hunk
+	bsr	DebHunk
+	moveq	#0,d0			Sort le header
+	move.w	d4,d0			Numero.l
+	bsr	OutLong
+	move.w	d5,d0			Flags
+	bsr	OutWord
+	moveq	#0,d0			Vide
+	bsr	OutWord
+	bsr	Copy_Source		Copie le reste
+	bra	.BNext
+; Une banque de sprites / Icones
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.SprIco	move.l	d0,d3			Garde le code
+	move.l	d6,d1			Debut du hunk
+	move.l	#Hunk_Public,d2
+	bsr	DebHunk
+	move.l	d3,d0			Le code
+	bsr	OutLong
+	bsr	GetWord			Le nombre de sprites
+	bsr	OutWord
+	move.w	d0,d2
+	subq.w	#1,d2
+	bmi.s	.BVide
+	move.l	B_Work(a5),a1
+.SLoop	bsr	GetWord			SX
+	bsr	OutWord
+	move.w	d0,d3
+	bsr	GetWord			SY
+	bsr	OutWord
+	mulu	d0,d3
+	bsr	GetWord			NPLAN
+	bsr	OutWord
+	mulu	d0,d3
+	bsr	GetLong			HX / HY
+	bsr	OutLong
+	lsl.l	#1,d3			En bytes
+	bsr	Copy_Source		Copie le sprite meme si ZERO!
+	dbra	d2,.SLoop
+.BVide	moveq	#32*2,d3		Copie la palette
+	bsr	Copy_Source
+; Banque suivante
+; ~~~~~~~~~~~~~~~
+.BNext	move.l	d6,d1			Ferme le hunk
+	bsr	FinHunk
+	bsr	Aff_Pour		Affichage
+	addq.w	#1,d6			Hunk suivant
+	subq.w	#1,d7			Encore une banque?
+	bne	.BLoop
+.NoBanks
+	bsr	End_Pour
+
+;	Fin de la production de code!!!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,L_Objet(a5)
+
+;	Copie toutes les longueurs de HUNKS dans l'entete
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CopyLong
+	sub.l	a4,a4
+	lea	20(a4),a4
+	move.w	N_Hunks(a5),d4
+	subq.w	#1,d4
+	move.l	B_Hunks(a5),a1
+.Hunk	move.l	4(a1),d0
+	bsr	OutLong
+	addq.l	#8,a1
+	dbra	d4,.Hunk
+
+; 	Actualise le loader
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Header,d1
+	bsr	MarkHunk
+	move.l	Ad_HeaderFlags(a5),a4
+	addq.l	#2,a4
+
+	moveq	#0,d0
+	move.b	Flag_Flash(a5),d0
+	tst.b	Flag_WB(a5)
+	beq.s	.Skip1
+	bset	#16+FPrg_Wb,d0
+.Skip1	tst.b	Flag_Default(a5)
+	beq.s	.Skip2
+	bset	#16+FPrg_Default,d0
+.Skip2	bsr	OutLong
+
+	move.l	Lib_FinInternes(a5),d0		Pivot de la librarie (a4)
+	sub.l	Lib_Debut(a5),d0
+	cmp.l	#$10000,d0
+	bcc	Err_Syntax
+	lsr.l	#1,d0				/ 2
+	bclr	#0,d0				Pair!
+	move.l	d0,Lib_FinInternes(a5)
+	addq.l	#2,a4
+	bsr	OutLong
+
+; 	Actualise le hunk programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#NH_Prog,d1		Marque le hunk
+	bsr	MarkHunk
+	move.l	a4,-(sp)		Branche le jsr inits
+	move.l	Ad_JsrInits(a5),a4
+	move.l	Ad_Inits(a5),d0
+	bsr	OutLong
+	move.l	(sp)+,a4
+	bsr	Reloc_Relatif
+	moveq	#NH_Libraries,d1	Marque le hunk library
+	bsr	MarkHunk
+	bsr	Reloc_Absolu
+
+;	Marque les longueurs des HUNKS jusqu'a la fin
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	#NH_Reloc,d2
+	move.w	N_Hunks(a5),d3
+.Hunk1	move.w	d2,d1
+	bsr	MarkHunk
+	addq.w	#1,d2
+	cmp.w	d2,d3
+	bne.s	.Hunk1
+
+;	Fin de la compilation!!!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TERMINE UN PROGRAMME AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Fin_AMOS
+
+;	Libraries
+; ~~~~~~~~~~~~~~~
+	bsr	A4_Pair
+	bsr	Linker			Va linker!
+	moveq	#0,d0			Fin relocation!
+	bsr	OutRel
+
+;	Recopie la table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,AA_Reloc(a5)
+	move.l	B_Reloc(a5),a1
+.CRel1	move.b	(a1)+,d0
+	bsr	OutByte
+	cmp.l	a3,a1
+	bcs.s	.CRel1
+	sub.l	B_Reloc(a5),a1
+	move.w	a1,L_Reloc(a5)
+	bsr	A4_Pair
+
+;	Copie la fin de la procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	bsr	OutWord
+	move.l	a4,AA_EProc(a5)
+	move.w	#$0301,d0
+	bsr	OutWord
+	move.w	#_TkEndP,d0
+	bsr	OutWord
+	clr.w	d0
+	bsr	OutWord
+
+; 	Copie des banques AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#"AmBs",d0
+	bsr	OutLong
+	move.w	N_Banks(a5),d0
+	bsr	OutWord
+	tst.w	d0
+	beq.s	.Nobank
+	moveq	#27,d0
+	bsr	Mes_Print
+	bsr	Return
+	move.l	L_Source(a5),d3
+	move.l	A_Banks(a5),a6
+	addq.l	#6,a6
+	sub.l	a6,d3
+	bsr	Copy_Source
+.Nobank
+;	Fin de la production de code
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a4,L_Objet(a5)
+
+; 	Actualise les flags d'appel
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	14,a4			Flags maths dans le header
+	moveq	#0,d0
+	move.b	MathFlags(a5),d0
+	bsr	OutWord
+	move.l	AA_Long(a5),a4		Longueur du source
+	move.l	AA_EProc(a5),d0
+	add.l	#6-4,d0
+	sub.l	a4,d0
+	bsr	OutLong
+	move.l	AA_SBuf(a5),a4		Instruction Set Buffer
+	addq.l	#2,a4
+	move.l	L_Buf(a5),d0
+	bsr	OutLong
+	move.l	AA_Proc(a5),a4		Debut de la procedure
+	move.l	AA_EProc(a5),d0
+	sub.l	a4,d0
+	subq.l	#4,d0
+	bsr	OutLong
+
+	move.l	AA_Header(a5),a4	Flags maths
+	moveq	#0,d0
+	move.b	Flag_Accessory(a5),d0	Flag accessory
+	lsl.w	#8,d0
+	move.b	MathFlags(a5),d0
+	bsr	OutWord
+	move.l	AA_Reloc(a5),d0		Pointeur sur relocation
+	sub.l	a4,d0
+	bsr	OutLong
+	move.l	AA_EProc(a5),d0		Pointeur sur la fin du programme
+	sub.l	a4,d0
+	subq.l	#2,d0			Pointe le zero de la ligne d'avant!
+	bsr	OutLong
+
+	move.l	Lib_FinInternes(a5),d0	Pivot de la librarie (a4)
+	sub.l	Lib_Debut(a5),d0
+	cmp.l	#$10000,d0
+	bcc	Err_Syntax
+	lsr.l	#1,d0			/ 2
+	bclr	#0,d0			Pair!
+	move.l	d0,Lib_FinInternes(a5)
+	add.l	Lib_Debut(a5),d0	Plus adresse de debut!!
+	move.l	AA_A4(a5),a4		Car relocation depuis 0
+	bsr	OutLong
+
+; 	Relocation
+; ~~~~~~~~~~~~~~~~
+	bsr	Reloc_Relatif
+	bsr	Reloc_Absolu
+
+;	Fin de la compilation!!!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	rts
+
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RELOCATION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Relocation du programme (a4)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reloc_Relatif
+	move.w	New_Position(a5),d0
+	moveq	#PP_RelRel,d1
+	move.l	A_LibRel(a5),d2
+	sub.l	B_LibRel(a5),d2
+	bsr	Set_Pour
+
+	move.l	AdTokens(a5),a2
+	move.l	B_LibRel(a5),a1
+	move.l 	DebRel(a5),d7         	Base de toute les adresses
+	move.l	d7,a4			Base de l'exploration
+	move.l	Lib_FinInternes(a5),d2
+.JLoop	bsr	Aff_Pour
+	move.w	(a1)+,d1
+	beq.s	.JEnd
+	bmi.s	.Grand
+	add.w	d1,a4
+.GSuite	bsr	GtoWord
+	subq.l	#2,a4
+	move.l	-LB_Size-4(a2,d0.w),d0
+	and.l	#$FFFFFF,d0
+	sub.l	Lib_Debut(a5),d0	Moins debut des librairies
+	sub.l	d2,d0			Calcul du deplacement relatif
+
+	IFNE	Debug			Verification: pas de jmp de la
+	btst	#0,d0			Verification: PAIR!
+	beq.s	.Skip
+	bsr	Err_Debug
+.Skip
+	ENDC
+	bsr	OutWord
+	subq.l	#2,a4
+	bra.s	.JLoop
+.JEnd	bsr	End_Pour
+	rts
+.Grand	move.l	-2(a1),d0		Trop grand: .LONG
+	bclr	#31,d0
+	add.l	d0,a4
+	addq.l	#2,a1
+	bra.s	.GSuite
+
+; 	Relocation des appels absolus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reloc_Absolu
+	move.w	New_Position(a5),d0
+	moveq	#PP_RelAbs,d1
+	move.w	L_Reloc(a5),d2
+	bsr	Set_Pour
+
+        move.l 	d7,a4            	Debut de l'exploration
+        move.l 	B_Reloc(a5),a6        	Table de relocation
+	moveq	#-1,d5			Flags
+; Programme CLI / AMOS
+	move.l 	DebRel(a5),d7         	Base de toute les adresses
+	move.l	d7,d6			Pour les librairies aussi
+	moveq	#0,d4			Pas de flag $80000000
+	cmp.b	#3,Flag_Type(a5)	Si programme CLI,
+	beq.s	.Paflag
+	bset	#31,d4			Flag librairies
+	move.l	Lib_Debut(a5),d6	Base des routines librairie
+.Paflag
+RLoop  	move.b 	(a6)+,d0
+        beq.s 	RFini
+        cmp.b 	#1,d0
+        bne.s 	P2b
+        lea	508(a4),a4
+        bra.s 	RLoop
+RFini	addq.l	#1,d5
+	bne	RFin
+	move.l	d6,a4			Repositionne le programme
+	bra.s	RLoop
+; Affiche la position
+P2b:    and.w	#$FF,d0
+	lsl.w	#1,d0
+        add.w 	d0,a4
+        bsr 	GtoLong
+        subq.l 	#4,a4
+	moveq	#0,d1
+	rol.l	#8,d0
+	move.b	d0,d1
+	lsr.l	#8,d0
+	lsl.w	#1,d1
+	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.Jsr
+	bra.s	.Lib
+	bra.s	.Chaine
+	bra.s	.Label
+; Simple JSR interne au programme
+.Jsr
+	IFNE	Debug			Verification: pas de jmp de la
+	tst	d5			librarie vers le programme...
+	bne.s	.Skip
+	bsr	Err_Debug
+.Skip
+	ENDC
+	sub.l	d7,d0
+	bsr	OutLong
+	subq.l	#4,a4
+	bra.s	RLoop
+; Trouve l'adresse d'une routine librairie / Relatif au debut libraries
+.Lib	move.w	d0,d1			# Fonction
+	swap	d0			# Librairie
+	move.l	AdTokens(a5,d0.w),a0
+	move.l	-LB_Size-4(a0,d1.w),d0	Adresse routine
+
+	IFNE	Debug
+	bmi.s	.Ok			Si non charge!
+	bsr	Err_Debug
+.Ok
+	ENDC
+
+	and.l	#$00FFFFFF,d0
+	sub.l	d6,d0			Moins base des librairies
+	or.l	d4,d0			Met bit31 a 1 pour un programme CLI
+        bsr 	OutLong
+        subq.l 	#4,a4
+        bra.s 	RLoop
+; Trouve l'adresse d'une chaine
+.Chaine
+	IFNE	Debug			Verification: pas de jmp de la
+	tst	d5			librarie vers le programme...
+	bne.s	.Skip1
+	bsr	Err_Debug
+.Skip1
+	ENDC
+	move.l	B_Chaines(a5),a0
+	move.l	0(a0,d0.l),d0
+	sub.l	d7,d0
+	bsr	OutLong
+	subq.l	#4,a4
+	bra	RLoop
+; Adresse d'un label
+.Label
+	IFNE	Debug			Verification: pas de jmp de la
+	tst	d5			librarie vers le programme...
+	bne.s	.Skip2
+	bsr	Err_Debug
+.Skip2
+	ENDC
+	move.l	B_Labels(a5),a0
+	move.l	2(a0,d0.l),d0
+	bmi	Err_Label
+	sub.l	d7,d0
+	bsr	OutLong
+	subq.l	#4,a4
+	bra	RLoop
+
+RFin	bsr	End_Pour
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Mode NUMBERS / DEBUG . Entree, D0=numero de ligne
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Db_OutNumber
+	tst.b	Flag_Numbers(a5)
+	beq.s	.Out
+	move.w	Cur_Line(a5),d0
+	cmp.w	Old_Line(a5),d0
+	bne.s	.Db
+.Out	rts
+.Db	moveq	#0,d2			Flag
+	cmp.l	Db_Next(a5),a4		On a sorti du code?
+	bne.s	.New
+	move.l	Db_Prev(a5),a4		NON, on reste sur le dernier
+	moveq	#1,d2			Flag, pas de nouvelle reloc
+.New	move.l	a4,Db_Prev(a5)
+	lea	DbCode(pc),a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+	move.w	Cur_Line(a5),d0
+	move.w	d0,Old_Line(a5)
+	bsr	OutWord
+	addq.l	#2,a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+; Sortir la compilation sur le CLI?
+	tst.b	Flag_OutNumbers(a5)
+	beq.s	.NoBB
+	movem.l	a0-a2/d0-d2,-(sp)
+	move.l	B_Work(a5),a0
+	moveq	#0,d0
+	move.w	Cur_Line(a5),d0
+	move.b	#"(",(a0)+
+	bsr	longdec
+	move.b	#")",(a0)+
+;	move.l	a4,d0
+;	bsr	longdec
+;	move.b	#10,(a0)+
+	clr.b	(a0)
+	move.l	B_Work(a5),a0
+	bsr	Str_Print
+	movem.l	(sp)+,a0-a2/d0-d2
+.NoBB
+; Modes debug?
+	tst.b	Flag_Debug(a5)
+	beq.s	.End
+	move.w	#L_CmpLineCLI,d0
+	tst.w	d2
+	bne.s	.Deja
+	bsr	Do_JsrLibrary
+	bra.s	.End
+.Deja	addq.l	#4,a4
+; Adresse prochaine
+.End	move.l	a4,Db_Next(a5)
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	LINKER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Linker	moveq	#24,d0
+	bsr	Mes_Print
+
+;	Sort le RTS
+; ~~~~~~~~~~~~~~~~~
+	move.l	a4,Lib_Debut(a5)	Position de debut des librairies
+	move.l	a4,Ad_Rts(a5)
+	move.w	Crts(pc),d0
+	bsr	OutWord
+
+; 	Fichier de debuggage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	IFNE	Debug>1
+	moveq	#F_Debug,d0
+	lea	Debug_LibFile(pc),a0
+	move.l	a0,d1
+	bsr	F_OpenNewD1
+	beq	Err_DiskError
+	ENDC
+
+;	Force le chargement des routines internes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	New_Position(a5),d0
+	moveq	#PP_LibInternes,d1
+	move.w	Lib_NInternes(a5),d2
+	add.w	#32,d2
+	bsr	Set_Pour
+
+	bclr	#F_Externes,Flag_Libraries(a5)	Librairies internes seulement
+	move.l	B_Script(a5),a6			Buffer des adresses des BRA
+	move.l	AdTokens(a5),a2
+	moveq	#0,d2
+	move.w	Lib_DExternes(a5),d3
+	lea	-LB_Size(a2),a2
+.Loop	subq.l	#4,a2
+	move.b	(a2),d0			Le Flag
+	cmp.b	#2,d0			Une routine relative...
+	bne.s	.Next
+	move.l	d2,d0
+	moveq	#0,d1
+	bsr	Load_Routine
+.Next	addq.w	#1,d2
+	cmp.w	d2,d3
+	bne.s	.Loop
+	move.l	a4,Lib_FinInternes(a5)	Fin des routines internes
+	move.l	a4,d0
+	sub.l	Lib_Debut(a5),d0
+	move.l	d0,Info_LLibrary(a5)
+
+; 	Charge toutes les autres routines >>> plus rien!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	New_Position(a5),d0
+	moveq	#PP_LibExternes,d1
+	move.w	Lib_NExternes(a5),d2
+	bsr	Set_Pour
+
+	bset	#F_Externes,Flag_Libraries(a5)	Toutes les routines maintenant
+	move.l	B_Script(a5),a6			Buffer des adresses des BRA
+
+.ZLoop	moveq	#0,d1
+	moveq	#0,d5
+	lea	AdTokens(a5),a2
+.MLoop	tst.l	(a2)
+	beq.s	.MNext
+.LLoop	move.l	(a2),a1			Exploration d'une librairie
+	moveq	#0,d2
+	move.w	LB_NRout(a1),d3
+	lea	-LB_Size(a1),a1
+	moveq	#0,d4
+.RLoop	subq.l	#4,a1			Toutes les routines
+	move.b	(a1),d0
+	cmp.b	#1,d0
+	bne.s	.RNext
+	move.w	d2,d0
+	bsr	Load_Routine
+	addq.l	#1,d4			Une routine dans cette librairie
+	addq.l	#1,d5			Une routine en tout!
+.RNext	addq.w	#1,d2
+	cmp.w	d2,d3
+	bne.s	.RLoop
+	tst.w	d4			Si nouvelle: encore un tour!
+	bne.s	.LLoop
+.MNext	addq.l	#4,a2			Encore une librairie?
+	addq.w	#1,d1
+	cmp.w	#26,d1
+	ble.s	.MLoop
+	tst.w	d5			On a encore charge une routine!
+	bne.s	.ZLoop
+
+	move.l	a4,d0
+	sub.l	Lib_FinInternes(a5),d0
+	move.l	d0,Info_ELibrary(a5)
+
+; La fin
+	bsr	End_Pour
+	bsr	Return
+	rts
+
+;	Routine recursive de copie d'une routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0= 	# routine
+;	D1=	# librairie
+Load_Routine
+	movem.l	a0-a2/d1-d7,-(sp)
+
+	move.w	d1,d7
+	bclr	#31,d7			Flag charger ou pas
+	move.w	d0,d6
+	bpl.s	.Paflag
+	neg.w	d0
+	move.w	d0,d6
+	bset	#31,d7
+.Paflag
+
+; 	Actions particulieres sur la librarie principale
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lsl.w	#2,d1
+	move.l	AdTokens(a5,d1.w),a2
+	bne	Lib_Extension
+; Une routine libraries externes?
+	cmp.w	Lib_DExternes(a5),d0
+	bcs.s	.NoExterne
+	btst	#F_Externes,Flag_Libraries(a5)
+	bne	Lib_Suite
+	lsl.w	#2,d0
+	neg.w	d0
+	cmp.b	#1,-LB_Size-4(a2,d0.w)
+	beq.s	.Nol
+	move.b	#1,-LB_Size-4(a2,d0.w)	Met un flag
+	addq.w	#1,Lib_NExternes(a5)	Nombre de routines
+.Nol	moveq	#0,d0			Pas d'adresse de retour
+	bra	Lib_Fin
+.NoExterne
+; Une routine float?
+	cmp.w	Lib_DFloat(a5),d0
+	bcs.s	.NoFloat
+	cmp.w	Lib_FFloat(a5),d0
+	bcc.s	.NoFloat
+	tst.b	MathFlags(a5)		Pas de float >>> pointe sur un RTS
+	beq	Lib_Rts
+	bpl	Lib_Suite
+	addq.w	#1,d0			Si double: prend la deuxieme
+	bra	Lib_Suite
+.NoFloat
+; Une routine dependant du type (AMOS / normal)
+	cmp.w	Lib_DType(a5),d0
+	bcs.s	.NoType
+	cmp.w	Lib_FType(a5),d0
+	bcc.s	.NoType
+	cmp.b	#3,Flag_Type(a5)	AMOS: prend la premiere
+	beq	Lib_Suite
+	addq.w	#1,d0			CLI: la deuxieme
+	bra	Lib_Suite
+.NoType	bra.s	Lib_Suite
+
+;	Traitements particuliers des extensions: insertion des erreurs?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Extension
+	move.w	LB_NRout(a2),d2
+	subq.w	#2,d2
+	cmp.w	d0,d2			Avant derniere routine?
+	bne.s	.Skip
+	tst.b	Flag_Errors(a5)		Erreurs a charger?
+	bne.s	.Skip
+	addq.w	#1,d0			PAS D'ERREURS> derniere routine
+.Skip	bra.s	Lib_Suite
+
+; 	Met un RTS a la place de la routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Rts	move.w	d6,d2
+	lsl.w	#2,d2
+	neg.w	d2
+	move.l	-LB_Size-4(a2,d2.w),d1	Deja marquee
+	bmi.s	Lib_Fin
+	move.l	Ad_Rts(a5),d0
+	bset	#31,d0
+	move.l	d0,-LB_Size-4(a2,d2.w)
+	bra.s	Lib_Fin
+
+;	Charge la routine
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Lib_Suite
+	move.w	d0,d5			Routine a charger
+	move.w	d6,d2			Numero reel de la routine
+	lsl.w	#2,d2
+	neg.w	d2
+	move.l	-LB_Size-4(a2,d2.w),d0	Deja chargee
+	bpl.s	Lib_Load
+Lib_Fin	and.l	#$00FFFFFF,d0		Retrouve l'adresse
+	bra	LRouX			C'est fini!
+; Preparation du chargement
+Lib_Load
+	moveq	#0,d0			Zero indique PAS CHARGEE!
+	tst.l	d7			Flag chargement
+	bmi	LRouX
+
+; Debuggage, sort le numero de la routine
+	IFNE	Debug>1
+	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	B_Work(a5),a0
+	moveq	#0,d0
+	move.w	d7,d0
+	bsr	longdec
+	move.b	#":",(a0)+
+	moveq	#0,d0
+	move.w	d5,d0
+	bsr	longdec
+	move.b	#10,(a0)+
+	move.l	B_Work(a5),d2
+	move.l	a0,d3
+	sub.l	d2,d3
+	moveq	#F_Debug,d1
+	bsr	F_Write
+	bne	Err_DiskError
+	movem.l	(sp)+,d0-d7/a0-a6
+	ENDC
+
+	move.l	a4,-(sp)		Stocke l'adresse de la routine
+	move.w	#-1,(a6)+		Marque la table pour les branchements
+	moveq	#F_Libs,d1		Calcule le handle de la librarie a utiliser
+	add.w	d7,d1			+ Numero lib
+	tst.w	d7			Est la 1ere?
+	bne.s	.Poke
+	cmp.w	Lib_SizeInterne(a5),d6		Une librarie interne?
+	bcc.s	.Poke
+	moveq	#F_LibInterne,d1
+.Poke	move.w	d1,H_Clib(a5)			Le handle
+	move.w	d5,d0				Numero de la routine a charger!
+	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a2,d0.w),d1
+	and.l	#$00FFFFFF,d1
+	move.l	d1,P_Clib(a5)			Position de debut
+	move.w	LB_NRout(a2),R_Clib(a5)		Nombre de routines
+	btst	#LBF_20,LB_Flags(a2)		Librairie 2.00?
+	sne	d0
+	move.b	d0,V_Clib(a5)			Met le flag!
+	move.l	LB_LibSizes(a2),a0
+	move.w	d5,d0
+	lsl.w	#1,d0
+	moveq	#0,d1
+	move.w	0(a0,d0.w),d1
+	lsl.w	#1,d1
+	move.l	d1,T_Clib(a5)			Taille de la routine
+; Affichage
+	moveq	#25,d0				Met le "."
+	bsr	Mes_Print
+	bsr	Aff_Pour
+; Boucle de recopie, D3 octets
+	move.l	a4,-LB_Size-4(a2,d2.w)		Poke l'adresse de la routine
+	bset	#7,-LB_Size-4(a2,d2.w)		Bit 7 � 1 >>> routine chargee
+	moveq	#0,d4				P_CLIB-> D4
+LRou0	bsr	Ld_Clib
+LRou1	move.b	(a2),d0
+	cmp.b	#C_Code1,d0
+	beq	LRou10
+LRou2	move.w	(a2)+,d0
+	bsr	OutWord
+	addq.l	#2,d4
+LRouR	cmp.l	d3,d4
+	bcs.s	LRou1
+	cmp.l	T_Clib(a5),d4
+	bcs.s	LRou0
+; Un "GetP" a la fin? Le supprime!!!
+	subq.l	#4,a4
+	bsr	GtoLong
+	cmp.l	#"GetP",d0
+	bne.s	.Nogetp
+	subq.l	#4,a4
+; Un Ret_Int/Ret_Float/Ret_String a la fin?
+	subq.l	#4,a4
+	bsr	GtoLong
+.Nogetp	cmp.l	Cretint(pc),d0
+	beq.s	.Rts
+	cmp.l	Cretfloat(pc),d0
+	beq.s	.Rts
+	cmp.l	Cretstring(pc),d0
+	bne.s	LRou4
+.Rts	subq.l	#4,a4
+	move.w	Crts(pc),d0
+	bsr	OutWord
+; Branche les routines demandees
+LRou4	move.w	-(a6),d6		Numero fonction / fin
+	bmi	LRou6
+; Un BRA juste a la fin d'une routine est supprime!
+	move.l	-4(a6),d1		Adresse du saut
+	addq.l	#2,d1			Apres le BSR
+	cmp.l	a4,d1			Juste a la fin?
+	bne.s	.Load
+	move.w	d6,d0			La routine doit-elle etre chargee?
+	move.w	d7,d1
+	neg.w	d0
+	bsr	Load_Routine
+	tst.l	d0
+	bne.s	.Load
+	subq.l	#4,a4			OUI! on recule de 4 pour sauter le BRA
+	clr.l	-4(a6)			Pas de saut!
+	IFNE	Debug
+	bsr	GtoWord			Verifie que l'on est bien sur un BRA!
+	subq.l	#2,a4
+	cmp.w	Cbra(pc),d0
+	beq.s	.Ok
+	illegal
+.Ok
+	ENDC
+.Load	move.w	d6,d0			Sauvegarde
+	move.w	d7,d1			Dans la librairie courante
+	bsr	Load_Routine
+
+	IFNE	Debug
+	tst.l	d0			Debug, si routine externe!!
+	bne.s	.Skip
+	bsr	Err_Debug
+.Skip
+	ENDC
+	move.l	a4,d2
+	move.l	-(a6),d1
+	beq.s	LRou4			ZERO: saut optimise!
+	move.l	d1,a4			Adresse du saut
+	sub.l	a4,d0
+	cmp.l	#-32760,d0
+	ble.s	LRou5
+	cmp.l	#+32760,d0
+	bge.s	LRou5
+; Saut relatif OK!
+	bsr	OutWord
+	move.l	d2,a4
+	bra.s	LRou4
+; Saut en ARRIERE trop long: BRA-> JMP
+LRou5
+	IFNE	Debug
+	lea	Debug_Jmp(pc),a0	Un signal si JMP!
+	bsr	Str_Print
+	ENDC
+
+	move.l	d2,d0			1-> BRA sur le JMP
+	sub.l	a4,d0
+	cmp.l	#-32760,d0		Ne doit jamais arriver
+	ble	Err_Syntax
+	cmp.l	#+32760,d0
+	bge	Err_Syntax
+	bsr	OutWord
+	move.l	d2,a4			2-> JMP sur la routine
+	move.w	Cjmp(pc),d0
+	bsr	OutWord
+	bsr	Relocation
+	move.w	d7,d0
+	lsl.w	#2,d0
+	swap	d0
+	move.w	d6,d0
+	lsl.w	#2,d0
+	neg.w	d0
+	or.l	#Rel_Libraries,d0
+	bsr	OutLong
+	bra	LRou4
+; Ramene l'adresse de la routine
+LRou6	move.l	(sp)+,d0
+LRouX	movem.l	(sp)+,a0-a2/d1-d7
+	rts
+
+;	Traitement des instructions speciales
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+LRou10	move.w	(a2),d0
+	move.b	d0,d2
+	and.b	#$0F,d0
+	cmp.b	#C_Code2,d0
+	bne	LRou2
+	and.w	#$00F0,d2
+	lsr.w	#1,d2
+	lea	LRout(pc),a1
+	jmp	0(a1,d2.w)
+; Table des sauts
+LRout	bra	LRouJ			; 0 - RJmp / Rjmptable
+	dc.w	$4ef9,0			JMP
+	bra	LRouJ			; 1 - RJsr / Rjsrtable
+	dc.w	$4eb9,0			JSR
+	bra	LRouB			; 2 - RBra
+	bra	LRout
+	bra	LRouB			; 3 - RBsr
+	bsr	LRout
+	bra	LRouB			; 4 - RBeq
+	beq	LRout
+	bra	LRouB			; 5 - RBne
+	bne	LRout
+	bra	LRouB			; 6 - RBcs
+	bcs	LRout
+	bra	LRouB			; 7 - RBcc
+	bcc	LRout
+	bra	LRouB			; 8 - RBlt
+	blt	LRout
+	bra	LRouB			; 9 - RBge
+	bge	LRout
+	bra	LRouB			; 10- RBls
+	bls	LRout
+	bra	LRouB			; 11- RBhi
+	bhi	LRout
+	bra	LRouB			; 12- RBle
+	ble	LRout
+	bra	LRouB			; 13- RBpl
+	bpl	LRout
+	bra	LRouB			; 14- RBmi
+	bmi	LRout
+	bra	LRouD			; 15- RData / Ret_Inst
+
+;-----> RJMP / RJSR
+LRouJ	cmp.b	#C_CodeJ,2(a2)
+	beq.s	.Rjsr
+	cmp.b	#C_CodeT,2(a2)
+	bne	LRou2
+; Rjsrt / Rjmpt >>> simple JSR / JMP dans la librarie principale
+	move.b	3(a2),d0
+	cmp.b	#8,d0
+	bcc.s	.Rlea
+	moveq	#0,d1
+	bra.s	.Jsr
+; Rlea
+.Rlea	subq.b	#8,d0
+	cmp.b	#8,d0
+	bcc	LRou2
+	lsl.w	#8,d0
+	lsl.w	#1,d0
+	or.w	GRlea(pc),d0
+	bsr	OutWord
+	moveq	#0,d1
+	bra.s	.Adr
+; Rjsr / Rjmp normaux
+.Rjsr	moveq	#0,d1
+	move.b	3(a2),d1
+	cmp.b	#27,d1
+	bcc	LRou2
+; Poke l'appel
+.Jsr	move.w	4(a1,d2.w),d0
+	bsr	OutWord
+.Adr	bsr	Relocation
+	lsl.w	#2,d1
+	move.w	d1,d0
+	swap	d0
+	move.w	4(a2),d0
+	tst.b	V_Clib(a5)		Si librairie 1.3
+	bne.s	.New
+	bsr	Ext_OldLabel		Converti en ancien label
+.New	lsl.w	#2,d0
+	neg.w	d0
+	or.l	#Rel_Libraries,d0
+	bsr	OutLong
+	addq.l	#6,a2
+	addq.l	#6,d4
+; Marque la librairie pour forcer le chargement
+	move.l	AdTokens(a5,d1.w),d2
+	beq	Err_ExtensionNotLoaded
+	move.l	d2,a0
+	tst.b	-LB_Size-4(a0,d0.w)
+	bne	LRouR
+	move.b	#1,-LB_Size-4(a0,d0.w)
+	bra	LRouR
+
+;-----> RBRA etc..
+LRouB	move.w	2(a2),d1		Numero de la routine
+	cmp.w	R_Clib(a5),d1		Superieur au # de routines ?
+	bcc	LRou2
+	move.w	4(a1,d2.w),d0		Sort le BRA
+	bsr	OutWord
+	move.l	a4,(a6)+		Adresse
+	move.w	d1,(a6)+		Fonction
+	addq.l	#4,a2			Saute dans le source
+	addq.l	#4,d4			-4
+	addq.l	#2,a4			Saute dans l'objet
+	bra	LRouR
+
+;-----> Instruction RDATA
+LRouD	cmp.w	#C_CodeD,2(a2)
+	bne	LRou2
+	addq.l	#4,a2
+	addq.l	#4,d4
+	move.w	Cnop(pc),d0
+	bsr	OutWord
+	bsr	OutWord
+LRouD1	cmp.l	d3,d4
+	bcc	LRouD2
+	move.w	(a2)+,d0
+	bsr	OutWord
+	addq.l	#2,d4
+	bra.s	LRouD1
+LRouD2	cmp.l	T_Clib(a5),d4
+	bcc	LRou4
+	bsr	Ld_Clib
+	bra.s	LRouD1
+
+;	Retrouve le nouveau label a partir des anciens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ext_OldLabel
+	movem.l	a0/d1,-(sp)
+	lea	Ext_Convert(pc),a0
+	bra.s	.In
+.Loop	cmp.w	d0,d1
+	beq.s	.Ok
+	addq.l	#4,a0
+.In	move.w	(a0),d1
+	bne.s	.Loop
+	bra	Err_Syntax
+.Out	movem.l	(sp)+,a0/d1
+	rts
+.Ok	move.w	2(a0),d0
+	bra.s	.Out
+;	Table de conversion des labels AMOSPro 1.0 >>> AMOSPro 2.0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ext_Convert
+	dc.w	1024,L_Error
+	dc.w	1025,L_ErrorExt
+	dc.w	207,L_Test_PaSaut
+	dc.w	956,L_WaitRout
+	dc.w	287,L_GetEc
+	dc.w	46,L_Demande
+	dc.w	432,L_RamFast
+	dc.w	433,L_RamChip
+	dc.w	434,L_RamFast2
+	dc.w	435,L_RamChip2
+	dc.w	436,L_RamFree
+	dc.w	1100,L_Bnk.GetAdr
+	dc.w	1101,L_Bnk.GetBobs
+	dc.w	1102,L_Bnk.GetIcons
+	dc.w	1103,L_Bnk.Reserve
+	dc.w	1104,L_Bnk.Eff
+	dc.w	1105,L_Bnk.EffA0
+	dc.w	1106,L_Bnk.EffTemp
+	dc.w	1107,L_Bnk.EffAll
+	dc.w	1234,L_Bnk.Change
+	dc.w	1121,L_Bnk.OrAdr
+	dc.w	1119,L_Dsk.PathIt
+	dc.w	1120,L_Dsk.FileSelector
+	dc.w	1122,L_Dev.Open
+	dc.w	1123,L_Dev.Close
+	dc.w	1124,L_Dev.GetIO
+	dc.w	1125,L_Dev.AbortIO
+	dc.w	1126,L_Dev.DoIO
+	dc.w	1127,L_Dev.SendIO
+	dc.w	1128,L_Dev.CheckIO
+	dc.w	1129,L_Dev.Error
+	dc.w	0,0
+
+;	Charge la routine dans le buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ld_Clib	move.w	H_Clib(a5),d1		Le handle
+	move.l	d4,d2			La position
+	add.l	P_Clib(a5),d2		+ le debut
+	moveq	#-1,d3			Depuis le debut
+	bsr	F_Seek
+	move.w	H_Clib(a5),d1
+	move.l	B_DiskIn(a5),d2		Dans le buffer disque
+	move.l	T_Clib(a5),d3		Maximum a charger
+	sub.l	d4,d3
+	clr.l	-(sp)
+	cmp.l	#L_DiscIn,d3
+	bcs.s	Ldcl1
+	move.l	#L_DiscIn,d3
+	move.l	#8,(sp)
+Ldcl1	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a2
+	add.l	d4,d3
+	sub.l	(sp)+,d3
+	rts
+
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Instructions / Fonctions standart
+;---------------------------------------------------------------------
+
+; Table des sauts pour les instructions particulieres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Inst_Jumps
+	dc.l	0			F8-
+	dc.l	0			F9-
+	bra	InGlobal		FA-Global (Nouvelle maniere)
+	bra	InShared		FB-Shared
+	bra	InDefFn			FC-Def Fn
+	bra	InData			FD-Debut data
+	bra	InEndProc		FE-Fin procedure
+	bra	InProcedure		FF-Debut procedure
+	dc.l	0			00-Instruction normale
+	bra	Err_SyntaxLGoto		01-Syntax error (debug pour LGOTO!)
+	bra	InRem			02-Rem
+	bra	InSetBuffer		03-Set Buffer
+	bra	InSetDouble		04-Set Double Precision
+	bra	InSetStack		05-Set Stack ***
+	bra	InVariable		06-Variable
+	bra	InLabel			07-Un label
+	bra	InProcedureCall		08-Un appel de procedure
+	bra	InDim			09-DIM
+	bra	InPrint			0A-Print
+	bra	InHPrint		0B-Print #
+	bra	InInput			0C-Input
+	bra	InInputD		0D-Input #
+	bra	InDec			0E-Dec
+	bra	InProc			0F-Proc
+	dc.l	0			10-Amos Lock (debugging)
+	bra	InPalettes		11-Default Palette
+	bra	InPalettes		12-Palette
+	bra	InRead			13-Read
+	bra	InRestore		14-Restore
+	bra	InChannel		15-Channel
+	bra	InInc			16-Inc/Dec
+	bra	InAdd2			17-Add 2 parametres
+	bra	InPoly			18-Polyline/Gon
+	bra	InField			19-Field
+	bra	InCall			1A-Call
+	bra	InMenu			1B-Menu
+	bra	InMenuDel		1C-Menu Del
+	bra	InSetMenu		1D-Set Menu
+	bra	InMenuKey		1E-Menu Key
+	bra	InMenuFlags		1F-Menu diverse
+	bra	InFade			20-Fade
+	bra	InSort			21-Sort
+	bra	InSwap			22-Swap
+	bra	InFollow		23-Follow
+	bra	InSetAccessory		24-Set Accessory
+	bra	InTrap			25-Trap
+	bra	InStruc			26-Struc
+	bra	InStrucD		27-Struc$
+	bra	InExtension		28-Token d'extension
+	dc.l	0			29-Instruction AMOSPro
+	dc.l	0			2A-Instruction AMOSPro deja testee
+	dc.l	0			2B-Variable reservee
+	dc.l	0			2C-Variable reservee AMOSPro
+	dc.l	0			2D-Instruction normale deja testee
+	bra	Err_Syntax		2E-LIBRE
+	bra	Err_Syntax		2F-Fin de ligne
+	bra	InFor			30-For
+	bra	InNext			31-Next
+	bra	InRepeat		32-Repeat
+	bra	InUntil			33-Until
+	bra	InWhile			34-While
+	bra	InWend			35-Wend
+	bra	InDo			36-Do
+	bra	InLoop			37-Loop
+	bra	InExit			38-Exit
+	bra	InExitIf		39-Exit If
+	bra	InIf			3A-If
+	bra	InElse			3B-Else
+	bra	InElseIf		3C-ElseIf
+	bra	InNull			3D-EndIf
+	bra	InGoto			3E-Goto
+	bra	InGosub			3F-Gosub
+	bra	InOnError		40-OnError
+	bra	InOnBreak		41-OnBreak
+	bra	InOnMenu		42-OnMenu
+	bra	InOn			43-On
+	bra	InResume		44-Resume
+	bra	InResumeLabel		45-ResLabel
+	bra	InPopProc		46-PopProc
+	bra	InEvery			47-Every
+	bra	InLPrint		48-LPrint
+	bra	InLineInput		49-Line Input
+	bra	InLineInputD		4A-Line Input #
+	bra	InMid3			4B-Mid3
+	bra	InMid2			4C-Mid2
+	bra	InLeft			4D-Left
+	bra	InRight			4E-Right
+	bra	InAdd4			4F-Add 4 params
+	bra	InDialogs		50-Instruction dialog
+	bra	InDir			51-Instruction DIR
+	bra	InNull			52-Then
+	bra	InReturn		53-Return
+	bra	InPop			54-Pop
+	bra	In_apml_		55-Procedure langage machine
+	bra	InBsetRor		56-Bset/Bchg/Ror///
+	bra	Err_AlreadyCompiled	57-APCmp Call
+InRien	illegal
+InNull	rts
+; 	DEBUG pour LGOTO
+; ~~~~~~~~~~~~~~~~~~~~~~
+Err_SyntaxLGoto
+	cmp.w	#_TkLGo,d0
+	beq	InLabelGoto
+	bra	Err_Syntax
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Appel d'une instruction d'extension
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InExtension
+; - - - - - - - - - - - - -
+	bsr	GetWord
+	lsr.w	#8,d0
+	move.w	d0,d1
+	lsl.w	#2,d0
+	move.l	AdTokens(a5,d0.w),d0
+	beq	Err_ExtensionNotLoaded
+	move.l	d0,a0
+	bsr	GetWord
+; Est-ce un instruction de controle COMPILER?
+	cmp.w	#Ext_Nb,d1
+	beq.s	.Comp
+; Recupere les parametres + branche
+.PaComp	bsr	OutLea
+	move.l	a0,a1
+	lea	0(a0,d0.w),a0			Pointe l'instruction
+	move.w	(a0),d0				Prend la fonction
+	btst	#LBF_20,LB_Flags(a1)		Si 2.0 on se branche
+	bne.s	.New
+; Ancienne: pousser le parametre / sauver les registres
+	movem.l	a0/d0/d1,-(sp)
+	addq.l	#4,a0			Saute les pointeurs
+.Par	tst.b	(a0)+			Pointe les parametres
+	bpl.s	.Par
+	move.b	(a0)+,d0		Ne veut que des instructions!
+	cmp.b	#"I",d0
+	bne	Err_Syntax
+	bsr	InParamsPush		Parametres dans la pile
+	move.w	#L_SaveRegs,d0		Sauve les registres
+	bsr	Do_JsrLibrary
+	movem.l	(sp)+,a0/d0/d1		Appelle la fonction
+	bsr	Do_JsrExtLibrary
+	move.w	#L_LoadRegs,d0		Recharge les registres
+	bra	Do_JsrLibrary
+; Nouvelle: simple appel
+.New	movem.l	a0/d1,-(sp)
+	bsr	Get_InParams
+	movem.l	(sp)+,a0/d1
+	bra	Do_JsrExtLibrary
+
+; Une instruction de controle du compiler?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Comp	cmp.w	#Ext_TkCmp,d0
+	beq	Err_AlreadyCompiled
+	cmp.w	#Ext_TkCOp,d0
+	beq	COpt
+	cmp.w	#Ext_TkTstOn,d0
+	beq	CTstOn
+	cmp.w	#Ext_TkTstOf,d0
+	beq	CTstOf
+	cmp.w	#Ext_TkTst,d0
+	beq	CTst
+	bra	.PaComp
+;-----> CONTROLE COMPILATEUR
+CTstOn	clr.b	Flag_NoTests(a5)
+	rts
+CTstOf	move.b	#-1,Flag_NoTests(a5)
+	rts
+CTst
+	IFNE	Debug=2
+	illegal
+	move.w	Cillegal(pc),d0
+	bsr	OutWord
+	rts
+	ENDC
+	move.w	#L_Test_Normal,d0
+	bra	Do_JsrLibrary
+; CompOpt: saute la chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+COpt	bsr	StockOut
+	bsr	New_Evalue
+	bra	RestOut
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Appel d'instruction standard
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InNormal
+; - - - - - - - - - - - - -
+	lea	0(a0,d0.w),a0		Pointe l'instruction
+	move.w	(a0),d0			D0= # de fonction
+InNormal2
+	bsr	OutLea
+	bsr	Get_InParams
+	bsr	Do_JsrLibrary
+	rts
+
+;	Recupere les parametres d'une fonction standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_InParams
+	move.w	d0,-(sp)
+	addq.l	#4,a0			Saute les pointeurs
+.Par	tst.b	(a0)+			Pointe les parametres
+	bpl.s	.Par
+	move.b	(a0)+,d0
+	cmp.b	#"V",d0			Une variable reserve?
+	beq.s	.VRes
+	cmp.b	#"I",d0
+	bne	Err_Syntax
+; Une instruction
+	bsr	InParams
+.Out	move.w	(sp)+,d0
+	rts
+; Variable reservee en instruction
+.VRes	move.b	(a0)+,d0
+	and.w	#$00FE,d0		Ne garde que 0-Entier 2-Chaine
+	sub.w	#"0",d0
+	move.w	d0,-(sp)		Le type desire
+	tst.b	(a0)			Des parametres?
+	bmi.s	.VPar
+	addq.l	#2,a6			Saute la parenthese!
+	bsr	InParamsPush		Evalue les parametres
+.VPar	addq.l	#2,a6			Saute le egal
+	move.w	(sp)+,Type_Voulu(a5)	Le type que l'on veut!
+	bsr	Evalue_Voulu		Evalue avec le bon type
+	bsr	Optimise_D2
+	move.w	(sp)+,d0
+	rts
+
+;	ROUTINE > recupere les parametres standards instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InParamsPush
+	move.w	#1,-(sp)		Pousser le dernier
+	bra.s	InP
+InParams
+	clr.w	-(sp)			Ne pas pousser!
+InP
+	move.b	(a0)+,d0		Prend le parametre
+	bmi.s	.Exit
+.Loop	move.l	a0,-(sp)
+	and.w	#$00FF,d0
+	sub.w	#"0",d0
+	move.w	d0,Type_Voulu(a5)	Le type desire
+	bsr	Evalue_Voulu		Va evaluer!
+	bsr	Optimise_D2
+	move.l	(sp)+,a0
+	tst.b	(a0)+			Saute le separateur
+	bmi.s	.Push
+	bsr	Push_D2			Pousse le parametre
+	addq.l	#2,a6			Saute le separateur en vrai
+	move.b	(a0)+,d0		Parametre suivant
+	bra.s	.Loop
+.Push	tst.w	(sp)			Pousser le dernier?
+	beq.s	.Exit
+	bsr	Push_D2
+; Sortie
+.Exit	addq.l	#2,sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Appel de fonction standard
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+FnNormal
+; - - - - - - - - - - - - -
+	lea	0(a0,d0.w),a0		Pointe la fonction
+	move.w	2(a0),d0		D0= # de fonction
+FnNormal2
+	bsr	Get_FnParams
+	bsr	Do_JsrLibrary
+	bra	Set_F_Autre
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Appel de fonction extension
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+FnExtension
+; - - - - - - - - - - - - -
+	bsr	GetWord
+	lsr.w	#8,d0
+	move.w	d0,d1
+	lsl.w	#2,d0
+	move.l	AdTokens(a5,d0.w),d0
+	beq	Err_ExtensionNotLoaded
+	move.l	d0,a0
+	move.l	d0,a1
+	bsr	GetWord
+	lea	0(a0,d0.w),a0		Pointe la fonction
+	move.w	2(a0),d0		Prend le #
+	btst	#LBF_20,LB_Flags(a1)	Une nouvelle librarie?
+	bne.s	.New
+; Ancienne: pousser le parametre / sauver les registres
+	movem.l	a0/d1,-(sp)
+	bsr	Get_FnParamsPush	Pousser le dernier param
+	movem.l	(sp)+,a0/d1
+	move.w	d0,-(sp)		Sauver les registres
+	move.w	#L_SaveRegs,d0
+	bsr	Do_JsrLibrary
+	move.w	(sp)+,d0
+	bsr	Do_JsrExtLibrary	Appeler la fonction
+	move.w	#L_LoadRegs,d0		Recharger les registres
+	bsr	Do_JsrLibrary
+	bra	Set_F_Autre
+; Nouvelle: simple appel
+.New	movem.l	a0/d1,-(sp)
+	bsr	Get_FnParams
+	movem.l	(sp)+,a0/d1
+	bsr	Do_JsrExtLibrary
+	bra	Set_F_Autre
+
+;	Recupere les parametres d'une fonction standart
+;	D2-D4 contient le dernier parametre / Change le # fonction eventuellement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_FnParamsPush
+	move.w	#1,-(sp)		Pousser le dernier
+	bra.s	InFnP
+Get_FnParams
+	clr.w	-(sp)			Ne pas pousser le dernier
+InFnP
+	move.w	d0,-(sp)
+	move.w	Type_Voulu(a5),-(sp)
+	move.w	Type_Eu(a5),-(sp)	Pour fonctions ABS / INT etc...
+	clr.w	Type_Eu(a5)		Qui retournent le type d'entree
+	addq.l	#4,a0			Saute les pointeurs
+.Par	tst.b	(a0)+			Pointe les parametres
+	bpl.s	.Par
+	move.b	(a0)+,d2
+	cmp.b	#"V",d2			Une variable reserve?
+	bne.s	.NoVar
+	move.b	(a0)+,d2
+.NoVar	and.w	#$00FF,d2		Type retourne
+	sub.b	#"0",d2
+	move.b	(a0)+,d0		Encore des parametres?
+	bmi.s	.NoPar
+	move.w	d2,-(sp)
+; Recolte des parametres
+	addq.l	#2,a6			Saute la parenthese
+.Loop	move.l	a0,-(sp)
+	and.w	#$00FF,d0
+	sub.w	#"0",d0
+	move.w	d0,Type_Voulu(a5)	Le type desire
+	lsl.w	#1,d0
+	jmp	.Jmp(pc,d0.w)
+.Jmp	bra.s	.Normal			0- Entier
+	bra.s	.Normal			1- Float
+	bra.s	.Normal			2- String
+	bra.s	.EntChaine		3- Entier ou chaine
+	bra.s	.EntFloat		4- Entier/Float >>> change la fonction
+	bra.s	.Normal			5- Angle
+.EntChaine
+	bsr	Evalue_Voulu
+	bsr	Optimise_D2
+	move.w	d2,Type_Eu(a5)		Le type de l'operateur
+	bra.s	.Suite
+.EntFloat
+	bsr	Evalue_Voulu
+	bsr	Optimise_D2
+	add.w	d2,4+2*3(sp)		Change le numero d'appel
+	move.w	d2,Type_Eu(a5)		Le type de l'operateur
+	bra.s	.Suite
+.Normal
+	bsr	Evalue_Voulu
+	bsr	Optimise_D2
+.Suite
+	move.l	(sp)+,a0
+	tst.b	(a0)+			Saute le separateur
+	bmi.s	.Fini			Fini?
+	bsr	Push_D2			Pousse le parametre
+	addq.l	#2,a6			Saute le separateur en vrai
+	move.b	(a0)+,d0		Parametre suivant
+	bra.s	.Loop
+.Fini
+	tst.w	4*2(sp)			Pousser le dernier?
+	beq.s	.NoPush
+	bsr	Push_D2			Pousse le parametre
+.NoPush
+	move.w	(sp)+,d2
+	cmp.w	#4,d2			Fonction speciale (ABS/INT)
+	bne.s	.NoPar
+	move.w	Type_Eu(a5),d2
+.NoPar
+	move.w	(sp)+,Type_Eu(a5)
+	move.w	(sp)+,Type_Voulu(a5)
+	move.w	(sp)+,d0
+	addq.l	#2,sp
+	rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Evaluations / Calculs
+;---------------------------------------------------------------------
+
+;		Script d'evaluation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+S_Cst1		rs.l	1		0
+S_Cst2		rs.l	1		4
+S_EvaCompteur	rs.w	1		8
+S_Var		rs.w	1		10
+S_Pile		rs.l	1		12
+S_a3		rs.l	1		14
+S_a4		rs.l	1		16
+S_OldRel	rs.l	1		20
+S_LibRel	rs.l	1		24
+S_LibOldRel	rs.l	1		28
+S_Chaines	rs.l	1		32
+
+;		Flags des fonctions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_Autre		equ	0		Autre
+F_Locale	equ	2		Variable locale
+F_Globale	equ	4		Variable globale
+F_Tableau	equ	6		Variable tableau
+F_MoveE		equ	8		MoveE
+F_MoveF		equ	10		MoveF
+F_MoveD		equ	12		MoveD
+F_MoveS		equ	14		MoveS
+
+F_Empile	equ	30		L'operateur vient d'etre empile
+F_Depile	equ	29		L'operateur vient d'etre depile
+F_Drapeaux	equ	28		Les drapeaux sont positionnes
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EXPENTIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Fn_Expentier
+	addq.l	#2,a6
+Expentier
+	bsr	New_Evalue
+	tst.b	d2
+	beq.s	.Skip
+	bsr	D2_Entier
+.Skip	bsr	Optimise_D2
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EVALUATION AVEC TYPE VOULU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Fn_Evalue_Voulu
+	addq.l	#2,a6
+Evalue_Voulu
+	bsr	New_Evalue
+	move.w	Type_Voulu(a5),d0
+	cmp.b	d0,d2			Le bon type?
+	bne.s	.Conv
+	rts
+.Conv	lsl.w	#2,d0
+	jmp	.Jmp(pc,d0.w)
+.Jmp	bra	D2_Entier		Veut un entier
+	bra	D2_Float		Veut un float
+	bra	D2_Bug			Impossible, mais bug AMOSPro!
+	bra	D2_Indifferent		Chaine ou Entier
+	bra	D2_EntierFloat		Entier ou Float
+	bra	D2_Angle		Un angle
+D2_Indifferent
+	cmp.b	#1,d2			Soit une chaine
+	beq	D2_Entier		Soit un entier
+	rts
+D2_EntierFloat
+	rts				Rien a faire, car teste!
+D2_Bug	moveq	#2,d2			Retourne une fausse chaine !
+	rts
+D2_Angle
+	bsr	MathFloat
+	tst.b	d2
+	bne.s	.Skip
+	bsr	D2_Float
+.Skip	move.w	#L_FFAngle,d0
+	bsr	Do_JsrLibrary
+	bsr	Set_F_Autre
+	rts
+
+MathSimple
+	or.b	#%00000001,MathFlags(a5)
+	rts
+MathFloat
+	or.b	#%00000011,MathFlags(a5)
+	rts
+MathDouble
+	or.b	#%10000011,MathFlags(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EVALUATION D'EXPRESSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Fn_New_Evalue
+	addq.l	#2,a6
+New_Evalue
+	move.w	#$7FFF,d0
+	bra.s	Eva1
+
+Eva0	bsr	Push_D2			Pousse l'operande precedent
+	movem.l	d2-d4,-(sp)
+
+Eva1	move.w	d0,-(sp)
+	addq.w	#1,EvaCompteur(a5)	Un operande de plus
+	bsr	S_Script_D2		Stocke tout!
+
+	clr.w	-(sp)			Signe
+EvaS	bsr	GetWord			Prend la fonction
+	bmi.s	EvaM			Signe moins?
+	move.l	AdTokens(a5),a0
+	move.w	2(a0,d0.w),d1		Prend la fonction
+	bmi.s	.Spe			Speciale???
+	bsr	FnNormal		Non, routine generale
+	bra.s	.Sui
+.Spe	neg.w	d1			Inverse le code
+	lea	Func_Jumps(pc),a1	= pointeur sur la table
+	jsr	0(a1,d1.w)
+.Sui	tst.w	(sp)+			Changement de signe?
+	beq.s	Eva2
+	bsr	Neg_D2			Passe en negatif
+
+Eva2	bsr	GetWord			Operateur suivant
+	cmp.w	(sp),d0
+	bhi.s	Eva0
+	subq.l	#2,a6
+	move.w	(sp)+,d1		Fini?
+	bpl.s	Eva3
+	movem.l (sp)+,d5-d7
+	lea	OP_Jmp(pc),a0		Branche!
+	jsr	0(a0,d1.w)		Effectue l'operateur
+	bra.s	Eva2
+
+Eva3	move.w	d0,Last_Token(a5)	Dernier token de l'evaluation
+	cmp.w	#_TkPar2,d0
+	bne.s	Eva4
+	addq.l	#2,a6
+
+Eva4	rts
+
+; Signe moins
+EvaM	addq.w	#1,(sp)
+	bra.s	EvaS
+
+; 	Rend negatif l'operateur actuel D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Neg_D2	move.l	d4,a0
+	jmp	.Jmp(pc,d3.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.Autre			Une variable locale
+	bra.s	.Autre			Une variable globale
+	bra.s	.Autre			Une variable tableau
+	bra.s	.MoveE			Un move.l entier
+	bra.s	.MoveF			Un move.l float
+	bra.s	.MoveD			Un move.l double
+	bra.s	.Autre			Un move.l string
+	nop
+; Pas de cas particulier: NEG.L/BCHG
+.Autre	moveq	#F_Autre,d3
+	tst.b	d2
+	bne.s	.Flt
+	move.w	Cnegd3(pc),d0
+	bra	OutWord
+.Flt	tst.b	MathFlags(a5)
+	bmi.s	.Dble
+	move.l	Cbchg7d3(pc),d0
+	bra	OutLong
+.Dble	move.l	Cbchg31d3(pc),d0
+	bra	OutLong
+; Un move.l #ENTIER,d3 >>> change la constante
+.MoveE	neg.l	S_Cst1(a0)
+	move.l	S_Cst1(a0),d0
+	subq.l	#4,a4
+	bra	OutLong
+; Une constante float
+.MoveF	move.l	S_Cst1(a0),d0
+	bchg	#7,d0
+	move.l	d0,S_Cst1(a0)
+	subq.l	#4,a4
+	bra	OutLong
+; Une constante double
+.MoveD	move.l	S_Cst1(a0),d0
+	bchg	#31,d0
+	move.l	d0,S_Cst1(a0)
+	lea	-6+2(a4),a4
+	bsr	OutLong
+	rts
+
+; 	Optimise le dernier operande, D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Optimise_D2
+	movem.l	d0-d1/a0-a1,-(sp)
+	move.l	d4,a0
+	jmp	.Jmp(pc,d3.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.Autre			Une variable locale
+	bra.s	.Autre			Une variable globale
+	bra.s	.Autre			Une variable tableau
+	bra.s	.MoveE			Un move.l entier
+	bra.s	.Autre			Un move.l float
+	bra.s	.Autre			Un move.l double
+	bra.s	.Autre			Un move.l string
+.MoveE	move.l	S_Cst1(a0),d1
+	cmp.l	#-127,d1
+	blt.s	.Autre
+	cmp.l	#127,d1
+	bgt.s	.Autre
+	bsr	S_ReposD2		Remet sur D2
+	move.w	Cmvqd3(pc),d0
+	move.b	d1,d0
+	bsr	OutWord
+	bsr	Set_F_Autre
+.Autre	movem.l	(sp)+,a0/a1/d0/d1
+	rts
+
+; 	Pousse l'operande actuel D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Push_D2:
+	movem.l	d0-d1/a0-a1,-(sp)
+	btst	#F_Depile,d2
+	bne	.Depile
+	move.l	d4,a0
+	jmp	.Jmp(pc,d3.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.VLocal			Une variable locale
+	bra.s	.VGlobal		Une variable globale
+	bra.s	.VTableau		Une variable tableau
+	bra.s	.MoveE			Un move.l entier
+	bra.s	.MoveF			Un move.l float
+	bra.s	.MoveD			Un move.l double
+	bra.s	.MoveS			Un move.l string
+	nop
+; Une fonction: on pousse simplement
+.Autre	cmp.b	#1,d2			Si double
+	bne.s	.Skip
+	tst.b	MathFlags(a5)
+	bmi.s	.MoveD
+.Skip	bset	#F_Empile,d2		Le flag
+	move.l	a4,S_Pile(a0)		L'adresse dans le script
+	move.w	Cmvd3ma3(pc),d0
+	bsr	OutWord
+	bra.s	.Out
+; Un move.l #,d3 >>> move.l #,-(a3)
+.MoveS
+.MoveF
+.MoveE	subq.l	#6,a4
+	move.l	a4,S_Pile(a0)
+	move.w	Cmvima3(pc),d0
+	bsr	OutWord
+	addq.l	#4,a4
+	bra.s	.Out
+; Variable double: movem.l d3-d4,-(a3)
+.MoveD	bset	#F_Empile,d2		Le flag
+	move.l	a4,S_Pile(a0)		L'adresse dans le programme
+	move.l	Cmvmd3d4ma3(pc),d0
+	bsr	OutLong
+	bra.s	.Out
+; Une variable locale: transforme le move.l V(a6),d3 en move.l V(a6),-(a3)
+.VLocal	subq.l	#4,a4
+	move.l	a4,S_Pile(a0)
+	move.w	Cmv2a6ma3(pc),d0
+	bsr	OutWord
+	addq.l	#2,a4
+	bra.s	.Out
+; Une variable globale: transforme le move.l V(a0),d3 en move.l V(a0),-(a3)
+.VGlobal
+	subq.l	#4,a4
+	move.l	a4,S_Pile(a0)
+	move.w	Cmv2a0ma3(pc),d0
+	bsr	OutWord
+	addq.l	#2,a4
+	bra.s	.Out
+; Une variable tableau: transforme le move.l (a0),d3 en move.l (a0),-(a3)
+.VTableau
+	subq.l	#2,a4
+	move.l	a4,S_Pile(a0)
+	move.w	Cmv0a0ma3(pc),d0
+	bsr	OutWord
+	bra.s	.Out
+; On vient de depiler l'operande precedent: facile!
+.Depile	bclr	#F_Depile,d2		Plus depile
+	subq.l	#2,a4			Recule le pointeur de 2!
+	cmp.b	#1,d2
+	bne.s	.Out
+	tst.b	MathFlags(a5)		Si double, on recule de 4!
+	bpl.s	.Out
+	subq.l	#2,a4
+; Sortie
+.Out	movem.l	(sp)+,d0-d1/a0-a1
+	rts
+
+;	Depile l'operande D5 efficacement (simple changement dans le code)
+;	Positionne juste apres le code depile, ie en D2 si ca marche!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Pull_D5:
+	movem.l	a0/d0,-(sp)
+	btst	#F_Empile,d5		Depile, on peut si possible
+	bne.s	.Try
+	tst.w	d6			Une fonction >>> Non
+	beq.s	.Non
+.Try	bsr	S_ReposD5
+	beq.s	.Non
+	btst	#F_Empile,d5		Parametre empile?
+	bne.s	.Depile
+	jmp	.Jmp(pc,d6.w)
+.Jmp	bra.s	.Non			Une fonction
+	bra.s	.VLocal			Une variable locale
+	bra.s	.VGlobal		Une variable globale
+	bra.s	.VTableau		Une variable tableau
+	bra.s	.MoveE			Un move.l entier
+	bra.s	.MoveF			Un move.l float
+	bra.s	.MoveD			Un move.l double
+	bra.s	.MoveS			Un move.l string
+.Non	moveq	#0,d0			Impossible!
+	bra.s	.Out
+.Oui	bsr	S_ReposD2		Met en D2
+.Oui2	moveq	#1,d0
+.Out	movem.l	(sp)+,a0/d0
+	rts
+.VLocal
+	move.w	Cmv2a6d3(pc),d0
+	bra.s	.VFini
+.VGlobal
+	move.w	Cmv2a0d3(pc),d0
+	bra.s	.VFini
+.VTableau
+	move.w	Cmv0a0d3(pc),d0
+.VFini	move.l	S_Pile(a0),a4		Adresse du move.l XX,-(a3)
+	bsr	OutWord
+	bra.s	.Oui
+.MoveE
+.MoveS
+.MoveF	move.w	Cmvid3(pc),d0
+	bsr	OutWord
+	bra.s	.Oui
+.MoveD
+	move.w	Cmvid4(pc),d0
+	bsr	OutWord
+	addq.l	#4,a4
+	move.w	Cmvid3(pc),d0
+	bsr	OutWord
+	bra.s	.Oui
+.Depile
+	bsr	S_ReposD2		Juste apres le NOP
+	subq.l	#2,a4			On recule dessus!
+	cmp.b	#1,d5			Un float?
+	bne.s	.Oui2
+	tst.b	MathFlags(a5)		Un double?
+	bpl.s	.Oui2
+	subq.l	#2,a4			C'est un movem!
+	bra.s	.Oui2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	LES OPERATEURS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;						Table des operateurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bra	OP_Xor
+	dc.b 	" xor"," "+$80,"O00",-1
+	bra	OP_Or
+	dc.b 	" or"," "+$80,"O00",-1
+	bra	OP_And
+	dc.b 	" and"," "+$80,"O00",-1
+	bra	OP_Diff
+	dc.b 	"<",">"+$80,"O20",-1
+	bra	OP_Diff
+	dc.b 	">","<"+$80,"O20",-1
+	bra	OP_InfEg
+	dc.b 	"<","="+$80,"O20",-1
+	bra	OP_InfEg
+	dc.b 	"=","<"+$80,"O20",-1
+	bra	OP_SupEg
+	dc.b 	">","="+$80,"O20",-1
+	bra	OP_SupEg
+	dc.b 	"=",">"+$80,"O20",-1
+	bra	OP_Egal
+	dc.b 	"="+$80,"O20",-1
+	bra	OP_Inf
+	dc.b 	"<"+$80,"O20",-1
+	bra	OP_Sup
+	dc.b 	">"+$80,"O20",-1
+	bra	OP_Plus
+	dc.b 	"+"+$80,"O22",-1
+	bra	OP_Moins
+	dc.b 	"-"+$80,"O22",-1
+	bra	OP_Modulo
+	dc.b 	" mod"," "+$80,"O00",-1
+	bra	OP_Multiplie
+	dc.b 	"*"+$80,"O00",-1
+	bra	OP_Divise
+	dc.b 	"/"+$80,"O00",-1
+	bra	OP_Puissance
+	dc.b 	"^"+$80,"O00",-1
+	even
+OP_Jmp	dc.l 	0
+
+;	Operateur PLUS, optimise!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Plus
+	bsr	OP_Compat		Meme type
+	lea	.Plus(pc),a0
+	bra	OP_General
+; Tableau de branchement aux fonction PLUS
+;    \ 	B=	A VlVgVtMeMfMdMs
+; A   \	        | | | | | | | |
+.Plus	dc.b	0,4,5,6,2,0,0,0		A= Autre
+	dc.b	0,4,5,6,2,0,0,0		A= Variable locale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable globale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable tableau
+	dc.b	3,4,5,6,1,0,0,0		A= MoveE
+	dc.b	0,0,0,0,0,0,0,0		A= MoveF
+	dc.b	0,0,0,0,0,0,0,0		A= MoveD
+	dc.b	0,0,0,0,0,0,0,0		A= MoveS
+	bra	.F0			La fonction standart
+	bra	.F1			Deux constantes entieres
+	bra	.F2			"B" est une constante entiere
+	bra	.F0			"A" est une constante entiere
+	bra	.F4			"B" est une variable locale
+	bra	.F5			"B" est une variable globale
+	bra	.F0			"B" est une variable tableau
+; Appel de la fonction standart
+.F0	move.w	d2,d0
+	beq.s	.F0a
+	add.w	#L_PlusF-1,d0		1ere si chaine
+	bsr	Do_JsrLibrary		2eme si chaine
+	bra	Set_F_Autre
+.F0a	move.w	Cadda3pd3(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; Deux constantes entieres
+.F1	move.l	S_Cst1(a0),d0		OK! on additionne
+	add.l	S_Cst1(a1),d0
+	bsr	S_ReloadD5		Retourner en arriere?
+	bne	Out_MoveE		Possible, on fabrique le code
+	bsr	ReOut_ConstD5		On change "A"
+	bsr	S_ReposD2		Retourner avant B, toujours possible
+	bset	#F_Depile,d2		On vient de depiler!
+	move.l	a4,S_Pile(a1)
+	move.w	Cmva3pd3(pc),d0		move.l	(a3)+,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une constante entiere
+.F2	bsr	Pull_D5			Depiler efficacement
+	beq.s	.F0			NON: add.l (a3)+,d3
+	move.l	S_Cst1(a1),d1		OUI:
+	beq.s	.F2s			Quelque chose a additionner?
+	bmi.s	.F2m
+	cmp.l	#8,d1			addq possible?
+	bhi.s	.F2n
+	move.w	Caddqd3(pc),d0		Oui!
+	and.w	#%1111000111111111,d0
+	bra.s	.F2x
+.F2m	cmp.l	#-8,d1			subq possible?
+	blt.s	.F2n
+	neg.l	d1
+	move.w	Csubqd3(pc),d0
+	and.w	#%1111000111111111,d0
+.F2x	and.w	#$07,d1
+	lsl.w	#8,d1
+	lsl.w	#1,d1
+	or.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+.F2n	move.w	Caddid3(pc),d0
+	bsr	OutWord
+	move.l	d1,d0
+	bsr	OutLong
+	bra	Set_F_Autre
+.F2s	move.l	d7,d4			On a depile efficacement
+	move.l	d6,d3
+	move.l	d5,d2
+	rts
+; B est une variable locale
+.F4	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1		Le delta de la variable
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.w	Cadd2a6d3(pc),d0	Ressort la variable
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une variable globale
+.F5	tst.w	d2			On veut des entiers
+	bne	.F0
+	move.w	S_Var(a1),d1		Le delta de la variable
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.w	Cmvd7a0(pc),d0		Resort la variable
+	bsr	OutWord
+	move.w	Cadd2a0d3(pc),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+
+;	Operateur MOINS, optimise!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Moins
+	bsr	OP_Compat		Meme type
+	lea	.Table(pc),a0
+	bra	OP_General
+; Tableau de branchement aux fonction MOINS
+;    \ 	B=	A VlVgVtMeMfMdMs
+; A   \	        | | | | | | | |
+.Table	dc.b	0,4,5,6,2,0,0,0		A= Autre
+	dc.b	0,4,5,6,2,0,0,0		A= Variable locale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable globale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable tableau
+	dc.b	3,4,5,6,1,0,0,0		A= MoveE
+	dc.b	0,0,0,0,0,0,0,0		A= MoveF
+	dc.b	0,0,0,0,0,0,0,0		A= MoveD
+	dc.b	0,0,0,0,0,0,0,0		A= MoveS
+	bra	.F0			0 La fonction standart
+	bra	.F1			1 Deux constantes entieres
+	bra	.F2			2 "B" est une constante entiere
+	bra	.F0			3 "A" est une constante entiere
+	bra	.F4			4 "B" est une variable locale
+	bra	.F5			5 "B" est une variable globale
+	bra	.F0			6 "B" est une variable tableau
+; Appel de la fonction standart
+.F0	move.w	d2,d0
+	beq.s	.F0a
+	add.w	#L_MoinsF-1,d0		1ere si float
+	bsr	Do_JsrLibrary		2eme si chaine
+	bra	Set_F_Autre
+.F0a	move.w	Csuba3pd3(pc),d0
+	bsr	OutWord
+	move.w	Cnegd3(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; Deux constantes entieres
+.F1	move.l	S_Cst1(a0),d0		OK! on soustraie
+	sub.l	S_Cst1(a1),d0
+	bsr	S_ReloadD5		Retourner en arriere?
+	bne	Out_MoveE		Possible, on fabrique le code
+	bsr	ReOut_ConstD5		On change "A"
+	bsr	S_ReposD2		Retourner avant B, toujours possible
+	bset	#F_Depile,d2		On vient de depiler!
+	move.l	a4,S_Pile(a1)
+	move.w	Cmva3pd3(pc),d0		move.l	(a3)+,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une constante entiere
+.F2	bsr	Pull_D5			Depiler efficacement
+	beq.s	.F0			NON: sub.l (a3)+,d3
+	move.l	S_Cst1(a1),d1		OUI:
+	beq.s	.F2s			Quelque chose a additionner?
+	bmi.s	.F2m
+	cmp.l	#8,d1			subq possible?
+	bhi.s	.F2n
+	move.w	Csubqd3(pc),d0		Oui!
+	and.w	#%1111000111111111,d0
+	bra.s	.F2x
+.F2m	cmp.l	#-8,d1			addq possible?
+	blt.s	.F2n
+	neg.l	d1
+	move.w	Caddqd3(pc),d0
+	and.w	#%1111000111111111,d0
+.F2x	and.w	#$07,d1
+	lsl.w	#8,d1
+	lsl.w	#1,d1
+	or.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+.F2n	move.w	Csubid3(pc),d0		Normal
+	bsr	OutWord
+	move.l	d1,d0
+	bsr	OutLong
+	bra	Set_F_Autre
+.F2s	move.l	d7,d4			On a depile efficacement
+	move.l	d6,d3
+	move.l	d5,d2
+	rts
+; B est une variable locale
+.F4	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.w	Csub2a6d3(pc),d0	Ressort la variable
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une variable globale
+.F5	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.w	Cmvd7a0(pc),d0		On ressort la variable
+	bsr	OutWord
+	move.w	Csub2a0d3(pc),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+
+;	Operateur MULTIPLIE, optimise!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Multiplie
+	bsr	OP_Compat		Meme type
+	lea	.Table(pc),a0
+	bra	OP_General
+; Tableau de branchement aux fonction MULTIPLIE
+;    \ 	B=	A VlVgVtMeMfMdMs
+; A   \	        | | | | | | | |
+.Table	dc.b	0,0,0,0,2,0,0,0		A= Autre
+	dc.b	0,0,0,0,2,0,0,0		A= Variable locale
+	dc.b	0,0,0,0,2,0,0,0		A= Variable globale
+	dc.b	0,0,0,0,2,0,0,0		A= Variable tableau
+	dc.b	3,3,3,3,1,0,0,0		A= MoveE
+	dc.b	0,0,0,0,0,0,0,0		A= MoveF
+	dc.b	0,0,0,0,0,0,0,0		A= MoveD
+	dc.b	0,0,0,0,0,0,0,0		A= MoveS
+	bra	.F0			La fonction standart
+	bra	.F1			Deux constantes entieres
+	bra	.F2			"B" est une constante entiere
+	bra	.F3			"A" est une constante entiere
+; Appel de la fonction standart
+.F0	move.w	d2,d0
+	add.w	#L_MultE,d0		1ere si entier
+	bsr	Do_JsrLibrary		2eme si float
+	bra	Set_F_Autre
+; Deux constantes entieres
+.F1	move.l	S_Cst1(a0),d0		OK! on additionne
+	move.l	S_Cst1(a1),d1
+	bsr	Mulu32
+	bsr	S_ReloadD5		Retourner en arriere?
+	bne	Out_MoveE		Possible, on fabrique le code
+	bsr	ReOut_ConstD5		On change "A"
+	bsr	S_ReposD2		Retourner avant B, toujours possible
+	bset	#F_Depile,d2		On vient de depiler!
+	move.l	a4,S_Pile(a1)
+	move.w	Cmva3pd3(pc),d0		move.l	(a3)+,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une constante entiere
+.F2	move.l	S_Cst1(a1),d1		B est-il un multiple de 2?
+	bsr	Get_Mult2
+	beq.s	.F0
+	bsr	Pull_D5			Depiler efficacement
+	bne.s	.F2a			depile?
+	bsr	S_ReposD2
+	move.w	Cmva3pd3(pc),d0
+	bsr	OutWord
+.F2a	move.w	Cmvqd0(pc),d0		moveq #mult,d0
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	Clsld0d3(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; A est une constante entiere
+.F3	move.l	S_Cst1(a0),d1		A est-il un multiple de 2?
+	bsr	Get_Mult2
+	beq	.F0
+	move.l	d1,d0
+	bsr	ReOut_ConstD5		Repoke dans l'objet
+	move.w	Cmva3pd0(pc),d0		move.l (a3)+,d0
+	bsr	OutWord
+	move.w	Clsld0d3(pc),d0		lsl.l d0,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+
+;	Operateur DIVISE, optimise!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Divise
+	bsr	OP_Compat		Meme type
+	lea	.Table(pc),a0
+	bra	OP_General
+; Tableau de branchement aux fonction MULTIPLIE
+;    \ 	B=	A VlVgVtMeMfMdMs
+; A   \	        | | | | | | | |
+.Table	dc.b	0,0,0,0,2,0,0,0		A= Autre
+	dc.b	0,0,0,0,2,0,0,0		A= Variable locale
+	dc.b	0,0,0,0,2,0,0,0		A= Variable globale
+	dc.b	0,0,0,0,2,0,0,0		A= Variable tableau
+	dc.b	0,0,0,0,1,0,0,0		A= MoveE
+	dc.b	0,0,0,0,0,0,0,0		A= MoveF
+	dc.b	0,0,0,0,0,0,0,0		A= MoveD
+	dc.b	0,0,0,0,0,0,0,0		A= MoveS
+	bra	.F0			La fonction standart
+	bra	.F1			Deux constantes entieres
+	bra	.F2			"B" est une constante entiere
+; Appel de la fonction standart
+.F0	move.w	d2,d0
+	add.w	#L_DiviseE,d0		1ere si entier
+	bsr	Do_JsrLibrary		2eme si float
+	bra	Set_F_Autre
+; Deux constantes entieres
+.F1	move.l	S_Cst1(a0),d0		On divise
+	move.l	S_Cst1(a1),d1
+	bsr	Divu32
+	bsr	S_ReloadD5		Retourner en arriere avant A si possible?
+	bne	Out_MoveE		Possible, on fabrique le code
+	bsr	ReOut_ConstD5		On change "A"
+	bsr	S_ReposD2		Retourner avant B, toujours possible
+	bset	#F_Depile,d2		On vient de depiler!
+	move.l	a4,S_Pile(a1)
+	move.w	Cmva3pd3(pc),d0		move.l	(a3)+,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une constante entiere
+.F2	move.l	S_Cst1(a1),d1		B est-il un multiple de 2?
+	bsr	Get_Mult2
+	beq.s	.F0
+	bsr	Pull_D5			Depiler efficacement
+	bne.s	.F2a			Depile?
+	bsr	S_ReposD2
+	move.w	Cmva3pd3(pc),d0
+	bsr	OutWord
+.F2a	move.w	Cmvqd0(pc),d0		moveq #mult,d0
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	Casrd0d3(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+
+; 	Operateur general
+; ~~~~~~~~~~~~~~~~~~~~~~~
+OP_General
+	move.w	d6,d0			A*8
+	lsl.w	#2,d0
+	move.w	d3,d1			+ B/2
+	lsr.w	#1,d1
+	add.w	d1,d0
+	move.b	0(a0,d0.w),d0		Prend le numero de la fonction
+	lsl.w	#2,d0			* 4
+	pea	64(a0,d0.w)
+	move.l	d7,a0			A0= A
+	move.l	d4,a1			A1= B
+	rts
+
+;	Operateurs de comparaison
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Egal	bsr	OP_Compat
+	bsr	Optimise_D2
+	lea	COP_Egal(pc),a0
+	bra.s	OP_Comp
+OP_Diff	bsr	OP_Compat
+	bsr	Optimise_D2
+	lea	COP_Diff(pc),a0
+	bra.s	OP_Comp
+OP_Sup	bsr	OP_Compat
+	bsr	Optimise_D2
+	lea	COP_Sup(pc),a0
+	bra.s	OP_Comp
+OP_Inf	bsr	OP_Compat
+	bsr	Optimise_D2
+	lea	COP_Inf(pc),a0
+	bra.s	OP_Comp
+OP_SupEg
+	bsr	OP_Compat
+	bsr	Optimise_D2
+	lea	COP_SupEg(pc),a0
+	bra.s	OP_Comp
+OP_InfEg
+	bsr	OP_Compat
+	bsr	Optimise_D2
+	lea	COP_InfEg(pc),a0
+OP_Comp	tst.w	d2			Si entier
+	bne.s	.Lib
+	move.w	(a0)+,d0
+	bsr	OutWord			La comparaison
+	bra.s	.Fin
+.Lib	cmp.w	#1,d2			Float?
+	bne.s	.Float
+	move.w	#L_Float_Compare,d0	Comparaison de floats
+	bra.s	.Suite
+.Float	move.w	#L_Chaine_Compare,d0	Comparaison de chaines
+.Suite	bsr	Do_JsrLibrary
+	addq.l	#2,a0
+.Fin	move.w	(a0)+,d0
+	bsr	OutWord
+	lea	COP_Comp(pc),a0
+	bsr	OutCode
+	bsr	Set_F_Autre
+	bset	#F_Drapeaux,d2
+	clr.w	d2
+	rts
+
+;	Codes rapide des operateurs de comparaison
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+COP_Egal
+	cmp.l	(a3)+,d3		Code comparaison egal
+	seq	d3
+COP_Diff
+	cmp.l	(a3)+,d3		Code comparaison different
+	sne	d3
+COP_Sup
+	cmp.l	(a3)+,d3		Code comparaison superieur
+	slt	d3
+COP_Inf
+	cmp.l	(a3)+,d3		Code comparaison inferieur
+	sgt	d3
+COP_SupEg
+	cmp.l	(a3)+,d3		Code comparaison superieur ou egal
+	sle	d3
+COP_InfEg
+	cmp.l	(a3)+,d3		Code comparaison inferieur ou egal
+	sge	d3
+COP_Comp
+	ext.w	d3
+	ext.l	d3
+	dc.w	$4321
+
+
+;	Operateur MODULO
+; ~~~~~~~~~~~~~~~~~~~~~~
+OP_Modulo
+	bsr 	OP_Quentiers
+        move.w 	#L_Modulo,d0
+        bsr 	Do_JsrLibrary
+	bra	Set_F_Autre
+
+;	Operateur PUISSANCE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Puissance
+	bsr 	OP_Quefloats
+	bsr	MathFloat
+        moveq 	#L_Puissance,d0
+        bsr 	Do_JsrLibrary
+	bra	Set_F_Autre
+
+; 	Operateurs logiques optimises
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_And	lea	COP_And(pc),a0
+	bra	OP_Logique
+OP_Or	lea	COP_Or(pc),a0
+	bra	OP_Logique
+COP_And	and.l	(a3)+,d3		0= normal
+	and.l	#0,d3			2= B constante
+	and.l	2(a6),d3		8= B variable locale
+	and.l	2(a0),d3		12 B variable globale /
+	and.l	d1,d0			16 Immediat
+	rts
+COP_Or	or.l	(a3)+,d3		0= normal
+	or.l	#0,d3			2= B constante
+	or.l	2(a6),d3		8= B variable locale
+	or.l	2(a0),d3		12 B variable globale /
+	or.l	d1,d0			16 Immediat
+	rts
+
+
+;	Operateurs LOGIQUES, optimises!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Logique
+	move.l	a0,-(sp)
+	bsr	OP_Quentiers		Meme type
+	lea	.Table(pc),a0
+	bra	OP_General
+; Tableau de branchement aux fonction
+;    \ 	B=	A VlVgVtMeMfMdMs
+; A   \	        | | | | | | | |
+.Table	dc.b	0,4,5,6,2,0,0,0		A= Autre
+	dc.b	0,4,5,6,2,0,0,0		A= Variable locale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable globale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable tableau
+	dc.b	3,4,5,6,1,0,0,0		A= MoveE
+	dc.b	0,0,0,0,0,0,0,0		A= MoveF
+	dc.b	0,0,0,0,0,0,0,0		A= MoveD
+	dc.b	0,0,0,0,0,0,0,0		A= MoveS
+	bra	.F0			La fonction standart
+	bra	.F1			Deux constantes entieres
+	bra	.F2			"B" est une constante entiere
+	bra	.F0			"A" est une constante entiere
+	bra	.F4			"B" est une variable locale
+	bra	.F5			"B" est une variable globale
+	bra	.F0			"B" est une variable tableau
+; Appel de la fonction standart
+.F0	move.l	(sp)+,a0
+	move.w	(a0),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; Deux constantes entieres
+.F1	move.l	S_Cst1(a0),d0		OK! on additionne
+	move.l	S_Cst1(a1),d1
+	move.l	(sp)+,a0		Va effectuer la fonction
+	jsr	16(a0)
+	bsr	S_ReloadD5		Retourner en arriere?
+	bne	Out_MoveE		Possible, on fabrique le code
+	bsr	ReOut_ConstD5		On change "A"
+	bsr	S_ReposD2		Retourner avant B, toujours possible
+	bset	#F_Depile,d2		On vient de depiler!
+	move.l	a4,S_Pile(a1)
+	move.w	Cmva3pd3(pc),d0		move.l	(a3)+,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une constante entiere
+.F2	bsr	Pull_D5			Depiler efficacement
+	beq.s	.F0
+	move.l	(sp)+,a0
+	move.w	2(a0),d0
+	bsr	OutWord
+	move.l	S_Cst1(a1),d0
+	bsr	OutLong
+	bra	Set_F_Autre
+; B est une variable locale
+.F4	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.l	(sp)+,a0		Ressort la variable
+	move.w	8(a0),d0		And.l V(a6),d3
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une variable globale
+.F5	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.w	Cmvd7a0(pc),d0		On ressort la variable
+	bsr	OutWord
+	move.l	(sp)+,a0
+	move.w	12(a0),d0		And.l V(a0),d3
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+
+
+;	Operateurs XOR, optimises!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Xor
+	bsr	OP_Quentiers		Meme type
+	lea	.Table(pc),a0
+	bra	OP_General
+; Tableau de branchement aux fonction PLUS
+;    \ 	B=	A VlVgVtMeMfMdMs
+; A   \	        | | | | | | | |
+.Table	dc.b	0,4,5,6,2,0,0,0		A= Autre
+	dc.b	0,4,5,6,2,0,0,0		A= Variable locale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable globale
+	dc.b	0,4,5,6,2,0,0,0		A= Variable tableau
+	dc.b	3,4,5,6,1,0,0,0		A= MoveE
+	dc.b	0,0,0,0,0,0,0,0		A= MoveF
+	dc.b	0,0,0,0,0,0,0,0		A= MoveD
+	dc.b	0,0,0,0,0,0,0,0		A= MoveS
+	bra	.F0			La fonction standart
+	bra	.F1			Deux constantes entieres
+	bra	.F2			"B" est une constante entiere
+	bra	.F0			"A" est une constante entiere
+	bra	.F4			"B" est une variable locale
+	bra	.F5			"B" est une variable globale
+	bra	.F0			"B" est une variable tableau
+; Appel de la fonction standart
+.F0	lea	OP_Xor1(pc),a0
+	bsr	OutCode
+	bra	Set_F_Autre
+; Deux constantes entieres
+.F1	move.l	S_Cst1(a0),d0		OK! on additionne
+	move.l	S_Cst1(a1),d1
+	eor.l	d1,d0
+	bsr	S_ReloadD5		Retourner en arriere?
+	bne	Out_MoveE		Possible, on fabrique le code
+	bsr	ReOut_ConstD5		On change "A"
+	bsr	S_ReposD2		Retourner avant B, toujours possible
+	bset	#F_Depile,d2		On vient de depiler!
+	move.l	a4,S_Pile(a1)
+	move.w	Cmva3pd3(pc),d0		move.l	(a3)+,d3
+	bsr	OutWord
+	bra	Set_F_Autre
+; B est une constante entiere
+.F2	bsr	Pull_D5			Depiler efficacement
+	beq.s	.F0			NON
+	move.w	OP_Xor2(pc),d0
+	bsr	OutWord
+	move.l	S_Cst1(a1),d0
+	bsr	OutLong
+	bra	Set_F_Autre
+; B est une variable locale
+.F4	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	bsr	S_ReposD2		On met sur D2
+	move.w	OP_Xor3(pc),d0		Ressort la variable
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	bra.s	.XSuit
+; B est une variable globale
+.F5	tst.w	d2			On veut des entier
+	bne	.F0
+	move.w	S_Var(a1),d1
+	bsr	Pull_D5			On peut depiler?
+	beq	.F0
+	move.w	Cmvd7a0(pc),d0		On ressort la variable
+	bsr	OutWord
+	move.w	OP_Xor4(pc),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+.XSuit	move.w	OP_Xor5(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+OP_Xor1	move.l	(a3)+,d0
+	eor.l	d0,d3
+	dc.w	$4321
+OP_Xor2	eor.l	#0,d3
+OP_Xor3	move.l	2(a6),d0
+OP_Xor4	move.l	2(a0),d0
+OP_Xor5	eor.l	d0,d3
+
+
+;	Multiplication 32 bits D0*D1 >>> D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mulu32	movem.l	d1-d4,-(sp)
+	move.l	d0,d3
+	move.l	d1,d2
+	clr 	d4              ;multiplication signee 32*32 bits
+        tst.l 	d3            ;aabb*ccdd
+        bpl.s 	mlt1
+        neg.l 	d3
+        not 	d4
+mlt1:   tst.l 	d2            ;tests des signes
+        bpl.s 	mlt2
+        neg.l 	d2
+        not 	d4
+* Peut on faire une mult rapide?
+mlt2:  	cmp.l 	#$00010000,d3
+        bcc.s 	mlt0
+        cmp.l 	#$00010000,d2
+        bcc.s 	mlt0
+        mulu 	d2,d3          ;quand on le peut: multiplication directe!
+	move.l	d3,d0
+	tst.w 	d4
+	beq.s	mltF
+	neg.l 	d0
+	bra.s 	mltF
+* Multiplcation lente
+mlt0:   move 	d2,d1
+        mulu 	d3,d1
+        bmi	Err_Overflow
+        swap 	d2
+        move 	d2,d0
+        mulu 	d3,d0
+        swap 	d0
+        bmi 	Err_Overflow
+        tst 	d0
+        bne 	Err_Overflow
+        add.l 	d0,d1
+        bvs 	Err_Overflow
+        swap 	d3
+        move 	d2,d0
+        mulu 	d3,d0
+        bne 	Err_Overflow
+        swap 	d2
+        move 	d2,d0
+        mulu 	d3,d0
+        swap 	d0
+        bmi 	Err_Overflow
+        tst 	d0
+        bne 	Err_Overflow
+        add.l 	d0,d1
+        bvs 	Err_Overflow
+        tst 	d4              ;signe du resultat
+        beq.s 	mlt3
+        neg.l 	d1
+mlt3:   move.l 	d1,d0
+mltF:	movem.l	(sp)+,d1-d4
+	rts
+
+; 	Divise entier: D0/D1 >>> D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Divu32	movem.l	d1-d5,-(sp)
+	move.l	d1,d3
+	move.l	d0,d2
+	tst.l 	d3
+        beq 	Err_DivisionByZero         ;division par zero!
+        moveq	#0,d4
+        tst.l 	d2
+        bpl.s 	dva
+        bset	#31,d4
+        neg.l 	d2
+dva:    cmp.l 	#$10000,d3    		;Division rapide ou non?
+        bcc.s 	dv0
+        tst.l 	d3
+        bpl.s 	dvb
+    	bchg	#31,d4
+        neg.l 	d3
+dvb:    move.l 	d2,d0
+        divu 	d3,d0          ;division rapide: 32/16 bits
+        bvs.s 	dv0
+        moveq 	#0,d3
+        move	d0,d3
+        bra.s 	dvc
+dv0:    tst.l 	d3
+        bpl.s 	dv3
+        bchg	#31,d4
+        neg.l 	d3
+dv3:    move.l	d5,-(sp)
+	move.w 	#31,d4         ;division lente: 32/32 bits
+        moveq 	#-1,d5
+        clr.l 	d1
+dv2:    lsl.l 	#1,d2
+        roxl.l	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	dv1
+        sub.l 	d3,d1
+        lsr 	#1,d5           ;met X a un!
+dv1:    roxl.l 	#1,d0
+        dbra 	d4,dv2
+        move.l 	d0,d3
+	move.l	(sp)+,d5
+dvc:    tst.l	d4
+        bpl.s 	dvd
+        neg.l 	d3
+dvd:   	move.l	d3,d0
+	movem.l	(sp)+,d1-d5
+	rts
+
+;	Compatibilite entre operandes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OP_Compat
+	cmp.b	d2,d5			Meme type
+	bne.s	.Conv
+	rts
+.Conv	tst.b	d5
+	beq	D5_Float
+	bra	D2_Float
+; 	Que des entiers
+; ~~~~~~~~~~~~~~~~~~~~~
+OP_Quentiers
+	tst.b	d2
+	beq.s	.Skip1
+	bsr	D2_Entier
+.Skip1	tst.b	d5
+	beq.s	.Skip2
+	bsr	D5_Entier
+.Skip2	rts
+; 	Que des floats
+; ~~~~~~~~~~~~~~~~~~~~
+OP_Quefloats
+	tst.b	d2
+	bne.s	.Skip1
+	bsr	D2_Float
+.Skip1	tst.b	d5
+	bne.s	.Skip2
+	bsr	D5_Float
+.Skip2	rts
+
+
+;	Fabrique le code constante entiere
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Out_MoveE
+	move.l	d0,d1
+	move.w	Cmvid3(pc),d0		move.l	#xxx,d3
+	bsr	OutWord
+	move.l	d1,d0
+	bsr	OutLong
+	move.l	d4,a0
+	move.l	d1,S_Cst1(a0)
+	moveq	#F_MoveE,d3
+	bclr	#F_Empile,d2
+	bclr	#F_Depile,d2
+	rts
+
+; 	Ressort la constante en D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ReOut_ConstD2
+	movem.l	a4/a0,-(sp)
+	move.l	d4,a0
+	move.l	d0,S_Cst1(a0)
+	move.l	S_a4(a0),a4
+	addq.l	#2,a4
+	bsr	OutLong
+	movem.l	(sp)+,a4/d0
+	rts
+
+; 	Ressort la constante en D5
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ReOut_ConstD5
+	movem.l	a4/a0,-(sp)
+	move.l	d7,a0
+	move.l	d0,S_Cst1(a0)
+	move.l	S_a4(a0),a4
+	addq.l	#2,a4
+	bsr	OutLong
+	movem.l	(sp)+,a4/d0
+	rts
+
+;	Stocke la position actuelle dans le script / D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+S_Script_D2
+	move.l	A_Script(a5),a0		Stocke toutes les donnees
+	move.l	a0,d4			Position dans le script
+	addq.l	#8,a0			S_Cst1 / S_Cst2
+	move.w	EvaCompteur(a5),(a0)+	S_EvaCompteur
+	clr.l	(a0)+			S_Pile
+	clr.w	(a0)+			S_Var
+	move.l	a3,(a0)+		S_a3
+	move.l	a4,(a0)+		S_a4
+	move.l	OldRel(a5),(a0)+	S_OldRel
+	move.l	A_LibRel(a5),(a0)+	S_LibRel
+	move.l	Lib_OldRel(a5),(a0)+	S_LibOldRel
+	move.l	A_Chaines(a5),(a0)+	S_Chaines
+	move.l	a0,A_Script(a5)
+	rts
+
+; 	Recharge la position dans l'objet juste au debut du dernier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+S_ReposD2
+	move.l	a0,-(sp)
+	move.l	d4,a0
+	move.l	S_a3(a0),a3
+	move.l	S_a4(a0),a4
+	move.l	S_OldRel(a0),OldRel(a5)
+	move.l	S_LibRel(a0),A_LibRel(a5)
+	move.l	S_LibOldRel(a0),Lib_OldRel(a5)
+	move.l	S_Chaines(a0),A_Chaines(a5)
+	move.l	(sp)+,a0
+	rts
+; 	Recharge la position de D5 dans l'objet, si possible
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+S_ReposD5
+	movem.l	a0/d0,-(sp)
+	move.l	d7,a0
+	move.w	S_EvaCompteur(a0),d0
+	addq.w	#1,d0
+	cmp.w	EvaCompteur(a5),d0		Juste une seule routine
+	bne.s	.Non				devant celle-ci?
+	move.l	S_a4(a0),a4			Juste la position A4
+	moveq	#-1,d0
+.Out	movem.l	(sp)+,a0/d0
+	rts
+.Non	moveq	#0,d0
+	bra.s	.Out
+; 	Recharge D5 dans l'objet, si possible
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+S_ReloadD5
+	movem.l	a0/d0,-(sp)
+	move.l	d7,a0
+	move.w	S_EvaCompteur(a0),d0
+	addq.w	#1,d0
+	cmp.w	EvaCompteur(a5),d0		Juste une seule routine
+	bne.s	.Non				devant celle-ci?
+	move.l	S_a3(a0),a3
+	move.l	S_a4(a0),a4
+	move.l	S_OldRel(a0),OldRel(a5)
+	move.l	S_LibRel(a0),A_LibRel(a5)
+	move.l	S_LibOldRel(a0),Lib_OldRel(a5)
+	move.l	S_Chaines(a0),A_Chaines(a5)
+	move.l	d7,d4
+	move.l	d6,d3
+	move.l	d5,d2				Devient le dernier operande
+	moveq	#-1,d0
+.Out	movem.l	(sp)+,a0/d0
+	rts
+.Non	moveq	#0,d0
+	bra.s	.Out
+
+; Routines de changement de type: D2 >>> Entier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D2_Entier
+	move.l	d4,a0
+	clr.w	d2
+	jmp	.Jmp(pc,d3.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.Autre			Une variable locale
+	bra.s	.Autre			Une variable globale
+	bra.s	.Autre			Une variable tableau
+	bra.s	.Autre			Un move.l entier
+	bra.s	.MoveF			Un move.l float
+	bra.s	.MoveD			Un move.l double
+	bra.s	.Autre			Un move.l string
+; Une constante float > entier
+.MoveF	move.l	S_Cst1(a0),d0		Float, simple
+	bsr	FloatToInt
+	bsr	ReOut_ConstD2
+	moveq	#F_MoveE,d3
+	rts
+; Une constante double > entier
+.MoveD	bsr	S_ReposD2		Recule dans l'objet
+	move.w	Cmvid3(pc),d0
+	bsr	OutWord
+	move.l	S_Cst1(a0),d0
+	move.l	S_Cst2(a0),d1
+	bsr	DoubleToInt
+	move.l	d0,S_Cst1(a0)
+	bsr	OutLong
+	moveq	#F_MoveE,d3		Change le type de l'operande
+	rts
+; Un autre operateur, appelle la librarie
+.Autre	bsr	Cree_FlToInt
+	bra	Set_F_Autre		Plus une constante
+
+; Routines de changement de type: D5 >>> entier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D5_Entier
+	move.l	d7,a1
+	clr.w	d5
+	jmp	.Jmp(pc,d6.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.Autre			Une variable locale
+	bra.s	.Autre			Une variable globale
+	bra.s	.Autre			Une variable tableau
+	bra.s	.Autre			Un move.l entier
+	bra.s	.MoveF			Un move.l float
+	bra.s	.Autre			Un move.l double
+	bra.s	.Autre			Un move.l string
+; Une constante float > entier
+.MoveF	tst.b	MathFlags(a5)
+	bmi.s	.Autre
+	move.l	S_Cst1(a1),d0		Float, simple
+	bsr	FloatToInt
+	bsr	ReOut_ConstD5
+	moveq	#F_MoveE,d6
+	rts
+; Autre operande, appelle la librairie
+.Autre	bsr	Cree_FlToInt2
+	bra	Set_F_Autre		Plus une constante
+
+; Routines de changement de type: D2 >>> float
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D2_Float
+	move.l	d4,a0
+	move.w	#1,d2
+	jmp	.Jmp(pc,d3.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.Autre			Une variable locale
+	bra.s	.Autre			Une variable globale
+	bra.s	.Autre			Une variable tableau
+	bra.s	.MoveE			Un move.l entier
+	bra.s	.Autre			Un move.l float
+	bra.s	.Autre			Un move.l double
+	bra.s	.Autre			Un move.l string
+; Une constante entiere > float / double
+.MoveE	tst.b	MathFlags(a5)
+	bmi.s	.Dble
+	move.l	S_Cst1(a0),d0		Float, simple
+	bsr	IntToFloat
+	bsr	ReOut_ConstD2
+	moveq	#F_MoveF,d3
+	rts
+.Dble	bsr	S_ReposD2		Recule dans l'objet
+	move.w	Cmvid4(pc),d0
+	bsr	OutWord
+	move.l	S_Cst1(a0),d0
+	bsr	IntToDouble
+	move.l	d0,S_Cst1(a0)
+	move.l	d1,S_Cst2(a0)
+	exg	d0,d1
+	bsr	OutLong
+	move.w	Cmvid3(pc),d0
+	bsr	OutWord
+	move.l	d1,d0
+	bsr	OutLong
+	moveq	#F_MoveD,d3		Change le type de l'operande
+	rts
+; Un autre operateur, appelle la librarie
+.Autre	bsr	Cree_IntToFl
+	bra	Set_F_Autre
+
+; Routines de changement de type D5 >>> float
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D5_Float
+	move.l	d7,a1
+	move.w	#1,d5
+	jmp	.Jmp(pc,d6.w)
+.Jmp	bra.s	.Autre			Une fonction
+	bra.s	.Autre			Une variable locale
+	bra.s	.Autre			Une variable globale
+	bra.s	.Autre			Une variable tableau
+	bra.s	.MoveE			Un move.l entier
+	bra.s	.Autre			Un move.l float
+	bra.s	.Autre			Un move.l double
+	bra.s	.Autre			Un move.l string
+; Une constante entiere > float / double
+.MoveE	tst.b	MathFlags(a5)
+	bmi.s	.Autre
+	move.l	S_Cst1(a1),d0		Float, simple
+	bsr	IntToFloat
+	bsr	ReOut_ConstD5
+	moveq	#F_MoveF,d6
+	rts
+; Autres: appelle la librarie
+.Autre	bsr	Cree_IntToFl2		Appelle la librairie
+	bra	Set_F_AutreD5
+
+
+;	Set type= F_Autre
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Set_F_Autre
+	moveq	#F_Autre,d3
+	bclr	#F_Empile,d2
+	bclr	#F_Depile,d2
+	bclr	#F_Drapeaux,d2
+	rts
+;	Parametre en D5= autre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Set_F_AutreD5
+	moveq	#F_Autre,d6		Plus une constante
+	bclr	#F_Empile,d5		Plus empile!
+	bclr	#F_Depile,d5		Plus depile!
+	bclr	#F_Drapeaux,d5		Plus de flags
+	rts
+
+;	Retourne le multiple de 2 >>> D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Mult2
+	movem.l	d0/d2,-(sp)
+	moveq	#2,d0
+	moveq	#1,d2
+.Loop	cmp.l	d0,d1
+	beq.s	.Ok
+	addq.w	#1,d2
+	lsl.l	#1,d0
+	bcc.s	.Loop
+	moveq	#0,d0
+	bra.s	.Out
+.Ok	move.l	d2,d1
+.Out	movem.l	(sp)+,d0/d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	LES FONCTIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 				Table des sauts fonctions speciales
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+Func_Jumps
+	dc.l	0			00- Normal
+	bra	Err_Syntax		01= Syntax error!
+	bra	FnNull			02= Evaluation finie
+	bra	FnNull			03= Evaluation finie par une virgule
+	bra	New_Evalue		04= Ouverture de parenthese
+	bra	FnVal			05= Val
+	bra	FnExtension		06= Extension
+	bra	FnVariable		07= Variable
+	bra	FnVarptr		08= Varptr
+	bra	FnFn			09= FN
+	bra	FnNot			0A= Not
+	bra	FnXYMenu		0B= XYmenu
+	bra	FnEqu			0C= Equ
+	bra	FnMatch			0D= Sort
+	bra	FnArray			0E- Array
+	bra	FnMin			0F= Min
+	bra	FnEqu			10= LVO
+	bra	FnStruc			11= Struc
+	bra	FnStrucD		12= Struc$
+	dc.l	0			13= Fonction math
+	bra	FnConstEnt		14= Constante Entiere
+	bra	FnConstFloat		15= Constante Float
+	bra	FnConstDouble		16= Constante DFloat
+	bra	FnConstChaine		17= Constante String
+	dc.l	0			18= Instruction + Fonction
+	dc.l	0			19- Deja teste!
+	dc.l	0			1A- Variable reservee
+	bra	FnParamE		1B- Param entier
+	bra	FnParamF		1C- Param float
+	bra	FnParamS		1D- Param string
+	bra	FnFalse			1E- False
+	bra	FnTrue			1F- True
+	bra	FnMax			20- Max
+	bra	FnMid3			21- Mid 2
+	bra	FnMid2			22- Mid 3
+	bra	FnLeft			23- Left
+	bra	FnRight			24- Right
+	bra	FnDialogs		25- Fonction dialogues
+	bra	FnFSel			26- Fonction fsel
+	bra	FnBtst			27- Btst
+
+;	Selecteur de fichier: met les flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnFSel	bset	#F_FSel,Flag_Libraries(a5)
+;	Fonction dialogues: met les flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnDialogs
+	bset	#F_Dialogs,Flag_Libraries(a5)
+	lea	0(a0,d0.w),a0		Pointe la fonction
+	move.w	0(a0),d0		D0= # de fonction
+	bra	FnNormal2
+
+;	=VAL(a$)
+; ~~~~~~~~~~~~~~
+FnVal	bsr	Fn_New_Evalue
+	move.w	Type_Voulu(a5),d0
+	bmi.s	.Nondet
+	move.b	.Types(pc,d0.w),d2
+	bmi.s	.Nondet
+.Suite	move.w	Cmvqd2(pc),d0
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	#L_FnVal,d0
+	bsr	Do_JsrLibrary
+	bra	Set_F_Autre
+.Nondet	moveq	#0,d2
+	btst	#0,MathFlags(a5)
+	beq.s	.Suite
+	moveq	#1,d2
+	bra.s	.Suite
+.Types	dc.b	0			0 Entier
+	dc.b	1			1 Float
+	dc.b	-1			2 Chaine
+	dc.b	-1			3 Entier / Chaine
+	dc.b	1			4 Float
+	dc.b	1			5 Angle
+	even
+
+;	=STRUC()
+; ~~~~~~~~~~~~~~
+FnStruc	bsr	GStruc
+	move.w	#L_FnStruc,d0
+	bsr	Do_JsrLibrary
+	moveq	#0,d2
+	bra	Set_F_Autre
+FnStrucD
+	bsr	GStruc
+	move.w	#L_FnStrucD,d0
+	bsr	Do_JsrLibrary
+	moveq	#2,d2
+	bra	Set_F_Autre
+; Recupere les parametres structure...
+GStruc	bsr	GetLong			Equate
+	move.l	d0,-(sp)
+	bsr	GetWord			Type
+	lsl.w	#1,d0			*2
+	move.w	d0,-(sp)
+	bsr	Fn_Expentier		L'adresse de base > D3
+	bsr	StockOut
+	bsr	Fn_New_Evalue		Saute la chaine
+	bsr	RestOut
+	move.w	Cmvqd0(pc),d0		Sort le type
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	Caddid3(pc),d0		Add.l #,d3
+	bsr	OutWord
+	move.l	(sp)+,d0
+	bsr	OutLong
+	rts
+
+;	=ARRAY(a())
+; ~~~~~~~~~~~~~~~~~
+FnArray	addq.l	#4,a6			Saute la (
+	bsr	StockOut
+	bsr	VarAdr
+	move.w	d0,d1			Type de pointeur sur base
+	addq.l	#2,a6			Saute la )
+	bsr	RestOut			Remet au debut
+	bsr	ArrayBase		Met le pointeur
+	move.w	#L_FnArray,d0
+	bsr	Do_JsrLibrary
+	moveq	#0,d2			Retourne le type
+	bra	Set_F_Autre
+
+;	=MATCH a()
+; ~~~~~~~~~~~~~~~~
+FnMatch	move.w	Type_Voulu(a5),-(sp)
+	addq.l	#4,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	and.w	#$000f,d2
+	move.w	d2,Type_Voulu(a5)
+	bsr	Fn_Evalue_Voulu
+	bsr	Push_D2
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	bsr	AdBase
+	move.w	Cmvqd2(pc),d0
+	and.w	#$0f,d2
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	#L_FnMatch,d0
+	bsr	Do_JsrLibrary
+	move.l	(sp)+,a6
+	move.w	(sp)+,Type_Voulu(a5)
+	moveq	#0,d2
+	bra	Set_F_Autre
+
+;	=Equ / Lvo
+; ~~~~~~~~~~~~~~~~
+FnEqu	bsr	GetLong
+	bsr	Out_MoveE
+	addq.l	#2+2+2,a6
+	bsr	GetWord
+	move.w	d0,d1
+	and.w	#1,d1
+	add.w	d1,d0
+	lea	2(a6,d0.w),a6
+	rts
+
+;	=XYMenu
+; ~~~~~~~~~~~~~
+FnXYMenu
+	move.w	0(a0,d0.w),-(sp)	Prend le token
+	bsr	MnPar			Prend les params
+	move.w	(sp)+,d0
+	bsr	Do_JsrLibrary		Branche
+	moveq	#0,d2			Retour entier
+	bra	Set_F_Autre
+
+;	Fonction NOT
+; ~~~~~~~~~~~~~~~~~~
+FnNot	bsr 	Expentier
+	move.w	.Code(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+.Code	not.l 	d3
+
+
+; 	Mid / Left / Right en fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnRight	move.w	#L_FnRight,d1
+	bra.s	FnM
+FnLeft	move.w	#L_FnLeft,d1
+	bra.s	FnM
+FnMid3	move.w	#L_FnMid3,d1
+	bra.s	FnM
+FnMid2	move.w	#L_FnMid2,d1
+FnM	lea	0(a0,d0.w),a0
+	move.w	d1,d0
+	bra	FnNormal2
+
+;	VARPTR
+; ~~~~~~~~~~~~
+FnVarptr
+	addq.l	#4,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	addq.l	#2,a6
+	bsr	Set_F_Autre
+	move.w	d2,d0
+	moveq	#0,d2
+	cmp.b	#2,d0
+	beq.s	.Str
+	move.w	Cmva0d3(pc),d0
+	bra	OutWord
+.Str	lea	.Code(pc),a0
+	bra	OutCode
+.Code	move.l	(a0),d3
+	addq.l	#2,d3
+	dc.w	$4321
+
+;	MIN + MAX
+; ~~~~~~~~~~~~~~~
+FnMin	pea	TMin(pc)
+	bra.s	FnMM
+FnMax	pea	TMax(pc)
+FnMM	bsr	Fn_New_Evalue
+	bsr	Optimise_D2
+	bsr	Push_D2
+	bsr	Fn_New_Evalue
+	bsr	Optimise_D2
+	move.l	(sp)+,a0
+	move.w	d2,d0
+	lsl.w	#1,d0
+	move.w	0(a0,d0.w),d0
+	bsr	Do_JsrLibrary
+	bra	Set_F_Autre
+TMin	dc.w	L_FnMin,L_FnMinF,L_FnMinS
+TMax	dc.w	L_FnMax,L_FnMaxF,L_FnMaxS
+
+;	=FALSE / TRUE
+; ~~~~~~~~~~~~~~~~~~~
+FnFalse	move.w	Cmvqd3(pc),d0
+	bsr	OutWord
+	bra	Set_F_Autre
+FnTrue	move.w	Cmvqd3(pc),d0
+	move.b	#-1,d0
+	bsr	OutWord
+	bra	Set_F_Autre
+
+;	=PARAM
+; ~~~~~~~~~~~~
+FnParamE
+	moveq	#0,d2
+	lea	CdParE(pc),a0
+	bra.s	FnParSuite
+FnParamF
+	moveq	#1,d2
+	lea	CdParF(pc),a0
+	tst.b	MathFlags(a5)
+	bpl.s	FnParSuite
+	lea	CdParD(pc),a0
+	bra.s	FnParSuite
+FnParamS
+	moveq	#2,d2
+	lea	CdParS(pc),a0
+FnParSuite
+	bsr	OutCode
+	bra	Set_F_Autre
+CdParE	move.l	ParamE(a5),d3
+	dc.w	$4321
+CdParD	move.l	ParamF2(a5),d4
+CdParF	move.l	ParamF(a5),d3
+	dc.w	$4321
+CdParS	move.l	ParamC(a5),d3
+	dc.w	$4321
+
+;	Evaluation finie par une virgule
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnNull	moveq	#0,d2
+	move.l	#EntNul,d0
+	subq.l	#2,a6			Reste sur la virgule
+	bra	Out_MoveE
+
+;	Constante entiere / hex / bin
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnConstEnt
+	moveq	#0,d2
+	bsr	GetLong
+	bra	Out_MoveE
+
+;	Constante float
+; ~~~~~~~~~~~~~~~~~~~~~
+FnConstFloat
+	moveq	#1,d2
+	bsr	MathSimple
+	tst.b	MathFlags(a5)
+	bmi.s	.Dble
+	move.w	Cmvid3(pc),d0		move.l	#xxxx,d3
+	bsr	OutWord
+	bsr	GetLong
+	move.l	d4,a0
+	move.l	d0,S_Cst1(a0)
+	bsr	OutLong
+	moveq	#F_MoveF,d3
+	rts
+.Dble	move.w	Cmvid4(pc),d0		Move.l	#xxx,d4
+	bsr	OutWord
+	bsr	GetLong
+	bsr	Float2Double		Conversion
+	move.l	d4,a0
+	move.l	d0,S_Cst1(a0)
+	move.l	d1,S_Cst2(a0)
+	exg	d0,d1
+	bsr	OutLong
+	move.w	Cmvid3(pc),d0		Move.l	#xxx,d3
+	bsr	OutWord
+	move.l	d1,d0
+	bsr	OutLong
+	moveq	#F_MoveD,d3
+	rts
+
+;	Constante double float
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnConstDouble
+	moveq	#1,d2
+	bsr	MathSimple
+	tst.b	MathFlags(a5)
+	bpl.s	.Float
+	move.l	d4,a0
+	move.w	Cmvid4(pc),d0		move.l	#xxxx,d4
+	bsr	OutWord
+	bsr	GetLong
+	move.l	d0,S_Cst1(a0)
+	move.l	d0,d1
+	bsr	GetLong
+	move.l	d0,S_Cst2(a0)
+	bsr	OutLong
+	move.w	Cmvid3(pc),d0		move.l	#xxxx,d3
+	bsr	OutWord
+	move.l	d1,d0
+	bsr	OutLong
+	moveq	#F_MoveD,d3
+	rts
+.Float	move.w	Cmvid3(pc),d0		Move.l	#xxx,d3
+	bsr	OutWord
+	bsr	GetLong
+	move.l	d0,d1
+	bsr	GetLong
+	exg.l	d0,d1
+	bsr	Double2Float
+	move.l	d4,a0
+	move.l	d0,S_Cst1(a0)
+	bsr	OutLong
+	moveq	#F_MoveF,d3
+	rts
+
+; 	Constante Chaine
+; ~~~~~~~~~~~~~~~~~~~~~~
+FnConstChaine
+	move.w	Cmvid3(pc),d0		move.l	#xxxx,d3
+	bsr	OutWord
+	bsr	Relocation		Force la relocation
+	move.l	A_Chaines(a5),d0	Marque l'adresse dans les
+	move.l	d0,a0			chaines dans l'objet
+	move.l	a6,(a0)
+	sub.l	B_Chaines(a5),d0	En relatif pour la relocation
+	or.l	#Rel_Chaines,d0
+	bsr	OutLong
+	addq.l	#4,A_Chaines(a5)	Chaine suivante
+; Saute la chaine
+	bsr	GetWord
+	btst	#0,d0
+	beq.s	FCh1
+	addq.w	#1,d0
+FCh1	add.w	d0,a6
+; Flags chaine
+	moveq	#2,d2
+	moveq	#F_MoveS,d3
+	rts
+
+;	GLOBAL / SHARED -> saute les variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InGlobal
+InShared
+	addq.l	#2,a6
+	bsr	GetWord
+	move.w	d0,d3
+	bsr	GetWord
+	moveq	#0,d2
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+; Code de VADR0
+	moveq	#0,d0
+	tst.w	d3			Ne doit _JAMAIS_ se produire
+	bmi	Err_Syntax
+	move.w	d3,d0			Va marquer le niveau zero
+	move.l	B_FlagVarG(a5),a0
+	bsr	VMark
+; Un tableau ()
+CSh1	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	InShared
+	cmp.w	#_TkPar1,d0
+	bne.s	CSh2
+	addq.l	#2,a6
+	bra.s	CSh1
+CSh2	subq.l	#2,a6
+	rts
+
+;	Variable en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InVariable
+	bsr	OutLea
+InVariable2
+	move.l	a6,-(sp)
+	bsr	SoVar
+	move.w	d0,d1
+	and.w	#$000F,d0
+	move.w	d0,Type_Voulu(a5)	Marque le type desir�
+	move.w	d1,-(sp)
+	bsr	Fn_Evalue_Voulu		Evalue correctement
+	bsr	Optimise_D2		Optimise le dernier
+	move.w	(sp)+,d1
+	btst	#6,d1			Un tableau
+	beq.s	.Notab
+	bsr	Push_D2			Si tableau, pousse l'operande
+.Notab	move.l	(sp),d0			Reprend l'adresse de la variable
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr			Cherche l'adresse
+	move.l	(sp)+,a6
+	cmp.w	#1,Type_Voulu(a5)
+	bne.s	.J
+	tst.b	MathFlags(a5)
+	bmi.s	InVDble
+; Une variable simple
+.J	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.Locale
+	bra.s	.Globale
+	bra.s	.Tableau
+.Locale
+	move.w	Cmvd32a6(pc),d0
+	bra.s	.Fin
+.Globale
+	move.w	Cmvd32a0(pc),d0
+.Fin	bsr	OutWord
+	move.w	d3,d0
+	bra	OutWord
+.Tableau
+	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+	move.w	Cmva3p0a0(pc),d0
+	bra	OutWord
+; Une variable double
+InVDble
+.J	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.Locale
+	bra.s	.Globale
+	bra.s	.Tableau
+.Locale
+	move.w	Cmvd32a6(pc),d0
+	move.w	Cmvd42a6(pc),d1
+	bra.s	.Fin
+.Globale
+	move.w	Cmvd32a0(pc),d0
+	move.w	Cmvd42a0(pc),d1
+.Fin	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	move.w	d3,d0
+	addq.w	#4,d0
+	bra	OutWord
+.Tableau
+	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+	move.w	Cmva3pa0p(pc),d0
+	bsr	OutWord
+	move.w	Cmva3pa0(pc),d0
+	bra	OutWord
+
+;	Met l'adresse de base d'une variable en A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ArrayBase
+	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	AdA0L
+	bra.s	.Ici
+	rts
+.Ici	move.w	Cmvd7a0(pc),d0		Met le move.l d7,a0
+	bsr	OutWord
+	bra.s	AdA0G
+;	Met l'adresse de base d'une variable en A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AdBase	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	AdA0L
+	bra.s	AdA0G
+	rts
+; Variable GLOBALE
+AdA0G	move.w	Clea2a0a0(pc),d0
+	bra.s	IVr2
+; Variable LOCALE
+AdA0L	move.w	Clea2a6a0(pc),d0
+IVr2	bsr	OutWord
+	move.w	d3,d0
+	bra	OutWord
+
+;	Met l'adresse d'une variable en A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AdToA0	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	AdA0L
+	bra.s	AdA0G
+	move.w	#L_GetTablo,d0
+	bra	Do_JsrLibrary
+
+;	Variable en fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+FnVariable
+	bsr	VarAdr
+	cmp.b	#1,d2
+	bne.s	.skip
+	bsr	MathSimple
+	tst.b	MathFlags(a5)
+	bmi.s	FnVDble
+; Variable simple, sur 1 mot long
+.skip	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.Locale
+	bra.s	.Globale
+	bra.s	.Tableau
+.Globale
+	move.w	Cmv2a0d3(pc),d0
+	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	move.l	d4,a0
+	move.w	d3,S_Var(a0)
+	moveq	#F_Globale,d3
+	rts
+.Locale
+	move.w	Cmv2a6d3(pc),d0
+	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	move.l	d4,a0
+	move.w	d3,S_Var(a0)
+	moveq	#F_Locale,d3
+	rts
+.Tableau
+	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+	move.w	Cmv0a0d3(pc),d0
+	bsr	OutWord
+	moveq	#F_Tableau,d3
+	rts
+; Variable double, sur 2 mots longs
+FnVDble	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.Locale
+	bra.s	.Globale
+	bra.s	.Tableau
+.Globale
+	move.w	Cmv2a0d3(pc),d0
+	move.w	Cmv2a0d4(pc),d1
+	bra.s	.Fin
+.Locale
+	move.w	Cmv2a6d3(pc),d0
+	move.w	Cmv2a6d4(pc),d1
+.Fin	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+	move.w	d3,d0
+	addq.w	#4,d0
+	bsr	OutWord
+	move.l	d4,a0
+	move.w	d3,S_Var(a0)
+	moveq	#F_Autre,d3
+	rts
+.Tableau
+	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+	move.w	Cmva0pd3(pc),d0
+	bsr	OutWord
+	move.w	Cmva0d4(pc),d0
+	bsr	OutWord
+	moveq	#F_Autre,d3
+	rts
+
+;	Saute une variable
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+SoVar	bsr	GetWord
+	bsr	GetWord
+	moveq	#0,d2
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	btst	#6,d2
+	beq.s	.SoV3
+; Saute les params du tableau
+	moveq	#0,d1
+.Loop	bsr	GetWord
+	cmp.w	#_TkPar1,d0
+	beq.s	.Plus
+	cmp.w	#_TkPar2,d0
+	beq.s	.Moins
+	bsr	SoInst
+	bra.s	.Loop
+.Plus	addq.w	#1,d1
+	bra.s	.Loop
+.Moins	subq.w	#1,d1
+	bne.s	.Loop
+; Met le flag float!
+.SoV3	move.w	d2,d0
+	rts
+
+;	SAUTE L'INSTRUCTION D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SoInst:	tst.w	d0
+	beq	T0
+	cmp.w	#_TkLGo,d0
+	bls	TVar
+	cmp.w	#_TkCh1,d0
+	beq	TCh
+	cmp.w	#_TkCh2,d0
+	beq	TCh
+	cmp.w	#_TkRem1,d0
+	beq	TCh
+	cmp.w	#_TkRem2,d0
+	beq	TCh
+	cmp.w	#_TkDFl,d0
+	beq.s	T8
+	cmp.w	#_TkFl,d0
+	bls.s	T4
+	cmp.w	#_TkExt,d0
+	beq.s	T4
+	cmp.w	#_TkFor,d0
+	beq.s	T2
+	cmp.w	#_TkRpt,d0
+	beq.s	T2
+	cmp.w	#_TkWhl,d0
+	beq.s	T2
+	cmp.w	#_TkDo,d0
+	beq.s	T2
+	cmp.w	#_TkExit,d0
+	beq.s	T4
+	cmp.w	#_TkExIf,d0
+	beq.s	T4
+	cmp.w	#_TkIf,d0
+	beq.s	T2
+	cmp.w	#_TkElse,d0
+	beq.s	T2
+	cmp.w	#_TkElsI,d0
+	beq.s	T2
+	cmp.w	#_TkData,d0
+	beq.s	T2
+	cmp.w	#_TkProc,d0
+	beq.s	T8
+	cmp.w	#_TkOn,d0
+	beq.s	T4
+	cmp.w	#_TkEqu,d0
+	bcs.s	T0
+	cmp.w	#_TkStruS,d0
+	bls.s	T6
+T0:	rts
+T2:	addq.l	#2,a6			Diverse tailles d'instructions
+	rts
+T4:	addq.l	#4,a6
+	rts
+T8:	addq.l	#8,a6
+	rts
+T6:	addq.l	#6,a6
+	rts
+TCh:	bsr	GetWord			Une chaine
+	add.w	d0,a6
+	move.w	a6,d0
+	btst	#6,d0
+	beq.s	T0
+	addq.l	#1,a6
+	rts
+TVar:	addq.l	#2,a6			Une variable
+	bsr	GetWord
+	lsr.w	#8,d0
+	add.w	d0,a6
+	rts
+
+;	Trouve l'adresse d'une variable D2-D3
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VarAdr	bsr	GetWord
+	move.w	d0,d3
+	bsr	GetWord
+	moveq	#0,d2
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	btst	#6,d2
+	bne	VAdrT
+VAdr0	moveq	#0,d0
+	tst.w	d3
+	bmi.s	VAdrL
+; >0: Variable LOCALE
+	move.w	d3,d0
+	move.l	A_FlagVarL(a5),a0
+	bsr	VMark
+	addq.w	#2,d3
+	and.w	#$0F,d2			Ne garde que le flag
+	moveq	#0,d1
+	rts
+; <0: Variable GLOBALE
+VAdrL	neg.w	d3
+	subq.w	#1,d3
+	move.w	d3,d0
+	move.l	B_FlagVarG(a5),a0
+	bsr	VMark
+	addq.w	#2,d3
+	and.w	#$0F,d2			Ne garde que le flag
+ 	move.w	Cmvd7a0(pc),d0		move.l	d7,a0
+	bsr	OutWord
+	moveq	#2,d1
+	rts
+; Variable tableau
+VAdrT	addq.l	#2,a6
+	clr.w	-(sp)
+	movem.w	d2/d3,-(sp)
+.Loop	addq.w	#1,4(sp)		Evalue les parametres
+	bsr	Expentier		Un entier
+	bsr	Push_D2			Pousse!
+	cmp.w	#_TkPar2,Last_Token(a5)	Termine?
+	beq.s	.Skip
+	bsr	GetWord			Une virgule!
+	cmp.w	#_TkVir,d0
+	beq.s	.Loop
+	bra	Err_Syntax		???
+.Skip	movem.w	(sp)+,d2/d3
+	bsr	VAdr0
+	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	.Local
+	bra.s	.Global
+.Local	move.w	Clea2a6a0(pc),d0
+	bra.s	.Out
+.Global	move.w	Clea2a0a0(pc),d0
+.Out	bsr	OutWord
+	move.w	d3,d0
+	bsr	OutWord
+	move.w	(sp)+,d0		Nombre de dimensions
+	swap	d0
+	move.w	d1,d0			Type de la variable
+	moveq	#4,d1			Type reel= tableau
+	rts
+
+;	Trouve l'adresse d'une variable D2-D3, SPECIAL FN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VarAdrFn
+	bsr	GetWord
+	move.w	d0,d3
+	bsr	GetWord
+	move.b	d0,d2
+	lsr.w	#8,d0
+	add.w	d0,a6
+	moveq	#0,d0
+	tst.w	d3
+	bmi.s	.VAdrL
+* >=0: Variable LOCALE
+	move.w	d3,d0
+	move.l	A_FlagVarL(a5),a0
+	bsr	.VMark
+	addq.w	#2,d3
+	moveq	#0,d1
+	rts
+* <0: Variable GLOBALE
+.VAdrL	neg.w	d3
+	subq.w	#1,d3
+	move.w	d3,d0
+	move.l	B_FlagVarG(a5),a0
+	bsr.s	.VMark
+ 	move.l	Cmvd7a0(pc),d0		move.l	d7,a0
+	bsr	OutLong
+	addq.w	#2,d3
+	moveq	#2,d1
+	rts
+* PREND le flag de la variable SPECIAL Def Fn
+.VMark	addq.w	#6,d0
+	cmp.b	#1,d2
+	bne.s	.Ent
+	tst.b	MathFlags(a5)		Si double precision: +10!
+	bpl.s	.Ent
+	addq.w	#4,d0
+.Ent	divu	#6,d0
+	lea	2-1(a0,d0.w),a0
+	moveq	#0,d2
+	move.b	(a0),d2
+	rts
+
+; 	Marque le flag de la variable
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VMark	addq.w	#6,d0			Pour faire multiple de 6
+	cmp.b	#1,d2
+	bne.s	.Ent
+	tst.b	MathFlags(a5)		Si double precision: +10!
+	bpl.s	.Ent
+	addq.w	#4,d0
+.Ent	cmp.w	(a0),d0
+	bcs.s	.Skip1
+	move.w	d0,(a0)
+.Skip1	divu	#6,d0			Pointe la table
+	and.w	#%01001111,d2		Garde le flag tableau
+	lea	2-1(a0,d0.w),a0
+	move.b	d2,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INSTRUCTIONS SPECIFIQUES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	DIR
+; ~~~~~~~~~
+InDir	bset	#F_Input,Flag_Libraries(a5)
+	bra.s	InJmp
+;	Dialogue
+; ~~~~~~~~~~~~~~
+InDialogs
+	bset	#F_Dialogs,Flag_Libraries(a5)
+InJmp	lea	0(a0,d0.w),a0		Pointe l'instruction
+	move.w	2(a0),d0		D0= # de fonction
+	bra	InNormal2
+
+; 	Set double precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+InSetDouble
+	bra	MathDouble
+
+;	FOLLOW
+; ~~~~~~~~~~~~
+InFollow
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	.Skip
+	bsr	StockOut
+.Loop	bsr	New_Evalue
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	.Loop
+	subq.l	#2,a6
+.Skip	rts
+
+;	SET ACCESSORY
+; ~~~~~~~~~~~~~~~~~~~
+InSetAccessory
+	move.b	#1,Flag_Accessory(a5)
+	rts
+
+;	SET BUFFER
+; ~~~~~~~~~~~~~~~~
+InSetBuffer
+	addq.l	#2,a6
+	bsr	GetLong
+	move.l	d0,L_Buf(a5)
+	rts
+
+;	SET STACK *** A terminer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InSetStack
+	addq.l	#2,a6
+	bsr	GetLong
+	rts
+
+;	DIM
+; ~~~~~~~~~
+InDim	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr			Adresse de base
+	swap	d0
+	move.w	d0,d1
+	move.w	Cmvqd0(pc),d0		Nombre de dimensions
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	#L_InDim,d0
+	bsr	Do_JsrLibrary
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	InDim
+	subq.l	#2,a6
+	rts
+
+;	=FN
+; ~~~~~~~~~
+FnFn	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	clr.w	-(sp)
+	bsr	GetWord
+	cmp.w	#_TkPar1,d0
+	bne.s	CFn2
+; Prend les parametres
+CFn1	addq.w	#1,(sp)
+	bsr	New_Evalue
+	bsr	Optimise_D2
+	bsr	Push_D2
+	move.w	Cmvwima3(pc),d0
+	bsr	OutWord
+	and.w	#$0F,d2
+	move.w	d2,d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	CFn1
+; Appelle la fonction
+CFn2	subq.l	#2,a6
+	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	VarAdrFn
+	bsr	AdBase
+	move.w	(sp)+,d1
+	move.w	Cmvqd0(pc),d0
+	move.b	d1,d0
+	bsr	OutWord
+	move.l	(sp)+,a6
+	move.w	#L_FnFn,d0
+	bsr	Do_JsrLibrary
+	and.w	#$03,d2
+	bra	Set_F_Autre
+
+;	DEF FN
+; ~~~~~~~~~~~~
+InDefFn	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	move.l	a0,-(sp)		Adresse du flag!
+	bsr	AdBase
+	lea	CdDfn1(pc),a0
+	bsr	OutCode
+	move.l	a4,-(sp)
+	bsr	GetWord
+	cmp.w	#_TkPar1,d0
+	bne.s	Cdfn2
+* Prend les variables (� l'envers)
+	clr.w	N_Dfn(a5)
+Cdfn0	addq.l	#2,a6
+	move.l	a6,-(sp)
+	addq.w	#1,N_Dfn(a5)
+	bsr	SoVar
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	Cdfn0
+	addq.l	#2,a6
+	move.l	a6,A_Dfn(a5)
+Cdfn1	move.l	(sp)+,a6
+	bsr	VarAdr
+	bsr	AdBase
+	move.w	Cmvqd2(pc),d0
+	and.b	#$03,d2
+	move.b	d2,d0
+	bsr	OutWord
+	lea	CdDfn2(pc),a0
+	bsr	OutCode
+	subq.w	#1,N_Dfn(a5)
+	bne.s	Cdfn1
+	move.l	A_Dfn(a5),a6
+* Fonction!
+Cdfn2	bsr	New_Evalue
+	bsr	Optimise_D2
+	move.l	4(sp),a0
+	and.b	#%00000011,d2
+	bset	#3,d2
+	move.b	d2,(a0)
+	move.w	Crts(pc),d0
+	bsr	OutWord
+* Saute le tout!
+	move.l	a4,d0
+	move.l	(sp),a4
+	move.l	d0,(sp)
+	subq.l	#2,a4
+	sub.l	a4,d0
+	bsr	OutWord
+	move.l	(sp)+,a4
+	addq.l	#4,sp
+	rts
+CdDfn1	lea	*+10(pc),a1
+	move.l	a1,(a0)
+	bra	CdDfn2
+	dc.w	$4321
+CdDfn2	lea	*+6(pc),a2
+	rts
+	dc.w	$4321
+
+
+;	SWAP
+; ~~~~~~~~~~
+InSwap	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	addq.l	#4,a6
+	bsr	VarAdr
+	move.w	d2,-(sp)
+	bsr	AdToA0
+	move.w	#L_InSwap,d0
+	cmp.w	#1,(sp)+
+	bne	Do_JsrLibrary
+	tst.b	MathFlags(a5)
+	bpl	Do_JsrLibrary
+	move.w	#L_InSwapD,d0
+	bra	Do_JsrLibrary
+
+;	ADD a,b
+; ~~~~~~~~~~~~~
+InAdd2	bsr	OutLea
+	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	btst	#6,d2			Un tableau?
+	beq.s	.Patab
+	bsr	Fn_Expentier		Oui, pousse l'operande
+	bsr	Push_D2
+	bra.s	.Suite
+.Patab	bsr	Fn_Expentier
+.Suite	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	move.l	(sp)+,a6
+	lea	CdAdd2(pc),a0
+	jmp	.Jmp(pc,d1.w)
+.Jmp	bra.s	ILocal
+	bra.s	IGlobal
+	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+	move.l	8(a0),d0
+	bra	OutLong
+
+;	INC
+; ~~~~~~~~~
+InInc	pea	CdInc(pc)
+	bra.s	CIncDec
+InDec	pea	CdDec(pc)
+CIncDec	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	move.l	(sp)+,a0
+	jmp	IJmp(pc,d1.w)
+IJmp	bra.s	ILocal
+	bra.s	IGlobal
+; Tableau
+	move.w	#L_GetTablo,d0
+	bsr	Do_JsrLibrary
+	move.w	8(a0),d0
+	bra	OutWord
+; Globale
+IGlobal	move.w	4(a0),d0
+	bra.s	ISuite
+; Locale
+ILocal	move.w	(a0),d0
+ISuite	bsr	OutWord
+	move.l	d3,d0
+	bra	OutWord
+; Codes
+CdInc	addq.l	#1,2(a6)		0
+	addq.l	#1,2(a0)		4
+	addq.l	#1,(a0)			8
+CdDec	subq.l	#1,2(a6)
+	subq.l	#1,2(a0)
+	subq.l	#1,(a0)
+CdAdd2	add.l	d3,2(a6)		0
+	add.l	d3,2(a0)		4
+	move.l	(a3)+,d0		8
+	add.l	d0,(a0)
+
+;	ADD a,b,c to d
+; ~~~~~~~~~~~~~~~~~~~~
+InAdd4	bsr	OutLea
+	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	bsr	Fn_Expentier
+	bsr	Push_D2
+	bsr	Fn_Expentier
+	bsr	Push_D2
+	bsr	Fn_Expentier
+	bsr	Push_D2
+	move.l	(sp),d0
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.l	(sp)+,a6
+	move.w	#L_InAdd4,d0
+	bra	Do_JsrLibrary
+
+;	SORT a()
+; ~~~~~~~~~~~~~~
+InSort	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdBase
+	move.w	Cmvqd2(pc),d0
+	and.w	#$000F,d2
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	#L_InSort,d0
+	bra	Do_JsrLibrary
+
+;	DATA
+; ~~~~~~~~~~
+InData	addq.l	#2,a6
+	move.l	Cbra(pc),d0
+	bsr	OutLong
+	move.l	a4,-(sp)
+	tst.l	A_Datas(a5)
+	bne.s	CDt1
+	move.l	a4,A_Datas(a5)
+	bra.s	CDt2
+CDt1	move.l	a4,-(sp)
+	move.l	a4,d0
+	move.l	A_JDatas(a5),a4
+	bsr	OutLong
+	move.l	(sp)+,a4
+CDt2	move.w	Cnop(pc),d0		Signal-> DATAS!
+	bsr	OutWord
+	bsr	New_Evalue		Evalue le data
+	bsr	Optimise_D2
+	move.w	Cmvqd2(pc),d0		Marque le type >>> D2
+	and.w	#$000F,d2
+	move.b	d2,d0
+	bsr	OutWord
+	move.w	Cleaa2(pc),d0		Lea prochain data, a2
+	bsr	OutWord
+	bsr	Relocation
+	move.l	a4,A_JDatas(a5)
+	move.l	A_EDatas(a5),d0
+	bsr	OutLong
+	move.w	Crts(pc),d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	CDt1
+	subq.l	#2,a6
+; Met le BRA
+	move.l	a4,d0
+	move.l	(sp),a4
+	move.l	d0,(sp)
+	subq.l	#2,a4
+	sub.l	a4,d0
+	bsr	OutWord
+	move.l	(sp)+,a4
+	rts
+
+;	Cree la routine NO DATA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CreNoData
+	tst.l	A_EDatas(a5)
+	bne.s	CnDtX
+	move.l	a4,A_EDatas(a5)
+	addq.l	#2,A_EDatas(a5)
+	lea	Cd0Data(pc),a0
+	bsr	OutCode
+CnDtX	rts
+Cd0Data	bra.s	Cd1Data
+	moveq	#-1,d0
+	moveq	#-1,d2
+	rts
+Cd1Data	dc.w	$4321
+
+;	RESTORE
+; ~~~~~~~~~~~~~
+InRestore
+	bsr	OutLea
+	move.w	#L_InRestore,d1
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	.Skip
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_InRestore1,d1
+.Skip	move.w	d1,d0
+	bra	Do_JsrLibrary
+
+;	READ
+; ~~~~~~~~~~
+InRead	bsr	OutLea
+	addq.l	#2,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	and.w	#$000F,d2
+	move.w	#L_InRead,d0
+	add.w	d2,d0
+	bsr	Do_JsrLibrary
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	InRead
+	subq.l	#2,a6
+	rts
+
+;	LPRINT
+; ~~~~~~~~~~~~
+InLPrint
+	move.w	#1,-(sp)
+	bra.s	Cp2
+;	PRINT #
+; ~~~~~~~~~~~~~
+InHPrint
+	move.w	#-1,-(sp)
+	bsr	Expentier
+	addq.l	#2,a6
+	move.w	#L_InPrintH,d0
+	bsr	Do_JsrLibrary
+	bra.s	Cp2
+;	PRINT
+; ~~~~~~~~~~~
+InPrint clr.w	-(sp)
+; Prend les expressions
+Cp2   	bsr	Finie
+	bne.s	Cp3
+	subq.l	#2,a6
+	move.w	#L_CRPrint,d0
+	bsr	Do_JsrLibrary
+	bra	Cp13
+Cp3	bsr	OutLea			Marque l'endroit dans le print
+* USING: prend la chaine et marque le using
+	clr.w	-(sp)
+	cmp.w 	#_TkUsing,d0
+	bne.s 	Cp4
+	subq.w	#1,(sp)
+	bsr	New_Evalue
+	bsr	Push_D2			Pousse !
+	addq.l	#4,a6
+; Prend l'expression
+Cp4     subq.l	#2,a6
+	bsr 	New_Evalue		Reste en D2
+	bsr	Optimise_D2
+        subq.w	#1,d2
+	bmi.s	Cp5
+	beq.s	Cp6
+; Chaine
+	tst.w	(sp)+
+	bne.s	Cp4a
+	move.w	#L_PrintS,d0		; Pas using
+	tst.w	(sp)
+	beq.s	Cp7a
+	move.w	#L_PrintS,d0		; ILLEGAL!!
+	tst.w	(sp)
+	bpl.s	Cp7a
+	move.w	#L_HPrintS,d0
+	bra.s	Cp7a
+Cp4a	move.w	#L_UsingS,d0		; Using
+	bra.s	Cp7a
+; Entier
+Cp5	bclr	#6,2(sp)
+	move.w	#L_PrintE,d0
+	bsr	Do_JsrLibrary
+	move.w	#L_UsingC,d0
+        bra.s 	Cp7
+; Float
+Cp6	bsr	MathSimple
+	bclr	#6,2(sp)
+	move.w	#L_PrintF,d0
+	bsr	Do_JsrLibrary
+	move.w	#L_UsingC,d0
+Cp7:    and.w	(sp)+,d0
+	beq.s	Cp7b
+Cp7a	bsr 	Do_JsrLibrary
+Cp7b
+; Prend le separateur
+Cp8:    bsr 	GetWord
+	cmp.w 	#_TkPVir,d0
+        beq.s 	Cp13
+	bclr	#6,(sp)
+        cmp.w	#_TkVir,d0
+        beq.s 	Cp11
+        subq.l 	#2,a6
+	move.w	#L_PrtRet,d0
+        bra.s 	Cp12
+Cp11:   move.w 	#L_PrtVir,d0
+Cp12:   bsr 	Do_JsrLibrary
+
+; Imprime!
+Cp13	move.w	#L_PrintX,d0
+	tst.w	(sp)
+	beq.s	Cp14
+	move.w	#L_LPrintX,d0
+	tst.w	(sp)
+	bpl.s	Cp14
+	bset	#6,(sp)
+	bne.s	Cp15
+	move.w	#L_HPrintX,d0
+Cp14	bsr	Do_JsrLibrary
+Cp15
+* Encore quelque chose a imprimer?
+	bsr 	Finie
+        bne	Cp3
+* Termine!
+	subq.l	#2,a6
+	tst.w	(sp)+
+	rts
+
+
+;----------------------------------> INPUT #
+InInputD
+	move.w	#-1,-(sp)
+	move.w	#L_InInputH,-(sp)
+	bra.s	CIn0
+;----------------------------------> INPUT #
+InLineInputD
+	move.w	#-1,-(sp)
+	move.w	#L_InLineInputH,-(sp)
+CIn0	bsr	OutLea
+	bsr	StockOut
+	move.l	a6,-(sp)
+	bsr	Expentier
+	bsr	RestOut
+	addq.l	#2,a6
+	bra.s	CIn7
+;----------------------------------> LINE INPUT
+InLineInput
+	clr.w	-(sp)
+	move.w	#L_InLineInput,-(sp)
+        bra.s 	CIn1
+;----------------------------------> INPUT
+InInput
+	clr.w	-(sp)
+	move.w	#L_InInput,-(sp)
+CIn1:  	bset	#F_Input,Flag_Libraries(a5)
+	bsr	OutLea
+	bsr	GetWord
+	subq.l	#2,a6
+; Saute la chaine alphanumerique
+	clr.l	-(sp)
+	cmp.w	#_TkVar,d0
+	beq.s	CIn7
+	move.l	a6,(sp)
+	bsr	StockOut
+	bsr	New_Evalue
+	bsr	RestOut
+	addq.l	#2,a6
+; Stocke la liste des variable ---> -(A3) / moveq #NB,d6
+CIn7:   clr.w 	-(sp)
+CIn8:  	addq.l	#2,a6
+	bsr 	VarAdr
+	bsr	AdToA0
+	and.w	#$000F,d2
+	lea	CdInp(pc),a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+	move.w	d2,d0
+	bsr	OutWord
+	addq.l	#2,a0
+	move.w	(a0)+,d0
+	bsr	OutWord
+        addq.w 	#1,(sp)
+        bsr 	GetWord
+        cmp.w	#_TkVir,d0
+        beq.s 	CIn8
+CIn9:   subq.l 	#2,a6
+; Input clavier...
+	tst.w	8(sp)
+	bne.s	CIn11
+; Evalue la chaine
+	move.l	2(sp),d0
+	bne.s	CIn10
+	move.w	Cmvqd3(pc),d0
+	bsr	OutWord
+	bra.s	CIn12
+CIn10	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	New_Evalue
+	move.l	2(sp),a6
+	bra.s	CIn12
+; Evalue le fichier
+CIn11	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	Expentier
+	move.l	2(sp),a6
+; Moveq nombre de params >>> D5
+CIn12	move.w 	Cmvqd5(pc),d0
+        move.w 	(sp)+,d1
+        move.b 	d1,d0
+        bsr 	OutWord
+	addq.l	#4,sp
+; Appele la fonction
+	move.w	(sp)+,d0
+	bsr	Do_JsrLibrary
+; Un point virgule?
+	tst.w	(sp)+
+	bne	CInX
+	bsr	GetWord
+	cmp.w	#_TkPVir,d0
+	beq.s	CInX
+	move.w	#L_CRet,d0
+	bsr	Do_JsrLibrary
+	subq.l	#2,a6
+CInX	rts
+CdInp	move.w 	#$ffff,-(a3)
+        move.l 	a0,-(a3)
+        dc.w 	$4321
+
+
+
+;	FIELD
+; ~~~~~~~~~~~
+InField	bsr	OutLea
+	bsr	StockOut
+	move.l	a6,-(sp)
+	bsr	Expentier
+	bsr	RestOut
+	addq.l	#2,a6
+	clr.w	-(sp)
+Cfld1	addq.w	#1,(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	addq.l	#4,a6
+	bsr	VarAdr
+	bsr	AdToA0
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	Cfld1
+	subq.l	#2,a6
+; Handle fichier
+	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	Expentier
+	move.l	2(sp),a6
+; Nombre de champs
+	move.w	Cmvqd0(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+; Appelle la fontion
+	addq.l	#4,sp
+	move.w	#L_InField,d0
+	bra	Do_JsrLibrary
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ecrans / Palettes
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	PALETTEs
+; ~~~~~~~~~~~~~~
+InPalettes
+	move.w	2(a0,d0.w),-(sp)
+ 	bsr	OutLea
+CPal0	clr.w	-(sp)
+CPal1	addq.w	#1,(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	CPal1
+	subq.l	#2,a6
+	move.w	Cmvqd0(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+;	FADE
+; ~~~~~~~~~~
+InFade	bsr	OutLea
+	bsr	Expentier		La duree
+	bsr	Push_D2			Poussee
+	bsr	GetWord
+	move.w	#L_InFadePal,-(sp)
+	cmp.w	#_TkVir,d0		Une palette >>> routine palette!
+	beq.s	CPal0
+	cmp.w	#_TkTo,d0		To?
+	beq.s	CFad1
+	subq.l	#2,a6
+	move.w	#L_InFade1,(sp)		Fade X
+	bra	CFadX
+CFad1	move.w	#L_InFade2,(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkVir,d0
+	bne.s	CFadX
+	move.w	#L_InFade3,(sp)
+	bsr	Fn_Expentier
+CFadX	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+;	Polyline / Polygone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+InPoly	move.w	2(a0,d0.w),-(sp)	Prend le token
+	clr.l	-(sp)
+	bsr	OutLea
+	bsr	GetWord
+	cmp.w	#_TkTo,d0
+	beq.s	CPol1
+	subq.l	#2,a6
+	move.w	#-1,2(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	bsr	Fn_Expentier
+	bsr	Push_D2
+	addq.w	#1,(sp)
+	addq.l	#2,a6
+CPol1	addq.w	#1,(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	bsr	Fn_Expentier
+	bsr	Push_D2
+	bsr	GetWord
+	cmp.w	#_TkTo,d0
+	beq.s	CPol1
+	subq.l	#2,a6
+	move.w	Cmvqd0(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	Cmvqd1(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	BSET / BCLR etc..
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	BSET/ROR etc...
+; ~~~~~~~~~~~~~~~~~
+FnBtst	movem.l	d2-d7,-(sp)
+	addq.l	#2,a6
+	move.w	0(a0,d0.w),d0
+	bsr	BsRout
+	movem.l	(sp)+,d2-d7
+	moveq	#0,d2
+	bra	Set_F_Autre
+InBsetRor
+	bsr	OutLea
+	move.w	2(a0,d0.w),d0		Prend le token
+
+BsRout	move.w	d0,-(sp)
+	move.l	A_Stock(a5),-(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	addq.l	#2,a6
+	bsr	GetWord
+	cmp.w	#_TkVar,d0
+	bne.s	BsR3
+; Une variable, vraiment?
+BsR1	bsr	StockOut
+	move.l	a6,-(sp)
+	bsr	VarAdr
+	bsr	AdToA0
+	bsr	Finie
+	bne.s	BsR2
+	subq.l	#2,a6
+BsR0	addq.l	#4,sp
+	bra.s	BsR4
+BsR2	cmp.w	#_TkPar2,d0
+	beq.s	BsR0
+	bsr	RestOut
+	move.l	(sp)+,a6
+; Une adresse
+BsR3	addq.w	#1,4(sp)		Pointe la fonction suivante
+	subq.l	#2,a6			Revient sur l'expression
+	bsr	Expentier
+* Fin...
+BsR4	move.l	(sp)+,A_Stock(a5)
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+;	CALL
+; ~~~~~~~~~~
+InCall	bsr	OutLea
+	move.w	Cmva3msp(pc),d0
+	bsr	OutWord
+	move.l	a6,-(sp)
+	bsr	StockOut
+	bsr	Expentier
+	bsr	RestOut
+CCal0	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	bne.s	CCal1
+	bsr	New_Evalue
+	bsr	Optimise_D2
+	bsr	Push_D2
+	bra.s	CCal0
+CCal1	move.l	(sp)+,d0
+	pea	-2(a6)
+	move.l	d0,a6
+	bsr	Expentier
+	move.l	(sp)+,a6
+	move.w	#L_InCall,d0
+	bsr	Do_JsrLibrary
+	move.w	Cmvpspa3(pc),d0
+	bra	OutWord
+
+;	PROCEDURE LANGAGE MACHINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+In_apml_
+	lea	Proc_Start(a5),a0	Recharge la position de l'objet
+	move.l	(a0)+,a3		4  S_a3
+	move.l	(a0)+,a4		8  S_a4
+	move.l	(a0)+,OldRel(a5)	12 S_OldRel
+	move.l	(a0)+,A_LibRel(a5)	16 S_LibRel
+	move.l	(a0)+,Lib_OldRel(a5)	20 S_LibOldRel
+	move.l	(a0)+,A_Chaines(a5)	24 S_Chaines
+	lea	.InML(pc),a0		Copie la routine d'appel
+	bsr	OutCode
+	addq.l	#2,a6			Saute le code
+	move.l	F_Proc(a5),d3		Copie la procedure entiere
+	sub.l	a6,d3
+	bsr	Copy_Source
+	addq.l	#4,sp			Rebranche a la boucle procedures
+	bra	PChr1
+; Routine d'appel de procedure langage machine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.InML	movem.l	a4-a6/d6/d7,-(sp)
+	lea	CallReg(a5),a6
+	move.l	a6,-(sp)
+	movem.l	(a6),d0-d7/a0-a2
+	bsr.s	.Routine
+	move.l	(sp)+,a6
+	movem.l	d0-d7/a0-a2,(a6)
+	movem.l	(sp)+,a4-a6/d6-d7
+	move.l	d0,ParamE(a5)
+	move.l	BasA3(a5),a3
+	rts
+.Routine
+	dc.w	$4321
+
+;	STRUC= / STRUC$=
+; ~~~~~~~~~~~~~~~~~~~~~~
+InStruc	bsr	OutLea
+	bsr	GStruc
+	move.w	Cmvd3ma3(pc),d0
+	bsr	OutWord
+	bsr	Fn_Expentier
+	move.w	#L_InStruc,d0
+	bra	Do_JsrLibrary
+InStrucD
+	bsr	OutLea
+	bsr	GStruc
+	move.w	Cmvd3ma3(pc),d0
+	bsr	OutWord
+	bsr	Fn_New_Evalue
+	move.w	#L_InStrucD,d0
+	bra	Do_JsrLibrary
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MID LEFT RIGHT en instruction
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InMid3	move.w	#L_InMid3,-(sp)
+	bra.s	CIMid
+InMid2	move.w	#L_InMid2,-(sp)
+	bra.s	CIMid
+InLeft	move.w	#L_InLeft,-(sp)
+	bra.s	CIMid
+InRight	move.w	#L_InRight,-(sp)
+CIMid	bsr	OutLea
+	addq.l	#4,a6
+	move.l	a6,-(sp)
+	bsr	SoVar
+	addq.l	#2,a6
+	bsr	Expentier
+	bsr	Push_D2
+	cmp.w	#L_InMid3,4(sp)
+	bne.s	CIMd
+	addq.l	#2,a6
+	bsr	Expentier
+	bsr	Push_D2
+CIMd	bsr	Fn_New_Evalue
+	bsr	Push_D2
+	move.l	a6,d0
+	move.l	(sp)+,a6
+	move.l	d0,-(sp)
+	bsr	VarAdr
+	bsr	AdToA0
+	move.l	(sp)+,a6
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CHANNEL x To
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+InChannel
+	bsr	OutLea
+	bsr	Expentier
+	bsr	Push_D2
+	addq.l	#2,a6
+	bsr	GetWord
+	move.w	#L_ChannelToSprite,d1
+	cmp.w	#_TkSpr,d0
+	beq.s	CChaX
+	move.w	#L_ChannelToBob,d1
+	cmp.w	#_TkBob,d0
+	beq.s	CChaX
+	move.w	#L_ChannelToSDisplay,d1
+	cmp.w	#_TkScD,d0
+	beq.s	CChaX
+	move.w	#L_ChannelToSOffset,d1
+	cmp.w	#_TkScO,d0
+	beq.s	CChaX
+	move.w	#L_ChannelToSSize,d1
+	cmp.w	#_TkScS,d0
+	beq.s	CChaX
+	move.w	#L_ChannelToRainbow,d1
+CChaX	move.w	d1,-(sp)
+	bsr	Expentier
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INSTRUCTIONS MENU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;-----> MENU$(,,)=
+InMenu	bset	#F_Menus,Flag_Libraries(a5)
+	bsr	OutLea
+	move.w	#L_InMenu-1,-(sp)
+	bsr	MnPar
+	subq.l	#2,a4
+	move.w	d1,-(sp)
+	addq.l	#2,a6
+CMenL	addq.w	#1,2(sp)		Recupere les parametres
+	bsr	New_Evalue
+	bsr	Optimise_D2
+	bsr	Push_D2
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	CMenL
+	subq.l	#2,a6
+	move.w	Cmvqd5(pc),d0		Nombre de dimensions
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+;-----> MENU DEL
+InMenuDel
+	bset	#F_Menus,Flag_Libraries(a5)
+	bsr	OutLea
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkPar1,d0
+	beq.s	CMnD1
+	move.w	#L_InMenuDel,d0
+	bra	Do_JsrLibrary
+CMnD1	bsr	MnPar
+	move.w	#L_InMenuDel1,d0
+	bra	Do_JsrLibrary
+
+;-----> SET MENU
+InSetMenu
+	bset	#F_Menus,Flag_Libraries(a5)
+	bsr	OutLea
+	move.l	a6,-(sp)		Saute les parametres menu
+	bsr	StockOut
+	bsr	MnPar
+	bsr	RestOut
+	bsr	Fn_Expentier		Prend le 1er parametre
+	bsr	Push_D2
+	bsr	Fn_Expentier		Prend le 2eme parmetre
+	bsr	Push_D2
+	move.l	(sp),d0			Reprend les params menu
+	move.l	a6,(sp)
+	move.l	d0,a6
+	bsr	MnPar
+	move.l	(sp)+,a6
+	move.w	#L_InSetMenu,d0
+	bra	Do_JsrLibrary
+
+;-----> Instruction flags
+InMenuFlags
+	bset	#F_Menus,Flag_Libraries(a5)
+	move.w	2(a0,d0.w),-(sp)	Prend le token de l'instruction
+	bsr	OutLea
+	bsr	MnPar
+	move.w	(sp)+,d0
+	bra	Do_JsrLibrary
+
+;-----> MENU KEY
+InMenuKey
+	bset	#F_Menus,Flag_Libraries(a5)
+	bsr	OutLea
+	move.l	a6,-(sp)
+	bsr	StockOut
+	bsr	MnPar
+	bsr	GetWord
+	cmp.w	#_TkTo,d0
+	beq.s	Cmnk1
+* MENU KEY (,,) seul
+	bsr	SautOut
+	subq.l	#2,a6
+	addq.l	#4,sp
+	move.w	#L_InMenuKey,d0
+	bra	Do_JsrLibrary
+* MENU KEY (,,) TO
+Cmnk1	bsr	RestOut
+	move.w	#L_InMenuKey1,-(sp)
+	bsr	New_Evalue
+	cmp.b	#1,d2			Entier ou chaine
+	bne.s	.Skip
+	bsr	D2_Entier
+.Skip	bsr	Optimise_D2		Optimise
+	bsr	Push_D2			Pousse
+	cmp.b	#2,d2			Chaine!
+	beq.s	Cmnk2
+	move.w	#L_InMenuKey2,(sp)
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkVir,d0
+	bne.s	Cmnk2
+	move.w	#L_InMenuKey3,(sp)
+	bsr	Fn_Expentier
+	bsr	Push_D2
+Cmnk2	move.l	2(sp),d0
+	move.l	a6,2(sp)
+	move.l	d0,a6
+	bsr	MnPar
+	move.w	(sp)+,d0
+	bsr 	Do_JsrLibrary
+	move.l	(sp)+,a6
+	rts
+
+;-----> ON MENU got/gosub/proc
+InOnMenu
+	bset	#F_Menus,Flag_Libraries(a5)
+	bsr	OutLea
+	bsr	GetWord
+	moveq	#-1,d1
+	move.w	N_Proc(a5),d7
+	cmp.w	#_TkGto,d0
+	beq.s	Com0
+	addq.l	#1,d1
+	cmp.w	#_TkGsb,d0
+	beq.s	Com0
+	addq.l	#1,d1
+	moveq	#-1,d7
+Com0	move.w	d1,-(sp)
+	clr.w	-(sp)
+Com1	addq.w	#1,(sp)
+	bsr	GetLabel
+	move.w	Cmva0ma3(pc),d0
+	bsr	OutWord
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	Com1
+	subq.l	#2,a6
+	move.w	Cmvqd0(pc),d0
+	move.b	3(sp),d0
+	bsr	OutWord
+	move.w	Cmvqd1(pc),d0
+	move.b	1(sp),d0
+	bsr	OutWord
+	addq.l	#4,sp
+	move.w	#L_InOnMenu,d0
+	bra	Do_JsrLibrary
+
+
+;-----> Prend les parametres menus
+MnPar	bsr	GetWord
+	cmp.w	#_TkPar1,d0
+	beq.s	MPar1
+; Une dimension
+	subq.l	#2,a6
+	bsr	Expentier
+	move.w	Cmvqd5(pc),d0
+	bra	OutWord
+; Un objet de menu
+MPar1	clr.w	-(sp)
+MPar2	addq.w	#1,(sp)
+	bsr	Expentier
+	bsr	Push_D2
+	bsr	GetWord
+	cmp.w	#_TkVir,d0
+	beq.s	MPar2
+	subq.l	#2,a6
+	move.w	Cmvqd5(pc),d0
+	move.w	(sp)+,d1
+	move.b	d1,d0
+	bsr	OutWord
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Branchements / Boucles
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+;	REMs
+; ~~~~~~~~~~
+InRem	subq.w	#1,NbInstr(a5)
+	bsr	GetWord
+	add.w	d0,a6
+	rts
+
+
+;	Debut de procedure, premiere exploration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+InProcedure
+	subq.w	#1,NbInstr(a5)
+; Decode la procedure si codee...
+	move.l	a6,-(sp)
+	addq.l	#6,a6
+	bsr	GetWord
+	btst	#6+8,d0
+	beq.s	VPr0
+	btst	#5+8,d0
+	beq.s	VPr0
+	tst.b	Flag_Source(a5)
+	bne	Err_NoCode
+	move.l	(sp),a6
+	subq.l	#2,a6
+	add.l	B_Source(a5),a6
+	bsr	ProCode
+VPr0	move.l	(sp)+,a6
+; Stocke le label et les types
+	bsr	GetLong
+	subq.l	#4,a6
+	pea	8(a6,d0.l)
+	pea	(a6)
+	lea	8+2(a6),a6
+	moveq	#-1,d7
+	bsr	RLabel
+	move.l	(sp)+,d0
+	bset	#30,d0
+	move.l	d0,2(a2)
+	move.l	(sp)+,a6
+	rts
+
+;	Proc
+; ~~~~~~~~~~
+InProc	addq.l	#2,a6
+;	Appel de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+InProcedureCall
+	bsr	OutLea
+	subq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	StockOut
+	moveq	#-1,d7
+	bsr	GetLabel
+	bsr	RestOut
+	moveq	#-1,d7
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkBra1,d0
+	bne.s	CDop3
+	addq.l	#2,a6
+	moveq	#0,d7
+CDop1	lsl.l	#1,d7
+	move.l	d7,-(sp)
+	bsr	New_Evalue
+	bsr	Optimise_D2
+	bsr	Push_D2
+	move.l	(sp)+,d7
+	cmp.b	#1,d2
+	bne.s	CDop2
+	bset	#0,d7
+CDop2	bsr	GetWord
+	cmp.w	#_TkBra2,d0
+	bne.s	CDop1
+CDop3	move.l	a6,d0
+	move.l	(sp),a6
+	move.l	d0,(sp)
+	move.l	d7,d2
+	cmp.l	#-1,d2			Des parametres
+	beq.s	.NoPar
+	move.w	Cmvid5(pc),d0		Sort le MOVE / MOVEQ
+	move.w	Cmvqd5(pc),d1
+	bsr	OutMove
+.NoPar	moveq	#-1,d7			Appel d'un label FIXE, toujours
+	move.w	Cjsr(pc),d0
+	bsr	CallLabelFixe
+	move.l	(sp)+,a6
+	rts
+
+;	POP PROC
+; ~~~~~~~~~~~~~~
+InPopProc
+	bsr	OutLea
+	bsr	CTests
+	bsr	GetWord			POP PROC[ ]???
+	subq.w	#2,a6
+	cmp.w	#_TkBra1,d0
+	bne.s	.Out
+	bsr	Fn_New_Evalue
+	bsr	Optimise_D2
+	addq.l	#2,a6
+	and.b	#$0F,d2			Recupere les parametres
+	lsl.w	#1,d2
+	jmp	.jmp(pc,d2.w)
+.jmp	bra.s	.Ent
+	bra.s	.Float
+	lea	CdEProS(pc),a0
+	bra.s	.Suite
+.Float	lea	CdEProF(pc),a0
+	tst.b	MathFlags(a5)
+	bpl.s	.Suite
+	lea	CdEProD(pc),a0
+	bra.s	.Suite
+.Ent	lea	CdEProE(pc),a0
+.Suite	bsr	OutCode
+.Out	move.w	#L_FProc,d0		POP PROC= END PROC!
+	bra	Do_JmpLibrary
+
+;----------------------> FOR / TO / NEXT
+InFor
+	bsr	OutLea
+; Prend et egalise la variable
+	bsr	GetWord		; Teste?
+	addq.l	#2,a6
+	move.l	a6,-(sp)
+	bsr	StockOut	; Saute la variable
+        bsr 	InVariable2
+	bsr	RestOut
+	and.w	#$0F,d2
+        move.w 	d2,-(sp)        ; Sauve le type
+; Compile le TO
+	addq.l	#2,a6
+	move.w	(sp),Type_Voulu(a5)
+        bsr 	Evalue_Voulu
+	bsr	Push_D2
+; Compile le STEP
+	bsr 	GetWord
+        subq.l 	#2,a6
+	cmp.w	#_TkStp,d0
+	bne.s	CFor3
+        addq.l 	#2,a6
+	move.w	(sp),Type_Voulu(a5)
+        bsr 	Evalue_Voulu    ; va chercher le STEP
+        bra.s 	CFor4
+CFor3	bsr	S_Script_D2	; Cree une entree du script
+	moveq	#1,d0		; Sort move.l #1,d3
+	bsr	Out_MoveE
+	tst.w	(sp)
+	beq.s	CFor4
+	bsr	D2_Float
+CFor4	moveq	#0,d7		Par defaut, boucle lente
+	moveq	#0,d0
+	cmp.w	#F_MoveE,d3	Step= une constante entiere?
+	bne.s	CFor5
+	move.l	d4,a0
+	move.l	S_Cst1(a0),d0		; Step
+	moveq	#-1,d7			; Flag boucle rapide
+CFor5	move.w	d7,-(sp)
+	move.l	d0,-(sp)
+	bsr	Push_D2
+; Compile la variable
+	move.l	6+2(sp),d0
+	move.l	a6,6+2(sp)
+	move.l	d0,a6
+	bsr	InVariable2
+	bsr	AdToA0
+	move.l	6+2(sp),a6
+; Adresse des adresses
+	move.w	M_ForNext(a5),d1
+	lea	forcd2(pc),a0
+	bsr	RForNxt
+	bsr	OutCode
+; Poke les tables du compilateur
+        move.l 	A_Bcles(a5),a1
+	move.w	4(sp),(a1)+		; 0  Flag rapide
+	move.w	6(sp),(a1)+		; 2  Type
+	move.l	(sp),(a1)+		; 4  Step
+	move.l	a4,(a1)+		; 8  Adresse dans le programme
+	move.w	M_ForNext(a5),(a1)+	; 12 Position de la boucle
+	move.w	#16,(a1)+		; 14 Taille FOR/NEXT
+        move.l 	a1,A_Bcles(a5)
+; Un FOR/NEXT de plus!
+	add.w	#12,M_ForNext(a5)
+        addq.w 	#1,N_Bcles(a5)
+	lea	12(sp),sp
+	rts
+forcd2:	move.l	Cmp_AForNext(a5),a2
+	lea	0(a2),a2
+	move.l	(a3)+,(a2)+
+	move.l	(a3)+,(a2)+
+	move.l	a0,(a2)
+	dc.w	$4321
+
+;-----------------------------------> NEXT
+InNext:
+	bsr	OutLea
+	bsr	CTests
+; Saute la variable
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkVar,d0
+	bne.s	CNx0
+	addq.l	#2,a6
+	bsr	SoVar
+; Depile la boucle
+CNx0	move.l	A_Bcles(a5),a1
+	sub.w	-2(a1),a1
+	move.w	12(a1),d1		* P_FORNEXT
+	tst.w	(a1)
+	beq.s	CNx2
+; Une boucle "rapide"
+	lea	CdNx(pc),a0
+	bsr	RForNxt
+	bsr	OutCode
+	move.w	Cbgts(pc),d7
+	swap	d7
+	move.w	Cble(pc),d7
+	tst.l	4(a1)
+	bmi.s	CNx1
+	move.w	Cblts(pc),d7
+	swap	d7
+	move.w	Cbge(pc),d7
+CNx1	moveq	#0,d5
+	move.l	8(a1),d6
+	bsr	DoTest
+	bra.s	CNxX
+* Boucle lente
+CNx2	lea	CdNx(pc),a0
+	bsr	RForNxt
+	move.w	Cleaa1(pc),d7
+	swap	d7
+	move.w	Cleapca1(pc),d7
+	move.l	8(a1),d6
+	moveq	#0,d5
+	bsr	DoLea
+	move.w	#L_InNext,d0
+	tst.w	2(a1)
+	beq.s	CNx6
+	move.w	#L_InNextF,d0
+	tst.b	MathFlags(a5)
+	bpl.s	CNx6
+	move.w	#L_InNextD,d0
+CNx6	bsr	Do_JsrLibrary
+* Fin de la boucle
+CNxX	bra	UnPile
+; Routine
+RForNxt	move.l	(a0)+,d0
+	bsr	OutLong
+	tst.w	d1
+	beq.s	.Skip1
+	move.w	(a0),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bsr	OutWord
+.Skip1	addq.l	#4,a0
+	rts
+; Code RAPIDE
+CdNx	move.l	Cmp_AForNext(a5),a2
+	lea	0(a2),a2
+	move.l	(a2)+,d0
+	move.l	(a2)+,d1
+	move.l	(a2),a2
+	add.l	d0,(a2)
+	cmp.l	(a2),d1
+	dc.w	$4321
+
+;------------------------------> REPEAT / UNTIL
+InDo
+InRepeat
+	move.l	A_Bcles(a5),a1
+	move.l	a4,(a1)+		; 0  6 Adresse boucle
+	bsr	GetWord
+	lea	-2(a6,d0.w),a0
+	move.w	#6,(a1)+
+	move.l	a1,A_Bcles(a5)
+	addq.w	#1,N_Bcles(a5)
+	rts
+InUntil
+	bsr	OutLea
+	bsr	CTests
+	bsr	Expentier
+	bsr	Test_D2
+	move.l	A_Bcles(a5),a1
+	move.w	Cbne8(pc),d7
+	swap	d7
+	move.w	Cbeq(pc),d7
+	move.l	-6(a1),d6
+	moveq	#0,d5
+	bsr	DoTest
+	bra	UnPile
+
+;------------------------------> LOOP
+InLoop
+	bsr	OutLea
+	bsr	CTests
+	moveq	#0,d5
+	move.l	A_Bcles(a5),a1
+	move.l	-6(a1),d6
+	bsr	DoBra
+	bra	UnPile
+
+;------------------------------> WHILE / WEND
+InWhile
+	bsr	GetWord
+; Retour du WEND
+	move.l	A_Bcles(a5),a1
+	move.l	a6,(a1)+
+	move.w	Cjmp(pc),d0
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+	move.l	a4,(a1)+
+	move.w	#10,(a1)+
+	move.l	a1,A_Bcles(a5)
+	addq.w	#1,N_Bcles(a5)
+; Saute l'expression
+	bsr	StockOut
+	bsr	New_Evalue
+	bsr	RestOut
+	rts
+
+InWend
+	bsr	OutLea
+	bsr	CTests
+	move.l	A_Bcles(a5),a1
+; Reloge le JMP du debut
+	move.l	a4,-(sp)
+	move.l	a4,d0
+	move.l	-6(a1),a4
+	subq.l	#4,a4
+	bsr	OutLong
+	move.l	(sp)+,a4
+; Evalue l'expression
+	movem.l	a1/a6,-(sp)
+	move.l	-10(a1),a6
+	bsr	Expentier
+	movem.l	(sp)+,a1/a6
+	bsr	Test_D2
+; Met le branchement
+	moveq	#0,d5
+	move.l	-6(a1),d6
+	move.w	Cbeq8(pc),d7
+	swap	d7
+	move.w	Cbne(pc),d7
+	bsr	DoTest
+	bra	UnPile
+
+;	Tester D2 si necessaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Test_D2	btst	#F_Drapeaux,d2
+	bne.s	.Skip
+	move.w	Ctstd3(pc),d0
+	bsr	OutWord
+.Skip	rts
+
+;------------------------------> EXIT / EXIT IF
+InExitIf
+	bsr	OutLea
+	bsr	GetWord
+	move.w	d0,d1
+	bsr	GetWord
+	pea	0(a6,d1.w)
+	bsr	Expentier
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkVir,d0
+	bne.s	CEIf0
+	addq.l	#2+6,a6
+CEIf0	bsr	Test_D2
+	move.l	(sp)+,d5
+	moveq	#0,d6
+	move.w	Cbeq8(pc),d7
+	swap	d7
+	move.w	Cbne(pc),d7
+	bsr	DoTest
+	rts
+InExit
+	bsr	GetWord
+	move.w	d0,d1
+	bsr	GetWord
+	lea	0(a6,d1.w),a0
+	move.l	a0,d5
+	bsr	GetWord
+	subq.l	#2,a6
+	cmp.w	#_TkEnt,d0
+	bne.s	Cexi1
+	addq.l	#6,a6
+Cexi1	moveq	#0,d6
+	bsr	DoBra
+	rts
+
+;------------------------------> IF / THEN / ELSE
+InIf	bsr	OutLea
+	bsr	GetWord
+	bclr	#0,d0
+	bne.s	.ElseIf
+; IF / ELSE / ENDIF simple
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	pea	0(a6,d0.w)
+	bsr	Expentier
+	bsr	Test_D2
+	move.l	(sp)+,d5		Adresse de branchement
+	moveq	#0,d6
+	move.w	Cbne8(pc),d7
+	swap	d7
+	move.w	Cbeq(pc),d7
+	bsr	DoTest
+	rts
+; IF / ELSE IF / ELSE / ENDIF
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ElseIf	clr.l	-(sp)			Adresse du premier BRA
+	clr.l	-(sp)			Adresse de fin de l'expression
+	move.w	#-1,-(sp)		Flag ELSE IF!
+	pea	0(a6,d0.w)		Pousse l'adresse
+	bsr	Expentier		Evalue l'expression
+	move.l	a6,6(sp)
+	bsr	Test_D2
+	move.w	Cbne(pc),d0		Bne
+	bsr	OutWord
+	move.l	a4,6+4(sp)		Adresse du branchement
+	moveq	#0,d0
+	bsr	OutWord
+.Loop	move.l	(sp)+,a6
+	move.w	(sp)+,d0
+	beq.s	.Fini
+	subq.l	#2,a6
+	bsr	GetWord
+	bclr	#0,d0
+	sne	d1
+	ext.w	d1
+	move.w	d1,-(sp)
+	pea	0(a6,d0.w)
+	bsr	Expentier
+	bsr	Test_D2			Vrai / Faux?
+	move.l	a6,d5			Adresse de branchement
+	moveq	#0,d6
+	move.w	Cbeq8(pc),d7
+	swap	d7
+	move.w	Cbne(pc),d7
+	bsr	DoTest
+	bra.s	.Loop
+.Fini	move.l	a6,d5			ELSE / ENDIF
+	moveq	#0,d6
+	bsr	DoBra
+	move.l	(sp)+,a6		Adresse dans le source
+	move.l	a4,d1
+	move.l	(sp)+,a4		Adresse du BNE
+	move.l	d1,d0
+	sub.l	a4,d0
+	bsr	OutWord			Reloge le BNE
+	move.l	d1,a4			Restore la sortie
+	rts
+InElseIf
+	bsr	OutLea
+	pea	2(a6)
+
+.Loop	moveq	#0,d0
+	bsr	GetWord
+	move.w	d0,d1
+	bclr	#0,d0
+	add.l	d0,a6
+	subq.l	#4,a6
+	bsr	GetWord
+	bclr	#0,d1
+	bne.s	.Loop
+	cmp.w	#_TkElse,d0
+	beq.s	.Loop
+	addq.l	#2,a6
+
+	move.l	a6,d5
+	moveq	#0,d6
+	bsr	DoBra
+
+	move.l	(sp)+,a6
+	bsr	StockOut		Saute l'expression
+	bsr	Expentier
+	bsr	RestOut
+	rts
+InElse
+	bsr	OutLea
+	bsr	GetWord
+	bclr	#0,d0
+	lea	0(a6,d0.w),a0
+	move.l	a0,d5
+	moveq	#0,d6
+	bsr	DoBra
+	rts
+
+;	ON ERROR
+; ~~~~~~~~~~~~~~
+InOnError
+	bsr	OutLea
+	bsr	GetWord
+	cmp.w	#_TkPrc,d0
+	beq.s	CerP
+	cmp.w	#_TkGto,d0
+	bne.s	Cer0
+* On error GOTO
+	move.l	a6,-(sp)
+	bsr	GetWord
+	cmp.w	#_TkEnt,d0
+	bne.s	CerG
+	bsr	GetLong
+	tst.l	d0
+	bne.s	CerG
+	addq.l	#4,sp
+	bra.s	Cer1
+CerG	move.l	(sp)+,a6
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_InOnErrorGoto,d0
+	bra	Do_JsrLibrary
+* On error PROC
+CerP	moveq	#-1,d7
+	bsr	GetLabel
+	move.w	#L_InOnErrorProc,d0
+	bra	Do_JsrLibrary
+* On error RIEN
+Cer0	subq.l	#2,a6
+Cer1	move.w	#L_InOnError,d0
+	bra	Do_JsrLibrary
+
+;	TRAP
+; ~~~~~~~~~~
+InTrap	bsr	OutLea
+	move.w	#L_InTrap,d0
+	bra	Do_JsrLibrary
+
+;	RESUME
+; ~~~~~~~~~~~~
+InResume
+	bsr	OutLea
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	CRes0
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_InResume1,d0
+	bra	Do_JmpLibrary
+CRes0	move.w	#L_InResume,d0
+	bra	Do_JmpLibrary
+
+;	RESUME LABEL
+; ~~~~~~~~~~~~~~~~~~
+InResumeLabel
+	bsr	OutLea
+	bsr	Finie
+	subq.l	#2,a6
+	beq.s	Cresl0
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_InResumeLabel1,d0
+	bra	Do_JsrLibrary
+Cresl0	move.w	#L_InResumeLabel,d0
+	bra	Do_JsrLibrary
+
+;-----> LABEL
+InLabel	move.w	N_Proc(a5),d7
+	bsr	RLabel
+	move.l	a4,2(a2)
+	rts
+
+;-----> GOTO
+InLabelGoto
+	subq.l	#2,a6
+InGoto
+	bsr	OutLea
+	bsr	CTests
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+CGoto1	move.w	Cjmpa0(pc),d0
+	bra	OutWord
+
+;-----> EVERY n GOSUB / PROC
+InEvery
+	bsr	Expentier
+	bsr	Push_D2
+	bsr	GetWord
+	cmp.w	#_TkPrc,d0
+	beq.s	CEv1
+; Every GOSUB
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	move.w	#L_InEveryGosub,d0
+	bra	Do_JsrLibrary
+; Every PROC
+CEv1	moveq	#-1,d7
+	bsr	GetLabel
+	move.w	#L_InEveryProc,d0
+	bra	Do_JsrLibrary
+
+;	ON BREAK PROC
+; ~~~~~~~~~~~~~~~~~~~
+InOnBreak
+	moveq	#-1,d7
+	bsr	GetLabel
+	move.w	#L_InOnBreak,d0
+	bra	Do_JsrLibrary
+
+;-----> GOSUB
+InGosub	bsr	OutLea
+	bsr	CTests
+	move.w	N_Proc(a5),d7
+	bsr	GetLabel
+	lea	CdGsb(pc),a0
+	bra	OutCode
+CdGsb:	lea	-4(sp),a1
+	move.l	a1,Cmp_LowPile(a5)
+	jsr	(a0)
+	dc.w	$4321
+
+;-----> RETURN
+InReturn
+	bsr	OutLea
+	bsr	CTests
+	move.w	#L_InReturn,d0
+	bra	Do_JmpLibrary
+;-----> POP
+InPop
+	bsr	OutLea
+	bsr	CTests
+	move.w	#L_InPop,d0
+	bra	Do_JsrLibrary
+
+
+;-----> ON exp GOTO / GOSUB
+InOn	bsr	OutLea
+	bsr	CTests
+	bsr	GetWord
+	lea	2(a6,d0.w),a1
+	bsr	GetWord
+	move.w	d0,-(sp)
+	move.l	a1,-(sp)
+	bsr	Expentier
+	bsr	GetWord
+	move.w	d0,-(sp)
+	lea	CdOn(pc),a0
+	move.w	(a0)+,d0
+	move.b	6+1(sp),d0
+	bsr	OutWord
+	bsr	OutCode
+	move.w	N_Proc(a5),d7
+	move.w	(sp)+,d0
+	cmp.w	#_TkGsb,d0
+	beq.s	COn1
+	cmp.w	#_TkPrc,d0
+	beq.s	COnP
+; On...Goto
+	move.w	Cjmpa0(pc),d0
+	bra.s	COnP1
+; On...Gosub
+COn1	lea	CdGsb(pc),a0
+	bsr	OutCode
+	bra.s	COn2
+; On...Proc
+COnP	moveq	#-1,d7
+	move.w	Cjsra0(pc),d0
+COnP1	bsr	OutWord
+	move.w	Cnop(pc),d0
+	bsr	OutWord
+	bsr	OutWord
+	bsr	OutWord
+	bsr	OutWord
+; Bra final
+COn2	move.w	Cbra(pc),d0
+	move.l	a4,d4
+	move.l	(sp)+,d5
+	bsr	OutWord
+	addq.l	#2,a4
+	bsr	MarkAd
+; Met les labels
+	move.w	(sp),d0
+	move.l	a4,-(sp)
+	move.l	a4,-(sp)
+	lsl.w	#1,d0
+	add.w	d0,a4
+COn3	move.l	a4,d0
+	move.l	a4,d4
+	move.l	(sp),a4
+	sub.l	4(sp),d0
+	bsr	OutWord
+	addq.l	#2,(sp)
+	move.l	d4,a4
+	bsr	GetLabel
+	move.w	Crts(pc),d0
+	bsr	OutWord
+	addq.l	#2,a6
+	subq.w	#1,8(sp)
+	bne.s	COn3
+; Ouf!
+	subq.l	#2,a6
+	lea	10(sp),sp
+	rts
+CdOn	moveq	#0,d1
+	tst.l	d3
+	beq.s	CdOn1+10
+	cmp.l	d1,d3
+	bhi.s	CdOn1+10
+	lsl.w	#1,d3
+	move.w	CdOn1+10+4-2(pc,d3.w),d0
+	jsr	CdOn1+10+4(pc,d0.w)
+CdOn1	dc.w	$4321
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	LABEL FIXE? VRAI si fixe
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+IsLabelFixe
+	bsr	GetWord
+	subq.l	#2,a4
+	cmp.w	#_TkLGo,d0
+	beq.s	.Fixe
+	cmp.w	#_TkPro,d0
+	beq.s	.Fixe
+	moveq	#0,d0
+	rts
+.Fixe	moveq	#-1,d0
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CREE JSR / JMP / LEA pour un label fixe
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+CallLabelFixe
+	addq.l	#2,a6			Saute le prefixe label
+	move.w	d0,-(sp)		Code de l'instruction
+	bsr	RLabel
+	move.w	(sp)+,d0
+	bsr	OutWord
+	bsr	Relocation
+	move.l	a2,d0
+	sub.l	B_Labels(a5),d0		En relatif / Debut du buffer
+	or.l	#Rel_Label,d0
+	bra	OutLong
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; ROUTINE -> adresse d'un label
+; OUT >>> lea label,a0
+; Retour VRAI si FIXE / FAUX si variable
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+GetLabel
+	bsr	GetWord
+	cmp.w	#_TkLGo,d0
+	beq	Cglab1
+	cmp.w	#_TkPro,d0
+	beq	Cglab1
+; Expression
+	subq.w	#2,a6
+	addq.w	#1,Cpt_Labels(a5)		Copier la table!
+	move.b	#-1,Flag_Const(a5)
+	bsr	StockOut
+	move.w	d7,-(sp)
+	bsr	New_Evalue
+	move.w	(sp)+,d7
+	move.w	#L_GetLabelA,d1
+	cmp.b	#2,d2
+	beq	Glab0a
+	tst.b	d2
+	beq.s	Glab0
+	bsr	D2_Entier
+Glab0	move.w	#L_GetLabelE,d1
+	cmp.w	#F_MoveE,d3			Un numero de ligne?
+	beq.s	Clab0b
+; Expression variable!
+Glab0a	bsr	Optimise_D2
+	bsr	SautOut
+	move.w	Cmvwid5(pc),d0
+	bsr	OutWord
+	move.w	N_Proc(a5),d0
+	bsr	OutWord
+	move.w	d1,d0
+	bra	Do_JsrLibrary
+; Numero de ligne FIXE
+Clab0b	subq.w	#1,Cpt_Labels(a5)
+	bsr	RestOut
+	move.l	d4,a0
+	move.l	S_Cst1(a0),d0		Prend la constante
+	moveq	#-1,d3
+	moveq	#0,d4
+	move.l	B_Work(a5),a2
+	move.l	a2,a0
+	bsr	HexToAsc		Converti en ascii
+	move.l	a0,a1
+	move.l	a1,d6
+	btst	#0,d6
+	beq.s	Clab0c
+	clr.b	(a1)+
+	addq.l	#1,d6
+Clab0c	sub.l	a2,d6
+	move.w	d6,d5
+	lsr.w	#1,d5
+	bsr	CLabBis
+	bra.s	Cglab0
+; Label simple
+Cglab1	bsr	RLabel
+Cglab0	move.w	Cleaa0(pc),d0
+	bsr	OutWord
+	bsr	Relocation
+	move.l	a2,d0
+	sub.l	B_Labels(a5),d0		En relatif / Debut du buffer
+	or.l	#Rel_Label,d0
+	bra	OutLong
+
+* ROUTINE -> Trouve / Cree / Saute le label (a6)
+* Entree D7=	Numero procedure
+* Retour A2=	Label
+RLabel	addq.l	#2,a6
+	moveq	#0,d0
+	bsr	GetWord
+	lsr.w	#8,d0
+	move.w	d0,d6
+	lsr.w	#1,d0
+	move.w	d0,d5
+	move.w	d0,d1
+	move.l	B_Work(a5),a1
+CLab1	bsr	GetWord
+	move.w	d0,(a1)+
+	subq.b	#1,d1
+	bne.s	CLab1
+CLabBis	move.w	d7,(a1)+
+	addq.w	#2,d6
+*	addq.w	#1,d5		Pour DBRA!
+; Recherche dans la table
+	move.l	B_Labels(a5),a2
+	moveq	#-6,d1
+CLab3	lea	6(a2,d1.w),a2
+	move.w	(a2),d1
+	beq.s	CLab5
+	cmp.w	d6,d1
+	bne.s	CLab3
+	move.l	B_Work(a5),a0
+	lea	6(a2),a1
+	move.w	d5,d0
+CLab4	cmp.w	(a0)+,(a1)+
+	bne.s	CLab3
+	dbra	d0,CLab4
+	rts
+; Cree le nouveau
+CLab5	move.w	d6,(a2)
+	move.l	a6,d0
+	bset	#31,d0
+	move.l	d0,2(a2)
+	move.l	B_Work(a5),a0
+	lea	6(a2),a1
+CLab6	move.w	(a0)+,(a1)+
+	dbra	d5,CLab6
+	lea	6(a2,d6.w),a0
+	clr.w	(a0)
+	rts
+
+* ROUTINE -> Conversion HEX- > DEC
+HexToAsc
+	tst.l 	d0
+        bpl.s	Chexy
+        move.b 	#"-",(a0)+
+        neg.l 	d0
+        bra.s 	Chexz
+Chexy:  tst 	d4
+        beq.s 	Chexz
+        move.b 	#32,(a0)+
+Chexz:  tst.l 	d3
+        bmi.s 	Chexv
+        neg.l 	d3
+        add.l 	#10,d3
+Chexv:  move.l 	#9,d4
+        lea 	Cmdx(pc),a1
+Chxx0:  move.l 	(a1)+,d1     ;table des multiples de dix
+        move.b 	#$ff,d2
+Chxx1:  addq.b 	#1,d2
+        sub.l 	d1,d0
+        bcc.s 	Chxx1
+        add.l 	d1,d0
+        tst.l 	d3
+        beq.s 	Chxx4
+        bpl.s 	Chxx3
+        btst 	#31,d4
+        bne.s 	Chxx4
+        tst 	d4
+        beq.s 	Chxx4
+        tst.b 	d2
+        beq.s 	Chxx5
+        bset 	#31,d4
+        bra.s 	Chxx4
+Chxx3:  subq.l 	#1,d3
+        bra.s 	Chxx5
+Chxx4:  add 	#48,d2
+        move.b 	d2,(a0)+
+Chxx5:  dbra 	d4,Chxx0
+        rts
+Cmdx:   dc.l 	1000000000,100000000,10000000,1000000
+        dc.l 	100000,10000,1000,100,10,1,0
+
+* ROUTINE -> BRA/JMP
+* D5= adresse en AVANT
+* D6= adresse en ARRIERE
+DoBra	move.w	Cjmp(pc),d7
+	swap	d7
+	move.w	Cbra(pc),d7
+* Entree pour LEA / LEA (pc)
+DoLea	tst.l	d5
+	bne.s	Dbr2
+* En arriere!
+	move.l	d6,d1
+	sub.l	a4,d1
+	subq.l	#2,d1
+	cmp.l	#32764,d1
+	bge.s	Dbr1
+	cmp.l	#-32764,d1
+	ble.s	Dbr1
+; Ok, en SHORT!
+Dbr0	move.w	d7,d0
+	bsr	OutWord
+	move.w	d1,d0
+	bra	OutWord
+; En LONG!
+Dbr1	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	bsr	Relocation
+	move.l	d6,d0
+	bra	OutLong
+* En avant!
+Dbr2	move.l	a4,d4
+	tst.b	Flag_Long(a5)
+	bne.s	Dbr3
+; En short
+Dbr4	move.w	d7,d0
+	bsr	OutWord
+	addq.l	#2,a4
+	bra.s	MarkAd
+; En long
+Dbr3	bset	#31,d4
+	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+	bra.s	MarkAd
+
+* ROUTINE -> TEST ET BRANCHEMENT
+* D5= adresse en AVANT
+* D6= adresse en ARRIERE
+DoTest	tst.l	d5
+	bne.s	DTst2
+* En arriere!
+	move.l	d6,d1
+	sub.l	a4,d1
+	subq.l	#2,d1
+	cmp.l	#32764,d1
+	bge.s	Dtst1
+	cmp.l	#-32764,d1
+	bge.s	Dbr0
+; En LONG!
+Dtst1	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	move.w	Cjmp(pc),d0
+	bsr	OutWord
+	bsr	Relocation
+	move.l	d6,d0
+	bra	OutLong
+* En Avant!
+DTst2	move.l	a4,d4
+	tst.b	Flag_Long(a5)
+	beq.s	Dbr4
+; En long!
+	bset	#31,d4
+	addq.l	#2,d4
+	swap	d7
+	move.w	d7,d0
+	bsr	OutWord
+	move.w	Cjmp(pc),d0
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+
+* Marque la table des branch forward
+MarkAd	movem.l	a0/a1,-(sp)
+	move.l	B_Lea(a5),a0
+MAd1	cmp.l	(a0),d5
+	addq.l	#8,a0
+	bcc.s	MAd1
+	subq.l	#8,a0
+; Fait une place
+	move.l	A_Lea(a5),a1
+MAd2	move.l	(a1),8(a1)
+	move.l	4(a1),12(a1)
+	subq.l	#8,a1
+	cmp.l	a0,a1
+	bcc.s	MAd2
+; Poke le nouveau
+	move.l	d5,(a0)+
+	move.l	d4,(a0)
+	addq.l	#8,A_Lea(a5)
+	movem.l	(sp)+,a0/a1
+	rts
+* ROUTINE -> Poke l'adresse d'une ligne
+PokeAd	move.l	a4,-(sp)
+	move.l	a4,d0
+	move.l	B_Lea(a5),a2
+	move.l	4(a2),d1
+	bmi.s	JAbs
+; Branchement (pc)
+	addq.l	#2,d1
+	move.l	d1,a4
+	sub.l	d1,d0
+	cmp.l	#32764,d0
+	bgt	Err_DoLong
+	cmp.l	#-32764,d0
+	blt	Err_DoLong
+	bsr	OutWord
+; Enleve de la table
+ETable	move.l	A_Lea(a5),a1
+PAd1	move.l	8(a2),(a2)+
+	move.l	8(a2),(a2)+
+	cmp.l	a1,a2
+	bcs.s	PAd1
+	subq.l	#8,A_Lea(a5)
+	move.l	(sp)+,a4
+	rts
+; Branchement absolu
+JAbs	bclr	#31,d1
+	addq.l	#2,d1
+	move.l	d1,a4
+	bsr	OutLong
+	bra.s	ETable
+* ROUTINE -> Depile une boucle -> A1
+UnPile	move.l	A_Bcles(a5),a1
+	sub.w	-2(a1),a1
+	move.l	a1,A_Bcles(a5)
+	subq.w	#1,N_Bcles(a5)
+	rts
+
+;	Appel de la routine de test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CTests	tst.b	Flag_NoTests(a5)
+	bne.s	.Notest
+	move.w	#L_Test_Normal,d0
+	bra	Do_JsrLibrary
+.Notest	move.w	Cmvqd6(pc),d0		Pas de test: remettre D6 � zero!
+	move.b	#1,d0
+	bra	OutWord
+
+;	Instruction finie??
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Finie:	bsr	GetWord
+FinieB:	beq.s	Finy
+	cmp.w	#_TkDP,d0
+	beq.s	Finy
+	cmp.w	#_TkThen,d0
+	beq.s	Finy
+	cmp.w	#_TkElse,d0
+Finy:	rts
+
+;	Codage / Decodage procedure LOCKEE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A6---> "PROC"
+ProCode	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	2(a6),d0
+	lea	10+2+4(a6,d0.l),a2	* A2---> ENDPROC
+	move.w	-2(a6),d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a1		* A1---> Ligne suivante
+	move.l	2(a6),d5
+	rol.l	#8,d5
+	move.b	9(a6),d5
+	moveq	#1,d4
+	move.w	6(a6),d3
+	bra.s	PrCo2
+PrCo1	eor.w	d5,(a0)+
+	add.w	d4,d5
+	add.w	d3,d4
+	ror.l	#1,d5
+	cmp.l	a0,a1
+	bne.s	PrCo1
+PrCo2	move.l	a1,a0
+	move.w	(a0)+,d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a0,d0.w),a1
+	addq.l	#2,a0
+	cmp.l	a0,a2
+	bne.s	PrCo1
+* Change le flag
+	bchg	#5,8(a6)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES DE CONVERSION INTERNES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Cree le INTOFL
+; ~~~~~~~~~~~~~~~~~~~~~
+Cree_IntToFl
+	move.w	#L_IntToFl1,d0
+	bra	Do_JsrLibrary
+Cree_IntToFl2
+	move.w	#L_IntToFl2,d0
+	bra	Do_JsrLibrary
+Cree_FlToInt
+	move.w	#L_FlToInt1,d0
+	bra	Do_JsrLibrary
+Cree_FlToInt2
+	move.w	#L_FlToInt2,d0
+	bra	Do_JsrLibrary
+
+;	Ouvre les librairies mathematiques
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Float_Open
+	tst.l	FloatBase(a5)
+	bne.s	.Ok
+	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.l	$4.w,a6
+	moveq	#0,d0
+	lea	FloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,FloatBase(a5)
+	beq	Err_CantOpenMathLibraries
+	movem.l	(sp)+,d0-d1/a0-a1/a6
+.Ok	rts
+DFloat_Open
+	tst.l	DFloatBase(a5)
+	bne.s	.Ok
+	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.l	$4.w,a6
+	lea	DFloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,DFloatBase(a5)
+	beq	Err_CantOpenMathLibraries
+	movem.l	(sp)+,d0-d1/a0-a1/a6
+.Ok	rts
+
+;	Entree generale FLOAT to ENTIER
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FloatOrDoubleToInt
+	tst.b	MathFlags(a5)
+	bmi.s	DoubleToInt
+; Float >>> Entier
+FloatToInt
+	movem.l	a0-a1/a6,-(sp)
+	bsr	Float_Open
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFix(a6)
+	movem.l	(sp)+,a0-a1/a6
+	rts
+; Double >>> Entier
+DoubleToInt
+	movem.l	a0-a1/a6,-(sp)
+	bsr	DFloat_Open
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFix(a6)
+	movem.l	(sp)+,a0-a1/a6
+	rts
+
+;	Entree int >>> float generale
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+IntToFloatOrDouble
+	tst.b	MathFlags(a5)
+	bne.s	IntToDouble
+; Entier >>> Float
+IntToFloat
+	movem.l	a0-a1/a6,-(sp)
+	bsr	Float_Open
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFlt(a6)
+	movem.l	(sp)+,a0-a1/a6
+	rts
+; Entier >>> Double
+IntToDouble
+	movem.l	a0-a1/a6,-(sp)
+	bsr	DFloat_Open
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFlt(a6)
+	movem.l	(sp)+,a0-a1/a6
+	rts
+
+;	Double precision vers float
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Double2Float
+	movem.l	a0-a1,-(sp)
+	bsr	Dp2Sp
+	bsr	Ieee2FFP
+	movem.l	(sp)+,a0-a1
+	rts
+;	Float vers double precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Float2Double
+	movem.l	a0-a1,-(sp)
+	bsr	FFP2Ieee
+	bsr	Sp2Dp
+	movem.l	(sp)+,a0-a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FFP single precision to IEEE single precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+FFP2Ieee
+; - - - - - - - - - - - - -
+	ADD.L	D0,D0
+	BEQ.S	L21418A
+	EORI.B	#$80,D0
+	ASR.B	#1,D0
+	SUBI.B	#$82,D0
+	SWAP	D0
+	ROL.L	#7,D0
+L21418A	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IEEE single precision to FFP single precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Ieee2FFP
+; - - - - - - - - - - - - -
+	SWAP	D0
+	ROR.L	#7,D0
+	EORI.B	#$80,D0
+	ADD.B	D0,D0
+	BVS.S	L2141A4
+	ADDQ.B	#5,D0
+	BVS.S	L2141DA
+	EORI.B	#$80,D0
+	ROR.L	#1,D0
+L2141A2	RTS
+L2141A4	BCC.S	L2141CC
+	CMPI.B	#$7C,D0
+	BEQ.S	L2141B2
+	CMPI.B	#$7E,D0
+	BNE.S	L2141BE
+L2141B2	ADDI.B	#$85,D0
+	ROR.L	#1,D0
+	TST.B	D0
+	BNE.S	L2141A2
+	BRA.S	L2141C8
+L2141BE	ANDI.W	#$FEFF,D0
+	TST.L	D0
+	BEQ.S	L2141A2
+	TST.B	D0
+L2141C8	MOVEQ	#0,D0
+	BRA.S	L2141A2
+L2141CC	CMPI.B	#$FE,D0
+	BNE.S	L2141DA
+	LSR.L	#8,D0
+	LSR.L	#1,D0
+	BNE.S	L2141E6
+	BRA.S	L2141DC
+L2141DA	LSL.W	#8,D0
+L2141DC	MOVEQ	#-1,D0
+	ROXR.B	#1,D0
+	ORI.B	#2,CCR
+	BRA.S	L2141A2
+L2141E6	MOVEQ	#0,D0
+	BRA.S	L2141A2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IEEE single precision to ieee double precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Sp2Dp
+; - - - - - - - - - - - - -
+	MOVEA.L	D0,A0
+	SWAP	D0
+	BEQ.S	.SKIP
+	MOVE.W	D0,D1
+	ANDI.W	#$7F80,D0
+	ASR.W	#3,D0
+	ADDI.W	#$3800,D0
+	ANDI.W	#$8000,D1
+	OR.W	D1,D0
+	SWAP	D0
+	MOVE.L	A0,D1
+	ROR.L	#3,D1
+	MOVEA.L	D1,A0
+	ANDI.L	#$FFFFF,D1
+	OR.L	D1,D0
+	MOVE.L	A0,D1
+	ANDI.L	#$E0000000,D1
+	RTS
+.SKIP	MOVEQ	#0,D1
+	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IEEE Double precision to IEEE single precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Dp2Sp
+; - - - - - - - - - - - - -
+	SWAP	D0
+	BEQ.S	L2ECFA4
+	MOVE.W	D0,D1
+	SWAP	D1
+	SWAP	D0
+	ASL.W	#1,D1
+	ROXL.L	#1,D0
+	ASL.W	#1,D1
+	ROXL.L	#1,D0
+	ASL.W	#1,D1
+	ROXL.L	#1,D0
+	SWAP	D0
+	ANDI.W	#$7F,D0
+	SWAP	D1
+	MOVEA.W	D1,A0
+	ANDI.W	#$8000,D1
+	OR.W	D1,D0
+	MOVE.W	A0,D1
+	ANDI.W	#$7FF0,D1
+	SUBI.W	#$3800,D1
+	BGE.S	L2ECFA6
+	CLR.L	D0
+L2ECFA4	RTS
+L2ECFA6	CMPI.W	#$FF0,D1
+	BLE.S	L2ECFBC
+	ORI.B	#2,CCR
+;	TRAPV
+	ORI.L	#$FFFF7FFF,D0
+	SWAP	D0
+	RTS
+L2ECFBC	ASL.W	#3,D1
+	OR.W	D1,D0
+	SWAP	D0
+	RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FABRICATION DU HEADER DU PROGRAMME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+Header:
+	cmp.b	#3,Flag_Type(a5)
+	beq	HeaderAMOS
+
+;	Programme NORMAL
+; ~~~~~~~~~~~~~~~~~~~~~~
+
+; Regarde le nombre de hunks
+	move.w	N_Banks(a5),d0
+	add.w	#N_HunkSys,d0		Nb de banques+nb de hunks systeme
+	move.w	d0,N_Hunks(a5)		= nombre total de hunks
+	bsr	ResHunk
+
+; Fabrique le HUNK entete
+	move.l	#$3F3,d0		AmigaDos
+	bsr	OutLong
+	moveq	#0,d0			Pas de nom
+	bsr	OutLong
+	move.w	N_Hunks(a5),d1		Le nombre de hunks du programme
+	ext.l	d1
+	move.l	d1,d0
+	bsr	OutLong
+	moveq	#0,d0			Debut=0
+	bsr	OutLong
+	move.l	d1,d0
+	subq.l	#1,d0
+	bsr	OutLong
+	lsl.w	#2,d1			Saute les tailles
+	lea	0(a4,d1.w),a4
+; Fabrique le hunk header
+	moveq	#NH_Header,d1
+	moveq	#Hunk_Public,d2
+	bsr	DebHunk
+	moveq	#5,d0			Header_CLI.Lib
+	cmp.b	#2,Flag_Type(a5)
+	bne.s	.Skip
+	moveq	#6,d0			Header_Backstart.Lib
+.Skip	bsr	Get_ConfigMessage
+	bsr	AddPath
+	moveq	#F_Courant,d0
+	bsr	F_OpenOld
+	beq	Err_DiskError
+	moveq	#F_Courant,d1		Charge le debut
+	move.l	B_Work(a5),d2
+	moveq	#$20+2,d3
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a1
+; Envoie le reste
+	move.l	a4,Ad_HeaderFlags(a5)	Pour la fin
+	moveq	#0,d3
+	move.w	$20(a1),d3
+	bsr	Out_F_Read
+	bsr	F_Close
+	moveq	#NH_Header,d1
+	bsr	FinHunk
+	rts
+
+;	Programme AMOS
+; ~~~~~~~~~~~~~~~~~~~~
+HeaderAMOS
+	moveq	#7,d0			Header_AMOS.AMOS
+	bsr	Get_ConfigMessage
+	bsr	AddPath
+	move.l	Name1(a5),a0
+	lea	B_HeadAMOS(a5),a1	Charge dans le buffer
+	bsr	Load_InBuffer
+	move.l	a0,a1
+; Recopie le header AMOS Professional
+	moveq	#3,d1
+.loop0	move.l	(a1)+,d0
+	bsr	OutLong
+	dbra	d1,.loop0
+	move.l	a4,AA_Long(a5)
+; Recopie en cherchant le SET BUFFER
+.loop1	move.w	(a1)+,d0
+	bsr	OutWord
+	cmp.w	#_TkSBu,d0
+	bne.s	.loop1
+	move.l	a4,AA_SBuf(a5)
+; Cherche maintenant le PROCEDURE
+.loop2	move.w	(a1)+,d0
+	bsr	OutWord
+	cmp.w	#_TkProc,d0
+	bne.s	.loop2
+	move.l	a4,AA_Proc(a5)
+	move.l	(a1)+,d0
+	bsr	OutLong
+	move.l	(a1)+,d0
+	or.w	#%0101000000000000,d0
+	bsr	OutLong
+; Cherche maintenant le CMPCALL
+.loop3	move.w	(a1)+,d0
+	bsr	OutWord
+	cmp.w	#_TkAPCmp,d0
+	bne.s	.loop3
+; Sort des zeros
+	move.l	a4,AA_Header(a5)
+	moveq	#APrg_Program/2-1,d1
+.Loop	moveq	#0,d0
+	bsr	OutWord
+	dbra	d1,.Loop
+; Debut du programme proprement dit!
+	lea	B_HeadAMOS(a5),a0
+	bsr	Buffer_Free
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	APPEL DES ROUTINES D'INIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+CreeInits
+	cmp.b	#3,Flag_Type(a5)
+	beq.s	.AMOS
+	tst.b	Flag_Numbers(a5)
+	beq.s	.Skip
+	move.w	#L_CmpDbMode,d0		Appel de la routine debug
+	bsr	Do_JsrLibrary
+.Skip	lea	.Code(pc),a0
+	bsr	OutCode
+	move.w	Cjsr(pc),d0		Fait un JSR aux routines
+	bsr	OutWord
+	move.l	a4,Ad_JsrInits(a5)	Adresse du jsr
+	bsr	Relocation		...mises apres la compilation!
+	addq.l	#4,a4
+	moveq	#L_CmpInit2,d0		Appelle la deuxieme routine
+	bsr	Do_JsrLibrary
+	rts
+.Code	move.l	sp,Cmp_LowPile(a5)
+	move.l	sp,Cmp_LowPileP(a5)
+	dc.w	$4321
+; Initialisation AMOS
+; ~~~~~~~~~~~~~~~~~~~
+.AMOS	move.w	Cleaa4(pc),d0		Charge le pointeur sur librairies
+	bsr	OutWord
+	move.l	a4,AA_A4(a5)
+	bsr	Relocation
+	moveq	#0,d0
+	bsr	OutLong
+	move.w	#L_AMOSInit,d0		Jsr	AMOSInit(a4)
+	bsr	Do_JsrLibrary
+	lea	.Code(pc),a0		Sauve les piles
+	bsr	OutCode
+	rts
+
+;	Termine les initialisations
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FiniInits
+	cmp.b	#3,Flag_Type(a5)	Pas si programme AMOS
+	bne.s	.CLI
+	rts
+; Programme CLI
+; ~~~~~~~~~~~~~
+.CLI	move.l	a4,Ad_Inits(a5)
+	move.w	Cmvid0(pc),d0		Longueur du stack
+	bsr	OutWord
+	move.l	L_Stack(a5),d0
+	bsr	OutLong
+	move.w	Cmvid1(pc),d0		Longueur du buffer
+	bsr	OutWord
+	move.l	L_Buf(a5),d0
+	mulu	#1024,d0
+	add.l	#512,d0
+	bsr	OutLong
+	move.w	#L_CmpInit1,d0		Appel de la routine init 1
+	bsr	Do_JsrLibrary
+; Init des routines float / double
+	tst.b	MathFlags(a5)
+	beq.s	.Nomath
+	move.w	Cmvqd0(pc),d0
+	move.b	MathFlags(a5),d0
+	bsr	OutWord
+	move.w	#L_CmpInitFloat,d0
+	bsr	Do_JsrLibrary
+	lea	.CodeF(pc),a0
+	bsr	OutCode
+.Nomath
+; Initialise les extensions
+.Ext	lea	.ECode(pc),a0
+	bsr	OutCode
+	lea	AdTokens+4(a5),a1
+	moveq	#1,d1
+.Loop	move.l	(a1)+,d0
+	beq.s	.Next
+	move.l	d0,a0
+	btst	#LBF_AlwaysInit,LB_Flags(a0)
+	bne.s	.Yes
+	btst	#LBF_Called,LB_Flags(a0)
+	beq.s	.Next
+.Yes	move.w	Cmvqd0(pc),d0		moveq	#Extension,d0
+	move.b	d1,d0
+	subq.b	#1,d0
+	bsr	OutWord
+	moveq	#0,d0			lea	Routine,a0
+	bsr	Do_LeaExtLibrary
+	move.w	#L_CmpLibrariesInit,d0
+	bsr	Do_JsrLibrary		bsr	Init
+	lea	.CodeF(pc),a0
+	bsr	OutCode
+.Next	addq.w	#1,d1
+	cmp.w	#26,d1			Pour les 26 extensions
+	bls.s	.Loop
+.NoExt	lea	.CodeOk(pc),a0		moveq	#0,d0
+	bsr	OutCode			rts
+	rts
+; Ok, pas de probleme
+; ~~~~~~~~~~~~~~~~~~~
+.CodeOk	moveq	#0,d0
+	rts
+; Verification init extension / float
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.CodeF	beq.s	.Blip
+	rts
+.Blip	dc.w	$4321
+.ECode	moveq	#26-1,d0
+.ELoop	tst.b	AdTokens(a5,d0.w)
+	beq.s	.ESkip
+	addq.b	#1,AdTokens(a5,d0.w)
+.ESkip	dbra	d0,.ELoop
+	dc.w	$4321
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Entree Programme / Procedure
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	ROUTINE: Entree programme/procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PrgIn	move.l	a4,AdAdress(a5)
+
+	move.w	Cmvid0(pc),d0		D0= labels
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+	move.w	Cleaa0(pc),d0		A0= liste instructions
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+	move.w	Cleaa1(pc),d0		A1= flags variable
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+	move.w	Cleaa2(pc),d0		A2= datas
+	bsr	OutWord
+	bsr	Relocation
+	addq.l	#4,a4
+
+; Initialisation de la table des flags variables
+	move.l	A_FlagVarL(a5),a0
+	clr.w	(a0)+
+	tst.b	MathFlags(a5)		Seulement si FLOAT
+	bpl.s	.Flt
+	move.l	-6(a0),d0		Taille de la table
+	lsr.w	#1,d0
+	subq.w	#3+1,d0
+	moveq	#-1,d1
+.Clear	move.w	d1,(a0)+		Des $FF partout!
+	dbra	d0,.Clear
+.Flt
+	clr.l	A_Datas(a5)
+	clr.w	Cpt_Labels(a5)
+	clr.b	Flag_Procs(a5)
+	clr.w	M_ForNext(a5)
+
+	move.w	#L_PrgInF,d0		Jsr PrgIn
+	add.w	MathType(a5),d0
+	bsr	Do_JsrLibrary
+
+	move.l	B_Instructions(a5),a0	Met l'adresse de base de la procedure
+	move.l	a4,(a0)+		Decalage au debut de la procedure
+	clr.w	(a0)+			Nombre d'instructions
+	move.l	a0,A_Instructions(a5)
+	rts
+
+;	ROUTINE -> Sortie programme/procedures
+;	A0-> flags variables a copier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PrgOut	move.l	a4,-(sp)		Adresse des labels
+	move.l	a0,-(sp)		Adresse des flags
+
+; Copie de la table des labels, s'il faut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	Cpt_Labels(a5)
+	beq.s	PaClb
+	move.w	N_Proc(a5),d7
+	move.l	B_Labels(a5),a2
+	move.w	(a2),d2
+	beq.s	ClbX
+Clb1	cmp.w	-2+6(a2,d2.w),d7
+	beq.s	Clb0
+	tst.b	Flag_Procs(a5)		* Pour le moment PROC a$, interdit!
+	beq.s	Clb3
+	tst.w	-2+6(a2,d2.w)
+	bpl.s	Clb3
+Clb0	move.w	d2,d0
+	bsr	OutWord
+	bsr	Relocation
+	move.l	2(a2),d0
+	bsr	OutLong
+	lea	6(a2),a1
+	move.w	d2,d1
+	lsr.w	#1,d1
+	subq.w	#1,d1
+Clb2	move.w	(a1)+,d0
+	bsr	OutWord
+	dbra	d1,Clb2
+Clb3	lea	6(a2,d2.w),a2
+	move.w	(a2),d2
+	bne.s	Clb1
+ClbX	moveq	#0,d0
+	bsr	OutWord
+	clr.w	Cpt_Labels(a5)
+
+; Copie la table des flags variable
+PaClb	move.l	(sp),a1
+	move.l	a4,(sp)
+	move.w	M_ForNext(a5),d0
+	bsr	OutWord
+	move.w	(a1)+,d0
+	moveq	#0,d1
+	move.w	d0,d1
+	bsr	OutWord
+	divu	#6,d1
+	subq.w	#1,d1
+	bmi.s	.Out
+.Loop	move.b	(a1)+,d0		Si -1: non initialise (double)
+	bmi.s	.Skip
+	bsr	OutByte
+.Skip	dbra	d1,.Loop
+.Out	moveq	#-1,d0			-1 a la fin!
+	bsr	OutByte
+	bsr	A4Pair
+
+; Copie la table des adresses instructions
+	move.l	a4,-(sp)
+	move.l	B_Instructions(a5),a0
+	move.l	(a0)+,d0
+	bsr	OutLong
+	move.w	(a0)+,d0
+	move.w	d0,d1
+	bsr	OutWord
+	bra.s	.Ini
+.Loopi	move.l	(a0)+,d0
+	bsr	OutLong
+.Ini	dbra	d1,.Loopi
+
+; Change les adresses au debut de la procedure
+	move.l	a4,-(sp)
+	move.l	AdAdress(a5),a4
+	addq.l	#2,a4
+	move.l	12(sp),d0		D0- Adresse des labels
+	bsr	OutLong
+	addq.l	#2,a4
+	move.l	4(sp),d0		A0- Adresse des instructions
+	bsr	OutLong
+	addq.l	#2,a4
+	move.l	8(sp),d0		A1- Adresse des flags variable
+	bsr	OutLong
+	addq.l	#2,a4
+	move.l	A_Datas(a5),d0		A2- Adresse des datas
+	bne.s	.Skip3
+	move.l	A_EDatas(a5),d0
+.Skip3	bsr	OutLong
+	move.l	(sp)+,a4
+	lea	12(sp),sp
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ENTREES:  SORTIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+Err_Debug
+	illegal
+	rts
+
+; Diskerrors
+; ~~~~~~~~~~
+Err_DiskError
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOIoErr(a6)
+	cmp.w	#36,$14(a6)		V2.0?
+	bcs.s	.Pa20
+; WB2.0: met l'erreur en clair
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	d0,d1
+	moveq	#44,d0
+	bsr	Get_ConfigMessage
+	move.l	a0,d2
+	move.l	B_Work(a5),a0
+	lea	256(a0),a0
+	move.l	a0,d3
+	moveq	#70,d4
+	jsr	_LVOFault(a6)
+	move.l	(sp)+,a6
+	move.l	d3,a0
+	move.l	#20,-(sp)
+	bra	CmpE3
+; WB1.3: Trois messages reconnus
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Pa20	move.l	(sp)+,a6
+	lea	ErDisk(pc),a0
+	moveq	#-1,d1
+DiE1:	addq.l	#1,d1
+	move.w	(a0)+,d2
+	bmi.s	DiE2
+	cmp.w	d0,d2
+	bne.s	DiE1
+	add.w	#68,d1
+	move.l	d1,d0
+	bra	Cmp_Error
+DiE2:	moveq	#44,d0
+	bra	Cmp_Error
+; Table des erreurs reconnues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ErDisk:	dc.w 	213		Disk is not validated
+	dc.w	214		Disk is write protected
+	dc.w	221		Disk full
+	dc.w	-1
+;	Errors:
+Err_DejaTokenise
+	moveq 	#56,d0
+	bra.s	Cmp_Error
+Err_DoLong
+	moveq	#55,d0
+	bra.s	Cmp_Error
+Err_CantLoadConfig
+	moveq	#63,d0
+	bra.s	Cmp_Error
+Err_CantLoadIntConfig
+	moveq	#62,d0
+	bra.s	Cmp_Error
+Err_CantLoadEditConfig
+	moveq	#61,d0
+	bra.s	Cmp_Error
+Err_BadEditConfig
+	moveq	#50,d0
+	bra.s	Cmp_Error
+Err_InCommand
+	moveq	#40,d0
+	bra.s	Cmp_Error
+Err_InDefCommand
+	moveq	#41,d0
+	bra.s	Cmp_Error
+Err_CantOpenSource
+	moveq	#57,d0
+	bra.s	Cmp_Error
+Err_NotAMOSProgram
+	moveq	#52,d0
+	bra.s	Cmp_Error
+Err_BadIntConfig
+	moveq	#58,d0
+	bra.s	Cmp_Error
+Err_OOfMem
+	moveq	#45,d0
+	bra.s	Cmp_Error
+Err_System
+	moveq	#46,d0
+	bra.s	Cmp_Error
+Err_NoIcons
+	moveq	#43,d0
+	bra.s	Cmp_Error
+Err_CannotFindAPSystem
+	moveq	#59,d0
+	bra.s	Cmp_Error
+Err_LineTooLong
+	moveq	#60,d0
+	bra.s	Cmp_Error
+Err_ExtensionNotLoaded
+	moveq	#42,d0
+	bra.s	Cmp_Error
+Err_CantOpenMathLibraries
+	moveq	#51,d0
+	bra.s	Cmp_Error
+Err_NothingToCompile
+	moveq	#49,d0
+	bra.s	Cmp_Error
+Err_AlreadyCompiled
+	moveq	#54,d0
+	bra.s	Cmp_Error
+Err_NoCode
+	moveq	#47,d0
+	bra.s	Cmp_Error
+Err_ControlC
+	moveq	#48,d0
+	bra.s	Cmp_Error
+Err_Label
+	moveq	#53,d0
+	bra.s	Cmp_Error
+Err_AMOSLib
+	moveq	#67,d0
+	bra.s	Cmp_Error
+Err_BadConfig
+	moveq	#66,d0
+
+; Impression du message d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cmp_Error
+	move.l	d0,-(sp)
+CmpE2	move.l	(sp),d0
+	bsr	Get_ConfigMessage
+CmpE3	move.l	B_Work(a5),a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+	move.l	B_Work(a5),a0
+	move.l	(sp)+,d0
+	moveq	#0,d1			Ne pas pointer de ligne
+	moveq	#0,d2			Rien en D2!
+	bra.s	Go_Error
+; Message d'erreur pointant sur une ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cmp_ErrorNumber
+	move.l	d0,-(sp)
+	bsr	FindL
+	bmi.s	CmpE2
+	move.l	d0,d2
+	move.l	(sp),d0
+	bsr	Get_ConfigMessage
+	move.l	d2,d0
+	bsr	Cree_ErrorMessageNumber
+	move.l	B_Work(a5),a0
+	move.l	(sp)+,d0
+	moveq	#-1,d1			Pointer la ligne D2
+; Envoie le message d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Go_Error
+	movem.l	a0/d0/d1/d2,-(sp)
+	bsr	Return			Imprime
+	move.l	3*4(sp),a0
+	bsr	Str_Print
+	bsr	Return
+	bsr	Return
+	movem.l	(sp)+,a0/d0/d1/d2
+	tst.b	Flag_AMOS(a5)
+	bne	TheEnd
+	moveq	#20,d0			Si CLI, error level=20
+	bra	TheEnd
+
+;	Erreurs avec numero de ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Err_Syntax
+	moveq	#48,d0
+	bra	Cmp_ErrorNumber
+Err_DivisionByZero
+	moveq	#64,d0
+	bra.s	Cmp_ErrorNumber
+Err_Overflow
+	moveq	#43,d0
+	bra.s	Cmp_ErrorNumber
+
+
+; 	Cree le message d'erreur A0 en ligne D0 dans B_Work
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cree_ErrorMessageNumber
+	move.l	d0,-(sp)
+	move.l	B_Work(a5),a1
+.Copy1	move.b	(a0)+,(a1)+		Copie
+	bne.s	.Copy1
+	subq.l	#1,a1
+	moveq	#34,d0			At line
+	bsr	Get_ConfigMessage
+.Copy2	move.b	(a0)+,(a1)+
+	bne.s	.Copy2
+	lea	-1(a1),a0
+	move.l	(sp),d0			Numero de la ligne
+	addq.l	#1,d0			+ 1!
+	bsr	longdec
+	clr.b	(a0)
+	move.l	(sp)+,d0
+	rts
+
+;	Trouve le num�ro de la ligne pointee par A6->D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FindL	move.l	a6,d2
+	lea	20,a6
+	moveq	#0,d1
+.Loop0	addq.l	#1,d1
+	bsr	GetWord
+	lsr.w	#8,d0
+	beq.s	.Loop2
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a6
+	cmp.l	d2,a6
+	bcs.s	.Loop0
+.Loop1	move.l	d1,d0
+	rts
+.Loop2	moveq	#-1,d0
+	rts
+
+;	Imprime les messages D0 a D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mes_MPrint
+	bsr	Mes_Print
+	beq.s	.Skip
+	bsr	Return
+.Skip	addq.w	#1,d0
+	cmp.w	d1,d0
+	bls.s	Mes_MPrint
+	rts
+;	Imprime le message D0 / Niveau D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mes_Print
+	tst.b	Flag_Quiet(a5)
+	beq.s	.Print
+	rts
+.Print	movem.l	a0-a1/d0-d1,-(sp)
+	bsr	Get_ConfigMessage
+	tst.b	(a0)
+	beq.s	.Out
+	bsr	Str_Print
+	moveq	#1,d0
+.Out	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+
+;	Imprime la chaine A0 (finie par 0) sur l'output standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Str_Print
+	tst.b	Flag_Quiet(a5)
+	beq.s	.Print
+	rts
+.Print	movem.l	a0-a6/d0-d7,-(sp)
+	tst.b	Flag_AMOS(a5)
+	bne.s	.AMOSPrint
+	bsr	Cpt_Chaine
+	move.l	d0,d3
+	move.l	a0,d2
+	move.l	DosBase(a5),a6
+	jsr	_LVOOutput(a6)
+	move.l	d0,d1
+	jsr	_LVOWrite(a6)
+	bra.s	.Out
+; Imprime le message dans la fenetre AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.AMOSPrint
+	move.l	AMOS_Dz(a5),a5
+	tst.w	Direct(a5)
+	bne.s	.Dir
+.Norm	tst.w	ScOn(a5)		Mode programme
+	beq.s	.Out
+	move.l	a0,a1
+	WiCall	Print
+	bra.s	.Out
+.Dir	tst.b	Esc_Output(a5)		Mode direct > ESC / Normal
+	beq.s	.Norm
+	move.l	a0,-(sp)
+	EcCalD	Active,EcEdit
+        move.l	(sp)+,a1
+	WiCall	Print
+	move.w	ScOn(a5),d1
+	beq.s	.Out
+	subq.w	#1,d1
+	EcCall	Active
+.Out	movem.l	(sp)+,a0-a6/d0-d7
+	rts
+
+; 	Impression des messages d'info A0/D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Info_Print
+	movem.l	a0-a2/d0-d2,-(sp)
+	move.l	B_Work(a5),a1
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+	lea	-1(a1),a0
+	bsr	longdec
+	move.b	#10,(a0)+
+	move.b	#13,(a0)+
+	clr.b	(a0)
+	move.l	B_Work(a5),a0
+	bsr	Str_Print
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+;	Print un chiffre!
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Digit	movem.l	d1-d7/a0-a2,-(sp)
+	move.l	B_Work(a5),a0
+	bsr	longdec
+	clr.b	(a0)
+	move.l	B_Work(a5),a0
+	bsr	Str_Print
+	movem.l	(sp)+,d1-d7/a0-a2
+	rts
+
+;	Retour chariot
+; ~~~~~~~~~~~~~~~~~~~~
+Return	lea	Mes_Return(pc),a0
+	bra	Str_Print
+
+;	Compte la longueur de la chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cpt_Chaine
+	move.l	a1,-(sp)
+	move.l	a0,a1
+.Loop	tst.b	(a1)+
+	bne.s	.Loop
+	sub.l	a0,a1
+	subq.l	#1,a1
+	move.l	a1,d0
+	move.l	(sp)+,a1
+	rts
+
+;	Choisit la chaine CLI ou AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AMOSouCLI
+	tst.b	Flag_AMOS(a5)
+	bne.s	.Out
+.Loop	tst.b	(a0)+
+	bne.s	.Loop
+.Out	rts
+
+;	Transforme les "/" en retour chariot / Copie la chaine >>> Buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;Add_Return
+;	move.l	a1,-(sp)
+;	move.l	B_Work(a5),a1
+;.Loop	move.b	(a0)+,d0
+;	beq.s	.Cpt
+;	cmp.b	#"\",d0
+;	beq.s	.Ret
+;	move.b	d0,(a1)+
+;	bne.s	.Loop
+;	bra.s	.Cpt
+;.Ret	tst.b	Flag_AMOS(a5)
+;	beq.s	.Skip
+;	move.b	#13,(a1)+
+;.Skip	move.b	#10,(a1)+
+;.Cpt	move.l	a1,d0
+;	clr.b	(a1)+
+;	move.l	B_Work(a5),a0
+;	sub.l	a0,d0
+;	move.l	(sp)+,a1
+;	rts
+
+; CONVERSION HEXA--->DECIMAL SUR QUATRE OCTETS
+longdec1: move #-1,d3         ;proportionnel
+          moveq #1,d4         ;avec signe
+          bra.s longent
+longdec:  clr.l d4            ;proportionnel, sans espace si positif!
+          move.l #-1,d3
+; conversion proprement dite: LONG-->ENTIER
+longent:  move.l a1,-(sp)
+	  tst.l d0            ;test du signe!
+          bpl.s hexy
+          move.b #"-",(a0)+
+          neg.l d0
+          bra.s hexz
+hexy:     tst d4
+          beq.s hexz
+          move.b #32,(a0)+
+hexz:     tst.l d3
+          bmi.s hexv
+          neg.l d3
+          add.l #10,d3
+hexv:     move.l #9,d4
+          lea multdix(pc),a1
+hxx0:     move.l (a1)+,d1     ;table des multiples de dix
+          move.b #$ff,d2
+hxx1:     addq.b #1,d2
+          sub.l d1,d0
+          bcc.s hxx1
+          add.l d1,d0
+          tst.l d3
+          beq.s hxx4
+          bpl.s hxx3
+          btst #31,d4
+          bne.s hxx4
+          tst d4
+          beq.s hxx4
+          tst.b d2
+          beq.s hxx5
+          bset #31,d4
+          bra.s hxx4
+hxx3:     subq.l #1,d3
+          bra.s hxx5
+hxx4:     add #48,d2
+          move.b d2,(a0)+
+hxx5:     dbra d4,hxx0
+	  move.l (sp)+,a1
+          rts
+* TABLE DES MULTIPLES DE DIX
+multdix:  dc.l 1000000000,100000000,10000000,1000000
+          dc.l 100000,10000,1000,100,10,1,0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	OUVERTURE / TOKENISATION / TEST du source
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Open_Source
+; - - - - - - - - - - - - -
+	clr.b	MathFlags(a5)		Pas de float par defaut
+; Affichage
+; ~~~~~~~~~
+	moveq	#28,d0			Opening source...
+	bsr	Mes_Print
+	move.l	Path_Source(a5),a0
+	bsr	Str_Print
+	bsr	Return
+
+; Charge le debut du source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#F_Source,d0
+	move.l	Path_Source(a5),d1
+	bsr	F_OpenOldD1
+	beq	Err_CantOpenSource
+	moveq	#F_Source,d1
+	bsr	F_Lof
+	move.l	d0,L_Source(a5)
+	move.l	#256,d3
+	cmp.l	d3,d0
+	bcc.s	.Long
+	move.l	d0,d3
+.Long	move.l	d3,d7			D7= longueur chargee
+	move.l	B_Work(a5),d2
+	moveq	#F_Source,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	moveq	#0,d2
+	moveq	#-1,d3
+	bsr	F_Seek
+	move.l	B_Work(a5),d2
+; Un header AMOS?
+	move.l 	d2,a0
+        lea 	Head_AMOS(pc),a1
+        moveq 	#10-1,d0
+.Loop1 	cmpm.b 	(a0)+,(a1)+
+        bne.s	.Skip1
+        dbra 	d0,.Loop1
+	bra.s	.Test
+; Un header AMOSPro?
+.Skip1	move.l	d2,a0
+        lea 	Head_AMOSPro(pc),a1
+        moveq 	#8-1,d0
+.Loop2 	cmpm.b 	(a0)+,(a1)+
+        bne.s	.NoHeader
+        dbra 	d0,.Loop2
+	move.l	d2,a1			Prend le flag maths...
+	move.b	15(a1),MathFlags(a5)
+; Un header AMOS, teste ou pas?
+.Test	tst.b	Flag_Tokeniser(a5)
+	bne	Err_DejaTokenise
+	move.l	d2,a0
+	move.l	16(a0),d0		Longueur du source
+	add.l	#20,d0
+	move.l	d0,End_Source(a5)
+	move.l	d0,A_Banks(a5)
+	cmp.b	#"V",11(a0)		Programme teste?
+	bne	Source_Test
+	bra	Source_OK
+; Pas de header AMOS, est-ce un programme en ascii?
+.NoHeader
+	tst.b	Flag_Tokeniser(a5)
+	bne	Source_Tokenise
+	subq.w	#1,d7			Les 255 1ers caracteres
+	move.l	B_Work(a5),a0
+.Loop3	move.b	(a0)+,d1
+	cmp.b	#32,d1
+	bcc.s	.Asc
+	cmp.b	#10,d1
+	beq.s	.Asc
+	cmp.b	#13,d1
+	beq.s	.Asc
+	cmp.b	#9,d1
+	bne	Err_NotAMOSProgram
+.Asc	dbra	d7,.Loop3
+	bra	Source_Tokenise
+
+;	Programme teste, sur disque, on peut eventuellement en direct to disc
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Source_OK
+	bsr	Compile_Reserve		Reserve les buffers de compilation
+; Essaie d'abord en ram, charge tout d'un coup...
+	clr.b	Flag_Source(a5)
+	bsr	Load_AllSource
+	bne.s	.Out
+; On ne pas en ram, peut-on sur disque?
+	tst.b	Flag_Numbers(a5)	Pas si mode number
+	bne	Err_OOfMem
+; Petit buffer d'entree: charge le debut
+	addq.b	#1,Flag_Source(a5)
+	tst.b	Flag_Infos(a5)		Des infos?
+	beq.s	.Noinfo
+	lea	Debug_SDisc(pc),a0	Un signal si disc!
+	bsr	Str_Print
+.Noinfo	move.l	MaxBso(a5),d0
+	lea	B_Source(a5),a0
+	bsr	Buffer_Reserve
+; Charge le premier buffer
+        clr.l 	DebBso(a5)
+	move.l	L_Source(a5),TopSou(a5)
+        move.l 	MaxBso(a5),FinBso(a5)
+        bsr 	LoadBso
+; Charge le nombre de banques
+	move.l	End_Source(a5),d2
+	moveq	#F_Source,d1
+	moveq	#-1,d3			Seek a partir du debut
+	bsr	F_Seek
+	move.l	B_Work(a5),d2
+	moveq	#6,d3
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a2
+	move.w	4(a2),N_Banks(a5)
+; Ok, on peut continuer...
+.Out	rts
+
+;	Ferme le source
+; ~~~~~~~~~~~~~~~~~~~~~
+Close_Source
+	lea	B_Source(a5),a0
+	bsr	Buffer_Free
+	lea	Prg_FullSource(a5),a0
+	bsr	Buffer_Free
+	moveq	#F_Source,d1
+	bsr	F_Close
+	rts
+
+;	Charge tout le source en RAM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Load_AllSource
+	move.l	L_Source(a5),d3		Longueur source
+	move.l	d3,d0
+	lea	B_Source(a5),a0		Essaie de charger le source
+	bsr	Buffer_ReserveNoError
+	beq.s	.Err
+	moveq	#F_Source,d1
+	move.l	a0,d2
+	bsr	F_Read
+	bne	Err_DiskError
+; Marque la fin du programme
+	move.l	d2,a2
+	move.l	16(a2),d0			Taille du programme
+	add.l	#20,d0
+	move.l	d0,A_Banks(a5)			= Adresse des banques
+	move.l	d0,End_Source(a5)		= Fin du source
+	clr.l	0(a2,d0.l)			Met un zero
+	move.w	4(a2,d0.l),N_Banks(a5)		Nombre de banques
+	moveq	#-1,d0
+.Err	rts
+
+;	CHARGEMENT + TEST DU PROGRAMME EN RAM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Source_Test
+	clr.b	Flag_Source(a5)			Source en RAM!
+	bsr	Load_AllSource			Charge le programme
+	beq	Err_OOfMem			Toujours en RAM
+;	Charge les routines de test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#21,d0
+	bsr	Mes_Print
+	bsr	Return
+	move.l	B_Source(a5),Prg_Source(a5)
+	add.l	#20,Prg_Source(a5)		Saute le header
+	bsr	Test_Load
+	bsr	Test_Init
+	bsr	Test_Test
+	tst.l	d0
+	bne	Test_Error
+; Pas d'erreur!
+; ~~~~~~~~~~~~~
+	tst.l	Prg_FullSource(a5)		Si des includes
+	beq.s	.NoIncludes
+	move.b	#-1,Flag_Source(a5)		Source en INCLUDE!
+	move.l	#$7fffffff,End_Source(a5)	Fin du source!
+.NoIncludes
+	bsr	Test_Fin			Efface tout
+	bsr	Test_Free
+	bsr	Compile_Reserve			Reserve les buffers de tokenisation
+	rts
+
+; Des erreurs!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Test_Error
+	addq.l	#1,d1			Ligne=Ligne+1
+	movem.l	d0/d1/a0,-(sp)
+	bsr	Test_Fin
+	tst.b	Flag_AMOS(a5)
+	beq.s	.Load
+	tst.l	Ed_TstMessages(a5)
+	bne.s	.Cree
+; Charge les messages d'erreur de la configuration editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Load	bsr	Open_EditConfig
+	bsr	Skip_EditChunk		Saute les chaines systeme
+	bsr	Skip_EditChunk		Saute les menus
+	bsr	Skip_EditChunk		Saute les messages editeur
+	lea	B_EditMessages1(a5),a0
+	bsr	Load_EditChunk		Charge les messages!
+	move.l	B_EditMessages1(a5),Ed_TstMessages(a5)
+	moveq	#F_Courant,d1
+	bsr	F_Close
+; Cree le message d'erreur dans le buffer B_WORK
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Cree	move.l	(sp),d0
+	move.l	Ed_TstMessages(a5),a0
+	bsr	Get_Message
+	move.l	4(sp),d0
+	bsr	Cree_ErrorMessageNumber
+	move.b	#":",(a0)+
+	move.b	#" ",(a0)+
+	clr.b	(a0)
+; Cree la ligne avec le pointer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a0,-(sp)
+	lea	B_Temporaire(a5),a0
+	move.l	#512,d0
+	bsr	Buffer_Reserve
+	move.l	a0,a1
+	move.l	VerPos(a5),d0
+	move.l	12(sp),a0
+	bsr	Test_Detok
+	move.w	d0,d3
+	move.l	(sp)+,a1
+	lea	Err_Pointer0(pc),a0
+	bsr	AMOSouCLI
+	bsr	.Copy
+	move.l	B_Temporaire(a5),a3	Fabrique la ligne
+	move.w	(a3)+,d2
+	clr.b	0(a3,d2.w)
+	moveq	#30,d4
+	add.w	d3,d4
+	clr.b	0(a3,d4.w)
+	sub.w	#43,d4
+	bpl.s	.S1
+	moveq	#0,d4
+.S1	move.b	0(a3,d3.w),d2
+	clr.b	0(a3,d3.w)
+	lea	0(a3,d4.w),a0
+	bsr	.Copy
+	lea	Err_Pointer1(pc),a0
+	bsr	AMOSouCLI
+	bsr	.Copy
+	lea	0(a3,d3.w),a0
+	move.b	d2,(a0)
+	bsr	.Copy
+	lea	Err_Pointer2(pc),a0
+	bsr	AMOSouCLI
+	bsr	.Copy
+; Efface les routines de test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Test_Free
+; Fini le compilateur!
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	B_Work(a5),a0		Message
+	move.l	(sp),d0			Numero error message
+	moveq	#-1,d1			Pointer la ligne
+	move.l	4(sp),d2		Numero ligne
+	lea	12(sp),sp
+	bra	Go_Error
+; Routine de copie
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+	subq.l	#1,a1
+	rts
+
+
+;	ROUTINES GESTION TESTING
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Test_Load
+	tst.l	B_RTest(a5)		Deja charge?
+	bne.s	.Skip
+	lea	Routines_Test(pc),a0
+	lea	B_RTest(a5),a1
+	bsr	Load_Routines		Charge!
+.Skip	rts
+Test_Init
+	move.l	B_RTest(a5),a0
+	jmp	(a0)
+Test_Test
+	bsr	Ver_Verif
+	move.l	B_RTest(a5),a0
+	jsr	4(a0)
+	movem.l	d0-d1/a0-a1,-(sp)
+	bsr	Ver_Run
+	movem.l	(sp)+,d0-d1/a0-a1
+	rts
+Test_Fin
+	move.l	B_RTest(a5),a0
+	jmp	8(a0)
+Test_Detok
+	move.l	B_RTest(a5),a2
+	jmp	12(a2)
+Test_Free
+	lea	B_RTest(a5),a0		Enleve le buffer
+	bsr	Buffer_Free
+	moveq	#0,d0			Recalcule les offsets
+	bsr	Library_Offsets
+	rts
+
+; 	Tokenisation du programme RAM >>> DISK
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Source_Tokenise
+; Message
+	moveq	#20,d0			Opening source...
+	bsr	Mes_Print
+	bsr	Return
+; Ouvre le tokenisateur
+	bsr	Token_Load		Charge les routines
+	bsr	Token_Init		Reserve les buffers
+; Charge le source dans un buffer en RAM
+	move.l	L_Source(a5),d0
+	move.l	d0,d3
+	addq.l	#8,d0
+	lea	B_Source(a5),a0
+	bsr	Buffer_Reserve
+	move.l	a0,d2
+	moveq	#F_Source,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a0
+	add.l	d3,a0
+	clr.b	(a0)
+	moveq	#F_Source,d1
+	bsr	F_Close
+; Ouvre le programme objet sur disque
+	move.l	Path_Source(a5),a0
+	bsr	Extract_DiskName
+	move.l	Name1(a5),a2		Copie en NAME1
+	move.l	Path_Temporaire(a5),a1
+	tst.b	(a1)			Si un path pour les fichiers TEMP
+	beq.s	.Patmp
+.Copy1	move.b	(a1)+,(a2)+		Copie le path
+	bne.s	.Copy1
+	subq.l	#1,a2
+	move.l	a0,a1			Puis met le nom
+	bra.s	.Copy2
+.Patmp	move.l	Path_Source(a5),a1	Sinon path complet
+.Copy2	cmp.l	d0,a1			Copie le nom
+	beq.s	.LaFin
+	move.b	(a1)+,(a2)+
+	bne.s	.Copy2
+	subq.l	#1,a2
+.LaFin	lea	Point_AMOS(pc),a1
+.Copy3	move.b	(a1)+,(a2)+
+	bne.s	.Copy3
+	move.l	Name1(a5),a0		A deleter au cas ou ca ne marche pas
+	bsr	Add_DeleteList
+; Ouvre le fichier objet
+	moveq	#F_Courant,d0
+	bsr	F_OpenNew
+	beq	Err_DiskError
+	lea	Prog_Header(pc),a0	Sort le header de programme AMOS
+	move.l	a0,d2
+	moveq	#20,d3
+	moveq	#F_Courant,d1
+	bsr	F_Write
+	bne	Err_DiskError
+; Boucle de tokenisation!
+	clr.b	MathFlags(a5)		Pas de maths
+	move.l	B_Source(a5),a0
+	move.l	a0,d2
+	add.l	L_Source(a5),d2
+	moveq	#0,d4			Longueur du source
+.TLoop	cmp.l	d2,a0
+	bcc.s	.TExit
+	move.l	a0,a1
+.Zero	move.b	(a1)+,d0
+	cmp.b	#32,d0
+	bcc.s	.Zero
+	cmp.b	#13,d0
+	beq.s	.Z
+	cmp.b	#10,d0
+	beq.s	.F
+	cmp.b	#9,d0
+	beq.s	.Zero
+	cmp.l	d2,a1
+	bcc.s	.F
+	bra	Err_NotAMOSProgram
+.Z	move.b	#" ",-1(a1)
+	bra.s	.Zero
+.F	clr.b	-1(a1)
+	move.l	Ed_BufT(a5),a1		Va tokeniser
+	move.l	B_RToken(a5),a2
+	jsr	(a2)
+	bmi	Err_LineTooLong
+	movem.l	a0/d2,-(sp)		Sauve la ligne tokenisee...
+	moveq	#F_Courant,d1
+	move.l	a1,d2
+	moveq	#0,d3
+	move.b	(a1),d3
+	lsl.w	#1,d3
+	add.l	d3,d4
+	bsr	F_Write
+	bne	Err_DiskError
+	movem.l	(sp)+,a0/d2
+	bra.s	.TLoop
+; Ferme le fichier
+.TExit	lea	Prog_Finish(pc),a0	Met AMBs00 a la fin
+	move.l	a0,d2
+	moveq	#6,d3
+	moveq	#F_Courant,d1
+	bsr	F_Write
+	bne	Err_DiskError
+	moveq	#0,d2			Pointe le debut
+	moveq	#-1,d3
+	bsr	F_Seek
+	lea	Prog_Header(pc),a0	Sauve le header avec les
+	move.l	a0,d2			bonnes valeurs
+	move.l	d4,16(a0)
+	move.b	MathFlags(a5),15(a0)
+	moveq	#20,d3
+	bsr	F_Write
+	bsr	F_Close
+	add.l	#20+6,d4		Poke la longueur pour la suite
+	move.l	d4,L_Source(a5)
+; Name1 >>> Path_Source
+	move.l	Name1(a5),a0
+	move.l	Path_Source(a5),a1
+	bsr	CopName
+; Fin de la tokenisation
+	bsr	Token_End		Efface les buffers
+	bsr	Token_Remove		Enleve les routines
+	tst.b	Flag_Tokeniser(a5)	Garder le fichier tokenise?
+	bne.s	.Garder
+	moveq	#F_Source,d0		Re-ouvre le source
+	move.l	Path_Source(a5),d1
+	bsr	F_OpenOldD1
+	bne	Source_Test		Branche au test!
+	bra	Err_DiskError
+; On est en mode tokenisateur: garder et quitter
+.Garder	bsr	Sub_DeleteList		Enleve de la delete-list!
+	bra	TheEndOk
+
+;	Charge les routines de tokenisation + Init
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Token_Load
+	tst.l	B_RToken(a5)		Deja charge?
+	bne.s	.Skip
+	lea	Routines_Token(pc),a0
+	lea	B_RToken(a5),a1
+	bsr	Load_Routines		Charge!
+.Skip	rts
+Token_Init
+	move.l	B_RToken(a5),a0
+	jsr	4(a0)			Init des tables de tokenisation
+	bne	Err_OOfMem
+	rts
+Token_End
+	move.l	B_RToken(a5),a0
+	jsr	8(a0)			Init des tables de tokenisation
+	bne	Err_OOfMem
+	rts
+Token_Remove
+	lea	B_RToken(a5),a0		Enleve le buffer
+	bsr	Buffer_Free
+	moveq	#0,d0			Recalcule les offsets
+	bsr	Library_Offsets
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION DE L'ENTREE DU PROGRAMME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;-----> Prend un MOT du programme (A6)
+GetWord:tst.b 	Flag_Source(a5)
+        bne.s 	.Disk
+	add.l	B_Source(a5),a6
+        move.w 	(a6)+,d0
+	sub.l	B_Source(a5),a6
+        rts
+; Sur disque
+.Disk	bmi.s	.Inclu
+	move.l 	a0,-(sp)
+        bsr 	SoDisk
+        move.w 	(a0),d0
+        addq.l 	#2,a6
+        move.l 	(sp)+,a0
+        rts
+; Dans les includes!
+.Inclu	add.l	Prg_FullSource(a5),a6
+        move.w 	(a6)+,d0
+	sub.l	Prg_FullSource(a5),a6
+        rts
+
+;-----> Prend un MOTLONG du programme (A6)
+GetLong:tst.b 	Flag_Source(a5)
+        bne.s 	.Disk
+	add.l	B_Source(a5),a6
+	move.l	(a6)+,d0
+	sub.l	B_Source(a5),a6
+	rts
+; Sur disque?
+.Disk	bmi.s	.Inclu
+	move.l 	a0,-(sp)
+        bsr 	SoDisk
+        move.l 	(a0),d0
+        addq.l 	#4,a6
+        move.l 	(sp)+,a0
+        rts
+; Dans les includes!
+.Inclu	add.l	Prg_FullSource(a5),a6
+        move.l 	(a6)+,d0
+	sub.l	Prg_FullSource(a5),a6
+        rts
+
+;-----> Gestion du buffer entree SOURCE
+SoDisk: cmp.l 	DebBso(a5),a6
+        bcs.s 	SoDi1
+        lea 	4(a6),a0
+        cmp.l 	FinBso(a5),a0
+        bcc.s 	SoDi1
+; Adresse RELATIVE dans le buffer
+        move.l 	a6,a0
+        sub.l 	DebBso(a5),a0
+        add.l 	B_Source(a5),a0
+        rts
+; Change la position du buffer
+SoDi1:  movem.l d0-d7/a1,-(sp)
+; Bouge le bout
+        move.l 	DebBso(a5),d0
+        move.l 	FinBso(a5),d1
+        move.l 	MaxBso(a5),d2
+        sub.l 	BordBso(a5),d2
+        lea 	4(a6),a0
+SoDi3:  cmp.l 	d0,a6
+        bcs.s 	SoDi4
+        cmp.l 	d1,a0
+        bcs.s 	SoDi5
+; Monte le buffer
+        add.l 	d2,d0
+        add.l 	d2,d1
+        bra.s 	SoDi3
+; Descend le buffer
+SoDi4:  sub.l 	d2,d0
+        sub.l 	d2,d1
+        bra.s 	SoDi3
+SoDi5:  move.l 	d0,DebBso(a5)
+        move.l 	d1,FinBso(a5)
+        bsr 	LoadBso
+; Trouve l'adresse relative
+        movem.l (sp)+,d0-d7/a1
+        move.l 	a6,a0
+        sub.l 	DebBso(a5),a0
+        add.l 	B_Source(a5),a0
+        rts
+
+;-----> Charge le buffer SOURCE
+LoadBso:moveq 	#F_Source,d1
+	move.l	DebBso(a5),d2
+	moveq	#-1,d3
+        bsr 	F_Seek
+; Sauve l'ancien
+	moveq	#F_Source,d1
+        move.l 	B_Source(a5),d2
+        move.l	TopSou(a5),d3
+        sub.l 	DebBso(a5),d3
+        cmp.l 	MaxBso(a5),d3
+        bcs.s 	SoDi2
+        move.l 	FinBso(a5),d3
+        sub.l 	DebBso(a5),d3
+SoDi2:  bsr 	F_Read
+	bne	Err_DiskError
+	rts
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION DU PROGRAMME OBJET
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ouverture du programme objet
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Open_Objet
+; Ouvre TOUJOURS en m�moire: reserve le 1er buffer
+	move.l	#L_Bob,d0
+	add.l	#16,d0
+	lea	BB_Objet_Base(a5),a0
+	bsr	Buffer_Reserve
+	move.l	a0,BB_Objet(a5)
+	move.l	#L_Bob,4(a0)
+	rts
+
+;; Ancienne ouverture directe sur disque
+;.Disc	move.l	Path_Objet(a5),d1	Ouvre le fichier
+;	moveq	#F_Objet,d0
+;	bsr	F_OpenNewD1
+;	beq	Err_DiskError
+;	move.l	Path_Objet(a5),a0	Additionne a la delete list
+;	bsr	Add_DeleteList
+
+Reserve_DiscObjet
+	move.l	#L_Bob,d0
+	lea	B_Objet(a5),a0
+	bsr	Buffer_Reserve
+	clr.l	DebBob(a5)
+	move.l	#L_Bob,FinBob(a5)
+	clr.l	TopOb(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Efface tous les buffers objets
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Free_Objet
+	move.l	BB_Objet_Base(a5),d3
+	beq.s	.skip
+.loop	move.l	d3,a1
+	move.l	8(a1),d3
+	move.l	-(a1),d0
+	bsr	RamFree
+	tst.l	d3
+	bne.s	.loop
+	clr.l	BB_Objet_Base(a5)
+.skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Sauve/Ferme le programme objet
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Close_Objet
+	moveq	#29,d0				Closing object
+	bsr	Mes_Print
+	move.l	Path_Objet(a5),a0
+	bsr	Str_Print
+	bsr	Return
+	tst.b	Flag_Objet(a5)
+	bne.s	SObj1
+; En memoire, sauve tous les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Save_Objet
+	bra.s	SObj2
+; Sur disque: sauve le dernier buffer!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SObj1	bsr	SaveBob
+; Ferme le fichier
+SObj2	moveq	#F_Objet,d1
+	bsr	F_Close
+	bsr	Sub_DeleteList		Enleve le nom de la delete list
+	rts
+
+; 	Ouvre et sauve tous les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Save_Objet
+	move.l	Path_Objet(a5),d1		Ouvre le fichier
+	moveq	#F_Objet,d0
+	bsr	F_OpenNewD1
+	beq	Err_DiskError
+	move.l	Path_Objet(a5),a0		Sur la delete list
+	bsr	Add_DeleteList
+	move.l	BB_Objet_Base(a5),d4
+.loop	move.l	d4,a0
+	move.l	(a0)+,d0
+	move.l	(a0)+,d3
+	move.l	(a0)+,d4
+	move.l	a0,d2
+	add.l	d3,d0
+	cmp.l	L_Objet(a5),d0
+	bls.s	.loop1
+	sub.l	L_Objet(a5),d0
+	sub.l	d0,d3
+	beq.s	SObj2
+.loop1	moveq	#F_Objet,d1
+	bsr	F_Write
+	bne	Err_DiskError
+.loop2	tst.l	d4
+	bne.s	.loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FABRICATION DES HUNKS PROGRAMMES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Reserve la place pour mettre les hunks
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ResHunk	cmp.b	#3,Flag_Type(a5)
+	bne.s	.Hunk
+	rts
+.Hunk	move.w	N_Hunks(a5),d0
+	ext.l	d0
+	lsl.l	#3,d0
+	lea	B_Hunks(a5),a0
+	bsr	Buffer_Reserve
+	rts
+
+;	Debut HUNK D1, type D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DebHunk	cmp.b	#3,Flag_Type(a5)
+	beq.s	A4_Pair
+	movem.l	d0-d2/a0-a1,-(sp)
+	move.l	#$3E9,d0
+	or.l	d2,d0
+	bsr	OutLong
+	moveq	#0,d0
+	bsr	OutLong
+	lsl.w	#3,d1
+	move.l	B_Hunks(a5),a1
+	move.l	a4,0(a1,d1.w)
+	move.l	d2,4(a1,d1.w)
+	movem.l	(sp)+,d0-d2/a0-a1
+	rts
+
+;	Fin d'un hunk
+; ~~~~~~~~~~~~~~~~~~~
+FinHunk	cmp.b	#3,Flag_Type(a5)
+	bne.s	FHu0
+; Si AMOS, rend pair...
+A4_Pair	move.w	a4,d0
+	and.w	#$0001,d0
+	add.w	d0,a4
+	rts
+; Fait le HUNK
+FHu0	movem.l	d0-d2/a0-a1,-(sp)
+	lsl.w	#3,d1
+	move.l	B_Hunks(a5),a1
+	move.l	a4,d0
+	sub.l	0(a1,d1.w),d0
+	and.w	#$0003,d0
+	beq.s	FHu1
+	neg.w	d0
+	addq.w	#4,d0
+	add.w	d0,a4
+FHu1	move.l	a4,d0
+	sub.l	0(a1,d1.w),d0
+	lsr.l	#2,d0
+	or.l	d0,4(a1,d1.w)
+	move.l	#$3F2,d0
+	bsr	OutLong
+	movem.l	(sp)+,d0-d2/a0-a1
+	rts
+
+;	Marque la longueur d'un hunk
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MarkHunk
+	movem.l	d0-d2/a0-a1,-(sp)
+	lsl.w	#3,d1
+	move.l	B_Hunks(a5),a1
+	move.l	0(a1,d1.w),a4
+	subq.l	#4,a4
+	move.l	4(a1,d1.w),d0
+	and.l	#$00FFFFFF,d0
+	bsr	OutLong
+	movem.l	(sp)+,d0-d2/a0-a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION RELOCATION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;-----> Init relocation
+Init_Reloc
+	move.l	B_Reloc(a5),a3
+	rts
+
+;-----> Cree un appel a la routine #D0: JMP R(a4)
+Do_JmpLibrary
+	movem.l	d0/a0,-(sp)
+        move.l 	d0,a0
+        move.w 	Cjmp2a4(pc),d0
+        bra.s 	CreF
+;-----> Cree un appel a un sous programme #D0: JMP R(a4)
+Do_JsrLibrary
+	movem.l	d0/a0,-(sp)
+        move.l 	d0,a0
+        move.w 	Cjsr2a4(pc),d0
+CreF:   bsr 	OutWord
+        bsr 	Lib_Relocation		Pointe la table de relocation ici
+	move.w	a0,d0
+	lsl.w	#2,d0
+	neg.w	d0
+        bsr 	OutWord			#ROUTINE.W
+; Met le flag dans buffer
+	move.l	AdTokens(a5),a0
+	bset	#LBF_Called,LB_Flags(a0)
+	cmp.b	#2,-LB_Size-4(a0,d0.w)
+	beq.s	.Skip
+	move.b	#2,-LB_Size-4(a0,d0.w)
+	addq.w	#1,Lib_NInternes(a5)
+.Skip	movem.l	(sp)+,d0/a0
+        rts
+
+
+;-----> Cree un appel a un sous programme #D0, librairie #D1
+Do_LeaExtLibrary
+	movem.l	d0-d1/a0,-(sp)
+        move.w 	d0,a0
+        move.w 	Cleaa0(pc),d0
+	bra.s	Do_Lib
+Do_JsrExtLibrary
+	movem.l	d0-d1/a0,-(sp)
+        move.w 	d0,a0
+        move.w 	Cjsr(pc),d0
+Do_Lib	bsr 	OutWord
+        bsr 	Relocation		Pointe la table de relocation ici
+	lsl.w	#2,d1
+	move.w	d1,d0
+	swap	d0
+	move.w	a0,d0
+	lsl.w	#2,d0
+	neg.w	d0
+	or.l	#Rel_Libraries,d0	Marque une librairie externe
+        bsr 	OutLong			#ROUTINE.L
+; Met le flag extension
+	move.l	AdTokens(a5,d1.w),d1
+	beq	Err_ExtensionNotLoaded
+	move.l	d1,a0
+	bset	#LBF_Called,LB_Flags(a0)
+	cmp.b	#1,-LB_Size-4(a0,d0.w)
+	beq.s	.Skip
+	move.b	#1,-LB_Size-4(a0,d0.w)
+	addq.w	#1,Lib_NExternes(a5)
+.Skip	movem.l	(sp)+,d0-d1/a0
+        rts
+
+;-----> Marque la table de relocation des routines JSR
+Lib_Relocation
+	movem.l a0/a4,-(sp)
+	move.l	Lib_OldRel(a5),a0
+	move.l 	a4,Lib_OldRel(a5)
+	sub.l 	a0,a4
+	move.l	A_LibRel(a5),a0
+	cmp.l	#32766,a4
+	bcc.s	.Grand
+	move.w	a4,(a0)+
+.Suite	move.l	a0,A_LibRel(a5)
+        movem.l	(sp)+,a0/a4
+        rts
+.Grand	move.l	a4,(a0)
+	bset	#7,(a0)
+	addq.l	#4,a0
+	bra.s	.Suite
+
+;-----> Marque la table de relocation
+Relocation
+	move.l d0,-(sp)
+        move.l 	a4,d0
+        sub.l 	OldRel(a5),d0
+.ReJ1:  cmp.w	#510,d0
+	beq.s	.ReJ2
+	cmp.w 	#508,d0
+        bls.s 	.ReJ2
+	bsr	OutRel1
+        sub.w 	#508,d0
+        bra.s 	.ReJ1
+.ReJ2:  lsr.w	#1,d0
+	move.b	d0,(a3)+
+	move.l 	a4,OldRel(a5)
+        move.l	(sp)+,d0
+        rts
+; Poke un octet dans la table de relocation
+OutRel 	move.b 	d0,(a3)+
+	rts
+OutRel1 move.b 	#1,(a3)+
+	rts
+
+;-----> Copie D3 octets, fichier D1 en (a4)
+Out_F_Read
+	movem.l	a0-a2/d0-d7,-(sp)
+	move.l	d1,d5
+	move.l	B_DiskIn(a5),d2
+	move.l	d3,d6
+Ofr0	move.l	#L_DiscIn,d3
+	cmp.l	d6,d3
+	bcs.s	Ofr1
+	move.l	d6,d3
+Ofr1	move.l	d5,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	sub.l	d3,d6
+	move.l	d2,a2
+	move.w	d3,d4
+	lsr.l	#2,d3
+	beq.s	Ofr3
+	sub.w	#1,d3
+Ofr2	move.l	(a2)+,d0
+	bsr	OutLong
+	dbra	d3,Ofr2
+Ofr3	and.w	#$0003,d4
+	beq.s	Ofr5
+	subq.w	#1,d4
+Ofr4	move.b	(a2)+,d0
+	bsr	OutByte
+	dbra	d4,Ofr4
+Ofr5	tst.l	d6
+	bne.s	Ofr0
+	movem.l	(sp)+,a0-a2/d0-d7
+	rts
+
+;-----> Copie A0 octets D0 -> objet
+Copy_Out
+	move.l	d0,d1
+	lsr.w	#1,d1
+	bra.s	.In
+.Loop	move.w	(a0)+,d0
+	bsr	OutWord
+.In	dbra	d1,.Loop
+	rts
+
+;-----> Copie D3 octets source->objet
+Copy_Source
+	tst.l	d3
+	beq.s	CpyS
+CpyS1	bsr	GetWord
+	bsr	OutWord
+	subq.l	#2,d3
+	bcs.s	CpyS
+	bne.s	CpyS1
+CpyS	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION DES BUFFERS SORTIE/ENTREE DANS LE PROGRAMME OBJET
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;-----> Trouve le buffer objet contenant A4
+GetBob	movem.l	a1/d0/d1,-(sp)
+	move.l	BB_Objet_Base(a5),a0
+.loop	move.l	a0,a1
+	move.l	(a0),d1
+	add.l	4(a0),d1
+	cmp.l	d1,a4
+	bcs.s	.loop2
+	move.l	8(a0),d0
+	move.l	d0,a0
+	bne.s	.loop
+; Il faut en reserver un autre...
+.loop1	lea	8(a1),a0
+	move.l	#L_Bob,d0
+	add.l	#16,d0
+	bsr	Buffer_ReserveNoError
+	beq.s	.ToDisc
+; En reserver ENCORE un autre?
+	move.l	d1,(a0)
+	move.l	#L_Bob,4(a0)
+	move.l	a0,a1
+	add.l	#L_Bob,d1
+	cmp.l	d1,a4
+	bcc.s	.loop1
+; Ok, on peut continuer en memoire!
+.loop2	move.l	a1,BB_Objet(a5)
+	moveq	#0,d0
+	movem.l	(sp)+,a1/d0/d1
+	rts
+; Arghhh! Il faut passer tout sur disque!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ToDisc	movem.l	a1-a3/d2-d7,-(sp)
+
+	tst.b	Flag_Infos(a5)
+	beq.s	.Noinfo
+	lea	Debug_ODisc(pc),a0	Un signal si disc!
+	bsr	Str_Print
+.Noinfo
+	move.l	a4,L_Objet(a5)		Longueur maxi=longueur actuelle
+	bsr	Save_Objet		On sauve!
+	bsr	Free_Objet		On efface tous les buffers
+	moveq	#F_Objet,d1		Demande la longueur du fichier
+	moveq	#0,d2
+	moveq	#0,d3
+	bsr	F_Seek
+	move.l	B_Work(a5),d2		Si longueur fichier<longueur programme
+	move.l	a4,d3
+	sub.l	d0,d3
+	beq.s	.Same
+	bsr	F_Write			Va ecrire n'importe quoi!
+	bne	Err_DiskError
+.Same	bsr	Reserve_DiscObjet	Reserve les buffers
+	move.l	a4,TopOb(a5)		Maxi actuel
+	bsr	LoadBob			Charge le premier buffer
+	move.b	#1,Flag_Objet(a5)	On est maintenant sur disque
+	moveq	#-1,d0			Il faut changer!
+	movem.l	(sp)+,a1-a3/d2-d7
+	movem.l	(sp)+,a1/d0/d1
+	rts
+
+;-----> Poke un BYTE dans l'objet
+OutByte:tst.b	Flag_Objet(a5)
+	bne.s	OutbD
+* En m�moire
+	movem.l	a0/a4,-(sp)
+.Reskip	move.l	BB_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	add.l	a0,a4
+	move.b	d0,12(a4)
+	movem.l	(sp)+,a0/a4
+	addq.l	#1,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	beq.s	.Reskip
+	movem.l	(sp)+,a0/a4
+* Sur disque
+OutbD   move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.b 	d0,(a0)+
+        addq.l 	#1,a4
+        move.l 	(sp)+,a0
+        cmp.l 	TopOb(a5),a4
+        bcs.s 	PamB
+        move.l 	a4,TopOb(a5)
+PamB:   rts
+
+;-----> Poke un MOT dans l'objet
+OutWord:tst.b	Flag_Objet(a5)
+	bne.s	OutwD
+* En m�moire
+OutW	movem.l	a0/a4,-(sp)
+.Reskip	move.l	BB_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	add.l	a0,a4
+	move.w	d0,12(a4)
+	movem.l	(sp)+,a0/a4
+	addq.l	#2,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	beq.s	.Reskip
+	movem.l	(sp)+,a0/a4
+* Sur disque
+OutwD   move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.w 	d0,(a0)+
+        addq.l 	#2,a4
+        move.l 	(sp)+,a0
+        cmp.l 	TopOb(a5),a4
+        bcs.s 	PamW
+        move.l 	a4,TopOb(a5)
+PamW:   rts
+
+;-----> Poke un MOT LONG dans l'objet
+OutLong:tst.b	Flag_Objet(a5)
+	bne.s	OutlD
+* En m�moire
+	movem.l	a0/a4,-(sp)
+.Reskip	move.l	BB_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	addq.l	#4,a4
+	cmp.l	4(a0),a4
+	bhi.s	.probleme
+	add.l	a0,a4
+	move.l	d0,12-4(a4)
+	movem.l	(sp)+,a0/a4
+	addq.l	#4,a4
+	rts
+.probleme
+	movem.l	(sp)+,a0/a4
+	swap	d0
+	bsr	OutW
+	swap	d0
+	bra	OutW
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	beq.s	.Reskip
+	movem.l	(sp)+,a0/a4
+* Sur disque
+OutlD   move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.l 	d0,(a0)+
+        addq.l 	#4,a4
+        move.l 	(sp)+,a0
+        cmp.l 	TopOb(a5),a4
+        bcs.s 	PamL
+        move.l 	a4,TopOb(a5)
+PamL:   rts
+
+;-----> Sort un MOVE / MOVEQ dans l'objet
+OutMove:cmp.l	#128,d2
+	bcs.s	.Kwik
+	bsr	OutWord
+	move.l	d2,d0
+	bra	OutLong
+.Kwik	move.w	d1,d0
+	move.b	d2,d0
+	bra	OutWord
+
+;-----> Prend un mot dans l'objet
+GtoWord	tst.b	Flag_Objet(a5)
+	beq	GtoW
+* Sur disque
+	move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.w 	(a0)+,d0
+        addq.l 	#2,a4
+        move.l 	(sp)+,a0
+        rts
+
+;-----> Prend un mot long dans l'objet
+GtoLong:tst.b	Flag_Objet(a5)
+	bne.s	PaGL
+* En memoire
+	bsr	GtoW
+	swap	d0
+	bsr	GtoW
+	tst.l	d0
+	rts
+GtoW	movem.l	a0/a4,-(sp)
+.Reskip	move.l	BB_Objet(a5),a0
+	sub.l	(a0),a4
+	cmp.l	4(a0),a4
+	bcc.s	.skip
+	add.l	a0,a4
+	move.w	12(a4),d0
+	movem.l	(sp)+,a0/a4
+	addq.l	#2,a4
+	rts
+.skip	movem.l	(sp),a0/a4
+	bsr	GetBob
+	beq.s	.Reskip
+	movem.l	(sp)+,a0/a4
+* Sur disque
+PaGL    move.l 	a0,-(sp)
+        bsr 	ObDisk
+        move.l 	(a0)+,d0
+        addq.l 	#4,a4
+        move.l 	(sp)+,a0
+        rts
+
+;-----> Sortie de code
+OutCode	move.l	d0,-(sp)
+	move.w	(a0)+,d0
+OutC1	bsr	OutWord
+	move.w	(a0)+,d0
+	cmp.w	#$4321,d0
+	bne.s	OutC1
+	move.l	(sp)+,d0
+	rts
+
+;-----> REND A4 PAIR
+A4Pair	move.w	a4,d0
+	btst	#0,d0
+	beq.s	.Skip
+	addq.l	#1,a4
+.Skip	rts
+
+;-----> GESTION DU BUFFER OBJET DISQUE
+ObDisk: cmp.l 	DebBob(a5),a4
+        bcs.s 	ObDi1
+        lea 	4(a4),a0
+        cmp.l 	FinBob(a5),a0
+        bcc.s 	ObDi1
+; Adresse RELATIVE dans le buffer
+        move.l 	a4,a0
+        sub.l 	DebBob(a5),a0
+        add.l 	B_Objet(a5),a0
+        rts
+; Change la position du buffer
+ObDi1:  movem.l d0-d7/a0-a2,-(sp)
+; Sauve le buffer
+        bsr 	SaveBob
+; Bouge le bout
+        move.l 	DebBob(a5),d0
+        move.l 	FinBob(a5),d1
+        move.l 	#L_Bob,d2
+        sub.l 	BordBob(a5),d2
+        lea 	4(a4),a0
+ObDi3:  cmp.l 	d0,a4
+        bcs.s 	ObDi4
+        cmp.l 	d1,a0
+        bcs.s 	ObDi5
+; Monte le buffer
+        add.l 	d2,d0
+        add.l 	d2,d1
+        bra.s 	ObDi3
+; Descend le buffer
+ObDi4:  sub.l 	d2,d0
+        sub.l 	d2,d1
+        bra.s 	ObDi3
+ObDi5:  move.l 	d0,DebBob(a5)
+        move.l 	d1,FinBob(a5)
+; Charge le nouveau bout
+	bsr	LoadBob
+; Trouve l'adresse relative
+	movem.l (sp)+,d0-d7/a0-a2
+        move.l 	a4,a0
+        sub.l 	DebBob(a5),a0
+        add.l 	B_Objet(a5),a0
+        rts
+
+;-----> Charge le buffer objet
+LoadBob	moveq 	#F_Objet,d1
+	move.l	DebBob(a5),d2
+	moveq	#-1,d3
+        bsr 	F_Seek
+	move.l	B_Objet(a5),d2
+        move.l 	FinBob(a5),d3
+        cmp.l 	TopOb(a5),d3
+        bcs.s 	.ObDi6
+        move.l 	TopOb(a5),d3
+.ObDi6: sub.l 	DebBob(a5),d3
+        beq.s 	.ObDi7
+	moveq	#F_Objet,d1
+        bsr 	F_Read
+	bne	Err_DiskError
+; Nettoie la fin du buffer ???
+;	move.l	d2,a0
+;	add.l	d3,a0
+;	cmp.l	FinBob(a5),a0
+;	bcc.s	.NoClr
+;	move.l	FinBob(a5),d0
+;	sub.l	a0,d0
+;	bcs.s	.NoClr
+;.Clr	clr.b	(a0)+
+;	dbra	d0,.Clr
+;.NoClr
+.ObDi7	rts
+
+;-----> Sauve le buffer OBJET
+SaveBob:moveq	#F_Objet,d1
+        move.l 	DebBob(a5),d2
+	moveq	#-1,d3
+        bsr 	F_Seek
+; Sauve l'ancien
+	moveq	#F_Objet,d1
+        move.l 	B_Objet(a5),d2
+        move.l 	TopOb(a5),d3
+        sub.l 	DebBob(a5),d3
+        cmp.l 	#L_Bob,d3
+        bcs.s 	ObDi2
+	move.l 	FinBob(a5),d3
+        sub.l 	DebBob(a5),d3
+ObDi2:  bsr 	F_Write
+	bne	Err_DiskError
+        rts
+
+;	Stockage position de l'objet
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+StockOut
+	move.l	a0,-(sp)
+	move.l	A_Stock(a5),a0
+	move.l	a3,(a0)+
+	move.l	a4,(a0)+
+	move.l	OldRel(a5),(a0)+
+	move.l	A_LibRel(a5),(a0)+
+	move.l	Lib_OldRel(a5),(a0)+
+	move.l	A_Chaines(a5),(a0)+
+	move.l	a0,A_Stock(a5)
+	move.l	(sp)+,a0
+	rts
+RestOut
+	move.l	a0,-(sp)
+	move.l	A_Stock(a5),a0
+	move.l	-(a0),A_Chaines(a5)
+	move.l	-(a0),Lib_OldRel(a5)
+	move.l	-(a0),A_LibRel(a5)
+	move.l	-(a0),OldRel(a5)
+	move.l	-(a0),a4
+	move.l	-(a0),a3
+	move.l	a0,A_Stock(a5)
+	move.l	(sp)+,a0
+	rts
+SautOut
+	sub.l	#16,A_Stock(a5)
+	rts
+
+;	Marque la prochaine instruction dans la table des debut instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+OutLea	movem.l	a0/a4,-(sp)
+	move.l	B_Instructions(a5),a0
+	sub.l	(a0)+,a4
+	addq.w	#1,(a0)
+	move.l	A_Instructions(a5),a0
+	move.l	a4,(a0)+
+	move.l	a0,A_Instructions(a5)
+	movem.l	(sp)+,a0/a4
+	rts
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				CHARGEMENT DES LIBRAIRIES + EXTENSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Load
+; - - - - - - - - - - - - - - - -
+
+; Librairie principale AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#14,d0
+	bsr	Get_IntConfigMessage
+	bsr	AddPathCom
+	moveq	#0,d0
+	bsr	Library_Load
+	bne.s	.Err
+; Extensions
+; ~~~~~~~~~~
+	moveq	#1,d2
+.Loop	move.l	d2,d0
+	add.w	#16-1,d0
+	bsr	Get_IntConfigMessage
+	tst.b	(a0)
+	beq.s	.Next
+	bsr	AddPathCom
+	move.w	d2,d0
+	bsr	Library_Load
+	bne.s	.Err
+	move.w	d2,d0
+	bsr	Library_Offsets
+.Next	addq.w	#1,d2
+	cmp.w	#27,d2
+	bne.s	.Loop
+; Insere la librarie interne au compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Library_Interne
+	moveq	#0,d0
+	bsr	Library_Offsets
+	moveq	#0,d0
+.Err	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				CHARGEMENT D'UNE LIBRAIRIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Name1=	Nom
+;	A0=	Command line
+;	D0=	Numero
+; - - - - - - - - - - - - - - - -
+Library_Load
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+
+	move.l	d0,d6
+	addq.w	#F_Libs,d6		+ Handle libraries...
+	move.l	a0,a4
+	lea	AdTokens(a5),a6
+	lsl.w	#2,d0
+	add.w	d0,a6
+; Ouvre le fichier
+; ~~~~~~~~~~~~~~~~
+	move.l	d6,d0
+	bsr	F_OpenOld
+	beq	Ll_Disc
+; Lis l'entete dans le buffer
+	move.l	d6,d1
+	move.l	B_Work(a5),d2
+	move.l	#$20+18,d3
+	bsr	F_Read
+	bne	Ll_Disc
+	move.l	d2,a3
+	lea	$20(a3),a3
+	move.l	(a3),d5
+	lsr.l	#1,d5			D5= nombre de fonctions
+; Reserve la zone memoire...
+	move.l	d5,d4
+	lsl.l	#2,d4			Taille des jumps
+	addq.l	#4,d4			+ Dernier jump (taille derniere routine)
+	moveq	#LB_Size,d3		Data zone negative
+	add.l	4(a3),d3		+ Tokens
+	move.l	d3,d0
+	add.l	d4,d0
+	move.l	d0,d1
+	bsr	RamFast
+	beq	Ll_OMem
+	move.l	d0,a0
+	lea	LB_Size(a0,d4.l),a2	Saute les jumps et la datazone
+	move.l	a2,(a6)			Extension chargee!!!
+	move.l	d1,LB_MemSize(a2)	Taille de la zone memoire
+	move.l	a0,LB_MemAd(a2)		Adresse de base
+	move.l	(a3),d3			Buffer temporaire pour les tailles
+	move.l	d3,d0
+	addq.l	#4,d0
+	bsr	RamFast
+	beq	Ll_OMem
+	move.l	d0,a0
+	move.l	d3,(a0)+
+	move.l	a0,LB_LibSizes(a2)
+; Une nouvelle / ancienne librarie?
+	clr.w	LB_Flags(a2)		Flags
+	bset	#LBF_20,LB_Flags(a2)
+	moveq	#4,d3
+	move.l	B_Work(a5),d2
+	move.l	d6,d1
+	bsr	F_Read
+	bne	Ll_Disc
+	move.l	d2,a0
+	cmp.l	#"AP20",(a0)
+	beq.s	.Suit
+	bclr	#LBF_20,LB_Flags(a2)
+	move.l	d6,d1
+	moveq	#-4,d2
+	moveq	#0,d3
+	bsr	F_Seek
+; Charge les tailles des routines
+.Suit	move.l	LB_LibSizes(a2),a0
+	move.l	-4(a0),d3
+	move.l	a0,d2
+	move.l	d6,d1
+	bsr	F_Read
+	bne	Ll_Disc
+; Charge les tokens et les tables...
+	move.l	4(a3),d3		Tokens
+	move.l	a2,d2
+	move.l	d6,d1
+	bsr	F_Read
+	bne	Ll_Disc
+; Rempli la datazone
+	move.w	d5,LB_NRout(a2)		Nombre de routines
+	move.l	a4,LB_Command(a2)
+
+; Recupere les donnees speciales pour librairies nouvelles
+	btst	#LBF_20,LB_Flags(a2)	Si 2.0
+	beq.s	.NoTable
+	move.l	d2,a0			Pointe la fin des tokens
+	lea	-4(a0,d3.l),a0
+	add.l	(a0),a0
+
+	cmp.l	#"FSwp",(a0)		Des routines a swapper?
+	bne.s	.NoFSwp
+	move.w	4(a0),LB_DFloatSwap(a2)
+	move.w	6(a0),LB_FFloatSwap(a2)
+	addq.l	#8,a0
+.NoFSwp
+	cmp.l	#"ComP",(a0)		Des donnees sur les routines speciales
+	bne.s	.NoComp
+	addq.l	#4,a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0
+	lea	Lib_SizeInterne(a5),a1	On recopie!
+.Copy	move.b	(a0)+,(a1)+
+	dbra	d0,.Copy
+.NoComp
+	cmp.l	#"KwiK",(a0)		Verification rapide?
+	bne.s	.NoKwik
+	lea	4(a0),a0
+	move.l	a0,LB_Verif(a2)		Poke l'adresse...
+.NoKwik
+
+; Poke les donnees dans le header librairie
+.NoTable
+	move.l	d6,d1			Trouve la position du fichier
+	moveq	#0,d2
+	moveq	#0,d3
+	bsr	F_Seek
+	move.l	d0,-LB_Size-4(a2)	= Position de la premiere routine
+	tst.w	16(a3)			Flag always init
+	beq.s	.NoInit
+	bset	#LBF_AlwaysInit,LB_Flags(a2)
+.NoInit
+; Pas d'erreur
+	moveq	#0,d0
+	bra	Ll_Out
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	CHARGEMENT DE LA LIBRARIE INTERNE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Library_Interne
+; - - - - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	AdTokens(a5),a2
+; Calcule la position de la routine (500) de la librairie principale
+	move.l	LB_LibSizes(a2),a0
+	lea	-LB_Size(a2),a1
+	move.w	Lib_SizeInterne(a5),d0
+	addq.w	#8,d0
+	moveq	#0,d1
+	move.l	-LB_Size-4(a2),d2
+.Size	move.l	d2,-(a1)
+	move.w	(a0)+,d1
+	add.l	d1,d2
+	add.l	d1,d2
+	dbra	d0,.Size
+; Ouvre le fichier
+	moveq	#3,d0
+	bsr	Get_ConfigMessage
+	bsr	AddPath
+	moveq	#F_LibInterne,d0
+	bsr	F_OpenOld
+	beq	Ll_Disc
+; Lis l'entete dans le buffer
+	moveq	#F_LibInterne,d1
+	move.l	B_Work(a5),d2
+	move.l	#$20+18,d3
+	bsr	F_Read
+	bne	Ll_Disc
+	move.l	d2,a3
+	lea	$20(a3),a3
+	move.l	(a3),d5
+	lsr.l	#1,d5			D5= nombre de fonctions
+; Charge la table des longueurs sur la table interne
+	moveq	#F_LibInterne,d1
+	move.l	LB_LibSizes(a2),d2
+	move.w	Lib_SizeInterne(a5),d3
+	ext.l	d3
+	lsl.l	#1,d3
+	bsr	F_Read
+	bne	Ll_Disc
+; Position de la premiere routine
+	moveq	#F_LibInterne,d1	Trouve la position du fichier
+	moveq	#0,d2
+	moveq	#0,d3
+	bsr	F_Seek
+	move.l	d0,-LB_Size-4(a2)	= Position de la premiere routine
+; Pas d'erreur
+	moveq	#0,d0
+; Sortie chargement librairie
+Ll_Out	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+Ll_BadExt				*** A mettre
+Ll_Disc	bra	Err_DiskError
+Ll_OMem	bra	Err_OOfMem
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Fabrique la table des positions des routines
+;	D0=	Library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Library_Offsets
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	lsl.w	#2,d0
+	move.l	AdTokens(a5,d0.w),a2
+	tst.w	d0
+	bne.s	.Norm
+; Librarie principale, 500 premieres fonctions
+	lea	-LB_Size(a2),a1		Debut des adresses
+	move.l	LB_LibSizes(a2),a0	Liste des fonctions
+	move.w	Lib_SizeInterne(a5),d0	Compteur
+	bsr	.Rout
+	move.w	LB_NRout(a2),d0		500 fonctions suivantes
+	sub.w	Lib_SizeInterne(a5),d0
+	bsr	.Rout
+	bra	Ll_Out
+; Libraries normales
+.Norm	lea	-LB_Size(a2),a1		Debut des adresses
+	move.l	LB_LibSizes(a2),a0	Liste des fonctions
+	move.w	LB_NRout(a2),d0		Compteur
+	bsr	.Rout
+	bra	Ll_Out
+; Tchote routine
+.Rout	move.l	-4(a1),d1		Position de la premiere routine
+	moveq	#0,d2
+	subq.w	#1,d0
+.Loop	move.l	d1,-(a1)
+	move.w	(a0)+,d2
+	add.l	d2,d1
+	add.l	d2,d1
+	dbra	d0,.Loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				EFFACEMENT DES LIBRARIES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Libraries_Free
+; - - - - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#27-1,d2
+	lea	AdTokens(a5),a2
+.Loop	move.l	(a2),d0
+	beq.s	.Next
+	move.l	d0,a0
+	move.l	LB_LibSizes(a0),d0	Les tailles des libraries
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	bsr	RamFree
+.Skip	move.l	(a2),a0			La librarie elle meme
+	clr.l	(a2)
+	move.l	LB_MemAd(a0),a1
+	move.l	LB_MemSize(a0),d0
+	bsr	RamFree
+.Next	addq.l	#4,a2			Library suivante...
+	dbra	d2,.Loop
+	moveq	#0,d0
+	bra	Ll_Out
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CHARGEMENT DE ROUTINES POUR LE COMPILATEUR
+;	A0=	Table des routines � charger
+;	A1=	Adresse du pointeur de buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Load_Routines
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	move.l	a0,a4
+	move.l	a1,a6
+
+; Calcul de la taille necessaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	AdTokens(a5),a3
+	move.l	LB_LibSizes(a3),a2
+	move.l	a4,a0
+	moveq	#0,d1
+	moveq	#0,d0
+	bra.s	.SIn
+.SLoop	lsl.w	#1,d2
+	move.w	0(a2,d2.w),d1
+	add.l	d1,d0
+	add.l	d1,d0
+.SIn	move.w	(a0)+,d2
+	bne.s	.SLoop
+; Reservation du buffer
+; ~~~~~~~~~~~~~~~~~~~~~
+	move.l	d0,d6
+	move.l	a6,a0
+	bsr	Buffer_Reserve
+; Chargement des routines
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a0,d5			Pointeur d'adresse
+	move.l	a4,a2			Table des routines
+	move.l	LB_LibSizes(a3),a1	Table des tailles
+	bra.s	.LIn
+.LLoop	moveq	#F_Libs,d1		Handle
+	cmp.w	Lib_SizeInterne(a5),d4
+	bcc.s	.LSkip
+	moveq	#F_LibInterne,d1
+.LSkip	move.w	d4,d0
+	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a3,d0.w),d2	Position de la routine
+	move.l	d5,-LB_Size-4(a3,d0.w) 	>>> adresse de la routine chargee!
+	moveq	#-1,d3			Depuis le debut
+	bsr	F_Seek			Positionne le fichier
+	lsl.w	#1,d4
+	moveq	#0,d3
+	move.w	0(a1,d4.w),d3		Taille de la routine
+	lsl.l	#1,d3
+	move.l	d5,d2			Adresse de chargement
+	add.l	d3,d5			Nouvelle routine
+	bsr	F_Read
+	bne	Err_DiskError
+.LIn	move.w	(a2)+,d4		Nouvelle routine
+	bne.s	.LLoop
+; Branche quelques fausse routines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Add_Routines(pc),a0
+	move.l	a0,d0
+	move.w	(a0)+,d1
+.FLoop	move.l	(a0)+,d2
+	add.l	d0,d2
+	lsl.w	#2,d1
+	neg.w	d1
+	move.l	d2,-LB_Size-4(a3,d1.w)
+	move.w	(a0)+,d1
+	bne.s	.FLoop
+; Relocation des routines chargees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.w	(a4)+,d0
+.RLoop	bsr	Ll_LoadReloc
+	move.w	(a4)+,d0
+	bne.s	.RLoop
+	bsr	Sys_ClearCache		Nettoie les caches
+; Ca y est!
+; ~~~~~~~~~
+	moveq	#0,d0
+	bra	Ll_Out
+
+;	Routine de relocation de la routine chargee D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ll_LoadReloc
+	movem.l	d2-d7/a2-a6,-(sp)
+	lsl.w	#1,d0
+	move.l	LB_LibSizes(a3),a0
+	moveq	#0,d4
+	move.w	0(a0,d0.w),d4		Taille de la routine
+	lsl.l	#1,d4
+	lsl.w	#1,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a3,d0.w),a0	Adresse de la routine
+	add.l	a0,d4			Fin routine
+GRou1	move.b	(a0),d0			Boucle d'exploration
+	cmp.b	#C_Code1,d0
+	beq	GRou10
+GRou2	addq.l	#2,a0
+	cmp.l	d4,a0
+	bcs.s	GRou1
+GRouN	bra	Ll_Out
+
+; Instruction speciale
+GRou10	move.w	(a0),d0
+	move.b	d0,d2
+	and.b	#$0F,d0
+	cmp.b	#C_Code2,d0
+	bne	GRou2
+	and.w	#$00F0,d2
+	lsr.w	#1,d2
+	lea	GRout(pc),a1
+	jmp	0(a1,d2.w)
+; Table des sauts
+GRout	bra	GRouJ			; 0 - RJmp / Rjmptable
+	dc.w	$4ef9			JMP
+	jmp	(a0)
+	bra	GRouJ			; 1 - RJsr / Rjsrtable
+	dc.w	$4eb9			JSR
+	jsr	(a0)
+	bra	GRouB			; 2 - RBra
+	bra	GRout
+	bra	GRouB			; 3 - RBsr
+	bsr	GRout
+	bra	GRouB			; 4 - RBeq
+	beq	GRout
+	bra	GRouB			; 5 - RBne
+	bne	GRout
+	bra	GRouB			; 6 - RBcs
+	bcs	GRout
+	bra	GRouB			; 7 - RBcc
+	bcc	GRout
+	bra	GRouB			; 8 - RBlt
+	blt	GRout
+	bra	GRouB			; 9 - RBge
+	bge	GRout
+	bra	GRouB			; 10- RBls
+	bls	GRout
+	bra	GRouB			; 11- RBhi
+	bhi	GRout
+	bra	GRouB			; 12- RBle
+	ble	GRout
+	bra	GRouB			; 13- RBpl
+	bpl	GRout
+	bra	GRouB			; 14- RBmi
+	bmi	GRout
+	bra	GRouD			; 15- RData / Ret_Inst
+GRouMve	move.l	0(a4),a0
+GRlea	lea	$0.l,a0
+CJsr	jsr	0(a4)
+; RJMP / RJSR
+GRouJ	cmp.b	#C_CodeJ,2(a0)
+	beq.s	.Rjsr
+	cmp.b	#C_CodeT,2(a0)
+	bne	GRou2
+; Rjsrt / Rjmpt
+	move.b	3(a0),d0
+	cmp.b	#8,d0
+	bcc.s	.Rlea
+	and.w	#$0007,d0
+	move.w	d0,d1
+	lsl.w	#8,d1
+	lsl.w	#1,d1
+	or.w	GRouMve(pc),d1		Move.l	X(a4),ax
+	move.w	d1,(a0)+
+	move.w	2(a0),d1
+	lsl.w	#2,d1
+	add.w	#LB_Size+4,d1
+	neg.w	d1
+	move.w	d1,(a0)+
+	or.w	6(a1,d2.w),d0		Jsr/Jmp	(ax)
+	move.w	d0,(a0)+
+	bra	GRou1
+; Rlea
+.Rlea	subq.w	#8,d0
+	cmp.b	#8,d0
+	bcc	GRou2
+	lsl.w	#8,d0
+	lsl.w	#1,d0
+	or.w	GRlea(pc),d0
+	move.w	d0,(a0)
+	move.w	4(a0),d0
+	moveq	#0,d1
+	addq.l	#6,a0
+	bra.s	.Qq
+; Rjsr / Rjmp direct
+.Rjsr	moveq	#0,d1			Transforme en JSR direct
+	move.b	3(a0),d1
+	cmp.b	#27,d1			Numero de l'extension
+	bcc	GRou2
+	move.w	4(a1,d2.w),(a0)
+	move.w	4(a0),d0
+	addq.l	#6,a0
+	ext.w	d1
+; Extension quelconque
+.Qq	lsl.w	#2,d1
+	lea	AdTokens(a5),a1
+	move.l	0(a1,d1.w),d1
+	beq	Ll_BadExt
+	move.l	d1,a1			Adresse des tokens de l'extension
+	cmp.w	LB_NRout(a1),d0		Superieur au maximum?
+	bcc	Ll_BadExt
+.AA	lsl.w	#2,d0
+	neg.w	d0
+	move.l	-LB_Size-4(a1,d0.w),-4(a0)
+	bra	GRou1
+; RBRA etc..
+GRouB	move.w	2(a0),d0
+	cmp.w	d5,d0
+	bcc	GRou2
+	lsl.w	#2,d0
+	move.w	4(a1,d2.w),(a0)+
+	neg.w	d0
+	move.l	-LB_Size-4(a3,d0.w),d0
+	sub.l	a0,d0
+	cmp.l	#-32766,d0
+	ble	Gfaux
+	cmp.l	#32766,d0
+	bge	Gfaux
+	move.w	d0,(a0)+
+	bra	GRou1
+; Instruction RDATA / Ret_Inst
+GRouD	cmp.w	#C_CodeD,2(a0)
+	bne.s	GRouD1
+	move.w	Cnop(pc),d0
+	move.w	d0,(a0)+
+	move.w	d0,(a0)+
+	bra	GRouN
+; *** Instruction Ret_Inst
+GRouD1	cmp.w	#C_CodeInst,2(a0)
+	bne	GRou2
+	move.l	Crts(pc),(a0)+
+	bra	GRou1
+Gfaux	illegal
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Preparation des tables de tokenisation pour la compilation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Ver_Compile
+	movem.l	a0-a3/d0-d3,-(sp)
+	bsr	Ver_Run			Passe en mode RUN
+	move.l	AdTokens(a5),a0		Debut des tokens
+	move.l	LB_Verif(a0),a1		Adresse table
+	lea	Inst_Jumps(pc),a2
+	lea	Func_Jumps(pc),a3
+	move.w	(a1)+,d1		Longueur table
+	ext.l	d1
+	add.l	a1,d1			Fin table
+.Loop	move.w	(a0),d2			Token instruction
+	move.w	2(a0),d3		Token fonction
+	move.b	(a1),d0			L'instruction
+	ext.w	d0
+	cmp.w	#1,d0			Simple SYNTAX ERROR?
+	bne.s	.NoSynt
+	cmp.b	#1,1(a1)		Un autre syntax error apres?
+	beq.s	.NoSynt
+	move.w	d3,d0			OUI! on met la fonction
+	bra.s	.Synt
+.NoSynt	addq.w	#8,d0			Pour sauter les negatifs
+	lsl.w	#2,d0
+	tst.l	0(a2,d0.w)		Speciale?
+	beq.s	.Func
+	neg.w	d0
+.Synt	move.w	d0,(a0)			Change le token
+.Func	move.b	1(a1),d0		La fonction
+	ext.w	d0
+	cmp.w	#1,d0			Simple SYNTAX Error
+	bne.s	.NoSint
+	cmp.b	#1,(a1)			Un syntax avant?
+	beq.s	.NoSint
+	move.w	d2,d0			OUI! Met l'instruction
+	bra.s	.Sint
+.NoSint	lsl.w	#2,d0
+	tst.l	0(a3,d0.w)		Speciale?
+	beq.s	.Next
+	neg.w	d0
+.Sint	move.w	d0,2(a0)		Change le token
+.Next	lea	4(a0),a0
+.Skip1	tst.b	(a0)+
+	bpl.s	.Skip1
+.Skip2	tst.b	(a0)+
+	bpl.s	.Skip2
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	addq.l	#4,a1
+	cmp.l	d1,a1
+	bcs.s	.Loop
+	movem.l	(sp)+,a0-a3/d0-d3
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;				Echange des tables de tokenisation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Ver_Verif
+	moveq	#-1,d3
+	bra.s	Ver_Echange
+Ver_Run	moveq	#0,d3
+Ver_Echange
+	lea	AdTokens(a5),a2
+	moveq	#27-1,d2
+.Loop	tst.l	(a2)
+	beq.s	.Next
+	move.l	(a2),a1
+	tst.l	LB_Verif(a1)		Une table?
+	beq.s	.Next
+	tst.w	d3			Run (0)  ou Verif (1)
+	bne.s	.Verif
+; Run!
+	bclr	#LBF_Verif,LB_Flags(a1)		Deja RUN?
+	beq	.Next
+	bsr.s	Ver_Ech				On echange
+	bra.s	.Next
+; Verif!
+.Verif	bset	#LBF_Verif,LB_Flags(a1)		Deja VERIF?
+	bne	.Next
+	bsr.s	Ver_Ech
+; Table suivante
+.Next	addq.l	#4,a2
+	dbra	d2,.Loop
+	rts
+; Echange des tables
+; ~~~~~~~~~~~~~~~~~~
+Ver_Ech	move.l	a1,a0			Debut des tokens
+	move.l	LB_Verif(a0),a1		Adresse table
+	move.w	(a1)+,d1		Longueur table
+	ext.l	d1
+	add.l	a1,d1			Fin table
+.Loop	move.l	(a0),d0
+	move.l	(a1),(a0)+
+	move.l	d0,(a1)+
+.Skip1	tst.b	(a0)+
+	bpl.s	.Skip1
+.Skip2	tst.b	(a0)+
+	bpl.s	.Skip2
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	cmp.l	d1,a1
+	bcs.s	.Loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION DE LA CONFIGURATION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Copie un nom A0>A1
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+CopName	movem.l	a0/a1,-(sp)
+.Loop	move.b	(a0)+,(a1)+
+	bne.s	.Loop
+	movem.l	(sp)+,a0/a1
+	rts
+
+;	Charge la configuration, si elle existe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Load_Config
+	moveq	#F_Courant,d0
+	move.l	Path_Config(a5),d1
+	bsr	F_OpenOldD1
+	beq.s	.Out
+; Charge!
+	lea	B_Config(a5),a1
+	bsr	Load_InBuffer2
+	cmp.l	#"CCt1",(a0)
+	bne	Err_BadConfig
+	move.l	B_Config(a5),d0
+	move.l	d0,A_Config(a5)
+.Out	rts
+
+;	Recupere les chaines par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cold_Config
+	moveq	#9,d0
+	bsr	Get_ConfigMessage
+	move.l	Path_Temporaire(a5),a1
+	bsr	CopName
+	rts
+
+;	Digere la configuration du compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Init_Config
+	tst.b	Flag_AMOS(a5)
+	bne	.AMOS
+; Charge la configuration de l'interpreteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#2,d0
+	bsr	Get_ConfigMessage
+	moveq	#F_Courant,d0
+	move.l	a0,d1
+	bsr	F_OpenOldD1
+	beq	Err_CantLoadIntConfig
+; Charge les donn�es dc.w
+	moveq	#8,d3
+	move.l	B_Work(a5),d2
+	moveq	#F_Courant,d1
+	bsr	F_Read
+	bne	Err_CantLoadIntConfig
+	move.l	d2,a2
+	cmp.l	#"PId1",(a2)
+	bne	Err_BadIntConfig
+	move.l	4(a2),d3
+	lea	PI_Start(a5),a0
+	move.l	a0,d2
+	bsr	F_Read
+	bne	Err_CantLoadIntConfig
+; Charge les donn�es texte
+	move.l	a2,d2
+	moveq	#8,d3
+	bsr	F_Read
+	bne	Err_CantLoadIntConfig
+	cmp.l	#"PIt1",(a2)
+	bne	Err_BadIntConfig
+	lea	B_IntConfig(a5),a0
+	move.l	4(a2),d0
+	move.l	d0,d3
+	bsr	Buffer_Reserve
+	move.l	a0,d2
+	bsr	F_Read
+	bne	Err_CantLoadIntConfig
+	jsr	F_Close
+	move.l	B_IntConfig(a5),Sys_Messages(a5)
+; Trouve le path complet du systeme (si pas AMOS)(si pas precise dans command)
+.GetDir	tst.b	Sys_Pathname(a5)
+	bne.s	.Skip
+	moveq	#1,d0				Acces au path
+	bsr	Get_IntConfigMessage
+	bsr	AskDir				Demande le directory
+.Skip	rts
+; Si AMOS, ne charge rien, recopie les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.AMOS	move.l	AMOS_Dz(a5),a0
+	move.l	Sys_Messages(a0),Sys_Messages(a5)
+	lea	PI_Start(a0),a1
+	lea	PI_Start(a5),a2
+	move.w	#(PI_End-PI_Start)/2-1,d0
+.Copy	move.w	(a1)+,(a2)+
+	dbra	d0,.Copy
+; Recopie le path du systeme, si defini
+	lea	Sys_Pathname(a0),a1	Pathname AMOS
+	lea	Sys_Pathname(a5),a2	Pathname deja defini (LIBS=)
+	tst.b	(a2)
+	bne.s	.Skip
+	tst.b	(a1)			Pathname AMOS pas defini: le trouve!
+	beq.s	.GetDir
+.Copy1	move.b	(a1)+,(a2)+		Recopie du pathname origine
+	bne.s	.Copy1
+	rts
+
+
+; 	Ouvre la configuration editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Open_EditConfig
+	moveq	#7,d0
+	bsr	Get_IntConfigMessage
+	bsr	AddPath
+	moveq	#F_Courant,d0		Ouvre le fichier
+	bsr	F_OpenOld
+	beq	Err_CantLoadEditConfig
+	move.l	B_Work(a5),d2
+	moveq	#4,d3
+	moveq	#F_Courant,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a0
+	cmp.l	#Ed_FConfig-Ed_DConfig,(a0)
+	bne	Err_BadEditConfig
+	moveq	#F_Courant,d1
+	move.l	#Ed_FConfig-Ed_DConfig,d2
+	moveq	#0,d3
+	bsr	F_Seek
+	rts
+; 	Saute un chunk config editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Skip_EditChunk
+	move.l	B_Work(a5),d2
+	moveq	#4,d3
+	moveq	#F_Courant,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a0
+	move.l	(a0),d2
+	moveq	#0,d3
+	moveq	#F_Courant,d1
+	bsr	F_Seek
+	rts
+;	Charge un chunk config editeur >>> buffer (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Load_EditChunk
+	move.l	a2,-(sp)
+	move.l	a0,a2
+	move.l	B_Work(a5),d2
+	moveq	#4,d3
+	moveq	#F_Courant,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a0
+	move.l	(a0),d3
+	move.l	d3,d0
+	move.l	a2,a0
+	bsr	Buffer_Reserve
+	move.l	a0,d2
+	bsr	F_Read
+	bne	Err_DiskError
+	move.l	d2,a0
+	move.l	(sp)+,a2
+	rts
+
+;	Charge le fichier A0 dans un buffer (a1)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Load_InBuffer2
+	movem.l	a2/d2-d3,-(sp)
+	move.l	a1,a2
+	bra.s	Load_In
+Load_InBuffer
+	movem.l	a2/d2-d3,-(sp)
+	move.l	a1,a2
+	moveq	#F_Courant,d0
+	move.l	a0,d1
+	bsr	F_OpenOldD1
+	beq	Err_DiskError
+Load_In	moveq	#F_Courant,d1
+	bsr	F_Lof
+	move.l	d0,d3
+	move.l	a2,a0
+	bsr	Buffer_Reserve
+	beq	Err_OOfMem
+	move.l	a0,d2
+	moveq	#F_Courant,d1
+	bsr	F_Read
+	bne	Err_DiskError
+	moveq	#F_Courant,d1
+	bsr	F_Close
+	move.l	(a2),a0
+	movem.l	(sp)+,a2/d2-d3
+	rts
+.DErr	move.l	a2,a0
+	bsr	Buffer_Free
+	bra	Err_DiskError
+
+;	Retourne le message CONFIG INTERPRETER D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_IntConfigMessage
+	move.l	Sys_Messages(a5),a0
+	bra.s	Get_Message
+;	Retourne le message CONFIG D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_ConfigMessage
+	tst.l	A_Config(a5)
+	beq.s	Get_Urgence
+	move.l	A_Config(a5),a0
+	addq.l	#8,a0
+;	Retourne le message D0/A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Message
+	move.w	d1,-(sp)
+	clr.w	d1
+	cmp.l	#0,a0
+	beq.s	.Big
+	addq.l	#1,a0
+	bra.s	.In
+.Loop	move.b	(a0),d1
+	cmp.b	#$ff,d1
+	beq.s	.Big
+	lea	2(a0,d1.w),a0
+.In	subq.w	#1,d0
+	bgt.s	.Loop
+.Out	move.w	(sp)+,d1
+	move.b	(a0)+,d0
+	rts
+.Big	lea	.Fake(pc),a0
+	bra.s	.Out
+.Fake	dc.b	0,0,0,0
+
+;	Config non chargee: messages d'urgence
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Urgence
+	lea	Mes_Urgence(pc),a0
+.Loop	cmp.b	(a0)+,d0
+	beq.s	.Ok
+.Loop1	tst.b	(a0)
+	bne.s	.Loop1
+	bra.s	.Loop
+.Ok	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION MEMOIRE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Reservation de la zone de donn�e interne du compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reserve_DZ
+	movem.l	a0-a1/d0-d1,-(sp)
+	IFNE	Debug=2
+	bsr	WMemInit
+	ENDC
+	move.l	#DataLong,d0
+	bsr	RamFastNoCount
+	beq	Err_OOfMem
+	lea	DZ(pc),a0
+	move.l	d0,(a0)
+	move.l	d0,a5
+	move.l	#DataLong,Mem_Current(a5)
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+;	Liberation de la data zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_DZ	move.l	DZ(pc),d0
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	#DataLong,d0
+	bsr	RamFree
+.Skip
+	IFNE	Debug=2
+	bsr	WMemEnd
+	ENDC
+	rts
+
+
+; 	Liberation de tous les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_Work
+	tst.b	Flag_AMOS(a5)		Si AMOS
+	beq.s	.CLI
+	clr.l	Buffer(a5)		On efface pas le BUFFER!
+	clr.l	B_Work(a5)
+.CLI	bsr	Buffer_FreeAll
+	lea	Name1(a5),a0
+	bsr	Buffer_Free
+	rts
+
+; 	Reservation des principaux buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reserve_Work
+	move.l	#256,d0			Name1
+	lea	Name1(a5),a0
+	bsr	Buffer_Reserve
+	moveq	#108,d0			Source
+	lea	Path_Source(a5),a0
+	bsr	Buffer_Reserve
+	moveq	#108,d0			Objet
+	lea	Path_Objet(a5),a0
+	bsr	Buffer_Reserve
+	moveq	#108,d0			Configuration
+	lea	Path_Config(a5),a0
+	bsr	Buffer_Reserve
+	moveq	#108,d0			Temporaire
+	lea	Path_Temporaire(a5),a0
+	bsr	Buffer_Reserve
+	move.l	#L_PathToDelete,d0	Delete list
+	lea	Path_ToDelete(a5),a0
+	bsr	Buffer_Reserve
+; Cas special de B_WORK
+	tst.b	Flag_AMOS(a5)		Si CLI
+	bne.s	.AMOS
+	move.l	#512,d0			Le "buffer"
+	lea	B_Work(a5),a0
+	bsr	Buffer_Reserve
+	move.l	a0,Buffer(a5)		Aussi le BUFFER pour le test...
+	rts
+.AMOS	move.l	AMOS_Dz(a5),a0		So AMOS, on prend buffer origine!
+	move.l	Buffer(a0),B_Work(a5)
+	move.l	Buffer(a0),Buffer(a5)
+	rts
+
+;	Reservation memoire, reserve le buffer +4 avec header de taille
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Buffer_ReserveNoError
+	clr.w	-(sp)
+	bra.s	Buffer_R
+Buffer_Reserve
+	move.w	#-1,-(sp)
+Buffer_R
+	bsr	Buffer_Free		Par securite!
+	movem.l	d0/d1/a2,-(sp)
+	move.l	a0,a2
+	addq.l	#4,d0
+	move.l	d0,d1
+	bsr	RamFast
+	beq.s	.Err
+	move.l	d0,a0
+	move.l	d1,(a0)+
+	move.l	a0,(a2)
+.Err	movem.l	(sp)+,d0/d1/a2
+	bne.s	.Out
+	tst.w	(sp)
+	bne	Err_OOfMem
+.Out	addq.l	#2,sp
+	rts
+
+; 	Effacement du buffer (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Buffer_Free
+	movem.l	a0-a1/d0-d1/a6,-(sp)
+	move.l	(a0),d0
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	bsr	RamFree
+.Skip	movem.l	(sp)+,a0-a1/d0-d1/a6
+	rts
+;	Effacement memoire de tous les buffers generaux
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Buffer_FreeAll
+	movem.l	a0/d0,-(sp)
+	lea	F_Buffers(a5),a0
+	move.l	a0,d0
+	lea	D_Buffers(a5),a0
+.Loop	bsr	Buffer_Free
+	addq.l	#4,a0
+	cmp.l	d0,a0
+	bcs.s	.Loop
+	movem.l	(sp)+,a0/d0
+	rts
+
+;	Reservation buffer temporaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ResTempBuffer
+	movem.l	d1/a1,-(sp)
+	move.l	d0,d1
+; Libere l'ancien buffer
+	move.l	TempBuffer(a5),d0
+	beq.s	.NoLib
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	bsr	RamFree
+	clr.l	TempBuffer(a5)
+; Reserve le nouveau
+.NoLib	move.l	d1,d0
+	beq.s	.Exit
+	addq.l	#4,d0
+	bsr	RamFast
+	beq.s	.Exit
+	move.l	d0,a0
+	move.l	d1,(a0)+
+	move.l	a0,TempBuffer(a5)
+	move.l	d1,d0
+.Exit	movem.l	(sp)+,d1/a1
+	rts
+
+	IFEQ	Debug=2
+;	Reservation memoire, mise a zero!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+RamFast	add.l	d0,Mem_Current(a5)
+	move.l	d0,-(sp)
+	move.l	Mem_Current(a5),d0
+	cmp.l	Mem_Maximum(a5),d0
+	bcs.s	.Inf
+	move.l	d0,Mem_Maximum(a5)
+.Inf	move.l	(sp)+,d0
+RamFastNoCount
+	movem.l	d1/a0-a1/a6,-(sp)
+	move.l	#Public|Clear,d1
+	move.l	$4.w,a6
+	jsr	_LVOAllocMem(a6)
+	movem.l	(sp)+,d1/a0-a1/a6
+	tst.l	d0
+	rts
+;	Liberation memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+RamFree	movem.l	d0-d1/a0-a1/a6,-(sp)
+	sub.l	d0,Mem_Current(a5)
+	move.l	$4.w,a6
+	jsr	_LVOFreeMem(a6)
+	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+	ENDC
+
+
+	IFNE	Debug
+
+PreBug 	btst	#6,$BFE001
+	beq.s	BugBug
+	rts
+BugBug	movem.l	d0-d2/a0-a2,-(sp)
+.Ll	move.w	#$FF0,$DFF180
+ 	btst	#6,$BFE001
+	bne.s	.Ll
+	move.w	#20,d0
+.L0	move.w	#10000,d1
+.L1	move.w	d0,$DFF180
+	dbra	d1,.L1
+	dbra	d0,.L0
+	btst	#6,$BFE001
+	beq.s	.Ill
+	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+.Ill	movem.l	(sp)+,d0-d2/a0-a2
+	illegal
+	rts
+
+	ENDC
+
+
+	IFNE	Debug=2
+
+		RsReset
+Mem_Length	rs.l	1
+Mem_Pile	rs.l	8
+Mem_Header	equ	__RS
+Mem_Border	equ	128
+Mem_Code	equ	$AA
+MemList_Size	equ	1024*8
+
+; Initialisation memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemInit
+	movem.l	a0-a1/a5-a6/d0-d1,-(sp)
+	lea	C_MemList(pc),a5
+	move.l	#MemList_Size*4,d0
+	move.l	#Clear|Public,d1
+	move.l	$4.w,a6
+	jsr	AllocMem(a6)
+	move.l	d0,(a5)
+	beq	TheEnd
+	movem.l	(sp)+,a0-a1/a5-a6/d0-d1
+	rts
+
+; Fin memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemEnd
+	movem.l	a0-a1/a5-a6/d0-d1,-(sp)
+	lea	C_MemList(pc),a5
+	tst.l	(a5)
+	beq.s	.Skip
+	bsr	WMemCheck
+	move.l	#MemList_Size*4,d0
+	move.l	(a5),a1
+	move.l	$4.w,a6
+	jsr	FreeMem(a6)
+	clr.l	(a5)
+.Skip	movem.l	(sp)+,a0-a1/a5-a6/d0-d1
+	rts
+
+; Reservation memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Longueur
+;	D1=	Flags
+RamFast	add.l	d0,Mem_Current(a5)
+	move.l	d0,-(sp)
+	move.l	Mem_Current(a5),d0
+	cmp.l	Mem_Maximum(a5),d0
+	bcs.s	.Inf
+	move.l	d0,Mem_Maximum(a5)
+.Inf	move.l	(sp)+,d0
+RamFastNoCount
+	movem.l	d1-d3/a0-a2/a5-a6,-(sp)
+	move.l	Mem_Current(a5),d1
+	cmp.l	Mem_Maximum(a5),d1
+	bcs.s	.Inf
+	move.l	d1,Mem_Maximum(a5)
+.Inf	lea	C_MemList(pc),a5
+	move.l	#Public|Clear,d1
+	move.l	d1,d2
+	move.l	d0,d3
+	add.l	#Mem_Header+2*Mem_Border,d0
+	move.l	$4.w,a6
+	jsr	AllocMem(a6)
+	tst.l	d0
+	beq.s	.OutM
+; Store the adress in the table
+.Again	move.l	(a5),a0
+.Free	tst.l	(a0)+
+	bne.s	.Free
+	move.l	d0,-4(a0)
+	move.l	d0,a0
+	move.l	d3,(a0)+			Save length
+	lea	3*4+3*4+2*4(sp),a1
+	move.l	#"Pile",(a0)+			Code reconnaissance
+	moveq	#6,d1
+.Save	move.l	(a1)+,(a0)+			Save Content of pile
+	dbra	d1,.Save
+; Put code before and after memory
+	move.b	#Mem_Code,d2
+	move.w	#Mem_Border-1,d1
+	move.l	a0,a1
+	add.l	#Mem_Border,a1
+	add.l	d3,a1
+.Code1	move.b	d2,(a0)+
+	move.b	d2,(a1)+
+	dbra	d1,.Code1
+; All right, memory reserved
+	add.l	#Mem_Header+Mem_Border,d0
+	bra.s	.MemX
+; Out of memory: flush procedure!
+.OutM	bsr	WMemFlush
+; Try once again
+	move.l	d2,d1
+	move.l	d3,d0
+	add.l	#Mem_Header+2*Mem_Border,d0
+	jsr	AllocMem(a6)
+	tst.l	d0
+	bne.s	.Again
+; Get out, address in D0, Z set.
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.MemX	tst.l	d0
+	movem.l	(sp)+,d1-d3/a0-a2/a5-a6
+	rts
+
+; Liberation memoire centralisee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1=	Debut zone
+;	D0=	Taille zone
+RamFree
+	movem.l	d0-d2/a0-a2/a5-a6,-(sp)
+	sub.l	d0,Mem_Current(a5)
+	lea	C_MemList(pc),a5
+; Find in the list
+	sub.l	#Mem_Header+Mem_Border,a1
+	move.l	(a5),a2
+	move.w	#MemList_Size-1,d2
+.Find	cmp.l	(a2)+,a1
+	beq.s	.Found
+	dbra	d2,.Find
+	bra.s	Mem_NFound
+; Found, erase from the list
+.Found	clr.l	-4(a2)
+; Check the length
+	cmp.l	Mem_Length(a1),d0
+	bne.s	Mem_BLen
+; Check the borders
+	lea	Mem_Header(a1),a0
+	move.l	a0,a2
+	add.l	#Mem_Border,a2
+	add.l	d0,a2
+	move.w	#Mem_Border-1,d1
+.Check	cmp.b	#Mem_Code,(a0)+
+	bne.s	Mem_BCode
+	cmp.b	#Mem_Code,(a2)+
+	bne.s	Mem_BCode
+	dbra	d1,.Check
+; Perfect!
+	add.l	#Mem_Header+2*Mem_Border,d0
+	move.l	$4.w,a6
+	jsr	FreeMem(a6)
+Mem_Go	movem.l	(sp)+,d0-d2/a0-a2/a5-a6
+	rts
+; Error messages
+; ~~~~~~~~~~~~~~
+Mem_NFound
+	bsr	BugBug
+	bra.s	Mem_Go
+	dc.b	"No found"
+Mem_BLen
+	bsr	BugBug
+	bra.s	Mem_Go
+	dc.b	"Bad leng"
+Mem_BCode
+	bsr	BugBug
+	bra.s	Mem_Go
+	dc.b	"Bad code"
+
+; Flush routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemFlush
+	rts
+
+; Check the whole memory list
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+WMemCheck
+	movem.l	d0-d2/a0-a2/a5-a6,-(sp)
+	lea	C_MemList(pc),a5
+	moveq	#0,d2
+	move.l	(a5),a0
+	move.w	#MemList_Size-1,d0
+.List	tst.l	(a0)+
+	beq.s	.Next
+	move.l	-4(a0),a1
+	add.l	(a1),d2
+; Check the borders
+	move.l	(a1),d1
+	lea	Mem_Header(a1),a1
+	lea	0(a1,d1.l),a2
+	add.l	#Mem_Border,a2
+	move.w	#Mem_Border-1,d1
+.Check	cmp.b	#Mem_Code,(a1)+
+	bne.s	.BCode2
+	cmp.b	#Mem_Code,(a2)+
+	bne.s	.BCode2
+	dbra	d1,.Check
+; Next chunk
+.Next	dbra	d0,.List
+	move.l	d2,d0
+.Xx	movem.l	(sp)+,d0-d2/a0-a2/a5-a6
+	rts
+.BCode2
+	bsr	BugBug
+	moveq	#0,d0
+	bra.s	.Xx
+	dc.b	"Bad code"
+	even
+C_MemList
+	dc.l	0
+	ENDC
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Clear CPU Caches, quel que soit le systeme
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Sys_ClearCache
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	cmp.w	#37,$14(a6)			A partir de V37
+	bcc.s	.Skip
+	jsr	_LVOFindTask(a6)
+	bra.s	.Exit
+.Skip	jsr	_LVOCacheClearU(a6)		CacheClearU
+.Exit	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION DISQUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+;	Initialisation disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Init_Disc
+	movem.l	a0-a2/d0-d7,-(sp)
+
+; Constantes d'acces au disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#L_DiscIn,d0			Buffer disque
+	lea	B_DiskIn(a5),a0
+	bsr	Buffer_Reserve
+	move.l	#L_BordBso,BordBso(a5)		Bordure source
+	move.l	#L_BSo,MaxBso(a5)		Longueur buffer source
+	move.l	#L_BordBob,BordBob(a5)		Bordure objet
+; Ouvre la librarie DOS
+; ~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	move.l	$4,a6
+	lea	Nom_Dos(pc),a1			Le DOS
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,DosBase(a5)
+	beq	Err_System
+.AMOSHere
+	movem.l	(sp)+,a0-a2/d0-d7
+	rts
+
+;	Fermeture disque
+; ~~~~~~~~~~~~~~~~~~~~~~
+End_Disc
+	movem.l	a0-a2/d0-d7,-(sp)
+; Ferme tous les fichiers
+	bsr	F_CloseAll
+; Ferme les librairies
+	tst.l	DosBase(a5)
+	beq.s	.Skip
+	move.l	DosBase(a5),a1
+	move.l	$4.w,a6
+	jsr	_LVOCloseLibrary(a6)
+.Skip	movem.l	(sp)+,a0-a2/d0-d7
+	rts
+
+
+;	Initialisation des icones
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Init_Icon
+	movem.l	a6,-(sp)
+	tst.b	Flag_Type(a5)
+	bne.s	.Iicx
+; Ouvre la libraire ICON
+	moveq	#0,d0
+	lea	Nom_IconLib(pc),a1
+	move.l	$4,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,IconBase(a5)
+	beq	Err_NoIcons
+; Charge l'icone par defaut
+	moveq	#8,d0
+	bsr	Get_ConfigMessage
+	bsr	AddPath
+	move.l	Name1(a5),a0
+	move.l	IconBase(a5),a6
+	jsr	-78(a6)
+	move.l	d0,C_Icon(a5)
+	beq	Err_NoIcons
+	move.l	d0,a0
+	move.l	#$80000000,d0		Position par defaut
+	move.l	d0,$3a(a0)
+	move.l	d0,$3e(a0)
+; Ok!
+.Iicx	movem.l	(sp)+,a6
+	rts
+
+;	Fin des icones
+; ~~~~~~~~~~~~~~~~~~~~
+End_Icon
+	move.l	a6,-(sp)
+	move.l	C_Icon(a5),d0
+	beq.s	.Skip
+	move.l	d0,a0
+	move.l	IconBase(a5),a6
+	jsr	-90(a6)
+.Skip	move.l	IconBase(a5),d0
+	beq.s	.Out
+	move.l	d0,a1
+	move.l	$4.w,a6
+	jsr	_LVOCloseLibrary(a6)
+.Out	move.l	(sp)+,a6
+	rts
+
+;	Sauve l'icone du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Save_Icon
+	tst.b	Flag_Type(a5)
+	bne.s	.SicX
+	move.l	a6,-(sp)
+	move.l	Path_Objet(a5),a0
+	move.l	C_Icon(a5),a1
+	move.l	IconBase(a5),a6
+	jsr	-84(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq	Err_DiskError
+.SicX	rts
+
+;	Delete tous les fichiers intermediaires
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DeleteList
+	movem.l	a2/a6,-(sp)
+	move.l	Path_ToDelete(a5),a2
+	addq.l	#1,a2
+	bra.s	.In
+.Loop	move.l	a2,d1
+	move.l	DosBase(a5),a6
+	jsr	_LVODeleteFile(a6)
+.Skip	tst.b	(a2)+
+	bne.s	.Skip
+.In	tst.b	(a2)
+	bne.s	.Loop
+	movem.l	(sp)+,a2/a6
+	rts
+
+;	Additionne le nom A0 au fichiers � detruire en fin de comp
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Add_DeleteList
+	move.l	Path_ToDelete(a5),a1
+.Loop	tst.b	(a1)+
+	bne.s	.Loop
+	tst.b	(a1)
+	bne.s	.Loop
+	move.l	a0,-(sp)
+.Loop1	tst.b	(a0)+
+	bne.s	.Loop1
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	sub.l	a0,d0
+	move.l	a1,d1
+	sub.l	Path_ToDelete(a5),d1
+	add.l	d1,d0
+	cmp.l	#L_PathToDelete,d0
+	bhi.s	.Out
+.Loop2	move.b	(a0)+,(a1)+
+	bne.s	.Loop2
+	clr.b	(a1)
+.Out	rts
+
+;	Enleve le dernier nom au path des fichiers a deleter
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sub_DeleteList
+	move.l	Path_ToDelete(a5),a0
+.Loop0	move.l	a0,a1
+.Loop1	tst.b	(a0)+
+	bne.s	.Loop1
+	tst.b	(a0)
+	bne.s	.Loop0
+	clr.b	(a1)+
+	clr.b	(a1)
+	rts
+
+;	Fabrique le nom du programme OBJET
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Make_ObjectName
+	move.l	Path_Objet(a5),a0
+	tst.b	(a0)
+	bne.s	.NObX
+; Cherche un point
+	move.l	Path_Source(a5),a0	Localise le nom
+	bsr	Extract_DiskName
+	move.l	a0,d0
+.Loop	tst.b	(a0)+			Cherche la fin
+	bne.s	.Loop
+	subq.l	#1,a0
+	move.l	a0,d1
+.Loop1	cmp.l	d0,a0
+	beq.s	.PaPoin
+	cmp.b	#".",-(a0)		Point trouve, enleve la fin!
+	bne.s	.Loop1
+	move.l	a0,d0
+	lea	Suf_Nul(pc),a1		Rien apres le point
+	cmp.b	#3,Flag_Type(a5)
+	bne.s	.Copy
+	lea	Suf_C.AMOS(pc),a1	Si type 3: prg_C.AMOS
+	bra.s	.Copy
+.PaPoin	lea	Suf_Prg(pc),a1		Suffixe ".prg"
+	move.l	d1,d0
+.Copy	move.l	Path_Source(a5),a0
+	move.l	Path_Objet(a5),a2
+	bra.s	.In1
+.Copy1	move.b	(a0)+,(a2)+		Copie le nom
+.In1	cmp.l	a0,d0			Jusqu'au point
+	bne.s	.Copy1
+.Copy2	move.b	(a1)+,(a2)+		Copie le point!
+	bne.s	.Copy2
+.NObX	rts
+
+; 	Extrait le nom d'un fichier d'un pathname, repere le "."
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0= 	Pathname
+;	A0=	Out: Debut du nom
+;	D0=	Eventuellement point
+Extract_DiskName
+	move.l	a0,a1
+.Loop1	tst.b	(a1)+
+	bne.s	.Loop1
+	subq.l	#1,a1
+	moveq	#0,d0
+.Loop2	cmp.l	a0,a1
+	beq.s	.Out
+	move.b	-(a1),d1
+	cmp.b	#"/",d1
+	beq.s	.Out0
+	cmp.b	#":",d1
+	beq.s	.Out0
+	cmp.b	#".",d1
+	bne.s	.Loop2
+	tst.l	d0
+	bne.s	.Loop2
+	move.l	a1,d0
+	bra.s	.Loop2
+.Out0	lea	1(a1),a0
+.Out	rts
+
+
+; 	Recupere le path complet d'un directory
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AskDir	move.l	a0,d1				Demande le lock
+	moveq	#-2,d2
+	DosCall	_LVOLock
+	tst.l	d0
+	beq	Err_CannotFindAPSystem
+	clr.l	-(sp)
+ADir0	move.l	d0,-(sp)
+	move.l	d0,d1
+	DosCall	_LVOParentDir
+	tst.l	d0
+	bne.s	ADir0
+; Redescend les LOCKS en demandant le NOM!
+	lea	Sys_Pathname(a5),a2
+	clr.b	(a2)
+	moveq	#":",d2
+ADir1:	move.l	(sp)+,d1
+	beq.s	ADir4
+	move.l	B_Work(a5),a1
+	movem.l	d1/d2/a1/a2,-(sp)
+	move.l	a1,d2
+	DosCall	_LVOExamine
+	movem.l	(sp)+,d1/d2/a1/a2
+	tst.l	d0
+	beq.s	ADir3
+	lea	8(a1),a1
+ADir2:	move.b	(a1)+,(a2)+
+	bne.s	ADir2
+	move.b	d2,-1(a2)
+	clr.b	(a2)
+	moveq	#"/",d2
+ADir3	DosCall	_LVOUnLock
+	bra.s	ADir1
+ADir4	rts
+
+; 	AddPath sur un nom+command line, retourne la command line en A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AddPathCom
+	movem.l	a1/d1,-(sp)
+	move.l	a0,a1
+.Lim1	move.b	(a1)+,d1
+	beq.s	.Lim2
+	cmp.b	#" ",d1
+	bne.	.Lim1
+.Lim2	move.b	-1(a1),d1
+	clr.b	-1(a1)
+	bsr	AddPath
+	move.b	d1,-1(a1)
+	bne.s	.Lim3
+	subq.l	#1,a1
+.Lim3	move.l	a1,a0
+	movem.l	(sp)+,a1/d1
+	rts
+
+; 	Additionne le pathname du dossier APSystem, si pas de path defini!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AddPath
+	movem.l	a1/a2,-(sp)
+	move.l	Name1(a5),a2
+	move.l	a0,a1
+.Ess	move.b	(a1)+,d0
+	cmp.b	#":",d0
+	beq.s	.Cop2
+	tst.b	d0
+	bne.s	.Ess
+	lea	Sys_Pathname(a5),a1
+.Cop1	move.b	(a1)+,(a2)+
+	bne.s	.Cop1
+	subq.l	#1,a2
+.Cop2	move.b	(a0)+,(a2)+
+	bne.s	.Cop2
+	movem.l	(sp)+,a1/a2
+	rts
+
+;	Trouve le handle #D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_Handle
+	lsl.w	#2,d1
+	lea	T_Handles(a5),a0
+	add.w	d1,a0
+	move.l	(a0),d1
+	rts
+
+;	OPEN: ouvre le fichier  # Handle D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_OpenOld
+	move.l	Name1(a5),d1
+F_OpenOldD1
+	move.l	#1005,d2
+	bra.s	F_Open
+F_OpenNew
+	move.l	Name1(a5),d1
+F_OpenNewD1
+	move.l	#1006,d2
+F_Open	movem.l	d3/a6,-(sp)
+	move.l	d0,d3
+	move.l	DosBase(a5),a6
+	jsr	_LVOOpen(a6)
+	move.l	d3,d1
+	bsr	F_Handle
+	IFNE	Debug
+	tst.l	(a0)
+	beq.s	.ok
+	illegal
+.ok
+	ENDC
+	move.l	d0,(a0)
+	movem.l	(sp)+,d3/a6
+	rts
+;	CLOSE fichier D1
+; ~~~~~~~~~~~~~~~~~~~~~~
+F_Close
+	movem.l	d0-d1/a0-a1/a6,-(sp)
+	bsr	F_Handle
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	DosBase(a5),a6
+	jsr	_LVOClose(a6)
+.Skip	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+;	CLOSE TOUS les fichiers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_CloseAll
+	moveq	#M_Fichiers-1,d1
+.Loop	bsr	F_Close
+	dbra	d1,.Loop
+	rts
+
+;	READ fichier D1, D3 octets dans D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_Read	movem.l	d1/a0-a1/a6,-(sp)
+	bsr	F_Handle
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,d1/a0-a1/a6
+	cmp.l	d0,d3
+	rts
+
+;	WRITE fichier D1, D3 octets de D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_Write	movem.l	d1/a0-a1/a6,-(sp)
+	bsr	F_Handle
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	movem.l	(sp)+,d1/a0-a1/a6
+	cmp.l	d0,d3
+	rts
+
+;	SEEK fichier D1, D3 mode D2 deplacement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+F_Seek	movem.l	d1/a0-a1/a6,-(sp)
+	bsr	F_Handle
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	movem.l	(sp)+,d1/a0-a1/a6
+	rts
+
+;	LOF fichier D1
+; ~~~~~~~~~~~~~~~~~~~~
+F_Lof	bsr	F_Handle
+	movem.l	d1/a0-a1/a6,-(sp)
+	moveq	#0,d2			* Seek --> fin
+	moveq	#1,d3
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	move.l	(sp),d1
+	move.l	d0,d2			* Seek --> debut!
+	moveq	#-1,d3
+	jsr	_LVOSeek(a6)
+	movem.l	(sp)+,d1/a0-a1/a6
+	rts
+
+;---------------------------------------------------------------------
+; 	SORTIE compilation
+;---------------------------------------------------------------------
+
+; 	Va a la position D0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Go_Position
+	move.w	d0,New_Position(a5)
+;	Actualisation position compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Actualise
+	tst.b	Flag_AMOS(a5)
+	bne.s	.Cont
+; Test du control-c sous CLI
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	rts
+; Test du Control-C sous AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Cont	move.l	AMOS_Dz(a5),a0
+	move.w	T_Actualise(a0),d0
+	clr.w	T_Actualise(a0)
+	bclr	#BitControl,d0
+	bne	Err_ControlC
+	tst.b	Flag_AMOS(a5)
+	bmi.s	.Retour
+	rts
+; Retour au basic ?
+; ~~~~~~~~~~~~~~~~~
+.Retour	move.w	New_Position(a5),d0		P (sur 100)
+	mulu	Total_Position(a5),d0		* Total
+	divu	#100,d0				/ 100
+	cmp.w	Total_Position(a5),d0
+	ble.s	.Inf
+	move.w	Total_Position(a5),d0
+.Inf	cmp.w	Old_Position(a5),d0
+	bne.s	.Back
+	rts
+.Back	and.l	#$0000FFFF,d0
+	move.w	d0,Old_Position(a5)
+	move.l	d0,d1
+	bra	AMOS_Back
+
+;	Set pourcentage
+; ~~~~~~~~~~~~~~~~~~~~~
+;	D0=	Position de debut
+;	D1=	Position finale
+;	D2= 	Nombre de pas estimes
+Set_Pour
+	move.w	d1,Pour_Maximum(a5)
+	movem.l	d0-d2,-(sp)
+	bsr	Go_Position		Va a la position demandee
+	movem.l	(sp)+,d0-d2
+	sub.l	d0,d1			Nombre de pas a faire
+	move.w	d1,Pour_Largeur(a5)
+	move.w	d2,Pour_NPas(a5)
+	cmp.w	d1,d2
+	bcs.s	.Part
+; Cas general: nombre de pas > largeur
+	clr.w	Pour_Compteur(a5)
+	clr.b	Flag_Pour(a5)
+	rts
+; Cas particulier: nombre de pas < largeur
+.Part	tst.w	d2
+	bne.s	.NoNul
+	moveq	#1,d2
+.NoNul	divu	d2,d1			Largeur / Nb pas
+	move.w	d1,Pour_Compteur(a5)
+	move.b	#1,Flag_Pour(a5)	Le flag!
+	rts
+;	Va a la fin du pourcentage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+End_Pour
+	move.w	Pour_Maximum(a5),d0
+	bra	Go_Position
+; 	Un pas de pourcentage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Aff_Pour
+	tst.b	Flag_AMOS(a5)
+	bmi.s	.Pour
+	rts
+.Pour	move.l	d0,-(sp)
+	tst.b	Flag_Pour(a5)
+	bne.s	.Part
+; Cas general
+	move.w	Pour_Largeur(a5),d0
+	sub.w	d0,Pour_Compteur(a5)
+	bcc.s	.Out
+	move.w	Pour_NPas(a5),d0
+	add.w	d0,Pour_Compteur(a5)
+	move.w	New_Position(a5),d0
+	addq.w	#1,d0
+	bra.s	.Envoi
+; Cas particulier
+.Part	move.w	New_Position(a5),d0
+	add.w	Pour_Compteur(a5),d0
+; Envoie la position D0 au basic
+.Envoi	cmp.w	Pour_Maximum(a5),d0
+	ble.s	.Inf
+	move.w	Pour_Maximum(a5),d0
+.Inf	move.w	d0,New_Position(a5)
+	bsr	Actualise
+.Out	move.l	(sp)+,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EXPLORATION LIGNE DE COMMANDE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+CommandLine
+; - - - - - - - - - - - - -
+	movem.l	a2-a3/d2-d3,-(sp)
+	move.l	sp,a3
+; Trouve le debut / pas de command line?
+.Loop1	move.b	(a0)+,d0
+	beq.s	CL_Ok
+	cmp.b	#32,d0
+	ble.s	.Loop1
+	subq.l	#1,a0
+; Nettoie les flags de token
+	lea	CL_Tokens(pc),a1
+.Clean	tst.b	(a1)+
+	bne.s	.Clean
+	clr.b	(a1)+
+	move.w	a1,d0
+	and.w	#$0001,d0
+	lea	4(a1,d0.w),a1
+	tst.b	(a1)
+	bne.s	.Clean
+; Premier= nom du source
+	bsr	CL_GetToken		Veut un token
+	bmi	CL_Syntax
+	beq.s	.Srce			Pas de token=> nom source
+	cmp.w	#1,d0			Veut FROM!
+	bne	CL_Syntax
+.Srce	bsr	CL_Source		Recupere le nom de fichier
+; Prend les parametres
+.Loop	bsr	CL_GetToken
+	bmi.s	CL_Ok
+	beq	CL_Syntax
+	cmp.w	#1,d0			Ne veut plus FROM
+	beq	CL_Syntax
+	jsr	(a1)
+	bra.s	.Loop
+; Termine!
+CL_Ok	moveq	#0,d0
+	bra.s	CL_Out
+; Erreur de syntaxe
+CL_Syntax
+	moveq	#1,d0
+; Sortie generale
+CL_Out	move.l	a3,sp
+	movem.l	(sp)+,a2-a3/d2-d3
+	rts
+
+; 	Explore la liste des tokens
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CL_GetToken
+	lea	-256(sp),sp
+	move.l	sp,a1
+; Recopie le token dans la pile
+	moveq	#-1,d2
+.Loop1	move.b	(a0),d0
+	beq.s	.Out
+	addq.l	#1,a0
+	cmp.b	#32,d0
+	ble.s	.Loop1
+	subq.l	#1,a0
+	move.l	a0,d3
+.Loop2	move.b	(a0)+,d0
+	bsr	D0Maj
+	move.b	d0,(a1)+
+	clr.b	(a1)
+	cmp.b	#"=",d0
+	beq.s	.Egal
+	cmp.b	#" ",d0
+	bhi.s	.Loop2
+	subq.l	#1,a0
+	clr.b	-1(a1)
+; Boucle d'exploration
+.Egal	lea	CL_Tokens(pc),a2
+	moveq	#0,d2
+.RFind	move.l	sp,a1
+	addq.w	#1,d2
+.Find	move.b	(a1)+,d0
+	move.b	(a2)+,d1
+	cmp.b	d0,d1
+	bne.s	.Next
+	tst.b	d1
+	bne.s	.Find
+; Token trouve!
+	tst.b	(a2)
+	bne.s	CL_Syntax
+	addq.b	#1,(a2)+
+	move.l	a2,d0
+	btst	#0,d0
+	beq.s	.Pair
+	addq.l	#1,d0
+.Pair	move.l	d0,a1
+	bra.s	.Out
+; Pointe le token suivant
+.Next	tst.b	(a2)+
+	bne.s	.Next
+	tst.b	(a2)+
+	move.w	a2,d0
+	and.w	#$0001,d0
+	lea	4(a2,d0.w),a2
+	tst.b	(a2)
+	bne.s	.RFind
+	moveq	#0,d2			Pas de token
+	move.l	d3,a0			Reste sur le debut du mot!
+; Sortie generale
+.Out	lea	256(sp),sp
+	move.l	d2,d0
+	rts
+
+;	Recupere un nom
+; ~~~~~~~~~~~~~~~~~~~~~
+CL_Nom	cmp.b	#" ",(a0)+		Saute les espaces
+	beq.s	CL_Nom
+	subq.l	#1,a0			Reste sur premiere lettre
+	move.l	a1,d2
+	move.b	#" ",d1
+	move.b	(a0),d0
+	beq.s	.Clin1
+	cmp.b	#'"',d0
+	beq.s	.ClinB
+	cmp.b	#"'",d0
+	bne.s	.Clin0
+.ClinB	move.b	d0,d1
+	addq.l	#1,a0
+.Clin0	move.b	(a0),d0
+	beq.s	.Clin1
+	addq.l	#1,a0
+	cmp.b	d0,d1
+	beq.s	.Clin1
+	move.b	d0,(a1)+
+	bra.s	.Clin0
+.Clin1	clr.b	(a1)
+	cmp.l	a1,d2
+	beq	CL_Syntax
+	rts
+
+; 	Recupere un digit
+; ~~~~~~~~~~~~~~~~~~~~~~~
+CL_Digit
+	moveq	#0,d0
+	move.b	(a0)+,d0
+	beq	CL_Syntax
+	sub.b	#"0",d0
+	bcs	CL_Syntax
+	rts
+
+; 	Table des tokens command line / sauts aux routines de traitement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CL_Tokens
+	dc.b	"FROM",0,0
+	bra	CL_Source
+	dc.b	"TO",0,0
+	bra	CL_Object
+	dc.b	"TYPE=",0,0
+	bra	CL_Type
+	dc.b	"TOKEN",0,0
+	bra	CL_Token
+	dc.b	"ERR",0,0
+	bra	CL_Errors
+	dc.b	"ERRORS",0,0
+	bra	CL_Errors
+	dc.b	"NOERR",0,0
+	bra	CL_NoErrors
+	dc.b	"NOERRORS",0,0
+	bra	CL_NoErrors
+	dc.b	"LONG",0,0
+	bra	CL_Long
+	dc.b	"NOLONG",0,0
+	bra	CL_NoLong
+	dc.b	"DEF",0,0
+	bra	CL_Default
+	dc.b	"DEFAULT",0,0
+	bra	CL_Default
+	dc.b	"NODEF",0,0
+	bra	CL_NoDefault
+	dc.b	"NODEFAULT",0,0
+	bra	CL_NoDefault
+	dc.b	"WB",0,0
+	bra	CL_Wb
+	dc.b	"NOWB",0,0
+	bra	CL_NoWb
+	dc.b	"QUIET",0,0
+	bra	CL_Quiet
+	dc.b	"TEMP=",0,0
+	bra	CL_Temp
+	dc.b	"LIBS=",0,0
+	bra	CL_Libs
+	dc.b	"CONFIG=",0,0
+	bra	CL_Config
+	dc.b	"DEBUG=",0,0
+	bra	CL_Debug
+	dc.b	"NUMBERS",0,0
+	bra	CL_Numbers
+	dc.b	"BIG",0,0
+	bra	CL_Big
+	dc.b	"INCLIB",0,0
+	bra	CL_IncLib
+	dc.b	"NOLIB",0,0
+	bra	CL_NoLib
+	dc.b	"INFOS",0,0
+	bra	CL_Info
+	dc.b	0
+	even
+
+; Routines pour chaque flag
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+CL_Source
+	move.l	Path_Source(a5),a1
+	bra	CL_Nom
+CL_Object
+	move.l	Path_Objet(a5),a1
+	bra	CL_Nom
+CL_Token
+	move.b	#1,Flag_Tokeniser(a5)
+	rts
+CL_Errors
+	move.b	#1,Flag_Errors(a5)
+	rts
+CL_NoErrors
+	clr.b	Flag_Errors(a5)
+	rts
+CL_Type
+	bsr	CL_Digit
+	cmp.l	#3,d0
+	bhi	CL_Syntax
+	move.b	d0,Flag_Type(a5)
+	rts
+CL_Debug
+	bsr	CL_Digit
+	move.b	d0,Flag_Debug(a5)
+	beq.s	.Skip
+	cmp.b	#2,d0
+	bne.s	.Skip
+	move.b	#1,Flag_OutNumbers(a5)
+.Skip	rts
+CL_Numbers
+	move.b	#1,Flag_Numbers(a5)
+	rts
+CL_Long
+	move.b	#1,Flag_Long(a5)
+	rts
+CL_NoLong
+	clr.b	Flag_Long(a5)
+	rts
+CL_Default
+	move.b	#1,Flag_Default(a5)
+	rts
+CL_NoDefault
+	clr.b	Flag_Default(a5)
+	rts
+CL_Wb
+	move.b	#1,Flag_WB(a5)
+	rts
+CL_NoWb
+	clr.b	Flag_WB(a5)
+	rts
+CL_Quiet
+	move.b	#1,Flag_Quiet(a5)
+	rts
+CL_Temp
+	move.l	Path_Temporaire(a5),a1
+	bra	CL_Nom
+CL_Libs
+	lea	Sys_Pathname(a5),a1
+	bra	CL_Nom
+CL_Config
+	move.l	Path_Config(a5),a1
+	bra	CL_Nom
+CL_Big
+	move.b	#1,Flag_Big(a5)
+	rts
+CL_Info	move.b	#1,Flag_Infos(a5)
+	rts
+CL_IncLib
+	move.b	#1,Flag_AMOSLib(a5)
+	rts
+CL_NoLib
+	clr.b	Flag_AMOSLib(a5)
+	rts
+
+;	Routine transfert en majuscule
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D0Maj	cmp.b	#"a",d0
+	bcs.s	.Skip
+	cmp.b	#"z",d0
+	bhi.s	.Skip
+	sub.b	#$20,d0
+.Skip	rts
+
+
+;---------------------------------------------------------------------
+BugCode		btst	#6,CiaAprA
+		bne.s	BugCode1
+		illegal
+BugCode1	dc.w	$4321
+DbCode		move.w	#0,Cmp_Ligne(a5)
+
+* Endproc / Param
+CdEProE		move.l	d3,ParamE(a5)
+		dc.w	$4321
+CdEProF		move.l	d3,ParamF(a5)
+		dc.w	$4321
+CdEProS		move.l	d3,ParamC(a5)
+		dc.w	$4321
+CdEProD		move.l	d3,ParamF(a5)
+		move.l	d4,ParamF2(a5)
+		dc.w	$4321
+
+Cnegd3		neg.l	d3
+Cbchg7d3	bchg	#7,d3
+Cbchg31d3	bchg	#31,d3
+Cmvd3ma3	move.l	d3,-(a3)
+Cmvima3		move.l	#0,-(a3)
+Cmvmd3d4ma3	movem.l	d3/d4,-(a3)
+Cmv2a6ma3	move.l	2(a6),-(a3)
+Cmv2a0ma3	move.l	2(a0),-(a3)
+Cmv0a0ma3	move.l	(a0),-(a3)
+Cmv2a6d3	move.l	2(a6),d3
+Cmv2a0d3	move.l	2(a0),d3
+Cmv0a0d3	move.l	(a0),d3
+Cmvid3		move.l	#0,d3
+Cmvid4		move.l	#0,d4
+Cadda3pd3	add.l	(a3)+,d3
+Csuba3pd3	sub.l	(a3)+,d3
+Cadd2a6d3	add.l	2(a6),d3
+Cadd2a0d3	add.l	2(a0),d3
+Csub2a6d3	sub.l	2(a6),d3
+Csub2a0d3	sub.l	2(a0),d3
+Cmva3pd3	move.l	(a3)+,d3
+Caddqd3		addq.l	#1,d3
+Caddid3		add.l	#0,d3
+Csubid3		sub.l	#0,d3
+Csubqd3		subq.l	#1,d3
+Clsld0d3	lsl.l	d0,d3
+Casrd0d3	asr.l	d0,d3
+Cmva3pd0	move.l	(a3)+,d0
+Cmvd32a6	move.l	d3,2(a6)
+Cmvd32a0	move.l	d3,2(a0)
+Cmva3p0a0	move.l	(a3)+,(a0)
+Cmvd42a0	move.l	d4,2(a0)
+Cmvd42a6	move.l	d4,2(a6)
+Cmva3pa0p	move.l	(a3)+,(a0)+
+Cmva3pa0	move.l	(a3)+,(a0)
+Cmv2a0d4	move.l	2(a0),d4
+Cmv2a6d4	move.l	2(a6),d4
+Cmva0pd3	move.l	(a0)+,d3
+Cmva0d4		move.l	(a0),d4
+Cmvd7a0		move.l	d7,a0
+
+Cjsr		jsr	$fffff0
+Cbsr		bsr	Cbsr
+Cjsr2a4		jsr	2(a4)
+Cjmp2a4		jmp	2(a4)
+Cjmp		jmp	$fffff0
+Cjmpa0		jmp	(a0)
+Cjsra0		jsr	(a0)
+Cjsr2a0		jsr	2(a0)
+
+Cbra		bra	Cbra
+Cble		ble	Cble
+Cbge		bge	Cbge
+Cblts		blt.s	*+8
+Cbgts		bgt.s	*+8
+Cbeq		beq	Cbeq
+Cbeq8		beq.s	*+8
+Cbeq10		beq.s	*+10
+Cbeq12		beq.s	*+12
+Cbne		bne	Cbne
+Cbne8		bne.s	*+8
+Cbne10		bne.s	*+10
+Cbne12		bne.s	*+12
+Clea2a3a3	lea	2(a3),a3
+Clea2a0a0	lea	2(a0),a0
+Clea2a6a0	lea	2(a6),a0
+Cleapca4	lea	Cleapca4(pc),a4
+Cleapca0	lea	Cjsr(pc),a0
+Cleapca1	lea	Cjsr(pc),a1
+Cleapca2	lea	Cjsr(pc),a2
+Cleaa0		lea	$fffff0,a0
+Cleaa1		lea	$fffff0,a1
+Cleaa2		lea	$fffff0,a2
+Cleaa4		lea	$fffff0,a4
+Cmva3msp	move.l	a3,-(sp)
+Cmvpspa3	move.l	(sp)+,a3
+Cmva0ma3	move.l	a0,-(a3)
+Cmva0d3		move.l	a0,d3
+Cmvi2a5		move.l	#-1,2(a5)
+Cmvwima3	move.w	#0,-(a3)
+Cmvid1		move.l	#0,d1
+Cmvid2		move.l	#0,d2
+Cmvid5		move.l	#0,d5
+Cmvid6		move.l	#0,d6
+Cmvwid0		move.w	#0,d0
+Cmvwid1		move.w	#0,d1
+Cmvwid5		move.w	#0,d5
+Cmvid0		move.l	#0,d0
+Cmvqd0		moveq	#0,d0
+Cmvqd1		moveq	#0,d1
+Cmvqd2		moveq	#0,d2
+Cmvqd3		moveq	#0,d3
+Cmvqd4		moveq	#0,d4
+Cmvqd5		moveq	#0,d5
+Cmvqd6		moveq	#0,d6
+Cmvqd7		moveq	#0,d7
+Cmva6d7		move.l	a6,d7
+Ctsta3p		tst.l	(a3)+
+Ctstd3		tst.l	d3
+Cillegal	illegal
+Crts		rts
+Cclrma3		clr.l	-(a3)
+Cnop		nop
+Cretint		moveq	#0,d2
+		rts
+Cretfloat	moveq	#1,d2
+		rts
+Cretstring	moveq	#2,d2
+		rts
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+;  Zone de donnees
+;---------------------------------------------------------------------
+DZ		dc.l	0
+Pile_AMOS	dc.l	0
+Pile_Base	dc.l	0
+Pile_APCmp	dc.l	0
+
+Nom_Dos		dc.b	"dos.library",0
+Nom_Graphic	dc.b	"graphics.library",0
+Nom_IconLib	dc.b	"icon.library",0
+FloatName	dc.b	"mathffp.library",0
+DFloatName	dc.b 	"mathieeedoubbas.library",0
+
+Def_Config1	dc.b	"s/"
+Def_Config0	dc.b	"AMOSPro_Compiler_Config",0
+Def_Config2	dc.b	"s:AMOSPro_Compiler_Config",0
+Nom_AMOSLib	dc.b	"Libs:AMOS.Library",0
+
+Head_AMOS	dc.b	"AMOS Basic "
+Head_AMOSPro	dc.b	"AMOS Pro101v",0,0,0,0
+Suf_C.AMOS	dc.b	"_C.AMOS",0
+Suf_Prg		dc.b	".Prg"
+Suf_Nul		dc.b	0
+Point_AMOS	dc.b	".AMOS",0
+
+;		Header programme compile
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		even
+Prog_Header	dc.b	"AMOS Pro111v",0,0,0,0
+		dc.l	0
+Prog_Finish	dc.b	"AmBs",0,0
+
+;		Message d'urgence (avant chargement config)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Mes_Urgence	dc.b	1,"Could not load Compiler_Configuration file.",10,0
+		dc.b	2,"Out of memory (before loading Compiler Configuration file).",10,0
+
+		even
+Nom_Spr		dc.b	"Sprites "
+Nom_Ico		dc.b	"Icons   "
+		even
+Mes_Return	dc.b	13,10,0
+
+Err_Pointer0	dc.b	0
+		dc.b	$9B,"3",$6D,0
+Err_Pointer1	dc.b	">>> ",0
+		dc.b	$9B,"33",$6D,">>> ",$9B,"39",$6D,0
+Err_Pointer2	dc.b	0
+		dc.b	$9B,"0",$6D,0
+
+Debug_LObjet	dc.b	"* Program:          ",0
+Debug_LLibrary	dc.b	"* Relative library: ",0
+Debug_ELibrary	dc.b	"* External library: ",0
+Mes_Buffers:	dc.b	"* Relocation:       ",0
+		dc.b	"* Local flags:      ",0
+		dc.b	"* Global flags:     ",0
+		dc.b	"* Strings:          ",0
+		dc.b 	"* Leas:             ",0
+		dc.b	"* Labels:           ",0
+		dc.b	"* Loops:            ",0
+		dc.b	"* Script:           ",0
+		dc.b	"* Instructions 1:   ",0
+		dc.b	"* Instructions 2:   ",0
+		dc.b	"* Relative Reloc:   ",0
+		dc.b	0
+Mes_Bufs1	dc.b	" not reserved",0
+Mes_Bufs2	dc.b	" / ",0
+Mes_Bufs3	dc.b	" - Free: ",0
+Debug_LibFile	dc.b	"Ram:Linked_Numbers.Asc",0
+Debug_Jmp	dc.b	"(Jump)",0
+Debug_SDisc	dc.b	"(Source on disk)",0
+Debug_ODisc	dc.b	"(Object on disk)",0
+Debug_Float	dc.b	"* Float in the program",13,10,0
+		even
+
+;		Definition des donnees (sur la configuration de l'editeur)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RSSET	Ed_Banks
+
+C_Pile		rs.l	1
+Pour_Compteur	rs.w	1
+Pour_Maximum	rs.w	1
+Pour_NPas	rs.w	1
+Pour_Largeur	rs.w	1
+New_Position	rs.w	1
+Old_Position	rs.w	1
+Total_Position	rs.w	1
+
+Flag_Source	rs.b	1
+Flag_Objet	rs.b	1
+
+Flag_AMOS	rs.b	1
+Flag_Errors	rs.b	1
+
+Flag_Default	rs.b	1
+Flag_Type	rs.b	1
+
+Flag_WB		rs.b	1
+Flag_Quiet	rs.b	1
+
+Flag_NoTests	rs.b	1
+Flag_Flash	rs.b	1
+
+Flag_Big	rs.b	1
+Flag_Teste	rs.b	1
+
+Flag_AsciiForce	rs.b	1
+Flag_Tokeniser	rs.b	1
+
+Flag_Libraries	rs.b	1
+Flag_AMOSLib	rs.b	1
+
+Flag_Pour	rs.b	1
+Flag_Debug	rs.b	1
+
+Flag_Numbers	rs.b	1
+Flag_OutNumbers	rs.b	1
+
+Flag_Accessory	rs.b	1
+Flag_Infos	rs.b	1
+
+PrintJSR	rs.l	1
+C_Icon		rs.l	1
+AMOS_Dz		rs.l	1
+A_Config	rs.l	1
+
+;		Position dans l'objet
+Lib_OldRel	rs.l	1
+A_LibRel	rs.l	1
+OldRel		rs.l	1
+A_Chaines	rs.l	1
+
+DebRel		rs.l	1
+A_Bcles		rs.l	1
+A_Lea		rs.l	1
+A_Proc		rs.l	1
+N_Bcles		rs.w	1
+N_Proc		rs.w	1
+Flag_Const	rs.w	1
+Cpt_Labels	rs.w	1
+OCpt_Labels	rs.w	1
+Flag_Procs	rs.w	1
+OFlag_Procs	rs.w	1
+Flag_Long	rs.w	1
+Flag_Val	rs.w	1
+AdAdress	rs.l	1
+AdAdAdress	rs.l	1
+F_Proc		rs.l	1
+A_FlagVarL	rs.l	1
+L_Buf		rs.l	1
+L_Stack		rs.l	1
+P_Source	rs.l	1
+A_Banks		rs.l	1
+A_InitMath	rs.l	1
+A_Dfn		rs.l	1
+N_Dfn		rs.w	1
+A_Datas		rs.l	1
+A_ADatas	rs.l	1
+A_EDatas	rs.l	1
+A_JDatas	rs.l	1
+A_Stock		rs.l	1
+AA_Proc		rs.l	1
+AA_EProc	rs.l	1
+AA_SBuf		rs.l	1
+AA_Reloc	rs.l	1
+AA_Long		rs.l	1
+AA_Header	rs.l	1
+AA_A4		rs.l	1
+Mem_Maximum	rs.l	1
+Mem_Current	rs.l	1
+L_Reloc		rs.w	1
+M_ForNext	rs.w	1
+MM_ForNext	rs.w	1
+NbInstr		rs.w	1
+IconAMOS	rs.w	1
+Type_Voulu	rs.w	1
+Type_Eu		rs.w	1
+A_Script	rs.l	1
+EvaCompteur	rs.w	1
+Last_Token	rs.w	1
+A_Instructions	rs.l	1
+MathType	rs.w	1
+Ad_JsrInits	rs.l	1
+Ad_Inits	rs.l	1
+Ad_HeaderFlags	rs.l	1
+Ad_Rts		rs.l	1
+N_Hunks		rs.w	1
+Lib_NInternes	rs.w	1
+Lib_NExternes	rs.w	1
+Db_Next		rs.l	1
+Db_Prev		rs.l	1
+B_Instructions	rs.l	1
+Proc_Start	rs.l	6
+Stop_Line	rs.w	1
+Cur_Line	rs.w	1
+Old_Line	rs.w	1
+End_Source	rs.l	1
+Info_LObjet	rs.l	1
+Info_LLibrary	rs.l	1
+Info_ELibrary	rs.l	1
+
+* Donnees sur les routines speciales
+Lib_SizeInterne	rs.w	1
+Lib_DExternes	rs.w	1
+Lib_FExternes	rs.w	1
+Lib_DFloat	rs.w	1
+Lib_FFloat	rs.w	1
+Lib_DType	rs.w	1
+Lib_FType	rs.w	1
+Lib_Debut	rs.l	1
+Lib_FinInternes	rs.l	1
+
+* Source
+L_Source	rs.l	1
+DebBso		rs.l	1
+FinBso		rs.l	1
+MaxBso		rs.l	1
+BordBso		rs.l	1
+TopSou		rs.l	1
+
+* Objet
+L_Objet		rs.l	1
+DebBob		rs.l	1
+FinBob		rs.l	1
+TopOb		rs.l	1
+BordBob		rs.l	1
+BB_Objet_Base	rs.l	1
+BB_Objet	rs.l	1
+
+* Banques
+N_Banks		rs.w	1
+
+* Disque
+T_Handles	rs.l	M_Fichiers
+P_Clib		rs.l	1
+T_Clib		rs.l	1
+H_Clib		rs.w	1
+R_Clib		rs.w	1
+V_Clib		rs.w	1
+
+;		Buffers avec auto-liberation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+D_Buffers	equ	__RS
+
+B_Reloc		rs.l	1		0
+B_FlagVarL	rs.l	1		1
+B_FlagVarG	rs.l	1		2
+B_Chaines	rs.l	1		3
+B_Lea		rs.l	1		4
+B_Labels	rs.l	1		5
+B_Bcles		rs.l	1		6
+B_Script	rs.l	1		7
+B_Instructions1	rs.l	1		8
+B_Instructions2	rs.l	1		9
+B_LibRel	rs.l	1		10
+
+B_Work		rs.l	1		0
+B_Config	rs.l	1		4
+B_IntConfig	rs.l	1		8
+B_Noms		rs.l	1		12
+B_Objet		rs.l	1		18
+B_DiskIn	rs.l	1		16
+B_Stock		rs.l	1		17
+B_Source	rs.l	1		18
+Path_Source	rs.l	1		19
+Path_Objet	rs.l	1		20
+Path_Config	rs.l	1		21
+Path_Temporaire	rs.l	1		22
+Path_ToDelete	rs.l	1		23
+B_RToken	rs.l	1		24
+B_RTest		rs.l	1		25
+B_EditMessages1	rs.l	1		26
+B_EditMessages2	rs.l	1		27
+B_Temporaire	rs.l	1		29
+B_Hunks		rs.l	1		30
+B_HeadAMOS	rs.l	1		34
+F_Buffers	equ	__RS
+
+LDZ		equ	__RS
+
+; Securite sur la longueur
+		IFNE	LDZ>DataLong
+		Fail
+		ENDC
+
+;		Routines internes en cas de chargement externe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Add_Routines
+.R		dc.w	L_RamFast
+		dc.l	RamFast-.R
+		dc.w	L_RamFast2
+		dc.l	RamFast-.R
+		dc.w	L_RamChip
+		dc.l	RamFast-.R
+		dc.w	L_RamChip2
+		dc.l	RamFast-.R
+		dc.w	L_RamFree
+		dc.l	RamFree-.R
+		dc.w	L_ResTempBuffer
+		dc.l	ResTempBuffer-.R
+		dc.w	L_Sys_GetMessage
+		dc.l	Get_IntConfigMessage-.R
+		dc.w	L_Sys_AddPath
+		dc.l	AddPath-.R
+		dc.w	0
+
+;		Routines � charger pour la tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Routines_Token	dc.w	L_Tokenisation
+		dc.w	L_CValRout
+		dc.w	L_AscToFloat
+		dc.w	L_FloatToAsc
+		dc.w	L_AscToDouble
+		dc.w	L_DoubleToAsc
+		dc.w	0
+
+;		Routines � charger pour le test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Routines_Test	dc.w	L_Testing
+		dc.w	L_CValRout
+		dc.w	L_InstrFind
+		dc.w	L_AscToFloat
+		dc.w	L_FloatToAsc
+		dc.w	L_AscToDouble
+		dc.w	L_DoubleToAsc
+		dc.w	L_LongToDec
+		dc.w	L_LongToAsc
+		dc.w	L_LongToHex
+		dc.w	L_LongToBin
+		dc.w	0
diff --git a/compiler/+CLib.s b/compiler/+CLib.s
new file mode 100644
index 0000000..7ebe1d5
--- /dev/null
+++ b/compiler/+CLib.s
@@ -0,0 +1,12191 @@
+; ______________________________________________________________________________
+; ..............................................................................
+; ...................................................................2222222....
+; ................................................................22222222220...
+; ...................................................222........222222.....222..
+; ..............................................2202222222222..22000............
+; ..................................22000.....20222222222200000200002...........
+; .................................2002202...2222200222.220000000200000000022...
+; ....................220002......22222200..2200002.......2200000...20000000000.
+; ....................22222202....2220000022200000..........200002........200000
+; .....200000.........2222200000222200220000000002..........200002........20000.
+; .....00222202........2220022000000002200002000002........2000002000020000000..
+; ....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+; ....220000200002......20000..200002..220000200000000000000002.......22........
+; ...2220002.220000 2....220002...22.....200002..0000000000002...................
+; ...220000..222000002...20000..........200000......2222........................
+; ...000000000000000000..200000..........00002..................................
+; ..220000000022020000002.200002.........22.......______________________________
+; ..0000002........2000000220022.................|
+; .200000............2002........................| AMOSPro Compiler
+; .200002........................................| Internal library
+; 220002.........................................|______________________________
+; ______________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+; ______________________________________________________________________________
+
+		Include	"+CLib_Size.S"
+		Include "+AMOS_Includes.s"
+		Include "+Version.s"
+; ______________________________________________________________________________
+
+Start		dc.l	C_Lib-C_Off
+		dc.l	0
+		dc.l	C_End-C_Lib
+		dc.l	0
+		dc.w	0
+
+;---------------------------------------------------------------------
+;		Creates the pointers to functions
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+
+;---------------------------------------------------------------------
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+C_Lib
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Reservatioin du STACK si <>4k	***
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Stack_Reserve
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESERVATION / LIBERATION MEMOIRE (ancienne!)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; 	Mise a zero!
+; ~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	RamFast
+	move.l	a0,-(sp)
+	SyCall	MemFastClear
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+	Lib_Cmp	RamFast2
+	move.l	a0,-(sp)
+	SyCall	MemFast
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+	Lib_Cmp	RamChip
+	move.l	a0,-(sp)
+	SyCall	MemChipClear
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+	Lib_Cmp	RamChip2
+	move.l	a0,-(sp)
+	SyCall	MemChip
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+	Lib_Cmp	RamFree
+	move.l	a0,-(sp)
+	SyCall	MemFree
+	move.l	(sp)+,a0
+	rts
+;
+; 	Reserve / Libere le buffer temporaire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	ResTempBuffer
+ResTempBuffer
+	movem.l	d1/a1,-(sp)
+	move.l	d0,d1
+; Libere l'ancien buffer
+	move.l	TempBuffer(a5),d0
+	beq.s	.NoLib
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	SyCall	MemFree
+	clr.l	TempBuffer(a5)
+; Reserve le nouveau
+.NoLib	move.l	d1,d0
+	beq.s	.Exit
+	addq.l	#4,d0
+	SyCall	MemFastClear
+	beq.s	.Exit
+	move.l	d1,(a0)+
+	move.l	a0,TempBuffer(a5)
+	move.l	d1,d0
+; Branche les routines de liberation automatique
+	movem.l	a0-a2/d0-d1,-(sp)
+	lea	.LibClr(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	lea	.LibErr(pc),a1
+	lea	Sys_ErrorRoutines(a5),a2
+	SyCall	AddRoutine
+	movem.l	(sp)+,a0-a2/d0-d1
+.Exit	movem.l	(sp)+,d1/a1
+	rts
+; Structures liberation
+; ~~~~~~~~~~~~~~~~~~~~~
+.LibClr	dc.l	0
+	moveq	#0,d0
+	bra.s	ResTempBuffer
+.LibErr	dc.l	0
+	moveq	#0,d0
+	bra.s	ResTempBuffer
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Wait vbl multi tache
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Sys_WaitMul
+; - - - - - - - - - - - - -
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+; Inhibition
+	SyCall	Test_Cyclique
+; Attente multitache
+	move.l	T_GfxBase(a5),a6
+	jsr	-270(a6)
+	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retourne le message default resource D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Def_GetMessage
+; - - - - - - - - - - - - -
+	move.l	Sys_Resource(a5),a0
+	add.l	6(a0),a0
+	Rbra	L_GetMessage
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retourne le message system D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Sys_GetMessage
+; - - - - - - - - - - - - -
+	move.l	Sys_Messages(a5),a0
+	Rbra	L_GetMessage
+; - - - - - - - - - - - - -
+	Lib_Cmp	GetMessage
+; - - - - - - - - - - - - -
+	move.w	d1,-(sp)
+	clr.w	d1
+	cmp.l	#0,a0
+	beq.s	.Big
+	addq.l	#1,a0
+	bra.s	.In
+.Loop	move.b	(a0),d1
+	cmp.b	#$ff,d1
+	beq.s	.Big
+	lea	2(a0,d1.w),a0
+.In	subq.w	#1,d0
+	bgt.s	.Loop
+.Out	move.w	(sp)+,d1
+	move.b	(a0)+,d0
+	rts
+.Big	lea	.Fake(pc),a0
+	bra.s	.Out
+.Fake	dc.b	0,0,0,0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ADDITIONNE LE PATH DU SYSTEME AU NOM A0 >>> NAME1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Sys_AddPath
+; - - - - - - - - - - - - -
+	Rbsr	L_Sys_GetPath		Va chercher le path du systeme
+	movem.l	a1/a2,-(sp)
+	move.l	Name1(a5),a2
+	move.l	a0,a1
+.Ess	move.b	(a1)+,d0
+	cmp.b	#":",d0
+	beq.s	.Cop2
+	tst.b	d0
+	bne.s	.Ess
+	lea	Sys_Pathname(a5),a1
+.Cop1	move.b	(a1)+,(a2)+
+	bne.s	.Cop1
+	subq.l	#1,a2
+.Cop2	move.b	(a0)+,(a2)+
+	bne.s	.Cop2
+	movem.l	(sp)+,a1/a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TROUVE LE PATH DU SYSTEME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Sys_GetPath
+; - - - - - - - - - - - - -
+	tst.b	Sys_Pathname(a5)
+	bne.s	.Fin
+; Demande le path si non defini
+	movem.l	a0-a3/d0-d7,-(sp)
+	moveq	#1,d0				Acces au path
+	Rbsr	L_Sys_GetMessage
+	move.l	a0,d1				Demande le lock
+	moveq	#-2,d2
+	DosCall	_LVOLock
+	tst.l	d0
+	Rbeq	L_DiskError
+	Rbsr	L_AskDir2			Demande le directory
+	move.l	Buffer(a5),a0			Copie le directory
+	lea	384(a0),a0
+	lea	Sys_Pathname(a5),a1
+.CC	move.b	(a0)+,(a1)+
+	bne.s	.CC
+	movem.l	(sp)+,a0-a3/d0-d7
+; Termine!
+.Fin	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINES DE DEBUGGAGE!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	BugBug
+; - - - - - - - - - - - - -
+	movem.l	d0-d2/a0-a2,-(sp)
+.Ll	move.w	#$FF0,$DFF180
+ 	btst	#6,$BFE001
+	bne.s	.Ll
+	move.w	#20,d0
+.L0	move.w	#10000,d1
+.L1	move.w	d0,$DFF180
+	dbra	d1,.L1
+	dbra	d0,.L0
+	btst	#6,$BFE001
+	beq.s	.Ill
+	movem.l	(sp)+,d0-d2/a0-a2
+	rts
+.Ill	EcCalD	AMOS_WB,0
+	movem.l	(sp)+,d0-d2/a0-a2
+	illegal
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	PreBug
+; - - - - - - - - - - - - -
+ 	btst	#6,$BFE001
+	Rbeq	L_BugBug
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RECOP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	ReCop
+; - - - - - - - - - - - - -
+	SyCall	WaitVbl
+	EcCall	CopForce
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	GESTION DES LISTES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; Cree un element de liste en CHIP MEM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.ChipNew
+	move.l	#Chip|Clear|Public,d1
+	Rbra	L_Lst.Cree
+; Cree une element de liste en FAST MEM
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.New
+	move.l	#Clear|Public,d1
+	Rbra	L_Lst.Cree
+; Cree un �l�ment en tete de liste A0 / longueur D0 / Memoire D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.Cree
+	movem.l	a0/d0,-(sp)
+	addq.l	#8,d0
+	SyCall	MemReserve
+	move.l	a0,a1
+	movem.l	(sp)+,a0/d1
+	beq.s	.Out
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	move.l	d1,4(a1)
+	move.l	a1,d0
+.Out	rts
+
+; Efface une liste entiere A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.DelAll
+	bra.s	.In
+.Loop	move.l	d0,a1
+	Rbsr	L_Lst.Del
+.In	move.l	(a0),d0
+	bne.s	.Loop
+	rts
+; Efface un �l�ment de liste A1 / Debut liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.Del
+	movem.l	a0/d0-d2,-(sp)
+	move.l	a1,d0
+	move.l	a0,a1
+	move.l	(a1),d2
+	beq.s	.NFound
+.Loop	move.l	a1,d1
+	move.l	d2,a1
+	cmp.l	d0,a1
+	beq.s	.Found
+	move.l	(a1),d2
+	bne.s	.Loop
+	bra.s	.NFound
+; Enleve de la liste
+.Found	move.l	d1,a0
+	move.l	(a1),(a0)
+	move.l	4(a1),d0
+	addq.l	#8,d0
+	SyCall	MemFree
+.NFound	movem.l	(sp)+,a0/d0-d2
+	rts
+
+; INSERE un �l�ment A1 en tete de liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.Insert
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	rts
+
+; Enleve un �l�ment de liste A1 / Debut liste A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Cmp	Lst.Remove
+	movem.l	a0/a1/d0-d2,-(sp)
+	move.l	a1,d0
+	move.l	a0,a1
+	move.l	(a1),d2
+	beq.s	.NFound
+.Loop	move.l	a1,d1
+	move.l	d2,a1
+	cmp.l	d0,a1
+	beq.s	.Found
+	move.l	(a1),d2
+	bne.s	.Loop
+	bra.s	.NFound
+; Enleve de la liste
+.Found	move.l	d1,a0
+	move.l	(a1),(a0)
+.NFound	movem.l	(sp)+,a0/a1/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Trouve le directory courant >
+;					>>> Buffer + 384
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	AskDir
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	clr.w	(a0)
+	clr.w	384(a0)
+	move.l	a0,d1
+	moveq	#-2,d2
+	DosCall	_LVOLock
+	tst.l	d0
+	Rbne	L_AskDir2
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	AskDir2
+; - - - - - - - - - - - - -
+	clr.l	-(sp)
+ADir0:	move.l	d0,-(sp)
+	move.l	d0,d1
+	DosCall	_LVOParentDir
+	tst.l	d0
+	bne.s	ADir0
+* Redescend les LOCKS en demandant le NOM!
+	move.l	Buffer(a5),a2
+	lea	384(a2),a2
+	clr.b	(a2)
+	moveq	#":",d2
+ADir1:	move.l	(sp)+,d1
+	beq.s	ADir4
+	move.l	Buffer(a5),a1
+	movem.l	d1/d2/a1/a2,-(sp)
+	move.l	a1,d2
+	DosCall	_LVOExamine
+	movem.l	(sp)+,d1/d2/a1/a2
+	tst.l	d0
+	beq.s	ADir3
+	lea	8(a1),a1
+ADir2:	move.b	(a1)+,(a2)+
+	bne.s	ADir2
+	move.b	d2,-1(a2)
+	clr.b	(a2)
+	moveq	#"/",d2
+ADir3	DosCall	_LVOUnLock
+	bra.s	ADir1
+ADir4	moveq	#0,d0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TOKENISATEUR POUR LE COMPILATEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp Tokenisation
+; - - - - - - - - - - - - -
+	bra	Tokenise
+	bra	Tok_Init
+	bra	Tok_Del
+
+; Initialisation des tables de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tok_Init
+	tst.l	Ed_BufT(a5)
+	bne	MTokX
+; Reserve le buffer de tokenisation...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#EdBTT,d0
+	Rjsr	L_RamFast
+	beq	MTError
+	move.l	d0,Ed_BufT(a5)
+; Fabrique les tables de tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#1024*12,d0
+	Rjsr	L_ResTempBuffer
+	beq	MTError
+	lea	AdTokens(a5),a3
+	lea	AdTTokens(a5),a4
+	moveq	#-4,d7
+MTok1	addq.w	#4,d7
+	cmp.w	#26*4,d7
+	bcc	MTokX
+	move.l	0(a3,d7.w),d6
+	beq.s	MTok1
+	move.l	d6,a1
+	addq.l	#6,a1
+; Premiere table
+	move.l	TempBuffer(a5),a6
+	move.l	a6,a0
+	lea	2048(a0),a2
+	moveq	#0,d0
+MTok2	move.l	a1,d1
+	lea	4(a1),a1
+MTok0	move.b	(a1)+,d0
+	bpl.s	MTok3
+	and.w	#$7f,d0
+	subq.l	#1,a1
+MTok3	cmp.b	#"!",d0
+	beq.s	MTok0
+	cmp.b	#" ",d0
+	beq.s	MTok0
+	bsr	MnD0
+	cmp.b	#"a",d0
+	bcs.s	MTok4
+	cmp.b	#"z",d0
+	bhi.s	MTok4
+	move.w	d0,(a0)+
+	sub.l	d6,d1
+	move.w	d1,(a2)+
+MTok4	bsr	EdlNext
+	bne.s	MTok2
+	move.w	#-1,(a0)+
+; Deuxieme table
+	move.l	a0,d0
+	sub.l	a6,d0
+	add.l	#26*4+2+4,d0
+	move.l	d0,d1
+	Rjsr	L_RamFast
+	beq	MTError
+	move.l	d0,a0
+	move.l	a0,0(a4,d7.w)
+	move.l	a0,a1
+	move.l	a0,d3
+	move.l	d1,(a1)+
+	lea	26*2+2(a1),a2
+	moveq	#"a",d5
+	move.w	#2048,d4
+MTok5	move.l	a2,d0
+	sub.l	d3,d0
+	move.w	d0,(a1)+
+	move.l	a6,a0
+MTok6	move.w	(a0)+,d0
+	bmi.s	MTok7
+	cmp.w	d0,d5
+	bne.s	MTok6
+	move.w	-2(a0,d4.w),(a2)+
+	bra.s	MTok6
+MTok7	clr.w	(a2)+
+	addq.w	#1,d5
+	cmp.w	#"z",d5
+	bls.s	MTok5
+	clr.w	(a1)+
+	bra	MTok1
+MTokX	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+	moveq	#0,d0
+	rts
+; Out of memory!
+; ~~~~~~~~~~~~~~
+MTError	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+	moveq	#1,d0
+	rts
+; Routine: token suivant
+; ~~~~~~~~~~~~~~~~~~~~~~
+EdlNext	tst.b	(a1)+			; Saute le nom
+	bpl.s	EdlNext
+.Tkln1	tst.b	(a1)+			; Saute les params
+	bpl.s	.Tkln1
+	move.w	a1,d1
+	btst	#0,d1			; Rend pair
+	beq.s	.Tkln2
+	addq.l	#1,a1
+.Tkln2	tst.w	(a1)
+	rts
+; Routine: D0 minuscule
+MnD0	cmp.b	#"A",d0
+	bcs.s	.Mnd0a
+	cmp.b	#"Z",d0
+	bhi.s	.Mnd0a
+	add.b	#32,d0
+.Mnd0a	rts
+
+; Effacement de la tokenisation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tok_Del
+; Efface le buffer de tokenisation
+	move.l	Ed_BufT(a5),d0
+	beq.s	DlTkX
+	clr.l	Ed_BufT(a5)
+	move.l	d0,a1
+	move.l	#EdBTT,d0
+	Rjsr	L_RamFree
+; Efface les tables de tokens rapide
+	lea	AdTTokens(a5),a2
+	moveq	#25,d1
+DlTk1	move.l	(a2)+,d0
+	beq.s	DlTk2
+	clr.l	-4(a2)
+	move.l	d0,a1
+	move.l	(a1),d0
+	Rjsr	L_RamFree
+DlTk2	dbra	d1,DlTk1
+DlTkX	rts
+
+
+;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+;+	TOKENISE LA LIGNE COURANTE
+;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+Tokenise:
+	movem.l	a1-a6/d2-d7,-(sp)	* Sauve le debut de la ligne
+	move.l	a1,a4
+	move.l	a0,a3
+	pea	512(a4)
+	clr.w	d5			* RAZ de tous les flags
+	clr.w	(a4)+
+
+; ----- Compte les TABS
+	moveq	#0,d1
+TokT:	addq.w	#1,d1
+	move.b	(a3)+,d0
+	beq	TokVide
+	cmp.b	#32,d0
+	beq.s	TokT
+	subq.l	#1,a3
+	cmp.w	#127,d1
+	bcs.s	TokT1
+	moveq	#127,d1
+TokT1:	move.b	d1,-1(a4)
+
+; ----- Un chiffre au debut de la ligne?
+	move.b	(a3),d0
+	cmp.b	#"0",d0
+	bcs.s	TokT2
+	cmp.b	#"9",d0
+	bhi.s	TokT2
+	bset	#1,d5		* Flag VARIABLE
+	bset 	#4,d5		* Flag LABEL
+	move.l	a4,TkAd(a5)
+	move.w	#_TkVar,(a4)+
+	clr.l	(a4)+
+	move.b	(a3)+,(a4)+
+
+; ----- Une apostrophe en debut de ligne?
+TokT2:	cmp.b 	#"'",d0
+	bne.s	TokLoop
+	addq.l	#1,a3
+	move.w	#_TkRem2,(a4)+
+	bra	TkKt2
+
+; -----	Prend une lettre
+TokLoop:
+	cmp.l	(sp),a4
+	bhi	TokFin
+	move.b	(a3)+,d0
+	beq	TokFin
+
+* Rem en route?
+	btst	#5,d5
+	beq.s	TkROn
+	move.b	d0,(a4)+
+	bra.s	TokLoop
+TkROn:
+
+* Variable en route?
+	btst	#1,d5
+	bne	TkVD
+
+* Chaine en route?
+	btst	#0,d5
+	beq.s	TkC2
+	cmp.b	TkChCar(a5),d0
+	beq.s	TkC1
+	move.b	d0,(a4)+
+	bra.s	TokLoop
+* Fin d'une chaine alphanumerique
+TkChf:	subq.l	#1,a3
+TkC1:	bclr	#0,d5
+	move.l	a4,d0
+	btst	#0,d0
+	beq.s	TkC0
+	clr.b	(a4)+
+TkC0:	move.l	TkAd(a5),a0
+	sub.l	a0,d0
+	subq.w	#4,d0
+	move.w	d0,2(a0)
+	bra.s	TokLoop
+* Debut d'une chaine alphanumerique?
+TkC2:	cmp.b	#'"',d0
+	beq 	TkC2a
+	cmp.b	#"'",d0
+	bne	TkOtre
+TkC2a:	move.b	d0,TkChCar(a5)
+	move.l	a4,TkAd(a5)
+	cmp.b	#"'",d0
+	beq.s	TkC2b
+	move.w	#_TkCh1,(a4)+
+	bra.s	TkC2c
+TkC2b:	move.w	#_TkCh2,(a4)+
+TkC2c:	clr.w	(a4)+
+	bset	#0,d5
+	bra.s	TokLoop
+
+* Variable en route
+TkVD:	bsr	Minus
+* Numero de ligne en route
+TkFV:	moveq	#0,d1
+	move.l	TkAd(a5),a0
+	btst	#4,d5
+	beq.s	TkV2
+	cmp.b	#"0",d0
+	bcs.s	TkV0
+	cmp.b	#"9",d0
+	bls.s	TkV3
+TkV0:	bset	#3,d5		Fin du debut de ligne!
+	bclr	#4,d5		Fin du numero de ligne
+	cmp.b	#":",d0
+	beq.s	TkV1
+	subq.l	#1,a3
+	bra.s	TkV1
+* Variable normale / label
+TkV2:	cmp.b	#"_",d0
+	beq.s	TkV3
+	cmp.b	#"0",d0
+	bcs.s	TkV4
+	cmp.b	#"9",d0
+	bls.s	TkV3
+	cmp.b	#"a",d0
+	bcs.s	TkV4
+	cmp.b	#"z",d0
+	bls.s	TkV3
+	cmp.b	#128,d0
+	bls.s	TkV4
+TkV3:	move.b	d0,(a4)+
+	bra	TokLoop
+* Fin de la variable/label/label goto
+TkV4:	bset	#3,d5		* Si pas debut de ligne
+	bne.s	TkV5
+	cmp.b	#":",d0		* Si :
+	bne.s	TkV5
+TkV1:	move.w	#_TkLab,(a0)
+	bra.s	TkV7
+
+TkV5:	subq.l	#1,a3
+	moveq	#2,d1
+	cmp.b	#"$",d0
+	beq.s	TkV6
+	moveq	#1,d1
+	cmp.b	#"#",d0
+	beq.s	TkV6
+	moveq	#0,d1
+	bra.s	TkV7
+TkV6:	addq.w	#1,a3
+TkV7:	move.w	a4,d2		* Rend pair
+	btst	#0,d2
+	beq.s	TkV8
+	clr.b	(a4)+
+TkV8:	move.l	a4,d0
+	sub.l	a0,d0
+	subq.l	#6,d0
+	move.b	d0,4(a0)	* Poke la longueur
+	move.b	d1,5(a0)	* Poke le flag
+	bclr	#1,d5
+	bra	TokLoop
+
+* Saute les 32
+TkOtre:	cmp.b	#" ",d0
+	beq	TokLoop
+
+* Est-ce un chiffre?
+	lea	-1(a3),a0	Pointe le debut du chiffre
+	moveq	#0,d0		Ne pas tenir compte du signe (valtok)
+	Rbsr	L_CValRout
+	bne.s	TkK
+	move.l	a0,a3
+	move.w	d1,(a4)+
+	move.l	d3,(a4)+
+	cmp.w	#_TkDFl,d1
+	bne	TokLoop
+	move.l	d4,(a4)+
+	bra	TokLoop
+TkK:
+
+; ----- Tokenisation RAPIDE!
+	moveq	#-4,d7			* D7--> Numero de l'extension
+	lea	AdTokens(a5),a6
+	moveq	#0,d3
+	lea	-10(sp),sp
+* Prend le premiere caractere...
+	moveq	#0,d0
+	move.b	-1(a3),d0
+	bsr	MinD0
+	move.l	d0,d2
+	lea	Dtk_Operateurs(pc),a1	Operateur, LENTS en 1er...
+	bra	TkLIn
+* Lent ou rapide?
+TkUn	cmp.b	#"a",d2
+	bcs.s	Tkl1
+	cmp.b	#"z",d2
+	bhi.s	Tkl1
+	bset	#31,d2
+	move.w	d2,d6
+	sub.w	#"a",d6
+	lsl.w	#1,d6
+* Mode rapide: init!
+Tkr1	lea	AdTTokens(a5),a2
+	move.l	0(a2,d7.w),d0
+	beq.s	Tkl1
+	move.l	d0,a2
+	move.w	4(a2,d6.w),d0
+	add.w	d0,a2			* A2-> Adresse des adresses
+	bset	#31,d6
+	bra	TkRNext
+* Tokens lents
+Tkl1	move.l	0(a6,d7.w),d0
+	beq	TkNext
+	move.l	d0,a1
+	addq.l	#6,a1
+TkLIn	bclr	#31,d6
+	cmp.b	#"!",d2			Entree pour les operateurs...
+	beq	TkKF
+	cmp.b	#"?",d2
+	bne.s	Tkl2
+	move.l	a3,a0
+Tkl1a	move.b	(a0)+,d0		* ? PRINT / ? PRINT #
+	beq.s	Tkl1b
+	cmp.b	#"#",d0
+	beq.s	Tkl1c
+	cmp.s	#" ",d0
+	beq.s	Tkl1a
+Tkl1b	move.w	#_TkPr,d4
+	bra	TkKt0
+Tkl1c	move.l	a0,a3
+	move.w	#_TkHPr,d4
+	bra	TkKt0
+Tkl2	move.l	a1,d4			* Recherche la 1ere lettre
+	lea	4(a1),a1
+	move.w	d2,d0
+Tkl0	move.b	(a1)+,d1
+	bmi	Tkl4
+	cmp.b	#" ",d1
+	beq.s	Tkl0
+	cmp.b	#"!",d1
+	beq.s	Tkl0
+	cmp.b	d0,d1
+	beq.s	TkRe0
+Tkl3	bsr	TklNext
+	bne.s	Tkl2
+* Tableau de token suivant!
+TkNext	addq.l	#4,d7
+	beq	TkUn
+	cmp.l	#4*26,d7
+	bcc.s	.TrouV
+	tst.l	d2
+	bpl.s	Tkl1
+	bra	Tkr1
+.TrouV	tst.w	d3
+	beq	TkKF
+	move.l	(sp),d4
+	move.l	4(sp),a3
+	move.w	8(sp),d7
+	bra	TklT
+* Trouve 1 lettre lent?
+Tkl4	subq.l	#1,a1
+	and.b	#$7f,d1
+	cmp.b	#" ",d1
+	beq	TklT
+	cmp.b	d0,d1
+	bne.s	Tkl3
+	bra	TklT
+* Token rapide suivant
+TkRNext	move.w	(a2)+,d0
+	beq	TkNext
+	move.l	0(a6,d7.w),a1
+	add.w	d0,a1
+	move.l	a1,d4
+	lea	5(a1),a1
+	move.b	-1(a1),d0
+	cmp.b	#"!",d0
+	beq.s	TkRe0a
+	cmp.b	#" ",d0
+	bne.s	TkRe0
+TkRe0a	addq.l	#1,a1
+* Explore les autres lettres du token
+TkRe0	move.l	a3,a0
+TkRe1	move.b	(a0)+,d0
+	bsr	MinD0
+TkRe2	move.b	(a1)+,d1
+	bmi.s	TkKt
+	cmp.b	#" ",d1
+	bne.s	TkRe3
+	cmp.b	d1,d0
+	bne.s	TkRe2
+	beq.s	TkRe1
+TkRe3	cmp.b	d0,d1
+	beq.s	TkRe1
+* Mot cle suivant
+TkRe4	tst.l	d6
+	bpl	Tkl3
+	bmi.s	TkRNext
+* Mot trouve?
+TkKt:	subq.l	#1,a0
+	subq.l	#1,a1
+	and.b	#$7f,d1
+	cmp.b	#" ",d1
+	beq.s	TkKt1
+	cmp.b	d0,d1
+	bne.s	TkRe4
+	addq.l	#1,a0
+TkKt1:
+	tst.l	d6
+	bpl.s	TklTl
+	move.l	a1,d0
+	sub.l	d4,d0
+	cmp.w	d3,d0
+	bls.s	TkRe4
+	move.w	d0,d3
+	move.l	d4,(sp)
+	move.l	a0,4(sp)
+	move.w	d7,8(sp)
+	bra.s	TkRe4
+TklTl	move.l	a0,a3
+** Token trouve!
+TklT	tst.w	d7			Une extension
+	bgt	TkKtE
+	beq.s	.Norm			Un operateur?
+	lea	Dtk_OpFin(pc),a0
+	sub.l	a0,d4
+	bra.s	TkKt0
+.Norm	sub.l	AdTokens(a5),d4		Un token librairie principale
+TkKt0:	lea	10(sp),sp
+	move.w	d4,(a4)+
+	bclr	#4,d5			Plus de numero de ligne
+	bset	#3,d5			Plus debut de ligne
+	cmp.w	#_TkEqu,d4		Tokens de structure?
+	bcs.s	.SkS
+	cmp.w	#_TkStruS,d4
+	bls	TkKt5
+.SkS	cmp.w	#_TkOn,d4
+	beq.s	TkKt7
+	cmp.w	#_TkData,d4
+	beq	TkKt3
+	cmp.w	#_TkRem1,d4
+	beq.s	TkKt2
+	cmp.w	#_TkFor,d4
+	beq.s	TkKt3
+	cmp.w	#_TkRpt,d4
+	beq.s	TkKt3
+	cmp.w	#_TkWhl,d4
+	beq.s	TkKt3
+	cmp.w	#_TkDo,d4
+	beq.s	TkKt3
+	cmp.w	#_TkExit,d4
+	beq.s	TkKt4
+	cmp.w	#_TkExIf,d4
+	beq.s	TkKt4
+	cmp.w	#_TkIf,d4
+	beq.s	TkKt3
+	cmp.w	#_TkElse,d4
+	beq.s	TkKta
+	cmp.w	#_TkElsI,d4
+	beq.s	TkKt3
+	cmp.w	#_TkThen,d4
+	beq.s	TkKtb
+	cmp.w	#_TkProc,d4
+	beq.s	TkKt6
+	cmp.w	#_TkDPre,d4
+	beq.s	TkKDPre
+	bra	TokLoop
+* ON
+TkKt7:	clr.l	(a4)+
+	bra	TokLoop
+* Debut d'une REM
+TkKt2:	clr.w	(a4)+
+	move.l	a4,TkAd(a5)
+	bset	#5,d5
+	bra	TokLoop
+* Poke les blancss
+TkKt6	clr.w	(a4)+		8 octets
+TkKt5	clr.w	(a4)+		6 octets
+TkKt4	clr.w	(a4)+		4 octets
+TkKt3	clr.w	(a4)+		2 octets
+	bra	TokLoop
+* Token double precision: flags � 1
+TkKDPre	or.b	#%10000011,MathFlags(a5)
+	bra	TokLoop
+* Token d'extension! .w EXT/.b #Ext/.b Nb Par/.w TOKEN
+TkKtE:	lea	10(sp),sp
+	move.w	#_TkExt,(a4)+
+	move.w	d7,d0
+	lsr.w	#2,d0
+	move.b	d0,(a4)+
+	clr.b	(a4)+
+	lea	AdTokens(a5),a6
+	sub.l	0(a6,d7.w),d4
+	move.w	d4,(a4)+
+	bclr	#4,d5
+	bset	#3,d5
+	bra	TokLoop
+* ELSE/THEN: regarde si numero de ligne apres!
+TkKta:	clr.w	(a4)+
+TkKtb:	move.l	a3,a0
+TkKtc:	move.b	(a0)+,d0
+	beq	TokLoop
+	cmp.b	#" ",d0
+	beq	TkKtc
+	cmp.b	#"0",d0
+	bcs	TokLoop
+	cmp.b	#"9",d0
+	bhi	TokLoop
+	move.l	a0,a3
+	move.w	#_TkLGo,d1
+	bra.s	TkKf2
+
+; ----- Rien trouve ===> debut d'une variable
+TkKF:	lea	10(sp),sp
+	move.w	#_TkVar,d1
+	move.b	-1(a3),d0
+TkKf0:	cmp.b	#"A",d0
+	bcs.s	TkKf1
+	cmp.b	#"Z",d0
+	bhi.s	TkKf1
+	add.b	#"a"-"A",d0
+TkKf1:	cmp.b	#"_",d0
+	beq.s	TkKf2
+	cmp.b	#128,d0
+	bcc.s	TkKf2
+	cmp.b	#"a",d0
+	bcs	TokLoop
+	cmp.b	#"z",d0
+	bhi	TokLoop
+TkKf2:	move.l	a4,TkAd(a5)
+	move.w	d1,(a4)+
+	clr.l	(a4)+
+	move.b	d0,(a4)+
+	bset 	#1,d5
+	bra	TokLoop
+* Appel d'un label?
+TkKf3:	move.w	#_TkLGo,d1
+	cmp.b	#"0",d0
+	bcs.s	TkKf0
+	cmp.b	#"9",d0
+	bls.s	TkKf2
+	bra.s	TkKf0
+
+; ----- Fin de la tokenisation
+TokFin:	btst	#1,d5		Fin de variable
+	bne	TkFV
+	btst	#0,d5		Fin de chaine alphanumerique
+	bne	TkChf
+
+	moveq	#1,d0		* Quelquechose dans la ligne!
+
+	btst	#5,d5		REM
+	beq.s	TokPaR
+	move.w	a4,d1
+	btst	#0,d1		Rend pair la REM!
+	beq.s	FRem
+	move.b	#" ",(a4)+
+FRem:	move.l	a4,d1		Calcule et stocke la longueur
+	move.l	TkAd(a5),a0
+	sub.l	a0,d1
+	move.w	d1,-2(a0)
+* Marque la fin
+TokPaR:	clr.w	(a4)+
+	clr.w	(a4)
+* Poke la longueur de la ligne / 2
+	move.l	a4,d1
+	addq.l	#4,sp
+	move.l	a3,a0
+	movem.l	(sp)+,a1-a6/d2-d7
+	sub.l	a1,d1
+	cmp.w	#510,d1
+	bcc.s	.Long
+	lsr.w	#1,d1
+	move.b	d1,(a1)
+	lsl.w	#1,d1
+	ext.l	d1
+* Fini!
+	tst.w	d0
+	rts
+* Trop longue!
+.Long	clr.w	(a1)		* <0= Trop longue
+	moveq	#0,d1
+	moveq	#-1,d0
+	rts
+* Ligne vide!
+TokVide	moveq	#0,d0		* = 0 Vide
+	moveq	#0,d1
+	bra.s	TokPaR
+
+* Routine: D0 minuscule
+MinD0	cmp.b	#"A",d0
+	bcs.s	Mnd0a
+	cmp.b	#"Z",d0
+	bhi.s	Mnd0a
+	add.b	#32,d0
+Mnd0a	rts
+* Routine: token suivant
+TklNext	tst.b	(a1)+			* Saute le nom
+	bpl.s	TklNext
+Tkln1	tst.b	(a1)+			* Saute les params
+	bpl.s	Tkln1
+	move.w	a1,d1
+	btst	#0,d1			* Rend pair
+	beq.s	Tkln2
+	addq.l	#1,a1
+Tkln2	tst.w	(a1)
+	rts
+
+
+;	Passe en minuscules
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Minus:	cmp.b 	#"A",d0
+	bcs.s	.Skip
+	cmp.b	#"Z",d0
+	bhi.s	.Skip
+	add.b	#"a"-"A",d0
+.Skip	rts
+
+
+;						Table des operateurs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dtk_Operateurs
+	dc.w	1,1
+	dc.b 	" xor"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	" or"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	" and"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"<",">"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	">","<"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"<","="+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"=","<"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	">","="+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"=",">"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"="+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"<"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	">"+$80,"O20",-1
+	dc.w	1,1
+	dc.b 	"+"+$80,"O22",-1
+	dc.w	1,1
+	dc.b 	"-"+$80,"O22",-1
+	dc.w	1,1
+	dc.b 	" mod"," "+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"*"+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"/"+$80,"O00",-1
+	dc.w	1,1
+	dc.b 	"^"+$80,"O00",-1
+	even
+Dtk_OpFin
+	dc.l 	0
+ExtNot	dc.b	"Extension ",$80
+	Even
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TEST DU PROGRAMME POUR COMPILATEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Testing
+; - - - - - - - - - - - - -
+	bra	Init
+	bra	PTest
+	bra	Fin
+	bra	Detok
+
+Reloc_Step	equ	1024
+TablA_Step	equ	1024
+Reloc_End	equ	$80
+Reloc_Var	equ	$82
+Reloc_Long	equ	$84
+Reloc_NewBuffer	equ	$86
+Reloc_Proc1	equ	$88
+Reloc_Proc2	equ	$8A
+Reloc_Proc3	equ	$8C
+Reloc_Proc4	equ	$8E
+Reloc_Debug	equ	$90
+Reloc_Label	equ	$92
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INITIALISATION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Init	bsr	ClearVar
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Fin	bsr	ClearVar
+	bsr	Equ_Free
+	bsr	Includes_Clear
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TEST DU PROGRAMME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+PTest:
+	move.l	sp,BasSp(a5)		Sauve la pile
+	movem.l	a2-a4/a6/d2-d7,-(sp)	Sauvegarde registres
+
+; Recherche les includes / Met l'adresse du programme � runner...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Prg_Source(a5),Prg_Run(a5)	Par defaut
+	bsr	Get_Includes
+	tst.l	Prg_FullSource(a5)		Faut-il changer?
+	beq.s	.Skip
+	move.l	Prg_FullSource(a5),Prg_Run(a5)
+.Skip	move.l	Prg_Run(a5),Prg_Test(a5)	A tester
+
+; RAZ de toutes les variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#8*1024,d1
+	bsr	ResVarBuf
+	move.l	PI_VNmMax(a5),d1
+	bsr	ResVNom
+
+	clr.w	Phase(a5)
+	clr.w	ErrRet(a5)
+	clr.w	DirFlag(a5)
+	clr.w	VarBufFlg(a5)
+	move.w	#51,Stack_Size(a5)
+	clr.b	Prg_Accessory(a5)
+	clr.b	MathFlags(a5)		Plus de double precision
+	clr.b	Ver_SPConst(a5)		Plus de flags
+	clr.b	Ver_DPConst(a5)
+	clr.l	VerNInst(a5)
+	clr.b	VerNot1.3(a5)		Compatible, au depart...
+
+; PHASE 1: exploration du programme principal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ReVer	clr.w	VarLong(a5)
+	move.l	DVNmBas(a5),a0
+	move.l	a0,VNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,VNmBas(a5)
+	bsr	SsTest
+	bne.s	.ReVer
+
+	move.l	Ver_TablA(a5),d0
+	move.l	d0,Ver_MainTablA(a5)		Stocke la table
+	beq.s	.Skop
+	addq.l	#4,d0				Si table il y a
+.Skop	clr.l	Ver_TablA(a5)			Une nouvelle table
+	move.l	VNmBas(a5),DVNmBas(a5)		Variables
+	move.l	VNmHaut(a5),DVNmHaut(a5)
+	move.w	VarLong(a5),GloLong(a5)
+
+; 	Exploration de la TablA a la recherche des procedures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.l	d0				Une table?
+	beq.s	.Fini
+.PLoop	move.l	d0,a0
+	cmp.b	#1<<VF_Proc,Vta_Flag(a0)	Une procedure?
+	beq.s	.Test
+	move.l	(a0),d0
+	bne.s	.PLoop
+	bra.s	.Fini
+
+; Verification de la procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Test	move.l	(a0),-(sp)			La suivante
+	move.l	Vta_Prog(a0),Prg_Test(a5)	Va explorer la procedure!
+	addq.w	#1,Phase(a5)			Une phase de plus
+	clr.w	VarLong(a5)
+	move.l	DVNmBas(a5),a0
+	move.l	a0,VNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,VNmBas(a5)
+	bsr	Locale				Toutes les variables >>> locales
+	bsr	SsTest
+	move.l	Prg_Test(a5),a0			Longueur variable procedure
+	move.w	VarLong(a5),6(a0)
+	move.l	(sp)+,d0
+	bne.s	.PLoop
+.Fini
+
+; Libere les tables
+; ~~~~~~~~~~~~~~~~~
+	bsr	Free_VerTables
+
+; Termine!!!
+; ~~~~~~~~~~
+	moveq	#0,d0
+	movem.l	(sp)+,a2-a4/a6/d2-d7
+	rts
+
+; Libere les tables de verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_VerTables
+	bsr	Free_Reloc
+	bsr	Free_TablA		La courante
+	move.l	Ver_MainTablA(a5),Ver_TablA(a5)
+	clr.l	Ver_MainTablA(a5)
+	bsr	Free_TablA		La principale
+	rts
+
+; Met le flag 1.3!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SetNot1.3
+	move.b	#1,VerNot1.3(a5)
+	tst.b	VerCheck1.3(a5)
+	bne.s	.Stop
+	rts
+.Stop	moveq	#47,d0
+	bra	VerErr
+
+
+;	Sous programme de verification
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SsTest:	clr.l	ErrRet(a5)
+	clr.w	Passe(a5)
+	clr.w	Ver_NBoucles(a5)
+	clr.w	Ver_PBoucles(a5)
+
+	bsr	Reserve_Reloc
+	bsr	Reserve_TablA
+
+	move.l	Prg_Test(a5),a6
+	move.l	a6,a3
+
+	tst.w	DirFlag(a5)
+	bne.s	VerD
+	tst.w	Phase(a5)
+	bne.s	VerDd
+
+; Debut d'une ligne
+; ~~~~~~~~~~~~~~~~~
+VerD	move.l	a6,VDLigne(a5)
+	tst.w	(a6)+
+	beq	VerX
+
+; Definition procedures / Data en debut de ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDd:	move.l	a6,VerPos(a5)
+	move.w	(a6)+,d0
+	beq.s	VerD
+	bmi	VerSynt
+	move.l	AdTokens(a5),a0
+	move.b	0(a0,d0.w),d1
+	bpl.s	VLoop1
+	addq.l	#1,VerNInst(a5)
+	ext.w	d1
+	asl.w	#2,d1
+	jmp	.Jmp(pc,d1.w)
+	bra	VerSha			FA-Global (Nouvelle maniere)
+	bra	VerSha			FB-Shared
+	bra	VerDFn			FC-Def Fn
+	bra	VerData			FD-Debut data
+	bra	V1_EndProc		FE-Fin procedure
+	bra	V1_Procedure		FF-Debut procedure
+.Jmp
+
+; Boucle de test dans une ligne
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerLoop move.l	a6,VerPos(a5)		Position du test
+	move.w	(a6)+,d0
+	beq	VerD
+	bmi	VerSynt
+	move.l	AdTokens(a5),a0
+	move.b	0(a0,d0.w),d1
+VLoop1	addq.l	#1,VerNInst(a5)		Un instruction de plus!
+	ext.w	d1
+	asl.w	#2,d1
+	jmp	.Jmp(pc,d1.w)		Branche � la fonction
+
+; Table des sauts pour les instructions particulieres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bra	VerShal			FA-Global (Nouvelle maniere)
+	bra	VerShal			FB-Shared
+	bra	VerDaL			FC-Def Fn
+	bra	VerDaL			FD-Debut data
+	bra	VerPDb			FE-Fin procedure
+	bra	VerPDb			FF-Debut procedure
+.Jmp	bra	Ver_Normal		00-Instruction normale
+	bra	VerSynt			01-Syntax error
+	bra	VerRem			02-Rem
+	bra	VerSBu			03-Set Buffer
+	bra	VerDPre			04-Set Double Precision
+	bra	VerSStack		05-Set Stack
+	bra	VerVar			06-Variable
+	bra	VerLab			07-Un label
+	bra	VerPro			08-Un appel de procedure
+	bra	VerDim			09-DIM
+	bra	VerPr			0A-Print
+	bra	VerDPr			0B-Print #
+	bra	VerInp			0C-Input / Line Input
+	bra	VerDInp			0D-Input #
+	bra	VerInc			0E-Dec
+	bra	V1_Proc			0F-Proc
+	IFNE	Debug=2
+	bra	V1_Debug		10- Debugging
+	ENDC
+	IFEQ	Debug=2
+	bra	Ver_Normal
+	ENDC
+	bra	VerPal			11-Default Palette
+	bra	VerPal			12-Palette
+	bra	VerRead			13-Read
+	bra	VerRest			14-Restore
+	bra	VerChan			15-Channel
+	bra	VerInc			16-Inc
+	bra	VerAdd			17-Add
+	bra	VerPo			18-Polyline/Gon
+	bra	VerFld			19-Field
+	bra	VerCall			1A-Call
+	bra	VerMn			1B-Menu
+	bra	VerMnD			1C-Menu Del
+	bra	VerSmn			1D-Set Menu
+	bra	VerMnK			1E-Menu Key
+	bra	VerIMn			1F-Menu diverse
+	bra	VerFade			20-Fade
+	bra	VerSort			21-Sort
+	bra	VerSwap			22-Swap
+	bra	VerFol			23-Follow
+	bra	VerSetA			24-Set Accessory
+	bra	VerTrap			25-Trap
+	bra	VerStruI		26-Struc
+	bra	VerStruIS		27-Struc$
+	bra	Ver_Extension		28-Token d'extension
+	bra	Ver_NormalPro		29-Instruction AMOSPro
+	bra	Ver_DejaTesteePro	2A-Instruction AMOSPro deja testee
+	bra	Ver_VReservee		2B-Variable reservee
+	bra	Ver_VReserveePro	2C-Variable reservee AMOSPro
+	bra	Ver_DejaTestee		2D-Instruction normale deja testee
+	bra	VerD			2E-LIBRE
+	bra	VerD			2F-Fin de ligne
+	bra	V1_For			30-For
+	bra	V1_Next			31-Next
+	bra	V1_Repeat		32-Repeat
+	bra	V1_Until		33-Until
+	bra	V1_While		34-While
+	bra	V1_Wend			35-Wend
+	bra	V1_Do			36-Do
+	bra	V1_Loop			37-Loop
+	bra	V1_Exit			38-Exit
+	bra	V1_ExitI		39-Exit If
+	bra	V1_If			3A-If
+	bra	V1_Else			3B-Else
+	bra	V1_ElseIf		3C-ElseIf
+	bra	V1_EndI			3D-EndIf
+	bra	V1_Goto			3E-Goto
+	bra	V1_Gosub		3F-Gosub
+	bra	V1_OnError		40-OnError
+	bra	V1_OnBreak		41-OnBreak
+	bra	V1_OnMenu		42-OnMenu
+	bra	V1_On			43-On
+	bra	V1_Resume		44-Resume
+	bra	V1_ResLabel		45-ResLabel
+	bra	V1_PopProc		46-PopProc
+	bra	V1_Every		47-Every
+	bra	VerPr			48-LPrint
+	bra	VerInp			49-Line Input
+	bra	VerDInp			4A-Line Input #
+	bra	VerMid			4B-Mid3
+	bra	VerMid			4C-Mid2
+	bra	VerMid			4D-Left
+	bra	VerMid			4E-Right
+	bra	VerAdd			4F-Add
+	bra	Ver_NormalPro		50-Dialogues
+	bra	Ver_Normal		51-Dir
+	bra	VerSynt			52-Then
+	bra	Ver_Normal		53-Return
+	bra	Ver_Normal		54-Pop
+	bra	Ver_NormalPro		55-Procedure langage machine
+	bra	Ver_Normal		56-Bset/Bchg/Ror///
+	bra	VerLoop			57-APCmp Call
+
+	IFNE	Debug=2
+V1_Debug
+	bra	VerDP
+	move.b	#Reloc_Debug,d0		Dans relocation
+	bsr	New_Reloc
+	lea	V2_Debug(pc),a0		Dans TablA
+	move.w	#_TkDP,d0
+	moveq	#0,d1
+	moveq	#1<<VF_Debug,d2
+	bsr	Init_TablA
+	bra	VerDP
+V2_Debug
+	rts
+	ENDC
+
+;	Une extension
+; ~~~~~~~~~~~~~~~~~~~
+Ver_Extension
+	bset	#0,VarBufFlg(a5)
+	move.b	(a6)+,d1		Numero de l'extension
+	ext.w	d1
+	move.l	a6,-(sp)		Position du nombre de params
+	tst.b	(a6)+
+	move.w	(a6)+,d0		Token de l'extension
+	lsl.w	#2,d1
+	lea	AdTokens(a5),a0
+	tst.l	0(a0,d1.w)		Extension definie?
+	beq	VerExN
+	move.l	0(a0,d1.w),a0
+	clr.w	-(sp)			Flag librairie 2.0 ou ancienne
+	btst	#LBF_20,LB_Flags(a0)	Librarie 2.0?
+	beq.s	.Skip
+	move.w	#-1,(sp)
+.Skip	move.l	a0,VerBase(a5)		Base de la librairie
+	bsr	Ver_OlDInst		Debut de la definition
+	cmp.b	#"I",d0			Une instruction
+	beq.s	.Inst
+	cmp.b	#"V",d0			Une variable reservee?
+	bne	VerSynt
+	bsr	VerVR
+	bra.s	.Poke
+.Inst	bsr	VerI			Verification
+.Poke	tst.w	(sp)+			Le flag
+	move.l	(sp)+,a0		Poke le nombre de params...
+	beq.s	.Old
+	move.b	#-1,(a0)		Nouvelle extension: pas de params!
+	bra	VerDP
+.Old	move.b	d0,(a0)			Ancienne extension: des params...
+	bra	VerDP
+
+; 	Variable reservee
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ver_VReserveePro
+	bsr	SetNot1.3		Si AMOSPro
+Ver_VReservee
+	bset	#0,VarBufFlg(a5)
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst
+	bsr	VerVR
+	bra	VerDP
+
+;	Routine de verification VARIABLE RESERVEE en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVR:	move.b	(a0)+,d2
+	move.w	d2,-(sp)
+	bsr	VerF
+	move.w	d0,-(sp)
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression
+	move.w	(sp)+,d0
+	move.w	(sp)+,d1
+	cmp.b	d1,d2
+	bne	VerType
+	rts
+
+; 	Instruction deja testee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_DejaTesteePro
+	bsr	SetNot1.3		Si AMOSPro
+Ver_DejaTestee
+	bset	#0,VarBufFlg(a5)
+	bsr	Ver_DInst
+	bsr	VerI_DejaTestee
+	bra	VerDP
+
+; 	Instruction normale
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_NormalPro
+	bsr	SetNot1.3		Si AMOSPro
+Ver_Normal
+	bset	#0,VarBufFlg(a5)
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst
+	bsr	VerI
+;	Veut un deux points apres l'instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDP:	move.l	a6,VerPos(a5)
+	move.w	(a6)+,d0
+	beq	VerD
+	cmp.w	#_TkDP,d0
+	beq	VerLoop
+	cmp.w	#_TkElse,d0
+	bne	VerSynt
+	subq.l	#2,a6
+	bra	VerLoop
+
+
+;	PASSE2: simple relecture du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerX:	addq.w	#1,Passe(a5)
+	move.b	#Reloc_End,d0
+	bsr	New_Reloc
+
+; Boucle de relocation des variables / labels / appel procedures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ver_Reloc(a5),a4
+	move.l	a4,Ver_CReloc(a5)
+	addq.l	#4,a4
+	move.l	Prg_Test(a5),a6
+.RReloc	moveq	#0,d6
+.Reloc	add.w	d6,a6
+	move.b	(a4)+,d6
+	lsl.b	#1,d6
+	bcc.s	.Reloc
+	jsr	.V2Jmp(pc,d6.w)
+	bra.s	.RReloc
+.V2Jmp	bra	V2_EndRel
+	bra	V2_StoVar
+	bra	V2_Long
+	bra	V2_NTable
+	bra	V2_CallProc1
+	bra	V2_CallProc2
+	bra	V2_CallProc3
+	bra	V2_CallProc4
+	IFNE	Debug=2
+	bra	V2_Debug		A
+	ENDC
+	IFEQ	Debug=2
+	rts
+	nop
+	ENDC
+; Find label
+; ~~~~~~~~~~
+	move.l	a6,VerPos(a5)		C
+	subq.l	#2,VerPos(a5)
+	bsr	V2_FindLabel
+	beq	VerUnd
+	rts
+; Nouvelle table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_NTable
+	move.l	Ver_CReloc(a5),a4
+	move.l	(a4),a4
+	move.l	a4,Ver_CReloc(a5)
+	addq.l	#4,a4
+	rts
+; Saut long dans relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_Long	moveq	#0,d6
+	move.b	(a4)+,d6
+	lsl.w	#8,d6
+	move.b	(a4)+,d6
+	add.l	d6,a6
+	rts
+
+; Fin de la relocation
+; ~~~~~~~~~~~~~~~~~~~~
+V2_EndRel
+	addq.l	#4,sp
+
+; Boucle d'appel des traitement de boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	Ver_TablA(a5),d0
+	beq.s	.TablX
+	addq.l	#4,d0
+.TablA	move.l	d0,a4
+	move.l	Vta_Jump(a4),d0
+	beq.s	.TablB
+	move.l	d0,a1
+	move.l	Vta_Prog(a4),a6
+	move.l	a6,VerPos(a5)
+	subq.l	#2,VerPos(a5)
+	move.l	a4,a0
+	jsr	(a1)
+.TablB	move.l	(a4),d0
+	bne.s	.TablA
+.TablX
+
+; 	Efface la relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Free_Reloc
+
+; 	Fin des deux passes, erreur retardee?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	ErrRet(a5),d0
+	beq.s	.Skip
+	move.l	ErrRAd(a5),VerPos(a5)
+	bra	VerErr
+.Skip	moveq	#0,d0			Ne pas reboucler...
+	rts
+
+; ----- MESSAGES D'ERREUR VERIFICATION
+* Loops crossing / ERREUR RETARDEE
+VerCrs:	move.l	a0,-(sp)
+	moveq	#1,d0			Bad Structure
+	bsr	ERetard
+	move.l	(sp)+,a0
+	rts
+ERetard:tst.l	ErrRet(a5)
+	bne.s	ERet1
+	move.l	d0,ErrRet(a5)
+	move.l	VerPos(a5),ErrRAd(a5)
+ERet1:	rts
+* User function
+VerNFn	moveq	#2,d0
+	bra	VerEr
+* Impossible to change buffer
+VerNoB	moveq	#3,d0
+	bra	VerEr
+* Datas en debut de ligne
+VerDaL:	moveq	#4,d0
+	bra	VerEr
+* Extension not present
+VerExN:	moveq	#5,d0
+	bra	VerEr
+* Too many direct variables
+VerVTo:	moveq	#6,d0
+	bra	VerEr
+* Illegal direct mode
+VerIlD:	moveq	#7,d0
+	bra.s	VerEr
+* Buffer variable too small
+VerVNm:	moveq	#8,d0
+	bra.s	VerEr
+* Goto dans une boucle
+VerPaGo:moveq	#9,d0
+	bra.s	VerEr
+* Structure too long
+VerLong:moveq	#10,d0
+	bra.s	VerEr
+* Shared
+VerShp:	moveq	#11,d0
+	bra.s	VerEr
+VerAlG:	moveq	#12,d0
+	bra.s	VerEr
+VerPaG:	moveq	#13,d0
+	bra.s	VerEr
+VerNoPa:moveq	#14,d0
+	bra.s	VerEr
+VerShal:moveq	#15,d0
+	bra.s	VerEr
+* Procedures
+VerPDb:	moveq	#16,d0
+	bra.s	VerEr
+VerPOp:	moveq	#17,d0
+	bra.s	VerEr
+VerPNo:	moveq	#18,d0
+	bra.s	VerEr
+VerPRTy:moveq	#18,d0
+	bra.s	VerEr
+VerIlP:	moveq	#19,d0
+	bra.s	VerEr
+VerUndP:moveq	#20,d0
+	bra.s	VerEr
+* Else without If
+VerElI:	moveq	#21,d0
+VerEr:	bra	VerErr
+VerIfE:	moveq	#22,d0
+	bra	VerErr
+VerEIf:	moveq	#23,d0
+	bra	VerErr
+VerElE:	moveq	#24,d0
+	bra	VerErr
+VerNoT:	moveq	#25,d0
+	bra	VerErr
+* Not enough loop
+VerNoL:	moveq	#26,d0
+	bra	VerErr
+* Do/Loop
+VerDoL:	moveq	#27,d0
+	bra	VerErr
+VerLDo:	moveq	#28,d0
+	bra.s	VerErr
+* While/Wend
+VerWWn:	moveq	#29,d0
+	bra.s	VerErr
+VerWnW:	moveq	#30,d0
+	bra.s	VerErr
+* Repeat/until
+VerRUn:	moveq	#31,d0
+	bra.s	VerErr
+VerUnR:	moveq	#32,d0
+	bra.s	VerErr
+* For/Next
+VerFoN:	moveq	#33,d0
+	bra.s	VerErr
+VerNFo:	moveq	#34,d0
+	bra.s	VerErr
+* Syntax
+VerSynt:moveq	#35,d0
+	bra.s	VerErr
+* Out of mem
+VerOut:	moveq	#36,d0
+	bra.s	VerErr
+* Out of variable name space
+VerNmO:	moveq	#37,d0
+	bra.s	VerErr
+* Non dimensionned
+VerNDim	moveq	#38,d0
+	bra.s	VerErr
+* Already dimensionned
+VerAlD:	moveq	#39,d0
+	bra.s	VerErr
+* Type mismatch
+VerType	moveq	#40,d0
+	bra.s	VerErr
+* Label not defined
+VerUnd:	moveq	#41,d0
+	bra.s	VerErr
+* Label defined twice
+VerLb2:	moveq	#42,d0
+; Traitement message d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerErr	move.l	BasSp(a5),sp
+	move.l	d0,-(sp)
+	move.l	VerPos(a5),a0
+	bsr	Includes_Adr
+	move.l	a0,VerPos(a5)
+	bsr	VD_Close
+	bsr	Free_VerTables
+	clr.b	VerCheck1.3(a5)
+; Trouve le numero de la ligne en question
+	move.l	VerPos(a5),a0
+	move.l	Prg_Source(a5),a1
+	bsr	Tk_FindA		a0= debut de la ligne
+	move.l	d0,d1			d1= numero
+	move.l	(sp)+,d0		d0= erreur
+	rts
+
+;	REM
+; ~~~~~~~~~
+VerRem	tst.w	Direct(a5)
+	bne	VerIlD
+	add.w	(a6)+,a6
+	addq.l	#2,a6
+	bra	VerD
+
+;	Token appel procedure, change en variable
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerPro	tst.w	Direct(a5)
+	bne	VerIlD
+;	Variable en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVar	bset	#0,VarBufFlg(a5)
+	bsr	V1_IVariable
+	bra	VerDP
+
+
+;	D�finition d'un label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerLab:	tst.w	Direct(a5)
+	bne	VerIlD
+	bset	#0,VarBufFlg(a5)
+	bsr	V1_StockLabel
+	cmp.w	#_TkData,(a6)
+	bne	VerLoop
+	addq.l	#2,a6
+	bra	VerData
+
+;	SET DOUBLE PRECISION
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDPre	bsr	SetNot1.3
+	btst	#0,VarBufFlg(a5)
+	bne.s	VVErr
+	bset	#1,VarBufFlg(a5)
+	bne.s	VVErr
+	move.b	#%10000011,MathFlags(a5)
+	bra	VerDP
+VVErr	moveq	#50,d0
+	bra	VerErr
+
+;	SET STACK n
+; ~~~~~~~~~~~~~~~~~
+VerSStack
+	tst.w	Direct(a5)
+	bne	VerIlD
+	btst	#0,VarBufFlg(a5)
+	bne.s	VVErr
+	bset	#3,VarBufFlg(a5)
+	bne.s	VVErr
+	cmp.w	#_TkEnt,(a6)+
+	bne	VerSynt
+	move.l	(a6)+,d1
+	cmp.w	#10,d1
+	bcc.s	.Ok
+	moveq	#10,d1
+.Ok	addq.w	#1,d1
+	move.w	d1,Stack_Size(a5)
+	bra	VerDP
+
+;	SET BUFFER n
+; ~~~~~~~~~~~~~~~~~~
+VerSBu	tst.w	Direct(a5)
+	bne	VerIlD
+	btst	#0,VarBufFlg(a5)
+	bne	VerNoB
+	cmp.w	#_TkEnt,(a6)+
+	bne	VerSynt
+	move.l	(a6)+,d1
+	mulu	#1024,d1
+	cmp.l	VarBufL(a5),d1
+	beq	VerDP
+; Change la taille / recommence
+	bset	#2,VarBufFlg(a5)
+	bne	VerNoB
+	bsr	ResVarBuf
+	moveq	#-1,d0
+	rts
+
+;	SET ACCESSORY
+; ~~~~~~~~~~~~~~~~~~~
+VerSetA	bsr	SetNot1.3
+	addq.b	#1,Prg_Accessory(a5)
+	bra	VerDP
+
+;	DIM
+; ~~~~~~~~~
+VerDim:	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)+		Veut une variable
+	bne	VerSynt
+	and.b	#%00001111,3(a6)	RAZ du flag!
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)		TABLEAU?
+	bne	VerSynt
+	bset	#6,3(a6)		Met le flag tableau!
+	move.b	3(a6),d3
+	bsr	V1_StoVar
+	beq	VerAlD
+	bsr	VerTablo		Verifie les params d'un tableau
+	move.b	d0,4(a1)		Stocke le nb de dimensions
+	cmp.w	#_TkVir,(a6)+		Une autre variable?
+	beq	VerDim
+	subq.l	#2,a6
+	bra	VerDP
+
+;	SORT
+; ~~~~~~~~~~
+VerSort	bset	#0,VarBufFlg(a5)
+	move.l	a6,-(sp)
+	bsr	VerGV
+	move.l	(sp)+,a0
+	btst	#6,5(a0)
+	bne	VerDP
+	bra	VerSynt
+
+;	SWAP
+; ~~~~~~~~~~
+VerSwap	bset	#0,VarBufFlg(a5)
+	bsr	VerGV
+	move.w	d2,-(sp)
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	VerGV
+	cmp.w	(sp)+,d2
+	beq	VerDP
+	bne	VerType
+
+;	DEF FN
+; ~~~~~~~~~~~~
+VerDFn	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#%00001111,3(a6)	Change le flag
+	bset	#3,3(a6)
+	bsr	VarA0			Adresse
+	move.w	d2,-(sp)
+	bsr	V1_StoVar		Stocke la variable
+	bsr	VDfnR			Recupere les parametres
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression		Evalue l'expression
+	move.w	(sp)+,d0		Verifie le type
+	cmp.b	d0,d2
+	bne	VerType
+	tst.w	(a6)			Seul sur la ligne
+	bne	VerDaL
+	bra	VerDP
+; Routinette---> Prend les variables!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VDfnR	cmp.w	#_TkPar1,(a6)
+	bne.s	.Exit
+	addq.l	#2,a6
+.Loop	bsr	VerGV
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Loop
+	cmp.w	#_TkPar2,-2(a6)
+	bne	VerSynt
+.Exit	rts
+
+;	Verification PRINT/LPRINT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDPr	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+VerPr:	bset	#0,VarBufFlg(a5)
+	move.w	(a6),d0
+	cmp.w	#_TkDieze,d0
+	bne.s	VerPr1
+	addq.l	#2,a6
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	beq	VerType
+	cmp.w	#_TkVir,(a6)
+	bne 	VerDP
+	addq.l	#2,a6
+VerPr1:	bsr	Finie
+	beq	VerDP
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkUsing,(a6)
+	bne.s	VerPr2
+	addq.l	#2,a6
+	bsr	Ver_ExpA
+	cmp.w	#_TkPVir,(a6)+
+	bne	VerSynt
+VerPr2	bsr	Ver_Expression
+	move.w	(a6)+,d0
+	cmp.w	#_TkVir,d0
+	beq.s	VerPr1
+	cmp.w	#_TkPVir,d0
+	beq.s	VerPr1
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification INPUT / LINE INPUT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerDInp	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bra.s	VerIn1
+VerInp:	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)
+	beq.s	VerIn1
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	bne	VerType
+	cmp.w	#_TkPVir,(a6)+
+	bne	VerSynt
+VerIn1:	bsr	VerGV
+	cmp.w	#_TkVir,(a6)+
+	beq.s	VerIn1
+	cmp.w	#_TkPVir,-2(a6)
+	beq	VerDP
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification PALETTE / DEFAULT PALETTE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerFa1:	addq.l	#2,a6
+VerPal:	clr.w	d0
+VPal:	bset	#0,VarBufFlg(a5)
+	addq.w	#1,d0
+	move.w	d0,-(sp)
+	bsr	Ver_ExpE
+	move.w	(sp)+,d0
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	cmp.w	#32,d0
+	bcs.s	VPal
+	bra	VerDP
+
+;	Verification FADE
+; ~~~~~~~~~~~~~~~~~~~~~~~
+VerFade	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,d0
+	beq.s	VerFa1
+	cmp.w	#_TkTo,d0
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	bra	VerDP
+
+;					Verification instructions MENU
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+;	Instruction MENU$(,,)=
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerMn	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+; Chaines alphanumeriques
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#_TkVir,(a6)
+	beq.s	VerMn1
+	bsr	Ver_ExpA
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+VerMn1	addq.l	#2,a6
+	cmp.w	#_TkVir,(a6)
+	beq.s	VerMn2
+	bsr	Ver_ExpA
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+VerMn2	addq.l	#2,a6
+	cmp.w	#_TkVir,(a6)
+	beq.s	VerMn3
+	bsr	Ver_ExpA
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+VerMn3	addq.l	#2,a6
+	bsr	Ver_ExpA
+	bra	VerDP
+
+;	Instructions diverses flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerIMn	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkPar1,(a6)
+	beq.s	VIMn1
+	cmp.w	#_TkMnCl,(a6)
+	bcc	VerSynt
+	bsr	Ver_ExpE
+	bra	VerDP
+VIMn1	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	bra	VerDP
+
+;	Menu del
+; ~~~~~~~~~~~~~~
+VerMnD	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkPar1,(a6)
+	bne	VerDP
+	bra.s	VIMn1
+
+;	Set Menu
+; ~~~~~~~~~~~~~~
+VerSmn	bset	#0,VarBufFlg(a5)
+	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	cmp.w	#_TkTo,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+	bra	VerDP
+
+;	On menu
+; ~~~~~~~~~~~~~
+V1_OnMenu
+	move.w	(a6)+,d0
+	cmp.w	#_TkGto,d0
+	beq.s	.Goto
+	cmp.w	#_TkGsb,d0
+	beq.s	.Goto
+	cmp.w	#_TkPrc,d0
+	beq.s	.Proc
+	bra	VerSynt
+; Goto, prend le label
+; ~~~~~~~~~~~~~~~~~~~~
+.Goto	bsr	V1_GoLabel
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Goto
+	subq.l	#2,a6
+	bra	VerDP
+; Procedure
+; ~~~~~~~~~
+.Proc	bsr	V1_GoProcedureNoParam
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Proc
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Menu key
+; ~~~~~~~~~~~~~~
+VerMnK	bset	#0,VarBufFlg(a5)
+	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	cmp.w	#_TkTo,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_Evalue
+	cmp.b	#"2",d2
+	beq	VerDP
+	cmp.b	#"0",d2
+	bne	VerType
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	bra	VerDP
+
+;	Verification FOLLOW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+VerFol	bsr	Finie
+	beq	VerDP
+.Loop	bsr	Ver_Expression
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Loop
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification DATAS
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+VerData	bset	#0,VarBufFlg(a5)
+	move.l	a6,d0
+	sub.l	VDLigne(a5),d0
+	move.w	d0,(a6)
+.Loop	addq.l	#2,a6
+	bsr	Ver_Expression
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	bra	VerDP
+
+;	Verification READ
+; ~~~~~~~~~~~~~~~~~~~~~~~
+VerRead	bset	#0,VarBufFlg(a5)
+	bsr	VerGV
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bra.s	VerRead
+
+;	Verification RESTORE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerRest	bsr	Finie
+	beq	VerDP
+	bsr	V1_GoLabel
+	bra	VerDP
+
+;	Verification CHANNEL x TO SPRITE x
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerChan	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+	cmp.w	#_TkTo,(a6)+
+	bne	VerSynt
+	move.w	(a6)+,d0
+	cmp.w	#_TkScD,d0
+	beq.s	VerCh1
+	cmp.w	#_TkScO,d0
+	beq.s	VerCh1
+	cmp.w	#_TkScS,d0
+	beq.s	VerCh1
+	cmp.w	#_TkBob,d0
+	beq.s	VerCh1
+	cmp.w	#_TkSpr,d0
+	beq	VerCh1
+	cmp.w	#_TkRn,d0
+	beq.s	VerCh1
+	subq.l	#2,a6			* Channel to ADRESS!
+VerCh1:	bsr	Ver_ExpE
+	bra	VerDP
+
+;	Verification POLYLINE/POLYGON
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerPo	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkTo,(a6)
+	beq.s	VerPo1
+VerPo0	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+VerPo1	cmp.w	#_TkTo,(a6)+
+	beq.s	VerPo0
+	subq.l	#2,a6
+	bra	VerDP
+
+;	Verification MID/LEFT/RIGHT en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerMid:	bset	#0,VarBufFlg(a5)
+	move.w	d0,-(sp)
+	move.l	a6,-(sp)
+	addq.b	#1,Ver_NoReloc(a5)
+	addq.l	#2,a6
+	bsr	VerVarA
+	subq.b	#1,Ver_NoReloc(a5)
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	move.l	(sp)+,a6
+	move.w	(sp)+,d0
+	move.l	AdTokens(a5),a0
+	move.l	a0,VerBase(a5)
+	bsr	Ver_OlDInst
+	bsr	VerF
+	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	bne 	VerType
+	bra	VerDP
+
+;	Verification INC/DEC
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerInc:	bset	#0,VarBufFlg(a5)
+	bsr	VerVEnt
+	bsr	VerGV
+	bra	VerDP
+
+;	Verification ADD
+; ~~~~~~~~~~~~~~~~~~~~~~
+VerAdd:	bset	#0,VarBufFlg(a5)
+	move.w	#_TkAd2,-2(a6)
+	move.l	a6,-(sp)
+	bsr	VerVEnt
+	bsr	VerGV
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)
+	bne	VerAdX
+; Plus de 2 parametres
+; ~~~~~~~~~~~~~~~~~~~~
+	move.l	(sp),a0
+	move.w	#_TkAd4,-2(a0)
+	addq.l	#2,a6
+	bsr	Ver_ExpE
+	cmp.w	#_TkTo,(a6)+
+	bne	VerAdX
+	bsr	Ver_ExpE
+VerAdX:	addq.l	#4,sp
+	bra	VerDP
+
+;	Verification FIELD
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+VerFld	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+	cmp.w	#_TkVir,(a6)
+	bne	VerSynt
+.Loop	addq.l	#2,a6
+	bsr	Ver_ExpE
+	cmp.w	#_TkAs,(a6)+
+	bne	VerSynt
+	bsr	VerVarA
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	bra	VerDP
+
+;	CALL
+; ~~~~~~~~~~
+VerCall	bset	#0,VarBufFlg(a5)
+	bsr	Ver_ExpE
+.Loop	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_Expression
+	bra.s	.Loop
+
+;	STRUCTURE en instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerStruI
+	bset	#0,VarBufFlg(a5)
+	bsr	VStru
+	cmp.b	#7,d2
+	bcc	EquType
+	moveq	#"0",d2
+	bra.s	VStru2
+VerStruIS
+	bsr	VStru
+	cmp.b	#6,d2
+	bne	EquType
+	moveq	#"2",d2
+; Fin verification
+VStru2	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	move.w	d2,-(sp)
+	bsr	Ver_Expression
+	ext.w	d2
+	cmp.w	(sp)+,d2
+	bne	VerType
+	bra	VerDP
+; Routine verification
+VStru	move.l	a6,-(sp)
+	addq.l	#6,a6
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	bsr	Ver_Expression
+	cmp.b	#"0",d2
+	bne	VerType
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	move.l	(sp)+,a1
+	lea	Equ_Nul(pc),a0
+	bsr	Equ_Verif
+	move.b	4(a1),d2
+	cmp.w	#_TkPar2,(a6)+
+	bne	VerSynt
+	rts
+EquType	moveq	#54,d0
+	bra	VerErr
+
+; Verification d'un Equate / Structure
+;	A0=	Header equate
+;	A1=	Debut des donnees
+;	A6=	Debut de la chaine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_Verif
+	bsr	SetNot1.3		AMOSPro!
+	btst	#7,5(a1)		Flag, equate correct?
+	bne	.Ok
+; Poke l'equate dans le buffer, � la suite du header
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a0-a2,-(sp)
+	move.l	a1,-(sp)
+	move.l	Buffer(a5),a2
+.Cop	move.b	(a0)+,(a2)+
+	bne.s	.Cop
+	subq.l	#1,a2
+	move.w	(a6),d0
+	cmp.w	#_TkCh1,d0
+	beq.s	.Ch
+	cmp.w	#_TkCh2,d0
+	bne	VerSynt
+.Ch	move.w	2(a6),d0
+	beq	VerSynt
+	cmp.w	#127,d0
+	bcc	VerSynt
+	move.w	d0,d2
+	move.l	a2,a1
+	lea	4(a6),a0
+	subq.w	#1,d0
+.Lop2	move.b	(a0)+,(a1)+
+	dbra	d0,.Lop2
+	move.b	#":",(a1)+
+	move.l	Buffer(a5),a2
+	move.l	a1,d2
+	sub.l	a2,d2
+; Va charger le fichier d'equates>>> A1/D1 positionnes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Equ_Load
+; Recherche dans le fichier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a1/d1/d2,-(sp)
+	moveq	#0,d4
+	JJsr	L_InstrFind
+	movem.l	(sp)+,a1/d1/d2
+	tst.l	d3
+	beq	.NoDef
+; Trouve: poke dans le listing
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	-1(a1,d3.l),a1
+.Fnd	cmp.b	#":",(a1)+		Trouve le debut
+	bne.s	.Fnd
+	clr.w	-(sp)
+	move.l	a1,a0
+	cmp.b	#"-",(a0)
+	bne.s	.Pam
+	addq.w	#1,(sp)
+	addq.l	#1,a0
+.Pam	moveq	#0,d0			Pas de signe!
+	JJsrR	L_CValRout,a1
+	bne.s	.Bad
+	cmp.w	#_TkFl,d1
+	beq.s	.Bad
+	cmp.w	#_TkDFl,d1
+	beq.s	.Bad
+	tst.w	(sp)+
+	beq.s	.Pamm
+	neg.l	d0
+.Pamm	move.l	(sp),a2
+	move.l	d0,(a2)
+	cmp.b	#",",(a0)+
+	bne.s	.Bad
+	move.b	(a0),d0
+	sub.b	#"0",d0
+	cmp.b	#7,d0
+	bhi.s	.Bad
+	move.b	d0,4(a2)
+	bset	#7,5(a2)
+	addq.l	#4,sp
+	movem.l	(sp)+,a0-a2
+; Saute la variable alphanumerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Ok	move.w	2(a6),d0
+	move.w	d0,d1
+	and.w	#1,d1
+	add.w	d1,d0
+	lea	4(a6,d0.w),a6
+	rts
+; Not defined!
+; ~~~~~~~~~~~~
+.NoDef	moveq	#51,d0
+	bra	VerErr
+; Bad equates file
+; ~~~~~~~~~~~~~~~~
+.Bad	moveq	#53,d0
+	bra	VerErr
+
+; Charge le fichier d'equates dans un buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_Load
+	movem.l	a0/d2/d3,-(sp)
+	tst.l	Equ_Base(a5)
+	bne	.Ok
+; Branche la routine de FLUSH equates
+;	lea	Equ_Free(pc),a0
+;	lea	Equ_FlushStructure(pc),a1
+;	move.l	a0,(a1)
+;	SyCall	AddFlushRoutine
+; Charge le fichier
+	moveq	#9,d0
+	Rjsr	L_Sys_GetMessage
+	Rjsr	L_Sys_AddPath
+	move.l	#1005,d2
+	bsr	VD_Open
+	beq.s	.Err
+; Trouve la taille du fichier!
+	moveq	#0,d2
+	moveq	#1,d3
+	bsr	VD_Seek
+	moveq	#0,d2
+	moveq	#-1,d3
+	bsr	VD_Seek
+; Reserve la memoire
+	move.l	d0,d3
+	move.l	#Fast|Public,d1
+	lea	Equ_Base(a5),a0
+	bsr	VA5_Reserve
+	beq.s	.Err
+; Charge le fichier
+	move.l	a0,d2
+	bsr	VD_Read
+	bne.s	.Err
+; Ferme le fichier
+	bsr	VD_Close
+; Retourne l'adresse et la longueur
+.Ok	move.l	Equ_Base(a5),a1
+	move.l	-4(a1),d1
+	movem.l	(sp)+,a0/d2/d3
+	rts
+; Erreur!
+.Err	bsr	VD_Close
+	bsr	Equ_Free
+	moveq	#52,d0
+	bra	VerErr
+; 	Libere le fichier d'equates
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Equ_Free
+	lea	Equ_Base(a5),a0
+	bsr	VA5_Free
+	rts
+
+; Routine, veut une variable numerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVEnt	move.l	a6,-(sp)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	bsr	VarA0
+	tst.b	d0
+	bne	VerType
+	move.l	(sp)+,a6
+	rts
+
+; Routine, veut une variable seule alphanumerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerVarA:bsr	VerGV
+	cmp.b	#"2",d2
+	bne	VerType
+	rts
+
+; RouRoutine, veut une variable, SEULE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerGV:	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#%00001111,3(a6)	RAZ du flag!
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)		TABLEAU?
+	bne.s	VGv1
+	bset	#6,3(a6)		Met le flag tableau!
+	move.b	3(a6),d3
+	bsr	V1_StoVar		Le tableau doit etre cree avant
+	bne	VerNDim
+	bsr	VerTablo		Verifie les params d'un tableau
+	bra.s	VGv2
+VGv1:	bsr	V1_StoVar
+VGv2:	rts
+
+
+
+;					Verification des procedures
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; 	Instruction Proc
+; ~~~~~~~~~~~~~~~~~~~~~~
+V1_OnBreak
+V1_Proc	tst.w	Direct(a5)
+	bne	VerIlD
+	bset	#0,VarBufFlg(a5)
+	cmp.w	#_TkVar,(a6)		Un variable?
+	beq.s	.Skip
+	cmp.w	#_TkPro,(a6)		Un procedure
+	bne	VerSynt
+.Skip	move.l	a6,-(sp)
+	addq.l	#2,a6
+	bsr	V1_IVariable
+	move.l	(sp)+,a0
+	cmp.w	#_TkPro,(a0)
+	bne	VerUndP
+	bra	VerDP
+
+;	Debut de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+V1_Procedure
+	bset	#0,VarBufFlg(a5)
+	subq.l	#2,a6
+	tst.w	Direct(a5)
+	bne	VerIlD
+	tst.w	Phase(a5)
+	bne	V1_ProcedureIn
+
+; PHASE 0: Stocke et saute le nom et les params
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	subq.l	#1,VerNInst(a5)		Retabli le compte...
+	btst	#6,8(a6)		Decoder la procedure?
+	beq.s	.Skip0
+	btst	#5,8(a6)
+	beq.s	.Skip0
+	bsr	ProCode
+.Skip0	sub.l	a0,a0
+
+	move.w	#_TkProc,d0
+	moveq	#4,d1
+	moveq	#1<<VF_Proc,d2
+	bsr	Init_TablA
+
+	move.l	a6,-(sp)
+	move.l	a0,-(sp)
+
+	lea	10(a6),a6
+	cmp.w	#_TkVar,(a6)+		Stocke dans les labels
+	bne	VerSynt
+	and.b	#$0F,3(a6)
+	or.b	#$80,3(a6)
+	bsr	V1_StockLabel
+	move.l	4(sp),4(a2)		Pointe le DEBUT de la procedure!
+	cmp.w	#_TkBra1,(a6)
+	bne.s	.NoPar
+
+.Par	addq.l	#2,a6
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#$0F,3(a6)
+	move.b	2(a6),d0
+	ext.w	d0
+	lea	4(a6,d0.w),a6
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Par
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a6)+
+	bne	VerSynt
+
+.NoPar	move.l	a6,VerPos(a5)
+	move.w	(a6),d0
+	bne	VerPDb
+	addq.l	#2,a6
+; Saute une procedure COMPILED
+	move.l	4(sp),a0
+	btst	#4,8(a0)
+	beq.s	.EPLoop
+	move.l	2(a0),d0
+	lea	12(a0,d0.l),a6
+	bra.s	.Comp
+; Cherhe le ENDPROC
+	moveq	#0,d0
+.EPLoop	move.b	(a6),d0
+	beq	VerPOp
+	move.w	2(a6),d1
+	cmp.w	#_TkEndP,d1
+	beq.s	.EndP
+	cmp.w	#_TkSha,d1
+	beq.s	.Shared
+	cmp.w	#_TkGlo,d1
+	beq.s	.Shared
+.Resha	add.w	d0,a6
+	add.w	d0,a6
+	bra.s	.EPLoop
+; Traite les variables shared
+.Shared	movem.l	d0/a6,-(sp)		Appel de shared / Global
+	addq.l	#2,a6
+	bsr	VpSha
+	movem.l	(sp)+,d0/a6
+	bra.s	.Resha
+; END PROC trouve, prend la ligne suivante
+.EndP	add.w	d0,a6			Pointe la ligne suivante
+	add.w	d0,a6
+.Comp	subq.l	#2,a6			Zero de la ligne precedente
+	move.l	(sp)+,a0		TablA
+	move.l	(sp)+,a1		Debut procedure
+	move.l	a6,Vta_Variable(a0)
+	move.l	a6,a0
+	sub.l	a1,a0			Poke la distance au END PROC
+	lea	-10(a0),a0
+	move.l	a0,2(a1)
+; Termine
+	addq.w	#2,a6
+	bra	VerD
+
+;	Procedure PHASE >0, Passe 1, stocke les variables!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_ProcedureIn
+	btst	#4,8(a6)		Procedure Machine?
+	bne.s	.PMach
+	lea	12(a6),a6
+	move.b	2(a6),d0
+	ext.w	d0
+	lea	4(a6,d0.w),a6
+	cmp.w	#_TkBra1,(a6)		Pointe les parametres
+	bne	VerDP
+.Loop	addq.l	#4,a6
+	bsr	V1_StoVar
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	addq.l	#2,a6
+	bra	VerDP
+.PMach	move.w	6(a6),VarLong(a5)	Recopie le nombre de params
+	bra	VerX			Et on sort!
+
+;	END PROC [expression]
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_EndProc
+	tst.w	Direct(a5)
+	bne	VerIlD
+	tst.w	Phase(a5)
+	beq	VerPNo
+	cmp.w	#_TkBra1,(a6)+
+	bne.s	.Skip
+	bsr	Ver_Expression
+.Skip	bra	VerX
+
+
+
+;			Verification des test, boucles et branchements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; Flags pour table-A
+VF_Boucles	equ	0
+VF_If		equ	1
+VF_Proc		equ	2
+VF_Exit		equ	3
+VF_Goto		equ	4
+VF_Debug	equ	5
+
+; 	FOR / Passe 1
+; ~~~~~~~~~~~~~~~~~~~
+V1_For	addq.w	#1,Ver_NBoucles(a5)	Une boucle de plus
+	add.w	#TForNxt,Ver_PBoucles(a5)
+	lea	V2_For(pc),a0
+	moveq	#2,d1
+	bsr	Init_TablABoucle
+; Verification
+	clr.w	(a6)+
+	movem.l	a0/a6,-(sp)
+	bsr	VerGV			La variable
+	movem.l	(sp)+,a0/a1
+	move.w	2(a1),Vta_Variable(a0)	Stocke l'offset de la variable
+	cmp.b	#"0",d2
+	bne	VerType
+	move.w	d2,-(sp)		Verifie la suite
+	cmp.w	#_TkEg,(a6)+		=
+	bne	VerSynt
+	bsr	Ver_Expression		Expression
+	cmp.b	1(sp),d2		Meme type
+	bne	VerType
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkTo,(a6)+		To
+	bne	VerSynt
+	bsr	Ver_Expression		Expression
+	cmp.b	1(sp),d2		Meme type
+	bne	VerType
+	cmp.w	#_TkStp,(a6)		Step?
+	bne.s	.Skip
+	addq.l	#2,a6
+	bsr	Ver_Expression		Expression
+	cmp.b	1(sp),d2		Meme type
+	bne	VerType
+.Skip	addq.l	#2,sp			OK!
+	bra	VerDP
+;	FOR / Passe 2 : cherche le NEXT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_For	move.l	a0,a1
+	move.w	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkNxt,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerFoN			For without Next
+	tst.b	Vta_UFlag(a0)		Une variable dans le NEXT?
+	beq.s	.Skip
+	move.w	Vta_Variable+4(a0),d0	La meme?
+	cmp.w	Vta_Variable(a1),d0
+	bne	VerFoN
+.Skip	clr.l	Vta_Jump(a0)		NEXT pris en compte
+; Doke la distance au NEXT dans le FOR
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	NEXT / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~
+V1_Next
+	subq.w	#1,Ver_NBoucles(a5)		Une boucle de moins
+	sub.w	#TForNxt,Ver_PBoucles(a5)
+	lea	VerNFo(pc),a0			Next without For
+	move.w	#6,d1
+	bsr	Init_TablABoucle
+; Verification
+	move.l	a0,-(sp)
+	bsr	Finie				Une variable?
+	beq.s	.Skip
+	movem.l	a0/a6,-(sp)
+	bsr	VerGV
+	movem.l	(sp)+,a0/a1
+	move.w	2(a1),Vta_Variable+4(a0)	Stocke pointeur variable
+	addq.b	#1,Vta_UFlag(a0)		Flag pour For / Passe2
+.Skip	move.l	(sp)+,a0
+	bsr	Find_End			Trouve la fin du NEXT
+	move.l	d0,Vta_Variable(a0)		Pour le for passe 2
+	bra	VerDP
+
+;	REPEAT / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~
+V1_Repeat
+	addq.w	#1,Ver_NBoucles(a5)	Une boucle de plus
+	add.w	#TRptUnt,Ver_PBoucles(a5)
+	lea	V2_Repeat(pc),a0
+	moveq	#0,d1
+	bsr	Init_TablABoucle
+	clr.w	(a6)+
+	bra	VerDP
+;	REPEAT / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~
+V2_Repeat
+	move.l	a0,a1
+	move.w	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkUnt,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerRUn			Repeat without Until
+	clr.l	Vta_Jump(a0)		Until pris en compte
+; Doke la distance au NEXT dans le FOR
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	UNTIL / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~~
+V1_Until
+	subq.w	#1,Ver_NBoucles(a5)		Une boucle de moins
+	sub.w	#TRptUnt,Ver_PBoucles(a5)
+	lea	VerUnR(pc),a0
+	moveq	#4,d1
+	bsr	Init_TablABoucle
+; Verification / Poke l'adresse de fin
+	move.l	a0,-(sp)
+	bsr	Ver_Expression
+	bsr	Find_End
+	move.l	(sp)+,a0
+	move.l	d0,Vta_Variable(a0)
+	bra	VerDP
+
+;	WHILE / Passe1
+; ~~~~~~~~~~~~~~~~~~~~
+V1_While
+	addq.w	#1,Ver_NBoucles(a5)	Une boucle de plus
+	add.w	#TWhlWnd,Ver_PBoucles(a5)
+	lea	V2_While(pc),a0
+	moveq	#0,d1
+	bsr	Init_TablABoucle
+	clr.w	(a6)+
+	bsr	Ver_Expression
+	bra	VerDP
+;	WHILE / Passe2
+; ~~~~~~~~~~~~~~~~~~~~
+V2_While
+	move.l	a0,a1
+	move.w	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkWnd,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerWWn			Repeat without Until
+	clr.l	Vta_Jump(a0)		Wend pris en compte
+; Doke la distance au NEXT dans le FOR
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	WEND / Passe1
+; ~~~~~~~~~~~~~~~~~~~
+V1_Wend
+	subq.w	#1,Ver_NBoucles(a5)	Une boucle de moins
+	sub.w	#TWhlWnd,Ver_PBoucles(a5)
+	lea	VerWnW(pc),a0
+	moveq	#4,d1
+	bsr	Init_TablABoucle
+; Verification / Poke l'adresse de fin
+	bsr	Find_End
+	move.l	d0,Vta_Variable(a0)
+	bra	VerDP
+
+
+;	 DO / Passe1
+; ~~~~~~~~~~~~~~~~~~
+V1_Do	addq.w	#1,Ver_NBoucles(a5)		Une boucle de moins
+	add.w	#TDoLoop,Ver_PBoucles(a5)
+	lea	V2_Do(pc),a0
+	moveq	#0,d1
+	bsr	Init_TablABoucle
+	clr.w	(a6)+
+	bra	VerDP
+;	DO / Passe2
+; ~~~~~~~~~~~~~~~~~
+V2_Do	move.l	a0,a1
+	move.b	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	subq.w	#1,d1
+	move.w	#_TkLoo,d2		Token � trouver
+	bsr	Find_TablA
+	beq	VerDoL			Repeat without Until
+; Doke la distance au NEXT dans le FOR
+	clr.l	Vta_Jump(a0)		Loop pris en compte
+	move.l	Vta_Variable(a0),d0
+	bsr	Doke_Distance
+	rts
+;	LOOP / Passe1
+; ~~~~~~~~~~~~~~~~~~~
+V1_Loop
+	subq.w	#1,Ver_NBoucles(a5)	Une boucle de moins
+	sub.w	#TDoLoop,Ver_PBoucles(a5)
+	lea	VerLDo(pc),a0
+	moveq	#4,d1
+	bsr	Init_TablABoucle
+; Verification / Poke l'adresse de fin
+	bsr	Find_End
+	move.l	d0,Vta_Variable(a0)
+	bra	VerDP
+
+;	EXIT / Passe1
+; ~~~~~~~~~~~~~~~~~~~
+V1_Exit
+	lea	V2_Exit(pc),a0
+	moveq	#4,d1
+	moveq	#1<<VF_Exit,d2
+	bsr	Init_TablA
+	clr.l	(a6)+
+	move.l	#1,Vta_Variable(a0)
+	cmp.w	#_TkEnt,(a6)
+	bne	VerDP
+	move.l	2(a6),Vta_Variable(a0)
+	addq.l	#6,a6
+	bra	VerDP
+;	EXIT / Passe2
+; ~~~~~~~~~~~~~~~~~~~
+V2_ExitI
+V2_Exit	move.l	a0,a1
+	move.l	a6,a2
+	move.l	Vta_Variable(a1),d3
+	move.b	#1<<VF_Boucles,d0	Flag � trouver
+	move.w	Vta_NBoucles(a0),d1	Position de pile
+	sub.w	d3,d1
+	bmi	VerNoL			Not enough loops
+	moveq	#-1,d2			Pas de token
+	bsr	Find_TablA
+	beq	VerNoL			Not enough loops
+; Loke dans le source
+	move.l	Vta_Variable(a0),d0
+	sub.l	a2,d0
+	subq.l	#4,d0
+	cmp.l	#$10000,d0
+	bcc	VerSynt
+	move.w	Vta_PBoucles(a1),d1
+	sub.w	Vta_PBoucles(a0),d1
+	move.w	d0,(a2)+		Distance a la fin
+	move.w	d1,(a2)+		Decalage de la pile
+	rts
+
+;	EXIT IF / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~~
+V1_ExitI
+	lea	V2_ExitI(pc),a0
+	moveq	#4,d1
+	moveq	#1<<VF_Exit,d2
+	bsr	Init_TablA
+	move.l	a0,-(sp)
+	clr.l	(a6)+
+	bsr	Ver_ExpE
+	move.l	(sp)+,a0
+	move.l	#1,Vta_Variable(a0)
+	cmp.w	#_TkVir,(a6)
+	bne	VerDP
+	cmp.w	#_TkEnt,2(a6)
+	bne	VerSynt
+	move.l	4(a6),Vta_Variable(a0)
+	addq.l	#8,a6
+	bra	VerDP
+
+; 	IF Passe 1
+; ~~~~~~~~~~~~~~~~
+V1_If	lea	V2_If(pc),a0
+	moveq	#8,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	clr.w	(a6)+
+	move.l	a6,Vta_Variable(a0)
+	move.l	VDLigne(a5),Vta_Variable+4(a0)
+; Verification
+	move.l	a0,-(sp)
+	bsr	Ver_ExpE
+	move.l	(sp)+,a0
+	cmp.w	#_TkThen,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	move.l	a6,Vta_Variable(a0)
+	move.b	#1,Vta_UFlag(a0)
+	lea	V2_IfThen(pc),a1
+	move.l	a1,Vta_Jump(a0)
+	cmp.w	#_TkLGo,(a6)
+	bne	VerLoop
+	bsr	V1_SautLGoto
+	bra	VerDP
+
+; 	If non structure / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_IfThen
+	move.l	a0,a1
+; Cherche sur la meme ligne
+	move.l	Vta_Variable+4(a1),d1
+	moveq	#1,d2
+.Loop	tst.l	(a0)
+	beq.s	.NextL
+	move.l	(a0),a0
+	cmp.b	#1<<VF_If,Vta_Flag(a0)
+	bne.s	.Loop
+	cmp.l	Vta_Variable+4(a0),d1		Sur la meme ligne
+	bne.s	.NextL
+	cmp.w	#_TkElse,Vta_Token(a0)	Else?
+	beq.s	.Moins
+	cmp.w	#_TkIf,Vta_Token(a0)		If
+	bne.s	.Loop
+	addq.w	#1,d2
+	bra.s	.Loop
+.Moins	subq.w	#1,d2
+	bne.s	.Loop
+	lea	V2_ElseThen(pc),a2	Traitement du ELSE
+	move.l	a2,Vta_Jump(a0)
+	move.l	Vta_Variable(a0),d0
+	moveq	#0,d2
+	bra.s	V2_IfThenLabel
+.NextL	move.l	Vta_Variable+4(a1),a6	Pointe la fin ligne
+	moveq	#0,d0
+	move.b	(a6),d0
+	add.w	d0,a6
+	lea	-2(a6,d0.w),a6
+	move.l	a6,d0
+	moveq	#0,d2
+; Verifie le label goto apres le then
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_IfThenLabel
+	move.l	a1,-(sp)
+	bsr	V2_IfDoke
+	move.l	(sp),a0
+	move.l	Vta_Variable(a0),a6
+	cmp.w	#_TkLGo,(a6)+
+	bne.s	.Fin
+	bsr	V2_FindLabel
+	beq	VerUnd
+	move.l	(sp),a0
+	bsr	Goto_Loops
+.Fin	addq.l	#4,sp
+	rts
+
+
+; 	If structure / Passe 2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_If	move.l	a0,a1
+	move.w	#_TkElse,d1		Tokens a trouver
+	move.w	#_TkElsI,d2
+	move.w	#_TkEndI,d3
+	bsr	Find_TablATest		Va chercher
+	beq	VerIfE			If without EndIf
+	move.w	Vta_Token(a0),d0	Trouve le traitement de la passe 2
+	move.l	Vta_Variable(a0),a6	Adresse de saut
+	cmp.w	d0,d1			Else ?
+	beq.s	.j1
+	cmp.w	d0,d2			Else If ?
+	beq.s	.j2
+	bsr	Find_End
+	sub.l	a2,a2			End If >>> Rien!
+	moveq	#0,d2
+	bra.s	.j0
+.j2	lea	V2_ElsI(pc),a2
+	moveq	#1,d2
+	move.l	a6,d0
+	bra.s	.j0
+.j1	lea	V2_Else(pc),a2
+	moveq	#0,d2
+	move.l	a6,d0
+.j0	move.l	a2,Vta_Jump(a0)
+; Doke dans le source, en tenant compte des boucles...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_IfDoke
+	exg	a0,a1
+	move.l	Vta_Prog(a0),a6
+	bsr	Goto_Loops		Verifie la validite du saut
+	sub.l	a6,d0
+	subq.l	#2,d0
+	cmp.l	#$10000,d0
+	bcc	VerLong
+	tst.w	d2
+	beq.s	.Skip
+	bset	#0,d0
+.Skip	move.w	d0,(a6)+
+	rts
+
+; 	ELSE IF / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~~~~
+V1_ElseIf
+	lea	VerElI(pc),a0		Else without If
+	moveq	#4,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	clr.w	(a6)+
+	move.l	a6,Vta_Variable(a0)	Adresse apres endif
+	bsr	Ver_ExpE		Cherche l'expression
+	bra	VerDP
+; 	ELSE IF / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~~
+V2_ElsI	move.l	a0,a1
+.Loop	move.w	#_TkElse,d1		Tokens a trouver
+	move.w	#_TkElsI,d2
+	move.w	#_TkEndI,d3
+	bsr	Find_TablATest		Va chercher
+	beq	VerElI			Else without Endif
+	move.w	Vta_Token(a0),d0	Trouve le traitement de la passe 2
+	move.l	Vta_Variable(a0),a6	Adresse de saut
+	cmp.w	d0,d1			Else ?
+	beq.s	.j1
+	cmp.w	d0,d2			Else If ?
+	beq.s	.j2
+	bsr	Find_End
+	sub.l	a2,a2			End If >>> Rien!
+	moveq	#0,d2
+	bra.s	.j0
+.j2	lea	V2_ElsI(pc),a2
+	moveq	#1,d2
+	move.l	a6,d0
+	bra.s	.j0
+.j1	lea	V2_Else(pc),a2
+	moveq	#0,d2
+	move.l	a6,d0
+.j0	move.l	a2,Vta_Jump(a0)
+	bra	V2_IfDoke
+
+; 	ELSE Passe 1
+; ~~~~~~~~~~~~~~~~~~
+V1_Else	lea	VerElI(pc),a0		Else without If
+	moveq	#8,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	clr.w	(a6)+
+	move.l	a6,Vta_Variable(a0)	Adresse apres endif
+	move.l	VDLigne(a5),Vta_Variable+4(a0)
+; Verification
+	cmp.w	#_TkDP,(a6)
+	beq	VerDP
+	cmp.w	#_TkLGo,(a6)
+	bne	VerLoop
+	bsr	V1_SautLGoto
+	bra	VerDP
+; 	ELSE non structure, passe2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_ElseThen
+	move.l	a0,a1
+	move.l	Vta_Variable+4(a1),a6	Pointe la fin ligne
+	moveq	#0,d0
+	move.b	(a6),d0
+	add.w	d0,a6
+	lea	-2(a6,d0.w),a6
+	move.l	a6,d0
+	moveq	#0,d2
+	bra	V2_IfThenLabel
+; 	ELSE structure / Passe2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_Else	move.l	a0,a1
+.Loop	moveq	#-1,d1			Tokens a trouver
+	moveq	#-1,d2
+	move.w	#_TkEndI,d3
+	bsr	Find_TablATest		Va chercher
+	beq	VerEIf			ENDIF without IF
+	clr.l	Vta_Jump(a0)		Endif detecte >>> Pas d'erreur
+	move.l	Vta_Variable(a0),a6	Adresse de saut
+	bsr	Find_End
+	moveq	#0,d2
+	bra	V2_IfDoke
+
+; 	ENDIF Passe 1
+; ~~~~~~~~~~~~~~~~~~~
+V1_EndI	lea	VerEIf(pc),a0		EndIf without If
+	moveq	#4,d1
+	moveq	#1<<VF_If,d2
+	bsr	Init_TablA
+	move.l	a6,Vta_Variable(a0)
+	bra	VerDP
+
+;	Gosub
+; ~~~~~~~~~~~
+V1_Gosub
+	bsr	V1_GoLabel
+	bra	VerDP
+
+; 	Goto / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~
+V1_Goto	moveq	#0,d1
+	move.b	#1<<VF_Goto,d2
+	lea	V2_Goto(pc),a0
+	bsr	Init_TablA
+	bsr	V1_GoLabel
+	bra	VerDP
+;	Goto / Passe 2
+; ~~~~~~~~~~~~~~~~~~~~
+V2_Goto	move.l	a0,-(sp)
+	bsr	V2_GoLabel
+	move.l	(sp)+,a0
+	beq.s	.Skip
+	bsr	Goto_Loops
+.Skip	rts
+
+;	On XX Goto / Gosub / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_On	move.l	a6,-(sp)
+	clr.l	(a6)+
+	bsr	Ver_ExpE
+	move.w	(a6)+,d0
+	cmp.w	#_TkGto,d0
+	beq.s	.Goto
+	cmp.w	#_TkGsb,d0
+	beq.s	.Gosub
+	cmp.w	#_TkPrc,d0
+	bne	VerSynt
+; Des procedures
+; ~~~~~~~~~~~~~~
+	clr.w	-(sp)
+.Pro1	addq.w	#1,(sp)
+	bsr	V1_GoProcedureNoParam
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Pro1
+	bra.s	.Poke
+; Des Goto
+; ~~~~~~~~
+.Goto	move.w	#_TkOn,d0
+	moveq	#0,d1
+	move.b	#1<<VF_Goto,d2
+	lea	V2_OnGoto(pc),a0
+	bsr	Init_TablA
+.Gosub	clr.w	-(sp)
+.Gto1	addq.w	#1,(sp)
+	bsr	V1_GoLabel
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.Gto1
+; Poke le nombre dans le source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Poke	subq.l	#2,a6
+	move.w	(sp)+,d0
+	move.l	(sp)+,a0
+	move.w	d0,2(a0)		Poke le nombre de labels
+ 	move.l	a6,d0
+	sub.l	a0,d0
+	subq.l	#4,d0
+	move.w	d0,(a0)			Poke la longueur de l'instruction
+	bra	VerDP
+
+;	On xx GOTO verifie les branchements
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_OnGoto
+	bsr	V2_Goto
+	cmp.w	#_TkVir,(a6)+
+	beq.s	V2_OnGoto
+	rts
+
+;	On Error / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~~~
+V1_OnError
+	cmp.w	#_TkPrc,(a6)
+	beq	VerLoop
+	cmp.w	#_TkGto,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bra	V1_Goto
+
+; 	Resume / Passe1
+; ~~~~~~~~~~~~~~~~~~~~~
+V1_Resume
+	bsr	Finie
+	beq	VerDP
+	bra	V1_Goto
+;	Resume Label
+; ~~~~~~~~~~~~~~~~~~
+V1_ResLabel
+	bsr	Finie
+	beq	VerDP
+	bsr	V1_GoLabel
+	bra	VerDP
+
+;	AMOSPro: TRAP, veut une instruction juste apr�s!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerTrap	bsr	SetNot1.3		Non compatible!
+	bsr	Finie
+	bne	VerLoop
+	moveq	#43,d0			Must be followed by an inst
+	bra	VerErr
+
+;	POP PROC
+; ~~~~~~~~~~~~~~
+V1_PopProc
+	tst.w	Phase(a5)
+	beq	VerPNo
+	cmp.w	#_TkBra1,(a6)
+	bne	VerDP
+	addq.l	#2,a6
+	bsr	Ver_Expression
+	cmp.w	#_TkBra2,(a6)+
+	beq	VerDP
+	bra	VerSynt
+
+;	EVERY n PROC / GOSUB
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_Every
+	bsr	Ver_ExpE
+	move.w	(a6)+,d0
+	cmp.w	#_TkGsb,d0
+	beq.s	.Skip
+	cmp.w	#_TkPrc,d0
+	bne	VerSynt
+	bsr	V1_GoProcedureNoParam	Une procedure
+	bra	VerDP
+.Skip	bsr	V1_GoLabel		Gosub
+	bra	VerDP
+
+		RSRESET
+Vta_Next	rs.l	1		0
+Vta_Prev	rs.l	1		4
+Vta_Token	rs.w	1		8
+Vta_Flag	rs.b	1		10
+Vta_UFlag	rs.b	1		11
+Vta_Prog	rs.l	1		12
+Vta_NBoucles	rs.w	1		16
+Vta_PBoucles	rs.w	1		18
+Vta_Jump	rs.l	1		20
+Vta_Variable	equ	__RS		24
+
+;	Initialisation generale de la table des boucles
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reserve_TablA
+	bsr	Free_TablA
+	lea	Ver_TablA(a5),a0
+	move.l	a0,Ver_CTablA(a5)
+	clr.l	Ver_PTablA(a5)
+	clr.l	Ver_PrevTablA(a5)
+	rts
+;	Efface les buffers de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_TablA
+	move.l	Ver_TablA(a5),d2
+	beq.s	.Out
+.Loop	move.l	d2,a1
+	move.l	(a1),d2
+	move.l	#TablA_Step,d0
+	Rjsr	L_RamFree
+	tst.l	d2
+	bne.s	.Loop
+.Out	clr.l	Ver_TablA(a5)
+	clr.l	Ver_FTablA(a5)
+	rts
+; 	Nouveau buffer de table
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+New_TablA
+	movem.l	a1/d0/d1,-(sp)
+	move.l	#TablA_Step,d0
+	Rjsr	L_RamFast
+	beq	VerOut
+	move.l	d0,a0
+	move.l	Ver_CTablA(a5),a1
+	move.l	a0,(a1)
+	move.l	a0,Ver_CTablA(a5)
+	clr.l	(a0)+
+	move.l	a0,Ver_PTablA(a5)
+	lea	TablA_Step-8(a0),a1
+	move.l	a1,Ver_FTablA(a5)
+	movem.l	(sp)+,a1/d0/d1
+	rts
+
+; 	Creation d'une entree TablA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Init_TablABoucle
+	moveq	#1<<VF_Boucles,d2
+Init_TablA
+	bset	#0,VarBufFlg(a5)
+	move.l	a0,-(sp)
+	move.l	Ver_PTablA(a5),a0
+	lea	Vta_Variable(a0,d1.w),a1
+	cmp.l	Ver_FTablA(a5),a1			Sorti de la table?
+	bcs.s	.Ok
+	bsr	New_TablA
+	lea	Vta_Variable(a0,d1.w),a1
+
+.Ok	move.l	a1,Ver_PTablA(a5)			Suivant
+	clr.l	Vta_Next(a0)
+	clr.l	Vta_Prev(a0)
+	move.w	d0,Vta_Token(a0)			Token
+	move.b	d2,Vta_Flag(a0)		  		Flag
+	clr.b	Vta_UFlag(a0)				User-Flag
+	move.l	a6,Vta_Prog(a0)				Position programme
+	move.w	Ver_NBoucles(a5),Vta_NBoucles(a0)	Position pile
+	move.w	Ver_PBoucles(a5),Vta_PBoucles(a0)	Position pile
+	move.l	(sp)+,Vta_Jump(a0)			Jump Passe2
+
+	move.l	Ver_PrevTablA(a5),d0			Branche au precedent
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	a0,Vta_Next(a1)
+	move.l	a1,Vta_Prev(a0)
+.Skip	move.l	a0,Ver_PrevTablA(a5)
+	rts
+
+;	Trouve une boucle / structure apres (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Find_TablA
+	tst.l	(a0)
+	beq.s	.Not
+	move.l	(a0),a0
+	cmp.w	Vta_NBoucles(a0),d1	Bonne pile?
+	bne.s	Find_TablA
+	cmp.b	Vta_Flag(a0),d0		Bon flag?
+	bne.s	Find_TablA
+	tst.w	d2			Bon token?
+	bmi.s	.Skip
+	cmp.w	Vta_Token(a0),d2
+	bne.s	Find_TablA
+.Skip	move.w	Vta_Token(a0),d0
+.Not	rts
+
+;	Trouve un test structure apres (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Find_TablATest
+	moveq	#0,d4
+.Loop	tst.l	(a0)
+	beq.s	.NFnd
+	move.l	(a0),a0
+	cmp.b	#1<<VF_If,Vta_Flag(a0)	Meme flag
+	bne.s	.Loop
+	tst.b	Vta_UFlag(a0)		Meme structure
+	bne.s	.NoT
+	move.w	Vta_Token(a0),d0
+	cmp.w	#_TkIf,d0
+	beq.s	.Plus
+	tst.w	d4
+	bne.s	.PaTst
+	cmp.w	d0,d1
+	beq.s	.Fnd
+	cmp.w	d0,d2
+	beq.s	.Fnd
+	cmp.w	d0,d3
+	bne.s	.Loop
+.Fnd	tst.w	d0
+	rts
+.PaTst	cmp.w	#_TkEndI,d0
+	bne.s	.Loop
+	subq.w	#1,d4
+	bpl.s	.Loop
+.NFnd	moveq	#0,d0
+	rts
+.Plus	addq.w	#1,d4
+	bra.s	.Loop
+; No then in a structured loop
+.NoT	move.l	Vta_Prog(a0),VerPos(a5)
+	subq.l	#2,VerPos(a5)
+	bra	VerNoT
+
+;	Doke une distance
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Doke_Distance
+	sub.l	a6,d0
+	subq.l	#2,d0
+	cmp.l	#$10000,d0
+	bcc	VerLong
+	move.w	d0,(a6)+
+	rts
+
+; 	Trouve la veritable adresse de fin d'une instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Find_End
+	move.l	a0,-(sp)
+	move.l	a6,a0
+	move.w	(a0),d0
+	bne.s	.S1
+	tst.w	2(a0)
+	beq.s	.S2
+	addq.l	#4,a0
+	bra.s	.S2
+.S1	cmp.w	#_TkDP,d0
+	bne	VerSynt
+	addq.l	#2,a0
+.S2	move.l	a0,d0
+	move.l	(sp)+,a0
+	rts
+
+;	Verification GOTO pas a l'interieur d'une boucle
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Goto_Loops
+	move.w	Vta_NBoucles(a0),d1
+	cmp.l	a6,d0
+	bcc	.Avant
+; Saut en arriere
+; ~~~~~~~~~~~~~~~
+.Arr	tst.l	Vta_Prev(a0)
+	beq.s	.Ok
+	move.l	Vta_Prev(a0),a0
+	cmp.l	Vta_Prog(a0),d0
+	bcs.s	.Arr
+	cmp.w	Vta_NBoucles(a0),d1
+	bcs	VerPaGo
+	rts
+; Saut en AVANT
+; ~~~~~~~~~~~~~
+.Avant	move.l	a0,a1
+	tst.l	(a0)
+	beq.s	.Ok
+	move.l	(a0),a0
+	cmp.l	Vta_Prog(a0),d0
+	bcc.s	.Avant
+	cmp.w	Vta_NBoucles(a1),d1
+	bcs	VerPaGo
+.Ok	rts
+
+
+;	Saute un LABEL GOTO / Passe 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_SautLGoto
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkLGo,(a6)+
+	bne	VerSynt
+	move.b	2(a6),d0
+	ext.w	d0
+	lea	4(a6,d0.w),a6
+	rts
+
+;					Verification des expressions
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+;	Veut une expression alphanumerique
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_ExpA
+	bsr	Ver_Expression
+	cmp.b	#"2",d2
+	bne	VerType
+	rts
+;	Veut une expression entiere
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_ExpE
+	bsr	Ver_Expression
+	cmp.b	#"0",d2
+	bne	VerType
+	rts
+
+;						Verification d'une expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Expression
+	move.l	a6,VerPos(a5)
+	bsr	Ver_Evalue
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	rts
+;					Boucle de verification d'une expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Evalue
+	clr.w	Parenth(a5)
+Ver_REvalue
+	move.w	#$7FFF,d0
+	bra.s	Eva_1
+Eva_0	move.w	d2,-(sp)
+Eva_1	move.w	d0,-(sp)
+	move.l	VerBase(a5),-(sp)
+	bsr	Ver_Operande
+	move.l	(sp)+,VerBase(a5)
+Eva_Ret	move.w	(a6)+,d0
+	cmp.w	(sp),d0
+	bhi.s	Eva_0
+	subq.l	#2,a6
+	move.w	(sp)+,d1
+	bpl.s	Eva_Fin
+	move.w	(sp)+,d5
+	lea	Tst_Jumps(pc),a0
+	jmp	0(a0,d1.w)
+Eva_Fin	cmp.w	#_TkPar2,d0
+	beq.s	.Par
+	rts
+.Par	subq.w	#1,Parenth(a5)
+	addq.l	#2,a6
+	rts
+
+;	Operateur mixte: Chiffre / String
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Mixte
+	cmp.b	d2,d5
+	bne	VerType
+	bra	Eva_Ret
+;	Operateur mixte de comparaison
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Comp
+	cmp.b	d2,d5
+	bne	VerType
+	moveq	#"0",d2
+	bra	Eva_Ret
+;	Operateur puissance
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Puis
+	or.b	#%00000011,MathFlags(a5)
+; 	Operateur entier seulement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Chiffre
+	cmp.b	d2,d5
+	bne	VerType
+	cmp.b	#"0",d2
+	bne	VerType
+	bra	Eva_Ret
+
+;						V�rification d'un operande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_Operande
+	clr.w	-(sp)			Pas de signe devant
+Ope_Loop
+	move.w	(a6)+,d0
+	beq	Ope_Fin1
+	bmi.s	.Moins
+	move.l	AdTokens(a5),a0
+	move.b	1(a0,d0.w),d1
+	ext.w	d1			Branche � la routine
+	lsl.w	#2,d1
+	jmp	.Jmp(pc,d1.w)
+.Moins	cmp.w	#_TkM,d0		Signe moins devant?
+	bne	VerSynt
+	tst.w	(sp)			Deja un?
+	bne	VerSynt
+	addq.w	#1,(sp)
+	bra	Ope_Loop
+
+; Table des sauts directs aux operandes particuliers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Jmp	bra	Ope_Normal		00- Normal
+	bra	VerSynt			01= Syntax error!
+	bra	Ope_Fin1		02= Evaluation finie
+	bra	Ope_Fin2		03= Evaluation finie par une virgule
+	bra	Ope_Parenth		04= Ouverture de parenthese
+	bra	Ope_Normal		05= Val!
+	bra	Ope_Extension		06= Extension
+	bra	Ope_Variable		07= Variable
+	bra	Ope_Varptr		08= Varptr
+	bra	Ope_Fn			09= FN
+	bra	Ope_Not			0A= Not
+	bra	Ope_XYMn		0B= X Menu
+	bra	Ope_Equ			0C= Equ
+	bra	Ope_Match		0D= Match
+	bra	Ope_Array		0E- Array
+	bra	Ope_MinMax		0F= Min
+	bra	Ope_LVO			10= LVO
+	bra	Ope_Struc		11= Struc
+	bra	Ope_StrucS		12= Struc$
+	bra	Ope_Math		13= Fonction math
+	bra	Ope_ConstEnt		14= Constante Entiere
+	bra	Ope_ConstFl		15= Constante Float
+	bra	Ope_ConstDFl		16= Constante DFloat
+	bra	Ope_ConstStr		17= Constante String
+	bra	Ope_InstFonction	18= Instruction + Fonction
+	bra	Ope_DejaTeste		19- Deja teste!
+	bra	Ope_VReservee		1A- Variable reservee
+; Fonctions speciales compilateur
+	bra	Ope_Normal		1B- ParamE
+	bra	Ope_Normal		1C- ParamF
+	bra	Ope_Normal		1D- ParamS
+	bra	Ope_Normal		1E- False
+	bra	Ope_Normal		1F- True
+	bra	Ope_MinMax		20- Max
+	bra	Ope_DejaTeste		21- Mid3
+	bra	Ope_Normal		22- Mid2
+	bra	Ope_Normal		23- Left
+	bra	Ope_Normal		24- Right
+	bra	Ope_Normal		25- Fonction dialogues
+	bra	Ope_Normal		26- Selecteur de fichier
+	bra	Ope_Normal		27- Btst
+
+; 	Operande mathematique>>> met les flags
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Math
+	or.b	#%00000011,MathFlags(a5)
+	bra.s	Ope_Normal
+; 	Nouvelle fonction normale AMOSPro
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ProNormal
+	bsr	SetNot1.3
+; 	Gestion d'un operande normal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Normal
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst		Pointe la definition
+	move.w	d0,d2
+	bsr	VerF			Va verifier
+; Compute type in D2>>> float / integer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_CheckType
+	addq.l	#2,sp
+	moveq	#0,d0
+	move.b	d2,d0
+	sub.w	#"0",d0
+	lsl.w	#1,d0
+	jmp	.jmp(pc,d0.w)
+.jmp	rts				0-Entier
+	bra.s	.Float			1-Float
+	rts				2-Chaine
+	rts				3-Entier/Chaine ??? Impossible
+	bra.s	.Indif			4-Entier/Float
+.Math	bset	#1,MathFlags(a5)	5-Angle (=math)
+.Float	bset	#0,MathFlags(a5)
+.Indif	move.b	#"0",d2
+	rts
+
+; 	Gestion d'une variable reservee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_VReservee
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst		Pointe la definition
+	move.b	(a0)+,d2
+	bsr	VerF
+	bra	Ope_CheckType
+
+; 	Operande deja teste +++ rapide (jamais une vreservee)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_DejaTeste
+	bsr	Ver_DInst		Pointe la definition
+	move.w	d0,d2
+	bsr	VerF_DejaTeste		Va verifier
+	bra.s	Ope_CheckType
+
+; 	Une extension: toutes les possibilites
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Extension
+	move.b	(a6)+,d1
+	move.l	a6,-(sp)
+	tst.b	(a6)+
+	move.w	(a6)+,d0
+	ext.w	d1
+	lsl.w	#2,d1
+	lea	AdTokens(a5),a0
+	tst.l	0(a0,d1.w)
+	beq	VerExN
+	move.l	0(a0,d1.w),a0
+	clr.w	-(sp)			Flag librairie 2.0 ou ancienne
+	btst	#LBF_20,LB_Flags(a0)	Librarie 2.0?
+	beq.s	.Old
+	move.w	#-1,(sp)
+; Verifie Fonction / Variable reservee, sans table!
+.Old	move.l	a0,VerBase(a5)		Debut de tokenisation
+	bsr	Ver_OlDInst
+	move.w	d0,d2
+	cmp.b	#"I",d2
+	beq	VerSynt
+	cmp.b	#"V",d2			Variable r�servee
+	bne.s	.Skip
+	move.b	(a0)+,d2
+.Skip	bsr	VerF			Va verifier
+; Poke le nombre de parametres
+	tst.w	(sp)+			Le flag
+	move.l	(sp)+,a0		Poke le nombre de params...
+	beq.s	.Old2
+	move.b	#-1,(a0)		Nouvelle extension: pas de params!
+	bra	Ope_CheckType
+.Old2	move.b	d0,(a0)			Ancienne extension: des params...
+	bra	Ope_CheckType
+
+;	Une instruction, essaie de trouver une fonction apres!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_InstFonction
+	move.l	a0,VerBase(a5)
+	lea	0(a0,d0.w),a0
+.Loop0	move.l	a0,d1
+	addq.l	#4,a0
+.Loop1	tst.b	(a0)+
+	bpl.s	.Loop1
+	move.b	(a0)+,d2
+	cmp.b	#"I",d2
+	bne.s	.Ok
+.Loop2	tst.b	(a0)+
+	bpl.s	.Loop2
+	move.b	-1(a0),d0
+	cmp.b	#-3,d0
+	bne	VerSynt
+	move.w	a0,d0
+	and.w	#$0001,d0
+	add.w	d0,a0
+	bra.s	.Loop0
+; Trouve, change le token
+.Ok	sub.l	VerBase(a5),d1
+	move.w	d1,-2(a6)
+	bsr	VerF
+	bra	Ope_CheckType
+
+; 	Fin: une virgule avant---> ommis!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Fin1
+	cmp.w	#_TkVir,-4(a6)
+	bne	VerSynt
+; 	Fin, avec une virgule: le parametre est ommis
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Fin2
+	subq.l	#2,a6
+	moveq	#"0",d2
+	tst.w	(sp)+
+	bne	VerSynt
+	rts
+
+; 	Ouverture d'un parenthese
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Parenth
+	addq.w	#1,Parenth(a5)
+	bsr	Ver_REvalue
+	addq.l	#2,sp
+	rts
+
+;	Variable en fonction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_Variable
+	bsr	V1_FVariable
+	addq.l	#2,sp
+	rts
+
+;	Varptr(var)
+; ~~~~~~~~~~~~~~~~~
+Ope_Varptr
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	bsr	V1_FVariable
+	cmp.w	#_TkPar2,(a6)+
+	bne	VerSynt
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+;	Constante entiere
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstEnt
+	addq.l	#4,a6
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+; 	Constante string
+; ~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstStr
+	move.w	(a6)+,d0		* Saute la chaine
+	move.w	d0,d1
+	and.w	#$0001,d1
+	add.w	d1,d0
+	lea	0(a6,d0.w),a6
+	moveq	#"2",d2
+	addq.l	#2,sp
+	rts
+; 	Constante float simple precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstFl
+	addq.l	#4,a6
+	move.b	#1,Ver_SPConst(a5)
+	bset	#0,MathFlags(a5)	Flag: un peu de maths!
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+; 	Constante float double precision
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_ConstDFl
+	addq.l	#8,a6
+	move.b	#1,Ver_DPConst(a5)
+	bset	#0,MathFlags(a5)	Flag: un peu de maths!
+	bsr	SetNot1.3		Non compatible!
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+;	=Array(a$())
+; ~~~~~~~~~~~~~~~~~~
+Ope_Array
+	bsr	SetNot1.3		Non compatible
+;	=Match(a$())
+; ~~~~~~~~~~~~~~~~~~
+Ope_Match
+	move.l	a6,-(sp)
+	move.l	a0,VerBase(a5)
+	bsr	Ver_DInst
+	bsr	VerF
+	moveq	#"0",d2			Type=0, entier!
+	move.l	(sp)+,a0
+	btst	#6,5+2(a0)		La variable est-elle un tableau?
+	bne	Ope_CheckType
+	bra	VerSynt
+
+;	=MIN / MAX
+; ~~~~~~~~~~~~~~~~
+Ope_MinMax
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	move.w	Parenth(a5),-(sp)
+	bsr	Ver_Expression
+	move.w	d2,-(sp)
+	cmp.w	#_TkVir,(a6)+
+	bne	VerSynt
+	bsr	Ver_Evalue
+	cmp.w	#-1,Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,d1
+	cmp.b	d1,d2
+	bne	VerType
+	move.w	(sp)+,Parenth(a5)
+	addq.l	#2,sp
+	rts
+
+;	NOT
+; ~~~~~~~~~
+Ope_Not	move.w	Parenth(a5),-(sp)
+	bsr	Ver_Evalue
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,Parenth(a5)
+	cmp.b	#"2",d2
+	beq	VerType
+	addq.l	#2,sp
+	rts
+
+; 	= Fn AKJDKJS(k,d,d,d)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_OpeFn
+	tst.w	-(sp)
+Ope_Fn	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	and.b	#%00001111,3(a6)
+	bset	#3,3(a6)
+	bsr	VarA0
+	move.w	d2,-(sp)
+	bsr	V1_StoVar
+	bne	VerNFn
+* Verifie les parametres
+	cmp.w	#_TkPar1,(a6)
+	bne.s	VerFn3
+	addq.l	#2,a6
+	move.w	Parenth(a5),-(sp)
+VerFn1	bsr	Ver_Evalue
+	tst.w	Parenth(a5)
+	bne.s	VerFn2
+	cmp.w	#_TkVir,(a6)+
+	beq.s	VerFn1
+	bne	VerSynt
+VerFn2	cmp.w	#-1,Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,Parenth(a5)
+* Ok!
+VerFn3	move.w	(sp)+,d2
+	addq.w	#2,sp
+	moveq	#0,d0
+	rts
+
+;	=XY MENU(,,) / =MENU(,,)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ope_XYMn
+	bsr	VerTablo
+	cmp.w	#MnNDim,d0
+	bcc	VerSynt
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+;	STRUC / STRUC$
+; ~~~~~~~~~~~~~~~~~~~~
+Ope_Struc
+	move.w	Parenth(a5),-(sp)
+	bsr	VStru
+	move.w	(sp)+,Parenth(a5)
+	cmp.b	#7,d2
+	bcc	VerType
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+Ope_StrucS
+	move.w	Parenth(a5),-(sp)
+	bsr	VStru
+	move.w	(sp)+,Parenth(a5)
+	cmp.b	#6,d2
+	bne	VerType
+	moveq	#"2",d2
+	addq.l	#2,sp
+	rts
+; Equates / LVO
+; ~~~~~~~~~~~~~
+Ope_Equ	lea	Equ_Nul(pc),a0
+	bra	VEqu
+Ope_LVO	lea	Equ_LVO(pc),a0
+VEqu	move.l	a6,a1
+	addq.l	#6,a6
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	bsr	Equ_Verif
+	cmp.w	#_TkPar2,(a6)+
+	bne	VerSynt
+	moveq	#"0",d2
+	addq.l	#2,sp
+	rts
+
+
+; 					Verification instruction deja testee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerI_DejaTestee
+	move.b	(a0)+,d0		Un parametre?
+	bmi.s	.Ok
+.Loop	move.l	a0,-(sp)
+	bsr	Ver_Evalue		Evaluation
+	move.l	(sp)+,a0
+	tst.b	(a0)+			Un separateur?
+	bmi.s	.Ok
+	addq.l	#1,a0			Un autre parametre!
+	addq.l	#2,a6			Saute le separateur
+	bra.s	.Loop
+.Ok	rts
+
+;				Verification d'une instruction standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Position dans la table de tokens
+;	A6=	Instruction + 2
+VerI:	move.w	d2,-(sp)
+	pea	-2(a6)			* Adresse de l'instruction
+	move.l	a0,-(sp)
+	clr.w	-(sp)			* Position dans definition
+	clr.l	-(sp)			* Chaine SOURCE
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	move.b	#-1,(sp)
+	move.w	(a6),d0			* Fin ligne?
+	bsr	FinieB
+	beq	VerI6
+* Compte les parametres
+VerI2:	bsr	Ver_Evalue
+	move.w	20(sp),d0
+	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	VerI3
+	subq.w	#1,d0
+VerI3:	move.w	d0,20(sp)
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	moveq	#",",d2
+	move.w	(a6),d1
+	cmp.w	#_TkVir,d1
+	beq.s	VerI4
+	moveq	#"t",d2
+	cmp.w	#_TkTo,d1
+	bne	VerI6
+VerI4:	addq.l	#2,a6
+	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	VerI5
+	subq.w	#1,d0
+VerI5:	move.w	d0,20(sp)
+ 	bra.s	VerI2
+* Compare la chaine cree aux parametres
+VerI6:	bsr	VerC
+* C'est bon: depile
+	move.w	20(sp),d0		* Nombre de parametres!
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	lea	30(sp),sp
+	move.w	(sp)+,d2
+	rts
+
+; 					Verification fonction deja testee
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerF_DejaTeste
+	move.b	(a0)+,d0		Un parametre?
+	bmi.s	.Fin
+	move.w	d2,-(sp)
+	move.w	Parenth(a5),-(sp)
+.Loop	addq.l	#2,a6			Parenth / Separateur
+	move.l	a0,-(sp)
+	bsr	Ver_Evalue			Evaluation
+	move.l	(sp)+,a0
+	tst.b	(a0)+			Un separateur?
+	bmi.s	.Ok
+	addq.l	#1,a0			Un autre parametre!
+	bra.s	.Loop
+.Ok	move.w	(sp)+,Parenth(a5)
+	move.w	(sp)+,d2
+.Fin	rts
+
+;					Verification d'une fonction standart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerF:	move.w	d2,-(sp)
+	move.w	Parenth(a5),-(sp)
+	pea	-2(a6)			* Adresse de l'instruction
+	move.l	a0,-(sp)		* Adresse definition
+	clr.w	-(sp)			* Position dans definition
+	clr.l	-(sp)			* Chaine SOURCE
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	clr.l	-(sp)
+	move.b	#-1,(sp)
+	cmp.w	#_TkPar1,(a6)
+	bne	Verf6
+	addq.l	#2,a6
+	cmp.w	#_TkPar2,(a6)+
+	beq	Verf6
+	subq.l	#2,a6
+* Compte les parametres
+Verf2:	bsr	Ver_Evalue
+	move.w	20(sp),d0
+	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	Verf3
+	subq.w	#1,d0
+Verf3:	move.w	d0,20(sp)
+	cmp.w	#-1,Parenth(a5)
+	beq.s	Verf6
+	tst.w	Parenth(a5)
+	bne	VerSynt
+	moveq	#",",d2
+	move.w	(a6)+,d1
+	cmp.w	#_TkVir,d1
+	beq.s	Verf4
+	moveq	#"t",d2
+	cmp.w	#_TkTo,d1
+	bne	VerSynt
+Verf4:	move.b	d2,0(sp,d0.w)
+	move.b	#-1,1(sp,d0.w)
+	addq.w	#1,d0
+	cmp.w	#19,d0
+	bcs.s	Verf5
+	subq.w	#1,d0
+Verf5:	move.w	d0,20(sp)
+	bra.s	Verf2
+* Compare la chaine cree aux parametres
+Verf6:	bsr	VerC
+* C'est bon: depile et ramene le type
+	move.w	20(sp),d0
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	lea	30(sp),sp
+	move.w	(sp)+,Parenth(a5)
+	move.w	(sp)+,d2
+	rts
+
+;	Verification standart: compare la chaine cree aux parametres
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerC:	move.l	(sp)+,a2	* Adresse de retour
+	lea	(sp),a0
+	move.l	22(sp),a1	* Pas de definition: PROCEDURE!
+	cmp.l	#0,a1
+	beq	VerCF
+* Pas de parametre?
+	move.b	(a1),d1
+	bpl.s	VerC0
+	tst.b	(a0)
+	bmi.s	VerCF
+	bra.s	VerC3
+VerC0:	tst.b	(a0)
+	bmi.s	VerC3
+* Explore les params
+VerC1:	move.b	(a1)+,d1
+	bmi.s	VerC4
+	move.b	(a0)+,d0
+	cmp.b	#"3",d1		Indifferent?
+	beq.s	VerC1a
+	cmp.b	#"2",d1		Chaine
+	beq.s	.Comp
+	moveq	#"0",d1		Sinon, un chiffre!
+.Comp	cmp.b	d0,d1
+	bne	VerType
+VerC1a:	move.b	(a0)+,d0
+	bmi.s	VerC2
+	move.b	(a1)+,d1
+	bmi.s	VerC4
+	cmp.b	d0,d1
+	beq.s	VerC1
+	bra	VerC3
+VerC2:	move.b	(a1)+,d1
+	bpl.s	VerC3
+* OK!
+VerCF:	jmp	(a2)
+* Essaie les params suivants
+VerC3:	move.b	(a1)+,d1
+	bpl.s	VerC3
+VerC4:	cmp.b	#-2,d1		* Change le numero de l'instruction
+	bne	VerSynt
+	move.l	a1,d0
+	btst	#0,d0
+	beq.s	VerC5
+	addq.l	#1,a1
+	addq.l	#1,d0
+VerC5:	sub.l	VerBase(a5),d0
+	move.l	26(sp),a0
+	move.w	d0,(a0)
+	addq.l	#4,a1
+VerC6:	tst.b	(a1)+
+	bpl.s	VerC6
+	lea	(sp),a0
+	cmp.b	#"V",(a1)+
+	bne.s	VerC1
+	addq.l	#1,a1
+	bra.s	VerC1
+
+;	Pointe la liste des params d'une instruction
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ver_DInst:
+	add.w	d0,a0
+	move.b	2(a0),d0
+	ext.w	d0
+	add.w	d0,a0
+	move.b	(a0)+,d0
+	bpl.s	.Skip
+	subq.l	#1,a0
+.Skip	rts
+
+; DInst, ancienne maniere
+; ~~~~~~~~~~~~~~~~~~~~~~~
+Ver_OlDInst
+	lea	4(a0,d0.w),a0
+.Loop	tst.b	(a0)+
+	bpl.s	.Loop
+	move.b	(a0)+,d0
+	bpl.s	.Skip
+	subq.l	#1,a0
+.Skip	rts
+
+
+;				Verification / Stockage des variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+;	Variable en INSTRUCTION: egalisation ou appel procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_IVariable
+	move.w	#_TkVar,-2(a6)	Force le token
+	and.b	#%00001111,3(a6)	RAZ du flag!
+	bsr	VarA0
+	moveq	#0,d4			Pour CallProc
+	cmp.w	#_TkEg,(a0)		Egal=> egalisation (!)
+	beq.s	.VVi1
+	cmp.w	#_TkPar1,(a0)		Une procedure!
+	bne	V1_CallProc
+; Un tableau
+; ~~~~~~~~~~
+	move.w	d2,-(sp)
+	bset	#6,3(a6)		Met le flag tableau!
+	bsr	V1_StoVar
+	bne	VerNDim
+	bsr	VerTablo		Verifie les params d'un tableau
+	cmp.b	4(a1),d0
+	bne	VerIlP			Illegal numbre of dimensions
+	bra.s	.VVi2
+; Une variable normale
+; ~~~~~~~~~~~~~~~~~~~~
+.VVi1	move.w	d2,-(sp)
+	bsr	V1_StoVar
+; Verifie l'expression
+; ~~~~~~~~~~~~~~~~~~~~
+.VVi2	cmp.w	#_TkEg,(a6)+
+	bne	VerSynt
+	move.l	a6,VerPos(a5)
+	bsr	Ver_Expression
+	move.w	(sp)+,d0
+	cmp.b	d0,d2
+	bne	VerType
+	rts
+
+;	VARIABLE EN FONCTION
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_FVariable
+	and.b	#%00001111,3(a6)	RAZ du flag
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)
+	bne	V1_StoVar
+	bset	#6,3(a6)		Met le flag tableau!
+	bsr	V1_StoVar
+	bne	VerNDim
+	bsr	VerTablo		Verifie les params d'un tableau
+	cmp.b	4(a1),d0
+	bne	VerIlP			Illegal numbre of dimensions
+	rts
+
+;	Routine, veut un appel de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_GoProcedureParam
+	moveq	#1,d4
+	bra.s	GoPro
+V1_GoProcedureNoParam
+	moveq	#0,d4
+GoPro	move.w	(a6)+,d0
+	cmp.w	#_TkPro,d0
+	beq.s	V1_CallProc
+	cmp.w	#_TkVar,d0
+	bne	VerSynt
+; 	Appel de procedure
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+V1_CallProc
+	tst.w	Direct(a5)
+	bne	VerIlD
+	move.b	#Reloc_Proc1,d0		Flag un appel de procedure
+	bsr	New_Reloc		Force la relocation en V2
+	bsr	VarA0
+	move.w	#_TkPro,-2(a6)
+	or.b	#$80,3(a6)		Change le flag
+	move.l	a0,a6
+; Saute les params
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra1,(a6)
+	bne.s	.NopA
+	tst.w	d4
+	bne	VerSynt
+.Loop	addq.l	#2,a6
+	bsr	Ver_Expression
+	move.b	#Reloc_Proc2,d0
+	bsr	New_Reloc
+	move.b	d2,d0			Stocke dans la table de relocation
+	bsr	Out_Reloc
+	cmp.w	#_TkVir,(a6)
+	beq.s	.Loop
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a6)+
+	bne	VerSynt
+	move.b	#Reloc_Proc3,d0
+	bsr	New_Reloc
+.Out	rts
+.NopA	move.b	#Reloc_Proc4,d0
+	bsr	New_Reloc
+	rts
+
+
+; 	Appel de procedure passe2, premiere etape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc1
+	move.l	a6,VerPos(a5)
+	moveq	#0,d0			Retrouve le label
+	bsr	V2_FindLabelP
+	beq	VerUndP
+	move.l	d0,a3
+	lea	12(a3),a3
+	move.b	2(a3),d0
+	ext.w	d0
+	lea	4(a3,d0.w),a3		Pointe le debut de la procedure
+	cmp.w	#_TkBra1,(a3)+
+	beq.s	.Skip
+	sub.l	a3,a3
+.Skip	rts
+;	Appel de procedure passe2, pas de parametre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc4
+	move.l	a3,d0
+	bne	VerIlP
+	rts
+;	Appel de procedure passe2, deuxieme etape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc2
+	move.l	a3,d0
+	beq	VerIlP
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a3)
+	beq	VerIlP
+	cmp.w	#_TkVir,(a3)
+	bne.s	.Sko
+	addq.l	#2,a3
+.Sko	move.b	5(a3),d1
+	and.w	#$0F,d1
+	cmp.w	#1,d1
+	bne.s	.Skip
+	moveq	#0,d1
+.Skip	add.b	#"0",d1
+	cmp.b	(a4)+,d1
+	bne	VerType
+	move.b	4(a3),d0
+	ext.w	d0
+	lea	6(a3,d0.w),a3
+	rts
+;	Appel de procedure passe3, derniere etape
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_CallProc3
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkBra2,(a3)
+	bne	VerIlP
+	rts
+
+;		 					Stockage des labels
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+;	Verification d'un label / Expression
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_GoLabel
+	move.w	(a6),d0
+	cmp.w	#_TkLGo,d0
+	bne.s	.Skip
+	move.w	#_TkVar,d0
+	move.w	d0,(a6)
+.Skip	cmp.w	#_TkVar,d0
+	bne.s	.Expr
+	move.b	5(a6),d2
+	and.b	#$0F,d2
+	bne.s	.Expr
+; Est-ce REEELEMENT un label?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b	4(a6),d0
+	ext.w	d0
+	lea	6(a6,d0.w),a0
+	move.w	(a0),d0
+	beq.s	.Label
+	cmp.w	#_TkVir,d0
+	beq.s	.Label
+	bsr	FinieB
+	bne.s	.Expr
+; C'est un label GOTO! Change le token!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Label	move.w	#_TkLGo,(a6)+
+	move.b	#Reloc_Label,d0		Un label
+	bsr	New_Reloc		Relocation en passe2
+	move.l	a0,a6
+	rts
+; C'est une expression: va evaluer!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Expr	bsr	Ver_Evalue
+	rts
+
+;	Retourne en D0 l'adresse d'un label, si vrai label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_GoLabel
+	cmp.w	#_TkLGo,(a6)+
+	bne.s	.Nul
+	move.w	(a6)+,d0
+	move.l	LabHaut(a5),a0
+	move.b	(a6),d1
+	ext.w	d1
+	lea	2(a6,d1.w),a6
+	move.l	0(a0,d0.w),d0
+	rts
+.Nul	moveq	#0,d0
+	rts
+
+;	STOCKAGE D'UN LABEL / PASSE 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_StockLabel
+	move.w	Phase(a5),d0
+	bsr	Get_Label
+	bne	VerLb2
+; Cree le label
+; ~~~~~~~~~~~~~
+	move.w	d1,d3
+	move.l	LabBas(a5),a0		Baisse le bas des labels
+	subq.l	#8,a0
+	sub.w	d1,a0
+	cmp.l	LabMini(a5),a0		Attention aux boucles
+	bcs	VerVNm
+	move.l	a0,LabBas(a5)
+	move.l	a0,a2
+	move.l	d0,(a0)+		Longueur / Flags / Phase
+	lea	4(a6),a1
+	addq.l	#4,a0
+	lsr.w	#1,d3			Copie le nom
+	subq.w	#1,d3
+.N1	move.w	(a1)+,(a0)+
+	dbra	d3,.N1
+	lea	4(a6,d1.w),a6		Saute le label
+	move.l	a6,a0			Trouve l'adresse de saut
+	tst.w	(a0)
+	bne.s	.N2
+	tst.w	2(a0)			Pointe la ligne suivante si on peut
+	beq.s	.N2
+	addq.l	#4,a0
+.N2	move.l	a0,4(a2)		Poke l'adresse, A2= pointeur
+	rts
+
+;	STOCKAGE LABEL PASSE 2 : essaie de retrouver le label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_FindLabel
+	move.w	Phase(a5),d0		Niveau de procedure
+V2_FindLabelP
+	bsr	Get_Label		Va chercher
+	beq.s	.NFnd
+; Label trouve, LOKE dans le listing / saute le label
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	a0,a2
+	addq.l	#4,a0
+	sub.l	LabHaut(a5),a0
+	move.w	a0,(a6)
+	move.l	4(a2),d0
+.NFnd	rts
+
+; Routine: retrouve un label dans la liste. D0=Phase
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Label
+	move.b	3(a6),d2		Flag
+	moveq	#0,d1
+	move.b	2(a6),d1		Longueur du nom
+	swap	d0
+	move.b	d1,d0
+	lsl.w	#8,d0
+	move.b	d2,d0
+	swap	d0
+; Boucle de recherche + rapide
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	LabBas(a5),a0
+	moveq	#0,d3
+	move.b	(a0),d3
+	beq.s	.Nouvo
+.Loop	cmp.l	(a0),d0
+	beq.s	.Test
+.Loop2	lea	8(a0,d3.w),a0
+	move.b	(a0),d3
+	bne.s	.Loop
+	bra.s	.Nouvo
+.Test	lea	4(a6),a1
+	lea	8(a0),a2
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+.Test2	cmp.w	(a1)+,(a2)+
+	dbne	d4,.Test2
+	tst.w	d4
+	bpl.s	.Loop2
+	move.w	#%00000,CCR		BNE: trouve, A0=adresse
+	rts
+.Nouvo	move.w	#%00100,CCR		BEQ: pas trouve
+	rts
+
+
+; ----- ENLEVE TOUS LES FLAGS VARIABLE GLOBALE!
+Locale:	move.l	DVNmBas(a5),a0
+	bra.s	LoK2
+LoK1:	ext.w	d0
+	cmp.b	#2,5(a0)
+	beq.s	LoK0
+	clr.b	5(a0)
+LoK0:	lea	6(a0,d0.w),a0
+LoK2:	move.b	(a0),d0
+	bne.s	LoK1
+	rts
+; ----- MET TOUS LES FLAGS VARIABLE GLOBALE!
+Globale:move.l	DVNmBas(a5),a0
+	bra.s	GlK2
+GlK1:	ext.w	d0
+	move.b	#1,5(a0)
+	lea	6(a0,d0.w),a0
+GlK2:	move.b	(a0),d0
+	bne.s	GlK1
+	rts
+
+;	STOCKAGE VARIABLE PASSE 1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V1_StoVar
+	movem.l	d2/d3/a3/a4,-(sp)
+	lea	4(a6),a0		* Pointe le nom
+	move.l	a0,d0
+	move.b	2(a6),d1
+	ext.w	d1			* Longueur variable
+	move.b	3(a6),d2		* Flag
+	move.l	a6,a3
+
+	tst.w	Phase(a5)
+	beq.s	StV1
+; Essaie de trouver les variables globales
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	DVNmBas(a5),a4		* Prend les noms GLOBAUX
+	move.l	a4,a1
+StV1a:	move.l	a1,a2
+	move.b	(a1),d3
+	beq.s	StV1
+	ext.w	d3
+	tst.b	5(a1)
+	beq.s	StV1n
+	cmp.w	d1,d3
+	bne.s	StV1n
+	cmp.b	1(a1),d2
+	bne.s	StV1n
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+	addq.w	#6,a1
+	move.l	d0,a0
+StV1b:	cmp.w	(a0)+,(a1)+
+	bne.s	StV1n
+	dbra	d4,StV1b
+	move.l	a2,a1			* Ramene l'adresse variable
+	move.l	a2,d0
+	sub.l	DVNmHaut(a5),d0		* Offset / Table variables
+	neg.w	d0			* >0===> GLOBALES!
+	move.w	d0,(a6)
+	moveq	#0,d0			* Deja existante
+	bra	Rn1VFin			* Va terminer
+StV1n:	lea	6(a2,d3.w),a1
+	bra.s	StV1a
+
+; Trouve la variable LOCALE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+StV1:	move.l	VNmBas(a5),a4
+	move.l	a4,a1
+Rn1Va:	move.l	d0,a0
+	move.l	a1,a2
+	move.b	(a1)+,d3
+	beq.s	Rn1Vx
+	ext.w	d3
+	cmp.b	d1,d3			* Longueur egale?
+	bne.s	Rn1Vn
+	cmp.b	(a1)+,d2		* Flag egal?
+	bne.s	Rn1Vn
+	tst.w	(a1)+			* Saute DIVERS
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+	addq.w	#2,a1
+Rn1Vb:	cmp.w	(a0)+,(a1)+
+	bne.s	Rn1Vn
+	dbra	d4,Rn1Vb
+	moveq	#0,d0			* Variable deja existante
+	bra.s	Rn1Vz
+; Passe a la variable suivante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Rn1Vn:	lea	6(a2,d3.w),a1
+	bra.s	Rn1Va
+; Cree la variable
+; ~~~~~~~~~~~~~~~~
+Rn1Vx:	lea	-6(a4),a2
+	sub.w	d1,a2
+	cmp.l	VNmMini(a5),a2
+	bcs	VerNmO
+	move.l	a2,VNmBas(a5)
+	move.l	a2,a1
+	move.b	d1,(a1)+		* Poke la longueur
+	move.b 	d2,(a1)+		* Poke le flag
+	move.w	VarLong(a5),(a1)+	* Pointeur
+	clr.w	(a1)+			* Variables Locale-Non dim
+	addq.w	#6,VarLong(a5)		* Place pour le type
+; Si float DP, non tableau: variable sur 10 octets...
+	cmp.b	#1,d2
+	bne.s	.Skip
+	tst.b	MathFlags(a5)
+	bpl.s	.Skip
+	addq.w	#4,VarLong(a5)
+.Skip	move.w	d1,d3
+	lsr.w	#1,d3
+	subq.w	#1,d3
+	move.l	d0,a0
+Rn1Vy:	move.w	(a0)+,(a1)+
+	dbra	d3,Rn1Vy
+	moveq	#-1,d0			* Variable nouvelle!
+; Variable trouvee
+; ~~~~~~~~~~~~~~~~
+Rn1Vz:	move.l	a2,a1			* Ramene l'adresse variable
+	sub.l	VNmHaut(a5),a2		* Offset / Table variables
+	move.w	a2,(a6)
+; Force la relocation en passe 2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Rn1VFin	movem.l	(sp)+,d2/d3/a3/a4
+	move.w	d0,-(sp)
+	move.b	#Reloc_Var,d0
+	bsr	New_Reloc		* Nouvelle relocation
+	lea	4(a6,d1.w),a6		* Saute la variable
+	tst.w	(sp)+			* Positionne le flag
+	rts
+
+;	STOCKAGE VARIABLE DEUXIEME PASSE: retrouve l'adresse
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+V2_StoVar
+	lea	4(a6),a0		* Pointe le nom
+	move.b	2(a6),d1
+	ext.w	d1			* Longueur variable
+	move.w	(a6),d3
+	bpl.s	.Skip
+; DOKE le pointeur, variable locale (<0!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	VNmHaut(a5),a1
+	lea	0(a1,d3.w),a1
+	move.w	2(a1),(a6)
+	bra.s	.Out
+; Variable GLOBALE (>0!)
+; ~~~~~~~~~~~~~~~~~~~~~~
+.Skip	neg.w	d3
+	move.l	DVNmHaut(a5),a1
+	lea	0(a1,d3.w),a1
+	move.w	2(a1),d0
+	addq.w	#1,d0
+	neg.w	d0
+	move.w	d0,(a6)
+.Out	rts
+
+;	Saute le nom d'une variable / A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VarA0:	lea	2(a6),a0
+	move.b	(a0)+,d1
+	ext.w	d1
+	move.b	(a0)+,d3
+	move.b	d3,d0
+	moveq	#"0",d2
+	and.b	#%111,d0
+	beq.s	.Skip
+	cmp.b	#1,d0
+	beq.s	.Skip
+	moveq	#"2",d2
+.Skip	add.w	d1,a0
+	rts
+
+;	Verifie les params d'un tableau
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VerTablo
+	move.w	d2,-(sp)
+	move.l	a1,-(sp)
+	move.l	a6,VerPos(a5)
+	cmp.w	#_TkPar1,(a6)+
+	bne	VerSynt
+	move.w	Parenth(a5),-(sp)
+	clr.w	-(sp)
+.VTab	move.l	a6,VerPos(a5)
+	addq.w	#1,(sp)
+	bsr	Ver_Evalue		Verifie les parametres
+	cmp.b	#"0",d2
+	bne	VerType
+	tst.w	Parenth(a5)
+	bne.s	.VTab1
+	cmp.w	#_TkVir,(a6)+
+	beq.s	.VTab
+	bne	VerSynt
+.VTab1	cmp.w	#-1,Parenth(a5)
+	bne	VerSynt
+	move.w	(sp)+,d0		Nombre de dimensions
+	move.w	(sp)+,Parenth(a5)
+	move.l	(sp)+,a1
+	move.w	(sp)+,d2
+	rts
+
+
+;	Initialisation de la table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Reserve_Reloc
+	bsr	Free_Reloc
+	lea	Ver_Reloc(a5),a0
+	move.l	a0,Ver_CReloc(a5)
+	clr.l	Ver_FReloc(a5)
+	clr.b	Ver_NoReloc(a5)
+	sub.l	a4,a4
+	rts
+;	Efface les buffers de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_Reloc
+	move.l	Ver_Reloc(a5),d2
+	beq.s	.Out
+.Loop	move.l	d2,a1
+	move.l	(a1),d2
+	move.l	#Reloc_Step,d0
+	Rjsr	L_RamFree
+	tst.l	d2
+	bne.s	.Loop
+.Out	clr.l	Ver_Reloc(a5)
+	clr.l	Ver_FReloc(a5)
+	rts
+
+
+
+;	Poke le pointeur actuel dans la table de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+New_Reloc
+	tst.b	Ver_NoReloc(a5)		Relocation autorisee???
+	bne.s	.Out
+	cmp.l	Ver_FReloc(a5),a4	Sorti de la table?
+	bcc.s	.NewBuf
+	move.l 	d0,-(sp)
+        move.l 	a6,d0
+        sub.l 	a3,d0
+	beq.s	.ReJ5
+	bls.s	.Bug
+.ReJ1	cmp.l 	#254,d0
+        bls.s 	.ReJ4
+	cmp.l	#254*3,d0
+	bls.s	.ReJ3
+	cmp.l	#65534,d0
+	bls.s	.ReJ2
+; >65534
+	move.b	#Reloc_Long,(a4)+
+	move.b	#$FF,(a4)+
+	move.b	#$FE,(a4)+
+	sub.l	#65534,d0
+	bra.s	.ReJ1
+; >254*3 <65536
+.ReJ2	move.b	#Reloc_Long,(a4)+
+	move.b	d0,1(a4)
+	ror.w	#8,d0
+	move.b	d0,(a4)
+	addq.l	#2,a4
+	bra.s	.ReJ5
+; >254 <254*3
+.ReJ3	move.b	#127,(a4)+
+        sub.l 	#254,d0
+        bra.s 	.ReJ1
+; <254
+.ReJ4	lsr.w	#1,d0
+	move.b	d0,(a4)+
+; Fini
+.ReJ5	move.l 	a6,a3
+        move.l	(sp)+,d0
+	move.b	d0,(a4)+
+.Out	rts
+.Bug	illegal
+; Nouveau buffer de relocation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.NewBuf	tst.l	Ver_FReloc(a5)		Premiere table?
+	beq.s	.Init
+	move.b	#Reloc_NewBuffer,(a4)+	Code de changement
+.Init	movem.l	a0/a1/d0/d1,-(sp)
+	move.l	#Reloc_Step,d0
+	Rjsr	L_RamFast
+	beq	VerOut
+	move.l	d0,a0
+	move.l	Ver_CReloc(a5),a1
+	move.l	a0,(a1)
+	move.l	a0,Ver_CReloc(a5)
+	move.l	a0,a4
+	clr.l	(a4)+
+	lea	Reloc_Step-32(a0),a0
+	move.l	a0,Ver_FReloc(a5)
+	movem.l	(sp)+,a0/a1/d0/d1
+	bra	New_Reloc
+; 	Simple sortie d'un chiffre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Out_Reloc
+	tst.b	Ver_NoReloc(a5)		Relocation autorisee???
+	bne.s	.Out
+	move.b	d0,(a4)+
+.Out	rts
+
+
+; ----- SHARED a,b()
+
+; ----- Routine SHARED: cree les variables
+VpSha:	addq.l	#2,a6
+VpSha1:	bsr	VpGv
+	cmp.w	#_TkVir,(a6)+
+	beq.s	VpSha1
+	move.w	-(a6),d0
+	move.l	a6,VerPos(a5)
+	tst.w	d0
+	bne	VerSynt
+	rts
+* Verification des variables
+VpGv:	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+* Premiere passe
+	and.b	#%00001111,3(a6)
+	bsr	VarA0
+	cmp.w	#_TkPar1,(a0)
+	bne	V1_StoVar
+	cmp.w	#_TkPar2,2(a0)
+	bne	VerNoPa
+	lea	4(a0),a6
+	rts
+; ----- Verification proprement dite
+VerSha	bset	#0,VarBufFlg(a5)
+	subq.l	#2,a6
+	tst.w	Direct(a5)
+	bne	VerIlD
+* GLOBAL: Cree les variables
+	move.l	DVNmBas(a5),-(sp)
+	tst.w	Phase(a5)
+	bne	VSh0a
+	move.l	a6,-(sp)
+	bsr	VpSha
+	move.l	(sp)+,a6
+	move.l	VNmBas(a5),(sp)
+* Ok! verifie
+VSh0a:	addq.l	#2,a6
+* Passe 1
+VSh1a:	move.l	a6,VerPos(a5)
+	cmp.w	#_TkVar,(a6)+
+	bne	VerSynt
+	lea	4(a6),a0		* Pointe le nom
+	move.l	a0,d0
+	move.b	2(a6),d1
+	ext.w	d1			* Longueur variable
+	and.b	#%00001111,3(a6)
+	move.b	3(a6),d2		* Flag
+	lea	4(a6,d1.w),a6
+	cmp.w	#_TkPar1,(a6)
+	bne.s	Sh1d
+	bset	#6,d2
+	bset	#6,-1(a0)
+	cmp.w	#_TkPar2,2(a6)
+	bne	VerNoPa
+	addq.l	#4,a6
+* Cherche la variable dans les variables globales
+Sh1d:	move.l	(sp),a1
+Sh1a:	move.l	a1,a2
+	move.b	(a1),d3
+	beq	VerNDim			* PaG	* Pas une variable GLOBALE!
+	ext.w	d3
+	cmp.w	d1,d3
+	bne.s	Sh1n
+	cmp.b	1(a1),d2
+	bne.s	Sh1n
+	move.w	d3,d4
+	lsr.w	#1,d4
+	subq.w	#1,d4
+	addq.w	#6,a1
+	move.l	d0,a0
+Sh1b:	cmp.w	(a0)+,(a1)+
+	bne.s	Sh1n
+	dbra	d4,Sh1b
+	cmp.b	#2,5(a2)		* Already GLOBALE!
+	beq.s	Sh1c
+	move.b	#1,5(a2)		* Marque la variable
+	tst.w	Phase(a5)
+	bne.s	Sh1c
+	addq.b	#1,5(a2)		* Devient globale!
+	bra.s	Sh1c
+Sh1n:	lea	6(a2,d3.w),a1
+	bra.s	Sh1a
+* Une autre variable?
+Sh1c:	move.w	(a6)+,d0
+	cmp.w	#_TkVir,d0
+	beq	VSh1a
+	addq.l	#4,sp
+	tst.w	d0
+	bne	VerShal
+	bra	VerD
+
+; ----- Instruction finie??
+Finie:	move.w	(a6),d0
+FinieB:	beq.s	Finy
+	cmp.w	#_TkDP,d0
+	beq.s	Finy
+	cmp.w	#_TkThen,d0
+	beq.s	Finy
+	cmp.w	#_TkElse,d0
+Finy:	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	NETTOYAGES DES VARIABLES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+ClearVar
+; - - - - - - - - - - - - -
+
+	movem.l	d0-d7/a0-a6,-(sp)
+
+; Variables du programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	lea	DebRaz(a5),a0
+	lea	FinRaz(a5),a1
+ClV1:	clr.w	(a0)+
+	cmp.l	a1,a0
+	bcs.s	ClV1
+	clr.b	Test_Flags(a5)
+; Plus de buffers!
+; ~~~~~~~~~~~~~~~~
+	bsr	ClearBuffers
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+; 	Nettoie tous les buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClearBuffers
+	moveq	#0,d0
+	JJsr	L_ResTempBuffer
+	moveq	#0,d1
+	bsr	ResVarBuf
+	clr.w	VarBufFlg(a5)
+	moveq	#0,d1
+	bsr	ResVNom
+	rts
+
+;	Reserve le buffer chaines / variables
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1= Taille
+ResVarBuf
+	move.l	VarBuf(a5),d0
+	beq.s	Vbr1
+	clr.l	VarBuf(a5)
+	move.l	d0,a1
+	move.l	VarBufL(a5),d0
+	Rjsr	L_RamFree
+Vbr1	move.l	d1,d0
+	beq.s	Vbr2
+	Rjsr	L_RamFast
+ 	beq	VerOut
+	move.l	d0,a0
+	move.l	a0,VarBuf(a5)
+	lea	0(a0,d1.l),a1
+* Adresses dans ce buffer
+	move.l	a1,LabHaut(a5)
+	clr.w	-(a1)
+	move.l	a1,LabBas(a5)
+	clr.l	-(a1)
+	move.w	#-1,-(a1)
+	move.l	a1,VarGlo(a5)
+	move.l	a1,TabBas(a5)
+	move.l	a1,VarLoc(a5)
+* Chaines
+	move.l	a0,LoChaine(a5)
+	move.l	a0,ChVide(a5)
+	move.l	a0,ParamC(a5)
+	clr.w	(a0)+
+	move.l 	a0,HiChaine(a5)
+	move.l	a0,LabMini(a5)
+* Fini!
+Vbr2	clr.w	VarLong(a5)
+	clr.w	GloLong(a5)
+	clr.w	TVMax(a5)
+	move.l	d1,VarBufL(a5)
+	rts
+
+;	Reserve le buffer des noms de variable
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	D1= taille
+ResVNom	move.l	VNmMini(a5),d0
+	beq.s	RVn1
+	clr.l	VNmMini(a5)
+	move.l	d0,a1
+	move.l	VNmLong(a5),d0
+	clr.l	VNmLong(a5)
+	Rjsr	L_RamFree
+RVn1	move.l	d1,d0
+	beq.s	RVn2
+	Rjsr	L_RamFast
+ 	beq	VerOut
+	move.l	d0,a0
+	move.l	a0,VNmMini(a5)
+	move.l	d1,VNmLong(a5)
+	add.l	d1,a0
+	move.l	a0,DVNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,DVNmBas(a5)
+	move.l	a0,VNmHaut(a5)
+	clr.w	-(a0)
+	move.l	a0,VNmBas(a5)
+RVn2	rts
+
+; Inclus les INCLUDES dans le programme courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Get_Includes
+; Efface d'eventuels anciens
+	bsr	Includes_Clear
+; Demande un buffer
+	lea	Prg_Includes(a5),a0
+	move.l	#20*16,d0
+	move.l	#Public|Clear,d1
+	bsr	VA5_Reserve
+	beq	.XX
+	move.l	a0,a3
+; Explore le d�but
+	move.l	Prg_Source(a5),a0
+	move.l	a0,(a3)
+	moveq	#0,d6
+	moveq	#0,d7
+	moveq	#0,d0
+	bsr	Tk_FindL
+	beq	.Inclus
+.Incl1	cmp.w	#_TkIncl,2(a0)
+	beq.s	.Inclu
+	bsr	Tk_FindN
+	bne.s	.Incl1
+	bra	.Inclus
+; Une inclusion
+.Inclu	bsr	SetNot1.3		Non compatible!
+	addq.w	#1,d7
+	move.l	a0,d0
+	sub.l	(a3),d0
+	move.l	a0,(a3)
+	add.l	d0,d6
+	move.l	d0,4(a3)
+; Ouvre le fichier, sauve le lock
+	cmp.w	#_TkCh1,4(a0)
+	bne	.SErr
+	lea	6(a0),a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0
+	bmi	.SErr
+	cmp.w	#107,d0
+	bcc	.SErr
+	move.l	Name1(a5),a1
+.Incl2	move.b	(a0)+,(a1)+
+	dbra	d0,.Incl2
+	clr.b	(a1)
+	move.l	#1005,d2
+	bsr	VD_Open
+	beq	.DErr
+; Verifie entete, prend la taille du source
+	move.l	Buffer(a5),d2
+	moveq	#16+4,d3
+	bsr	VD_Read
+	bne	.DErr
+	move.l	d2,a2
+	move.l	d2,a1			Entete AMOSPRO
+	lea	H_Pro(pc),a0
+	moveq	#8-1,d0
+.Ver1	cmp.b	(a0)+,(a1)+
+	bne	.13
+	dbra	d0,.Ver1
+	bra.s	.Ver3
+.13	move.l	d2,a1			Entete AMOS1.3
+	lea	H_1.3(pc),a0
+	moveq	#10-1,d0
+.Ver2	cmp.b	(a0)+,(a1)+
+	bne	.AErr
+	dbra	d0,.Ver2
+.Ver3	add.l	16(a2),d6		Taille du source
+	move.l	16(a2),12(a3)
+	move.l	Handle(a5),8(a3)	Sauve le lock
+	clr.l	Handle(a5)
+; Reprend le cours
+	move.l	(a3),a0
+	bsr	Tk_FindN
+	move.l	a0,d0
+	sub.l	(a3),d0
+	move.l	d0,16(a3)
+	lea	20(a3),a3
+	move.l	a0,(a3)
+	bra	.Incl1
+; Reserve le buffer / Charge les programmes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Inclus	move.l	a0,d0
+	sub.l	(a3),d0
+	move.l	a0,(a3)
+	move.l	d0,4(a3)
+	tst.w	d7
+	beq	.PaIncl
+	add.l	d6,d0				Taille du dernier incluse
+	addq.l	#4,d0
+	move.l	#Public,d1
+	lea	Prg_FullSource(a5),a0
+	bsr	VA5_Reserve
+	beq	.MErr
+	lea	20(a0),a2			Saute le header
+	move.l	Prg_Includes(a5),a3
+	move.l	Prg_Source(a5),a4
+; Copie le programme
+.Copy	move.l	4(a3),d0
+	lsr.l	#1,d0
+	beq.s	.Copf
+.Cop	move.w	(a4)+,(a2)+
+	subq.l	#1,d0
+	bne.s	.Cop
+.Copf
+; Charge le chunk
+	move.l	8(a3),Handle(a5)
+	beq.s	.X
+	move.l	a2,d2
+	move.l	12(a3),d3
+	bsr	VD_Read
+	bne	.DErr
+	add.l	d0,a2
+	bsr	VD_Close
+	clr.l	8(a3)
+; Le suivant!
+	add.l	16(a3),a4		Saute le INCLUDE
+	lea	20(a3),a3		Suivant
+	bra.s	.Copy
+; Fini
+.X	clr.l	(a2)+
+.XX	rts
+; Pas d'include
+; ~~~~~~~~~~~~~
+.PaIncl	bsr	Includes_Clear
+	rts
+; Erreur dans les includes
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.MErr	moveq	#36,d0
+	bra.s	.Err
+.DErr	moveq	#45,d0
+	bra.s	.Err
+.AErr	moveq	#46,d0
+	bra.s	.Err
+.SErr	moveq	#35,d0
+.Err	move.l	d0,-(sp)
+	move.l	(a3),VerPos(a5)
+; Ferme tous les fichiers
+	bsr	VD_Close
+	move.l	Prg_Includes(a5),a3
+.Clo	move.l	8(a3),d0
+	beq.s	.Nx
+	clr.l	8(a3)
+	move.l	d0,Handle(a5)
+	bsr	VD_Close
+.Nx	lea	20(a3),a3
+	subq.w	#1,d7
+	bne.s	.Clo
+; Efface les zones
+	bsr	Includes_Clear
+; Erreur!
+	move.l	(sp)+,d0
+	bra	VerErr
+
+; 	Effacement des buffers includes / Retour � la normale
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Includes_Clear
+	movem.l	a0-a1/d0-d1,-(sp)
+	lea	Prg_FullSource(a5),a0
+	bsr	VA5_Free
+	lea	Prg_Includes(a5),a0
+	bsr	VA5_Free
+	movem.l	(sp)+,a0-a1/d0-d1
+	rts
+
+; 	Transforme une adresse FullSource (eventuellement) en adresse Source
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Includes_Adr
+	movem.l	a1/d0-d1,-(sp)
+	move.l	Prg_Includes(a5),d1
+	beq.s	.Out
+	move.l	d1,a1
+	lea	-20(a1),a1
+	sub.l	Prg_FullSource(a5),a0
+	moveq	#0,d1
+	moveq	#0,d2
+; Chunk de source
+.Loop	lea	20(a1),a1
+	add.l	4(a1),d2		Longueur de source
+	cmp.l	d2,a0
+	bcs.s	.Source
+; Chunk d'include
+	tst.l	12(a1)
+	beq.s	.Out
+	add.l	12(a1),d1		A soustraire au source
+	sub.l	16(a1),d1		Sans l'include lui meme
+	add.l	12(a1),d2
+	cmp.l	d2,a0
+	bcc.s	.Loop
+; Dans un include
+	move.l	(a1),a0
+	bra.s	.Out
+; Dans le source
+.Source	sub.l	d1,a0
+	add.l	Prg_Source(a5),a0
+; Sortie
+.Out	movem.l	(sp)+,a1/d0-d1
+	rts
+
+; 	Reserve un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+;	D0=	Longueur
+;	D1=	Flags
+VA5_Reserve
+	movem.l	d0-d2/a1-a2/a6,-(sp)
+	move.l	a0,a2
+	addq.l	#4,d0
+	move.l	d0,d2
+	move.l	$4.w,a6
+	jsr	_LVOAllocMem(a6)
+	tst.l	d0
+	beq.s	.Out
+	move.l	d0,a0
+	move.l	d2,(a0)+
+	move.l	a0,(a2)
+.Out	movem.l	(sp)+,d0-d2/a1-a2/a6
+	rts
+; 	Efface un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+VA5_Free
+	movem.l	a0-a1/d0-d1/a6,-(sp)
+	move.l	(a0),d0
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	move.l	$4.w,a6
+	jsr	_LVOFreeMem(a6)
+.Skip	movem.l	(sp)+,a0-a1/d0-d1/a6
+	rts
+
+; FIND_LINE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	Trouve la ligne 	D0
+;	Debut source		A0
+;	Debut Proc >>>		A1
+Tk_FindN
+	moveq	#1,d0
+Tk_FindL
+	move.l	d1,-(sp)
+	moveq	#0,d1
+	sub.l	a1,a1
+	subq.w	#1,d0
+	bmi.s	FndT
+; Boucle principale
+Fnd1	move.b	(a0),d1
+	beq.s	FndT
+	cmp.w	#_TkProc,2(a0)
+	beq.s	Fnd4
+Fnd2	add.w	d1,a0
+	add.w	d1,a0
+Fnd3	dbra	d0,Fnd1
+	bra.s	FndT
+; Debut de procedure
+Fnd4	tst.w	10(a0)			* Fermee
+	bpl.s	Fnd5
+	move.l	4(a0),d1
+	lea	12+2(a0,d1.l),a0
+	moveq	#0,d1
+	bra.s	Fnd3
+Fnd5	move.l	a0,a1			* Ouverte
+	bra.s	Fnd7
+Fnd6	move.b	(a0),d1
+	beq.s	FndT
+	cmp.w	#_TkEndP,2(a0)
+	beq.s	Fnd8
+Fnd7	add.w	d1,a0
+	add.w	d1,a0
+	dbra	d0,Fnd6
+	bra.s	FndT
+Fnd8	sub.l	a1,a1
+	bra.s	Fnd2
+; Trouve!
+FndT	move.l	(sp)+,d1
+	move.w	(a0),d0
+	beq.s	FndT1
+	cmp.w	#_TkProc,2(a0)
+	bne.s	FndT1
+	move.l	a0,a1
+FndT1	tst.w	d0
+	rts
+
+; TROUVE LE NUMERO ET LE DEBUT DE LA LIGNE A0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; A1-> Debut du buffer
+; D0-> Numero
+; D1-> Adresse debut proc
+Tk_FindA
+	movem.l	d2/a2,-(sp)
+	move.l	a1,a2
+	moveq	#-1,d0
+	moveq	#0,d1
+	moveq	#0,d2
+FdA1:	addq.l	#1,d0
+	move.l	a2,a1
+	move.b	(a2),d2
+	beq.s	FdAT
+	cmp.w	#_TkProc,2(a2)
+	beq.s	FdA4
+FdA2	add.w	d2,a2
+	add.w	d2,a2
+FdA3	cmp.l	a0,a2
+	bls.s	FdA1
+	bra.s	FdAT
+; Une procedure
+FdA4	tst.w	10(a2)
+	bpl.s	FdA2
+	move.l	a2,d1
+	btst	#4,10(a2)
+	beq.s	FdA6
+	add.l	4(a2),a2
+	lea	12+2(a2),a2
+	moveq	#0,d2
+	bra.s	FdA6
+FdA5	move.l	a2,a1
+	move.b	(a2),d2
+	beq.s	FdAT
+	cmp.w	#_TkEndP,2(a2)
+	beq.s	FdA7
+FdA6	add.w	d2,a2
+	add.w	d2,a2
+	cmp.l	a0,a2
+	bls.s	FdA5
+	bra.s	FdAT
+FdA7	moveq	#0,d1
+	bra.s	FdA2
+; Trouve!
+FdAT	move.l	a1,a0
+	movem.l	(sp)+,d2/a2
+	rts
+
+;				Codage / Decodage procedure LOCKEE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; 	A6---> "PROC"
+ProCode	movem.l	d0-d7/a0-a6,-(sp)
+	btst	#4,8(a6)		* Flag COMPILED?
+	bne	PaCo
+	move.l	2(a6),d0
+	lea	10+2+4(a6,d0.l),a2	* A2---> ENDPROC
+	move.w	-2(a6),d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a6,d0.w),a1		* A1---> Ligne suivante
+	move.l	2(a6),d5
+	rol.l	#8,d5
+	move.b	9(a6),d5
+	moveq	#1,d4
+	move.w	6(a6),d3
+	bra.s	PrCo2
+PrCo1	eor.w	d5,(a0)+
+	add.w	d4,d5
+	add.w	d3,d4
+	ror.l	#1,d5
+	cmp.l	a0,a1
+	bne.s	PrCo1
+PrCo2	move.l	a1,a0
+	move.w	(a0)+,d0
+	lsr.w	#8,d0
+	lsl.w	#1,d0
+	lea	-2(a0,d0.w),a1
+	addq.l	#2,a0
+	cmp.l	a0,a2
+	bne.s	PrCo1
+* Change le flag
+	bchg	#5,8(a6)
+PaCo	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+;
+; NOUVELLE ROUTINES DISQUE
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+; OPEN: ouvre le fichier systeme (diskname1) access mode D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VD_Open	move.l 	Name1(a5),d1
+VD_OpenD1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOOpen(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Handle(a5)
+	rts
+
+; CLOSE fichier systeme
+; ~~~~~~~~~~~~~~~~~~~~~
+VD_Close
+	movem.l	d0/d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	beq.s	.Skip
+	clr.l	Handle(a5)
+	move.l	DosBase(a5),a6
+	jsr	_LVOClose(a6)
+.Skip	movem.l	(sp)+,d0/d1/a0/a1/a6
+	rts
+
+; READ fichier systeme D3 octets dans D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VD_Read	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVORead(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+
+; WRITE fichier systeme D3 octets de D2
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VD_Write
+	movem.l	d1/a0/a1/a6,-(sp)
+	move.l	Handle(a5),d1
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	movem.l	(sp)+,d1/a0/a1/a6
+	cmp.l	d0,d3
+	rts
+
+; SEEK fichier system D3 mode D2 deplacement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+VD_Seek	move.l	Handle(a5),d1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOSeek(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	rts
+
+
+; ___________________________________________________________________________
+;
+;							DETOKENISATION
+; ___________________________________________________________________________
+;
+;	A0:	Ligne � detokeniser
+; 	A1:	Buffer
+;	D0:	Adresse � d�tecter
+; ___________________________________________________________________________
+;
+Mon_Detok
+	moveq	#-1,d1
+	bra.s	Dtk
+Detok:
+	moveq	#0,d1
+Dtk
+	movem.l	d2-d7/a2-a6,-(sp)
+	lea	2(a1),a4		* Place pour la taille
+	move.l	a0,a6
+	move.l	d0,a3
+	move.l	a4,a2
+	clr.w	-(sp)			* Position du curseur
+
+; ----- Met les espaces devant?
+	tst.w	d1			Mode monitor
+	bne.s	DtkMon
+	tst.b	(a6)			Mode normal
+	beq	DtkFin
+	clr.w	d0
+	move.b	1(a6),d0
+	subq.w	#2,d0
+	bmi.s	Dtk2
+Dtk1:	move.b	#" ",(a4)+
+	dbra	d0,Dtk1
+Dtk2:	addq.l	#2,a6
+DtkMon	clr.w	d5
+
+; ----- Boucle de detokenisation
+DtkLoop:cmp.l	a3,a6			Trouve la P en X?
+	bne.s	Dtk0
+	move.l	a4,d0
+	sub.l	a2,d0
+	move.w	d0,(sp)
+Dtk0:	move.l	a3,d0			Detournement?
+	bpl.s	.Skip
+	neg.l	d0
+	move.l	d0,a0
+	jsr	(a0)
+.Skip	move.w	(a6)+,d0
+	beq	DtkFin
+	cmp.w	#_TkLGo,d0
+	bls	DtkVar
+	cmp.w	#_TkExt,d0
+	bcs	DtkCst
+	bclr	#0,d5
+	tst.w	d0
+	bmi	DtkOpe				Un operateur?
+	lea	AdTokens(a5),a0
+	cmp.w	#_TkPar1,d0
+	beq	DtkP
+	cmp.w	#_TkDFl,d0
+	beq	DtkCst
+	cmp.w	#_TkExt,d0
+	bne.s	Dtk0a
+
+* Detokenise une extension
+	move.w	2(a6),d1
+	move.b	(a6),d2
+	ext.w	d2
+	move.w	d2,d3
+	lsl.w	#2,d2
+	tst.l	0(a0,d2.w)
+	beq.s	DtkEe
+	move.l	0(a0,d2.w),a0
+	lea	4(a0,d1.w),a0
+	move.l	a0,a1
+	bra.s	Dtk3
+* Extension not present
+DtkEe:	lea	ExtNot(pc),a0
+	add.b	#"A",d3
+	add.b	#$80,d3
+	move.l	a0,a1
+DtkEee	tst.b	(a1)+
+	bpl.s	DtkEee
+	move.b	d3,-1(a1)
+	move.w	#"I",d3
+	bra.s	Dtk3a
+
+* Un operateur
+DtkOpe	lea	Tst_Jumps(pc),a0
+	bra.s	Dtk0b
+* Instruction normale
+Dtk0a	move.l	AdTokens(a5),a0
+Dtk0b	lea	4(a0,d0.w),a0
+	move.l	a0,a1
+Dtk3:	tst.b	(a1)+
+	bpl.s	Dtk3
+	move.b	(a1),d3
+	cmp.b	#"O",d3
+	beq.s	Dtk4
+	cmp.b	#"V",d3
+	beq.s	Dtk4
+	cmp.b	#"0",d3		0->8 des fonctions
+	bcs.s	Dtk3a
+	cmp.b	#"9",d3
+	bcs.s	Dtk4
+* Met un espace avant s'il n'y en a pas!
+Dtk3a:	cmp.l	a4,a2		* Debut de la ligne?
+	beq.s	Dtk4
+	cmp.b	#" ",-1(a4)
+	beq.s	Dtk4
+	move.b	#" ",(a4)+
+* Doit prendre le token prececent?
+Dtk4:	move.b	(a0),d1
+	cmp.b	#$80,d1
+	bcs.s	Dtk4x
+	cmp.b	#$9f,d1
+	bhi.s	Dtk4x
+	subq.l	#4,a0
+	sub.b	#$80,d1
+	beq.s	Dtk4a
+	ext.w	d1
+	sub.w	d1,a0
+	bra.s	Dtk4x
+Dtk4a:	move.b	-(a0),d1
+	cmp.b	#"!",d1
+	beq.s	Dtk4x
+	cmp.b	#$80,d1
+	bne.s	Dtk4a
+	bra.s	Dtk4
+* Ecrit le mot
+Dtk4x:	cmp.b	#"!",d1
+	bne.s	Dtk4y
+	addq.l	#1,a0
+Dtk4y:	move.b	DtkMaj1(a5),d1
+	beq.s	Dtk5
+	cmp.b	#1,d1
+	beq.s	Dtk6
+	bne.s	Dtk8
+* 0- Ecrit en MINUSCULES
+Dtk5:	move.b	(a0)+,(a4)+
+	bpl.s	Dtk5
+	and.b	#$7f,-1(a4)
+	bra.s	DtkE
+* 1- Ecrit en MAJUSCULES
+Dtk6:	move.b	(a0)+,d1
+	move.b	d1,d2
+	and.b	#$7f,d1
+	cmp.b	#"a",d1
+	bcs.s	Dtk7
+	cmp.b	#"z",d1
+	bhi.s	Dtk7
+	sub.b	#"a"-"A",d1
+Dtk7:	move.b	d1,(a4)+
+	tst.b	d2
+	bpl.s	Dtk6
+	bra	DtkE
+* 2- Ecrit AVEC UNE MAJUSCULE
+Dtk8:	move.b	(a0)+,d1
+	move.b	d1,d2
+	and.b	#$7f,d1
+	cmp.b	#"a",d1
+	bcs.s	Dtk9
+	cmp.b	#"z",d1
+	bhi.s	Dtk9
+	sub.b	#"a"-"A",d1
+Dtk9:	move.b	d1,(a4)+
+	tst.b	d2
+	bmi.s	DtkE
+Dtk9a:	move.b	(a0)+,d1
+	move.b	d1,(a4)+
+	bmi.s	Dtk9b
+	cmp.b	#" ",d1
+	bne.s	Dtk9a
+	bra.s	Dtk8
+Dtk9b:	and.b	#$7f,-1(a4)
+* Met une espace si c'est une INSTRUCTION
+DtkE:	cmp.w	#_TkRem1,d0
+	beq	DtkRem
+	cmp.w	#_TkRem2,d0
+	beq	DtkRem
+	cmp.b	#"I",d3
+	bne.s	DtkE1
+	move.b	#" ",(a4)+
+* Saute le token...
+DtkE1:	move.l	a6,a0
+	bsr	TInst
+	move.l	a0,a6
+	bra	DtkLoop
+* Ouverture de parenthese, jamais d'espace!
+DtkP:	cmp.l	a4,a2
+	beq.s	DtkP1
+	cmp.b 	#" ",-1(a4)
+	bne.s	DtkP1
+	subq.l	#1,a4
+DtkP1:	move.b	#"(",(a4)+
+	bra.s	DtkE1
+
+; ----- Detokenisation de VARIABLE
+DtkVar:	btst	#0,d5		* Si variable juste avant, met 32
+	beq.s	DtkV0
+	cmp.b	#" ",-1(a4)
+	beq.s	DtkV0
+	move.b	#" ",(a4)+
+DtkV0:	moveq	#0,d2
+	move.b	2(a6),d2	* Longueur
+	move.w	d2,d1
+	subq.w	#1,d1
+	move.b	3(a6),d3	FLAG
+	lea	4(a6),a0
+	moveq	#0,d4
+	cmp.w	#_TkLab,d0
+	bne.s	DtkV1
+	moveq	#1,d4		D4: 0=> Variable
+	cmp.b	#"0",(a0)	    1=> Label
+	bcs.s	DtkV1		   -1=> Numero ligne
+	cmp.b	#"9",(a0)
+	bhi.s	DtkV1
+	moveq	#-1,d4
+DtkV1:	move.b	DtkMaj2(a5),d0
+	beq.s	DtkV2
+	cmp.b	#1,d0
+	beq.s	DtkV3
+	bne.s	DtkV5
+* 0- En MINUSCULES
+DtkV2:	move.b	(a0)+,d0
+	beq	DtkVF
+	move.b	d0,(a4)+
+	dbra	d1,DtkV2
+	bra	DtkVF
+* 1- En MAJUSCULES
+DtkV3:	move.b	(a0)+,d0
+	beq	DtkVF
+	cmp.b	#"a",d0
+	bcs.s	DtkV4
+	cmp.b	#"z",d0
+	bhi.s	DtkV4
+	sub.b	#"a"-"A",d0
+DtkV4:	move.b	d0,(a4)+
+	dbra	d1,DtkV3
+	bra	DtkVF
+* 2- Avec UNE MAJUSCULE
+DtkV5:	move.b	(a6)+,d0
+	cmp.b	#"a",d0
+	bcs.s	DtkV6
+	cmp.b	#"z",d0
+	bhi.s	DtkV6
+	sub.b	#"a"-"A",d0
+DtkV6:	move.b	d0,(a4)+
+	dbra	d1,DtkV2
+* Saute la variable / met le flag de la variable
+DtkVF:	bset	#0,d5
+	lea	4(a6,d2.w),a6
+	moveq	#":",d0
+	tst.w	d4
+	bmi	DtkLoop
+	bne.s	DtkV7
+	moveq	#"#",d0
+	and.b	#3,d3
+	cmp.b	#1,d3
+	beq.s	DtkV7
+	moveq	#"$",d0
+	cmp.b	#2,d3
+	bne	DtkLoop
+DtkV7:	move.b	d0,(a4)+
+	bra	DtkLoop
+
+; ----- Detokenise des constantes
+DtkCst:	bclr	#0,d5		Si variable avant, met un espace!
+	beq.s	DtkC0
+	cmp.b	#" ",-1(a4)
+	beq.s	DtkC0
+	move.b	#" ",(a4)+
+DtkC0:	cmp.w	#_TkEnt,d0
+	beq.s	DtkC3
+	cmp.w	#_TkHex,d0
+	beq.s	DtkC4
+	cmp.w	#_TkBin,d0
+	beq.s	DtkC5
+	cmp.w	#_TkFl,d0
+	beq.s	DtkC6
+	cmp.w	#_TkDFl,d0
+	beq.s	DtkC7
+* Detokenise une chaine alphanumerique
+	cmp.w	#_TkCh1,d0
+	bne.s	DtkC0a
+	moveq	#'"',d0
+	bra.s	DtkC0b
+DtkC0a:	moveq	#"'",d0
+DtkC0b:	move.b	d0,(a4)+
+	move.w	(a6)+,d1
+	subq.w	#1,d1
+	bmi.s	DtkC2
+DtkC1:	move.b	(a6)+,(a4)+
+	dbra	d1,DtkC1
+	move.w	a6,d1
+	btst	#0,d1
+	beq.s	DtkC2
+	addq.l	#1,a6
+DtkC2:	move.b	d0,(a4)+
+	bra	DtkLoop
+* Detokenise un chiffre entier
+DtkC3:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToDec,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre HEXA
+DtkC4:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToHex,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre BINAIRE
+DtkC5:	move.l	(a6)+,d0
+	move.l	a4,a0
+	JJsrR	L_LongToBin,a1
+	move.l	a0,a4
+	bra	DtkLoop
+* Detokenise un chiffre FLOAT simple precision
+DtkC6:	move.l	(a6)+,d0
+	move.l	a4,a0
+	moveq	#-1,d4
+	moveq	#0,d5
+ 	JJsrR	L_FloatToAsc,a1
+	exg	a0,a4
+	bra.s	DtkC8
+* Detokenise un chiffre FLOAT double precision
+DtkC7	move.l	(a6)+,d0
+	move.l	(a6)+,d1
+	pea	2.w			Automatique
+	pea	15.w			15 maxi
+	move.l	a4,-(sp)		Buffer
+	move.l	d1,-(sp)		Le chiffre
+	move.l	d0,-(sp)
+	JJsrR	L_DoubleToAsc,a1
+	lea	20(sp),sp
+	move.l	a4,a0
+.Fin	tst.b	(a4)+
+	bne.s	.Fin
+	subq.l	#1,a4
+; Si pas 0.0, le met!
+DtkC8	move.b	(a0)+,d0		* Si pas de .0, le met!
+	beq.s	DtkC9
+	cmp.b	#".",d0
+	beq	DtkLoop
+	cmp.b	#"E",d0
+	beq	DtkLoop
+	bra.s	DtkC8
+DtkC9	move.b	#".",(a4)+
+	move.b	#"0",(a4)+
+	bra	DtkLoop
+
+; ----- Token d'extension
+DtkX:	bra	DtkLoop
+
+; ----- REMarque
+DtkRem:	addq.w	#2,a6		Saute la longueur
+DtkR:	tst.b	(a6)
+	beq	DtkLoop
+	move.b	(a6)+,(a4)+
+	bra.s	DtkR
+
+;	Fin de la DETOKENISATION
+DtkFin:	sub.l	a2,a4		* Ramene PX
+	move.w	a4,-2(a2)
+	move.l	a4,a0
+	move.w	(sp)+,d0
+	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+
+;	RAMENE LA TAILLE DE L'INSTRUCTION D0 en D1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TInst:	tst.w	d0
+	beq	TFin
+	cmp.w	#_TkLGo,d0
+	bls	TVar
+	cmp.w	#_TkCh1,d0
+	beq	TCh
+	cmp.w	#_TkCh2,d0
+	beq	TCh
+	cmp.w	#_TkRem1,d0
+	beq	TCh
+	cmp.w	#_TkRem2,d0
+	beq	TCh
+	cmp.w	#_TkDFl,d0
+	beq.s	T8
+	cmp.w	#_TkFl,d0
+	bls.s	T4
+	cmp.w	#_TkExt,d0
+	beq.s	T4
+	cmp.w	#_TkFor,d0
+	beq.s	T2
+	cmp.w	#_TkRpt,d0
+	beq.s	T2
+	cmp.w	#_TkWhl,d0
+	beq.s	T2
+	cmp.w	#_TkDo,d0
+	beq.s	T2
+	cmp.w	#_TkExit,d0
+	beq.s	T4
+	cmp.w	#_TkExIf,d0
+	beq.s	T4
+	cmp.w	#_TkIf,d0
+	beq.s	T2
+	cmp.w	#_TkElse,d0
+	beq.s	T2
+	cmp.w	#_TkElsI,d0
+	beq.s	T2
+	cmp.w	#_TkData,d0
+	beq.s	T2
+	cmp.w	#_TkProc,d0
+	beq.s	T8
+	cmp.w	#_TkOn,d0
+	beq.s	T4
+	cmp.w	#_TkEqu,d0
+	bcs.s	T0
+	cmp.w	#_TkStruS,d0
+	bls.s	T6
+T0:	moveq	#1,d1
+TFin:	rts
+T2:	addq.l	#2,a0
+	bra.s	T0
+T4:	addq.l	#4,a0
+	bra.s	T0
+T8:	addq.l	#8,a0
+	bra.s	T0
+T6:	addq.l	#6,a0
+	bra.s	T0
+TCh:	add.w	(a0)+,a0
+	move.w	a0,d1
+	btst	#0,d1
+	beq.s	T0
+	addq.l	#1,a0
+	bra.s	T0
+TVar:	moveq	#0,d1
+	move.b	2(a0),d1
+	lea	4(a0,d1.w),a0
+	bra.s	T0
+
+
+;						Table des operateurs / Test
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst_Operateurs
+	bra	Tst_Chiffre
+	dc.b 	" xor"," "+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	" or"," "+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	" and"," "+$80,"O00",-1
+	bra	Tst_Comp
+	dc.b 	"<",">"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	">","<"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"<","="+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"=","<"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	">","="+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"=",">"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"="+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	"<"+$80,"O20",-1
+	bra	Tst_Comp
+	dc.b 	">"+$80,"O20",-1
+	bra	Tst_Mixte
+	dc.b 	"+"+$80,"O22",-1
+	bra	Tst_Mixte
+	dc.b 	"-"+$80,"O22",-1
+	bra	Tst_Chiffre
+	dc.b 	" mod"," "+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	"*"+$80,"O00",-1
+	bra	Tst_Chiffre
+	dc.b 	"/"+$80,"O00",-1
+	bra	Tst_Puis
+	dc.b 	"^"+$80,"O00",-1
+	even
+Tst_Jumps
+	dc.l 	0
+
+;	Donnees
+; ~~~~~~~~~~~~~
+H_1.3	dc.b	"AMOS Basic v134 "
+H_Pro	dc.b	"AMOS Pro101v",0,0,0,0
+Equ_LVO	dc.b	10,"_LVO",0
+Equ_Nul	dc.b	10,0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SOUS PROGRAMME UTILISE PAR VAL ET INPUT
+;	D0=	Tenir compte du signe (TRUE)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CValRout
+; - - - - - - - - - - - - -
+        movem.l a1-a2/d5-d7,-(sp)
+	move.l	a0,d7
+	moveq	#0,d4
+	move.l	a0,a2
+	tst.w	d0
+	beq.s	Cal1c
+; y-a-t'il un signe devant?
+Cal1:   move.b 	(a0)+,d0
+        beq 	Cal10
+        cmp.b 	#32,d0
+        beq.s 	Cal1
+        move.l 	a0,a2
+        subq.l 	#1,a2
+        cmp.b 	#"-",d0
+        bne.s 	Cal1a
+        not 	d4
+        bra.s 	Cal1c
+Cal1a:  cmp.b 	#"+",d0
+        beq.s 	Cal1c
+Cal1b:  subq.l 	#1,a0
+Cal1c
+; Explore le chiffre
+; ~~~~~~~~~~~~~~~~~~
+	move.b 	(a0)+,d0
+        beq 	Cal10
+        cmp.b 	#32,d0
+        beq.s 	Cal1c
+        cmp.b 	#"$",d0      	;chiffre HEXA
+        beq 	Cal5
+        cmp.b	#"%",d0       	;chiffre BINAIRE
+        beq 	Cal6
+        cmp.b 	#".",d0
+        beq.s 	Cal2
+        cmp.b 	#"0",d0
+        bcs 	Cal10
+        cmp.b 	#"9",d0
+        bhi 	Cal10
+; c'estn chiffre DECIMAL: entier ou float?
+Cal2:   subq.l	#1,a0
+	move.l 	a0,a1        	;si float: trouve la fin du chiffre
+        clr 	d3
+Cal3:   move.b 	(a1)+,d0
+        beq.s 	Cal4
+        cmp.b 	#32,d0
+        beq.s 	Cal3
+        cmp.b 	#"0",d0
+        bcs.s 	Cal3z
+        cmp.b 	#"9",d0
+        bls.s 	Cal3
+Cal3z:  cmp.b 	#".",d0       	;cherche une "virgule"
+        bne.s	Cal3a
+        bset 	#0,d3          	;si deux virgules: fin du chiffre
+        beq.s 	Cal3
+        bne.s 	Cal4
+Cal3a:  cmp.b 	#"e",d0       	;cherche un exposant
+        beq.s 	Cal3b
+        cmp.b 	#"E",d0       	;autre caractere: fin du chiffre
+        bne.s 	Cal4
+Cal3ab: move.b 	#"e",-1(a1)  	;met un E minuscule!!!
+Cal3b:  move.b 	(a1)+,d0     	;apres un E, accepte -/+ et chiffres
+        cmp.b 	#32,d0
+        beq.s 	Cal3b
+        cmp.b 	#"+",d0
+        beq.s 	Cal3c
+        cmp.b 	#"-",d0
+        bne.s 	Cal3e
+Cal3c:  bset 	#1,d3          	;+ ou -: c'est un float!
+Cal3d:  move.b 	(a1)+,d0     	;puis cherche la fin de l'exposant
+        cmp.b 	#32,d0
+        beq.s 	Cal3d
+Cal3e:  cmp.b 	#"0",d0
+        bcs.s 	Cal4
+        cmp.b 	#"9",d0       	;chiffre! c'est un float
+        bls.s 	Cal3c
+Cal4:   tst 	d3              ;si d3=0: c'est un entier
+        beq 	Cal7
+; conversion ASCII--->FLOAT
+	move.l	a2,a0
+        subq.l 	#1,a1
+	movem.l	a1/a3-a6,-(sp)
+	lea 	BuFloat(a5),a2
+	move.l	a2,-(sp)
+	moveq 	#32,d1
+Ca1:	cmp.l	a0,a1
+	beq.s	Ca2
+	move.b 	(a0)+,d0
+	cmp.b 	#32,d0
+	beq.s 	Ca1
+	move.b 	d0,(a2)+
+	dbra 	d1,Ca1
+Ca2:	clr.b 	(a2)
+	clr.b 	1(a2)
+	tst.b	MathFlags(a5)		Simple ou double precision?
+	bmi.s	.Double
+; Simple precision
+	Rjsr 	L_AscToFloat
+	addq.l 	#4,sp
+	move.l	d0,d3
+        moveq 	#1,d2
+        move.w 	#_TkFl,d1        	chiffre FLOAT
+	bset	#0,MathFlags(a5)	Un peu de maths
+	bra.s	.FQuit
+; Double precision
+.Double	Rjsr	L_AscToDouble
+	addq.l	#4,sp
+	move.l	d0,d3
+	move.l	d1,d4
+	moveq	#1,d2
+	move.w	#_TkDFl,d1
+.FQuit	movem.l	(sp)+,a0/a3-a6
+	moveq	#0,d0
+	bra.s	CalOut
+; chiffre hexa
+Cal5:   bsr 	Cexalong
+        move.w 	#_TkHex,d2
+        bra.s 	Cal8
+; chiffre binaire
+Cal6:   bsr 	Cinlong
+        move.w 	#_TkBin,d2
+        bra.s 	Cal8
+; chiffre entier
+Cal7:   bsr 	Ceclong
+        move.w 	#_TkEnt,d2
+Cal8:   exg 	d2,d1           ;type de conversion--->d1
+        tst 	d2
+        bne.s 	Cal10           ;si probleme: ramene zero!
+        move.l 	d0,d3
+; Test du signe, si entier
+        tst 	d4
+        beq.s 	Cal8a
+        neg.l 	d3
+Cal8a:	moveq	#0,d2
+	bra.s	CalOut
+; ramene zero
+Cal10:  moveq	#0,d2           		Erreur: ramene zero!
+        moveq	#0,d3
+	move.l	d7,a0
+	moveq	#1,d0
+; Sortie
+CalOut 	movem.l (sp)+,a1-a2/d5-d7
+        rts
+
+; 	MINI CHRGET POUR LES CONVERSIONS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cinichr	move.b 	(a0)+,d2
+        beq.s 	.mc1
+        cmp.b 	#32,d2
+        beq.s 	Cinichr
+        cmp.b 	#"a",d2       ;si minuscule: majuscule
+        bcs.s 	.mc0
+        sub.b 	#"a"-"A",d2
+.mc0    sub.b 	#48,d2
+        rts
+.mc1    move.b 	#-1,d2
+        rts
+; Minichr pour hexa
+; ~~~~~~~~~~~~~~~~~
+Cinichr2
+	move.b (a0)+,d2
+        beq.s .mc1
+        cmp.b #"a",d2       ;si minuscule: majuscule
+        bcs.s .mc0
+        sub.b #"a"-"A",d2
+.mc0:   sub.b #48,d2
+        rts
+.mc1:   move.b #-1,d2
+        rts
+
+; 	CONVERSION DECIMAL->HEXA SUR QUATRE OCTETS, SIGNE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ceclong moveq	#0,d0
+ 	moveq	#0,d2
+        moveq	#0,d3
+        move.l 	a0,-(sp)
+Cdh1:   bsr 	Cinichr
+Cdh1a:  cmp.b 	#10,d2
+        bcc.s 	Cdh5
+        move 	d0,d1
+        mulu 	#10,d1
+        swap 	d0
+        mulu 	#10,d0
+        swap 	d0
+        tst 	d0
+        bne.s 	Cdh2
+        add.l 	d1,d0
+        bcs.s 	Cdh2
+        add.l	d2,d0
+        bmi.s 	Cdh2
+        addq 	#1,d3
+        bra.s 	Cdh1
+Cdh2:   move.l 	(sp)+,a0
+        moveq	#1,d1          	;out of range: bpl, et recupere l'adresse
+        rts
+Cdh5:   subq.l 	#1,a0
+	addq.l 	#4,sp
+        tst	d3
+        beq.s 	Cdh7
+        moveq	#0,d1           ;OK: chiffre en d0, et beq
+        rts
+Cdh7:   moveq	#-1,d1     	;pas de chiffre: bmi
+        rts
+
+; 	CONVERSION HEXA-ASCII EN HEXA-HEXA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cexalong
+	moveq	#0,d0
+	moveq	#0,d2
+	moveq	#0,d3
+        move.l 	a0,-(sp)
+.hh1    bsr 	Cinichr2
+        cmp.b 	#10,d2
+        bcs.s 	.hh2
+        cmp.b 	#17,d2
+        bcs.s 	Cdh5
+        subq.w 	#7,d2
+.hh2    cmp.b 	#16,d2
+        bcc.s 	Cdh5
+        lsl.l 	#4,d0
+        or.b 	d2,d0
+        addq.w 	#1,d3
+        cmp 	#9,d3
+        bne.s 	.hh1
+        beq.s 	Cdh2
+
+; 	CONVERSION BINAIRE ASCII ---> HEXA SUR QUATRE OCTETS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cinlong	moveq	#0,d0
+	moveq	#0,d2
+	moveq	#0,d3
+        move.l 	a0,-(sp)
+.bh1    bsr 	Cinichr
+        cmp.b 	#2,d2
+        bcc.s 	Cdh5
+        roxr 	#1,d2
+        roxl.l 	#1,d0
+        bcs.s 	Cdh2
+        addq.w	#1,d3
+        cmp.w 	#33,d3
+        bne.s 	.bh1
+        beq 	Cdh1
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INITIALISATION PROGRAMME COMPILE PART 1
+;	D0= Longueur du stack
+;	D1= Longueur buffer
+;	D2= Flags initialisation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpInit1
+; - - - - - - - - - - - - -
+; Branche la routine de fin, si non definie
+	tst.l	Prg_JError(a5)
+	bne.s	.Skip
+	lea	CmpQuit(pc),a0
+	move.l	a0,Prg_JError(a5)
+.Skip
+; Stocke les flags de demarrage. Negatif >>> abort!
+	move.w	d2,DefFlag(a5)
+	bmi.s	.Mem
+; Longueur du stack ***
+; Flag WB2.0
+	move.l	$4.w,a0
+	cmp.w	#36,$14(a0)
+	bcs.s	.Pa20
+	move.w	$14(a0),WB2.0(a5)
+.Pa20
+; Init VARBUF
+	move.l	d1,d0
+	SyCall	MemFastClear
+	beq.s	.Mem
+	move.l	a0,VarBuf(a5)
+	move.l	d1,VarBufL(a5)
+; Ok, Passe aux autres inits
+	move.w	#-1,T_AMOState(a5)
+	rts
+; Out of memory
+.Mem	moveq	#2,d0
+	move.l	Prg_JError(a5),a1
+	jmp	(a1)
+; - - - - - - - - - - - - -
+CmpQuit
+; - - - - - - - - - - - - -
+	movem.l	a0/d0,-(sp)		Sauve les erreurs
+	move.w	#-2,DefFlag(a5)
+	Rbsr	L_DefRun1
+	Rjsr	L_Bnk.EffAll
+	Rbsr	L_CmpClearVar
+	Rbsr	L_CmpLibrariesStop
+	lea	Sys_EndRoutines(a5),a1	Appelle les routines de fin
+	SyCall	CallRoutines
+	SyCall	MemFlush		Enleve les routines flush
+	Rbsr	L_CmpLibClose
+	Rbsr	L_CmpEffVarBuf
+; Retourne a l'appellant!
+	movem.l	(sp)+,a0/d0
+	move.l	BasSp(a5),sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INITIALISATION PROGRAMME COMPILE PART 2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpInit2
+; - - - - - - - - - - - - -
+	tst.l	d0			Un probleme dans les extensions?
+	bne.s	.Quit
+; Initialisation ecrans
+	move.w	DefFlag(a5),d5		Flags de demarrage
+	moveq	#-2,d0
+	btst	#FPrg_Default,d5		Ecran par defaut?
+	beq.s	.Skip1
+	moveq	#-1,d0
+.Skip1	move.w	d0,DefFlag(a5)
+	btst	#FPrg_DefRunAcc,d5	Programme en accessoire?
+	bne.s	.Acc
+	Rbsr	L_DefRun1
+	Rbsr	L_DefRun2
+	bra.s	.Skip2
+.Acc	Rbsr	L_DefRunAcc
+.Skip2	move.w	#-1,DefFlag(a5)		Pour le prochaine Default
+; Force l'affichage
+	SyCall	WaitVbl
+	EcCall	CopForce
+; Fin de l'init
+	Rbsr	L_CmpClearVar		>>> Change A6
+; Fait passer devant le workbench?
+	btst	#FPrg_Wb,d5		Flag workbench?
+	bne.s	.WB
+	EcCalD	AMOS_WB,1
+.WB	rts
+.Quit	move.l	Prg_JError(a5),a1
+	jmp	(a1)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INITIALISATION / SORTIE AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	AMOSInit
+; - - - - - - - - - - - - -
+	move.l	(sp)+,a1
+; 	Sauvegarde des donnees du programme courant
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a3-a6/d6/d7,-(sp)
+	move.l	Prg_JError(a5),-(sp)
+	move.l	EveLabel(a5),-(sp)
+	move.l	BasSp(a5),-(sp)
+	move.l	sp,BasSp(a5)
+;	Preparation des variables du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AMOSQuit(pc),a0
+	move.l	a0,Prg_JError(a5)
+	clr.l	EveLabel(a5)
+	move.l	TabBas(a5),d7
+	sub.l	a6,a6
+	jmp	(a1)
+; - - - - - - - - - - - - -
+AMOSQuit
+; - - - - - - - - - - - - -
+	move.l	BasSp(a5),sp
+	move.l	(sp)+,BasSp(a5)
+	move.l	(sp)+,EveLabel(a5)
+	move.l	(sp)+,Prg_JError(a5)
+	movem.l	(sp)+,a3-a6/d6/d7
+;	Si erreur dans le programme: appelle les routines DEFAULT / END
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	a0/d0,-(sp)
+	lea	Sys_ErrorRoutines(a5),a1
+	SyCall	CallRoutines
+	lea	Sys_ClearRoutines(a5),a1
+	SyCall	CallRoutines
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+	lea	Sys_EndRoutines(a5),a1
+	SyCall	CallRoutines
+	movem.l	(sp)+,a0/d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MODE DEBUG: rajoute "At Line" au message d'erreur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpDbMode
+; - - - - - - - - - - - - -
+	move.l	(sp),a0		Branche la routine sur le retour
+	lea	.Debug(pc),a1
+	move.l	a1,(sp)
+	move.l	sp,BasSp(a5)
+	jmp	(a0)
+.Debug	tst.w	d0		Une erreur?
+	beq.s	.End
+	move.l	d0,-(sp)
+	lea	.Buffer(pc),a2
+	move.l	a0,d1
+	beq.s	.NoMess
+	move.l	d1,a1
+.Copy1	move.b	(a1)+,(a2)+
+	bne.s	.Copy1
+	subq.l	#1,a2
+.NoMess	lea	.Atline(pc),a1
+.Copy2	move.b	(a1)+,(a2)+
+	bne.s	.Copy2
+	lea	-1(a2),a0
+	moveq	#0,d0
+	move.w	Cmp_Ligne(a5),d0
+	Rjsr	L_LongToDec
+	clr.b	(a0)
+	move.l	(sp)+,d0
+	lea	.Buffer(pc),a0
+; Retourne au header
+.End	rts
+.Buffer	ds.b	128
+.Atline	dc.b	" at line ",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MODE DEBUG 1 : imprime le numero de la ligne sur le CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpLineCLI
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	move.w	Cmp_Ligne(a5),d0
+	move.l	Buffer(a5),a0
+	move.b	#"(",(a0)+
+	Rjsr	L_LongToDec
+	move.b	#")",(a0)+
+	move.l	a0,d3
+	move.l	Buffer(a5),d2
+	sub.l	d2,d3
+	Rbra	L_CmpPrintCLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MODE DEBUG 2 : imprime le numero su run ecran AMOS en front
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpLineSER
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	move.w	Cmp_Ligne(a5),d0
+	move.l	Buffer(a5),a0
+	move.b	#"(",(a0)+
+	Rjsr	L_LongToDec
+	move.b	#")",(a0)+
+	move.l	a0,d3
+	move.l	Buffer(a5),d2
+	sub.l	d2,d3
+	Rbra	L_CmpPrintSER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Imprime la chaine D2/D3 sur le CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpPrintCLI
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-60(a6)
+	move.l	d0,d1
+	beq.s	.Exit
+	jsr	_LVOWrite(a6)
+.Exit	move.l	(sp)+,a6
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Imprime la chaine D2/D3 sur le AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpPrintSER
+; - - - - - - - - - - - - -
+;	tst.w	Cmp_DebugScreen(a5)
+;	bne.s	.Done
+;	movem.l	d0-d7/a0-a3,-(sp)
+;	moveq	#8,d1			Ecran editeur
+;	move.w	#640,d2
+;	move.w	#8*8,d3
+;	moveq	#2,d4
+;	move.w	#$8000,d5
+;	moveq	#4,d6
+;	lea	DefPal(a5),a1
+;	EcCall	Cree
+;	beq.s	.End
+;	move.w	#8,Cmp_DebugScreen(a5)
+;.Done	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Effacement du buffer de variables
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpEffVarBuf
+; - - - - - - - - - - - - -
+	move.l	VarBuf(a5),d0
+	beq.s	.skip
+	move.l	d0,a1
+	move.l	VarBufL(a5),d0
+	SyCall	MemFree
+	clr.l	VarBuf(a5)
+.skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	APPEL INITIALISATION DES EXTENSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpLibrariesInit
+; - - - - - - - - - - - - -
+	tst.b	AdTokens(a5,d0.w)
+	bne.s	.Dejala
+	addq.b	#1,AdTokens(a5,d0.w)	On la met!
+	move.w	d0,-(sp)		# extension
+	move.l	Name1(a5),a1		Command line vide
+	clr.b	(a1)
+	move.l	#"APex",d1		Code AMOSPro
+	move.l	#VerNumber,d2		Numero de version
+	jsr	(a0)			Appel
+	move.w	(sp)+,d3
+	ext.w	d0			Refuse de charger...
+	bpl.s	.Nomi
+	move.l	a0,d0
+	cmp.l	#"Err!",d1		Un Message?
+	beq.s	.Mess
+.Err	moveq	#-2,d0			Message header 1: cannot load ext
+	bra.s	.Out
+.Mess	moveq	#-1,d0			Message en A0
+.Out	rts
+.Nomi	cmp.w	d0,d3			Bon numero d'extension?
+	bne.s	.Err
+.Dejala	moveq	#0,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	ARRET DES LIBRAIRIES Extensions
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpLibrariesStop
+; - - - - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+	moveq	#26-1,d2
+	lea	ExtAdr+26*16-16(a5),a2
+	lea	AdTokens+26-1(a5),a3
+.Loop	tst.b	(a3)			Une extension?
+	beq.s	.Next
+	subq.b	#1,(a3)			Decremente le compteur
+	bne.s	.Next
+	move.l	8(a2),d0		Une routine de fin?
+	beq.s	.Next
+	move.l	d0,a0
+	movem.l	a2/a3/d2,-(sp)		Appel de la routine de fin
+	jsr	(a0)
+	movem.l	(sp)+,a2/a3/d2
+	move.l	a2,a0
+	clr.l	(a0)+			Efface les pointeurs
+	clr.l	(a0)+
+	clr.l	(a0)+
+	clr.l	(a0)+
+.Next	lea	-16(a2),a2
+	subq.l	#1,a3
+	dbra	d2,.Loop
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ferme les libraries mathematiques
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpLibClose
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	move.l	FloatBase(a5),d0
+	beq.s	.SkipM1
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	FloatBase(a5)
+.SkipM1	move.l	MathBase(a5),d0
+	beq.s	.SkipM2
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	MathBase(a5)
+.SkipM2	move.l	DFloatBase(a5),d0
+	beq.s	.SkipM3
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	DFloatBase(a5)
+.SkipM3	move.l	DMathBase(a5),d0
+	beq.s	.SkipM4
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+	clr.l	DMathBase(a5)
+.SkipM4	move.l	(sp)+,a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	NETTOYAGES DES VARIABLES pour programme CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpClearVar
+; - - - - - - - - - - - - -
+
+	movem.l	d0-d6/a0-a5,-(sp)
+
+; Variables du programme
+; ~~~~~~~~~~~~~~~~~~~~~~
+	lea	DebRaz(a5),a0
+	lea	FinRaz(a5),a1
+.ClV1	clr.w	(a0)+
+	cmp.l	a1,a0
+	bcs.s	.ClV1
+	clr.b	Test_Flags(a5)
+; Initialisation du disque
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	#$FFFFFFFF,IffMask(a5)
+	moveq	#47,d0
+	Rjsr	L_Sys_GetMessage
+	move.l	DirFNeg(a5),a1
+.ClV2	move.b	(a0)+,(a1)+
+	bne.s	.ClV2
+	move.w	PI_DirSize(a5),DirLNom(a5)
+	clr.l	T_ClLast(a5)
+	move.w	#$0A0D,ChrInp(a5)
+; DREG/AREG
+; ~~~~~~~~~
+	lea	CallReg(a5),a0
+	move.l	a5,(8+5)*4(a0)			* A5-> Datazone
+	move.l	T_ClAsc(a5),(8+4)*4(a0)		* A4-> Clavier actuel
+	move.l	Prg_Source(a5),(8+3)*4(a0)	* A3-> Bas du programme
+	move.l	T_RastPort(a5),(8+0)*4(a0)	* A0-> Rastport
+	move.l	DosBase(a5),7*4(a0)		* D7-> Dos Base
+	move.l	T_GfxBase(a5),6*4(a0)		* D6-> Gfx Base
+	move.l	T_IntBase(a5),5*4(a0)		* D5-> Int Base
+	move.l	BasSp(a5),4*4(a0)		* D4-> BasSp
+	lea	Ed_Config(a5),a1		* D3-> Configuration Base Editor
+	move.l	a1,3*4(a0)
+; Ferme toutes les routines appellees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_ClearRoutines(a5),a1
+	SyCall	CallRoutines
+; Initialisations diverses
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+	Rjsr	L_Bnk.EffTemp
+	Rjsr	L_Bnk.Change
+	Rjsr	L_MenuReset
+	Rjsr	L_Dia_WarmInit
+	clr.l	EveLabel(a5)
+
+;	Rjsr	L_FillFFree			* Fait!
+;	Rjsr	L_CloAll			* Fait!
+;	Rjsr	L_PRT_Close			* Fait!
+;	Rjsr	L_Dev.Close			* Fait!
+;	Rjsr	L_Lib.Close			* Fait!
+;	Rjsr	L_Arx_Close			* Fait!
+;	Rjsr	L_MnRaz				* Fait!
+;	Rjsr	L_OMnEff			* Fait!
+;	Rjsr	L_Dia_CloseChannels		* Fait!
+;	Rjsr	L_ResTempBuffer			* Fait!
+
+; Variables
+; ~~~~~~~~~
+	move.l	VarBuf(a5),d0
+	beq.s	.Nul
+	move.l	d0,a0
+	move.l	a0,a1
+	add.l	VarBufL(a5),a1
+	move.l	a1,TabBas(a5)
+	move.l	a1,d7			VGlobales
+;	clr.l	VarLoc(a5)		Au depart
+	sub.l	a6,a6
+	move.l	a0,LoChaine(a5)
+	move.l	a0,ChVide(a5)
+	move.l	a0,ParamC(a5)
+	clr.w	(a0)+
+	move.l	a0,HiChaine(a5)
+.Nul
+; Init float
+; ~~~~~~~~~~
+	move.w	#-1,FixFlg(a5)
+	clr.w	ExpFlg(a5)
+	movem.l	(sp)+,d0-d6/a0-a5
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Operateur PLUS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PlusF
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPAdd,d2
+	Rjmpt	L_Float_Operation
+; - - - - - - - - - - - - -
+	Lib_Cmp	PlusC
+; - - - - - - - - - - - - -
+	move.l 	d3,a0
+	move.l	(a3)+,a2
+        moveq	#0,d3
+        move.w 	(a0),d3        		;taille de la deuxieme chaine
+        beq.s 	plus11        		;deuxieme chaine nulle
+        moveq	#0,d0
+        move.w 	(a2),d0
+        beq.s 	plus10          	;premiere chaine nulle
+        add.l 	d0,d3
+        cmp.l 	#String_Max,d3
+        Rbcc 	L_StooLong		;string too long!
+	move.l	a0,-(sp)
+        Rbsr 	L_Demande
+        move.w 	d3,(a0)+       		;poke la taille resultante
+        move.w 	(a2)+,d0
+        beq.s 	plus4
+        subq.w 	#1,d0
+plus3:  move.b 	(a2)+,(a0)+  		;recopie de la premiere chaine
+        dbra 	d0,plus3
+plus4:  move.l 	(sp)+,a2
+        move.w 	(a2)+,d0
+        beq.s 	plus6
+        subq 	#1,d0
+plus5:  move.b 	(a2)+,(a0)+
+        dbra 	d0,plus5
+plus6:  move.w 	a0,d0          		;rend pair
+        btst 	#0,d0
+        beq.s 	plus7
+        addq.l 	#1,a0
+plus7:  move.l 	a0,HiChaine(a5)
+        move.l 	a1,d3
+	rts
+plus10: move.l 	a0,d3     	;premiere chaine nulle: ramene la deuxieme
+	rts
+plus11: move.l 	a2,d3        	;deuxieme chaine nulle: ramene la premiere
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Operateur moins
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	MoinsF
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPSub,d2
+	Rjmpt	L_Float_Operation
+; - - - - - - - - - - - - -
+	Lib_Cmp	MoinsC
+; - - - - - - - - - - - - -
+	move.l	d3,d4        	;sauve pour plus tard
+        move.l 	(a3)+,a2
+        clr.l 	d3
+        move.w 	(a2)+,d3
+        move.l 	d3,d1
+        Rbsr 	L_Demande       ;prend la place une fois pour toute!
+        move.w 	d3,(a0)+
+        beq.s 	ms4
+        addq 	#1,d3
+        lsr 	#1,d3
+        subq 	#1,d3
+ms3:    move.w 	(a2)+,(a0)+  	;recopie la chaine
+        dbra 	d3,ms3
+ms4:    move.l 	a0,HiChaine(a5)
+        addq.l 	#2,a1        	;chaine dont auquelle on soustrait en a1/d1
+        move.l 	d4,a2
+        clr.l 	d2
+        move 	(a2)+,d2       	;chaine a soustraire en a2/d2
+
+ms5:    clr.l 	d4
+        movem.l d1-d2/a1-a3,-(sp)
+	Rbsr	L_InstrFind
+        movem.l (sp)+,d1-d2/a1-a3
+        tst.l 	d3
+        beq.s 	ms9
+        move.l 	a1,a0
+        move.l 	a1,d4        	;pour plus tard!
+        subq.l 	#1,d3
+        move.l 	d3,d5        	;taille du debut a garder
+        add.l 	d3,a1         	;pointe ou transferer la fin
+        add.l 	d2,d3
+        add.l 	d3,a0         	;pointe la fin a recopier
+        sub.l 	d3,d1
+        add.l 	d1,d5         	;taille finale en memoire
+        subq.l 	#1,d1
+        bmi.s 	ms7
+ms6:    move.b 	(a0)+,(a1)+
+        dbra 	d1,ms6
+ms7:    move 	a0,d0          	;rend pair
+        btst 	#0,d0
+        beq.s 	ms8
+        addq.l 	#1,a0
+ms8:    move.l 	a0,HiChaine(a5)
+        move.l 	d4,a1
+        move.w 	d5,-2(a1)
+        move.l 	d5,d1
+        bra.s 	ms5
+ms9:    moveq 	#2,d2
+        move.l 	a1,d3
+        subq.l 	#2,d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Operateur MULTIPLIE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	MultE
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d2
+	clr 	d4            ;multiplication signee 32*32 bits
+        tst.l 	d3            ;aabb*ccdd
+        bpl.s 	mlt1
+        neg.l 	d3
+        not 	d4
+mlt1:   tst.l 	d2            ;tests des signes
+        bpl.s 	mlt2
+        neg.l 	d2
+        not 	d4
+* Peut on faire une mult rapide?
+mlt2:  	cmp.l 	#$00010000,d3
+        bcc.s 	mlt0
+        cmp.l 	#$00010000,d2
+        bcc.s 	mlt0
+        mulu 	d2,d3          ;quand on le peut: multiplication directe!
+	tst.w 	d4
+	beq.s	mltF
+	neg.l 	d3
+	bra.s 	mltF
+* Multipcation lente
+mlt0:   move 	d2,d1
+        mulu 	d3,d1
+        bmi.s 	mltO
+        swap 	d2
+        move 	d2,d0
+        mulu 	d3,d0
+        swap 	d0
+        bmi.s 	mltO
+        tst 	d0
+        bne.s 	mltO
+        add.l 	d0,d1
+        bvs.s 	mltO
+        swap 	d3
+        move 	d2,d0
+        mulu 	d3,d0
+        bne.s 	mltO
+        swap 	d2
+        move 	d2,d0
+        mulu 	d3,d0
+        swap 	d0
+        bmi.s 	mltO
+        tst 	d0
+        bne.s 	mltO
+        add.l 	d0,d1
+        bvs.s 	mltO
+        tst 	d4              ;signe du resultat
+        beq.s 	mlt3
+        neg.l 	d1
+mlt3:   move.l 	d1,d3
+mltF:	rts
+mltO	Rbra	L_OverFlow
+; - - - - - - - - - - - - -
+	Lib_Cmp	MultF
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPMul,d2
+	Rjmpt	L_Float_Operation
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Operateur DIVISE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DiviseE
+; - - - - - - - - - - - - -
+ 	move.l	(a3)+,d2
+        moveq	#0,d4
+        tst.l 	d2
+        bpl.s 	dva
+        bset	#31,d4
+        neg.l 	d2
+dva:    tst.l 	d3
+        Rbeq 	L_DByZero         ;division par zero!
+        bpl.s 	dvb
+    	bchg	#31,d4
+        neg.l 	d3
+dvb:	cmp.l 	#$10000,d3    	;Division rapide ou non?
+        bcc.s 	dv0
+	move.l 	d2,d0
+        divu 	d3,d0           ;division rapide: 32/16 bits
+        bvs.s 	dv0
+        moveq 	#0,d3
+        move	d0,d3
+        bra.s 	dvc
+dv0:    move.w 	#31,d4         ;division lente: 32/32 bits
+        moveq 	#-1,d5
+        clr.l 	d1
+dv2:    lsl.l 	#1,d2
+        roxl.l	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	dv1
+        sub.l 	d3,d1
+        lsr.l	#1,d5           ;met X a un!
+dv1:    roxl.l 	#1,d0
+        dbra 	d4,dv2
+        move.l 	d0,d3
+dvc:    tst.l	d4
+        bpl.s 	dvd
+        neg.l 	d3
+dvd:	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DiviseF
+; - - - - - - - - - - - - -
+	Rjsrt	L_Float_Test
+	Rbeq	L_DByZero
+	moveq	#_LVOSPDiv,d2
+	Rjmpt	L_Float_Operation
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Operateur PUISSANCE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Puissance
+; - - - - - - - - - - - - -
+	moveq	#_LVOSPPow,d2
+	Rjmpt	L_Math_Operation
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Operateur MODULO
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Modulo
+; - - - - - - - - - - - - -
+	move.l	d6,-(sp)
+	move.l	(a3)+,d6
+	tst.l 	d3
+        bpl.s 	mdv3
+        neg.l 	d3
+mdv3:   moveq 	#31,d2         	;division lente: 32/32 bits
+        moveq 	#-1,d4
+        clr.l 	d1
+mdv2:   lsl.l 	#1,d6
+        roxl.l 	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	mdv1
+        sub.l 	d3,d1
+        lsr 	#1,d4           ;met X a un!
+mdv1:   roxl.l 	#1,d0
+        dbra 	d2,mdv2
+	move.l 	d1,d3        	;prend le reste!
+	move.l	(sp)+,d6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Comparaison de deux chaines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Chaine_Compare
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a0
+        move.l 	d3,a1
+ 	moveq	#0,d3
+ 	moveq	#0,d4
+        clr.b 	d2
+        move.w 	(a0)+,d0
+        move.w 	(a1)+,d1
+        beq.s 	cpch8
+        tst 	d0
+        beq.s	cpch7
+cpch1:  cmpm.b 	(a0)+,(a1)+
+        bne.s 	cpch6
+        subq 	#1,d0
+        beq.s 	cpch3
+        subq	#1,d1
+        bne.s 	cpch1
+; on est arrive au bout d'une des chaines
+cpch2:  moveq 	#1,d4         	A$>B$
+	bra.s	cpch5
+cpch3:  subq 	#1,d1         	egalite!
+        beq.s 	cpch5
+cpch4:  moveq 	#1,d3         	B$>A$
+cpch5:  cmp.l	d4,d3		Positionne les bits
+	rts
+; on est arrive au bout des chaines
+cpch6:  bcc.s 	cpch4
+        bcs.s 	cpch2
+; a$ est nulle
+cpch7:  tst 	d1
+        bne.s 	cpch4           ;B$>A$
+	bra.s	cpch5
+; b$ est nulle
+cpch8:  tst 	d0
+        bne.s 	cpch2           ;A$>B$
+	bra.s	cpch5
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEFRUN: initialisation graphique
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DefRun1
+; - - - - - - - - - - - - -
+	tst.w	DefFlag(a5)
+	beq	DRunX
+	movem.l	d0-d7/a0-a6,-(sp)
+; Enleve les animations
+; ~~~~~~~~~~~~~~~~~~~~~
+	SyCall	AMALClr
+	clr.w	PAmalE(a5)
+; Enleve les rainbows
+; ~~~~~~~~~~~~~~~~~~~
+	EcCalD	RainDel,-1
+; Appel des routines de nettoyage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+; Enleve tous les ecrans
+; ~~~~~~~~~~~~~~~~~~~~~~
+	move.w	PI_DefEBa(a5),ColBack(a5)
+	moveq	#0,d1
+	moveq	#7,d2
+	EcCall	DelAll
+	clr.w	ScOn(a5)
+	clr.l	ScOnAd(a5)
+	move.w	#8,CurTab(a5)		Tab par defaut
+; Enleve le tempras
+; ~~~~~~~~~~~~~~~~~
+	clr.l	RasLock(a5)
+	Rjsr	L_FreeRas
+; Enleve les blocs!
+; ~~~~~~~~~~~~~~~~~
+	EcCall	CBlRaz
+	EcCall	BlRaz
+; Enleve les font-infos
+; ~~~~~~~~~~~~~~~~~~~~~
+	EcCall	FFonts
+; RAZ des canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AnCanaux(a5),a0
+	moveq	#0,d0
+DRun1:	clr.b	(a0)+
+	move.b	d0,(a0)+
+	addq.w	#1,d0
+	cmp.w	#64,d0
+	bne.s	DRun1
+; Priority off
+; ~~~~~~~~~~~~
+	moveq	#0,d1
+	moveq	#0,d2
+	SyCall	SPrio
+; RAZ des scrollings
+; ~~~~~~~~~~~~~~~~~~
+	moveq	#NDScrolls-1,d0
+	lea	DScrolls(a5),a0
+DRun2:	move.w	#$8000,(a0)
+	lea	12(a0),a0
+	dbra	d0,DRun2
+; Interruptions branchees
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	clr.w	InterOff(a5)
+	move.w	InterOff(a5),d1
+	SyCall	SetSync
+	move.w	#%0111000100000000,ActuMask(a5)
+	clr.w	VBLDelai(a5)
+	clr.w	VBLOCount(a5)
+; Copie la palette par defaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	PI_DefEPa(a5),a0
+	lea	DefPal(a5),a1
+	moveq	#31,d0
+EdTr:	move.w	(a0)+,(a1)+
+	dbra	d0,EdTr
+; Call extensions
+; ~~~~~~~~~~~~~~~
+	Rbsr	L_DefRunExtensions
+; Cree l'ecran (si pas system!)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#-2,DefFlag(a5)
+	beq.s	DRex0
+	move.w	PI_DefETx(a5),d2
+	ext.l	d2
+	move.w	PI_DefETy(a5),d3
+	ext.l	d3
+	move.w	PI_DefECo(a5),d4
+	ext.l	d4
+	move.w	PI_DefEMo(a5),d5
+	move.w	PI_DefECoN(a5),d6
+	moveq	#0,d7
+	lea	DefPal(a5),a1
+	EcCalD	Cree,0
+	bne.s	DRex0
+	move.l	a0,ScOnAd(a5)
+	move.w	#1,ScOn(a5)
+	move.l	#EntNul,d4
+	move.l	d4,d5
+	move.w	PI_DefEWx(a5),d2	Si non initialise...
+	bne.s	.Skip1
+	move.l	d4,d2
+.Skip1	move.w	PI_DefEWy(a5),d3
+	bne.s	.Skip2
+	move.l	d4,d3
+.Skip2	EcCalD	AView,0
+; Fait flasher la couleur 3 (si plus de 2 couleurs)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	cmp.w	#1,PI_DefECo(a5)
+	beq.s	DRex0
+	moveq	#3,d1
+	moveq	#46,d0
+	Rjsr	L_Sys_GetMessage
+	move.l	a0,a1
+	EcCall	Flash
+DRex0	movem.l	(sp)+,d0-d7/a0-a6
+DRunX	rts
+
+; - - - - - - - - - - - - -
+	Lib_Cmp	DefRun2
+; - - - - - - - - - - - - -
+	tst.w	DefFlag(a5)
+	beq.s	.Out
+	clr.w	DefFlag(a5)
+; Limite la souris
+; ~~~~~~~~~~~~~~~~
+	move.w	T_DefWX(a5),d1
+	move.w	T_DefWY(a5),d2
+	move.w	PI_DefETx(a5),d3
+	move.w	PI_DefETy(a5),d4
+	subq.w	#1,d3
+	subq.w	#1,d4
+	add.w	d1,d3
+	add.w	d2,d4
+	lsl.w	#1,d1
+	lsl.w	#1,d2
+	lsl.w	#1,d3
+	lsl.w	#1,d4
+	lea	LimSave(a5),a0
+	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	move.w	d3,(a0)+
+	move.w	d4,(a0)+
+	lea	T_MouXMin(a5),a0
+	tst.l	(a0)
+	bne.s	.Skip
+	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	move.w	d3,(a0)+
+	move.w	d4,(a0)+
+.Skip	move.l	PI_ParaTrap+16(a5),d1	* Nombre de lignes
+	SyCall	SBufHs
+	SyCall	OffHs
+	SyCall	StoreM
+	SyCall	StoreM
+	SyCall	AffHs
+.Out	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEFRUNACC: semi initialisation graphique pour accessoires
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DefRunAcc
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a6,-(sp)
+; Appel des routines de nettoyage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+; Enleve les animations
+; ~~~~~~~~~~~~~~~~~~~~~
+	SyCall	AMALClr
+	clr.w	PAmalE(a5)
+; RAZ des canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AnCanaux(a5),a0
+	moveq	#0,d0
+.DRun1	clr.b	(a0)+
+	move.b	d0,(a0)+
+	addq.w	#1,d0
+	cmp.w	#64,d0
+	bne.s	.DRun1
+; Priority off
+; ~~~~~~~~~~~~
+	moveq	#0,d1
+	moveq	#0,d2
+	SyCall	SPrio
+; RAZ des scrollings
+; ~~~~~~~~~~~~~~~~~~
+	moveq	#NDScrolls-1,d0
+	lea	DScrolls(a5),a0
+.DRun2	move.w	#$8000,(a0)
+	lea	12(a0),a0
+	dbra	d0,.DRun2
+; Interruptions branchees
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	clr.w	InterOff(a5)
+	move.w	InterOff(a5),d1
+	SyCall	SetSync
+	move.w	#%0111000100000000,ActuMask(a5)
+	clr.w	VBLDelai(a5)
+	clr.w	VBLOCount(a5)
+; Call extensions
+; ~~~~~~~~~~~~~~~
+	Rbsr	L_DefRunExtensions
+; Sprites
+; ~~~~~~~
+	SyCall	OffHs
+	SyCall	AffHs
+	move.w	#1,DefFlag(a5)
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	INITIALISATION ECRAN DES EXTENSIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DefRunExtensions
+; - - - - - - - - - - - - -
+	movem.l	a2-a6/d2-d7,-(sp)
+.DRex0	lea	ExtAdr(a5),a0
+	moveq	#26-1,d0
+.DRex1	move.l	4(a0),d1
+	beq.s	.DRex2
+	move.l	d1,a1
+	movem.l	a0/d0,-(sp)
+	jsr	(a1)
+	movem.l	(sp)+,a0/d0
+.DRex2	lea	16(a0),a0
+	dbra	d0,.DRex1
+	movem.l	(sp)+,a2-a6/d2-d7
+	rts
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	END
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InEnd
+; - - - - - - - - - - - - -
+	moveq	#NbEnd,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEST INTER SANS SAUT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Test_PaSaut
+; - - - - - - - - - - - - -
+	movem.l	d0-d7/a0-a2,-(sp)
+	bset	#Bit_PaSaut,Test_Flags(a5)
+	Rbsr	L_Test_Normal
+	bclr	#Bit_PaSaut,Test_Flags(a5)
+	movem.l	(sp)+,d0-d7/a0-a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEST NORMAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Test_Normal
+; - - - - - - - - - - - - -
+	moveq	#1,d6
+	tst.b	T_Actualise(a5)
+	Rbmi	L_Test_Force
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TEST FORCE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Test_Force
+; - - - - - - - - - - - - -
+	move.w	ActuMask(a5),d4
+
+; Inhibition par un autre AMOS?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	SyCall	Test_Cyclique
+
+; Les dialogues???
+; ~~~~~~~~~~~~~~~~
+	move.l	Cur_Dialogs(a5),a0	Un dialogue?
+	tst.l	(a0)
+	beq.s	.NoDia
+	move.l	GoTest_Dialog(a5),a0
+	jsr	(a0)
+	beq.s	.NoDia
+	add.w	#IDia_Errors,d0
+	Rbra	L_Error
+.NoDia
+; Les menus???
+; ~~~~~~~~~~~~
+	btst	#BitMenu,d4		Menus en route?
+	beq.s	Tst0
+	tst.l	MnBase(a5)		Un menu defini?
+	beq.s	Tst0
+	tst.w	MnProc(a5)		Pas dans une procedure menu
+	bne.s	Tst0
+	tst.l	T_ClLast(a5)		Une touche?
+	beq.s	Tst0a
+	tst.w	Direct(a5)		Pas en mode direct
+	bne.s	Tst0a
+	move.l	GoTest_MenuKey(a5),a0	Appelle la routine
+	jsr	(a0)
+Tst0a	btst	#10,$dff016		Afficher le menu?
+	bne.s	Tst0
+	move.l	GoTest_Menus(a5),a0
+	jsr	(a0)
+	Rbne	L_Error
+
+; Autres choses???
+; ~~~~~~~~~~~~~~~~
+Tst0	move.w	T_Actualise(a5),d3
+	bclr	#BitControl,d3
+	bne.s	Tst00
+	and.w	d4,d3
+	beq	TstX1
+	bra.s	Tst1
+; CONTROLE-C?
+; ~~~~~~~~~~~
+Tst00	tst.l	Mon_Base(a5)			Retour au moniteur?
+	bne.s	IStop
+	btst	#BitControl,d4			Break autorise?
+	beq.s	Tst01
+IStop	move.w	d3,T_Actualise(a5)
+	moveq	#9,d0
+	Rbra	L_Error
+Tst01	move.w	d3,T_Actualise(a5)
+	move.l	GoTest_OnBreak(a5),d0
+	beq.s	Tst1a
+	move.l	d0,a0
+	jsr	(a0)
+	bra.s	Tst1a
+
+; Branchement automatique aux menus?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst1	bclr	#BitJump,d3
+	beq.s	Tst1a
+	move.l	GoTest_GoMenu(a5),a0
+	jsr	(a0)
+
+; Actualisation des ecrans/animations
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Tst1a	move.w	T_VblCount+2(a5),d0
+	sub.w	VBLOCount(a5),d0
+	cmp.w	VBLDelai(a5),d0
+	bcs	TstX1
+	move.w	T_VblCount+2(a5),VBLOCount(a5)
+; Bobs?
+	bclr	#BitBobs,d3
+	beq.s	Tst2
+	SyCall	EffBob
+	SyCall	ActBob
+	SyCall	AffBob
+	EcCall	SwapScS
+; Hard Sprites?
+Tst2:	bclr	#BitSprites,d3
+	beq.s	Tst3
+	SyCall	ActHs
+	SyCall	AffHs
+; Extensions?
+Tst3:	lsr.b	#1,d3
+	beq.s	Tst4
+	lea	ExtTests(a5),a1
+	bra.s	Tst3b
+Tst3a	move.l	(a1),d0
+	beq.s	Tst3b
+	move.l	d0,a0
+	jsr	(a0)
+Tst3b	addq.l	#4,a1
+	lsr.b	#1,d3
+	bcs.s	Tst3a
+	bne.s	Tst3b
+; Ecrans?
+Tst4:	bclr	#BitEcrans,d3
+	beq.s	Tst5
+	EcCall	CopMake
+Tst5:
+
+; Correction du bug CONTROL-C / Beaucoup de sprites
+	move.w	T_Actualise(a5),d0
+	and.w	#%0000000100000000,d0		BITCONTROL=8
+	or.w	d0,d3
+; Every
+; ~~~~~
+TstX1	move.w	d3,T_Actualise(a5)
+	btst	#BitEvery,d4
+	beq.s	TstX2
+	tst.w	T_EveCpt(a5)
+	bgt.s	TstX2
+	move.w	EveCharge(a5),T_EveCpt(a5)
+	bclr	#BitEvery,d4
+	move.l	GoTest_Every(a5),a0
+	jsr	(a0)
+
+TstX2	bclr 	#BitVBL,T_Actualise(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Fait le branchement ON MENU
+;	Appele par TESTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GoMenu
+; - - - - - - - - - - - - -
+	tst.w	EveLabel(a5)
+	bmi.s	.GoMX
+	lea	MnChoix(a5),a0
+	move.w	(a0),d0
+	beq.s	.GoMX
+	cmp.w	OMnNb(a5),d0
+	bls.s	.GoMGo
+.GoMX:	rts
+; Fait le branchement
+.GoMGo	bclr	#BitJump,d4		Restore les actualisations
+	move.w	d4,ActuMask(a5)
+	move.w	d3,T_Actualise(a5)
+	Rbsr	L_GetInstruction	Adresse de l'instruction courante
+	moveq	#1,d6			Pour les erreurs
+	move.l	BasA3(a5),a3		Pile parametres
+	move.l	Cmp_LowPile(a5),sp
+	move.l	OMnBase(a5),a0
+	lsl.w	#2,d0
+	move.l	-4(a0,d0.w),a0		Adresse du saut
+	tst.w	OMnType(a5)
+	bmi.s	GoMG2
+	beq.s	GoMG1
+; 1: Procedure!
+	move.l	a1,-(sp)		Adresse de retour
+	jmp	(a0)
+; 0: Gosub
+GoMG1	move.l	a1,-(sp)		Simple JSR
+	move.l	sp,Cmp_LowPile(a5)
+	jmp	(a0)
+; -1: Goto
+GoMG2	jmp	(a0)			Simple JMP
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fait le branchement a ON BREAK 	*** Brancher / Tester
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	OnBreakGo
+; - - - - - - - - - - - - -
+	btst	#Bit_PaSaut,Test_Flags(a5)
+	beq.s	.Skip
+	tst.l	OnBreak(a5)
+	bne.s	.Jmp
+.Skip	rts
+.Jmp	Rbsr	L_GetInstruction	Instruction courante
+	moveq	#1,d6			Pas d'erreur
+	move.l	Cmp_LowPile(a5),sp
+	move.l	a1,-(sp)
+	move.l	OnBreak(a5),a0
+	jmp	(a0)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fait le branchement a EVERY	*** Tester
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	EveJump
+; - - - - - - - - - - - - -
+	tst.l	EveLabel(a5)
+	bne.s	EveJ1
+EveJ0	rts
+; Branche!
+EveJ1	bmi.s	EveJ0
+	bclr	#BitEvery,d4
+	move.w	d4,ActuMask(a5)
+	Rbsr	L_GetInstruction	Adresse instruction courante
+	moveq	#1,d6			Pas de probleme erreur
+	move.l	Cmp_LowPile(a5),sp	Restore la pile
+	move.l	EveLabel(a5),a0		Le label
+	tst.w	EveType(a5)
+	bne.s	EveJ2
+; Gosub!
+	move.l	a1,-(sp)
+	move.l	sp,Cmp_LowPile(a5)
+	jmp	(a0)
+; Procedure!
+EveJ2	move.l	a1,-(sp)
+	jmp	(a0)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Erreurs de la premiere partie
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Cmp	RIllDir
+; - - - - - - - - - - - - -
+	moveq	#17,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	OOfData
+; - - - - - - - - - - - - -
+	moveq	#33,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	OOfBuf
+; - - - - - - - - - - - - -
+	moveq	#11,d0			Out of buffer space
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	InpTL
+; - - - - - - - - - - - - -
+	moveq	#DEBase+20,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	EProErr
+; - - - - - - - - - - - - -
+	moveq	#8,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	ResLNo
+; - - - - - - - - - - - - -
+	moveq	#6,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	NoOnErr
+; - - - - - - - - - - - - -
+	moveq	#5,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	ResPLab
+; - - - - - - - - - - - - -
+	moveq	#4,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	NoResume
+; - - - - - - - - - - - - -
+	moveq	#3,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	NoErr
+; - - - - - - - - - - - - -
+	moveq	#7,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	OofStack
+; - - - - - - - - - - - - -
+	moveq 	#13,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	NonDim
+; - - - - - - - - - - - - -
+	moveq 	#27,d0
+	Rbra 	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	AlrDim
+; - - - - - - - - - - - - -
+	moveq 	#28,d0
+	Rbra 	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	DByZero
+; - - - - - - - - - - - - -
+	moveq 	#20,d0
+	Rbra 	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	OverFlow
+; - - - - - - - - - - - - -
+	moveq 	#29,d0
+	Rbra 	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	RetGsb
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	Rbra	L_Error
+; - - - - - - - - - - - - -
+	Lib_Cmp	PopGsb
+; - - - - - - - - - - - - -
+	moveq	#2,d0
+	Rbra	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TRAITEMENT DES ERREURS RunErr:
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Error
+; - - - - - - - - - - - - -
+	moveq	#19,d1
+	moveq	#-1,d2
+	Rbra	L_ErrorExt
+; - - - - - - - - - - - - -
+	Lib_Cmp	ErrorExt
+; - - - - - - - - - - - - -
+; Recupere les registres?
+; ~~~~~~~~~~~~~~~~~~~~~~~
+	tst.b	ErrorRegs(a5)
+	beq.s	.Skip
+	clr.b	ErrorRegs(a5)
+	movem.l	ErrorSave(a5),d6-d7
+.Skip
+; Ferme toutes les routines appellees
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Rjsr	L_D_Close
+;	Rjsr	L_ResTempBuffer
+;	Rjsr	L_MnEnd			rajouter lors de procedure menu!
+	movem.l	d0-d3/a0,-(sp)
+	lea	Sys_ErrorRoutines(a5),a1
+	SyCall	CallRoutines
+	movem.l	(sp)+,d0-d3/a0
+; Peut-on detourner l'erreur?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	clr.l	PrintPos(a5)
+	clr.w	InputFlg(a5)
+	clr.w	ContFlg(a5)
+	cmp.w	#11,d0			Variable space?
+	beq.s	.skip
+	cmp.w	d1,d0
+	bcs	rErr1
+.skip	cmp.w	#1000,d0		Edit / Direct?
+	bcc	rErr1
+	tst.w	Direct(a5)		Mode direct
+	bne	rErr1
+	tst.w	ErrorOn(a5)		Erreur en route
+	bne	rErr1
+	Rbsr	L_GetInstruction	Trouve l'adresse de l'instruction
+	cmp.l	TrapAdr(a5),a1		TRAP?
+	beq.s	.ETrap
+	tst.l	OnErrLine(a5)		On error goto
+	beq	rErr1
+; Erreurs detournees
+; ~~~~~~~~~~~~~~~~~~
+	clr.l	TrapAdr(a5)		Plus de trap
+	clr.w	TrapErr(a5)
+	addq.w	#1,d0
+	addq.w	#1,d2
+	lsl.w	#8,d2
+	or.w	d2,d0
+	move.w	d0,ErrorOn(a5)		Numero de l'erreur
+	move.l	BasA3(a5),a3		Restore les piles
+	move.l	Cmp_LowPile(a5),sp
+	tst.w	ErrorChr(a5)
+	bmi.s	.rErr0
+	move.l	a1,ErrorChr(a5)
+	move.l	OnErrLine(a5),a0
+	jmp	(a0)
+; ON ERROR PROC
+; ~~~~~~~~~~~~~
+.rErr0	move.l	a1,-(sp)		Adresse de l'instruction
+	move.l	OnErrLine(a5),a0	Adresse de la procedure
+	jmp	2(a0)			D0= ErrorOn / Skippe le moveq #0,d0
+; Nouvelle intruction TRAP
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+.ETrap	clr.l	TrapAdr(a5)
+	addq.w	#1,d2
+	lsl.w	#8,d2
+	or.w	d2,d0
+	move.w	d0,TrapErr(a5)
+	move.l	BasA3(a5),a3
+	move.l	Cmp_LowPile(a5),sp
+	jmp	(a2)			Continue a l'instruction suivante
+
+; Une erreur extension?
+; ~~~~~~~~~~~~~~~~~~~~~
+rErr1	move.l	Prg_JError(a5),a2	Branchement de fin
+	ext.l	d0
+	move.l	d0,d1
+	tst.w	d2
+	bpl.s	.ExtErr
+; Erreur normale
+; ~~~~~~~~~~~~~~
+	cmp.w	#NbEnd,d0		End
+	beq.s	.Nul
+	cmp.w	#1000,d0		Edit / Direct
+	bcc.s	.Nul
+	move.l	Ed_RunMessages(a5),a0	Trouve le message
+	addq.w	#1,d0
+	Rbsr	L_GetMessage
+	move.l	d1,d0
+	jmp	(a2)
+; Erreur extension: trouve le message
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.ExtErr	tst.l	d3
+	beq.s	.Ext
+	lea	.MNul(pc),a0
+	bra.s	.ExtOut
+.ELoop	tst.b	(a0)+
+	bne.s	.ELoop
+.Ext	dbra	d1,.ELoop
+.ExtOut	swap	d2
+	clr.w	d2
+	or.l	d2,d0			D0= Message / Extension
+	jmp	(a2)
+.Nul	moveq	#0,d0			Pas d'erreur!
+	jmp	(a2)
+.MNul	dc.w	0			Message nul!
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	DEBUT DES SWAPS AMOS / CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INSTRUCTION RUN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InRun0
+; - - - - - - - - - - - - -
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRun0CLI
+; - - - - - - - - - - - - -
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRun1
+; - - - - - - - - - - - - -
+	tst.l	Mon_Base(a5)
+	bne.s	.Acc
+	tst.b	Prg_Accessory(a5)
+	bne.s	.Acc
+; Verifie la presence du programme
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	move.l	Name1(a5),a0
+	Rjsr	L_ChVerBuf2
+	Rjsr	L_Dsk.PathIt
+	move.l	#1005,d2		Verifie la presence du fichier!
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+	Rbsr	L_D_Close		Le ferme!
+; Branche a la routine RUN suite!
+	moveq	#-1,d0
+	sub.l	a0,a0
+	move.l	Prg_JError(a5),a1
+	jmp	(a1)
+.Acc 	moveq	#102,d0
+	Rbra	L_Error
+
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRun1CLI
+; - - - - - - - - - - - - -
+	Rbsr	L_RunName
+; Short mem ou non?
+; ~~~~~~~~~~~~~~~~
+	move.l	Buffer(a5),a0
+	lea	TBuffer-256-6(a0),a0
+	cmp.l	#"CmdL",(a0)+
+	bne	.Normal
+	move.l	2(a0),d0
+	cmp.l	#"-Mem",d0
+	beq.s	.Short
+	cmp.l	#"-Def",d0
+	bne	.Normal
+
+; SHORT Mem, on ferme tout!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Short	move.l	d0,-(sp)
+	move.w	(a0),d0			Recopie la fin de la ligne de commande
+	subq.w	#5,d0
+	bpl.s	.Skyp
+	moveq	#0,d0
+.Skyp	move.w	d0,(a0)+
+	beq.s	.Skop
+	lea	5(a0),a1
+	subq.w	#1,d0
+.Loop	move.b	(a1)+,(a0)+
+	dbra	d0,.Loop
+.Skop	move.w	#-2,DefFlag(a5)
+	Rbsr	L_DefRun1
+	cmp.l	#"-Def",(sp)+
+	beq.s	.Normal
+	Rjsr	L_Bnk.EffAll
+	Rbsr	L_CmpClearVar
+	Rbsr	L_CmpLibrariesStop	Arret des extensions
+	clr.l	Prg_JError(a5)
+	clr.l	Sys_ErrorRoutines(a5)
+	clr.l	Sys_DefaultRoutines(a5)
+	lea	Sys_EndRoutines(a5),a1	Appelle les routines de fin
+	SyCall	CallRoutines
+	SyCall	MemFlush		Enleve les routines flush
+	Rbsr	L_CmpLibClose		Ferme les librairies
+	Rbsr	L_CmpEffVarBuf		Efface les variables
+; Branche au header, short mem reload!!!
+	move.l	BasSp(a5),sp
+	move.l	(sp)+,a0
+	jmp	8(a0)
+
+; Assez de memoire, on reste tel quel
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Normal
+; Plus de variable
+	Rjsr	L_Bnk.EffAll
+	Rbsr	L_CmpClearVar
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+	Rbsr	L_CmpLibrariesStop	Arret des extensions
+	clr.l	Prg_JError(a5)
+	clr.l	Sys_ErrorRoutines(a5)	Plus d'effacement
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+	lea	Sys_EndRoutines(a5),a1	Appelle les routines de fin
+	SyCall	CallRoutines
+	SyCall	MemFlush		Enleve les routines flush
+	Rbsr	L_CmpLibClose		Ferme les librairies
+	Rbsr	L_CmpEffVarBuf		Efface les variables
+; Branche au header, normalement
+	move.l	BasSp(a5),sp
+	move.l	(sp)+,a0
+	jmp	4(a0)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	PRUN en AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InPRun
+; - - - - - - - - - - - - -
+	tst.l	Mon_Base(a5)
+	bne	.Acc
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	move.l	Name1(a5),a0
+	Rjsr	L_ChVerBuf2
+; Sauve le programme courant
+	movem.l	a3-a6/d6/d7,-(sp)
+	move.l	BasSp(a5),-(sp)
+; Le programme est-il deja charge?
+	JJsr	L_Prg_AccAdr
+	beq.s	.Loadit
+	move.l	a0,a6
+	JJsr	L_Prg_DejaRunned
+	beq.s	.Runit
+; Il faut charger: verifie la presence du programme
+.Loadit	Rjsr	L_Dsk.PathIt
+	move.l	#1005,d2		Verifie la presence du fichier!
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+	Rbsr	L_D_Close		Le ferme!
+; Ouvre une nouvelle structure
+	moveq	#0,d0			Pas de buffer
+	JJsr	L_Prg_NewStructure	Ouvre la structure
+	Rbeq	L_OOfMem
+	move.l	d0,a6
+; Charge le programme
+	moveq	#-1,d0			Toujours adapter
+	JJsr	L_Prg_Load
+	tst.w	d0
+	bne	.LErr
+	move.l	a6,-(sp)		Remet les banques
+	move.l	Prg_Runned(a5),a6	du premier programme
+	JJsr	L_Prg_SetBanks
+	move.l	(sp)+,a6
+; Programme charge: on le demarre!
+.Runit	moveq	#-1,d0			Semi init graphique
+	lea	PRun_Errors(pc),a1	Retour en cas d'erreur
+	sub.l	a2,a2			Pas de message
+	move.l	sp,BasSp(a5)		Bas de la pile
+	JJsr	L_Prg_RunIt
+	bra.s	.OMm
+; Erreur lors du chargement
+.LErr	move.w	d0,d1
+	moveq	#101,d0
+	cmp.w	#-1,d1
+	beq.s	.Goerr
+.OMm	moveq	#36,d0
+; Revient au programme, avec un message d'erreur
+.Goerr	move.l	d0,-(sp)
+	tst.b	Prg_Edited(a6)		Efface la structure s'il faut
+	bne.s	.Edited
+	JJsr	L_Prg_DelStructure
+.Edited	move.l	Prg_Runned(a5),a6
+	JJsr	L_Prg_SetBanks
+	Rjsr	L_Bnk.Change
+	move.l	(sp)+,d0
+	move.l	Ed_RunMessages(a5),a0
+	Rjsr	L_GetMessage
+	move.l	(sp)+,BasSp(a5)
+	movem.l	(sp)+,a3-a6/d6/d7
+	move.l	sp,BasSp(a5)
+	Rbra	L_ZapReturn
+.Acc 	moveq	#102,d0
+	Rbra	L_Error
+;	Retour d'erreur lors de PRUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PRun_Errors
+	move.l	BasSp(a5),sp
+	move.l	(sp)+,BasSp(a5)
+	movem.l	(sp)+,a3-a6/d6/d7	Restore le programme
+	movem.l	d6/d7,ErrorSave(a5)	Au cas zou
+	movem.l	a0-a1/d0-d1,-(sp)
+	JJsr	L_Open_MathLibraries	Rouvre les libraries
+	movem.l	(sp)+,a0-a1/d0-d1
+	cmp.w	#10,d0
+	beq.s	.Nul
+	cmp.w	#1000,d0
+	blt.s	.Null
+.Nul	moveq	#0,d0
+.Null	move.l	ChVide(a5),a0
+	Rbra	L_ZapReturn
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INSTRUCTION PRUN sous CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InPRunCLI
+; - - - - - - - - - - - - -
+L_DSave	equ	DataLong-DosBase+8*4
+	Rbsr	L_RunName
+; Sauve les donnees du programme courant
+	move.l	#L_DSave,d0		Reserve une zone de sauvegarde
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,Prg_Run(a5)
+	movem.l	a3-a6/d6/d7,(a0)	Sauve les registres
+	lea	6*4(a0),a0
+	lea	DosBase(a5),a1
+	move.l	#(DataLong-DosBase)/2-1,d0
+.Copy	move.w	(a1)+,(a0)+		Recopie les donnees
+	dbra	d0,.Copy
+	move.l	DosBase(a5),-(sp)	Sauve DOSBASE
+; Effacement selectif
+	SyCall	MemFlush		Enleve les routines flush
+	clr.l	DFloatBase(a5)
+	clr.l	DMathBase(a5)
+	clr.l	FloatBase(a5)
+	clr.l	MathBase(a5)
+	clr.l	Sys_Banks(a5)		Les messages systeme
+	clr.l	Ed_RunMessages(a5)
+	clr.l	Cmp_CurBanks(a5)	Dialogues / banks programme
+	clr.l	Cmp_CurDialogs(a5)
+	clr.l	Sys_EndRoutines(a5)	Routines flush
+	clr.l	Sys_ClearRoutines(a5)
+	clr.l	Sys_ErrorRoutines(a5)
+	clr.l	Sys_DefaultRoutines(a5)
+	clr.l	EveLabel(a5)		Every!
+	clr.l	MnBase(a5)		Menus
+	clr.w	OMnNb(a5)
+	clr.l	OMnBase(a5)
+	clr.l	Patch_Errors(a5)	Plus de patchs
+	clr.l	Patch_Menage(a5)
+	clr.l	Patch_ScFront(a5)
+	clr.l	Patch_ScCopy(a5)
+	bclr	#1,ActuMask+1(a5)
+	lea	Fichiers(a5),a0		Plus de fichiers
+	moveq	#NFiche-1,d0
+.New1	clr.l	(a0)
+	lea	TFiche(a0),a0
+	dbra	d0,.New1
+	lea	Dev_List(a5),a0		Plus de devices (12 byte/device)
+	moveq	#(3*Dev_Max)-1,d0
+.New2	clr.l	(a0)+
+	dbra	d0,.New2
+	lea	Lib_List(a5),a0		Plus de librairies
+	moveq	#Lib_Max-1,d0
+.New3	clr.l	(a0)+
+	dbra	d0,.New3
+	lea	.NextQuit(pc),a0	Effacement du programme suivant!
+	move.l	a0,Prg_JError(a5)
+; Charge le programme
+	move.l	Name1(a5),d1
+	move.l	(sp),a6
+	jsr	_LVOLoadSeg(a6)
+	move.l	d0,Prg_Runned(a5)	Les segments
+	beq.s	.Err
+	lsl.l	#2,d0
+	move.l	d0,a0
+	addq.l	#4,a0
+	move.l	2(a0),d2		Les flags
+	move.l	2+6(a0),d3
+	bset	#FHead_PRun,d2		C'est un PRUN!
+	bset	#FHead_Run,d2		C'est egalement un RUN!
+	bset	#FPrg_DefRunAcc+16,d2	DEFRUNACC pour le programme
+	jsr	6+6(a0)			On y va!
+; Retour du programme suivant!
+.Back	move.l	(sp),a6
+	move.l	d0,(sp)
+	move.l	Prg_Runned(a5),d1	Libere le programme
+	beq.s	.Nolib
+	jsr	_LVOUnLoadSeg(a6)
+.Nolib	move.l	Prg_Run(a5),a0		Recopie les donnees
+	move.l	a0,a1
+	movem.l	(a0)+,a3-a6/d6/d7
+	lea	DosBase(a5),a2
+	move.l	#(DataLong-DosBase)/2-1,d0
+.Copy2	move.w	(a0)+,(a2)+		Recopie les donnees
+	dbra	d0,.Copy2
+	move.l	#L_DSave,d0		Libere le buffer
+	SyCall	MemFree
+; Remet les banques
+	Rjsr	L_Bnk.Change
+; Met le PARAM
+	move.l	(sp)+,ParamE(a5)
+	rts
+; Out of memory
+.Err	moveq	#24,d0
+	bra.s	.Back
+; Effacement du programme suivant
+.NextQuit
+	movem.l	a0/d0,-(sp)		Sauve les erreurs
+	lea	Sys_DefaultRoutines(a5),a1
+	SyCall	CallRoutines
+	lea	Sys_EndRoutines(a5),a1	Appelle les routines de fin
+	SyCall	CallRoutines
+	SyCall	MemFlush		Enleve les routines flush
+	Rjsr	L_Bnk.EffAll
+	Rbsr	L_CmpClearVar
+	Rbsr	L_CmpLibrariesStop
+	Rbsr	L_CmpLibClose
+	Rbsr	L_CmpEffVarBuf
+; Retourne a l'appellant (le header du deuxieme)
+	movem.l	(sp)+,a0/d0
+	move.l	BasSp(a5),sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		ASK EDITOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InAskEditor1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InAskEditor3
+; - - - - - - - - - - - - -
+	Lib_Cmp	InAskEditor1CLI
+; - - - - - - - - - - - - -
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - -
+	Lib_Cmp InAskEditor2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InAskEditor3
+; - - - - - - - - - - - - -
+	Lib_Cmp	InAskEditor2CLI
+; - - - - - - - - - - - - -
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - -
+	Lib_Cmp InAskEditor3
+; - - - - - - - - - - - - -
+	Rbsr	L_Ed_Par
+	tst.l	Edit_Segment(a5)
+	Rbeq	L_FonCall
+	JJsr	L_Ed_ZapFonction
+	move.l	d0,ParamE(a5)
+	move.l	ChVide(a5),ParamC(a5)
+	tst.w	d2
+	beq.s	.Skip
+	Rjsr	L_A0ToChaine
+	move.l	a0,ParamC(a5)
+.Skip	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InAskEditor3CLI
+; - - - - - - - - - - - - -
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		ZAPPEUSE D'EDITEUR!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InCallEditor1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	Rbra	L_InCallEditor3
+; - - - - - - - - - - - - -
+	Lib_Cmp	InCallEditor1CLI
+; - - - - - - - - - - - - -
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - -
+	Lib_Cmp InCallEditor2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InCallEditor3
+; - - - - - - - - - - - - -
+	Lib_Cmp	InCallEditor2CLI
+; - - - - - - - - - - - - -
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - -
+	Lib_Cmp InCallEditor3
+; - - - - - - - - - - - - -
+	Rbsr	L_Ed_Par		Recupere les parametres
+	tst.l	Edit_Segment(a5)	Editeur present?
+	Rbeq	L_FonCall
+	move.l	BasSp(a5),-(sp)		Sauve le bas de la pile
+	movem.l	a3-a6/d6/d7,-(sp)	Pousse tout
+	move.l	sp,BasSp(a5)
+	subq.l	#4,BasSp(a5)		Change le bas de la pile
+	JJsr	L_Ed_ZapIn		Appel de l'editeur, avec ADTOKENS
+	movem.l	(sp)+,a3-a6/d6/d7	Recupere tout
+	move.l	(sp)+,BasSp(a5)		Remet BasSp!
+	Rbra	L_ZapReturn
+; - - - - - - - - - - - - -
+	Lib_Cmp	InCallEditor3CLI
+; - - - - - - - - - - - - -
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MET LES BANQUES DU PROGRAMME PRECEDENT, SI DEFINI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp Bnk.PrevProgram
+; - - - - - - - - - - - - -		Si programme AMOS
+	move.l	a4,-(sp)
+	move.l	AdTokens(a5),a4
+	Ijsr	L_Bnk.PrevProgram
+	move.l	(sp)+,a4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	Bnk.PrevProgramCLI
+; - - - - - - - - - - - - -		Si Programme CLI
+	moveq	#0,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MET LES BANQUES DU PROGRAMME COURANT, SI DEFINI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Bnk.CurProgram
+; - - - - - - - - - - - - -		Si programme AMOS
+	move.l	a4,-(sp)
+	move.l	AdTokens(a5),a4
+	Ijsr	L_Bnk.CurProgram
+	move.l	(sp)+,a4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	Bnk.CurProgramCLI
+; - - - - - - - - - - - - -		Si programme CLI
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=Prg Under
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FnPrgUnder
+; - - - - - - - - - - - - -		Si sous AMOS
+	move.l	a4,-(sp)
+	move.l	AdTokens(a5),a4
+	Ijsr	L_FnPrgUnder
+	move.l	(sp)+,a4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnPrgUnderCLI
+; - - - - - - - - - - - - -		Si programme CLI
+	tst.l	Prg_Runned(a5)
+	sne	d3
+	ext.w	d3
+	ext.l	d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	CLOSE EDITOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InCloseEditor
+; - - - - - - - - - - - - -
+	move.l	a4,-(sp)
+	move.l	AdTokens(a5),a4
+	Ijsr	L_InCloseEditor
+	move.l	(sp)+,a4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InCloseEditorCLI
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	KILL EDITOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InKillEditor
+; - - - - - - - - - - - - -
+	move.l	a4,-(sp)
+	move.l	AdTokens(a5),a4
+	Ijsr	L_InKillEditor
+	move.l	(sp)+,a4
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InKillEditorCLI
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MONITOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InMonitor
+; - - - - - - - - - - - - -
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMonitorCLI
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	FIN DES ROUTINES AMOS / CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	VERIFICATION DU FICHIER RUN / PRUN CLI
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	RunName
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rbsr	L_NomDisc
+	move.l	Name1(a5),a0
+.Run0	tst.b	(a0)+
+	bne.s	.Run0
+	subq.l	#1,a0
+	lea	Suffix(pc),a1
+.Run1	move.b	-(a0),d0
+	cmp.b	#"a",d0
+	bcs.s	.Run1a
+	cmp.b	#"z",d0
+	bhi.s	.Run1a
+	sub.b	#32,d0
+.Run1a	move.b	(a1)+,d1
+	beq.s	.Run2
+	cmp.b	d0,d1
+	bne.s	.Run3
+	beq.s	.Run1
+.Run2	clr.b	1(a0)
+; Ouvre le fichier (si present)
+.Run3	move.l	#1005,d2
+	Rbsr	L_D_Open
+	Rbeq	L_DiskError
+; Charge l'entete
+	move.l	Name2(a5),d2
+	moveq	#5*4,d3
+	Rbsr	L_D_Read
+	Rbne	L_DiskError
+; Un programme?
+	move.l	d2,a2
+	add.l	d3,d2
+	cmp.l	#$3F3,(a2)
+	Rbne	L_DiskError
+; Ok, on peut fermer
+	Rbsr	L_D_Close
+	rts
+.NoF	moveq	#81,d0			Erreur normale!
+	Rbra	L_Error
+Suffix	dc.b	"SOMA.",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Recupere les parametres
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Ed_Par
+; - - - - - - - - - - - - -
+	move.l	Name1(a5),a0
+	move.l	Name2(a5),a1
+	clr.w	(a1)
+	move.l	d3,d0
+	beq.s	.Skip
+	move.l	d0,a2
+	move.w	(a2)+,d2
+	move.w	d2,(a1)
+	Rjsr	L_ChVerBuf2
+.Skip	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Retour de zappeuse
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	ZapReturn
+; - - - - - - - - - - - - -
+	move.l	ChVide(a5),ParamC(a5)
+	ext.l	d0
+	move.l	d0,ParamE(a5)
+	beq.s	.Skip
+	Rjsr	L_A0ToChaine
+	move.l	a0,ParamC(a5)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=Prg State
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnPrgState
+; - - - - - - - - - - - - -
+	move.w	T_AMOState(a5),d3
+	ext.l	d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TROUVE LE DEBUT DE L'INSTRUCTION ACTUELLE >>> A1 / A2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GetInstruction
+; - - - - - - - - - - - - -
+	move.l	Cmp_LowPile(a5),a1
+	move.l	-4(a1),a1		Adresse de retour
+	subq.l	#2,a1			Au milieu du jsr
+	Rbra	L_GetInstruction2
+; - - - - - - - - - - - - -
+	Lib_Cmp	GetInstruction2
+; - - - - - - - - - - - - -
+	movem.l	a0/d0-d3,-(sp)
+	move.l	Cmp_ListInst(a5),a0
+	move.l	(a0)+,d3
+	move.w	(a0)+,d1		Nombre d'instructions
+	sub.l	d3,a1			En relatif
+	lsr.w	#1,d1
+	move.w	d1,d2
+; Boucle de recherche
+.Loop	move.w	d1,d0
+	lsl.w	#2,d0
+	cmp.l	-4(a0,d0.w),a1
+	bcs.s	.Prev
+	cmp.l	0(a0,d0.w),a1
+	bcs.s	.Found
+	lsr.w	#1,d2
+	beq.s	.Pas
+	add.w	d2,d1
+	bra.s	.Loop
+.Prev	lsr.w	#1,d2
+	beq.s	.Pas
+	subx.w	d2,d1
+	bra.s	.Loop
+; Pas trouve, cherche au dessus
+.Pas	lea	0(a0,d0.w),a2
+.Find	cmp.l	(a2)+,a1
+	bcc.s	.Find
+	subq.l	#8,a2
+	bra.s	.Return
+.Found	lea	-4(a0,d0.w),a2
+.Return	move.l	(a2)+,a1
+	move.l	(a2),a2
+	add.l	d3,a1
+	add.l	d3,a2
+	movem.l	(sp)+,a0/d0-d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SYSTEM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InSystem
+; - - - - - - - - - - - - -
+	move.w	#1002,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EDIT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InEdit
+; - - - - - - - - - - - - -
+	move.w	#1000,d0
+	Rbra	L_GoError
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DIRECT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InDirect
+; - - - - - - - - - - - - -
+	move.w	#1001,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					BREAK ON / OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InBreakOn
+; - - - - - - - - - - - - -
+	bset	#BitControl,ActuMask(a5)
+	clr.l	OnBreak(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp InBreakOff
+; - - - - - - - - - - - - -
+	bclr	#BitControl,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ON BREAK PROC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InOnBreak
+; - - - - - - - - - - - - -
+	move.l	a0,OnBreak(a5)
+	bclr	#BitControl,ActuMask(a5)
+	Rlea	L_OnBreakGo,0		La routine de branchement
+	move.l	a0,GoTest_OnBreak(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ON ERROR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InOnError
+; - - - - - - - - - - - - -
+	tst.w	ErrorOn(a5)
+	Rbne	L_NoResume
+	clr.l	OnErrLine(a5)
+	clr.l	ErrorChr(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InOnErrorGoto
+; - - - - - - - - - - - - -
+	tst.w	ErrorOn(a5)
+	Rbne	L_NoResume
+	move.l	a0,OnErrLine(a5)
+	clr.l	ErrorChr(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InOnErrorProc
+; - - - - - - - - - - - - -
+	tst.w	ErrorOn(a5)
+	Rbne	L_NoResume
+	move.l	a0,OnErrLine(a5)
+	clr.l	ErrorChr(a5)
+	bset	#7,ErrorChr(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESUME LABEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InResumeLabel
+; - - - - - - - - - - - - -
+	tst.w	ErrorOn(a5)
+	Rbeq	L_NoErr
+	Rbsr	L_PopP
+	clr.w	ErrorOn(a5)
+	move.l	ErrorChr(a5),d0
+	bclr	#31,d0
+	Rbeq	L_NoOnErr
+	tst.l	d0
+	Rbeq	L_ResLNo
+	move.l	d0,a0
+	jmp	(a0)
+; - - - - - - - - - - - - -
+	Lib_Cmp	InResumeLabel1
+; - - - - - - - - - - - - -
+	tst.l	OnErrLine(a5)
+	Rbeq	L_NoOnErr
+	tst.w	ErrorChr(a5)
+	Rbpl	L_NoOnErr
+	move.l	a0,d0
+	bset	#31,d0
+	move.l	d0,ErrorChr(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESUME [label]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InResume
+; - - - - - - - - - - - - -
+	Rbsr	L_Test_PaSaut
+	tst.w	ErrorOn(a5)
+	Rbeq	L_NoErr
+	move.l	ErrorChr(a5),d0
+	bmi.s	L985a
+	move.l	d0,a0
+	clr.w	ErrorOn(a5)
+	jmp	(a0)
+L985a	Rbsr	L_PopP
+	clr.w	ErrorOn(a5)
+	jmp	(a0)
+; - - - - - - - - - - - - -
+	Lib_Cmp	InResume1
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	Rbsr	L_Test_PaSaut
+	move.l	(sp)+,a0
+	tst.w	ErrorOn(a5)
+	Rbeq	L_NoErr
+	clr.w	ErrorOn(a5)
+	tst.w	ErrorChr(a5)
+	Rbmi	L_ResPLab
+	jmp	(a0)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESUME NEXT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InResumeNext
+; - - - - - - - - - - - - -
+	Rbsr	L_Test_PaSaut
+	tst.w	ErrorOn(a5)
+	Rbeq	L_NoErr
+	move.l	ErrorChr(a5),d0		Une procedure?
+	bpl.s	.Skip
+	Rbsr	L_PopP
+	subq.l	#4,sp			Pour le depilage!
+	move.l	a0,d0
+.Skip	move.l	d0,a1			Cherche l'instruction suivante
+	Rbsr	L_GetInstruction2
+	clr.w	ErrorOn(a5)
+	addq.l	#4,sp			Depile la fonction
+	jmp	(a2)			Branche
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TRAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InTrap
+; - - - - - - - - - - - - -
+	move.l	(sp),TrapAdr(a5)	L'adresse de retour!
+	clr.w	TrapErr(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=TRAPERR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FnErrTrap
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	move.w	TrapErr(a5),d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	EVERY GOSUB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InEveryGosub
+; - - - - - - - - - - - - -
+	clr.w	EveType(a5)
+	Rbra	L_InEvery
+; - - - - - - - - - - - - -
+	Lib_Cmp	InEveryProc
+; - - - - - - - - - - - - -
+	move.w	#-1,EveType(a5)
+	Rbra	L_InEvery
+; - - - - - - - - - - - - -
+	Lib_Cmp	InEvery
+; - - - - - - - - - - - - -
+	bclr	#BitEvery,ActuMask(a5)
+	move.l	a0,EveLabel(a5)
+	Rlea	L_EveJump,0			Routine de branchement
+	move.l	a0,GoTest_Every(a5)
+	move.l	(a3)+,d0
+	Rbeq	L_FonCall
+	cmp.l	#32767,d0
+	Rbcc	L_FonCall
+	move.w	d0,EveCharge(a5)
+	move.w	d0,T_EveCpt(a5)
+	bset	#BitEvery,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EVERY OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InEveryOff
+; - - - - - - - - - - - - -
+	bclr	#BitEvery,ActuMask(a5)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					EVERY ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InEveryOn
+; - - - - - - - - - - - - -
+	bset	#BitEvery,ActuMask(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	NEXT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InNext
+; - - - - - - - - - - - - -
+	move.l	(a2)+,d4
+	move.l	(a2)+,d5
+	move.l	(a2),a2
+	add.l	d4,(a2)
+	tst.l	d4
+	bmi.s	L51a
+	cmp.l	(a2),d5
+	blt.s	L51b
+	addq.l	#4,sp
+	jmp	(a1)
+L51a	cmp.l	(a2),d5
+	bgt.s	L51b
+	addq.l	#4,sp
+	jmp	(a1)
+L51b	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InNextF
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.l	(a2)+,d4
+	move.l	(a2)+,d5
+	move.l	(a2),a2
+	move.l	FloatBase(a5),a6
+	move.l	d4,d1
+	jsr	SPTst(a6)
+	move.l	d0,d6
+	move.l	d4,d0
+	move.l 	(a2),d1
+	jsr	SPAdd(a6)
+	move.l	d0,(a2)
+	move.l	d5,d1
+	jsr	SPCmp(a6)
+	move.l	(sp)+,a6
+	blt.s	NxtF1
+	tst.l	d6
+	bpl.s	NxtS
+	bmi.s	NxtR
+NxtF1	tst.l	d6
+	bpl.s	NxtR
+	bmi.s	NxtS
+NxtR	addq.l	#4,sp
+	jmp	(a1)
+NxtS	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RETURN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InReturn
+; - - - - - - - - - - - - -
+	cmp.l	Cmp_LowPileP(a5),sp
+	beq.s	.err
+	addq.l	#4,Cmp_LowPile(a5)
+	rts
+.err	moveq	#1,d0
+	Rbra	L_Error
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	POP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InPop
+; - - - - - - - - - - - - -
+	move.l	(sp)+,a0
+	cmp.l	Cmp_LowPileP(a5),sp
+	beq.s	.err
+	addq.l	#4,sp
+	move.l	sp,Cmp_LowPile(a5)
+	jmp	(a0)
+.err	moveq	#2,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Procedure
+;	D0=	ErrorOn
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DProc1
+; - - - - - - - - - - - - -
+	move.l	(sp)+,a2
+; Empile les params
+; Adresse de retour -(sp)		RTS
+	move.l	a6,-(sp)		0
+	move.l	Cmp_AdLabels(a5),-(sp)	1
+;	move.l	VarLoc(a5),-(sp)	2= A6!
+	move.l	Cmp_AForNext(a5),-(sp)	3
+	move.l	Cmp_ListInst(a5),-(sp)	!
+	move.l	TabBas(a5),-(sp)	4
+	move.l	OnErrLine(a5),-(sp)	5
+	move.l	ErrorChr(a5),-(sp)	6
+	move.w	ErrorOn(a5),-(sp)	7
+	move.l	PData(a5),-(sp)		8
+	move.l	AData(a5),-(sp)		9
+	move.l	Cmp_LowPile(a5),-(sp)	10
+	move.l	Cmp_LowPileP(a5),-(sp)	11
+	move.l	sp,Cmp_LowPileP(a5)
+	move.l	sp,Cmp_LowPile(a5)
+	clr.l	OnErrLine(a5)
+	move.w	d0,ErrorOn(a5)
+	jmp	(a2)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Debut procedure 2: affect les variables / Float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DProc2F
+; - - - - - - - - - - - - -
+	move.w	d3,d2
+	beq.s	.Nopar
+	lsl.w	#2,d2
+	lea	0(a3,d2.w),a2		Pointeur sur les parametres
+	subq.w	#1,d3			Compteur
+.Loop	move.l	(a2)+,d0
+	lsr.l	#1,d4			Flags variables
+	bcs.s	.Flt
+; On veut un entier
+	lsr.l	#1,d5			Flags parametres
+	bcc.s	.Loke
+	move.l	a6,-(sp)
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFix(a6)
+	move.l	(sp)+,a6
+	bra.s	.Loke
+; On veut un float
+.Flt	lsr.l	#1,d5
+	bcs.s	.Loke
+	move.l	a6,-(sp)
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFlt(a6)
+	move.l	(sp)+,a6
+; Affecte la variable
+.Loke	move.l	(a3)+,a0
+	move.l	d0,(a0)
+	dbra	d3,.Loop
+	move.l	a2,a3
+.Nopar	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Debut procedure 2: affect les variables / Double
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DProc2D
+; - - - - - - - - - - - - -
+	move.w	d3,d2
+	beq.s	.Nopar
+	lsl.w	#2,d2
+	lea	0(a3,d2.w),a2		Pointeur sur les parametres
+	subq.w	#1,d3			Compteur
+.Loop	lsr.l	#1,d4
+	bcs.s	.Flt
+; On veut un entier
+	lsr.l	#1,d5
+	bcc.s	.Loke1
+	movem.l	(a2)+,d0-d1
+	move.l	a6,-(sp)
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFix(a6)
+	move.l	(sp)+,a6
+	move.l	(a3)+,a0
+	move.l	d0,(a0)
+	bra.s	.Next
+.Loke1	move.l	(a3)+,a0
+	move.l	(a2)+,(a0)
+	bra.s	.Next
+; On veut un double
+.Flt	lsr.l	#1,d5
+	bcs.s	.Loke2
+	move.l	(a2)+,d0
+	move.l	a6,-(sp)
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFlt(a6)
+	move.l	(sp)+,a6
+	move.l	(a3)+,a0
+	movem.l	d0-d1,(a0)
+	bra.s	.Next
+.Loke2	move.l	(a3)+,a0
+	movem.l	(a2)+,d0-d1
+	movem.l	d0-d1,(a0)
+.Next	dbra	d3,.Loop
+	move.l	a2,a3
+.Nopar	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIN PROCEDURE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FProc
+; - - - - - - - - - - - - -
+	tst.w	ErrorOn(a5)
+	Rbne	L_EProErr
+	move.l	Cmp_LowPileP(a5),sp
+	move.l	(sp)+,Cmp_LowPileP(a5)	11
+	move.l	(sp)+,Cmp_LowPile(a5)	10
+	move.l	(sp)+,AData(a5)		9
+	move.l	(sp)+,PData(a5)		8
+	move.w	(sp)+,ErrorOn(a5)	7
+	move.l	(sp)+,ErrorChr(a5)	6
+	move.l	(sp)+,OnErrLine(a5)	5
+	move.l	(sp)+,TabBas(a5)	4
+	move.l	(sp)+,Cmp_ListInst(a5)	!
+	move.l	(sp)+,Cmp_AForNext(a5)	3
+;	move.l	(sp)+,VarLoc(a5)	2= A6!
+	move.l	(sp)+,Cmp_AdLabels(a5)	1
+	move.l	(sp)+,a6		0
+	rts				RTS
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ENTREE PROGRAMME : RESERVE / INIT L'ESPACE VARIABLES / FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrgInF
+; - - - - - - - - - - - - -
+	move.l	d0,Cmp_AdLabels(a5)
+	move.l	a0,Cmp_ListInst(a5)
+	move.l	(sp),(a0)
+	move.l	a2,AData(a5)
+	move.l	a2,PData(a5)
+	move.l	TabBas(a5),a0
+; Verifie la taille
+	move.l	a6,-(a0)		Debut des prochaines vlocales
+	move.w	#$FFFF,-(a0)
+	moveq	#0,d0
+	move.w	(a1)+,d1		Taille du buffer FOR-NEXT
+	move.w	(a1)+,d0		Taille des VARLOC
+	add.w	d1,d0
+	sub.l	d0,a0
+	lea	-8(a0),a2		Adresse minimale, avec securite
+	cmp.l	HiChaine(a5),a2
+	bls.s	.Outb
+	move.l	a0,Cmp_AForNext(a5)	Buffer for/next
+	move.l	a0,TabBas(a5)		Haut des tableaux
+	lea	0(a0,d1.w),a6		A6= Varloc= Debut Variables locales
+	moveq	#1,d6			Pour les erreurs
+; Cree la table
+	moveq	#0,d0
+	move.b	(a1)+,d0		Une table?
+	bpl.s	.Table
+	rts
+.Table	or.w	#$0400,d0
+	move.l	ChVide(a5),d1
+	move.l	a6,a0
+.Loop	move.w	d0,(a0)+		Met le flag
+	cmp.b	#2,d0
+	bne.s	.Ent
+	move.l	d1,(a0)+		Chaine
+	bra.s	.Next
+.Ent	clr.l	(a0)+			Entier / Float / Tableau
+.Next	move.b	(a1)+,d0
+	bpl.s	.Loop
+	rts
+; Erreur, pas assez de place dans le buffer!
+.Outb	move.l	d0,d3			Demande TROP
+	add.w	#32,d3
+	Rbsr	L_PopP
+	move.l	a0,-(sp)		Adresse d'appel de la procedure
+ 	Rbra	L_Demande		Pour forcer le menage
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ENTREE PROGRAMME : RESERVE / INIT L'ESPACE VARIABLES / DOUBLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrgInD
+; - - - - - - - - - - - - -
+	move.l	d0,Cmp_AdLabels(a5)
+	move.l	a0,Cmp_ListInst(a5)
+	move.l	(sp),(a0)
+	move.l	a2,AData(a5)
+	move.l	a2,PData(a5)
+	move.l	TabBas(a5),a0
+; Verifie la taille
+	move.l	a6,-(a0)		Debut des prochaines vlocales
+	move.w	#$FFFF,-(a0)
+	moveq	#0,d0
+	move.w	(a1)+,d1		Taille du buffer FOR-NEXT
+	move.w	(a1)+,d0		Taille des VARLOC
+	add.w	d1,d0
+	sub.l	d0,a0
+	lea	-8(a0),a2		Adresse minimale, avec securite
+	cmp.l	HiChaine(a5),a2
+	bls.s	.Outb
+	move.l	a0,Cmp_AForNext(a5)	Buffer for/next
+	move.l	a0,TabBas(a5)		Haut des tableaux
+	lea	0(a0,d1.w),a6		A6= Varloc= Debut Variables locales
+	moveq	#1,d6			Pour les erreurs
+; Cree la table
+	moveq	#0,d0
+	move.b	(a1)+,d0		Une table?
+	bpl.s	.Table
+	rts
+.Table	or.w	#$0400,d0
+	move.l	ChVide(a5),d1
+	move.l	a6,a0
+.Loop	cmp.b	#1,d0
+	beq.s	.Dbl
+	cmp.b	#2,d0
+	bne.s	.Ent
+	move.w	d0,(a0)+
+	move.l	d1,(a0)+		Chaine
+	bra.s	.Next
+.Dbl	move.w	#$0801,(a0)+		Flag Double
+	clr.l	(a0)+			Double
+	clr.l	(a0)+
+	bra.s	.Next
+.Ent	move.w	d0,(a0)+		Entier
+	clr.l	(a0)+
+.Next	move.b	(a1)+,d0
+	beq.s	.Ent
+	bpl.s	.Loop
+	rts
+; Erreur, pas assez de place dans le buffer!
+.Outb	move.l	d0,d3			Demande TROP
+	add.w	#32,d3
+	Rbsr	L_PopP
+	move.l	a0,-(sp)		Adresse d'appel de la procedure
+ 	Rbra	L_Demande		Pour forcer le menage
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ROUTINE POP PROC
+;	A0-->	Adresse de retour
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PopP
+; - - - - - - - - - - - - -
+	move.l	(sp)+,a1
+	move.l	Cmp_LowPileP(a5),sp
+	move.l	(sp)+,Cmp_LowPileP(a5)	11
+	move.l	(sp)+,Cmp_LowPile(a5)	10
+	move.l	(sp)+,AData(a5)		9
+	move.l	(sp)+,PData(a5)		8
+	move.w	(sp)+,ErrorOn(a5)	7
+	move.l	(sp)+,ErrorChr(a5)	6
+	move.l	(sp)+,OnErrLine(a5)	5
+	move.l	(sp)+,TabBas(a5)	4
+	move.l	(sp)+,Cmp_ListInst(a5)	!
+	move.l	(sp)+,Cmp_AForNext(a5)	3
+;	move.l	(sp)+,VarLoc(a5)	2= A6
+	move.l	(sp)+,Cmp_AdLabels(a5)	1
+	move.l	(sp)+,a6		0
+	move.l	(sp)+,a0		RTS
+	jmp	(a1)
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	GET LABEL expression
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GetLabelE
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	BufLabel(a5),a0
+	move.l	a0,a2
+	Rjsr	L_LongToDec
+	move.l	a0,d2
+	sub.l	a2,d2
+	Rbra	L_GetLabel
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	GET LABEL alphanumerique
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GetLabelA
+; - - - - - - - - - - - - -
+	move.l	d3,a1
+	move.w	(a1)+,d2
+	Rbeq	L_FonCall
+	cmp.w	#32,d2
+	Rbcc	L_FonCall
+	move.w	d2,d1
+	subq.w	#1,d1
+	move.l	BufLabel(a5),a0
+	move.l	a0,a2
+L58a	move.b	(a1)+,d0
+	cmp.b	#"A",d0
+	bcs.s	L58b
+	cmp.b	#"Z",d0
+	bhi.s	L58b
+	add.b	#32,d0
+L58b	move.b	d0,(a0)+
+	dbra	d1,L58a
+	Rbra	L_GetLabel
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	GET LABEL
+;	D5=	Numero de procedure
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GetLabel
+; - - - - - - - - - - - - -
+	btst	#0,d2
+	beq.s	L59a
+	clr.b	(a0)+
+	addq.w	#1,d2
+* Trouve le label
+L59a	move.w	d5,(a0)+
+	move.w	d2,d3
+	lsr.w	#1,d3
+	addq.w	#2,d2
+	move.l	Cmp_AdLabels(a5),a1
+	move.l	a2,d4
+L59b	move.w	(a1),d1
+	Rbeq	L_FonCall
+	cmp.w	d2,d1
+	bne.s	L59n
+	move.l	d4,a2
+	lea	6(a1),a0
+	move.w	d3,d0
+L59c	cmp.w	(a0)+,(a2)+
+	bne.s	L59n
+	dbra	d0,L59c
+* Trouve!
+	move.l	2(a1),a0
+	rts
+* Label suivant
+L59n	lea	6(a1,d1.w),a1
+	bra.s	L59b
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		DIM
+;		A0=	Adresse variable
+;		D0=	Nombre params
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InDim
+; - - - - - - - - - - - - -
+	tst.l	(a0)			Already dimensionned
+	bne	EAlrDim
+; Recupere et compte les params
+	moveq	#0,d5
+	moveq	#2,d4			Taille des variables
+	move.b	-1(a0),d5		Le flag
+	and.w	#$000F,d5
+	cmp.b	#1,d5			Float?
+	bne.s	.Skip
+	tst.b	MathFlags(a5)		Double?
+	bpl.s	.Skip
+	moveq	#3,d4			Variables sur 8 octets!
+.Skip	moveq	#1,d3
+	move.w	d0,d2
+	move.l	Buffer(a5),a2
+	move.b	d0,(a2)+		Nombre de dimensions
+	move.b	d4,(a2)+		Taille des variables
+Dim1:	move.l	(a3)+,d1		Fabrique l'entete
+	cmp.l	#$FFFF,d1
+	Rbcc	L_FonCall
+	move.w	d1,(a2)+
+	move.w	d3,(a2)+
+	addq.w	#1,d1
+	mulu	d1,d3
+	cmp.l	#$10000,d3
+	Rbcc	L_FonCall
+	subq.w	#1,d0
+	bne.s	Dim1
+	lsl.l	d4,d3			Taille du tableau
+	move.l	d3,d4
+	Rbeq	L_FonCall
+	lsr.l	#2,d4			Nombre de mots long a nettoyer
+	add.l	a2,d3
+	sub.l	Buffer(a5),d3		Plus taille du header
+	move.l	TabBas(a5),a2		Descend le bas tableaux
+	sub.l	d3,a2
+	cmp.l	HiChaine(a5),a2
+	bcc.s	DimM1
+	movem.l	a0-a1/d0-d1,-(sp)
+	Rbsr	L_Menage
+	movem.l	(sp)+,a0-a1/d0-d1
+	cmp.l	HiChaine(a5),a2
+	Rbcs	L_OOfBuf
+DimM1	move.l	a2,(a0)			Stocke l'adresse du tableau
+	move.l	a2,TabBas(a5)
+	move.l	Buffer(a5),a0		Copie l'entete
+	move.w	(a0)+,(a2)+
+DimM2	move.l	(a0)+,(a2)+
+	subq.w	#1,d2
+	bne.s	DimM2
+* Nettoie le tableau
+	moveq	#0,d0
+	cmp.w	#2,d5
+	bne.s	Dim5
+	move.l	ChVide(a5),d0
+Dim5:	move.l	d0,(a2)+
+	subq.l	#1,d4
+	bne.s	Dim5
+	rts
+EAlrDim	moveq	#28,d0
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve un element de tableau
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GetTablo
+; - - - - - - - - - - - - -
+	move.l	(a0),d0		Base du tableau
+	Rbeq	L_NonDim
+	move.l	d0,a0
+	move.b	(a0)+,d3	Nombre de dims
+	move.b	(a0)+,d4	Taille des variables
+	moveq	#0,d0
+	moveq	#0,d2
+GetT1	move.w	(a0)+,d0
+	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	Rbhi	L_FonCall
+	mulu	(a0)+,d1
+	add.l	d1,d2
+	subq.b	#1,d3
+	bne.s	GetT1
+	lsl.l	d4,d2
+	add.l	d2,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;					=ARRAY$(a$(0))
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnArray
+; - - - - - - - - - - - - -
+	move.l	(a0),d3
+	Rbeq	L_NonDim
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	=FN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FnFn
+; - - - - - - - - - - - - -
+	move.l	(a0),d1		Adresse de la routine
+	beq	EFnNDef
+	move.l	d1,a2
+	move.w	d0,-(sp)	Nombre de parametres
+	beq.s	L955e
+L955a	jsr	(a2)		Appel du parametres
+	cmp.w	(a3)+,d2	Compare avec le type demande
+	beq.s	L955d
+	move.l	a0,-(sp)
+	tst.b	d2
+	bne.s	L955b
+	Rjsrt	L_FlToInt2
+	bra.s	L955c
+L955b	Rjsrt	L_IntToFl2
+L955c	move.l	(sp)+,a0
+L955d	cmp.b	#1,d2
+	bne.s	.Ent
+	tst.b	MathFlags(a5)	Double
+	bpl.s	.Ent
+	movem.l	(a3)+,d3/d4
+	move.l	d3,(a0)+	Egalisation
+	move.l	d4,(a0)
+	bra.s	.Next
+.Ent	move.l	(a3)+,(a0)
+.Next	subq.w	#1,(sp)		Encore un parametre
+	bne.s	L955a
+L955e	addq.l	#2,sp
+	jmp	(a2)		Branche a la routine
+EFnNDef	moveq	#15,d0
+	Rbra	L_GoError
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SWAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InSwap
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a1		En entier/float/chaine
+	move.l	(a0),d0
+	move.l	(a1),(a0)
+	move.l	d0,(a1)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InSwapD
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a1
+	move.l	(a0),d0
+	move.l	(a1),(a0)+
+	move.l	d0,(a1)+
+	move.l	(a0),d0
+	move.l	(a1),(a0)
+	move.l	d0,(a1)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MAX / MIN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnMax
+; - - - - - - - - - - - - - - - -
+	cmp.l	(a3),d3
+	bge.s	.Skip
+	move.l	(a3),d3
+.Skip	addq.l	#4,a3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnMaxS
+; - - - - - - - - - - - - -
+	move.l	(a3),-(a3)
+	Rbsr	L_Chaine_Compare
+	ble.s	.Skip
+	move.l	(a3),d3
+.Skip	addq.l	#4,a3
+	rts
+; - - - - - - - - - - - - - - - -
+	Lib_Cmp FnMin
+; - - - - - - - - - - - - - - - -
+	cmp.l	(a3),d3
+	ble.s	.Skip
+	move.l	(a3),d3
+.Skip	addq.l	#4,a3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnMinS
+; - - - - - - - - - - - - -
+	move.l	(a3),-(a3)
+	Rbsr	L_Chaine_Compare
+	ble.s	.Skip
+	move.l	(a3),d3
+.Skip	addq.l	#4,a3
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						INC + DEC
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InAdd4
+; - - - - - - - - - - - - - - - -
+	move.l	(a0),d0
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	add.l	(a3)+,d0
+	cmp.l	d1,d0
+	blt.s	IAdd4m
+	cmp.l	d2,d0
+	bgt.s	IAdd4p
+	move.l	d0,(a0)
+	rts
+IAdd4m:	move.l	d2,(a0)
+	rts
+IAdd4p:	move.l	d1,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						SORT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InSort
+; - - - - - - - - - - - - - - - -
+	Rbsr 	L_GTablo       	;va chercher les caracteristiques du tableau
+        move.l 	d6,d3
+or4:    lsr.l 	#1,d3         	;E=d3
+        beq 	XSort
+	moveq 	#1,d5         	;NA=d5
+or5:    move.l 	d5,d4        	;NR=d4 -> NR=NA
+or6:    movem.l	d3-d6/a1,-(sp)
+        move.l 	a1,a0
+        subq.l 	#1,d4
+	move.l	d4,d0
+	move.l	d3,d1
+	Rbsr	L_AdSort
+	movem.l	a0/a1/d2,-(sp)
+	movem.l	(a0),d0-d1
+	movem.l	(a1),d3-d4
+	Rbsr	L_CpBis
+	movem.l	(sp)+,a0/a1/d2
+  	bge.s	or8
+; fait le swap
+        move.l 	(a0),d0
+        move.l 	(a1),(a0)
+        move.l 	d0,(a1)
+	cmp.b	#3,d7
+	bne.s	.Skip
+	move.l	4(a0),d0
+	move.l	4(a1),4(a0)
+	move.l	d0,4(a1)
+.Skip	movem.l (sp)+,d3-d6/a1
+        sub.l 	d3,d4         	;NR=NR-E
+        beq.s 	or9
+        bcc.s 	or6
+        bra.s 	or9
+or8:    movem.l (sp)+,d3-d6/a1
+or9:    addq.l 	#1,d5        	;NA=NA+1
+        move.l 	d6,d0
+        sub.l 	d3,d0
+        cmp.l 	d0,d5
+        bls.s 	or5
+        bra.s 	or4
+XSort	Rjsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;						=MATCH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnMatch
+; - - - - - - - - - - - - - - - -
+	Rbsr	L_GTablo
+	cmp.b	#3,d7
+	beq.s	.Dble
+	move.l	(a3)+,d3
+	bra.s	di3
+.Dble	movem.l	(a3)+,d3/d4
+; recherche!
+di3:    moveq	#0,d5
+        move.l 	d6,d1
+        lsr.l	#1,d6
+di4:    movem.l a1/d1-d7,-(sp)
+        add.l 	d6,d5
+	move.l	d5,d1
+	move.l	a1,a0
+	moveq	#0,d0
+	Rbsr	L_AdSort
+	movem.l	(a1),d0-d1
+	Rbsr	L_CpBis
+	movem.l	(sp)+,a1/d1-d7
+        beq.s 	di11
+        blt.s	di5
+	add.l 	d6,d5
+di5:    tst.l 	d6
+        beq.s 	di7
+        lsr.l 	#1,d6
+        bra.s 	di4
+; pas trouve: cherche le premier element superieur
+di7:    cmp.l 	d1,d5
+        bcc.s 	di8
+        movem.l a1/d1-d7,-(sp)
+	move.l	d5,d1
+	move.l	a1,a0
+	moveq	#0,d0
+	Rbsr	L_AdSort
+	movem.l	(a1),d0-d1
+	Rbsr	L_CpBis
+        movem.l (sp)+,a1/d1-d7
+        beq.s 	di11
+        blt.s 	di8
+        addq.l 	#1,d5
+        bra.s 	di7
+di8:    move.l 	d5,d3
+        addq.l 	#1,d3
+        neg.l 	d3
+	bra.s	di12
+; trouve!
+di11:   move.l 	d5,d3
+        add.l 	d6,d3
+; Sortie
+di12	Rjsr	L_LoadRegs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve les parametres tableau pour SORT et FIND
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	GTablo
+; - - - - - - - - - - - - -
+GTablo	Rjsr	L_SaveRegs
+	move.l	(a0),d0
+	Rbeq	L_NonDim
+	move.l	d0,a0
+	move.b	(a0)+,d0		Nombre de dims
+	move.b	(a0)+,d7		Taille des variables
+	moveq	#0,d1
+	moveq	#1,d6
+L957a	addq.l	#4,a3
+	move.w	(a0)+,d1
+	addq.w	#1,d1
+	mulu	d1,d6
+	addq.l	#2,a0
+	subq.b	#1,d0
+	bne.s	L957a
+	move.l	a0,a1
+	rts
+* Trouve l'adresse D0/D1 >>> A0/A1
+; - - - - - - - - - - - - -
+	Lib_Cmp	AdSort
+; - - - - - - - - - - - - -
+	lsl.l	d7,d0
+	add.l	d0,a0
+	move.l	a0,a1
+	lsl.l	d7,d1
+	add.l	d1,a1
+	rts
+* Comparaison pour SORT/FIND
+; - - - - - - - - - - - - -
+	Lib_Cmp	CpBis
+; - - - - - - - - - - - - -
+	cmp.b	#1,d2
+	beq.s	.Flt
+	bcs.s	.Ent
+	move.l	d0,-(a3)			Chaine
+	Rbra 	L_Chaine_Compare
+.Ent	cmp.l 	d0,d3				Entier
+	rts
+.Flt	cmp.b	#3,d7
+	beq.s	.Dble
+	move.l	d0,-(a3)
+	Rjmp	L_Float_Compare
+.Dble	movem.l	d0-d1,-(a3)
+	Rjmp	L_Float_Compare
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	READ
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InRead
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)		Read ENTIERS
+	move.l	PData(a5),a2
+	jsr	(a2)
+	Rbmi	L_OOfData
+	cmp.l	#EntNul,d3
+	beq.s	L975a
+	subq.b	#1,d2
+	bmi.s	L975b
+	Rbne	L_TypeMis
+	Rjsrt	L_FlToInt1
+	bra.s	L975b
+L975a	moveq	#0,d3
+L975b	move.l	(sp)+,a0
+	move.l	d3,(a0)
+	move.l	a2,PData(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InReadF
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)		Pour les float
+	move.l	PData(a5),a2
+	jsr	(a2)
+	Rbmi	L_OOfData
+	cmp.l	#EntNul,d3
+	beq.s	L976a
+	subq.b	#1,d2
+	beq.s	L976b
+	Rbpl	L_TypeMis
+	Rjsrt	L_IntToFl1
+	bra.s	L976b
+L976a	moveq	#0,d3
+	moveq	#0,d4
+L976b	move.l	(sp)+,a0
+	move.l	d3,(a0)+
+	tst.b	MathFlags(a5)
+	bpl.s	.Skip
+	move.l	d4,(a0)
+.Skip	move.l	a2,PData(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InReadS
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)		Pour les chaines
+	move.l	PData(a5),a2
+	jsr	(a2)
+	Rbmi	L_OOfData
+	cmp.l	#EntNul,d3
+	beq.s	L977a
+	cmp.b	#2,d2
+	beq.s	L977b
+	Rbra	L_TypeMis
+L977a	move.l	ChVide(a5),d3
+L977b	move.l	(sp)+,a0
+	move.l	d3,(a0)
+	move.l	a2,PData(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	RESTORE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InRestore
+; - - - - - - - - - - - - -
+	move.l	AData(a5),PData(a5)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRestore1
+; - - - - - - - - - - - - -
+	lea	4(a0),a0
+	cmp.w	#$4E71,(a0)		* (NOP)
+	bne.s	.Err
+	move.l	a0,PData(a5)
+	rts
+.Err	moveq	#41,d0			No data
+	Rbra	L_GoError
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source:	Diskio.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FIELD
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InField
+; - - - - - - - - - - - - -
+	exg	d0,d3
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+; Reserve la memoire necessaire
+	move.w	d3,d0
+	mulu	#6,d0
+	addq.l	#8,d0
+	SyCall	MemFastClear
+	Rbeq	L_OOfMem
+	move.l	a0,FhF(a2)
+	move.l	a0,a1
+	move.w	d3,d0
+	lsl.w	#3,d0
+	add.w	d0,a3
+	move.l	a3,-(sp)
+	lea	8(a1),a0
+	move.w	d3,(a1)
+	subq.w	#1,d3
+	moveq	#0,d2
+Fld2	move.l	-(a3),d0
+	beq	FldFonc
+	add.l	d0,d2
+	cmp.l	#String_Max,d2
+	bcc	FldFonc
+	move.w	d0,(a0)+
+	move.l	-(a3),(a0)+
+	dbra	d3,Fld2
+	move.w	d2,2(a1)
+* Taille du fichier
+	move.l	(sp)+,a3
+	move.l	a1,-(sp)
+	move.l	FhA(a2),d1
+	moveq	#0,d2
+	moveq	#1,d3
+	DosCall	_LVOSeek
+	move.l	FhA(a2),d1
+	moveq	#0,d2
+	moveq	#-1,d3
+	DosCall	_LVOSeek
+	move.l	(sp)+,a1
+	move.l	d0,4(a1)
+	rts
+; FonCall field!
+FldFonc	Rjsr	L_Cloa1
+	Rbra	L_FonCall
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;			LINE INPUT FICHIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InLineInputH
+; - - - - - - - - - - - - -
+	clr.w	-(sp)
+	move.l	d3,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	move.l	a2,PrintFile(a5)
+	moveq	#0,d3
+	Rbra	L_Input
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;			INPUT FICHIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InInputH
+; - - - - - - - - - - - - -
+	move.w	#",",-(sp)
+	move.l	d3,d0
+	Rbsr	L_GetFile
+	Rbeq	L_FilNO
+	move.l	a2,PrintFile(a5)
+	moveq	#0,d3
+	Rbra	L_Input
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INPUT CLAVIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InInput
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.w	#",",-(sp)
+	clr.l	PrintFile(a5)
+	Rbra	L_Input
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	LINE INPUT CLAVIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InLineInput
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	clr.w	-(sp)
+	clr.l	PrintFile(a5)
+	Rbra	L_Input
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INPUT!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Input
+; - - - - - - - - - - - - -
+	move.l	d3,-(sp)		Chaine a imprimer
+	move.w	d5,d0			Nombre de variables
+	mulu	#6,d0
+	add.w	d0,a3
+	clr.l	DeFloat(a5)
+IInp0	movem.l	a3/d5,-(sp)
+	move.l	Buffer(a5),a0
+	clr.b	(a0)
+	tst.l	PrintFile(a5)
+	bne.s	ReDInp
+; Imprimer la chaine
+	move.l 	8(sp),d0
+	beq.s	L111a
+	move.l	d0,a2
+        move.w 	(a2)+,d2
+        beq.s 	ReInp
+	move.b	0(a2,d2.w),d3
+	clr.b	0(a2,d2.w)
+	move.l	a2,a1
+	WiCall	Print
+	move.b	d3,0(a2,d2.w)
+	bra.s	ReInp
+; Imprime le ?
+L111a   moveq	#"?",d1
+	WiCall	ChrOut
+	moveq	#" ",d1
+	WiCall	ChrOut
+; Rempli le buffer!
+ReInp:
+* Clavier
+	lea	Es_LEd(a5),a0
+	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	move.l	a1,a2
+	move.w	#(1<<LEd_FCursor)|(1<<LEd_FTests)|(1<<LEd_FMulti),d0
+	moveq	#0,d1			Curseur � zero
+	move.w	#256,d2			256 caracteres maxi
+	moveq	#-1,d3			Largeur maxi
+	Rjsr	L_LEd_Init
+	Rbne	L_FonCall		Trop � droite...
+	Rjsr	L_LEd_Loop
+	move.l	d0,d3
+	tst.w	d2
+	bpl.s	InnPut
+	Rbra	L_InStop
+* Fichier!
+ReDInp:
+	move.l	PrintFile(a5),a2
+	move.l	Buffer(a5),a1
+	clr.b	(a1)
+	moveq	#0,d1
+	move.w	12(sp),d2
+	move.b	ChrInp+1(a5),d3
+	move.b	ChrInp(a5),d4
+	bra.s	InpD1
+InpD0	move.b	d0,(a1)+
+	addq.w	#1,d1
+	cmp.w	#1000,d1
+	Rbcc	L_InpTL
+InpD1	Rbsr	L_GetByte
+	cmp.b	d0,d2			* Stop aux virgules
+	beq.s	InpD2
+	cmp.b	d0,d3			* Premier caractere?
+	bne.s	InpD0
+ 	tst.b	d4			* Sauter le deuxieme?
+	bmi.s	InpD2
+	Rbsr	L_GetByte
+InpD2	clr.b	(a1)
+	move.l	a1,d3
+	sub.l	Buffer(a5),d3		* Nombre de caracteres -> D3
+
+;	INPUT/LINE INPUT: interprete le buffer!
+InnPut:	move.l	Buffer(a5),a2
+Inn1:	move.w	-2(a3),d2
+	cmp.b	#2,d2
+	bne.s	Inn5
+* Variable alphanumerique
+	move.l	-6(a3),a0
+	move.l	ChVide(a5),(a0)		* Libere la memoire!
+	tst.l	d3
+	beq	Inn10
+	Rbsr	L_DDemande
+	addq.l	#2,a0
+	move.b	12+1(sp),d1
+Inn2:	move.b	(a2)+,d0
+	move.b	d0,(a0)+
+	beq.s	Inn3
+	cmp.b	d0,d1
+	bne.s	Inn2
+Inn3:	subq.l	#1,a0
+	subq.l	#1,a2
+	move.l	a0,d0
+	sub.l	a1,d0
+	subq.l	#2,d0
+	move.w	d0,(a1)
+	btst	#0,d0
+	beq.s	Inn4
+	addq.l	#1,a0
+Inn4:	move.l	a0,HiChaine(a5)
+	move.l	-6(a3),a0
+	move.l	a1,(a0)
+	bra.s	Inn10
+* Variable numerique
+Inn5:	move.l	a2,a0
+	moveq	#1,d0			Tenir compte du signe
+	move.w	-2(a3),d2		Le type desire
+	Rjsr	L_ValRout
+	move.l	a0,a2
+	move.b	(a2),d0			Caractere de fin
+	beq.s	Inn6			Zero=> ok
+	cmp.b	12+1(sp),d0		Ou stop
+	bne	InnRedo
+Inn6	move.l	-6(a3),a0		Adresse de la variable
+	move.l	d3,(a0)			Poke!
+	move.w	-2(a3),d0		Type= float?
+	beq.s	Inn10
+	tst.b	MathFlags(a5)		Double?
+	bpl.s	Inn10
+	move.l	d4,4(a0)		Oui, poke double!
+; Encore une variable a prendre???
+Inn10:	subq.l	#6,a3
+	subq.w	#1,d5
+	beq.s	Inn11
+	cmp.b	#",",(a2)+
+	beq	Inn1
+* ??
+	tst.l	PrintFile(a5)
+	bne	ReDInp
+	WiCalA	Print,InnEnc(pc)
+	move.l	Buffer(a5),a0
+	clr.b	(a0)
+	bra	ReInp
+* Fini!
+Inn11:	movem.l	(sp)+,a3/d5
+	addq.l	#6,sp
+	Rbsr	L_EndByte
+	rts
+* Redo from start
+InnRedo
+	Rbsr	L_EndByte
+	tst.l	PrintFile(a5)
+	Rbne	L_TypeMis
+	Rbsr	L_CRet
+	moveq	#15,d0
+	Rjsr	L_Def_GetMessage
+	move.l	a0,a1
+	WiCall	Print
+	Rbsr	L_CRet
+	movem.l	(sp)+,a3/d5
+	bra	IInp0
+InnEnc:	dc.b	13,10,"?? ",0
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;			Retour chariot
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CRet
+; - - - - - - - - - - - - -
+	WiCalA	Print,InnRet(pc)
+	rts
+InnRet:	dc.b 	13,10,0,0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;      	DEBUT PRINT H
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InPrintH
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetFile
+	tst.l	FhA(a2)
+	Rbeq	L_FilNO
+	btst	#0,FhT(a2)
+	Rbeq	L_FilTM
+	cmp.w	#1,d0
+	Rbeq	L_FilTM
+	move.l	a2,PrintFile(a5)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	IMPRESSION d'un chiffre ENTIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrintE
+; - - - - - - - - - - - - -
+	move.l 	d3,d0
+	moveq	#-1,d3         		;proportionnel
+        moveq 	#1,d4         		;avec signe
+        move.l 	Buffer(a5),a0
+        Rjsr 	L_LongToAsc
+        clr.b 	(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	      	IMPRESSION d'un chiffre FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrintF
+; - - - - - - - - - - - - -
+	move.l 	Buffer(a5),a0
+	Rjsr	L_Float2Ascii
+	clr.b	(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	      	IMPRESSION d'une chaine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrintS
+; - - - - - - - - - - - - -
+	move.l 	d3,a2
+        move.w 	(a2)+,d2
+L35r:   move.l	Buffer(a5),a0
+	beq.s	L35c
+	move.w	#255,d0
+L35a:   move.b 	(a2)+,(a0)+
+        subq.w 	#1,d2
+        beq.s 	L35c
+        dbra 	d0,L35a
+L35b	movem.l	a2/d2,-(sp)
+	Rbsr 	L_PrintX
+	movem.l	(sp)+,a2/d2
+	tst.w	d2
+	bra.s	L35r
+L35c	clr.b	(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	FIN IMPRESSION NORMALE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrintX
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a1
+	WiCall	Print
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	FIN IMPRESSION NORMALE IMPRIMANTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	LPrintX
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	Rbra	L_PRT_Print
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;      	PRINT seul
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CRPrint
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	move.l	#$0D0A0000,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	      	IMPRESSION d'une chaine dans un fichier
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	HPrintS
+; - - - - - - - - - - - - -
+	move.l 	d3,a0
+	moveq	#0,d3
+	move.w	(a0)+,d3
+	beq.s	L825x
+	move.l	a0,d2
+	move.l	PrintFile(a5),a0
+	move.l	FhA(a0),d1
+	DosCall	_LVOWrite
+	cmp.l	d0,d3
+	Rbne	L_DiskError
+L825x	move.l	Buffer(a5),a0
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	      	PRINT RETOUR CHARIOT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrtRet
+; - - - - - - - - - - - - -
+	move.b	#13,(a0)+
+	move.b	#10,(a0)+
+	clr.b	(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	      	PRINT VIRGULE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	PrtVir
+; - - - - - - - - - - - - -
+	move.b	#9,(a0)+
+	clr.b	(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;			FIN IMPRESSION NORMALE dans un fichier
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	HPrintX
+; - - - - - - - - - - - - -
+	move.l	PrintFile(a5),a1
+	move.l	FhA(a1),d1
+	move.l	Buffer(a5),d2
+	move.l	a0,d3
+	sub.l	d2,d3
+	DosCall DosWrite
+	cmp.l	d0,d3
+	Rbne	L_DiskError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	USING CHIFFRES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	UsingC
+; - - - - - - - - - - - - -
+	move.l 	(a3)+,a0		Chaine de formattage
+	movem.l	a3/d6/d7,-(sp)
+        move.l 	Buffer(a5),a1
+        lea 	256(a1),a1
+        move.w 	(a0)+,d0
+        beq.s 	l41a3
+        cmp.w 	#127,d0
+        bcs.s 	l41a1
+        moveq 	#127,d0
+l41a1:  subq.w 	#1,d0
+l41a2:  move.b 	(a0)+,(a1)+
+        dbra 	d0,l41a2
+l41a3:  clr.b 	(a1)
+; USING pour les CHIFFRES
+        move.l 	Buffer(a5),a1
+        lea 	128(a1),a2
+        moveq 	#127,d0
+us2:    move.b 	(a1),(a2)+   ;recopie la chaine, et fait le menage!!!
+        move.b 	#32,(a1)+
+        dbra 	d0,us2
+        move.l 	Buffer(a5),a0
+        lea 	128(a0),a1      ;a1 pointe la chaine
+        move.l 	a1,d6        ;debut chaine a formatter
+        move.l 	Buffer(a5),a2
+        lea 	256(a2),a2    ;a2 pointe la chaine de definition
+        move.l 	a2,d7        ;debut chaine de format
+us3:    move.b 	(a2),d0
+        beq.s 	us5
+        cmp.b 	#".",d0       ;cherche la fin du format de chiffre
+        beq.s 	us5
+        cmp.b 	#";",d0
+        beq.s 	us5
+        cmp.b 	#"^",d0
+        beq.s 	us5
+        addq.l 	#1,a0
+        addq.l 	#1,a2
+        bra.s 	us3
+us5:    move.b (a1),d0
+        beq.s 	us6
+        cmp.b 	#".",d0       ;trouve le point de la chaine a formatter
+        beq.s 	us6             ;ou la fin
+        cmp.b 	#"E",d0
+        beq.s 	us6
+        addq.l	#1,a1
+        bra.s 	us5
+us6:    movem.l a0-a2,-(sp)
+; ecris la gauche du chiffre
+us7:    cmp.l 	d7,a2         ;fini a gauche???
+        beq 	us15
+        move.b 	-(a2),d0
+        cmp.b 	#"#",d0
+        beq.s 	us8
+        cmp.b 	#"-",d0
+        beq.s 	us11
+        cmp.b 	#"+",d0
+        beq.s 	us12
+        move.b 	d0,-(a0)     ;aucun signe reserve: le met simplement!
+        bra.s 	us7
+us8:    cmp.l 	d6,a1         ;-----> "#"
+        bne.s 	us10
+us9:    move.b 	#" ",-(a0)   ;arrive au debut du chiffre!
+        bra.s 	us7
+us10:   move.b 	-(a1),d0
+        cmp.b 	#"0",d0       ;pas un chiffre (signe)
+        bcs.s 	us9
+        cmp.b 	#"9",d0
+        bhi.s 	us9
+        move.b 	d0,-(a0)     ;OK, chiffre: poke!
+        bra.s 	us7
+us11:   move.l 	d6,a3        ;-----> "-"
+        move.b 	(a3),-(a0)   ;met le "signe": 32 ou "-"
+        bra.s 	us7
+us12:   move.l 	d6,a3
+        move.b 	(a3),d0
+        cmp.b 	#"-",d0
+        beq.s 	us13
+        move.b 	#"+",d0
+us13:   move.b 	d0,-(a0)     ;-----> "+"
+        bra 	us7
+; ecrit la droite du chiffre
+us15:   movem.l (sp)+,a0-a2 ;recupere les adresses pivot
+        clr.l 	d2            ;flag puissance
+        cmp.b 	#".",(a1)     ;saute le point dans le chiffre a afficher
+        bne.s 	us16
+        addq.l 	#1,a1
+us16:   move.b 	(a2)+,d0
+        beq 	finus         ;fini OUF!
+        cmp.b 	#";",d0       ;";" marque la virgule sans l'ecrire!
+        beq.s 	us18z
+        cmp.b 	#"#",d0
+        beq.s 	us17
+        cmp.b 	#"^",d0
+        beq.s 	us20
+        move.b 	d0,(a0)+     ;ne correspond a rien: POKE!
+        bra.s 	us16
+us17:   move.b 	(a1),d0      ;-----> "#"
+        bne.s	us19
+us18:   tst 	d2
+        beq.s 	us18a
+us18z:  move.b 	#" ",(a0)+   ;si puissance passee: met des espaces
+        bra.s 	us16
+us18a:  move.b 	#"0",(a0)+   ;fin du chiffre: met un zero apres la virgule
+        bra.s 	us16
+us19:   cmp.b 	#"0",d0
+        bcs.s 	us18
+        cmp.b 	#"9",d0
+        bhi.s 	us18
+        addq.l 	#1,a1
+        move.b 	d0,(a0)+
+        bra 	us16
+us20:   tst 	d2              ;-----> "^"
+        bmi.s 	us24
+        bne.s 	us25
+us21:   move.b 	(a1),d0
+        beq.s 	us22
+        cmp.b 	#"E",d0
+        beq.s 	us23
+        addq.l	#1,a1
+        bra.s 	us21
+us22:   moveq	#1,d2          ;pas de puissance: en fabrique une!
+        bra.s 	us25
+us23:   moveq 	#-1,d2
+us24:   move.b 	(a1),d0      ;si fin du chiffre: met des espaces
+        beq 	us18
+        addq.l 	#1,a1
+        cmp.b 	#32,d0        ;saute l'espace entre E et +/-
+        beq.s 	us24
+        move.b 	d0,(a0)+
+        bra 	us16
+us25:   lea 	usip(pc),a3
+        move.b 	-1(a3,d2.w),(a0)+ ;met une fausse puissance!
+        cmp.b	#6,d2
+        beq	us16
+        addq 	#1,d2
+        bra 	us16
+finus:  movem.l	(sp)+,a3/d6/d7
+	clr.b 	(a0)
+        rts
+usip:   dc.b 	"E+000  "
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	      	USING CHAINES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	UsingS
+; - - - - - - - - - - - - -
+	move.l 	d3,a0			Chaine � formater
+        move.l 	Buffer(a5),a1
+	lea	128(a1),a1
+        move.w 	(a0)+,d0
+        beq.s 	l42c
+        cmp.w 	#127,d0
+        bcs.s 	l42a
+        moveq 	#127,d0
+l42a	subq.w 	#1,d0
+l42b	move.b 	(a0)+,(a1)+
+        dbra 	d0,l42b
+l42c	clr.b 	(a1)
+
+	move.l 	(a3)+,a0		* Chaine de formatage
+        move.l 	Buffer(a5),a1
+        lea 	256(a1),a1
+        move.w 	(a0)+,d0
+        beq.s 	l42a3
+        cmp.w 	#127,d0
+        bcs.s 	l42a1
+        moveq 	#127,d0
+l42a1:  subq.w 	#1,d0
+l42a2:  move.b 	(a0)+,(a1)+
+        dbra 	d0,l42a2
+l42a3:  clr.b 	(a1)
+
+        move.l 	Buffer(a5),a0
+        lea 	128(a0),a1
+        lea 	128(a1),a2
+; ecris la chaine dans le buffer
+us52:   move.b 	(a2)+,d0
+        beq.s 	fnusc
+        cmp.b 	#"~",d0
+        beq.s 	us53
+        move.b 	d0,(a0)+
+        bra.s 	us52
+us53:   move.b 	(a1),d0      ;----> "~"
+        bne.s 	us54
+        move.b 	#32,(a0)+
+        bra.s 	us52
+us54:   addq.l 	#1,a1
+        move.b 	d0,(a0)+
+        bra.s 	us52
+fnusc:  clr.b 	(a0)
+        rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Ecrans.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEFAULT PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InDefaultPalette
+; - - - - - - - - - - - - -
+	lea	DefPal(a5),a0
+	Rbra	L_Plt
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PALETTE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InPalette
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	moveq	#15,d1
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+Pal1:	move.l	#-1,(a1)+
+	dbra	d1,Pal1
+	Rbsr	L_Plt
+	EcCall	SPal
+	Rbne	L_EcWiErr
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	Plt
+; - - - - - - - - - - - - -
+	move.w	d0,d1
+	lsl.w	#2,d1
+	add.w	d1,a3
+	move.l	a3,a2
+	subq.w	#1,d0
+Plt1:	move.l	-(a2),d2
+	bmi.s	Plt2
+	and.w	#$FFF,d2
+	move.w	d2,(a0)
+Plt2:	addq.l	#2,a0
+	dbra	d0,Plt1
+	move.l	Buffer(a5),a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FADE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InFade1
+; - - - - - - - - - - - - -
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+	moveq	#31,d0
+.Loop	clr.w	(a0)+
+	dbra	d0,.Loop
+	Rbra	L_InFade
+; - - - - - - - - - - - - -
+	Lib_Cmp	InFade2
+; - - - - - - - - - - - - -
+	moveq	#-1,d3
+	Rbra	L_InFade3
+; - - - - - - - - - - - - -
+	Lib_Cmp	InFade3
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d1
+	bpl.s	IFat1
+	Rjsr	L_Bnk.GetBobs		<0 -->> sprite palette
+	Rbeq	L_BkNoRes
+	move.w	(a0)+,d0
+	lsl.w	#3,d0
+	lea	0(a0,d0.w),a0
+	bra.s	IFat2
+IFat1	Rjsr	L_GetEc
+	lea	EcPal(a0),a0
+IFat2	Rbsr	L_PalRout
+	Rbra	L_InFade
+; - - - - - - - - - - - - -		Fade a,b,c,d
+	Lib_Cmp	InFadePal
+; - - - - - - - - - - - - -
+	moveq	#15,d1
+	move.l	Buffer(a5),a0
+	move.l	a0,a1
+IFap	move.l	#-1,(a1)+
+	dbra	d1,IFap
+	Rbsr	L_Plt
+	Rbra	L_InFade
+; - - - - - - - - - - - - -
+	Lib_Cmp	InFade
+; - - - - - - - - - - - - -		Lance le fade
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.l	(a3)+,d1
+	Rbls	L_FonCall
+	EcCall	FadeOn
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	POLYLINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InPolyline
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.w	d0,d3
+	lsl.w	#3,d0
+	add.w	d0,a3
+	move.l	a3,a2
+	move.l	T_RastPort(a5),a1
+	move.l	Buffer(a5),a0
+	moveq	#0,d0
+	tst.w	d1
+	bne.s	L315a
+	move.w	36(a1),d1
+	move.w	38(a1),d2
+	addq.w	#1,d3
+	bra.s	L315b
+L315a	move.l	-(a2),d1
+	move.l	-(a2),d2
+L315b	move.w	d1,(a0)+
+	move.w	d2,(a0)+
+	addq.w	#1,d0
+	subq.w	#1,d3
+	bne.s	L315a
+	move.l	Buffer(a5),a0
+	move.w	(a0),36(a1)
+	move.w	2(a0),38(a1)
+	move.w	#PolyDraw,d5
+	Rjmp	L_GfxFunc
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	POLYGON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InPolygon
+; - - - - - - - - - - - - -
+	tst.w	ScOn(a5)
+	Rbeq	L_ScNOp
+	move.w	d0,d5
+	move.w	d1,d4
+
+; Initialise le buffer AREADRAW
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	AAreaInfo(a5),a0
+	lea	AAreaBuf(a5),a1
+	moveq	#AAreaSize,d0
+	move.l	T_RastPort(a5),a2
+	move.l	a0,16(a2)
+	GfxCa5	InitArea
+
+	move.w	d5,d0
+	lsl.w	#3,d0
+	add.w	d0,a3
+	move.l	a3,a0
+	move.l	T_RastPort(a5),a1
+	move.l	Buffer(a5),a2
+	tst.w	d4
+	beq.s	L341a
+	move.l	-(a0),d0
+	move.l	-(a0),d1
+	subq.w	#1,d5
+	bra.s	L341b
+L341a	move.w	36(a1),d0
+	move.w	38(a1),d1
+L341b	GfxCa5	AreaMove
+L341c	move.l	-(a0),d0
+	move.l	-(a0),d1
+	GfxCa5	AreaDraw
+	subq.w	#1,d5
+	bne.s	L341c
+	Rjsr	L_GetRas
+	GfxCa5	AreaEnd
+	Rjmp	L_FreeRas
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	CHANNEL x TO SPRITE x
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	ChannelToSprite
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	moveq	#64,d1
+	Rbra	L_InChannel
+; - - - - - - - - - - - - -
+	Lib_Cmp	ChannelToBob
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	moveq	#64,d1
+	Rbra	L_InChannel
+; - - - - - - - - - - - - -
+	Lib_Cmp	ChannelToSDisplay
+; - - - - - - - - - - - - -
+	moveq	#2,d0
+	moveq	#8,d1
+	Rbra	L_InChannel
+; - - - - - - - - - - - - -
+	Lib_Cmp	ChannelToSSize
+; - - - - - - - - - - - - -
+	moveq	#3,d0
+	moveq	#8,d1
+	Rbra	L_InChannel
+; - - - - - - - - - - - - -
+	Lib_Cmp	ChannelToSOffset
+; - - - - - - - - - - - - -
+	moveq	#4,d0
+	moveq	#8,d1
+	Rbra	L_InChannel
+; - - - - - - - - - - - - -
+	Lib_Cmp	ChannelToRainbow
+; - - - - - - - - - - - - -
+	moveq	#6,d0
+	moveq	#4,d1
+	Rbra	L_InChannel
+; - - - - - - - - - - - - -
+	Lib_Cmp	InChannel
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d4
+	cmp.l	#64,d4
+	Rbcc	L_FonCall
+	cmp.l	d1,d3
+	Rbcc	L_FonCall
+	lsl.w	#1,d4
+	lea	AnCanaux(a5),a0
+	move.b	d0,0(a0,d4.w)		* 1 => TYPE
+	move.b	d3,1(a0,d4.w)		* 2 => NUMERO
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	BSETBCLRBCHGBTSTROLROR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InBset
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	bset	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InBset1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	bset	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InBclr
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	bclr	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InBclr1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	bclr	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InBchg
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	bchg	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InBchg1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	bchg	d0,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnBtst
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	btst	d0,d1
+	Rbne	L_FnTrue
+	Rbra	L_FnFalse
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnBtst1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	btst	d0,(a0)
+	Rbne	L_FnTrue
+	Rbra	L_FnFalse
+
+
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRorB
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.b	3(a0),d1
+	ror.b	d0,d1
+	move.b	d1,3(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRorB1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	move.b	(a0),d1
+	ror.b	d0,d1
+	move.b	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRorW
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.w	2(a0),d1
+	ror.w	d0,d1
+	move.w	d1,2(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRorW1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	move.w	(a0),d1
+	ror.w	d0,d1
+	move.w	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRorL
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	ror.l	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRorL1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	ror.l	d0,d1
+	move.l	d1,(a0)
+	rts
+
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRolB
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.b	3(a0),d1
+	rol.b	d0,d1
+	move.b	d1,3(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRolB1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	move.b	(a0),d1
+	rol.b	d0,d1
+	move.b	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRolW
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.w	2(a0),d1
+	rol.w	d0,d1
+	move.w	d1,2(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRolW1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	move.w	(a0),d1
+	rol.w	d0,d1
+	move.w	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRolL
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	rol.l	d0,d1
+	move.l	d1,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InRolL1
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	(a3)+,d0
+	move.l	(a0),d1
+	rol.l	d0,d1
+	move.l	d1,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	CALL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InCall
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rjsr	L_Bnk.OrAdr
+	movem.l	d6-d7/a3-a6,-(sp)
+	move.l	a0,a4
+	lea	CallReg(a5),a6
+	move.l	a6,-(sp)
+	movem.l	(a6),d0-d7/a0-a2
+	jsr	(a4)
+.Return	move.l	(sp)+,a6
+	movem.l	d0-d7/a0-a2,(a6)
+	movem.l	(sp)+,d6-d7/a3-a6
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=STRUC=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InStruc
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a0
+	move.l	a0,d1
+	jmp	.Jmp(pc,d0.w)
+.Jmp	bra.s	.Byte
+	bra.s	.Word
+	bra.s	.Long
+	bra.s	.Byte
+	bra.s	.Word
+	bra.s	.Long
+	bra.s	.Long
+.Byte	move.b	d0,(a0)
+	rts
+.Word	btst	#0,d1
+	Rbne	L_AdrErr
+	move.w	d3,(a0)
+	rts
+.Long	btst	#0,d1
+	Rbne	L_AdrErr
+	move.l	d3,(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp FnStruc
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	move.l	d3,d1
+	moveq	#0,d3
+	jmp	.Jmp(pc,d0.w)
+.Jmp	bra.s	.Byte
+	bra.s	.Word
+	bra.s	.Long
+	bra.s	.UByte
+	bra.s	.UWord
+	bra.s	.ULong
+	bra.s	.ULong
+.Byte	move.b	(a0),d3
+	ext.w	d3
+	ext.l	d3
+	rts
+.Word	btst	#0,d1
+	Rbne	L_AdrErr
+	move.w	(a0),d3
+	ext.l	d3
+	rts
+.Long	btst	#0,d1
+	Rbne	L_AdrErr
+	move.l	(a0),d3
+	rts
+.UByte	move.b	(a0),d3
+	rts
+.UWord	btst	#0,d1
+	Rbne	L_AdrErr
+	move.w	(a0),d3
+	rts
+.ULong	btst	#0,d1
+	Rbne	L_AdrErr
+	move.l	(a0),d3
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=STRUC$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InStrucD
+; - - - - - - - - - - - - -
+	move.l	(a3)+,a0
+	move.l	a0,d1
+	btst	#0,d1
+	Rbne	L_AdrErr
+	clr.l	(a0)
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	cmp.l	#"|00|",(a2)
+	beq.s	.Skp
+	moveq	#2,d3
+	add.w	d2,d3
+	Rjsr	L_Demande
+	lea	2(a0,d3.w),a0
+	move.w	a0,d0
+	and.w	#1,d0
+	add.w	d0,a0
+	move.l	a0,HiChaine(a5)
+	move.l	(sp)+,a0
+	move.l	a1,(a0)
+	move.w	d2,(a1)
+	addq.w	#1,(a1)+
+	subq.w	#1,d2
+	bmi.s	.Skp
+.Lop	move.b	(a2)+,(a1)+
+	dbra	d2,.Lop
+	clr.b	(a1)
+.Skp	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp FnStrucD
+; - - - - - - - - - - - - -
+	move.l	d3,a0
+	btst	#0,d3
+	Rbne	L_AdrErr
+	move.l	(a0),d0
+	Rbeq	L_Ret_ChVide
+	move.l	d0,a0
+	Rjsr	L_A0ToChaine
+	move.l	a0,d3
+	rts
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: String.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Demande de l'espace pour les chaines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Demande
+; - - - - - - - - - - - - -
+dem0	move.l 	HiChaine(a5),a0
+        move.l 	a0,a1
+	add.l	d3,a1
+	addq.l	#4,a1
+	cmp.l	TabBas(a5),a1
+	bcc.s	dem1
+	move.l	a0,a1
+        rts
+; Va faire le menage, si revient: OK!
+dem1:	tst.b	ErrorRegs(a5)		Recharger les registres?
+	beq.s	.NoReg
+	movem.l	ErrorSave(a5),d6-d7
+.NoReg	Rbsr 	L_Menage 		Va faire le menage
+; Ca marche maintenant?
+	move.l	HiChaine(a5),a1		Ca marche maintenant?
+	add.l	d3,a1
+	addq.l	#4,a1
+	cmp.l	TabBas(a5),a1
+	bcc	FinMenE
+; Ca a marche, un patch?
+	tst.l	Patch_Menage(a5)
+	bne.s	dem3
+; Que faire?
+	tst.l	d6
+	beq.s	FinMenE			Plus de memoire
+	cmp.l	#-1,d6			Menage simple: revient a l'appelant
+	beq.s	dem0
+; On vient de le faire?
+	Rbsr	L_GetInstruction	Pointe l'instruction
+	cmp.l	d6,a1			La meme que la derniere fois?
+	beq	FinMenE
+	move.l	a1,d6			On stocke
+	move.l	Cmp_LowPile(a5),sp
+	move.l	BasA3(a5),a3
+	jmp	(a1)			On rebranche a l'instruction!
+; Branche au patch
+dem3	move.l	Patch_Menage(a5),a0
+	jmp	(a0)
+; Erreur!
+FinMenE	moveq	#11,d0			Out of buffer space
+	Rbra	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Demande chaine sans erreur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	DDemande
+; - - - - - - - - - - - - -
+	move.l	#-1,d6			Flag pour le menage
+	Rbsr	L_Demande		Va demander
+	moveq	#1,d6			Empeche les erreurs
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENAGE ALPHANUMERIQUE
+;	Taille maximum chaine: 65472 ($FFC0)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Menage
+; - - - - - - - - - - - - -
+	movem.l d1-d7/a2-a6,-(sp)
+
+;	IFNE	Debug>1
+;	movem.l	d0-d7/a0-a6,-(sp)
+;	moveq	#70,d3
+;	JJsrIns	L_InBell1,1
+;	movem.l	(sp)+,d0-d7/a0-a6
+;	ENDC
+;	IFNE	Debug>2
+;	Rjsr	L_PreBug
+;	ENDC
+
+	move.l	a6,VarLoc(a5)
+
+;	Essaie de proceder � un FAST-MENAGE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.l	HiChaine(a5),d7
+	move.l	LoChaine(a5),d6
+	move.l	d7,d0
+	sub.l	d6,d0
+	cmp.l	#$3FFFFE*2,d0			8 Megas maximum!
+	bcc	SLOW_MENAGE
+	move.l	d0,d5
+	SyCall	MemFast
+	beq	SLOW_MENAGE
+
+FAST_MENAGE
+	move.l	a0,a4
+	move.l	a0,a2
+	clr.w	(a2)+
+FfMen0  move.l 	VarLoc(a5),a6			;Debut des variables
+        moveq 	#-1,d2                    	;Maxi dans le tableau
+; Rempli la table intermediaire
+FfMen1	moveq	#0,d4
+.Loop	move.w	(a6)+,d0			Prend le flag
+	beq.s	.Loop				Nul: non initialise!
+	bmi.s	.Proc				Negatif: fin de chunk
+.Var	btst	#1,d0				Une chaine?
+	bne.s	.Alpha
+	lsr.w	#8,d0				Recupere la taille
+	add.w	d0,a6
+	move.w	(a6)+,d0			Suivante
+	beq.s	.Loop
+	bpl.s	.Var
+.Proc	move.l	(a6),d0				Chunk suivant
+	beq	FfMenX				Le dernier?
+	move.l	d0,a6				Non, on boucle!
+	bra.s	.Loop
+; Variable alphanumerique
+.Alpha	move.l	a6,a3
+	move.l	(a6)+,d1
+	beq.s	.Loop				Non initialise!
+	btst 	#6,d0				Un tableau?
+	beq.s 	FfMen4
+	move.l	d1,a3				Un tableau!
+	moveq	#0,d0
+	move.b	(a3)+,d0			Nombre de dimensions
+	addq.l	#1,a3				Taille des variables
+	subq.w 	#1,d0
+	moveq 	#1,d4
+FfMen2	move.w 	(a3)+,d1			Calcule nombre de variable
+	addq.l	#2,a3
+	addq.w	#1,d1
+	mulu	d1,d4
+	dbra 	d0,FfMen2
+	subq.l	#1,d4
+; Recopie la chaine dans le buffer intermediaire
+FfMen4	move.l	(a3),a0
+	cmp.l	d6,a0				Dans le buffer?
+	bcs.s	FfMenN
+	cmp.l	d7,a0
+	bcc.s	FfMenN
+	move.w	(a0),d0				Chaine vide?
+	beq.s	FfMenV
+	move.w	d0,d1
+	and.w	#$FFC0,d1			Chaine deja copiee?
+	cmp.w	#$FFC0,d1
+	beq.s	FfMenD				Deja fait!
+	move.l	a2,d2
+	sub.l	a4,d2
+	move.l	d2,d1
+	add.l	d6,d1
+	move.l	d1,(a3)+			Change le pointeur
+	move.w	d0,(a2)+
+	addq.w	#1,d0
+	lsr.w	#1,d0
+	subq.w	#1,d0
+	lea	2(a0),a1
+FfMen5	move.w	(a1)+,(a2)+
+	dbra	d0,FfMen5
+	lsr.l	#1,d2				/ 2 car pair
+	or.l	#$FFC00000,d2			Masque
+	move.l	d2,(a0)				Marque la chaine...
+FfSuiv	subq.l	#1,d4
+        bpl.s 	FfMen4
+        bmi	FfMen1
+; Chaine deja copiee
+FfMenD	move.l	(a0),d0
+	and.l	#$003FFFFF,d0
+	lsl.l	#1,d0
+	add.l	d6,d0
+	move.l	d0,(a3)+
+	bra.s	FfSuiv
+; Chaine vide
+FfMenV	move.l	ChVide(a5),(a3)+
+	bra.s	FfSuiv
+; Chaine en dehors du buffer
+FfMenN	addq.l	#4,a3
+	bra.s	FfSuiv
+; Recopie le tout dans le buffer
+FfMenX	move.l	a4,a0
+	move.l	d6,a1
+FfMenX1	move.w	(a0)+,(a1)+
+	cmp.l	a2,a0
+	bcs.s	FfMenX1
+	move.l	a1,HiChaine(a5)
+; Libere le buffer temporaire
+	move.l	a4,a1
+	move.l	d5,d0
+	SyCall	MemFree
+	bra	FinMenS
+
+; ------------------------------------------------------------------------
+SLOW_MENAGE
+* Reserve la memoire, ou prend le BUFFER si rien du tout!!!
+	move.l	#TMenage+16,d0
+	SyCall	MemFast
+	bne.s	L47a
+	move.l	#-1,BMenage(a5)
+	move.l	Buffer(a5),d5
+	bra.s	L47b
+L47a	move.l	a0,BMenage(a5)
+	move.l	a0,d5
+* Menage
+L47b   	move.l 	d5,d6
+	add.l 	#TMenage,d6                  	;Fin TI
+	move.l 	LoChaine(a5),d7               	;Ad mini de recopie
+	move.l	HiChaine(a5),a4			;Ad maxi des chaines!
+	addq.l 	#2,d7		  		;Chaine vide
+	move.l 	d7,a1		  		;Si ya pas de variable!
+
+Men0:  	move.l 	VarLoc(a5),a6			;Debut des variables
+        moveq 	#-1,d2                    	;Maxi dans le tableau
+        moveq 	#0,d4                     	;Cpt tableau---> 0
+        move.l 	d5,d3                    	;Rien dans la TI
+        move.l 	d3,a0
+        move.l 	#$7fffffff,(a0)
+; Rempli la table intermediaire
+Men1
+.Loop	move.w	(a6)+,d0			Prend le flag
+	beq.s	.Loop				Nul: non initialise!
+	bmi.s	.Proc				Negatif: fin de chunk
+.Var	btst	#1,d0				Une chaine?
+	bne.s	.Alpha
+	lsr.w	#8,d0				Recupere la taille
+	add.w	d0,a6
+	move.w	(a6)+,d0			Suivante
+	beq.s	.Loop
+	bpl.s	.Var
+.Proc	move.l	(a6),d0				Chunk suivant
+	beq	Men20				Le dernier?
+	move.l	d0,a6				Non, on boucle!
+	bra.s	.Loop
+; Variable alphanumerique
+.Alpha	move.l	a6,a3
+	move.l	(a6)+,d1			Initialise?
+	beq.s	Men1
+	btst 	#6,d0
+	beq.s 	Men4
+	move.l	d1,a3
+	moveq	#0,d0
+	move.b	(a3)+,d0
+	addq.l	#1,a3
+	subq.w 	#1,d0
+	moveq 	#1,d4
+Men2:	move.w 	(a3)+,d1			Calcule nombre de variable
+	addq.l	#2,a3
+	addq.w	#1,d1
+	mulu	d1,d4
+	dbra 	d0,Men2
+Men3:	subq.l 	#1,d4
+; Essai de poker dans la TI
+Men4:   move.l 	(a3),d0
+        cmp.l 	d7,d0                     	;< au minimum?
+        bcs.s 	Men10
+	cmp.l	a4,d0				;Dans le source?
+	bcc.s	Men10
+        cmp.l 	d2,d0                     	;>= au maximum?
+        bcc.s 	Men10
+        move.l 	d5,a0
+Men6:   cmp.l 	(a0),d0
+        lea 	8(a0),a0
+        bcc.s 	Men6
+        cmp.l 	d6,a0
+        bne.s 	Men7
+        move.l 	d0,d2                    	;C'est le dernier element!
+        move.l 	d6,d3
+        bra.s 	Men9
+Men7:   move.l 	d3,a1                    	;Decale les adresses au dessus
+        cmp.l 	d6,d3
+        bcs.s 	Men7a
+        lea 	-8(a1),a1
+        move.l 	-8(a1),d2                	;Remonte la limite haute
+        bra.s 	Men8
+Men7a:  addq.l 	#8,d3
+        move.l 	#$7fffffff,8(a1)
+Men8:   move.l 	-(a1),8(a1)
+        move.l 	-(a1),8(a1)
+        cmp.l 	a0,a1
+        bcc.s 	Men8
+Men9:   move.l 	a3,-(a0)                 	;Poke dans la table
+        move.l 	d0,-(a0)
+Men10:  addq.l	#4,a3
+	tst.l 	d4
+        bne.s 	Men3
+        beq 	Men1
+
+; Recopie toutes les chaines du buffer
+Men20:  move.l 	d5,a3                    	;Adresse TI
+        move.l 	d7,a1                    	;Adresse de recopie
+        moveq 	#0,d7
+Men21:  cmp.l 	d3,a3                     	;Fini-ni?
+        bcc.s 	Men26
+        move.l 	(a3),a0                  	;Adresse de la chaine
+        lea 	8(a3),a3
+        cmp.l 	a0,d7                    	;Chaine deja bougee?
+        beq.s 	Men25
+        move.l 	a0,d7
+        cmp.l 	a0,a1                     	;Au meme endroit?
+        bne.s 	Men22
+; Les 2 chaines sont au meme endroit!
+        move.l 	a1,d1
+	moveq 	#0,d0
+        move.w 	(a1)+,d0
+	add.l 	d0,a1
+        move.w 	a1,d0
+        btst 	#0,d0
+        beq.s 	Men21
+        addq.l 	#1,a1
+        bra.s 	Men21
+; Recopie la chaine
+Men22:  move.l 	-4(a3),a2                	;Change la variable
+        move.l 	a1,(a2)
+        move.l 	a1,d1
+        move.w 	(a0)+,d0                 	;Recopie la chaine
+        beq.s 	Men24
+        move.w 	d0,(a1)+
+        subq.w 	#1,d0
+        lsr.w 	#1,d0
+Men23:  move.w 	(a0)+,(a1)+
+        dbra 	d0,Men23
+        bra.s 	Men21
+; Chaine vide au milieu: pointe la vraie
+Men24:  move.l 	ChVide(a5),d1
+        move.l 	d1,(a2)
+        bra.s 	Men21
+; La variable pointait la meme chaine que la precedente
+Men25:  move.l 	-4(a3),a2
+        move.l 	d1,(a2)
+        bra.s 	Men21
+; Est-ce completement fini?
+Men26:  cmp.l 	d6,d3                     	;Buffer TI rempli?
+        bcs.s 	FinMen                    	;NON---> c'est fini!
+
+;-----> Reexplore les variables a la recherche de la DERNIERE CHAINE
+        move.l 	VarLoc(a5),a6             	;Table des ad strings
+        moveq 	#0,d4                     	;Cpt tableau---> 0
+	move.l 	d1,d2		  		;Feneant!
+; Rempli la table intermediaire
+Men31:
+.Loop	move.w	(a6)+,d0			Prend le flag
+	beq.s	.Loop				Nul: non initialise!
+	bmi.s	.Proc				Negatif: fin de chunk
+.Var	btst	#1,d0				Une chaine?
+	bne.s	.Alpha
+	lsr.w	#8,d0				Recupere la taille
+	add.w	d0,a6
+	move.w	(a6)+,d0			Suivante
+	beq.s	.Loop
+	bpl.s	.Var
+.Proc	move.l	(a6),d0				Chunk suivant
+	beq	Men40				Le dernier?
+	move.l	d0,a6				Non, on boucle!
+	bra.s	.Loop
+; Variable alphanumerique
+.Alpha	move.l	a6,a3
+	move.l	(a6)+,d1
+	beq.s	Men31
+	btst 	#6,d0
+	beq.s 	Men34
+	move.l	d1,a3
+	moveq	#0,d0
+	move.b	(a3)+,d0
+	addq.l	#1,a3
+	subq.w 	#1,d0
+	moveq 	#1,d4
+Men32:	move.w 	(a3)+,d1			;Calcule nombre de variable
+	addq.l	#2,a3
+	addq.w	#1,d1
+	mulu	d1,d4
+	dbra 	d0,Men32
+Men33:	subq.l 	#1,d4
+; La variable pointe elle la meme chaine?
+Men34:  cmp.l 	(a3)+,d7
+        beq.s 	Men36
+        tst.l 	d4
+        bne.s 	Men33
+        beq.s 	Men31
+Men36:  move.l 	d2,-4(a3)
+        tst.l 	d4
+        bne.s 	Men33
+        beq.s 	Men31
+
+;-----> Refait un tour!
+Men40:  move.l 	a1,d7    	                ;Monte la limite <
+        bra 	Men0
+;-----> Menage fini!
+FinMen	move.l 	a1,HiChaine(a5)
+; Libere la m�moire
+	move.l	BMenage(a5),d0
+	bmi.s	Finm1
+	move.l	d0,a1
+	move.l	#TMenage+16,d0
+	SyCall	MemFree
+Finm1   clr.l	BMenage(a5)
+
+;-----> FIN DES DEUX MENAGES : ca marche maintenant?
+FinMenS movem.l (sp)+,d1-d7/a2-a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					LEFT$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InLeft
+; - - - - - - - - - - - - -
+	Rbsr 	L_RInMid
+	move.l	(a3)+,d4
+	moveq	#0,d5
+	Rbra 	L_RInMid2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Fonction LEFT$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnLeft
+; - - - - - - - - - - - - -
+        move.l 	d3,d4
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+        moveq 	#0,d5
+	Rbra 	L_RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=RIGHT$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InRight
+; - - - - - - - - - - - - -
+	Rbsr 	L_RInMid
+        move.l 	(a3)+,d4
+        Rbmi	L_FonCall
+        moveq 	#0,d5
+        cmp.l 	d3,d4
+        Rbcc	L_RInMid2
+        move.l 	d3,d5
+	sub.l 	d4,d5
+        addq.l 	#1,d5
+	Rbra 	L_RInMid2
+; - - - - - - - - - - - - -
+	Lib_Cmp FnRight
+; - - - - - - - - - - - - -
+        move.l 	d3,d5
+        Rbmi 	L_FonCall
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+        move.l 	#$ffff,d4
+        cmp.l 	d2,d5
+        bcs 	L73c
+        move.l 	d2,d5
+L73c:   neg.l 	d5
+        add.l 	d2,d5
+        addq.l 	#1,d5
+	Rbra 	L_RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MID$=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InMid2
+; - - - - - - - - - - - - -
+	Rbsr 	L_RInMid
+	move.l	(a3)+,d5
+	move.l	#$FFFF,d4
+	Rbra 	L_RInMid2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnMid2
+; - - - - - - - - - - - - -
+        move.l 	d3,d5
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+        move.l 	#$FFFF,d4
+	Rbra 	L_RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					=MID$() 3 params
+; - - - - - - - - - - - - -
+	Lib_Cmp InMid3
+; - - - - - - - - - - - - -
+	Rbsr 	L_RInMid
+	move.l	(a3)+,d4
+	move.l	(a3)+,d5
+	Rbra	L_RInMid2
+; - - - - - - - - - - - - -
+	Lib_Cmp FnMid3
+; - - - - - - - - - - - - -
+        move.l 	d3,d4
+        move.l 	(a3)+,d5
+        move.l 	(a3)+,a2
+        moveq 	#0,d2
+        move.w 	(a2)+,d2
+	Rbra	L_RFnMid
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Commun LEFT MID RIGHT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	RFnMid
+; - - - - - - - - - - - - -
+        tst.l 	d5                        ;pointe au milieu de la chaine
+        Rbmi 	L_FonCall
+        beq.s 	mi2
+        subq.l 	#1,d5
+mi2:    add.l 	d5,a2
+        cmp.l 	d2,d5                     ;pas pointe trop loin??
+        bcc.s 	RVide                     ;si! chaine vide
+mi3:    tst.l 	d4
+        beq.s 	RVide
+        Rbmi 	L_FonCall
+mi4:    add.l 	d5,d4
+        cmp.l 	d2,d4
+        bls.s 	mi5
+        move.l 	d2,d4
+mi5:    sub.l 	d5,d4
+mi6:    move.l 	d4,d3
+	Rjsr 	L_Demande
+        move 	d4,(a0)+                   ;poke la longueur
+        subq.l 	#1,d4
+        bmi.s 	mi8
+mi7:    move.b 	(a2)+,(a0)+
+        dbra 	d4,mi7
+        move 	a0,d0                      ;rend pair
+        btst 	#0,d0
+        beq.s 	mi8
+        addq.l 	#1,a0
+mi8:    move.l 	a0,HiChaine(a5)
+        move.l 	a1,d3
+	rts
+RVide:  move.l 	ChVide(a5),d3          	;ramene la chaine vide
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Commun MID LEFT RIGHT = /  A0= adresse variable
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	RInMid
+; - - - - - - - - - - - - -
+   	moveq 	#0,d3
+	move.l	a0,a2
+	move.l	(a2),a1
+        move.w 	(a1)+,d3
+        Rbsr 	L_Demande
+	move.l	(a2),d0
+        move.l 	a0,(a2)          ;Change la variable
+	move.l	d0,a2
+        move.w 	d3,d2
+        move.w 	d2,(a0)+         ;Longueur
+        subq.w 	#1,d2
+        lsr.w 	#2,d2
+	addq.l	#2,a2
+L77b:   move.l 	(a2)+,(a0)+
+        dbra 	d2,L77b
+        move.l 	a0,HiChaine(a5)
+        addq.l	#2,a1
+	moveq 	#0,d2		 ;A1/D3= destination
+        move.l 	(a3)+,a2 	 ;A2/D2= source
+        move.w 	(a2)+,d2
+        rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Commun LEFT MID RIGHT II
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	RInMid2
+; - - - - - - - - - - - - -
+	tst.l 	d5
+        Rbmi	L_FonCall
+        beq.s 	mdst2
+        subq.l 	#1,d5
+mdst2:  add.l 	d5,a1             ;situe dans la chaine a changer
+        cmp.l 	d3,d5
+        bcc.s 	mdst10            ;trop loin: ne change rien
+        tst.l 	d4
+        Rbmi	L_FonCall
+        beq.s 	mdst10
+        add.l 	d5,d4
+        cmp.l 	d3,d4
+        bls.s 	mdst3
+        move.l 	d3,d4
+mdst3:  sub.l 	d5,d4
+        cmp.l 	d2,d4             ;limite par la taille de la chaine source
+        bls.s 	mdst4
+        move.l 	d2,d4
+mdst4:  subq.l 	#1,d4            ;la chaine source est nulle!
+        bmi.s 	mdst10
+mdst5:  move.b 	(a2)+,(a1)+
+        dbra 	d4,mdst5
+mdst10: rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=VAL  /  D2= type desire
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnVal
+; - - - - - - - - - - - - -
+	move.w	d2,d4
+	move.l	d3,a2
+	move.w	(a2)+,d2
+	beq.s	.Vide
+        Rjsr 	L_ChVerBuf        	Recopie la chaine dans le buffer
+        move.l	Buffer(a5),a0
+	moveq	#1,d0			Tenir compte du signe
+	move.w	d4,d2			Type desire
+        Rjmp 	L_ValRout
+.Vide	moveq	#0,d3			Retourne un 0 entier / float / double
+	moveq	#0,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		=RESOURCE$(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp FnResource
+; - - - - - - - - - - - - -
+; Un message normal?
+	move.l	d3,d0
+	ble.s	.Skip1
+	Rbsr	L_Dia_GetPuzzle
+	move.l	a2,a0
+	move.l	d3,d0
+	Rjsr	L_GetMessage
+	bra	.Fin
+; Le path du systeme? (0)
+.Skip1	neg.l	d0
+	bne.s	.Skip2
+	Rbsr	L_Sys_GetPath		Va chercher le pathname
+	lea	Sys_Pathname(a5),a0	Additionne!
+	bra.s	.Fin
+; Un message systeme? (-1)
+.Skip2	cmp.l	#1001,d0
+	bcc.s	.Skip3
+	move.l	Sys_Messages(a5),a0
+	bra.s	.Fin0
+; Un message systeme editeur? (-1000)
+.Skip3	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip4
+	move.l	Ed_Systeme(a5),a0
+	bra.s	.Fin0
+; Un message de menu editeur? (-2000)
+.Skip4	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip5
+	move.l	EdM_Messages(a5),a0
+	bra.s	.Fin0
+; Un message editeur? (-3000)
+.Skip5	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip6
+	move.l	Ed_Messages(a5),a0
+	bra.s	.Fin0
+; Un message de test? (-4000)
+.Skip6	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	bcc.s	.Skip7
+	move.l	Ed_TstMessages(a5),a0
+	bra.s	.Fin0
+; Un message run-time? (-5000)
+.Skip7	sub.l	#1000,d0
+	cmp.l	#1001,d0
+	Rbcc	L_FonCall
+	move.l	Ed_RunMessages(a5),a0
+; Retourne la chaine
+.Fin0	Rjsr	L_GetMessage
+.Fin	move.l	a0,a2
+	Rbra	L_Str2Chaine
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Source: Menus.s
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU KEY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InMenuKey
+; - - - - - - - - - - - - -
+	Rbsr	L_MnDim
+	tst.l	MnLat(a2)
+	Rbne	L_FonCall
+	clr.b	MnKFlag(a2)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenuKey1
+; - - - - - - - - - - - - -
+	Rbsr	L_MnDim
+	tst.l	MnLat(a2)
+	Rbne	L_FonCall
+	move.l	(a3)+,a0
+	tst.w	(a0)+
+	Rbeq	L_FonCall
+	move.b	(a0),MnKAsc(a2)
+	move.b	#1,MnKFlag(a2)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenuKey2
+; - - - - - - - - - - - - -
+	Rbsr	L_MnDim
+	tst.l	MnLat(a2)
+	Rbne	L_FonCall
+	move.l	(a3)+,d2
+	moveq	#0,d3
+	Rbra	L_MnKy
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenuKey3
+; - - - - - - - - - - - - -
+	Rbsr	L_MnDim
+	tst.l	MnLat(a2)
+	Rbne	L_FonCall
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	Rbra	L_MnKy
+; - - - - - - - - - - - - -
+	Lib_Cmp	MnKy
+; - - - - - - - - - - - - -
+L966	cmp.l	#256,d3
+	Rbcc	L_FonCall
+	move.b	d3,MnKSh(a2)
+	cmp.l	#128,d2
+	Rbcc	L_FonCall
+	move.b	d2,MnKSc(a2)
+	move.b	#-1,MnKFlag(a2)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INSTRUCTION ON MENU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InOnMenu
+; - - - - - - - - - - - - -
+	Rjsr	L_OMnEff
+	Rlea	L_GoMenu,0		Branche la routine au test
+	move.l	a0,GoTest_GoMenu(a5)
+	move.w	d0,OMnType(a5)
+	ext.l	d1
+	move.w	d1,OMnNb(a5)
+	move.w	d1,d2			* Nb de labesl*4
+	lsl.w	#2,d1
+	move.l	d1,d0
+	SyCall	MemFast
+	Rbeq	L_OOfMem
+	move.l	a0,OMnBase(a5)
+	add.l	d1,a0
+* Poke les jumps
+	subq.w	#1,d2
+OnMn2	move.l	(a3)+,-(a0)
+	dbra	d2,OnMn2
+* Plus de branchements
+	bclr	#BitJump,ActuMask(a5)
+* Branche la routine Clearvar
+	lea	.Struc(pc),a1
+	lea	Sys_ClearRoutines(a5),a2
+	SyCall	AddRoutine
+	rts
+; Structure clearvar
+; ~~~~~~~~~~~~~~~~~~
+.Struc	dc.l	0
+	Rbra	L_OMnEff
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU$(,,,)=
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InMenu
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	Rbra	L_InMenu4
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenu2
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	Rbra	L_InMenu4
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenu3
+; - - - - - - - - - - - - -
+	move.l	#EntNul,-(a3)
+	Rbra	L_InMenu4
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenu4
+; - - - - - - - - - - - - -
+	Rjsr	L_MnClearVar		Routine pour ClearVar
+
+	move.l	a3,-(sp)
+	lea	4*4(a3),a3		Pointe les dimensions
+	move.w	d5,d0
+	lsl.w	#2,d0
+	pea	0(a3,d0.w)		Position par defaut de la pile
+	Rjsr	L_MnFind
+	bne.s	IMenA
+	Rjsr	L_MnIns
+IMenA	move.l	4(sp),a3		Repointe les chaines
+
+* Parametres par defaut
+	move.l	ScOnAd(a5),a0
+	cmp.l	MnAdEc(a5),a0
+	beq.s	IMen6
+	tst.l	MnAdEc(a5)
+	Rbne	L_ScNOp
+	move.l	a0,MnAdEc(a5)
+IMen6:	move.l	EcWindow(a0),a0
+	move.b	WiPaper+1(a0),d0
+	move.b	WiPen+1(a0),d1
+	move.b	d0,MnInkA1(a2)
+	move.b	d1,MnInkB1(a2)
+	move.b	d0,MnInkC1(a2)
+	move.b	d1,MnInkA2(a2)
+	move.b	d0,MnInkB2(a2)
+	move.b	d0,MnInkC2(a2)
+* Prend la chaine OBF
+	lea	MnObF(a2),a0
+	bsr	MnOob
+* Prend la chaine OBOFF
+	lea	MnOb3(a2),a0
+	bsr	MnOob
+* Prend la chaine OB2
+	lea	MnOb2(a2),a0
+	bsr	MnOob
+* Prend la chaine OB1
+	lea	MnOb1(a2),a0
+	bsr	MnOob
+* Ca y est!!!
+IMenX:	addq.w	#1,MnChange(a5)
+	move.l	(sp)+,a3
+	addq.l	#4,sp
+	rts
+
+;	Petite routine de creation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnOob	move.l	(a3)+,d3
+	cmp.l	#EntNul,d3
+	beq	MnOob0
+	move.l	d3,a1
+	tst.w	(a1)
+	bne	MnOob1
+* Efface la chaine
+MnOobE	move.l	(a0),d0
+	beq.s	MnOob0
+	clr.l	(a0)
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	(a1),d0
+	SyCall	MemFree
+MnOob0	rts
+* Une chaine!
+MnOob1	movem.l	a0/a1,-(sp)		* Efface l'ancienne
+	bsr.s	MnOobE
+	movem.l	(sp)+,a0/a1
+	Rjsr	L_MnObjet		* Cree la nouvelle
+	Rbeq	L_OOfMem
+	Rbmi	L_FonCall
+	move.l	d0,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MENU DEL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	InMenuDel
+; - - - - - - - - - - - - -
+	Rjmp	L_MnRaz
+; - - - - - - - - - - - - -
+	Lib_Cmp	InMenuDel1
+; - - - - - - - - - - - - -
+	Rbsr	L_MnDim
+	move.l	a2,d0
+	moveq	#0,d5
+	addq.w	#1,MnChange(a5)
+	Rjsr	L_MnEff
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SET MENU
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp InSetMenu
+; - - - - - - - - - - - - -
+	Rbsr	L_MnDim
+	move.l	(a3)+,d3
+	move.l	#EntNul,d0
+	cmp.l	d0,d3
+	beq.s	ISMn1
+	move.w	d3,MnY(a2)
+	bset	#MnFixed,MnFlag(a2)
+ISMn1	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	ISMn2
+	move.w	d1,MnX(a2)
+	bset	#MnFixed,MnFlag(a2)
+ISMn2	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Trouve l'adresse d'un objet de menu
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	MnDim
+; - - - - - - - - - - - - -
+	tst.w	d5
+	bne.s	MnDim1
+	tst.l	d3
+	Rbeq	L_FonCall
+	cmp.l	#MnNDim,d3
+	Rbhi	L_FonCall
+	lea	MnDFlags(a5),a0
+	lea	-1(a0,d3.w),a0
+	rts
+* Cherche l'adresse D'UN objet
+MnDim1	Rjsr	L_MnFind
+	lsl.w	#2,d5
+	add.w	d5,a3			Saute les parametres
+	tst.w	d0
+	beq.s	.Nd
+	lea	MnFlag(a2),a0
+	rts
+.Nd	moveq	#39,d0			Menu item not defined
+	Rbra	L_GoError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Entree procedure menu 		*** illegal
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	MenuProcedure
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SOUS PROGRAMME UTILISE PAR VAL ET INPUT
+;	D0=	Tenir compte du signe (TRUE)
+;	D2=	Type voulu: 0= Entier / 1= Float / -1= le mieux
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	ValRout
+; - - - - - - - - - - - - -
+        movem.l a1-a2/d5-d7,-(sp)
+	move.w	d2,-(sp)
+	move.l	a0,d7
+	moveq	#0,d4
+	move.l	a0,a2
+	tst.w	d0
+	beq.s	val1c
+
+; 	y-a-t'il un signe devant?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+val1:   move.b 	(a0)+,d0
+        beq 	val10
+        cmp.b 	#32,d0
+        beq.s 	val1
+        move.l 	a0,a2
+        subq.l 	#1,a2
+        cmp.b 	#"-",d0
+        bne.s 	val1a
+        not 	d4
+        bra.s 	val1c
+val1a:  cmp.b 	#"+",d0
+        beq.s 	val1c
+val1b:  subq.l 	#1,a0
+val1c
+; 	Explore le debut du chiffre
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	move.b 	(a0)+,d0
+        beq 	val10
+        cmp.b 	#32,d0
+        beq.s 	val1c
+        cmp.b 	#"$",d0      	;chiffre HEXA
+        beq	CHexa
+        cmp.b	#"%",d0       	;chiffre BINAIRE
+        beq 	CBin
+        cmp.b 	#".",d0
+        beq.s 	val2
+        cmp.b 	#"0",d0
+        bcs 	val10
+        cmp.b 	#"9",d0
+        bhi 	val10
+
+; 	Copie le chiffre dans BuFloat
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+val2:   subq.l	#1,a0
+	move.l 	a0,a1        	Si float: trouve la fin du chiffre
+        clr.w 	d3		Les flags
+	lea	BuFloat(a5),a2
+	moveq	#60,d2		Taille maxi du buffer
+val3:	move.b 	(a1)+,d0
+        cmp.b 	#32,d0
+        beq.s 	val3
+	move.b	d0,(a2)+
+        beq.s 	val4
+	subq.w	#1,d2		Au bout du buffer?
+	beq.s	val4
+        cmp.b 	#"0",d0
+        bcs.s 	val3z
+        cmp.b 	#"9",d0
+        bls.s 	val3
+val3z:	cmp.b 	#".",d0       	Cherche une "virgule"
+        bne.s	val3a
+        bset 	#0,d3          	Si deux virgules: fin du chiffre
+        beq.s 	val3
+        bne.s 	val4
+val3a:  cmp.b 	#"e",d0       	Cherche un exposant
+        beq.s 	val3b
+        cmp.b 	#"E",d0       	Autre caractere: fin du chiffre
+        bne.s 	val4
+val3ab: move.b 	#"e",-1(a2)  	Met un E minuscule!!!
+val3b:  move.b 	(a1)+,d0     	Apres un E, accepte -/+ et chiffres
+        cmp.b 	#32,d0
+        beq.s 	val3b
+        cmp.b 	#"+",d0
+        beq.s 	val3c
+        cmp.b 	#"-",d0
+        bne.s 	val3e
+val3c:  bset 	#1,d3          	+ ou -: c'est un float!
+	move.b	d0,(a2)+
+val3d:  subq.w	#1,d2		Au bout du buffer?
+	beq.s	val4
+	move.b 	(a1)+,d0     	Puis cherche la fin de l'exposant
+        cmp.b 	#32,d0
+        beq.s 	val3d
+val3e:  move.b	d0,(a2)+
+	subq.w	#1,d2		Au bout du buffer?
+	beq.s	val4
+	cmp.b 	#"0",d0
+        bcs.s 	val4
+        cmp.b 	#"9",d0       	Chiffre! c'est un float
+        bls.s 	val3c
+val4:  	clr.b	(a2)
+	clr.b	-(a2)		Recule d'un > fin du float
+	subq.l	#1,a1		Reste sur la fin du chiffre
+	lea	BuFloat(a5),a0	Le buffer de conversion
+
+	tst.w	(sp)			Un entier quoi qu'il arrive
+	beq.s	CEntier
+	bpl.s	.Float
+	btst	#0,MathFlags(a5)	Si indifferent,
+	beq.s	CEntier			Entier, si pas de math
+
+; 	Conversion ASCII ---> FLOAT
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Float	move.l	a1,-(sp)
+	Rjsr 	L_Ascii2Float
+	move.l	d0,d3
+	move.l	d1,d4
+	move.l	(sp)+,a0		Pointe la fin du chiffre
+	moveq	#1,d2			Un float
+	moveq	#0,d0			Pas d'erreur
+	bra.s	ValOut			La sortie
+
+; 	Converti vers un chiffre entier
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; chiffre entier
+CEntier	move.l	a1,-(sp)
+	bsr 	declong			Conversion a partir de BuFloat
+	move.l	(sp)+,a0		Pointe la fin du chiffre
+	bra.s	CFin
+; chiffre hexa
+CHexa:  bsr 	hexalong
+        bra.s 	CFin
+; chiffre binaire
+CBin	bsr 	binlong
+; Test du signe
+CFin	move.l	d0,d3			Retourne en D3
+	tst.w 	d1			Conversion valide?
+        beq.s 	.Ok
+        moveq	#0,d3			Si probleme: ramene zero!
+.Ok	tst.w 	d4
+        beq.s 	ECheck
+        neg.l 	d3
+
+;	Verification du type
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+ECheck	moveq	#0,d0			Pas d'erreur
+	moveq	#0,d2			Entier
+	tst.w	(sp)			Que veut-on?
+	beq.s	.Ent			Un entier
+	bpl.s	.Flt			Un float!
+	btst	#0,MathFlags(a5)	On sait pas, si float present...
+	beq.s	.Ent			...retourne un float
+.Flt	movem.l	d0-d1/a0,-(sp)
+	Rjsrt	L_IntToFl1
+	movem.l	(sp)+,d0-d1/a0
+	moveq	#1,d2
+.Ent	bra.s	ValOut
+
+; 	Erreur, ramene zero
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+val10:  moveq	#0,d3
+	moveq	#1,d0
+	move.l	d7,a0			Repointe le debut
+	bra.s	ECheck
+; Sortie
+ValOut	addq.l	#2,sp
+ 	movem.l (sp)+,a1-a2/d5-d7
+	tst.l	d0
+        rts
+
+; 	MINI CHRGET POUR LES CONVERSIONS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+minichr	move.b 	(a0)+,d2
+        beq.s 	mc1
+        cmp.b 	#32,d2
+        beq.s 	minichr
+        cmp.b 	#"a",d2       ;si minuscule: majuscule
+        bcs.s 	mc0
+        sub.b 	#"a"-"A",d2
+mc0     sub.b 	#48,d2
+        rts
+mc1     move.b 	#-1,d2
+        rts
+; Minichr pour hexa
+; ~~~~~~~~~~~~~~~~~
+minichr2
+	move.b (a0)+,d2
+        beq.s .mc1
+        cmp.b #"a",d2       ;si minuscule: majuscule
+        bcs.s .mc0
+        sub.b #"a"-"A",d2
+.mc0:   sub.b #48,d2
+        rts
+.mc1:   move.b #-1,d2
+        rts
+
+; 	CONVERSION DECIMAL->HEXA SUR QUATRE OCTETS, SIGNE!
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+declong moveq	#0,d0
+ 	moveq	#0,d2
+        moveq	#0,d3
+        move.l 	a0,-(sp)
+ddh1:   bsr 	minichr
+ddh1a:  cmp.b 	#10,d2
+        bcc.s 	ddh5
+        move 	d0,d1
+        mulu 	#10,d1
+        swap 	d0
+        mulu 	#10,d0
+        swap 	d0
+        tst 	d0
+        bne.s 	ddh2
+        add.l 	d1,d0
+        bcs.s 	ddh2
+        add.l	d2,d0
+        bmi.s 	ddh2
+        addq 	#1,d3
+        bra.s 	ddh1
+ddh2:   move.l 	(sp)+,a0
+        moveq	#1,d1          	;out of range: bpl, et recupere l'adresse
+        rts
+ddh5:   subq.l 	#1,a0
+	addq.l 	#4,sp
+        tst	d3
+        beq.s 	ddh7
+        moveq	#0,d1           ;OK: chiffre en d0, et beq
+        rts
+ddh7:   moveq	#-1,d1     	;pas de chiffre: bmi
+        rts
+
+; 	CONVERSION HEXA-ASCII EN HEXA-HEXA
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+hexalong
+	moveq	#0,d0
+	moveq	#0,d2
+	moveq	#0,d3
+        move.l 	a0,-(sp)
+hh1:    bsr 	minichr2
+        cmp.b 	#10,d2
+        bcs.s 	hh2
+        cmp.b 	#17,d2
+        bcs.s 	ddh5
+        subq.w 	#7,d2
+hh2:    cmp.b 	#16,d2
+        bcc.s 	ddh5
+        lsl.l 	#4,d0
+        or.b 	d2,d0
+        addq.w 	#1,d3
+        cmp 	#9,d3
+        bne.s 	hh1
+        beq.s 	ddh2
+
+; 	CONVERSION BINAIRE ASCII ---> HEXA SUR QUATRE OCTETS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+binlong	moveq	#0,d0
+	moveq	#0,d2
+	moveq	#0,d3
+        move.l 	a0,-(sp)
+bh1:    bsr 	minichr
+        cmp.b 	#2,d2
+        bcc.s 	ddh5
+        roxr 	#1,d2
+        roxl.l 	#1,d0
+        bcs.s 	ddh2
+        addq.w	#1,d3
+        cmp.w 	#33,d3
+        bne.s 	bh1
+        beq 	ddh1
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					DEBUT DES SWAP FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ouverture des libraries mathematiques
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	CmpInitFloat
+; - - - - - - - - - - - - -
+	move.b	d0,MathFlags(a5)		Stocke les flags
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	move.l	#$c90fd942,ValPi(a5)		Simple precision
+	move.l	#$b4000048,Val180(a5)
+; Init float.library
+	moveq	#0,d0
+	lea	FloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,FloatBase(a5)
+	beq.s	.Err
+; Init mathffp.library
+	btst	#1,MathFlags(a5)		Des maths?
+	beq.s	.Ok
+	moveq	#0,d0
+	lea	MathName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,MathBase(a5)
+	beq.s	.Err
+.Ok	moveq	#0,d0
+	bra.s	.Out
+.Err	moveq	#1,d0
+.Out	move.l	(sp)+,a6
+	rts
+FloatName
+	dc.b 	"mathffp.library",0
+MathName
+	dc.b 	"mathtrans.library",0
+	even
+
+; - - - - - - - - - - - - -
+	Lib_Cmp	CmpInitDouble
+; - - - - - - - - - - - - -
+	move.l	a6,-(sp)
+	move.b	d0,MathFlags(a5)		Stocke les flags
+	move.l	$4.w,a6
+; Init float.library
+	moveq	#0,d0
+	lea	.FloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,FloatBase(a5)
+	beq.s	.Err
+; Init mathffp.library
+	moveq	#0,d0
+	lea	.MathName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,MathBase(a5)
+	beq.s	.Err
+; Pi / 180
+	move.l	#$40668000,Val180(a5)
+	move.l	#$00000000,Val180+4(a5)
+	move.l	#$400921fb,ValPi(a5)
+	move.l	#$54442eea,ValPi+4(a5)
+; Init Dfloat
+	moveq	#0,d0
+	lea	.DFloatName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,DFloatBase(a5)
+	beq.s	.Err
+; Init DMath
+	moveq	#0,d0
+	lea	.DMathName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,DMathBase(a5)
+	beq.s	.Err
+; OK!
+.Ok	moveq	#0,d0
+	bra.s	.Out
+.Err	moveq	#1,d0
+.Out	move.l	(sp)+,a6
+	rts
+.FloatName
+	dc.b 	"mathffp.library",0
+.MathName
+	dc.b 	"mathtrans.library",0
+.DFloatName
+	dc.b 	"mathieeedoubbas.library",0
+.DMathName
+	dc.b 	"mathieeedoubtrans.library",0
+	even
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ENTIER >>> FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion entier >>> float dans le dernier operateur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	IntToFl1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFlt(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DIntToFl1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFlt(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					ENTIER >>> FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion entier >>> float dans la pile
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	IntToFl2
+; - - - - - - - - - - - - -
+	move.l	(a3),d0
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFlt(a6)
+	move.l	d4,a6
+	move.l	d0,(a3)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DIntToFl2
+; - - - - - - - - - - - - -
+	movem.l	(a3),d0-d1
+	move.l	a6,d2
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFlt(a6)
+	move.l	d2,a6
+	movem.l	d0-d1,(a3)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FLOAT >>> ENTIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion float >>> entier dans le dernier operateur
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FlToInt1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFix(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DFlToInt1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d3
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFix(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FLOAT >>> ENTIER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Conversion float >>> entier dans la pile
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FlToInt2
+; - - - - - - - - - - - - -
+	move.l	(a3),d0
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPFix(a6)
+	move.l	d4,a6
+	move.l	d0,(a3)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DFlToInt2
+; - - - - - - - - - - - - -
+	movem.l	(a3),d0-d1
+	move.l	a6,d2
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPFix(a6)
+	move.l	d2,a6
+	movem.l	d0-d1,(a3)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FONCTION MATHEMATIQUE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une fonction mathematique
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Math_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	MathBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DMath_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d3
+	move.l	DMathBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					COMPARAISONS FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une comparaison float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Float_Compare
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	(a3)+,d1
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPCmp(a6)
+	move.l	d3,a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DFloat_Compare
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	movem.l	(a3)+,d2-d3
+	move.l	a6,d5
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPCmp(a6)
+	move.l	d5,a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Operation FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une operation float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Float_Operation
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	d3,d1
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d4,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DFloat_Operation
+; - - - - - - - - - - - - -
+	movem.l	(a3)+,d0-d1
+	exg	d3,d2
+	exg	d4,d3
+	move.l	a6,d5
+	move.l	DFloatBase(a5),a6
+	jsr	0(a6,d4.w)
+	move.l	d5,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	FLOAT= ZERO?
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait un TST sur le float D3
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Float_Test
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	a6,d4
+	move.l	FloatBase(a5),a6
+	jsr	_LVOSPTst(a6)
+	move.l	d4,a6
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	Float_TestF
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d2
+	move.l	DFloatBase(a5),a6
+	jsr	_LVOIEEEDPTst(a6)
+	move.l	d2,a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Operation MATH
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une operation Math
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Math_Operation
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0
+	move.l	d3,d1
+	move.l	a6,d4
+	move.l	MathBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d4,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DMath_Operation
+; - - - - - - - - - - - - -
+	movem.l	(a3)+,d0-d1
+	exg	d3,d2
+	exg	d4,d3
+	move.l	a6,d5
+	move.l	DMathBase(a5),a6
+	jsr	0(a6,d4.w)
+	move.l	d5,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					FONCTION FLOAT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;       Fait une fonction float
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Float_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	DFloat_Fonction
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d5
+	move.l	DFloatBase(a5),a6
+	jsr	0(a6,d2.w)
+	move.l	d5,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Verifie que le float est positif
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FlPos			Simple precision
+; - - - - - - - - - - - - -
+	btst	#7,d3
+	Rbne	L_FonCall
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FlPosD			Double precision
+; - - - - - - - - - - - - -
+	btst	#31,d3
+	Rbne	L_FonCall
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					RETOURNE UN ANGLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	AAngle			SFloat
+; - - - - - - - - - - - - -
+	move.l	d3,d0			Appel de la fonction
+	move.l	a6,d3
+	move.l	MathBase(a5),a6
+	jsr	0(a6,d2.w)
+	tst.w	Angle(a5)
+	beq.s	.AAnX
+	move.l	FloatBase(a5),a6
+	move.l	ValPi(a5),d1
+	jsr	_LVOSPDiv(a6)
+	move.l	Val180(a5),d1
+	jsr	_LVOSPMul(a6)
+.AAnX	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	AAngleD			DFloat
+; - - - - - - - - - - - - -
+	move.l	d3,d0			Appel de la fonction
+	move.l	d4,d1
+	move.l	a6,d5
+	move.l	DMathBase(a5),a6
+	jsr	0(a6,d2.w)
+	tst.w	Angle(a5)
+	beq.s	.AAnY
+	move.l	DFloatBase(a5),a6
+	move.l	ValPi(a5),d2
+	move.l	ValPi+4(a5),d3
+	jsr	_LVOSPDiv(a6)
+	move.l	Val180(a5),d2
+	move.l	Val180+4(a5),d3
+	jsr	_LVOSPMul(a6)
+.AAnY	move.l	d5,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					TRANSFORME EN ANGLE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FFAngle			SFloat
+; - - - - - - - - - - - - -
+	tst.w	Angle(a5)
+	bne.s	.Conv
+	rts
+; Conversion--> radian
+.Conv	move.l	d3,d0
+	move.l	a6,d3
+	move.l	FloatBase(a5),a6
+	move.l	Val180(a5),d1
+	jsr	_LVOSPDiv(a6)
+	move.l	ValPi(a5),d1
+	jsr	_LVOSPMul(a6)
+	move.l	d3,a6
+	move.l	d0,d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FAngleD			DFloat
+; - - - - - - - - - - - - -
+	tst.w	Angle(a5)
+	bne.s	.Conv
+	rts
+; Conversion--> radian
+.Conv	move.l	d3,d0
+	move.l	d4,d1
+	move.l	a6,d5
+	move.l	DFloatBase(a5),a6
+	move.l	Val180(a5),d2
+	move.l	Val180+4(a5),d3
+	jsr	_LVOSPDiv(a6)
+	move.l	ValPi(a5),d2
+	move.l	ValPi+4(a5),d3
+	jsr	_LVOSPMul(a6)
+	move.l	d5,a6
+	move.l	d0,d3
+	move.l	d1,d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					PARAM FLOAT (!)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FnParamF		SFloat
+; - - - - - - - - - - - - -
+	move.l	ParamF(a5),d3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp FnParamD		DFloat
+; - - - - - - - - - - - - -
+	move.l	ParamF(a5),d3
+	move.l	ParamF2(a5),d4
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ASCII Vers Float
+;	A0	Buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Ascii2Float
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	Rjsr	L_AscToFloat
+	addq.l	#4,sp
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	Ascii2FloatD
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	Rjsr	L_AscToDouble
+	addq.l	#4,sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Float vers ascii
+;	D3/D4	Float
+;	A0	Buffer
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	Float2Ascii
+; - - - - - - - - - - - - -
+	move.l 	d3,d0			Simple precision
+	move.w	FixFlg(a5),d4
+        move.w 	ExpFlg(a5),d5
+	bclr	#31,d4
+	Rjmp	L_FloatToAsc
+; - - - - - - - - - - - - -
+	Lib_Cmp	Float2AsciiD
+; - - - - - - - - - - - - -
+	moveq	#2,d0			Double precision
+	moveq	#15,d1
+	tst.w	FixFlg(a5)
+	bmi.s	.Ok
+	move.w	FixFlg(a5),d1		Nombre de chiffres
+	tst.w	ExpFlg(a5)
+	beq.s	.Ok
+	moveq	#0,d0
+.Ok	movem.l	a0-a1,-(sp)
+	btst	#31,d3			Si positif
+	bne.s	.Neg
+	move.b	#" ",(a0)+		Un espace devant
+.Neg	move.l	d0,-(sp)
+	move.l	d1,-(sp)
+	move.l	a0,-(sp)
+	move.l	d4,-(sp)
+	move.l	d3,-(sp)
+	Rjsr	L_DoubleToAsc
+	lea	20(sp),sp
+	movem.l	(sp)+,a0/a1
+.Lop	tst.b	(a0)+			Pointe la fin
+	bne.s	.Lop
+	subq.l	#1,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MAX en simple/double precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FnMaxF
+; - - - - - - - - - - - - -
+	move.l	(a3),-(a3)
+	Rjsrt	L_Float_Compare
+	ble.s	.Skip
+	move.l	(a3),d3
+.Skip	addq.l	#4,a3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnMaxD
+; - - - - - - - - - - - - -
+	movem.l	(a3),d0-d1
+	movem.l	d0-d1,-(sp)
+	movem.l	d3-d4,-(sp)
+	Rjsrt	L_Float_Compare
+	ble.s	.Skip
+	movem.l	(sp),d3-d4
+	bra.s	.Out
+.Skip	movem.l	8(sp),d3-d4
+.Out	lea	16(sp),sp
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	MIN en simple/double precision
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Cmp	FnMinF
+; - - - - - - - - - - - - -
+	move.l	(a3),-(a3)
+	Rjsrt	L_Float_Compare
+	bge.s	.Skip
+	move.l	(a3),d3
+.Skip	addq.l	#4,a3
+	rts
+; - - - - - - - - - - - - -
+	Lib_Cmp	FnMinD
+; - - - - - - - - - - - - -
+	movem.l	(a3),d0-d1
+	movem.l	d0-d1,-(sp)
+	movem.l	d3-d4,-(sp)
+	Rjsrt	L_Float_Compare
+	bge.s	.Skip
+	movem.l	(sp),d3-d4
+	bra.s	.Out
+.Skip	movem.l	8(sp),d3-d4
+.Out	lea	16(sp),sp
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					Espace pour le compilateur!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Pos 500
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Finish the library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		END OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_End		dc.w	0
+		even
diff --git a/compiler/+CompExt.s b/compiler/+CompExt.s
new file mode 100644
index 0000000..c3406ab
--- /dev/null
+++ b/compiler/+CompExt.s
@@ -0,0 +1,1606 @@
+; ______________________________________________________________________________
+; ..............................................................................
+; ...................................................................2222222....
+; ................................................................22222222220...
+; ...................................................222........222222.....222..
+; ..............................................2202222222222..22000............
+; ..................................22000.....20222222222200000200002...........
+; .................................2002202...2222200222.220000000200000000022...
+; ....................220002......22222200..2200002.......2200000...20000000000.
+; ....................22222202....2220000022200000..........200002........200000
+; .....200000.........2222200000222200220000000002..........200002........20000.
+; .....00222202........2220022000000002200002000002........2000002000020000000..
+; ....2222200000.......220002200000002.2000000000000222222000000..2000000002....
+; ....220000200002......20000..200002..220000200000000000000002.......22........
+; ...2220002.2200002....220002...22.....200002..0000000000002...................
+; ...220000..222000002...20000..........200000......2222........................
+; ...000000000000000000..200000..........00002..................................
+; ..220000000022020000002.200002.........22.......______________________________
+; ..0000002........2000000220022.................|
+; .200000............2002........................| AMOS Compiler Extension
+; .200002........................................| For AMOSPro 2.0 and over
+; 220002.........................................|______________________________
+; ______________________________________________________________________________
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+; ______________________________________________________________________________
+
+;---------------------------------------------------------------------
+;		Include the files automatically calculated by
+;		Library_Digest.AMOS
+;---------------------------------------------------------------------
+ 		Include	"+AMOS_Includes.s"
+		Include	"+Version.s"
+		Include	"+Compext_Size.s"
+		Include	"+Compext_Labels.s"
+
+		INCDIR	"Work:Includes/i/"
+		Include "pp/powerpacker_lib.i"
+		Include "pp/ppbase.i"
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		Initialisation stuff
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+ExtNb		equ	5-1
+
+Dlea		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\2
+		add.w	#\1-DT,\2
+		ENDM
+Dload		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\1
+		ENDM
+
+Cmp_Magic	equ	"Gaga"
+
+		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	0
+		dc.b	"AP20"
+
+;---------------------------------------------------------------------
+;		Creates the pointers to functions
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+;---------------------------------------------------------------------
+;		TOKEN TABLE
+;---------------------------------------------------------------------
+;		TOKEN_START
+C_Tk
+		dc.w 	L_Nul,L_Nul
+		dc.b 	$80,-1
+TkCmp		dc.w	L_CmpCall,L_Nul
+		dc.b	"cmpcal","l"+$80,"I",-1
+TkCOp		dc.w	L_CmpOpt,L_Nul
+		dc.b	"comp option","s"+$80,"I2",-1
+TkTston		dc.w	L_Rien,L_Nul
+		dc.b	"comp test o","n"+$80,"I",-1
+TkTstof		dc.w	L_Rien,L_Nul
+		dc.b	"comp test of","f"+$80,"I",-1
+TkTst		dc.w	L_Rien,L_Nul
+		dc.b	"comp tes","t"+$80,"I",-1
+		dc.w	L_Compile1,L_Nul
+		dc.b	"!compil","e"+$80,"I2",-2
+		dc.w	L_Compile2,L_Nul
+		dc.b	$80,"I2,0",-1
+		dc.w	L_Nul,L_CompErr
+		dc.b	"comp err","$"+$80,"2",-1
+		dc.w	L_CompLoad0,L_Nul
+		dc.b	"!comp loa","d"+$80,"I",-2
+		dc.w	L_CompLoad1,L_Nul
+		dc.b	$80,"I2",-1
+		dc.w	L_CompDel,L_Nul
+		dc.b	"comp de","l"+$80,"I",-1
+		dc.w	L_Nul,L_CompHere
+		dc.b	"comp her","e"+$80,"0",-1
+		dc.w	L_Nul,L_CompSize
+		dc.b	"comp siz","e"+$80,"0",-1
+		dc.w	L_Nul,L_Squash
+		dc.b	"squas","h"+$80,"00,0,0,0,0",-1
+		dc.w 	L_Nul,L_UnSquash
+		dc.b	"unsquas","h"+$80,"00,0",-1
+		dc.w	L_InppSave2,L_Nul
+		dc.b	"!ppsav","e"+$80,"I2,0",-2
+		dc.w	L_InppSave3,L_Nul
+		dc.b	$80,"I2,0,0",-1
+		dc.w	L_InppLoad1,L_Nul
+		dc.b	"!pploa","d"+$80,"I2",-2
+		dc.w	L_InppLoad2,L_Nul
+		dc.b	$80,"I2,0",-1
+
+;		TOKEN_END
+		dc.w	0
+		dc.l	0
+
+
+;---------------------------------------------------------------------
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+C_Lib
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COLD START
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Cmp_Cold
+; - - - - - - - - - - - - -
+	cmp.l	#"APex",d1		V1.10 or over?
+	bne.s	.BadVer
+* Poke les adresses
+	lea	CD(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16(a5)
+	lea	CmpEnd(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+8(a5)
+* Termin�!
+.NoCom	moveq	#ExtNb,d0		Numero extension
+	move.w	#VerNumber,d1		Current AMOSPro Version
+	rts
+* Bad version
+.BadVer	sub.l	a0,a0
+	moveq	#-1,d0			Retour a l'envoyeur!
+	rts
+
+******* Routine END
+CmpEnd:	Rbra	L_CompDel
+
+; ---------------------------------------------------------------------
+;		DATA ZONE
+CD
+Cmp_Vect	dc.l	0
+Cmp_Jump	dc.l	0
+Cmp_NSteps	dc.l	0
+Cmp_Config	dc.l	0
+pp_Base		dc.l	0
+pp_Color	dc.l	0
+pp_Flash	dc.l	0
+pp_CrunchInfo	dc.l	0
+
+Cmp_Name1	dc.b	"C:"
+Cmp_Name2	dc.b	"APCmp",0
+CSize		dc.l	0
+CNumb		dc.l	0
+LErreur		dc.w	0
+Erreur		ds.b	80
+pp_Name		dc.b	"powerpacker.library",0
+
+		even
+; ---------------------------------------------------------------------
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMPCALL: appel du programme compile!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CmpCall
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	Rbra	L_Custom
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMP OPTIONS "command line"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CmpOpt
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMPILE "command string"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	Compile1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	Dload	a2
+	Rbsr	L_CompLoad0
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	move.l	Cmp_Jump-CD(a2),a1
+	jsr	4(a1)
+	Rbra	L_FinComp
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMPILE "Command line",magic
+;	Special COMPILER.AMOS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	Compile2
+; - - - - - - - - - - - - -
+	Dload	a2
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	cmp.w	#4,d0
+	bne.s	.Start
+	cmp.l	#"Step",(a0)
+	beq.s	.Step
+	cmp.l	#"Conf",(a0)
+	beq.s	.Conf
+	cmp.l	#"Cont",(a0)
+	beq.s	.Cont
+	cmp.l	#"Stop",(a0)
+	beq.s	.Stop
+	Rbra	L_FCall
+; Stocke le nombre de pas
+; ~~~~~~~~~~~~~~~~~~~~~~~
+.Step	move.l	d3,Cmp_NSteps-CD(a2)
+	rts
+; Stocke l'adresse de la config
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Conf	move.l	d3,Cmp_Config-CD(a2)
+	rts
+; Premier appel du compilateur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Start	cmp.l	#Cmp_Magic,d3			Veut un magic!
+	Rbne	L_FCall
+	move.l	Cmp_NSteps-CD(a2),d1
+	move.l	Cmp_Config-CD(a2),d2
+	tst.l	Cmp_Vect-CD(a2)
+	Rbeq	L_FCall
+	move.l	Cmp_Jump-CD(a2),a1
+	jsr	8(a1)
+	bra.s	.Fin
+; Arret du compilateur
+; ~~~~~~~~~~~~~~~~~~~~
+.Stop	cmp.l	#Cmp_Magic,d3
+	Rbne	L_FCall
+	move.l	Cmp_Jump-CD(a2),a1
+	jsr	16(a1)
+	bra.s	.Fin
+; Appels suivants
+; ~~~~~~~~~~~~~~~
+.Cont	cmp.l	#Cmp_Magic,d3
+	Rbne	L_FCall
+	move.l	Cmp_Jump-CD(a2),a1
+	jsr	12(a1)
+; Retour de APCmp
+; ~~~~~~~~~~~~~~~
+.Fin	clr.l	ParamE(a5)		Zero si termine!
+	tst.l	d0			D0>0 : message normal
+	Rbpl	L_FinComp
+	cmp.w	#-1,d0
+	Rbne	L_OOMem			Out of memory!
+	move.l	d1,ParamE(a5)		Position dans PARAM
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=COMP ERR$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CompErr
+; - - - - - - - - - - - - -
+	Dload	a2
+	moveq	#0,d3
+	move.w	LErreur-CD(a2),d3
+	beq.s	.Vide
+	Rjsr	L_Demande
+	move.w	d3,d0
+	move.l	a0,d3
+	move.w	d0,(a1)+
+	subq.w	#1,d0
+	lea	Erreur-CD(a2),a0
+.Loop1	move.b	(a0)+,(a1)+
+	dbra	d0,.Loop1
+	move.w	a1,d1
+	and.w	#$0001,d1
+	add.w	d1,a1
+	move.l	a1,HiChaine(a5)
+	moveq	#2,d2
+	rts
+.Vide	move.l	ChVide(a5),d3
+	moveq	#2,d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMP TEST ON/OFF-> RIEN!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	Rien
+; - - - - - - - - - - - - -
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMP LOAD
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CompLoad0
+; - - - - - - - - - - - - -
+	Dload	a2
+	lea	Cmp_Name2-CD(a2),a0	APCMP
+	Rjsr	L_Sys_AddPath		+ path systeme
+	Rbra	L_CLoad			= nom complet!
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	COMP LOAD "nom"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CompLoad1
+; - - - - - - - - - - - - -
+	move.l	d3,a2
+	Rjsr	L_NomDisc		Compute le nom >>> name1
+	Rbra	L_CLoad
+
+;	Charge le compilateur, nom= NAME1
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Def	CLoad
+	movem.l	a0-a2/d0-d2,-(sp)
+	Dload	a2
+	tst.l	Cmp_Vect-CD(a2)
+	bne.s	.Loaded
+	move.l	Name1(a5),d1
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-150(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Cmp_Vect-CD(a2)
+	Rbeq	L_NFound
+	lsl.l	#2,d0
+	addq.l	#4,d0
+	move.l	d0,a0
+	cmp.l	#"APcp",20(a0)
+	bne.s	.Error
+	move.l	a0,Cmp_Jump-CD(a2)
+.Loaded	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+.Error	Rbsr	L_CompDel
+	moveq	#95,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	EFFACE LE COMPILATEUR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	CompDel
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d2,-(sp)
+	Dload	a2
+	move.l	Cmp_Vect-CD(a2),d1
+	beq.s	.skip
+	clr.l	Cmp_Vect-CD(a2)
+	clr.l	Cmp_Jump-CD(a2)
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-156(a6)
+	move.l	(sp)+,a6
+.skip	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	ERROR MESSAGES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FCall
+; - - - - - - - - - - - - -
+	moveq	#23,d0
+	Rjmp	L_Error
+	Lib_Def	NFound
+	moveq	#81,d0
+	Rjmp	L_Error
+	Lib_Def	OOMem
+	moveq	#24,d0
+	Rjmp	L_Error
+	Lib_Def	Errdisc
+	Rjmp	L_DiskError
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=COMPHERE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CompHere
+; - - - - - - - - - - - - -
+	Dload	a0
+	moveq	#0,d3
+	tst.l	Cmp_Vect-CD(a0)
+	beq.s	.skip
+	moveq	#-1,d3
+.skip	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Fin de compilation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FinComp
+; - - - - - - - - - - - - -
+	Dload	a2
+	move.l	d1,CSize-CD(a2)
+	move.l	d2,CNumb-CD(a2)
+	clr.w	LErreur-CD(a2)
+	tst.l	d0
+	beq.s	Cmp3
+	moveq	#0,d2
+	lea	Erreur-CD(a2),a1
+Cmp2	cmp.w	#80,d2
+	bcc.s	.Long
+	addq.w	#1,d2
+	move.b	(a0)+,(a1)+
+	bne.s	Cmp2
+.Long	subq.w	#1,d2
+	move.w	d2,LErreur-CD(a2)
+Cmp3	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=COMP SIZE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	CompSize
+; - - - - - - - - - - - - -
+	Dload	a0
+	move.l	CSize-CD(a0),d3
+	move.l	CNumb-CD(a0),CSize-CD(a0)
+	clr.l	CNumb-CD(a0)
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	PPLOAD "bank"
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InppLoad1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_ppLoad
+; - - - - - - - - - - - - -
+	Lib_Par	InppLoad2
+; - - - - - - - - - - - - -
+	cmp.l	#$10000,d3
+	Rbge	L_FCall
+	Rbra	L_ppLoad
+; - - - - - - - - - - - - -
+	Lib_Def	ppLoad
+; - - - - - - - - - - - - -
+;	illegal
+	move.l	(a3)+,a2
+	Rjsr	L_NomDisc
+;	Rbsr	L_Openpplib
+;	move.l	d0,a6
+;	lea	-8(sp),sp
+;	move.l	Name1(a5),a0
+;	moveq	#0,d0
+;	move.l	#Public|Chip,d1
+;	lea	(sp),a1
+;	lea	4(sp),a2
+;	move.l	#-1,a3
+;	jsr	_LVOppLoadData(a6)
+;	illegal
+	move.l	#1005,d2
+	Rjsr	L_D_Open
+	Rbeq	L_Errdisc
+	move.l	d3,d0
+	Rbsr	L_ppBnk_Load
+	Rjsr	L_D_Close
+	Rjsr	L_Bnk.Change
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	ppBnk_Load
+; - - - - - - - - - - - - -
+	movem.l	d2-d5/a2-a3,-(sp)
+	Rjsr	L_SaveRegs
+	move.l	d0,d5
+	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+; Lis l'entete
+	move.l	Buffer(a5),d2
+	moveq	#4,d3
+	Rjsr	L_D_Read
+	Rbne	L_Errdisc
+	move.l	d2,a2
+	cmp.l	#"PPbk",(a2)
+	bne	.Errbadformat
+	moveq	#12,d3
+	Rjsr	L_D_Read
+	Rbne	L_Errdisc
+	move.w	2(a2),d2
+	btst	#Bnk_BitBob,d2
+	bne.s	.BbIc
+	btst	#Bnk_BitIcon,d2
+	bne.s	.BbIc
+; Une banque normale
+	move.l	4(a2),d0		Longueur banque
+	add.l	#8+8,d0			+ Flags + Header.lst
+	move.l	#Public,d1
+	btst	#Bnk_BitChip,d2
+	beq.s	.Skip
+	move.l	#Public|Chip,d1
+.Skip	SyCall	MemReserve		Reserve le tempbuffer
+	Rbeq	L_OOMem
+	subq.l	#4,d0
+	move.l	d0,(a0)+
+	move.l	a0,TempBuffer(a5)
+	addq.l	#4,a0			Pointe au niveau des flags
+	move.l	a0,d2
+	move.l	8(a2),d3		Longueur de la partie PP
+	Rbsr	L_LoadUncrunch
+; Efface la banque origine
+	tst.l	d5
+	bpl.s	.Skip3
+	moveq	#0,d5
+	move.w	(a2),d5
+.Skip3	move.l	d5,d0
+	Rjsr	L_Bnk.Eff
+; Branche la banque dans la liste
+	move.l	Cur_Banks(a5),a0
+	move.l	TempBuffer(a5),a1
+	clr.l	TempBuffer(a5)
+	move.l	-(a1),d0
+	subq.l	#4,d0
+	move.l	d0,4(a1)		Met la longueur en 2
+	move.l	(a0),(a1)		Branche dans la liste
+	move.l	a1,(a0)
+	addq.l	#8,a1
+	clr.w	(a1)+
+	move.w	d5,(a1)+		Numero de la banque
+	addq.l	#2,a2
+	move.w	(a2)+,(a1)+		Flags
+	clr.w	(a1)+
+	bra	.Out
+; Une banque de sprites / icons
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.BbIc	move.l	4(a2),d0		Longueur tempbuffer
+	addq.l	#8,d0			+ Securite pp
+	Rjsr	L_ResTempBuffer
+	Rbeq	L_OOMem
+	move.l	a0,d2			Adresse
+	move.l	8(a2),d3		Longueur
+	Rbsr	L_LoadUncrunch		Charge + Decompacte
+	move.l	TempBuffer(a5),a3
+	addq.l	#8,a3
+; Sprite / Icons / Load / Append
+	move.w	2(a2),d0
+	btst	#Bnk_BitBob,d0
+	beq.s	.Icons
+; Bobs / Sprites
+	move.w	(a3)+,d6		Nombre de bobs
+	tst.l	d5			Overwrite?
+	ble.s	.Over
+	Rjsr	L_Bnk.GetBobs		Demande le nombre de bobs
+	beq.s	.Over			0= overwrite
+	moveq	#1,d0			Append!
+	move.w	d6,d1
+	move.w	(a0),d5			Nombre actuel
+	add.w	d5,d1
+	bra.s	.Res
+.Over	moveq	#0,d0
+	move.w	d6,d1
+	clr.w	d5
+.Res	Rjsr	L_Bnk.ResBob		Va reserve la place...
+	Rbne	L_OOMem
+	bra.s	.BB
+; Icons
+.Icons	move.w	(a3)+,d6		Nombre d'icons
+	tst.l	d5			Overwrite?
+	ble.s	.IOver
+	Rjsr	L_Bnk.GetIcons		Demande le nombre de bobs
+	beq.s	.IOver			0= overwrite
+	moveq	#1,d0			Append!
+	move.w	d6,d1
+	move.w	(a0),d5			Nombre actuel
+	add.w	d5,d1
+	bra.s	.IRes
+.IOver	moveq	#0,d0
+	move.w	d6,d1
+	clr.w	d5
+.IRes	Rjsr	L_Bnk.ResIco		Va reserve la place...
+	Rbne	L_OOMem
+; Partie commune
+; ~~~~~~~~~~~~~~
+.BB	lsl.w	#3,d5			Pointe le debut des nouveaux
+	lea	2(a0,d5.w),a2
+	subq.w	#1,d6			D6= compteur
+	bmi.s	.Pal
+.LSLoop	clr.l	(a2)+			Raz
+	clr.l	(a2)+
+	move.w	(a3)+,d0		Prend les caracteristiques
+	mulu	(a3)+,d0
+	mulu	(a3)+,d0
+	addq.l	#4,a3
+	lsl.l	#1,d0			Vide?
+	beq.s	.Rien
+	move.l	d0,d3			Reserve la memoire
+	add.l	#10,d0
+	SyCall	MemChip
+	Rbeq	L_OOMem
+	move.l	a0,-8(a2)		Poke le pointeur
+	move.l	-10(a3),(a0)+		TX/TY
+	move.w	-6(a3),(a0)+
+	move.w	-4(a3),(a0)		Plus de FLAGS!
+	and.w	#$3FFF,(a0)+
+	move.w	-2(a3),(a0)+
+	move.l	a0,a1			Copie l'image
+	move.l	a3,a0
+	move.l	d3,d0
+	Rjsr	L_TransMem
+	move.l	a0,a3
+.Rien	dbra	d6,.LSLoop
+; Recopie la palette
+.Pal	moveq	#31,d0
+.PCopy	move.w	(a3)+,(a2)+
+	dbra	d0,.PCopy
+; Efface le tempbuffer
+	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+; Fini!
+.Out	Rjsr	L_LoadRegs
+	movem.l	(sp)+,a2-a3/d2-d5
+	rts
+.Errbadformat
+	moveq	#2,d0
+	Rbra	L_Custom
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Load + Uncrunch file
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	LoadUncrunch
+; - - - - - - - - - - - - -
+	movem.l	d2-d3/a2,-(sp)
+; Ouvre la librairie
+	Rbsr	L_Openpplib
+; Charge le header >>> Buffer+16
+	movem.l	d2/d3,-(sp)
+	move.l	Buffer(a5),a2
+	lea	16(a2),a2
+	move.l	a2,d2
+	moveq	#8,d3
+	Rjsr	L_D_Read
+	Rbne	L_Errdisc
+	cmp.l	#"PP20",(a2)+		A2 pointe sur efficiency
+	Rbne	L_Errdisc
+; Charge le fichier
+	movem.l	(sp)+,d2/d3
+	Rjsr	L_D_Read
+	Rbne	L_Errdisc
+; Decompacte le fichier
+	move.l	a6,-(sp)
+	Dload	a0
+	move.l	pp_Base-CD(a0),a6
+	move.l	d2,a0
+	lea	8(a0),a1
+	add.l	d3,a0
+	moveq	#0,d0
+	jsr	_LVOppDecrunchBuffer(a6)
+	move.l	(sp)+,a6
+; Fini
+	movem.l	(sp)+,d2-d3/a2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	PPSAVE "bank",number,efficiency
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InppSave2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#2,d3
+	Rbra	L_InppSave3
+; - - - - - - - - - - - - -
+	Lib_Par	InppSave3
+; - - - - - - - - - - - - -
+	cmp.l	#5,d3			Efficiency
+	Rbcc	L_FCall
+	move.l	d3,d5
+; Ouvre  la librairie
+	Rbsr	L_Openpplib
+; Trouve les adresses de la banque
+	move.l	(a3)+,d0
+	Rjsr	L_Bnk.GetAdr
+	beq	.Errnotres
+	move.l	a1,a0
+	move.l	a1,-(sp)		Adresse banque origine
+	bsr	B_Length		Trouve la longueur totale
+; Fabrique le header
+	move.l	Buffer(a5),a2
+	move.l	#"PPbk",(a2)+		Reconnaissance
+	move.w	-8-6(a0),(a2)+		Le numero
+	move.w	-8-4(a0),(a2)+		Flags
+	move.l	d0,(a2)+		Longueur banque / buffer de crunch
+; Recopie la banque dans un buffer
+	Rjsr	L_ResTempBuffer
+	Rbeq	L_OOMem
+	move.l	a0,a1
+	move.l	(sp),a0
+	bsr	B_Copie2Buffer
+; Va cruncher
+	move.l	TempBuffer(a5),a0
+	move.l	-4(a0),d0
+	move.l	d3,d1
+	Rbsr	L_Crunche
+	move.l	d0,d4
+	move.l	d0,(a2)+		Longueur du buffer crunche
+; Ouvre le fichier / Mode NEW
+	move.l	(a3)+,a2
+	Rjsr	L_NomDisc
+	move.l	#1006,d2
+	Rjsr	L_D_Open
+	beq.s	.Errdisc
+; Sauve le header
+	move.l	Buffer(a5),d2
+	moveq	#16,d3
+	Rjsr	L_D_Write
+	bne.s	.Errdisc
+; Sauve le header pp
+	Dload	a2
+	move.l	Handle(a5),d0
+	move.l	d5,d1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.l	a6,-(sp)
+	move.l	pp_Base-CD(a2),a6
+	jsr	_LVOppWriteDataHeader(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Errdisc
+	Rbsr	L_FreeCrunchInfo
+; Sauve la banque pp
+	move.l	TempBuffer(a5),a0
+	move.l	a0,d2
+	move.l	d4,d3
+	Rjsr	L_D_Write
+	Rbne	L_Errdisc
+; Ferme le fichier
+	Rjsr	L_D_Close
+; Libere les buffer
+	Rbsr	L_FreeCrunchInfo
+	moveq	#0,d0
+	Rjsr	L_ResTempBuffer
+	addq.l	#4,sp
+	rts
+.Errdisc
+	Rbsr	L_FreeCrunchInfo
+	Rjmp	L_DiskError
+.Errnotres
+	Rjmp	L_BkNoRes
+
+;	Trouve la taille d'une banque de memoire quelconque, avec le nom
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+B_Length
+	movem.l	a0-a1/d1-d2,-(sp)
+	move.w	-8*2+4(a0),d0
+	btst	#Bnk_BitBob,d0
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d0
+	bne.s	.BB
+	move.l	-8*3+4(a0),d0
+	subq.l	#8,d0			Moins les flags
+	bra.s	.Out
+; Une banque de bobs / icones
+.BB	moveq	#2+32*2,d0		Pas le nom
+	move.w	(a0)+,d1
+	subq.w	#1,d1
+	bmi.s	.Out
+.BBLoop	move.l	(a0),d2
+	beq.s	.BBNext
+	move.l	d2,a1
+	move.w	(a1)+,d2		SX
+	mulu	(a1)+,d2		SY
+	mulu	(a1)+,d2		NPlan
+	lsl.l	#1,d2			En mots
+	add.l	d2,d0
+.BBNext	add.l	#10,d0			Le header
+	addq.l	#8,a0
+	dbra	d1,.BBLoop
+.Out	movem.l	(sp)+,a0-a1/d1-d2
+	rts
+;	Recopie une banque memoire quelconque dans un buffer
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+B_Copie2Buffer
+	movem.l	a0-a2/d0-d3,-(sp)
+	move.w	-8*2+4(a0),d0
+	btst	#Bnk_BitBob,d0
+	bne.s	.BB
+	btst	#Bnk_BitIcon,d0
+	bne.s	.BB
+	move.l	-8*3+4(a0),d0
+	subq.l	#8,d0
+	subq.l	#8,a0
+	Rjsr	L_TransMem
+	bra.s	.Out
+; Une banque de bobs / icones
+.BB	move.w	(a0)+,d3		Nombre de bobs
+	move.w	d3,(a1)+
+	subq.w	#1,d3
+	bmi.s	.Out
+.BBLoop	move.l	(a0),d1
+	beq.s	.BBVide
+	move.l	d1,a2
+	move.l	(a2)+,(a1)		SX/SY
+	move.l	(a2)+,4(a1)		NPLAN/HX
+	move.w	(a2)+,8(a1)		HY
+	move.w	(a1)+,d0		SX
+	mulu	(a1)+,d0		SY
+	mulu	(a1)+,d0		NPlan
+	lsl.l	#1,d0			En mots
+	addq.l	#4,a1
+	exg	a0,a2
+	Rjsr	L_TransMem		Va copier
+	exg	a0,a2
+	bra.s	.BBNext
+.BBVide	clr.l	(a1)+
+	clr.l	(a1)+
+	clr.w	(a1)+
+.BBNext	addq.l	#8,a0
+	dbra	d3,.BBLoop
+; La palette
+	moveq	#31,d0
+.BBPal	move.w	(a0)+,(a1)+
+	dbra	d0,.BBPal
+; Fini
+.Out	movem.l	(sp)+,a0-a2/d0-d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Crunche le buffer A0 / Longueur D0 / Efficiency D1
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Crunche
+; - - - - - - - - - - - - -
+	movem.l	a2/d2,-(sp)
+	Dload	a2
+	movem.l	a0/d0/d1,-(sp)
+; Quelle rapidite?
+	moveq	#2,d1
+	move.l	#256*1024,d0
+	SyCall	MemFast
+	bne.s	.Ok
+	moveq	#1,d1
+	move.l	#64*1024,d0
+	SyCall	MemFast
+	bne.s	.Ok
+	moveq	#0,d1
+	bra.s	.OMem
+.Ok	move.l	a0,a1
+	SyCall	MemFree
+.OMem
+; Reserve le Crunch info
+	move.l	4(sp),d0			Efficiency
+	move.l	a5,a1				User data
+	lea	.Control(pc),a0			Control-C
+	move.l	a6,-(sp)
+	move.l	pp_Base-CD(a2),a6
+	jsr	_LVOppAllocCrunchInfo(a6)
+	move.l	(sp)+,a6
+	move.l	d0,pp_CrunchInfo-CD(a2)
+	Rbeq	L_OOMem
+; Crunche le buffer
+	move.l	d0,a0				CrunchInfo
+	movem.l	(sp)+,a1/d0-d1
+	move.l	a6,-(sp)
+	move.l	pp_Base-CD(a2),a6
+	jsr	_LVOppCrunchBuffer(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Erraborted
+	bmi.s	.Errnopack
+; Retourne la longueur en D0
+	movem.l	(sp)+,a2/d2
+	rts
+.Erraborted
+	moveq	#9,d0
+	Rjmp	L_Error
+.Errnopack
+	moveq	#3,d0
+	Rbra	L_Custom
+
+; 	Routine de test du control-c
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Control
+	movem.l	a0-a1/d1/a5,-(sp)
+	move.l	4+4*4+3*4(sp),a5
+	move.w	T_Actualise(a5),d0
+	bclr	#BitControl,d0
+	beq.s	.Cont
+.Stop	moveq	#0,d0
+	bra.s	.Out
+.Cont	moveq	#1,d0
+.Out	movem.l	(sp)+,a0-a1/d1/a5
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Libere le crunchinfo
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	FreeCrunchInfo
+; - - - - - - - - - - - - -
+	Dload	a0
+	move.l	pp_CrunchInfo-CD(a0),d0
+	beq.s	.Skip
+	move.l	a6,-(sp)
+	clr.l	pp_CrunchInfo-CD(a0)
+	move.l	pp_Base-CD(a0),a6
+	move.l	d0,a0
+	jsr	_LVOppFreeCrunchInfo(a6)
+	move.l	(sp)+,a6
+.Skip	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ouvre la librairie pp
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Openpplib
+; - - - - - - - - - - - - -
+	movem.l	a2/a6,-(sp)
+	Dload	a2
+	move.l	pp_Base-CD(a2),d0
+	bne.s	.Open
+	lea	pp_Name-CD(a2),a1
+	moveq	#35,d0
+	move.l	$4.w,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,pp_Base-CD(a2)
+.Open	movem.l	(sp)+,a2/a6
+	tst.l	d0
+	beq.s	.Err
+	rts
+.Err	moveq	#1,d0
+	Rbra	L_Custom
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Ferme la librairie pp
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Closepplib
+; - - - - - - - - - - - - -
+	Rbsr	L_FreeCrunchInfo
+	Dload	a0
+	move.l	pp_Base-CD(a0),d0
+	beq.s	.Skip
+	clr.l	pp_Base-CD(a0)
+	move.l	d0,a1
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOCloseLibrary(a6)
+	move.l	(sp)+,a6
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	= SQUASH(address,length,fast,speed,colour)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	Squash
+; - - - - - - - - - - - - -
+	Rjsr	L_SaveRegs
+	move.l	d3,d6
+	cmp.l	#32,d6
+	Rbcc	L_FCall
+	move.l	(a3)+,d7
+	cmp.l	#256,d7
+	Rbcs	L_FCall
+	cmp.l	#4096,d7
+	Rbcc	L_FCall
+	move.l	(a3)+,d5
+	move.l	(a3)+,d1
+	Rbls	L_FCall
+	move.l	(a3)+,d3
+	moveq	#0,d0
+	lea	T_Actualise(a5),a0
+	movem.l	a3-a6/d6/d7,-(sp)
+	Rbsr	L_Sq
+	movem.l	(sp)+,a3-a6/d6/d7
+	Rjsr	L_LoadRegs
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	= UNSQUASH(address,lenght)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	UnSquash
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbls	L_FCall
+	move.l	(a3)+,d3
+	moveq	#1,d0
+	movem.l	a3-a6/d6/d7,-(sp)
+	Rbsr	L_Sq
+	movem.l	(sp)+,a3-a6/d6/d7
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SQUASHER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Sq
+
+	Rdata
+*
+* Squasher II.
+*
+* Enhanced for varied speed (at a cost of very little inefficiency),
+* error checking and pre scan of memory for fast and efficient squashing!
+* Routine checks if enough memory is present for pre scan.You can
+* turn off pre scan if you want to test it in non scan but you have
+* enough memory for scan by setting d5 to -1.
+* This is totally compatible with the original ST Squasher.
+*
+*
+* Main Entry d0=0 for squash or d0<>0 for unsquash
+* (Check routines below for entry parameters)!
+*
+
+Squasher:
+	tst.l	d0
+	bne	UnSquash
+********************************************************************
+*
+* Squash code from STOS!
+*
+*
+********************************************************************
+*Entry
+*	D7 Search length $80 to $1024 (works in non scan only)
+*	D5 -1 for enforced non scan
+*	D3 Address
+*	D1 Length
+*	D0 0 Squash
+*
+*Exit
+*	D3 Length positive
+*	   or
+*	   Error negative:-
+*		             -1 Squashed>=Normal
+
+Squash:
+
+* Change the addresses
+	lea	_Test1(pc),a1
+	move.l	a0,2(a1)
+	lea	_Test2(pc),a1
+	move.l	a0,4(a1)
+	lea	_Colour(pc),a1
+	lsl.w	#1,d6
+	add.l	#$DFF180,d6
+	move.l	d6,2(a1)
+* Load processor masks
+	movem.l	a0-a6/d0-d7,-(sp)
+	move.l	$4.w,a6
+	sub.l	a1,a1
+	jsr	FindTask(a6)
+	movem.l	(sp)+,a0-a6/d0-d7
+* Real squasher
+	lea	use_scan(pc),a0
+	clr.l	(a0)
+	tst.l	d5
+	beq.b	squash_entry
+pre_scan_mem:
+	movem.l	d0-d7,-(sp)
+
+	move.l	d3,a0
+	move.l	d3,a1
+	add.l	d1,a1
+
+	move.l	d1,d5
+
+	move.l	#$10000*4,d0
+	bsr	allocate_mem
+	lea	use_scan(pc),a6
+	move.l	d0,(a6)
+	beq.b	exit_pre_scan_mem
+	move.l	d0,a4
+
+	move.l	d5,d0
+	lsl.l	#1,d0
+	move.l	d0,4(a6)
+	bsr	allocate_mem
+	move.l	d0,(a6)
+	beq.b	exit_mem_clean_up
+
+
+	move.l	#$1024,d7
+	move.l	d0,a5
+scan_loop:
+	move.b	(a1),d0
+	moveq.l	#0,d1
+	move.b	-(a1),d1
+	lsl.l	#8,d1
+	or.b	d0,d1
+	lsl.l	#2,d1
+	move.l	(a4,d1.l),d2
+	beq.b	no_word_ahead
+	sub.l	a1,d2
+	cmp.l	d7,d2
+	bhi.b	no_word_ahead
+	move.l	a1,d4
+	sub.l	a0,d4
+	lsl.l	#1,d4
+	move.w	d2,(a5,d4.l)
+no_word_ahead:
+	move.l	a1,(a4,d1.l)
+	cmp.l	a0,a1
+	bgt.b	scan_loop
+
+exit_mem_clean_up:
+	move.l	a4,d1
+	move.l	#$10000*4,d0
+	bsr	deallocate_mem
+
+exit_pre_scan_mem:
+	movem.l	(sp)+,d0-d7
+
+squash_entry:
+	MOVE.L	D3,D0
+	ADD.L	D0,D1
+	lea	scan_ahead_count2(pc),a0
+	move.l	d7,(a0)
+	LEA	start(PC),A0
+	MOVE.L	D0,(A0)
+	MOVE.L	D0,4(A0)
+	MOVE.L	D1,8(A0)
+	BRA	do_squash
+
+
+allocate_mem:
+	movem.l	d2-d7/a0-a6,-(sp)
+	move.l	#%10000000000000001,d1
+	move.l	4,a6
+	jsr	-198(a6)
+	movem.l	(sp)+,d2-d7/a0-a6
+	rts
+
+deallocate_mem:
+	movem.l	d0-d7/a0-a6,-(sp)
+	move.l	d1,a1
+	tst.l	d1
+	beq.b	not_alloc
+	move.l	4,a6
+	jsr	-210(a6)
+not_alloc:
+	movem.l	(sp)+,d0-d7/a0-a6
+	rts
+
+use_scan:
+	dc.l	0
+use_scan_size:
+	dc.l	0
+offset_for_msg:
+	dc.l	0
+msg_length_code_index:
+	dc.w	0
+code_table:
+o0	dc.w	$0100
+o2	dc.w	$0200
+o4	dc.w	$0400
+o6	dc.w	$1000
+
+o8	dc.w	8
+oa	dc.w	9
+oc	dc.w	$A
+oe	dc.w	$C
+
+o10	dc.w	0
+o12	dc.w	0
+o14	dc.w	0
+o16	dc.w	8
+
+o18	dc.w	2
+o1a	dc.w	3
+o1c	dc.w	3
+o1e	dc.w	3
+
+o20	dc.w	1
+o22	dc.w	4
+o24	dc.w	5
+o26	dc.w	6
+
+final_reg_load:
+o28	dc.w	0
+o2a	dc.w	0
+o2c	dc.w	0
+o2e	dc.w	0
+add_current_byte_count_tally:
+	dc.w	0
+add_current_byte_large_count_tally:
+	dc.w	0
+	dc.w	0
+	DC.B	0,0,0,0
+	DC.B	$4D,$B8,$FF,$FF
+	DC.B	0,0,0,0
+	DC.B	0,0,0,0
+start	DC.l	0
+start2	DC.l	0
+finish	DC.l	0
+	DC.B	0,7,0,0
+	DC.B	0,0,0,0
+	DC.B	0,0,0,0
+	DC.B	0,0
+scan_ahead_count:
+	DC.l	$1024
+	DC.B	1,0
+end_address:
+	dc.l	0
+scan_ahead_count2:
+	DC.l	0
+
+do_squash:
+	MOVEA.L	start(PC),A0
+	MOVEA.L	finish(PC),A1
+	MOVEA.L	start2(PC),A2
+	MOVEQ	#1,D2
+	CLR.W	D1
+	CLR.L	D7
+main_sq_loop:
+	BSR	main_sq_rtn
+	TST.B	D0
+	BEQ.S	exit_main_sq_loop
+	ADDQ.W	#1,D1
+	CMPI.W	#$108,D1
+	BNE.S	exit_main_sq_loop
+	BSR	add_current_byte_count
+exit_main_sq_loop:
+	CMPA.L	A0,A1
+	BGT.S	main_sq_loop
+	BSR	add_current_byte_count
+	BSR	insert_next_long
+
+	move.l	use_scan_size(pc),d0
+	move.l	use_scan(pc),d1
+	bsr	deallocate_mem
+	add.l	#32,a2
+	cmp.l	a2,a1
+	bhi.b	ok_squash
+	moveq.l	#-1,d3
+	rts
+ok_squash:
+	sub.l	#32,a2
+	MOVE.L	D7,(A2)+
+	sub.l	start(PC),a1
+	MOVE.L	A1,(A2)+
+	MOVE.L	A2,d3
+	sub.l	start(pc),d3
+	RTS
+
+; Routine de test CONTROL-C
+_Test2	bclr	#BitControl,$800000
+	bne	squash_abort
+_Colour	move.w	a0,$DFF180
+	bra.s	EndIt
+
+main_sq_rtn:
+_Test1	tst.b	$800000
+	bmi.s	_Test2
+EndIt	MOVEA.L	A0,A3
+	ADDA.L	scan_ahead_count(PC),A3
+	CMPA.L	A1,A3
+	BLE.S	not_over_end
+	MOVEA.L	A1,A3
+not_over_end:
+	move.l	a0,a4
+	add.l	scan_ahead_count2(PC),a4
+	CMPA.L	A1,A4
+	BLE.S	not_over_end2
+	MOVEA.L	A1,A4
+not_over_end2:
+	lea	last_match(pc),a5
+	move.l	a0,(a5)
+	lea	end_address(pc),a5
+	move.l	a4,(a5)
+	MOVEQ	#1,D5
+	MOVEA.L	A0,A5
+	addq.l	#1,a5
+main_loop:
+
+	move.l	use_scan(pc),d4
+	beq.b	no_scan
+	move.l	d4,a4
+	move.l	last_match(pc),d4
+	sub.l	start(pc),d4
+	lsl.l	#1,d4
+	moveq.l	#0,d3
+	move.w	(a4,d4.l),d3
+	beq	leave_sq_main_rtn
+	add.l	last_match(pc),d3
+	move.l	d3,a5
+	bra.b	move_ahead
+last_match:
+	dc.l	0
+no_scan:
+	MOVE.B	(A0),D3
+	MOVE.B	1(A0),D4
+	move.l	end_address(pc),a4
+L22431C	CMP.B	(A5)+,D3
+	BEQ.S	L22432C
+L224324	CMPA.L	A5,A4
+	BGT.S	L22431C
+	BRA	leave_sq_main_rtn
+L22432C
+	cmp.b	(a5),d4
+	bne.b	L224324
+	SUBQ.W	#1,A5
+move_ahead:
+	lea	last_match(pc),a4
+	move.l	a5,(a4)
+	MOVEA.L	A0,A4
+	move.b	(a0),d3
+	move.b	1(a0),d4
+L224330	cmp.b	(a4)+,(a5)+
+	BNE.S	L22433A
+	cmp.b	(a5),d3
+	bne.b	no_match
+	cmp.b	1(a5),d4
+	bne.b	no_match
+	move.l	a0,-(sp)
+	lea	last_match(pc),a0
+	move.l	a5,(a0)
+	move.l	(sp)+,a0
+no_match:
+	CMPA.L	A5,A3
+	BGT.S	L224330
+L22433A	MOVE.L	A4,D3
+	SUB.L	A0,D3
+	SUBQ.L	#1,D3
+	CMP.L	D3,D5
+	BGE.S	too_far
+	MOVE.L	A5,D4
+	SUB.L	A0,D4
+	SUB.L	D3,D4
+	SUBQ.W	#1,D4
+	CMP.L	#4,D3
+	BLE.S	less_than_5_bytes_long
+	MOVEQ	#6,D6
+	CMP.L	#$101,D3
+	BLT.S	less_than_257_bytes_long
+	MOVE.W	#$100,D3
+less_than_257_bytes_long:
+	BRA.S	L22436A
+less_than_5_bytes_long:
+	MOVE.W	D3,D6
+	SUBQ.W	#2,D6
+	LSL.W	#1,D6
+L22436A	LEA	code_table(PC),A6
+	CMP.W	0(A6,D6.W),D4
+	BGE.S	too_far
+	MOVE.L	D3,D5
+	MOVE.L	A0,-(A7)
+	LEA	offset_for_msg(PC),A0
+	MOVE.L	D4,(A0)
+	LEA	msg_length_code_index(PC),A0
+	MOVE.B	D6,(A0)
+	MOVEA.L	(A7)+,A0
+too_far:
+	CMPA.L	A5,A3
+	BGT	main_loop
+leave_sq_main_rtn:
+	CMP.L	#1,D5
+	BEQ.S	byte_only
+	BSR	add_current_byte_count
+	MOVE.B	msg_length_code_index(PC),D6
+	MOVE.L	offset_for_msg(PC),D3
+	MOVE.W	8(A6,D6.W),D0
+	BSR	add_d0_bits_from_d3
+	MOVE.W	$10(A6,D6.W),D0
+	BEQ.S	L2243B4
+	MOVE.L	D5,D3
+	SUBQ.W	#1,D3
+	BSR	add_d0_bits_from_d3
+L2243B4	MOVE.W	$18(A6,D6.W),D0
+	MOVE.W	$20(A6,D6.W),D3
+	BSR	add_d0_bits_from_d3
+	ADDI.W	#1,$28(A6,D6.W)
+	ADDA.L	D5,A0
+	CLR.B	D0
+	RTS
+
+byte_only:
+	MOVE.B	(A0)+,D3
+	MOVEQ	#8,D0
+	BSR	add_d0_bits_from_d3
+	MOVEQ	#1,D0
+	RTS
+
+add_current_byte_count:
+	TST.W	D1
+	BEQ.S	add_current_byte_count_end
+	MOVE.W	D1,D3
+	CLR.W	D1
+	CMP.W	#9,D3
+	BGE.S	add_current_byte_large_count
+	MOVE.L	A0,-(A7)
+	LEA	add_current_byte_count_tally(PC),A0
+	ADDQ.W	#1,(A0)
+	MOVEA.L	(A7)+,A0
+	SUBQ.W	#1,D3
+	MOVEQ	#5,D0
+	BRA	add_d0_bits_from_d3
+add_current_byte_count_end:
+	RTS
+
+add_current_byte_large_count:
+	MOVE.L	A0,-(A7)
+	LEA	add_current_byte_large_count_tally(PC),A0
+	ADDQ.W	#1,(A0)
+	MOVEA.L	(A7)+,A0
+	SUBI.W	#9,D3
+	ORI.W	#$700,D3
+	MOVEQ	#$B,D0
+	BRA	add_d0_bits_from_d3
+
+add_d0_bits_from_d3:
+	SUBQ.W	#1,D0
+add_bits_loop:
+	LSR.L	#1,D3
+	ROXL.L	#1,D2
+	BCS.S	insert_next_long2
+	DBF	D0,add_bits_loop
+	RTS
+insert_next_long:
+	CLR.W	D0
+insert_next_long2:
+	cmp.l	a2,a1
+	bls.b	inefficient_compression
+	MOVE.L	D2,(A2)+
+	EOR.L	D2,D7
+	MOVEQ	#1,D2
+	DBF	D0,add_bits_loop
+	RTS
+
+inefficient_compression:
+	move.l	a1,a2
+	moveq.l	#-1,d0
+	rts
+squash_abort:
+	move.l	use_scan_size(pc),d0
+	move.l	use_scan(pc),d1
+	bsr	deallocate_mem
+	moveq	#-2,d3
+	addq.l	#4,sp
+	rts
+
+**********************************
+*Entry
+*
+*	D3 Address
+*	D1 Length
+*	D0 1 Unsquash
+*
+*Exit
+*	D3 Unsquashed Length positive
+*	   or
+*	   Error negative:-
+*			     -1 Check on data bad!
+*			     -2 Unsquasher was going to overwrite
+*				memory that was out of bounds!
+UnSquash:
+	MOVE.L	D3,D0
+	ADD.L	D0,D1
+	MOVEA.L	D1,A0
+	MOVEA.L	D0,A1
+	MOVEA.L	-(A0),A2
+	move.l	a2,d7
+	ADDA.L	A1,A2
+	MOVE.L	-(A0),D5
+	MOVE.L	-(A0),D0
+	EOR.L	D0,D5
+L22446E	LSR.L	#1,D0
+	BNE.S	L224476
+	BSR	L2244E8
+L224476	BCS.S	L2244AE
+	MOVEQ	#8,D1
+	MOVEQ	#1,D3
+	LSR.L	#1,D0
+	BNE.S	L224484
+	BSR	L2244E8
+L224484	BCS.S	L2244D4
+	MOVEQ	#3,D1
+	CLR.W	D4
+L22448A	BSR	L2244F4
+	MOVE.W	D2,D3
+	ADD.W	D4,D3
+L224492	MOVEQ	#7,D1
+L224494	LSR.L	#1,D0
+	BNE.S	L22449A
+	BSR.S	L2244E8
+L22449A	ROXL.L	#1,D2
+	DBF	D1,L224494
+	cmp.l	a1,a2
+	ble.b	bad_squash_mem
+	MOVE.B	D2,-(A2)
+	DBF	D3,L224492
+	BRA.S	L2244E0
+L2244A8	MOVEQ	#8,D1
+	MOVEQ	#8,D4
+	BRA.S	L22448A
+L2244AE	MOVEQ	#2,D1
+	BSR.S	L2244F4
+	CMP.B	#2,D2
+	BLT.S	L2244CA
+	CMP.B	#3,D2
+	BEQ.S	L2244A8
+	MOVEQ	#8,D1
+	BSR.S	L2244F4
+	MOVE.W	D2,D3
+	MOVE.W	#$C,D1
+	BRA.S	L2244D4
+L2244CA	MOVE.W	#9,D1
+	ADD.W	D2,D1
+	ADDQ.W	#2,D2
+	MOVE.W	D2,D3
+L2244D4	BSR.S	L2244F4
+L2244D6	SUBQ.W	#1,A2
+	cmp.l	a1,a2
+	blt.b	bad_squash_mem
+	MOVE.B	0(A2,D2.W),(A2)
+	DBF	D3,L2244D6
+L2244E0	CMPA.L	A2,A1
+	BLT.S	L22446E
+	tst.l	d5
+	beq.b	check_ok
+	moveq.l	#-1,d3
+	rts
+check_ok:
+	move.l	d7,d3
+	RTS
+bad_squash_mem:
+	moveq.l	#-2,d3
+	rts
+
+L2244E8	MOVE.L	-(A0),D0
+	EOR.L	D0,D5
+	MOVE.B	#$10,CCR
+	ROXR.L	#1,D0
+	RTS
+
+L2244F4	SUBQ.W	#1,D1
+	CLR.W	D2
+L2244F8	LSR.L	#1,D0
+	BNE.S	L224506
+	MOVE.L	-(A0),D0
+	EOR.L	D0,D5
+	MOVE.B	#$10,CCR
+	ROXR.L	#1,D0
+L224506	ROXL.L	#1,D2
+	DBF	D1,L2244F8
+	RTS
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	ERROR MESSAGES...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Custom
+; - - - - - - - - - - - - -
+	lea	ErrMess(pc),a0
+	moveq	#0,d1			* Can be trapped
+	moveq	#ExtNb,d2		* Number of extension
+	moveq	#0,d3			* IMPORTANT!!!
+	Rjmp	L_ErrorExt		* Jump to routine...
+ErrMess	dc.b	"Cannot run 1.3 compiled procedures under AMOSPro",0
+	dc.b	"Cannot open powerpacker.library (v35)",0
+	dc.b	"Not a powerpacked memory bank",0
+	dc.b	"Cannot pack this bank",0
+	even
+
+;	"No errors" routine
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lib_Def	NoErrors
+	moveq	#0,d1
+	moveq	#ExtNb,d2
+	moveq	#-1,d3
+	Rjmp	L_ErrorExt
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Welcome message
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_Title
+; - - - - - - - - - - - - -
+	dc.b	"AMOSPro Compiler extension V "
+	Version
+	dc.b	0,"$VER: "
+	Version
+	dc.b	0
+	Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Finish the library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_End	dc.w	0
diff --git a/compiler/+Compiler_Config.s b/compiler/+Compiler_Config.s
new file mode 100644
index 0000000..9fe0791
--- /dev/null
+++ b/compiler/+Compiler_Config.s
@@ -0,0 +1,185 @@
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;             	Donn�es de Configuration Interpr�teur
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+EdT	Macro
+	dc.b	0
+	dc.b	.\@E-.\@D
+.\@D	dc.b	"\2"
+.\@E
+	EndM
+EdD	Macro
+	dc.b	0
+	dc.b	.\@E-.\@D
+.\@D	\2
+.\@E
+	EndM
+
+		dc.l 	"CCt1"		Code de securite!
+		dc.l	Txt2-Txt1
+Txt1
+;		Messages systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		EdT	1,<>
+		EdT	2,<S:AMOSPro_Interpreter_Config>
+		EdT	3,<Compiler.Lib>
+		EdT	4,<AMOS.library>
+		EdT	5,<Header_Cli.Lib>
+		EdT	6,<Header_Backstart.Lib>
+		EdT	7,<Header_AMOS.AMOS>
+		EdT	8,<Def_Compiled>
+		EdT	9,<Ram:>
+		EdT	10,<Ram:Temp_Program.AMOS>
+		EdT	11,<Ram:Compiled_Program.AMOS>
+		EdT	12,<>
+		EdT	13,<>
+		EdT	14,<>
+		EdT	15,<>
+
+		EdT	16,<- - - - - - - - - - - - - - - >
+		EdT	17,<AMOSPro Compiler by F. Lionet >
+		EdT	18,<� 1993 Europress Software Ltd.>
+		EdT	19,<- - - - - - - - - - - - - - - >
+		EdT	20,<Tokenising program...>
+		EdT	21,<Testing program...>
+		EdT	22,<Opening libraries...>
+		EdT	23,<Compiling program...>
+		EdT	24,<Copying library routines...>
+		EdT	25,<>
+		EdT	26,<Copying system data...>
+		EdT	27,<Copying memory banks...>
+		EdT	28,<Opening source: >
+		EdT	29,<Closing object: >
+		EdT	30,<Total memory used: >
+		EdT	31,<Object length: >
+		EdT	32,< bytes.>
+		EdT	33,<>
+		EdT	34,< at line >
+		EdT	35,<>
+		EdT	36,<>
+		EdT	37,<>
+		EdT	38,<>
+		EdT	39,<>
+
+;		Messages d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		EdT	40,<Error in command line>
+		EdT	41,<Error in compiler configuration's command line>
+		EdT	42,<Extension not loaded>
+		EdT	43,<Cannot get icon informations>
+		EdT	44,<Disk error>
+		EdT	45,<Out of memory>
+		EdT	46,<Cannot open system libraries>
+		EdT	47,<Cannot uncode procedure>
+		EdT	48,<Compilation aborted>
+		EdT	49,<Nothing to compile>
+		EdT	50,<Bad editor configuration file>
+		EdT	51,<Cannot open math libraries>
+		EdT	52,<Not an AMOS program>
+		EdT	53,<Label not defined at the same level of procedure>
+		EdT	54,<Program already compiled>
+		EdT	55,<Program structures too long: compile with the -l option>
+		EdT	56,<Program already tokenised>
+		EdT	57,<Cannot open source program>
+		EdT	58,<Bad interpreter config>
+		EdT	59,<Cannot find APSystem folder>
+		EdT	60,<Line too long>
+		EdT	61,<Cannot load editor configuration>
+		EdT	62,<Cannot load interpreter configuration>
+		EdT	63,<Cannot load compiler configuration>
+		EdT	64,<Division by zero>
+		EdT	65,<Overflow at line>
+		EdT	66,<Bad compiler configuration file>
+		EdT	67,<Cannot load AMOS.Library>
+		EdT	68,<Disk is not validated>
+		EdT	69,<Disk is write protected>
+		EdT	70,<Disk full>
+		EdT	71,<>
+
+;		Message pour COMPILER.AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		EdT	72,<>
+		EdT	72,<1121100000000000000000000000000000000000000>
+
+;                           0  0     1   1     2        3   3     4
+;                           1234567890123456789012345678901234567890123
+;                          / |||         |         |         |
+;                         / / | \Compiled \         \Compiler \
+;                        S  D T  \program  \         \Setup    \
+;                        o  e y   \setup 1  \   2     \      1  \      2
+;                        u  s p
+;                        r  t e
+;                        c  i
+;                        e  n
+;
+; Compiled program setup:
+; ~~~~~~~~~~~~~~~~~~~~~~~
+; 4- Include errors
+; 5- Create default screen
+; 6- Send amos to back
+; 7- CLI program back
+; ...
+; 14- Long jump
+; 15- Include AMOS.library
+; ...
+; 24- Copy all into ram
+; 25- Leave libs upon exit
+; 26- Keep APCMP
+; 27- Squash
+; ...
+; 34- Iff anim?
+; 35- Track module
+; 36- Bell
+; 37- Animated buttons
+
+; Iff anim
+		EdT	73,<>
+; Track module
+		EdT	74,<>
+; Repertoire par defaut
+		EdT	75,<>
+		EdT	76,<>
+		EdT	77,<>
+		EdT	78,<>
+		EdT	79,<>
+		EdT	80,<>
+		EdT	81,<>
+		EdT	82,<>
+		EdT	83,<>
+		EdT	84,<>
+		EdT	85,<>
+		EdT	86,<>
+		EdT	87,<>
+
+		dc.b	0,$FF
+
+Txt2
diff --git a/compiler/+Header.s b/compiler/+Header.s
new file mode 100644
index 0000000..a77ea1b
--- /dev/null
+++ b/compiler/+Header.s
@@ -0,0 +1,1261 @@
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+
+		Include	"+AMOS_Includes.s"
+		OPT	P+
+
+		dc.w	LInit
+
+; Calcul de la taille des buffers de travail
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TBufParams	equ	256
+LDataWork	equ	32+BbLong+12*2+(AAreaSize*5+6)+24+16+12+70*3+4+20+108+108+256+TBuffer+TBufParams
+
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** **
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; Entete programme objet
+;---------------------------------------------------------------------
+
+DebPrg	move.l	#0,d2			Les flags
+	move.l	#0,d3			Decalage librairie
+
+;-----> Debut normal
+CliStart
+	lea	DebPrg(pc),a4
+	move.l	a4,Header_DebPrg-DebPrg(a4)
+
+; Entree en cas de backstart
+BackIn	move.l	sp,Header_Pile-DebPrg(a4)
+	movem.l	a0/d0,-(sp)
+
+	moveq	#0,d4			Pas de message!
+	moveq	#0,d5
+	moveq	#0,d6
+	move.l	$4.w,a6
+
+; Workbench?
+; ~~~~~~~~~~
+	btst	#FHead_PRun,d2		Pas si PRUN
+	bne.s	.Cli
+	btst	#FHead_Backed,d2	Backstart?
+	bne.s	.Cli
+	sub.l	a1,a1
+	jsr	_LVOFindTask(a6)
+	move.l	d0,a0
+	tst.l	$ac(a0)
+	bne.s	.Cli
+	lea	$5c(a0),a0		Recupere le message
+	move.l	a0,-(sp)
+	jsr	-384(a6)		WaitPort
+	move.l	(sp)+,a0
+	jsr	-372(a6)		GetMsg
+	move.l 	d0,d4
+.Cli
+
+; Init dos.library
+; ~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lea	DosName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,d5
+	beq	Abort_Panic
+
+; Init INTUITION library
+; ~~~~~~~~~~~~~~~~~~~~~~
+	moveq	#0,d0
+	lea	IntName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,d6
+	beq	Abort_Panic
+
+; Si workbench, change le directory >>> Directory du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.l	d4
+	beq.s	.Cli2
+	move.l	d4,a2
+	move.l	$24(a2),d0
+	beq.s	.Cli2
+	move.l	d0,a0
+	move.l	(a0),d1
+	beq.s	.Cli2
+	move.l	d5,a6
+	jsr	_LVOCurrentDir(a6)
+.Cli2
+
+; Reserve une zone de donnees pour le header
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ReRun_Short
+	move.l	#H_DZLong,d0		Longueur
+	move.l	#Public|Clear,d1	Flags
+	lea	Header_DZ(pc),a0
+	bsr	A0_Reserve
+	beq	Abort_Mem
+	move.l	a0,a4
+	move.l	d5,H_DosBase(a4)
+	move.l	d6,H_IntBase(a4)
+	move.l	d4,H_Message(a4)
+
+;	Preparation du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ReRun_Normal
+	move.l	d2,H_Flags(a4)		Flags header
+
+; 1 : programme
+	lea	H_Load+0*8(a4),a6
+	bsr	DecHunk
+	bmi	Abort_Mem
+	move.l	a1,a2			Programme >>> A2
+	move.l	a1,H_Program(a4)
+
+; 2 : librairies
+	lea	H_Load+1*8(a4),a6
+	bsr	DecHunk
+	bmi	Abort_Mem
+	move.l	a1,a3			Librairies >> A3
+	add.l	a3,d3
+	move.l	d3,H_Libraries(a4)	Adresse absolue (a4)
+
+; 3 : relocation
+	lea	H_Load+2*8(a4),a6
+	bsr	DecHunk
+	bmi	Abort_Mem
+	bsr	H_Reloc
+	bsr	EffLastLoad
+
+; 4-5 : amos.library + datazone + mouse.abk
+	btst	#FHead_PRun,Head_Flags(a4)	PRun?
+	bne	.PRunne
+	btst	#FHead_Run,Head_Flags(a4)	Run?
+	bne	.Runne
+
+	lea	H_Load+3*8(a4),a6
+	bsr	DecHunk
+	bmi	Abort_Mem
+	tst.l	(a1)				Une librairie?
+	bne.s	.Libhere
+	bsr	EffLastLoad			Non, on enleve de la memoire
+	move.l	a6,-(sp)			Et on charge du disque
+	move.l	H_DosBase(a4),a6
+	lea	LibName2(pc),a0			APSystem/amos.library
+	move.l	a0,d1
+	jsr	_LVOLoadSeg(a6)
+	tst.l	d0
+	bne.s	.Ok
+	lea	LibName3(pc),a0			libs/amos.library
+	move.l	a0,d1
+	jsr	_LVOLoadSeg(a6)
+	tst.l	d0
+	bne.s	.Ok
+	lea	LibName1(pc),a0			libs:amos.library
+	move.l	a0,d1
+	jsr	_LVOLoadSeg(a6)
+.Ok	move.l	(sp)+,a6
+	move.l	d0,H_WSegment(a4)		Adresse du segment
+	lsl.l	#2,d0
+	beq	Abort_Lib
+	addq.l	#4,d0
+	move.l	d0,a1
+.Libhere
+	move.l	a1,a3
+	move.l	a3,H_WAddress(a4)	Adresse amos.library
+
+; Reserve la zone de datas...
+	move.l	#LDataWork+DataLong,d0	  Longueur buffers travail
+	add.l	8(a3),d0		+ Longueur datas W
+	move.l	d0,d2
+	lea	H_DataZone(a4),a0
+	move.l	#Public|Clear,d1	Flags
+	bsr	A0_Reserve
+	beq	Abort_Mem
+	lea	LDataWork(a0),a5
+	move.l	a5,a0
+	add.l	8(a3),a5
+	move.l	a5,H_DataA5(a4)
+; Trouve toutes les adresses de buffers de travail
+	lea	-32(a0),a0
+	move.l	a0,BufLabel(a5)		Buffer label expression
+	lea	-BbLong(a0),a0
+	move.l	a0,BufBob(a5)		Buffer dessin d'un bob
+	lea	-12*2(a0),a0
+	move.l	a0,MnTDraw(a5)		Buffer outline menus
+	lea	-(AAreaSize*5+6)(a0),a0
+	move.l	a0,AAreaBuf(a5)		Zone pour les AREAFILL
+	lea	-24(a0),a0
+	move.l	a0,AAreaInfo(a5)
+	lea	-16(a0),a0
+	move.l	a0,BufAMSC(a5)		Buffers chargement IFF
+	lea	-12(a0),a0
+	move.l	a0,BufCCRT(a5)
+	lea	-70*3(a0),a0
+	move.l	a0,BufCMAP(a5)
+	lea	-4(a0),a0
+	move.l	a0,BufCAMG(a5)
+	lea	-20(a0),a0
+	move.l	a0,BufBMHD(a5)
+	lea	-108(a0),a0
+	move.l	a0,DirFNeg(a5)		Filtre negatif directory
+	lea	-108(a0),a0
+	move.l	a0,Name2(a5)		Buffers nom disque
+	lea	-256(a0),a0
+	move.l	a0,Name1(a5)
+	lea	-TBuffer(a0),a0
+	move.l	a0,Buffer(a5)
+	move.l	a0,BasA3(a5)		Buffer parametres
+	move.l	#256,d0
+	lea	PathAct(a5),a0		Buffer du pathact
+	move.l	#Public|Clear,d1
+	bsr	A0_Reserve
+	beq	Abort_Mem
+; Start system function of the amos.library
+	move.l	#"V2.0",d0		Magic
+	move.w	#$0200,d1		Version
+	jsr	12(a3)
+	cmp.l	#"W2.0",d0		Bonne version?
+	bne	Abort_Lib
+
+; 5 : MOUSE.ABK
+	lea	H_Load+4*8(a4),a6
+	move.l	#Public|Chip,d1
+	bsr	DecHunk
+	bmi	Abort_Mem
+	tst.l	(a1)
+	bne.s	.Mouse
+	bsr	EffLastLoad
+	bra.s	.FMouse
+.Mouse	move.l	a1,PI_AdMouse(a5)
+.FMouse	bra.s	.Fin45
+
+; 4-5: RUN, on ne charge rien
+.Runne	bsr	EffHunk			Saute AMOS.library
+	bsr	EffHunk			Saute mouse.abk
+.Fin45
+
+; 6 : Recopie l'environement systeme
+	lea	H_Load+5*8(a4),a6
+	bsr	DecHunk			Environment interpreter
+	bmi	Abort_Mem
+	move.l	(a1)+,d0		Taille des PI_
+	subq.l	#1,d0
+	lea	PI_Start(a5),a0
+.Cop1	move.b	(a1)+,(a0)+
+	dbra	d0,.Cop1
+	move.l	(a1)+,d0
+	lea	Sys_Messages(a5),a0	Reserve les messages
+	move.l	#Public,d1
+	bsr	A0_Reserve
+	subq.l	#1,d0
+.Cop2	move.b	(a1)+,(a0)+
+	dbra	d0,.Cop2
+	bsr	EffLastLoad
+	bra.s	.PaPRun
+
+; 4-5-6: PRUN, on saute tout!
+.PRunne	bsr	EffHunk			amos.library
+	bsr	EffHunk			mouse.abk
+	bsr	EffHunk			environment systeme
+	move.b	#1,H_PRun(a4)		Met le flag PRUN
+.PaPRun
+
+; 7 : Banque de dialogues par defaut
+	lea	H_Load+6*8(a4),a6
+	bsr	DecHunk
+	bmi	Abort_Mem
+; Une banque?
+	cmp.l	#-1,(a1)
+	bne.s	.Bk
+	bsr	EffLastLoad
+	bra.s	.Nobk
+; Fabrique et branche la banque
+.Bk	lea	Sys_Banks(a5),a0
+	move.l	a0,Cur_Banks(a5)
+	IFNE	Debug
+	moveq	#0,d0			Si debug, empeche la copie
+	ENDC
+	bsr	Get_Bank
+	move.l	a0,Sys_Resource(a5)
+.Nobk
+
+; 8 : les messages d'erreur
+	lea	H_Load+7*8(a4),a6
+	bsr	DecHunk
+	bmi	Abort_Mem
+; Des messages?
+	move.l	(a1)+,d0
+	beq.s	.Noerr
+	lea	Ed_RunMessages(a5),a0
+	move.l	#Public,d1
+	bsr	A0_Reserve
+	subq.w	#1,d0
+.Cope	move.b	(a1)+,(a0)+
+	dbra	d0,.Cope
+.Noerr	bsr	EffLastLoad
+
+;	Short-Mem run, ou first run?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	btst	#FHead_Short,Head_Flags(a4)
+	bne.s	.Short
+	btst	#FHead_Run,Head_Flags(a4)
+	bne	.RunMes
+
+; First run: saisie de la ligne de commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	movem.l	(sp)+,a0/d0
+	move.l	Buffer(a5),a1
+	lea	TBuffer-256-6(a1),a1
+	move.l	#"CmdL",(a1)+
+	move.l	a1,a2
+	clr.w	(a1)+
+; Prend le message du CLI
+	move.l	H_Message(a4),d1
+	bne.s	.PaCli
+	moveq	#0,d2
+	subq.w	#1,d0
+	bmi.s	.FinMes
+.Cl1	move.b	(a0)+,d1
+	cmp.b	#32,d1
+	bcs.s	.Cl2
+	bne.s	.Cl0
+	tst.b	d2
+	beq.s	.Cl2
+.Cl0	move.b	d1,(a1)+
+	addq.w	#1,d2
+.Cl2	dbra	d0,.Cl1
+	bra.s	.FinMes
+.PaCli
+; Prend le message du WB
+	move.l	d1,a0
+	cmp.l	#2,$1c(a0)
+	bne.s	.FinMes
+	move.l	$24(a0),d0
+	beq.s	.FinMes
+	move.l	d0,a0
+	move.l	12(a0),d0
+	beq.s	.FinMes
+	move.l	d0,a0
+.WbL1	move.b	(a0)+,(a1)+
+	bne.s	.WbL1
+	subq.l	#1,a1
+	bra.s	.FinMes
+
+; Short-mem: repoke les donn�es sauvees dans la pile
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+.Short	clr.b	H_Short(a4)
+; Le pathact
+	lea	Short_Path(sp),a0
+	move.l	PathAct(a5),a1
+.Cp1	move.b	(a0)+,(a1)+
+	bne.s	.Cp1
+; La ligne de commande
+	lea	Short_Command(sp),a0
+	move.l	Buffer(a5),a1
+	lea	TBuffer-256-6(a1),a1
+	move.l	#"CmdL",(a1)+
+	move.l	a1,a2
+	move.w	(a0)+,d0
+	move.w	d0,(a1)+
+	beq.s	.FinMes
+	subq.w	#1,d0
+.Cp2	move.b	(a0)+,(a1)+
+	dbra	d0,.Cp2
+	lea	Short_Save(sp),sp	Restore la pile
+; Termine le message
+.FinMes	sub.l	a2,a1
+	subq.l	#2,a1
+	move.w	a1,(a2)
+.RunMes
+
+; Vide les caches du 68030 / 68040
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	bsr	Sys_ClearCache
+
+; Init amos.library
+; ~~~~~~~~~~~~~~~~~
+	btst	#FHead_Run,Head_Flags(a4)
+	bne.s	.NoAMOS
+	move.l	$4.w,a6			Open graphics.library
+	moveq	#0,d0
+	lea	GfxName(pc),a1
+	jsr	_LVOOpenLibrary(a6)
+	move.l	d0,T_GfxBase(a5)
+	beq	Abort_Mem
+	move.l	H_IntBase(a4),T_IntBase(a5)
+	moveq	#3,d0
+	bsr	Sys_GetMessage
+	move.l	a0,a3			A3= Fonte / 0
+	lea	PI_DefEPa(a5),a2	A2= Default Palette
+	move.l	PI_AdMouse(a5),a1	A1= Mouse.Abk
+	lea	PI_ParaTrap(a5),a0	A0= Parametres start
+	move.l	PI_DefAmigA(a5),d1	A1= Amiga-A
+	moveq	#0,d0			D0= Pas d'ecran
+	move.l	H_WAddress(a4),a6
+	jsr	(a6)
+	tst.l	d0
+	bne	Abort_Mem
+	move.b	#-1,H_WStarted(a4)
+.NoAMOS
+
+; 	HUNKS 9 ... : les BANQUES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	lea	Cmp_CurBanks(a5),a0	Banques courantes
+	move.l	a0,Cur_Banks(a5)
+	lea	Cmp_CurDialogs(a5),a0	Dialogues courants
+	move.l	a0,Cur_Dialogs(a5)
+	move.w	Prg_Flags(a4),d2	Partie haute des flags
+	lea	H_Load+8*8(a4),a6
+.Loop	bsr	DecHunk
+	bmi.s	.Mem
+	beq.s	.LoopX
+	IFNE	Debug
+	moveq	#1,d0			Si Debug, force la copie
+	ENDC
+	bsr	Get_Bank
+	beq.s	.Loop
+.Mem	bset	#15,d2			Flag ABORT pour le programme!
+.LoopX
+
+;	Fin de RUN
+; ~~~~~~~~~~~~~~~~
+	move.l	H_DosBase(a4),DosBase(a5)
+	move.l	sp,BasSp(a5)		Niveau FIN
+	subq.l	#4,BasSp(a5)
+	move.l	H_Program(a4),a0	Debut du programme
+	move.l	BasA3(a5),a3		Buffer parametres
+	move.l	H_Libraries(a4),a4	Base jsr(a4)
+	jsr	(a0)
+	bra	Abort			Fin normale
+	bra	Run_Normal		Run Normal
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RUN SHORT MEMORY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Run_Short
+	move.l	Header_DZ(pc),a4
+	lea	-Short_Save(sp),sp
+; Sauve le nom du programme
+	move.l	Name1(a5),a0
+	lea	Short_Name(sp),a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+; Sauve le pathname courant
+	move.l	PathAct(a5),a0
+	lea	Short_Path(sp),a1
+.Cop2	move.b	(a0)+,(a1)+
+	bne.s	.Cop2
+; Sauve la ligne de commande
+	move.l	Buffer(a5),a0
+	lea	TBuffer-256-6(a0),a0
+	lea	Short_Command(sp),a1
+	clr.b	(a1)
+	cmp.l	#"CmdL",(a0)+
+	bne.s	.Cop4
+	move.w	(a0)+,d0
+	move.w	d0,(a1)+
+	beq.s	.Cop4
+	subq.w	#1,d0
+.Cop3	move.b	(a0)+,(a1)+
+	dbra	d0,.Cop3
+.Cop4
+; Effacement de toute la m�moire
+	bsr	Abort_All		Tout AMOS!
+	move.l	H_Message(a4),d4	Le header
+	move.l	H_DosBase(a4),d5
+	move.l	H_IntBase(a4),d6
+	lea	Header_DZ(pc),a0	La datazone!
+	bsr	A0_Free
+; Fait un flush!
+	moveq	#4,d2			4 fois!!!
+.Flush	move.l	#80000000,d0		Fait un flush!
+	move.l	#Public,d1		80 megas en public!
+	bsr	H_Ram
+	dbra	d2,.Flush
+; Charge tout le programme
+	lea	Short_Name(sp),a0	Charge les hunks
+	bsr	Load_Run
+	beq	Abort_Mem
+	bset	#FHead_Short,d2		Flags RUN-SHORT
+	bra	ReRun_Short
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RUN NORMAL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+Run_Normal
+	move.l	Header_DZ(pc),a4
+; Enleve le programme precedent
+	lea	H_Load+16(a4),a6
+	bsr	EffLastLoad		Les librairies
+	bsr	EffLastLoad		Le programmme
+	bsr	Abort_Run		Les banques + buffers
+	lea	Sys_Messages(a5),a0	+ les messages systeme
+	bsr	A0_Free
+; Charge le suivant
+	move.l	Name1(a5),a0
+	move.l	DosBase(a5),d5
+	bsr	Load_Run
+	beq	Abort_Mem
+	bset	#FHead_Run,d2		Change le flag
+	bset	#FPrg_DefRunAcc+16,d2	DEFRUNACC pour le programme
+	bra	ReRun_Normal
+
+; Charge tout le programme suivant, le branche sur le precedent
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Load_Run
+	move.l	a0,d1
+	move.l	d5,a6
+	jsr	-150(a6)
+	tst.l	d0
+	beq.s	.Err
+; Enleve le premier hunk (header), en recuperant les flags
+	lsl.l	#2,d0
+	move.l	d0,a2
+	move.l	a2,a1
+	move.l	-(a1),d0
+	move.l	Header_DebPrg(pc),a0
+	move.l	(a2)+,-4(a0)		Branche apres celui-ci
+	move.l	2(a2),d2		Flags programme + Flags hader
+	move.l	2+6(a2),d3		Prend les flags
+	bsr	H_Free
+	moveq	#-1,d0			VRAI
+.Err	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SORTIE DU PROGRAMME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;	Messages d'erreur!
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+Abort_Panic
+	moveq	#20,d0			Rien n'est ouvert!
+	bra	Abort_Finish
+Abort_Mem
+	moveq	#-2,d0			Out of mem
+	bra.s	Abort
+Abort_Lib
+	moveq	#-3,d0			Cannot open amos.library
+
+;	Trouve / Copie le message d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Abort	move.l	d0,-(sp)		Message d'erreur reel
+	sub.l	a2,a2
+	move.l	d0,d2
+	beq.s	.Push
+	moveq	#20,d2			Message d'erreur CLI= 20
+	cmp.w	#-2,d0			Out of memory
+	beq.s	.Mem
+	cmp.w	#-3,d0			Cannot open amos.library
+	bne.s	.Mess
+.Lib	lea	NoAMOSlib(pc),a0
+	bra.s	.Mess
+.Mem	lea	OOfMem(pc),a0
+.Mess	move.l	a0,d1			Un message?
+	beq.s	.Push
+	tst.b	(a0)			Vraiment un message?
+	beq.s	.Push
+	lea	-256(sp),sp		Copie dans la pile
+	move.l	sp,a2
+	move.l	sp,a1
+.Copy	move.b	(a0)+,(a1)+
+	bne.s	.Copy
+.Push	movem.l	a2/d2,-(sp)
+
+; Quelquechose d'ouvert?
+	move.l	Header_DZ(pc),d0	Adresse de la datazone
+	beq.s	.PMess			Rien de demarre!
+	move.l	d0,a4
+; Un PRUN?
+	tst.b	H_PRun(a4)
+	bne.s	Abort_PRun
+	bsr	Abort_All		Va tout fermer
+; Efface la zone de donnees du header
+	move.l	H_Message(a4),d4	Prend les donnees essentielles!
+	move.l	H_DosBase(a4),d5
+	move.l	H_IntBase(a4),d6
+	lea	Header_DZ(pc),a0
+	bsr	A0_Free
+; Imprime l'eventuel message d'erreur
+.PMess	move.l	4(sp),a0
+	bsr	Print_Message
+	move.l	(sp),d0
+
+; Ferme toutes les librairies restantes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Abort_Finish
+	move.l	d0,d2
+	move.l	$4.w,a6
+	tst.l	d5			Ferme dos.library
+	beq.s	.Skip1
+	move.l	d5,a1
+	jsr	_LVOCloseLibrary(a6)
+.Skip1	tst.l	d6
+	beq.s	.Skip2
+	move.l	d6,a6			Rouvre le workbench
+	jsr	-210(a6)
+	move.l	$4.w,a6			Ferme la librairie
+	move.l	d6,a1
+	jsr	_LVOCloseLibrary(a6)
+.Skip2	tst.l	d4
+	beq.s	.PaMe
+	move.l	$4.w,a6
+	jsr	_LVOForbid(a6)
+	move.l 	d4,a1
+	jsr	-378(a6)
+.PaMe	move.l	d2,d0
+; On sort!
+	move.l	Header_Pile(pc),sp
+	rts
+
+; Sort d'un PRUN
+; ~~~~~~~~~~~~~~
+Abort_PRun
+	bsr	Abort_Run		Les banques + buffers
+	moveq	#H_NLoad,d2		Toutes les donnees chargees
+	lea	H_Load(a4),a2
+	bsr	Free_Memories
+	moveq	#0,d4			Pas de message
+	move.l	H_DosBase(a4),d5
+	move.l	H_IntBase(a4),d6
+	lea	Header_DZ(pc),a0	La zone de donnee header
+	bsr	A0_Free
+	move.l	8(sp),d0		Reprend le message d'erreur
+	bra.s	Abort_Finish		On sort!
+
+; Ferme toute la datazone AMOS
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Abort_All
+; Arrete amos.library si demarree
+	tst.b	H_WStarted(a4)
+	beq.s	.Pas
+	move.l	H_WAddress(a4),a0	Stop amos.library
+	jsr	4(a0)
+.Pas
+; Enleve tout (a5) si defini
+	move.l	H_DataA5(a4),d0
+	beq.s	.NoDZ
+	move.l	d0,a5
+	bsr	Abort_Run		Tout run
+	lea	Sys_Messages(a5),a0	+ messages systeme
+	bsr	A0_Free
+	lea	PathAct(a5),a0		+ pathact
+	bsr	A0_Free
+	lea	H_DataZone(a4),a0	+ datazone
+	bsr	A0_Free
+.NoDZ
+
+; Enleve toutes les donnees chargee
+	moveq	#H_NLoad,d2		Enleve tout!
+	lea	H_Load(a4),a2
+	bsr	Free_Memories
+
+; Enleve amos.library si chargee
+	move.l	H_WAddress(a4),d0
+	beq.s	.noLib
+	move.l	d0,a0				Stop system
+	jsr	16(a0)
+	move.l	H_DosBase(a4),a6		Unloadsegment
+	move.l	H_WSegment(a4),d1
+	beq.s	.noLib
+	jsr	_LVOUnLoadSeg(a6)
+.noLib
+; Enleve la graphics.library
+	move.l	$4.w,a6
+	move.l	T_GfxBase(a5),d0
+	beq.s	.NoGFX
+	move.l	d0,a1
+	jsr	_LVOCloseLibrary(a6)
+.NoGFX
+	rts
+
+; Libere les buffers recharges par RUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Abort_Run
+	lea	Ed_RunMessages(a5),a0
+	bsr	A0_Free
+	move.l	Sys_Resource(a5),d0
+	beq.s	.NoRes
+	move.l	d0,a1
+	lea	-8*3(a1),a1
+	move.l	4(a1),d0
+	addq.l	#8,d0
+	bsr	H_Free
+	clr.l	Sys_Resource(a5)
+.NoRes	rts
+
+; 	Imprime le message d'erreur dans l'entree courante
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Message
+;	D4=	WB Message
+;	D5=	DosBase
+;	D6=	IntBase
+Print_Message
+	move.l	a0,d7			Un message?
+	beq.s	.Exit
+	tst.l	d4			Wb  ou CLI?
+	bne.s	.Wb
+; Sous DOS-> Message dans la fenetre courante
+	move.l	d5,a6			Handle courant
+	jsr	-60(a6)
+	move.l	d0,d1
+	beq.s	.Exit
+	move.l	d7,a1
+.Copy	tst.b	(a1)+
+	bne.s	.Copy
+	move.b	#10,-1(a1)
+	clr.b	(a1)
+	move.l	a1,d3
+	sub.l	d7,d3
+	move.l	d7,d2
+	jsr	_LVOWrite(a6)
+.Exit	rts
+; Sous WB-> ouvre une tchote fenetre
+.Wb	move.l	d6,a6			IntBase
+	lea	H_Click(pc),a0
+	lea	H_AutoBody(pc),a1
+	move.l	d7,12(a1)
+	lea	H_AutoClick(pc),a3
+	move.l	a0,12(a3)
+	sub.l	a2,a2
+	sub.l	a0,a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.l	#560,d2
+	moveq	#50,d3
+	jsr	-348(a6)
+	rts
+
+
+;	Clear CPU Caches, quel que soit le systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_ClearCache
+	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	cmp.w	#36,$14(a6)			Si systeme 2.0
+	bcs.s	.Exit
+	jsr	-$27c(a6)			CacheClearU
+.Exit	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+
+;	Trouve un message configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_GetMessage
+	move.l	Sys_Messages(a5),a0
+GetMessage
+	clr.w	d1
+	addq.l	#1,a0
+	bra.s	.In
+.Loop	move.b	(a0),d1
+	lea	2(a0,d1.w),a0
+.In	subq.w	#1,d0
+	bgt.s	.Loop
+.Out	move.b	(a0)+,d0
+	rts
+
+;	Reservation memoire
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+H_Ram	movem.l	a0-a1/a6/d1,-(sp)
+	move.l	$4.w,a6
+	jsr	-198(a6)
+	movem.l	(sp)+,a0-a1/a6/d1
+	tst.l	d0
+	rts
+H_Free	movem.l	a0-a1/a6/d0-d1,-(sp)
+	move.l	$4.w,a6
+	jsr	FreeMem(a6)
+	movem.l	(sp)+,a0-a1/a6/d0-d1
+	rts
+H_Copy	movem.l	d0-d1/a0-a1/a6,-(sp)
+	move.l	$4.w,a6
+	jsr	 -$270(a6)
+	movem.l	(sp)+,d0-d1/a0-a1/a6
+	rts
+
+; 	Reserve un espace m�moire sur (a0)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+;	D0=	Longueur
+;	D1=	Flags
+A0_Reserve
+	movem.l	a1/d0/d2,-(sp)
+	move.l	a0,a1
+	move.l	d0,d2
+	addq.l	#4,d0
+	bsr	H_Ram
+	beq.s	.Out
+	move.l	d0,a0
+	move.l	d2,(a0)+
+	move.l	a0,(a1)
+.Out	movem.l	(sp)+,a1/d0/d2
+	rts
+
+; 	Efface un espace m�moire sur (a5)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A0=	Adresse dans (a5)
+A0_Free
+	movem.l	a0/a1/d0,-(sp)
+	move.l	(a0),d0
+	beq.s	.Skip
+	clr.l	(a0)
+	move.l	d0,a1
+	move.l	-(a1),d0
+	addq.l	#4,d0
+	bsr	H_Free
+.Skip	movem.l	(sp)+,a0/a1/d0
+	rts
+
+;	Reloge le programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A1=	Table de relocation
+;	A2=	Debut programme
+;	A3=	Debut librairies
+H_Reloc	moveq	#-1,d0
+	move.l	a2,a0
+.Loop	moveq	#0,d1
+	move.b	(a1)+,d1
+	beq.s	.Zero
+	cmp.b	#1,d1
+	bne.s	.Relo
+	lea	508(a0),a0
+	bra.s	.Loop
+.Zero	move.l	a3,a0
+	addq.l	#1,d0
+	beq.s	.Loop
+	rts
+.Relo	lsl.w	#1,d1
+	add.l	d1,a0
+	move.l	(a0),d2
+	bmi.s	.Lib
+	add.l	a2,d2
+	move.l	d2,(a0)
+	bra.s	.Loop
+.Lib	bclr	#31,d2
+	add.l	a3,d2
+	move.l	d2,(a0)
+	bra.s	.Loop
+
+;-----> Gestion des banques, A1= adresse banque
+;	D0 (si debug)=
+Get_Bank
+	movem.l	a2/d2-d4,-(sp)
+; Une banque de sprites / icons?
+	cmp.l	#"AmSp",(a1)
+	beq.s	.Spr
+	cmp.l	#"AmIc",(a1)
+	beq.s	.Ico
+; Banque simple: branche dans la liste
+
+	IFNE	Debug
+	tst.w	d0
+	bne.s	.Debug
+	ENDC
+
+; Mode normal: simple changement dans la liste
+	move.l	Cur_Banks(a5),a0
+	subq.l	#8,a1			Pointe le header
+	move.l	(a1),4(a1)		Longueur
+	subq.l	#8,4(a1)		Moins header Listes
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	bsr	ClrLastLoad		Banque debranchee des hunks
+	bra	.Ok
+
+; Mode debug: recopie la banque dans une zone reservee par amos.library
+	IFNE	Debug
+.Debug	move.l	-8(a6),a1		Adresse banque
+	movem.l	a0-a1/a6/d1-d2,-(sp)	TypeOfMem
+	move.l	$4.w,a6
+	jsr	-$216(a6)
+	movem.l	(sp)+,a0-a1/a6/d1-d2
+	btst	#1,d0			CHIP?
+	bne.s	.Chip
+	move.l	-4(a6),d0
+	SyCall	MemFast
+	bra.s	.Suit
+.Chip	move.l	-4(a6),d0
+	SyCall	MemChip
+.Suit	beq	.Error
+	exg.l	a0,a1			Va copier la banque origine
+	bsr	H_Copy
+	move.l	Cur_Banks(a5),a0
+	move.l	(a1),4(a1)		Longueur
+	subq.l	#8,4(a1)
+	move.l	(a0),(a1)
+	move.l	a1,(a0)
+	bsr	EffLastLoad		Efface l'origine
+	bra	.Ok
+	ENDC
+; Banque de sprites
+.Spr	moveq	#1,d3
+	lea	Head_Sprite(pc),a0
+	moveq	#1<<Bnk_BitBob+1<<Bnk_BitData,d4
+	bra.s	.SprIco
+; Banque d'icones
+.Ico	moveq	#2,d3
+	lea	Head_Icon(pc),a0
+	moveq	#1<<Bnk_BitIcon+1<<Bnk_BitData,d4
+; Cree la banque
+.SprIco	move.l	a0,-(sp)
+	addq.l	#4,a1
+	move.w	(a1)+,d2		Nombre de sprites
+	move.w	d2,d0
+	lsl.w	#3,d0			* 8
+	add.w	#24+2+32*2,d0		+ header + Palette
+	ext.l	d0
+	SyCall	MemFastClear
+	beq.s	.Error
+	move.l	a0,a2
+	move.l	Cur_Banks(a5),a0	Branche la banque
+	move.l	(a0),(a2)
+	move.l	a2,(a0)
+	subq.l	#8,d0			Moins header listes
+	move.l	d0,4(a2)
+	lea	8(a2),a2		Met le header
+	move.l	d3,(a2)+
+	move.w	d4,(a2)+
+	clr.w	(a2)+
+	move.l	(sp)+,a0
+	move.l	(a0)+,(a2)+		Copie le nom
+	move.l	(a0)+,(a2)+
+	move.w	d2,(a2)+		Nombre de sprites
+	bra.s	.SIn
+.SLoop	move.w	(a1),d0			Taille d'un sprite
+	mulu	2(a1),d0
+	mulu	4(a1),d0
+	beq.s	.SNext
+	lsl.l	#1,d0
+	add.l	#10,d0
+	SyCall	MemChip
+	beq.s	.Error
+	move.l	a0,(a2)
+	exg	a0,a1
+	bsr	H_Copy
+	exg	a0,a1
+	lea	-10(a1,d0.l),a1
+.SNext	lea	10(a1),a1
+	addq.l	#8,a2
+.SIn	dbra	d2,.SLoop
+	moveq	#32-1,d0
+.Pal	move.w	(a1)+,(a2)+
+	dbra	d0,.Pal
+	bsr	EffLastLoad		Debranche des hunks
+; Retourne l'adresse de la banque
+.Ok	move.l	Cur_Banks(a5),a0	Retourne Start(b)
+	move.l	(a0),a0
+	lea	8*3(a0),a0
+	moveq	#0,d0
+	bra.s	.Out
+; Out of mem pendant la copie de la banque
+.Error	moveq	#1,d0			Laisse le HUNK sur A6!
+; Sortie
+.Out	movem.l	(sp)+,a2/d2-d4
+	rts
+
+;	Enleve le dernier hunk de la liste
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EffHunk	move.l	Header_DebPrg(pc),a0
+	move.l	-4(a0),d0
+	lsl.l	#2,d0
+	move.l	d0,a1			Adresse
+	move.l	(a1),-4(a0)		Detache de la liste
+	move.l	-(a1),d0		Longueur
+	bra	H_Free
+
+;	Decompacte et enleve de la liste le HUNK suivant le header
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	A6> Liste des zones reservees
+DecHunk	movem.l	a0/a2-a5/d2-d7,-(sp)
+	move.l	Header_DebPrg(pc),a4
+	move.l	-4(a4),d0
+	lsl.l	#2,d0
+	beq	DecEnd
+	move.l	d0,a2
+; Compacte ou non?
+	cmp.l	#$78566467,4(a2)
+	beq.s	DecHC
+; Non compacte, met directement dans la liste delete
+	move.l	(a2),-4(a4)		Detache de la liste
+	move.l	-(a2),d1
+	move.l	a2,(a6)+		Poke l'adresse REELLE dans la liste
+	move.l	d1,(a6)+		La longueur REELLE
+	lea	8(a2),a1
+	subq.l	#8,d1
+	moveq	#1,d0
+	bra.s	DecEnd
+; Hunk compacte..
+DecHC	move.l	a2,a1
+	movem.l	a0-a1/a6/d1-d2,-(sp)	TypeOfMem
+	move.l	$4.w,a6
+	jsr	-$216(a6)
+	movem.l	(sp)+,a0-a1/a6/d1-d2
+	and.l	#$0003,d0		Enleve le flag FAST!
+	or.w	#$0001,d0		Public mem
+	move.l	d0,d1
+	move.l	8(a2),d2
+	move.l	d2,d0
+	addq.l	#8,d0			+ Header de banque!
+	bsr	H_Ram
+	bne.s	.Skip
+	moveq	#-1,d0
+	bra.s	DecEnd
+.Skip	addq.l	#8,d0			Saute le header
+	move.l	d0,a1
+	movem.l	a1/d2,-(sp)		Adresses banque
+	movem.l	a2/a4,-(sp)		Infos hunks
+	move.l	d0,d3
+	move.l	12(a2),d1		Longueur a decompater
+	move.l	d1,d0
+	lea	16(a2),a0		Origine des data
+	bsr	H_Copy			Copie
+	bsr	UnSquash		Va decompacter
+	movem.l	(sp)+,a1/a4		Enleve le hunk de la liste
+	move.l	(a1),-4(a4)		Detache de la liste
+	move.l	-(a1),d0
+	bsr	H_Free
+	movem.l	(sp)+,a1/d1
+	lea	-8(a1),a0
+	move.l	d1,d0
+	addq.l	#8,d0
+	move.l	a0,(a6)+		Adresse reelle dans la liste
+	move.l	d0,(a6)+		Longueur reelle
+	move.l	d0,(a0)
+	clr.l	4(a0)			Faux header de chunk
+	moveq	#1,d0			Pas d'erreur!
+DecEnd	movem.l	(sp)+,a0/a2-a5/d2-d7
+	tst.l	d0			1= Ok existe / 0= termine / -1= out of mem!
+	rts
+
+;	Enleve le dernier pointeur de la liste (a6)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EffLastLoad
+	movem.l	a1/d0,-(sp)
+	move.l	-(a6),d0
+	clr.l	(a6)
+	move.l	-(a6),a1
+	clr.l	(a6)
+	bsr	H_Free
+	movem.l	(sp)+,a1/d0
+	rts
+;	Efface de la liste le dernier pointeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ClrLastLoad
+	clr.l	-(a6)
+	clr.l	-(a6)
+	rts
+; 	Libere les buffers de chargement
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Free_Memories
+	subq.w	#1,d2
+.Loop	move.l	(a2),d0
+	beq.s	.Skip
+	move.l	d0,a1
+	move.l	4(a2),d0
+	beq.s	.Skip
+	bsr	H_Free
+.Skip	addq.l	#8,a2
+	dbra	d2,.Loop
+	rts
+
+
+**********************************
+*Entry
+*
+*	D3 Address
+*	D1 Length
+*	D0 1 Unsquash
+*
+*Exit
+*	D3 Unsquashed Length positive
+*	   or
+*	   Error negative:-
+*			     -1 Check on data bad!
+*			     -2 Unsquasher was going to overwrite
+*				memory that was out of bounds!
+UnSquash:
+	MOVE.L	D3,D0
+	ADD.L	D0,D1
+	MOVEA.L	D1,A0
+	MOVEA.L	D0,A1
+	MOVEA.L	-(A0),A2
+	move.l	a2,d7
+	ADDA.L	A1,A2
+	MOVE.L	-(A0),D5
+	MOVE.L	-(A0),D0
+	EOR.L	D0,D5
+L22446E
+;Flish	nop				Place pour le FLASH
+;	nop
+;	nop
+	LSR.L	#1,D0
+	BNE.S	L224476
+	BSR	L2244E8
+L224476	BCS.S	L2244AE
+	MOVEQ	#8,D1
+	MOVEQ	#1,D3
+	LSR.L	#1,D0
+	BNE.S	L224484
+	BSR	L2244E8
+L224484	BCS.S	L2244D4
+	MOVEQ	#3,D1
+	CLR.W	D4
+L22448A	BSR	L2244F4
+	MOVE.W	D2,D3
+	ADD.W	D4,D3
+L224492	MOVEQ	#7,D1
+L224494	LSR.L	#1,D0
+	BNE.S	L22449A
+	BSR.S	L2244E8
+L22449A	ROXL.L	#1,D2
+	DBF	D1,L224494
+	cmp.l	a1,a2
+	ble.b	bad_squash_mem
+	MOVE.B	D2,-(A2)
+	DBF	D3,L224492
+	BRA.S	L2244E0
+L2244A8	MOVEQ	#8,D1
+	MOVEQ	#8,D4
+	BRA.S	L22448A
+L2244AE	MOVEQ	#2,D1
+	BSR.S	L2244F4
+	CMP.B	#2,D2
+	BLT.S	L2244CA
+	CMP.B	#3,D2
+	BEQ.S	L2244A8
+	MOVEQ	#8,D1
+	BSR.S	L2244F4
+	MOVE.W	D2,D3
+	MOVE.W	#$C,D1
+	BRA.S	L2244D4
+L2244CA	MOVE.W	#9,D1
+	ADD.W	D2,D1
+	ADDQ.W	#2,D2
+	MOVE.W	D2,D3
+L2244D4	BSR.S	L2244F4
+L2244D6	SUBQ.W	#1,A2
+	cmp.l	a1,a2
+	blt.b	bad_squash_mem
+	MOVE.B	0(A2,D2.W),(A2)
+	DBF	D3,L2244D6
+L2244E0	CMPA.L	A2,A1
+	BLT	L22446E
+	tst.l	d5
+	beq.b	check_ok
+	moveq.l	#-1,d3
+	rts
+check_ok:
+	move.l	d7,d3
+	RTS
+bad_squash_mem:
+	moveq.l	#-2,d3
+	rts
+
+L2244E8	MOVE.L	-(A0),D0
+	EOR.L	D0,D5
+	MOVE.B	#$10,CCR
+	ROXR.L	#1,D0
+	RTS
+
+L2244F4	SUBQ.W	#1,D1
+	CLR.W	D2
+L2244F8	LSR.L	#1,D0
+	BNE.S	L224506
+	MOVE.L	-(A0),D0
+	EOR.L	D0,D5
+	MOVE.B	#$10,CCR
+	ROXR.L	#1,D0
+L224506	ROXL.L	#1,D2
+	DBF	D1,L2244F8
+	RTS
+
+Header_DZ	dc.l	0
+Header_DebPrg	dc.l	0
+Header_Pile	dc.l	0
+
+		RsReset
+H_Flags		rs.l	1
+Prg_Flags	equ	H_Flags
+Head_Flags	equ	H_Flags+3
+
+H_DosBase	rs.l	1
+H_IntBase	rs.l	1
+H_WAddress	rs.l	1
+H_WSegment	rs.l	1
+H_Message	rs.l	1
+H_Program	rs.l	1
+H_Libraries	rs.l	1
+H_DataZone	rs.l	1
+H_DataA5	rs.l	1
+
+H_WStarted	rs.b	1
+H_Short		rs.b	1
+H_PRun		rs.b	1
+		rs.b	1
+
+H_Load		rs.l	12*2
+H_DZLong	equ	__RS
+
+H_NLoad		equ	12
+
+; Definition du petit requester
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+H_AutoBody	dc.b	2,0
+		dc.w	1
+		dc.w	8,7
+		dc.l	0
+		dc.l	0
+		dc.l	0
+H_AutoClick	dc.b	0,1
+		dc.w	1
+		dc.w	5,4
+		dc.l	0
+		dc.l	0
+		dc.l	0
+H_Click		dc.b	" Cancel ",0
+		even
+
+DosName		dc.b	"dos.library",0
+IntName		dc.b	"intuition.library",0
+GfxName		dc.b	"graphics.library",0
+OOfMem		dc.b	"Out of memory.",0
+NoAMOSlib	dc.b	"Cannot open AMOS.library (V2.00 or over).",0
+LibName1	dc.b	"Libs:AMOS.library",0
+LibName2	dc.b	"APSystem/AMOS.library",0
+LibName3	dc.b	"Libs/AMOS.library",0
+		even
+Head_Sprite	dc.b	"Sprites ",0
+Head_Icon	dc.b	"Icons   ",0
+		even
+
+
+FInit
+LInit		equ 	FInit-DebPrg
diff --git a/compiler/+Header_Backstart.s b/compiler/+Header_Backstart.s
new file mode 100644
index 0000000..72cc467
--- /dev/null
+++ b/compiler/+Header_Backstart.s
@@ -0,0 +1,134 @@
+**********************************************************************
+*
+*  Published under the MIT Licence
+*
+*  Copyright (c) 1992 Europress Software
+*  Copyright (c) 2020 Francois Lionet
+*
+*  Permission is hereby granted, free of charge, to any person
+*  obtaining a copy of this software and associated documentation
+*  files (the "Software"), to deal in the Software without
+*  restriction, including without limitation the rights to use,
+*  copy, modify, merge, publish, distribute, sublicense, and/or
+*  sell copies of the Software, and to permit persons to whom the
+*  Software is furnished to do so, subject to the following
+*  conditions:
+*
+*  The above copyright notice and this permission notice shall be
+*  included in all copies or substantial portions of the Software.
+*
+*  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+*  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+*  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+*  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+*  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+*  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+*  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+*  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+*
+**********************************************************************
+*
+*	HEADER BACKSTART Programme compile
+*
+*	Ne pas changer le fichier sans verifier que c'est multiple
+*	de 8
+*
+**********************************************************************
+*
+	dc.w	FinBack-DebBack
+*
+DebBack	move.l	#0,d2
+	move.l	#0,d3
+BackStart
+	lea	DebPrg(pc),a4
+	move.l	a4,Header_DebPrg-DebPrg(a4)
+; Recopie les parametres
+	move.l	d2,ComD2-DebPrg(a4)
+	move.l	d3,ComD3-DebPrg(a4)
+; Recopie la ligne de commande
+	cmp.w	#256,d0
+	bcs.s	.skip
+	move.w	#255,d0
+.skip	move.w	d0,ComLong-DebPrg(a4)
+	lea	ComLine-DebPrg(a4),a1
+	subq.w	#1,d0
+	bmi.s	.loopX
+.loop	move.b	(a0)+,(a1)+
+	dbra	d0,.loop
+.loopX
+; CLI ou WORKBENCH?
+	move.l	$4.w,a6
+	sub.l	a1,a1
+	jsr	FindTask(a6)
+	move.l	d0,a0
+	tst.l	$ac(a0)
+	beq	DDebPrg
+
+; 	Ca vient du CLI: RUN BACK
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+CliBack	bset	#FHead_Backed,ComD2+3-DebPrg(a4)
+; Ouvre le DOS
+	moveq	#0,d0
+	lea	DosName(pc),a1
+	jsr	OpenLib(a6)
+	move.l	d0,a6
+	tst.l	d0
+	beq.s	BackX
+; Coupe les segments
+	lea	DDebPrg-8(pc),a2
+	move.l	a2,a1
+	lea	DebBack-8(pc),a0
+	move.l	4(a0),4(a2)
+	clr.l	4(a0)
+	sub.l	a0,a1
+	move.l	(a0),d0
+	move.l	a1,(a0)
+	sub.l	a1,d0
+	move.l	d0,(a2)
+; Adresse du debut du hunk
+	addq.l	#4,a2
+	move.l	a2,d3
+	addq.l	#4,a2
+	move.l	a2,Header_DebPrg-DebPrg(a4)
+; Fait d�marrer le processus
+	lsr.l	#2,d3		Segments...
+	moveq	#0,d2
+	lea	FoNom(pc),a0
+	move.l	a0,d1		Faux nom...
+	move.l	#4096,d4	Taille de pile...
+	jsr	-138(a6)	Create Proc!
+; Ferme le DOS
+	move.l	a6,a1
+	move.l	$4.w,a6
+	jsr	CloseLib(a6)
+; Fini!
+BackX	moveq	#0,d0
+	rts
+;---------------------------------------------------------------------
+	dc.l	0
+	ds.l	2
+;---------------------------------------------------------------------
+DDebPrg	lea	ComLine(pc),a0
+	move.w	ComLong(pc),d0
+	lea	DebPrg(pc),a4
+	move.l	ComD2(pc),d2
+	move.l	ComD3(pc),d3
+	bsr.s	BackIn
+	move.l	$4.w,a6
+	jsr	Forbid(a6)
+	lea	DDebPrg-4(pc),a1
+	move.l	-(a1),d0
+	jsr	FreeMem(a6)
+	moveq	#0,d0
+	rts
+;---------------------------------------------------------------------
+	Include	"+Header.s"
+;---------------------------------------------------------------------
+ComLong	dc.w	0
+ComLine	ds.b	256
+ComD2	dc.l	0
+ComD3	dc.l	0
+FoNom	dc.b	"Backstart",0
+	even
+;---------------------------------------------------------------------
+FinBack	dc.w	0
diff --git a/compiler/acdata b/compiler/acdata
new file mode 100644
index 0000000..a7d3706
--- /dev/null
+++ b/compiler/acdata
@@ -0,0 +1,10 @@
+echo "***Assembling the Compiler Configuration"
+c/Genim2 compiler/+Compiler_Config.s -oRAM:Compiler_Config.o
+c/Get_Chunk RAM:Compiler_Config.o AMOS/Tutorial/Extra_Configs/Compiler_Config.Backup
+
+echo "***Installing compiler configuration"
+Copy AMOS/Tutorial/Extra_Configs/Compiler_Config.Backup AMOS/AMOSPro_Compiler_Config
+
+echo "***Installing compiler configuration to s:"
+Copy AMOS/Tutorial/Extra_Configs/Compiler_Config.Backup s:AMOSPro_Compiler_Config
+
diff --git a/compiler/aclib b/compiler/aclib
new file mode 100644
index 0000000..a9601dd
--- /dev/null
+++ b/compiler/aclib
@@ -0,0 +1,6 @@
+echo "***Assembling Compiler.Lib"
+c/Library_Digest compiler/+CLib.s
+c/Check_CLib
+c/Genam FROM compiler/+CLib.s TO AMOS/APSystem/Compiler.Lib
+delete >NIL: compiler/+CLib_Labels.s
+delete >NIL: compiler/+CLib_Size.s
diff --git a/compiler/acomp b/compiler/acomp
new file mode 100644
index 0000000..53df078
--- /dev/null
+++ b/compiler/acomp
@@ -0,0 +1,3 @@
+echo "***Assembling APCmp Command Line Compiler"
+c/Genam FROM compiler/+APComp.s TO AMOS/APSystem/APCmp
+List AMOS/APSystem/APCmp
diff --git a/compiler/acompext b/compiler/acompext
new file mode 100644
index 0000000..04ceeb9
--- /dev/null
+++ b/compiler/acompext
@@ -0,0 +1,5 @@
+echo "***Assembling AMOSPro_Compiler.Lib"
+c/Library_Digest compiler/+Compext.s
+c/Genam FROM compiler/+Compext.s TO AMOS/APSystem/AMOSPro_Compiler.Lib
+delete >NIL: compiler/+Compext_Labels.s
+delete >NIL: compiler/+Compext_Size.s
diff --git a/compiler/aheader b/compiler/aheader
new file mode 100644
index 0000000..9910b00
--- /dev/null
+++ b/compiler/aheader
@@ -0,0 +1,3 @@
+echo "***Assembling Header Files"
+c/Genam FROM compiler/+Header.s TO AMOS/APSystem/Header_CLI.Lib
+c/Genam FROM compiler/+Header_Backstart.s TO AMOS/APSystem/Header_Backstart.Lib
diff --git a/extensions/+Compact.s b/extensions/+Compact.s
new file mode 100644
index 0000000..fa2177a
--- /dev/null
+++ b/extensions/+Compact.s
@@ -0,0 +1,672 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; AMOSPro Picture compactor extension source code,
+; By Fran�ois Lionet
+; AMOS, AMOSPro and AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOS1.3 and over
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+; Please refer to the _Music.s file for more informations
+;---------------------------------------------------------------------
+
+ExtNb		equ	2-1
+
+;---------------------------------------------------------------------
+;		Include the files automatically calculated by
+;		Library_Digest.AMOS
+;---------------------------------------------------------------------
+		Include	"+Compact_Size.s"
+		Include	"+Compact_Labels.s"
+ 		Include	"+AMOS_Includes.s"
+		Include	"+Version.s"
+Start		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	0
+		dc.b	"AP20"
+
+;---------------------------------------------------------------------
+;		Creates the pointers to functions
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+***********************************************************
+* 		COMPACTOR TOKENS
+
+;		TOKEN_START
+C_Tk		dc.w 	1,0
+		dc.b 	$80,-1
+		dc.w 	L_InPack2,L_Nul
+		dc.b 	"!pac","k"+$80,"I0t0",-2
+		dc.w	L_InPack6,L_Nul
+		dc.b	$80,"I0t0,0,0,0,0",-1
+		dc.w 	L_InSPack2,L_Nul
+		dc.b 	"!spac","k"+$80,"I0t0",-2
+		dc.w	L_InSPack6,L_Nul
+		dc.b	$80,"I0t0,0,0,0,0",-1
+		dc.w	L_InUnpack1,L_Nul
+		dc.b	"!unpac","k"+$80,"I0",-2
+		dc.w 	L_InUnpack2,L_Nul
+		dc.b	$80,"I0t0",-2
+		dc.w 	L_InUnpack3,L_Nul
+		dc.b	$80,"I0,0,0",-1
+;		TOKEN_END
+		dc.w 	0
+		dc.l	0			Important!
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	THE LIBRARY
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+;---------------------------------------------------------------------
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+C_Lib
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	COLD START
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Compact_Cold
+; - - - - - - - - - - - - -
+	cmp.l	#"APex",d1		Version 1.10 or over?
+	bne.s	BadVer
+	moveq	#ExtNb,d0		* Extension number
+	move.w	#$0110,d1		* Current version
+	rts
+; In case this extension is runned on AMOSPro V1.00
+BadVer	moveq	#-1,d0			* Bad version number
+	sub.l	a0,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ONE EMPTY SPACE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PACK Screen,Bank#
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPack2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	clr.l	-(a3)
+	clr.l	-(a3)
+	move.l	#10000,d3
+	move.l	d3,-(a3)
+	Rbra	L_InPack6
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PACK Screen,Bank#
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPack6
+; - - - - - - - - - - - - -
+	Rbsr	L_PacPar
+	Rbsr	L_GetSize
+	Rbsr	L_ResBank
+	Rbsr	L_Pack
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SPACK Screen,Bank#
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSPack2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	clr.l	-(a3)
+	clr.l	-(a3)
+	move.l	#10000,d3
+	move.l	d3,-(a3)
+	Rbra	L_InSPack6
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SPACK Screen,Bank#,X1,Y1 TO X2,Y2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSPack6
+; - - - - - - - - - - - - -
+	Rbsr	L_PacPar
+	Rbsr	L_GetSize
+	add.l	#PsLong,d0
+	Rbsr	L_ResBank
+* Screen definition header
+	move.l	#SCCode,(a1)
+	move.w	EcTx(a0),PsTx(a1)
+	move.w	EcTy(a0),PsTy(a1)
+	move.w	EcNbCol(a0),PsNbCol(a1)
+	move.w	EcNPlan(a0),PsNPlan(a1)
+	move.w	EcCon0(a0),PsCon0(a1)
+	move.w	EcAWX(a0),PsAWx(a1)
+	move.w	EcAWY(a0),PsAWy(a1)
+	move.w	EcAWTX(a0),PsAWTx(a1)
+	move.w	EcAWTY(a0),PsAWTy(a1)
+	move.w	EcAVX(a0),PsAVx(a1)
+	move.w	EcAVY(a0),PsAVy(a1)
+	movem.l	a0/a1,-(sp)
+	moveq	#31,d0
+	lea	EcPal(a0),a0
+	lea	PsPal(a1),a1
+SPac1	move.w	(a0)+,(a1)+
+	dbra	d0,SPac1
+	movem.l	(sp)+,a0/a1
+	lea	PsLong(a1),a1
+* Finish packing!
+	Rbsr	L_Pack
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	UNPACK Bank# 		-> To current screen
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InUnpack1
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_JFoncall
+	move.l	d0,a1
+	moveq	#-1,d1
+	moveq	#-1,d2
+	move.l	d3,d0
+	Rbra	L_UPack
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	UNPACK Bank#,X,Y	-> To current screen
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InUnpack3
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	Rbeq	L_JFoncall
+	move.l	d0,a1
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbra	L_UPack
+
+; - - - - - - - - - - - - -
+	Lib_Def	UPack
+; - - - - - - - - - - - - -
+	movem.l	d1/a1,-(sp)
+	Rjsr	L_Bnk.OrAdr
+	movem.l	(sp)+,d1/a1
+* Autoback
+	tst.w	EcAuto(a1)		* Is screen autobacked?
+	bne.s	.Dbl
+	Rjsr	L_UnPack_Bitmap		* NOPE! Do simple unpack
+	Rbeq	L_NoPac
+	rts
+.Dbl	movem.l	d0-d7/a0-a2,-(sp)	* YEP! First step
+	EcCall	AutoBack1
+	movem.l	(sp),d0-d7/a0-a2
+	btst	#BitDble,EcFlags(a1)	* DOUBLE BUFFER?
+	beq.s	ABPac1
+	Rjsr	L_UnPack_Bitmap
+	EcCall	AutoBack2		* Second step
+	movem.l	(sp),d0-d7/a0-a2
+	Rjsr	L_UnPack_Bitmap
+	move.w	d0,-(sp)
+	EcCall	AutoBack3		* Third step
+	bra.s	ABPac2
+ABPac1	Rjsr	L_UnPack_Bitmap		* SINGLE BUFFER autobacked
+	move.w	d0,-(sp)
+	EcCall	AutoBack4
+ABPac2	tst.w	(sp)+
+	movem.l	(sp)+,d0-d7/a0-a2
+	Rbeq	L_NoPac
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	UNPACK Bank# TO screen	-> Creates/Erases screen!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InUnpack2
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d0		Get bank address
+	Rjsr	L_Bnk.OrAdr
+	move.l	d3,d0			Get screen number
+	Rjsr	L_UnPack_Screen		Performs unpacking
+	tst.w	d0
+	beq.s	.Err
+	move.l	a0,ScOnAd(a5)		Branch new screen into AMOS
+	move.w	EcNumber(a0),ScOn(a5)
+	addq.w	#1,ScOn(a5)
+	rts
+.Err	tst.w	d1
+	Rbeq	L_NoPac
+	Rjmp	L_OOfMem
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Reserves memory bank, A1= number
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	ResBank
+; - - - - - - - - - - - - -
+	movem.l	a0/d1/d2,-(sp)
+	move.l	d0,d2
+	moveq	#(1<<Bnk_BitData),d1
+	move.l	a1,d0
+	lea	BkPac(pc),a0
+	Rjsr	L_Bnk.Reserve
+	Rbeq	L_JOOfMem
+	move.l	a0,a1
+	movem.l	(sp)+,a0/d1/d2
+	rts
+; Definition packed picture bank
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+BkPac:	dc.b "Pac.Pic."
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Unpile parameters
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	PacPar
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	lsr.w	#3,d4
+	lsr.w	#3,d2
+* Screen
+	move.l	4(a3),d1
+	Rjsr	L_GetEc
+	move.l	d0,a2
+	cmp.w	EcTLigne(a0),d4
+	bls.s	PacP1
+	move.w	EcTLigne(a0),d4
+PacP1	cmp.w	EcTy(a0),d5
+	bls.s	PacP2
+	move.w	EcTy(a0),d5
+PacP2	sub.w	d2,d4
+	Rble	L_JFoncall
+	sub.w	d3,d5
+	Rble	L_JFoncall
+; Number of memory bank
+	move.l	(a3)+,a1
+	cmp.l	#$10000,a1
+	Rbcc	L_JFoncall
+	addq.l	#4,a3
+	rts
+
+
+***************************************************************************
+*
+*       BITMAP COMPACTOR
+*                       A0: Origin screen datas
+*                       A1: Destination zone
+*			A2: Origin screen bitmap
+*                       D2: DX in BYTES
+*                       D3: DY in LINES
+*                       D4: TX in BYTES
+*                       D5: TY in LINES
+*
+***************************************************************************
+* 	ESTIMATE THE SIZE OF A PICTURE
+
+******* Makes differents tries
+*	And finds the best square size in D1
+; - - - - - - - - - - - - -
+	Lib_Def	GetSize
+; - - - - - - - - - - - - -
+	movem.l	a1-a3/d6-d7,-(sp)
+	lea	TSize(pc),a3
+	move.l	Buffer(a5),a1
+	moveq	#0,d7
+	move.w	d5,d7
+	clr.w	-(sp)
+	move.l	#$10000000,-(sp)
+GSize1	move.l	d7,d5
+	move.w	(a3)+,d1
+	beq.s	GSize2
+	divu	d1,d5
+	swap	d5
+	tst.w	d5
+	bne.s	GSize1
+	swap	d5
+	bsr	PacSize
+	cmp.l	(sp),d0
+	bcc.s	GSize1
+	move.l	d0,(sp)
+	move.w	d1,4(sp)
+	bra.s	GSize1
+GSize2	move.l	(sp)+,d0
+	move.w	(sp)+,d1
+	move.l	d7,d5
+	divu	d1,d5
+	movem.l	(sp)+,a1-a3/d6-d7
+	rts
+
+******* Simulate a packing
+PacSize	movem.l	d1-d7/a0-a4/a6,-(sp)
+	move.l	a5,-(sp)
+* Fake data zone
+        move.w 	d2,Pkdx(a1)
+        move.w 	d3,Pkdy(a1)
+        move.w 	d4,Pktx(a1)
+        move.w 	d5,Pkty(a1)
+        move.w 	d1,Pktcar(a1)
+* Reserve intermediate table space
+	move.w	d1,d0
+	mulu	d4,d0
+	mulu	d5,d0
+	mulu	EcNPlan(a0),d0
+	lsr.l	#3,d0
+	addq.l	#2,d0
+	move.l	d0,-(sp)
+	move.l	a0,-(sp)
+	SyCall	MemFast
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	Rbeq	L_JOOfMem
+	move.l	d0,a6
+	move.l	d0,-(sp)
+* Prepare registers
+        move.l	a2,a4	        	;a4--> picture address
+        lea 	PkDatas1(a1),a5        	;a5--> main datas
+	move.w	EcTLigne(a0),d7
+	move.w	d7,d5
+	mulu	d1,d5			;d5--> SY line of square
+        move.w 	Pkdy(a1),d3
+        mulu 	d7,d3
+        move.w 	Pkdx(a1),d0
+	ext.l	d0
+	add.l	d0,d3
+	move.w	EcNPlan(a0),-(sp)
+* Main packing
+        moveq 	#7,d1  		        * Bit pointer
+	moveq	#0,d0
+Iplan:  move.l 	(a4)+,a3
+	add.l	d3,a3
+        move.w 	Pkty(a1),d6
+	subq.w	#1,d6
+Iligne: move.l 	a3,a2
+	move.w	Pktx(a1),d4
+	subq.w	#1,d4
+Icarre: move.l 	a2,a0
+        move.w 	Pktcar(a1),d2
+	subq.w	#1,d2
+Ioct0: 	cmp.b 	(a0),d0         	* Compactage d'un carre
+        beq.s 	Ioct1
+	move.b	(a0),d0
+        addq.l 	#1,a5
+        bset 	d1,(a6)
+Ioct1:  dbra 	d1,Ioct2
+        moveq 	#7,d1
+        addq.l 	#1,a6
+	clr.b	(a6)
+Ioct2:  add.w 	d7,a0
+        dbra 	d2,Ioct0
+        addq.l	#1,a2
+        dbra 	d4,Icarre
+	add.l	d5,a3
+        dbra 	d6,Iligne
+	subq.w	#1,(sp)
+	bne.s	Iplan
+	addq.l	#2,sp
+	addq.l	#1,a5
+* Packing of first pointers table
+	move.l	a5,a6
+	move.l	4(sp),d2
+	move.l	d2,d0
+	subq.w	#1,d2
+	lsr.w	#3,d0
+	addq.w	#2,d0
+	add.w	d0,a5
+	move.l	(sp),a0
+	moveq	#0,d0
+        moveq 	#7,d1
+Icomp2  cmp.b 	(a0)+,d0
+        beq.s 	Icomp2a
+	move.b	-1(a0),d0
+        addq.l 	#1,a5
+Icomp2a dbra	d2,Icomp2
+* Final size (EVEN!)
+	move.l	a5,d2
+	sub.l	a1,d2
+	addq.l	#3,d2
+	and.l	#$FFFFFFFE,d2
+* Free intermediate memory
+	move.l	(sp)+,a1
+	move.l	(sp)+,d0
+	move.l	(sp)+,a5
+	SyCall	MemFree
+* Finished!
+	move.l	d2,d0
+	movem.l	(sp)+,d1-d7/a0-a4/a6
+	rts
+******* Packing methods
+TSize	dc.w 	1,2,3,4,5,6,7,8,12,16,24,32,48,64,0
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	REAL PACKING!!!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Pack
+; - - - - - - - - - - - - -
+* Header of the packed bitmap
+	movem.l	d1-d7/a0-a4/a6,-(sp)
+	move.l	a5,-(sp)
+
+* Packed bitmap header
+        move.l 	#BMCode,Pkcode(a1)
+        move.w 	d2,Pkdx(a1)
+        move.w 	d3,Pkdy(a1)
+        move.w 	d4,Pktx(a1)
+        move.w 	d5,Pkty(a1)
+        move.w 	d1,Pktcar(a1)
+	move.w	EcNPlan(a0),Pknplan(a1)
+
+* Reserve intermediate table space
+	move.w	d1,d0
+	mulu	d4,d0
+	mulu	d5,d0
+	mulu	EcNPlan(a0),d0
+	lsr.l	#3,d0
+	addq.l	#2,d0
+	move.l	d0,-(sp)
+	move.l	a0,-(sp)
+	SyCall	MemFast
+	move.l	a0,d0
+	move.l	(sp)+,a0
+	Rbeq	L_JOOfMem
+	move.l	d0,a6
+	move.l	d0,-(sp)
+
+* Prepare registers
+        move.l	a2,a4        		;a4--> picture address
+        lea 	PkDatas1(a1),a5        	;a5--> main datas
+	move.w	EcTLigne(a0),d7
+	move.w	d7,d5
+	mulu	d1,d5			;d5--> SY line of square
+        move.w 	Pkdy(a1),d3
+        mulu 	d7,d3
+        move.w 	Pkdx(a1),d0
+	ext.l	d0
+	add.l	d0,d3
+	move.w	EcNPlan(a0),-(sp)
+
+* Main packing
+        moveq 	#7,d1  		        * Bit pointer
+	moveq	#0,d0
+        clr.b 	(a5)              	* First byte to zero
+        clr.b 	(a6)
+plan:   move.l 	(a4)+,a3
+	add.l	d3,a3
+        move.w 	Pkty(a1),d6
+	subq.w	#1,d6
+ligne:  move.l 	a3,a2
+	move.w	Pktx(a1),d4
+	subq.w	#1,d4
+carre:  move.l 	a2,a0
+        move.w 	Pktcar(a1),d2
+	subq.w	#1,d2
+oct0: 	cmp.b 	(a0),d0         	* Compactage d'un carre
+        beq.s 	oct1
+	move.b	(a0),d0
+        addq.l 	#1,a5
+        move.b 	d0,(a5)
+        bset 	d1,(a6)
+oct1:   dbra 	d1,oct2
+        moveq 	#7,d1
+        addq.l 	#1,a6
+        clr.b 	(a6)
+oct2:   add.w 	d7,a0
+        dbra 	d2,oct0
+        addq.l	#1,a2			* Carre suivant en X
+        dbra 	d4,carre
+	add.l	d5,a3			* Ligne suivante
+        dbra 	d6,ligne
+	subq.w	#1,(sp)			* Plan couleur suivant
+	bne.s	plan
+	addq.l	#2,sp
+	addq.l	#1,a5
+
+; Packing of first pointers table
+	move.l	a5,d0
+	sub.l	a1,d0
+	move.l	d0,PkPoint2(a1)
+	move.l	a5,a6
+	move.l	4(sp),d0
+	move.l	d0,d2
+	subq.w	#1,d2
+	lsr.w	#3,d0
+	addq.w	#2,d0
+	add.w	d0,a5
+	move.l	a5,d0
+	sub.l	a1,d0
+	move.l	d0,PkDatas2(a1)
+	move.l	(sp),a0
+	moveq	#0,d0
+        moveq 	#7,d1
+        clr.b 	(a5)
+        clr.b 	(a6)
+comp2:  cmp.b 	(a0)+,d0
+        beq.s 	comp2a
+	move.b	-1(a0),d0
+        addq.l 	#1,a5
+        move.b 	d0,(a5)
+        bset 	d1,(a6)
+comp2a: dbra 	d1,comp2b
+        moveq 	#7,d1
+        addq.l 	#1,a6
+        clr.b 	(a6)
+comp2b: dbra	d2,comp2
+
+* Free intermediate memory
+	move.l	(sp)+,a1
+	move.l	(sp)+,d0
+	move.l	(sp)+,a5
+	SyCall	MemFree
+	movem.l	(sp)+,d1-d7/a0-a4/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	JUMP TO ERROR MESSAGES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	JFoncall
+; - - - - - - - - - - - - -
+	moveq	#23,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	JScnop
+; - - - - - - - - - - - - -
+	moveq	#47,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	JOOfMem
+; - - - - - - - - - - - - -
+	moveq	#24,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	ERROR HANDLING
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	NoPac
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	Rbra	L_Custom
+; - - - - - - - - - - - - -
+	Lib_Def	NoScr
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	Rbra	L_Custom
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	ERRORS: First routine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Custom
+; - - - - - - - - - - - - -
+	lea	ErrMes(pc),a0
+	moveq	#0,d1
+	moveq	#ExtNb,d2
+	moveq	#0,d3
+	Rjmp	L_ErrorExt
+ErrMes	dc.b 	"Not a packed bitmap",0
+	dc.b 	"Not a packed screen",0
+	even
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	ERRORS: Second routine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Custom2
+; - - - - - - - - - - - - -
+	moveq	#0,d1
+	moveq	#ExtNb,d2
+	moveq	#0,d3
+	Rjmp	L_ErrorExt
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Finish the library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	TITLE OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_Title		dc.b 	"AMOSPro Picture Compactor V "
+		Version
+		dc.b	0,"$VER: "
+		Version
+		dc.b	0
+		Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		END OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_End		dc.w	0
+		even
diff --git a/extensions/+IO_Ports.s b/extensions/+IO_Ports.s
new file mode 100644
index 0000000..59162d7
--- /dev/null
+++ b/extensions/+IO_Ports.s
@@ -0,0 +1,1194 @@
+
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; Serial / Parallel / Printer extension source code
+; By Fran�ois Lionet
+; AMOS, AMOSPro, AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOSPro V2.0 and over
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+;
+; Please refer to the _Music.s file for more informations...
+;
+;---------------------------------------------------------------------
+
+ExtNb		equ	6-1
+
+;		AMIGA's includes
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		INCDIR		"includes/"
+		INCLUDE		"Exec/Types.I"
+		INCLUDE		"Exec/Exec.I"
+		INCLUDE 	"Devices/Serial.I"
+		INCLUDE		"Devices/PrtBase.I"
+		INCLUDE		"Devices/Printer.I"
+		INCLUDE		"Devices/PrtGfx.I"
+		INCLUDE		"Devices/Parallel.I"
+
+;---------------------------------------------------------------------
+;		Include the files automatically calculated by
+;		Library_Digest.AMOS
+;---------------------------------------------------------------------
+ 		Include	"+AMOS_Includes.s"
+		Include	"+Version.s"
+		Include	"+IO_Ports_Size.s"
+		Include	"+IO_Ports_Labels.s"
+
+; 		Number of serial channels allowed
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+NSerial		equ	4
+
+
+Dlea		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\2
+		add.w	#\1-DT,\2
+		ENDM
+Dload		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\1
+		ENDM
+
+
+Start		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	0
+		dc.b	"AP20"
+
+;---------------------------------------------------------------------
+;		Creates the pointers to functions
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+;---------------------------------------------------------------------
+;		TOKEN TABLE
+;---------------------------------------------------------------------
+;		TOKEN_START
+
+C_Tk
+		dc.w 	1,0
+		dc.b 	$80,-1
+		dc.w	L_InSerialOpen2,L_Nul
+		dc.b	"!serial ope","n"+$80,"I0,0",-2
+		dc.w	L_InSerialOpen5,L_Nul
+		dc.b	$80,"I0,0,0,0,0",-1
+		dc.w	L_InSerialClose0,L_Nul
+		dc.b	"!serial clos","e"+$80,"I",-2
+		dc.w	L_InSerialClose1,L_Nul
+		dc.b	$80,"I0",-1
+		dc.w	L_InSerialSpeed,L_Nul
+		dc.b	"serial spee","d"+$80,"I0,0",-1
+		dc.w	L_Nul,L_FnSerialCheck
+		dc.b	"serial chec","k"+$80,"00",-1
+		dc.w 	L_InSerialSend,L_Nul
+		dc.b	"serial sen","d"+$80,"I0,2",-1
+		dc.w 	L_InSerialSpeed,L_Nul
+		dc.b	"serial spee","d"+$80,"I0,0",-1
+		dc.w 	L_InSerialBits,L_Nul
+		dc.b	"serial bit","s"+$80,"I0,0,0",-1
+		dc.w 	L_InSerialX,L_Nul
+		dc.b	"serial ","x"+$80,"I0,0",-1
+		dc.w 	L_InSerialBuf,L_Nul
+		dc.b	"serial bu","f"+$80,"I0,0",-1
+		dc.w 	L_InSerialParity,L_Nul
+		dc.b	"serial parit","y"+$80,"I0,0",-1
+		dc.w	L_Nul,L_FnSerialGet
+		dc.b	"serial ge","t"+$80,"00",-1
+		dc.w	L_Nul,L_FnSerialInput
+		dc.b	"serial input","$"+$80,"20",-1
+		dc.w	L_InSerialFast,L_Nul
+		dc.b	"serial fas","t"+$80,"I0",-1
+		dc.w	L_InSerialSlow,L_Nul
+		dc.b	"serial slo","w"+$80,"I0",-1
+		dc.w	L_Nul,L_FnSerialError
+		dc.b	"serial erro","r"+$80,"00",-1
+		dc.w	L_InSerialOut,L_Nul
+		dc.b	"serial ou","t"+$80,"I0,0,0",-1
+		dc.w	L_Nul,L_FnSerialStatus
+		dc.b	"serial statu","s"+$80,"00",-1
+		dc.w	L_Nul,L_FnSerialBase
+		dc.b	"serial bas","e"+$80,"00",-1
+		dc.w	L_InSerialAbort,L_Nul
+		dc.b	"serial abor","t"+$80,"I0",-1
+
+; Printer commands
+; ~~~~~~~~~~~~~~~~
+		dc.w   	L_InPrinterOpen,L_Nul
+		dc.b	"printer ope","n"+$80,"I",-1
+		dc.w	L_InPrinterClose,L_Nul
+		dc.b	"printer clos","e"+$80,"I",-1
+		dc.w	L_InPrinterSend,L_Nul
+		dc.b	"printer sen","d"+$80,"I2",-1
+		dc.w	L_InPrinterOut,L_Nul
+		dc.b	"printer ou","t"+$80,"I0,0",-1
+		dc.w	L_InPrinterDump0,L_Nul
+		dc.b	"!printer dum","p"+$80,"I",-2
+		dc.w	L_InPrinterDump4,L_Nul
+		dc.b	$80,"I0,0t0,0",-2
+		dc.w	L_InPrinterDump7,L_Nul
+		dc.b	$80,"I0,0t0,0,0,0,0",-1
+		dc.w	L_InPrinterAbort,L_Nul
+		dc.b	"printer abor","t"+$80,"I",-1
+		dc.w	L_Nul,L_FnPrinterCheck
+		dc.b 	"printer chec","k"+$80,"0",-1
+		dc.w	L_Nul,L_FnPrinterOnline
+		dc.b	"printer onlin","e"+$80,"0",-1
+		dc.w	L_Nul,L_FnPrinterBase
+		dc.b	"printer bas","e"+$80,"0",-1
+		dc.w	L_Nul,L_FnPrinterError
+		dc.b	"printer erro","r"+$80,"0",-1
+
+; Parallel commands
+; ~~~~~~~~~~~~~~~~~
+		dc.w   	L_InParallelOpen,L_Nul
+		dc.b	"parallel ope","n"+$80,"I",-1
+		dc.w	L_InParallelClose,L_Nul
+		dc.b	"parallel clos","e"+$80,"I",-1
+		dc.w	L_InParallelSend,L_Nul
+		dc.b	"parallel sen","d"+$80,"I2",-1
+		dc.w	L_InParallelOut,L_Nul
+		dc.b	"parallel ou","t"+$80,"I0,0",-1
+		dc.w	L_InParallelAbort,L_Nul
+		dc.b	"parallel abor","t"+$80,"I",-1
+		dc.w	L_Nul,L_FnParallelCheck
+		dc.b 	"parallel chec","k"+$80,"0",-1
+		dc.w	L_Nul,L_FnParallelStatus
+		dc.b	"parallel statu","s"+$80,"0",-1
+		dc.w	L_Nul,L_FnParallelBase
+		dc.b	"parallel bas","e"+$80,"0",-1
+		dc.w	L_Nul,L_FnParallelError
+		dc.b	"parallel erro","r"+$80,"0",-1
+		dc.w	L_Nul,L_FnParallelInput1
+		dc.b	"!parallel input","$"+$80,"20",-2
+		dc.w	L_Nul,L_FnParallelInput2
+		dc.b	$80,"20,0",-2
+;		TOKEN_END
+		dc.w 	0
+		dc.l	0			Important!
+
+
+;---------------------------------------------------------------------
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+C_Lib
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	COLD START
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IOCold
+; - - - - - - - - - - - - -
+	cmp.l	#"APex",d1		Version 1.10 or over?
+	bne.s	BadVer
+	movem.l	a3-a6,-(sp)
+	lea	DT(pc),a3
+	move.l	a3,ExtAdr+ExtNb*16(a5)
+	lea	SerDef(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+4(a5)
+	lea	SerEnd(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+8(a5)
+	movem.l	(sp)+,a3-a6
+	moveq	#ExtNb,d0		* NO ERRORS
+	move.w	#VerNumber,d1		* Current version
+	rts
+; In case this extension is runned on AMOSPro V1.00
+BadVer	moveq	#-1,d0			* Bad version number
+	sub.l	a0,a0
+	rts
+
+;	SCREEN RESET (called by AMOSPro)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SerDef
+;	QUIT (called by AMOSPro)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+SerEnd	Rbsr	L_InSerialClose0
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.CloseA2
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.CloseA2
+	rts
+
+*************** Data zone
+DT
+SerialIO	ds.l	3*NSerial	Serial IO Port
+PrinterIO	ds.l	3		Printer IO Port
+ParallelIO	ds.l	3		Parallel IO Port
+BufIn		dc.l	0
+Prt_Query	dc.l	0		Espace pour informations
+Prt_Request	dc.l	0		Ancien requester
+
+; Screen Dump
+; ~~~~~~~~~~~
+width:		dc.w	0
+height:		dc.w	0
+viewModes	dc.w	0
+depth:		dc.w	0
+screen		dc.l	0
+vPort		dc.l	0
+rPort		dc.l	0
+colourmap	dc.l	0
+oldCtable	dc.l	0
+special		dc.w	$84
+srcX		dc.w	0
+srcY		dc.w	0
+pwidth		dc.w	0
+pheight		dc.w	0
+temp1		dc.w	0
+temp2		dc.w	0
+destCols	dc.l	0
+destRows	dc.l	0
+ScreenBase:	dc.l 	0
+
+; Nom des devices
+; ~~~~~~~~~~~~~~~
+SerName		dc.b	"serial.device",0
+PrtName		dc.b	"printer.device",0
+ParName		dc.b	"parallel.device",0
+		even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Leave one empty routine here!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SERIAL OPEN logicnumber,physicnumber[,shared,xdisabled,7wires]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialOpen2
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	move.l	d3,-(a3)
+	move.l	d3,-(a3)
+	Rbra	L_InSerialOpen5
+; - - - - - - - - - - - - -
+	Lib_Par	InSerialOpen5
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	16(a3),d0
+	Rbsr	L_GetSerial
+; Opening parameters
+	move.w	#IO_SERFLAGS,d5
+	swap	d5
+	clr.w	d5
+	tst.l	(a3)+
+	beq.s	SerOpA
+	bset	#SERB_7WIRE,d5
+SerOpA	bset	#SERB_XDISABLED,d5
+	tst.l	(a3)+
+	beq.s	SerOpB
+	bclr	#SERB_XDISABLED,d5
+SerOpB  tst.l	(a3)+
+	beq.s	SerOpC
+	bset	#SERB_SHARED,d5
+SerOpC	Dlea	SerName,a0
+	moveq	#IOEXTSER_SIZE,d0
+	move.l	(a3),d1
+	moveq	#0,d2
+	move.w	#145,d3
+	moveq	#16,d4
+	Rjsr	L_Dev.Open
+	move.l	(a3)+,d0
+	addq.l	#4,a3
+	beq.s	.PaSet
+* If NOT user-serial (#0),
+* default settings for French MINITEL: 1200/7/1 Stop/EVEN parity
+	move.l	(a2),a1
+	move.l	#1200,IO_BAUD(a1)
+	move.b	#7,IO_READLEN(a1)
+	move.b	#7,IO_WRITELEN(a1)
+	move.b	#1,IO_STOPBITS(a1)
+	bset	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	bset	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bclr	#SERB_PARTY_ODD,IO_SERFLAGS(a1)
+	bclr	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bclr	#SEXTB_MARK,IO_EXTFLAGS+3(a1)
+* Call the device at least once
+.PaSet	move.l	(a2),a1
+	Rbra	L_Stpar
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serclose [N]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialClose1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerial
+	Rjmp	L_Dev.CloseA2
+; - - - - - - - - - - - - -
+	Lib_Par	InSerialClose0
+; - - - - - - - - - - - - -
+	Dlea	SerialIO,a2
+	moveq	#NSerial-1,d2
+.Loop	Rjsr	L_Dev.CloseA2
+	lea	12(a2),a2
+	dbra	d2,.Loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Send ser,A$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialSend
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d2,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	Rbeq	L_IOFonc
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.SendIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Out ser,address,length
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialOut
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	Rbmi	L_IOFonc
+	Rbeq	L_IOFonc
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d1,IO_DATA(a1)
+	move.l	d2,IO_LENGTH(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.SendIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=Serial Get(ser)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSerialGet
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	move.w	#SDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#-1,d3
+	move.l	IO_ACTUAL(a1),d0
+	beq.s	.SerINo
+	Dlea	BufIn,a0
+	move.l	a0,IO_DATA(a1)
+	move.l	#1,IO_LENGTH(a1)
+	moveq	#CMD_READ,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#0,d3
+	Dlea	BufIn,a0
+	move.b	(a0),d3
+.SerINo	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=Serial Input$(Ser)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSerialInput
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	moveq	#SDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	move.l	IO_ACTUAL(a1),d4
+	beq.s	.No
+	cmp.l	#String_Max,d4
+	Rbcc	L_IOFonc
+* Ask for string space...
+	movem.l	a1/a2,-(sp)
+	move.l	d4,d3
+	and.w	#$FFFE,d3			* Only EVEN!
+	addq.w	#2,d3
+	Rjsr	L_Demande
+	lea	2(a1,d3.w),a1
+	move.l	a1,HiChaine(a5)
+* Send to device...
+	movem.l	(sp)+,a1/a2
+	move.l	a0,d3
+	move.w	d4,(a0)+
+	move.l	a0,IO_DATA(a1)
+	move.l	d4,IO_LENGTH(a1)
+	moveq	#CMD_READ,d0
+	Rjsr	L_Dev.DoIO
+	bra.s	.Out
+* Nothing to return
+.No	move.l	ChVide(a5),d3		* Empty string
+.Out	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Speed ser,baud
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialSpeed
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d1,IO_BAUD(a1)
+	Rbra	L_Stpar
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Bit ser,number,stop
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialBits
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.b	d1,IO_READLEN(a1)
+	move.b	d1,IO_WRITELEN(a1)
+	move.b	d2,IO_STOPBITS(a1)
+	Rbra	L_Stpar
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Parity ser,on/off/odd/even/mspon
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialParity
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	bclr	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bclr	#SERB_PARTY_ODD,IO_SERFLAGS(a1)
+	bclr	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bclr	#SEXTB_MARK,IO_EXTFLAGS+3(a1)
+; -1-> NO PARITY
+	tst.w	d1
+	bmi.s	.parX
+; 0--> EVEN
+	bne.s	.par1
+	bset	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bra.s	.parX
+; 1--> ODD
+.par1	cmp.w	#1,d1
+	bne.s	.par2
+	bset	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bset	#SERB_PARTY_ODD,IO_SERFLAGS(a1)
+	bra.s	.parX
+; 2--> SPACE
+.par2	cmp.w	#2,d1
+	bne.s	.par3
+	bset	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bra.s	.parX
+; 3--> MARK
+.par3	cmp.w	#3,d1
+	bne.s	.parX
+	bset	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bset	#SEXTB_MARK,IO_EXTFLAGS+3(a1)
+; Envoie
+.parX	Rbra	L_Stpar
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial X ser,value
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialX
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	bset	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	cmp.l	#-1,d1
+	Rbeq	L_Stpar
+	bclr	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	move.l	d1,IO_CTLCHAR(a1)
+	Rbra	L_Stpar
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Buf ser,length
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialBuf
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	move.l	(a3)+,d0
+	Rbsr	L_GetSerA1
+	move.l	d1,IO_RBUFLEN(a1)
+	Rbra	L_Stpar
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Fast ser
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialFast
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	bclr	#SERB_PARTY_ON,IO_SERFLAGS(a1)
+	bclr	#SEXTB_MSPON,IO_EXTFLAGS+3(a1)
+	bset	#SERB_XDISABLED,IO_SERFLAGS(a1)
+	move.b	#8,IO_READLEN(a1)
+	move.b	#8,IO_WRITELEN(a1)
+	bset	#SERB_RAD_BOOGIE,IO_SERFLAGS(a1)
+	Rbra	L_Stpar
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Serial Slow Ser
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialSlow
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	bclr	#SERB_RAD_BOOGIE,IO_SERFLAGS(a1)
+	Rbra	L_Stpar
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=Serial Check(N)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSerialCheck
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerial
+	Rjsr	L_Dev.CheckIO
+	move.l	d0,d3
+	beq.s	.Out
+	moveq	#-1,d3
+.Out	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=Serial Error(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSerialError
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	moveq	#0,d3
+	move.b	IO_ERROR(a1),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=Serial Status(n)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSerialStatus
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	moveq	#SDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#0,d3
+	move.l	(a2),a1
+	move.w	IO_STATUS(a1),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=SERIAL BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSerialBase
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerA1
+	move.l	a1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SERIAL ABORT channel
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSerialAbort
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSerial
+	Rjmp	L_Dev.AbortIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Routines
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetSerA1
+; - - - - - - - - - - - - -		-----> IO #D0 to A1/a2
+	Rbsr	L_GetSerial
+	Rjmp	L_Dev.GetIO
+; - - - - - - - - - - - - -
+	Lib_Def	GetSerial
+; - - - - - - - - - - - - -		-----> Find IO address > D0
+	cmp.l	#NSerial,d0
+	Rbcc	L_IOFonc
+	mulu	#12,d0
+	Dlea	SerialIO,a2
+	add.w	d0,a2
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	Stpar
+; - - - - - - - - - - - - -
+	moveq	#SDCMD_SETPARAMS,d0
+	Rjmp	L_Dev.DoIO
+
+
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PRINTER BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPrinterBase
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	a1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PRINTER CHECK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPrinterCheck
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.CheckIO
+	move.l	d0,d3
+	beq.s	.Skip
+	moveq	#-1,d3
+.Skip	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PRINTER OPEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPrinterOpen
+; - - - - - - - - - - - - -
+	Rjsr	L_PRT_Close	Ferme LPRINT
+	Dlea	PrtName,a0
+	Dlea	PrinterIO,a2
+	moveq	#64,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	move.w	#161,d3		Premier message erreurs
+	moveq	#7,d4		7 messages
+	moveq	#0,d5
+	Rjsr	L_Dev.Open
+; Ask for printer device task, and forbid its requester...
+	Dload	a2
+	lea	PrtName-DT(a2),a1
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOFindTask(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Skip
+	move.l	d0,a0
+	move.l	$b8(a0),Prt_Request-DT(a2)
+	move.l	#-1,$b8(a0)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PRINTER CLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPrinterClose
+; - - - - - - - - - - - - -
+	Dload	a2
+; Restore printer.device requester
+	tst.l	Prt_Request-DT(a2)
+	beq.s	.Skip
+	lea	PrtName-DT(a2),a1
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOFindTask(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq.s	.Skip
+	move.l	d0,a0
+	move.l	Prt_Request-DT(a2),$b8(a0)
+	clr.l	Prt_Request-DT(a2)
+; Close device
+.Skip	Dlea	PrinterIO,a2
+	Rjmp	L_Dev.CloseA2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PRINTER ERROR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPrinterError
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	moveq	#0,d3
+	move.b	IO_ERROR(a1),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PRINTER SEND A$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPrinterSend
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	d3,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	Rbeq	L_IOFonc
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.SendIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PRINTER OUT ad,lenght
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPrinterOut
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	d3,d0
+	Rbeq	L_IOFonc
+	move.l	(a3)+,a0
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#PRD_RAWWRITE,d0
+	Rjmp	L_Dev.SendIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PRINTER ABORT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPrinterAbort
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjmp	L_Dev.AbortIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PRINTER ONLINE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnPrinterOnline
+; - - - - - - - - - - - - -
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+	Dlea	Prt_Query,a0
+	move.l	a0,IO_DATA(a1)
+	moveq	#PRD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	Dlea	Prt_Query,a0
+	moveq	#0,d3
+	move.l	(a2),a1
+	cmp.l	#1,IO_ACTUAL(a1)
+	bne.s	.Skip
+	btst	#0,(a0)
+	bne.s	.Skip
+	moveq	#-1,d3
+.Skip	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PRINTER DUMP [parameters!]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPrinterDump0
+; - - - - - - - - - - - - -
+	Dload	a2
+	Rbsr	L_GetScr
+	move.w	width-DT(a2),pwidth-DT(a2)
+	move.w	height-DT(a2),pheight-DT(a2)
+	move.l	#0,destCols-DT(a2)
+	move.l	#0,destRows-DT(a2)
+	move.w	#$8c,special-DT(a2)	; ASPECT | FULLROWS | FULLCOLS
+	Rbra	L_Dump
+; - - - - - - - - - - - - -
+	Lib_Par	InPrinterDump4
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	Dload	a2
+	Rbsr	L_Dump2a
+
+; Calculate proportional DestX, DestY
+	clr.l	d0
+	clr.l	d1
+	move.w	pwidth-DT(a2),d0
+	tst.w	d0
+	Rbeq	L_IOFonc
+	move.w	width-DT(a2),d1
+	divu.w	d0,d1
+	tst.w	d1
+	Rbeq	L_IOFonc
+	lea	destCols-DT(a2),a0
+	move.l	#$ffff,d0
+	divu.w	d1,d0
+	move.l	d0,(a0)
+	andi.l	#$ffff,(a0)
+	move.l	#$10,d1
+	move.l	(a0),d0
+	rol.l	d1,d0
+	move.l	d0,(a0)
+
+	clr.l	d0
+	clr.l	d1
+	move.w	pheight-DT(a2),d0
+	tst.w	d0
+	Rbeq	L_IOFonc
+	move.w	height-DT(a2),d1
+	divu.w	d0,d1
+	tst.w	d1
+	Rbeq	L_IOFonc
+	lea	destRows-DT(a2),a0
+	move.l	#$ffff,d0
+	divu.w	d1,d0
+	move.l	d0,(a0)
+	andi.l	#$ffff,(a0)
+	move.l	#$10,d1
+	move.l	(a0),d0
+	rol.l	d1,d0
+	move.l	d0,(a0)
+	lea	special-DT(a2),a0
+	move.w	#$b0,(a0)
+	Rbra 	L_Dump
+
+; - - - - - - - - - - - - -
+	Lib_Par	InPrinterDump7
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	movem.l	a4-a6,-(sp)
+	Dload	a2
+	Rbsr	L_Dump3a
+	Rbra	L_Dump
+
+; - - - - - - - - - - - - -
+	Lib_Def	Dump3a
+; - - - - - - - - - - - - -
+	lea	special-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; special
+	lea	destRows-DT(a2),a0
+	move.l	(a3)+,(a0)		; destY
+	lea	destCols-DT(a2),a0
+	move.l	(a3)+,(a0)		; destY
+	Rbra	L_Dump2a
+; - - - - - - - - - - - - -
+	Lib_Def	Dump2a
+; - - - - - - - - - - - - -
+	lea	pheight-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; bottom y
+	lea	pwidth-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; bottom x
+	lea	srcY-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; srcy
+	lea	srcX-DT(a2),a0
+	lea	2(a3),a3
+	move.w	(a3)+,(a0)		; srcx
+	Rbsr	L_GetScr
+; get srcX,Y back
+	move.w	srcX-DT(a2),d0
+	move.w	srcY-DT(a2),d1
+; calculate width, height
+	neg.w	d0
+	neg.w	d1
+	lea	pwidth-DT(a2),a0
+	add.w	d0,(a0)			; width = -srcX+bottomX
+	lea	pheight-DT(a2),a0
+	add.w	d1,(a0)			; height = -srcY+bottomY
+	rts
+
+; - - - - - - - - - - - - -
+	Lib_Def	Dump
+; - - - - - - - - - - - - -
+; Check the structure
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.GetIO
+; Initialise colour map
+	Dload	a2
+	moveq	#32,d0
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-570(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	beq	cl5
+	move.l	d0,colourmap-DT(a2)
+	move.l	d0,a0
+	moveq	#0,d0
+	move.l	ScreenBase-DT(a2),a1
+	lea	EcPal(a1),a1
+.loop	move.w	(a1)+,d1
+	move.w	d1,d3
+	and.w	#$f,d3
+	lsr.w	#4,d1
+	move.w	d1,d2
+	and.w	#$f,d2
+	lsr.w	#4,d1
+	movem.l	d0/a0-a1/a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-$276(a6)
+	movem.l	(sp)+,d0/a0-a1/a6
+	addq.w	#1,d0
+	cmp.w	#32,d0
+	bne.s	.loop
+
+; Dump the rast port!!!
+	move.l	PrinterIO-DT(a2),a1	; IO structure
+	move.l	T_RastPort(a5),32(a1)	; rastPort
+	move.l	colourmap-DT(a2),36(a1)	; colourmap
+	move.w	viewModes-DT(a2),40+2(a1)	; viewmodes
+	move.w	srcX-DT(a2),44(a1)	; srcX
+	move.w	srcY-DT(a2),46(a1)	; srcY
+	move.w	pwidth-DT(a2),48(a1)	; srcWidth
+	move.w	pheight-DT(a2),50(a1)	; srcHeight
+	move.l	destCols-DT(a2),52(a1)	; destCols
+	move.l	destRows-DT(a2),56(a1)	; destRows
+	move.w	special-DT(a2),60(a1)	; special
+	moveq	#11,d0			; command
+	Dlea	PrinterIO,a2
+	Rjsr	L_Dev.DoIO
+	move.w	d0,-(sp)
+	Dload	a2
+; Free colour map
+cl8	move.l	colourmap-DT(a2),a0
+	move.l	a6,-(sp)
+	move.l	T_GfxBase(a5),a6
+	jsr	-576(a6)		; Free colourmap
+	move.l	(sp)+,a6
+cl5
+; Return to the user
+	move.w	(sp)+,d0
+	bne.s	.Err
+	rts
+; Error
+.Err	Rjmp	L_Dev.Error
+
+;	Return informations about the current screen
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; - - - - - - - - - - - - -
+	Lib_Def	GetScr
+; - - - - - - - - - - - - -
+	move.l	ScOnAd(a5),d0
+	beq.s	.Err				; get the address of the screen
+	move.l	d0,a0
+	move.l 	a0,ScreenBase-DT(a2)
+; Now we need to extract all the information about the screen
+	move.w	EcTx(a0),width-DT(a2)		; width
+	move.w	EcTy(a0),height-DT(a2)		; height
+	move.w	EcCon0(a0),d0
+	and.w	#%1000100010000100,d0		; Hires / HAM / DualPF / Halfbrite
+	move.w	d0,viewModes-DT(a2)		; View Modes
+	move.w	EcNPlan(a0),depth-DT(a2)	; depth
+	rts
+.Err	moveq	#47,d0				; Screen not opened
+	Rjmp	L_Error
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PARALLEL BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnParallelBase
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	a1,d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PARALLEL CHECK
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnParallelCheck
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.CheckIO
+	move.l	d0,d3
+	beq.s	.Skip
+	moveq	#-1,d3
+.Skip	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PARALLEL OPEN
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InParallelOpen
+; - - - - - - - - - - - - -
+	Rjsr	L_PRT_Close
+	Dlea	ParName,a0
+	Dlea	ParallelIO,a2
+	moveq	#62,d0
+	moveq	#0,d1
+	moveq	#0,d2
+	move.w	#171,d3		Premier message erreurs
+	moveq	#7,d4		7 messages
+	moveq	#0,d5
+	Rjmp	L_Dev.Open
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PARALLEL CLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InParallelClose
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjmp	L_Dev.CloseA2
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PARALLEL SEND A$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InParallelSend
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	d3,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	Rbeq	L_IOFonc
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#CMD_WRITE,d0
+	Rjmp	L_Dev.DoIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PARALLEL OUT ad,lenght
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InParallelOut
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	move.l	d3,d0
+	Rbeq	L_IOFonc
+	move.l	(a3)+,a0
+	move.l	d0,IO_LENGTH(a1)
+	move.l	a0,IO_DATA(a1)
+	moveq	#PRD_RAWWRITE,d0
+	Rjmp	L_Dev.DoIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PARALLEL ABORT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InParallelAbort
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjmp	L_Dev.AbortIO
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PARALLEL STATUS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnParallelStatus
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	moveq	#PDCMD_QUERY,d0
+	Rjsr	L_Dev.DoIO
+	moveq	#0,d3
+	move.l	(a2),a1
+	move.b	$34(a1),d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PARALLEL ERROR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnParallelError
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	moveq	#0,d3
+	move.l	(a2),a1
+	move.b	IO_ERROR(a1),d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=PARALLEL INPUT$(long[,stop])
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnParallelInput1
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	bclr	#PARB_EOFMODE,IO_PARFLAGS(a1)
+	move.l	d3,-(a3)
+	Rbra	L_ParInput
+; - - - - - - - - - - - - -
+	Lib_Par	FnParallelInput2
+; - - - - - - - - - - - - -
+	Dlea	ParallelIO,a2
+	Rjsr	L_Dev.GetIO
+	bset	#PARB_EOFMODE,IO_PARFLAGS(a1)
+	beq.s	.Set
+	cmp.b	IO_PTERMARRAY(a1),d3
+	beq.s	.Skip
+.Set	moveq	#7,d0
+	lea	IO_PTERMARRAY(a1),a0
+.Loop	move.b	d3,(a0)+
+	dbra	d0,.Loop
+	moveq	#PDCMD_SETPARAMS,d0
+	Rjsr	L_Dev.DoIO
+.Skip	Rbra	L_ParInput
+; - - - - - - - - - - - - -
+	Lib_Def	ParInput
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d4
+	Rble	L_IOFonc
+	cmp.l	#String_Max,d4
+	Rbcc	L_IOFonc
+* Ask for string space...
+	movem.l	a1/a2,-(sp)
+	move.l	d4,d3
+	and.l	#$FFFE,d3
+	addq.w	#2,d3
+	Rjsr	L_Demande
+	lea	2(a1,d3.w),a1
+	move.l	a1,HiChaine(a5)
+	movem.l	(sp)+,a1/a2
+* Send to device...
+	move.l	a0,d3
+	move.w	d4,(a0)+
+	move.l	a0,IO_DATA(a1)
+	move.l	d4,IO_LENGTH(a1)
+	moveq	#CMD_READ,d0
+	Rjsr	L_Dev.DoIO
+	Ret_String
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Jump to illegal function call
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IOFonc
+; - - - - - - - - - - - - -
+	moveq	#23,d0			* Illegal function call
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Even if you do not have error messages, you MUST
+;	leave TWO routines empty at the end...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Finish the library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		TITLE OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_Title	dc.b	"AMOSPro IO Devices Extension V "
+	Version
+	dc.b	0,"$VER: "
+	Version
+	dc.b	0
+	Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		END OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_End		dc.w	0
+		even
diff --git a/extensions/+Music.s b/extensions/+Music.s
new file mode 100644
index 0000000..4882d13
--- /dev/null
+++ b/extensions/+Music.s
@@ -0,0 +1,4867 @@
+
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; Music extension source code for AMOSPro, Last change 20/07/1993
+; By Francois Lionet
+; AMOS, AMOSPro AMOS Compiler (c) Europress Software 1990-1993
+; To be used with AMOSPro 2.0 and over
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+;
+; NOTE: every chapter is preceded by "+++", so just look for this sign
+; with your editor to go from one important paragraph to another
+;
+; +++
+; This listing explains how to create an extension for AMOSPro V2.0
+; The format of the extension have changed between V1.x and V2.x,
+; but V2.x still accepts old-format extensions.
+; So if you do not want to rewrite your code, just don't, it will work
+; with the interpreter and the compiler.
+;
+; Several advantages of rewriting your code:
+;	- Faster under both interpreter and compiler
+;	- Reserved variables can be created in extensions
+;	- Mathematical functions can be created in extensions
+;	- You can call any AMOSPro function using special macros
+;	  from within your extension.
+;
+; Drawbacks:
+;	- Your function have to save D6/D7 registers
+;
+; To know how to rewrite your code, just read the text at the end of this
+; file. Just know that this music extension has been turned from the old
+; format (V1.x) to the new one, in one afternoon. You just need a good
+; editor to perform the job. All the rest of the text only explain how to
+; write a V2.x extension.
+;
+; --------------------------------------------------------------------------
+;
+; +++ What's an extension?
+;
+; An extension to AMOS is a machine language program that adds new
+; instructions to the already huge AMOS instruction set. This system is
+; designed to be as powerfull as AMOS itself: the extension includes its
+; own token list, its own routines. It can even access some main AMOS
+; routines via special macros. It has a total access to the internal AMOS
+; data zone, and to the graphic library functions.
+;
+; To produce your own extension, I suggest you copy and rename this
+; file, and remove the used code. This way you will not forgive one line.
+; Also keep in mind that you can perfectly call AMOS from within MONAM2,
+; and set some ILLEGAL instructions where you want to debug. To flip back to
+; MONAM2 display, just press AMIGA-A.
+;
+; I have designed the extension system so that one only file works with
+; both AMOS interpretor and compiler.
+; 	- The extension is more a compiler library than a one chunk program:
+;	it is done so that the compiler can pick one routine here and there
+;	to cope with the program it is compiling.
+;	- AMOSPro extension loader works a little like the compiler, exept
+;	that all instructions are loaded and relocated.
+;	- The AMOSPro (V2.x) instruction set is in fact a big extension,
+;	called "AMOSPro.Lib", in the APSystem folder
+;
+; This code was assembled with GENAM3 on a A3000 25 Mhz machine, but a
+; A500 can do it very well!
+; The assembled program must be ONE CHUNK only, you must not link the
+; the symbol table with it. Also be sure that you program is totally
+; relocatable (see later) : if not it will add a relocation chunk to
+; the output code, and your extension will simply crash AMOS on loading
+; (and the compiler too!).
+;
+; +++
+; Before assembling your code, you must run one AMOSro Compiled program that
+; explores your source code, and creates the label table for the assembler.
+; This program is called "Library_Digest". Here is my script file to assemble
+; the music extension :
+;
+; Library_Digest +Music.s
+; Genam FROM +Music.s TO APro:APSystem/AMOSPro_Music.Lib
+;
+; Library_Digest loads +music.s and creates two ascii files:
+;	+Music_Size.s contains the number of functions in the extension
+;	+Music_Labels.s contains the list of labels and their value.
+;
+; Here we go now!
+;
+; +++
+; Here comes the number of the extension in the list of extensions in
+; AMOSPro_Interpretor_Config program (minus one).
+; This number is used later to reference the extension in internal AMOS
+; tables...
+;
+ExtNb		equ	1-1
+
+;---------------------------------------------------------------------
+;		+++
+;		Include the files automatically calculated by
+;		Library_Digest.AMOS
+;---------------------------------------------------------------------
+		Include	"+Music_Size.s"
+		Include	"+Music_Labels.s"
+
+; +++ You must include this file, it will decalre everything for you.
+		Include	"+AMOS_Includes.s"
+
+; +++ This one is only for the current version number.
+		Include	"+Version.s"
+
+; A usefull macro to find the address of data in the extension's own
+; datazone (see later)...
+Dlea		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\2
+		add.w	#\1-MB,\2
+		ENDM
+
+; Another macro to load the base address of the datazone...
+Dload		MACRO
+		move.l	ExtAdr+ExtNb*16(a5),\1
+		ENDM
+
+; ---------------------------------------------------------------------------
+; Now some equates used by the music extension itself. Ignore this in your
+; code!
+
+Translate	equ -30
+
+*************** Enveloppes definitions
+		RsReset
+EnvNb:		rs.w	1
+EnvDVol:	rs.w	1
+EnvVol:		rs.l	1
+EnvDelta:	rs.l 	1
+EnvAd:		rs.l	1
+EnvDeb:		rs.l	1
+EnvLong:	equ 	__RS
+
+*************** Wave definition
+LWave:		equ 	256+128+64+32+16+8+4+2
+LNoise:		equ 	LWave
+		RsReset
+WaveNext:	rs.l	1
+WaveNb:		rs.w	1
+WaveEnv:	rs.w	16*2
+WaveDeb:	rs.b	LWave
+WaveLong:	equ 	__RS
+
+*************** Music voice data
+		RsReset
+VoiAdr		rs.l	1
+VoiDeb		rs.l	1
+VoiInst		rs.l	1
+VoiDPat		rs.l	1
+VoiPat		rs.l	1
+VoiCpt		rs.w	1
+VoiRep		rs.w	1
+VoiNote		rs.w	1
+VoiDVol		rs.w	1
+VoiVol		rs.w	1
+VoiEffect	rs.l	1
+VoiValue	rs.w	1
+VoiPToTo	rs.w	1
+VoiPTone	rs.b	1
+VoiVib		rs.b	1
+VoiLong		equ 	__RS
+
+*************** MUBASE table
+		RsReset
+* Voix 0
+MuVoix0		equ	__RS
+VoiAdr0		rs.l	1
+VoiDeb0		rs.l	1
+VoiInst0	rs.l	1
+VoiDPat0	rs.l	1
+VoiPat0		rs.l	1
+VoiCpt0		rs.w	1
+VoiRep0		rs.w	1
+VoiNote0	rs.w	1
+VoiDVol0	rs.w	1
+VoiVol0		rs.w	1
+VoiEffect0	rs.l	1
+VoiValue0	rs.w	1
+VoiPToTo0	rs.w	1
+VoiPTone0	rs.b	1
+VoiVib0		rs.b	1
+* Voix 1
+MuVoix1		equ	__RS
+VoiAdr1		rs.l	1
+VoiDeb1		rs.l	1
+VoiInst1	rs.l	1
+VoiDPat1	rs.l	1
+VoiPat1		rs.l	1
+VoiCpt1		rs.w	1
+VoiRep1		rs.w	1
+VoiNote1	rs.w	1
+VoiDVol1	rs.w	1
+VoiVol1		rs.w	1
+VoiEffect1	rs.l	1
+VoiValue1	rs.w	1
+VoiPToTo1	rs.w	1
+VoiPTone1	rs.b	1
+VoiVib1		rs.b	1
+* Voix 2
+MuVoix2		equ	__RS
+VoiAdr2		rs.l	1
+VoiDeb2		rs.l	1
+VoiInst2	rs.l	1
+VoiDPat2	rs.l	1
+VoiPat2		rs.l	1
+VoiCpt2		rs.w	1
+VoiRep2		rs.w	1
+VoiNote2	rs.w	1
+VoiDVol2	rs.w	1
+VoiVol2		rs.w	1
+VoiEffect2	rs.l	1
+VoiValue2	rs.w	1
+VoiPToTo2	rs.w	1
+VoiPTone2	rs.b	1
+VoiVib2		rs.b	1
+* Voix 3
+MuVoix3		equ	__RS
+VoiAdr3		rs.l	1
+VoiDeb3		rs.l	1
+VoiInst3	rs.l	1
+VoiDPat3	rs.l	1
+VoiPat3		rs.l	1
+VoiCpt3		rs.w	1
+VoiRep3		rs.w	1
+VoiNote3	rs.w	1
+VoiDVol3	rs.w	1
+VoiVol3		rs.w	1
+VoiEffect3	rs.l	1
+VoiValue3	rs.w	1
+VoiPToTo3	rs.w	1
+VoiPTone3	rs.b	1
+VoiVib3		rs.b	1
+
+* Other data
+MuCpt		rs.w	1
+MuTempo		rs.w	1
+MuStart		rs.w	1
+MuStop		rs.w	1
+* Total length
+MuLong		equ 	__RS
+
+IntEnaR		equ	$1c
+IntReqR		equ	$1e
+is_data		equ	$0e
+is_code		equ	$12
+ln_pri		equ	$09
+ln_type		equ	$08
+
+; +++
+; All the above did not produce any byte of code. Here is the real beginning
+; of the program. It MUST begin by a small table of pointers so that both
+; AMOS and the compiler know where to get their data...
+; Please remark that everything is relocatable...
+
+; +++ First, a pointer to the token list
+Start	dc.l	C_Tk-C_Off
+;
+; +++ Then, a pointer to the first library function
+	dc.l	C_Lib-C_Tk
+;
+; +++ Then to the title
+	dc.l	C_Title-C_Lib
+;
+; +++ From title to the end of the program
+	dc.l	C_End-C_Title
+; +++
+; An important flag. Imagine a program does not call your extension, the
+; compiler will NOT copy any routine from it in the object program. For
+; certain extensions, like MUSIC, COMPACT, it is perfect.
+; But for the REQUEST extension, even if it is not called, the first routine
+; MUST be called, otherwise AMOS requester will not work!
+; So, a value of 0 indicates to copy if needed only,
+; A value of -1 forces the copy of the first library routine...
+	dc.w	0
+
+; +++ This magic code tells AMOSPro that this extensions uses the new format
+	dc.b	"AP20"
+
+
+;---------------------------------------------------------------------
+;	+++ TABLE OF POINTERS TO THE LIBRARY
+;
+;	The following macros automatically create the necessary pointers
+; to the library. It uses the informations created by "Library_Digest"
+; You are free to add/remove a function in the middle of the extension
+; without having to care about the numbers of the function.
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+
+;---------------------------------------------------------------------
+; 	+++ TOKEN TABLE
+;
+;
+; This table is the crucial point of the extension! It tells
+; everything the tokenisation process needs to know. You have to
+; be carefull when writing it!
+;
+; The format is simple:
+;	dc.w	Number of instruction,Number of function
+;	dc.b	"instruction nam","e"+$80,"Param list",-1[or -2]
+;
+;	(1) Number of instruction / function
+;		You must state the one that is needed for this token.
+;               I suggest you keep the same method of referencing the
+;		routines than mine: L_name, this label being defined
+;		in the main program.
+;		A -1 means take no routine is called (example a
+;		instruction only will have a -1 in the function space...)
+;
+;	(2) Instruction name
+;		It must be finished by the letter plus $80.
+;		- You can SET A MARK in the token table with a "!" before
+;		the name. See later
+;		-Using a $80 ALONE as a name definition, will force AMOS
+;		to point to the previous "!" mark...
+;
+;	(3) Param list
+;		This list tells AMOS everything about the instruction.
+;
+;	- First character:
+;		The first character defines the TYPE on instruction:
+;			I--> instruction
+;			0--> function that returns a integer
+;			1--> function that returns a float
+;			2--> function that returns a string
+;			V--> reserved variable. In that case, you must
+;				state the type int-float-string
+;	- If your instruction does not need parameters, then you stop
+;	- Your instruction needs parameters, now comes the param list
+;			Type,TypetType,Type...
+;		Type of the parameter:
+;			0--> integer
+;			1--> float or double
+;			2--> string
+;			3--> integer OR string. The only way to check the type
+;			     is to check the adress (UGLY, but safe for integer
+;			     up to 512 which cannot ever be a string's address)
+;			4--> Integer OR float/double. You must then write TWO
+;			     routines. The first one being called when the param
+;			     is an integer, and being the one pointed to by the
+;                            token table. The second one being called when the
+;                            parameter is a float/double.
+;			     This system is used for functions like SGN.
+;			5--> Angle. This parameter will always be a float/double,
+;			     in radians, even if DEGREE has been set.
+;		Comma or "t" for TO
+;
+;	(4) End of instruction
+;			"-1" states the end of the instruction
+;			"-2" tells AMOS that another parameter list
+;			     can be accepted. if so, MUST follow the
+;			     complete instruction definition as explained
+;			     but with another param list.
+;	If so, you can use the "!" and $80 facility not to rewrite the
+;	full name of the instruction...See SAM LOOP ON instruction for an
+;	example...
+;
+;
+;	+++ You _MUST_ leave this keyword in the source, in upper case:
+;	Library_Digest uses it to detect the start of the library.
+;
+;	TOKEN_START
+
+; 	+++ The next two lines needs to be unchanged...
+C_Tk:	dc.w 	1,0
+	dc.b 	$80,-1
+
+; Now the real tokens...
+	dc.w	L_Nul,L_FnMusicBase
+	dc.b	"mubas","e"+$80,"0",-1
+	dc.w	L_Nul,L_FnVuMeter
+	dc.b	"vumete","r"+$80,"00",-1
+	dc.w	L_InVoice,L_Nul
+	dc.b	"voic","e"+$80,"I0",-1
+	dc.w	L_InMusicOff,L_Nul
+	dc.b	"music of","f"+$80,"I",-1
+	dc.w	L_InMusicStop,L_Nul
+	dc.b	"music sto","p"+$80,"I",-1
+	dc.w	L_InTempo,L_Nul
+	dc.b	"temp","o"+$80,"I0",-1
+	dc.w	L_InMusic,L_Nul
+	dc.b	"musi","c"+$80,"I0",-1
+
+	dc.w	L_InNoiseTo,L_Nul
+	dc.b	"noise t","o"+$80,"I0",-1
+	dc.w	L_InBoom,L_Nul
+	dc.b 	"boo","m"+$80,"I",-1
+	dc.w	L_InShoot,L_Nul
+	dc.b	"shoo","t"+$80,"I",-1
+	dc.w	L_InSamBank,L_Nul
+	dc.b	"sam ban","k"+$80,"I0",-1
+	dc.w	L_InSamLoopOn0,L_Nul
+	dc.b	"!sam loop o","n"+$80,"I",-2
+	dc.w	L_InSamLoopOn1,L_Nul
+	dc.b	$80,"I",-1
+	dc.w	L_InSamLoopOff0,L_Nul
+	dc.b	"sam loop of","f"+$80,"I",-2
+	dc.w	L_InSamLoopOff1,L_Nul
+	dc.b	$80,"I0",-1
+	dc.w	L_InSampleTo,L_Nul
+	dc.b	"sampl","e"+$80,"I0t0",-1
+	dc.w 	L_InSamPlay1,L_Nul
+	dc.b 	"!sam pla","y"+$80,"I0",-2
+	dc.w	L_InSamPlay2,L_Nul
+	dc.b	$80,"I0,0",-2
+	dc.w 	L_InSamPlay3,L_Nul
+	dc.b	$80,"I0,0,0",-1
+	dc.w 	L_InSamRaw,L_Nul
+	dc.b 	"sam ra","w"+$80,"I0,0,0,0",-1
+	dc.w	L_InBell0,L_Nul
+	dc.b 	"!bel","l"+$80,"I",-2
+	dc.w 	L_InBell1,L_Nul
+	dc.b	$80,"I0",-1
+	dc.w	L_InPlayOff0,L_Nul
+	dc.b	"!play of","f"+$80,"I",-2
+	dc.w	L_InPlayOff1,L_Nul
+	dc.b	$80,"I0",-1
+	dc.w 	L_InPlay2,L_Nul
+	dc.b	"!pla","y"+$80,"I0,0",-2
+	dc.w	L_InPlay3,L_Nul
+	dc.b	$80,"I0,0,0",-1
+	dc.w 	L_InSetWave,L_Nul
+	dc.b 	"set wav","e"+$80,"I0,2",-1
+	dc.w	L_InDelWave,L_Nul
+	dc.b	"del wav","e"+$80,"I0",-1
+	dc.w	L_InSetEnvel,L_Nul
+	dc.b	"set enve","l"+$80,"I0,0t0,0",-1
+	dc.w	L_InMvolume,L_Nul
+	dc.b	"mvolum","e"+$80,"I0",-1
+	dc.w 	L_InVolume1,L_Nul
+	dc.b	"!volum","e"+$80,"I0",-2
+	dc.w 	L_InVolume2,L_Nul
+	dc.b	$80,"I0,0",-1
+	dc.w	L_InWave,L_Nul
+	dc.b 	"wav","e"+$80,"I0t0",-1
+	dc.w	L_InLedOn,L_Nul
+	dc.b	"led o","n"+$80,"I",-1
+	dc.w	L_InLedOf,L_Nul
+	dc.b	"led of","f"+$80,"I",-1
+	dc.w	L_InSay1,L_Nul
+	dc.b	"!sa","y"+$80,"I2",-2
+	dc.w	L_InSay2,L_Nul
+	dc.b	$80,"I2,0",-1
+	dc.w	L_InSetTalk,L_Nul
+	dc.b	"set tal","k"+$80,"I0,0,0,0",-1
+	dc.w	L_InSload,L_Nul
+	dc.b	"sloa","d"+$80,"I0t0,0",-1
+	dc.w	L_Nul,L_FnSamSwapped
+	dc.b	"sam swappe","d"+$80,"00",-1
+	dc.w	L_InSamSwap,L_Nul
+	dc.b	"sam swa","p"+$80,"I0t0,0",-1
+	dc.w 	L_InSamStop0,L_Nul
+	dc.b	"!sam sto","p"+$80,"I",-2
+	dc.w	L_InSamStop1,L_Nul
+	dc.b	$80,"I0",-1
+
+	dc.w	L_InTrackStop,L_Nul
+	dc.b	"track sto","p"+$80,"I",-1
+	dc.w	L_InTrackLoopOn,L_Nul
+	dc.b	"track loop o","n"+$80,"I",-1
+	dc.w	L_InTrackLoopOff,L_Nul
+	dc.b	"track loop o","f"+$80,"I",-1
+	dc.w	L_InTrackPlay0,L_Nul
+	dc.b	"!track pla","y"+$80,"I",-2
+	dc.w	L_InTrackPlay1,L_Nul
+	dc.b	$80,"I0",-2
+	dc.w	L_InTrackPlay2,L_Nul
+	dc.b	$80,"I0,0",-1
+	dc.w	L_InTrackLoad,L_Nul
+	dc.b	"track loa","d"+$80,"I2,0",-1
+
+	dc.w	L_Nul,L_FnMouthWidth
+	dc.b	"mouth widt","h"+$80,"0",-1
+	dc.w	L_Nul,L_FnMouthHeight
+	dc.b	"mouth heigh","t"+$80,"0",-1
+	dc.w	L_InMouthRead,L_Nul
+	dc.b	"mouth rea","d"+$80,"I",-1
+	dc.w	L_InTalkStop,L_Nul
+	dc.b	"talk sto","p"+$80,"I",-1
+	dc.w	L_InTalkMisc,L_Nul
+	dc.b	"talk mis","c"+$80,"I0,0",-1
+
+	dc.w	L_InSsave,L_Nul
+	dc.b	"ssav","e"+$80,"I0,0t0",-1
+
+	dc.w	L_InMedLoad,L_Nul
+	dc.b	"med loa","d"+$80,"I2,0",-1
+	dc.w	L_InMedPlay0,L_Nul
+	dc.b	"!med pla","y"+$80,"I",-2
+	dc.w	L_InMedPlay1,L_Nul
+	dc.b	$80,"I0",-2
+	dc.w	L_InMedPlay2,L_Nul
+	dc.b	$80,"I0,0",-1
+	dc.w	L_InMedStop,L_Nul
+	dc.b	"med sto","p"+$80,"I",-1
+	dc.w	L_InMedCont,L_Nul
+	dc.b	"med con","t"+$80,"I",-1
+	dc.w	L_InMedMidiOn,L_Nul
+	dc.b	"med midi o","n"+$80,"I",-1
+
+;	+++ You must also leave this keyword untouched, just before the zeros.
+;	TOKEN_END
+
+;	+++ The token table must end by this
+	dc.w 	0
+	dc.l	0
+
+
+;
+; Now come the big part, the library.
+;
+; The beginning of each routine is defined with macros. NB: in the following text
+; a space in inserted in the macro name, so that it is not detected by
+; "Library_Digest".
+;
+;	Lib_ Def	Function_Name_No_Parameter
+; or
+;	Lib_ Par Function_Name_With_Parameter
+;
+; Those two macro have the same function:
+;	- Create an entry in the library offset table, so that AMOSPro locates
+;	the function,
+;	- Are detected by Library_Digest: it then creates a label in the "_Label.s"
+;	file (see above) of the following form, by appending a "L_" to the name:
+;	"L_Function_Name_..." This label must be used in the extension to reference
+;	the routine.
+;
+; Differences between Lib_ Def and Lib_ Par
+;	- Lib_ Def must be used for internal routines (ie, not instructions or
+;	functions)
+;	- Lib_ Par must be used for instructions or functions: it reserved a space
+;	before the routine if used by the interpreter, to call the parameter
+;	calculation routines. Well this is internal, you don't have to care
+;	about it, just use "Lib_ Par" for routines referenced in the token
+;	table...
+;
+; BSR and JSR
+;	- You cannot directly call other library routines from one routine
+;	by doing a BSR, but I have defined special macros (in +CEQU.S file)
+;	to allow you to easily do so. Here is the list of available macros:
+;
+;	Rbsr	L_Routine	does a simple BSR to the routine
+;	Rbra	L_Routine	as a normal BRA
+;	Rbeq	L_Routine	as a normal Beq
+;	Rbne	L_Routine	...
+;	Rbcc	L_Routine
+;	Rbcs	L_Routine
+;	Rblt	L_Routine
+;	Rbge	L_Routine
+;	Rbls	L_Routine
+;	Rbhi	L_Routine
+;	Rble	L_Routine
+;	Rbpl	L_Routine
+;	Rbmi	L_Routine
+;
+; I remind you that you can only use this to call an library routine
+; from ANOTHER routine. You cannot do a call WITHIN a routine, or call
+; the number of the routine your calling from...
+; The compiler (and AMOSPro extension loading part) will manage to find
+; the good addresses in your program from the offset table.
+;
+; You can also call some main AMOSPro.Lib routines, to do so, use the
+; following macros:
+;	Rjsr	L_Routine
+;	Rjmp	L_Routine
+;
+; Here is the list of the most usefull routines from the AMOSPro.Lib
+;
+;	Rjsr	L_Error
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Jump to normal error routine. See end of listing
+;
+;	Rjsr	L_ErrorExt
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+;	Jump to specific error routine. See end of listing.
+;
+; 	Rjsr	L_Test_PaSaut
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Perform one AMOSPro updating procedure, update screens, sprites,
+;	bobs etc. You should use it for wait loops. Does not jump to
+;	automatic calls.
+;
+;	Rjsr	L_Test_Normal
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Same as before, but with automatic function jump.
+;
+;	Rjsr	L_WaitRout
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+;	Wait for D3 VBL with tests.
+;	See play instruction.
+;
+;	Rjsr	L_GetEc
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Get screen address: In: D1.l= number, Out: A0=address
+;
+;	Rjsr	L_Demande
+; ~~~~~~~~~~~~~~~~~~~~~~~
+;	Ask for string space.
+;	D3.l is the length to ask for. Return A0/A1 point to free space.
+;	Poke your string there, add the length of it to A0, EVEN the
+;	address to the highest multiple of two, and move it into
+;	HICHAINE(a5) location...
+;
+;	Rjsr	L_RamChip
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Ask for PUBLIC|CLEAR|CHIP ram, size D0, return address in D0, nothing
+;	changed, Z set according to the success.
+;
+;	Rjsr	L_RamChip2
+; ~~~~~~~~~~~~~~~~~~~~~~
+;	Same for PUBLIC|CHIP
+;
+;	Rjsr	L_RamFast
+; ~~~~~~~~~~~~~~~~~~~~~
+;	Same for PUBLIC|CLEAR
+;
+;	Rjsr	L_RamFast2
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+;	Same for PUBLIC
+;
+;	Rjsr	L_RamFree
+; ~~~~~~~~~~~~~~~~~~~~~~~
+;	Free memory A1/D0
+;
+;	Rjsr	L_Bnk.OrAdr
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Find whether a number is a address or a	memory bank number
+;	IN: 	D0.l= number
+;	OUT: 	D0/A0= number or start(number)
+;
+;	Rjsr	L_Bnk.GetAdr
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Find the start of a memory bank.
+;	IN:	D0.l=	Bank number
+;	OUT:	A0=	Bank address
+;		D0.w=	Bank flags
+;		Z set if bank not defined.
+;
+;	Rjsr	L_Bnk.GetBobs
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Returns the address of the bob's bank
+;	IN:
+;	OUT:	Z 	Set if not defined
+;		A0=	address of bank
+;
+;	Rjsr	L_Bnk.GetIcons
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Returns the address of the icons bank
+;	IN:
+;	OUT:	Z 	Set if not defined
+;		A0=	address of bank
+;
+;	Rjsr	L_Bnk.Reserve
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Reserve a memory bank.
+;	IN:	D0.l	Number
+;		D1	Flags
+;		D2	Length
+;		A0	Name of the bank (8 bytes)
+;	OUT:	Z 	Set inf not successfull
+;		A0	Address of bank
+;	FLAGS:
+;		Bnk_BitData		Data bank
+;		Bnk_BitChip		Chip bank
+;		Example:	Bset	#Bnk_BitData|Bnk_BitChip,d1
+;	NOTE: 	you should call L_Bnk.Change after reserving/erasing a bank.
+;
+;	Rjsr	L_Bnk.Eff
+; ~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase one memory bank.
+;	IN:	D0.l	Number
+;	OUT:
+;
+;	Rjsr	L_Bnk.EffA0
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase a bank from its address.
+;	IN:	A0	Start(bank)
+;	OUT:
+;
+;	Rjsr	L_Bnk.EffTemp
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase all temporary banks
+;	IN:
+;	OUT:
+;
+;	Rjsr	L_Bnk.EffAll
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Erase all banks
+;	IN:
+;	OUT:
+;
+;	Rjsr	L_Bnk.Change
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Inform the extension, the bob handler that something has changed
+;	in the banks. You should use this function after every bank
+;	reserve / erase.
+;	IN:
+;	OUT:
+;
+; 	Rjsr	L_Dsk.PathIt
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Add the current AMOS path to a file name.
+;	IN:	(Name1(a5)) contains the name, finished by zero
+;	OUT:	(Name1(a5)) contains the name with new path
+;	Example:
+;		move.l	Name1(a5),a0
+;		move.l	#"Kiki",(a0)+
+;		clr.b	(a0)
+;		Rjsr	L_Dsk.PathIt
+;		... now I load in the current directory
+;
+;	Rjsr	 L_Dsk.FileSelector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;	Call the file selector.
+;	IN:	12(a3)	Path+filter
+;		8(a3)	Default name
+;		4(a3)	Title 2
+;		0(a3)	Title 1
+;		All strings must be in AMOS string format:
+;			dc.w	Length
+;			dc.b 	"String"
+;	OUT:	D0.w	Length of the result. 0 if no selection
+;		A0	Address of first character of the result.
+;
+;
+; How does it work?
+; Having a look at the +CEQU file, you see that I use special codes
+; to show the compiler that it has to copy the asked routine and relocate
+; the branch. Some remarks:
+;	- The size of a Rbsr is 4 bytes, like the normal branch, it does
+; not change the program (you can make some jumps over it)
+;	- Although I have coded the signal, and put a lot a security,
+; a mischance may lead to the compiler thinking there is a Rbsr where
+; there is nothing than normal data. The result may be disastrous! So if
+; you have BIG parts of datas in which you do not make any special calls,
+; you can put before it the macro: RDATA. It tells the compiler that
+; the following code, up to the end of the library routine (up to the next
+; L(N) label) is normal data: the compiler will not check for Rbranches...
+; Up to now, I have not been forced to do so, but if something goes wrong,
+; try that!
+;
+
+; +++ Remember!
+;	- Your code must be (pc), TOTALLY relocatable, check carefully your
+;  	code!
+;	- Never perform a BSR or a JSR from one function to another: it
+;	_will_ crash once compiled. Use the special macros instead.
+;	- Each individual routine of the library can be up to 32K
+
+;---------------------------------------------------------------------
+; +++ This macro initialise the library counter, and is also detected by
+;     Library_Digest
+;
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+; +++ Start of the library (for the header)
+C_Lib
+
+******************************************************************
+*		COLD START
+*
+; The first routine of the library will perform all initialisations in the
+; booting of AMOS.
+;
+; I have put here all the music datazone, and all the interrupt routines.
+; I suggest you put all you C-Code here too if you have some...
+
+; ALL the following code, from L0 to L1 will be copied into the compiled
+; program (if any music is used in the program) at once. All RBSR, RBRA etc
+; will be detected and relocated. AMOSPro extension loader does the same.
+; The length of this routine (and of any routine) must not exceed 32K
+
+; - - - - - - - - - - - - -
+	Lib_Def	Mus_Cold
+; - - - - - - - - - - - - -
+	cmp.l	#"APex",d1		Version 1.10 or over?
+	bne.s	BadVer
+
+	movem.l	a3-a6,-(sp)
+;
+; Here I store the address of the extension data zone in the special area
+	lea	MB(pc),a3
+	move.l	a3,ExtAdr+ExtNb*16(a5)
+;
+; Here, I store the address of the routine called by DEFAULT, or RUN
+	lea	MusDef(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+4(a5)
+;
+; Here, the address of the END routine,
+	lea	MusEnd(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+8(a5)
+;
+; And now the Bank check routine..
+	lea	BkCheck(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+12(a5)
+
+; You are not obliged to store something in the above areas, you can leave
+; them to zero if no routine is to be called...
+;
+; In AMOS data zone, stands 8 long words allowing you to simply
+; put a patch in the VBL interrupt. The first on is at VBLRout.
+; At each VBL, AMOS explores this list, and call all address <> 0
+; It stops at the FIRST zero. The music patch is the first routine
+; called.
+
+	lea	MusInt(pc),a0		* Interrupt routine
+	move.l	a0,VblRout(a5)
+; 50/60 herz?
+	move.l	#3546895,MusClock-MB(a3)
+	move.w	#100,TempoBase-MB(a3)
+	EcCall	NTSC			* Is system NTSC?
+	tst.w	d1
+	beq.s	ItsPAL
+	move.w	#120,TempoBase-MB(a3)
+	move.l	#3579545,MusClock-MB(a3)
+ItsPAL
+; Install sample interrupts
+	lea	Sami_handler(pc),a0
+	move.l	a0,Sami_handad-MB(a3)
+
+; As you can see, you MUST preserve A3-A6, and return in D0 the
+; Number of the extension if everything went allright. If an error has
+; occured (no more memory, no file found etc...), return -1 in D0 and
+; AMOS will refuse to start.
+	movem.l	(sp)+,a3-a6
+	moveq	#ExtNb,d0		* NO ERRORS
+	move.w	#$0110,d1		* Version d'ecriture
+ 	rts
+; In case this extension is runned on AMOSPro V1.00
+BadVer	moveq	#-1,d0			* Bad version number
+	sub.l	a0,a0
+	rts
+
+******* SCREEN RESET
+; This routine is called each time a DEFAULT occurs...
+;
+; The next instruction loads the internal datazone address. I could have
+; of course done a load MB(pc),a3 as the datazone is in the same
+; library chunk.
+
+MusDef	Dload	a3
+* Stop/Init narrator
+	Rbsr	L_InTalkStop
+	Rbsr	L_NarInit
+* Reset TRACKER music
+	Rbsr	L_InTrackStop
+	clr.b	Track_Loop-MB(a3)
+* Reset MED music
+	Rbsr	L_MedClose
+	clr.b	Med_Midi-MB(a3)
+* Reset Sam_interrupts
+	move.w	#$000F,Circuits+DmaCon
+	Rbsr	L_Sami_install
+* Init musique
+	Rbsr	L_RazWave		* Reset waves
+	move.l	Buffer(a5),a0		* Draw square wave
+	move.l	a0,a1
+	moveq	#127,d0
+MuDf1	move.b	#-127,128(a0)
+	move.b	#127,(a0)+
+	dbra	d0,MuDf1
+	moveq	#0,d1			* 0-> Noise
+	Rbsr	L_NeWave
+	moveq	#1,d1			* 1-> Square wave
+	Rbsr	L_NeWave
+	move.w	#LNoise/2-1,d2		* Draw first noise
+	move.w	BSeed-MB(a3),d1
+	move.l	WaveBase-MB(a3),a0
+	lea	WaveDeb(a0),a0
+MuDf2	add.w	Circuits+6,d1
+	mulu	#$3171,d1
+	lsr.l	#8,d1
+	move.w	d1,(a0)+
+	dbra	d2,MuDf2
+	move.w	d1,BSeed-MB(a3)
+	moveq	#56,d0			* Default settings
+	moveq	#%1111,d1
+	Rbsr	L_Vol
+	Rbsr	L_MVol
+	move.w	#5,SamBank-MB(a3)	* Sample bank=5
+	moveq	#-1,d0			* Sam loop off
+	moveq	#-1,d1
+	Rbsr	L_SL0
+	Rbra	L_MuInit
+
+******* QUIT
+; This routine is called when you quit AMOS or when the compiled program
+; ends. If you have opend devices, reserved memory you MUST close and
+; restore everything to normal.
+
+MusEnd:	Dload	a3
+
+; Ferme le narrator
+	Rbsr	L_InTalkStop
+	move.l	$4.w,a6
+	move.l	WriteIo-MB(a3),d0
+	beq.s	.Skip1
+	move.l	d0,a1
+	move.l	WriteIo-MB(a3),a1
+	jsr	_LVOCloseDevice(a6)
+; Enleve la structure
+	move.l	WriteIo-MB(a3),-(sp)
+	Rjsr	L_DeleteExtIO
+	addq.l	#4,sp
+; Enleve les ports
+	move.l	WritePort-MB(a3),-(sp)
+	Rjsr	L_DeletePort
+	addq.l	#4,sp
+	move.l	ReadPort-MB(a3),-(sp)
+	Rjsr	L_DeletePort
+	addq.l	#4,sp
+; Enleve le translator
+.Skip1	move.l	TranBase-MB(a3),d0
+	beq.s	NarEnd
+	move.l	d0,a1
+	jsr	CloseLib(a6)
+NarEnd
+* No more TRACKER music
+	Rbsr	L_InTrackStop
+* No more MED music
+	Rbsr	L_MedClose
+* No more VBL
+	clr.l	VblRout(a5)
+* No more Sami
+	Rbsr	L_Sami_remove
+* End music
+	Rbsr	L_MOff
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff
+	Rbsr	L_RazWave
+	lea	Circuits,a0
+	move.w	#$000F,DmaCon(a0)
+	clr.w	$a8(a0)
+	clr.w	$b8(a0)
+	clr.w	$c8(a0)
+	clr.w	$d8(a0)
+* Finished!
+	rts
+
+******* LOOK FOR MUSIC BANK
+; This routine is called after any bank has been loaded, reserved or erased.
+; Here, if a music is being played and if the music bank is erased, I MUST
+; stop the music, otherwise it might crash the computer. That's why I
+; do a checksum on the first bytes of the bank to see if they have changed...
+BkCheck
+	Rbsr	L_TrackCheck		* Check Tracker
+	Rbsr	L_MedCheck		* Check Med
+* Check normal music.
+	Dload	a3
+	move.l	MusBank-MB(a3),d2	Old music bank address
+	moveq	#3,d0			Ask for music bank address
+	Rjsr	L_Bnk.GetAdr
+	beq.s	BkNo
+	move.l	-8(a0),d0		Looks for "Musi"
+	cmp.l	BkMus-MB(a3),d0
+	bne.s	BkNo
+	moveq	#0,d0			Performs a check sum
+	add.l	(a0),d0
+	add.l	4(a0),d0
+	add.l	8(a0),d0
+	add.l	12(a0),d0
+	cmp.l	d2,a0
+	bne.s	BkNew
+	cmp.l	MusCheck-MB(a3),d0
+	bne.s	BkNew
+* Same bank! Do nothing!
+	rts
+* No more bank!
+BkNo	tst.l	d2
+	beq.s	BkNo1
+	Rbsr	L_MuInit
+	clr.l	MusBank-MB(a3)
+BkNo1	rts
+* A NEW bank
+BkNew	move.l	a0,MusBank-MB(a3)
+	move.l	d0,MusCheck-MB(a3)
+	Rbsr	L_MuInit
+	move.l	MusBank-MB(a3),a0
+	move.l	a0,a1
+	add.l	(a0),a1
+	move.l	a1,BankInst-MB(a3)
+	move.l	a0,a1
+	add.l	4(a0),a1
+	move.l	a1,BankSong-MB(a3)
+	add.l	8(a0),a0
+	move.l	a0,BankPat-MB(a3)
+	rts
+
+***********************************************************
+*
+*	INTERRUPT ROUTINES
+*
+***********************************************************
+
+******* Sami interrupt handlers
+Sami_handler
+	add.w	Sami_reg(a1),a0
+	move.l	Sami_pos(a1),d0
+	cmp.l	Sami_long(a1),d0
+	bcc.s	.whatnow
+* Poursuit la lecture du sample
+.samloop
+	move.l	d0,d1
+	add.l	#Sami_lplay,d1
+	cmp.l	Sami_long(a1),d1
+	bls.s	.skip
+	move.l	Sami_long(a1),d1
+.skip	move.l	d1,Sami_pos(a1)
+	sub.l	d0,d1
+	lsr.l	#1,d1
+	add.l	Sami_adr(a1),d0
+	move.l	d0,(a0)				* AUDxLOC
+	move.w	d1,4(a0)			* AUDxLEN
+	move.w	Sami_dvol(a1),d0
+	bmi.s	.skip1
+	move.w	d0,8(a0)			* AUDxVOL
+.skip1	move.w	Sami_bit(a1),Circuits+IntReq
+	rts
+* Sample termine. Que faire?
+.whatnow
+	move.l	d0,d1
+	move.l	Sami_radr(a1),d0		* Double buffer?
+	bne.s	.swap
+	move.l	Sami_rpos(a1),d0		* Boucler?
+	bpl.s	.samloop
+	bset	#7,Sami_pos(a1)			* Attend?
+	tst.l	d1
+	bpl.s	.skip1
+* Fin du sample-> met du blanc!
+	move.w	#0,$a(a0)
+	move.w	Sami_dma(a1),d0
+	moveq	#0,d1
+	bset	d0,d1
+	move.w	d1,Circuits+DmaCon
+	tst.w	Sami_dvol(a1)
+	bmi.s	.skip2
+	lea	MB(pc),a0			* Restart music
+	bset	d0,MuReStart+1-MB(a0)
+.skip2	move.w	Sami_bit(a1),Circuits+IntEna	* No more interrupts
+	move.w	Sami_bit(a1),Circuits+IntReq
+	rts
+* Change de buffer
+.swap	clr.l	Sami_radr(a1)
+	move.l	d0,Sami_adr(a1)
+	move.l	Sami_rlong(a1),Sami_long(a1)
+	moveq	#0,d0
+	bra	.samloop
+
+******* VBL Entry
+MusInt	lea	MB(pc),a3
+	move.w	EnvOn-MB(a3),d0
+	beq	Music
+	lea	EnvBase-MB(a3),a0
+	lea	$a0(a6),a2
+	moveq	#0,d1
+	moveq	#3,d2
+	moveq	#0,d5
+MuInt1	btst	d1,d0
+	beq.s	MuIntN
+	move.l	EnvDelta(a0),d3
+	add.l	EnvVol(a0),d3
+	move.l	d3,EnvVol(a0)
+	swap	d3
+	move.w	d3,8(a2)
+MuInt2	subq.w	#1,EnvNb(a0)
+	bne.s	MuIntN
+	Rbsr	L_MuIntE
+MuIntN	lea	EnvLong(a0),a0
+	lea	$10(a2),a2
+	addq.w	#1,d1
+	dbra	d2,MuInt1
+	move.w	d0,EnvOn-MB(a3)
+	move.w	d5,DmaCon(a6)
+	lsl.w	#7,d5
+	move.w	d5,IntEna(a6)
+******* Make noise?
+	tst.w	Noise-MB(a3)
+	beq.s	Music
+	move.w	PNoise-MB(a3),d0
+	moveq	#7,d2
+	move.w	BSeed-MB(a3),d1
+	move.l	WaveBase-MB(a3),a0
+INoi1	add.w	6(a6),d1
+	mulu	#$3171,d1
+	lsr.l	#8,d1
+	move.w	d1,WaveDeb(a0,d0.w)
+	subq.w	#2,d0
+	bpl.s	INoi2
+	move.w	#LNoise-2,d0
+INoi2	dbra	d2,INoi1
+	move.w	d0,PNoise-MB(a3)
+	move.w	d1,BSeed-MB(a3)
+
+*******	Music routine
+Music:	move.l	MuBase-MB(a3),d0
+	beq	Tracker
+	movem.l	a4-a6,-(sp)
+	move.l	d0,a5
+	bsr	MuEvery
+* Here is a smart counter, which gives progressive results
+* from zero to 100(PAL), 120(NTSC)...
+	move.w	MuCpt(a5),d0
+	add.w	MuTempo(a5),d0
+	move.w	d0,MuCpt(a5)
+	move.w	TempoBase-MB(a3),d1
+	cmp.w	d1,d0
+	bcs	MuEff
+	sub.w	d1,MuCpt(a5)
+* Lets go for one step of music!
+	moveq	#0,d5
+	moveq	#0,d7
+	move.l	a5,a4
+
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus0
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus0
+	moveq	#0,d6
+	move.l	MuChip0-MB(a3),a6
+	bsr	MuStep
+Mus0
+	lea	MuVoix1(a5),a4
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus1
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus1
+	moveq	#1,d6
+	move.l	MuChip1-MB(a3),a6
+	bsr	MuStep
+Mus1
+	lea	MuVoix2(a5),a4
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus2
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus2
+	moveq	#2,d6
+	move.l	MuChip2-MB(a3),a6
+	bsr	MuStep
+Mus2
+	lea	MuVoix3(a5),a4
+	tst.b	VoiCpt+1(a4)
+	beq.s	Mus3
+	addq.w	#1,d5
+	subq.b	#1,VoiCpt+1(a4)
+	bne.s	Mus3
+	moveq	#3,d6
+	move.l	MuChip3-MB(a3),a6
+	bsr	MuStep
+Mus3
+	and.w	MuDMAsk-MB(a3),d7
+	move.w	d7,$DFF096
+	tst.w	d5
+	beq.s	MuFin
+	bne.s	MuEnd
+MuEff	bsr	DoEffects
+MuEnd	movem.l	(sp)+,a4-a6
+MuEnd1	rts
+* Finished?
+MuFin	subq.w	#1,MuNumber-MB(a3)
+	beq	MuFini
+* Restarts previous music
+	move.w	MuNumber-MB(a3),d0
+	subq.w	#1,d0
+	mulu	#MuLong,d0
+	lea	MuBuffer-MB(a3),a0
+	add.w	d0,a0
+	move.l	a0,MuBase-MB(a3)
+	move.w	MuDMAsk-MB(a3),MuReStart-MB(a3)
+	clr.w	MuStart(a0)
+	clr.w	MuStop(a0)
+	bra.s	MuEnd
+* Really finished!
+MuFini	clr.l	MuBase-MB(a3)
+	Rbsr	L_MOff
+	bra.s	MuEnd
+
+******* One step of music for one voice
+MuStep	lea	MuJumps(pc),a1
+	move.l	VoiAdr(a4),a2
+MuSt0	move.w	(a2)+,d0
+	bpl.s	DoNote
+	move.w	d0,d1
+	and.w	#$7F00,d0
+	lsr.w	#6,d0
+	jmp	0(a1,d0.w)
+
+******* Play a note
+DoNote	btst	#14,d0
+	bne.s	OldNote
+* Play normal note
+	and.w	#$0FFF,d0
+	move.l	BankInst-MB(a3),d1
+	move.l	VoiInst(a4),a0
+	add.l	(a0),d1
+	move.l	d1,(a6)
+	move.w	8(a0),$04(a6)
+	bset	d6,d7
+	bclr	d6,MuStop+1(a5)
+	bset	d6,MuStart+1(a5)
+	move.b	VoiVol+1(a4),0(a3,d6.w)
+	tst.b	VoiPTone(a4)
+	bne.s	MuSt1
+* No portamento
+	move.w	d0,VoiNote(a4)
+	move.w	d0,$06(a6)
+	bra.s	MuSt0
+* Start portamento
+MuSt1	clr.b	VoiPTone(a4)
+	move.w	d0,VoiPToTo(a4)
+	lea	MuPTone(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra.s	MuSt0
+* Play note compatible with first version
+OldNote	move.w	d0,VoiCpt(a4)
+	move.w	(a2)+,d0
+	beq.s	ONoteE
+	and.w	#$0FFF,d0
+	move.w	d0,VoiNote(a4)
+	move.w	d0,$06(a6)
+	move.l	BankInst-MB(a3),d0
+	move.l	VoiInst(a4),a0
+	add.l	(a0),d0
+	move.l	d0,(a6)
+	move.w	8(a0),$04(a6)
+	bset	d6,d7
+	bclr	d6,MuStop+1(a5)
+	bset	d6,MuStart+1(a5)
+	move.b	VoiVol+1(a4),0(a3,d6.w)
+ONoteE	move.l	a2,VoiAdr(a4)
+	rts
+
+******* Jump table to labels
+MuJumps	bra	EtEnd			* 00-> Fin pattern
+	bra	MuSt0			* 01-> Old Slide up
+	bra	MuSt0			* 02-> Old Slide down
+	bra	EtSVol			* 03-> Set volume
+	bra	EtStop			* 04-> Stop effet
+	bra	EtRep			* 05-> Repeat
+	bra	EtLOn			* 06-> Led On
+	bra	EtLOff			* 07-> Led Off
+	bra	EtTemp			* 08-> Set Tempo
+	bra	EtInst			* 09-> Set Instrument
+	bra	EtArp			* 10-> Arpeggiato
+	bra	EtPort			* 11-> Portamento
+	bra	EtVib			* 12-> Vibrato
+	bra	EtVSl			* 13-> Volume slide
+	bra	EtSlU			* 14-> Slide up
+	bra	EtSlD			* 15-> Slide down
+ 	bra	EtDel			* 16-> Delay
+	bra	EtJmp			* 17-> Position jump
+	bra	MuSt0			* 18-> Free space
+	bra	MuSt0			* 19-> Free space
+	bra	MuSt0			* 20-> Free space
+	bra	MuSt0			* 21-> Free space
+	bra	MuSt0			* 22-> Free space
+	bra	MuSt0			* 23-> Free space
+	bra	MuSt0			* 24-> Free space
+	bra	MuSt0			* 25-> Free space
+	bra	MuSt0			* 26-> Free space
+	bra	MuSt0			* 27-> Free space
+	bra	MuSt0			* 28-> Free space
+	bra	MuSt0			* 29-> Free space
+	bra	MuSt0			* 30-> Free space
+	bra	MuSt0			* 31-> Free space
+
+******* End of a pattern
+EtEnd	clr.w	VoiCpt(a4)
+	clr.w	VoiRep(a4)
+	clr.l	VoiDeb(a4)
+	lea	NoEffect(pc),a0
+	move.l	a0,VoiEffect(a4)
+	move.l	VoiPat(a4),a0
+RePat	moveq	#0,d0
+	move.w	(a0)+,d0
+	bmi.s	EtEnd1
+	move.l	a0,VoiPat(a4)
+	move.l	BankPat-MB(a3),a0
+	cmp.w	(a0),d0
+	bhi.s	EtEndX
+	lsl.w	#2,d0
+	add.w	d6,d0
+	lsl.w	#1,d0
+	move.w	2(a0,d0.w),d0
+	beq.s	EtEndX
+	lea	0(a0,d0.l),a2
+	bra	MuSt0
+EtEndX	rts
+EtEnd1	cmp.w	#-1,d0
+	beq.s	EtEndX
+ 	move.l	VoiDPat(a4),a0
+	bra.s	RePat
+******* Change instrument
+EtInst	and.w	#$00FF,d1
+	move.l	BankInst-MB(a3),a0
+	lsl.w	#5,d1
+	lea	2(a0,d1.w),a0
+	move.l	a0,VoiInst(a4)
+	move.w	12(a0),d0
+	cmp.w	#64,d0
+	bcs.s	EtInst1
+	moveq	#63,d0
+EtInst1	move.w	d0,VoiDVol(a4)
+	mulu	MuVolume-MB(a3),d0
+	lsr.w	#6,d0
+	move.w	d0,VoiVol(a4)
+	bra	MuSt0
+******* Set Volume
+EtSVol	and.w	#$00FF,d1
+	cmp.w	#64,d1
+	bcs.s	EtSVol1
+	moveq	#63,d1
+EtSVol1	move.w	d1,VoiDVol(a4)
+	mulu	MuVolume-MB(a3),d1
+	lsr.w	#6,d1
+	move.w	d1,VoiVol(a4)
+	bra	MuSt0
+******* Set Tempo
+EtTemp	and.w	#$00FF,d1
+	move.w	d1,MuTempo(a5)
+	bra	MuSt0
+******* Led On
+EtLOn	bclr	#1,$bfe001
+	bra	MuSt0
+******* Led Off
+EtLOff	bset	#1,$bfe001
+	bra	MuSt0
+******* Repeat
+EtRep	and.w	#$00FF,d1
+	bne.s	EtRep1
+	move.l	a2,VoiDeb(a4)
+	bra	MuSt0
+EtRep1	tst.w	VoiRep(a4)
+	bne.s	EtRep2
+	move.w	d1,VoiRep(a4)
+	bra	MuSt0
+EtRep2	subq.w	#1,VoiRep(a4)
+	beq	MuSt0
+	move.l	VoiDeb(a4),d0
+	beq	MuSt0
+	move.l	d0,a2
+	bra	MuSt0
+******* Arpeggio
+EtArp	move.b	d1,VoiValue+1(a4)
+	lea	MuArp(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Portamento
+EtPort	move.b	#1,VoiPTone(a4)
+	lea	MuPTone(pc),a0
+	bra.s	EtSetE
+******* Vibrato
+EtVib	lea	MuVib(pc),a0
+	bra.s	EtSetE
+******* Volume slide
+EtVSl	and.w	#$00FF,d1
+	move.w	d1,d0
+	lsr.w	#4,d0
+	tst.w	d0
+	bne.s	VsEnd
+	and.w	#$000F,d1
+	neg.w	d1
+	move.w	d1,d0
+VsEnd	move.w	d0,VoiValue(a4)
+	lea	MuVSl(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Slide up
+EtSlU	and.w	#$00FF,d1
+	neg.w	d1
+	lea	MuSlide(pc),a0
+	bra.s	EtSte
+******* Slide Down
+EtSlD	lea	MuSlide(pc),a0
+EtSetE	and.w	#$00FF,d1
+EtSte	move.w	d1,VoiValue(a4)
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Stop effect
+EtStop	lea	NoEffect(pc),a0
+	move.l	a0,VoiEffect(a4)
+	bra	MuSt0
+******* Jump to pattern
+EtJmp	and.w	#$00FF,d1
+	lsl.w	#1,d1
+	move.l	VoiDPat(a4),a0
+	add.w	d1,a0
+	move.l	a0,VoiPat(a4)
+	bra	EtEnd
+******* Delay
+EtDel	move.w	d1,VoiCpt(a4)
+	move.l	a2,VoiAdr(a4)
+	rts
+
+******* Effect routines
+
+* Performs all effects
+DoEffects
+	move.l	a5,a4
+	move.l	MuChip0-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	lea	MuVoix1(a5),a4
+	move.l	MuChip1-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	lea	MuVoix2(a5),a4
+	move.l	MuChip2-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	lea	MuVoix3(a5),a4
+	move.l	MuChip3-MB(a3),a6
+	move.l	VoiEffect(a4),a0
+	jsr	(a0)
+	move.w	VoiVol(a4),$08(a6)
+	rts
+
+* TONE SLIDE
+MuSlide	move.w	VoiValue(a4),d0
+	beq.s	NoMoreE
+	add.w	VoiNote(a4),d0
+	cmp.w	#$71,d0
+	bcc.s	MuSl1
+	moveq	#$71,d0
+	bsr	NoMoreE
+MuSl1	cmp.w	#$358,d0
+	bls.s	MuSl2
+	move.w	#$358,d0
+	bsr	NoMoreE
+MuSl2	move.w	d0,VoiNote(a4)
+	move.w	d0,$06(a6)
+	rts
+NoMoreE	lea	NoEffect(pc),a0
+	move.l	a0,VoiEffect(a4)
+	rts
+NoEffect
+	move.w	VoiNote(a4),$06(a6)
+	rts
+
+* ARPEGGIO
+MuArp	moveq	#0,d0
+	move.b	VoiValue+1(a4),d0
+	move.b	VoiValue(a4),d1
+	cmp.b	#3,d1
+	bcs.s	MuArp0
+	moveq	#2,d1
+MuArp0	subq.b	#1,d1
+	move.b	d1,VoiValue(a4)
+	beq.s	MuArp2
+	bpl.s	MuArp1
+	lsr.b	#4,d0
+	bra.s	MuArp3
+MuArp1	and.b	#$0f,d0
+	bra.s	MuArp3
+MuArp2	move.w	VoiNote(a4),d2
+	bra.s	MuArp4
+MuArp3	add.w	d0,d0
+	moveq	#0,d1
+	move.w	VoiNote(a4),d1
+	lea	Periods(pc),a0
+	moveq	#$24,d3
+MuArpL	move.w	(a0,d0.w),d2
+	cmp.w	(a0),d1
+	bge.s	MuArp4
+	addq.l	#2,a0
+	dbra	d3,MuArpL
+	rts
+MuArp4	move.w	d2,$06(a6)
+	rts
+
+* PORTAMENTO
+MuPTone	move.w	VoiValue(a4),d0
+	move.w	VoiNote(a4),d1
+	cmp.w	VoiPToTo(a4),d1
+	beq.s	MuPTo3
+	bcs.s	MuPTo1
+	sub.w	d0,d1
+	cmp.w	VoiPToTo(a4),d1
+	bhi.s	MuPTo4
+	bra.s	MuPTo2
+MuPTo1	add.w	d0,d1
+	cmp.w	VoiPToTo(a4),d1
+	bcs.s	MuPTo4
+MuPTo2	move.w	VoiPToTo(a4),d1
+MuPTo3	bsr	NoMoreE
+MuPTo4	move.w	d1,VoiNote(a4)
+	move.w	d1,$06(a6)
+	rts
+
+* VIBRATO
+MuVib	move.b	VoiVib(a4),d0
+	lea	Sinus(pc),a0
+	lsr.w	#2,d0
+	and.w	#$1f,d0
+	moveq	#0,d2
+	move.b	0(a0,d0.w),d2
+	move.b	VoiValue+1(a4),d0
+	and.w	#$0F,d0
+	mulu	d0,d2
+	lsr.w	#$06,d2
+	move.w	VoiNote(a4),d0
+	tst.b	VoiVib(a4)
+	bmi.s	MuVib1
+	add.w	d2,d0
+	bra.s	MuVib2
+MuVib1	sub.w	d2,d0
+MuVib2	move.w	d0,$06(a6)
+	move.b	VoiValue+1(a4),d0
+	lsr.w	#2,d0
+	and.w	#$3C,d0
+	add.b	d0,VoiVib(a4)
+	rts
+
+* VOLUME SLIDE
+MuVSl	move.w	VoiDVol(a4),d0
+	add.w	VoiValue(a4),d0
+	bpl.s	MuVSl1
+	clr.w	d0
+MuVSl1	cmp.w	#$40,d0
+	bcs.s	MuVSl2
+	moveq	#$3F,d0
+MuVSl2	move.w	d0,VoiDVol(a4)
+	mulu	MuVolume-MB(a3),d0
+	lsr.w	#6,d0
+	move.w	d0,VoiVol(a4)
+	rts
+
+*******	Routine called every VBL
+MuEvery
+
+* Second step of sample?
+	move.w	MuStop(a5),d0
+	beq	MuEvX
+	move.l	BankInst-MB(a3),d1
+	btst	#0,d0				* Voix 0
+	beq.s	MuEv0
+	move.l	MuChip0-MB(a3),a6
+	move.l	VoiInst0(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv0	btst	#1,d0				* Voix 1
+	beq.s	MuEv1
+	move.l	MuChip1-MB(a3),a6
+	move.l	VoiInst1(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv1	btst	#2,d0				* Voix 2
+	beq.s	MuEv2
+	move.l	MuChip2-MB(a3),a6
+	move.l	VoiInst2(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv2	btst	#3,d0				* Voix 3
+	beq.s	MuEv3
+	move.l	MuChip3-MB(a3),a6
+	move.l	VoiInst3(a5),a0
+	move.l	d1,d2
+	add.l	4(a0),d2
+	move.l	d2,(a6)
+	move.w	10(a0),$04(a6)
+MuEv3
+
+* Start a voice
+MuEvX	move.w	MuStart(a5),d1
+	move.w	d1,MuStop(a5)
+	clr.w	MuStart(a5)
+	or.w	d1,d0
+	and.w	MuDMAsk-MB(a3),d0
+	bset	#15,d0
+	move.w	d0,$DFF096
+
+* Restart voices?
+	move.w	MuReStart-MB(a3),d0
+	beq	MuRsX
+	moveq	#0,d3
+	btst	#0,d0				* Voix 0
+	beq.s	MuRs0
+	lea	$DFF0A0,a6
+	move.l	a6,MuChip0-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst0(a5)
+	beq.s	MuRs0
+	bset	#0,d3
+MuRs0	btst	#1,d0				* Voix 1
+	beq.s	MuRs1
+	lea	$DFF0B0,a6
+	move.l	a6,MuChip1-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst1(a5)
+	beq.s	MuRs1
+	bset	#1,d3
+MuRs1	btst	#2,d0				* Voix 2
+	beq.s	MuRs2
+	lea	$DFF0C0,a6
+	move.l	a6,MuChip2-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst2(a5)
+	beq.s	MuRs2
+	bset	#2,d3
+MuRs2	btst	#3,d0				* Voix 3
+	beq.s	MuRs3
+	lea	$DFF0D0,a6
+	move.l	a6,MuChip3-MB(a3)
+	move.w	#2,$04(a6)
+	tst.l	VoiInst3(a5)
+	beq.s	MuRs3
+	bset	#3,d3
+MuRs3	clr.w	MuReStart-MB(a3)
+	or.w	d0,MuDMAsk-MB(a3)
+	or.w	d3,MuStop(a5)
+MuRsX
+	rts
+
+
+***********************************************************
+*
+*	TRACKER INTERRUPT ROUTINES
+*
+***********************************************************
+Tracker	move.b	mt_on(pc),d0
+	beq.s	.Skip
+	movem.l	a3-a6,-(sp)
+; Poke les deuxiemes parties des samples
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	tst.w	mt_dmacon-MB(a3)
+	beq.s	.SkipD
+	lea	mt_voice1(pc),a1
+	lea	$dff000,a0
+	move.l	$a(a1),$a0(a0)
+	move.w	$e(a1),$a4(a0)
+	move.l	$a+$1c(a1),$b0(a0)
+	move.w	$e+$1c(a1),$b4(a0)
+	move.l	$a+$38(a1),$c0(a0)
+	move.w	$e+$38(a1),$c4(a0)
+	move.l	$a+$54(a1),$d0(a0)
+	move.w	$e+$54(a1),$d4(a0)
+; Appelle la musique
+; ~~~~~~~~~~~~~~~~~~
+.SkipD	bsr	mt_music
+	movem.l	(sp)+,a3-a6
+	tst.b	Track_Stop-MB(a3)
+	beq.s	.Skip
+; TrackStop...
+	clr.b	mt_on-MB(a3)
+	clr.w	mt_dmacon-MB(a3)
+	clr.b	Track_Stop-MB(a3)
+	moveq	#0,d0
+	lea	$dff000,a0
+	move.w	d0,$a8(a0)
+	move.w	d0,$b8(a0)
+	move.w	d0,$c8(a0)
+	move.w	d0,$d8(a0)
+	move.w	#$f,$dff096
+.Skip	rts
+
+mt_music:
+	move.l	mt_data(pc),a0
+	lea	mt_voice1(pc),a4
+	addq.b	#1,mt_counter-mt_voice1(a4)
+	move.b	mt_counter(pc),d0
+	cmp.b	mt_speed(pc),d0
+	blt	mt_nonew
+	moveq	#0,d0
+	move.b	d0,mt_counter-mt_voice1(a4)
+	move.w	d0,mt_dmacon-mt_voice1(a4)
+	move.l	mt_data(pc),a0
+	lea	$3b8(a0),a2
+	lea	$43c(a0),a0
+
+	moveq	#0,d1
+	move.b	mt_songpos(pc),d0
+	move.b	(a2,d0.w),d1
+	lsl.w	#8,d1
+	lsl.w	#2,d1
+	add.w	mt_pattpos(pc),d1
+
+	lea	$dff0a0,a5
+	lea	mt_samplestarts-4(pc),a1
+	lea	MuVu(pc),a6
+	move.l	a6,d7
+	lea	mt_playvoice(pc),a6
+	jsr	(a6)
+	addq.l	#4,d1
+	lea	$dff0b0,a5
+	lea	mt_voice2(pc),a4
+	addq.l	#1,d7
+	jsr	(a6)
+	addq.l	#4,d1
+	lea	$dff0c0,a5
+	lea	mt_voice3(pc),a4
+	addq.l	#1,d7
+	jsr	(a6)
+	addq.l	#4,d1
+	lea	$dff0d0,a5
+	lea	mt_voice4(pc),a4
+	addq.l	#1,d7
+	jsr	(a6)
+
+	move.w	mt_dmacon(pc),d0
+	beq.s	mt_nodma
+	or.w	#$8000,mt_dmacon-mt_voice4(a4)
+
+mt_nodma:
+	add.w	#$10,mt_pattpos-mt_voice4(a4)
+	cmp.w	#$400,mt_pattpos-mt_voice4(a4)
+	bne.s	mt_exit
+mt_next:clr.w	mt_pattpos-mt_voice4(a4)
+	clr.b	mt_break-mt_voice4(a4)
+	addq.b	#1,mt_songpos-mt_voice4(a4)
+	and.b	#$7f,mt_songpos-mt_voice4(a4)
+	move.b	-2(a2),d0
+	cmp.b	mt_songpos(pc),d0
+	bne.s	mt_exit
+	move.b	Track_Loop-mt_voice4(a4),d0
+	bne.s	.NoStop
+	move.b	#1,Track_Stop-mt_voice4(a4)
+.NoStop	move.b	-1(a2),mt_songpos-mt_voice4(a4)
+mt_exit:tst.b	mt_break-mt_voice4(a4)
+	bne.s	mt_next
+; Provoque l'actualisation du DMA
+	move.w	mt_dmacon(pc),d0
+	beq.s	.Skip
+	moveq	#4,d3
+.wai2	move.b	$dff006,d2
+.wai3	cmp.b	$dff006,d2
+	beq.s	.wai3
+	dbf	d3,.wai2
+	move.w	d0,$dff096
+.Skip	rts
+mt_nonew:
+	lea	$dff0a0,a5
+	lea	mt_com(pc),a6
+	jsr	(a6)
+	lea	mt_voice2(pc),a4
+	lea	$dff0b0,a5
+	jsr	(a6)
+	lea	mt_voice3(pc),a4
+	lea	$dff0c0,a5
+	jsr	(a6)
+	lea	mt_voice4(pc),a4
+	lea	$dff0d0,a5
+	jsr	(a6)
+	tst.b	mt_break-mt_voice4(a4)
+	bne	mt_next
+	rts
+
+mt_playvoice:
+	move.l	(a0,d1.l),(a4)
+	moveq	#0,d2
+	move.b	2(a4),d2
+	lsr.b	#4,d2
+	move.b	(a4),d0
+	and.b	#$f0,d0
+	or.b	d0,d2
+	beq	mt_oldinstr
+
+	asl.w	#2,d2
+	move.l	(a1,d2.l),4(a4)
+	move.l	mt_mulu(pc,d2.w),a3
+	move.w	(a3)+,8(a4)
+	move.w	(a3)+,$12(a4)
+	move.l	4(a4),d0
+	moveq	#0,d3
+	move.w	(a3)+,d3
+	beq	mt_noloop
+	asl.w	#1,d3
+	add.l	d3,d0
+	move.l	d0,$a(a4)
+	move.w	-2(a3),d0
+	add.w	(a3),d0
+	move.w	d0,8(a4)
+	bra	mt_hejaSverige
+
+mt_mulu:dcb.l	$20,0
+
+mt_noloop:
+	add.l	d3,d0
+	move.l	d0,$a(a4)
+mt_hejaSverige:
+	move.w	(a3),$e(a4)
+	move.w	$12(a4),8(a5)
+
+	move.l	a0,d0
+	move.l	d7,a0
+	move.b	$13(a4),(a0)
+	move.l	a0,d7
+	move.l	d0,a0
+
+mt_oldinstr:
+	move.w	(a4),d3
+	and.w	#$fff,d3
+	beq	mt_com2
+	tst.w	8(a4)
+	beq.s	mt_stopsound
+	move.b	2(a4),d0
+	and.b	#$f,d0
+	cmp.b	#5,d0
+	beq.s	mt_setport
+	cmp.b	#3,d0
+	beq.s	mt_setport
+
+	move.w	d3,$10(a4)
+	move.w	$1a(a4),$dff096
+	clr.b	$19(a4)
+
+	move.l	4(a4),(a5)
+	move.w	8(a4),4(a5)
+	move.w	$10(a4),6(a5)
+
+	move.w	$1a(a4),d0
+	or.w	d0,mt_dmacon-mt_playvoice(a6)
+	bra	mt_com2
+
+mt_stopsound:
+	move.w	$1a(a4),$dff096
+	bra	mt_com2
+
+mt_setport:
+	move.w	(a4),d2
+	and.w	#$fff,d2
+	move.w	d2,$16(a4)
+	move.w	$10(a4),d0
+	clr.b	$14(a4)
+	cmp.w	d0,d2
+	beq.s	mt_clrport
+	bge	mt_com2
+	move.b	#1,$14(a4)
+	bra	mt_com2
+mt_clrport:
+	clr.w	$16(a4)
+	rts
+
+mt_port:moveq	#0,d0
+	move.b	3(a4),d2
+	beq.s	mt_port2
+	move.b	d2,$15(a4)
+	move.b	d0,3(a4)
+mt_port2:
+	tst.w	$16(a4)
+	beq.s	mt_rts
+	move.b	$15(a4),d0
+	tst.b	$14(a4)
+	bne.s	mt_sub
+	add.w	d0,$10(a4)
+	move.w	$16(a4),d0
+	cmp.w	$10(a4),d0
+	bgt.s	mt_portok
+	move.w	$16(a4),$10(a4)
+	clr.w	$16(a4)
+mt_portok:
+	move.w	$10(a4),6(a5)
+mt_rts:	rts
+
+mt_sub:	sub.w	d0,$10(a4)
+	move.w	$16(a4),d0
+	cmp.w	$10(a4),d0
+	blt.s	mt_portok
+	move.w	$16(a4),$10(a4)
+	clr.w	$16(a4)
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_sin:
+	dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
+	dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
+
+mt_vib:	move.b	$3(a4),d0
+	beq.s	mt_vib2
+	move.b	d0,$18(a4)
+
+mt_vib2:move.b	$19(a4),d0
+	lsr.w	#2,d0
+	and.w	#$1f,d0
+	moveq	#0,d2
+	move.b	mt_sin(pc,d0.w),d2
+	move.b	$18(a4),d0
+	and.w	#$f,d0
+	mulu	d0,d2
+	lsr.w	#7,d2
+	move.w	$10(a4),d0
+	tst.b	$19(a4)
+	bmi.s	mt_vibsub
+	add.w	d2,d0
+	bra.s	mt_vib3
+mt_vibsub:
+	sub.w	d2,d0
+mt_vib3:move.w	d0,6(a5)
+	move.b	$18(a4),d0
+	lsr.w	#2,d0
+	and.w	#$3c,d0
+	add.b	d0,$19(a4)
+	rts
+
+mt_arplist:
+	dc.b 0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1
+
+mt_arp:	moveq	#0,d0
+	move.b	mt_counter(pc),d0
+	move.b	mt_arplist(pc,d0.w),d0
+	beq.s	mt_normper
+	cmp.b	#2,d0
+	beq.s	mt_arp2
+mt_arp1:move.b	3(a4),d0
+	lsr.w	#4,d0
+	bra.s	mt_arpdo
+mt_arp2:move.b	3(a4),d0
+	and.w	#$f,d0
+mt_arpdo:
+	asl.w	#1,d0
+	move.w	$10(a4),d1
+	lea	mt_periods(pc),a0
+mt_arp3:cmp.w	(a0)+,d1
+	blt.s	mt_arp3
+	move.w	-2(a0,d0.w),6(a5)
+	rts
+
+mt_normper:
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_com:	move.w	2(a4),d0
+	and.w	#$fff,d0
+	beq.s	mt_normper
+	move.b	2(a4),d0
+	and.b	#$f,d0
+	beq.s	mt_arp
+	cmp.b	#6,d0
+	beq.s	mt_volvib
+	cmp.b	#4,d0
+	beq	mt_vib
+	cmp.b	#5,d0
+	beq.s	mt_volport
+	cmp.b	#3,d0
+	beq	mt_port
+	cmp.b	#1,d0
+	beq.s	mt_portup
+	cmp.b	#2,d0
+	beq.s	mt_portdown
+	move.w	$10(a4),6(a5)
+	cmp.b	#$a,d0
+	beq.s	mt_volslide
+	rts
+
+mt_portup:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	sub.w	d0,$10(a4)
+	move.w	$10(a4),d0
+	cmp.w	#$71,d0
+	bpl.s	mt_portup2
+	move.w	#$71,$10(a4)
+mt_portup2:
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_portdown:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	add.w	d0,$10(a4)
+	move.w	$10(a4),d0
+	cmp.w	#$358,d0
+	bmi.s	mt_portdown2
+	move.w	#$358,$10(a4)
+mt_portdown2:
+	move.w	$10(a4),6(a5)
+	rts
+
+mt_volvib:
+	 bsr	mt_vib2
+	 bra.s	mt_volslide
+mt_volport:
+	 bsr	mt_port2
+
+mt_volslide:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	lsr.b	#4,d0
+	beq.s	mt_vol3
+	add.b	d0,$13(a4)
+	cmp.b	#$40,$13(a4)
+	bmi.s	mt_vol2
+	move.b	#$40,$13(a4)
+mt_vol2:move.w	$12(a4),8(a5)
+	rts
+
+mt_vol3:move.b	3(a4),d0
+	and.b	#$f,d0
+	sub.b	d0,$13(a4)
+	bpl.s	mt_vol4
+	clr.b	$13(a4)
+mt_vol4:move.w	$12(a4),8(a5)
+	rts
+
+mt_com2:move.b	2(a4),d0
+	and.b	#$f,d0
+	beq	mt_rts
+	cmp.b	#$e,d0
+	beq.s	mt_filter
+	cmp.b	#$d,d0
+	beq.s	mt_pattbreak
+	cmp.b	#$b,d0
+	beq.s	mt_songjmp
+	cmp.b	#$c,d0
+	beq.s	mt_setvol
+	cmp.b	#$f,d0
+	beq.s	mt_setspeed
+	rts
+
+mt_filter:
+	move.b	3(a4),d0
+	and.b	#1,d0
+	asl.b	#1,d0
+	and.b	#$fd,$bfe001
+	or.b	d0,$bfe001
+	rts
+
+mt_pattbreak:
+	move.b	#1,mt_break-mt_playvoice(a6)
+	rts
+
+mt_songjmp:
+	move.w	#$FFF,$dff180
+	move.b	#1,mt_break-mt_playvoice(a6)
+	move.b	3(a4),d0
+	subq.b	#1,d0
+	move.b	d0,mt_songpos-mt_playvoice(a6)
+	rts
+
+mt_setvol:
+	cmp.b	#$40,3(a4)
+	bls.s	mt_sv2
+	move.b	#$40,3(a4)
+mt_sv2:	moveq	#0,d0
+	move.b	3(a4),d0
+	move.b	d0,$13(a4)
+	move.w	d0,8(a5)
+	rts
+
+mt_setspeed:
+	moveq	#0,d0
+	move.b	3(a4),d0
+	cmp.b	#$1f,d0
+	bls.s	mt_sp2
+	moveq	#$1f,d0
+mt_sp2:	tst.w	d0
+	bne.s	mt_sp3
+	moveq	#1,d0
+mt_sp3:	move.b	d0,mt_speed-mt_playvoice(a6)
+	rts
+
+
+*********************************************************************
+*		MUSIC extension data zone
+
+; Branches for AMOSPro Editor (-4)
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		Rbra	L_GoSam
+MB:
+MuVu		dc.l	0		* Vu Meters
+MuBase		dc.l	0		* Curretn music address
+MusAdr		dc.l	0		* Branch table address
+MusClock	dc.l 	3546895		* Clock speed
+WaveBase	dc.l	0		* Wave tree
+Waves		dc.w 	0,0,0,0
+EnvOn:		dc.w 	0		* ADSR running?
+EnvBase:	ds.b	EnvLong*4	* ADSR table
+SamBank:	dc.w 	0		* Sample bank
+BSeed:		dc.w 	0		* Random seed
+Noise:		dc.w	0		* Noise on?
+PNoise:		dc.w	0		* Pointer to noise buffer
+TempoBase:	dc.w	0		* 100 (PAL) - 120 (NTSC)
+* 		Musique
+MusBank		dc.l 	0		* Music bank
+MusCheck	dc.l	0		* Check sum
+BankInst	dc.l	0		* Instruments
+BankSong	dc.l	0		* Songs
+BankPat		dc.l 	0		* Patterns
+MuNumber	dc.w	0		* Music priority
+MuVolume	dc.w	0		* Music volume
+MuDMAsk		dc.w	0		* Voice mask
+MuReStart	dc.w	0		* Restart the voice
+MuChip0		dc.l	0		* Circuits 0
+MuChip1		dc.l 	0		*	   1
+MuChip2		dc.l 	0		*          2
+MuChip3		dc.l 	0		*          3
+FoEnd		dc.w	$8000		* Fake empty pattern
+MuBuffer	ds.b	MuLong*3	* Music tables
+
+; +++ A big chunk of data follows, better switch off RBSR detection
+		Rdata
+
+*************** Tables for effects
+Sinus
+ dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
+ dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
+
+Periods
+ dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
+ dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
+ dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
+ dc.w $007f,$0078,$0071,$0000,$0000
+
+*************** Default enveloppes
+EnvDef:		dc.w 1,64,4,55,5,50,25,0,0,0
+EnvShoot	dc.w 1,64,10,0,0,0
+EnvBoom		dc.w 1,64,10,50,50,0,0,0
+EnvBell		dc.w 1,64,4,40,25,0,0,0
+
+*************** Bank headers
+BkMus:		dc.b "Music   "
+
+*************** Frequency / notes
+TFreq:	dc.w 000,256/2
+	dc.w 000,256/2
+	dc.w 256,128/2
+	dc.w 384,64/2
+	dc.w 448,32/2
+	dc.w 480,16/2
+	dc.w 496,8/2
+	dc.w 504,4/2
+	dc.w 504,4/2
+TNotes:	dc.w 00,00,00,33,35,37,39,41,44,46,49,52
+	dc.w 55,58,62,65,69,73,78,82,87,92,98,104
+	dc.w 110,117,123,131,139,147,156,165,175,185,196,208
+	dc.w 220,233,247,262,277,294,311,330,349,370,392,415
+	dc.w 440,466,494,523,554,587,622,659,698,740,784,830
+	dc.w 880,932,988,1046,1109,1175,1245,1319,1397,1480,1568,1661
+	dc.w 1760,1865,1986,2093,2217,2349,2489,2637,2794,2960,3136,3322
+	dc.w 3520,3729,3952,4186,4435,4699,4978,5274,5588,5920,6272,6645
+	dc.w 7040,7459,7902,8372
+
+*************** SAMPLE PLAYER INTERRUPT STRUCTURES
+Sami_lplay	equ	1024*4
+Sami_bit	equ	22
+Sami_dma	equ	24
+Sami_reg	equ	26
+Sami_adr	equ	28
+Sami_long	equ	32
+Sami_pos	equ	36
+Sami_rpos	equ	40
+Sami_radr	equ	44
+Sami_rlong	equ	48
+Sami_dvol	equ	52
+Sami_old	equ	54
+Sami_intl	equ	58
+
+Sami_int	ds.b	22				* Channel 0
+		dc.w	%0000000010000000	bit
+		dc.w	0			dma
+		dc.w	$a0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old
+
+		ds.b	22				* Channel 1
+		dc.w	%0000000100000000	bit
+		dc.w	1			dma
+		dc.w	$b0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old
+
+		ds.b	22				* Channel 2
+		dc.w	%0000001000000000	bit
+		dc.w	2			dma
+		dc.w	$c0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old
+
+		ds.b	22				* Channel 3
+		dc.w	%0000010000000000	bit
+		dc.w	3			dma
+		dc.w	$d0			reg
+		dc.l	0			adr
+		dc.l	0			long
+		dc.l	0			pos
+		dc.l	0			rpos
+		dc.l	0			radr
+		dc.l	0			rlong
+		dc.w	0			dvol
+		dc.l	0			old
+
+Sami_oldena	dc.w	0
+Sami_empty	dc.l	0
+Sami_bits	dc.w	0
+Sami_handad	dc.l	0
+Sami_flag	dc.w	0
+SamLoops	dc.w	0
+*************** NARRATOR
+Amaps:		dc.b	3,5,10,12
+TranBase	dc.l	0
+		even
+L_WriteIo	equ	88
+WriteIo		dc.l	0
+WritePort:	dc.l	0
+L_ReadIo	equ	92
+ReadIo		ds.b	L_ReadIo
+ReadPort	dc.l	0
+TranName	dc.b	"translator.library",0
+NarDevice	dc.b	"narrator.device",0
+		even
+
+; 	MED data zone
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Med_Bank	dc.w	7		Bank number 6= tracker
+Med_Base	dc.l	0
+Med_Adr		dc.l	0
+Med_On		dc.b	0
+Med_Midi	dc.b	0
+Med_Name	dc.b	"medplayer.library",0
+		even
+_MEDGetPlayer		equ	-30
+_MEDFreePlayer		equ	-36
+_MEDPlayModule		equ	-42
+_MEDContModule		equ	-48
+_MEDStopPlayer		equ	-54
+_MEDDimOffPlayer	equ	-60
+_MEDSetTempo		equ	-66
+_MEDLoadModule		equ	-72
+_MEDUnLoadModule	equ	-78
+_MEDGetCurrentModule	equ	-84
+_MEDResetMIDI		equ	-90
+_MEDSetModnum		equ	-96
+_MEDRelocModule		equ	-102
+
+*********************************************************************
+*	mt TRACKER data zone
+
+Track_Bank	dc.w	6		Bank number 6= tracker
+mt_on		dc.b	0
+Track_Loop	dc.b	0
+Track_Stop	dc.b	0
+		dc.b	0
+colour		dc.w	0
+
+mt_periods:
+	dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
+	dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
+	dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
+	dc.w $007f,$0078,$0071,$0000
+
+mt_speed:	dc.b	6
+mt_counter:	dc.b	0
+mt_pattpos:	dc.w	0
+mt_songpos:	dc.b	0
+mt_break:	dc.b	0
+mt_dmacon:	dc.w	0
+mt_samplestarts:dcb.l	$1f,0
+mt_voice1:	dcb.w	13,0
+		dc.w	1
+mt_voice2:	dcb.w	13,0
+		dc.w	2
+mt_voice3:	dcb.w	13,0
+		dc.w	4
+mt_voice4:	dcb.w	13,0
+		dc.w	8
+mt_data:	dc.l	0
+		dc.l	0
+
+
+; Now follow all the music routines. Some are just routines called by others,
+; some are instructions.
+; See how a adress the internal music datazone, by using a base register
+; (usually A3) and adding the offset of the data in the datazone...
+;
+; +++ How to get the parameters for the instruction?
+;
+; When an instruction or function is called, you get the parameters
+; pushed in A3, and the last parameter in D3. So if you only have
+; one parameter to your instruction, now need to acceed to (a3)
+;
+; Remember that you unpile them in REVERSE order than
+; the instruction syntax.
+;
+; As you have a entry point for each set of parameters, you know
+; how many are pushed...
+;	- INTEGER:	move.l	d3,d0
+;	or		move.l	(a3)+,d0
+;	- STRING:	move.l	d3,a0
+;	or		move.l	(a3)+,a0
+;	and		move.w	(a0)+,d0
+;		A0---> start of the string.
+;		D0---> length of the string
+;	- FLOAT:	move.l	d3,d0
+;	or		move.l	(a3)+,d0
+;			fast floatting point format.
+;	- DOUBLE:	move.l	d3,d0
+;			move.l	d4,d1
+;	or		movem.l	(a3)+,d3/d4
+;			ieee double precision format
+;
+; IMPORTANT POINT: you MUST unpile the EXACT number of parameters,
+; to restore A3 to its original level. If you do not, you will not
+; have a immediate error, and AMOS will certainely crash on next
+; UNTIL / WEND / ENDIF / NEXT etc...
+;
+; +++ So, your instruction must:
+;	- Unpile the EXACT number of parameters from A3 (if needed), and exit
+;	with A3 at the original level it was before collecting your parameters)
+;	- Preserve A4, A5, A6, D6 and D7. Warning D6/D7 was not preserved
+;	before V2.x of AMOSPro. Re-read your code, or use the "L_SaveRegs" and
+;	"L_LoadRegs" routines.
+;
+;	 You can use D0-D5/A0-A2 freely...
+;
+; You can jump to the error routine without thinking about A3 if an error
+; occurs in your routine (via a Rbra of course). BUT A4, A5, A6, D6 and D7
+; registers MUST be preserved before calling the error routines.
+;
+; You end must end by a RTS.
+;
+; +++ Functions, how to return the parameter?
+; To send a function`s parameter back to AMOS, you load it in D3 (and D4 for
+; double), and put its type in D2:
+;	moveq	#0,d2	for an integer
+;	moveq	#1,d2	for a float
+;	moveq	#2,d2	for a string
+;
+; +++ Special parameter-return macros
+; You can optimise a little your code for the compilation of functions. The
+; TYPE of the parameter returned by a function is not needed within the
+; compiled program, as the compiler have already created the good code
+; to handle the parameter. It is though necessary to have it for the
+; interpreter.
+; So I have created three macros: Ret_Int, Ret_String and Ret_Float.
+; These macros should be used at the end of your function.
+; Example, the Ret_Int macro:
+;
+;	moveq	#1,d3
+;	Ret_Int
+;
+; becomes under the interpreter:
+;	moveq	#1,d3
+;	moveq	#0,d2
+;	rts
+; and under the compiler, _ONLY_ is Ret_Int is the LAST instruction of the
+; routine:
+;	moveq	#1,d3
+;	rts
+; ... the linker removes the type from D2, as it is not needed...
+;
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	+++ One empty routine here!
+;	Not really needed, but just to show the macro.
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Stop sound routine
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MOff
+; - - - - - - - - - - - - -
+	lea	Circuits,a0
+	move.w	#%0000011110000000,IntEna(a0) 	* No more interrupts
+	move.w	MuDMAsk-MB(a3),d0
+	beq.s	MOf3
+	move.w	d0,DmaCon(a0)
+	moveq	#3,d1
+MOf1	btst	d1,d0
+	beq.s	MOf2
+	move.w	#2,$a4(a0)
+	clr.w	$a8(a0)
+MOf2	lea	$10(a0),a0
+	dbra	d1,MOf1
+MOf3	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		 					NARRATOR
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Open narrator
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	OpNar
+; - - - - - - - - - - - - -
+	movem.l	d2-d7/a2-a6,-(sp)
+	Dload	a3
+	move.l	$4.w,a6
+	move.l	TranBase-MB(a3),d0
+	bne	OpNarCheck
+
+; Opens communication port
+	clr.l	-(sp)
+	clr.l	-(sp)
+	Rjsr	L_CreatePort
+	addq.l	#8,sp
+	move.l	d0,WritePort-MB(a3)
+; Opens IO structure
+	move.l	#L_WriteIo,-(sp)
+	move.l	d0,-(sp)
+	Rjsr	L_CreateExtIO
+	addq.l	#8,sp
+	move.l	d0,WriteIo-MB(a3)
+	move.l	d0,a1
+	moveq	#0,d0
+	moveq	#0,d1
+	lea	NarDevice-MB(a3),a0
+	jsr	OpenDev(a6)
+	tst.l	d0
+	bne	OpNarE
+
+; Open READ structure
+	clr.l	-(sp)
+	clr.l	-(sp)
+	Rjsr	L_CreatePort
+	addq.l	#8,sp
+	move.l	d0,ReadPort-MB(a3)
+	move.l	WriteIo-MB(a3),a0
+	lea	ReadIo-MB(a3),a1
+	moveq	#L_WriteIo/2-1,d0
+.Loop	move.w	(a0)+,(a1)+
+	dbra	d0,.Loop
+	lea	ReadIo-MB(a3),a1
+	move.l	ReadPort-MB(a3),14(a1)
+
+; Open translator
+	Rbsr	L_NarInit
+	lea	TranName-MB(a3),a1
+	moveq	#0,d0
+	jsr	OpenLib(a6)
+	move.l	d0,TranBase-MB(a3)
+	beq	OpNarE
+* Restore Sami interrupts
+	move.l	DosBase(a5),a6
+	moveq	#50,d1
+	jsr	-198(a6)
+	clr.w	Sami_flag-MB(a3)
+	Rbsr	L_Sami_install
+* Ok!
+	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+;----->	Stops speech
+OpNarCheck
+	Rbsr	L_InTalkStop
+	movem.l	(sp)+,d2-d7/a2-a6
+	rts
+;-----> Can't open narrator
+OpNarE	movem.l	(sp)+,d2-d7/a2-a6
+NoNar	move.w	#7+178,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Init narrator (if here)!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	NarInit
+; - - - - - - - - - - - - -
+	move.l	WriteIo-MB(a3),d0
+	beq.s	.Skip
+	move.l	d0,a1
+	move.w	#150,48(a1)
+	move.w	#110,50(a1)
+	clr.w	52(a1)
+	clr.w	54(a1)
+	lea	Amaps-MB(a3),a0
+	move.l	a0,56(a1)
+	move.w	#4,60(a1)
+	move.w	#63,62(a1)
+	move.w	#22200,64(a1)
+.Skip	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAY a$[,multi]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSay2
+; - - - - - - - - - - - - -
+	Rbsr	L_OpNar
+	Rbra	L_Say
+; - - - - - - - - - - - - -
+	Lib_Par	InSay1
+; - - - - - - - - - - - - -
+	Rbsr	L_OpNar
+	move.l	d3,-(a3)
+	moveq	#0,d3
+	Rbra	L_Say
+; - - - - - - - - - - - - -
+	Lib_Def	Say
+; - - - - - - - - - - - - -
+	move.l	d3,d5
+	moveq	#%0000,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+	Dload	a0
+	clr.w	EnvOn-MB(a0)
+	clr.w	Noise-MB(a0)
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	move.w	(a0)+,d0
+* Phoneme?
+	cmp.b	#"~",(a0)
+	bne.s	ISayN
+	addq.l	#1,a0
+	move.l	Buffer(a5),a1
+	move.w	d0,d1
+	cmp.w	#1024,d1
+	bcc	ISayN
+	subq.w	#2,d1
+	bmi.s	ISayN
+ISayP	move.b	(a0)+,(a1)+
+	dbra	d1,ISayP
+	move.b	#"Q",(a1)+
+	move.b	#"#",(a1)+
+	move.b	#"U",(a1)+
+	clr.b	(a1)+
+	clr.b	(a1)+
+	addq.w	#4,d0
+	movem.l	a3/a6,-(sp)
+	Dload	a3
+	bra.s	ISayNn
+* Call TRANSLATOR
+ISayN	move.l	Buffer(a5),a1
+	move.l	a1,a2
+	move.l	#1024,d1
+	move.l	d1,d2
+	lsr.w	#2,d2
+	subq.w	#2,d2
+ISayN1	clr.l	(a2)+
+	dbra	d2,ISayN1
+	movem.l	a3/a6,-(sp)
+	Dload	a3
+	move.l	TranBase-MB(a3),a6
+	jsr	Translate(a6)
+	tst.w	d0
+	bne.s	SayX
+	move.l	#1024,d0
+ISayNn
+	Rbsr	L_Sami_remove
+	move.l	WriteIo-MB(a3),a1
+	move.w	#3,28(a1)
+	move.l	d0,36(a1)
+	move.l	Buffer(a5),40(a1)
+	move.l	ExecBase,a6
+	tst.w	d5
+	bne.s	ISayA
+; Mode non multitache
+	clr.b	66(a1)
+	jsr	DoIO(a6)
+	Rbsr	L_Sami_install
+SayX	movem.l	(sp)+,a3/a6
+	moveq	#%1111,d0
+	Rbsr	L_VOnOf
+	rts
+; Multitask mode
+ISayA	move.b	#1,66(a1)		Generer des mouths!
+	jsr	SendIO(a6)
+	movem.l	(sp)+,a3/a6
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SET TALK sex,mode,pitch,rate
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSetTalk
+; - - - - - - - - - - - - -
+	Rbsr	L_OpNar
+	move.l	#EntNul,d0
+	Dload	a1
+	move.l	WriteIo-MB(a1),a1
+	move.l	d3,d1
+	cmp.l	d0,d1
+	beq.s	IRd1
+	cmp.w	#40,d1
+	Rbcs	L_IFonc
+	cmp.w	#400,d1
+	Rbhi	L_IFonc
+	move.w	d1,48(a1)
+IRd1	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd2
+	cmp.w	#65,d1
+	Rbcs	L_IFonc
+	cmp.w	#320,d1
+	Rbhi	L_IFonc
+	move.w	d1,50(a1)
+IRd2	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd3
+	and.w	#$0001,d1
+	move.w	d1,52(a1)
+IRd3	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	IRd4
+	and.w	#$0001,d1
+	move.w	d1,54(a1)
+IRd4	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Narrator READ lips
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnMouthWidth
+; - - - - - - - - - - - - -
+	Dlea	ReadIo,a0
+	move.b	88(a0),d3
+	ext.w	d3
+	ext.l	d3
+	Ret_Int
+; - - - - - - - - - - - - -
+	Lib_Par FnMouthHeight
+; - - - - - - - - - - - - -
+	Dlea	ReadIo,a0
+	move.b	89(a0),d3
+	ext.w	d3
+	ext.l	d3
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					MUSIC INSTRUCTIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	BELL
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBell0
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	moveq	#70,d2
+	moveq	#%1111,d1
+	moveq	#1,d5
+	Dlea	EnvBell,a0
+	Rbra	L_GoBel
+; - - - - - - - - - - - - -
+	Lib_Par	InBell1
+; - - - - - - - - - - - - -
+	move.l	d3,d2
+	moveq	#0,d3
+	moveq	#%1111,d1
+	moveq	#1,d5
+	Dlea	EnvBell,a0
+	Rbra	L_GoBel
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	BOOM
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InBoom
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	moveq	#36,d2
+	moveq	#0,d5
+	Dlea	EnvBoom,a0
+	Rbra	L_Shout
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SHOOT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InShoot
+; - - - - - - - - - - - - -
+	moveq	#0,d3
+	moveq	#60,d2
+	moveq	#0,d5
+	Dlea	EnvShoot,a0
+	Rbra	L_Shout
+
+; - - - - - - - - - - - - -
+	Lib_Def	Shout
+; - - - - - - - - - - - - -
+	moveq	#%0000,d0		Gives a stereo effect!
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+	moveq	#%1000,d1
+Shot	movem.l	d0-d7/a0,-(sp)
+	Rbsr	L_GoShot
+	movem.l	(sp)+,d0-d7/a0
+	addq.w	#1,d2
+	lsr.w	#1,d1
+	bcc.s	Shot
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	VOLUME n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InVolume1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	moveq	#%1111,d1
+	Rbsr	L_Vol
+	Rbsr	L_MVol
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InVolume2
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	move.l	(a3)+,d1
+	Rbra	L_Vol
+
+; - - - - - - - - - - - - -
+	Lib_Def	Vol
+; - - - - - - - - - - - - -
+	cmp.l	#64,d0		Set voices volume level
+	Rbcc	L_IFonc
+	moveq	#0,d2
+	Dlea	EnvBase,a0
+	Dlea	Sami_int,a1
+Vol1	btst	d2,d1
+	beq.s	Vol2
+	move.w	d0,EnvDVol(a0)
+	tst.w	Sami_dvol(a1)
+	bmi.s	Vol2
+	move.w	d0,Sami_dvol(a1)
+Vol2	lea	EnvLong(a0),a0
+	lea	Sami_intl(a1),a1
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	Vol1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Stops Narrator if it was playing in multitask mode!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTalkStop
+; - - - - - - - - - - - - -
+	movem.l	a3/a6,-(sp)
+	Dload	a3
+	move.l	$4.w,a6
+	move.l	WriteIo-MB(a3),d0
+	beq.s	.Skip2
+	move.l	d0,a1
+	tst.b	66(a1)
+	beq.s	.Skip2
+	clr.b	66(a1)
+	jsr	_LVOCheckIO(a6)
+	tst.l	d0
+	bne.s	.Skip1
+	move.l	WriteIo-MB(a3),a1
+	jsr	_LVOAbortIO(a6)
+.Skip1	move.l	WriteIo-MB(a3),a1
+	jsr	_LVOWaitIO(a6)
+	Rbsr	L_Sami_install
+.Skip2	movem.l	(sp)+,a3/a6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PLAY [voice]note,length
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPlay2
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbmi	L_IFonc
+	move.l	(a3)+,d2
+	moveq	#%1111,d1
+	moveq	#-1,d5
+	sub.l	a0,a0
+	Rbra	L_GoBel
+; - - - - - - - - - - - - -
+	Lib_Par InPlay3
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbmi	L_IFonc
+	move.l	(a3)+,d2
+	move.l	(a3)+,d1
+	moveq	#-1,d5
+	sub.l	a0,a0
+	Rbra	L_GoBel
+; - - - - - - - - - - - - -
+	Lib_Def	GoBel
+; - - - - - - - - - - - - -
+	cmp.l	#96,d2			* <96?
+	Rbhi	L_IFonc
+	move.w	d1,d0			* Stop voices
+	eor.w	#$000F,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+	Rbra	L_GoShot
+; - - - - - - - - - - - - -
+	Lib_Def	GoShot
+; - - - - - - - - - - - - -
+	Rjsr	L_SaveRegs		+++ Saves d6/d7 registers
+	movem.l	a3,-(sp)
+	Dload	a3
+	move.l	a0,d6
+	lea	Circuits,a2
+	move.w	EnvOn-MB(a3),d7
+	clr.w	EnvOn-MB(a3)
+	move.w	#$8000,Sami_bits-MB(a3)
+* Explores all 4 voices
+	moveq	#0,d0
+	move.w	d1,d4
+	moveq	#3,d1
+IPl1	btst	d1,d4
+	beq.s	IPl2
+	Rbsr	L_VPlay
+IPl2	dbra	d1,IPl1
+******* Start!
+IPlX	Rbsr	L_DmaWait
+	bset	#15,d0
+	move.w	d0,DmaCon(a2)
+	move.w	Sami_bits-MB(a3),IntEna(a2)
+	move.w	d7,EnvOn-MB(a3)
+	move.l	(sp)+,a3
+	Rjsr	L_LoadRegs		+++ Reloads d6/d7 registers
+* Wait?
+	tst.l	d3
+	beq.s	IPlX1
+	Rjsr	L_WaitRout
+IPlX1	rts
+
+; - - - - - - - - - - - - -
+	Lib_Def	VPlay
+; - - - - - - - - - - - - -
+	movem.l	d0-d6/a0-a2,-(sp)	Play voice D1: wave or sample
+
+	moveq	#0,d3
+	bset	d1,d3
+	move.w	d3,DmaCon(a2)		* Stop voice
+	lsl.w	#7,d3
+	move.w	d3,IntEna(a2)		* Stop interrupts
+	bclr	d1,Noise-MB(a3)		* No more random
+
+	tst.w	d2
+	beq	VSil
+	addq.w	#3,d2
+	move.w	d5,d0			* Forced wave? (bell)
+	bpl.s	VPl0
+	move.w	d1,d0			* Wave or Sample?
+	lsl.w	#1,d0
+	lea	Waves-MB(a3),a0
+	move.w	0(a0,d0.w),d0
+	bmi	VPl2
+
+* Play WAVE!
+VPl0	beq	VPl4
+	lea	$a0(a2),a2
+	move.w	d1,d3
+	lsl.w	#4,d3
+	add.w	d3,a2			* a2-> I/O
+	movem.l	d1-d3/a2,-(sp)
+	move.w	d0,d1
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	move.l	a2,a1
+	movem.l	(sp)+,d1-d3/a2
+	pea	WaveEnv(a1)
+	lea	WaveDeb(a1),a1
+	subq.w	#1,d2
+	move.w	d2,d3
+	ext.l	d3
+	divu	#12,d3
+	lsl.w	#2,d3
+	lea	TFreq-MB(a3),a0
+	add.w	d3,a0
+	add.w	(a0)+,a1
+	move.l	a1,(a2)			* AudAd
+	move.w	(a0)+,d3
+	move.w	d3,4(a2)		* AudLen
+	lsl.w	#1,d3
+	lea	TNotes-MB(a3),a1
+	lsl.w	#1,d2
+	mulu	0(a1,d2.w),d3
+	move.l	MusClock-MB(a3),d2
+	divu	d3,d2
+	cmp.w	#124,d2
+	bcc.s	VPl1
+	moveq	#124,d2
+VPl1:	move.w	d2,6(a2)		* AudPer
+* Start enveloppe
+	move.l	(sp)+,d5
+	tst.l	d6			* Fixed enveloppe? (bell / shoot)
+	bne.s	VPl1a
+	move.l	d5,d6
+VPl1a	lea	EnvBase-MB(a3),a0
+	move.w	d1,d0
+	mulu	#EnvLong,d0
+	add.w	d0,a0
+	move.l	d6,EnvAd(a0)
+	move.l	d6,EnvDeb(a0)
+	clr.w	EnvVol(a0)
+	Rbsr	L_MuIntE
+	movem.l	(sp)+,a0-a2/d0-d6
+	bset	d1,d0
+	bset	d1,d7
+	rts
+******* Silence!
+VSil	moveq	#0,d0
+	bset	d1,d0
+	move.w	d0,DmaCon(a2)
+	movem.l	(sp)+,a0-a2/d0-d6
+	bclr	d1,d7
+	rts
+******* Play SAMPLE
+VPl2	move.l	a2,-(sp)
+	move.w	d2,-(sp)
+	neg.w	d0
+	Rbsr	L_GetSam
+	move.w	(sp)+,d0
+	move.l	(sp)+,a2
+	moveq	#0,d6
+VPl3	lea	TNotes-MB(a3),a0
+	lsl.w	#1,d0
+	mulu	-2(a0,d0.w),d3
+	divu	#440,d3
+	and.l	#$0000FFFF,d3
+	Rbra	L_SPl0
+******* Play NOISE
+VPl4	bset	d1,Noise-MB(a3)
+	move.w	d2,d0
+	move.l	WaveBase-MB(a3),a1
+	lea	WaveEnv(a1),a0
+	lea	WaveDeb(a1),a1
+	move.l	#LNoise,d2
+	move.l	#2000,d3
+	tst.l	d6
+	bne.s	VPl3
+	move.l	a0,d6
+	bset	#0,d6
+	bra.s	VPl3
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	PLAY OFF (voice)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InPlayOff0
+; - - - - - - - - - - - - -
+	moveq	#%1111,d0
+	Rbra	L_PlOf
+; - - - - - - - - - - - - -
+	Lib_Par InPlayOff1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbra	L_PlOf
+; - - - - - - - - - - - - -
+	Lib_Def	PlOf
+; - - - - - - - - - - - - -
+	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_EnvOff
+	move.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	STOP DMA / INTERUPTS
+;	D0= value
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	StopDma
+; - - - - - - - - - - - - -
+	move.w	d0,-(sp)
+	eor.w	#%1111,d0
+	move.w	d0,Circuits+DmaCon
+	lsl.w	#7,d0
+	move.w	d0,Circuits+IntEna
+	move.w	(sp)+,d0
+	Rbra	L_DmaWait
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Wait for the DMA
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	DmaWait
+; - - - - - - - - - - - - -
+	movem.l	d2-d3,-(sp)
+
+.wait	moveq	#4,d3
+.wai2	move.b	$dff006,d2
+.wai3	cmp.b	$dff006,d2
+	beq.s	.wai3
+	dbf	d3,.wai2
+	moveq	#8,d2
+.wai4	dbf	d2,.wai4
+
+	movem.l	(sp)+,d2-d3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 					SAMPLE INSTRUCTIONS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAM BANK n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSamBank
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbls	L_IFonc
+	cmp.l	#16,d0
+	Rbhi	L_IFonc
+	Dlea	SamBank,a0
+	move.w	d0,(a0)
+	rts
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAMLOOP ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSamLoopOn1
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	move.l	d3,d1
+	Rbra	L_SL0
+; - - - - - - - - - - - - -
+	Lib_Par InSamLoopOn0
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	moveq	#%1111,d1
+	Rbra	L_SL0
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAMLOOP OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par InSamLoopOff1
+; - - - - - - - - - - - - -
+	moveq	#-1,d0
+	move.l	d3,d1
+	Rbra	L_SL0
+; - - - - - - - - - - - - -
+	Lib_Par InSamLoopOff0
+; - - - - - - - - - - - - -
+	moveq	#-1,d0
+	moveq	#%1111,d1
+	Rbra	L_SL0
+; - - - - - - - - - - - - -
+	Lib_Def	SL0
+; - - - - - - - - - - - - -
+	moveq	#0,d2
+	Dlea	Sami_int,a0
+	Dlea	SamLoops+1,a1
+Sl1	btst	d2,d1
+	beq.s	Sl2
+	bclr	d2,(a1)
+	move.l	d0,Sami_rpos(a0)
+	bne.s	Sl2
+	bset	d2,(a1)
+Sl2	lea	Sami_intl(a0),a0
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	Sl1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	NOISE TO voice
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InNoiseTo
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	moveq	#0,d0
+	Rbra	L_ISmt
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAMPLE n TO voice
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSampleTo
+; - - - - - - - - - - - - -
+	move.l	(a3),d0
+	move.l	d3,-(a3)
+	Rbsr	L_GetSam
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	neg.w	d0
+	Rbra	L_ISmt
+; - - - - - - - - - - - - -
+	Lib_Def	ISmt
+; - - - - - - - - - - - - -
+	Dlea	Waves,a0
+	moveq	#0,d2
+ISmt1	btst	d2,d1
+	beq.s	ISmt2
+	move.w	d0,(a0)
+ISmt2	addq.l	#2,a0
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	ISmt1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAM PLAY [voice],number,[frequency]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSamPlay1
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSam
+	moveq	#%1111,d1
+	Rbra	L_GoSam
+; - - - - - - - - - - - - -
+	Lib_Par	InSamPlay2
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	Rbsr	L_GetSam
+	move.l	(a3)+,d1
+	Rbra	L_GoSam
+; - - - - - - - - - - - - -
+	Lib_Par InSamPlay3
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	4(a3),d0
+	Rbsr	L_GetSam
+	move.l	(a3)+,d3
+	cmp.l	#500,d3
+	Rble	L_IFonc
+	addq.l	#4,a3
+	move.l	(a3)+,d1
+	Rbra	L_GoSam
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAM RAW voice,ad,length,freq
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSamRaw
+; - - - - - - - - - - - - -
+	cmp.l	#500,d3
+	Rble	L_IFonc
+	move.l	(a3)+,d2
+	cmp.l	#256,d2
+	Rble	L_IFonc
+	move.l	(a3)+,a1
+	move.l	(a3)+,d1
+	Rbra	L_GoSam
+
+; - - - - - - - - - - - - -
+	Lib_Def	GoSam
+; - - - - - - - - - - - - -
+	move.l	a3,-(sp)
+	Dload	a3
+	Rjsr	L_SaveRegs
+
+	move.w	d1,d0
+	eor.w	#$000F,d0
+	Rbsr	L_StopDma
+	Rbsr	L_VOnOf
+
+	lea	Circuits,a2
+	move.w	EnvOn-MB(a3),d7
+	clr.w	EnvOn-MB(a3)
+	move.w	#$8000,Sami_bits-MB(a3)
+* Do all voices
+	moveq	#0,d0
+	move.w	d1,d4
+	moveq	#3,d1
+ISp2b	btst	d1,d4
+	beq.s	ISp2c
+	Rbsr	L_SPlay
+ISp2c	dbra	d1,ISp2b
+* Start!
+ISpX
+	Rbsr	L_DmaWait
+	bset	#15,d0
+	move.w	d0,DmaCon(a2)
+	move.w	Sami_bits-MB(a3),IntEna(a2)
+	move.w	d7,EnvOn-MB(a3)
+
+	Rjsr	L_LoadRegs
+	move.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Find a sample -> A0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	GetSam
+; - - - - - - - - - - - - -
+	move.l	d0,-(sp)
+	Dload	a0
+	move.w	SamBank-MB(a0),d0
+	ext.l	d0
+	Rbeq	L_IFonc
+	move.l	d1,-(sp)
+	Rjsr	L_Bnk.GetAdr
+	Rbeq	L_BNSam
+	move.l	(sp)+,d1
+	move.l	-8(a0),d0
+	cmp.l	#"Samp",d0
+	Rbne	L_BNSam
+* Get sample characteristics1
+	move.l	(sp)+,d0
+	Rbls	L_IFonc
+	cmp.w	(a0),d0
+	Rbhi	L_SNDef
+	lsl.w	#2,d0
+	move.l	2-4(a0,d0.w),d0
+	Rbeq	L_SNDef
+	add.l	d0,a0
+	moveq	#0,d3
+	move.w	8(a0),d3
+	move.l	10(a0),d2
+	lea	14(a0),a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	SLOAD file,adress,length
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSload
+; - - - - - - - - - - - - -
+	tst.l	d3			Length
+	Rbmi	L_IFonc
+	move.l	(a3)+,d0		Adress (or bank)
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,d2
+	move.l	(a3)+,d0		File
+	cmp.l	#10,d0
+	Rbcc	L_IFonc
+	subq.l	#1,d0
+	Rbmi	L_IFonc
+	mulu	#TFiche,d0
+	lea	Fichiers(a5),a2
+	add.w	d0,a2
+	move.l	FhA(a2),d1
+	Rbeq	L_IFonc
+	btst	#2,FhT(a2)
+	Rbne	L_IFonc
+* Load the data
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-42(a6)			DosRead
+	move.l	(sp)+,a6
+	tst.l	d0
+	Rbmi	L_IDError
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAMPLAY routine
+;	A1= Sample
+;	D3= Freq
+;	D2= Long
+;	D1= Voice
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	SPlay
+; - - - - - - - - - - - - -
+	movem.l	d0-d6/a0-a2,-(sp)
+	bclr	d1,Noise-MB(a3)
+	moveq	#0,d6
+	Rbra	L_SPl0
+
+; - - - - - - - - - - - - -
+	Lib_Def	SPl0
+; - - - - - - - - - - - - -
+	movem.l	a4,-(sp)
+
+	moveq	#0,d0
+	bset	d1,d0			* Stop voice
+	move.w	d0,DmaCon(a2)
+
+	lea	Sami_int-MB(a3),a4
+	move.w	#Sami_intl,d0
+	mulu	d1,d0
+	add.w	d0,a4			* a4-> Sami interrupts
+	move.w	Sami_bit(a4),IntEna(a2)	* No more interrupts
+
+	lea	EnvBase-MB(a3),a0	* Enveloppe
+	move.w	d1,d0
+	mulu	#EnvLong,d0
+	add.w	d0,a0
+
+	lea	$a0(a2),a2
+	move.w	d1,d4
+	lsl.w	#4,d4
+	add.w	d4,a2			* a2-> I/O
+
+	move.w	#1,$4(a2)
+	move.l	a1,Sami_adr(a4)			* Adresse
+	move.l	d2,Sami_long(a4)		* Longueur
+	clr.l	Sami_pos(a4)			* Position
+	clr.l	Sami_rpos(a4)			* Sam loop on?
+	btst	d1,SamLoops+1-MB(a3)
+	bne.s	.skipa
+	subq.l	#1,Sami_rpos(a4)
+.skipa	clr.l	Sami_radr(a4)			* Pas de double buffer
+
+	move.l	d6,d5
+	move.l	MusClock-MB(a3),d6
+	bsr	Div32
+	cmp.l	#124,d0
+	bcc.s	.skip0
+	moveq	#124,d0
+.skip0	move.w	d0,6(a2)			* AudPer
+
+	bclr	d1,d7
+	move.w	EnvDVol(a0),Sami_dvol(a4)	* Volume, sauf si
+	tst.l	d5				  une enveloppe est
+	beq.s	.skip1				  definie
+	clr.l	Sami_rpos(a4)
+	bclr	#0,d5
+	bne.s	.skipb
+	subq.l	#1,Sami_rpos(a4)
+.skipb	bset	d1,d7
+	move.w	#-1,Sami_dvol(a4)
+	move.l	d5,EnvAd(a0)
+	move.l	d5,EnvDeb(a0)
+	clr.w	EnvVol(a0)
+	Rbsr	L_MuIntE
+
+.skip1	move.w	Sami_bit(a4),d0
+	or.w	d0,Sami_bits-MB(a3)
+
+* Va demarrer le son...
+	lea	Circuits,a0
+	move.l	a4,a1
+	move.l	Sami_handad-MB(a3),a2
+	jsr	(a2)
+* Fini!
+	move.l	(sp)+,a4
+	movem.l	(sp)+,d0-d6/a0-a2
+	bset	d1,d0
+	rts
+
+* Division 32 bits
+* D6/D3 -> D0
+Div32	movem.l	d1/d3/d4/d5/d6,-(sp)
+	moveq 	#31,d5
+        moveq 	#-1,d4
+        clr.l 	d1
+dv2:    lsl.l 	#1,d6
+        roxl.l 	#1,d1
+        cmp.l 	d3,d1
+        bcs.s 	dv1
+        sub.l 	d3,d1
+        lsr 	#1,d4
+dv1:    roxl.l 	#1,d0
+        dbra 	d5,dv2
+	movem.l	(sp)+,d1/d3/d4/d5/d6
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	WAVE n TO n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InWave
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	4(a3),d1
+	Rbmi	L_IFonc
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	Rbra	L_ISmt
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SET WAVE n,a$
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSetWave
+; - - - - - - - - - - - - -
+	move.l	d3,a1
+	move.w	(a1)+,d1
+	cmp.w	#256,d1
+	Rbcs	L_STSho
+	move.l	(a3)+,d1
+	Rbls	L_IFonc
+	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_NeWave
+	Rbne	L_IOOMem
+	move.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	DEL WAVE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InDelWave
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	Rbmi	L_IFonc
+	Rbeq	L_W0Res
+	cmp.l	#1,d1
+	Rbeq	L_W0Res
+	move.l	a3,-(sp)
+	Dload	a3
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	Rbsr	L_WaveDel
+	Rbsr	L_NoWave
+	move.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SET ENVEL n,n TO n,v
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSetEnvel
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	cmp.l	#64,d4
+	Rbcc	L_IFonc
+	move.l	(a3)+,d3
+	move.l	(a3)+,d5
+	Rbmi	L_IFonc
+	cmp.l	#7,d5
+	Rbcc	L_IFonc
+	move.l	(a3)+,d1
+	Rbmi	L_IFonc
+	tst.w	d5
+	bne.s	ISe1
+	tst.w	d3
+	Rbls	L_IFonc
+ISe1	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_WaveAd
+	Rbeq	L_WNDef
+	lsl.w	#2,d5
+	lea	WaveEnv(a2,d5.w),a2
+	move.w	d3,(a2)+
+	move.w	d4,(a2)+
+	clr.w	(a2)
+	move.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	RESET WAVES
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	RazWave
+; - - - - - - - - - - - - -
+	movem.l	a2/d0-d2,-(sp)
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff		* Stop all voices
+	lea	WaveBase-MB(a3),a2	* Erase all instruments
+	move.l	a2,d2
+RzW1	move.l	d2,a2
+	move.l	(a2),d0
+	beq.s	RzW2
+	move.l	d0,a2
+	Rbsr	L_WaveDel
+	bra.s	RzW1
+RzW2	Rbsr	L_NoWave
+	movem.l	(sp)+,a2/d0-d2
+	rts
+; - - - - - - - - - - - - -
+	Lib_Def	NoWave
+; - - - - - - - - - - - - -
+	Dlea	Waves,a0		Back to default waves
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	NEW WAVES
+;	A1= Array address
+;	D1= # to create
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	NeWave
+; - - - - - - - - - - - - -
+	movem.l	d1-d7/a1-a2,-(sp)
+NeW0	Rbsr	L_WaveAd
+	beq.s	NeW1
+	moveq	#%1111,d0
+	Rbsr	L_EnvOff
+	Rbsr	L_WaveDel
+	bra.s	NeW0
+NeW1	move.l	#WaveLong,d0
+	Rjsr	L_RamChip
+	beq.s	NeWE
+	move.l	d0,(a2)
+	move.l	d0,a2
+	move.w	d1,WaveNb(a2)
+* Copy default ADSR
+	move.l	a1,-(sp)
+	lea	EnvDef-MB(a3),a0
+	lea	WaveEnv(a2),a1
+NeW3	move.l	(a0)+,(a1)+
+	bne.s	NeW3
+	move.l	(sp)+,a1
+* Full wave: 256 bytes
+	lea	WaveDeb(a2),a2
+	move.l	a2,a0
+	moveq	#256/4-1,d0
+NeW2	move.l	(a1)+,(a0)+
+	dbra	d0,NeW2
+* 1/2
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#127,d0
+	bsr	NewRout
+* 1/4
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#63,d0
+	bsr	NewRout
+* 1/8
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#31,d0
+	bsr	NewRout
+* 1/16
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#15,d0
+	bsr	NewRout
+* 1/32
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#7,d0
+	bsr	NewRout
+* 1/64
+	move.l	a2,a1
+	move.l	a0,a2
+	moveq	#3,d0
+	bsr	NewRout
+******* No error
+	moveq	#0,d0
+NeWx	movem.l	(sp)+,d1-d7/a1-a2
+	rts
+******* Out of mem
+NeWE	moveq	#-1,d0
+	bra.s	NeWx
+******* Divide a sample by 2
+NewRout	move.b	(a1)+,d1
+	ext.w	d1
+	move.b	(a1)+,d2
+	ext.w	d2
+	add.w	d2,d1
+	asr.w	#1,d1
+	move.b	d1,(a0)+
+	dbra	d0,NewRout
+	rts
+
+; - - - - - - - - - - - - -
+	Lib_Def	WaveAd
+; - - - - - - - - - - - - -
+	moveq	#0,d2			Get a wave address
+	Dlea	WaveBase,a2
+	move.l	(a2),d0
+	beq.s	WAd2
+WAd1	move.l	a2,d2
+	move.l	d0,a2
+	cmp.w	WaveNb(a2),d1
+	beq.s	WAd3
+	move.l	(a2),d0
+	bne.s	WAd1
+WAd2	moveq	#0,d0
+	rts
+WAd3	moveq	#-1,d0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Delete a wave (a2)-d2
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	WaveDel
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d2,-(sp)
+	move.w	WaveNb(a2),d1
+	move.l	d2,a0
+	move.l	(a2),(a0)
+	move.l	#WaveLong,d0
+	move.l	a2,a1
+	SyCall	MemFree
+	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	STOP SAMPLES INTERRUPTS
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Sami_stop
+; - - - - - - - - - - - - -
+	move.w	#%0000011110000000,d0
+	move.w	d0,Circuits+IntEna
+	move.w	d0,Circuits+IntReq
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	STOP ENVELOPPE D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	EnvOff
+; - - - - - - - - - - - - -
+	movem.l	d0-d3/a0,-(sp)
+	move.w	EnvOn-MB(a3),d1
+	clr.w	EnvOn-MB(a3)
+	moveq	#0,d3
+	lea	Circuits,a0
+	moveq	#0,d2
+EOf1	btst	d2,d0
+	beq.s	EOf2
+	bclr	d2,d1
+	beq.s	EOf2
+	bset	d2,d3
+	move.w	#2,$a4(a0)
+	clr.w	$a8(a0)
+EOf2	lea	$10(a0),a0
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	EOf1
+	move.w	d1,EnvOn-MB(a3)
+	move.w	d3,MuReStart-MB(a3)
+	movem.l	(sp)+,d0-d3/a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Next enveloppe
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MuIntE
+; - - - - - - - - - - - - -
+	move.l	EnvAd(a0),a1
+MuIe0	move.w	(a1)+,d3
+	beq.s	MuIntS
+	bmi.s	MuIe1
+	move.w	d3,EnvNb(a0)
+	move.w	EnvDVol(a0),d4
+	mulu	(a1)+,d4
+	lsr.w	#6,d4
+	sub.w	EnvVol(a0),d4
+	ext.l	d4
+	lsl.w	#8,d4
+	divs	d3,d4
+	ext.l	d4
+	lsl.l	#8,d4
+	move.l	d4,EnvDelta(a0)
+	clr.w	EnvVol+2(a0)
+	move.l	a1,EnvAd(a0)
+	rts
+* Loop
+MuIe1	move.l	EnvDeb(a0),a1
+	bra.s	MuIe0
+* End of a voice
+MuIntS	bset	d1,d5
+	bclr	d1,d0
+	bclr	d1,Noise-MB(a3)
+* Restarts the music
+	bset	d1,MuReStart+1-MB(a3)
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Music initialisation
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MuInit
+; - - - - - - - - - - - - -
+	clr.l	MuBase-MB(a3)
+	clr.w	MuNumber-MB(a3)
+	move.l	#$DFF0A0,MuChip0-MB(a3)
+	move.l	#$DFF0B0,MuChip1-MB(a3)
+	move.l	#$DFF0C0,MuChip2-MB(a3)
+	move.l	#$DFF0D0,MuChip3-MB(a3)
+	move.w	#$000F,MuDMAsk-MB(a3)
+	clr.w	MuReStart-MB(a3)
+	Rbra	L_MOff
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MUSIC OFF-> Stops all musics
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMusicOff
+; - - - - - - - - - - - - -
+	movem.l	a0-a3/d0-d1,-(sp)
+	Dload	a3
+	clr.l	MuBase-MB(a3)
+	clr.w	MuNumber-MB(a3)
+	Rbsr	L_MOff
+	movem.l	(sp)+,a0-a3/d0-d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MUSIC STOP-> Stops current music
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMusicStop
+; - - - - - - - - - - - - -
+	movem.l	a0-a3/d0-d1,-(sp)
+	Dload	a3
+	move.l	MuBase-MB(a3),d0
+	beq.s	IStp
+	clr.w	MuBase-MB(a3)
+	move.l	d0,a0
+	clr.w	VoiCpt0(a0)
+	clr.w	VoiCpt1(a0)
+	clr.w	VoiCpt2(a0)
+	clr.w	VoiCpt3(a0)
+	move.l	d0,MuBase-MB(a3)
+IStp	movem.l	(sp)+,a0-a3/d0-d1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MUSIC VOLUME
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMvolume
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	cmp.l	#64,d0
+	Rbcs	L_MVol
+	Rbcc	L_IFonc
+; - - - - - - - - - - - - -
+	Lib_Def	MVol
+; - - - - - - - - - - - - -
+	and.w	#63,d0
+	Dload	a0
+	move.w	d0,MuVolume-MB(a0)
+	move.l	MuBase-MB(a0),d4
+	beq.s	MVol3
+	clr.l	MuBase-MB(a0)
+	lea	MuBuffer-MB(a0),a1
+	move.w	MuNumber-MB(a0),d1
+MVol0	move.l	a1,a2
+	moveq	#3,d2
+MVol1	move.w	VoiDVol(a2),d3
+	mulu	d0,d3
+	lsr.w	#6,d3
+	move.w	d3,VoiVol(a2)
+	lea	VoiLong(a2),a2
+	dbra	d2,MVol1
+MVol2	lea	MuLong(a1),a1
+	subq.w	#1,d1
+	bne.s	MVol0
+	move.l	d4,MuBase-MB(a0)
+MVol3	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	VOICE ON/OFF Voices
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InVoice
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	and.w	#$000F,d0
+	move.l	a3,-(sp)
+	Dload	a3
+	Rbsr	L_VOnOf
+	movem.l	(sp)+,a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Start / Stop voices D0
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	VOnOf
+; - - - - - - - - - - - - -
+	movem.l	d0-d5/a0-a3,-(sp)
+	move.w	d0,d4
+	Dload	a3
+	move.l	MuBase-MB(a3),d1
+	beq.s	VooX
+	clr.l	MuBase-MB(a3)
+	move.l	d1,a1
+	move.l	d1,a2
+	move.w	MuDMAsk-MB(a3),d1
+	move.w	d0,MuDMAsk-MB(a3)
+	move.l	WaveBase-MB(a3),a0
+	lea	WaveDeb(a0),a0
+	move.l	a0,d3
+	lea	MuChip0-MB(a3),a0
+	moveq	#0,d2
+	moveq	#0,d4
+* Exploration loop
+Voo1	btst	d2,d0
+	bne.s	Voo2
+* Stop a voice!
+	btst	d2,d1			* Already stopped?
+	beq.s	VooN
+	bset	d2,d4
+	move.l	d3,(a0)
+	bclr	d2,MuStart+1(a2)
+	bclr	d2,MuStop+1(a2)
+	bra.s	VooN
+* Re start a voice
+Voo2	btst	d2,d1			* Already on?
+	bne.s	VooN
+	bset	d2,MuReStart+1-MB(a3)
+* Next
+VooN	addq.l	#4,a0
+	lea	VoiLong(a1),a1
+	addq.w	#1,d2
+	cmp.w	#4,d2
+	bcs.s	Voo1
+* Stop them!
+	move.l	a2,MuBase-MB(a3)
+	move.w	d4,Circuits+DmaCon
+VooX	movem.l	(sp)+,d0-d5/a0-a3
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MUSIC n
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMusic
+; - - - - - - - - - - - - -
+	tst.l	d3
+	Rbls	L_IFonc
+* Points to the SONG
+	move.l	a3,-(sp)
+	Dload	a3
+	tst.l	MusBank-MB(a3)
+	Rbeq	L_MnRes
+	move.l	BankSong-MB(a3),a1
+	cmp.w	(a1),d3
+	Rbhi	L_MNDef
+	lsl.w	#2,d3
+	add.l	2-4(a1,d3.w),a1
+* Still room?
+	cmp.w	#3,MuNumber-MB(a3)
+	bcc	IMusX
+	clr.l	MuBase-MB(a3)
+* Buffer address
+	move.w	MuNumber-MB(a3),d0
+	move.w	d0,d1
+	addq.w	#1,MuNumber-MB(a3)
+	mulu	#MuLong,d0
+	lea	MuBuffer-MB(a3),a2
+	add.w	d0,a2
+* Init datas
+	moveq	#(VoiLong*4)/2-1,d0
+	move.l	a2,a0
+IMus1	clr.w	(a0)+
+	dbra	d0,IMus1
+	clr.w	MuStop(a2)
+	clr.w	MuStart(a2)
+* Init parameters
+	move.l	a2,d2
+	move.w	TempoBase-MB(a3),MuCpt(a2)
+	move.w	#17,MuTempo(a2)			*XXX
+	moveq	#0,d0
+IMus2	move.w	#1,VoiCpt(a2)
+	lea	FoEnd-MB(a3),a0
+	move.l	a0,VoiAdr(a2)
+	move.l	a1,a0
+	add.w	0(a0,d0.w),a0
+	move.l	a0,VoiPat(a2)
+	move.l	a0,VoiDPat(a2)
+	lea	NoEffect2(pc),a0
+	move.l	a0,VoiEffect(a2)
+	lea	VoiLong(a2),a2
+	addq.w	#2,d0
+	cmp.w	#8,d0
+	bne.s	IMus2
+* No more samples
+	move.w	#%0000011110000000,Circuits+IntEna
+* Starts music
+	move.l	d2,MuBase-MB(a3)
+IMusX	move.l	(sp)+,a3
+	rts
+NoEffect2
+	move.w	VoiNote(a4),$06(a6)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Tempo T
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTempo
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	cmp.l	#100,d0
+	Rbhi	L_IFonc
+	Dload	a0
+	move.l	MuBase-MB(a0),d1
+	beq.s	ITemp
+	move.l	d1,a0
+	move.w	d0,MuTempo(a0)
+ITemp	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		=VU METRE(v)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par FnVuMeter
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	cmp.l	#4,d0
+	Rbcc	L_IFonc
+	Dload	a0
+	moveq	#0,d3
+	move.b	0(a0,d0.w),d3
+	clr.b	0(a0,d0.w)
+	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=MU BASE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnMusicBase
+; - - - - - - - - - - - - -
+	Dload	a0
+	move.l	a0,d3
+	Ret_Int
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	LED INSTRUCTION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InLedOn
+; - - - - - - - - - - - - -
+	bclr	#1,$BFE001
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par	InLedOf
+; - - - - - - - - - - - - -
+	bset	#1,$BFE001
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	INSTALL THE SAMPLE HANDLER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Sami_install
+; - - - - - - - - - - - - -
+	tst.w	Sami_flag-MB(a3)
+	bne.s	.skip
+	movem.l	d0-d2/a0-a2/a6,-(sp)
+	move.l	$4.w,a6
+; Save state of interrupts
+	move.w	Circuits+IntEnaR,d0
+	and.w	#%0000011110000000,d0
+	move.w	d0,Sami_oldena-MB(a3)
+	Rbsr	L_Sami_stop
+; Install 4 voices
+	lea	Sami_int-MB(a3),a1
+	moveq	#7,d0
+.loop	bsr.s	Sami_start
+	lea	Sami_intl(a1),a1
+	addq.w	#1,d0
+	cmp.w	#11,d0
+	bne.s	.loop
+	subq.w	#1,Sami_flag-MB(a3)
+	movem.l	(sp)+,d0-d2/a0-a2/a6
+.skip	rts
+Sami_start
+	move.l	a1,is_data(a1)
+	move.l	Sami_handad-MB(a3),is_code(a1)
+	move.b	#2,ln_type(a1)
+	move.b	#0,ln_pri(a1)
+	move.l	$4.w,a6
+	movem.l	d0/a1,-(sp)
+	jsr	-162(a6)		SetIntVector
+	move.l	d0,d1
+	movem.l	(sp)+,d0/a1
+	move.l	d1,Sami_old(a1)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	REMOVE THE SAMPLE HANDLER
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Sami_remove
+; - - - - - - - - - - - - -
+	tst.w	Sami_flag-MB(a3)
+	beq.s	.skip
+	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Rbsr	L_Sami_stop
+	move.l	$4.w,a6
+	moveq	#7,d2
+	lea	Sami_int-MB(a3),a2
+.loop	move.l	Sami_old(a2),a1
+	move.l	d2,d0
+	jsr	-162(a6)		SetIntVector
+	lea	Sami_intl(a2),a2
+	addq.w	#1,d2
+	cmp.w	#11,d2
+	bne.s	.loop
+	lea	Circuits,a0
+	move.w	#$000F,DmaCon(a0)
+	move.w	Sami_oldena-MB(a3),IntEna(a0)
+	clr.w	Sami_flag-MB(a3)
+	movem.l	(sp)+,a0-a2/a6/d0-d2
+.skip	rts
+
+
+***********************************************************
+*	Normal error messages
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	NORMAL ERROR MESSAGES
+; 	This routines performs jump to the normal AMOS error messages:
+; 	Load in D0 the number of the error, and do a Rjmp to L_Error.
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IOOMem
+; - - - - - - - - - - - - -
+	moveq	#24,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	IFonc
+; - - - - - - - - - - - - -
+	moveq	#23,d0
+	Rjmp	L_Error
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Customized error messages
+;	This list of routines just load in D0 the number of the error message in
+; 	the extension error-list, and call the error handling routine.
+; 	178 is the base of the music errors in the main error list...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	WNDef
+; - - - - - - - - - - - - -
+	move.w	#0+178,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	SNDef
+; - - - - - - - - - - - - -
+	move.w	#1+178,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	BNSam
+; - - - - - - - - - - - - -
+	move.w	#2+178,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	STSho
+; - - - - - - - - - - - - -
+	move.w	#3+178,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	W0Res
+; - - - - - - - - - - - - -
+	move.w	#4+178,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	MnRes
+; - - - - - - - - - - - - -
+	move.w	#5+178,d0
+	Rjmp	L_Error
+; - - - - - - - - - - - - -
+	Lib_Def	MNDef
+; - - - - - - - - - - - - -
+	move.w	#6+178,d0
+	Rjmp	L_Error
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	=SAM SWAPPED(V)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	FnSamSwapped
+; - - - - - - - - - - - - -
+	move.l	d3,d0
+	moveq	#0,d3
+	cmp.l	#3,d0
+	Rbhi	L_IFonc
+	move.w	Circuits+IntEnaR,d1
+	lsr.w	#7,d1
+	btst	d0,d1
+	beq.s	.stop
+	Dlea	Sami_int,a0
+	mulu	#Sami_intl,d0
+	tst.l	Sami_radr(a0,d0.l)
+	bne.s	.out
+	move.l	Sami_pos(a0,d0.l),d1
+	cmp.l	#Sami_lplay,d1
+	beq.s	.out
+	moveq	#-1,d3
+	bra.s	.out
+.stop	moveq	#1,d3
+.out	Ret_Int
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAM SWAP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSamSwap
+; - - - - - - - - - - - - -
+	move.l	d3,d4
+	Rbmi	L_IFonc
+	move.l	(a3)+,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,d3
+	move.l	(a3)+,d2
+	moveq	#0,d1
+	Dlea	Sami_int,a0
+.loop	btst	d1,d2
+	beq.s	.skip
+	move.l	d3,Sami_radr(a0)
+	move.l	d4,Sami_rlong(a0)
+.skip	lea	Sami_intl(a0),a0
+	addq.w	#1,d1
+	cmp.w	#4,d1
+	bne.s	.loop
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SAM STOP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSamStop0
+; - - - - - - - - - - - - -
+	moveq	#%1111,d3
+	Rbra	L_InSamStop1
+; - - - - - - - - - - - - -
+	Lib_Par InSamStop1
+; - - - - - - - - - - - - -
+	move.l	d3,d1
+	and.l	#$F,d1
+	move.w	d1,Circuits+DmaCon
+	lsl.w	#7,d1
+	move.w	d1,Circuits+IntEna
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	TRACK LOAD "nom",banque
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTrackLoad
+; - - - - - - - - - - - - -
+	cmp.l	#$10000,d3
+	Rbge	L_IFonc
+	Dload	a0
+	cmp.w	Track_Bank-MB(a0),d3
+	bne.s	.kkk
+	tst.b	mt_on-MB(a0)
+	beq.s	.kkk
+	Rbsr	L_InTrackStop
+.kkk	move.w	d3,Track_Bank-MB(a0)	* Numero de la banque
+	move.l	d3,-(sp)
+; Get name to load
+; ~~~~~~~~~~~~~~~~
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0
+	cmp.w	#128,d0
+	Rbcc	L_IFonc
+	move.l	Name1(a5),a1
+.loop	move.b	(a0)+,(a1)+
+	dbra	d0,.loop
+	clr.b	(a1)
+	Rjsr	L_Dsk.PathIt
+; Open the file
+; ~~~~~~~~~~~~~
+	move.l	Name1(a5),d1
+	move.l	#1005,d2
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-30(a6)			DosOpen, fichier sons
+	move.l	(sp)+,a6
+	move.l	d0,d5
+	Rbeq	L_IDError
+	move.l	d5,d1			Trouve la taille
+	bsr	.taille
+	move.l	d0,d4
+; Reserve the bank
+; ~~~~~~~~~~~~~~~~
+	move.l	(sp)+,d0				Numero
+	moveq	#(1<<Bnk_BitData+1<<Bnk_BitChip),d1	Flag
+	moveq	#32,d2
+	add.l	d4,d2
+	lea	BkTrack(pc),a0				Nom
+	Rjsr	L_Bnk.Reserve
+	beq	.mem
+; Load the music
+; ~~~~~~~~~~~~~~
+	move.l	d5,d1
+	move.l	a0,d2
+	move.l	d4,d3
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-42(a6)			Read
+	move.l	(sp)+,a6
+	move.l	d0,d2
+	move.l	d5,d1
+	bsr	.clo
+	cmp.l	d2,d3
+	Rbne	L_IFonc
+	rts
+* Close the file
+.clo	movem.l	a6/a0/a1,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-36(a6)			Close
+	movem.l	(sp)+,a6/a0/a1
+	rts
+* Out of memory
+.mem	move.l	d5,d1
+	bsr.s	.clo
+	Rbra	L_IOOMem
+* Find the size of the file
+.taille	move.l	a6,-(sp)
+	move.l	d1,-(sp)
+	moveq	#0,d2
+	moveq	#1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,d1
+	move.l	d0,d2
+	moveq	#-1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,a6
+	rts
+BkTrack	dc.b	"Tracker "
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	TRACK CHECK, arrete la musique si pas banque...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	TrackCheck
+; - - - - - - - - - - - - -
+	movem.l	a0-a1,-(sp)
+	Dload	a1
+	tst.b	mt_on-MB(a1)
+	beq.s	.skip
+	move.l	mt_data-MB(a1),a0
+	cmp.l	#"ker ",-(a0)
+	bne.s	.stop
+	cmp.l	#"Trac",-(a0)
+	beq.s	.skip
+.stop	Rbsr	L_InTrackStop
+.skip	movem.l	(sp)+,a0-a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	TRACK STOP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTrackStop
+; - - - - - - - - - - - - -
+	move.l	a0,-(sp)
+	Dload	a0
+	tst.b	mt_on-MB(a0)
+	beq.s	.Skip
+	clr.b	mt_on-MB(a0)
+	clr.w	mt_dmacon-MB(a0)
+	clr.b	Track_Stop-MB(a0)
+	moveq	#0,d0
+	lea	$dff000,a0
+	move.w	d0,$a8(a0)
+	move.w	d0,$b8(a0)
+	move.w	d0,$c8(a0)
+	move.w	d0,$d8(a0)
+	move.w	#$f,$dff096
+.Skip	move.l	(sp)+,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	TRACK LOOP ON/OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTrackLoopOn
+; - - - - - - - - - - - - -
+	Dload	a0
+	move.b	#1,Track_Loop-MB(a0)
+	rts
+; - - - - - - - - - - - - -
+	Lib_Par InTrackLoopOff
+; - - - - - - - - - - - - -
+	Dload	a0
+	clr.b	Track_Loop-MB(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	TRACK PLAY [Bank],[Pattern]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTrackPlay0
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	Rbra	L_InTrackPlay1
+; - - - - - - - - - - - - -
+	Lib_Par	InTrackPlay1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InTrackPlay2
+; - - - - - - - - - - - - -
+	Lib_Par	InTrackPlay2
+; - - - - - - - - - - - - -
+	cmp.l	#EntNul,(a3)		D3=pattern, not supported in this version
+	bne.s	.skip
+	Dload	a0
+	moveq	#0,d0
+	move.w	Track_Bank-MB(a0),d0
+	move.l	d0,(a3)
+.skip
+	move.l	(a3)+,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,a2
+	cmp.l	#"Trac",-8(a2)
+	bne	.nobank
+	cmp.l	#"ker ",-4(a2)
+	bne	.nobank
+
+	Rbsr	L_InSamStop0
+	Rbsr	L_InTrackStop
+
+; Init music...
+; ~~~~~~~~~~~~~
+	move.l	a3,-(sp)
+	Dload	a3
+	move.l	a2,a0
+	move.l	a0,mt_data-MB(a3)
+	lea	mt_mulu-MB(a3),a1
+	moveq	#$0c,d0
+	add.l	a0,d0
+	moveq	#$1f,d1
+	moveq	#$1e,d3
+.lop4	move.l	d0,(a1)+
+	add.l	d3,d0
+	dbf	d1,.lop4
+
+	lea	$3b8(a0),a1
+	moveq	#$7f,d0
+	moveq	#0,d1
+	moveq	#0,d2
+.lop2	move.b	(a1)+,d1
+	cmp.b	d2,d1
+	ble.s	.lop
+	move.l	d1,d2
+.lop	dbf	d0,.lop2
+	addq.w	#1,d2
+
+	asl.l	#8,d2
+	asl.l	#2,d2
+	lea	4(a1,d2.l),a2
+	lea	mt_samplestarts-MB(a3),a1
+	add.w	#$2a,a0
+	moveq	#$1e,d0
+.lop3	clr.l	(a2)
+	move.l	a2,(a1)+
+	moveq	#0,d1
+	move.b	d1,2(a0)
+	move.w	(a0),d1
+	asl.l	#1,d1
+	add.l	d1,a2
+	add.l	d3,a0
+	dbf	d0,.lop3
+
+	move.b	#6,mt_speed-mt_samplestarts-$7c(a1)
+	moveq	#0,d0
+	lea	$dff000,a0
+	move.w	d0,$a8(a0)
+	move.w	d0,$b8(a0)
+	move.w	d0,$c8(a0)
+	move.w	d0,$d8(a0)
+	move.b	d0,mt_songpos-mt_samplestarts-$7c(a1)
+	move.b	d0,mt_counter-mt_samplestarts-$7c(a1)
+	move.w	d0,mt_pattpos-mt_samplestarts-$7c(a1)
+
+; Start the music
+; ~~~~~~~~~~~~~~~
+	move.b	#1,mt_on-MB(a3)
+	move.l	(sp)+,a3
+	rts
+; Not a tracker module
+.nobank	move.w	#8+178,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Disk error
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	IDError
+; - - - - - - - - - - - - -
+	move.w	#DEBase+15,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Ask narrator's lips...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMouthRead
+; - - - - - - - - - - - - -
+	Dload	a2
+	tst.l	TranBase-MB(a2)
+	beq.s	.Err
+	move.l	WriteIo-MB(a2),d0
+	beq.s	.Err
+	move.l	d0,a0
+	tst.b	66(a0)
+	beq.s	.Err
+	lea	ReadIo-MB(a2),a1
+	move.w	#2,28(a1)			CMD_READ
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	DoIO(a6)
+	move.l	(sp)+,a6
+	lea	ReadIo-MB(a2),a1
+	cmp.b	#-8,$1f(a1)			ND_NOWRITE
+	beq.s	.Err
+	rts
+.Err	lea	ReadIo-MB(a2),a0
+	move.w	#-1,88(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	TALK MISC volume,freq
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InTalkMisc
+; - - - - - - - - - - - - -
+	Rbsr	L_OpNar
+	move.l	#EntNul,d0
+	Dload	a1
+	move.l	WriteIo-MB(a1),a1
+	move.l	d3,d1
+	cmp.l	d0,d1
+	beq.s	.IRd0
+	cmp.w	#5000,d1
+	Rbcs	L_IFonc
+	cmp.w	#25000,d1
+	Rbhi	L_IFonc
+	move.w	d1,64(a1)
+.IRd0
+	move.l	(a3)+,d1
+	cmp.l	d0,d1
+	beq.s	.IRd1
+	tst.l	d1
+	Rbmi	L_IFonc
+	cmp.w	#64,d1
+	Rbhi	L_IFonc
+	move.w	d1,62(a1)
+.IRd1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SSAVE 	File, adress to end
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InSsave
+; - - - - - - - - - - - - -
+	move.l	(a3)+,d2		Start Adress (d3=start ad)
+	sub.l	d2,d3
+	Rble	L_IFonc
+	move.l	(a3)+,d0		File
+	cmp.l	#10,d0
+	Rbcc	L_IFonc
+	subq.l	#1,d0
+	Rbmi	L_IFonc
+	mulu	#TFiche,d0
+	lea	Fichiers(a5),a2
+	add.w	d0,a2
+	move.l	FhA(a2),d1
+	Rbeq	L_IFonc
+	btst	#2,FhT(a2)
+	Rbne	L_IFonc
+* Save the data
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	_LVOWrite(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	Rbmi	L_IDError
+	rts
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED LOAD "name",bank
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMedLoad
+; - - - - - - - - - - - - -
+	Rbsr	L_MedOpen
+	cmp.l	#$10000,d3
+	Rbge	L_IFonc
+	Dload	a2
+	cmp.w	Med_Bank-MB(a2),d3
+	bne.s	.k
+	Rbsr	L_InMedStop
+.k	move.w	d3,Med_Bank-MB(a2)	* Numero de la banque
+; Get name to load
+; ~~~~~~~~~~~~~~~~
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	subq.w	#1,d0
+	cmp.w	#128,d0
+	Rbcc	L_IFonc
+	move.l	Name1(a5),a1
+.loop	move.b	(a0)+,(a1)+
+	dbra	d0,.loop
+	clr.b	(a1)
+	Rjsr	L_Dsk.PathIt
+; Find its size
+; ~~~~~~~~~~~~~
+	move.l	Name1(a5),d1
+	move.l	#1005,d2
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-30(a6)			DosOpen,
+	move.l	(sp)+,a6
+	move.l	d0,d5
+	Rbeq	L_IDError
+	move.l	d5,d1			Trouve la taille
+	bsr	.taille
+	move.l	d0,d4
+; Reserve the bank
+; ~~~~~~~~~~~~~~~~
+	move.w	Med_Bank-MB(a2),d0			Numero de la banque
+	ext.l	d0
+	moveq	#(1<<Bnk_BitChip),d1			Flag CHIP
+	move.l	d4,d2
+	addq.l	#8,d2					Taille
+	lea	.BkMed(pc),a0				Nom
+	Rjsr	L_Bnk.Reserve
+	beq	.mem
+	move.l	a0,a2
+; Load the music
+; ~~~~~~~~~~~~~~
+	move.l	d5,d1
+	move.l	a2,d2
+	move.l	d4,d3
+	move.l	a6,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-42(a6)			Read
+	move.l	(sp)+,a6
+	move.l	d0,d2
+	move.l	d5,d1
+	bsr	.clo
+	cmp.l	d2,d3
+	Rbne	L_IFonc
+	cmp.l	#"MMD0",(a2)
+	beq.s	.ok
+	cmp.l	#"MMD1",(a2)
+	bne.s	.med
+; Relocate the module
+; ~~~~~~~~~~~~~~~~~~~
+.ok	move.l	a6,-(sp)
+	Dload	a0
+	move.l	Med_Base-MB(a0),a6
+	move.l	a2,a0
+	jsr	_MEDRelocModule(a6)
+	move.l	(sp)+,a6
+	rts
+* Close the file
+.clo	movem.l	a6/a0/a1,-(sp)
+	move.l	DosBase(a5),a6
+	jsr	-36(a6)			Close
+	movem.l	(sp)+,a6/a0/a1
+	rts
+* Out of memory
+.mem	move.l	d5,d1
+	beq.s	.xx
+	bsr.s	.clo
+.xx	Rbra	L_IOOMem
+* Not a MED file
+.med	Dlea	Med_Bank,a0
+	move.w	(a0),d0
+	ext.l	d0
+	Rjsr	L_Bnk.Eff
+	move.w	#189,d0
+	Rjmp	L_Error
+* Find the size of the file
+.taille	move.l	a6,-(sp)
+	move.l	d1,-(sp)
+	moveq	#0,d2
+	moveq	#1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,d1
+	move.l	d0,d2
+	moveq	#-1,d3
+	move.l	DosBase(a5),a6
+	jsr	-66(a6)			DosSeek
+	move.l	(sp)+,a6
+	rts
+.BkMed	dc.b	"Med     "
+	even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED CHECK, Stop the music if no more bank
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MedCheck
+; - - - - - - - - - - - - -
+	movem.l	d0/a0-a1,-(sp)
+	Dload	a1
+	tst.b	Med_On-MB(a1)
+	beq.s	.skip
+	move.l	Med_Adr-MB(a1),d0
+	beq.s	.skip
+	move.l	d0,a0
+	cmp.l	#"Med ",-(a0)
+	bne.s	.stop
+	cmp.l	#"    ",-(a0)
+	beq.s	.skip
+.stop	Rbsr	L_InMedStop
+	clr.l	Med_Adr-MB(a1)
+.skip	movem.l	(sp)+,d0/a0-a1
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED STOP
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMedStop
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Dload	a0
+	tst.b	Med_On-MB(a0)
+	beq.s	.NoMed
+	clr.b	Med_On-MB(a0)
+	move.l	Med_Base-MB(a0),a6
+	jsr	_MEDStopPlayer(a6)
+.NoMed	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED PLAY [Bank],[Song]
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMedPlay0
+; - - - - - - - - - - - - -
+	move.l	#EntNul,d3
+	Rbra	L_InMedPlay1
+; - - - - - - - - - - - - -
+	Lib_Par	InMedPlay1
+; - - - - - - - - - - - - -
+	move.l	d3,-(a3)
+	move.l	#EntNul,d3
+	Rbra	L_InMedPlay2
+; - - - - - - - - - - - - -
+	Lib_Par	InMedPlay2
+; - - - - - - - - - - - - -
+	Dload	a2
+	Rbsr	L_MedOpen		Open library if needed
+	Rbsr	L_InMedStop		Stop an eventual music
+	clr.l	Med_Adr-MB(a2)
+; Verify the bank
+; ~~~~~~~~~~~~~~~
+	move.l	d3,d5
+	cmp.l	#EntNul,(a3)
+	bne.s	.skip
+	moveq	#0,d0
+	move.w	Med_Bank-MB(a2),d0
+	move.l	d0,(a3)
+.skip	move.l	(a3)+,d0
+	Rjsr	L_Bnk.OrAdr
+	move.l	d0,a2
+	cmp.l	#"Med ",-8(a2)
+	bne	.nobank
+	cmp.l	#"    ",-4(a2)
+	bne	.nobank
+
+; Stops all the sounds..
+; ~~~~~~~~~~~~~~~~~~~~~~
+	Rbsr	L_InSamStop0
+	Rbsr	L_InTrackStop
+	Rbsr	L_InMedStop
+; Point to the song
+; ~~~~~~~~~~~~~~~~~
+	movem.l	a3/a6,-(sp)
+	Dload	a3
+	moveq	#0,d0
+	cmp.l	#EntNul,d5
+	beq.s	.skp
+	move.l	d5,d0
+.skp	move.l	Med_Base-MB(a3),a6
+	jsr	_MEDSetModnum(a6)
+; Start the new song
+; ~~~~~~~~~~~~~~~~~~
+	move.l	a2,a0
+	jsr	_MEDPlayModule(a6)
+	move.l	a2,Med_Adr-MB(a3)
+	move.b	#1,Med_On-MB(a3)
+; Finished
+; ~~~~~~~~
+	movem.l	(sp)+,a3/a6
+	rts
+; Not a MED bank
+; ~~~~~~~~~~~~~~
+.nobank	move.w	#11+178,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Open the MED library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MedOpen
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/d0-d2,-(sp)
+	Dload	a2
+	tst.l	Med_Base-MB(a2)
+	bne.s	.Open
+	lea	Med_Name-MB(a2),a1
+	moveq	#2,d0
+	move.l	a6,-(sp)
+	move.l	$4.w,a6
+	jsr	_LVOOpenLibrary(a6)
+	move.l	(sp)+,a6
+	move.l	d0,Med_Base-MB(a2)
+	beq.s	.Err1
+	moveq	#0,d0
+	move.b	Med_Midi-MB(a2),d0
+	move.l	a6,-(sp)
+	move.l	Med_Base-MB(a2),a6
+	jsr	_MEDGetPlayer(a6)
+	move.l	(sp)+,a6
+	tst.l	d0
+	bne	.Err2
+.Open	movem.l	(sp)+,a0-a2/d0-d2
+	rts
+.Err1	move.w	#187,d0			Cannot load med.lib
+	Rjmp	L_Error
+.Err2	Rbsr	L_MedClose		Cannot initialise med.lib
+	move.w	#188,d0
+	Rjmp	L_Error
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED MIDI ON / OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMedMidiOn
+; - - - - - - - - - - - - -
+	Dlea	Med_Midi,a0
+	move.b	#1,(a0)
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED CLOSE
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	MedClose
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Rbsr	L_InMedStop
+	Dload	a2
+	clr.b	Med_Midi-MB(a2)
+	clr.l	Med_Adr-MB(a2)
+	move.l	Med_Base-MB(a2),d0
+	beq.s	.Skip
+	move.l	d0,a6
+	jsr	_MEDFreePlayer(a6)
+	move.l	Med_Base-MB(a2),a1
+	clr.l	Med_Base-MB(a2)
+	move.l	$4.w,a6
+	jsr	_LVOCloseLibrary(a6)
+.Skip	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	MED CONT
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InMedCont
+; - - - - - - - - - - - - -
+	movem.l	a0-a2/a6/d0-d2,-(sp)
+	Dload	a0
+	move.l	Med_Adr-MB(a0),d0
+	beq.s	.Skip
+	tst.b	Med_On-MB(a0)
+	bne.s	.Skip
+	move.b	#1,Med_On-MB(a0)
+	move.l	Med_Base-MB(a0),a6
+	move.l	d0,a0
+	jsr	_MEDContModule(a6)
+.Skip	movem.l	(sp)+,a0-a2/a6/d0-d2
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	+++ ERROR MESSAGES...
+;
+; 	NOTE: this extension uses the main internal AMOS error messages,
+; 	But, follow the explanation on how to create NEW error messages,
+; 	specific to the extension. Everything is remark, of course...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; ____________________________________________________________________
+;
+; How to create you own messages...
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+; You know that the compiler have a ERROR option (with errors) and a
+; a NOERROR (without errors). To achieve that, the compiler copies one of
+; the two next routines, depending on the flag. If errors are to be
+; copied along with the program, then the next next routine is used. If not,
+; then the next one is copied.
+; The compiler assumes that the two last routines in the library handles
+; the errors: the previous last is WITH errors, the last is WITHOUT. So,
+; remember:
+;
+; THESE ROUTINES MUST BE THE LAST ONES IN THE LIBRARY
+;
+; The AMOS interpretor always needs errors. So make all your custom errors
+; calls point to the L_Custom routine, and everything will work fine...
+;
+; "With messages" routine.
+; The following routine is the one your program must call to output
+; a extension error message. It will be used under interpretor and under
+; compiled program with -E1
+;
+;	Lib_Def	Mus_Custom
+;	lea	ErrMess(pc),a0
+;	moveq	#0,d1			* Can be trapped
+;	moveq	#ExtNb,d2		* Number of extension
+;	moveq	#0,d3			* IMPORTANT!!!
+;	Rjmp	L_ErrorExt		* Jump to routine...
+;* Messages...
+;ErrMess
+;	dc.b	"Wave not defined",0			*0
+;	dc.b 	"Sample not defined",0			*1
+;	dc.b 	"Sample bank not found",0		*2
+;	dc.b	"256 characters for a wave",0		*3
+;	dc.b	"Wave 0 and 1 are reserved",0		*4
+;	dc.b	"Music bank not found",0		*5
+;	dc.b 	"Music not defined",0			*6
+;	dc.b	"Can't open narrator",0			*7
+;	dc.b	"Not a tracker module",0		*8
+;* IMPORTANT! Always EVEN!
+;	even
+;
+;******* "No errors" routine
+; If you compile with -E0, the compiler will replace the previous
+; routine by this one. This one just sets D3 to -1, and does not
+; load messages in A0. Anyway, values in D1 and D2 must be valid.
+;
+; THIS ROUTINE MUST BE THE LAST ONE IN THE LIBRARY!
+;
+;L113	moveq	#0,d1
+;	moveq	#ExtNb,d2
+;	moveq	#-1,d3
+;	Rjmp	L_ErrorExt
+; ___________________________________________________________________
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	+++ If no error routines, you must anyway have 2 empty routines!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+; - - - - - - - - - - - - -
+; - - - - - - - - - - - - -
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	+++ Finish the library
+;	Another macro for Library_Digest
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+; - - - - - - - - - - - - -
+
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	+++ TITLE OF THE EXTENSION!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_Title	dc.b	"AMOSPro Music extension V "
+	Version
+	dc.b	0,"$VER: "
+	Version
+	dc.b	0
+	Even
+
+
+; +++ END OF THE EXTENSION
+C_End	dc.w	0
+	even
+
+
+
+; -----------------------------------------------------------------------
+; +++ 	CONVERTING YOUR EXTENSION TO AMOSPRO V2.0 FORMAT
+;
+;	An old style extension will perfectly work under AMOSPro V2.0.
+;
+;	You may anyway, want to convert you extension to the new format to
+; to benefit from the new facilities. To do so:
+;
+;	- Add the code after the header of the extension
+;	- Change the includes to the V2.00 includes
+;	- Remove the library pointer list and replace it with the macros
+;	- Replace "-1" in the DC.W of the token list by "L_Nul"
+;	- For each routine :
+;		* Make sure D6/D7 are preserved. If really it is too difficult
+;		  to preserve D6/D7, just call via a RJsr, L_SaveRegs at the
+;		  beginning of the routine, and L_LoadRegs at the end. See
+;		  my code.
+;		* Grab the last parameter from D3 and not any more from the
+;		  pile (simplest way is to push D3 in A3 just before your code)
+;		* Replace the label definition of the routine with the new
+;		  Lib_ Def or Lib_ Par macros.
+;		* Enventually, for function, use "Ret_" macros to return the
+;		  parameters.
+;
diff --git a/extensions/+Request.s b/extensions/+Request.s
new file mode 100644
index 0000000..3e4a923
--- /dev/null
+++ b/extensions/+Request.s
@@ -0,0 +1,185 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   ****     **    ***  **  ****
+;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
+;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
+;  ****** **   ** ** **    **  **  ** ******    ** ** **
+;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
+;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
+;---------------------------------------------------------------------
+; AMOS Requester handler 2.0
+; By Fran�ois Lionet
+; AMOS - AMOS Pro - AMOS Compiler (c) Europress Software 1990-1992
+; To be used with AMOS Pro 2.0 and over
+;---------------------------------------------------------------------
+;
+;  Published under the MIT Licence
+;
+;  Copyright (c) 1992 Europress Software
+;  Copyright (c) 2020 Francois Lionet
+;
+;  Permission is hereby granted, free of charge, to any person
+;  obtaining a copy of this software and associated documentation
+;  files (the "Software"), to deal in the Software without
+;  restriction, including without limitation the rights to use,
+;  copy, modify, merge, publish, distribute, sublicense, and/or
+;  sell copies of the Software, and to permit persons to whom the
+;  Software is furnished to do so, subject to the following
+;  conditions:
+;
+;  The above copyright notice and this permission notice shall be
+;  included in all copies or substantial portions of the Software.
+;
+;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+;  ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+;  THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;
+;---------------------------------------------------------------------
+; Please refer to the +Music.s file for more informations
+;---------------------------------------------------------------------
+
+
+ExtNb		equ	3-1
+
+;---------------------------------------------------------------------
+;		Include the files automatically calculated by
+;		Library_Digest.AMOS
+;---------------------------------------------------------------------
+		Include	"+Request_Size.s"
+		Include	"+Request_Labels.s"
+ 		Include	"+AMOS_Includes.s"
+		Include	"+Version.s"
+
+Start		dc.l	C_Tk-C_Off
+		dc.l	C_Lib-C_Tk
+		dc.l	C_Title-C_Lib
+		dc.l	C_End-C_Title
+		dc.w	0
+		dc.b	"AP20"
+
+;---------------------------------------------------------------------
+;		Creates the pointers to functions
+;---------------------------------------------------------------------
+		MCInit
+C_Off
+		REPT	Lib_Size
+		MC
+		ENDR
+
+******************************************************************
+* 	TOKEN TABLE + Addresses
+
+;		TOKEN_START
+C_Tk		dc.w 	1,0
+		dc.b 	$80,-1
+		dc.w	L_InRequestOn,L_Nul
+		dc.b	"request o","n"+$80,"I",-1
+		dc.w	L_InRequestOff,L_Nul
+		dc.b	"request of","f"+$80,"I",-1
+		dc.w	L_InRequestWb,L_Nul
+		dc.b	"request w","b"+$80,"I",-1
+;		TOKEN_END
+		dc.w 	0
+		dc.l	0			Important!
+
+
+;---------------------------------------------------------------------
+	Lib_Ini	0
+;---------------------------------------------------------------------
+
+C_Lib
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	COLD START
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Def	Cold
+; - - - - - - - - - - - - -
+	cmp.l	#"APex",d1			Version 1.10 or over?
+	bne.s	BadVer
+	movem.l	a3-a6,-(sp)
+	lea	Warm(pc),a0
+	move.l	a0,ExtAdr+ExtNb*16+4(a5)
+	movem.l	(sp)+,a3-a6
+	moveq	#ExtNb,d0		* NO ERRORS
+	move.w	#VerNumber,d1		* Current version
+	rts
+; In case this extension is runned on AMOSPro V1.00
+BadVer	moveq	#-1,d0			* Bad version number
+	sub.l	a0,a0
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	SCREEN RESET: back to AMOS requester (Called by AMOSPro)
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Warm
+; - - - - - - - - - - - - -
+	Rbra	L_InRequestOn
+
+;--------------------------------------------------------------------
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Leave one empty routine here!
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	REQUEST WB
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InRequestWb
+; - - - - - - - - - - - - -
+	moveq	#1,d0
+	SyCall	Request_OnOff
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	REQUEST ON
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InRequestOn
+; - - - - - - - - - - - - -
+	moveq	#-1,d0
+	SyCall	Request_OnOff
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	REQUEST OFF
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Par	InRequestOff
+; - - - - - - - - - - - - -
+	moveq	#0,d0
+	SyCall	Request_OnOff
+	rts
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;	Even if you do not have error messages, you MUST
+;	leave TWO routines empty at the end...
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_Empty
+	Lib_Empty
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 	Finish the library
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+	Lib_End
+; - - - - - - - - - - - - -
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+; 		TITLE OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_Title		dc.b 	"AMOSPro Requester V "
+		Version
+		dc.b	0,"$VER: "
+		Version
+		dc.b	0
+		Even
+
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;		END OF THE EXTENSION
+; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+C_End		dc.w	0
+		even
diff --git a/extensions/Intuition-41.95/AMOS/Cequ.s b/extensions/Intuition-41.95/AMOS/Cequ.s
new file mode 100644
index 0000000..314cfd9
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS/Cequ.s
@@ -0,0 +1,139 @@
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** ** 
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; EQUATES
+;---------------------------------------------------------------------
+C_Code1		equ	$FE
+C_Code2		equ	$01
+C_CodeD		equ	$6543
+C_CodeJ		equ	$F7
+
+CiJSR		equ	$4EB9
+CiJMP		equ	$4EF9
+CiBGT		equ	$6E00
+
+CodeR		equ	$8F
+Rjmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Rjsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Ljmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Ljsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Rbra		MACRO
+		dc.b	C_Code1,2*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbsr		MACRO
+		dc.b	C_Code1,3*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbeq		MACRO
+		dc.b	C_Code1,4*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbne		MACRO
+		dc.b	C_Code1,5*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcs		MACRO
+		dc.b	C_Code1,6*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcc		MACRO
+		dc.b	C_Code1,7*16+C_Code2
+		dc.w	\1
+		ENDM
+Rblt		MACRO
+		dc.b	C_Code1,8*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbge		MACRO
+		dc.b	C_Code1,9*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbls		MACRO
+		dc.b	C_Code1,10*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbhi		MACRO
+		dc.b	C_Code1,11*16+C_Code2
+		dc.w	\1
+		ENDM
+Rble		MACRO
+		dc.b	C_Code1,12*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbpl		MACRO
+		dc.b	C_Code1,13*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbmi		MACRO
+		dc.b	C_Code1,14*16+C_Code2
+		dc.w	\1 
+		ENDM
+Rbgt		MACRO
+		dc.w	CiBGT+4
+		Rble	\1
+		ENDM
+Rdata		MACRO
+		dc.b	C_Code1,15*16+C_Code2
+		dc.w	C_CodeD
+		ENDM
+Rlea		MACRO
+		lea	\1,\2
+		ENDM
+;Alea		MACRO
+;		move.l	a5,\2
+;		add.w	A\1(a5),\2
+;		ENDM
+*	
+GfxC		MACRO
+		movem.l	d0-d7/a0-a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d7/a0-a6
+		ENDM
+*
+BitLib		equ	31
+BitChaine	equ	30
+BitLabel	equ	29
+*
+Hunk_Public	equ	0
+Hunk_Chip	equ	$40000000
+N_HunkSys	equ	8
+NH_Header	equ	0
+NH_Prog		equ	1
+NH_Reloc	equ	2
+NH_W.Lib	equ	3
+NH_Env		equ	4
+NH_Mouse	equ	5
+NH_Font		equ	6
+NH_Key		equ	7
+*
+FlagFloat	equ	EdMarks+4*4
+AForNext	equ	EdMarks+5*4
+Ad_Labels	equ	EdMarks+6*4
+Num_Proc	equ	EdMarks+7*4
+LowPile		equ	EdMarks+8*4
+LowPileP	equ	EdMarks+9*4
+*
+;---------------------------------------------------------------------
diff --git a/extensions/Intuition-41.95/AMOS/LEqu.s b/extensions/Intuition-41.95/AMOS/LEqu.s
new file mode 100644
index 0000000..9b71ea5
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS/LEqu.s
@@ -0,0 +1,1001 @@
+; 
+; AMOS 1.34 Compiler librarie numbers
+; + AMOSPro V1.0 extension functions
+;
+L_Init1		equ	0
+L_Init2		equ	1
+L_PlusF		equ	2
+L_PlusC		equ	3
+L_MoinsF	equ	4
+L_MoinsC	equ	5
+L_IntToFl	equ	6
+L_FlToInt	equ	7
+L_Mult		equ	8
+L_Div		equ	10
+L_Mod		equ	12
+L_Puis		equ	13
+L_Eg		equ	14
+L_Dif		equ	17
+L_Inf		equ	20
+L_Sup		equ	23
+L_InfEg		equ	26
+L_SupEg		equ	29
+L_CompCh	equ	32
+L_PrintE	equ	33
+L_PrintF	equ	34
+L_PrintS	equ	35
+L_PrintX	equ	36
+L_LPrintX	equ	37
+L_CRPrint	equ	38
+L_EToAsc	equ	39
+L_FlToAsc	equ	40
+L_UsingC	equ	41
+L_UsingS	equ	42
+L_PrtRet	equ	43
+L_PrtVir	equ	44
+L_DDemande	equ	45
+L_Demande	equ	46
+L_Menage	equ	47
+L_InSearch	equ	48
+L_Dim		equ	49
+L_GetTablo	equ	50
+L_NextE		equ	51
+L_NextF		equ	52
+L_NegFl		equ	53
+L_EcWiErr	equ	54
+L_Tester	equ	56
+L_GetLabE	equ	57
+L_GetLabA	equ	58
+L_GetLab	equ	59
+L_Return	equ	60
+L_Pop		equ	61
+L_DProc1	equ	62
+L_DProc2	equ	63
+L_FProc		equ	64
+L_PrgIn		equ	65
+L_FLeft		equ	72
+L_FRight	equ	73
+L_FMid2		equ	74
+L_FMid3		equ	75
+L_ILeft		equ	78
+L_IRight	equ	79
+L_IMid2		equ	80
+L_IMid3		equ	81
+L_Instr2	equ	83
+L_Instr3	equ	84
+L_Flip		equ	85
+L_Len		equ	86
+L_Space		equ	87
+L_String	equ	88
+L_Chr		equ	90
+L_Asc		equ	91
+L_Bin1		equ	92
+L_Bin2		equ	93
+L_Hex1		equ	94
+L_Hex2		equ	95
+L_LongAscii	equ	97
+L_LongBin	equ	98
+L_FinBin	equ	99
+L_StrE		equ	100
+L_StrF		equ	101
+L_Chverbuf	equ	102
+L_ValPrg	equ	103
+L_Val		equ	104
+L_ClearVar	equ	105
+L_ChVide	equ	106
+L_InputC	equ	107
+L_LInputC	equ	108
+L_InputH	equ	109
+L_LInputH	equ	110
+L_Input		equ	111
+L_CRet		equ	112
+L_LEdit		equ	113
+L_FInky		equ 	114
+L_FScan		equ 	115
+L_FScSh		equ	116
+L_FKSt		equ	117
+L_FShft		equ	118
+L_FJ		equ	119
+L_FJoy		equ	120
+L_FJup		equ	121
+L_FJDown	equ	122
+L_FJRight	equ	123
+L_FJLeft	equ	124
+L_FFire		equ	125
+L_FJ2		equ	126
+L_PutKy		equ	127
+L_ClKy		equ	128
+L_WtKy		equ	129
+L_StKy		equ	130
+L_FKy2		equ	132
+L_FKy1		equ	133
+L_FKy:		equ	134
+L_SsGtKy	equ	135
+L_KSpeed	equ	136
+L_FUpp		equ	137
+L_FLwr		equ	138
+L_FTab		equ	139
+L_FClf		equ	140
+L_FCrt		equ	141
+L_FCup		equ	142
+L_FCDn		equ	143
+L_FPen		equ	144
+L_FPap		equ	145
+L_FPn		equ	146
+L_FAt		equ	147
+L_FCMv		equ	148
+L_FRpt		equ	149
+L_FSur		equ	150
+L_FZone		equ	151
+L_FinRpt	equ	152
+L_WnOp5		equ	153
+L_WnOp6		equ	154
+L_WnOp7		equ	155
+L_WnSave	equ	156
+L_WnMove	equ	157
+L_WnSize	equ	158
+L_WnClo	equ	159
+L_WnDow		equ	160
+L_FWnDon	equ	161
+L_WnWrt1	equ	162
+L_WnWrt2	equ	163
+L_WnBor		equ	164
+L_WnTTop	equ	165
+L_WnTBot	equ	166
+L_WnTT		equ	167
+L_FXCu		equ	168
+L_FYCu		equ	169
+L_WnSCu		equ	170
+L_WnLoc		equ	171
+L_WnCen		equ	172
+L_WnCMv		equ	173
+L_WnCPe		equ	174
+L_WnPap		equ	175
+L_WnPen		equ	176
+L_WnPp		equ	177
+L_WnClw		equ	178
+L_WnHome	equ	179
+L_WnCLf		equ	180
+L_WnCRt		equ	181
+L_WnCup		equ	182
+L_WnCDn		equ	183
+L_WnCOf		equ	184
+L_WnCOn		equ	185
+L_WnIOn		equ	186
+L_WnIOf		equ	187
+L_WnUOn		equ	188
+L_WnUOf		equ	189
+L_WnScOn	equ	190
+L_WnScOf	equ	191
+L_WnSOn		equ	192
+L_WnSOf		equ	193
+L_WnCll		equ	194
+L_WnMX1		equ	195
+L_WnMX2		equ	196
+L_WnMY1		equ	197
+L_WnMY2		equ	198
+L_GoWn		equ	199
+L_WnCln		equ	200
+L_WnHSc		equ	201
+L_WnVSc		equ	202
+L_HVSc		equ	203
+L_WnSTa		equ	204
+L_DefRun	equ	205
+L_FreeRas	equ	206
+L_Tests		equ	207
+L_Cls0		equ	208
+L_Cls1		equ	209
+L_Cls5		equ	210
+L_FScH0		equ	212
+L_FScH1		equ	213
+L_FScW0		equ	215
+L_FScW1		equ	216
+L_FSBase	equ	218
+L_FLBase	equ	219
+L_FPBase	equ	220	
+L_DBuf		equ	221
+L_Scswp0	equ	222
+L_ScSwp1	equ	223
+L_Dual		equ	224
+L_DuPri		equ	225
+L_ScClon	equ	226
+L_FSCol		equ	227
+L_ScOpen	equ	228
+L_ScClo		equ	229
+L_ScDisp	equ	230
+L_ScOffs		equ	231
+L_ScSh0		equ	232
+L_ScSh1		equ	233
+L_ScHi0		equ	234
+L_ScHi1		equ	235
+L_AvOn		equ	237
+L_AvOff		equ	238
+L_View		equ	239
+L_ScFr0		equ	240
+L_ScFr1		equ	241	
+L_ScBk0		equ	243
+L_ScBk1		equ	244
+L_Scr		equ	246
+L_FScr		equ	247
+L_FHires	equ	248
+L_FLowRes	equ	249
+L_WtVbl		equ	250
+L_Colour	equ	251
+L_FColour	equ	252
+L_ColourB	equ	253
+L_DPal		equ	254
+L_Pal		equ	255
+L_Plt		equ	256
+L_GIPal0	equ	257
+L_GIPal1	equ	258
+L_GSpPal0	equ	260
+L_GSpPal1	equ	262
+L_GSp		equ	264
+L_PalRout	equ	265
+L_GPal2		equ	266
+L_GPal1		equ	267
+L_GPal		equ	268
+L_Fade1		equ	269
+L_Fade2		equ	270
+L_Fade3		equ	271
+L_FadeN		equ	272
+L_FadT		equ	273
+L_FlOff		equ	274
+L_Flash		equ	275
+L_ShOff		equ	276
+L_ShUp		equ	277
+L_SHDown	equ	278
+L_SRain6	equ	280
+L_SRain7	equ	281
+L_Rain		equ	282
+L_RainD0	equ	283
+L_RainD1	equ	284
+L_IRain		equ	285
+L_FRain		equ	286
+L_GetEc		equ	287
+L_AutoB		equ	288
+L_CopOn		equ	289
+L_CopOf		equ	290
+L_CopSwap	equ	291
+L_CopErr	equ	292
+L_CopReset	equ	293
+L_CopW4		equ	294
+L_CopW2		equ	295
+L_CopW		equ	296
+L_CopMW		equ	297
+L_CopML		equ	298
+L_CopBase	equ	299
+L_GfxPnt	equ	300
+L_GfxFunc	equ	301
+L_GfxF0		equ	302
+L_Plot2		equ	303
+L_Replot	equ	304
+L_Plot3		equ	305
+L_FPoint	equ	306
+L_RPoint	equ	307
+L_Draw4		equ	308
+L_Draw2		equ	309
+L_Drw		equ	310
+L_GrXY		equ	311
+L_Cir		equ	312
+L_Ell		equ	313
+L_EllCir	equ	314
+L_Polyl		equ	315
+L_ScreenExt	equ	316
+L_Xgr		equ	318
+L_Ygr		equ	319
+L_GrLoc		equ	320
+L_Box		equ	321
+L_Clip0		equ	322
+L_Clip4		equ	323
+L_GoClip	equ	324
+L_GRFont	equ	325
+L_GDFont	equ	326
+L_GFont		equ	327
+L_Igf		equ	328
+L_FFont		equ	329
+L_SFont		equ	330
+L_FftE		equ	331
+L_Text		equ	332
+L_FTBase	equ	333
+L_FTLen		equ	334
+L_FStyle	equ	335
+L_SText		equ	336
+L_SPat		equ	337
+L_SPaint	equ	338
+L_Paint2	equ	339
+L_Paint3	equ	340
+L_Pogo		equ	341
+L_FinRas	equ	342
+L_Bar		equ	343
+L_SRas0		equ	344
+L_SRas1		equ	345
+L_SRas2		equ	346
+L_GetRas	equ	347
+L_Ink1		equ	349
+L_Ink2		equ	350
+L_Ink3		equ	351
+L_Ink		equ	352
+L_GrWrt		equ	353
+L_StLine	equ	354
+L_Sli		equ	355
+L_HSli		equ	356
+L_VSli		equ	357
+L_SSli		equ	358
+L_DefSc		equ	359
+L_DoSc		equ	360
+L_DoScrol	equ	361
+L_Scop2		equ	362
+L_Scop8		equ	363
+L_Scop9		equ	364
+L_Scop		equ	365
+L_Sco0		equ	366
+L_Phy0		equ	367
+L_Log0		equ	368
+L_Phy1		equ	369
+L_Log1		equ	370
+L_App4		equ	372
+L_App3		equ	373
+L_App		equ	374
+L_Zoom		equ	375
+L_ZooTab	equ	376
+L_XHard1	equ	377
+L_XHard2	equ	378
+L_XHr1		equ	379
+L_YHard1	equ	380
+L_YHard2	equ	381
+L_YHr1		equ	382
+L_XScr1		equ	383
+L_XScr2		equ	384
+L_XSc1		equ	385
+L_YScr1		equ	386
+L_YScr2		equ	387
+L_YSc1		equ	388
+L_XTxt1		equ	389
+L_YTxt1		equ	390
+L_FnXGr		equ	391
+L_FnYGr		equ	392
+L_RZo0		equ	393
+L_RZo1		equ	394
+L_RZo2		equ	395
+L_RsZo0		equ	396
+L_RsZo1		equ	397
+L_RsZo2		equ	398
+L_SZo		equ	399
+L_FZo2		equ	400
+L_FZo3		equ	401
+L_FZo		equ	402
+L_FZoX		equ	403
+L_FHZo2		equ	404
+L_FHZo3		equ	405
+L_FHZo		equ	406
+L_FScin2	equ	407
+L_FScin3:	equ	408
+L_FScin		equ	409
+L_FMouSc	equ	410
+L_FMouZo	equ	411
+L_GtCBl		equ	412
+L_PtCBl1	equ	413
+L_PtCBl3	equ	414
+L_PtCBlX	equ	415
+L_DlCBl0	equ	416
+L_DlCBl1	equ	417
+L_GtBl6		equ	418
+L_GtBl5		equ	419
+L_GtBla		equ	420
+L_PtBl1		equ	421
+L_PtBl3		equ	422
+L_PtBl4		equ	423
+L_PtBl5		equ	424
+L_PtBl		equ	425
+L_DlBl0		equ	426
+L_DlBl1		equ	427
+L_HRev		equ	428
+L_VRev		equ	429
+L_BRev		equ	430
+L_AdOuBank	equ	431
+L_RamFast	equ	432
+L_RamChip	equ	433
+L_RamFast2	equ	434
+L_RamChip2	equ	435
+L_RamFree	equ	436
+L_XMou		equ	437
+L_YMou		equ	439
+L_MouK		equ	441
+L_HidO		equ	442
+L_Hide		equ	443
+L_ShoO		equ	444
+L_Show		equ	445
+L_LimM0		equ	446
+L_LimM1		equ	447
+L_LimMX		equ	448
+L_LimM		equ	449
+L_ChMou		equ	450
+L_MouCl		equ	451
+L_EffBank	equ	452
+L_EfPointe	equ	453
+L_EffBanks	equ	454
+L_EffAllBanks	equ	455
+L_Erase		equ	456
+L_BSwap		equ	457
+L_SendBanks	equ	458
+L_BkChange	equ	459
+L_ResIco	equ	460
+L_ResSpr	equ	461
+L_ResSi		equ	462
+L_ISpr		equ	463
+L_IIco		equ	464
+L_RIIS		equ	465
+L_DIc1		equ	466
+L_DIc2		equ	467
+L_DSp1		equ	468
+L_DSp2		equ	469
+L_DSpIc		equ	470
+L_DSI8		equ	471
+L_DSIEra	equ	472
+L_RsWrk		equ	474
+L_RsCWrk	equ	475
+L_RsDat		equ	476
+L_RsCDat	equ	477	
+L_RsBk		equ	478
+L_FnSt		equ	479
+L_FnLn		equ	480
+L_BkAd		equ	481
+L_AdBob		equ	484
+L_AdBE1		equ	485
+L_AdBE2		equ	486
+L_AdBE3		equ	487
+L_AdIcon	equ	488
+L_FChip		equ	489
+L_FFast		equ	490
+L_FFree		equ	491
+L_transmem	equ	492
+L_copy		equ	493
+L_LongDec	equ	494
+L_fill		equ	495
+L_Hunt		equ	496
+L_LBank		equ	497
+L_LlBank	equ	498
+L_ImpChaine	equ	499
+L_BSet		equ	500
+L_BClr		equ	502
+L_Bchg		equ	504
+L_BTst		equ	506
+L_btF		equ	508
+L_btT		equ	509
+L_BRor		equ	510
+L_WRor		equ	512
+L_LRor		equ	514
+L_BRol		equ	516
+L_WRol		equ	518
+L_LRol		equ	520
+L_IAReg		equ	522
+L_IDReg		equ	524
+L_IReg		equ	526
+L_FReg		equ	527
+L_RReg		equ	528
+L_Pok		equ	529
+L_Dok		equ	530
+L_Lok		equ 	531
+L_AdrErr	equ	532
+L_Lik		equ	533
+L_Dik		equ	534
+L_Pik		equ	535
+L_Call		equ	536
+L_FExe		equ	537
+L_FGfx		equ	538
+L_FDos		equ	539
+L_FIntu		equ	540
+L_SysCall	equ	541
+L_UpOff		equ	542
+L_UpOn		equ	543
+L_UpDa		equ	544
+L_BUpOf		equ	545
+L_BUpOn		equ	546
+L_BUpDa		equ	547
+L_SUpOf		equ	548
+L_SUpOn		equ	549
+L_SUpDa		equ	550
+L_UpEv		equ	551
+L_BbClr		equ	553
+L_BbDrw		equ	554
+L_LBob0		equ	555
+L_LBob5		equ	556
+L_LBob4		equ	557
+L_LBob1		equ	558
+L_PrOn		equ	559
+L_PrOf		equ	560
+L_PrROn		equ	561
+L_PrROf		equ	562
+L_PrOoo		equ	563
+L_ChaSpr	equ	565
+L_ChaBob	equ	566
+L_ChaScD	equ	567
+L_ChaScS	equ	568
+L_ChaScO	equ	569
+L_ChaRain	equ	570
+L_ChaX		equ	571
+L_AmE		equ	572
+L_Frz		equ	573
+L_UFrz		equ	574
+L_SOn		equ	575
+L_SOff		equ	576
+L_Sync		equ	577
+L_AmOn0		equ	578
+L_AmOf0		equ	579
+L_AmFz0		equ	580
+L_MvOn0		equ	581
+L_AnOn0		equ	582
+L_MvOf0		equ	583
+L_AnOf0		equ	584
+L_MvFz0		equ	585
+L_AnFz0		equ	586
+L_MvOnOf0	equ	587
+L_AmOn1		equ	589
+L_AmOf1		equ	590
+L_AmFz1		equ	591
+L_MvOn1		equ	592
+L_AnOn1		equ	593
+L_MvOf1		equ	594
+L_AnOf1		equ	595
+L_MvFz1		equ	596
+L_AnFz1		equ	597
+L_MvOnOf1	equ	598
+L_MvX3		equ	599
+L_MvY3		equ	600
+L_AnM3		equ	601
+L_Am3		equ	602
+L_AMm3		equ	603
+L_MvX		equ	604
+L_MvY		equ	605
+L_Am		equ	606
+L_Anm		equ	607
+L_MvA		equ	608
+L_MvA3		equ	609
+L_Movon		equ	611
+L_ChanA		equ	612
+L_ChanM		equ	613
+L_FnAm1		equ	614
+L_IAmR1		equ	615
+L_FAmR1		equ	616
+L_IAmR2		equ	617
+L_FAmR2		equ	618
+L_IAmR		equ	619
+L_FAmR		equ	620
+L_AmRR		equ	621
+L_AmP2		equ	622
+L_AmP4		equ	623
+L_XBob		equ	624
+L_YBob		equ	625
+L_XSp		equ	626
+L_YSp		equ	627
+L_IBb		equ	629
+L_ISp		equ	630
+L_StBb		equ	631
+L_BbSt4		equ	632
+L_BbOff1	equ	633
+L_BbOff0	equ	634
+L_SsBuf		equ	635
+L_SpErr		equ	636
+L_SpPri		equ	637
+L_SpSp		equ	638
+L_SpOff1	equ	639
+L_SpOff0	equ	640
+L_HCol		equ	641
+L_FHCol		equ	642
+L_BSCol1	equ	643
+L_BSCol3	equ	644
+L_BbCol1	equ	645
+L_BbCol3	equ	646
+L_SBCol1	equ	647
+L_SBCol3	equ	648
+L_SpCol1	equ	649
+L_SpCol3	equ	650
+L_Coll		equ	652
+L_MkIMs0	equ	653
+L_MkIMs1	equ	654
+L_NoIMs0	equ	655
+L_NoIMs1	equ	656
+L_MkMask0	equ	657
+L_MkMask1	equ	658
+L_MkMa1		equ	659
+L_NoMask0	equ	660
+L_NoMask1	equ	661
+L_NoMa1		equ	662
+L_HotSp3	equ	664
+L_HotSp2	equ	665
+L_HotSp		equ	666
+L_GetSp6	equ	667
+L_GetSp5	equ	668
+L_GetSp		equ	669
+L_GetIc6	equ	671
+L_GetIc5	equ	672
+L_GetIc		equ	673
+L_Ritoune	equ	674
+L_PBob		equ	675
+L_RevX		equ	676
+L_RevY		equ	677
+L_Rev		equ	678
+L_PatBb		equ	680
+L_PatIc		equ	681
+L_SBase		equ	682
+L_IBase		equ	683
+L_FillDev	equ	686
+L_FfDeb		equ	687
+L_FOpen		equ	689
+L_FClose	equ	690
+L_FRead		equ	691
+L_ERead		equ	692
+L_FWrite	equ	693
+L_FSeek		equ	694
+L_LockFree	equ	695
+L_NomDisk	equ	696
+L_ChVerBuf2	equ	697
+L_IlDName	equ	698
+L_NomDir	equ	699
+L_NDir		equ	700
+L_DiskError	equ	701
+L_DiskErr	equ	702
+L_DiForm	equ	703
+L_LHunk		equ	705
+L_SHunk		equ	706
+L_Save2		equ	707
+L_Save1		equ	708
+L_SaveBks	equ	709
+L_SaveBk	equ	710
+L_UnRevSp	equ	711
+L_DInfo		equ	712
+L_Load1		equ	713
+L_Load2		equ	714
+L_LoadBk	equ	715
+L_LdBs		equ	716
+L_PLoad		equ	717
+L_BLoad		equ	718
+L_BSave		equ	719
+L_IffMsk	equ	720
+L_FPic		equ	721
+L_LdIff1	equ	722	
+L_LdIff2	equ	723
+L_IffInit	equ	724
+L_IffLoad	equ	725
+L_CantFit	equ	727
+L_IffFor	equ	728
+L_IffCmp	equ	729
+L_ScSave2	equ	730
+L_ScSave1 	equ	731
+L_ScSave	equ	732
+L_IDir		equ	733
+L_FDir		equ	734
+L_Par		equ	735
+L_Kill		equ	736
+L_Ren		equ	737
+L_MkDir		equ	738
+L_Drive		equ	739
+L_DFree		equ	740
+L_GetFile	equ	741
+L_FiClean	equ	742
+L_GetByte	equ	743
+L_EndByte	equ	744
+L_FPort		equ	745
+L_OpPor		equ	746
+L_OpOut2	equ	747
+L_OpIn2		equ	748
+L_OpIn		equ	749
+L_Lof		equ	750
+L_IPof		equ	751
+L_Eof		equ	753
+L_RLof		equ	754
+L_Clo1		equ	755
+L_CloAll	equ	756	
+L_Cloa1		equ	757
+L_FilOO		equ	758
+L_FilNO		equ	759
+L_FilTM		equ	760
+L_EOFil		equ	762
+L_OpRan		equ	763
+L_Appn		equ	764
+L_RanApp	equ	765
+L_Field		equ	766
+L_GetPut	equ	767
+L_Get		equ	768
+L_Put		equ	769
+L_OpPrt		equ	770
+L_ImpImp	equ	771
+L_SDir2		equ	772
+L_SDir1		equ	773
+L_DevF		equ	774
+L_AccF		equ	775
+L_DirF		equ	776
+L_DirN		equ	777
+L_Exist		equ	778
+L_NoReq		equ	779
+L_YesReq	equ	780
+L_SetReq	equ	781
+L_FillAcc	equ	782
+L_PRun		equ	783
+L_LDirW0	equ	784
+L_DirW0		equ	785
+L_DirW0a	equ	786
+L_LDirW1	equ	787
+L_DirW1		equ	788
+L_DirW2		equ	789
+L_LDir0		equ	790
+L_Dir0		equ	791
+L_Dir0a		equ	792
+L_LDir1		equ	793
+L_Dir1		equ	794
+L_Dir2		equ	795
+L_Dir3		equ	796
+L_TTDir		equ	797
+L_AskDir	equ	799
+L_AskDir2	equ	800
+L_GetDir	equ	801
+L_LockGet	equ	801
+L_FillAll	equ	802
+L_FillGet	equ	803
+L_FillFirst	equ	804
+L_FillNxt	equ	805
+L_FillFFree	equ	806
+L_FillSort	equ	807
+L_FillFPoke	equ	808
+L_Joker		equ	809
+L_Psel1		equ	811
+L_Psel2		equ	812
+L_PSel3		equ	813	
+L_PSel4		equ	814
+L_FSel1		equ	815
+L_Fsel2		equ	816
+L_FSel3		equ	817
+L_FSel4		equ	818
+L_FSel		equ	818
+L_FSel0		equ	819
+L_FsError	equ	820
+L_FsOut		equ	821
+L_AppCentre	equ	822
+L_Lettre	equ	823
+L_HPrintD	equ	824
+L_HPrintS	equ	825
+L_HPrintX	equ	826
+L_AskD3		equ	827
+L_FInput1	equ	828
+L_FInput2	equ	829
+L_SInp		equ	830
+L_MnToBank	equ	831
+L_BkToMenu	equ	832
+L_MnGere	equ	833
+L_MnEnd		equ	834
+L_MnEnd1	equ	835
+L_MnDEff	equ	836
+L_MnEBranch	equ	837
+L_IMen1		equ	839
+L_IMen2		equ	840
+L_IMen3		equ	841
+L_IMen4		equ	842
+L_MnOn		equ	843
+L_MnOff		equ	844
+L_MnDl0		equ	845
+L_MnDl1		equ	846
+L_MnMOn		equ	847
+L_MnMOf		equ	848
+L_MnBs		equ	849
+L_SMen		equ	850
+L_XMen		equ	851
+L_YMen		equ	852
+L_FMen1		equ	853
+L_FMen0		equ	854
+L_MnBa		equ	855
+L_MnLi		equ	856
+L_MnTl		equ	857
+L_MnMv		equ	858
+L_MnSt		equ	859
+L_MnIMv		equ	860
+L_MnISt		equ	861
+L_MnAct		equ	862
+L_MnInA		equ	863
+L_MnSep		equ	864
+L_MnLnk		equ	865
+L_MnCl		equ	866
+L_MnNCl		equ	867
+L_MnDim		equ	868
+L_MnINDef	equ	869
+L_MnFind	equ	870
+L_MnCa		equ	873
+L_MnRaz		equ	874
+L_MnEff		equ	875
+L_MnDel		equ	876
+L_MnCalc	equ	877
+L_MnBranch	equ	878
+L_MnDraw	equ	879
+L_MnODraw	equ	880
+L_MnODVar	equ	881
+L_MnSave	equ	882
+L_MnRest	equ	883
+L_MnSaDel	equ	884
+L_EvGosub	equ 	887
+L_EvProc	equ	888
+L_Every		equ	889
+L_EvOff		equ	890
+L_EvOn		equ	891
+L_EveJump	equ	892
+L_IntToFl2	equ	894
+L_FlToInt2	equ	895
+L_strflasc	equ	896
+L_floatasc	equ	897
+L_Flta		equ	898
+L_FlRout	equ	899
+L_FoFloat	equ	900
+L_MaxE		equ	901
+L_MaxF		equ	902
+L_MaxC		equ	903
+L_MinE		equ	904
+L_MinF		equ	905
+L_MinC		equ	906
+L_AbsE		equ	907
+L_AbsF		equ	908
+L_IntF		equ	910
+L_SgnE		equ	911
+L_SgnF		equ	912
+L_Rad		equ	913
+L_Deg		equ	914
+L_Pi		equ	915
+L_Sqr		equ	916
+L_Log		equ	917
+L_Ln		equ	918
+L_Exp		equ	919
+L_Sin		equ	920
+L_Cos		equ	921
+L_Tan		equ	922
+L_ASin		equ	923
+L_ACos		equ	924
+L_ATan		equ	925
+L_HSin		equ	926
+L_HCos		equ	927
+L_HTan		equ	928
+L_Fix		equ	929
+L_FlOpe		equ	930
+L_FMOpe		equ	931
+L_FlPos		equ	932
+L_Angle		equ	933
+L_AAngle	equ	934
+L_Mul32		equ	935
+L_Rnd		equ	936
+L_Random	equ	937
+L_RRnd		equ	938
+L_Add4		equ	939
+L_Laced		equ	940
+L_BreakOn	equ	941
+L_BreakOff	equ	942
+L_Stop		equ	943
+L_End		equ	944
+L_Direct	equ	945
+L_Edit		equ	946
+L_System	equ	947
+L_Timer		equ	948
+L_Default	equ	950
+L_Multi		equ	951
+L_WaitMul	equ	952
+L_Wait		equ	953
+L_Swap		equ	954
+L_FN		equ	955
+L_WaitRout	equ	956
+L_GTablo	equ	957
+L_Cpbis		equ	958
+L_Sort		equ	959
+L_FFind		equ	960
+L_MnKey0	equ	962
+L_MnKey1	equ	963
+L_MnKey2	equ	964	
+L_MnKey3	equ	965
+L_MnKy		equ	966
+L_MnKExp	equ	967
+L_GoMenu	equ	968
+L_OnMen		equ	969
+L_OMnOn		equ	970
+L_OMnOff	equ	971
+L_OMnDel	equ	972
+L_OMnEff	equ	972
+L_Rest0		equ	973
+L_Rest1		equ	974
+L_ReadE		equ	975
+L_ReadF		equ	976
+L_ReadS		equ	977
+L_Free		equ	978
+L_OnErr0	equ	980
+L_OnErr1	equ	981
+L_OnErr2	equ	982
+L_ResL0		equ	983
+L_ResL1		equ	984
+L_Res0		equ	985
+L_Res1		equ	986
+L_ResNext	equ	988
+L_IErrN		equ	989
+L_FErrN		equ	990
+L_PopP		equ	991
+L_Foncall	equ	992
+L_EProErr	equ	993
+L_Dbz		equ	995
+L_Typemis	equ	996
+L_InpTL		equ	998
+L_Stolong	equ	999
+L_WFoncall	equ	1000
+L_Scnop		equ	1001
+L_Aldim		equ	1002
+L_OofBuf	equ	1003
+L_IllScN	equ	1004
+L_OofMem	equ	1005
+L_BkNoRes	equ	1006
+L_RainErr	equ	1007
+L_IlNCo		equ	1008
+L_ScNoDef	equ	1009
+L_BFonCall	equ	1010
+L_BkAlRes	equ	1011
+L_MnNOp		equ	1012
+L_Overflow	equ	1013
+L_FnNDef	equ	1014
+L_NDim		equ	1015
+L_NoData	equ	1016
+L_OofData	equ	1017
+L_NoResum	equ	1018
+L_NoErr		equ	1019
+L_NoOnErr	equ	1020
+L_ResLNo	equ	1021
+L_ResPLab	equ	1022
+L_Error		equ	1024
+L_ErrorExt	equ	1025
+L_Abort		equ	1026
+L_ClosWb	equ	1027
+L_OpenWb	equ	1028
+L_AmFront	equ	1029
+L_AmBack	equ	1030
+L_AmHere	equ	1031
+L_AMLock	equ	1032
+L_AMULock	equ	1033
+L_DispH		equ	1034
+L_NTSC		equ	1035
+L_ClosEd	equ	1036
+L_Run		equ	1037
+L_VarEff	equ	1038
+L_ClosExt	equ	1039
+L_ExtCall	equ	1040
+L_ErrorAMOS	equ	1041
+L_AMOSIn	equ	1042
+L_BGrab0	equ	1043
+L_PrgState	equ	1044
+L_ICom		equ	1045
+L_FCom		equ	1046
+
+; ______________________________________________________________________________
+;	
+;		New AMOSPro Equates, not yet in the compiler, 
+;		But accessible from the extensions.
+;
+L_Bnk_GetAdr		equ	1100
+L_Bnk_GetBobs		equ	1101
+L_Bnk_GetIcons		equ	1102
+L_Bnk_Reserve		equ	1103
+L_Bnk_Eff		equ	1104
+L_Bnk_EffA0		equ	1105
+L_Bnk_EffTemp		equ	1106
+L_Bnk_EffAll		equ	1107
+L_Bnk_ResBob		equ	1108
+L_Bnk_ResIcon		equ	1109
+L_Bnk_InsBob		equ	1110
+L_Bnk_DelBob		equ	1111
+L_Bnk_Load		equ	1112
+L_Bnk_SaveA0		equ	1113
+L_Bnk_SaveAll		equ	1114
+L_Lst_ChipNew		equ	1115
+L_Lst_New		equ	1116
+L_Lst_Del		equ	1117
+L_Lst_DelAll		equ	1118
+L_Dsk_PathIt		equ	1119
+L_Dsk_FileSelector	equ	1120
+L_Bnk_OrAdr		equ	1121
+L_Dev_Open		equ	1122
+L_Dev_Close		equ	1123
+L_Dev_GetIO		equ	1124
+L_Dev_AbortIO		equ	1125
+L_Dev_DoIO		equ	1126
+L_Dev_SendIO		equ	1127
+L_Dev_CheckIO		equ	1128
+L_Dev_Error		equ	1129
diff --git a/extensions/Intuition-41.95/AMOS/amos_includes.s b/extensions/Intuition-41.95/AMOS/amos_includes.s
new file mode 100644
index 0000000..cc13c4f
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS/amos_includes.s
@@ -0,0 +1,24 @@
+;---------------------------------------------------------------------
+;    **   **   **  ***   ***   
+;   ****  *** *** ** ** **     
+;  **  ** ** * ** ** **  ***   
+;  ****** **   ** ** **    **  
+;  **  ** **   ** ** ** *  **  
+;  **  ** **   **  ***   ***   
+;---------------------------------------------------------------------
+;  Includes all includes - Francois Lionet / Europress 1992
+;---------------------------------------------------------------------
+
+; These ones are for me!
+Finale:		equ 1
+VDemo:		equ 0
+ROnly:		equ 0
+;
+		Include "LibOffsets.s"			Library offsets
+		Include	"Equ.s"				Main includes
+		RsSet	DataLong
+;
+		Include	"CEqu.s"			1.34 Compiler 
+		Include	"WEqu.s"			amos.library 
+		Include "LEqu.s"			1.34 Compiler 
+;
diff --git a/extensions/Intuition-41.95/AMOS/equ.s b/extensions/Intuition-41.95/AMOS/equ.s
new file mode 100644
index 0000000..74e4772
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS/equ.s
@@ -0,0 +1,1883 @@
+
+ 
+*
+CDebug		set	0
+Switcher_Signal	equ	24
+*
+***********************************************************
+*
+*		AMOSPro EQUATES DEFINITION
+*
+*		By Francois Lionet
+*		AMOS (c) 1990-1992 Europress Software Ltd.
+*
+*		Last change 23/09/1992
+*
+***********************************************************
+*	This file contains all the equates of the AMOSPro
+* programs and extension.
+* Be patient, we will soon (I hope) publish informations
+* about the functions of the amos.library.
+***********************************************************
+* 	Only for multi-lingual readers: half english
+* half french. That's Europe!
+***********************************************************
+
+BFORM_ILBM	equ	%00000001
+BFORM_ACBM	equ	%00000010
+BFORM_ANIM	equ	%00000100
+BCHUNK_BMHD	equ	0
+BCHUNK_CAMG	equ	1
+BCHUNK_CMAP	equ	2
+BCHUNK_CCRT	equ	3
+BCHUNK_BODY	equ	4
+BCHUNK_AMSC	equ	5
+BCHUNK_ABIT	equ	6
+
+EntNul:		equ $80000000
+
+Circuits:	equ $dff000
+
+IntReq:		equ $9c
+IntEna:		equ $9a
+DmaCon:		equ $96
+DmaConR:	equ $02
+
+Color00:	equ $180
+VhPosR:		equ $6
+
+; Copper
+Cop1lc:		equ $80
+Cop2lc:		equ $84
+CopJmp1:	equ $88
+CopJmp2:	equ $8a
+
+; Souris
+CiaAprA:	equ $bfe001
+Joy0Dat:	equ $a
+Joy1Dat:	equ $c
+JoyTest:	equ $36
+PotGo:		equ $34
+PotGoR:		equ $16
+Pot0Dat:	equ $12
+Pot1Dat:	equ $14
+
+; Bitplanes
+BplCon0:	equ $100
+BplCon1:	equ $102
+BplCon2:	equ $104
+Bpl1PtH:	equ $0e0
+Bpl1PtL:	equ $0e2
+Bpl1Mod:	equ $108
+Bpl2Mod:	equ $10a
+DiwStrt:	equ $08e
+DiwStop:	equ $090
+DdfStrt:	equ $092
+DdfStop:	equ $094
+
+; Blitter
+BltSize:	equ $058
+BltAdA:		equ $050
+BltAdB:		equ $04c
+BltAdC:		equ $048
+BltAdD:		equ $054
+BltModA:	equ $064
+BltModB:	equ $062
+BltModC:	equ $060
+BltModD:	equ $066
+BltCon0:	equ $040
+BltCon1:	equ $042
+BltDatA:	equ $074
+BltDatB:	equ $072
+BltDatC:	equ $070
+BltDatD:	equ $000
+BltMaskG:	equ $044
+BltMaskD:	equ $046
+
+;-------------> Systeme
+		IFND	ExecBase
+ExecBase:	equ 4
+		ENDC
+StartList:	equ 38
+Forbid:		equ -132
+Permit:		equ -138
+OwnBlitter:	equ -30-426
+DisOwnBlitter:	equ -30-432
+WaitBlit:	equ -228
+OpenLib:	equ -552
+CloseLib:	equ -414
+AllocMem:	equ -198
+AvailMem:	equ -216
+FreeMem:	equ -210
+Chip:		equ $02
+Fast:		equ $04
+Clear:		equ $10000
+Public:		equ $01
+Total		equ $80000
+SetFunction:	equ -420
+CloseWB:	equ -78
+FindTask:	equ -294
+AddPort:	equ -354
+RemPort:	equ -360
+OpenDev:	equ -444
+CloseDev:	equ -450
+DoIO:		equ -456
+SendIO:		equ -462
+
+;-------------> Intuition
+OpenScreen:	equ -198
+CloseScreen:	equ -66
+ScreenToBack:	equ -$F6
+OpenWindow:	equ -204
+CloseWindow:	equ -72
+LoadView:	equ -$DE
+CUFLayer:	equ -36
+DelLayer:	equ -90
+
+;-------------> Graphic library
+InitRastPort:	equ -198
+InitTmpRas:	equ -$1d4
+TextLength:	equ -54
+Text:		equ -60
+SetFont:	equ -66
+OpenFont:	equ -72
+CloseFont:	equ -78
+AskSoftStyle:	equ -84
+SetSoftStyle:	equ -90
+RMove:		equ -240
+RDraw:		equ -246
+DrawEllipse:	equ -$b4
+AreaEllipse:	equ -$ba
+AreaMove:	equ -252
+AreaDraw:	equ -258
+AreaEnd:	equ -264
+InitArea:	equ -282
+RectFill:	equ -306
+ReadPixel:	equ -318
+WritePixel:	equ -324
+Flood:		equ -330
+PolyDraw:	equ -336
+ScrollRaster:	equ -396
+AskFont:	equ -474
+AddFont:	equ -480
+RemFont:	equ -486
+ClipBlit:	equ -552
+BltBitMap:	equ -30
+SetAPen:	equ -342
+SetBPen:	equ -348
+SetDrMd:	equ -354
+AvailFonts:	equ -$24
+OpenDiskFont	equ -$1e
+
+;-------------> Dos
+Input:		equ -54
+WaitChar:	equ -204
+Read:		equ -42
+
+Execall:	MACRO
+		move.l	$4.w,a6
+		jsr	\1(a6)
+		ENDM
+GfxCa5		MACRO
+		movem.l	d0/d1/a0/a1/a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0/d1/a0/a1/a6
+		ENDM
+
+*************** DOS
+DosCall		MACRO
+		move.l	a6,-(sp)
+		move.l	DosBase(a5),a6
+		jsr	\1(a6)
+		move.l	(sp)+,a6
+		ENDM
+DosOpen:	equ -30
+DosClose:	equ -36
+DosRead:	equ -42
+DosWrite:	equ -48
+DosSeek:	equ -66
+DosDel:		equ -72
+DosRen:		equ -78
+DosLock:	equ -84
+DosUnLock:	equ -90
+DosDupLock:	equ -96
+DosExam:	equ -102
+DosExNext:	equ -108
+Dosinfo:	equ -114
+DosMkDir:	equ -120
+DosCuDir:	equ -126
+DosIOErr:	equ -132
+DosDProc:	equ -174
+DosParent:	equ -210
+DosLoadSeg:	equ -150
+DosULoadSeg:	equ -156
+DosWChar:	equ -204
+
+*************** FLOAT
+SPFix:		equ -30
+SPFlt:		equ -36
+SPCmp:		equ -42
+SPTst:		equ -48
+SPAbs:		equ -54
+SPNeg:		equ -60
+SPAdd:		equ -66
+SPSub:		equ -72
+SPMul:		equ -78
+SPDiv:		equ -84
+SPFloor:	equ -90
+SPCeil:		equ -96
+
+SPATan:		equ -30
+SPSin:		equ -36
+SPCos:		equ -42
+SPTan:		equ -48
+SPSinCos:	equ -54
+SPSinH:		equ -60
+SPCosH:		equ -66
+SPTanH:		equ -72
+SPExp:		equ -78
+SPLog:		equ -84
+SPPow:		equ -90
+SPSqrt:		equ -96
+SPTIeee:	equ -102
+SPFIeee:	equ -108
+SPASin:		equ -114
+SPACos:		equ -120
+SPLog10:	equ -126
+
+*************** AMOS system library
+Inkey:		equ 0
+ClearKey:	equ 1
+Shifts:		equ 2
+Instant:	equ 3
+KeyMap:		equ 4
+Joy:		equ 5
+PutKey:		equ 6
+Hide:		equ 7
+Show:		equ 8
+ChangeM:	equ 9
+XyMou:		equ 10
+XyHard:		equ 11
+XyScr:		equ 12
+MouseKey:	equ 13
+SetM:		equ 14
+ScIn:		equ 15
+XyWin:		equ 16
+LimitM:		equ 17
+ZoHd:		equ 18
+ResZone:	equ 19
+RazZone:	equ 20
+SetZone:	equ 21
+GetZone:	equ 22
+WaitVbl:	equ 23
+SetHs:		equ 24
+USetHs:		equ 25
+SetFunk:	equ 26
+GetFunk:	equ 27
+AffHs:		equ 28
+SetSpBank:	equ 29
+NXYAHs:		equ 30
+XOffHs:		equ 31
+OffHs:		equ 32
+ActHs:		equ 33
+SBufHs:		equ 34
+StActHs:	equ 35
+ReActHs:	equ 36
+StoreM:		equ 37
+RecallM:	equ 38
+PriHs:		equ 39
+AMALTok:	equ 40
+AMALCre:	equ 41
+AMALMvO:	equ 42
+AMALDAll:	equ 43
+AMAL:		equ 44
+AMALReg:	equ 45
+AMALClr:	equ 46
+AMALFrz:	equ 47
+AMALUFrz:	equ 48
+SetBob:		equ 49
+OffBob:		equ 50
+OffBobS:	equ 51
+ActBob:		equ 52
+AffBob:		equ 53
+EffBob:		equ 54
+SyChip:		equ 55
+SyFast:		equ 56
+LimBob:		equ 57
+ZoGr:		equ 58
+SprGet:		equ 59
+MaskMk:		equ 60
+SpotHot:	equ 61
+ColBob:		equ 62
+ColGet:		equ 63
+ColSpr:		equ 64
+SetSync:	equ 65
+Synchro:	equ 66
+PlaySet:	equ 67
+XYBob:		equ 68
+XYSp:		equ 69
+PutBob:		equ 70
+Patch:		equ 71
+MouRel:		equ 72
+LimitMEc:	equ 73
+SyFree:		equ 74
+SetHCol:	equ 75
+GetHCol:	equ 76
+MovOn:		equ 77
+KeySpeed:	equ 78
+ChanA:		equ 79
+ChanM:		equ 80
+SPrio:		equ 81
+GetDisc:	equ 82
+RestartVBL	equ 83
+StopVBL		equ 84
+KeyWaiting	equ 85		(P) Une touche en attente?
+MouScrFront	equ 86		(P) Souris dans ecran de front
+
+SyCall:		MACRO
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalA:		MACRO
+		lea	\2,a1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+SyCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_SyVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+***********************************************************
+*		EQUATES BOBS
+		RsReset
+BbPrev:		rs.l 1
+BbNext:		rs.l 1
+BbNb:		rs.w 1
+BbAct:		rs.w 1
+BbX:		rs.w 1
+BbY:		rs.w 1
+BbI:		rs.w 1
+BbEc:		rs.l 1
+BbAAEc:		rs.l 1
+BbAData:	rs.l 1
+BbAMask:	rs.l 1
+BbNPlan:	rs.w 1
+BbAPlan:	rs.w 1
+BbASize:	rs.w 1
+BbAMaskG:	rs.w 1
+BbAMaskD:	rs.w 1
+BbTPlan:	rs.w 1
+BbTLigne:	rs.w 1
+BbAModO:	rs.w 1
+BbAModD:	rs.w 1
+BbACon:		rs.w 1
+BbACon0:	rs.w 1
+BbACon1:	rs.w 1
+BbADraw:	rs.l 1
+BbLimG:		rs.w 1
+BbLimD:		rs.w 1
+BbLimH:		rs.w 1
+BbLimB:		rs.w 1
+* Datas retournement des bobs
+BbARetour	rs.l 1
+BbRetour	rs.w 1
+* Datas decor
+BbDecor:	rs.w 1
+BbEff:		rs.w 1
+BbDCur1:	rs.w 1
+BbDCur2:	rs.w 1
+BbDCpt:		rs.w 1
+BbEMod:		rs.w 1
+BbECpt:		rs.w 1
+BbEAEc:		rs.w 1
+BbESize:	rs.w 1
+BbETPlan:	rs.w 1
+* Datas pour une sauvegarde de decor
+BbDABuf:	rs.l 1		* 0  Adresse buffer
+BbDLBuf:	rs.w 1		* 4  Longueur buffer
+BbDAEc:		rs.w 1		* 6  Decalage ecran
+BbDAPlan:	rs.l 1		* 8  Plans sauves
+BbDNPlan:	rs.l 1		* 12 Max plans
+BbDMod:		rs.w 1		* 16 Modulo ecran
+BbDASize:	rs.w 1		* 18 Taille blitter
+Decor:		equ 20		* 20 Taille totale
+* Datas pour seconde sauvegarde!
+		rs.l Decor
+BbLong:		equ __RS
+
+
+*************** AMOS Screen library
+
+BitHide:	equ 7
+BitClone:	equ 6
+BitDble:	equ 5
+EcMaxPlans	equ		6		;6 Plans pour le moment!
+
+		RsReset
+* Bitmap address
+EcLogic:	rs.l 6		* 
+EcPhysic	rs.l 6		* 
+EcCurrent:	rs.l 6		* 
+
+* Datas!
+EcCon0:		rs.w 1		* 
+EcCon2:		rs.w 1		* 
+EcTx:		rs.w 1		* 
+EcTy:		rs.w 1		* 
+EcNPlan:	rs.w 1		* 
+EcWX:		rs.w 1		* 
+EcWY:		rs.w 1		* 
+EcWTx:		rs.w 1		* 
+EcWTy:		rs.w 1		* 
+EcVX:		rs.w 1		* 
+EcVY:		rs.w 1		* 
+
+EcDEcran:	rs.l 1		* 
+EcColorMap	rs.w 1
+EcNbCol		rs.w 1
+EcPal		rs.w 32
+
+EcTPlan:	rs.l 1		* 
+EcWindow:	rs.l 1		* 
+EcTxM:		rs.w 1		* 
+EcTyM:		rs.w 1		* 
+EcTLigne:	rs.w 1		* 
+EcFlags:	rs.w 1		* 
+EcDual:		rs.w 1		* 
+EcWXr:		rs.w 1		* 
+EcWTxr:		rs.w 1		* 
+EcNumber:	rs.w 1		* 
+EcAuto:		rs.w 1		* 
+
+* Link with AMAL
+EcAW:		rs.w 1
+EcAWX:		rs.w 1
+EcAWY:		rs.w 1
+EcAWT:		rs.w 1
+EcAWTX:		rs.w 1
+EcAWTY:		rs.w 1
+EcAV:		rs.w 1
+EcAVX:		rs.w 1
+EcAVY:		rs.w 1
+* Zone table
+EcAZones:	rs.l 1
+EcNZones:	rs.w 1
+* Save the backgrountd for window
+EcWiDec:	rs.w 1
+* Graphic functions
+EcInkA:		rs.b 1
+EcInkB:		rs.b 1
+EcMode:		rs.b 1
+EcOutL:		rs.b 1
+EcLine:		rs.w 1
+EcCont:		rs.w 1
+EcX:		rs.w 1
+EcY:		rs.w 1
+EcPat:		rs.l 1
+EcPatL:		rs.w 1
+EcPatY:		rs.w 1
+EcClipX0:	rs.w 1
+EcClipY0:	rs.w 1
+EcClipX1:	rs.w 1
+EcClipY1:	rs.w 1
+EcFontFlag:	rs.w 1
+EcText:		rs.b 14 
+EcFInkA:	rs.b 1
+EcFInkB:	rs.b 1
+EcFInkC:	rs.b 1
+EcIInkA:	rs.b 1
+EcIInkB:	rs.b 1
+EcIInkC:	rs.b 1
+EcFPat:		rs.w 1
+EcIPat:		rs.w 1
+* Cursor saving
+EcCurS:		rs.b 8*6
+; Length of a screen
+EcLong:		equ __RS
+
+; Y Screen base
+EcYBase:	equ $1000
+EcYStrt:	equ EcYBase+26
+PalMax:		equ 16
+
+***********************************************************
+*		FUNCTIONS
+***********************************************************
+
+Raz:		equ 0
+CopMake:	equ 1
+*		equ 2
+Cree:		equ 3
+Del:		equ 4
+First:		equ 5
+Last:		equ 6
+Active:		equ 7
+CopForce:	equ 8
+AView:		equ 9
+OffSet:		equ 10
+Visible:	equ 11
+DelAll:		equ 12
+GCol:		equ 13
+SCol:		equ 14
+SPal:		equ 15
+SColB:		equ 16
+FlRaz:		equ 17
+Flash:		equ 18
+ShRaz:		equ 19
+Shift:		equ 20
+EHide:		equ 21
+CBlGet:		equ 22
+CBlPut:		equ 23
+CBlDel:		equ 24
+CBlRaz:		equ 25
+Libre:		equ 26
+CCloEc:		equ 27
+Current:	equ 28
+Double:		equ 29
+SwapSc:		equ 30
+SwapScS:	equ 31
+AdrEc:		equ 32
+SetDual:	equ 33
+PriDual:	equ 34
+ClsEc:		equ 35
+Pattern:	equ 36
+GFonts:		equ 37
+FFonts:		equ 38
+GFont:		equ 39
+SFont:		equ 40
+SetClip:	equ 41
+BlGet:		equ 42
+BlDel:		equ 43
+BlRaz:		equ 44
+BlPut:		equ 45
+VerSli:		equ 46
+HorSli:		equ 47
+SetSli:		equ 48
+MnStart:	equ 49
+MnStop:		equ 50
+RainDel:	equ 51
+RainSet:	equ 52
+RainDo:		equ 53
+RainHide:	equ 54
+RainVar:	equ 55
+FadeOn:		equ 56
+FadeOf:		equ 57
+CopOnOff:	equ 58
+CopReset:	equ 59
+CopSwap:	equ 60
+CopWait:	equ 61
+CopMove:	equ 62
+CopMoveL:	equ 63
+CopBase:	equ 64
+AutoBack1:	equ 65
+AutoBack2:	equ 66
+AutoBack3:	equ 67
+AutoBack4:	equ 68
+SuPaint:	equ 69
+BlRev:		equ 70
+DoRev:		equ 71
+AMOS_WB		equ 72
+ScCpyW		equ 73
+MaxRaw		equ 74
+AMOS_NTSC	equ 75
+
+EcCall:		MACRO
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalA:		MACRO
+		lea	\2,a1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+EcCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_EcVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+*************** AMOS Window library
+
+* Window structure
+WiPrev:		equ 0		
+WiNext:		equ WiPrev+4	
+WiFont:		equ WiNext+4	
+WiAdhg:		equ WiFont+4
+WiAdhgR:	equ WiAdhg+4
+WiAdhgI:	equ WiAdhgR+4
+WiAdCur:	equ WiAdhgI+4
+WiColor:	equ WiAdCur+4
+WiColFl:	equ WiColor+4*6
+
+WiX:		equ WiColFl+4*6
+WiY:		equ WiX+2
+WiTx:		equ WiY+2
+WiTy:		equ WiTx+2
+WiTyCar:	equ WiTy+2
+WiTLigne:	equ WiTyCar+2
+WiTxR:		equ WiTLigne+2
+WiTyR:		equ WiTxR+2
+WiDxI:		equ WiTyR+2
+WiDyI:		equ WiDxI+2
+WiTxI:		equ WiDyI+2
+WiTyI:		equ WiTxI+2
+WiDxR:		equ WiTyI+2
+WiDyR:		equ WiDxR+2
+WiFxR:		equ WiDyR+2
+WiFyR:		equ WiFxR+2
+WiTyP:		equ WiFyR+2
+WiDBuf:		equ WiTyP+2
+WiTBuf:		equ WiDBuf+4
+WiTxBuf:	equ WiTBuf+4
+
+WiPaper:	equ WiTxBuf+2
+WiPen:		equ WiPaper+2
+WiBorder:	equ WiPen+2
+WiFlags:	equ WiBorder+2
+WiGraph:	equ WiFlags+2
+WiNPlan:	equ WiGraph+2
+WiNumber:	equ WiNPlan+2
+WiSys:		equ WiNumber+2
+WiEsc:		equ WiSys+2
+WiEscPar:	equ WiEsc+2
+WiTab:		equ WiEscPar+2
+
+WiBord:		equ WiTab+2
+WiBorPap:	equ WiBord+2
+WiBorPen:	equ WiBorPap+2
+
+WiMx:		equ WiBorPen+2
+WiMy:		equ WiMx+2
+WiZoDx:		equ WiMy+2
+WiZoDy:		equ WiZoDx+2
+
+WiCuDraw:	equ WiZoDy+2
+WiCuCol:	equ WiCuDraw+8
+
+WiTitH:		equ WiCuCol+2
+WiTitB:		equ WiTitH+80
+WiLong:		equ WiTitB+80
+WiSAuto:	equ WiTitH
+
+***********************************************************
+*		WINDOW INSTRUCTIONS 
+***********************************************************
+ChrOut:		equ 0
+Print:		equ 1
+Centre:		equ 2
+WindOp:		equ 3
+Locate:		equ 4
+QWindow:	equ 5
+WinDel:		equ 6
+SBord:		equ 7
+STitle:		equ 8
+GAdr:		equ 9
+MoveWi:		equ 10
+ClsWi:		equ 11
+SizeWi:		equ 12
+SCurWi:		equ 13
+XYCuWi:		equ 14
+XGrWi:		equ 15
+YGrWi:		equ 16
+Print2		equ 17
+Print3		equ 18
+SXSYCuWi	equ 19
+	
+WiCall:		MACRO
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalA:		MACRO
+		lea	\2,a1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalD:		MACRO
+		moveq	#\2,d1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+WiCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	T_WiVect(a5),a0
+		jsr	\1*4(a0)
+		ENDM
+
+**************	Equates basic
+EcFonc:		equ 8
+EcEdit:		equ 9
+EcFsel:		equ 10
+EcReq:		equ 11
+
+EdTx:		equ 78
+
+EdBTT:		equ 512+256
+NbEnd:		equ 10
+EcEBase		equ 45
+DEBase		equ EcEBase+35-1
+SpEBase 	equ DEBase+25
+FkLong:		equ 26
+Shf:		equ %00000011
+Ctr:		equ %00001000
+Alt:		equ %00110000
+Ami:		equ %11000000
+
+***************	Menu definition
+		RsReset
+MnPrev:		rs.l 	1
+MnNext:		rs.l 	1
+MnLat:		rs.l	1
+MnNb:		rs.w	1
+MnFlag:		rs.w	1
+MnX:		rs.w	1
+MnY:		rs.w	1
+MnTx:		rs.w	1
+MnTy:		rs.w	1
+MnMX:		rs.w	1
+MnMY:		rs.w	1
+MnXX:		rs.w	1
+MnYY:		rs.w	1
+MnZone:		rs.w	1
+MnKFlag:	rs.b	1
+MnKAsc:		rs.b	1
+MnKSc:		rs.b 	1
+MnKSh:		rs.b	1
+* Menu objects
+MnObF:		rs.l	1
+MnOb1:		rs.l	1
+MnOb2:		rs.l	1
+MnOb3:		rs.l	1
+MnAdSave:	rs.l	1
+MnDatas:	rs.l	1
+MnLData:	rs.w 	1
+MnInkA1:	rs.b	1
+MnInkB1:	rs.b	1
+MnInkC1:	rs.b	1
+MnInkA2:	rs.b	1
+MnInkB2:	rs.b	1
+MnInkC2:	rs.b	1
+MnLong:		equ __RS
+
+* Flags
+MnFlat:		equ 	0
+MnFixed:	equ 	1
+MnSep:		equ 	2
+MnBar:		equ 	3
+MnOff:		equ 	4
+MnTotal:	equ 	5
+MnTBouge:	equ 	6
+MnBouge:	equ 	7
+
+*************** Test control bits 
+BitControl:	equ 	8
+BitMenu:	equ 	9
+BitJump:	equ 	10
+BitEvery:	equ 	11
+BitEcrans:	equ 	12
+BitBobs:	equ 	13
+BitSprites:	equ 	14
+BitVBL:		equ 	15
+
+; __________________________________
+;
+; 	Definition d'un slider
+; __________________________________
+;
+Sl_FlagVertical	equ 	0
+		RsReset
+; Variables positionnement
+Sl_Sx		rs.w	1
+Sl_Sy		rs.w	1
+Sl_Global	rs.w	1
+Sl_Position	rs.w	1
+Sl_Window	rs.w	1
+Sl_X		rs.w	1
+Sl_Y		rs.w	1
+Sl_ZDx		rs.w	1
+Sl_ZDy		rs.w	1
+; Variables fonctionnement
+Sl_Flags	rs.w	1
+Sl_Start	rs.w	1
+Sl_Size		rs.w	1
+Sl_Scroll	rs.w	1
+Sl_Mouse1	rs.w	1
+Sl_Mouse2	rs.w	1
+Sl_Zone		rs.w	1
+Sl_Routines	rs.l	1
+; Encres
+Sl_Inactive	rs.w	3+3+2
+Sl_Active	rs.w	3+3+2
+Sl_Long		equ	__RS
+; __________________________________
+;
+; 	Definition d'un bouton
+; __________________________________
+;
+Bt_FlagNew	equ	0
+Bt_FlagNoWait	equ	1
+Bt_FlagOnOf	equ	2
+		RsReset
+Bt_Number	rs.w	1
+Bt_X		rs.w	1
+Bt_Y		rs.w	1
+Bt_Image	rs.w	1
+Bt_Zone		rs.w	1
+Bt_Pos		rs.w	1
+Bt_Routines	rs.l	1
+Bt_Dx		rs.b	1
+Bt_Dy		rs.b	1
+Bt_Sx		rs.b	1
+Bt_Sy		rs.b	1
+Bt_RDraw	rs.b	1
+Bt_RChange	rs.b	1
+Bt_RPos		rs.b	1
+Bt_Flags	rs.b	1
+Bt_Long		equ	__RS
+
+; ___________________________________
+;
+; 	BITMAP PACKER/UNPACKER
+; ___________________________________
+
+; Packed screen header
+		RsReset
+PsCode		rs.l 1
+PsTx		rs.w 1
+PsTy		rs.w 1
+PsAWx		rs.w 1
+PsAWy		rs.w 1
+PsAWTx		rs.w 1
+PsAWTy		rs.w 1
+PsAVx		rs.w 1
+PsAVy		rs.w 1
+PsCon0		rs.w 1
+PsNbCol		rs.w 1
+PsNPlan		rs.w 1
+PsPal		rs.w 32
+PsLong		equ __RS
+SCCode		equ $12031990
+; Packed bitmap header
+; ~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Pkcode   	rs.l 1
+Pkdx     	rs.w 1
+Pkdy     	rs.w 1
+Pktx     	rs.w 1
+Pkty     	rs.w 1
+Pktcar   	rs.w 1
+Pknplan		rs.w 1
+PkDatas2 	rs.l 1
+PkPoint2 	rs.l 1
+PkLong  	equ __RS
+PkDatas1	equ __RS
+BMCode		equ $06071963
+
+; ______________________________________________________________________________
+;
+;		EDITEUR LIGNE
+;
+		RsReset
+LEd_Buffer	rs.l	1
+LEd_Start	rs.w	1
+LEd_Large	rs.w	1
+LEd_Max		rs.w	1
+LEd_Long	rs.w	1
+LEd_Cur		rs.w	1
+LEd_X		rs.w	1
+LEd_Y		rs.w	1
+LEd_Screen	rs.w	1
+LEd_Flags	rs.w	1
+LEd_Mask	rs.l	3
+LEd_Size	equ	__RS
+LEd_FKeys	equ	0
+LEd_FOnce	equ	1
+LEd_FCursor	equ	2
+LEd_FFilter	equ	3
+LEd_FMouse	equ	4
+LEd_FTests	equ	5
+LEd_FMulti	equ	6
+LEd_FMouCur	equ	7
+
+; _____________________________________________________________________________
+; 
+; 	GESTION DES DIALOGUES
+; 
+
+; __________________________________________
+;
+;	Base de la zone de dialogue
+;
+		RsReset
+Dia_Channel	rs.l	1
+Dia_NVar	rs.l	1
+Dia_Sp		rs.l	1
+Dia_Screen	rs.l	1
+Dia_ScreenNb	rs.w	1
+Dia_ScreenOld	rs.w	1
+Dia_WindOld	rs.w	1
+Dia_WindOn	rs.w	1
+Dia_Programs	rs.l	1
+Dia_ProgLong	rs.l	1
+Dia_Labels	rs.l	1
+Dia_Messages	rs.l	1
+Dia_ABuffer	rs.l	1
+Dia_PBuffer	rs.l	1
+Dia_Buffer	rs.l	1
+Dia_Pile	rs.l	1
+Dia_PUsers	rs.l	1
+Dia_NPUsers	rs.w	1
+Dia_Users	rs.w	1
+Dia_Edited	rs.l	1
+Dia_Timer	rs.l	1
+Dia_TimerPos	rs.l	1
+Dia_LastZone	rs.l	1
+Dia_NextZone	rs.l	1
+Dia_Release	rs.l	1
+Dia_BaseX	rs.l	1
+Dia_BaseY	rs.l	1
+Dia_Sx		rs.l	1
+Dia_Sy		rs.l	1
+Dia_XA		rs.w	1
+Dia_YA		rs.w	1
+Dia_XB		rs.w	1
+Dia_YB		rs.w	1
+Dia_Puzzle	rs.l	1
+Dia_PuzzleSx	rs.l	1
+Dia_PuzzleSy	rs.l	1
+Dia_PuzzleI	rs.l	1
+Dia_LastKey	rs.l	1
+Dia_Error	rs.w	1
+Dia_ErrorPos	rs.w	1
+Dia_Return	rs.w	1
+Dia_Exit	rs.w	1
+Dia_Writing	rs.w	1
+Dia_RFlags	rs.b	1
+Dia_Flags	rs.b	1
+Dia_SlDefault	rs.b	16
+		rs.l	4
+Dia_Vars	equ	__RS
+Dia_Source	equ	Dia_LastKey
+Dia_FSource	equ	Dia_Edited
+
+; Entete d'une zone active
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+Dia_Ln		rs.w	1		;0 Long
+Dia_Id		rs.w	1		;2 Id
+Dia_ZoId	rs.w	1		;4 ZoId
+Dia_ZoX		rs.w	1		;6 ZoX
+Dia_ZoY		rs.w	1		;8 ZoY
+Dia_ZoSx	rs.w	1		;10 ZoSx
+Dia_ZoSy	rs.w	1		;12 ZoSy
+Dia_ZoNumber	rs.w	1		;14 ZoNumber
+Dia_ZoRChange	rs.w	1		;16 Routine change
+Dia_ZoPos	rs.l	1		;18 Position
+Dia_ZoVar	rs.l	1		;22 Variable interne
+Dia_ZoFlags	rs.b	1		;26
+		rs.b	1
+Dia_ZoLong	equ	__RS
+; Entete d'un bouton dialogue
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	;Entete zone active
+Dia_BtRDraw	rs.w	1
+Dia_BtRChange	rs.w	1
+Dia_BtMin	rs.w	1
+Dia_BtMax	rs.w	1
+Dia_BtLong	equ	__RS
+; Entete d'une ligne d'edition
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	;Entete zone active
+Dia_LEd		rs.b	LEd_Size
+Dia_EdLong	equ	__RS
+Dia_DiValue	rs.l	1
+Dia_DiBuffer	rs.b	16
+Dia_DiLong	equ	__RS
+; Entete d'une liste active
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	;Entete zone active
+Dia_LiTx	rs.w	1
+Dia_LiTy	rs.w	1
+Dia_LiPos	rs.w	1
+Dia_LiMaxAct	rs.w	1
+Dia_LiArray	rs.l	1
+Dia_LiLArray	rs.w	1
+Dia_LiActNumber	rs.w	1
+Dia_LiLong	equ	__RS
+; Entete d'un texte actif
+; ~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	;Entete zone active
+Dia_TxTx	rs.w	1
+Dia_TxTy	rs.w	1
+Dia_TxPos	rs.w	1
+Dia_TxNLine	rs.w	1
+Dia_TxText	rs.l	1
+Dia_TxDisplay	rs.l	1
+Dia_TxDispSize	rs.w	1
+Dia_TxDispMax	rs.w	1
+Dia_TxAdress	rs.l	1
+Dia_TxAct	rs.l	1
+Dia_TxYAct	rs.w	1
+Dia_TxPen	rs.b	1
+Dia_TxPaper	rs.b	1
+Dia_TxPp	rs.b	8
+Dia_TxBuffer	rs.b	64
+Dia_TxBufferEnd	equ	__RS
+Dia_TxLong	equ	__RS
+; Definition des zones actives
+Dia_TxDispZone	equ	8
+
+; Entete d'un slider
+; ~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.b	Dia_ZoLong	;Entete zone active
+Dia_Sl		rs.b	Sl_Long		;Donn�es gestion slider
+Dia_SlLong	equ	__RS
+; Entete d'une definition de touche
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.w	2
+Dia_KyCode	rs.b	1
+Dia_KyShift	rs.b	1
+Dia_KyZone	rs.l	1
+Dia_KyLong	equ	__RS
+; Entete d'une sauvegarde de block
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+		RsReset
+		rs.w	2
+Dia_BlNumber	rs.w	1
+Dia_BlLong	equ	__RS
+; Marques de reconnaissance
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+Dia_BtMark	equ	"Bt"
+Dia_StMark	equ	"St"
+Dia_EdMark	equ	"Ed"
+Dia_KyMark	equ	"Ky"
+Dia_BlMark	equ	"Bl"
+Dia_ZoMark	equ	"Zo"
+Dia_SlMark	equ	"Sl"
+Dia_LiMark	equ	"Li"
+Dia_TxMark	equ	"Tx"
+Dia_TaMark	equ	"Ta"
+Dia_TdMark	equ	"Td"
+; Numero des messages d'erreur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EDia_Syntax	equ	1
+EDia_OMem	equ	2
+EDia_LabAD	equ	3
+EDia_LabND	equ	4
+EDia_ChanAD	equ	5
+EDia_ChanND	equ	6
+EDia_Screen	equ	7
+EDia_VarND	equ	8
+EDia_FCall	equ	9
+EDia_Type	equ	10
+EDia_OBuffer	equ	11
+EDia_NPar	equ	12
+
+***************************************************************
+*		Interpretor datas zone
+*		Pointed to by A5
+***************************************************************
+
+		RsReset
+
+;		VBL Routines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~ 
+VblRout:	rs.l 	8
+
+;		Extensions
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+AdTokens:	rs.l 	27		
+AdTTokens:	rs.l 	27
+ExtAdr:		rs.l 	26*4
+ExtTests:	rs.l 	8
+
+; 		Adresses Kickstart
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DosBase:	rs.l 	1
+DFloatBase	rs.l	1
+DMathBase	rs.l	1
+FloatBase:	rs.l	1
+MathBase:	rs.l 	1
+IconBase:	rs.l 	1
+
+; 		Donn�es systeme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Sys_AData	rs.l	1
+Sys_LData	rs.l	1
+Sys_Message	rs.l	1
+Sys_WAd		rs.l	1
+Sys_WSegment	rs.l	1
+Sys_Messages	rs.l	1
+Sys_Banks	rs.l	1
+Sys_Stopped	rs.l	1
+Sys_MyTask	rs.l	1
+Sys_OldName	rs.l	1
+Sys_Editor	rs.l	1
+Sys_Monitor	rs.l	1
+Sys_Resource	rs.l	1
+Sys_WStarted	rs.b	1
+		rs.b	1
+Sys_Pathname	rs.b	80
+
+Mon_Base	rs.l	1
+Prg_List	rs.l	1
+Prg_Runned	rs.l	1
+
+;		Graphics
+; ~~~~~~~~~~~~~~~~~~~~~~
+AAreaSize:	equ 	16
+AAreaInfo:	rs.b 	24
+AAreaBuf:	rs.b 	AAreaSize*5+10
+		rs.b 	16
+ATmpRas:	rs.l 	2
+AppNPlan	rs.w 	1
+SccEcO:		rs.l 	1
+SccEcD:		rs.l 	1
+
+;		File selector
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+FsAdEc:		rs.l 1
+FsOldEc		rs.w 1
+FsFlag:		rs.w 1
+FsActive:	rs.w 1
+FsPosF:		rs.w 1
+FsIFlag:	rs.w 1
+FsLPath:	rs.w 1
+FsLPath1:	rs.w 1
+FsCPath:	rs.w 1
+FsLNom:		rs.w 1
+FsCNom:		rs.w 1
+FsWiAct:	rs.w 1
+FsSp:		rs.l 1
+WB2.0:		rs.w 1
+Fs_Base		rs.l	1
+Fs_Saved	rs.l	1
+Fs_SaveList	rs.l	1
+		rs.b	1
+FillFSorted	rs.b	1
+
+;		Editor
+; ~~~~~~~~~~~~~~~~~~~~
+BasSp:		rs.l 	1	
+		rs.w 	1		
+ColBack:	rs.w 	1
+DefFlag:	rs.w 	1	
+
+;		Float
+; ~~~~~~~~~~~~~~~~~~~
+BuFloat:	rs.b 	64
+DeFloat:	rs.b 	32
+TempFl:		rs.l 	1
+TempBuf:	rs.l 	1
+ValPi:		rs.l 	1
+Val180:		rs.l 	1
+
+;		Disque I/O
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+IffParam:	rs.l 	1
+IffFlag:	rs.l 	1
+IffReturn	rs.l 	1
+BufFillF:	rs.l 	1
+FillFLong:	rs.w 	1
+FillFSize:	rs.w 	1
+FillFNb:	rs.w 	1
+FillF32:	rs.w 	1
+DirLong:	rs.l 	1
+DirComp:	rs.w 	1
+DirLNom:	rs.w 	1	
+PathAct:	rs.l 	1
+DirFNeg:	rs.l 	1	
+BufBMHD:	rs.l 	1
+BufCMAP:	rs.l 	1
+BufCAMG:	rs.l 	1
+BufCCRT:	rs.l 	1
+BufAMSC:	rs.l 	1
+
+; 		Tokenisation / Stockage
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+TkAd:		rs.l 	1	
+TkChCar:	rs.w 	1	
+VerPos:		rs.l 	1	
+VerBase:	rs.l 	1	
+VerNInst	rs.l	1
+VerNot1.3	rs.b	1
+VerCheck1.3	rs.b	1
+Parenth:	rs.w 	1	
+WBench		rs.b	1
+WB_Closed	rs.b	1
+
+TBuffer:	equ 	1024	
+TMenage:	equ 	160*10-64
+Buffer:		rs.l 	1	
+BMenage:	rs.l 	1
+
+LimSave:	rs.w 	4
+FsLimSave:	rs.w 	4
+Name1:		rs.l 	1	
+Name2:		rs.l 	1
+
+Access:		rs.l 	1		
+AcLdTemp:	rs.l 	1
+AccFlag:	rs.w 	1
+
+RasAd:		rs.l 	1		
+RasLong:	rs.l 	1
+RasSize:	rs.w 	1
+RasLock:	rs.l 	1
+ScOn:		rs.w 	1
+ScOnAd:		rs.l 	1
+BufBob:		rs.l 	1
+BufLabel:	rs.l 	1
+LMouse:		rs.l 	1
+VBLOCount:	rs.w 	1
+VBLDelai:	rs.w 	1
+SScan:		rs.w 	1
+Seed:		rs.l 	1
+OldRnd:		rs.l 	1
+PAmalE:		rs.w 	1
+ReqSave:	rs.l 	1
+ReqSSave:	rs.l 	1
+SNoFlip:	rs.w 	1
+LockSave:	rs.l 	1
+Handle:		rs.l 	1
+PrtHandle:	rs.l 	1
+PosFillF:	rs.w 	1
+TempBuffer	rs.l 	1
+
+;		Canaux d'animation
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+AnCanaux:	rs.w 64
+InterOff:	rs.w 1
+
+; ____________________________________________________________________________
+;
+;							VARIABLES RUN-TIME
+; ____________________________________________________________________________
+;
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;					Debut de la zone poussee par PRUN
+;
+DebSave:	equ __RS
+
+;		Adresse de la liste de Banques/Dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Cur_Banks	rs.l 	1
+Cur_Dialogs	rs.l	1
+Cur_ChrJump	rs.l	1
+
+; 		Donnnes du programme
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Stack_ProcSize	equ	42
+Stack_Size	rs.w 	1
+Stack_CSize	rs.w 	1
+Prg_Source	rs.l 	1
+Prg_FullSource	rs.l	1
+Prg_Includes	rs.l	1
+Prg_Run		rs.l	1
+Prg_Test	rs.l	1
+Prg_JError	rs.l	1
+Prg_ChrGet	rs.l	1
+
+; 		Verification / Buffers
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Passe:		rs.w 1
+VarBuf:		rs.l 1		
+VarBufL:	rs.l 1		
+VarBufFlg:	rs.w 1		
+LabHaut:	rs.l 1		
+LabBas:		rs.l 1
+LabMini:	rs.l 1
+DVNmBas:	rs.l 1		
+DVNmHaut:	rs.l 1
+VNmLong:	rs.l 1
+VNmHaut:	rs.l 1
+VNmBas:		rs.l 1
+VNmMini:	rs.l 1
+VDLigne:	rs.l 1
+BaTablA:	rs.l 1		
+HoTablA:	rs.l 1
+VarLong:	rs.w 1
+GloLong:	rs.w 1
+VarGlo:		rs.l 1
+VarLoc:		rs.l 1
+TabBas:		rs.l 1
+ChVide:		rs.l 1
+LoChaine:	rs.l 1		
+HiChaine:	rs.l 1		
+HoLoop:		rs.l 1
+BaLoop:		rs.l 1
+
+;		Donnees RUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~
+PLoop:		rs.l 1
+MinLoop:	rs.l 1
+BasA3:		rs.l 1
+ErrRet:		rs.l 1		
+ErrRAd:		rs.l 1
+Phase:		rs.w 1
+DTablA:		rs.l 1
+CurTablA:	rs.l 1
+PDebug:		rs.l 1
+		rs.b 1
+		rs.b 1
+ActuMask:	rs.w 1		
+IffMask:	rs.l 1
+ExpFlg:		rs.w 1
+FixFlg:		rs.w 1
+
+; 		DEVICES / LIBRARIES
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Dev_Max		equ	7
+Dev_List	rs.b	12*Dev_Max
+Lib_Max		equ	7
+Lib_List	rs.l	4*Lib_Max
+
+; 		MENUS
+; ~~~~~~~~~~~~~~~~~~~
+MnNDim:		equ 8
+Mn_SSave	equ	__RS		;Debut du flip de l'editeur
+MnBase:		rs.l 	1		;~~~~~~~~~~~~~~~~~~~~~~~~~~
+MnBaseX:	rs.w 	1
+MnBaseY:	rs.w 	1
+MnChange:	rs.w 	1
+MnMouse:	rs.w 	1
+MnError:	rs.w 	1
+MnAdEc:		rs.l 	1
+MnScOn:		rs.w 	1
+MgFlags:	rs.w 	1
+MnNZone:	rs.w 	1
+MnZoAct:	rs.w	1
+MnAct:		rs.l	1
+MnTDraw:	rs.l	1
+MnTable:	rs.l 	MnNDim+1
+MnChoix:	rs.w 	MnNDim
+MnDFlags:	rs.b 	MnNDim
+MnDAd:		rs.l 	1
+MnProc:		rs.w 	1
+Mn_ESave	equ	__RS		;Fin du flip editeur
+MnRA3:		rs.l 	1		;~~~~~~~~~~~~~~~~~~~
+MnRA4:		rs.l 	1
+MnPile:		rs.l 	1
+OMnBase:	rs.l 	1
+OMnNb:		rs.w 	1
+OMnType:	rs.w	1
+
+;		Def Scroll
+; ~~~~~~~~~~~~~~~~~~~~~~~~
+DScrolls:	rs.w 6*16
+
+; 		Dialogues
+; ~~~~~~~~~~~~~~~~~~~~~~~
+IDia_BankPuzzle	rs.l	1
+IDia_Error	rs.l	1
+
+;		Patch monitor
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Patch_ScCopy	rs.l	1
+Patch_ScFront	rs.l	1
+Patch_Errors	rs.l	1
+Patch_Menage	rs.l	1
+Mon_Here	rs.b	1
+		rs.b	1
+
+; 		Fichiers
+; ~~~~~~~~~~~~~~~~~~~~~~
+FhA:		equ 0
+FhT:		equ 4
+FhF:		equ 6
+TFiche:		equ 10
+NFiche:		equ 10
+ChrInp:		rs.w 1
+Fichiers:	rs.b TFiche*NFiche
+
+; 		AREXX
+; ~~~~~~~~~~~~~~~~~~~
+Arx_Port	rs.l	1
+Arx_Base	rs.l	1
+Arx_Answer	rs.l	1
+Arx_PortName	rs.b	32
+
+;		Every
+; ~~~~~~~~~~~~~~~~~~~
+EveType:	rs.w 	1
+EveLabel:	rs.l 	1
+EveCharge:	rs.w 	1
+
+;		Miscellenous
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~
+BuffSize:	rs.l 	1
+AdrIcon:	rs.l 	1
+DefPal:		rs.w 	32
+DBugge		rs.l 	1
+CallAd:		rs.l 	1
+
+; 		Donn�es t�l�commande
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Prg_Accessory	rs.b	1 
+Ed_Zappeuse	rs.b	1
+
+;		Variables mises � zero par un RUN 
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+DebRaz:		equ 	__RS
+PrintFlg:	rs.w 	1
+PrintPos:	rs.l 	1
+PrinType:	rs.w 	1
+PrintFile:	rs.l 	1
+UsingFlg:	rs.w 	1
+ImpFlg:		rs.w 	1
+ParamE:		rs.l 	1
+ParamF:		rs.l 	1
+ParamC:		rs.l 	1
+InputFlg:	rs.w 	1
+ContFlg:	rs.w 	1
+ContChr:	rs.l 	1
+ErrorOn:	rs.w 	1
+ErrorChr:	rs.l 	1
+OnErrLine:	rs.l 	1
+TrapAdr		rs.l	1
+TrapErr		rs.w	1
+TVMax:		rs.w 	1
+DProc:		rs.l 	1
+AData:		rs.l 	1
+PData:		rs.l 	1
+MenA4:		rs.l 	1
+LockOld:	rs.l 	1
+MnChoice:	rs.w 	1
+Angle:		rs.w 	1
+DMathFlag:	rs.b	1
+Ed_YaUTest	rs.b	1
+CallReg:	rs.l 	8+7
+FinRaz:		equ 	__RS
+FinSave:	equ 	__RS
+;		Fin de la zone pousse par PRUN
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+;             	Donn�es de Configuration Interpr�teur
+;
+PI_Start	equ	__RS
+; Initialisation de la trappe
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_ParaTrap	rs.l	1		;0 - Adresse actualisation
+PI_AdMouse	rs.l	1		;4 - Adresse souris
+		rs.w	1		;8 - Nombre de bobs
+		rs.w	1		;10- Position par defaut ecran!!
+		rs.l	1		;12- Taille liste copper
+		rs.l	1		;16- Nombre lignes sprites
+; Taille des buffers 
+; ~~~~~~~~~~~~~~~~~~
+PI_VNmMax	rs.l	1		;20- Buffer des noms de variable
+PI_TVDirect	rs.w	1		;24- Variables mode direct
+PI_DefSize	rs.l	1		;26- Taille buffer par defaut
+; Directory
+; ~~~~~~~~~
+PI_DirSize	rs.w	1		;30- Taille nom directory
+PI_DirMax	rs.w	1		;32- Nombre max de noms
+; Faire carriage return lors de PRINT?
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+PI_PrtRet	rs.b	1		;34- Return lors de 10
+; Faire des icones?
+; ~~~~~~~~~~~~~~~~~
+PI_Icons	rs.b	1		;35- Faire de icones
+; Autoclose workbench?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_AutoWB	rs.b	1		;36- Fermer automatiquement
+PI_AllowWB	rs.b	1		;37- Close Workbench effective?
+; Close editor?
+; ~~~~~~~~~~~~~~~~~~~~
+PI_CloseEd	rs.b	1		;38- Autoriser fermeture
+PI_KillEd	rs.b	1		;39- Autoriser fermeture
+PI_FsSort	rs.b	1		;40- Sort files
+PI_FsSize	rs.b	1		;41- Size of files
+PI_FsStore	rs.b	1		;42- Store directories
+; Securite flags
+; ~~~~~~~~~~~~~~
+		rs.b	1		;43- Flag libre
+		rs.b	4		;44- 4 flags libres!
+; Text reader
+; ~~~~~~~~~~~
+PI_RtSx		rs.w	1		;48- Taille X ecran Readtext
+PI_RtSy		rs.w	1		;50- Taille Y ecran Readtext
+PI_RtWx		rs.w	1		;52- Position X
+PI_RtWy		rs.w	1		;54- Position Y
+PI_RtSpeed	rs.w	1		;56- Vitesse apparition
+; File selector
+; ~~~~~~~~~~~~
+PI_FsDSx	rs.w	1		;58- Taille X fsel
+PI_FsDSy	rs.w	1		;60- Taille Y fsel
+PI_FsDWx	rs.w	1		;62- Position X
+PI_FsDWy	rs.w	1		;64- Position Y
+PI_FsDVApp	rs.w	1		;66- Vitesse app
+; Ecran par defaut
+; ~~~~~~~~~~~~~~~~
+PI_DefETx	rs.w	1
+PI_DefETy	rs.w	1
+PI_DefECo	rs.w	1
+PI_DefECoN	rs.w	1
+PI_DefEMo	rs.w	1
+PI_DefEBa	rs.w	1
+PI_DefEPa	rs.w	32
+		rs.l	8		;Pour extension!
+;
+;		Fin de la zone configuration interpreteur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+; __________________________
+;
+; 		Mode Escape
+; __________________________
+;
+Esc_TFonc	rs.l 	1
+Esc_Buf		rs.l 	1		
+Esc_KMem	rs.l	1
+Esc_KMemPos	rs.l	1
+Direct		rs.w 	1
+DirFlag		rs.w 	1
+EsFlag		rs.w 	1
+Es_LEd		rs.b	LEd_Size
+; _______________________
+;
+; 		Editeur
+; _______________________
+;
+
+; Pointeurs sur zones de chaines
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_ConfigHead	equ	"ApCf"
+Ed_QuitHead	equ	"ApLC"
+
+; Adresse des elements de configuration
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_Config	rs.l	1
+Ed_Systeme	rs.l	1		;Ne pas changer l'ordre
+EdM_Messages	rs.l	1
+Ed_Messages	rs.l	1
+Ed_TstMessages	rs.l	1
+Ed_RunMessages	rs.l	1
+Ed_MnPrograms	rs.l	1
+EdM_User	rs.l	1
+EdM_Definition	rs.l	1
+
+
+; Donn�es normales
+; ~~~~~~~~~~~~~~~~
+Ed_Banks	rs.l	1
+Ed_Dialogs	rs.l	1
+
+Edt_List	rs.l	1
+Edt_Current	rs.l	1
+Edt_Runned	rs.l	1
+
+Ed_Prg2ReLoad	rs.l	1
+Ed_BankGrab	rs.w 	1
+Ed_BankFlag	rs.w 	1
+Ed_ZapCounter	rs.w	1
+Ed_ZapError	rs.w	1
+Ed_ZapMessage	rs.l	1
+Ed_ZapParam	rs.l	1
+Ed_ADialogues	rs.l	1
+Ed_VDialogues	rs.l	1
+Ed_DiaCopyD	rs.l	1
+Ed_DiaCopyC	rs.l	1
+
+EdMa_Changed	rs.b	1
+Ed_FUndo	rs.b	1
+Ed_SCallFlags	rs.b	1
+EdC_Changed	rs.b	1
+
+EdMa_Head	equ	"ApMa"
+EdMa_List	rs.l	1
+EdMa_Play	rs.l	1
+EdMa_Tape	rs.w	1
+EdMa_Change	rs.b	1
+Ed_CuFlag	rs.b	1
+
+Ed_AutoSaveRef	rs.l	1
+Ed_Avert	rs.w	1
+
+Ed_Ty		rs.w	1
+Ed_Block	rs.l	1
+Ed_BufE:	rs.l 	1	
+Ed_BufT:	rs.l 	1		
+Ed_WindowToDel	rs.l	1
+Ed_EtCps	rs.b 	1
+Ed_EtatAff	rs.b	1
+Ed_EtXX		rs.b	8	
+Ed_EtOCps	rs.b 	1
+EdC_Modified	rs.b	1
+Ed_MemoryX	rs.w	1
+Ed_MemorySx	rs.w	1
+
+Ed_Resource	rs.l	1
+
+Ed_ExtTitles	rs.l	26
+
+Ed_MKey		rs.b	1
+Ed_MkFl		rs.b	1
+Ed_MkIns	rs.b	1
+Ed_OMKey	rs.b	1
+Ed_BigView	rs.b	1
+Ed_LinkTokCur	rs.b	1
+
+Ed_MkCpt	rs.w	1
+Ed_WMax		rs.w	1
+Ed_SchLong	rs.b	1
+Ed_RepLong	rs.b 	1
+Ed_Opened	rs.b	1
+Ed_TstMesOn	rs.b	1
+
+Ed_NoAff	rs.b	1	
+Ed_Warm		rs.b	1
+Ed_Disk		rs.w	1
+Ed_FSel		rs.w	1
+
+Ed_SchBuf	rs.b 	34
+Ed_RepBuf	rs.b 	34
+
+EdM_Table	rs.l	1
+EdM_TableSize	rs.l	1
+EdM_TableAMOS	rs.l	1
+EdM_MenuAMOS	rs.l	1
+EdM_MessAMOS	rs.l	1
+EdM_PosHidden	rs.w	1
+EdM_Flag	rs.b	1
+		rs.b	1
+
+EdM_Copie	rs.b	Mn_ESave-Mn_SSave
+Ed_Boutons	rs.b	Bt_Long*14
+
+SlDelai		equ 	10		
+
+* ILLEGAL � enlever
+EdMarks:	equ 	__RS
+
+; Zone de sauvegarde de la config Editeur
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+Ed_DConfig	equ	__RS
+; Screen definition
+Ed_Sx		rs.w	1		
+Ed_Sy		rs.w	1
+Ed_Wx		rs.w	1
+Ed_Wy		rs.w	1
+Ed_VScrol	rs.w	1
+Ed_Inter	rs.b	1
+		rs.b	1
+; Colour back
+Ed_ColB		rs.w	1
+; Length UNDO
+Ed_LUndo	rs.l	1	
+Ed_NUndo	rs.l	1
+; Untok case
+DtkMaj1		rs.b	1	
+DtkMaj2		rs.b	1
+; Flags
+Ed_SvBak	rs.b	1
+EdM_Keys	rs.b	1
+Esc_KMemMax	rs.w	1
+; Colour palette
+Ed_Palette	rs.w	8
+; Escape mode positions
+Es_Y1		rs.w	1
+Es_Y2		rs.w	1
+; Security!
+		rs.l	7
+; Flags change within the editor
+Ed_AutoSave	rs.l	1	
+Ed_AutoSaveMn	rs.l	1	
+Ed_SchMode	rs.w 	1	
+Ed_Tabs		rs.w	1
+Esc_Output	rs.b	1
+Ed_QuitFlags	rs.b	1
+Ed_Insert	rs.b	1
+Ed_Sounds	rs.b	1
+
+; Programmes autoload
+; ~~~~~~~~~~~~~~~~~~~
+Ed_AutoLoad	rs.b	3*184
+; Touches par defaut
+; ~~~~~~~~~~~~~~~~~~
+Ed_KFonc	rs.b	3*184
+		rs.b	2
+Ed_FConfig	equ	__RS
+
+; Find de la config editeur		
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+********************************* Total data length
+DataLong:	equ __RS
+
+;	Flags banques
+; ~~~~~~~~~~~~~~~~~~~
+Bnk_BitData	equ	0		;Banque de data
+Bnk_BitChip	equ	1		;Banque en chip
+Bnk_BitBob	equ	2		;Banque de Bobs
+Bnk_BitIcon	equ	3		;Banque d'icons
+
+; _____________________________________________________________________________
+;
+;				 	D�finition d'un programme
+; _____________________________________________________________________________
+;
+
+		RsReset
+
+Prg_Next	rs.l	1		;Prochain dans la liste
+
+Prg_NLigne:	rs.w 	1		;Nombre de lignes
+
+Prg_StMini	rs.l	1		;Buffer de stockage
+Prg_StTTexte	rs.l 	1	
+Prg_StHaut	rs.l 	1	
+Prg_StBas	rs.l 	1
+Prg_Banks	rs.l	1
+Prg_Dialogs	rs.l	1
+Prg_StModif	rs.b 	1		;Listing modifie
+Prg_Change	rs.b	1		;Sauver le programme
+Prg_Edited	rs.b	1		;Une fenetre?
+Prg_NoNamed	rs.b	1		;Numero de la structure
+Prg_Not1.3	rs.b	1		;Compatible 1.3?
+		rs.b	1
+
+Prg_Previous	rs.l	1		;Programme precedent
+Prg_RunData	rs.l	1		;Donn�e si PRUN
+Prg_ZapData	rs.l	1
+Prg_AdEProc	rs.l 	1		;Procedure d'erreur
+Prg_XEProc	rs.w 	1
+
+Prg_Undo	rs.l	1		;Buffer undo
+Prg_PUndo	rs.l	1		;Position dans buffer
+Prg_Marks	rs.l 	10		
+
+Prg_NamePrg	rs.b	128		;Nom du programme
+Prg_Long	equ	__RS
+		
+
+; _____________________________________________________________________________
+;
+;				 	D�finition d'une edition
+; _____________________________________________________________________________
+;
+
+		RsReset
+Edt_Next	rs.l	1		;Edition suivante
+Edt_Prg		rs.l	1		;Adresse structure programme
+Edt_BufE	rs.l	1		;Adresse buffer edition
+
+; Donn�es affichage
+Edt_Order	rs.w	1		;Numero d'ordre dans l'affichage
+Edt_Window	rs.w	1		;Numero des diverse zones / fenetres
+Edt_WindEtat	rs.w	1
+Edt_Zones	rs.w	1
+Edt_ZEtat	rs.w	1
+Edt_ZBas	rs.w	1
+
+Edt_X		rs.w	1		;Coordonnees de la fenetre
+Edt_Y		rs.w	1
+Edt_Sy		rs.w	1
+Edt_WindX	rs.w	1
+Edt_WindY	rs.w	1
+Edt_WindSx	rs.w	1
+Edt_WindSy	rs.w	1
+Edt_WindTx	rs.w	1
+Edt_WindTy	rs.w	1
+Edt_WindOldTy	rs.w	1
+Edt_WindEX	rs.w	1
+Edt_WindEY	rs.w	1
+Edt_WindESx	rs.w	1
+Edt_BasY	rs.w	1
+Edt_EtMess	rs.w 	1		
+Edt_EtAlert	rs.l 	1		
+
+Edt_SInit	equ	__RS		;Zone � remettre � zero
+Edt_SReload	equ	__RS
+Edt_SSplit	equ	__RS
+Edt_XPos	rs.w 	1		;Positions texte dans fenetre
+Edt_YPos	rs.w 	1
+Edt_XCu		rs.w 	1		;Positions curseur
+Edt_YCu		rs.w 	1
+Edt_DebProc	rs.l 	1
+Edt_CurLigne	rs.l 	1		;Recherche
+Edt_LEdited	rs.w	1		;Flag ligne editee
+Edt_EInit	equ	__RS
+Edt_EReload	equ	__RS
+Edt_ESplit	equ	__RS
+
+Edt_XBloc	rs.w	1		;Position bloc
+Edt_YBloc	rs.w	1
+Edt_YOldBloc	rs.w	1
+
+Edt_LinkPrev	rs.l	1		;Links de fenetre
+Edt_LinkNext	rs.l	1
+Edt_LinkScroll	rs.l	1
+Edt_LinkYOld	rs.w	1
+
+Edt_Hidden	rs.b	1		;Fenetre cachee
+Edt_LinkFlag	rs.b	1		;Fenetre linkee
+Edt_First	rs.b	1		;Premiere fenetre affichee?
+Edt_Last	rs.b	1		;Derniere fenetre affichee?
+Edt_EtatAff	rs.b	1		;Flags ligne d'etat
+Edt_PrgDelete	rs.b	1		;Programme � effacer en retour
+Edt_ASlY	rs.b	1		;Compteur affichage slider
+		rs.b	1
+
+Edt_SlV		rs.b	Sl_Long		;Structure slider
+Edt_Bt1		rs.b	Bt_Long		;Structures bouton
+Edt_Bt2		rs.b	Bt_Long
+Edt_Bt3		rs.b	Bt_Long
+		rs.w	1
+Edt_Long	equ	__RS		;Longueur de la structure
+
+;						Flags de la ligne d'etat
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+EtA_Caps	equ	0
+EtA_Ins		equ	1
+EtA_X		equ	2
+EtA_Y		equ	3
+EtA_Nom		equ	4
+EtA_Free	equ	5
+EtA_Clw		equ	6
+EtA_Alert	equ	7
+EtA_BXY		equ	%00001100
+EtA_BAll	equ	%01111111
+
+;			AREXX
+; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+RC_OK			equ	0
+RC_WARN			equ	5
+RC_ERROR		equ	10
+RC_FATAL		equ	20
+RXCODEMASK		equ 	$FF000000
+RXCOMM			equ	$01000000
+RXFUNC			equ	$02000000
+RXFF_RESULT		equ	$00020000
+ra_Length		equ	4
+ra_Buff			equ	8
+rm_Result1		equ	$20
+rm_Result2		equ	$24
+rm_Sdtin		equ	$74
+rm_Sdout		equ	$78
+rm_Args			equ	$28
+rm_Action		equ	$1c
+
diff --git a/extensions/Intuition-41.95/AMOS/liboffsets.s b/extensions/Intuition-41.95/AMOS/liboffsets.s
new file mode 100644
index 0000000..f20ea81
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS/liboffsets.s
@@ -0,0 +1,473 @@
+***********************************************************
+*
+*		Amiga library offsets
+*
+***********************************************************
+
+FUNCSTART	Macro
+LibPointer	set 	-$1e
+		EndM
+
+FUNCDEF		Macro
+_LVO\1		equ	LibPointer
+LibPointer	set	LibPointer-6
+		EndM
+*
+* Exec
+
+	IFND	_LVOSupervisor
+		FUNCSTART
+		FUNCDEF	Supervisor
+		FUNCDEF	ExitIntr
+		FUNCDEF	Schedule
+		FUNCDEF	Reschedule
+		FUNCDEF	Switch
+		FUNCDEF	Dispatch
+		FUNCDEF	Exception
+		FUNCDEF	InitCode
+		FUNCDEF	InitStruct
+		FUNCDEF	MakeLibrary
+		FUNCDEF	MakeFunctions
+		FUNCDEF	FindResident
+		FUNCDEF	InitResident
+		FUNCDEF	Alert
+		FUNCDEF	Debug
+		FUNCDEF	Disable
+		FUNCDEF	Enable
+		FUNCDEF	Forbid
+		FUNCDEF	Permit
+		FUNCDEF	SetSR
+		FUNCDEF	SuperState
+		FUNCDEF	UserState
+		FUNCDEF	SetIntVector
+		FUNCDEF	AddIntServer
+		FUNCDEF	RemIntServer
+		FUNCDEF	Cause
+		FUNCDEF	Allocate
+		FUNCDEF	Deallocate
+		FUNCDEF	AllocMem
+		FUNCDEF	AllocAbs
+		FUNCDEF	FreeMem
+		FUNCDEF	AvailMem
+		FUNCDEF	AllocEntry
+		FUNCDEF	FreeEntry
+		FUNCDEF	Insert
+		FUNCDEF	AddHead
+		FUNCDEF	AddTail
+		FUNCDEF	Remove
+		FUNCDEF	RemHead
+		FUNCDEF	RemTail
+		FUNCDEF	Enqueue
+		FUNCDEF	FindName
+		FUNCDEF	AddTask
+		FUNCDEF	RemTask
+		FUNCDEF	FindTask
+		FUNCDEF	SetTaskPri
+		FUNCDEF	SetSignal
+		FUNCDEF	SetExcept
+		FUNCDEF	Wait
+		FUNCDEF	Signal
+		FUNCDEF	AllocSignal
+		FUNCDEF	FreeSignal
+		FUNCDEF	AllocTrap
+		FUNCDEF	FreeTrap
+		FUNCDEF	AddPort
+		FUNCDEF	RemPort
+		FUNCDEF	PutMsg
+		FUNCDEF	GetMsg
+		FUNCDEF	ReplyMsg
+		FUNCDEF	WaitPort
+		FUNCDEF	FindPort
+		FUNCDEF	AddLibrary
+		FUNCDEF	RemLibrary
+		FUNCDEF	OldOpenLibrary
+		FUNCDEF	CloseLibrary
+		FUNCDEF	SetFunction
+		FUNCDEF	SumLibrary
+		FUNCDEF	AddDevice
+		FUNCDEF	RemDevice
+		FUNCDEF	OpenDevice
+		FUNCDEF	CloseDevice
+		FUNCDEF	DoIO
+		FUNCDEF	SendIO
+		FUNCDEF	CheckIO
+		FUNCDEF	WaitIO
+		FUNCDEF	AbortIO
+		FUNCDEF	AddResource
+		FUNCDEF	RemResource
+		FUNCDEF	OpenResource
+		FUNCDEF	RawIOInit
+		FUNCDEF	RawMayGetChar
+		FUNCDEF	RawPutChar
+		FUNCDEF	RawDoFmt
+		FUNCDEF	GetCC
+		FUNCDEF	TypeOfMem
+		FUNCDEF	Procure
+		FUNCDEF	Vacate
+		FUNCDEF	OpenLibrary
+		FUNCDEF	InitSemaphore
+		FUNCDEF	ObtainSemaphore
+		FUNCDEF	ReleaseSemaphore
+		FUNCDEF	AttemptSemaphore
+		FUNCDEF	ObtainSemaphoreList
+		FUNCDEF	ReleaseSemaphoreList
+		FUNCDEF	FindSemaphore
+		FUNCDEF	AddSemaphore
+		FUNCDEF	RemSemaphore
+		FUNCDEF	SumKickData
+		FUNCDEF	AddMemList
+		FUNCDEF	CopyMem
+		FUNCDEF	CopyMemQuick
+		FUNCDEF	CacheClearU
+		FUNCDEF	CacheClearE
+		FUNCDEF	CacheControl
+		FUNCDEF	CreateIORequest
+		FUNCDEF	DeleteIORequest
+		FUNCDEF	CreateMsgPort
+		FUNCDEF	DeleteMsgPort
+		FUNCDEF	ObtainSemaphoreShared
+		FUNCDEF	AllocVec
+		FUNCDEF	FreeVec
+		FUNCDEF	CreatePrivatePool
+		FUNCDEF	DeletePrivatePool
+		FUNCDEF	AllocPooled
+		FUNCDEF	FreePooled
+		FUNCDEF	SetFunction8
+		FUNCDEF	ColdReboot
+		FUNCDEF	StackSwap
+		FUNCDEF	ChildFree
+		FUNCDEF	ChildOrphan
+		FUNCDEF	ChildStatus
+		FUNCDEF	ChildWait
+		FUNCDEF	ExecReserved00
+		FUNCDEF	ExecReserved01
+		FUNCDEF	ExecReserved02
+		FUNCDEF	ExecReserved03
+	ENDC
+*
+* Dos
+	IFND	_LVOOpen
+		FUNCSTART
+		FUNCDEF	Open
+		FUNCDEF	Close
+		FUNCDEF	Read
+		FUNCDEF	Write
+		FUNCDEF	Input
+		FUNCDEF	Output
+		FUNCDEF	Seek
+		FUNCDEF	DeleteFile
+		FUNCDEF	Rename
+		FUNCDEF	Lock
+		FUNCDEF	UnLock
+		FUNCDEF	DupLock
+		FUNCDEF	Examine
+		FUNCDEF	ExNext
+		FUNCDEF	Info
+		FUNCDEF	CreateDir
+		FUNCDEF	CurrentDir
+		FUNCDEF	IoErr
+		FUNCDEF	CreateProc
+		FUNCDEF	Exit
+		FUNCDEF	LoadSeg
+		FUNCDEF	UnLoadSeg
+		FUNCDEF	ClearVec
+		FUNCDEF	NoReqLoadSeg
+		FUNCDEF	DeviceProc
+		FUNCDEF	SetComment
+		FUNCDEF	SetProtection
+		FUNCDEF	DateStamp
+		FUNCDEF	Delay
+		FUNCDEF	WaitForChar
+		FUNCDEF	ParentDir
+		FUNCDEF	IsInteractive
+		FUNCDEF	Execute
+		FUNCDEF	AllocDosObject
+		FUNCDEF	FreeDosObject
+		FUNCDEF	DoPkt
+		FUNCDEF	SendPkt
+		FUNCDEF	WaitPkt
+		FUNCDEF	ReplyPkt
+		FUNCDEF	AbortPkt
+		FUNCDEF	LockRecord
+		FUNCDEF	LockRecords
+		FUNCDEF	UnLockRecord
+		FUNCDEF	UnLockRecords
+		FUNCDEF	SelectInput
+		FUNCDEF	SelectOutput
+		FUNCDEF	FGetC
+		FUNCDEF	FPutC
+		FUNCDEF	UnGetC
+		FUNCDEF	FRead
+		FUNCDEF	FWrite
+		FUNCDEF	FGets
+		FUNCDEF	FPuts
+		FUNCDEF	VFWritef
+		FUNCDEF	VFPrintf
+		FUNCDEF	Flush
+		FUNCDEF	SetVBuf
+		FUNCDEF	DupLockFromFH
+		FUNCDEF	OpenFromLock
+		FUNCDEF	ParentOfFH
+		FUNCDEF	ExamineFH
+		FUNCDEF	SetFileDate
+		FUNCDEF	NameFromLock
+		FUNCDEF	NameFromFH
+		FUNCDEF	SplitName
+		FUNCDEF	SameLock
+		FUNCDEF	SetMode
+		FUNCDEF	ExAll
+		FUNCDEF	ReadLink
+		FUNCDEF	MakeLink
+		FUNCDEF	ChangeMode
+		FUNCDEF	SetFileSize
+		FUNCDEF	SetIoErr
+		FUNCDEF	Fault
+		FUNCDEF	PrintFault
+		FUNCDEF	ErrorReport
+		FUNCDEF	Requester
+		FUNCDEF	Cli
+		FUNCDEF	CreateNewProc
+		FUNCDEF	RunCommand
+		FUNCDEF	GetConsoleTask
+		FUNCDEF	SetConsoleTask
+		FUNCDEF	GetFileSysTask
+		FUNCDEF	SetFileSysTask
+		FUNCDEF	GetArgStr
+		FUNCDEF	SetArgStr
+		FUNCDEF	FindCliProc
+		FUNCDEF	MaxCli
+		FUNCDEF	SetCurrentDirName
+		FUNCDEF	GetCurrentDirName
+		FUNCDEF	SetProgramName
+		FUNCDEF	GetProgramName
+		FUNCDEF	SetPrompt
+		FUNCDEF	GetPrompt
+		FUNCDEF	SetProgramDir
+		FUNCDEF	GetProgramDir
+		FUNCDEF	System
+		FUNCDEF	AssignLock
+		FUNCDEF	AssignLate
+		FUNCDEF	AssignPath
+		FUNCDEF	AssignAdd
+		FUNCDEF	RemAssignList
+		FUNCDEF	GetDeviceProc
+		FUNCDEF	FreeDeviceProc
+		FUNCDEF	LockDosList
+		FUNCDEF	UnlockDosList
+		FUNCDEF	AttemptLockDosList
+		FUNCDEF	RemDosEntry
+		FUNCDEF	AddDosEntry
+		FUNCDEF	FindDosEntry
+		FUNCDEF	NextDosEntry
+		FUNCDEF	MakeDosEntry
+		FUNCDEF	FreeDosEntry
+		FUNCDEF	IsFileSystem
+		FUNCDEF	Format
+		FUNCDEF	Relabel
+		FUNCDEF	Inhibit
+		FUNCDEF	AddBuffers
+		FUNCDEF	CompareDates
+		FUNCDEF	DateToStr
+		FUNCDEF	StrToDate
+		FUNCDEF	InternalLoadSeg
+		FUNCDEF	InternalUnLoadSeg
+		FUNCDEF	NewLoadSeg
+		FUNCDEF	AddSegment
+		FUNCDEF	FindSegment
+		FUNCDEF	RemSegment
+		FUNCDEF	CheckSignal
+		FUNCDEF	ReadArgs
+		FUNCDEF	FindArg
+		FUNCDEF	ReadItem
+		FUNCDEF	StrToLong
+		FUNCDEF	MatchFirst
+		FUNCDEF	MatchNext
+		FUNCDEF	MatchEnd
+		FUNCDEF	ParsePattern
+		FUNCDEF	MatchPattern
+		FUNCDEF	DosPrivateFunc4
+		FUNCDEF	FreeArgs
+		FUNCDEF	DosPrivateFunc5
+		FUNCDEF	FilePart
+		FUNCDEF	PathPart
+		FUNCDEF	AddPart
+		FUNCDEF	StartNotify
+		FUNCDEF	EndNotify
+		FUNCDEF	SetVar
+		FUNCDEF	GetVar
+		FUNCDEF	DeleteVar
+		FUNCDEF	FindVar
+		FUNCDEF	PrivateEntry1
+		FUNCDEF	PrivateEntry2
+		FUNCDEF	PrivateEntry3
+		FUNCDEF	WriteChars
+		FUNCDEF	PutStr
+		FUNCDEF	VPrintf
+		FUNCDEF	MatchReplace
+	ENDC
+*
+* Mathieeedoubas
+	IFND	_LVOIEEEDPFix
+		FUNCSTART
+		FUNCDEF	IEEEDPFix
+		FUNCDEF	IEEEDPFlt
+		FUNCDEF	IEEEDPCmp
+		FUNCDEF	IEEEDPTst
+		FUNCDEF	IEEEDPAbs
+		FUNCDEF	IEEEDPNeg
+		FUNCDEF	IEEEDPAdd
+		FUNCDEF	IEEEDPSub
+		FUNCDEF	IEEEDPMul
+		FUNCDEF	IEEEDPDiv
+		FUNCDEF	IEEEDPFloor
+		FUNCDEF	IEEEDPCeil
+	ENDC
+*
+* Mathieeedoubtrans
+	IFND	_LVOIEEEDPAtan
+		FUNCSTART
+		FUNCDEF	IEEEDPAtan
+		FUNCDEF	IEEEDPSin
+		FUNCDEF	IEEEDPCos
+		FUNCDEF	IEEEDPTan
+		FUNCDEF	IEEEDPSincas
+		FUNCDEF	IEEEDPSinh
+		FUNCDEF	IEEEDPCosh
+		FUNCDEF	IEEEDPTanh
+		FUNCDEF	IEEEDPExp
+		FUNCDEF	IEEEDPLog
+		FUNCDEF	IEEEDPPow
+		FUNCDEF	IEEEDPSqrt
+		FUNCDEF	IEEEDPTieee
+		FUNCDEF	IEEEDPFieee
+		FUNCDEF	IEEEDPAsin
+		FUNCDEF	IEEEDPAcos
+		FUNCDEF IEEEDPLog10
+	ENDC
+*
+* Mathtrans.library
+	IFND	_LVOSPAtan
+		FUNCSTART
+		FUNCDEF	SPAtan
+		FUNCDEF	SPSin
+		FUNCDEF	SPCos
+		FUNCDEF	SPTan
+		FUNCDEF	SPSincos
+		FUNCDEF	SPSinh
+		FUNCDEF	SPCosh
+		FUNCDEF	SPTanh
+		FUNCDEF	SPExp
+		FUNCDEF	SPLog
+		FUNCDEF	SPPow
+		FUNCDEF	SPSqrt
+		FUNCDEF	SPTieee
+		FUNCDEF	SPFieee
+		FUNCDEF	SPAsin
+		FUNCDEF	SPAcos
+		FUNCDEF	SPLog10
+	ENDC
+*
+* Mathffp.library
+	IFND	_LVOSPFix
+		FUNCSTART
+		FUNCDEF	SPFix
+		FUNCDEF	SPFlt
+		FUNCDEF	SPCmp
+		FUNCDEF	SPTst
+		FUNCDEF	SPAbs
+		FUNCDEF	SPNeg
+		FUNCDEF	SPAdd
+		FUNCDEF	SPSub
+		FUNCDEF	SPMul
+		FUNCDEF	SPDiv
+		FUNCDEF SPFloor
+		FUNCDEF SPCeil
+	ENDC
+* AREXX
+	IFND	_LVORexx
+		FUNCSTART
+		FUNCDEF Rexx             ; Main entry point
+		FUNCDEF rxParse          ; (private)
+		FUNCDEF rxInstruct       ; (private)
+		FUNCDEF rxSuspend        ; (private)
+		FUNCDEF EvalOp           ; (private)
+		FUNCDEF OAssignValue      ; (private)
+		FUNCDEF EnterSymbol      ; (private)
+		FUNCDEF FetchValue       ; (private)
+		FUNCDEF LookUpValue      ; (private)
+		FUNCDEF SetValue         ; (private)
+		FUNCDEF SymExpand        ; (private)
+
+		FUNCDEF ErrorMsg
+		FUNCDEF IsSymbol
+		FUNCDEF CurrentEnv
+		FUNCDEF GetSpace
+		FUNCDEF FreeSpace
+
+		FUNCDEF CreateArgstring
+		FUNCDEF DeleteArgstring
+		FUNCDEF LengthArgstring
+		FUNCDEF CreateRexxMsg
+		FUNCDEF DeleteRexxMsg
+		FUNCDEF ClearRexxMsg
+		FUNCDEF FillRexxMsg
+		FUNCDEF IsRexxMsg
+
+		FUNCDEF AddRsrcNode
+		FUNCDEF FindRsrcNode
+		FUNCDEF RemRsrcList
+		FUNCDEF RemRsrcNode
+		FUNCDEF OpenPublicPort
+		FUNCDEF ClosePublicPort
+		FUNCDEF ListNames
+
+		FUNCDEF ClearMem
+		FUNCDEF InitList
+		FUNCDEF InitPort
+		FUNCDEF FreePort
+
+		FUNCDEF CmpString
+		FUNCDEF StcToken
+		FUNCDEF StrcmpN
+		FUNCDEF StrcmpU
+		FUNCDEF StrcpyA          ; obsolete
+		FUNCDEF StrcpyN
+		FUNCDEF StrcpyU
+		FUNCDEF StrflipN
+		FUNCDEF Strlen
+		FUNCDEF ToUpper
+
+		FUNCDEF CVa2i
+		FUNCDEF CVi2a
+		FUNCDEF CVi2arg
+		FUNCDEF CVi2az
+		FUNCDEF CVc2x
+		FUNCDEF CVx2c
+
+		FUNCDEF OpenF
+		FUNCDEF CloseF
+		FUNCDEF ReadStr
+		FUNCDEF ReadF
+		FUNCDEF WriteF
+		FUNCDEF SeekF
+		FUNCDEF QueueF
+		FUNCDEF StackF
+		FUNCDEF ExistF
+
+		FUNCDEF DOSCommand
+		FUNCDEF DOSRead
+		FUNCDEF DOSWrite
+		FUNCDEF CreateDOSPkt     ; obsolete
+		FUNCDEF DeleteDOSPkt     ; obsolete
+		FUNCDEF SendDOSPkt       ; private
+		FUNCDEF WaitDOSPkt       ; private
+		FUNCDEF FindDevice
+
+		FUNCDEF AddClipNode
+		FUNCDEF RemClipNode
+		FUNCDEF LockRexxBase
+		FUNCDEF UnlockRexxBase
+		FUNCDEF CreateCLI
+		FUNCDEF DeleteCLI
+		FUNCDEF CVs2i
+	ENDC
diff --git a/extensions/Intuition-41.95/AMOS/wequ.s b/extensions/Intuition-41.95/AMOS/wequ.s
new file mode 100644
index 0000000..22bc547
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS/wequ.s
@@ -0,0 +1,318 @@
+*********************************************************************
+*		EQUATES GRAPHIC FUNCTIONS AMOS
+*********************************************************************
+RwReset		MACRO
+Count		SET	0
+		ENDM
+Rl		MACRO	
+Count		SET	Count-4*(\2)
+T_\1		equ	Count
+		ENDM
+Rw		MACRO
+Count		SET	Count-2*(\2)
+T_\1		equ	Count
+		ENDM
+Rb		MACRO
+Count		SET	Count-(\2)
+T_\1		equ	Count
+		ENDM
+GfxPc		MACRO
+		movem.l	d0-d7/a0-a6,-(sp)
+		move.l	GfxBase(pc),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d7/a0-a6
+		ENDM
+
+***************************************************************
+
+		RwReset
+
+***************************************************************
+*		VECTEURS
+***************************************************************
+		Rl	SyVect,1
+		Rl	EcVect,1
+		Rl	WiVect,1
+
+***************************************************************
+*		ADRESSES AMOS / COMPILER
+***************************************************************
+		Rl	JError,1
+		Rl	CompJmp,1
+		Rw	AMOState,1
+		Rw	Pour_Plus_Tard,1
+
+***************************************************************
+*		Gestions AMOS Multiples
+***************************************************************
+		Rl	MyTask,1
+		Rw	Inhibit,1
+		Rw	OldDma,1
+
+***************************************************************
+*		FENETRES
+***************************************************************
+* Jeu de caracteres par defaut
+		Rl	JeuDefo,1
+* Fonction REPETER
+WiRepL		equ	80
+		Rw	WiRep,1
+		Rl	WiRepAd,2
+		Rb	WiRepBuf,WiRepL
+* Fonction ENCADRER
+		Rw	WiEncDX,1
+		Rw	WiEncDY,1
+
+
+***************************************************************
+*		INTER VBL
+***************************************************************
+		Rl	VblCount,1
+		Rl	VblTimer,1
+		Rw	EveCpt,1
+
+***************************************************************
+*		FLAG AMOS/WORKBENCH
+***************************************************************
+		Rw	AMOSHere,1
+		Rw	NoFlip,1
+		Rw	DevHere,1
+		Rw	DiscIn,1
+
+***************************************************************
+*		GESTION ECRANS
+***************************************************************
+
+*************** Variables gestion
+EcMax:		equ 	12	
+		Rw	DefWX,1
+		Rw	DefWY,1
+		Rw	DefWX2,1
+		Rw	DefWY2,1
+		Rl	EcCourant,1
+		Rw	EcFond,1
+		Rw	EcYAct,1
+		Rw	EcYMax,1
+		Rw	Actualise,1
+		Rl	ChipBuf,1
+
+***************	Buffer de calculs des ecrans
+		Rw	EcBuf,128
+
+*************** Table des NUMEROS ---> ADRESSES
+		Rl	EcAdr,EcMax
+
+*************** Table de priorite
+		Rl	EcPri,EcMax+1
+
+*************** FLASHEUR
+FlMax:		equ 	16	
+LFlash:		equ 	2+2+4+2+16*4+2
+		Rw	NbFlash,1
+		Rb	TFlash,LFlash*FlMax
+
+*************** SHIFTER
+LShift:		equ 	2+2+4+2+2+2
+		Rb	TShift,LShift
+
+*************** FADER
+		Rw	FadeFlag,1
+		Rw	FadeNb,1
+		Rw	FadeCpt,1
+		Rw	FadeVit,1
+		Rl	FadePal,1
+		Rl	FadeCop,1
+		Rb	FadeCol,8*32
+
+***************************************************************
+*		GESTION COPPER
+***************************************************************
+EcTCop		equ  	1024
+		Rl	EcCop,1
+		Rw	Cop255,1
+		Rl	CopLogic,1
+		Rl	CopPhysic,1
+		Rw	CopON,1
+		Rl	CopPos,1
+		Rl	CopLong,1
+
+* Rainbows
+NbRain		equ	4
+		RsReset
+RnDY		rs.w	1
+RnFY		rs.w	1
+RnTY		rs.w	1
+RnBase		rs.w	1
+RnColor		rs.w	1
+RnLong		rs.w	1
+RnBuf		rs.l	1
+RnAct		rs.w	1
+RnX		rs.w	1
+RnY		rs.w	1
+RnI		rs.w	1
+RainLong	rs.w	1
+		Rb	RainTable,RainLong*NbRain
+		Rw	RainBow,1
+		Rw	OldRain,1
+
+* Marques copper liste
+CopL1:		equ 	16*4*2
+CopL2:		equ 	16*4
+CopML:		equ 	(EcMax*CopL1)+10*CopL2
+		Rb	CopMark,CopML+4
+
+* Liste screen swaps
+SwapL:		equ 	32
+		Rl	SwapList,SwapL*8+4
+
+* Interlaced!
+		Rw	InterInter,1
+		Rw	InterBit,1
+		Rl	InterList,EcMax*2
+	
+***************************************************************
+*		SPRITES HARD
+***************************************************************
+HsNb		equ 	64
+* Limites souris
+		Rw	MouYMax,1
+		Rw	MouXMax,1
+		Rw	MouYMin,1
+		Rw	MouXMin,1
+
+* Gestion souris
+		Rw	MouYOld,1
+		Rw	MouXOld,1
+		Rw	MouHotY,1
+		Rw	MouHotX,1
+		Rw	MouseY,1
+		Rw	MouseX,1
+		Rw	MouseDY,1
+		Rw	MouseDX,1
+		Rw	YMouse,1
+		Rw	XMouse,1
+		Rw	OldMk,1
+
+		Rw	MouShow,1
+		Rw	MouSpr,1
+		Rw	OMouShow,1
+		Rw	OMouSpr,1
+		Rl	MouBank,1
+		Rl	MouDes,1
+		Rw	MouTy,1
+
+		Rl	SprBank,1
+		Rl	HsTBuf,1
+		Rl	HsBuffer,1
+		Rl	HsLogic,1
+		Rl	HsPhysic,1
+		Rl	HsInter,1
+		Rl	HsChange,1
+		Rl	HsTable,1
+		Rw	HsPMax,1
+		Rw	HsTCol,1
+		Rw	HsNLine,1
+		Rl	HsPosition,2*8+1
+
+* Actualisation sprites
+HsYAct:		equ 	4
+HsPAct:		equ 	6
+		Rw	HsTAct,4*HsNb
+
+* Structure SPrites
+HsPrev:		equ 	0
+HsNext:		equ 	2
+HsX:		equ 	4
+HsY:		equ 	6
+HsYr:		equ 	8
+HsLien:		equ 	10
+HsImage:	equ 	12
+HsControl:	equ 	16
+HsLong:		equ 	20		
+		Rb	SpBase,HsLong+4
+
+***************************************************************
+*		BOBS
+***************************************************************
+		Rw	BbMax,1
+		Rl	BbDeb,1
+		Rl	BbPrio,1
+		Rl	BbPrio2,1
+		Rl	Priorite,1
+		Rw	PriRev,1
+*		Rb	TRetour,256
+
+***************************************************************
+*		AMAL!
+***************************************************************
+		Rl	AmDeb,1
+		Rl	AmFreeze,1
+		Rl	AmChaine,1
+		Rl	AmBank,1
+		Rw	AmRegs,26
+		Rw	SyncOff,1
+		Rl	AMALSp,1
+		Rw	AmSeed,1
+
+***************************************************************
+*		COLLISIONS
+***************************************************************
+		Rl	TColl,8
+
+***************************************************************
+*		BLOCS
+***************************************************************
+		Rl	AdCBlocs,1
+		Rl	AdBlocs,1
+
+***************************************************************
+*		SYSTEME
+***************************************************************
+		Rl	GPile,1
+		Rl	IntBase,1
+		Rl	IntScreen,1
+		Rl	GfxBase,1
+		Rl	LayBase,1
+		Rl	FntBase,1
+		Rl	ScreenAdr,1
+		Rl	WindowAdr,1
+		Rl	Layer,1
+		Rl	BitMap,1
+		Rl	RastPort,1
+		Rl	ClipRect,1
+		Rl	FontInfos,1
+		Rw	FontILong,1
+		Rw	PaPeek,1
+		Rl	SaveZo,1
+		Rw	SaveNZo,1
+* Sauvegarde du BitMap
+		Rb	SBitMap,40
+* Sauvegarde de la fonte systeme
+		Rb	SFonte,14+4
+* Interrupt VBL
+Lis		equ	$16
+Lio		equ	$30
+Lmsg		equ	$20
+		Rb	VBL_Is,Lis
+* Interrupt clavier
+		Rb	IoDevice,Lio+Lmsg+8
+		Rb	Interrupt,Lis
+* Buffer clavier
+ClLong		equ 	32*3
+FFkLong		equ 	24
+		Rl	ClAsc,1
+		Rw	ClFlag,1
+		Rw	ClQueue,1
+		Rw	ClTete,1
+		Rb	ClShift,4
+		Rb	ClTable,12
+		Rb	ClBuffer,ClLong
+		Rl	ClLast,1
+		Rb	TFF2,10*FFkLong
+		Rb	TFF1,10*FFkLong
+
+*************** Longueur de la structure W.S
+		Rb	L_Trp,4
+L_Trappe	equ	-Count
+***********************************************************
+
diff --git a/extensions/Intuition-41.95/AMOS1.3/cequ.s b/extensions/Intuition-41.95/AMOS1.3/cequ.s
new file mode 100644
index 0000000..14aec1b
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS1.3/cequ.s
@@ -0,0 +1,138 @@
+;---------------------------------------------------------------------
+;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
+;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** ** 
+;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
+;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
+;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
+;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
+;---------------------------------------------------------------------
+; EQUATES
+;---------------------------------------------------------------------
+C_Code1		equ	$FE
+C_Code2		equ	$01
+C_CodeD		equ	$6543
+C_CodeJ		equ	$F7
+
+CiJSR		equ	$4EB9
+CiJMP		equ	$4EF9
+CiBGT		equ	$6E00
+CodeR		equ	$8F
+Rjmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Rjsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Ljmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Ljsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,\2
+		dc.w	\1
+		ENDM
+Rbra		MACRO
+		dc.b	C_Code1,2*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbsr		MACRO
+		dc.b	C_Code1,3*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbeq		MACRO
+		dc.b	C_Code1,4*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbne		MACRO
+		dc.b	C_Code1,5*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcs		MACRO
+		dc.b	C_Code1,6*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbcc		MACRO
+		dc.b	C_Code1,7*16+C_Code2
+		dc.w	\1
+		ENDM
+Rblt		MACRO
+		dc.b	C_Code1,8*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbge		MACRO
+		dc.b	C_Code1,9*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbls		MACRO
+		dc.b	C_Code1,10*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbhi		MACRO
+		dc.b	C_Code1,11*16+C_Code2
+		dc.w	\1
+		ENDM
+Rble		MACRO
+		dc.b	C_Code1,12*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbpl		MACRO
+		dc.b	C_Code1,13*16+C_Code2
+		dc.w	\1
+		ENDM
+Rbmi		MACRO
+		dc.b	C_Code1,14*16+C_Code2
+		dc.w	\1 
+		ENDM
+Rbgt		MACRO
+		dc.w	CiBGT+4
+		Rble	\1
+		ENDM
+Rdata		MACRO
+		dc.b	C_Code1,15*16+C_Code2
+		dc.w	C_CodeD
+		ENDM
+Rlea		MACRO
+		lea	\1,\2
+		ENDM
+;Alea		MACRO
+;		move.l	a5,\2
+;		add.w	A\1(a5),\2
+;		ENDM
+*	
+GfxC		MACRO
+		movem.l	d0-d7/a0-a6,-(sp)
+		move.l	T_GfxBase(a5),a6
+		jsr	\1(a6)
+		movem.l	(sp)+,d0-d7/a0-a6
+		ENDM
+*
+BitLib		equ	31
+BitChaine	equ	30
+BitLabel	equ	29
+*
+Hunk_Public	equ	0
+Hunk_Chip	equ	$40000000
+N_HunkSys	equ	8
+NH_Header	equ	0
+NH_Prog		equ	1
+NH_Reloc	equ	2
+NH_W.Lib	equ	3
+NH_Env		equ	4
+NH_Mouse	equ	5
+NH_Font		equ	6
+NH_Key		equ	7
+*
+FlagFloat	equ	EdMarks+4*4
+AForNext	equ	EdMarks+5*4
+Ad_Labels	equ	EdMarks+6*4
+Num_Proc	equ	EdMarks+7*4
+LowPile		equ	EdMarks+8*4
+LowPileP	equ	EdMarks+9*4
+*
+;---------------------------------------------------------------------
diff --git a/extensions/Intuition-41.95/AMOS1.3/equ.s b/extensions/Intuition-41.95/AMOS1.3/equ.s
new file mode 100644
index 0000000..8147567
--- /dev/null
+++ b/extensions/Intuition-41.95/AMOS1.3/equ.s
@@ -0,0 +1,1119 @@
+
+*		Version 1.2
+
+***********************************************************
+*
+*		AMOS EQUATES DEFINITION
+*
+*		By Francois Lionet
+*		AMOS (c) 1990 Mandarin / Jawx
+*
+*		Last change 14/10/1990
+*
+***********************************************************
+*		This file is public domain!
+***********************************************************
+*	Here is all AMOS internal data offsets and macro 
+* definitions. More on all AMOS jumps tables in the AMOS 
+* club newsletter!
+***********************************************************
+
+EntNul:		equ $80000000
+
+Circuits:	equ $dff000
+
+IntReq:		equ $9c
+IntEna:		equ $9a
+DmaCon:		equ $96
+DmaConR:	equ $02
+
+Color00:	equ $180
+VhPosR:		equ $6
+
+; Copper
+Cop1lc:		equ $80
+Cop2lc:		equ $84
+CopJmp1:	equ $88
+CopJmp2:	equ $8a
+
+; Souris
+CiaAprA:	equ $bfe001
+Joy0Dat:	equ $a
+Joy1Dat:	equ $c
+JoyTest:	equ $36
+PotGo:		equ $34
+PotGoR:		equ $16
+Pot0Dat:	equ $12
+Pot1Dat:	equ $14
+
+; Bitplanes
+BplCon0:	equ $100
+BplCon1:	equ $102
+BplCon2:	equ $104
+Bpl1PtH:	equ $0e0
+Bpl1PtL:	equ $0e2
+Bpl1Mod:	equ $108
+Bpl2Mod:	equ $10a
+DiwStrt:	equ $08e
+DiwStop:	equ $090
+DdfStrt:	equ $092
+DdfStop:	equ $094
+
+; Blitter
+BltSize:	equ $058
+BltAdA:		equ $050
+BltAdB:		equ $04c
+BltAdC:		equ $048
+BltAdD:		equ $054
+BltModA:	equ $064
+BltModB:	equ $062
+BltModC:	equ $060
+BltModD:	equ $066
+BltCon0:	equ $040
+BltCon1:	equ $042
+BltDatA:	equ $074
+BltDatB:	equ $072
+BltDatC:	equ $070
+BltDatD:	equ $000
+BltMaskG:	equ $044
+BltMaskD:	equ $046
+
+;-------------> Systeme
+ExecBase:	equ 4
+StartList:	equ 38
+Forbid:		equ -132
+Permit:		equ -138
+OwnBlitter:	equ -30-426
+DisOwnBlitter:	equ -30-432
+WaitBlit:	equ -228
+OpenLib:	equ -552
+CloseLib:	equ -414
+AllocMem:	equ -198
+AvailMem:	equ -216
+FreeMem:	equ -210
+Chip:		equ $02
+Fast:		equ $04
+Clear:		equ $10000
+SetFunction:	equ -420
+CloseWB:	equ -78
+FindTask:	equ -294
+AddPort:	equ -354
+RemPort:	equ -360
+OpenDev:	equ -444
+CloseDev:	equ -450
+DoIO:		equ -456
+SendIO:		equ -462
+
+;-------------> Intuition
+OpenScreen:	equ -198
+CloseScreen:	equ -66
+ScreenToBack:	equ -$F6
+OpenWindow:	equ -204
+CloseWindow:	equ -72
+LoadView:	equ -$DE
+CUFLayer:	equ -36
+DelLayer:	equ -90
+
+;-------------> Graphic library
+InitRastPort:	equ -198
+InitTmpRas:	equ -$1d4
+TextLength:	equ -54
+Text:		equ -60
+SetFont:	equ -66
+OpenFont:	equ -72
+CloseFont:	equ -78
+AskSoftStyle:	equ -84
+SetSoftStyle:	equ -90
+RMove:		equ -240
+RDraw:		equ -246
+DrawEllipse:	equ -$b4
+AreaEllipse:	equ -$ba
+AreaMove:	equ -252
+AreaDraw:	equ -258
+AreaEnd:	equ -264
+InitArea:	equ -282
+RectFill:	equ -306
+ReadPixel:	equ -318
+WritePixel:	equ -324
+Flood:		equ -330
+PolyDraw:	equ -336
+ScrollRaster:	equ -396
+AskFont:	equ -474
+AddFont:	equ -480
+RemFont:	equ -486
+ClipBlit:	equ -552
+BltBitMap:	equ -30
+SetAPen:	equ -342
+SetBPen:	equ -348
+SetDrMd:	equ -354
+AvailFonts:	equ -$24
+OpenDiskFont	equ -$1e
+
+;-------------> Dos
+Input:		equ -54
+WaitChar:	equ -204
+Read:		equ -42
+
+Execall:	MACRO
+		move.l	$4,a6
+		jsr	\1(a6)
+		ENDM
+;GfxCall:	MACRO
+;		movem.l	d0-d7/a0-a6,-(sp)
+;		move.l	GfxBase,a6
+;		jsr	\1(a6)
+;		movem.l	(sp)+,d0-d7/a0-a6
+;		ENDM
+
+*************** DOS
+DosOpen:	equ -30
+DosClose:	equ -36
+DosRead:	equ -42
+DosWrite:	equ -48
+DosSeek:	equ -66
+DosDel:		equ -72
+DosRen:		equ -78
+DosLock:	equ -84
+DosUnLock:	equ -90
+DosDupLock:	equ -96
+DosExam:	equ -102
+DosExNext:	equ -108
+DosInfo:	equ -114
+DosMkDir:	equ -120
+DosCuDir:	equ -126
+DosIOErr:	equ -132
+DosDProc:	equ -174
+DosParent:	equ -210
+DosLoadSeg:	equ -150
+DosULoadSeg:	equ -156
+DosWChar:	equ -204
+
+*************** FLOAT
+SPFix:		equ -30
+SPFlt:		equ -36
+SPCmp:		equ -42
+SPTst:		equ -48
+SPAbs:		equ -54
+SPNeg:		equ -60
+SPAdd:		equ -66
+SPSub:		equ -72
+SPMul:		equ -78
+SPDiv:		equ -84
+SPFloor:	equ -90
+SPCeil:		equ -96
+
+SPATan:		equ -30
+SPSin:		equ -36
+SPCos:		equ -42
+SPTan:		equ -48
+SPSinCos:	equ -54
+SPSinH:		equ -60
+SPCosH:		equ -66
+SPTanH:		equ -72
+SPExp:		equ -78
+SPLog:		equ -84
+SPPow:		equ -90
+SPSqrt:		equ -96
+SPTIeee:	equ -102
+SPFIeee:	equ -108
+SPASin:		equ -114
+SPACos:		equ -120
+SPLog10:	equ -126
+
+*************** AMOS system library
+SyVect:		equ $100
+
+Inkey:		equ 0
+ClearKey:	equ 1
+Shifts:		equ 2
+Instant:	equ 3
+KeyMap:		equ 4
+Joy:		equ 5
+PutKey:		equ 6
+Hide:		equ 7
+Show:		equ 8
+ChangeM:	equ 9
+XyMou:		equ 10
+XyHard:		equ 11
+XyScr:		equ 12
+MouseKey:	equ 13
+SetM:		equ 14
+ScIn:		equ 15
+XyWin:		equ 16
+LimitM:		equ 17
+ZoHd:		equ 18
+ResZone:	equ 19
+RazZone:	equ 20
+SetZone:	equ 21
+GetZone:	equ 22
+WaitVbl:	equ 23
+SetHs:		equ 24
+USetHs:		equ 25
+SetFunk:	equ 26
+GetFunk:	equ 27
+AffHs:		equ 28
+SetSpBank:	equ 29
+NXyaHs:		equ 30
+XOffHs:		equ 31
+OffHs:		equ 32
+ActHs:		equ 33
+SBufHs:		equ 34
+StActHs:	equ 35
+ReActHs:	equ 36
+StoreM:		equ 37
+RecallM:	equ 38
+PriHs:		equ 39
+AMALTok:	equ 40
+AMALCre:	equ 41
+AMALMvO:	equ 42
+AMALDAll:	equ 43
+AMAL:		equ 44
+AMALReg:	equ 45
+AMALClr:	equ 46
+AMALFrz:	equ 47
+AMALUFrz:	equ 48
+SetBob:		equ 49
+OffBob:		equ 50
+OffBobS:	equ 51
+ActBob:		equ 52
+AffBob:		equ 53
+EffBob:		equ 54
+SyChip:		equ 55
+SyFast:		equ 56
+LimBob:		equ 57
+ZoGr:		equ 58
+SprGet:		equ 59
+MaskMk:		equ 60
+SpotHot:	equ 61
+ColBob:		equ 62
+ColGet:		equ 63
+ColSpr:		equ 64
+SetSync:	equ 65
+Synchro:	equ 66
+PlaySet:	equ 67
+XYBob:		equ 68
+XYSp:		equ 69
+PutBob:		equ 70
+Patch:		equ 71
+MouRel:		equ 72
+LimitMEc:	equ 73
+SyFree:		equ 74
+SetHCol:	equ 75
+GetHCol:	equ 76
+MovOn:		equ 77
+KeySpeed:	equ 78
+ChanA:		equ 79
+ChanM:		equ 80
+SPrio:		equ 81
+
+SyCall:		MACRO
+		move.l	SyVect,a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalA:		MACRO
+		lea	\2,a1
+		move.l	SyVect,a0
+		jsr	\1*4(a0)
+		ENDM
+SyCalD:		MACRO
+		moveq	#\2,d1
+		move.l	SyVect,a0
+		jsr	\1*4(a0)
+		ENDM
+SyCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	SyVect,a0
+		jsr	\1*4(a0)
+		ENDM
+
+***********************************************************
+*		EQUATES BOBS
+		RsReset
+BbPrev:		rs.l 1
+BbNext:		rs.l 1
+BbNb:		rs.w 1
+BbAct:		rs.w 1
+BbX:		rs.w 1
+BbY:		rs.w 1
+BbI:		rs.w 1
+BbEc:		rs.l 1
+BbAAEc:		rs.l 1
+BbAData:	rs.l 1
+BbAMask:	rs.l 1
+BbNPlan:	rs.w 1
+BbAPlan:	rs.w 1
+BbASize:	rs.w 1
+BbAMaskG:	rs.w 1
+BbAMaskD:	rs.w 1
+BbTPlan:	rs.w 1
+BbTLigne:	rs.w 1
+BbAModO:	rs.w 1
+BbAModD:	rs.w 1
+BbACon:		rs.w 1
+BbACon0:	rs.w 1
+BbACon1:	rs.w 1
+BbADraw:	rs.l 1
+BbLimG:		rs.w 1
+BbLimD:		rs.w 1
+BbLimH:		rs.w 1
+BbLimB:		rs.w 1
+* Datas retournement des bobs
+BbARetour	rs.l 1
+BbRetour	rs.w 1
+* Datas decor
+BbDecor:	rs.w 1
+BbEff:		rs.w 1
+BbDCur1:	rs.w 1
+BbDCur2:	rs.w 1
+BbDCpt:		rs.w 1
+BbEMod:		rs.w 1
+BbECpt:		rs.w 1
+BbEAEc:		rs.w 1
+BbESize:	rs.w 1
+BbETPlan:	rs.w 1
+* Datas pour une sauvegarde de decor
+BbDABuf:	rs.l 1		* 0  Adresse buffer
+BbDLBuf:	rs.w 1		* 4  Longueur buffer
+BbDAEc:		rs.w 1		* 6  Decalage ecran
+BbDAPlan:	rs.l 1		* 8  Plans sauves
+BbDNPlan:	rs.l 1		* 12 Max plans
+BbDMod:		rs.w 1		* 16 Modulo ecran
+BbDASize:	rs.w 1		* 18 Taille blitter
+Decor:		equ 20		* 20 Taille totale
+* Datas pour seconde sauvegarde!
+		rs.l Decor
+BbLong:		equ __RS
+
+
+
+*************** AMOS Screen library
+
+BitHide:	equ 7
+BitClone:	equ 6
+BitDble:	equ 5
+EcMaxPlans	equ		6		;6 Plans pour le moment!
+		RsReset
+
+* Bitmap address
+EcLogic:	rs.l 6
+EcPhysic	rs.l 6
+EcCurrent:	rs.l 6
+
+* Datas!
+EcCon0:		rs.w 1
+EcCon2:		rs.w 1
+EcTx:		rs.w 1
+EcTy:		rs.w 1
+EcNPlan:	rs.w 1
+EcWX:		rs.w 1
+EcWY:		rs.w 1
+EcWTx:		rs.w 1
+EcWTy:		rs.w 1
+EcVX:		rs.w 1
+EcVY:		rs.w 1
+EcColorMap:	rs.w 1
+EcNbCol:	rs.w 1
+EcPal:		rs.w 32
+EcDEcran:	rs.l 1
+
+EcTPlan:	rs.l 1
+EcWindow:	rs.l 1
+EcTxM:		rs.w 1
+EcTyM:		rs.w 1
+EcTLigne:	rs.w 1
+EcFlags:	rs.w 1
+EcDual:		rs.w 1
+EcWXr:		rs.w 1
+EcWTxr:		rs.w 1
+EcNumber:	rs.w 1
+EcAuto:		rs.w 1
+
+* Link with AMAL
+EcAW:		rs.w 1
+EcAWX:		rs.w 1
+EcAWY:		rs.w 1
+EcAWT:		rs.w 1
+EcAWTX:		rs.w 1
+EcAWTY:		rs.w 1
+EcAV:		rs.w 1
+EcAVX:		rs.w 1
+EcAVY:		rs.w 1
+* Zone table
+EcAZones:	rs.l 1
+EcNZones:	rs.w 1
+* Save the backgrountd for window
+EcWiDec:	rs.w 1
+* Graphic functions
+EcInkA:		rs.b 1
+EcInkB:		rs.b 1
+EcMode:		rs.b 1
+EcOutL:		rs.b 1
+EcLine:		rs.w 1
+EcCont:		rs.w 1
+EcX:		rs.w 1
+EcY:		rs.w 1
+EcPat:		rs.l 1
+EcPatL:		rs.w 1
+EcPatY:		rs.w 1
+EcClipX0:	rs.w 1
+EcClipY0:	rs.w 1
+EcClipX1:	rs.w 1
+EcClipY1:	rs.w 1
+EcFontFlag:	rs.w 1
+EcText:		rs.b 14 
+EcFInkA:	rs.b 1
+EcFInkB:	rs.b 1
+EcFInkC:	rs.b 1
+EcIInkA:	rs.b 1
+EcIInkB:	rs.b 1
+EcIInkC:	rs.b 1
+EcFPat:		rs.w 1
+EcIPat:		rs.w 1
+* Cursor saving
+EcCurS:		rs.b 8*6
+; Length of a screen
+EcLong:		equ __RS
+
+; Y Screen base
+EcYBase:	equ $1000
+EcYStrt:	equ EcYBase+26
+PalMax:		equ 16
+
+***********************************************************
+*		FUNCTIONS
+***********************************************************
+
+EcVect:		equ $104
+
+Raz:		equ 0
+CopMake:	equ 1
+*		equ 2
+Cree:		equ 3
+Del:		equ 4
+First:		equ 5
+Last:		equ 6
+Active:		equ 7
+CopForce:	equ 8
+View:		equ 9
+OffSet:		equ 10
+Visible:	equ 11
+DelAll:		equ 12
+GCol:		equ 13
+SCol:		equ 14
+SPal:		equ 15
+SColB:		equ 16
+FlRaz:		equ 17
+Flash:		equ 18
+ShRaz:		equ 19
+Shift:		equ 20
+EHide:		equ 21
+CBlGet:		equ 22
+CBlPut:		equ 23
+CBlDel:		equ 24
+CBlRaz:		equ 25
+Libre:		equ 26
+CCloEc:		equ 27
+Current:	equ 28
+Double:		equ 29
+SwapSc:		equ 30
+SwapScS:	equ 31
+AdrEc:		equ 32
+SetDual:	equ 33
+PriDual:	equ 34
+ClsEc:		equ 35
+Pattern:	equ 36
+GFonts:		equ 37
+FFonts:		equ 38
+GFont:		equ 39
+SFont:		equ 40
+SetClip:	equ 41
+BlGet:		equ 42
+BlDel:		equ 43
+BlRaz:		equ 44
+BlPut:		equ 45
+VerSli:		equ 46
+HorSli:		equ 47
+SetSli:		equ 48
+MnStart:	equ 49
+MnStop:		equ 50
+RainDel:	equ 51
+RainSet:	equ 52
+RainDo:		equ 53
+RainHide:	equ 54
+RainVar:	equ 55
+FadeOn:		equ 56
+FadeOf:		equ 57
+CopOnOff:	equ 58
+CopReset:	equ 59
+CopSwap:	equ 60
+CopWait:	equ 61
+CopMove:	equ 62
+CopMoveL:	equ 63
+CopBase:	equ 64
+AutoBack1:	equ 65
+AutoBack2:	equ 66
+AutoBack3:	equ 67
+AutoBack4:	equ 68
+SuPaint:	equ 69
+BlRev:		equ 70
+DoRev:		equ 71
+
+EcCall:		MACRO
+		move.l	EcVect,a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalA:		MACRO
+		lea	\2,a1
+		move.l	EcVect,a0
+		jsr	\1*4(a0)
+		ENDM
+EcCalD:		MACRO
+		moveq	#\2,d1
+		move.l	EcVect,a0
+		jsr	\1*4(a0)
+		ENDM
+EcCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	EcVect,a0
+		jsr	\1*4(a0)
+		ENDM
+
+*************** AMOS Window library
+
+* Window structure
+WiPrev:		equ 0		
+WiNext:		equ WiPrev+4	
+WiFont:		equ WiNext+4	
+WiAdhg:		equ WiFont+4
+WiAdhgR:	equ WiAdhg+4
+WiAdhgI:	equ WiAdhgR+4
+WiAdCur:	equ WiAdhgI+4
+WiColor:	equ WiAdCur+4
+WiColFl:	equ WiColor+4*6
+
+WiX:		equ WiColFl+4*6
+WiY:		equ WiX+2
+WiTx:		equ WiY+2
+WiTy:		equ WiTx+2
+WiTyCar:	equ WiTy+2
+WiTLigne:	equ WiTyCar+2
+WiTxR:		equ WiTLigne+2
+WiTyR:		equ WiTxR+2
+WiDxI:		equ WiTyR+2
+WiDyI:		equ WiDxI+2
+WiTxI:		equ WiDyI+2
+WiTyI:		equ WiTxI+2
+WiDxR:		equ WiTyI+2
+WiDyR:		equ WiDxR+2
+WiFxR:		equ WiDyR+2
+WiFyR:		equ WiFxR+2
+WiTyP:		equ WiFyR+2
+WiDBuf:		equ WiTyP+2
+WiTBuf:		equ WiDBuf+4
+WiTxBuf:	equ WiTBuf+4
+
+WiPaper:	equ WiTxBuf+2
+WiPen:		equ WiPaper+2
+WiBorder:	equ WiPen+2
+WiFlags:	equ WiBorder+2
+WiGraph:	equ WiFlags+2
+WiNPlan:	equ WiGraph+2
+WiNumber:	equ WiNPlan+2
+WiSys:		equ WiNumber+2
+WiEsc:		equ WiSys+2
+WiEscPar:	equ WiEsc+2
+WiTab:		equ WiEscPar+2
+
+WiBord:		equ WiTab+2
+WiBorPap:	equ WiBord+2
+WiBorPen:	equ WiBorPap+2
+
+WiMx:		equ WiBorPen+2
+WiMy:		equ WiMx+2
+WiZoDx:		equ WiMy+2
+WiZoDy:		equ WiZoDx+2
+
+WiCuDraw:	equ WiZoDy+2
+WiCuCol:	equ WiCuDraw+8
+
+WiTitH:		equ WiCuCol+2
+WiTitB:		equ WiTitH+80
+WiLong:		equ WiTitB+80
+WiSAuto:	equ WiTitH
+
+***********************************************************
+*		WINDOW INSTRUCTIONS 
+***********************************************************
+
+WiVect:		equ $108
+AMOSLoaded	equ $10C
+
+ChrOut:		equ 0
+Print:		equ 1
+Centre:		equ 2
+WindOp:		equ 3
+Locate:		equ 4
+QWindow:	equ 5
+WinDel:		equ 6
+SBord:		equ 7
+STitle:		equ 8
+GAdr:		equ 9
+MoveWi:		equ 10
+ClsWi:		equ 11
+SizeWi:		equ 12
+SCurWi:		equ 13
+XYCuWi:		equ 14
+XGrWi:		equ 15
+YGrWi:		equ 16
+	
+WiCall:		MACRO
+		move.l	WiVect,a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalA:		MACRO
+		lea	\2,a1
+		move.l	WiVect,a0
+		jsr	\1*4(a0)
+		ENDM
+WiCalD:		MACRO
+		moveq	#\2,d1
+		move.l	WiVect,a0
+		jsr	\1*4(a0)
+		ENDM
+WiCal2:		MACRO
+		moveq	#\2,d1
+		move.l	#\3,a1
+		move.l	WiVect,a0
+		jsr	\1*4(a0)
+		ENDM
+
+**************	Equates basic
+EcFonc:		equ 8
+EcEdit:		equ 9
+EcFsel:		equ 10
+EcReq:		equ 11
+
+EdTx:		equ 78
+EdBTT:		equ 512+256
+NbEnd:		equ 10
+EcEBase		equ 45
+DEBase		equ EcEBase+35-1
+SpEBase 	equ DEBase+25
+FkLong:		equ 26
+Shf:		equ %00000011
+Ctr:		equ %00001000
+Alt:		equ %00110000
+Ami:		equ %11000000
+
+***************	Menu definition
+		RsReset
+MnPrev:		rs.l 	1
+MnNext:		rs.l 	1
+MnLat:		rs.l	1
+MnNb:		rs.w	1
+MnFlag:		rs.w	1
+MnX:		rs.w	1
+MnY:		rs.w	1
+MnTx:		rs.w	1
+MnTy:		rs.w	1
+MnMX:		rs.w	1
+MnMY:		rs.w	1
+MnXX:		rs.w	1
+MnYY:		rs.w	1
+MnZone:		rs.w	1
+MnKFlag:	rs.b	1
+MnKAsc:		rs.b	1
+MnKSc:		rs.b 	1
+MnKSh:		rs.b	1
+* Menu objects
+MnObF:		rs.l	1
+MnOb1:		rs.l	1
+MnOb2:		rs.l	1
+MnOb3:		rs.l	1
+MnAdSave:	rs.l	1
+MnDatas:	rs.l	1
+MnLData:	rs.w 	1
+MnInkA1:	rs.b	1
+MnInkB1:	rs.b	1
+MnInkC1:	rs.b	1
+MnInkA2:	rs.b	1
+MnInkB2:	rs.b	1
+MnInkC2:	rs.b	1
+MnLong:		equ __RS
+
+* Flags
+MnFlat:		equ 	0
+MnFixed:	equ 	1
+MnSep:		equ 	2
+MnBar:		equ 	3
+MnOff:		equ 	4
+MnTotal:	equ 	5
+MnTBouge:	equ 	6
+MnBouge:	equ 	7
+
+*************** Test control bits 
+BitControl:	equ 	8
+BitMenu:	equ 	9
+BitJump:	equ 	10
+BitEvery:	equ 	11
+BitEcrans:	equ 	12
+BitBobs:	equ 	13
+BitSprites:	equ 	14
+BitVBL:		equ 	15
+
+***************************************************************
+*		Interpretor datas zone
+*		Pointed to by A5
+***************************************************************
+
+		RsReset
+
+*************** VBL ROUTINES 
+VblRout:	rs.l 8
+
+*************** EXTENSIONS
+AdTokens:	rs.l 27		
+AdTTokens:	rs.l 27
+ExtAdr:		rs.l 26*4
+ExtTests:	rs.l 8
+
+*************** GRAPHICS
+AreaSize:	equ 16
+AreaInfo:	rs.b 24
+AreaBuf:	rs.b AreaSize*5+10
+		rs.b 16
+TmpRas:		rs.l 2
+AppNPlan	rs.w 1
+SccEcO:		rs.l 1
+SccEcD:		rs.l 1
+
+*************** File selector
+EdFSel:		rs.w 1		
+FsAdEc:		rs.l 1
+FsFlag:		rs.w 1
+FsActive:	rs.w 1
+FsPosF:		rs.w 1
+FsIFlag:	rs.w 1
+FsLPath:	rs.w 1
+FsLPath1:	rs.w 1
+FsCPath:	rs.w 1
+FsLNom:		rs.w 1
+FsCNom:		rs.w 1
+FsWiAct:	rs.w 1
+FsSp:		rs.l 1
+FsWy:		rs.w 1
+FsWx:		rs.w 1
+FsVApp:		rs.w 1
+
+********************************* Editor
+BasSp:		rs.l 1	
+FkEcran:	rs.l 1	
+FkOn:		rs.w 1	
+FkJeu:		rs.w 1	
+FkOJeu:		rs.w 1	
+FkMFlag:	rs.w 1
+AmiAff:		rs.w 1
+AmiOAff:	rs.w 1
+
+EdEcran:	rs.l 1	
+EdBufE:		rs.l 1	
+EdBufT:		rs.l 1	
+
+EdXPos:		rs.w 1	
+EdYPos:		rs.w 1
+EdXCu:		rs.w 1	
+EdYCu:		rs.w 1
+EdTabs:		rs.w 1	
+EdFlag:		rs.w 1	
+EdNLigne:	rs.w 1	
+EdIns:		rs.w 1	
+EdEdit:		rs.w 1	
+EdChange:	rs.w 1	
+StModif:	rs.w 1
+EdFkCpt:	rs.w 1	
+EdAfFk:		rs.w 1
+EdMKey:		rs.w 1	
+EdMkFl:		rs.w 1	
+EdMkIns:	rs.w 1	
+EdILigne:	rs.w 1	
+
+EtMess:		rs.w 1		
+EtAlert:	rs.l 1		
+EtCps:		rs.w 1		
+EtOCps:		rs.w 1
+EtAX:		rs.w 1		
+EtAY:		rs.w 1		
+EtFr:		rs.w 1		
+
+SlDelai:	equ 10		
+EtASlX:		rs.w 1
+EtASlY:		rs.w 1
+WbClose:	rs.w 1		
+
+********************************* Escape
+EsFlag:		rs.w 1
+EscTFonc:	rs.l 1
+LEdXCu:		rs.w 1
+LEdYCu:		rs.w 1
+ColBack:	rs.w 1
+EFkFlag:	rs.w 1
+DefFlag:	rs.w 1	
+
+********************************* Float
+FloatBase:	rs.l 1
+MathBase:	rs.l 1
+BuFloat:	rs.b 64
+DeFloat:	rs.b 32
+TempFl:		rs.l 1
+TempBuf:	rs.l 1
+ValPi:		rs.l 1
+Val180:		rs.l 1
+CallAd:		rs.l 1
+
+********************************* Disque I/O
+IffParam:	rs.l 1
+IffFlag:	rs.l 1
+BufFillF:	rs.l 1
+FillFLong:	rs.w 1
+FillFSize:	rs.w 1
+FillFNb:	rs.w 1
+FillF32:	rs.w 1
+DirLong:	rs.l 1
+DirComp:	rs.w 1
+DirLNom:	rs.w 1	
+PathAct:	rs.l 1
+DirFNeg:	rs.l 1	
+BufBMHD:	rs.l 1
+BufCMAP:	rs.l 1
+BufCAMG:	rs.l 1
+BufCCRT:	rs.l 1
+BufAMSC:	rs.l 1
+
+********************************* Tokenisation / Stockage
+TkAd:		rs.l 1	
+TkChCar:	rs.w 1	
+VerPos:		rs.l 1	
+VerBase:	rs.l 1	
+Parenth:	rs.w 1	
+DtkMaj1:	rs.w 1	
+DtkMaj2:	rs.w 1
+StTTexte:	rs.l 1	
+StHaut:		rs.l 1	
+StBas:		rs.l 1	
+StMini:		rs.l 1	
+StDLigne:	rs.w 1	
+StFLigne:	rs.w 1	
+StNLigne:	rs.w 1	
+LimSave:	rs.w 4
+FsLimSave:	rs.w 4
+Buffer:		rs.l 1	
+BMenage:	rs.l 1
+Name1:		rs.l 1	
+Name2:		rs.l 1
+BufEsc:		rs.l 1	
+TBuffer:	equ 1024	
+TMenage:	equ TBuffer-64
+Access:		rs.l 1		
+AcLdTemp:	rs.l 1
+AccFlag:	rs.w 1
+BBanks:		rs.l 2*16
+BankGrab:	rs.w 1
+BankFlag:	rs.w 1
+RunAct:		rs.l 1
+NamePrg:	rs.b 128	
+RasAd:		rs.l 1		
+RasLong:	rs.l 1
+RasSize:	rs.w 1
+RasLock:	rs.l 1
+ScOn:		rs.w 1
+ScOnAd:		rs.l 1
+BufBob:		rs.l 1
+BufLabel:	rs.l 1
+Logo:		rs.l 1
+LMouse:		rs.l 1
+VBLOCount:	rs.w 1
+VBLDelai:	rs.w 1
+SScan:		rs.w 1
+Seed:		rs.l 1
+OldRnd:		rs.l 1
+PAmalE:		rs.w 1
+DosBase:	rs.l 1
+ReqSave:	rs.l 1
+ReqSSave:	rs.l 1
+SNoFlip:	rs.w 1
+LockSave:	rs.l 1
+EdDisk:		rs.w 1
+Handle:		rs.l 1
+PrtHandle:	rs.l 1
+PosFillF:	rs.w 1
+
+********************************* Variables / Run
+DebSave:	equ __RS
+Passe:		rs.w 1
+VarBuf:		rs.l 1		
+VarBufL:	rs.l 1		
+VarBufFlg:	rs.w 1		
+LabHaut:	rs.l 1		
+LabBas:		rs.l 1
+LabMini:	rs.l 1
+DVNmBas:	rs.l 1		
+DVNmHaut:	rs.l 1
+VNmLong:	rs.l 1
+VNmHaut:	rs.l 1
+VNmBas:		rs.l 1
+VNmMini:	rs.l 1
+VDLigne:	rs.l 1
+BaTablA:	rs.l 1		
+HoTablA:	rs.l 1
+VarLong:	rs.w 1
+GloLong:	rs.w 1
+VarGlo:		rs.l 1
+VarLoc:		rs.l 1
+TabBas:		rs.l 1
+ChVide:		rs.l 1		
+LoChaine:	rs.l 1		
+HiChaine:	rs.l 1		
+HoLoop:		rs.l 1
+BaLoop:		rs.l 1
+
+Direct:		rs.w 1
+DirFlag:	rs.w 1
+PLoop:		rs.l 1
+MinLoop:	rs.l 1
+BasA3:		rs.l 1
+ErrRet:		rs.l 1		
+ErrRAd:		rs.l 1
+Phase:		rs.w 1
+DRun:		rs.l 1
+DTablA:		rs.l 1
+CurTablA:	rs.l 1
+PDebug:		rs.l 1
+Actual:		rs.w 1
+ActuMask:	rs.w 1		
+IffMask:	rs.l 1
+ExpFlg:		rs.w 1
+FixFlg:		rs.w 1
+
+*************** ANIMATIONS
+AnCanaux:	rs.w 64
+InterOff:	rs.w 1
+
+*************** DEF SCROLLS
+DScrolls:	rs.w 6*16
+
+*************** BANKS
+ABanks:		rs.l 1
+
+*************** Disc / Printer
+FhA:		equ 0
+FhT:		equ 4
+FhF:		equ 6
+TFiche:		equ 10
+NFiche:		equ 10
+ChrInp:		rs.w 1
+Fichiers:	rs.b TFiche*NFiche
+
+*************** MENUS
+MnNDim:		equ 8
+MnBase:		rs.l 1
+MnBaseX:	rs.w 1
+MnBaseY:	rs.w 1
+MnChange:	rs.w 1
+MnMouse:	rs.w 1
+MnError:	rs.w 1
+MnAdEc:		rs.l 1
+MnScOn:		rs.w 1
+MgFlags:	rs.w 1
+MnNZone:	rs.w 1
+MnZoAct:	rs.w 1
+MnAct:		rs.l 1
+MnTDraw:	rs.l 1
+MnTable:	rs.l MnNDim+1
+MnChoix:	rs.w MnNDim
+MnDFlags:	rs.b MnNDim
+MnDAd:		rs.l 1
+MnProc:		rs.w 1
+MnRA3:		rs.l 1
+MnRA4:		rs.l 1
+MnPile:		rs.l 1
+OMnBase:	rs.l 1
+OMnNb:		rs.w 1
+OMnType:	rs.w 1
+
+*************** Every
+EveType:	rs.w 1
+EveLabel:	rs.l 1
+EveCharge:	rs.w 1
+LogoFlag:	rs.w 1
+
+*************** Miscellenous
+BuffSize:	rs.l 1
+AdrIcon:	rs.l 1
+IconBase:	rs.l 1
+FolFlg:		rs.w 1
+FolPos:		rs.l 1
+FolPPos:	rs.l 1
+FoLine:		rs.l 1
+CurLigne:	rs.l 1
+DebProc:	rs.l 1
+AdEProc:	rs.l 1
+XEProc:		rs.w 1
+EdBloc:		rs.w 1
+YOBloc:		rs.w 1
+Y1Bloc:		rs.w 1
+Y2Bloc:		rs.w 1
+EdBlocAd:	rs.l 1
+SchFlag:	rs.w 1
+SchMode:	rs.w 1
+DefPal:		rs.w 32
+SchBuf:		rs.b 34
+RepBuf:		rs.b 34
+EdMarks:	rs.l 10
+
+********************************* RUN init variables 
+DBugge		rs.l 1
+DebRaz:		equ __RS
+PrintFlg:	rs.w 1
+PrintPos:	rs.l 1
+PrinType:	rs.w 1
+PrintFile:	rs.l 1
+UsingFlg:	rs.w 1
+ImpFlg:		rs.w 1
+ParamE:		rs.l 1
+ParamF:		rs.l 1
+ParamC:		rs.l 1
+InputFlg:	rs.w 1
+ContFlg:	rs.w 1
+ContChr:	rs.l 1
+ErrorOn:	rs.w 1
+ErrorChr:	rs.l 1
+OnErrLine:	rs.l 1
+TVMax:		rs.w 1
+DProc:		rs.l 1
+AData:		rs.l 1
+PData:		rs.l 1
+MenA4:		rs.l 1
+LockOld:	rs.l 1
+CallReg:	rs.l 8+7
+MnChoice:	rs.w 1
+Angle:		rs.w 1
+FinRaz:		equ __RS
+FinSave:	equ __RS
+
+********************************* Total data length
+DataLong:	equ __RS
+
+
+
+
+;Added by Andy Church, 23/06/94:
+
+Bnk_BitData	equ 0
+Bnk_BitChip	equ 1
+Bnk_BitBob	equ 2
+Bnk_BitIcon	equ 3
+
+L_Error		equ 1024
+L_ErrorExt	equ 1025
diff --git a/extensions/Intuition-41.95/Intuition/ASSEMPRO.INF b/extensions/Intuition-41.95/Intuition/ASSEMPRO.INF
new file mode 100644
index 0000000..8df4b0e
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/ASSEMPRO.INF differ
diff --git a/extensions/Intuition-41.95/Intuition/IVread b/extensions/Intuition-41.95/Intuition/IVread
new file mode 100644
index 0000000..c60cdfb
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/IVread differ
diff --git a/extensions/Intuition-41.95/Intuition/IVread.asm b/extensions/Intuition-41.95/Intuition/IVread.asm
new file mode 100644
index 0000000..e9f035b
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/IVread.asm
@@ -0,0 +1,40 @@
+;Read a row of an ILBM RLE-compressed picture into memory
+;D1=Y
+;D2=Width
+;D3=Depth
+;A0=Data
+;A2=DestList
+;Returns A0=End of compressed data used.  This can be used in the next
+;  call to this procedure (with Y incremented by one).
+
+ReadILBM:
+	movem.l	d0-d5/a1-a2,-(a7)
+	add.w	#15,d2		;Make sure it's word-aligned
+	lsr.w	#4,d2
+	add.w	d2,d2
+	mulu	d2,d1
+	subq.w	#1,d3
+.bploop moveq	#0,d0
+	move.l	(a2)+,a1
+	add.l	d1,a1
+.xloop	move.b	(a0)+,d5
+	ext.w	d5
+	bpl.s	.read
+	cmp.b	#-$80,d5
+	beq.s	.nxtX
+	move.b	(a0)+,d4	;Copy a single byte multiple times
+	neg.w	d5
+	add.w	d5,d0
+	addq.w	#1,d0
+.copylp move.b	d4,(a1)+
+	dbra	d5,.copylp
+	bra.s	.nxtX
+.read	add.w	d5,d0		;Copy a string of bytes literally
+	addq.w	#1,d0
+.readlp move.b	(a0)+,(a1)+
+	dbra	d5,.readlp
+.nxtX	cmp.w	d2,d0
+	blt.s	.xloop
+	dbra	d3,.bploop
+	movem.l	(a7)+,d0-d5/a1-a2
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/IntuiViewer.AMOS.info b/extensions/Intuition-41.95/Intuition/IntuiViewer.AMOS.info
new file mode 100644
index 0000000..ab4f787
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/IntuiViewer.AMOS.info differ
diff --git a/extensions/Intuition-41.95/Intuition/IntuiViewer.guide b/extensions/Intuition-41.95/Intuition/IntuiViewer.guide
new file mode 100644
index 0000000..0ac16aa
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/IntuiViewer.guide
@@ -0,0 +1,62 @@
+@database IntuiViewer.guide
+@$VER: IntuiViewer.guide 40.1 (07/05/94)
+
+@node main "IntuiViewer - an Intuition-compatible picture viewer"
+
+This file documents IntuiViewer, a program written in AMOS to display pictures
+in an Intuition-friendly way.
+
+IntuiViewer is copyright � 1994 Andrew Church, but may be distributed freely
+as long as (1) it remains unmodified, (2) all files (the executable, source
+code, and this document) are distributed together, and (3) no fee, other than
+a minimal copying fee, is charged for the program.
+
+	@{" Description " link Description} - Exactly what does it do?
+	@{" Usage       " link Usage} - How do I use it?
+
+	@{" What's the Intuition Extension? " link Intuition.guide/main}
+
+@endnode
+
+@node Description "IntuiViewer - Description"
+@next Usage
+
+IntuiViewer is a program written in AMOS (and a bit of assembler) that
+displays pictures.  Now, this kind of program would not be hard to write in
+AMOS - except that IntuiViewer, as its name implies, displays the pictures on
+Intuition screens.  And to do that, it uses the Intuition Extension.
+
+Naturally, since I'm the author of the extension as well, this program shows
+off some of the capabilities of the extension. :-)  Although the program is
+not yet very complex, due to both my lack of much knowledge of graphics file
+formats and the current state of the Intuition Extension.  (I could have
+waited to add more features before releasing the extension, but then I'd never
+release it. :-) )  As I add more functionality to the extension, this program
+will improve as well.
+
+@endnode
+
+@node Usage
+@prev Description
+
+To run IntuiViewer, either double-click on its icon from the Workbench, type
+"IntuiViewer" from the Shell, or load it into AMOS and run it.
+
+When the program starts, it immediately brings the Workbench display to the
+front if necessary.  Then it opens a window and prints a welcome message, and
+puts up a file requester.  Here, you can choose any IFF ILBM picture you
+want.  If the file is not a valid IFF ILBM file, or if it cannot be displayed
+for whatever reason (too many colours, out of memory, etc.), a requester will
+pop up telling you what went wrong.  Otherwise, a new screen will open up and
+the picture will be displayed.  The screen is a standard Intuition screen;
+you can send it behind the Workbench screen with RightAmiga-M, or bring the
+Workbench screen to the front with RAmiga-N.  If you do this, you'll notice
+that the IntuiViewer window contains information about the file.  When you're
+done looking at the picture, press Escape (either the IntuiViewer window or
+the picture must be the active window - click on one, if necessary) to kill
+it.  At this point, the file requester will reappear.  You can select a new
+file if you want, or click on Cancel (or press RAmiga-C) to quit IntuiViewer.
+Clicking on the close gadget of the IntuiViewer window will also quit the
+program.
+
+@endnode
diff --git a/extensions/Intuition-41.95/Intuition/IntuiViewer.info b/extensions/Intuition-41.95/Intuition/IntuiViewer.info
new file mode 100644
index 0000000..a228c2c
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/IntuiViewer.info differ
diff --git a/extensions/Intuition-41.95/Intuition/Intuition.guide.info b/extensions/Intuition-41.95/Intuition/Intuition.guide.info
new file mode 100644
index 0000000..34c13db
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/Intuition.guide.info differ
diff --git a/extensions/Intuition-41.95/Intuition/Intuition.lib.info b/extensions/Intuition-41.95/Intuition/Intuition.lib.info
new file mode 100644
index 0000000..0545f58
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/Intuition.lib.info differ
diff --git a/extensions/Intuition-41.95/Intuition/Shanghai.guide b/extensions/Intuition-41.95/Intuition/Shanghai.guide
new file mode 100644
index 0000000..7642aa3
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/Shanghai.guide
@@ -0,0 +1,201 @@
+@database Shanghai.guide
+@$VER: Shanghai.guide 40.1 (03/07/94)
+
+@node main "Shanghai"
+
+Shanghai is an ancient Chinese solitaire game.  The original version
+was played with ivory or stone tiles by sailors thousands of years
+ago.  With the advent of computers, dozens of computer versions of the
+game have appeared, some called Shanghai, some called Mah Jongg, but
+all equally fun.
+
+	@{" About the game " link About}
+	@{" How to play    " link HowToPlay}
+
+@endnode
+
+@node About "About Shanghai"
+@next HowToPlay
+
+Shanghai is played with 144 tiles; the object is to remove all the
+tiles from the board.  There are 42 distinct tiles:
+
+
+Craks - 1 through 9.  These are the numerical digits of Chinese; each
+        one has a Chinese character below the symbol for the number.
+ _____   _____   _____   _____   _____   _____   _____   _____   _____
+| ___1| | ___2| | ___3| | ___4| |/__ 5| | ___6| | ___7| | /\ 8| | __ 9|
+|     | | ___ | | ___ | | \_/ | ||++  | | / \ | |  l_ | |     | | |l  |
+|     | |     | | ___ | |     | | --- | |     | |     | |     | |     |
+|     | |     | |     | |     | |     | |     | |     | |     | |     |
+|_____| |_____| |_____| |_____| |_____| |_____| |_____| |_____| |_____|
+
+Dots - 1 through 9.
+ _____   _____   _____   _____   _____   _____   _____   _____   _____
+|  _ 1| |    2| |    3| |    4| |    5| |    6| |    7| | OO 8| |    9|
+| / \ | |  O  | | O   | | O O | | O O | | O O | |O O O| | OO  | | OOO |
+|(   )| |     | |  O  | |     | |  O  | | O O | |O O  | | OO  | | OOO |
+| \_/ | |  O  | |   O | | O O | | O O | | O O | |O O  | | OO  | | OOO |
+|_____| |_____| |_____| |_____| |_____| |_____| |_____| |_____| |_____|
+
+Bamboos - 1 through 9.  The 1 bamboo has a picture of a bird.
+ _____   _____   _____   _____   _____   _____   _____   _____   _____
+|    1| |    2| |    3| |    4| |    5| |    6| |    7| |    8| |    9|
+|     | |  I  | |  I  | | I I | | I I | | I I | |  I  | |I/\I | | III |
+|     | |     | |     | |     | |  I  | | I I | | III | |     | | III |
+|     | |  I  | | I I | | I I | | I I | | I I | | III | |I\/I | | III |
+|_____| |_____| |_____| |_____| |_____| |_____| |_____| |_____| |_____|
+
+Dragons - 3 types.  One looks like a grid; one is the familiar Chinese
+          serpent; and one has a "C" in the upper right corner.
+
+Winds - North, South, East, and West, represented by the appropriate
+        letter in the upper right corner and the Chinese character.
+
+Seasons - Summer, Winter, Spring, and Autumn.  Summer is represented by
+          a sun and "SUM"; Winter, by a snowflake and "WIN"; Spring, by
+          a flower and "SPR"; and Autumn, by a leaf and "AUT".
+
+Flowers - 4 different flowers, represented by "MUM" (chrysanthemum),
+          "PLUM" (plum), "ORC" (orchid), and "BAM" (bamboo).
+
+
+There are four of each tile, except for the seasons and flowers, of
+which there are only one each.
+
+
+The object of Shanghai is to remove all the tiles from the board.  This
+is accomplished by finding two tiles that "match" and removing the
+pair.  Any two identical tiles match; any season matches any other
+season, and any flower matches any other flower.
+
+In itself, this does not sound complex.  However, there is an
+additional limitation on removing tiles: the tile must be "free",
+meaning that it must have at least one long edge free (i.e. one long
+edge that is not adjacent to any other tile), and it must not have any
+tiles on top of it.
+
+
+The initial setup of the board looks like this diagram:
+
+                        TOP VIEW
+     __  __  __  __  __  __  __  __  __  __  __  __
+    |  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  |
+    |__||__||__||__||__||__||__||__||__||__||__||__|
+             __  __  __  __  __  __  __  __ 
+            |  ||  ||  ||  ||  ||  ||  ||  |
+            |__||__||__||__||__||__||__||__|
+         __  __  __  __  __  __  __  __  __  __ 
+        |  ||  ||  ||  ||  ||  ||  ||  ||  ||  |
+        |__||__||__||__||__||__||__||__||__||__|
+     __  __  __  __  __  __  __  __  __  __  __  __
+    |  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  |
+ __ |__||__||__||__||__||  __  ||__||__||__||__||__| __  __
+|  | __  __  __  __  __   |  |   __  __  __  __  __ |  ||  |
+|__||  ||  ||  ||  ||  || |__| ||  ||  ||  ||  ||  ||__||__|
+    |__||__||__||__||__||__  __||__||__||__||__||__|
+         __  __  __  __  __  __  __  __  __  __ 
+        |  ||  ||  ||  ||  ||  ||  ||  ||  ||  |
+        |__||__||__||__||__||__||__||__||__||__|
+             __  __  __  __  __  __  __  __ 
+            |  ||  ||  ||  ||  ||  ||  ||  |
+            |__||__||__||__||__||__||__||__|
+     __  __  __  __  __  __  __  __  __  __  __  __
+    |  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  |
+    |__||__||__||__||__||__||__||__||__||__||__||__|
+
+
+                       FRONT VIEW
+                           __
+                          |__|
+                         __  __
+                        |__||__|
+                     __  __  __  __
+                    |__||__||__||__|
+                 __  __  __  __  __  __
+                |__||__||__||__||__||__|
+ __  __  __  __  __  __  __  __  __  __  __  __  __  __  __
+|__||__||__||__||__||__||__||__||__||__||__||__||__||__||__|
+
+
+                        SIDE VIEW
+                           __
+                          |__|
+                         __  __
+                        |__||__|
+                     __  __  __  __
+                    |__||__||__||__|
+                 __  __  __  __  __  __
+                |__||__||__||__||__||__|
+             __  __  __  _ __ _  __  __  __
+            |__||__||__||_|__|_||__||__||__|
+
+
+Note the four "special tiles": one on top that covers the four central
+tiles, and three on the sides that block the two central rows.  These
+four tiles should be removed as soon as possible.
+
+@endnode
+
+@node HowToPlay
+@prev About
+@next Boards
+
+When Shanghai starts up, a random board number from 0 to 65535 will be
+chosen and displayed.  Most of the time, this will be a board you have
+not played before.  The playing screen looks like this:
+ _______________________________________________________
+|                                                       |
+|                [Board displayed here]                 |
+|                                                       |
+|  F1 - statistics   F2 - undo move     F3 - new board  |
+|  F4 - next board   F5 - replay board  Esc- exit       |
+|                                                       |
+| Board 12345*                          Tiles left: 144 |
+|_______________________________________________________|
+
+The bottom line indicates which board number you are playing and how
+many tiles remain to be removed.  A '*' following the board number
+indicates you have played the board before but have not won it; a '!'
+means that you have won the board.
+
+The controls for the game are:
+
+Left mouse button - select a tile to remove.  If you have not selected
+                    any other tiles, the tile's border is highlighted
+                    to show that it is selected.  If you then click on
+                    the same tile again, it is deselected and the
+                    border returns to the normal black.
+
+                    If, however, you have already selected a tile, then
+                    the tile already selected and the tile you clicked
+                    on are removed, assuming they are a legal match.
+
+Right mouse button - If you have not selected a tile, clicking the
+                     right mouse button will look for all the possible
+                     moves you can make, and show them to you one at a
+                     time.  Press any key or click a mouse button to
+                     see the next one; press Esc to cancel.
+
+F1 - Show the statistics for the current game, and for all the boards
+     that have been played.  If you hold Shift while pressing F1, you
+     will instead get a list of all the boards you have won and all the
+     boards you have played but not won.
+
+F2 - Replaces the last pair of tiles you removed.  You can keep doing
+     this all the way back to the beginning of the game.
+
+F3 - Lets you pick a new board to play.  The board number at the lower
+     left corner of the screen will disappear; you can type in the
+     board number you want, which must be between 0 and 65535
+     inclusive.  Press Return to start playing the board
+
+F4 - Starts playing the next board (the board whose number is one
+     greater than the current board).  If you are on board 65535, this
+     will take you to board 0.
+
+F5 - Starts the current board over again.
+
+Esc - exits the game.
+
+@endnode
diff --git a/extensions/Intuition-41.95/Intuition/aic-test.amos b/extensions/Intuition-41.95/Intuition/aic-test.amos
new file mode 100644
index 0000000..3a9e646
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/aic-test.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/backup b/extensions/Intuition-41.95/Intuition/backup
new file mode 100644
index 0000000..1c887e6
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/backup
@@ -0,0 +1,7 @@
+makedir t:int
+copy ~(#?.uu) t:int all
+copy /extasm.c t:int
+t:int
+lha -rx m ram:Intuition.lha #?
+rm Intuition:#? all
+mv ram:Intuition.lha Intuition:
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3a-1.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3a-1.txt
new file mode 100644
index 0000000..5b9ab26
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3a-1.txt
@@ -0,0 +1,51 @@
+From: "Mr. Giark To You" <joehick@golden.net>
+To: achurch@cmu.edu
+Date: Thu, 17 Oct 1996 10:10:29 -0500
+Subject: Intuition
+
+Here's an example code.  It works fine until the gadget is defined.
+If a mouse button is pressed, the Amiga locks up completely.
+Do you have to open a window for gadgets to work?
+
+Also, the Iwindow Activate Wb N command is not in the docs
+I have. 40.44 (12/10/94)
+
+I'm still unable to sense the pressing of a close button on a
+window on the workbench.
+
+Amos To Back 
+
+SCR=Irequest Screen("Gadget Test")
+WID=Ireq Scr Width
+HGT=Ireq Scr Height
+CLR=Ireq Scr Colour
+RES=Ireq Scr Mode(0)
+Iscreen Open 66,WID,HGT,CLR,RES,"Gadget Test"
+
+Reserve Igadget 1
+Set Igadget Hit 1,20,20,20,20
+Igadget Active 
+
+Iwait Key 
+Iscreen Close 66
+Amos To Front 
+
+I have an A500 020 14MHz with 1C/4F RAM OS3.1
+I use AMOS Pro V2 and I have the registered Intuition
+extension version 41.65.
+
+Is there a newer version available?  Is the Ibeep command
+going to be in the next one?
+
+Well met and godspeed,
+                      Giark
+                                          joehick@golden.net
+                                    http://www.golden.net/~joehick/
+     ______  ______    _____  .------------------------------------------.
+    / ____/ / __  /   / ___ \ !     AMOS games, utilities, demos, etc.   !
+   / /__   / /_/ /   / /  / / !                                          !
+  / ___/  / ___  |  / /  / /  !       CyberSpace BBS (519)579-0072       !
+ / /     / /__/ /  / /  / /   !       A2000/060 50MHz(519)579-0173       !
+/_/     /______/  /_/  /_/    !                                          !
+   Fly By Nite Videe-Oh!      !  FBN Amiga 500/020 14MHz 1C/5F RAM 3.1OS !
+                              `------------------------------------------'
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-0.readme b/extensions/Intuition-41.95/Intuition/bugs/1.3b-0.readme
new file mode 100644
index 0000000..e22d752
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-0.readme
@@ -0,0 +1,63 @@
+From: "Jacek Kubica  " <KUBICA@ch.wssk.am.wroc.pl>
+To: achurch@CMU.EDU
+Date:          Sat, 24 Feb 1996 19:39:26 0100
+Subject:       Intuition Extension 1.3b bugs report
+X-Pmrqc:       1
+Return-Receipt-To: "Jacek Kubica  " <KUBICA@ch.wssk.am.wroc.pl>
+X-Mailer:     Pegasus Mail v3.1 (R1)
+
+
+                              Hello Andy!
+
+               THX for ur famous Intuition Extension :))
+               
+I`m testing AmosPro version of this extension on my machine:
+
+A3000/KS3.1/WB3.1/25MHz/FPU/2mb chip and 8 mb fast
+AmosPro & Compiler 2.0
+Pal/ECS
+reqtools.library 38.1266
+additionaly MUI 3.2 and MagicWB
+
+and now I want to send U my first short bug report:
+
+1. Imouse Key function don't work :( on my machine
+   see example /bad_tests/Imouse_Key.amos
+   
+2. Irequest Font$ return bad value <long unusualy string,and crashes 
+   my system just after secound runing my example program>
+   see example /bad_tests/IReq_Font$_test.amos
+   
+   BTW.In ur guide U wrote :
+   "font$=IRequest Font$"   
+   but font$ its AMOS internal command i.e. A$=Font$(fontnumber)
+   so better syntax example is F$=IReqest Font$
+
+3. After calling Iwindow close WB(after using Iwindow To Front) 
+   amos always reported Error( Window not opened)
+   only with wb window, with own Iscreen all is OK
+   see example /bad_tests/WBwinsWintofront.amos 
+
+4. IWindow Move working OK but not at all good
+   see example /bad_tests/IWindow_Move.amos 
+
+Irequest File$,Set Ifont,Ifont$,Itext Base,Itext Length,Ifont Height
+see examples in dir /OK_Tests :)
+
+I send U example files with next mail ... and sorry for my poor 
+english :)
+Tomorrow I want to test this example on my A500/KS2.05&KS1.3/4MB ram
+
+   With greetings from pl
+
+          Jacek
+
+              
+______________________________________________________________________
+
+                \\\\                Jacek Kubica
+                 \\\\   ////  kubica@ch.wssk.am.wroc.pl
+                  \\\\ ////    Regional Hospital Wroclaw
+                   \\\X///             POLAND
+                    =====
+______________________________________________________________________
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-0.uu b/extensions/Intuition-41.95/Intuition/bugs/1.3b-0.uu
new file mode 100644
index 0000000..2782c3e
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-0.uu
@@ -0,0 +1,165 @@
+From: "Jacek Kubica  " <KUBICA@ch.wssk.am.wroc.pl>
+To: achurch@cmu.edu
+Date:          Sat, 24 Feb 1996 19:44:35 0100
+X-Pmuue:       INT_EXPL.LHA
+X-Finfo:       DOS,"INT_EXPL.LHA",,,,Binary
+Subject:       Intuition extension test example
+X-Mailer:     Pegasus Mail v3.1 (R1)
+
+ * This message contains the file 'INT_EXPL.LHA', which has been
+ * uuencoded. If you are using Pegasus Mail, then you can use
+ * the browser's eXtract function to lift the original contents
+ * out to a file, otherwise you will have to extract the message
+ * and uudecode it manually.
+
+begin 660 INT_EXPL.LHA
+M+[<M;&@U+<\!``!J`P``,[YB(```&4)A9%]497-T<UQ);6]U<V5?:V5Y+F%M
+M;W.%.0&-8H+NU:4?_??;/B(1LM28($_D3"@F'.0@J8-HH,,RB[@1'AVS].\-
+M[WL>^^T[P)$1%W7%<#R1WH]%U79<5Q7+[[_[?,[(+P[GK`$J:;M78V=PJUE;
+M]LOA3J:I`3MJ@A[;%&OL17EJ+75(3%+85V.+ACLP-@>X9^;QQ1\2RV=<HH2@
+MD)<BV*,V<CQ<P'D0/;E/=_YCT`!`WS[3\L':!@[':&_D_1OGXQY\+;8-MT*\
+M++S['VKGJOLI%3I5+1<<;[&*A*U(56'@D+TW+T=NYH@4#;9SU&95[;EW.F64
+MDVD\\SQ0_C??S==KZ#(B5??;<'OLVU%!,;=B?A8J,[;T]+3*W%'"J-K1C:=3
+MI:<PST3-.:N2%EF^7E+<L:U>#H=0)Z$_%'Y;/(#S<*B"_+RG3^0\X-YH<C@^
+M\X/)2%LP!S_Z!W3#S)X@XJ8EY?#JAG1!NI,#D="T3A=3'"H_T+G'"U,<*DX7
+M/Q7SP.)]<U\Y>'*?L5[F%K"7GR/M,CNJ,<DO/U:-ZTG:[$G;?X67,*2ZQ_^D
+M[W8DUHF7,5)NNO$D^!">9NQ^G1\V0Y=W#HW!E6PG[C*;OFPG]']UI^K?L:;>
+M8_;LHG^`_@^7KIIH%6"LL``T@RUL:#4MA`(``'`$``!/OF(@```>0F%D7U1E
+M<W1S7$E297%?1F]N="1?=&5S="YA;6]S$0L"2V)[UC:B__7)7"83&-@RN$_5
+MIFT,\N<@I5M"Y&C1'9-JY@Z#UZ^Z]QKWO9]WO:VPT1B,Y@,1C,;#\!68PF7O
+M__=V*NT%01NBNUIMVO3M[H[,$TD(\6OL>`0#H;V@]3W`U+:DL'<1[6HF8A8L
+M)0\*U8%P2DRT@`!-G\3(Y)N?^K0QJTR8!O07QXH,+4"J(;=0:]6CG8+@!W3?
+M]ZW4L#Y,*DX-9J6S-@PY!F8N1.`VX;(P)OC,B%1*(@O."UM2;!"N":-$PRDY
+M9"B6485<.%#"`@#2,=[.S=]CXR)%JQP-DOH'UCB6IB"<$L@QUQ.<3:2YJ&OO
+M#_^1%1&I8N443$Z05/V_]HUV>5MO-9.XC(R875GA5+*<G2/H$;52PX!JFR"E
+MLMY"ZU%67S";L"<@J9&5?+CK&4/TPXE+X#G_;]`U=U#!N&!:TZBKI,@;C$8Y
+M_+6G^OGDP1LK'%N8]4XP#PO!M=.GI>\+)%SP;YKI>Z=;P3K#-#?SO@7GJAXY
+MYL*>ANG/=6XEC9&2*2/FQL?'7?V+Q58D8Q"1O9!M)OY!\L;5PQUB",\RW,IZ
+M;A7I4#O7<,TCA/5/_O9_Y+WLG5_+5Z)J87$SL8:LR,,0HQD<E/T$1Y,0#$C%
+M1A#-6_Q7W\I7HY2OJ3X"#7+)RQS&[KF_H'T:`?U.!^WM*Q##&J2$L1U2H=><
+M8EJ//OETP??(L"F]H?)SS?*#'@IE66E$')\R&PZ/Q`.L]2XRAW+]]4FN[S>^
+M<*2P%.<'WWPNTON>O/\AN^Z&].WM[5T](\BBSSHB0MH:_)]N45YX5U/Z%_5P
+M7U2D,\K[T$/`+%#W+,^8YP/S`>:ZJ8?BC$T\8_H::?#/F>?=J79F`#%M+6QH
+M-2TJ`@``J@,``)(18R```!M"861?5&5S='-<25=I;F1O=U]-;W9E+F%M;W.5
+M\0(#8W>QMJ)?EJ4!AD&6+A`(5/Y;(+F%EU+BTR5"EP&2IC6Y;,,D+(1+)+IR
+MDG=5.Z6:,Q"&@P&`T$,!H)^(;'@6,![N[M*%#,K<`DB;;N[V#A';;.1P<E>Q
+MLB`4?C289X`%#QT#B-&-Z4A732CO&R/#BD*X@ABBD334'V931P#@W1PR(&][
+M(A*9`GDC>$F(2(.+AHXWG(9A4((7D$;BE*QK?<`LL!?ZC.G[@\8`#`<:MZ'M
+MY]V`Y]PZ8<>A[T\^Z&U_V*J7BHD(MC//RH:&NU8PC+&1"'BCAF&Z5V8?*_)&
+MX_KI0VJM5Z7S_RK#X3[U)UGZY^_J6K^KPDBQPO?R`*?CMJ0M%GL+"TIQM)8W
+MLCFST-N/0#NR82.-J+]S.7IK+SD>*,SG[;E&2%K?-C-*1R!L;7AK5]@`'.=J
+M+.ZBSB'H:V)OEK1&=>B&IL5;5?7\%>K:LU;&TD5VLY_OK/Z8]&;^#TW;_F3_
+M:F<G;63U4AWJL39(1@6\/D<?:E.>!IN)J5+CM8X4C&6-+Z3JD-%BA;!T&4S?
+M`H<WUGD+\E[Z.5H>NST2=YOQE(Y7SS>*:0]#\@'28H;G]\^\JI/<GE>=\TD+
+MHQ*HM084/O#&3D?0+9712`*O@FC^*83S'0F'4YE9)+[+L)(4<C<9#2'%TB:R
+MU4Y'&Y<'B?F5L`=90>F_%$+2<37LNNPXF@7:#?M^*R.:![J:U%/>Q1UIWOG[
+MA^LO=-C_V5JSC`+L6V<`-,4M;&@U+?,!``!&`P``ZQ)C(```'D)A9%]497-T
+M<UQ)5VEN9&]W7TUO=F5?5T(N86UO<^%$`=9BFNZMM1+_+@J\&%QFH*B5_8R+
+MD&RZNSJJ5:W*8*YUN'<&!$1FD]=/$DGJ3WI8WO>1YG@>1YGF1YGX'O;O>]I5
+MH;BMP!R*-N]P8>(;KR3OC):VML$6EX:SE7W$%&2H8D3"_0>6!%`X$9##%/*^
+MHZ)0L378'VZ$31##OCDG4+_RD$J%!,\Q@?$#J2'T33&?CRA@@\O*!=9\KG=_
+M1%KN%@ZA:OF+T$1.%\&K^E*]CG6Y\:=_O6OO%U>(\F.,W^95?1VV>+I5>PT+
+M6I&UFC>R,^>QY\T0WY^0[[S"_<T%Z[2])'CF0__7J!/&[PHQHH._$\+?DLVM
+MDB&@[L-.ZS3BC1V<3WSLR(@-(-C9L6[7@\=JQ;W+&UY5BNUH/^)I_KCHSAP^
+MV]@]:^[6T$[C2>NL.:Q(\>,1->'TOPNT)3$Z]([0MQW<<:QE5S5^U/TEJ.5+
+MA0%5(JA2ES?>F0OU:OIYFAK?GHD[S?O,1S/GGX5S7T_X1=)RIO?_C[[*)]ZF
+M5Z843QP"1E)BD!4)A,?EA4'I8`L!*W0NF"3*$Y4J7#JDRTDM]FU.GE&1Z8Z)
+MTB`ZZ7V5)I%VZ..'*Q1%UF!Z\,D@=7BZBFU`)"(FUJX+GGW!G@?`M\F/>Y4S
+M/>6FSP=2^E^8QI1ZHT),+7/5W^&)JXR*])NI(C4G+6QH-2T#`@``3`8``-8(
+M8R```!]"861?5&5S='-<5T)7:6YS5VEN=&]F<F]N="YA;6]SY.(!MF-WL;:_
+MW204!D,*J)!@,?P9"M%I+9;C4$@R+<,38VM1F%2R$)=I.IN4Z3HI.A,T'`^/
+M`$;#K>!HAYTZ]17%C&YB"0AR.3QI/#,RC31-H2_OX>$,`YBOA[GKNR`A-W.V
+MPWZA7$$F0&_.9!9#$#'@#&6.`]`89"1@..`-PQYB!DGC?04\8`DWVJ3-N@\L
+M(8=X$'`Q8R`Y^O)+LB$)IC7^8A>!@7!U6ZW$+;3I,"]:L[&C-CV+__$G/OBU
+M>$L5-1>BC+4#P4%1R'G0&0P_;-32J8FTWUU$ZZS==1OL!G]NC?)"&]/QE?&F
+ME!=S27U5%UD<<IW_H.@)S.XCR'H*_",+WBM/6Q"#2=L*.ZRCB"&M9!\MJ(\!
+M(@L6W+SUGPO.7MIR[XTBM32?N*/]8-'L6'TW^#SIWM;23\BB?>2'(Y$,I@A5
+M</F?Y':)IH71Q.T)L=V0R1FQ3`>G6,HRRN`_!>>+H7_4J7^X#FW2O/EUZ:MV
+ME0?_L'_&#<YV#:7`?JO/EZ&#[-3!W4L&&5A-D2V%Z7]84/PPO=_;"A=_S#ML
+M5OBI:]@0NI3#6*_O6R?VVTT+HVV?SML:-NS3R6[O/R$[AXHD\K4P<9#)<64D
+MAY4$@`DLIY0L8\W'!&=`'3S#D@LY^5W/'8%SD3/-FG.6B6?E5_^;-6OWWV:M
+M]JK?:R\V>;[?BP)Y9R[%+6QH-2VV`0``X@(``&2X8B```!A/2U]497-T<UQ)
+M1FEL95]297%S+F%M;W,CY0&!8GKNL;46_>[!SA:+35P*N*?P:770-P9R:!0:
+M%R*&@.<;4QL%@]>[W:\.OO9[WN+;#1'X"L!B,9@,+#$8S$1E,)D(7WO6W7:L
+M)P-X:20N6SZ?5P%MPJEB+AV-GR$`]]J1G]\4_1+RG+?/[)SJ6>8ELJ+FF3R3
+M0WB)FG[YJ'\&T&_6VU]S$+7:^@L.P;5+\]%G[NLF`T#5.<#:,-WMOZ?NR8MM
+MM;WMQUF&.L:(MT/>RW5%?+`Y6FP#6W$+GE7*E!>?`N`MB#9N%?FE6LZ"N82L
+MHCPEYKL\T5W6`HM5Z#_><3[.0W3<7>;(=5N>:C^V7[&XQ&U"U?4*2=$3DKIW
+MK*/RR$?`QPCD*&1O"$)2'ODH\241J_ZOQYE>GF5ZBL*%PX"KE(U9Y<[H#Q=0
+MGNY!.\X3J[J;Y174RQ')2;QUW6PA),F\4W1U5!`Q<'S:7P=N8V0<8/LYE>D&
+M+XL-CL<0'A,]SLA_-CU6]6Y[]`D)QH8((!:>_`&I_H;C=#='C3/-EAR515\7
+MURC?[!O6#^;@?@9'<*(RN0Q>LEI+7L$[RA:_S@]%W)H_73XM_)M+_,QB,?^S
+M>VU``#>G+6QH-2WW`0``6`,``*.X8B```"%/2U]497-T<UQ)1FEL95]297%S
+M7T5X=&5N9&5D+F%M;W.,S@'!8GO6-J+?]V#MAU%HY05R)^&I7L&>#.30*#4N
+MRH:`[)M1!-=`Z]WNUX;?>K[WN;U!@81^`K`8C&8#"PSF(C*83(0O_O==N=F%
+MD&^'1W%R6O-N;P[$*I8A]&KK>`0#,LZ+CVZ$'EEOF'=-ZYC*69(K+(<*4<*8
+M<`OFG68\9HQ]ADJE0?3`'0`.RY4_8:X,_7&9]3(%O/^@66^&WH?CEA^S87"6
+MN5N,`UW`V^F]U_=E\MQF;O%1FX%&89P7*GO*.N%CDIL;;*5?VCKFE65##Y)U
+MP#JP:UT<295E48W<8VCQXQV;TR8KQ5/58KS'NPTGTLION-+NB5_UV>]RK^BG
+ML[1(V(6+ZPR3'B:E;H6^HU^033DX/PC#(S22$9#8A4:)!XU?]7WZ5;]*NTK&
+M=<,XV!D8L\/.Z?7*LLM_4\>YO882M=)RDC-)#-?65'3KK<'`1K2YE_6RK_.U
+M?W=M&(8KR)8C"I&`R[S*VD2C`*>7>2"`J4!YSJ_!OV8VU"\6Q;L@9/BPWF\0
+M+(;H;-(EM8000`U/FZ7B@E/(BB7/QHF3E;`'M`-%QWC+0&DG79P/YYZ@G113
+MK"EMW[@';Z+7C:AJ^FE",JAL9/KR#?[9/^!_-H/M%>\)XQNPQ>H5H'O61;T7
+M;:G,#SF[7A^?YR]^3,7L-'/]G_:P;"@`+FPM;&@U+<D!```H`P``M;MB(```
+M&$]+7U1E<W1S7$E-;W5S95]87UDN86UO<X5^`8QBFNZR)1;][W<Z1'#(M1P4
+M)_DBE!$>><&@:N8L#B.F*<#=1P=[>VG1M]O&^]T]H)$1%G6%8#B1GP_`6S+"
+ML*Q=][V^V:Q9FZ`ZVFY>P;GI+;A3)$7MN7=D@+&;GF>]`[-_!-D3&3Y0HQ%`
+M2HTJ+'/-ZYX95PO49!]?BFGX4EN>4ID%+02:$JC8]L&[?V`[QAYLU[K?`>``
+M&&^Q9_?4LPJ6.D-^U\5_?<'A?J,8*E;K##3OH5DD5(L?\F56L5S6NX2XIY%*
+MC06&@KR,5!>/@R3Q<&HL,SF&-AZVT9Z;B'1:.G)=+]UC\V=^5__B=;_JR(B:
+M/MN#35,4>61=T^R&*,I6P6.:1"HYV7)KZNN44TZ(Y]3_ENQS%MOF+=)-"%0Y
+M2[Y8']J_*[+.J6""O]@`LF/[C^=848/+Q2)<M/(L!&8\YF\MG0YGU7,[1PE5
+M3.S^@-!C//LB7AN"GDTMD*K@W4^!QNA;;(78YX4W[A=%D+=YX4[(7M,N4.P+
+MB<YWFX%M/E5F1?MJGES/FT!;;(XZ>6O$_^`<50#!T`-']`>P8Z^-_\QJVZ:7
+MZXNMB-T_T<O[LY2G^2^0#=2C\.O=G+OZL2]C9-@7I=M(`#/6+6QH-2V1`0``
+ME`(``'<`8R```!U/2U]497-T<UQ)4V-R965N7TE7:6YD;W<N86UO<^PY`6AB
+MN]&VHG_-0@F,*%-@V1,_XV$D\%EL;EJHJ-V42[;:4U#8,80Z]>I>)).A)T.V
+M?$B/D?8CZ$][\%WP/B?1T[=@V'Q770)(7);_#%B'<)2<H\D-W;$`T/GKN.\8
+M;:34I'*@<%):#&F$DV0<"CS9$*&*=N!NR(I,.6J8J3HF6[HUMZ2D41C%OCZG
+MWUX=AS:_8!['`XN^[J?4/:``X'/77H?3JK<#JK#O!SZ7V7;\@?'$>6>0W=/G
+ML$R:CLF/PZ$P##!=QBJ@Z4K(Q](WYLG2.[FJH+F?7%-EDYL_CMG(?=M;S=`_
+M)M_F9/?!USULQ7D>*N"V'=5@NFTW38;K#V>WB%-&._5C.4E:_CSKZ[%VH\M"
+M"_TBAJD@PHG0HY8R#>]%N&X`#G=>8[L,<2:2WE)T6Y49#2B]<M7H7_-#:O>>
+MU=]*RO#G?\K']0?_[#%P7^+WKSMC.GZV)[*QS6I2'D&-FX?<7-`JFF.`DL"E
+M['@GD68ZY9_+.5?\OM*N&N6-IO/K;X?SKOK^'?U72[.`7Y=RD``U@BUL:#4M
+M'@(``$`&``"$"V,@```?3TM?5&5S='-<375L:7=I;G-?86YD5VEN5$8N86UO
+M<]ZR`=)BF]6VO]_+4B\"(--06J9_HTS<C)=+<ZY!V&[*A7.UIL#@3"$LOJWQ
+M))Z$GH2[C1'D>Q'H>!['X&O,\3V>GI*K77AFX%>%Z7I?BD_$IR@2-.(6YNWN
+M`=IF$K0^1BUJB`*Z7845WP\)R0G'=B<.5]P@\)7L)HQO/D>%E[".VX:$@XHG
+MFCE,B%B.2`;L<H4YAQ0&>.(HI_1DIM2,T#8WMP<$1Q0/-&\-V%J`A'@"@`!1
+M4K?``UU`WN@K3](;*(2@<4F=#T2YJ!+F'.#BY_J1KT@V/IQ[+>:]UX\14\2\
+M&0ZXL+VL`QP%.='-\'&-Q[#QCMXXH&L>FBE=E-OI>S-;PK\F:GFFW^5-ST>`
+MKN:XL#&4^,R.K8G&?/"`=62IT5>DDGH3&]!)OIC]O>)EHC8[D6`K3*$F#K3E
+M]%)>8CPP&:<9C&)Q>^9\T96FV1MZ]AC4`!G.UTG:J3AR.6,3.2PZ;"1T:^HM
+M;8T^VPM;UEK7<0*J3G[*3],>3U^]X[F]WT3JLY/NI)]=`<BSK)7!;3V'O-8U
+MXX86UV75XT='7?<0,[4E!YM+WI,T)J#ZYL[_*O]3.O]D5MF1>=BM)RW631_^
+MP?\8-;,P=&:@_.;/)RL'U,[!VD,&,K":H3,+S/ZPH_EA:O[87\'_\PZJE+VI
+M*X4?.*2FJ4_C,R?UEV<\NA^I:D\NC6RR_OOH9]]'+O#Y91Z/M#[I,57Y?MC<
+M=VD?.T`UTRUL:#4M_`$``,`%``!R!6,@```?3TM?5&5S='-<375L=&EP;&5?
+M5T)W:6YD;W<N86UO<Q1?`;5BF]6VO]_+5BB8>"FP+E<_Y<):C)=+<ZJCL-N4
+M2N=K1P-#&$/665OB>DD)/0EW&B/(]SR/`\SS/P;1X'H][U\@XMX;N%XGI>E^
+M-+\,W*!+4HA;.]<X!M$E*Z/I<K[`@'-^/689]`5CO2G'>F,<L9GAO6AO%AP1
+M3C<C>A$D.`=PT4KPX9H73EBA$4&^@DSH3Q2/C<W1\%2HCQT6-;Z`&TP&_T6=
+M+VAM@`,!Q)SH>S)FP&3,.>'%H>Y'7V@\O`6!+M;E=D>6WVY\F@*=N$\Q5.?D
+MQG;%QNO?&>0ISH$7^,;,.#C'<Q32.XJB%3MJ>:7#R/(4\N;'J7W\*GW4_#ZM
+MQ<&<I\44QQPF)ZY0#JI4Z+/243T5F]%1OIC^>>8CKSX[LU\KI$04'7SE]11=
+M9&])$[]23C,9N[%'%.5U\@V.]5<UP`<YVFH[JJ.'>-5PDQU8(L#T`T]=JPY4
+M[KC5C9:K]]`K3SGZRC^D.7EVYY[._XT>[5SD_"HGV4!WFH"%,+ZMP^)W$W/+
+M*^V2!N=&QVXS(&=Q*#SJ1E&:"T'WKSN\L_Z>:?ZPM;:9YVM9.K=E2/_Z#_E!
+MM<E!T5H/V7GCY:#ZF:@ZZ*#')0FP"Z%YG]H4?U0O8_="C7_U#LL4O@J:_NCY
+MV)36*'S7\E\O?0S=]%7B3]2_DG%F,`LP6D?(D#.0+6QH-2WE`0``J`4``'8"
+M8R```!U/2U]497-T<UQ-=6QT:7!L95]W:6YD;W<N86UO<^D0`9AB>]8VO]_U
+MY>43"+38%5%_RT=;`O7=JNJHJ-V42NVUHX%!,(>OK[%\=W=W'=[CKH:(Q$92
+M,A@,Q^"[`1@,CWO;U!Q=!K!86@L1D[XT/PTV8!RI1Z6]B[M#J$F.4?0]9[0@
+M')^'3:<\X.H-,@=B>!!Y(##0>+!'0-V0T0DBP#JP1S&'<GB*@\<0I+\Q17,H
+MCE?&[K#WJU9/C;:J?4`\#0;/-<SO:'A``:#;5.E[-Z;0;TPY8;>9[DX^R'EV
+MCPJ<KDQ93,;KC'^K<B1.=;EY,2'1>=LWQHE.A"1%_=&W%@W1U<,\I<-9*I46
+M\T_COO(5<DVO6S/ZEOO/QOK'%Y.Q@ZBD=MSH+#YK!^:L?T1_7WF(4SXZT]\Y
+M2*+];*7ZJR["/IEC+]R4#/`[>CDCH.5\@VNY8>T0`<IVJL[GK.(-!8W"8K$,
+M>`T(U=&O:>K=MZO:TZ]GNI%=+*?TEG\X<GUZ[KV]GQI]V?E)]]9/L)#FKPD/
+M`+Z]P^(N%VB:9]TD+M"=CNR0*U`I!Y5/Z+,TF(/O9.]_:YZ0J_"NFL_QU[_U
+M>]#?KVVQ!_#)XOW7OG<%>[+*\\CBKR/\KSU^&O*7__U[<:I_)=7_RGC,4FM-
+;U&<.^3/2X,[>/.'VQCT\F_S5%R0`MPZDP```
+ 
+end
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-1.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-1.txt
new file mode 100644
index 0000000..e7d285f
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-1.txt
@@ -0,0 +1,73 @@
+Date: Wed, 6 Dec 1995 12:37:41 +0100 (MET)
+From: calendin <calendin@massilia.univ-mrs.fr>
+To: Church Andy <achurch@cmu.edu>
+Subject: Bug Report 1
+Mime-Version: 1.0
+
+
+    Hello Andy ! First bug report ! (fast, heh ?)
+
+    Well, I tested the beta version of your extension, and I even didn't
+manage to run Intuiviewer !!
+
+    When I run it, the window appears normaly. Then I select the LOAD option :
+the file requester appears and I choose an HAM6 640x512 pixels picture.
+
+    I wait, but nothing happens. Then I switch back to AMOS, and I see that
+an "OUT OF MEMORY" error occured on the IREQUEST FILE$("Select an IFF ILBM
+picture") command.
+
+
+    Hum, well, rather strange. I try to avoid this problem by putting a
+remark at the beginning of this line. Then I insert the line :
+
+    F$ = "DH2:test.iff"
+
+    I re-run the program, and select the LOAD option. The program loads the
+picture... and crashes totally my system !!!
+
+
+    I tried several times, even by booting with no startup-sequence, but
+that's always the same result... The intuiviewer worked fine with the 
+demo version, though...
+
+
+    So I started from scratch, opened a 4 colors hires screen and called 
+a file requester : same problem (out of memory). I've got the latest 
+version of the reqtools library, so I think it is not the source of the 
+problem...
+
+
+
+	Now, something different :
+
+	First, about the demos I'll code : I think that the user would be 
+interested in small and simple demos. Indeed, if someone wants to know 
+how to use gadgets or requesters, he won't feel like reading a 1000 lines 
+program just to find the topic he's interested in... So I suggest small 
+programs, each devoted to a specific feature of your extension 
+(requesters, gadgets, sliders, and so on). Do you agree with me ?
+
+
+	Now, to develop Collector (sorry I forgot it at home ! I'll send 
+you as soon as possible), I'll need a special feature that is not yet 
+available in your extension : the possibility to unpack packed pictures 
+into an intuition screen. So, could you implement it ? Only unpacking is 
+needed, and no change must be made to the code by Francois Lionet (only 
+redirection to an intuition screen). I need to unpack 4 bitplanes pics at 
+any coordinates on the screen (16 pixels boundaries for X coordinates are 
+okay for me). Hope this will be done soon ;-)
+
+
+    Okay, that's all for today ! See you !
+
+___          *
+_|_|       * |*
+_|_|   _    \| *
+_|_|  | |  *-|/
+    __`:'__ \_/
+   /._/|\_.\      MiNd CoNtRoL...
+  /  _.|,_  \
+ /   \_/_/   \    Fred. Calendini (calendin@massilia.univ-mrs.fr)
+/_____________\
+
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-10.asc b/extensions/Intuition-41.95/Intuition/bugs/1.3b-10.asc
new file mode 100644
index 0000000..5cd1b87
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-10.asc
@@ -0,0 +1,27 @@
+From: xcszjmp@scs.leeds.ac.uk
+Date: Fri, 26 Apr 1996 17:26:58 +0100
+To: achurch%dragonfire.net@gps0.leeds.ac.uk
+Subject: Re: Intuition...arrrghhh!
+
+>> Intuition
+
+This'll crash it!
+
+Iscreen open 0,640,240,8,hires,"Screen"
+Iwindow open 1,10,10,500,200,"Window"
+reserve igadget(10)
+Set Igadget Hslider 1,10,10,100,16,50,1,1,0
+iwait key
+igadget on
+iwait key
+iwindow close 1
+iscreen closee 0
+
+
+>> GURUS
+I'm sure I saw a program you could run (not AMOS - just an executable) that
+would stop gurus crashing the system....I presume you could call this from
+AMOS?
+
+
+JOE
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-10.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-10.txt
new file mode 100644
index 0000000..123831c
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-10.txt
@@ -0,0 +1,31 @@
+From: xcszjmp@scs.leeds.ac.uk
+Date: Fri, 26 Apr 1996 16:54:27 +0100
+To: achurch%dragonfire.net@gps0.leeds.ac.uk
+Subject: Intuition...arrrghhh!
+
+
+OK, got the library installed last night and then tried to run my program....
+
+set Igadget Hslider and Vslider crash the machine with guru message
+
+#80000004
+
+when Igadget On is called.
+
+Itrap won't stop this guru...so I have to reload every time....
+
+Please let me know what you think the problem may be....I'm using the AMOS 2
+files that you sent me, so there shouldn't be a problem....although my copy of
+AMOS 2 get spurious bytes of data in the menu texts and stuff...which might of
+(errm might have I mean (bad english)) a problem with initial UU Transfer....
+everything else works fine though...Compiler etc etc
+
+While i think about it is there any chance of writing an AMOS Procedure that
+will stop GURUS from being fatal...ie make them recoverable or is that not
+possible...it's a nightmare having to boot up (off floppy) each time.
+
+As far as I could work out from the brief tests I did, it was only these 2 sliders that crashed trhe machine....toggle and hit were ok, I didn't try string
+gadget...
+
+Thanks
+JOE
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-11.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-11.txt
new file mode 100644
index 0000000..76f1d5d
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-11.txt
@@ -0,0 +1,28 @@
+From: Richard Alain <allainr@sympatico.ca>
+Reply-To: allainr@sympatico.ca
+To: Achurch@cmu.edu
+Date: Mon, 21 Oct 1996 09:04:17 -0500
+Subject: AmosIntuition
+
+Amos intuition 1.3b
+The Command
+K=Imouse Key
+
+No Work.. 
+You have update or short example.
+The mx=Imouse x   work
+The my=Imouse y   work
+The k=Imouse key  NO WORK
+
+Tank
+Al.
+
+If you have update ship to mail uucode  tank.
+-- 
+Amiga 1200 mbx 1230 50 mz  2 meg chip 16 meg fast 1.7 gig for hd
+
+Alain Richard 2477 Bellerive Jonquiere P.Q. CANADA G7X 9A4
+La folie de ce monde reside en nous meme...
+
+
+
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-12.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-12.txt
new file mode 100644
index 0000000..241a9f0
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-12.txt
@@ -0,0 +1,155 @@
+From: Richard Alain <allainr@sympatico.ca>
+Reply-To: Richard Alain <allainr@sympatico.ca>
+To: Andy Church <achurch@dragonfire.net>
+Date: Tue, 22 Oct 1996 14:02:57 -0500
+Subject: AmosIntuition 1.3b
+
+hi Andy.
+
+AMos 1.36, and Amospro Test Amos Intuition 1.3b
+
+Cut-----------------------------------
+'Exemple Amos Intuition v1.3b
+Amos To Back
+Iscreen Open Public 1,640,200,16,Hires,"Ecran"
+Iink 7
+'Imenu Fonction
+Set Imenu " Main  ",1
+Set Imenu " Go   1 ",1,2
+Set Imenu " Go   2 ",1,3
+Set Imenu " Go   3 ",1,4
+Set Imenu " Go   4 ",1,5
+Set Imenu "   Here  ",2
+Set Imenu "  Quit  - Sortir ",2,1
+Imenu On
+Reserve Igadget 2
+Set Igadget Hit 1,30,60,65,30
+Itext 35,70," Sortir"
+Itext 35,83," Quit "
+Set Igadget Toggle 2,35,140,85,30
+Iink 1
+Itext 55,155,"Change"
+Igadget On
+C1=Ichoice(1)
+C2=Ichoice(2)
+C3=Ichoice(3)
+Iink 2
+Idraw 185,30 To 510,30 : Iink 1 : Idraw To 510,180
+Idraw To 185,180 : Iink 2 : Idraw To 185,30
+ROTATE
+'
+Iscreen Close 1
+Amos To Front
+Edit
+Procedure ROTATE
+'Screen Open 0,640,200,16,Hires : Palette $357,$FFF,$0,$FFF : Cls 0
+Flash Off : Curs Off : Hide
+SHAPE=1
+XOFFSET=320
+YOFFSET=100
+RADIUS=60
+Do
+C1=Ichoice(1)
+C2=Ichoice(2)
+C3=Ichoice(3)
+   For L00P#=0.0 To 6.28 Step 0.1
+      X=Sin(L00P#)*RADIUS*2+XOFFSET
+      Y=Cos(L00P#)*RADIUS+YOFFSET
+      X1=(Sin(L00P#+SHAPE*2)*RADIUS*2+XOFFSET)
+      Y1=(Cos(L00P#+SHAPE*3)*RADIUS+YOFFSET)
+      X2=(Sin(L00P#+SHAPE*4)*RADIUS*2+XOFFSET)
+      Y2=(Cos(L00P#+SHAPE*5)*RADIUS+YOFFSET)
+      X3=(Sin(L00P#+SHAPE*6)*RADIUS*2+XOFFSET)
+      Y3=(Cos(L00P#+SHAPE*7)*RADIUS+YOFFSET)
+      X4=(Sin(L00P#+SHAPE*8)*RADIUS*2+XOFFSET)
+      Y4=(Cos(L00P#+SHAPE*9)*RADIUS+YOFFSET)
+      Iink 2
+      Iwait Vbl
+      Idraw X,Y To X1,Y1 : Idraw To X2,Y2 : Idraw To X3,Y3 : Idraw To X,Y�      Iwait Vbl
+      Iink 0
+      Idraw X,Y To X1,Y1 : Idraw To X2,Y2 : Idraw To X3,Y3 : Idraw To X,Y�      K$=Iget$
+      K=Imouse Key :'<-------------------Here
+      MX=Imouse X
+      Iink 6
+      If Igadget Down(1) Then Exit 2
+      If Igadget Down(2) Then Inc SHAPE
+      If C1=1 and C2=1
+         Inc SHAPE
+      End If
+      If C1=1 and C2=2
+         SHAPE=SHAPE+2
+      End If
+      If C1=1 and C2=3
+         SHAPE=SHAPE+3
+      End If
+      If C1=1 and C2=4
+         SHAPE=SHAPE+4
+      End If
+      If C1=1 and C2=5
+         SHAPE=SHAPE+5
+      End If
+      If K$="a"
+         Inc SHAPE
+      End If
+      If K$="f"
+         Exit 2
+      End If
+      If C1=2 and C2=1
+         Exit 2
+      End If
+      If K=2
+         Inc SHAPE
+      End If
+      TMP$="Shape No.:"
+      TMP$=TMP$+Str$(SHAPE)
+      TMP1$=Str$(K)
+      TMP2$=Str$(MX)
+      TMP3$=Str$(FFY)
+   Next
+Loop
+End Proc
+Iscreen Close 1
+Amos To Front
+Edit
+Cut-----------------------------------------------------------------
+
+Ok the command Set Igadget Hslide no work, take to Vslide, change with 1.�a version
+Set Igadget String No work. Or I'm understand command...
+Cut---------------------------------------------
+Amos To Back �Iscreen Open 1,640,400,16,Hires+Laced,"Ecran"
+Iink 4,2
+Set Ipens 2,1
+Reserve Igadget 20
+'Set Igadget Vslider n,x,y,w,h,unit,pos,size,overlap Example   � Set Igadget Vslider 1,20,120,15,100,80,10,3,1
+ Set Igadget Vslider 2,60,120,15,100,80,20,3,1
+ Set Igadget Vslider 3,100,120,15,100,80,30,3,1
+ Set Igadget Vslider 4,140,120,15,100,80,40,3,0
+ Set Igadget Vslider 5,180,120,15,100,80,50,3,0
+ Set Igadget Vslider 6,220,120,15,100,80,60,3,0
+'
+' Set Igadget Toggle n,x,y,w,h �'  � Set Igadget Toggle 7,240,120,15,10
+ Set Igadget Toggle 8,240,135,15,10
+ Set Igadget Toggle 9,240,150,15,10
+ Set Igadget Toggle 10,240,165,15,10
+ Set Igadget Toggle 11,240,180,15,10
+ Set Igadget Toggle 12,240,195,15,10
+ Set Igadget Hit 13,20,40,15,10
+ Set Igadget Hit 14,40,40,15,10
+ Set Igadget Hit 15,60,40,15,10
+ Set Igadget Hit 16,80,40,15,10
+' Set Igadget String 17,100,40,15,3,60,"on",0    <- no work
+'
+' Set Igadget Hslider 7,20,100,150,10,80,1,3,3   <- bizard action to Vsli�e
+Igadget On �VOO:
+Itext 300,190,"Pes�e la barre pour sortir - Push bar to quit"
+Iwait Key �Igadget Off �Iscreen Close 1
+Amos To Front �Edit �Cut-------------------------------------
+-- �Amiga 1200 mbx 1230 50 mz  2 meg chip 16 meg fast 1.7 gig for hd
+
+Alain Richard 2477 Bellerive Jonquiere P.Q. CANADA G7X 9A4
+La folie de ce monde reside en nous meme...
+
+
+From allainr@sympatico.ca Tue Oct 22 14:11:51 1996
+Return-Path: allainr@sympatico.ca
+Received: from smtp1.sympatico.ca (smtp1
\ No newline at end of file
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-2.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-2.txt
new file mode 100644
index 0000000..64663c0
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-2.txt
@@ -0,0 +1,146 @@
+Date: Fri, 15 Dec 1995 10:29:58 +0100 (MET)
+From: calendin <calendin@massilia.univ-mrs.fr>
+To: Church Andy <achurch@cmu.edu>
+Subject: Bug Report 2
+Mime-Version: 1.0
+
+
+Hi Andy !
+
+Another bug report ! (what a cruel world ;-))
+
+
+BUGS :
+
+All these bugs occur under AMOS Pro 2.0, both under my normal
+everyhthing-is-patched-system, and under a very minimal environment (boot
+with no startup-sequence).
+
+
+- If I set a string gadget with a too small height (8 with the standard
+topaz font, for ex.), my system crashes. You should handle this error...
+
+
+- The "Igadget Active" with no arguments crashes. I simply define a Hit
+gadget, and run the "Igadget Active" command with no parameters. Then
+various effects appear (mouse frozen, display totally corrupted, and so on),
+and all crash my system... If I put an argument, it works...
+
+
+- If I try the ICls command, it crashes ! I opened a 4 bitplanes hires laced
+screen, then if do a Icls 4 I've got a software failure ! MCP says that it's
+an "Illegal address access (ie: odd)". Icls without arguments works.
+
+
+
+- Rhhaaa ! Bugs ! Bugs ! Bugs everywhere ! ;-)
+If I try to copy a portion of a screen to another place into the same
+screen, I've got a system crash ! On the hires screen described in the
+previous paragraph, I do something like Iscreen copy 0,0,0,320,200 to
+0,30,10 --> crash (I tried other values, and that did the same). MCP says
+that it's a "Line 1111 Emulator error" (???). Any idea ?
+
+
+- Same for the Iget Icon instruction. The Ipaste Icon instruction works
+fine, but I had to test it with an already defined icon bank. If I try to
+get an icon via Iget Icon, there's a crash (and I reserved a place in the
+icon bank, though (in fact I try to replace an already existing icon with
+one grabbed from the intuition screen)). MCP says "Illegal instruction"...
+
+
+- Oups ! If you use the "No Icon Mask" before using Ipaste Icon, then the
+pasted icons will be completely corrupted !!
+
+
+- Hem... Sorry but I didn't manage to understand the way sliders work. I
+want to define a vertical slider : I use the following definition.
+
+    Set Igadget Vslider 1,64,80,14,140,1500,0,1,0
+
+So, I should have a slider really smaller than the slider bar, but my slider
+fills totally the bar, so it's impossible to move it. I change the values
+randomly, but no change happens. Could you explain me what the SIZE value
+stands for (that's really not clear in the doc). I tried an horizontal
+slider. Here the slider is smaller than the title bar, but if I change
+values, nothing happens (it always has the same size). And if I click
+on the slider bar but not on the slider itself, the slider doesn't move (it
+should do, no ?) ! Does I have to handle it manually ? How ? Well...
+HEEEEEEEEELP !!!!
+
+
+Well, with all these system failures, I begin to wonder if there's not a
+fundamental problem between your extension and my beloved AMIGA... I forgot
+to tell you that I've a 68030 processor... But I don't think it's the cause
+of the problem. What's your configuration ?
+
+
+
+
+
+
+SUGGESTIONS :
+
+Here is a list of suggestions. Importance vary from *** (very important) to
+* (not so important) :
+
+
+** - Is it possible to write underlined, bold or italic text with the ITEXT
+command ? If not, it would be good to add this feature...
+
+
+* - What about implementing intuition screen zones ?
+
+
+*** - If you have 2 screens (or more) on the same display, there's no way to
+know on which screen is the mouse pointer. What about a Imouse Screen ?
+
+
+*** - Well, I think that the reqtools provides a string requester (function
+rtGetStringA). What about adding it as "A$=Irequest String (title$,maxcars)"
+? The 2.0 version of ReqTools is even able to display text above the entry
+gadget and more than one response gadget !
+
+
+*** - A "Iload Iff" command would be greatly apreciated !
+
+
+* - What about the palette feature of reqtools too ?
+
+
+
+
+CONCLUSION :
+
+The more I use your extension, the more I like it !! (even if I get nasty
+bugs :-( ). It's very comprehensive, and a pleasure to use... I think it's
+certainly THE major add on to AMOS that everybody should own. Indeed, even
+if other extensions improve development facilities, yours brings a
+fundamental evolution to our favourite language. If you'd decide to involve
+seriously into this project, I'm sure it could become a great commercial
+product (we could discuss about that). To give you an idea, the DevOs
+package (similar to Intos) is sold in France about 400 french francs (about
+$80 !) and is difficult to use (rather basic system calls). I know people
+working for the French Amiga press, so advertising could be possible with an
+article... Well, that's just a proposal (personnaly I've no interest in
+this)...
+
+I hope that this bug report will help you and that all these f****** bugs
+will be removed (that's a bit frustrating to see my AMIGA crash every 2
+minutes...). Your extension is a great program : It deserves an effort from
+your part (send me debugged version as soon as possible, since I can't do
+many things with this one) !
+
+See you !
+
+
+I'll send you collector just now !
+
+___          *
+_|_|       * |*
+_|_|   _    \| *
+_|_|  | |  *-|/
+    __`:'__ \_/
+   /._/|\_.\      MiNd CoNtRoL...
+  /  _.|,_  \
+ /   \_/_/   \    Fred. Calendini (calendin@massilia.univ-mrs.fr)
+/_____________\
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-3.uu b/extensions/Intuition-41.95/Intuition/bugs/1.3b-3.uu
new file mode 100644
index 0000000..9a5ead0
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-3.uu
@@ -0,0 +1,41 @@
+Date: Tue, 27 Feb 96 16:30:48 GMT
+From: secb2%teach@dcs.shef.ac.uk (Allatt MD)
+To: achurch@dragon.res.cmu.edu
+Subject: Intuition Extension problems
+
+Thanks for sending me the latest version of the intuition extension. I used it
+on a program I have been making, and it works fine except for the string gadget
+which causes a guru every time i press return after altering its contents.
+I am using WB2.04 and KS2.04 as well. I have included a uuencoded program that
+recreates the error
+
+Matt.
+
+
+begin 777 teststringgad.amos
+M04U/4R!"87-I8R!V,3,T(   ! HB 092 #P@02!'=7)U+7-T>6QE(&-R87-HX
+M('=I;&P@:&%P<&5N('=H96X@>6]U(&%L=&5R('1H92!C;VYT96YT<R   " !X
+M!E( ."!O9B!T:&4@<W1R:6YG(&=A9&=E="!A;F0@=&AE;B!P<F5S<R!%;G1EX
+M<BX@5&AE('-O9G1W87)E   8 092 "@@9F%I;'5R92!C;V1E('=A<R X,# PX
+M,# S('1A<VL@,# S-T,Y,S @   A 092 #H@:68@>6]U('-E;&5C="!T:&4@X
+M8VQO<V4@9V%D9V5T(&]N('1H92!W:6YD;W<L('1H92!P<F]G<F%M   B 092X
+M #P@9&]E<R!A;B!)9V%D9V5T(%)E860D*"D@8V]M;6%N9"!A;GEW87DL('=IX
+M=&AO=70@86YY('!R;V)S+"   ",!!E( /B!S;RP@:2!W;W5L9"!N;W0@<V%YX
+M(&ET('=A<R!A('!R;V)L96T@=VET:"!T:&4@26=A9&=E="!296%D)"@I   )X
+M 092  H@8V]M;6%N9"X@   # 22^   E 0!.#@<2;  ^      !< #X   "@X
+M %P /@    P 7  ^   !0 !< #X   "\ %P )@ +5&5S="!7:6YD;W<  %P X
+M-@    X   @! $X. 0+, #X        ( 0!.#@$1=  ^        & $ !@  X
+M @)S /^B "8 'E-E;&5C="!T:&4@<W1R:6YG(&=A9&=E="!B96QO=P  #P$ X
+M!@ & @)T /^B "8 #%!R97-S(%)E='5R;@  (0$ 3@X#!A@ /@   *#_R@!TX
+M $X. 05P '0 !@   @)S  !\_^P /@    ( ? !< #X    9 %P !@   @)SX
+M    (0$ 3@X#!A@ /@   *#_R@!T $X. 05P '0 !@ & @)T  !\_^P /@  X
+M  ( ? !< #X    C %P !@ & @)T    " $ 3@X!#S( /@    $   P! $X.X
+M A%. #X    " %P /@    $  "8! $X." _Z #X    ! %P /@   %  7  ^X
+M    ,@!< #X   "@ %P /@    P 7  ^    % !< "8 !4AE;&QO  !< #X X
+M   !   % 0!.#@ 05@  ! $"4 !J   + 0 &   $ &5V90#_H@!.#@ 2V   X
+M'@$"O@    8   0 979E /^B $X. !,> %0 !@  ! )T97@ _Z( 3@X $,@ X
+M=  ^     0!\ %0"V@  # $"7  &   $ &5V90#_H@!.#@ 31   $ $ !@  X
+M! )T97@ _Z( 3@X $,@ =  ^     0!\   ( 0!.#@$"M  ^         P$DX
+9J@  " $$=@ & !($ G1E>    $%M0G,    (X
+ X
+end
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-4.uu b/extensions/Intuition-41.95/Intuition/bugs/1.3b-4.uu
new file mode 100644
index 0000000..4979175
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-4.uu
@@ -0,0 +1,44 @@
+Date: Fri, 8 Mar 96 16:04:02 GMT
+From: secb2%teach@dcs.shef.ac.uk (Allatt MD)
+To: achurch@cmu.edu
+Subject: problems with intuition extension v1.3b
+
+I emailed you with a an error report concerning an error when handling string 
+gadgets a couple of weeks ago. After doing some better testing i have found
+that it is not the string gadget that produces the Guru, but any odd-numbered
+gadget. I have included a uuencoded segment which recreates the errors.
+
+Matt.
+
+begin 777 testgads.amos
+M04U/4R!"87-I8R!6,3,T(   !.PF 092 $0@069T97(@9&]I;F<@<V]M92!PX
+M<F]P97(@=&5S=&EN9R!)(&AA=F4@9F]U;F0@=&AA="!T:&4@<W1R:6YG(&=AX
+M9&=E=   )@$&4@!$(&YO="!A="!F875L="P@8G5T('1H92!P<F]B;&5M(&QIX
+M97,@=VAE;B!Y;W4@<V5L96-T(&%N(&]D9"UN=6UB97)E9"   "8!!E( 1"!GX
+M861G970N(%1H92!P<F]G<F%M(&)E;&]W('=I;&P@9&5M;VYS=')A=&4@=&AAX
+M="!W:&5N('EO=2!S96QE8W0@86X@   E 092 $(@;V1D+6YU;6)E<F5D(&=AX
+M9&=E="!T:&4@8V]M<'5T97(@=VEL;"!G=7)U+"!B=70@:68@>6]U('-E;&5CX
+M="!A;B   !T!!E( ,B!E=F5N+6YU;6)E<F5D(&=A9&=E="P@=&AE('!R;V=RX
+M86T@=VEL;"!W;W)K(&9I;F4N   4 0GJ #X      %P /@   H  7  ^   !X
+M  !< #X    " %P,A    P$DO@  )0$ 3@X'$FP /@      7  ^    H !<X
+M #X    , %P /@   4  7  ^    O !< "8 "U1E<W0@5VEN9&]W  !< #8 X
+M   .   ( 0!.#@$"S  ^        " $ 3@X!$70 /@       !D!  8   ("X
+M<P#_H@ F "!396QE8W0@<V]M92!O9B!T:&4@9V%D9V5T<R!B96QO=P  (0$ X
+M3@X#!A@ /@   *#_R@!T $X. 05P '0 !@   @)S  !\_^P /@    ( ? !<X
+M #X    / %P !@   @)S    " $ 3@X!#S( /@    D   P! $X. A%. #X X
+M   " %P /@    $  "<! $X." _Z #X    ! %P /@   %  7  ^    '@!<X
+M #X   "@ %P /@    P 7  ^    % !< "8 "$=A9&=E=" Q %P /@    $ X
+M "<! $X." _Z #X    " %P /@   %  7  ^    +0!< #X   "@ %P /@  X
+M  P 7  ^    % !< "8 "$=A9&=E=" R %P /@    $  !,! CP!%@ &  8(X
+M &-O=6YT97( _Z( /@    , E  ^    "0  *@$ 3@X%$3  !@ &" !C;W5NX
+M=&5R  !< #X   !0 %P /@    __X@!T  8 !@@ 8V]U;G1E<@#_P  ^    X
+M 0!\ %P /@   *  7  ^    #   %P$ !@   @)S /^B "8 !D=A9&=E=/_ X
+M!9@ =  &  8( &-O=6YT97(  'P  "\! $X. P88 #X   "@_\H = !.#@$%X
+M< !T  8   ("<P  ?/_L #X    " 'P 7 !T  8 !@@ 8V]U;G1E<@#_X@ ^X
+M    #P!\_\  /@   !< 7  &   " G,    * 0)&  8 !@@ 8V]U;G1E<@  X
+M  4! $X. !!6   $ 0)0 '8   L!  8 # 0 979E /^B $X. !+8   B 0*^X
+M $  !@ ,! !E=F4 _Z( 3@X $QX 5 1V "8 "D=A9&=E="!.;RX 9 !.#@ 2X
+MZ@!D "8 !2!H:70N  !4 MH   P! EP !@ ,! !E=F4 _Z( 3@X $T0   @!X
+: $X. 0*T #X        # 22J  !!;4)S   ,X
+ X
+end
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-5.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-5.txt
new file mode 100644
index 0000000..1991956
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-5.txt
@@ -0,0 +1,28 @@
+From: "D.S. IRVING" <gen3dsi@SOUTH-02.NOVELL.LEEDS.AC.UK>
+Organization: University of Leeds
+To: Andy Church <achurch@dragon.res.cmu.edu>
+Date: Thu, 29 Feb 1996 18:08:53 GMT
+Subject: Re: My  Sample-Play-via-MIDI Amos Utility....
+Return-receipt-to: "D.S. IRVING" <gen3dsi@SOUTH-02.NOVELL.LEEDS.AC.UK>
+X-mailer: Pegasus Mail for Windows (v2.23)
+
+Hello,
+
+I just remembered a problem I encountered with your intuition 
+extension....
+
+I have a problem with the 'igadget down' command in that it doesn't 
+always seem to respond correctly...also perhaps because of this if 
+you have a hit gadget ( i use one for left and right arrows for a 
+scroll bar) and you move the mouse off the gadget whilst the mouse button 
+is still down, the program interprets the hit gadget as being 
+depressed all the time. So when you let go of the mouse button, the 
+slider will continue to move, as it is processing the gadget as being 
+hit still. I hope you understood that! Anyway I was wondering if the 
+intuition extension has been updated and rereleased at all and how I 
+could get hold of it. Also are there any sample programs anyone has 
+written anywhere.....for example, for creating a scroll list. I've 
+written my own but it's a bit slow and cumbersome.
+
+Thanks,
+JOE.
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-6.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-6.txt
new file mode 100644
index 0000000..7255c44
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-6.txt
@@ -0,0 +1,32 @@
+From: MRLUCKY@cup.portal.com
+To: Achurch@goober.mbhs.edu
+Subject: AMOS INTUITION EXTENSION V1.3
+Lines: 25
+Date: Thu, 29 Feb 96 16:22:50 PST
+X-Origin: The Portal System (TM)
+
+DEAR MR. CHURCH,
+     LET ME SAY I ENJOY YOUR EXTENSION FOR AMOS VERY MUCH. I CURRENTLY
+USE IT WITH AMOS PROFESSIONIAL V2.0 ON MY AMIGA 1200.
+
+     I HAVE A PROBLEM WITH THE Iclear Mouse and Iclear All commands and
+i am hopeful you that you can help me. These two commands when used in
+in a loop when you want to deactivate a imouse click don't always work.
+By the way I have written many programs using Amos and Amos professional
+and I have one or two on Fred Fish CDs. I only tell you this to let you
+know that I usually know what I am doing. My loop looks something like
+this:
+      If imouse key=1
+          iclear mouse
+   if X>amount and X<amount and Y>amount and Y<amount
+       proc name
+    end if
+end if
+
+X and Y are x=imouse x and y=imouse y
+
+)Problem: mouse key goes off sometimes without button being pressed.
+          this only happens when I am over the coordinates.
+Any help would be appreciated. I am using V1.3 of your extension.
+yours truly - Kenneth McCormick
+mrlucky@cup.portal.com
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-7.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-7.txt
new file mode 100644
index 0000000..ca54378
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-7.txt
@@ -0,0 +1,43 @@
+Date: Fri, 22 Mar 1996 23:04:01 -0500
+From: Mark Coles <joehick@ophelia.waterloo.net>
+To: achurch@goober.mbhs.edu
+Subject: Bugs
+Mime-Version: 1.0
+
+Well found a few.
+
+First, `A=Iwindow Status Wb(1)' gets a syntax error and the WB part gets 
+all capitalized.
+
+As before, activating gadgets immediately generates a `suspend or reboot' 
+error and as soon as I click on suspend, the machine locks up.
+
+This is the program that generated the errors:
+
+Iwindow Open Wb 1,80,25,480,150,"YTest",4102
+Set Iwindow Wb 1
+A=Iwindow On Wb
+'A returns True
+B=Iwindow StatusWB(1)
+'The interpreter does that to the line and it is a syntax error
+
+Reserve Igadget 1
+Set Igadget Toggle 1,50,50,16,16,False
+Igadget Active
+
+Iclear All
+Iwait Key
+
+Iwindow Close Wb
+
+Well met and godspeed,
+                      Giark
+                                     joehick@ophelia.waterloo.net
+     ______  ______    _____  .------------------------------------------.
+    / ____/ / __  /   / ___ \ !     AMOS games, utilities, demos, etc.   !
+   / /__   / /_/ /   / /  / / !                                          !
+  / ___/  / ___  |  / /  / /  !       CyberSpace BBS (519)579-0072       !
+ / /     / /__/ /  / /  / /   !       on A2000 28MHz (519)579-0173       !
+/_/     /______/  /_/  /_/    !                                          !
+   Fly By Nite Videe-Oh!      !  FBN Amiga 500 020 14MHz 1C/5F RAM 3.1OS !
+                              `------------------------------------------'
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-8.txt b/extensions/Intuition-41.95/Intuition/bugs/1.3b-8.txt
new file mode 100644
index 0000000..e36b1df
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-8.txt
@@ -0,0 +1,30 @@
+From: xcszjmp@scs.leeds.ac.uk
+Date: Thu, 25 Apr 1996 16:13:25 +0100
+To: achurch%dragonfire.net@gps0.leeds.ac.uk
+Subject: RE: Intuition
+
+
+Thanks Andy, that Iwait Event should speed up my program quite a bit hopefully
+as I can go direct to the code triggered from a gadget rather than checking
+all the gadgets to see which one is used.
+
+If you remember, I mailed you about a couple of bugs in the input systeM,
+where clicking on a gadget and then moving away from it while the mouse button
+was still down, would leave the gadget 'down' (Igadget down) even when
+the mouse was released. This meant that if you input some text into a 
+string gadget and then clicked somewhere else on the screen with the mouse
+then the string gadget was registered as 'down'...until the user went back
+to it and pressed return in the string gadget. I don't know if you have
+\sorted this out but I'll do some tests when I get home.
+
+One effect of the above problem was that (on my instrument slider which se
+lected an instrument as in Octamed), if I moved the mouse off the hit button
+that registered a UP or DOWN , if I moved the mouse off it, it would keep
+selecting the next instrument as the code interpreted the gadget as 'down'
+when it shouldn't have been.
+
+Anyway I suppose I should go and test it before telling you about the bugs
+becaUSE you've probably fixed them by now!\
+
+ThANks again,
+JOE
diff --git a/extensions/Intuition-41.95/Intuition/bugs/1.3b-9.64 b/extensions/Intuition-41.95/Intuition/bugs/1.3b-9.64
new file mode 100644
index 0000000..a27cce6
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/1.3b-9.64
@@ -0,0 +1,145 @@
+Date: Thu, 25 Apr 1996 20:27:17 -0500
+From: rand@maui.netwave.net (Rand R. Fredricksen)
+To: achurch@dragonfire.net (Andy Church)
+Subject: Intuition Extension Test
+MIME-Version: 1.0
+X-Mailer: THOR 2.22 (Amiga;TCP/IP)
+Lines: 137
+
+If you are able to read this, your reader is not MIME compliant.
+If you are using an Amiga, use THOR to avoid the problem.
+If you are not, use some other MIME compliant reader.
+
+--p3TteRS0KXB1gGr8GgR11ND1kkZAlLD31
+Content-type: text/plain; charset=us-ascii
+Content-transfer-encoding: 7bit
+
+-----BEGIN PGP SIGNED MESSAGE-----
+
+Hi. Thanks for the interest in my trouble. Here's my little program that doesn't
+work right.
+
+ - Rand
+
+- --
+  25-Apr-96 22:09:39    |           *rand@maui.netwave.net*
+  Rand R. Fredricksen   |           fredricksen@genie.com
+  Chicago               |                Amiga3000/25/3.1
+- --
+
+-----BEGIN PGP SIGNATURE-----
+Version: 2.6.2
+
+iQCVAwUBMYBTY7X/MGlkR2ItAQGGuwQAjZ1hCF84W3ak+MRdAIUGC1HBXH7Wyrod
+NDxPPZ9BvLSYWfcSCiRpVdz6RNpzn0zP/L389tJ+s90eAlLx1/tMNYzZ/gsphI9V
+t3m2OlMZzbxrOqCiA720pjse8GqCe3iveEtVLer9Ug9IADqqyniia8aALKyyiHQw
+mkMZdyfjPD0=
+=nMAJ
+-----END PGP SIGNATURE-----
+
+--p3TteRS0KXB1gGr8GgR11ND1kkZAlLD31
+Content-type: application/octet-stream; name="Words.AMOS"
+Content-transfer-encoding: base64
+
+QU1PUyBCYXNpYyB2MTM0IAAAFgIqAwZKAEwgU2VhcmNoIGFuZCByZXBsYWNlIEl3cml0ZSB3aXRo
+IEl3cml0ZSwgNSBvY2N1cmFuY2VzLCBiZXNpZGVzIHRoZXNlIHR3by4gICAgAAAaAwZKACwgYW5k
+IFJlbWFyayBvdXQgdGhlIGxpbmUgR29zdWIgU0VUX1VQICgjMjYpIAAAEgMGSgAcIGFuZCB0aGUg
+cHJvZ3JhbSBydW5zIGZpbmUuIAAAAgAAAAsBAAwAAAIAMAAGSgAGIFdvcmRzAAARAQAMAAACADMA
+BkoAEiBzZW50ZW5jZXModW5pdCA2KQAAGAEADAAAAgA1AAZKACAgY29weXJpZ2h0IChjKSBhbmRy
+ZXcgY29saW4gMTk4MQAAHAEADAAAAgA3AAZKACggaGVhdmlseSBtb2RpZmllZCByYW5kIGZyZWRy
+aWNrc2VuIDE5OTYgAAACAAAAEQEADAAAAgAxMAAGAAACAG4A/6IAPgAAAA0AVAaQEs4AABQBAAwA
+AAIAMjAGQAAGAAYCQHAAAHQAPgAAAA0AXAA+AAAAAgB8AAAHAQAMAAACADI1C64AAA0BAAwAAAIA
+MjYCsgAGAAAGAHNldF91cAAACgEADAAAAgAzMAKyAD4AAAfQAAAKAQAMAAACADM0AqgAPgAAACgA
+AAoBAAwAAAIAMzUSngA+AAAAlgAACgEADAAAAgA0MAKyAD4AAABkAAAmAQAMAAACADQ2AAYADAIC
+eAD/ogUOAHQABgAMAgJ4AABcAD4AAAACAFwF2gB0AAYADAICeAAAfP/KAD4AAAABAHz/wAAmAAEu
+AAAAKAEADAAAAgA0NwUOAHQABgAMAgJ4AABcAD4AAAABAFwAPgAAAAEAfP+iBXwAdAUOAHQABgAM
+AgJ4AABcAD4AAAABAFwAPgAAAAEAfAB8AAAHBABODgAGKAAmAAAAAAoBAAwAAAIANTACsgA+AAAT
+iAAABgEADAAAAgA4MAAACgEADAAAAgA5NQKoAD4AAAAjAAATAQAMAAAEADEwMAAGSgAUIHNlbnRl
+bmNlIGdlbmVyYXRvciAAAA4BAAwAAAQAMTA1AAAGAAwCAngA/6IAJgAAAAAZAQAMAAAEADExMAAC
+vgAgBoYAdAA+AAAACgB8/6wAPgAAAAUCxgAY/sgEADMwMAAAAAsBAAwAAAQAMTIwAAKyAD4AAARM
+AAAZAQAMAAAEADEzMAACvgAgBoYAdAA+AAAACgB8/6wAPgAAAAMCxgAY/lwEADcwMAAAABkBAAwA
+AAQAMTQwAAK+ACAGhgB0AD4AAAAKAHz/rAA+AAAABQLGABj+7AQAMTcwAAAAFAEADAAABAAxNTAA
+AAYAEgIAYQD/ogA+AAAAAgBUArIAPgAAA+gAABABAAwAAAQAMTYwAAKyAD4AAASwAFQCqAA+AAAD
+IAAAFAEADAAABAAxNzAAAAYAEgIAYQD/ogA+AAAAAwBUArIAPgAAA+gAABQBAAwAAAQAMTgwAAAG
+ABICAGEA/6IAPgAAAAQAVAKyAD4AAAPoAAALAQAMAAAEADE5MAACqAA+AAADIAAACwEADAAABAAz
+MDAAArIAPgAABLAAABkBAAwAAAQAMzEwAAK+ACAGhgB0AD4AAAAKAHz/rAA+AAAAAwLGABj+XAQA
+NzAwAAAAGQEADAAABAAzMjAAAr4AIAaGAHQAPgAAAAoAfP+2AD4AAAAFAsYAGP6ABAAzNzAAAAAU
+AQAMAAAEADMzMAAABgASAgBhAP+iAD4AAAACAFQCsgA+AAAD6AAACwEADAAABAAzNDAAArIAPgAA
+BEwAAAsBAAwAAAQAMzUwAAKoAD4AAAMgAAAUAQAMAAAEADM3MAAABgASAgBhAP+iAD4AAAADAFQC
+sgA+AAAD6AAAFAEADAAABAAzODAAAAYAEgIAYQD/ogA+AAAABQBUArIAPgAAA+gAAAsBAAwAAAQA
+MzkwAAKoAD4AAAMgAAAZAQAMAAAEADcwMAAABgASAgBhAP+iAD4AAAABAFQCsgA+AAAD6ABUAqgA
+PgAAA4QAABUBAAwAAAQAODAwAAK+ABgGhgB0AD4AAAAKAHz/rAA+AAAABgLGA2AAABYBAAwAAAQA
+ODEwAAAGABICAGEA/6IAPgAAAAYAVAKyAD4AAAPoAFQDYAAAFQEADAAABAA5MDAAAr4AGAaGAHQA
+PgAAAAoAfP+2AD4AAAAFAsYDYAAAFgEADAAABAA5MTAAAAYAEgIAYQD/ogA+AAAABwBUArIAPgAA
+A+gAVANgAAAjAQAMAAAEADEwMDAGSgA0IHN1YnJvdXRpbmUgdG8gc2VsZWN0IGEgcmFuZG9tIHdv
+cmQgZnJvbSBjYXRlZ29yeSBhLgAAOwEADAAABAAxMDA1AAYAGAIAeQD/ogAGAAYCQHAAAHQABgAS
+AgBhAABcAD4AAAABAHz/wAaGAHQABgAGAkBwAAB0AAYAEgIAYQAAXAA+AAAAAgB8/8oABgAGAkBw
+AAB0AAYAEgIAYQAAXAA+AAAAAQB8AHwAACABAAwAAAQAMTAxMAQYAFQCPAAuAAYAHgIAegD/ogA+
+AAAAAQCUAAYAGAIAeQAAVAQOAAYAJAICeQAAVAJGAAAZAQAMAAAEADEwMjAABgAMAgJ4AP+iAAYA
+DAICeAD/wAAmAAEgAP/AAAYAJAICeQAAAAgBAAwAAAQAMTAzMANgAAAUAQAMAAAEADExMDAGSgAW
+IHNlbGVjdCBtYWxlIHN1YmplY3QuIAAAGQEADAAABAAxMTA1Ar4AIAaGAHQAPgAAAAoAfP+2AD4A
+AAAFAsYAGP3ABAAxMTIwAAAWAQAMAAAEADExMTAABgASAgBhAP+iAD4AAAAIAFQCsgA+AAAD6ABU
+A2AAABUBAAwAAAQAMTEyMAAGAAwCAngA/6IABgAMAgJ4AP/AACYABCBoZXIAACEBAAwAAAQAMTEz
+MAK+ADAGhgB0AD4AAAAKAHz/rAA+AAAABALGAAYAEgIAYQD/ogA+AAAACQBUArIAPgAAA+gAABQB
+AAwAAAQAMTE0MAAGABICAGEA/6IAPgAAAAoAVAKyAD4AAAPoAAAIAQAMAAAEADExNTADYAAAFQEA
+DAAABAAxMjAwBkoAGCBzZWxlY3QgZmVtYWxlIHN1YmplY3QuIAAAGQEADAAABAAxMjA1Ar4AIAaG
+AHQAPgAAAAoAfP+2AD4AAAAFAsYAGP1sBAAxMjIwAAAWAQAMAAAEADEyMTAABgASAgBhAP+iAD4A
+AAALAFQCsgA+AAAD6ABUA2AAABUBAAwAAAQAMTIyMAAGAAwCAngA/6IABgAMAgJ4AP/AACYABCBo
+aXMAACEBAAwAAAQAMTIzMAK+ADAGhgB0AD4AAAAKAHz/rAA+AAAABALGAAYAEgIAYQD/ogA+AAAA
+DABUArIAPgAAA+gAABYBAAwAAAQAMTI0MAAGABICAGEA/6IAPgAAAA0AVAKyAD4AAAPoAFQDYAAA
+FAEADAAABAAyMDAwBkoAFiBzZXQgdXAgcG9pbnRlciB0YWJsZSAAAA8BAAwAAAQAMjAxMAAGACoC
+AHgA/6IAPgAAAAEAABYBAAwAAAQAMjAyMAI8ASIABgAwAgBqAP+iAD4AAAABAJQABgAAAgBuAAAA
+GgEADAAABAAyMDMwAAYABgJAcAAAdAAGADACAGoAAFwAPgAAAAEAfP+iAAYAKgIAeAAAAAwBAAwA
+AAQAMjA0MAQOAAYADAICeAAAACQBAAwAAAQAMjA1MAK+ADYABgAMAgJ4AP9mACYAAXoAAsYABgAq
+AgB4AP+iAAYAKgIAeAD/wAA+AAAAAQBUAqgAPgAAB/gAACwBAAwAAAQAMjA2MAAGAAYCQHAAAHQA
+BgAwAgBqAABcAD4AAAACAHz/ogAGACoCAHgA/8oAPgAAAAEAVAAGACoCAHgA/6IABgAqAgB4AP/A
+AD4AAAABAAAMAQAMAAAEADIwNzACRgAGADACAGoAAAAIAQAMAAAEADIwOTADYAAAJwEADAAABAA1
+MDAwBkoAPCBkaXNwbGF5IHNlbnRlbmNlIHgkIHdpdGhvdXQgYnJlYWtpbmcgdXAgd29yZHMgYWNy
+b3NzIGxpbmVzIAAACgEABgA2AgBzd/+iAD4AAAAnAAAUAQAMAAAEADUwMDIGSgAWIFNXPUludCgg
+V2luZG93KDIpLzgpIAAAGwEADAAABAA1MDA1Ar4AJAXaAHQABgAMAgJ4AAB8/7YABgA2AgBzdwLG
+ABj8rAQANTAyMAAAEAEADAAABAA1MDEwAE4OAAYoAAYAAAICeAAAVANgAAAnAQAMAAAEADUwMjAC
+vgA8BQ4AdAAGAAwCAngAAFwABgA2AgBzd//AAD4AAAABAFwAPgAAAAEAfP9mACYAASAAAsYAGPx8
+BAA1MDUwAAAaAQAMAAAEADUwMzAATg4ABigFDgB0AAYAAAICeAAAXAA+AAAAAQBcAAYAAAIAc3cA
+fAAAJAEADAAABAA1MDQwAAYADAICeAD/ogU2AHQABgAMAgJ4AABcBdoAdAAGAAwCAngAAHz/ygAG
+ADYCAHN3/8oAPgAAAAEAfAAACwEADAAABAA1MDQ1AqgAPgAAE4gAACMBAAwAAAQANTA1MAK+ADQF
+DgB0AAYADAICeAAAXAAGADYCAHN3AFwAPgAAAAEAfP9mACYAASAAAsYAGPxMBAA1MDgwAAAaAQAM
+AAAEADUwNjAATg4ABigFDgB0AAYAAAICeAAAXAA+AAAAAQBcAAYAAAIAc3cAfAAALQEADAAABAA1
+MDY1AAYADAICeAD/ogUOAHQABgAMAgJ4AABcAAYANgIAc3f/wAA+AAAAAQBcBdoAdAAGAAwCAngA
+AHz/ygAGADYCAHN3/8AAPgAAAAEAfAAACwEADAAABAA1MDcwAqgAPgAAE4gAABQBAAwAAAQANTA4
+MAAGADwCAHAA/6IABgA2AgBzd//KAD4AAAABAAAwAQAMAAAEADUwOTACvgBOBQ4AdAAGAAwCAngA
+AFwABgA8AgBwAABcAD4AAAABAHz/ZgAmAAEgAALGAAYAPAIAcAD/ogAGADwCAHAA/8oAPgAAAAEA
+VAKoAD4AABPiAAAeAQAMAAAEADUxMDAATg4ABigFDgB0AAYAAAICeAAAXAA+AAAAAQBcAAYAAAIA
+cAD/ygA+AAAAAQB8AAApAQAMAAAEADUxMTAABgAMAgJ4AP+iBQ4AdAAGAAwCAngAAFwABgA8AgBw
+AP/AAD4AAAABAFwF2gB0AAYADAICeAAAfP/KAAYAPAIAcAAAfAAACwEADAAABAA1MTIwAqgAPgAA
+E4gAAC0BAAwAAAQAOTAwMAQEAA4AJgAIc3F1aXJtZWQAXAAmAAhzcXVlYWxlZABcACYAA3JhbgAA
+XAAmAAdnb3QgaG90AABcACYAB3N0b3BwZWQAAFwAJgABegAAACoBAAwAAAQAOTAxMAQEAA4AJgAI
+cmFuIGludG8AXAAmAAZjYWxsZWQAXAAmAAljYXJyZXNzZWQAAFwAJgAIbWFzc2FnZWQAXAAmAAZy
+dWJiZWQAABIBAAwAAAQAOTAxMQQEAA4AJgAGYWRvcmVkAFwAJgABegAAACcBAAwAAAQAOTAyMAQE
+AA4AJgAEZXllZABcACYABGZlbHQAXAAmAARoZWxkAFwAJgAFbGlrZWQAAFwAJgAGa2lzc2VkAFwA
+JgABegAAADABAAwAAAQAOTAzMAQEAA4AJgAIaGVyIGhpcHMAXAAmAAhoZXIgZWFycwBcACYACGhl
+ciBmZWV0AFwAJgAJaGVyIGhhbmRzAABcACYACGhlciBoYWlyAFwAJgABegAAACsBAAwAAAQAOTA0
+MAQEAA4AJgAIaGlzIGxpcHMAXAAmAAloaXMgaGFuZHMAAFwAJgALaGlzIG11c2NsZXMAAFwAJgAI
+aGlzIGV5ZXMAXAAmAAF6AAAAQQEADAAABAA5MDUwBAQADgAmAAx3aXRoIGRlbGlnaHQAXAAmAAtp
+biB0aGUgcGFyawAAXAAmAAlldmVyeSBkYXkAAFwAJgAJeWVzdGVyZGF5AABcACYACWxhc3Qgd2Vl
+awAAXAAmAAlpbiBwdWJsaWMAAFwAJgAHYXQgaG9tZQAAADQBAAwAAAQAOTA1MQQEAA4AJgAKYXQg
+dGhlIHpvbwBcACYAEG9uIHRoZSBlc2NhbGF0b3IAXAAmAAxpbiB0aGUgdHJhaW4AXAAmAAl3aXRo
+IGdsZWUAAFwAJgAJamVhbG91c2x5AAAAMwEADAAABAA5MDUyBAQADgAmAA9pbiB0aGUgZWxldmF0
+b3IAAFwAJgAOYXQgdGhlIGFpcnBvcnQAXAAmAAppbiB0aGUgY2FyAFwAJgANb24gdGhlIHN0cmVl
+dAAAXAAmAAF6AAAANQEADAAABAA5MDYwBAQADgAmAAp3aXRoIGd1c3RvAFwAJgAJemVhbG91c2x5
+AABcACYACWV4Y2l0ZWRseQAAXAAmAApvbiB0aGUgYmVkAFwAJgAMYXQgdGhlIGJlYWNoAFwAJgAB
+egAAADMBAAwAAAQAOTA3MAQEAA4AJgAESm9obgBcACYAEnRoZSBzd2FtcCBjcmVhdHVyZQBcACYA
+CFN1cGVybWFuAFwAJgAJdGhlIGNsb3duAABcACYACGV2ZXJ5b25lAFwAJgABegAAADQBAAwAAAQA
+OTA4MAQEAA4AJgAHZXhjaXRlZAAAXAAmAAhtdXNjdWxhcgBcACYABWhhaXJ5AABcACYACGhhbmRz
+b21lAFwAJgAJc2Vuc2l0aXZlAABcACYABHVnbHkAXAAmAAF6AAAAHwEADAAABAA5MDkwBAQADgAm
+AANtYW4AAFwAJgAJYm95ZnJpZW5kAABcACYABWxvdmVyAABcACYAAXoAAAA1AQAMAAAEADkxMDAE
+BAAOACYAB1ZhbGVyaWUAAFwAJgAFS2FyZW4AAFwAJgAFTGF1cmEAAFwAJgAOdGhlIG1vdmllIHN0
+YXIAXAAmABF0aGUgZXhvdGljIGRhbmNlcgAAXAAmAAF6AAAAJwEADAAABAA5MTEwBAQADgAmAAli
+ZWF1dGlmdWwAAFwAJgAEc2V4eQBcACYABW5ha2VkAABcACYACmN1cnZhY2VvdXMAXAAmAAF6AAAA
+HwEADAAABAA5MTIwBAQADgAmAAVudXJzZQAAXAAmAApnaXJsZnJpZW5kAFwAJgAMbnltcGhvbWFu
+aWFjAAAUAQAMAAAEADkxMjEEBAAOACYACnN3ZWV0aGVhcnQAXAAmAAF6AAAAAgAAAAgBAAwAAAYA
+c2V0X3VwAAAiAQBODgcSbAA+AAAAAQBcAD4AAAABAFwAPgAAAAwAXAA+AAAAyABcAD4AAAFAAFwA
+JgAFV29yZHMAAFwAPgAAAB8AAA4BBkoAFCBJd2luZG93IEFjdGl2YXRlIDEgAAADASS+AAALAQLm
+AqgAGPsyCABzZXRfZG93bgAAAwEDYAAAAgAAAAkBAAwAAAgAc2V0X2Rvd24AAAgBAE4OAQK0AD4A
+AAABAAADAQO2AABBbUJzAAA=
+
+--p3TteRS0KXB1gGr8GgR11ND1kkZAlLD31--
diff --git a/extensions/Intuition-41.95/Intuition/bugs/bug6.asc b/extensions/Intuition-41.95/Intuition/bugs/bug6.asc
new file mode 100644
index 0000000..c6a58e9
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/bug6.asc
@@ -0,0 +1,58 @@
+To: Andy Church <achurch@dragon.res.cmu.edu>
+Subject: Guru
+Date: Sat, 16 Sep 95 10:13:00 -0500
+From: Don Harkness <image@twsu.campus.mci.net>
+X-Mailer: campusMCI e-mail v2.5.03
+
+-- [ From: Don Harkness * EMC.Ver #2.5.03 ] --
+
+Thanks for the quick response!
+
+ I edited the Amiga Guide  Instruction file into a command reference guide
+with Page Stream 2.22 and it prints out to a 72 page 5 1/2" by 8" booklet
+(including index). If you have Page Stream and would like I can send you a
+copy of the file. It came out to about 121K . Of course it is for 1.3 and
+will need to be edited for the new stuff.
+
+I installed the new AP library and tried my test program and got the same
+Address Error 80000003. Here is my test program you can clip it and use the
+merge asc function. I don't know if I am making all the calls I need to be
+in definning the gadgets. It has also been a few month since I worked with
+this.
+
+------- Clip Here ---------
+
+Amos To Back 
+I=1
+
+Iwindow Open Wb 1,100,75,200,75,"Test"
+
+FLAG=False
+
+Reserve Igadget 2
+Set Ipens 2,1
+Set Igadget Hit 1,10,10,15,10
+Set Igadget Hit 2,10,30,15,10
+Igadget On 
+Igadget Active 
+Repeat 
+   
+   EVENT=Iwait Event
+
+   If EVENT=Ievent Close
+      Iwindow Close Wb 1
+      FLAG=True
+   End If 
+   
+   
+Until FLAG=True
+
+Amos To Front
+
+-------Clip Here ------
+
+If you prefer I can uue the program.
+Since I only have an Opal vision card and no one supports it for mosaic. I
+use Netscape on my 486 bridge card to surf the net. I used UUDOALL under
+Windozzz to convert the file you sent. What is the UUE incoders we use on
+the Amiga? I prefer to work on the Amiga but it was cheaper to get Netscape
diff --git a/extensions/Intuition-41.95/Intuition/bugs/docbugs1 b/extensions/Intuition-41.95/Intuition/bugs/docbugs1
new file mode 100644
index 0000000..aeaf137
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/docbugs1
@@ -0,0 +1,45 @@
+Date: Thu, 10 Aug 1995 13:31:56 +0200 (METDST)
+From: Branko Collin <bcollin@mpi.nl>
+To: Andrew Church <achurch@binx.mbhs.edu>
+Subject: Bug report
+Mime-Version: 1.0
+
+
+First the good news: The colours are indeed fixed! The menus are still 
+green on black, but so are the menus of a lot of pre-AGA and even some 
+during-AGA software. Also the text is back to normal.
+
+However, the reading of of the text gadget still causes an error, number 
+8000 0004 to be exact. I used the program I sent you for testing it.
+
+I am now trying to get to grips with E and EYacc, so testing will be a bit 
+slow these days. However, I did manage to go through the docs, and these 
+are the faults I discovered:
+Intuition Guide v.1.3b:
+-Contents screen:
+	-There is no registration link. Is this because these are the 
+'registered' docs?
+	-Index button does not do anything.
+-What does the Intuition Extension need to run:
+	-It does not mention that it does not run under pre-2.0 Amos Pro. 
+I know it does in the notes, but why not mention it here?
+	-What are KS 1.3b and Amos 1.3b?
+-The future:
+	-I believe you already put in Window and Screen title.
+manipulation commands.
+-Window Commands:
+	-The link "Set Iwindow Title" points to "Set Iscreen Title".
+-Screen Commands: 
+	-The link "Set Iscreen Title" will generate an error.
+-Command Index:
+	-The link "Set Iwindow Title" points to "Set Iscreen Title".
+	-"Set Iscreen Title" is not in the index.
+
+I have not tested the new commands yet.
+
+.......................................................................
+.       Branko Collin          .  'Zij ontmoetten elkaar in Gent,     .
+.                              .   parel van de Belgische Ardennen    .
+.   //  u249026@vm.uci.kun.nl  .   en overbekend om zijn prachtige    .
+. \X/   bcollin@mpi.nl         .   tulpenvelden.' - Wereld Nonsens    .
+.......................................................................
diff --git a/extensions/Intuition-41.95/Intuition/bugs/docbugs2 b/extensions/Intuition-41.95/Intuition/bugs/docbugs2
new file mode 100644
index 0000000..d891722
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/docbugs2
@@ -0,0 +1,55 @@
+Date: Fri, 11 Aug 1995 10:51:42 +0200 (METDST)
+From: Branko Collin <bcollin@mpi.nl>
+To: Andy Church <achurch@binx.mbhs.edu>
+Subject: Re: Bug report
+Mime-Version: 1.0
+
+On Thu, 10 Aug 1995, Andy Church wrote:
+
+> >First the good news: The colours are indeed fixed! The menus are still 
+> >green on black, but so are the menus of a lot of pre-AGA and even some 
+> >during-AGA software. Also the text is back to normal.
+> 
+>   Finally!  You have no idea how long those menus have been bugging me.  In
+> older versions the menus would sometimes stretch the entire height of the
+> screen for no apparent reason.
+>
+
+I have no idea what you're talking about?!? I have never encountered any 
+'stretched' menus.
+ 
+> >However, the reading of of the text gadget still causes an error, number 
+> >8000 0004 to be exact. I used the program I sent you for testing it.
+> 
+>   Sigh.  I'll go back and look at stuff again.
+> 
+
+I did some more testing. I did the following things:
+-I inserted a Wait Key before the Igadget Read$ command: flip back to 
+Amos to press the key and: error 8000 000B.
+-I inserted an Iwait Key before Igadget Read$: error 8000 0004.
+-I made a minimal program. See below for the pseudo code version. Result: 
+error 8000 0004.
+'	Iscreen open
+	Reserve Igadget 1
+	Set Igadget String 1
+	Repeat Until Igadget Read$ = "Quit"	'
+
+> >Intuition Guide v.1.3b:
+-I noticed on the "Set Screen Title" page a link to "=Iscreen Title 
+Height" that is not on the "Screen Commands" page. What does it do 
+anyway. Can't you just use something like Text Height (or whatever the 
+command is) to determine how high the titlebar will be?
+-I tried to test the new commands, but the tokeniser decided against it.
+Set Iscreen Title	becomes		Set Iscreen TITLE
+=Iscreen Title Height	becomes		=Iscreen TITLE HEIGHT
+Set Iwindow Title	becomes		Set Iwindow TITLE
+
+Although I was looking for bugs, I did not use any system in looking. I 
+currently have not got much time on my hands (not entirely true, as I am 
+trying to learn E at the same time). I suggest that you put some old 
+betatesters back to work, considering the ease I stumble across these 
+bugs (even though most of them are small).
+
+.... .  .    .      .           .            .      .    .  . ....
+   Branko Collin                                 bcollin@mpi.nl
diff --git a/extensions/Intuition-41.95/Intuition/bugs/fontreq-bug.uu b/extensions/Intuition-41.95/Intuition/bugs/fontreq-bug.uu
new file mode 100644
index 0000000..18e4180
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/fontreq-bug.uu
@@ -0,0 +1,143 @@
+Date: 	Fri, 23 Feb 96 22:16:43 GMT
+Lines: 136
+X-Mailer: ADMail 1.7 Copyright 1995 S.T.Brown
+From: bwyatt@paston.co.uk (Ben Wyatt)
+To: achurch@cmu.edu
+Subject: Intuition Ext
+
+Many thanks for the Intuition extension. It's quite brilliant and very
+easy to use!
+
+I've been experimenting with it since you sent it, and have come across
+what appears to be a bug with the Font Requestor. It doesn't return a
+font name, just a two character code of some sort.
+
+As well as this, AMOSPro keeps crashing after trying to run it after
+saving. I'm not sure if this is a bug of the extension though, or due
+to my system!
+
+Anyway, here's the code UUEncoded...
+
+begin 644 Intuition_Test.AMOS
+M04U/4R!"87-I8R!V,3,T(```$\@"````#P$&0``&```(0G-H;W)T8W5T`'0`S
+M/@```/\`?```#`$#J@`&```(0G-H;W)T8W5T`'0`?````@````,!)+X```(`9
+M```D`0!.#@85@@`^``````!<`#X```%``%P`/@```0``7``^````0`!<`$X.D
+M```0`%P`)@`14V]M92!G<F]O=GD@=&5S=',````(`0!.#@$5J``^````````Q
+M$`$`3@X"!98`)@`)2&5L=F5T:6-A``!<`#X````)```"````(`$`!@``"`!?!
+M;6%K96)O>`"$`#X````*`%P`/@```&0`7``^````R`!<`#X```"6`%P`)@`&+
+M2&5L;&\A`(P```(````(`0!.#@$/,@`^`````P``/`$`$O_P"H!?;6%K96EC<
+M;VX``(0`/@````$`7``^````!`!<`#X```#O`%P`/@```3@`7``F``11=6ET#
+M`%P`/@````$`7``^`````0",`%0`!O_P"$)S:&]R=&-U=`!T`#X````!`'S__
+MH@52`'0`/@```!L`?```+@$`$O_P"H!?;6%K96EC;VX``(0`/@````(`7``^`
+M````!`!<`#X````@`%P`/@```3@`7``F``]?1FEL92!297%U97-T;W(``%P`'
+M/@````$`7``^`````0",```N`0`2```*@%]M86ME:6-O;@``A``^`````P!<X
+M`#X````$`%P`/@```#``7``^```!.`!<`"8`#U]&;VYT(%)E<75E<W1O<@``0
+M7``^`````0!<`#X````!`(P```4!`$X.`!!6```"````!`$"4``````"````E
+M!`$"4``````"````&00`$O_*#H!?8VAE8VMG861G971S``"$`#X````#`(P`L
+M5``&_^8$`'-E;`#_H@/B```3!``&_]P$`'%U:73_H@!T``;_Y@0`<V5L`/^BU
+M`#X````!`'P```(````-!`*^````!O_F!`!S96P`_Z(`/@````(```D'!E(`*
+M"B!&:6QE(')E<2```!8'``;_T@0"9FEL9?^B`$X.`0=N`'0`)@`-4V5L96-T&
+M(&$@1FEL90``?```)@<`!O_(!`!N=6QL_Z(`3@X##9X`=``F``Y9;W4@<V5L*
+M96-T960@.@!<`$X(`0+P`'0`!O_2!`)F:6QE`'P`7``F``17;W<A`'P```,$8
+M`MH```(````-!`*^````!O_F!`!S96P`_Z(`/@````,```<'!E(`!B!&;VYTG
+M(```%@<`!O_2!`)F:6QE_Z(`3@X!!Z(`=``F``U396QE8W0@82!&;VYT``!\<
+M```A!P`&_\@$`&YU;&S_H@!.#@,-G@!T`"8`#EEO=2!S96QE8W1E9"`Z`%P`C
+M!O_2!`)F:6QE`%P`)@`$5V]W(0!\```#!`+:```"````"`$"7``&_]P$`'%UT
+M:70```(````9`0)<`$X.`PT^`'0`)@`,4F5A;&QY(%%U:70_`%P`)@`#665S(
+M``!<`"8``DYO`'P```(````(`0!.#@$`Z@`^`````````@````,!)*H```(`C
+M```[`0-V```(>@!:@```!@``"H!?;6%K96EC;VX``(0`!@```@!N``!<``8`C
+M!@(`>```7``&``P"`'D``%P`!@`2!@!W:61T:```7``&`!@&`G1I=&QE``!<#
+M``8`'@8`>&)O<F0``%P`!@`D!@!Y8F]R9```C````@```"0$!E(`0"!#<F5A>
+M=&4@86X@:6-O;B!.(&]F('!O<VET:6]N(%@@=&\@6"M724142"Q9(&%N9"!O.
+M9B!T:71L92!4251,120``!@$!E(`*"!80D]21"!A;F0@64)/4D0@:7,@=&AEY
+M('-I>F4@;V8@8F]R9&5R("```"D$!E(`2B!!;GD@;&5T=&5R<R!W:71H(&$@E
+M(E\B(&-H87)A8W1E<B!B969O<F4@=&AE;2!B96-O;64@=&AE(&ME>6)O87)DN
+M('-H;W)T8W5T```D!`92`$`@268@5TE$5$@\/3`@=&AE;B!T:&4@=VED=&@@$
+M;V8@=&AE(&EC;VX@:7,@8V%L8W5L871E9"!F<F]M(%0D("`@```=!`92`#(@$
+M268@5TE$5$@](#`@=&AE;B!T:&4@:6-O;B!I<R!L969T(&IU<W1I9FEE9"!T7
+M;R!8(```'00&4@`R($EF(%=)1%1(/2TQ('1H96X@=&AE(&EC;VX@:7,@<FEG3
+M:'0@:G5S=&EF:65D('1O(%@```(````9!`92`"H@5&ET;&4@=VET:&]U="!K`
+M97EB;V%R9"!S:&]R=&-U="!C:&%R86-T97(``!8$``8`*@P"<')O<&5R=&ET0
+M;&4`_Z(`!@`8!@)T:71L90#_R@`F``%?`````@```!4$!%@`!@`2!@!W:61T6
+M:```7/_*``8`'@8`>&)O<F0`_^(`/@````(```(````.!`*^`,H`!@`2!@!WJ
+M:61T:`#_>@`^````````#`<&4@`0($-A;&-U;&%T92!W:61T:```*@<`!@`PP
+M"`!O;&1W:61T:/^B``8`$@8`=VED=&@``%0`!@`2!@!W:61T:`#_H@!.#@$%;
+M<`!T``8`*@P"<')O<&5R=&ET;&4``'S_P``^````!```(`<"O@`\``8`,`@`Z
+M;VQD=VED=&C_HO_*`#X````!`%0$6``&``8"`'@``%S_R@`&`!(&`'=I9'1HA
+M``!4`MH```,$`MH```(````D!`92`$`@36%K92!S=7)E('@^,"!A;F0@>#QSR
+M8W)E96YW:61T:"!A;F0@>3YT:71L92!A;F0@>3QS8W)E96YH96EG:'0@```OI
+M!``&``8"`'@`_Z(&Z@!T!O8`=``^`````0!<``8`!@(`>```?`!<`$X.``%.C
+M_\H`/@````'_R@`&`!X&`'AB;W)D`/_B`#X````"_\H`!@`2!@!W:61T:```"
+M?```.P0`!@`,`@!Y`/^B!NH`=`;V`'0`3@X`$_K_P``^`````O_```8`)`8`4
+M>6)O<F0`_^(`/@````(`7``&``P"`'D``'P`7`!.#@`!:O_*`$X.``6\_\H`X
+M/@````3_R@`&`"0&`'EB;W)D`/_B`#X````"`'P```(````*!`92``P@1')AC
+M=R!G861G970``#@$`$X.!1$P``8```(`;@``7``&``8"`'@``%P`!@`,`@!YB
+M``!<``8`$@8`=VED=&@`_\``!@`>!@!X8F]R9`#_X@`^`````@!<`$X.``6\\
+M_\``/@````/_P``&`"0&`'EB;W)D`/_B`#X````"```"````"`0`3@X!!F(`#
+M/@````$```(````D!`92`$`@0V%L8W5L871E(&-O;W)D:6YA=&5S(&9O<B!TE
+M97AT+"!R96QA=&EV92!T;R!T:&4@:6-O;B!P;W-I=&EO;B`@```P!``&`#8&Q
+M`'A?=&5X=/^B``8`!@(`>`#_P`!T``8`$@8`=VED=&@`_\H`3@X!!7``=``&)
+M`"H,`G!R;W!E<G1I=&QE``!\`'S_[``^`````O_```8`'@8`>&)O<F0````<Y
+M!``&`#P&`'E?=&5X=/^B``8`#`(`>0#_P`!.#@`%8/_``#X````!_\``!@`D^
+M!@!Y8F]R9````!P$`$X.`P88``8`-@8`>%]T97AT`%P`!@`\!@!Y7W1E>'0`B
+M7``&`"H,`G!R;W!E<G1I=&QE`````@```!`$!E(`&"!&:6YD(&ME>6)O87)DL
+M('-H;W)T8W5T(```%`0`!@!"`@!X7_^B!>0`=``&`!@&`G1I=&QE``!<`"8`]
+M`5\``'P```P$`KX!]``&`$("`'A?_[8`/@````````L'!E(`#B!'970@8VAAY
+M<F%C=&5R```=!P`&`$@$`F-H87+_H@4.`'0`!@`J#`)P<F]P97)T:71L90``W
+M7``&`$("`'A?`%P`/@````$`?```'0<&4@`R($-A;&-U;&%T92!S=&%R="!A_
+M;F0@=VED=&@@;V8@=6YD97)L:6YE9"!C:&%R86-T97(``"X'``8`3@8`>'-T,
+M87)T_Z(`!@`V!@!X7W1E>'3_P`!.#@$%<`!T!2@`=``&`"H,`G!R;W!E<G1I?
+M=&QE``!<``8`0@(`>%__R@`^`````0!\`'S_R@`^`````0``$P<`!@!4!@!W[
+M:61T:%__H@!.#@$%<`!T``8`2`0"8VAA<@!\```1!P92`!H@4'5T(&-H87)A?
+M8W1E<B!I;G1O(&%R<F%Y(```&`<`!O__"$)S:&]R=&-U=`!T``8```(`;@``Z
+M?/^B!8H`=``&`$@$`F-H87(`?```#P<&4@`6($1R87<@=6YD97(@8VAA<F%C`
+M=&5R(```+P<`3@X$!K(`!@!.!@!X<W1A<G0`7``&`#P&`'E?=&5X=/_``#X`W
+M```!`)0`!@!.!@!X<W1A<G3_P``&`%0&`'=I9'1H7P!<``8`/`8`>5]T97ATT
+M_\``/@````$```,$`MH```(````#`0.0```J`0-V```$H``P@```!@``"(!??
+M;6%K96)O>`"$``8```(`>#$`7``&``8"`'DQ`%P`!@`,`@!X,@!<``8`$@(``
+M>3(`7``&`!@&`G1I=&QE``",```"````'`0&4@`P($1R87<@8F]X(&9R;VT@0
+M6#$L63$@=&\@6#(L63(@=VET:"!T:71L92!4251,120@```>!`92`#0@16UP7
+M='D@<W!A8V4@:7,@879A:6QA8FQE(&%T(%@Q*S(L63$K,B!T;R!8,BTR+%DRG
+M+3(@```"````$`0&4@`8(%=O<FL@;W5T('1O<"!O9B!S8W)E96X@```1!``&#
+M`!X(`'1H96EG:'0`_Z(`3@X`$_K_P``^`````@``(`0"O@`\``8`&`8"=&ETS
+M;&4`_V8`)@```%0$6``&`!X(`'1H96EG:'0``%P`3@X`!;S_R@`^````!`!4]
+M`MH```(````D!`92`$`@36%K92!S=7)E('@^,"!A;F0@>#QS8W)E96YW:61T`
+M:"!A;F0@>3YT:71L92!A;F0@>3QS8W)E96YH96EG:'0@```=!``&```"`'@Q'
+M_Z(&Z@!T!O8`=``^`````0!<``8```(`>#$`?`!<`$X.``%._\H`/@````(`-
+M?```'00`!@`,`@!X,O^B!NH`=`;V`'0`/@````$`7``&``P"`'@R`'P`7`!./
+M#@`!3O_*`#X````"`'P``"$$``8`!@(`>3'_H@;J`'0&]@!T``8`'@@`=&AEA
+M:6=H=```7``&``8"`'DQ`'P`7`!.#@`!:O_*`#X````"`'P``"$$``8`$@(`C
+M>3+_H@;J`'0&]@!T``8`'@@`=&AE:6=H=```7``&`!("`'DR`'P`7`!.#@`!/
+M:O_*`#X````"`'P```(````'!`92``8@5VAI=&4``$$$`$X.`09B`#X````"%
+M`%0`3@X$!L0`!@```@!X,?_``#X````!`%P`!@`&`@!Y,?_``#X````!`)0`3
+M!@`,`@!X,@!<``8`$@(`>3(`5`!.#@(&A``&```"`'@Q`%P`!@`2`@!Y,@!4!
+M`$X.`@:$``8`#`(`>#(`7``&``8"`'DQ```'!`92``8@0FQA8VL``"<$`$X.G
+M`09B`#X````!`%0`3@X$!L0`!@```@!X,0!<``8`!@(`>3$`E``&``P"`'@R]
+M_\H`/@````$`7``&`!("`'DR_\H`/@````$```(````+!`92``X@4')I;G0@U
+M82!T:71L90``#00"O@$```8`&`8"=&ET;&4`_V8`)@`````2!P92`!P@0V%L%
+M8W5L871E('!O<VET:6]N(&]F('1E>'0@```D!P`&`"0&`'A?=&5X=/^B`'0`9
+M!@```@!X,?_```8`#`(`>#+_R@!.#@$%<`!T``8`&`8"=&ET;&4``'P`?/_LH
+M`#X````"```9!P`&`"H&`'E?=&5X=/^B``8`!@(`>3'_P`!.#@`%O/_*`$X.-
+M``5@_\H`/@````$```H'!E(`#"!0<FEN="!T97AT(```&0<`3@X#!A@`!@`D;
+M!@!X7W1E>'0`7``&`"H&`'E?=&5X=`!<``8`&`8"=&ET;&4````#!`+:```":
+M`````P$#D```&@$#=@```@0`&(````8```Z`7V-H96-K9V%D9V5T<P``A``&C
+M```(`&=A9&=E=',``(P```(````E!`92`$(@0VAE8VMS(&%L;"!G861G971S!
+M("@Q('1O($=!1$=%5%,I('1O('-E92!I9B!A;GD@:&%S(&)E96X@<V5L96-TQ
+M960``!\$!E(`-B!2971U<FYS('1H92!N=6UB97(@;V8@=&AE('-E;&5C=&5D6
+M(&]N92P@;W(@,"!I9B!N;VYE(````@````D$!E(`"B!-=6QT:71A<VL```,$4
+M(]````(````)!`92``H@1V5T(&EN<'5T```.!``&``8$`FEN<`#_H@6*`'0`#
+M3@X`!2(`?````@```!$$!E(`&B!$969A=6QT('1O(&YO;F4@<V5L96-T960@)
+M```+!``&``P$`'-E;`#_H@`^`````````@````T$!E(`$B!#:&5C:R!E86-HT
+M(&=A9&=E=```%`0"/`".``8`$@(`;@#_H@`^`````0"4``8```@`9V%D9V5TF
+M<P```"X'`KX`6`!.#@$0W`!T``8`$@(`;@``?/],``8`!@0":6YP`/^B``;_+
+M_PA"<VAO<G1C=70`=``&`!("`&X``'P`5``&``P$`'-E;`#_H@`&`!("`&X`4
+M`%0"V@``!P0"1@`&`!("`&X````"````"@$#D`"$``8`#`0`<V5L``",``!!6
+%;4)S````B
+``
+end
+size 5090
+
+Bye _________________________________
+   /                                 \
+   > Ben Wyatt - bwyatt@paston.co.uk <
+   \_________________________________/ (c)1995 Very Interesting Signatures
diff --git a/extensions/Intuition-41.95/Intuition/bugs/int.msg1 b/extensions/Intuition-41.95/Intuition/bugs/int.msg1
new file mode 100644
index 0000000..62b342d
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/int.msg1
@@ -0,0 +1,54 @@
+From nicholas@triode.apana.org.au Fri Sep 16 05:40:00 1994
+Subject: Re: Intuition Extension 1.2a (for real this time!) Demo
+To: achurch@goober.mbhs.edu (Andy Church)
+Date: Fri, 16 Sep 1994 18:20:58 +1000 (EST)
+From: "Nicholas FitzRoy-Dale" <nicholas@triode.apana.org.au>
+
+<>Suggestions
+
+Well, first if you plan on making _any_ money at all, if you're going to 
+disable screen closing, you should really get rid of the instructions to 
+find the screen base.  This works quite well:
+
+Amos To Back
+IWindow Open Wb 1,20,20,400,100,"Watch me disappear!"
+B=Iwindow Base
+Wait 100
+_CLOSED=Intcall(-72)
+Wait 20
+Amos To Front
+
+Do I get a registered version for that? ;-)
+
+Also, is there any chance of incorporating the Intuition Wait() commands, 
+instead of having to check the menus, all the gadgets etc in the main 
+loop?  Something like this:
+
+EVENT = IWait Event (WINDOWNUMBER)
+
+Even would equal something like:
+
+1 - menu selected
+2 - gadget clicked
+3 - Window flags changed (moved etc)
+
+etc
+
+then you could use:
+
+_DATA = IEvent Data
+
+which would be the gadget number that was clicked, the window that was 
+changed, the menu number that was selected, etc.
+
+This would be a lot neater and use less CPU time.
+
+Other than that, this is a great extension and something I really plan on 
+using to write my next (first :) ) "Major" program - a BBS.  I especially 
+like the way you can past icons onto Intuition screens, and copy between 
+AMOS and Intuition screens.  This easy way of assing graphics could 
+really liven up some programs :)
+
+Anyway, keep it up, it's looking good.  I'll do some examples for you :) 
+(us
+
diff --git a/extensions/Intuition-41.95/Intuition/bugs/int.ph b/extensions/Intuition-41.95/Intuition/bugs/int.ph
new file mode 100644
index 0000000..963ae68
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/int.ph
@@ -0,0 +1,203 @@
+From ph@doc.ic.ac.uk Mon Nov 28 14:55:30 1994
+To: achurch@goober.mbhs.edu
+Subject: Intuition Extension
+Date: Mon, 28 Nov 1994 19:54:10 +0000
+From: Paul Hickman <ph@doc.ic.ac.uk>
+
+
+Somehow I seem to have ended up with the documentation for version 1.2b,
+but the .lib file for version 1.1! However, the 1.2b documentation does
+not say that any of these bugs have been fixed...
+
+
+2-Colour Screen Bug
+===================
+
+
+I have finally found out why MUI, Reqtools and other programs think that
+all AMOS Intuition screens only have 2 colours, after fixing the Cygnus
+Editor 2.12 screen using the promotor. The reason is because you do not
+setup the dri_pens array by specifying an SA_PENS tag when opening the 
+screen( Or you are not using OpenScreenTags or OpenScreenTaglist or the 
+ExtNewScreen structure at all). The procedure given below sets up the dripens
+after the screen is open, so that reqtools requesters, gadtool library,
+and MUI windows open with the correct colours, and the screen title bar
+looks like a normal KS2.x/3.x screen title bar (Almost - The screen depth
+gadget still looks like a KS1.x screen gadget, but I think this is because 
+I am modifying the dri_pens after the screen is open instead of specifing 
+them before).
+
+The parameters are:
+
+_DETAIL   = Colour No. to use for normal detail. (Detail pen in Screen struct)
+_BLOCK    = Colour No. to use for normal block. (Detail pen in Screen struct)
+_TEXT     =          "            normal text.
+_SHINE    =          "            bright 3D edges.
+_SHADOW   =          "            dark 3D edges.
+_FILL     =          "            Selected window/gadget background
+_FILLTEXT =          "            Selected window/gadget foreground
+_BACK     =          "            normal background. (Should be 0)
+_HIGH     =          "            highlighted text foreground (On normal back)
+_BARDETAIL=          "            menubar text & other foreground
+_BARBLOCK =          "            menubar background
+_BARTRIM  =          "            the thin line under the menubar.
+
+The last three only have any affect under KS3.x. The default settings should
+be the ones given in this example call, which shows the difference made to 
+the ASL/Reqtools file requester:
+
+Iscreen Open 0,640,256,8,Hires,"Hello World"+Chr$(0)
+Amos To Back 
+F$=Irequest File$
+ISET_PENS[1,0,1,2,1,3,1,0,2,1,2,1]
+F$=Irequest File$
+
+If the 2 requesters appear identical to you, it may be that under 2.x, the
+ASL library does not use dri_pens. But under 3.x, the first requester 
+appears in a black & grey window - No blue or white. 
+
+
+Procedure ISET_PENS[_DETAIL,_BLOCK,_TEXT,_SHINE,_SHADOW,_FILL,_FILLTEXT,
+                    _BACK,_HIGH,_BARDETAIL,_BARBLOCK,_BARTRIM]
+'
+'^^^ Parameters split onto 2 lines for readability.
+'
+'
+'Obtain the draw info structure for the screen, and  
+'the number of pens (9=V36-38, 12=V39-40)
+'
+Areg(0)=Iscreen Base
+_DRAW_INFO=Intcall(-690) : Rem _LVOGetScreenDrawInfo
+_NUM_PENS=Deek(_DRAW_INFO+2)
+_PENARRAY=Leek(_DRAW_INFO+4)
+
+
+'
+'Set the pens to the colours specified.
+'
+Doke _PENARRAY,_DETAIL
+Doke _PENARRAY+2,_BLOCK
+Doke _PENARRAY+4,_TEXT
+Doke _PENARRAY+6,_SHINE
+Doke _PENARRAY+8,_SHADOW
+Doke _PENARRAY+10,_FILL
+Doke _PENARRAY+12,_FILLTEXT
+Doke _PENARRAY+14,_BACK
+Doke _PENARRAY+16,_HIGH
+If _NUM_PENS>=12
+   '
+   'Additional pens for V39-40 only 
+   '
+   Doke _PENARRAY+18,_BARDETAIL
+   Doke _PENARRAY+20,_BARBLOCK
+   Doke _PENARRAY+22,_BARTRIM
+End If 
+
+
+'
+'Inform intuiton that this is now a new-look screen, so it uses these
+'pens whenever possible, and uses the KS2.x/3.x style window border
+'gadgets. 
+'
+'Without this, the window border gadgets in the requesters use the wrong
+'colours. You probably won't need to do this, if the screen is opened
+'with a taglist. 
+'
+Loke _DRAW_INFO+18,1
+
+
+'
+'Now determine if the screen title is visible, and redraw it if it is, 
+'which makes it use the BARDETAIL,BARBLOCK & BARTRIM pens. 
+'
+If Btst(4,Iscreen Base+21)
+   Areg(0)=Iscreen Base
+   Dreg(0)=1
+   A=Intcall(-282) : Rem _LVOShowTitle
+End If 
+
+'
+'This only leaves the screen depth gadgetusing the old KS1.x style gadget.
+'I can't seem to change this, but I believe it would be correct if the
+'dri_pens were setup before the screen was opened, and the screen opened
+'using OpenScreenTags or Taglist.
+'
+'
+End Proc
+
+I suggest you provide to new intuition commands:
+
+1) Iscreen Open Nl ...
+
+Opens a newlook screen, using OpenScreenTag[s/List], and sets up the
+default dri_pens by providing an SA_PENS tag in the list.
+
+
+2) Iscreen pens DETAIL,BLOCK,TEXT, etc.
+
+A machine code version of the above procedure.
+
+
+
+
+
+
+
+Irequest ... bug
+=================
+
+If you call these functions when the AMOS screen is "in front" the
+machine locks up, and you have to reboot the machine. Fix this by
+checking the status of the AMOS screen before calling the requester
+functions e.g.
+
+	;Assumes standard AMOS A5
+
+	move.w	T_NoFlip(a5),d7 	;Store "Amos (Un)Lock" status
+	move.w	#$FFFF,T_NoFlip(a5) 	;Turn "Amos Lock" on
+	tst.w	T_AMOSHere(a5)		;Test if AMOS screen is in front
+	bne.s	.amosinfronterr
+
+	;Insert your requester here ...
+	;You'll have to preserve D7 somehow.
+					    
+	move.w	d7,T_NoFlip(a5)		;Restore AMOS Lock Status
+	rts			
+
+.amosinfronterr
+	move.w	d7,T_NoFlip(a5)		;Restore AMOS Lock Status
+	moveQ	#AMOS_SCREEN_IN_FRONT_ERR,d0
+	Rbra	L_Custom		;Cause an AMOS error
+
+
+NOTE: You can't move the AMOS screen from front to back just by changing
+      T_AMOSHere(A5) - An automatic Amos To Back when the command is called
+      would be moe complicated.
+
+
+
+
+Iset Screen Title 
+=================
+
+Add an instruction to change the screen title after the screen is opened.
+
+
+Palettes
+=======
+
+How about an instruction to set palettes using colour values from 0 to 255 
+instead of 0-15
+
+
++-------------------------+------------------------------------+
+|                         |    _____                           |
+| PAUL HICKMAN            |   /     \   ON A HOT SUMMER NIGHT  |
+| (ph@doc.ic.ac.uk)       |  /  O O  \  WOULD YOU  OFFER YOUR  |
+| DEPARTMENT OF COMPUTING | |    _    | THROAT  TO  THE  WOLF  |
+| IMPERIAL COLLEGE LONDON |  \  / \  /  WITH THE RED  ROSES ?  |
+|                         |   \_____/                          |
++-------------------------+------------------------------------+
+Machines: Amiga 500  WB1.3 - 1mb Memory - External Disk Drive.
+          Amiga 1200 WB3.0 - 6mb Memory - 200Mb Hard Disk.
+
diff --git a/extensions/Intuition-41.95/Intuition/bugs/int.ph2 b/extensions/Intuition-41.95/Intuition/bugs/int.ph2
new file mode 100644
index 0000000..d53f07a
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/int.ph2
@@ -0,0 +1,45 @@
+From ph@doc.ic.ac.uk Tue Nov 29 05:39:25 1994
+To: achurch@goober.mbhs.edu (Andy Church)
+Cc: ph@doc.ic.ac.uk
+Subject: Re: Intuition Extension
+Date: Tue, 29 Nov 1994 10:37:51 +0000
+From: Paul Hickman <ph@doc.ic.ac.uk>
+
+> >Somehow I seem to have ended up with the documentation for version 1.2b,
+> >but the .lib file for version 1.1! However, the 1.2b documentation does
+> >not say that any of these bugs have been fixed...
+> 
+>   Did you get it on the disk?  Looks like I'll have to yell at Ryan again...
+> 
+No, nothing to do with him - I've only got beta versions that you've sent me 
+direct -
+but somehow I've manage to cock up the installation.
+
+> >Palettes
+> >=======
+> >
+> >How about an instruction to set palettes using colour values from 0 to 255 
+> >instead of 0-15
+> 
+>   As soon as you find a way to get 256 numbers on a single line, sure. :-)
+> 
+>   --Andy Church
+
+You misunderstand me - I don't mean a way to specify all 256 colours of an AGA
+screen - I mean instead of specifing RGB values with 0-$F for each of red, 
+green,
+and blue, allow the use of 0-$FF for each component so the full AGA palette can
+be used instead of every 16th colour.
+
+
++-------------------------+------------------------------------+
+|                         |    _____                           |
+| PAUL HICKMAN            |   /     \   ON A HOT SUMMER NIGHT  |
+| (ph@doc.ic.ac.uk)       |  /  O O  \  WOULD YOU  OFFER YOUR  |
+| DEPARTMENT OF COMPUTING | |    _    | THROAT  TO  THE  WOLF  |
+| IMPERIAL COLLEGE LONDON |  \  / \  /  WITH THE RED  ROSES ?  |
+|                         |   \_____/                          |
++-------------------------+------------------------------------+
+Machines: Amiga 500  WB1.3 - 1mb Memory - External Disk Drive.
+          Amiga 1200 WB3.0 - 6mb Memory - 200Mb Hard Disk.
+
diff --git a/extensions/Intuition-41.95/Intuition/bugs/intbug13.0 b/extensions/Intuition-41.95/Intuition/bugs/intbug13.0
new file mode 100644
index 0000000..6ae1db6
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/intbug13.0
@@ -0,0 +1,95 @@
+Date: Sat, 16 Dec 95 01:48:00 GMT
+X-Mailviewer: RRR/DIGITAL CANDY E-Mail
+From: Paul Wellstead <Steve@dcandy.demon.co.uk>
+To: achurch@goober.mbhs.edu
+Subject: Int Ext
+X-Smtp-Posting-Host: dcandy.demon.co.uk [Sat, 16 Dec 95 12:31:30 GMT]
+X-Smtp-Posting-Host: post.demon.co.uk [Sat, 16 Dec 95 12:33:44 GMT]
+
+achurch@goober.mbhs.edu
+
+Hi Andy
+
+I am sending you this privately cos I don't want to show myself up :-)
+
+Right the Intuition Ext. Does it draw buttons on the screen as you would
+expect it to?
+
+When I use Igadget it defines (and reacts) to the zone where the button
+should be but there is no visible button, surely we don't have to write in
+our own button drawing routines do we? I did this and it slows things down
+quite horribly. I am sure it's summit stupid I am doing, so can you put 
+me straight please?
+
+
+I was attempting to write an easy to use Archiver/de-archiver called Exarc.
+By the way the text gadget and sliders work fine.
+I am using an A1200 4meg Amos Pro V2.
+
+'requester title  
+Irequest Def Title "ExArc Request"
+
+Iwindow_open Wb 0,0,0,640,200,"ExArc V1.0"
+
+Itext 24,18,"Extract"
+Itext 24,38,"Archive"
+
+Reserve Igadget 2
+Set Igadget Hit 1,24,10,64,12
+Set Igadget Hit 2,24,30,64,12
+
+Igadget On 
+Amos To Back 
+
+'main loop 
+
+Do 
+Multi Wait 
+   EVENT=Iwait Event
+
+A=Igadget Read(1)
+  If A=True
+  _EXTRACT
+End If 
+
+A=Igadget Read(1)
+  If A=True
+  _ARCHIVE
+End If 
+
+If EVENT=Ievent Close
+   Exit 
+   End If 
+Loop 
+
+Itrap On 
+Iscreen Close 0
+Itrap Off 
+Iwindow Close Wb 0
+Amos To Front 
+Edit 
+
+
+Procedure _EXTRACT
+Iwrite "extract ok"
+End Proc
+
+Procedure _ARCHIVE
+Iwrite "archive ok"
+End Proc
+
+
+
+I haven't put the extension in the F1 cat yet as I would like to see how
+this problem turns out. Our Amos customers would have my balls if you have
+to write your own buttons (I am sure you don't but this needs to be sorted)
+
+/\Steve Bye/\    steve@dcandy.demon.co.uk
+
+
+ 
+
+
+--------------------
+|  F1 Licenceware  |
+--------------------
diff --git a/extensions/Intuition-41.95/Intuition/bugs/iplayer.bug1 b/extensions/Intuition-41.95/Intuition/bugs/iplayer.bug1
new file mode 100644
index 0000000..3e00165
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/iplayer.bug1
@@ -0,0 +1,2 @@
+69 MENUSEL=Ichoice(1)
+Internal error 0, subcode 75655F1F
diff --git a/extensions/Intuition-41.95/Intuition/bugs/test2.asc b/extensions/Intuition-41.95/Intuition/bugs/test2.asc
new file mode 100644
index 0000000..f3635e9
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/bugs/test2.asc
@@ -0,0 +1,195 @@
+Itrap On 
+INIT
+NAME$="" : NAMEOUT$=""
+OUT=False
+OLDIMEN=0
+Repeat 
+   IMEN=Ichoice(1)
+   If IMEN<>OLDIMEN
+      If IMEN=1
+         IMEN2=Ichoice(2)
+         If IMEN2=5
+            QUIT
+            OUT=Param
+         End If 
+      End If 
+   End If 
+   If Igadget Read(1)
+      NAME$=Irequest File Multi$("Selecteer invoerbestand(en).")
+      If NAME$<>""
+         Set Igadget Value$ 2,NAME$
+      End If 
+   End If 
+   'If NAME$<>Igadget Read$(2) Then NAME$=Igadget Read$(2)
+   If ITEST<>Rnd(1) Then ITEST=Rnd(1)
+   If Igadget Read(3)
+      NAMEOUT$=Irequest File$("Selecteer het uitvoerbestand.")
+      If NAMEOUT$<>""
+         Set Igadget Value$ 4,NAMEOUT$
+      End If 
+   End If 
+   'If NAMEOUT$<>Igadget Read$(4) Then NAMEOUT$=Igadget Read$(4)
+   If Igadget Read(5)
+      CONVERT[NAME$,NAMEOUT$,DR]
+   End If 
+   If Igadget Read(6)
+      HELP
+   End If 
+   If Igadget Read(7)
+      QUIT
+      OUT=Param
+   End If 
+   If Igadget Read(8)
+      DR=Abs(DR-1)
+      ARROW[DR]
+   End If 
+Until OUT
+'
+Imenu Off 
+Iwindow Close Wb 1
+Amos To Front 
+Itrap Off 
+End 
+'
+' Main procedures
+'
+Procedure INIT
+   Global TH,TB,DR
+   Amos To Back 
+   Iwindow_open Wb 1,50,25,520,100,"Amiga Magazine test"
+   Set Ifont "topaz",8
+   Wait Vbl 
+   TB=Itext Base
+   TH=Fonti Height
+   '
+   Set Imenu "Project ",1
+   Set Imenu "Open ",1,1
+   Set Imenu "Bewaar ",1,2
+   Set Imenu "Doe iets ",1,3
+   Set Imenu "Over... ",1,4
+   Set Imenu "Sluit ",1,5
+   Set Imenu "Kijk ",2
+   Set Imenu "eens ",2,1
+   Set Imenu "hier! ",2,1,1
+   Imenu On 
+   Reserve Igadget 10
+   '
+   Itext 10,3+TB,"Invoerbestand: "
+   Set Igadget Hit 1,130,1,TH+6,12
+   F_IKON[132,3]
+   Set Igadget String 2,148,1,320,,128,""
+   '
+   Itext 10,9+TB+TH,"Uitvoerbestand:"
+   Set Igadget Hit 3,130,7+TH,TH+6,12
+   F_IKON[132,9+TH]
+   Set Igadget String 4,148,7+TH,320,,128,""
+   '
+   Set Igadget Hit 5,10,70,76,TH+6
+   Itext 12,73+TB," Doe iets "
+   '
+   Set Igadget Hit 6,96,70,52,TH+6
+   Itext 98,73+TB," Help "
+   '
+   Set Igadget Hit 7,158,70,52,TH+6
+   Itext 160,73+TB," Stop "
+   '
+   DR=0
+   Itext 250,50,"PC      AMIGA"
+   Set Igadget Hit 8,246,40,114,15
+   ARROW[DR]
+   '
+   Igadget On 
+End Proc
+Procedure F_IKON[X,Y]
+   Idraw X,Y To X+4,Y
+   Idraw X+4,Y To X+8,Y+3
+   Idraw X+8,Y+3 To X+8,Y+7
+   Idraw X,Y+7 To X+8,Y+7
+   Idraw X,Y To X,Y+7
+   Idraw X+4,Y To X+4,Y+3
+   Idraw X+4,Y+3 To X+8,Y+3
+End Proc
+Procedure ARROW[D]
+   Iink 0
+   Ibar 270,43 To 306,52
+   Iink 1
+   Itext 250,50,"PC      AMIGA"
+   If D=0
+      Idraw 270,45 To 290,45
+      Idraw To 290,43
+      Idraw To 306,47
+      Idraw To 306,48
+      Idraw To 290,52
+      Idraw To 290,50
+      Idraw To 270,50
+      Idraw To 270,45
+   Else 
+      Itext 250,50,"PC      AMIGA"
+      Idraw 270,47 To 270,48
+      Idraw To 286,52
+      Idraw To 286,50
+      Idraw To 306,50
+      Idraw To 306,45
+      Idraw To 286,45
+      Idraw To 286,43
+      Idraw To 270,47
+   End If 
+End Proc
+'
+Procedure CONVERT[A$,B$,D]
+   If A$=""
+      Bell 
+      Pop Proc
+   End If 
+   If Not Exist(A$)
+      Bell 
+      Pop Proc
+   End If 
+   If D=0
+      IN$=Chr$(13)+Chr$(10)
+      OUT$=Chr$(10)
+      INL=2
+   Else 
+      IN$=Chr$(10)
+      OUT$=Chr$(13)+Chr$(10)
+      INL=1
+   End If 
+   C$=""
+   BUF=1024
+   Open In 1,A$
+   FL=Lof(1)
+   If FL<BUF Then BUF=FL
+   Open Out 2,B$
+   Repeat 
+      D$=""
+      C$=C$+Input$(1,BUF)
+      FL=FL-BUF
+      ST=1
+      Repeat 
+         C=Instr(C$,IN$,ST)
+         If C<>0
+            D$=D$+Left$(C$,C-1)+OUT$
+            ST=ST+INL
+         End If 
+         If D$="" Then D$=D$+C$
+      Until C=0
+      Print #2,D$
+      If((D=0) and(Right$(C$,1)=Chr$(13))) Then C$=Chr$(13) Else C$=""
+   Until FL<=0
+   Close 2
+   Close 1
+   Bell 
+End Proc
+'
+Procedure HELP
+   HELPTEKST$="Amiga Magazine Test is een eenvoudig |programma om pc-teksten om |"
+   HELPTEKST$=HELPTEKST$+"te zetten naar het Amiga formaat |en omgekeerd.||"
+   RESULT=Irequest Message("Help...",HELPTEKST$,"Okidoki")
+End Proc
+'
+Procedure QUIT
+   Z=False
+   TEKST$="Weet U zeker dat U wilt stoppen?"
+   RESULT=Irequest Message("Stop...",TEKST$,"Ja|Nee")
+   Z=(RESULT=1)
+End Proc[Z]
diff --git a/extensions/Intuition-41.95/Intuition/cmdlist b/extensions/Intuition-41.95/Intuition/cmdlist
new file mode 100644
index 0000000..3a3d1df
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/cmdlist
@@ -0,0 +1,110 @@
+Amos Iscreen Copy a To b
+Amos Iscreen Copy a,x,y,w,h To b,x,y
+=Ichoice
+Icls
+Icls col
+Icls col,x1,y1 To x2,y2
+Iclw
+Iclw col
+Iclw col,x1,y1 To x2,y2
+=Ierr
+=Ierr$
+Ierror
+=Ierrtrap
+=Ifont Base
+=Ifont$
+Igadget Active
+Igadget Active All
+=Igadget Down
+Igadget Inactive
+Igadget Inactive All
+Igadget Off
+Igadget Off All
+Igadget On
+Igadget On All
+=Igadget Read
+Iget Icon
+Iget Icon Palette
+Iget Sprite Palette
+=Iget$
+Igr Writing
+Imenu Off
+Imenu On
+=Imouse Key
+=Imouse X
+=Imouse Y
+Ipaste Icon
+=Iread Char$
+=Iread Int
+=Iread Str$
+=Ireq Scr Colour
+=Ireq Scr Height
+=Ireq Scr Mode
+=Ireq Scr Width
+Irequest Def Title
+Irequest Error
+=Irequest File$
+=Irequest File Multi$
+=Irequest File Next$
+=Irequest Font$
+=Irequest Message
+=Irequest Screen
+=Irequest Warning
+=Iscan
+Iscreen Offset
+Iscreen Open Public n,w,h,cols,mode[,title$]
+Iscreen Open Public n,w,h,cols,mode,title$,displayID
+=Ishift
+Itrap Off
+Itrap On
+Iwait
+Iwait Key
+Iwait Mouse
+Iwait Vbl
+=Iwindow
+Iwindow Activate
+=Iwindow Active
+=Iwindow Active Base
+=Iwindow Active Num
+=Iwindow Actual Width
+=Iwindow Actual Width(n)
+=Iwindow Actual Height
+=Iwindow Actual Height(n)
+=Iwindow Base
+Iwindow Close
+Iwindow Close Wb
+=Iwindow Height
+=Iwindow Height(n)
+Iwindow Move
+=Iwindow On Wb
+Iwindow Open
+Iwindow Open Wb
+Iwindow Size
+=Iwindow Status
+Iwindow To Back
+Iwindow To Back n
+Iwindow to Front
+Iwindow to Front n
+=Iwindow Width
+=Iwindow Width(n)
+=Iwindow X
+=Iwindow X(n)
+=Iwindow Y
+=Iwindow Y(n)
+=Ixgr
+=Iygr
+Set Igadget Hslider
+Set Igadget Int
+Set Igadget String
+Set Igadget Toggle
+Set Igadget Value
+Set Igadget Value$
+Set Igadget Vslider
+Set Imenu
+Set Ipens
+Set Iwindow
+Set Iwindow Wb
+=X Ihard
+=X Iscreen
+=Y Ihard
+=Y Iscreen
diff --git a/extensions/Intuition-41.95/Intuition/drawer.info b/extensions/Intuition-41.95/Intuition/drawer.info
new file mode 100644
index 0000000..59ce9fc
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/drawer.info differ
diff --git a/extensions/Intuition-41.95/Intuition/e b/extensions/Intuition-41.95/Intuition/e
new file mode 100644
index 0000000..b87ae58
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/e
@@ -0,0 +1,3 @@
+.key f/a,p1,p2,p3,p4
+/autorev src/intuition.s
+me <f> <p1> <p2> <p3> <p4>
diff --git a/extensions/Intuition-41.95/Intuition/error.iff b/extensions/Intuition-41.95/Intuition/error.iff
new file mode 100644
index 0000000..56d211c
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/error.iff differ
diff --git a/extensions/Intuition-41.95/Intuition/iflood.doc b/extensions/Intuition-41.95/Intuition/iflood.doc
new file mode 100644
index 0000000..3d0c575
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/iflood.doc
@@ -0,0 +1,42 @@
+@node C_Iflood "Intuition Extension 1.0 Command: Iflood"
+@next C_IfontBase
+@prev C_Ierr
+
+IFLOOD
+------
+
+Iflood x,y,mode
+
+Performs a flood fill starting at coordinates (x,y).  The mode parameter
+determines how far the fill goes: if mode is non-zero, all pixels with the
+same colour as the pixel at (x,y) are filled with the foreground colour.
+However, if mode is zero, the fill only goes as far as pixels with the current
+outline colour.
+
+Here is an example of the two different filling modes: (Assume the foreground
+colour is 1, and the outline colour is 2.  The Iflood command was given from
+the "*", which has a colour of 3.)
+
+		Mode=0					Mode<>0
+
+	0000000011111100000000			0000000011111100000000
+	0000111144334411110000			0000111144334411110000
+	0011444433333344441100			0011444433333344441100
+Before	11443333*3333333334411			11443333*3333333334411
+	0011444433333344441100			0011444433333344441100
+	0000111144334411110000			0000111144334411110000
+	0000000011111100000000			0000000011111100000000
+	
+	0000000011111100000000			0000000011111100000000
+	0000111144224411110000			0000111122222211110000
+	0011444422222244441100			0011222222222222221100
+After	1144222222222222224411			1122222222222222222211
+	0011444422222244441100			0011222222222222221100
+	0000111144224411110000			0000111122222211110000
+	0000000011111100000000			0000000011111100000000
+	
+
+See also: @{" Iink " link C_Iink}
+
+@endnode
+
diff --git a/extensions/Intuition-41.95/Intuition/igadbank.doc b/extensions/Intuition-41.95/Intuition/igadbank.doc
new file mode 100644
index 0000000..7aafc12
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/igadbank.doc
@@ -0,0 +1,57 @@
+Bank format not understood (37)
+
+The extension couldn't understand the format of a data bank.  Either
+the bank is not of the appropriate type (for example, Bank To Igadget
+requires a bank previously created with Igadget To Bank), or the
+bank was created with a newer version of the extension which used a
+different bank format.
+
+
+Bank not defined (36)
+
+You tried to access a bank that did not exist (for example, trying to
+retrieve gadget definitions from a bank with Bank To Igadget).
+
+
+Inconsistent data (38)
+
+Usually indicates that a memory bank (e.g. for Bank To Igadget) has
+become corrupted.  Re-create the bank; if this does not solve the
+problem, then there may be a bug in the Intuition Extension itself.
+Send me the program which causes the error so I can fix it.
+
+
+@node C_BankToIgad "Intuition Extension 1.2 Command: Bank To Igadget"
+@next C_Ecs
+@prev C_AIscrCopy
+
+BANK TO IGADGET
+---------------
+
+Bank To Igadget n
+
+Sets up gadgets for a window according to information stored in a bank
+previously created with the @{" Igadget To Bank " link C_IgadToBank} command.  String gadgets
+are reset to the empty string (""), and integer gadgets are reset to
+zero.  All other gadgets retain their previous values.
+
+@endnode
+
+@node C_IgadToBank "Intuition Extension 1.2 Command: Igadget To Bank"
+@next C_IgetIconPal
+@prev C_IgadgetRead
+
+IGADGET TO BANK
+---------------
+
+Igadget To Bank n
+
+Stores information about the gadgets in the current window in bank
+number n.  The position and size of each gadget are recorded, as are
+the values of sliders and toggle gadgets; however, the values of
+string and integer gadgets are NOT recorded.
+
+See also: @{" Bank To Igadget " link C_BankToIgad}
+
+@endnode
+
diff --git a/extensions/Intuition-41.95/Intuition/imenu.doc b/extensions/Intuition-41.95/Intuition/imenu.doc
new file mode 100644
index 0000000..61c15ae
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/imenu.doc
@@ -0,0 +1,50 @@
+@node C_Imenu "Intuition Extension 1.1 Command: Imenu$"
+@next C_ImouseKey
+@prev C_ImenuOnOff
+
+IMENU$
+------
+
+Imenu$(menu [,item [,sub]])=s$
+s$=Imenu$(menu [,item [,sub]])
+
+Defines a menu, item, or subitem.  Menu is the menu number; it can
+range from 1 to 31.  Item, the item number, can be 1-63, and sub, the
+subitem number, can be 1-31.
+
+A menu is a set of options that the user can select to control the
+actions of a program.  A menu can contain zero or more items -
+although a menu with zero items is not very useful! - which are drawn
+underneath the menu when it is selected; that is, when the user
+presses the right mouse button and moves the pointer over the menu
+name.  Each of those items can have zero or more subitems.  If a menu
+item has subitems, then when the user places the pointer over the menu
+item, the list of subitems appears to the right of the menu item.
+
+By checking which menu item the user has selected (see the @{"=Ichoice " link C_Ichoice}
+function), you can act appropriately; for example, when the user
+chooses the "Quit" function, your program would close down and exit.
+
+The first form of Imenu$ creates or removes a menu, item, or subitem,
+depending on how many of menu, item, and sub you pass to Imenu$.  When
+a menu is initially created, it contains no items; a newly-created
+item contains no subitems.  The menu's or item's string is set to s$.
+If s$ is empty, the appropriate menu/item (along with all subitems) is
+deleted.
+
+The second form of Imenu$ returns the current string for the given
+menu/item.  If it does not exist, an empty string is returned.
+
+In either case, an out-of-range value will cause an Illegal Function
+Call error; a value of 0 is equivalent to omitting the parameter.  If
+any parameter is included (and non-zero), all the parameters before it
+must also be included and non-zero.  So calling Imenu$(1,0,2) will
+result in an error.
+
+In order for the user to be able to use the menus you have created,
+you will need to use the @{" Imenu On " link C_ImenuOnOff} instruction.  Once menus are
+activated, you cannot make any changes without first deactivating them
+(with @{" Imenu Off " link C_ImenuOnOff}).
+
+@endnode
+
diff --git a/extensions/Intuition-41.95/Intuition/intuition.guide b/extensions/Intuition-41.95/Intuition/intuition.guide
new file mode 100644
index 0000000..fd1f9ed
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/intuition.guide
@@ -0,0 +1,4090 @@
+@database intuition.guide
+@$VER: Intuition.guide 41.22 (1 May 1998)
+
+----------------------------------------------------------------------
+Wait a minute!  You're not using AmigaGuide!
+
+This is an AmigaGuide document.  In order to read it correctly, you'll
+need a program that can display such documents.  Workbench 3.0 users
+can use MultiView to read this.  Other users should find a copy of
+AmigaGuide; disc 870 of the Fred Fish library has it.
+----------------------------------------------------------------------
+
+@node main "The AMOS Intuition Extension - Version 1.3b"
+
+                          Intuition Extension
+                          ===================
+
+                              Version 1.3b
+
+
+	@{" About            " link About} - So what is this thing, anyway?
+	@{" History          " link History} - History of the Intuition Extension
+	@{" Requirements     " link Requirements} - What it needs in order to run
+	@{" Installation     " link Installation} - How to tell AMOS you've got it
+	@{" Notes            " link Notes} - Important things to know. Read them first!
+	@{" Bug reporting    " link BugReporting} - What?  A bug in the Intuition Extension?
+	@{" Misc. stuff      " link Misc} - Copyrights and acknowledgements
+	@{" The future       " link Future} - What to look for in future versions
+	@{" Author           " link Me} - How to reach me, the author
+
+        Commands in the Intuition Extension:
+
+	@{" Display Info     " link DispInfo} - Information about the hardware and display
+	@{" Screens          " link Screens} - Opening, closing, and manipulating screens
+	@{" Windows          " link Windows} - Playing around with windows
+	@{" Input/Output     " link IO} - Listening to the user and talking back
+	@{" Fonts            " link Fonts} - Making your responses look nice
+	@{" Requesters       " link Requesters} - For special kinds of input
+	@{" Menus            " link Menus} - How to give the user control
+	@{" Gadgets          " link Gadgets} - How to give the user more control
+	@{" Other functions  " link Other} - Functions not in the above categories
+
+	@{" Command Index    " link Index} - Alphabetical list of commands
+	@{" Errors           " link Errors} - Error messages and what they mean
+
+
+	@{" IntuiViewer      " link IntuiViewer.guide/main} - an Intuition-compatible picture viewer
+
+@endnode
+
+@node About "What is the Intuition Extension?"
+@next History
+
+Although AMOS is an excellent language, with hundreds of commands for
+graphics, sound, I/O, and much more, it has had, until now, one
+serious lack: support for Intuition, the Amiga's native graphics
+system.  The Intuition Extension fills this gap.
+
+The Intuition Extension was designed as an interface between AMOS and
+Intuition.  Most of the commands included, therefore, function almost
+identically to AMOS commands.  For most instructions, you can simply
+add an "I" in front of the instruction to make it work with Intuition
+rather than the AMOS graphics system.  However, additional Intuition-
+specific instructions have been included, so that AMOS programmers can
+take full advantage of the Intuition graphical interface.
+
+@endnode
+
+@node History "Intuition Extension - Version History"
+@next Requirements
+@prev About
+
+----------------------------------------------------------------------
+Version 1.3b (revision 41.95, documentation 41.22) - 1 May 1998
+
+Source code released into the public domain.
+
+----------------------------------------------------------------------
+Version 1.3b (revision 41.95, documentation 41.21) - 22 February 1996
+
+Added screen and window title manipulation commands.
+Added Workbench window variants for most window commands.
+Added Iscreen Open Front/Back to allow "hiding" of new screens.
+Implemented I Flush command to deal with several potential temporary
+    memory leaks.
+Fixed problems with gadget and window border colors.
+Fixed some stupid errors in the docs.  For those who wondered what
+    "Kickstart 1.3a" was, it was "Kickstart 1.3" mutilated by a
+    global search-and-replace.  Oops.
+Added Iscreen Amos Copy, companion command to Amos Iscreen Copy.
+Fixed a bug which corrupted the current window pointer when switching
+    from a Workbench window to a non-workbench window and caused
+    crashes.
+Various other bug fixes.
+
+
+----------------------------------------------------------------------
+Version 1.3a (revision 41.65) - 8 April 1995
+
+Added Ipoint function.
+Extension will now print error messages if it fails to start up
+    properly.
+Minor (but important) bug fixes.
+
+
+----------------------------------------------------------------------
+Version 1.3 (revision 41.55) - 23 March 1995
+
+Added two sorely needed sets of functions: flags for controlling the
+    opening of windows (Iwindow Open and Iwindow Open Wb), and OS-
+    compliant event-waiting (Iwait Event and associated functions).
+    No more busy-waiting loops!
+Fixed bug resulting from using Igadget On on a gadget that was already
+    displayed, or Igadget Off on a gadget that was not displayed.
+Fixed screen handling under Kickstart 2.0 and above.  Windows will now
+    look "right" on 4-or-more-color screens.
+Rearranged the extension code to avoid a bug in AMOS's extension
+    handling.
+Fixed various minor bugs.
+
+
+----------------------------------------------------------------------
+Version 1.2b (revision 40.312) - 25 September 1994
+
+Added hit-select gadget (Set Igadget Hit).
+Gadget border pens can now be selected within a program.
+"Down" status of gadget (whether gadget is currently selected) can be
+    accessed through the Igadget Down function.
+Added Iwindow Activate Wb (Workbench counterpart to Iwindow Activate).
+Created a branch table allowing other extensions to access Intuition
+    Extension data.
+Added Iget Icon command.
+Fixed some stupid bugs in the Iwindow Width/Height routines.
+Added Iwindow Actual Width/Height to return usable area of a window.
+Fixed problem with reading vertical sliders (Igadget Read always
+    returned zero).
+Added Set Igadget Value to allow a gadget's value to be changed
+    without having to redefine and redraw the gadget.
+
+
+----------------------------------------------------------------------
+Version 1.2a (revision 40.259) - 29 August 1994
+
+Fixed MAJOR bug caused by an assembler upgrade.
+HAM8 screens can now be opened correctly.
+Auto-height for string and integer gadgets fixed.
+
+
+----------------------------------------------------------------------
+Version 1.2 (revision 40.253) - 14 August 1994
+
+Added gadget support.
+Added Icentre command.
+Added Amos Iscreen Copy command.
+
+
+----------------------------------------------------------------------
+Version 1.1b (revision 40.225) - 23 July 1994
+
+ReqTools.library is now optional, not required.  (Requester functions
+    still require it, though.)
+Added a missing memory deallocation bit.
+Added function "=Reqtools Here" to check for presence of ReqTools.
+
+
+----------------------------------------------------------------------
+Version 1.1a (revision 40.222) - 3 July 1994
+
+Added subcode field to "Internal error" error string.
+Fixed Iscreen Display bug which did not set the display width and
+    height correctly.
+
+
+----------------------------------------------------------------------
+Version 1.1 (revision 40.217) - 23 June 1994
+
+Basic menu support added.
+Extension number changed to 14 (from 20).
+New instructions:
+    Ipaste Icon
+    Iget Sprite Palette
+    Iget Icon Palette
+Fixed a nasty bug in Iscreen Close which resulted in system crashes.
+Fixed bugs in the input routines that would sometimes crash on input
+    buffer overflow.
+
+
+----------------------------------------------------------------------
+Version 1.0a (revision 40.152) - 18 May 1994
+
+Argh.  Just after releasing the first version, I discovered left-out
+    version numbers and text.
+Message requesters (Irequest Message/Warning/Error) now recognise a
+    title when it is given to them.
+
+
+----------------------------------------------------------------------
+Version 1.0 (revision 40.151) - 15 May 1994
+
+First public release.
+
+@endnode
+
+@node Requirements "What does the Intuition Extension need to run?"
+@next Installation
+@prev History
+
+To use the Intuition Extension, you need:
+
+- An Amiga (of course!)
+- AMOS Creator version 1.3 or higher, or AMOS Professional.  However,
+    the Intuition Extension will NOT work under AMOS Pro version 1.12.
+- Kickstart/Workbench version 1.3 or higher.  Lower versions may work,
+    but have not been tested.  Under Kickstart 1.3, some features of
+    the extension will be unusable.
+
+Also strongly recommended:
+
+- ReqTools.library version 2 (revision 38.xxx) or higher.
+
+@endnode
+
+@node Installation "How to install the Intuition Extension"
+@next Notes
+@prev Requirements
+
+Included in this distribution are two versions of the Intuition
+Extension, one for AMOS Creator and the other for AMOS Professional.
+They are in the directories "AMOS_System" and "APSystem", respectively.
+
+To install the extension, copy the appropriate "Intuition.Lib" file
+into your AMOS_System or APSystem folder.  Then run AMOS, run the
+configuration program, and enter "Intuition.Lib" in extension slot
+number 14.  Exit and reload AMOS to access the new Intuition Extension
+commands.
+
+@endnode
+
+@node Notes "Notes on the Intuition Extension"
+@prev Installation
+@next BugReporting
+
+The Intuition Extension does not function when installed in AMOS Pro
+version 1.12.  The cause of this is currently unknown, but is believed
+to be a bug in that version of AMOS.  If you do have that version, I
+strongly urge you to upgrade to version 2.0, which includes a compiler,
+more commands, and bug fixes - and the Intuition Extension will work
+with it. :-)
+
+
+A note for those who are upgrading from earlier versions:
+
+If you are upgrading from version 1.0a (revision 40.152) or earlier,
+you will need to convert any programs that use Intuition Extension
+instructions so that they will work correctly with the new version.
+With the old version of the extension still installed, do this for
+each program:
+
+	- Open/Unfold all procedures.
+	- Select the entire text as a block.
+	- (AMOS Pro only) Store the block in memory.
+	- Save the block as an ASCII file.
+
+Then change to the new version of the extension, and do a "Merge ASCII"
+for each ASCII file.
+
+If you are upgrading from version 1.2b (revision 40.312) or earlier,
+you may notice an underscore ("_") in a few command names.  That
+indicates that a program was written using an old version of the
+extension.  The commands will function exactly as expected, but unless
+you remove the underscore, you will not be able to use any new features
+of the command.
+
+As of version 1.3b, the changed commands include Iscreen Open and many
+of the window commands.
+
+Although virtually all of the instructions in the Intuition Extension
+will function identically in both AMOS Creator and AMOS Pro, there are
+a couple of exceptions:
+
+	- In Creator, the @{" X Hard Min " link C_XHardMin} and @{" Y Hard Min " link C_YHardMin} functions are
+	  called "Xhard Min" and "Yhard Min", since Creator tokenises
+	  X Hard before X Hard Min.  However, this does not affect the
+	  program itself; a program written in either environment
+	  using these functions will work in the other environment as
+	  well.
+
+	- For a similar reason, the functions @{" Ifont$ " link C_IfontName}, @{" Ifont Base " link C_IfontBase},
+	  and @{" Ifont Height " link C_IfontHeight} had to be renamed in the Creator version
+	  to Fonti$, Fonti Base, and Fonti Height to avoid problems
+	  with the If statement.  This also does not affect the
+	  program itself, but is merely a cosmetic difference.
+
+I know this may (and probably will) cause a bit of confusion for
+Creator users, but I'm developing this mainly as a Pro extension,
+since that's what I use almost exclusively.  I knew from the start
+that many people owned Creator and would want to use the extension, so
+I decided to make a Creator port of it as well.
+
+Other things to note:
+
+	- Several commands can accept a coordinate range (X1,Y1 To
+	  X2,Y2).  In AMOS, some instructions will interpret this to
+	  mean that the bottom right corner is (X2,Y2), while others
+	  will think that the corner is (X2-1,Y2-1).  In the Intuition
+	  Extension, the first interpretation is always used; in other
+	  words, when you give X2 and Y2, those are the actual
+	  coordinates of the bottom right corner.  (I've often
+	  wondered why some AMOS instructions use the other behaviour;
+	  it doesn't make much sense.)
+
+	- On a related note, ranges must ALWAYS be specified with the
+	  upper left corner first, followed by the lower right corner.
+	  Failure to follow this standard will result in a "Backward
+	  coordinates" error.
+
+	- The Default instruction closes all screens and windows that
+	  are open at the time.  However, it does not reset any
+	  requester buffers, so loaded directories and fonts remain
+	  in memory (see @{" Requesters " link Requesters}).
+
+	- Any input from ANY window opened by an AMOS program gets to
+	  AMOS.  If your program uses multiple windows (remember that
+	  the screens are windows too!) then it is the program's job
+	  to determine which window is the active one and act
+	  accordingly.
+
+	- If an error occurs while using an Intuition instruction,
+	  and you began your program with an Amos To Back instruction
+	  (which you probably should have), the program will appear to
+	  freeze in its tracks.  When this happens, press LeftAmiga+"A"
+	  to see if there's an AMOS error message.  This is,
+	  unfortunately, another limitation of AMOS extensions.
+
+	- Screens and windows must be closed before they can be
+	  reopened.
+
+	- The Pro Compiler will not compile any Ipalette statements
+	  that have more than nine parameters, due to an apparent bug
+	  in the compiler.  Use For/Next, Read/Data and Set Icolour
+	  instead.
+
+	- The Close Editor instruction seems to interact badly with the
+	  extension, sometimes causing the computer to crash.  Don't
+	  use it if at all possible.
+
+@endnode
+
+@node BugReporting "Reporting bugs in the Intuition Extension"
+@next Misc
+@prev Notes
+
+Although I have done my best to eliminate all the bugs I can from the
+Intuition Extension, an error or two may have slipped past my notice.
+If you happen to find one, please tell me as soon as possible.
+
+However, in order to fix the problem, I'll probably have to have a
+program that demonstrates it.  So, before you tell me about it, write
+a simple program that causes the bug to happen.  Then, send it to me,
+along with a description of the bug, one of the following ways:
+
+- Through Internet e-mail - I prefer this method, since I can receive
+  and act on the report much more quickly.  If you have Internet
+  access, send me a uuencoded LhA'd copy of the program and bug
+  description.
+
+- Through normal mail - If you don't have Internet access, then type
+  (or write) a description of the problem and the sample program that
+  causes it, and send it to me.
+
+If your problem involves AMOS being unable to start up, run it from a
+shell window and include in your description the output produced.
+
+There may be some cases where you encounter a bug only occasionally,
+and you can't always reproduce it.  If that's the case, send me a
+description anyway, and I'll try to solve it, but there's no guarantee
+I'll be able to.  Also, try running without a Startup-Sequence or from
+an unmodified Workbench startup disc, and see if that eliminates the
+problem; if it does, then the problem is most likely in your Amiga's
+setup.
+
+@endnode
+
+@node Misc "Copyrights and acknowledgements"
+@next Future
+@prev BugReporting
+
+The Intuition Extension was originally created by Andrew Church.  It is
+public domain software, and may be redistributed freely, provided that
+no charge is assessed beyond the cost of media or duplication for such
+distribution.
+
+AMOS the Creator and AMOS Professional are copyright � Fran�ois Lionet.
+
+reqtools.library is copyright � Nico Fran�ois.
+
+@endnode
+
+@node Future "The future of the Intuition Extension"
+@next Me
+@prev Misc
+
+The future of the Intuition Extension will be up to those who choose to
+continue its development as public-domain software.  I simply don't
+have the time to work on it anymore.
+
+  --Andy Church
+
+@endnode
+
+@node Me "The author of the Intuition Extension"
+@prev Future
+
+The Intuition Extension was developed by Andrew Church
+<achurch@dragonfire.net> through 22 February 1996.  As of 1 May 1998
+it was placed in the public domain.
+
+@endnode
+
+@node DispInfo "Intuition Extension 1.3b - Display Information Commands"
+@next Screens
+
+These instructions return information about the custom chips in the
+computer, the hardware coordinates of the display, and some screen
+mode constants.
+
+	@{"=Aga        " link C_Aga}
+	@{"=Ecs        " link C_Ecs}
+	@{"=Ehb        " link C_Ehb}
+	@{"=Ham        " link C_Ham}
+	@{"=Superhires " link C_Superhires}
+	@{"=X Hard Min " link C_XHardMin}
+	@{"=Y Hard Min " link C_YHardMin}
+
+@endnode
+
+@node Screens "Intuition Extension 1.3b - Screen Commands"
+@next Windows
+@prev DispInfo
+
+These instructions control opening, closing, positioning, and general
+manipulation of Intuition screens, and return information about them.
+
+	@{" Iscreen Open         " link C_IscreenOpen}
+	@{" Iscreen Open Public  " link C_IscrOpenPublic}
+	@{" Iscreen Open Front   " link C_IscrOpenFront}
+	@{" Iscreen Open Back    " link C_IscrOpenBack}
+	@{" Iscreen Close        " link C_IscreenClose}
+	@{" Set Iscreen          " link C_SetIscreen}
+	@{"=Iscreen              " link C_GetIscreen}
+
+	@{" Iscreen Display      " link C_IscreenDisplay}
+	@{" Iscreen Offset       " link C_IscreenOffset}
+	@{" Iscreen To Back      " link C_IscreenToBack}
+	@{" Iscreen To Front     " link C_IscreenToFront}
+	@{" Set Iscreen Title    " link C_SetIscreenTitle}
+	@{"=Iscreen Width        " link C_IscreenWidth}
+	@{"=Iscreen Height       " link C_IscreenHeight}
+	@{"=Iscreen Title Height " link C_IscreenTitleHeight}
+	@{"=Iscreen Colour       " link C_IscreenColour}
+	@{"=Iscreen Mode         " link C_IscreenMode}
+	@{"=Iscreen Base         " link C_IscreenBase}
+
+	@{" Set Icolour          " link C_SetIcolour}
+	@{"=Icolour              " link C_GetIcolour}
+	@{" Ipalette             " link C_Ipalette}
+	@{" Iget Sprite Palette  " link C_IgetSprPal}
+	@{" Iget Icon Palette    " link C_IgetIconPal}
+	@{" Icls                 " link C_Icls}
+	@{" Iscreen Copy         " link C_IscreenCopy}
+	@{" Amos Iscreen Copy    " link C_AIscrCopy}
+	@{" Iscreen Amos Copy    " link C_AIscrCopy}
+	@{"=X Ihard              " link C_XIhard}
+	@{"=Y Ihard              " link C_YIhard}
+	@{"=X Iscreen            " link C_XIscreen}
+	@{"=Y Iscreen            " link C_YIscreen}
+
+@endnode
+
+@node Windows "Intuition Extension 1.3b - Window Commands"
+@next IO
+@prev Screens
+
+These instructions handle opening, closing, and manipulation of
+windows.  Note that each screen's windows are completely separate, so
+you need to select the right screen before you start doing anything.
+(Workbench windows are an exception to this rule.)
+
+	@{" Iwindow Open          " link C_IwindowOpen}
+	@{" Iwindow Open Wb       " link C_IwindowOpenWB}
+	@{" Iwindow Close         " link C_IwindowClose}
+	@{" Iwindow Close Wb      " link C_IwindowCloseWB}
+	@{"=Iwindow               " link C_GetIwindow}
+	@{" Set Iwindow           " link C_SetIwindow}
+	@{" Set Iwindow Wb        " link C_SetIwindowWB}
+	@{"=Iwindow On Wb         " link C_IwindowOnWB}
+
+	@{" Iwindow To Front      " link C_IwindowToFront}
+	@{" Iwindow To Back       " link C_IwindowToBack}
+	@{" Iwindow Move          " link C_IwindowMove}
+	@{" Iwindow Size          " link C_IwindowSize}
+	@{" Set Iwindow Title     " link C_SetIwindowTitle}
+	@{"=Iwindow X             " link C_IwindowX}
+	@{"=Iwindow Y             " link C_IwindowY}
+	@{"=Iwindow Width         " link C_IwindowWidth}
+	@{"=Iwindow Height        " link C_IwindowHeight}
+	@{"=Iwindow Actual Width  " link C_IwindowActual}
+	@{"=Iwindow Actual Height " link C_IwindowActual}
+	@{"=Iwindow Base          " link C_IwindowBase}
+	@{"=Iwindow Status        " link C_IwindowStatus}
+
+	@{" Iwindow Activate      " link C_IwindowActivate}
+	@{"=Iwindow Active        " link C_IwindowActive}
+	@{"=Iwindow Active Num    " link C_IwindowActiveNum}
+	@{"=Iwindow Active Base   " link C_IwindowActiveBase}
+
+	@{" Iclw                  " link C_Iclw}
+
+@endnode
+
+@node IO "Intuition Extension 1.3b - Input/Output Commands"
+@next Fonts
+@prev Screens
+
+These instructions allow you to get information from the user and give
+information back to him, both textually and graphically.
+
+Input:
+	@{"=Imouse X    " link C_ImouseX}
+	@{"=Imouse Y    " link C_ImouseY}
+	@{"=Imouse Key  " link C_ImouseKey}
+	@{"=Iget$       " link C_Iget}
+	@{"=Iread Char$ " link C_IreadChar}
+	@{"=Iread Str$  " link C_IreadStr}
+	@{"=Iread Int   " link C_IreadInt}
+	@{"=Iscan       " link C_Iscan}
+	@{"=Ishift      " link C_Ishift}
+
+Waiting for input:
+	@{" Iwait Mouse " link C_IwaitMouse}
+	@{" Iwait Key   " link C_IwaitKey}
+	@{"=Iwait Event " link C_IwaitEvent}
+	@{"=Ievent Data " link C_IeventData}
+	@{"=Ievent      " link C_IeventType}
+	@{" Iclear      " link C_Iclear}
+
+Output:
+	@{" Ilocate     " link C_Ilocate}
+	@{" Ilocate Gr  " link C_IlocateGr}
+	@{"=Ixgr        " link C_Ixgr}
+	@{"=Iygr        " link C_Iygr}
+	@{" Iink        " link C_Iink}
+	@{" Igr Writing " link C_IgrWriting}
+	@{" Itext       " link C_Itext}
+	@{" Icentre     " link C_Icentre}
+	@{" Iwrite      " link C_Iwrite}
+	@{" Iplot       " link C_Iplot}
+	@{" Idraw       " link C_Idraw}
+	@{" Ibox        " link C_Ibox}
+	@{" Ibar        " link C_Ibar}
+	@{" Icircle     " link C_Icircle}
+	@{" Iellipse    " link C_Iellipse}
+	@{" Set Ipens   " link C_SetIpens}
+
+	@{" Iget Icon   " link C_IgetIcon}
+	@{" Ipaste Icon " link C_IpasteIcon}
+
+@endnode
+
+@node Fonts "Intuition Extension 1.3b - Font Commands"
+@next Requesters
+@prev IO
+
+These instructions select a font to be used and return information
+about it.
+
+	@{" Set Ifont    " link C_SetIfont}
+	@{"=Ifont$       " link C_IfontName}
+	@{"=Ifont Height " link C_IfontHeight}
+	@{"=Itext Base   " link C_ItextBase}
+	@{"=Itext Length " link C_ItextLength}
+	@{"=Ifont Base   " link C_IfontBase}
+
+@endnode
+
+@node Requesters "Intuition Extension 1.3b - Requester Commands"
+@next Menus
+@prev Fonts
+
+These instructions ask the user for a specific kind of input and
+return it.
+
+	@{" Irequest Def Title   " link C_IreqDefTitle}
+	@{"=Irequest File$       " link C_IrequestFile}
+	@{"=Irequest File Multi$ " link C_IreqFileMulti}
+	@{"=Irequest File Next$  " link C_IreqFileNext}
+	@{"=Irequest Font$       " link C_IrequestFont}
+	@{"=Irequest Screen      " link C_IrequestScreen}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Colour      " link C_IreqScrCols}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Height      " link C_IreqScrHeight}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Mode        " link C_IreqScrMode}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Width       " link C_IreqScrWidth}	(Kickstart 2.0 only)
+
+	@{" Irequest Error       " link C_IrequestError}
+	@{"=Irequest Warning     " link C_IrequestWarning}
+	@{"=Irequest Message     " link C_IrequestMessage}
+
+As of version 1.2b, ReqTools.library is no longer required.  However,
+if you try to use any of the above instructions and ReqTools is not
+installed, an error will be generated.  To check whether the library
+is present in the system, use this function:
+
+	@{"=Reqtools Here        " link C_ReqtoolsHere}
+
+@endnode
+
+@node Menus "Intuition Extension 1.3b - Menu Commands"
+@next Gadgets
+@prev Requesters
+
+These instructions control the creation of menus, and let you find out
+which menu item the user has selected.
+
+	@{" Set Imenu " link C_SetImenu}
+	@{"=Ichoice   " link C_Ichoice}
+	@{" Imenu On  " link C_ImenuOnOff}
+	@{" Imenu Off " link C_ImenuOnOff}
+
+@endnode
+
+@node Gadgets "Intuition Extension 1.3b - Gadget Commands"
+@next Other
+@prev Menus
+
+These instructions allow you to create, display, and respond to
+gadgets of various types.
+
+	@{" Reserve Igadget     " link C_ReserveIgadget}
+	@{" Set Igadget Toggle  " link C_SetIgadToggle}
+	@{" Set Igadget Hit     " link C_SetIgadHit}
+	@{" Set Igadget Hslider " link C_SetIgadSlider}
+	@{" Set Igadget Vslider " link C_SetIgadSlider}
+	@{" Set Igadget String  " link C_SetIgadString}
+	@{" Set Igadget Int     " link C_SetIgadInt}
+
+	@{" Igadget On          " link C_IgadgetOn}
+	@{" Igadget Off         " link C_IgadgetOff}
+	@{" Igadget Active      " link C_IgadgetActive}
+	@{" Igadget Inactive    " link C_IgadgetInactive}
+	@{"=Igadget Read        " link C_IgadgetRead}
+	@{"=Igadget Down        " link C_IgadgetDown}
+
+	@{" Set Igadget Value   " link C_SetIgadValue}
+	@{" Set Igadget Value$  " link C_SetIgadValue}
+
+@endnode
+
+@node Other "Intuition Extension 1.3b - Other Commands"
+@prev Gadgets
+
+These instructions don't fit into any of the other categories, so they
+go here.
+
+	@{" Iwait     " link C_Iwait}
+	@{" Iwait Vbl " link C_IwaitVbl}
+
+	@{"=Ierr      " link C_Ierr}
+	@{"=Ierr$     " link C_IerrStr}
+	@{" Ierror    " link C_Ierror}
+	@{" Itrap On  " link C_Itrap}
+	@{" Itrap Off " link C_Itrap}
+	@{"=Ierrtrap  " link C_IerrTrap}
+
+	@{" I Flush   " link C_IFlush}
+
+@endnode
+
+@node Index "Intuition Extension 1.3b - Command Index"
+@next Errors
+
+	@{"=Aga                   " link C_Aga}
+	@{" Amos Iscreen Copy     " link C_AIscrCopy}
+
+	@{"=Ecs                   " link C_Ecs}
+	@{"=Ehb                   " link C_Ehb}
+
+	@{"=Ham                   " link C_Ham}
+
+	@{" I Flush               " link C_IFlush}
+	@{" Ibar                  " link C_Ibar}
+	@{" Ibox                  " link C_Ibox}
+	@{" Icentre               " link C_Icentre}
+	@{"=Ichoice               " link C_Ichoice}
+	@{" Icircle               " link C_Icircle}
+	@{" Iclear All            " link C_Iclear}
+	@{" Iclear Key            " link C_Iclear}
+	@{" Iclear Menu           " link C_Iclear}
+	@{" Iclear Mouse          " link C_Iclear}
+	@{" Icls                  " link C_Icls}
+	@{" Iclw                  " link C_Iclw}
+	@{"=Icolour               " link C_GetIcolour}
+	@{" Idraw                 " link C_Idraw}
+	@{" Iellipse              " link C_Iellipse}
+	@{"=Ierr                  " link C_Ierr}
+	@{"=Ierr$                 " link C_IerrStr}
+	@{" Ierror                " link C_Ierror}
+	@{"=Ierrtrap              " link C_IerrTrap}
+	@{"=Ievent                " link C_IeventType}
+	@{"=Ievent Data           " link C_IeventData}
+	@{"=Ifont Base            " link C_IfontBase}
+	@{"=Ifont Height          " link C_IfontHeight}
+	@{"=Ifont$                " link C_IfontName}
+	@{" Igadget Active        " link C_IgadgetActive}
+	@{"=Igadget Down          " link C_IgadgetDown}
+	@{" Igadget Inactive      " link C_IgadgetInactive}
+	@{" Igadget Off           " link C_IgadgetOff}
+	@{" Igadget On            " link C_IgadgetOn}
+	@{"=Igadget Read          " link C_IgadgetRead}
+	@{" Iget Icon             " link C_IgetIcon}
+	@{" Iget Icon Palette     " link C_IgetIconPal}
+	@{" Iget Sprite Palette   " link C_IgetSprPal}
+	@{"=Iget$                 " link C_Iget}
+	@{" Igr Writing           " link C_IgrWriting}
+	@{" Iink                  " link C_Iink}
+	@{" Ilocate               " link C_Ilocate}
+	@{" Ilocate Gr            " link C_IlocateGr}
+	@{" Imenu Off             " link C_ImenuOnOff}
+	@{" Imenu On              " link C_ImenuOnOff}
+	@{"=Imouse Key            " link C_ImouseKey}
+	@{"=Imouse X              " link C_ImouseX}
+	@{"=Imouse Y              " link C_ImouseY}
+	@{" Ipalette              " link C_Ipalette}
+	@{" Ipaste Icon           " link C_IpasteIcon}
+	@{" Iplot                 " link C_Iplot}
+	@{"=Iread Char$           " link C_IreadChar}
+	@{"=Iread Int             " link C_IreadInt}
+	@{"=Iread Str$            " link C_IreadStr}
+	@{"=Ireq Scr Colour       " link C_IreqScrCols}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Height       " link C_IreqScrHeight}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Mode         " link C_IreqScrMode}	(Kickstart 2.0 only)
+	@{"=Ireq Scr Width        " link C_IreqScrWidth}	(Kickstart 2.0 only)
+	@{" Irequest Def Title    " link C_IreqDefTitle}
+	@{" Irequest Error        " link C_IrequestError}
+	@{"=Irequest File$        " link C_IrequestFile}
+	@{"=Irequest File Multi$  " link C_IreqFileMulti}
+	@{"=Irequest File Next$   " link C_IreqFileNext}
+	@{"=Irequest Font$        " link C_IrequestFont}
+	@{"=Irequest Message      " link C_IrequestMessage}
+	@{"=Irequest Screen       " link C_IrequestScreen}	(Kickstart 2.0 only)
+	@{"=Irequest Warning      " link C_IrequestWarning}
+	@{"=Iscan                 " link C_Iscan}
+	@{"=Iscreen               " link C_GetIscreen}
+	@{" Iscreen Amos Copy     " link C_AIscrCopy}
+	@{"=Iscreen Base          " link C_IscreenBase}
+	@{" Iscreen Close         " link C_IscreenClose}
+	@{"=Iscreen Colour        " link C_IscreenColour}
+	@{" Iscreen Copy          " link C_IscreenCopy}
+	@{" Iscreen Display       " link C_IscreenDisplay}
+	@{"=Iscreen Height        " link C_IscreenHeight}
+	@{"=Iscreen Mode          " link C_IscreenMode}
+	@{" Iscreen Offset        " link C_IscreenOffset}
+	@{" Iscreen Open          " link C_IscreenOpen}
+	@{" Iscreen Open Back     " link C_IscrOpenBack}
+	@{" Iscreen Open Front    " link C_IscrOpenFront}
+	@{" Iscreen Open Public   " link C_IscrOpenPublic}	(Kickstart 2.0 only)
+	@{"=Iscreen Title Height  " link C_IscreenTitleHeight}
+	@{" Iscreen To Back       " link C_IscreenToBack}
+	@{" Iscreen To Front      " link C_IscreenToFront}
+	@{"=Iscreen Width         " link C_IscreenWidth}
+	@{"=Ishift                " link C_Ishift}
+	@{" Itext                 " link C_Itext}
+	@{"=Itext Base            " link C_ItextBase}
+	@{"=Itext Length          " link C_ItextLength}
+	@{" Itrap Off             " link C_Itrap}
+	@{" Itrap On              " link C_Itrap}
+	@{" Iwait                 " link C_Iwait}
+	@{"=Iwait Event           " link C_IwaitEvent}
+	@{"=Iwait Event Vbl       " link C_IwaitEvent}
+	@{" Iwait Key             " link C_IwaitKey}
+	@{" Iwait Mouse           " link C_IwaitMouse}
+	@{" Iwait Vbl             " link C_IwaitVbl}
+	@{"=Iwindow               " link C_GetIwindow}
+	@{" Iwindow Activate      " link C_IwindowActivate}
+	@{"=Iwindow Active        " link C_IwindowActive}
+	@{"=Iwindow Active Base   " link C_IwindowActiveBase}
+	@{"=Iwindow Active Num    " link C_IwindowActiveNum}
+	@{"=Iwindow Actual Width  " link C_IwindowActual}
+	@{"=Iwindow Actual Height " link C_IwindowActual}
+	@{"=Iwindow Base          " link C_IwindowBase}
+	@{" Iwindow Close         " link C_IwindowClose}
+	@{" Iwindow Close Wb      " link C_IwindowCloseWB}
+	@{"=Iwindow Height        " link C_IwindowHeight}
+	@{" Iwindow Move          " link C_IwindowMove}
+	@{"=Iwindow On Wb         " link C_IwindowOnWB}
+	@{" Iwindow Open          " link C_IwindowOpen}
+	@{" Iwindow Open Wb       " link C_IwindowOpenWB}
+	@{" Iwindow Size          " link C_IwindowSize}
+	@{"=Iwindow Status        " link C_IwindowStatus}
+	@{" Iwindow To Back       " link C_IwindowToBack}
+	@{" Iwindow To Front      " link C_IwindowToFront}
+	@{"=Iwindow Width         " link C_IwindowWidth}
+	@{"=Iwindow X             " link C_IwindowX}
+	@{"=Iwindow Y             " link C_IwindowY}
+	@{"=Ixgr                  " link C_Ixgr}
+	@{"=Iygr                  " link C_Iygr}
+
+	@{"=Reqtools Here         " link C_ReqtoolsHere}
+	@{" Reserve Igadget       " link C_ReserveIgadget}
+
+	@{" Set Icolour           " link C_SetIcolour}
+	@{" Set Ifont             " link C_SetIfont}
+	@{" Set Igadget Hit       " link C_SetIgadHit}
+	@{" Set Igadget Hslider   " link C_SetIgadSlider}
+	@{" Set Igadget Int       " link C_SetIgadInt}
+	@{" Set Igadget String    " link C_SetIgadString}
+	@{" Set Igadget Toggle    " link C_SetIgadToggle}
+	@{" Set Igadget Value     " link C_SetIgadValue}
+	@{" Set Igadget Value$    " link C_SetIgadValue}
+	@{" Set Igadget Vslider   " link C_SetIgadSlider}
+	@{" Set Imenu             " link C_SetImenu}
+	@{" Set Ipens             " link C_SetIpens}
+	@{" Set Iscreen           " link C_SetIscreen}
+	@{" Set Iscreen Title     " link C_SetIscreenTitle}
+	@{" Set Iwindow           " link C_SetIwindow}
+	@{" Set Iwindow Title     " link C_SetIwindowTitle}
+	@{" Set Iwindow Wb        " link C_SetIwindowWB}
+	@{"=Superhires            " link C_Superhires}
+
+	@{"=X Hard Min            " link C_XHardMin}
+	@{"=X Ihard               " link C_XIhard}
+	@{"=X Iscreen             " link C_XIscreen}
+
+	@{"=Y Hard Min            " link C_YHardMin}
+	@{"=Y Ihard               " link C_YIhard}
+	@{"=Y Iscreen             " link C_YIscreen}
+
+@endnode
+
+@node Errors
+@prev Index
+
+Backward coordinates (25)
+
+Coordinate ranges (x1,y1 To x2,y2) must ALWAYS have the upper-left
+corner first, followed by the lower-right corner.  Otherwise, you'll
+get this error.  (But it's better than visiting the Guru!)
+
+
+Error text not available (22)
+
+You compiled a program without error messages, and later tried to use
+the Ierr$ function.  You'll never actually see this message text, but
+the error number can be useful in conjunction with error trapping.
+
+
+Font not available (15)
+
+Set Ifont couldn't find the font you requested.  Make sure it is
+available in the FONTS: directory.  If you included the ".font"
+extension to the font name, make sure it is all lower case - something
+like Set Ifont "fontname.Font" won't work.
+
+
+Gadget already active (31)
+
+You tried to change the definition of a gadget that was already
+displayed.  Make sure you call Igadget Off first.
+
+
+Gadget not defined (33)
+
+You tried to use (enable, display, etc.) a gadget that was not first
+defined with Set Igadget.
+
+
+Gadget not reserved (34)
+
+You tried to define a gadget with a number higher than the one you
+gave to Reserve Igadget.  This error also occurs if you try to define
+or use a gadget and do not first use Reserve Igadget.
+
+
+Icon bank not defined (21)
+
+The program does not have an icon bank.
+
+
+Icon not defined (20)
+
+The icon number given to Ipaste Icon represented a nonexistent icon.
+
+
+Illegal function call (13)
+
+A general catch-all error.  Something is wrong with a value you gave
+to a command.  Check the command's documentation and your code to find
+out exactly where the problem is.
+
+
+Illegal number of colours (18)
+
+Screens can only have certain numbers of colours, all powers of 2; a
+screen can't have only 12 colours, for example.  Check the
+@{" Iscreen Open " link C_IscreenOpen} documentation for details.
+
+
+Illegal screen parameter (17)
+
+A screen must be at least one pixel in each dimension.  If either the
+width or the height of a new screen is less than or equal to zero,
+this error will be generated.
+
+
+Illegal window parameter (9)
+
+You gave an illegal parameter to the Iwindow Open instruction; for
+example, a window position that is off the screen.
+
+
+Internal error (27, 28)
+
+These errors should never occur; if they do, it means the Intuition
+Extension has become very confused.  The error is followed by an
+eight-digit code and possibly an eight-digit subcode; record these
+codes and send them to me, preferably with a code sample.
+
+
+Menu already active (26)
+
+Before adding items to a menu or deleting items from a menu, or adding
+or deleting menus, you must first disable the menus with Imenu Off.
+
+
+Need Kickstart 2.0 or higher (2)
+
+You called a function that requires Kickstart 2.0 or higher, such as
+Irequest Screen, on a Kickstart 1.3b system.
+
+
+Object bank not defined (24)
+
+The program does not have an object bank.
+
+
+Object not defined (23)
+
+An instruction tried to use a nonexistent object (sprite or bob).
+
+
+Only 16 colours allowed on non-AGA hires screen (0)
+
+On original-chipset and ECS Amigas, high resolution screens are
+limited to 16 colours.  If you try to open a hires screen with more
+colours, this error will be generated.  You can check whether the
+Amiga your program is running on has the AGA chipset with the @{" Aga " link C_Aga}
+function.
+
+
+Only 65535 gadgets allowed (30)
+
+You cannot reserve space for more than 65535 gadgets with the Reserve
+Igadget command.  (This is not usually a problem.)
+
+
+Out of memory (14)
+
+Some function ran out of memory while trying to do its stuff.  If the
+Editor status line says you've still got lots of memory, save your
+program and reboot your Amiga.  If you really are low on memory, try
+using one or more of Close Editor, Kill Editor, and Kill Workbench
+(although the last won't help if you're trying to use Workbench
+windows!).
+
+
+Program interrupted (12)
+
+You pressed Ctrl-C to stop your program.  Note that this "error"
+cannot be caught with Itrap.
+
+
+ReqTools.library version 2 or higher required (29)
+
+For any of the requester commands to work, ReqTools.library must be
+installed in your system.  If it is not, those commands will generate
+this error.
+
+
+Screen not closed (19)
+
+An open screen can't be reopened.  You have to close it first.
+
+
+Screen not opened (16)
+
+You tried to use a command that requires a screen (e.g. Icls), but
+there are no screens open; or you tried to set the current screen
+to a nonexistent screen.
+
+
+Unable to open screen (1)
+
+Some error (e.g. out of memory) occurred while trying to open a
+screen.  If you get this error, then the problem occurred inside
+Intuition's internal open-screen routine, rather than in the
+Intuition Extension, and therefore there's no specific error
+message that can be given.
+
+
+Unable to open window (3)
+
+An error occurred while trying to open a window.
+
+
+Unable to open Workbench (11)
+
+The Workbench screen couldn't be opened (for example, to put a
+Workbench window on).
+
+
+Valid AMOS screen numbers range from 0 to 7 (35)
+
+You gave Amos Iscreen Copy an invalid AMOS screen number.
+
+
+Window 0 can't be closed (4)
+Window 0 can't be modified (5)
+
+Window 0 is the base window on the screen.  It fills the whole screen,
+and has to remain open as long as the screen is open.  (The Workbench
+doesn't have this limitation, as it doesn't need a background window.)
+
+
+Window not closed (10)
+
+This error appears for one of two reasons:
+
+	- You tried to close a screen that still had open windows.
+
+	- You tried to open a window, but another window with the same
+	  number was already open.
+
+
+Window not opened (6)
+
+You tried to use a window-related command (e.g. Iclw) without an open
+window; or you gave Set Iwindow a number for a nonexistent window.
+
+This error does not always mean you need a window opened with Iwindow
+Open; remember that each screen has a base window as well!
+
+
+Window too large (8)
+
+A window can't be opened or resized so that it would extend past the
+bottom or right side of the screen.
+
+
+Window too small (7)
+
+The minimum size of a window is 80x48 pixels.  If you try to open or
+resize a window to smaller dimensions, you'll get this error.
+
+
+Wrong gadget type (32)
+
+You tried to use Igadget Read$ with a non-string gadget, or Igadget
+Read with a string gadget.
+
+@endnode
+
+
+***COMMANDS BEGIN HERE
+@node C_Aga "Intuition Extension 1.3b Command: =Aga"
+@next C_AIscrCopy
+
+=AGA
+----
+
+x=Aga
+
+Returns True (-1) if the Amiga has the Advanced Graphics Architecture
+(AGA) chipset; returns False (0) otherwise.  At the moment, the only
+Amigas with the AGA chipset are the A1200 and A4000.
+
+See also: @{" Ecs " link C_Ecs}
+
+@endnode
+
+@node C_AIscrCopy "Intuition Extension 1.3b Command: Amos Iscreen Copy"
+@next C_Ecs
+@prev C_Aga
+
+AMOS ISCREEN COPY
+ISCREEN AMOS COPY
+-----------------
+
+Amos Iscreen Copy source To destination
+Amos Iscreen Copy source,x1,y1,x2,y2 To destination,x,y
+Iscreen Amos Copy source To destination
+Iscreen Amos Copy source,x1,y1,x2,y2 To destination,x,y
+
+Copies part or all of an AMOS screen to an Intuition screen (first two
+forms), or all or part of an Intuition screen to an AMOS screen (last
+two forms).  The command's parameters are the same as those for
+@{" Iscreen Copy " link C_IscreenCopy}, except that the source screen number (for Amos Iscreen
+Copy) or destination screen number (Iscreen Amos Copy) refers to an
+AMOS screen rather than an Intuition screen, and hence must be from 0
+to 7 inclusive.
+
+@endnode
+
+@node C_Ecs "Intuition Extension 1.3b Command: =Ecs"
+@next C_Ehb
+@prev C_AIscrCopy
+
+=ECS
+----
+
+x=Ecs
+
+Returns True (-1) if the Amiga has the Enhanced Chip Set; returns
+False (0) otherwise.  If the Amiga has half of the ECS (e.g. an ECS
+Agnus and normal Denise), this returns False.
+
+See also: @{" Aga " link C_Aga}
+
+@endnode
+
+@node C_Ehb "Intuition Extension 1.3b Command: =Ehb"
+@next C_Ham
+@prev C_Ecs
+
+=EHB
+----
+
+x=Ehb
+
+Returns the screen mode value for the ExtraHalfBrite mode.
+
+See also: @{" Ham        " link C_Ham}
+	  @{" Superhires " link C_Superhires}
+
+@endnode
+
+@node C_Ham "Intuition Extension 1.3b Command: =Ham"
+@next C_IFlush
+@prev C_Ehb
+
+=HAM
+----
+
+x=Ham
+
+Returns the screen mode value for Hold And Modify mode.
+
+See also: @{" Ehb        " link C_Ehb}
+	  @{" Superhires " link C_Superhires}
+
+@endnode
+
+@node C_IFlush "Intuition Extension 1.3b Command: I Flush"
+@next C_Ibar
+@prev C_Ham
+
+I FLUSH
+-------
+
+I Flush
+
+Frees any temporary memory the Intuition Extension has allocated.
+
+WARNING: Because of the way AMOS handles strings, some of this memory
+         may still be in use!  This can occur if you assign the result
+         of a string-returning function directly to a string variable;
+         for example,
+
+A$=Irequest File$
+
+         If you then execute the I Flush command, A$ will probably
+         contain garbage!  This can be circumvented by adding the
+         empty string to any variables you intend to save:
+
+A$=Irequest File$+""
+
+         Normally, string functions would use AMOS's string space to
+         return values which might later be cleaned up during "garbage
+         collection", but unfortunately, I can't take advantage of
+         that.  The functions which handle allocation of string space
+         for extensions work inconsistently between AMOS Creator and
+         AMOS Pro, and are known to not work at all in at least one
+         version.  Yes, this is really a kludge to avoid having memory
+         get filled up, but due to AMOS's poor design, it is the only
+         workable option.
+
+@endnode
+
+@node C_Ibar "Intuition Extension 1.3b Command: Ibar"
+@next C_Ibox
+@prev C_IFlulsh
+
+IBAR
+----
+
+Ibar x1,y1 To x2,y2
+
+Draws a filled-in box from (x1,y1) to (x2,y2) in the current colour.
+
+@endnode
+
+@node C_Ibox "Intuition Extension 1.3b Command: Ibox"
+@next C_Icentre
+@prev C_Ibar
+
+IBOX
+----
+
+Ibox x1,y1 To x2,y2
+
+Draws a box from (x1,y1) to (x2,y2) in the current colour.
+
+@endnode
+
+@node C_Icentre "Intuition Extension 1.3b Command: Icentre"
+@next C_Ichoice
+@prev C_Ibox
+
+ICENTRE
+-------
+
+Icentre s$
+
+Centres the string s$ on the current line.
+
+@endnode
+
+@node C_Ichoice "Intuition Extension 1.3b Command: =Ichoice"
+@next C_Icircle
+@prev C_Icentre
+
+=ICHOICE
+--------
+
+num=Ichoice(level)
+
+Returns the last menu number, item number, or subitem number selected,
+depending on the value of level.  A value of 1 for level returns the
+menu number; a value of 2 returns the item number; and a value of 3
+returns the subitem number.  If the user has not selected a menu item
+since the last call to Ichoice WITH THE SAME LEVEL VALUE, 0 is
+returned.  Note that the different levels are distinct, so that, for
+example, calling Ichoice(2) after Ichoice(1) returns the item number,
+as you would expect, instead of 0.
+
+As an example, this code determines what to do based on the user's
+selection:
+
+C1=Ichoice(1)
+If C1=1
+  C2=Ichoice(2)
+  If C2=1
+    'stuff for item 1
+  End If
+  If C2=2
+    'stuff for item 2
+  End If
+  ...
+End If
+If C1=2
+  ...
+End If
+...
+
+The "If ... End If / If ... End If" constructs above could have been
+replaced in AMOS Pro by "If ... Else If ... End If".
+
+Note that the following code will NOT work:
+
+If Ichoice(1)=1
+  If Ichoice(2)=1
+    ...
+  Else If Ichoice(2)=2
+    ...
+  End If
+Else If Ichoice(1)=2
+  ...
+End If
+...
+
+The second call to Ichoice(2) will return 0, no matter what the user
+selected.  Likewise, the second call to Ichoice(1) will also return 0.
+
+@endnode
+
+@node C_Icircle "Intuition Extension 1.3b Command: Icircle"
+@next C_Iclear
+@prev C_Ichoice
+
+ICIRCLE
+-------
+
+Icircle cx,cy,r
+
+Draws a circle with centre (cx,cy) and radius r.  Equivalent to
+Iellipse cx,cy,r,r.  Either or both of cx and cy may be omitted.
+
+See also: @{" Iellipse " link C_Iellipse}
+
+@endnode
+
+@node C_Iclear "Intuition Extension 1.3b Command: Iclear"
+@next C_Icls
+@prev C_Icircle
+
+ICLEAR
+------
+
+Iclear {Key | Mouse | Menu}
+Iclear All
+
+Input from windows and screens is stored in three buffers: one for
+keystrokes, one for mouse button clicks, and one for menu selections.
+When you read a key from the keyboard, for example, you are actually
+reading from the keystroke buffer.
+
+To clear any one of these buffers, so that any events that have
+already been typed but not read are discarded, use the first form of
+the command with the name of the buffer you want to clear.  To clear
+all of the buffers, use the second form of the command.
+
+@endnode
+
+@node C_Icls "Intuition Extension 1.3b Command: Icls"
+@next C_Iclw
+@prev C_Iclear
+
+ICLS
+----
+
+Icls
+Icls colour
+Icls colour,x1,y1 To x2,y2
+
+Clears the current screen.  If colour is given, the screen is cleared
+to that colour; otherwise, it is cleared to colour 0.  If any windows
+are open on the screen, they are left intact.  So the statement
+
+Icls 0
+
+is essentially the same as
+
+W=Iwindow : Set Iwindow 0 : Iclw : Set Iwindow W
+
+although the first is faster and easier to understand.
+
+The Icls statement can also clear a portion of the screen, if you
+specify a range; for example:
+
+Icls 0,20,20 To 180,100
+
+See also: @{" Iclw " link C_Iclw}
+
+@endnode
+
+@node C_Iclw "Intuition Extension 1.3b Command: Iclw"
+@next C_GetIcolour
+@prev C_Icls
+
+ICLW
+----
+
+Iclw
+Iclw colour
+Iclw colour,x1,y1 To x2,y2
+
+Clears the current window.  If colour is given, the window is cleared
+to that colour; otherwise, it is cleared to colour 0.  If a range is
+giben, only that range of the window is cleared.
+
+See also: @{" Icls " link C_Icls}
+
+@endnode
+
+@node C_GetIcolour "Intuition Extension 1.3b Command: =Icolour"
+@next C_Idraw
+@prev C_Iclw
+
+=ICOLOUR
+--------
+
+rgb=Icolour(n)
+
+Returns the RGB value of colour n.
+
+See also: @{" Ipalette    " link C_Ipalette}
+	  @{" Set Icolour " link C_SetIcolour}
+
+@endnode
+
+@node C_Idraw "Intuition Extension 1.3b Command: Idraw"
+@next C_Iellipse
+@prev C_GetIcolour
+
+IDRAW
+-----
+
+Idraw x1,y1 To x2,y2
+Idraw To x,y
+
+Draws a line from the first pair of coordinates to the second.  If the
+first pair is omitted, the line starts from the current coordinates
+(the coordinates where the last output occurred).
+
+@endnode
+
+@node C_Iellipse "Intuition Extension 1.3b Command: Iellipse"
+@next C_Ierr
+@prev C_Idraw
+
+IELLIPSE
+--------
+
+Iellipse cx,cy,rx,ry
+
+Draws an ellipse with centre (cx,cy) and radii rx and ry.  Either or
+both of cx and cy may be omitted.
+
+See also: @{" Icircle " link C_Icircle}
+
+@endnode
+
+@node C_Ierr "Intuition Extension 1.3b Command: =Ierr"
+@next C_IerrStr
+@prev C_Iellipse
+
+=IERR
+-----
+
+errnum=Ierr
+
+Returns the error number of the last error that occurred.  This is
+useful in conjunction with error trapping.
+
+See also: @{"=Ierr$  " link C_IerrStr}
+	  @{" Ierror " link C_Ierror}
+
+@endnode
+
+@node C_IerrStr "Intuition Extension 1.3b Command: =Ierr$"
+@next C_Ierror
+@prev C_Ierr
+
+=IERR$
+------
+
+err$=Ierr$
+
+Returns the text corresponding to the last error that occurred.  This
+is useful in conjunction with error trapping.
+
+See also: @{"=Ierr   " link C_Ierr}
+	  @{" Ierror " link C_Ierror}
+
+@endnode
+
+@node C_Ierror "Intuition Extension 1.3b Command: Ierror"
+@next C_Ierrtrap
+@prev C_IerrStr
+
+IERROR
+------
+
+Ierror n
+
+Generates error number n.  Unless trapped, the program is halted and
+the appropriate Intuition Extension error message is displayed.
+(Remember to press LeftAmiga+A to get back to the AMOS screen if
+you're on the Workbench!)
+
+See also: @{"=Ierr  " link C_Ierr}
+	  @{"=Ierr$ " link C_IerrStr}
+
+@endnode
+
+@node C_Ierrtrap "Intuition Extension 1.3b Command: =Ierrtrap"
+@next C_IeventType
+@prev C_Ierror
+
+=IERRTRAP
+---------
+
+x=Ierrtrap
+
+If error trapping is enabled (see @{" Itrap On/Off " link C_Itrap}), this function
+returns True if an error occurred since the last call to Ierrtrap (or
+since the call to Itrap On), and False if no errors have occurred.  If
+True is returned, the @{" Ierr " link C_Ierr} and @{" Ierr$ " link C_IerrStr} functions can be used to
+determine which error occurred.
+
+After calling this function, its value is automatically reset to False.
+
+@endnode
+
+@node C_IeventType "Intuition Extension 1.3b Command: =Ievent"
+@next C_IeventData
+@prev C_Ierrtrap
+
+=IEVENT
+-------
+
+event=Ievent type
+
+This is a special kind of function which does not use parentheses
+around its argument.  It returns a value which is the "event number"
+of the event type passed to it.  The type can be any of:
+
+	Vbl	    Vertical blank occurred
+	Close	    Window's close gadget clicked on
+	Menu	    Menu item selected
+	Gadget	    Gadget clicked on
+	Key	    Key pressed
+
+This is commonly used in conjunction with the @{" Iwait Event " link C_IwaitEvent} function
+to determine what action to take after an event has occurred.
+
+@endnode
+
+@node C_IeventData "Intuition Extension 1.3b Command: =Ievent Data"
+@next C_IfontBase
+@prev C_IeventType
+
+=IEVENT DATA
+------------
+
+data=Ievent Data
+
+This function is used in conjunction with @{" Iwait Event " link C_IwaitEvent} to give extra
+information about an event that has occurred.  Currently, only a
+gadget event has extra data to be read by this function; it returns
+the number of the gadget that was clicked on.
+
+See also: @{"=Ievent " link C_IeventType}
+
+@endnode
+
+@node C_IfontBase "Intuition Extension 1.3b Command: =Ifont Base"
+@next C_IfontHeight
+@prev C_IeventData
+
+=IFONT BASE
+-----------
+
+address=Ifont Base
+
+Returns the address of the TextFont structure of the current font.
+
+NOTE: This command is Fonti Base in AMOS Creator.
+
+@endnode
+
+@node C_IfontHeight "Intuition Extension 1.3b Command: =Ifont Height"
+@next C_IfontName
+@prev C_IfontBase
+
+=IFONT HEIGHT
+-------------
+
+h=Ifont Height
+
+Returns the height, in pixels, of the current font.
+
+NOTE: This command is Fonti Height in AMOS Creator.
+
+See also: @{" Set Ifont " link C_SetIfont}
+	  @{"=Ifont$    " link C_IfontName}
+
+@endnode
+
+@node C_IfontName "Intuition Extension 1.3b Command: =Ifont$"
+@next C_IgadgetActive
+@prev C_IfontHeight
+
+=IFONT$
+-------
+
+font$=Ifont$
+
+Returns the name of the current font, including the ".font" extension.
+
+NOTE: This command is Fonti$ in AMOS Creator.
+
+See also: @{" Set Ifont    " link C_SetIfont}
+	  @{"=Ifont Height " link C_IfontHeight}
+
+@endnode
+
+@node C_IgadgetActive "Intuition Extension 1.3b Command: Igadget Active"
+@next C_IgadgetDown
+@prev C_IfontName
+
+IGADGET ACTIVE
+--------------
+
+Igadget Active
+Igadget Active n
+
+Activates gadget number n, or (if n is omitted) all defined gadgets
+for the current window.
+
+See also: @{" Igadget Inactive " link C_IgadgetInactive}
+
+@endnode
+
+@node C_IgadgetDown "Intuition Extension 1.3b Command: =Igadget Down"
+@next C_IgadgetInactive
+@prev C_IgadgetActive
+
+=IGADGET DOWN
+-------------
+
+down=Igadget Down(n)
+
+Returns whether gadget number n is currently selected or depressed.
+For string and integer gadgets, this function returns True if the
+gadget is in use (the user is typing in the gadget); for hit-select
+and toggle gadgets, it returns True if the pointer is over the gadget
+and the left mouse button is depressed; for sliders, it returns True
+if the pointer is over the slider bar and the left mouse button is
+depressed.
+
+This function is useful for selective updating of a display; for
+example, if a gadget were used to scroll through a list of images, and
+and the program had a "preview" window in which it displayed a scaled-
+down version of the image, the program could update only the image
+name and description while the user was moving the slider, then update
+the preview window when the user released the mouse button, allowing
+for faster response to the user's actions.  This could be implemented
+in code similarly to the following:
+
+While Not QUIT
+   ...
+
+   'See if the slider moved
+   If Igadget Read(1)<>IMAGENUM
+      'See if the user is moving the slider with the mouse.  This does
+      '   not necessarily have to be the case - the user could have
+      '   clicked in the container but not on the slider itself.
+      '
+      'We use a Repeat/Until loop because, even if the slider is not
+      '   "down", we need to get the new image number and display the
+      '   name.
+      Repeat
+         IMAGENUM=Igadget Read(1)
+         UPDATE_IMAGE_NAME[IMAGENUM] : Rem Only update the image name
+      Until Not Igadget Down(1)
+      'Now update the preview window
+      UPDATE_PREVIEW_WINDOW[IMAGENUM]
+   End If
+
+   ...
+Wend
+
+@endnode
+
+@node C_IgadgetInactive "Intuition Extension 1.3b Command: Igadget Inactive"
+@next C_IgadgetOff
+@prev C_IgadgetDown
+
+IGADGET INACTIVE
+----------------
+
+Igadget Inactive
+Igadget Inactive n
+
+Deactivates gadget number n, or (if n is omitted) all defined gadgets
+for the current window.  An inactive gadget cannot be selected, and is
+"ghosted" (overlaid with a pattern of dots).
+
+See also: @{" Igadget Inactive " link C_IgadgetInactive}
+
+@endnode
+
+@node C_IgadgetOff "Intuition Extension 1.3b Command: Igadget Off"
+@next C_IgadgetOn
+@prev C_IgadgetInactive
+
+IGADGET OFF
+-----------
+
+Igadget Off
+Igadget Off n
+
+Removes one or all gadgets from the current window.  When a gadget is
+removed, it disappears from the window; however, its value remains in
+memory unless it is redefined or a @{" Reserve Igadget " link C_ReserveIgadget} command is
+executed.
+
+See also: @{" Igadget On " link C_IgadgetOn}
+
+@endnode
+
+@node C_IgadgetOn "Intuition Extension 1.3b Command: Igadget On"
+@next C_IgadgetRead
+@prev C_IgadgetOff
+
+IGADGET ON
+----------
+
+Igadget On
+Igadget On n
+
+Adds one or more gadgets to the current window.  If n is given, that
+gadget is added; otherwise, all defined gadgets are added (unless
+they have been added previously).  After an Igadget On command, the
+current value of a gadget can be obtained with the @{" Igadget Read " link C_IgadgetRead}
+function.
+
+See also: @{" Igadget On " link C_IgadgetOff}
+
+@endnode
+
+@node C_IgadgetRead "Intuition Extension 1.3b Command: =Igadget Read"
+@next C_IgetIcon
+@prev C_IgadgetOn
+
+=IGADGET READ
+-------------
+
+value=Igadget Read(n)
+value$=Igadget Read$(n)
+
+Returns the current value of the specified gadget.  Igadget Read$ can
+only be used with string gadgets; Igadget Read can be used with any
+gadget type other than string gadgets.  If the gadget type is
+inappropriate for the function, the "Wrong gadget type" error is
+generated.
+
+The value returned by the Igadget Read function depends on the type
+of gadget.  String gadgets return the text in the gadget; integer
+gadgets return the value in the gadget; sliders return the position
+of the slider in units (as specified in the @{" Set Igadget Hslider " link C_SetIgadSlider}
+or @{" Set Igadget Vslider " link C_SetIgadSlider} instruction; toggle gadgets return True if
+the gadget is "on", False if it is "off".
+
+@endnode
+
+@node C_IgetIcon "Intuition Extension 1.3b Command: Iget Icon"
+@next C_IgetIconPal
+@prev C_IgadgetRead
+
+IGET ICON
+---------
+
+Iget Icon n,x1,y1 To x2,y2
+Iget Icon screen,n,x1,y1 To x2,y2
+Iget Icon screen,window,n,x1,y1 To x2,y2
+
+Grabs an image and stores it in the icon bank.  N is the icon number
+to store the image in; it must already exist, so you should use the
+built-in Ins Icon instruction to create it if necessary.  For example,
+if you needed to grab 10 icons, you could use code similar to the
+following:
+
+Ins Icon 1 To 10
+Iget Icon 1,0,0 To 15,11
+Iget Icon 2,0,16 To 31,11
+
+and so on.
+
+Following the icon number are the coordinates to grab the image from.
+Normally, these are taken from the current screen or window.  If you
+want to use a different source for the icon, you can specify the
+screen number and, if necessary, the window number to take the image
+from.  If you specify a screen number but omit the window number, the
+base window (window number 0) is used.
+
+Note that the only way to grab icons from a Workbench window is to
+first set the current window to that window with Set Iwindow Wb, then
+call Iget Icon.
+
+@endnode
+
+@node C_IgetIconPal "Intuition Extension 1.3b Command: Iget Icon Palette"
+@next C_IgetSprPal
+@prev C_IgetIcon
+
+IGET ICON PALETTE
+-----------------
+
+Iget Icon Palette
+Iget Icon Palette mask
+
+Reads the colour palette from the icon bank of the program, and uses it
+as the palette for the current screen.
+
+Mask is an optional parameter that indicates which colours should be
+copied from the icon bank.  Each bit represents one colour, and the
+lowest bit represents colour 0.  So, if you just wanted to get colours
+1, 2, 6, and 8, and leave the other colours alone, you could use:
+
+Iget Icon Palette %101000110
+
+Note that only the first 32 colours can be affected in any case, since
+object and icon banks only contain 32-colour palettes.  (The exception
+is Extra-Half-Brite mode, in which colours 32-63 are half the intensity
+of colours 0-31, and are therefore also changed.)
+
+If mask is omitted, all of the colours (0-31) are copied.
+
+See also: @{" Iget Sprite Palette " link C_IgetSprPal}
+	  @{" Ipalette            " link C_Ipalette}
+
+@endnode
+
+@node C_IgetSprPal "Intuition Extension 1.3b Command: Iget Sprite Palette"
+@next C_Iget
+@prev C_IgetIconPal
+
+IGET SPRITE PALETTE
+-------------------
+
+Iget Sprite Palette
+Iget Sprite Palette mask
+
+Reads the colour palette from the object (sprite) bank of the
+program, and uses it as the palette for the current screen.
+
+Mask is an optional parameter that indicates which colours should be
+copied from the icon bank.  Each bit represents one colour, and the
+lowest bit represents colour 0.  So, if you just wanted to get colours
+1, 2, 6, and 8, and leave the other colours alone, you could use:
+
+Iget Sprite Palette %101000110
+
+Note that only the first 32 colours can be affected in any case, since
+object and icon banks only contain 32-colour palettes.  (The exception
+is Extra-Half-Brite mode, in which colours 32-63 are half the intensity
+of colours 0-31, and are therefore also changed.)
+
+If mask is omitted, all of the colours (0-31) are copied.
+
+See also: @{" Iget Icon Palette " link C_IgetIconPal}
+	  @{" Ipalette          " link C_Ipalette}
+
+@endnode
+
+@node C_Iget "Intuition Extension 1.3b Command: =Iget$"
+@next C_IgrWriting
+@prev C_IgetSprPal
+
+=IGET$
+------
+
+ch$=Iget$
+
+Returns the next character in the input buffer, or an empty string if
+there are no characters waiting.
+
+See also: @{"=Iread Char$ " link C_IreadChar} to wait for a key before returning
+	  @{" Iwait Key   " link C_IwaitKey} to just wait for a key to be pressed
+
+@endnode
+
+@node C_IgrWriting "Intuition Extension 1.3b Command: Igr Writing"
+@next C_Iink
+@prev C_Iget
+
+IGR WRITING
+-----------
+
+Igr Writing n
+
+Changes the mode for writing text and graphics to the screen.  The
+lower three bits of n are used as follows:
+
+Bit 2: 1 = Swap foreground and background colours (inverse text).
+       0 = Use foreground and background colours normally.
+Bit 1: 1 = Write the text using an XOR operation.
+       0 = Write the text using a standard MOVE operation.
+Bit 0: 1 = Write both foreground and background colours to the screen.
+       0 = Write only the foreground colour to the screen.
+
+Igr Writing affects *all* graphics commands, including Itext, Iwrite,
+Idraw, Ibar, etc.  However, it does not affect commands like Iscreen
+Copy that work at the screen level.
+
+Here are some examples:
+
+Iscreen Open 0,320,200,4,0 : Ipalette 0,$F00,$F0,$F
+Iink 2,1
+Igr Writing 1
+Iwrite "Green on red"
+Igr Writing 5
+Iwrite "Red on green"
+Igr Writing 0
+Iwrite "Green on black"
+X=Ixgr : Y=Iygr
+Igr Writing 4
+Itext X,Y,"Red on black"
+Iwait 50
+Igr Writing 6
+Itext X,Y,"Red on black" : Rem This makes the text disappear
+
+@endnode
+
+@node C_Iink "Intuition Extension 1.3b Command: Iink"
+@next C_Ilocate
+@prev C_IgrWriting
+
+IINK
+----
+
+Iink foreground
+Iink foreground,background
+
+Sets the colours to be used for drawing.  Foreground is the colour
+used for almost all drawing operations.  Background is the colour used
+for the background of text written to the screen.
+
+[Outline is a bit different: when the Iflood instruction is called with
+a mode parameter of 0, the flood fill stops at pixels of colour
+"outline".]
+
+@endnode
+
+@node C_Ilocate "Intuition Extension 1.3b Command: Ilocate"
+@next C_ImouseKey
+@prev C_Iink
+
+ILOCATE
+-------
+
+Ilocate x,y
+
+Positions the graphics cursor at (x,y) in text coordinates.  Either
+parameter can be omitted.  The standard height and width for the
+current font are used, so strange results can be obtained when a
+proportinal font is being used.
+
+This command is useful in conjunction with @{" Itext " link C_Itext} to position the
+cursor on a certain line without getting into complex expressions.
+
+See also: @{" Iwrite     " link C_Iwrite}
+          @{" Ilocate Gr " link C_IlocateGr}
+
+@endnode
+
+@node C_IlocateGr "Intuition Extension 1.3b Command: Ilocate Gr"
+@next C_ImenuOnOff
+@prev C_Ilocate
+
+ILOCATE GR
+----------
+
+Ilocate Gr x,y
+
+Positions the graphics cursor at graphics coordinates (x,y).  This is
+not very useful, as all output instructions accept coordinates, but
+it is included for copmleteness, and in case somebody discovers that
+they need it. :-)
+
+See also: @{" Ilocate " link C_Ilocate}
+          @{"=Ixgr    " link C_Ixgr}
+          @{"=Iygr    " link C_Iygr}
+
+@endnode
+
+@node C_ImenuOnOff "Intuition Extension 1.3b Command: Imenu On/Off"
+@next C_ImouseKey
+@prev C_IlocateGr
+
+IMENU ON
+IMENU OFF
+---------
+
+Imenu On
+Imenu Off
+
+Imenu On activates the menu bar for the currently active window, if
+that window has any menus defined.  Imenu Off turns the menu bar off.
+
+See also: @{" Set Imenu " link C_SetImenu}
+
+@endnode
+
+@node C_ImouseKey "Intuition Extension 1.3b Command: =Imouse Key"
+@next C_ImouseX
+@prev C_IlocateGr
+
+=IMOUSE KEY
+-----------
+
+k=Imouse Key
+
+Returns the status of the mouse buttons.  Bit 0 is the left button,
+bit 1 is the right button, and bit 2 is the middle button.  So a value
+of %011 indicates that both the left and right mouse buttons are
+pressed.
+
+See also: @{"=Imouse X " link C_ImouseX}
+	  @{"=Imouse Y " link C_ImouseY}
+
+@endnode
+
+@node C_ImouseX "Intuition Extension 1.3b Command: =Imouse X"
+@next C_ImouseY
+@prev C_ImouseKey
+
+=IMOUSE X
+---------
+
+mx=Imouse X
+
+Returns the current X coordinate of the mouse pointer relative to the
+current screen (in screen coordinates).
+
+See also: @{"=Imouse Y   " link C_ImouseY}
+	  @{"=Imouse Key " link C_ImouseKey}
+
+@endnode
+
+@node C_ImouseY "Intuition Extension 1.3b Command: =Imouse Y"
+@next C_Ipalette
+@prev C_ImouseX
+
+=IMOUSE Y
+---------
+
+mx=Imouse Y
+
+Returns the current Y coordinate of the mouse pointer relative to the
+current screen (in screen coordinates).
+
+See also: @{"=Imouse X   " link C_ImouseX}
+	  @{"=Imouse Key " link C_ImouseKey}
+
+@endnode
+
+@node C_Ipalette "Intuition Extension 1.3b Command: Ipalette"
+@next C_IpasteIcon
+@prev C_ImouseY
+
+IPALETTE
+--------
+
+Ipalette colour-list
+
+Sets one or more colour values on the current screen.  Colour-list is
+a list of the colours to be set; any values omitted in the list are
+not changed on the screen.  For example, the statement
+
+	Ipalette ,,,$F00,,,$F0,$F
+
+would set colour 3 to red, colour 6 to green, and colour 7 to blue.
+The list of colours can be as long or as short as necessary, providing
+that it does not exceed the 251-character line length limit of the
+AMOS editor.
+
+See also: @{" Set Icolour " link C_SetIcolour}
+	  @{"=Icolour     " link C_GetIcolour}
+
+@endnode
+
+@node C_IpasteIcon "Intuition Extension 1.3b Command: Ipaste Icon"
+@next C_Iplot
+@prev C_Ipalette
+
+IPASTE ICON
+-----------
+
+Ipaste Icon x,y,n
+
+Copies icon number n to the current screen/window at coordinates x,y.
+The graphics pointer is left at the top left corner of the icon image.
+Normally, the image will completely replace whatever is underneath it;
+however, if the Make Icon Mask instruction is executed first, colour 0
+will be transparent, so that whatever is underneath blank areas of the
+icon will show through.
+
+@endnode
+
+@node C_Iplot "Intuition Extension 1.3b Command: Iplot"
+@next C_IreadChar
+@prev C_IpasteIcon
+
+IPLOT
+-----
+
+Iplot x,y
+Iplot x,y,colour
+
+Plots a point on the screen at coordinates (x,y).  If colour is given,
+that colour is used to plot the point; otherwise, the current
+foreground colour is used.
+
+@endnode
+
+@node C_IreadChar "Intuition Extension 1.3b Command: =Iread Char$"
+@next C_IreadInt
+@prev C_Iplot
+
+=IREAD CHAR$
+------------
+
+ch$=Iread Char$
+
+Waits for a key to be pressed and returns it.  If there are characters
+in the buffer, it takes the first of those instead.  The character is
+not echoed to the screen.
+
+See also: @{"=Iget$     " link C_Iget} to return a value without waiting
+	  @{" Iwait Key " link C_IwaitKey} to just wait for a key without returning anything
+
+@endnode
+
+@node C_IreadInt "Intuition Extension 1.3b Command: =Iread Int"
+@next C_IreadStr
+@prev C_IreadChar
+
+=IREAD INT
+----------
+
+n=Iread Int
+
+Reads an integer and returns it.  The integer may be in decimal,
+hexadecimal, or binary, and can cover the full range of integers
+(-2147483648..2147483647).  Illegal characters are ignored; if no
+characters are typed before Return, 0 is returned.
+
+See also: @{"=Iread Str$ " link C_IreadStr} to read a string
+
+@endnode
+
+@node C_IreadStr "Intuition Extension 1.3b Command: =Iread Str$"
+@next C_IreqScrCols
+@prev C_IreadInt
+
+=IREAD STR$
+-----------
+
+s$=Iread Str$
+
+Reads a string, terminated with a Return; each character is echoed on
+the screen as it is typed.  Similar to "Line Input S$".
+
+See also: @{"=Iread Int " link C_IreadInt} to read a number with input checking
+
+@endnode
+
+@node C_IreqScrCols "Intuition Extension 1.3b Command: =Ireq Scr Colour"
+@next C_IreqScrHeight
+@prev C_IrequestScreen
+
+=IREQ SCR COLOUR (Kickstart 2.0 only)
+----------------
+
+nc=Ireq Scr Colour
+
+Returns the number of colours from the most recent Irequest Screen.
+
+See also: @{"=Irequest Screen " link C_IrequestScreen}
+          @{"=Ireq Scr Width  " link C_IreqScrWidth}
+          @{"=Ireq Scr Height " link C_IreqScrHeight}
+          @{"=Ireq Scr Mode   " link C_IreqScrMode}
+
+@endnode
+
+@node C_IreqScrHeight "Intuition Extension 1.3b Command: =Ireq Scr Height"
+@next C_IreqScrMode
+@prev C_IreqScrCols
+
+=IREQ SCR HEIGHT (Kickstart 2.0 only)
+----------------
+
+h=Ireq Scr Height
+
+Returns the height from the most recent Irequest Screen.
+
+See also: @{"=Irequest Screen " link C_IrequestScreen}
+          @{"=Ireq Scr Width  " link C_IreqScrWidth}
+          @{"=Ireq Scr Colour " link C_IreqScrCols}
+          @{"=Ireq Scr Mode   " link C_IreqScrMode}
+
+@endnode
+
+@node C_IreqScrMode "Intuition Extension 1.3b Command: =Ireq Scr Mode"
+@next C_IreqScrWidth
+@prev C_IreqScrHeight
+
+=IREQ SCR MODE (Kickstart 2.0 only)
+--------------
+
+mode=Ireq Scr Mode(n)
+
+Returns the screen mode or display mode from the most recent Irequest
+Screen.  If n is 0, the screen mode (e.g. Ham, Hires) is returned.  If
+n is 1, the display mode (see @{" Iscreen Open " link C_IscreenOpen})
+is returned.
+
+See also: @{"=Irequest Screen " link C_IrequestScreen}
+          @{"=Ireq Scr Width  " link C_IreqScrWidth}
+          @{"=Ireq Scr Height " link C_IreqScrHeight}
+          @{"=Ireq Scr Colour " link C_IreqScrCols}
+
+@endnode
+
+@node C_IreqScrWidth "Intuition Extension 1.3b Command: =Ireq Scr Width"
+@next C_IrequestError
+@prev C_IreqScrMode
+
+=IREQ SCR WIDTH (Kickstart 2.0 only)
+---------------
+
+w=Ireq Scr Width
+
+Returns the width from the most recent Irequest Screen.
+
+See also: @{"=Irequest Screen " link C_IrequestScreen}
+          @{"=Ireq Scr Height " link C_IreqScrHeight}
+          @{"=Ireq Scr Colour " link C_IreqScrCols}
+          @{"=Ireq Scr Mode   " link C_IreqScrMode}
+
+@endnode
+
+@node C_IreqDefTitle "Intuition Extension 1.3b Command: Irequest Def Title"
+@next C_IrequestError
+@prev C_IreqScrWidth
+
+IREQUEST DEF TITLE
+------------------
+
+Irequest Def Title title$
+
+Sets the default title for all message requesters (those displayed by
+@{" Irequest Message " link C_IrequestMessage}, @{" Irequest Warning " link C_IrequestWarning}, or @{" Irequest Error " link C_IrequestError}) to
+title$.  Initially, the default title is "AMOS Request".  If title$ is
+empty, the title is set back to this.  If you really want a blank
+title, use a single space (" ") for title$.
+
+@endnode
+
+@node C_IrequestError "Intuition Extension 1.3b Command: Irequest Error"
+@next C_IrequestFile
+@prev C_IreqDefTitle
+
+IREQUEST ERROR
+--------------
+
+Irequest Error s$
+Irequest Error s$,cancel$
+Irequest Error title$,s$,cancel$
+
+Displays a requester containing an error message; one gadget, a
+"Cancel" gadget, is provided.  This command should be used when an
+error has occurred that prevents your program from proceeding normally
+(such as a bad file format).  Irequest Error does not actually stop
+your program, but just displays the requester.
+
+Title$ is the title to display in the title bar.  If omitted, the
+default title is used.
+
+The variable s$ contains the text to display in the requester window.
+Each line of text should be separated by a vertical bar.
+
+The cancel$ parameter allows you to change the text on the Cancel
+gadget from its default of "Cancel".  What you specify here is printed
+in the gadget.
+
+See also: @{" Irequest Def Title " link C_IreqDefTitle}
+	  @{"=Irequest Message   " link C_IrequestMessage}
+	  @{"=Irequest Warning   " link C_IrequestWarning}
+
+@endnode
+
+@node C_IrequestFile "Intuition Extension 1.3b Command: =Irequest File$"
+@next C_IreqFileMulti
+@prev C_IrequestError
+
+=IREQUEST FILE$
+---------------
+
+filename$=Irequest File$
+filename$=Irequest File$(title$ [,pattern$ [,default$] ] )
+
+Displays a file requester on the current screen, or on the Workbench
+screen if there are no screens open.  Title$ is the text to display
+in the title bar of the requester.  It must be small enough to fit in
+the title bar - no two-line titles, as with the AMOS file reqester.
+
+Pattern$ is a standard AmigaDOS wildcard to determine which files are
+displayed in the requester.  Note that this differs from the AMOS
+wildcard format; for example, AMOS's "**" (all files) pattern is "#?"
+in AmigaDOS.  See your system manuals for more on AmigaDOS wildcards.
+
+Default$ is the filename displayed in the requester's file gadget when
+it comes up.  If the user just presses Return, this is the filename
+that is returned.  If this parameter is omitted and the user just
+presses Return, an empty string is returned.
+
+Note that the "Cancel" gadget in the file requester always causes
+Irequest File$ to return an empty string.
+
+See also: @{"=Irequest File Multi$ " link C_IreqFileMulti}
+
+@endnode
+
+@node C_IreqFileMulti "Intuition Extension 1.3b Command: =Irequest File Multi$"
+@next C_IreqFileNext
+@prev C_IrequestFile
+
+=IREQUEST FILE MULTI$
+---------------------
+
+f$=Irequest File Multi$
+f$=Irequest File Multi$(title$ [,pattern$] )
+
+Asks the user to select multiple files.  Returns the first file in the
+list; the rest can be obtained with @{" Irequest File Next$ " link C_IreqFileNext}.  The
+parameters to Irequest File Multi$ are the same as those to
+@{" Irequest File$ " link C_IrequestFile}, except that you cannot specify a default filename.
+See also: @{"=Irequest File$      " link C_IrequestFile}
+
+@endnode
+
+@node C_IreqFileNext "Intuition Extension 1.3b Command: =Irequest File Next$"
+@next C_IrequestFont
+@prev C_IreqFileMulti
+
+=IREQUEST FILE NEXT$
+--------------------
+
+f$=Irequest File Next$
+
+Returns the next file in a list of files following an
+@{" Irequest File Multi$ " link C_IreqFileMulti}.  When all the files have been read, this
+returns an empty string.
+
+@endnode
+
+@node C_IrequestFont "Intuition Extension 1.3b Command: =Irequest Font$"
+@next C_IrequestMessage
+@prev C_IrequestFileNext
+
+=IREQUEST FONT$
+---------------
+
+font$=Irequest Font$
+font$=Irequest Font$(title$)
+
+Displays a font requester, and returns the font selected in the format
+"fontname/size", or the null string if the requester was canceled.
+This string can be passed to @{" Set Ifont " link C_SetIfont} to set the font to the user's
+preference.
+
+@endnode
+
+@node C_IrequestMessage "Intuition Extension 1.3b Command: =Irequest Message"
+@next C_IrequestScreen
+@prev C_IrequestFont
+
+=IREQUEST MESSAGE
+-----------------
+
+response=Irequest Message(text$,gadget$)
+response=Irequest Message(title$,text$,gadget$)
+
+Displays a requester containing a message, with any number of possible
+responses.
+
+Title$, if given, is the title to put in the title bar of the
+requester.  If not given, the default title is used.
+
+Text$ is the text to display in the requester.  Each line of text
+should be separated with a vertical bar.  For example, the string
+
+"Please select the|number of players."
+
+would display as:
+
+Please select the
+number of players.
+
+Gadget$ is the list of all the gadgets to include in the requester.
+There must be at least one gadget, and each gadget name should be
+separated with a vertical bar.  So, for example, the gadget$ parameter
+from the last example might be "1|2|3|4", resulting in the following
+requester:
+ ____________________
+|.| Requester Title  |
+|_|__________________|
+|                    |
+| Please select the  |
+| number of players. |
+|____________________|
+| ___  ___  ___  ___ |
+||   ||   ||   ||   ||
+|| 1 || 2 || 3 || 4 ||
+||___||___||___||___||
+|____________________|
+
+
+The return value is set to the number of the gadget, starting at one
+(for the leftmost gadget) and increasing toward the right.
+
+See also: @{"=Irequest Def Title " link C_IreqDefTitle}
+	  @{"=Irequest Warning   " link C_IrequestWarning}
+	  @{" Irequest Error     " link C_IrequestError}
+
+@endnode
+
+@node C_IrequestScreen "Intuition Extension 1.3b Command: =Irequest Screen"
+@next C_IrequestWarning
+@prev C_IrequestMessage
+
+=IREQUEST SCREEN (Kickstart 2.0 only)
+----------------
+
+ok=Irequest Screen
+ok=Irequest Screen(title$)
+
+Requests a screen mode, size, and depth from the user.  The returned
+values can be examined using the Ireq Scr XXX functions.  If
+the user cancelled, the return value is False; otherwise, it is True.
+
+See also: @{"=Ireq Scr Width  " link C_IreqScrWidth}
+          @{"=Ireq Scr Height " link C_IreqScrHeight}
+          @{"=Ireq Scr Colour " link C_IreqScrCols}
+          @{"=Ireq Scr Mode   " link C_IreqScrMode}
+
+@endnode
+
+@node C_IrequestWarning "Intuition Extension 1.3b Command: =Irequest Warning"
+@next C_Iscan
+@prev C_IrequestScreen
+
+=IREQUEST WARNING
+-----------------
+
+response=Irequest Warning(s$)
+response=Irequest Warning(s$,ok$,cancel$)
+response=Irequest Warning(title$,s$,ok$,cancel$)
+
+Displays a requester with a warning message.  If the user selects the
+"OK" gadget, True is returned; otherwise, False is returned.
+
+Title$ is the title to display in the title bar.  If omitted, the
+default title is used.
+
+S$ is the text string to display in the requester.  Text that should
+appear on different lines in the requester should be separated by a
+vertical bar.
+
+Ok$ and Cancel$ allow you to replace the default gadget text of "OK"
+and "Cancel" with text of your choice.  For example, you could replace
+them with "Continue" and "Abort".
+
+See also: @{" Irequest Def Title " link C_IreqDefTitle}
+	  @{"=Irequest Message   " link C_IrequestMessage}
+	  @{" Irequest Error     " link C_IrequestError}
+
+@endnode
+
+@node C_Iscan "Intuition Extension 1.3b Command: =Iscan"
+@next C_GetIscreen
+@prev C_IrequestWarning
+
+=ISCAN
+------
+
+scancode=Iscan
+
+Returns the scan code of the last key pressed.
+
+See also: @{"=Ishift " link C_Ishift}
+
+@endnode
+
+@node C_GetIscreen "Intuition Extension 1.3b Command: =Iscreen"
+@next C_IscreenBase
+@prev C_Iscan
+
+=ISCREEN
+--------
+
+n=Iscreen
+
+Returns the number of the current screen.
+
+See also: @{" Set Iscreen " link C_SetIscreen}
+
+@endnode
+
+@node C_IscreenBase "Intuition Extension 1.3b Command: =Iscreen Base"
+@next C_IscreenClose
+@prev C_GetIscreen
+
+=ISCREEN BASE
+-------------
+
+address=Iscreen Base
+
+Returns the address of the Intuition Screen structure for the current
+screen.
+
+@endnode
+
+@node C_IscreenClose "Intuition Extension 1.3b Command: Iscreen Close"
+@next C_IscreenColour
+@prev C_IscreenBase
+
+ISCREEN CLOSE
+-------------
+
+Iscreen Close n
+
+Closes screen number n.
+
+See also: @{" Iscreen Open " link C_IscreenOpen}
+
+@endnode
+
+@node C_IscreenColour "Intuition Extension 1.3b Command: =Iscreen Colour"
+@next C_IscreenCopy
+@prev C_IscreenClose
+
+=ISCREEN COLOUR
+---------------
+
+colours=Iscreen Colour
+colours=Iscreen Colour(n)
+
+Returns the number of colours available for use on screen n or the
+current screen.
+
+See also: @{"=Iscreen Width  " link C_IscreenWidth}
+	  @{"=Iscreen Height " link C_IscreenHeight}
+	  @{"=Iscreen Mode   " link C_IscreenMode}
+
+@endnode
+
+@node C_IscreenCopy "Intuition Extension 1.3b Command: Iscreen Copy"
+@next C_IscreenDisplay
+@prev C_IscreenColour
+
+ISCREEN COPY
+------------
+
+Iscreen Copy source To destination
+Iscreen Copy source,x1,y1,x2,y2 To destination,x,y
+
+Copies part or all of one screen to another.  With the first form, the
+entire source screen is copied to the destination screen.  (If the
+destination screen is smaller than the source, you will probably crash
+your Amiga!)
+
+With the second form, the rectangular block (x1,y1)-(x2.y2) is copied
+from the source screen to coordinates (x,y) on the destination screen.
+Again, you have to make sure that the entire block will fit on the
+destination screen at the coordinates you specify to avoid corrupting
+memory.
+
+@endnode
+
+@node C_IscreenDisplay "Intuition Extension 1.3b Command: Iscreen Display"
+@next C_IscreenHeight
+@prev C_IscreenCopy
+
+ISCREEN DISPLAY
+---------------
+
+Iscreen Display n,x,y,w,h
+
+Positions a screen, and sets its visible size.  Any of the position
+and size parameters can be omitted; the corresponding value will
+remain the same.  The screen is moved to coordinates (x,y) relative to
+the top left corner of the Intuition display (in screen pixels), and
+the visible size is set to w by h pixels.  The screen position is
+limited to the borders of the Intuition display.
+
+NOTE: Under Kickstart 1.3b, screens cannot be moved horizontally.
+
+See also: @{" Iscreen Offset " link C_IscreenOffset}
+
+@endnode
+
+@node C_IscreenHeight "Intuition Extension 1.3b Command: =Iscreen Height"
+@next C_IscreenMode
+@prev C_IscreenDisplay
+
+=ISCREEN HEIGHT
+---------------
+
+h=Iscreen Height
+h=Iscreen Height(n)
+
+Returns the height of screen n or the current screen.
+
+See also: @{"=Iscreen Width  " link C_IscreenWidth}
+	  @{"=Iscreen Colour " link C_IscreenColour}
+	  @{"=IScreen Mode   " link C_IscreenMode}
+
+@endnode
+
+@node C_IscreenMode "Intuition Extension 1.3b Command: =Iscreen Mode"
+@next C_IscreenOffset
+@prev C_IscreenHeight
+
+=ISCREEN MODE
+-------------
+
+mode=Iscreen Mode
+mode=Iscreen Mode(n)
+
+Returns the mode value of screen n or the current screen.
+
+See also: @{"=Iscreen Width  " link C_IscreenWidth}
+	  @{"=Iscreen Height " link C_IscreenHeight}
+	  @{"=Iscreen Colour " link C_IscreenColour}
+
+@endnode
+
+@node C_IscreenOffset "Intuition Extension 1.3b Command: Iscreen Offset"
+@next C_IscreenOpen
+@prev C_IscreenMode
+
+ISCREEN OFFSET
+--------------
+
+Iscreen Offset n,xoffset,yoffset
+
+Offsets the viewable portion of screen n to (xoffset,yoffset).  This
+is used for screens which are larger than their visible area.
+
+See also: @{" Iscreen Display " link C_IscreenDisplay}
+
+@endnode
+
+@node C_IscreenOpen "Intuition Extension 1.3b Command: Iscreen Open"
+@next C_IscrOpenBack
+@prev C_IscreenOffset
+
+ISCREEN OPEN
+------------
+
+Iscreen Open n,width,height,colours,mode
+Iscreen Open n,width,height,colours,mode,title$
+Iscreen Open n,width,height,colours,mode,title$,displayID
+
+Opens an Intuition screen and brings it to the front. The screen
+number n can be any integer, so you are not limited to 8 screens as
+with standard AMOS screens.  If screen n already exists, the
+"Screen not closed" error is generated.
+
+Width and height determine the size of the screen, as with the AMOS
+Screen Open command.
+
+Colours specifies the number of colours you want your screen to have.
+Unlike Screen Open, if you want your screen to use a special mode like
+ExtraHalfBrite or HAM, it is not enough to just use 64 or 4096 here;
+you must also give the appropriate mode value (@{" Ehb " link C_Ehb}
+or @{" Ham " link C_Ham}) in the Mode parameter.
+
+Mode determines the screen mode (i.e. Lowres, Hires, Productivity,
+EHB, HAM).
+
+DisplayID, if given, is a system display identification number.
+Common values are NTSC=$11000 and PAL=$21000.  Other values can be
+found in the system reference manuals.  If this parameter is omitted,
+the screen opens in the default display mode.  WARNING: only use this
+parameter if you know what you are doing!
+
+Title$, if given, is the title of the screen.  It will appear on the
+screen title bar.  If title$ is empty or not given, the title bar will
+not appear.
+
+Following is a list of common screen types, normal width and height
+(for PAL/NTSC), maximum number of colours (for normal/AGA chipsets),
+and mode parameters.  Modes only available on AGA are marked with '*';
+modes only available on ECS or AGA are marked with '+'.  Interlaced
+modes are not listed; to construct them, simply add Laced to the Mode
+parameter.  For HAM modes, be sure to specify the correct number of
+colours (the one listed).
+
+Type (*=AGA, +=ECS)	Width	Height	  MaxCols	     Mode
+-------------------	-----	-------	-----------	--------------
+ Lowres			 320	256/200	  32/   256	Lowres (or 0)
+ Lowres EHB		 320	256/200	  64/   256	Ehb
+ Lowres HAM		 320	256/200	4096/  4096	Ham
+*Lowres HAM8		 320	256/200	----/262144	Ham
+ Hires			 640	256/200	  16/   256	Hires
+*Hires EHB		 640	256/200	----/   256	Hires+Ehb
+*Hires HAM		 640	256/200	----/  4096	Hires+Ham
+*Hires HAM8		 640	256/200	----/262144	Hires+Ham
++SuperHires		1280	256/200	   4/   256	Superhires
+*SuperHires EHB		1280	256/200	----/   256	Superhires+Ehb
+*SuperHires HAM		1280	256/200	----/  4096	Superhires+Ham
+*SuperHires HAM8	1280	256/200	----/262144	Superhires+Ham
+
+Note that the Intuition screen will not be actually displayed until an
+Amos To Back instruction is executed (or the user presses
+LeftAmiga+A).
+
+See also: @{" Iscreen Open Front  " link C_IscrOpenFront}
+          @{" Iscreen Open Back   " link C_IscrOpenBack}
+          @{" Iscreen Open Public " link C_IscrOpenPublic}
+          @{" Iscreen Close       " link C_IscreenClose}
+	  @{" Set Iscreen         " link C_SetIscreen}
+	  @{"=Iscreen             " link C_GetIscreen}
+
+@endnode
+
+@node C_IscrOpenBack "Intuition Extension 1.3b Command: Iscreen Open Back"
+@next C_IscrOpenFront
+@prev C_IscreenOpen
+
+ISCREEN OPEN BACK
+-----------------
+
+Iscreen Open Back
+
+Causes any screens opened in the future to be opened in back of all
+other screens.
+
+See also: @{" Iscreen Open       " link C_IscreenOpen}
+          @{" Iscreen Open Front " link C_IscrOpenFront}
+
+@endnode
+
+@node C_IscrOpenFront "Intuition Extension 1.3b Command: Iscreen Open Front"
+@next C_IscrOpenPublic
+@prev C_IscrOpenBack
+
+ISCREEN OPEN FRONT
+------------------
+
+Iscreen Open Front
+
+Causes any screens opened in the future to be opened in front of all
+pther screens.
+
+See also: @{" Iscreen Open      " link C_IscreenOpen}
+          @{" Iscreen Open Back " link C_IscrOpenBack}
+
+@endnode
+
+@node C_IscrOpenPublic "Intuition Extension 1.3b Command: Iscreen Open Public"
+@next C_IscrTitleHeight
+@prev C_IscrOpenFront
+
+ISCREEN OPEN PUBLIC (Kickstart 2.0 only)
+-------------------
+
+Iscreen Open Public n,width,height,colours,mode
+Iscreen Open Public n,width,height,colours,mode,title$
+Iscreen Open Public n,width,height,colours,mode,title$,displayID
+
+Opens an Intuition screen.  The parameters are the same as those given
+to Iscreen Open.  However, this instruction opens the screen in the
+special "public" mode of Kickstart/Workbench 2.0 and above.  The
+difference between a public screen and a normal screen is that other
+programs may open their own windows on public screens.  Be careful
+using this instruction; if your program tries to close a public screen
+with other programs' windows still open on it, your program will
+crash!
+
+See also: @{" Iscreen Open " link C_IscreenOpen}
+
+@endnode
+
+@node C_IscrTitleHeight "Intuition Extension 1.3b Command: =Iscreen Title Height"
+@next C_IscreenToBack
+@prev C_IscrOpenPublic
+
+=ISCREEN TITLE HEIGHT
+---------------------
+
+=Iscreen Title Height
+=Iscreen Title Height(n)
+
+Returns the height of the title bar of the current screen, or of screen
+number n.  Useful to ensure that your output does not overwrite the
+screen's title bar.  For example:
+
+Text 0,Iscreen Title Height+Itext Base,"Text right below the title bar"
+
+See also: @{" Set Iscreen Title " link C_SetIscreenTitle}
+
+@endnode
+
+@node C_IscreenToBack "Intuition Extension 1.3b Command: Iscreen To Back"
+@next C_IscreenToFront
+@prev C_IscrTitleHeight
+
+ISCREEN TO BACK
+---------------
+
+Iscreen To Back
+Iscreen To Back n
+
+Sends screen number n or the current screen to the back of all
+Intuition screens.
+
+See also: @{" Iscreen To Front " link C_IscreenToFront}
+
+@endnode
+
+@node C_IscreenToFront "Intuition Extension 1.3b Command: Iscreen To Front"
+@next C_IscreenWidth
+@prev C_IscreenToBack
+
+ISCREEN TO FRONT
+----------------
+
+Iscreen To Front
+Iscreen To Front n
+
+Brings screen number n or the current screen to the front of all
+Intuition screens.
+
+See also: @{" Iscreen To Back " link C_IscreenToBack}
+
+@endnode
+
+@node C_IscreenWidth "Intuition Extension 1.3b Command: =Iscreen Width"
+@next C_Ishift
+@prev C_IscreenToBack
+
+=ISCREEN WIDTH
+--------------
+
+w=Iscreen Width
+w=Iscreen Width(n)
+
+Returns the width of screen n or the current screen.
+
+See also: @{"=Iscreen Height " link C_IscreenHeight}
+	  @{"=Iscreen Colour " link C_IscreenColour}
+	  @{"=Iscreen Mode   " link C_IscreenMode}
+
+@endnode
+
+@node C_Ishift "Intuition Extension 1.3b Command: =Ishift"
+@next C_Itext
+@prev C_IscreenWidth
+
+=ISHIFT
+-------
+
+shiftstate=Ishift
+
+Returns the keyboard shift state at the time of the last keypress.
+
+See also: @{"=Iscan " link C_Iscan}
+
+@endnode
+
+@node C_Itext "Intuition Extension 1.3b Command: Itext"
+@next C_ItextBase
+@prev C_Ishift
+
+ITEXT
+-----
+
+Itext x,y,s$
+
+Writes text to the current screen/window at coordinates X,Y.  If
+either coordinate is omitted, the current value of that coordinate is
+used.
+
+Note that the Y coordinate corresponds to the baseline of the font.
+To determine this value, use the @{" Itext Base " link C_ItextBase} function.
+
+The Itext instruction leaves the current graphics position at the
+right edge of the text, on the baseline.
+
+See also: @{" Set Ifont    " link C_SetIfont}
+          @{" Ilocate Gr   " link C_Ilocate}
+          @{"=Itext Length " link C_ItextLength}
+          @{" Iwrite       " link C_Iwrite}
+
+@endnode
+
+@node C_ItextBase "Intuition Extension 1.3b Command: =Itext Base"
+@next C_ItextLength
+@prev C_Itext
+
+=ITEXT BASE
+-----------
+
+y=Itext Base
+
+Returns the baseline coordinate of the font for the current
+screen/window.  Useful in conjunction with @{" Itext " link C_Itext}, for example:
+
+	Itext 0,Itext Base,"Text at the top of the screen"
+
+See also: @{" Set Ifont    " link C_SetIfont}
+          @{"=Itext Length " link C_ItextLength}
+
+@endnode
+
+@node C_ItextLength "Intuition Extension 1.3b Command: =Itext Length
+@next C_Itrap
+@prev C_ItextBase
+
+=ITEXT LENGTH
+-------------
+
+w=Itext Length(s$)
+
+Returns the width in pixels of s$ using the current font.
+
+See also: @{" Itext      " link C_Itext}
+          @{"=Itext Base " link C_ItextBase}
+
+@endnode
+
+@node C_Itrap "Intuition Extension 1.3b Command: Itrap On/Off"
+@next C_Iwait
+@prev C_ItextLength
+
+ITRAP ON
+ITRAP OFF
+---------
+
+Itrap On
+Itrap Off
+
+Activates or deactivates error trapping for Intuition Extension
+commands.  When the Itrap On instruction is executed, any commands
+that cause errors will set an error flag rather than crashing the
+program.  You can check this flag with the @{" Ierrtrap " link C_Ierrtrap} function.
+
+The Itrap Off instruction returns the system to normal (i.e. errors
+will cause the program to abort).
+
+@endnode
+
+@node C_Iwait "Intuition Extension 1.3b Command: Iwait"
+@next C_IwaitEvent
+@prev C_Itrap
+
+IWAIT
+-----
+
+Iwait n
+
+Waits for n vertical blanks before returning control to the program.
+The length of time between vertical blanks depends on the type of
+screen being used.  A standard PAL screen is 50 hertz, meaning that
+vertical blank cycle is 1/50th of a second.  A standard NTSC screen is
+60 hertz.
+
+See also: @{" Iwait Key   " link C_IwaitKey}
+          @{" Iwait Mouse " link C_IwaitMouse}
+          @{" Iwait Vbl   " link C_IwaitVbl}
+@endnode
+
+@node C_IwaitEvent "Intuition Extension 1.3b Command: =Iwait Event"
+@next C_IwaitKey
+@prev C_Iwait
+
+=IWAIT EVENT
+------------
+
+event=Iwait Event
+event=Iwait Event Vbl
+
+The Iwait Event function is used to wait for an event to occur.  With
+the first form of the command, AMOS will wait for any kind of input to
+occur (mouse click, keypress, menu selection, etc.) before returning;
+the value returned is an "event value", and can be compared against
+the values returned by the @{" Ievent " link C_IeventType} function to determine what event
+occurred.
+
+This method of "event waiting" is superior to repeatedly checking for
+input in a loop, known as "busy waiting", because event waiting uses
+no processor time at all - other programs can run at full speed while
+your program is waiting for input.  Busy waiting, on the other hand,
+takes up processor time because the program must keep checking whether
+there is anything to do.
+
+Nearly all programs that use input (which is most programs written)
+can and should use event waiting.  Suppose you have a program that
+accepts keyboard input and mouse clicks, and has menus.  Your main
+loop might look something like:
+
+	EVENT=Iwait Event
+	If EVENT=Ievent Key
+	   'A key was pressed
+	Else If EVENT=Ievent Mouse
+	   'The mouse button was clicked
+	Else If EVENT=Ievent Menu
+	   'A menu item was selected
+	End If
+
+The second form of the command is used in programs that need to
+continuously update a display of some sort.  It waits for either an
+input event or the vertical blank.  While there are commands that
+allow you to wait until the next vertical blank, Iwait Event Vbl has
+the advantage that it tells you whether any input happened before the
+vertical blank occurred, which (again) saves processor time.
+
+See also: @{"=Ievent Data " link C_IeventData}
+
+@endnode
+
+@node C_IwaitKey "Intuition Extension 1.3b Command: Iwait Key"
+@next C_IwaitMouse
+@prev C_Iwait
+
+IWAIT KEY
+---------
+
+Iwait Key
+
+Waits for a key to be pressed.
+
+See also: @{"=Iget$       " link C_Iget} to read a key without waiting
+	  @{"=Iread Char$ " link C_IreadChar} to wait for and read a key
+
+@endnode
+
+@node C_IwaitMouse "Intuition Extension 1.3b Command: Iwait Mouse"
+@next C_IwaitVbl
+@prev C_IwaitKey
+
+IWAIT MOUSE
+-----------
+
+Iwait Mouse
+
+Waits for a mouse click.
+
+See also: @{"=Imouse Key " link C_ImouseKey}
+
+@endnode
+
+@node C_IwaitVbl "Intuition Extension 1.3b Command: Iwait Vbl"
+@next C_GetIwindow
+@prev C_IwaitMouse
+
+IWAIT VBL
+---------
+
+Waits for the next vertical blank interrupt returning control to the
+program.
+
+See also: @{" Iwait " link C_Iwait}
+
+@endnode
+
+@node C_GetIwindow "Intuition Extension 1.3b Command: =Iwindow"
+@next C_IwindowActivate
+@prev C_IwaitVbl
+
+=IWINDOW
+--------
+
+n=Iwindow
+
+Returns the number of the current window.
+
+See also: @{" Set Iwindow  " link C_SetIwindow}
+	  @{" Iwindow Open " link C_IwindowOpen}
+@endnode
+
+@node C_IwindowActivate "Intuition Extension 1.3b Command: Iwindow Activate"
+@next C_IwindowActive
+@prev C_GetIwindow
+
+IWINDOW ACTIVATE
+----------------
+
+Iwindow Activate n
+
+Activates window number n for input and makes it the current output
+window.  Use this function with discretion, as the user may not like
+having his input suddenly going to your program when he wasn't
+expecting it!  If you do use this command, it is also recommended to
+do an @{" Iscreen To Front " link C_IscreenToFront} to inform the user of the new active window.
+
+See also: @{" Set Iwindow " link C_SetIwindow}
+
+@endnode
+
+@node C_IwindowActive "Intuition Extension 1.3b Command: =Iwindow Active"
+@next C_IwindowActiveBase
+@prev C_IwindowActivate
+
+=IWINDOW ACTIVE
+---------------
+
+result=Iwindow Active
+
+If the currently active window (in the Intuition sense) is on the
+current screen, this function returns True; otherwise, it returns
+False.
+
+@endnode
+
+@node C_IwindowActiveBase "Intuition Extension 1.3b Command: =Iwindow Active Base"
+@next C_IwindowActiveNum
+@prev C_IwindowActive
+
+=IWINDOW ACTIVE BASE
+--------------------
+
+adr=Iwindow Active Base
+
+Returns the base address of the currently active Intuition window.
+
+Note for system programmers: this simply gets and returns the value of
+the ActiveWindow field of the IntuitionBase structure.
+
+See also: @{"=Iwindow Base   " link C_IwindowBase}
+	  @{"=Iwindow Active " link C_IWindowActive}
+@endnode
+
+@node C_IwindowActiveNum "Intuition Extension 1.3b Command: =Iwindow Active Num"
+@next C_IwindowActual
+@prev C_IwindowActiveBase
+
+=IWINDOW ACTIVE NUM
+-------------------
+
+n=Iwindow Active Num
+
+Returns the number of the currently active window.  WARNING: if the
+currently active window is not on the current screen, the resultant
+value is undefined!  So check beforehand whether it is using the
+Iwindow Active function.
+
+See also: @{"=Iwindow Active " link C_IwindowActive}
+
+@endnode
+
+@node C_IwindowActual "Intuition Extension 1.3b Command: =Iwindow Actual Width/Height"
+@next C_IwindowBase
+@prev C_IwindowActiveNum
+
+=IWINDOW ACTUAL WIDTH
+=IWINDOW ACTUAL HEIGHT
+----------------------
+
+w=Iwindow Actual Width
+h=Iwindow Actual Height
+
+Return the dimensions of the usable area of the current window.
+
+Normally, all windows opened have a border which takes up part of the
+window area.  (The base window of a screen is an exception to this
+rule.)  All of the drawing operations start at the top-left corner of
+the empty area of the window inside the border.  Because of this
+border, you cannot use the width you gave in Iwindow Open as a measure
+of the window's size, because that would cause your drawing operations
+to flood over onto the window's right and bottom borders!  Instead,
+use Iwindow Actual Width/Height to find out how much you can use.
+
+@endnode
+
+@node C_IwindowBase "Intuition Extension 1.3b Command: =Iwindow Base"
+@next C_IwindowClose
+@prev C_IwindowActual
+
+=IWINDOW BASE
+-------------
+
+address=Iwindow Base
+
+Returns the base address of the Intuition Window structure for the
+current window.
+
+@endnode
+
+@node C_IwindowClose "Intuition Extension 1.3b Command: Iwindow Close"
+@next C_IwindowCloseWB
+@prev C_IwindowBase
+
+IWINDOW CLOSE
+-------------
+
+Iwindow Close n
+
+Closes window number n.  Note that window number 0 cannot be closed.
+
+See also: @{" Iwindow Open     " link C_IwindowOpen}
+	  @{" Iwindow Close Wb " link C_IwindowCloseWB}
+
+@endnode
+
+@node C_IwindowCloseWB "Intuition Extension 1.3b Command: Iwindow Close Wb"
+@next C_IwindowHeight
+@prev C_IWindowClose
+
+IWINDOW CLOSE WB
+----------------
+
+Iwindow Close Wb n
+
+Closes Workbench window number n.
+
+See also: @{" Iwindow Open Wb " link C_IwindowOpenWB}
+
+@endnode
+
+@node C_IwindowHeight "Intuition Extension 1.3b Command: =Iwindow Height"
+@next C_IwindowMove
+@prev C_IwindowCloseWB
+
+=IWINDOW HEIGHT
+---------------
+
+h=Iwindow Height
+h=Iwindow Height(n)
+h=Iwindow Height Wb(n)
+
+Returns the height of the current window, or of window number n.  If
+n is 0, or n is omitted and the current window is window 0 (the
+screen's main window), the screen's height is returned, as if
+@{" Iscreen Height " link C_IscreenHeight} had been called.
+
+See also: @{" Iwindow Size  " link C_IwindowSize}
+	  @{"=Iwindow Width " link C_IwindowWidth}
+
+@endnode
+
+@node C_IwindowMove "Intuition Extension 1.3b Command: Iwindow Move"
+@next C_IwindowOnWB
+@prev C_IwindowHeight
+
+IWINDOW MOVE
+------------
+
+Iwindow Move n,x,y
+Iwindow Move Wb n,x,y
+
+Moves window number n to coordinates (x,y).  If either coordinate
+would result in the window being partly or fully off the screen, an
+"Illegal function call" error is generated.
+
+See also: @{"=Iwindow X " link C_IwindowX}
+	  @{"=Iwindow Y " link C_IwindowY}
+
+@endnode
+
+@node C_IwindowOnWB "Intuition Extension 1.3b Command: =Iwindow On Wb"
+@next C_IwindowOpen
+@prev C_IwindowMove
+
+IWINDOW ON WB
+-------------
+
+wb=Iwindow On Wb
+
+Returns True if the current window is a Workbench window, False
+otherwise.
+
+@endnode
+
+@node C_IwindowOpen "Intuition Extension 1.3b Command: Iwindow Open"
+@next C_IwindowOpenWB
+@prev C_IwindowOnWB
+
+IWINDOW OPEN
+------------
+
+Iwindow Open n,x,y,w,h [,title$ [,flags]]
+
+Opens an Intuition window.  The window is designated with the number n
+given in the command.  Only one window with a particular number may
+be open on a screen at a time, but different screens may have same-
+numbered windows.  In other words, the code
+
+Iscreen Open 0,320,200,2,0
+Iwindow Open 1,0,0,320,200
+Iscreen Open 1,320,200,2,0
+Iwindow Open 1,20,20,200,80
+
+will open two different windows on two different screens, both
+numbered 1.
+
+If window n already exists, the "Window not closed" error is
+generated.
+
+The x and y parameters tell AMOS where the top left corner of the
+window should be, while w and h indicate the size of the new window.
+Both corners must be on the screen.  In addition, the width and height
+of the window must be at least 80 x 48 pixels, and cannot be larger
+than the currently visible size of the screen.
+
+If title$ is given, it is used as the title of the new window, and is
+displayed in the window's title bar.  If title$ is omitted, the title
+bar remains blank.
+
+If the flags parameter is specified, it determines how the window is
+set up.  To determine what value to use, add the appropriate values
+from this list together:
+
+	Item			 Value:	 Dec.	 Hex
+	----				-----   -----
+	Sizing gadget			    1	$0001
+	Draggable window		    2	$0002
+	Depth gadget(s)			    4	$0004
+	Close gadget			    8	$0008
+	*Sizing gadget in right border	   16	$0010
+	*Sizing gadget in bottom border	   32	$0020
+	+Backdrop window		  256	$0100
+	Borderless window		 2048	$0800
+	Activate on open		 4096	$1000
+
+Notes:	* These flags determine whether the right or bottom borders are
+	  expanded to accommodate the sizing gadget.
+
+	+ A backdrop window always stays in back of all other windows.
+	  The "backdrop window" flag cannot be used with any other
+	  flags.
+
+So, for example, to open a draggable window with only a close gadget,
+the value of flags would be 10.
+
+After the window has been opened, it can be moved, sized, and depth-
+arranged using the standard Intuition gadgets, as well as with the
+Intuition Extension commands designed for that purpose.  (The close
+gadget does not immediately close the window, but rather sets a status
+flag that the program can check and take whatever action is
+appropriate, e.g. quitting the program.)
+
+Note that window number 0 is reserved for the default window that is
+opened at the same time a screen is opened; any attempt to reopen,
+move, size, depth-arrange, or close this window will result in an
+error.
+
+See also: @{" Iwindow Close    " link C_IwindowClose}
+	  @{"=Iwindow          " link C_GetIwindow}
+	  @{" Set Iwindow      " link C_SetIwindow}
+	  @{" Iwindow Move     " link C_IwindowMove}
+	  @{" Iwindow Size     " link C_IwindowSize}
+	  @{" Iwindow To Front " link C_IwindowToFront}
+	  @{" Iwindow To Back  " link C_IwindowToBack}
+	  @{"=Iwindow Status   " link C_IwindowStatus}
+
+@endnode
+
+@node C_IwindowOpenWB "Intuition Extension 1.3b Command: Iwindow Open Wb"
+@next C_IwindowSize
+@prev C_IwindowOpen
+
+IWINDOW OPEN WB
+---------------
+
+Iwindow Open Wb n,x,y,w,h [,title$ [,flags]]
+
+Opens an Intuition window.  Similar to Iwindow Open, but opens the
+window on the Workbench screen.  If the Workbench screen is closed and
+cannot be opened (e.g. low memory), an error is generated.  Note that
+window number 0 *is* a valid number for a Workbench window.
+
+See also: @{" Iwindow Open     " link C_IwindowOpen}
+	  @{" Iwindow Close Wb " link C_IwindowCloseWB}
+
+@endnode
+
+@node C_IwindowSize "Intuition Extension 1.3b Command: Iwindow Size"
+@next C_IwindowStatus
+@prev C_IwindowOpenWB
+
+IWINDOW SIZE
+------------
+
+Iwindow Size n,w,h
+Iwindow Size Wb n,w,h
+
+Resizes window n to dimensions w by h.  If this is less than 80 x 48
+or would extend beynd the bottom right corner of the currently visible
+part of the screen, an error is generated.
+
+See also: @{"=Iwindow Width  " link C_IwindowWidth}
+	  @{"=Iwindow Height " link C_IwindowHeight}
+
+@endnode
+
+@node C_IwindowStatus "Intuition Extension 1.3b Command: =Iwindow Status"
+@next C_IwindowToBack
+@prev C_IwindowSize
+
+=IWINDOW STATUS
+---------------
+
+status=Iwindow Status
+status=Iwindow Status(n)
+status=Iwindow Status Wb(n)
+
+Returns an integer representing the current status of the current
+window (or window number n, either on the current screen or on the
+Workbench screen).  At present, only one bit is defined:
+
+	Bit 1: Indicates whether the window's close gadget was
+		 pressed.
+
+However, due to a bug in AMOS (at least in AMOS Pro), the following
+code to check whether a window's close gadget was pressed will not
+work:
+
+If Btst(1,Iwindow Status(N))
+  Iwindow Close N
+End If
+
+Instead, you must use
+
+ST=Iwindow Status(N)
+If Btst(1,ST)
+  Iwindow Close N
+End If
+
+@endnode
+
+@node C_IwindowToBack "Intuition Extension 1.3b Command: Iwindow To Back"
+@next C_IwindowToFront
+@prev C_IwindowStatus
+
+IWINDOW TO BACK
+---------------
+
+Iwindow To Back
+Iwindow To Back n
+Iwindow To Back Wb n
+
+Sends window number n (or the current window) to the back.
+
+See also: @{" Iwindow To Front " link C_IwindowToFront}
+
+@endnode
+
+@node C_IwindowToFront "Intuition Extension 1.3b Command: Iwindow To Front"
+@next C_IwindowWidth
+@prev C_IwindowToBack
+
+IWINDOW TO FRONT
+----------------
+
+Iwindow To Front
+Iwindow To Front n
+Iwindow To Front Wb n
+
+Brings window number n (or the current window) to the front.
+
+See also: @{" Iwindow To Back " link C_IwindowToBack}
+
+@endnode
+
+@node C_IwindowWidth "Intuition Extension 1.3b Command: =Iwindow Width"
+@next C_IwindowX
+@prev C_IwindowToFront
+
+=IWINDOW WIDTH
+--------------
+
+w=Iwindow Width
+w=Iwindow Width(n)
+w=Iwindow Width Wb(n)
+
+Returns the width of the current window, or of window number n.  If n
+is 0, or n is omitted and the current window is window 0 (the screen's
+main window), the screen's width is returned, as if @{" Iscreen Width " link C_IscreenWidth} had
+been called.
+
+See also: @{" Iwindow Size   " link C_IwindowMove}
+	  @{"=Iwindow Height " link C_IwindowHeight}
+@endnode
+
+@node C_IwindowX "Intuition Extension 1.3b Command: =Iwindow X"
+@next C_IwindowY
+@prev C_IwindowWidth
+
+=IWINDOW X
+----------
+
+x=Iwindow X
+x=Iwindow X(n)
+x=Iwindow X Wb(n)
+
+Returns the X coordinate of the upper left corner of the current
+window, or of window number n.  If n is 0, or if n is omitted and the
+current window is window 0 (the screen's main window), 0 is returned.
+
+See also: @{" Iwindow Move " link C_IwindowMove}
+	  @{"=Iwindow Y    " link C_IwindowY}
+
+@endnode
+
+@node C_IwindowY "Intuition Extension 1.3b Command: =Iwindow Y"
+@next C_Iwrite
+@prev C_IwindowX
+
+=IWINDOW Y
+----------
+
+y=Iwindow Y
+y=Iwindow Y(n)
+y=Iwindow Y Wb(n)
+
+Returns the Y coordinate of the upper left corner of the current
+window, or of window number n.  If n is 0, or if n is omitted and the
+current window is window 0 (the screen's main window), 0 is returned.
+
+See also: @{" Iwindow Move " link C_IwindowMove}
+	  @{"=Iwindow X    " link C_IwindowX}
+
+@endnode
+
+@node C_Iwrite "Intuition Extension 1.3b Command: Iwrite"
+@next C_Ixgr
+@prev C_IwindowY
+
+IWRITE
+------
+
+Iwrite
+Iwrite s$
+
+Prints a string to the screen, then moves the graphics cursor to the
+start of the next line.  Similar to Print, but only accepts a single
+string argument, due to the limitations of extensions.  Without the
+argument, it just goes to the next line, like Print without any
+parameters.
+
+See also: @{" Ilocate " link C_Ilocate}
+          @{" Itext   " link C_Itext}
+
+@endnode
+
+@node C_Ixgr "Intuition Extension 1.3b Command: =Ixgr"
+@next C_Iygr
+@prev C_Iwrite
+
+=IXGR
+-----
+
+x=Ixgr
+
+Returns the current X coordinate of the graphics cursor.
+
+See also: @{" Ilocate Gr " link C_IlocateGr}
+          @{"=Iygr       " link C_Iygr}
+
+@endnode
+
+@node C_Iygr "Intuition Extension 1.3b Command: =Iygr"
+@next C_ReqtoolsHere
+@prev C_Ixgr
+
+=IYGR
+-----
+
+y=Iygr
+
+Returns the current Y coordinate of the graphics cursor.
+
+See also: @{" Ilocate Gr " link C_IlocateGr}
+          @{"=Ixgr       " link C_Ixgr}
+
+@endnode
+
+@node C_ReqtoolsHere "Intuition Extension 1.3b Command: =Reqtools Here"
+@next C_ReserveIgadget
+@prev C_Iygr
+
+=REQTOOLS HERE
+--------------
+
+res=Reqtools Here
+
+Returns whether ReqTools.library is installed in the system.  This
+function can be used to determine whether to use requesters or an
+alternate method of input.
+
+@endnode
+
+@node C_ReserveIgadget "Intuition Extension 1.3b Command: Reserve Igadget"
+@next C_SetIcolour
+@prev C_ReqtoolsHere
+
+RESERVE IGADGET
+---------------
+
+Reserve Igadget
+Reserve Igadget n
+
+Allocates space for gadgets in the current window.  If the parameter
+n is given, space is reserved for that many gadgets; if it is omitted,
+the memory is freed and returned to the system.  There is no limit to
+the number of gadgets you can reserve, apart from the amount of memory
+in your system.
+
+Note that issuing the Reserve Igadget command, with or without a
+parameter, clears any previous gadget definitions for the current
+window.
+
+@endnode
+
+@node C_SetIcolour "Intuition Extension 1.3b Command: Set Icolour"
+@next C_SetIfont
+@prev C_ReserveIgadget
+
+SET ICOLOUR
+-----------
+
+Set Icolour n,c
+
+Sets colour n on the current screen to c, a value in the format
+$RGB.  So to set
+
+See also: @{" Ipalette " link C_Ipalette}
+	  @{"=Icolour  " link C_GetIcolour}
+
+@endnode
+
+@node C_SetIfont "Intuition Extension 1.3b Command: Set Ifont"
+@next C_SetIgadHit
+@prev C_SetIcolour
+
+SET IFONT
+---------
+
+Set Ifont name$,size
+Set Ifont namesize$
+
+Sets the font for the current screen/window.  In the first format,
+name$ is the name of the font you want to use; this may or may not
+include the ".font" extension, but if it does, it (the ".font") MUST
+be in lower case.  Size is the vertical size of the font.
+
+In the second format, namesize$ is a string of the form
+"fontname/NNN", where "fontname" is the name of the font and NNN is
+the size.  This is useful in conjunction with @{" Irequest Font " link C_IrequestFont}.
+
+See also: @{"=Ifont$     " link C_IfontName}
+
+@endnode
+
+@node C_SetIgadHit "Intuition Extension 1.3b Command: Set Igadget Hit"
+@next C_SetIgadInt
+@prev C_SetIfont
+
+SET IGADGET HIT
+---------------
+
+Set Igadget Hit n,x,y,w,h
+
+Defines a "hit-select" gadget - in other words, a gadget that stays
+down only as long as the mouse button is held down.  If the mouse
+button is released over the gadget, a "hit" is reported.  This kind of
+gadget is probably the most common; it can be seen in any Intuition
+window or screen - the close gadget, zoom gadget (in Workbench 2.0),
+and depth gadget(s) are all hit-select gadgets.  (The sizing gadget in
+the lower right corner of a window is also a hit-select gadget, as is
+the entire title-bar, although Intuition gives them special handling.)
+
+N is the number of the gadget to define; x, y, w, and h define the
+gadget's position and size.
+
+A hit-select gadget must be at least 4 pixels wide and 4 pixels tall.
+
+See also: @{" Reserve Igadget     " link C_ReserveIgadget}
+	  @{" Set Igadget Hslider " link C_SetIgadSlider}
+	  @{" Set Igadget Int     " link C_SetIgadInt}
+	  @{" Set Igadget String  " link C_SetIgadString}
+	  @{" Set Igadget Toggle  " link C_SetIgadToggle}
+	  @{" Set Igadget Vslider " link C_SetIgadSlider}
+
+@endnode
+
+@node C_SetIgadInt "Intuition Extension 1.3b Command: Set Igadget Int"
+@next C_SetIgadSlider
+@prev C_SetIgadHit
+
+SET IGADGET INT
+---------------
+
+Set Igadget Int n,x,y,w,h
+Set Igadget Int n,x,y,w,h,init
+Set Igadget Int n,x,y,w,h,init,strpos
+
+Defines an integer gadget.  N is the number of the gadget to define;
+x, y, w, and h define the gadget's position and size.  Init sets the
+initial value for the gadget; if omitted, the inital value is 0.
+Strpos determines how the integer is displayed in the gadget: 0 means
+left-justified (the default), 1 means centred, and 2 means right-
+justified.  Any other value will result in an "Illegal function call"
+error.
+
+An integer gadget must be at least 32 pixels wide and two more than the
+current font height tall.  If you omit the height parameter, the
+gadget will automatically be set to this height.
+
+See also: @{" Reserve Igadget     " link C_ReserveIgadget}
+	  @{" Set Igadget Hit     " link C_SetIgadToggle}
+	  @{" Set Igadget Hslider " link C_SetIgadSlider}
+	  @{" Set Igadget String  " link C_SetIgadString}
+	  @{" Set Igadget Toggle  " link C_SetIgadToggle}
+	  @{" Set Igadget Vslider " link C_SetIgadSlider}
+
+@endnode
+
+@node C_SetIgadSlider "Intuition Extension 1.3b Command: Set Igadget Hslider/Vslider"
+@next C_SetIgadString
+@prev C_SetIgadInt
+
+SET IGADGET HSLIDER
+SET IGADGET VSLIDER
+-------------------
+
+Set Igadget Hslider n,x,y,w,h,units,pos,size,overlap
+Set Igadget Vslider n,x,y,w,h,units,pos,size,overlap
+
+Defines a slider gadget.  N is the number of the gadget to define;
+x, y, w, and h define the gadget's position and size.  Units is the
+total number of units the slider represents (e.g. the number of lines
+in a text file).  Pos is the initial position of the slider and size
+is its size, both measured in units.
+
+Overlap is best defined using an example:  If a vertical slider bar
+represents a text file, then the slider represents the portion of the
+file that is visible.  When the user clicks in the slider bar but not
+on the slider, the text will scroll to display the next screen up or
+down - but may also leave one of the old lines on the screen to remind
+the user of where he is.  In this case, the value of "overlap" would
+be 1, since there is a one-line overlap between screens.
+
+For "level" type controls, such as volume or colour intensity, always
+set size to 1 and overlap to 0.
+
+A horizontal gadget must be at least 16 pixels wide and 8 pixels tall;
+a vertical gadget must be at least 10 pixels wide and 16 pixels tall.
+
+Note that the slider bar is also called the "container", since it
+contains the slider.
+
+See also: @{" Reserve Igadget    " link C_ReserveIgadget}
+	  @{" Set Igadget Hit    " link C_SetIgadToggle}
+	  @{" Set Igadget Int    " link C_SetIgadInt}
+	  @{" Set Igadget String " link C_SetIgadString}
+	  @{" Set Igadget Toggle " link C_SetIgadToggle}
+
+@endnode
+
+@node C_SetIgadString "Intuition Extension 1.3b Command: Set Igadget String"
+@next C_SetIgadToggle
+@prev C_SetIgadSlider
+
+SET IGADGET STRING
+------------------
+
+Set Igadget String n,x,y,w,h,maxlen
+Set Igadget String n,x,y,w,h,maxlen,init$
+Set Igadget String n,x,y,w,h,maxlen,init$,strpos
+
+Defines a string gadget.  N is the number of the gadget to define;
+x, y, w, and h define the gadget's position and size.  Maxlen is the
+maximum length of the string; if the user tries to enter a string
+longer than this length, it will not be accepted.  Init$ allows you
+to change the initial value from the default of the empty string.
+Strpos determines how the integer is displayed in the gadget: 0 means
+left-justified (the default), 1 means centred, and 2 means right-
+justified.  Any other value will result in an "Illegal function call"
+error.
+
+A string gadget must be at least 32 pixels wide and two more than the
+current font height tall.  If you omit the height parameter, the
+gadget will automatically be set to this height.
+
+See also: @{" Reserve Igadget     " link C_ReserveIgadget}
+	  @{" Set Igadget Hit     " link C_SetIgadToggle}
+	  @{" Set Igadget Hslider " link C_SetIgadSlider}
+	  @{" Set Igadget Int     " link C_SetIgadInt}
+	  @{" Set Igadget Toggle  " link C_SetIgadToggle}
+	  @{" Set Igadget Vslider " link C_SetIgadSlider}
+
+@endnode
+
+@node C_SetIgadToggle "Intuition Extension 1.3b Command: Set Igadget Toggle"
+@next C_SetIgadValue
+@prev C_SetIgadString
+
+SET IGADGET TOGGLE
+------------------
+
+Set Igadget Toggle n,x,y,w,h
+Set Igadget Toggle n,x,y,w,h,init
+
+Defines a toggle gadget.  N is the number of the gadget to define;
+x, y, w, and h define the gadget's position and size.  Init defines
+the initial state of the gadget: False puts the gadget in an "off"
+(unselected) state, while True puts it in an "on" (selected) state.
+The default is off.
+
+A toggle gadget must be at least 4 pixels wide and 4 pixels tall.
+
+See also: @{" Reserve Igadget     " link C_ReserveIgadget}
+	  @{" Set Igadget Hit     " link C_SetIgadToggle}
+	  @{" Set Igadget Hslider " link C_SetIgadSlider}
+	  @{" Set Igadget Int     " link C_SetIgadInt}
+	  @{" Set Igadget String  " link C_SetIgadString}
+	  @{" Set Igadget Vslider " link C_SetIgadSlider}
+
+@endnode
+
+@node C_SetIgadValue
+@next C_SetImenu
+@prev C_SetIgadToggle
+
+SET IGADGET VALUE
+SET IGADGET VALUE$
+------------------
+
+Set Igadget Value n,value
+Set Igadget Value$ n,value$
+
+Changes the value of an existing gadget.  N is the number of the
+gadget whose value you want to change; the value parameter is
+interpreted according to the type of the gadget, as follows:
+
+    Toggle gadget - On (non-zero value) or off (zero)
+    Slider	  - Position of the slider, in the units specified
+			when the gadget was created
+    Integer       - The new value of the gadget
+    String        - The new string to put into the gadget
+
+If you try to modify a hit-select gadget, an Illegal Function Call
+error will be generated.
+
+@endnode
+
+@node C_SetImenu "Intuition Extension 1.3b Command: Set Imenu"
+@next C_SetIpens
+@prev C_SetIgadValue
+
+SET IMENU
+---------
+
+Set Imenu s$,menu [,item [,sub]]
+
+Defines a menu, item, or subitem.  Menu is the menu number; it can
+range from 1 to 31.  Item, the item number, can be 1-63, and sub, the
+subitem number, can be 1-31.
+
+A menu is a set of options that the user can select to control the
+actions of a program.  A menu can contain zero or more items -
+although a menu with zero items is not very useful! - which are drawn
+underneath the menu when it is selected; that is, when the user
+presses the right mouse button and moves the pointer over the menu
+name.  Each of those items can have zero or more subitems.  If a menu
+item has subitems, then when the user places the pointer over the menu
+item, the list of subitems appears to the right of the menu item.
+
+By checking which menu item the user has selected (see the @{"=Ichoice " link C_Ichoice}
+function), you can act appropriately; for example, when the user
+chooses the "Quit" function, your program would close down and exit.
+
+Set Imenu creates or removes a menu, item, or subitem, depending on
+how many of menu, item, and sub you pass to Set Imenu.  When a menu is
+initially created, it contains no items; a newly-created item contains
+no subitems.  The menu's or item's string is set to s$.  If s$ is
+empty, the appropriate menu/item (along with all subitems) is deleted.
+An out-of-range value will cause an Illegal Function Call error; a
+value of 0 is equivalent to omitting the parameter.  If any parameter
+is included (and non-zero), all the parameters before it must also be
+included and non-zero.  So calling Set Imenu s$,1,0,2 will result in
+an error.
+
+In order for the user to be able to use the menus you have created,
+you will need to use the @{" Imenu On " link C_ImenuOnOff} instruction.  Once menus are
+activated, you cannot make any changes without first deactivating them
+(with @{" Imenu Off " link C_ImenuOnOff}).
+
+@endnode
+
+@node C_SetIpens "Intuition Extension 1.3b Command: Set Ipens"
+@next C_SetIscreen
+@prev C_SetImenu
+
+SET IPENS
+---------
+
+Set Ipens highlight,shadow
+
+Sets the pen numbers used in drawing gadget borders.  The highlight
+pen is used to draw the light part of the border of a toggle or hit-
+select gadget (the left and top borders when the gadget is not
+selected); the shadow pen is used to draw the dark part of the border
+(the right and bottom borders).  The shadow pen is also used to draw
+the borders for string and integer gadgets and sliders.
+
+@endnode
+
+@node C_SetIscreen "Intuition Extension 1.3b Command: Set Iscreen"
+@next C_SetIscreenTitle
+@prev C_SetIpens
+
+SET ISCREEN
+-----------
+
+Set Iscreen n
+
+Sets the current screen to screen number N.
+
+See also: @{"=Iscreen " link C_GetIscreen}
+
+@endnode
+
+@node C_SetIscreenTitle "Intuition Extension 1.3b Command: Set Iscreen Title"
+@next C_SetIscreen
+@prev C_SetIwindow
+
+SET ISCREEN TITLE
+-----------------
+
+Set Iscreen Title s$ [,n]
+
+Sets the title of the current screen (or screen number n) to s$.  This
+title is used if the active window has not defined its own title for
+the screen.
+
+See also: @{" Set Iwindow Title    " link C_SetIwindowTitle }
+          @{"=Iscreen Title Height " link C_IscrTitleHeight }
+
+@endnode
+
+@node C_SetIwindow "Intuition Extension 1.3b Command: Set Iwindow"
+@next C_SetIwindowTitle
+@prev C_SetIscreenTitle
+
+SET IWINDOW
+-----------
+
+Set Iwindow n
+
+Sets the current window to window number n on the current screen.
+
+See also: @{"=Iwindow        " link C_GetIwindow}
+	  @{" Set Iwindow Wb " link C_SetIwindowWB}
+
+@endnode
+
+@node C_SetIwindowTitle "Intuition Extension 1.3b Command: Set Iwindow Title"
+@next C_SetIwindowWB
+@prev C_SetIwindow
+
+SET IWINDOW TITLE
+-----------------
+
+Set Iwindow Title [n],[window$],[screen$]
+
+Sets the window and screen titles of window number n (or, if n is
+omitted, the current window) to window$ and screen$, respectively.  If
+either is omitted, the corresponding title string is unchanged.  The
+window title is displayed in the title bar; the screen title is
+shown in the screen title bar whenever the window is active.
+
+@endnode
+
+@node C_SetIwindowWB "Intuition Extension 1.3b Command: Set Iwindow Wb"
+@next C_Superhires
+@prev C_SetIwindowTitle
+
+SET IWINDOW WB
+--------------
+
+Set Iwindow Wb n
+
+Sets the current window to window number n on the Workbench screen.
+
+See also: @{"=Iwindow       " link C_GetIwindow}
+	  @{"=Iwindow On Wb " link C_IwindowOnWB}
+	  @{" Set Iwindow   " link C_SetIwindowWB}
+
+@endnode
+
+@node C_Superhires "Intuition Extension 1.3b Command: =Superhires"
+@next C_XHardMin
+@prev C_SetIwindowWB
+
+=SUPERHIRES
+-----------
+
+x=Superhires
+
+Returns the screen mode value for the SuperHires mode.
+
+See also: @{" Ehb " link C_Ehb}
+	  @{" Ham " link C_Ham}
+
+@endnode
+
+@node C_XHardMin "Intuition Extension 1.3b Command: =X Hard Min"
+@next C_XIhard
+@prev C_Superhires
+
+=X HARD MIN
+-----------
+
+x=X Hard Min
+
+Returns the minimum X hardware coordinate on the Intuition display.
+
+See also: @{"=Y Hard Min " link C_YHardMin}
+
+@endnode
+
+@node C_XIhard "Intuition Extension 1.3b Command: =X Ihard"
+@next C_XIscreen
+@prev C_XHardMin
+
+=X IHARD
+--------
+
+x2=X Ihard(x1)
+
+Converts screen X coordinate x1 to hardware X coordinate x2.
+
+See also: @{"=Y Ihard   " link C_YIhard}
+	  @{"=X Iscreen " link C_XIscreen}
+	  @{"=Y Iscreen " link C_YIscreen}
+
+@endnode
+
+@node C_XIscreen "Intuition Extension 1.3b Command: =X Iscreen"
+@next C_YHardMin
+@prev C_XIhard
+
+=X ISCREEN
+----------
+
+x2=X Iscreen(x1)
+
+Converts hardware X coordinate x1 to screen X coordinate x2.
+
+See also: @{"=X Ihard   " link C_XIhard}
+	  @{"=Y Ihard   " link C_YIhard}
+	  @{"=Y Iscreen " link C_YIscreen}
+
+@endnode
+
+@node C_YHardMin "Intuition Extension 1.3b Command: =Y Hard Min"
+@next C_YIhard
+@prev C_XIscreen
+
+=Y HARD MIN
+-----------
+
+y=Y Hard Min
+
+Returns the minimum Y hardware coordinate on the Intuition display.
+
+See also: @{"=X Hard Min " link C_XHardMin}
+
+@endnode
+
+@node C_YIhard "Intuition Extension 1.3b Command: =Y Ihard"
+@next C_YIscreen
+@prev C_YHardMin
+
+=Y IHARD
+--------
+
+y2=Y Ihard(y1)
+
+Converts screen Y coordinate y1 to hardware Y coordinate y2.
+
+See also: @{"=X Ihard   " link C_YIhard}
+	  @{"=X Iscreen " link C_XIscreen}
+	  @{"=Y Iscreen " link C_YIscreen}
+
+@endnode
+
+@node C_YIscreen "Intuition Extension 1.3b Command: =Y Iscreen"
+@prev C_YIhard
+
+=Y ISCREEN
+----------
+
+y2=Y Iscreen(y1)
+
+Converts hardware Y coordinate y1 to screen Y coordinate y2.
+
+See also: @{"=X Ihard   " link C_XIhard}
+	  @{"=Y Ihard   " link C_YIhard}
+	  @{"=X Iscreen " link C_XIscreen}
+
+@endnode
diff --git a/extensions/Intuition-41.95/Intuition/lc b/extensions/Intuition-41.95/Intuition/lc
new file mode 100644
index 0000000..1b96d17
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/lc
@@ -0,0 +1 @@
+wc src/#?.(s|i) src2/#?.(s|i)
diff --git a/extensions/Intuition-41.95/Intuition/makefile b/extensions/Intuition-41.95/Intuition/makefile
new file mode 100644
index 0000000..b53e68e
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/makefile
@@ -0,0 +1,200 @@
+# Makefile for Intuition Extension
+
+VERSION = 1.3b
+
+PROPATH = DH1:APSystem/
+CREPATH = DH1:AMOS_System/
+
+# Sources for the main extension code.  Don't fool with the order or you'll
+# regret it!
+INTSRC0 = iheader.s itokens.s intuition.s extutils.s screens.s color.s \
+	windows.s fonts.s input.s errorstubs.s text.s graphics.s request.s \
+	menus.s gadgets.s other.s extcode.s errors.s
+
+INTSRC = %(INTSRC0:*:src/%1)
+
+# Object files for external code segment.  jumptable.o must be first!
+EXTOBJ=	obj/jumptable.o	\
+	obj/amosfuncs.o	obj/errors.o	obj/graphics.o	obj/input.o	\
+	obj/intmisc.o	obj/iutils.o	obj/memory.o	obj/screens.o	\
+	obj/startup.o	obj/windows.o
+EXTOBJ_C = %(EXTOBJ:obj/*:obj/creator/%1)
+EXTSRC = %(EXTOBJ:obj/*.o:src2/%1.s)
+EXTERNAL = obj/extcode
+EXTERNAL_C = obj/creator/extcode
+
+# Object files for unregistered version of external code.  Note that many
+# don't need to be reassembled.
+EXTOBJU=obj/jumptable.o	\
+	obj/amosfuncs.o	obj/errors.o	obj/graphics.o	obj/input.o	\
+	obj/intmisc.o	obj/iutils.o	obj/memory.o	obju/screens.o	\
+	obj/startup.o	obju/windows.o
+EXTOBJU_C = %(EXTOBJ:*/*:%1/creator/%2)
+# Object files which do need to be reassembled:
+EXTOBJUONLY = obju/screens.o obju/windows.o
+EXTOBJUONLY_C = %(EXTOBJUONLY:obju/*:obju/creator/%1)
+EXTSRCUONLY = %(EXTOBJUONLY:obju/*.o:src2/%1.s)
+
+EXTERNALU = obju/extcode
+EXTERNALU_C = obju/creator/extcode
+
+
+default: pro
+
+all: pro creator pro-unreg creator-unreg
+
+both: pro creator
+
+unreg: pro-unreg creator-unreg
+
+arc: arc-full arc-demo
+
+
+pro: $(PROPATH)intuition.lib
+
+creator: $(CREPATH)intuition.lib
+
+pro-unreg: $(PROPATH)intuition_unreg.lib
+
+creator-unreg: $(CREPATH)intuition_unreg.lib
+
+clean:
+	rm $(EXTERNAL) $(EXTERNAL_C) $(EXTERNALU) $(EXTERNALU_C)
+	rm obj/\#?.o obju/\#?.o obj/creator/\#?.o obju/creator/\#?.o
+
+spotless: clean
+	rm $(PROPATH)intuition.lib $(PROPATH)intuition_unreg.lib
+	rm $(CREPATH)intuition.lib $(CREPATH)intuition_unreg.lib
+	touch src/defs.i
+
+
+$(PROPATH)intuition.lib : \
+		$(EXTERNAL) $(INTSRC) src/offsets.i src/defs.i src/macros.i
+	/extasm src/intuition.s -o%(left)
+
+$(CREPATH)intuition.lib : \
+		$(EXTERNAL_C) $(INTSRC) src/offsets.i src/defs.i src/macros.i
+	/extasm src/intuition.s -SCREATOR -o%(left)
+
+$(PROPATH)intuition_unreg.lib : \
+		$(EXTERNALU) $(INTSRC) src/offsets.i src/defs.i src/macros.i
+	/extasm src/intuition.s -SUNREGISTERED -o%(left)
+
+$(CREPATH)intuition_unreg.lib : \
+		$(EXTERNALU_C) $(INTSRC) src/offsets.i src/defs.i src/macros.i
+	/extasm src/intuition.s -SCREATOR -SUNREGISTERED -o%(left)
+
+
+$(EXTERNALU) : $(EXTOBJU)
+	dlink -o%(left) %(right)
+
+$(EXTERNAL) : $(EXTOBJ)
+	dlink -o%(left) %(right)
+
+$(EXTERNALU_C) : $(EXTOBJU_C)
+	dlink -o%(left) %(right)
+
+$(EXTERNAL_C) : $(EXTOBJ_C)
+	dlink -o%(left) %(right)
+
+$(EXTOBJ): $(EXTSRC)
+	as -o%(left) %(right) -isrc -d
+
+$(EXTOBJ_C): $(EXTSRC)
+	as -o%(left) %(right) -isrc -d -SCREATOR
+
+$(EXTOBJUONLY) : $(EXTSRCUONLY)
+	as -o%(left) %(right) -isrc -d -SUNREGISTERED
+
+$(EXTOBJUONLY_C) : $(EXTSRCUONLY)
+	as -o%(left) %(right) -isrc -d -SCREATOR -SUNREGISTERED
+
+$(EXTOBJ) $(EXTOBJ_C) $(EXTOBJUONLY) $(EXTOBJUONLY_C) :: \
+					src/defs.i src/macros.i src/macros2.i
+
+src/defs.i : src/data.i
+	touch %(left)
+
+#####
+
+arc-beta:
+	@-makedir temp:Intuition
+	@copy drawer.info temp:Intuition.info
+	@-makedir temp:Intuition/AMOS_System
+	@-makedir temp:Intuition/APSystem
+	@copy progs/IntuiViewer.amos temp:Intuition clone
+#	@copy amos:games/Shanghai.AMOS temp:Intuition clone
+	@copy ~(Shanghai).guide temp:Intuition clone quiet
+	@copy $(PROPATH)Intuition.lib temp:Intuition/apsystem clone
+	@copy $(CREPATH)Intuition.lib temp:Intuition/amos_system clone
+	@copy src/IntRoutines.i temp:Intuition clone
+	@echo >t:xyz cd temp:
+	@echo >>t:xyz lha -rx m IntExtBeta Intuition
+	@echo >>t:xyz uuencode IntExtBeta.lha IntExtBeta.uu
+	@execute t:xyz
+	@delete temp:IntExtBeta.lha t:xyz temp:Intuition all quiet
+
+arc-demo:
+	@-makedir temp:Intuition
+	@copy drawer.info temp:Intuition.info clone
+	@-makedir temp:Intuition/AMOS_System
+	@-makedir temp:Intuition/APSystem
+	@copy progs/IntuiViewer.AMOS temp:Intuition clone quiet
+	@copy IntuiViewer.guide temp:Intuition clone quiet
+	@copy $(PROPATH)Def_icon.info temp:Intuition/IntuiViewer.AMOS.info
+	@acomp temp:Intuition/IntuiViewer wb inclib quiet
+	@copy $(PROPATH)Def_Compiled.info temp:Intuition/IntuiViewer.info
+	@patch <intuition.guide.diff -o temp:Intuition/Intuition.guide
+	@copy Intuition.guide.info temp:Intuition clone
+	@copy IntuiViewer.guide temp:Intuition clone
+@#	@copy Shanghai.guide temp:Intuition clone
+@#	@copy amos:games/Shanghai.AMOS temp:Intuition clone
+@#	@copy $(PROPATH)Def_icon.info temp:Intuition/Shanghai.AMOS.info clone
+@#	@acomp temp:Intuition/Shanghai wb inclib quiet
+@#	@copy $(PROPATH)Def_Compiled.info temp:Intuition/Shanghai.info clone
+	@copy $(PROPATH)intuition_unreg.lib temp:Intuition/apsystem/Intuition.Lib clone
+	@copy $(CREPATH)intuition_unreg.lib temp:Intuition/amos_system/Intuition.Lib clone
+	@copy Intuition.Lib.info temp:Intuition/apsystem clone
+	@copy Intuition.Lib.info temp:Intuition/amos_system clone
+	@copy drawer.info temp:Intuition/APSystem.info clone
+	@copy drawer.info temp:Intuition/AMOS_System.info clone
+	@copy Registration.txt temp:Intuition clone
+	@copy src/IntRoutines.i temp:Intuition clone
+	@-copy README.$(VERSION) temp:Intuition/README clone
+	@echo >t:xyz cd temp:
+	@echo >>t:xyz lha -rx m IntExtDemo.lha Intuition Intuition.info
+	@echo >>t:xyz uuencode IntExtDemo.lha IntExtDemo.uu IntExt$(VERSION)-Demo.lha
+	@execute t:xyz
+	@delete temp:IntExtDemo.lha t:xyz temp:Intuition all quiet
+@delete t:xyz temp:Intuition all quiet
+
+arc-full:
+	@-makedir temp:Intuition
+	@copy drawer.info temp:Intuition.info clone
+	@-makedir temp:Intuition/AMOS_System
+	@-makedir temp:Intuition/APSystem
+@#	@copy progs/IntuiViewer.AMOS temp:Intuition clone quiet
+@#	@copy IntuiViewer.guide temp:Intuition clone quiet
+@#	@copy $(PROPATH)Def_icon.info temp:Intuition/IntuiViewer.AMOS.info
+@#	@acomp temp:Intuition/IntuiViewer wb inclib quiet
+@#	@copy $(PROPATH)Def_Compiled.info temp:Intuition/IntuiViewer.info
+@#	@copy Shanghai.guide temp:Intuition clone
+@#	@copy amos:games/Shanghai.AMOS temp:Intuition clone
+@#	@copy $(PROPATH)Def_icon.info temp:Intuition/Shanghai.AMOS.info clone
+@#	@acomp temp:Intuition/Shanghai wb inclib quiet
+@#	@copy $(PROPATH)Def_Compiled.info temp:Intuition/Shanghai.info clone
+	@copy Intuition.guide temp:Intuition clone
+	@copy Intuition.guide.info temp:Intuition clone
+	@copy $(PROPATH)Intuition.lib temp:Intuition/apsystem clone
+	@copy $(CREPATH)Intuition.lib temp:Intuition/amos_system clone
+	@copy Intuition.Lib.info temp:Intuition/apsystem clone
+	@copy Intuition.Lib.info temp:Intuition/amos_system clone
+	@copy drawer.info temp:Intuition/APSystem.info clone
+	@copy drawer.info temp:Intuition/AMOS_System.info clone
+	@copy src/IntRoutines.i temp:Intuition clone
+	@-copy README.$(VERSION) temp:Intuition/README clone
+	@echo >t:xyz cd temp:
+	@echo >>t:xyz lha -rx m IntExtFull Intuition Intuition.info
+	@echo >>t:xyz uuencode IntExtFull.lha IntExtFull.uu IntExt$(VERSION).lha
+	@execute t:xyz
+	@delete temp:IntExtFull.lha t:xyz temp:Intuition all quiet
diff --git a/extensions/Intuition-41.95/Intuition/obj/amosfuncs.o b/extensions/Intuition-41.95/Intuition/obj/amosfuncs.o
new file mode 100644
index 0000000..ce9f708
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/amosfuncs.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/amosfuncs.o b/extensions/Intuition-41.95/Intuition/obj/creator/amosfuncs.o
new file mode 100644
index 0000000..d0c4c12
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/amosfuncs.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/errors.o b/extensions/Intuition-41.95/Intuition/obj/creator/errors.o
new file mode 100644
index 0000000..c4e8105
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/errors.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/extcode b/extensions/Intuition-41.95/Intuition/obj/creator/extcode
new file mode 100644
index 0000000..84a62f7
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/extcode differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/graphics.o b/extensions/Intuition-41.95/Intuition/obj/creator/graphics.o
new file mode 100644
index 0000000..b1c31f5
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/graphics.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/input.o b/extensions/Intuition-41.95/Intuition/obj/creator/input.o
new file mode 100644
index 0000000..5ac5799
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/input.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/intmisc.o b/extensions/Intuition-41.95/Intuition/obj/creator/intmisc.o
new file mode 100644
index 0000000..2ae41d5
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/intmisc.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/iutils.o b/extensions/Intuition-41.95/Intuition/obj/creator/iutils.o
new file mode 100644
index 0000000..9eaf62a
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/iutils.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/jumptable.o b/extensions/Intuition-41.95/Intuition/obj/creator/jumptable.o
new file mode 100644
index 0000000..454e9de
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/jumptable.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/memory.o b/extensions/Intuition-41.95/Intuition/obj/creator/memory.o
new file mode 100644
index 0000000..9f08d6f
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/memory.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/screens.o b/extensions/Intuition-41.95/Intuition/obj/creator/screens.o
new file mode 100644
index 0000000..7f45844
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/screens.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/startup.o b/extensions/Intuition-41.95/Intuition/obj/creator/startup.o
new file mode 100644
index 0000000..29ae946
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/startup.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/creator/windows.o b/extensions/Intuition-41.95/Intuition/obj/creator/windows.o
new file mode 100644
index 0000000..9b08b9b
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/creator/windows.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/errors.o b/extensions/Intuition-41.95/Intuition/obj/errors.o
new file mode 100644
index 0000000..c4e8105
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/errors.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/extcode b/extensions/Intuition-41.95/Intuition/obj/extcode
new file mode 100644
index 0000000..8e57bca
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/extcode differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/graphics.o b/extensions/Intuition-41.95/Intuition/obj/graphics.o
new file mode 100644
index 0000000..b1c31f5
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/graphics.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/input.o b/extensions/Intuition-41.95/Intuition/obj/input.o
new file mode 100644
index 0000000..5ac5799
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/input.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/intmisc.o b/extensions/Intuition-41.95/Intuition/obj/intmisc.o
new file mode 100644
index 0000000..2ae41d5
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/intmisc.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/iutils.o b/extensions/Intuition-41.95/Intuition/obj/iutils.o
new file mode 100644
index 0000000..9eaf62a
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/iutils.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/jumptable.o b/extensions/Intuition-41.95/Intuition/obj/jumptable.o
new file mode 100644
index 0000000..454e9de
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/jumptable.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/memory.o b/extensions/Intuition-41.95/Intuition/obj/memory.o
new file mode 100644
index 0000000..9f08d6f
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/memory.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/screens.o b/extensions/Intuition-41.95/Intuition/obj/screens.o
new file mode 100644
index 0000000..7f45844
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/screens.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/startup.o b/extensions/Intuition-41.95/Intuition/obj/startup.o
new file mode 100644
index 0000000..29ae946
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/startup.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obj/windows.o b/extensions/Intuition-41.95/Intuition/obj/windows.o
new file mode 100644
index 0000000..9b08b9b
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obj/windows.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obju/creator/extcode b/extensions/Intuition-41.95/Intuition/obju/creator/extcode
new file mode 100644
index 0000000..84a62f7
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obju/creator/extcode differ
diff --git a/extensions/Intuition-41.95/Intuition/obju/extcode b/extensions/Intuition-41.95/Intuition/obju/extcode
new file mode 100644
index 0000000..fdcb1f7
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obju/extcode differ
diff --git a/extensions/Intuition-41.95/Intuition/obju/screens.o b/extensions/Intuition-41.95/Intuition/obju/screens.o
new file mode 100644
index 0000000..c6c94d8
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obju/screens.o differ
diff --git a/extensions/Intuition-41.95/Intuition/obju/windows.o b/extensions/Intuition-41.95/Intuition/obju/windows.o
new file mode 100644
index 0000000..11d320a
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/obju/windows.o differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/bcollin.amos b/extensions/Intuition-41.95/Intuition/progs/bcollin.amos
new file mode 100644
index 0000000..f85e0e1
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/bcollin.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/bug1.amos b/extensions/Intuition-41.95/Intuition/progs/bug1.amos
new file mode 100644
index 0000000..c3f2173
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/bug1.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/bug2.amos b/extensions/Intuition-41.95/Intuition/progs/bug2.amos
new file mode 100644
index 0000000..ce9a9ed
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/bug2.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/bug2.asc b/extensions/Intuition-41.95/Intuition/progs/bug2.asc
new file mode 100644
index 0000000..5c50e01
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/progs/bug2.asc
@@ -0,0 +1,22 @@
+Wait Key 
+Print "1"
+Iscreen_open 1,320,200,16,Lowres,"Test 4"
+Wait Key 
+Print "2"
+Iwindow Open 1,0,0,320,200
+Wait Key 
+Print "3"
+Reserve Igadget 1
+Wait Key 
+Print "4"
+Set Igadget String 1,50,50,100,14,20,"Test"
+Wait Key 
+Print "5"
+TEL=5
+Repeat 
+   Inc TEL
+   Wait Key 
+   Print TEL
+   A$=Igadget Read$(1)
+Until A$="Quit"
+	    
diff --git a/extensions/Intuition-41.95/Intuition/progs/bug3.asc b/extensions/Intuition-41.95/Intuition/progs/bug3.asc
new file mode 100644
index 0000000..85eab11
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/progs/bug3.asc
@@ -0,0 +1,35 @@
+'System: A500 ECS 2.1OS AMOS Pro
+'
+'Problem: Window never becomes active and attempts to do so crash out.
+'
+'Example Prg:
+'
+Amos To Back
+
+Iwindow Open Wb 7,50,50,400,100,"Workbench has been invaded!",63
+Iwrite "opened window"
+
+Iclw 6
+Iwrite "clear in colour 6"
+
+A=Iwindow On Wb
+Iwrite Str$(A)
+
+Iwindow Activate 7
+Iwrite "activate window"
+
+
+Do
+EVENT=Iwait Event
+If EVENT=Ievent Close Then Exit
+Loop
+
+Iwindow Close Wb 1
+
+Amos To Front
+
+
+'Symptoms:  Window opens on WB deactivated
+'           Iclw clears to colour 0 not colour 6 as specified
+'           Iwindow On Wb returns -1 since window is on WB
+'           Guru (error #80000003)
diff --git a/extensions/Intuition-41.95/Intuition/progs/bug4.asc b/extensions/Intuition-41.95/Intuition/progs/bug4.asc
new file mode 100644
index 0000000..7f6ee3b
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/progs/bug4.asc
@@ -0,0 +1,32 @@
+Date: Fri, 24 Nov 1995 13:12:28 -0500
+From: Mark Coles <joehick@ophelia.waterloo.net>
+To: achurch@goober.mbhs.edu
+Subject: Intuition
+Mime-Version: 1.0
+
+Amos Pro 2.0
+Workbench 3.1
+
+Amos To Back 
+Iscreen Open 1,640,200,4,Hires,"Movie Database"
+Iink 2,0
+Ibox 0,11 To 639,199
+Iink 1,0
+Idraw 639,12 To 639,199
+Idraw 1,199 To 639,199
+
+Reserve Igadget 10
+Set Igadget String 1,50,50,100,12,70,"test",0
+Igadget Active 
+
+Iwait Key 
+Iscreen Close 1
+Amos To Front 
+End 
+
+This locks me up every time.  What's the latest version of the 
+extension?  I haven't heard of anything since I first got it.
+
+Well met and godspeed,
+                      Giark
+joehick@ophelia.waterloo.net
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest.Bak b/extensions/Intuition-41.95/Intuition/progs/inttest.Bak
new file mode 100644
index 0000000..f208166
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest.Bak differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest.amos b/extensions/Intuition-41.95/Intuition/progs/inttest.amos
new file mode 100644
index 0000000..115447f
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest1.amos b/extensions/Intuition-41.95/Intuition/progs/inttest1.amos
new file mode 100644
index 0000000..5d31f2b
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest1.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest2.amos b/extensions/Intuition-41.95/Intuition/progs/inttest2.amos
new file mode 100644
index 0000000..75dfe06
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest2.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest3.amos b/extensions/Intuition-41.95/Intuition/progs/inttest3.amos
new file mode 100644
index 0000000..a6b9cf3
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest3.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest4.amos b/extensions/Intuition-41.95/Intuition/progs/inttest4.amos
new file mode 100644
index 0000000..d0b3257
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest4.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest5.amos b/extensions/Intuition-41.95/Intuition/progs/inttest5.amos
new file mode 100644
index 0000000..38e749d
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest5.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/inttest6.amos b/extensions/Intuition-41.95/Intuition/progs/inttest6.amos
new file mode 100644
index 0000000..6da6518
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/inttest6.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/intuiviewer.amos b/extensions/Intuition-41.95/Intuition/progs/intuiviewer.amos
new file mode 100644
index 0000000..20d5222
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/intuiviewer.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/test0 b/extensions/Intuition-41.95/Intuition/progs/test0
new file mode 100644
index 0000000..db0803b
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/test0 differ
diff --git a/extensions/Intuition-41.95/Intuition/progs/test0.amos b/extensions/Intuition-41.95/Intuition/progs/test0.amos
new file mode 100644
index 0000000..a02ba03
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/progs/test0.amos differ
diff --git a/extensions/Intuition-41.95/Intuition/routine.codes b/extensions/Intuition-41.95/Intuition/routine.codes
new file mode 100644
index 0000000..e11531b
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/routine.codes
@@ -0,0 +1,174 @@
+intuition.a
+-----------
+465F30	L_0 (startup)
+2D4341	  CloseAll
+2D5175	  Quit
+
+amosfuncs.a
+-----------
+474241	L_GetBankAdr
+
+iutils.a
+--------
+464963	L_FindIcon
+C64D75	L_FreeImenu
+C64D49	L_FreeImenuItem
+464D75	L_FindImenu
+464D49	L_FindImenuItem
+464D53	L_FindImenuSub
+4757FF	L_GetCurWin
+534352	L_SetCoordsRel
+414D43	L_AllocMemClear
+415452	L_AllocTmpRas
+C65452	L_FreeTmpRas
+537441	L_StrAlloc
+5374C6	L_StrFree
+465363	L_FindIscr
+475363	L_GetCurIscr
+465764	L_FindIwin
+465757	L_FindWBIwin
+475764	L_GetCurIwin
+475732	L_GetCurIwin2
+475250	L_GetCurRP
+434353	L_CheckCloseIscr
+435363	L_CloseIscr
+435764	L_CloseIwin
+435757	L_CloseWBIwin
+47496E	L_GetCurInput
+43524B	L_ConvRawKey
+444576	L_DoEvent
+6B655F	L__GetKey
+6D655F	L__GetMouse
+75655F	L__GetMenu
+4D756C	L_LongMul
+446976	L_LongDiv
+53436F	L_SetCoords
+475746	L_GetWinFlags
+47D746	L_GetSomeWinFlags
+535746	L_SetWinFlags
+53D746	L_SetSomeWinFlags
+474157	L_GetActiveWin
+53744C	L_StrLen
+527453	L_ReturnString
+475253	L_GetRetStr
+525453	L_RTS
+415271	L_AllocRequest
+455A52	L_EZRequest
+437250	L_CreatePort
+446C50	L_DeletePort
+525078	L_ReadPixel
+575078	L_WritePixel
+
+screens.a
+---------
+48414D	L_HAM
+454842	L_EHB
+534869	L_SuperHires
+414741	L_AGA
+454353	L_ECS
+58484D	L_XHardMin
+59484D	L_YHardMin
+534F70	L_IscreenOpen
+534F32	L_IscreenOpenNT
+534F31	L_IscreenOpenNM
+534F30	L_IscreenOpen0
+534F50	L_IscrOpenPublic
+534FB2	L_IscrOpenPubNT
+534FB1	L_IscrOpenPubNM
+534FB0	L_IscrOpenPub0
+536343	L_IscreenClose
+536347	L_IscreenGet
+536353	L_IscreenSet
+536346	L_IscrFront
+435346	L_CurIscrFront
+536342	L_IscrBack
+435342	L_CurIscrBack
+534273	L_IscreenBase
+536344	L_IscreenDisp
+53634F	L_IscreenOfs
+534757	L_GetIscrWidth
+534357	L_GetCISWidth
+534748	L_GetIscrHeight
+534348	L_GetCISHeight
+534743	L_GetIscrCols
+534343	L_GetCISCols
+53474D	L_GetIscrMode
+53434D	L_GetCISMode
+534370	L_IscreenCopy
+534332	L_IscreenCopy2
+584968	L_XIhard
+584973	L_XIscreen
+594968	L_YIhard
+594973	L_YIscreen
+436F47	L_IcolourGet
+436F53	L_IcolourSet
+503X3Y	L_IpaletteXY
+505370	L_IgetSprPal
+505330	L_IgetSprPal0
+504963	L_IgetIconPal
+504930	L_IgetIconPal0
+
+windows.a
+---------
+574FFF	L_IwinOpen
+57644F	L_IwindowOpen
+5764CF	L_IwindowOpenNT
+57574F	L_IwindowOpenWB
+5757CF	L_IwindowOpenWB_NT
+576443	L_IwindowClose
+575743	L_IwindowCloseWB
+576453	L_IwindowSet
+576447	L_IwindowGet
+575753	L_IwindowSetWB
+575742	L_IwindowOnWB
+576446	L_IwindowToFront
+575746	L_CurIwinToFront
+576442	L_IwindowToBack
+575742	L_CurIwinToBack
+57644D	L_IwindowMove
+57645A	L_IwindowSize
+576458	L_IwindowX
+435758	L_CurIwindowX
+576459	L_IwindowY
+435759	L_CurIwindowY
+576457	L_IwindowWidth
+435757	L_CurIwindowWidth
+576448	L_IwindowHeight
+435748	L_CurIwindowHeight
+574273	L_IwindowBase
+576441	L_IwindowActivate
+574163	L_IwindowActive
+57414E	L_IwindowActiveNum
+574142	L_IwindowActiveBase
+435753	L_CurIwindowStatus
+574753	L_IwindowStatus
+
+fonts.a
+-------
+547842	L_ItextBase
+54784C	L_ItextLength
+544653	L_SetIfont
+5446D3	L_SetIfont1
+54464E	L_IfontName
+544642	L_IfontBase
+544648	L_IfontHeight
+
+gadgets.a
+---------
+524767	L_ReserveIgadget
+524730	L_ReserveIgadget0
+534754	L_SetIgadToggle
+534748	L_SetIgadHslider
+534756	L_SetIgadVslider
+534753	L_SetIgadString
+534749	L_SetIgadInt
+474F6E	L_IgadgetOn
+476E41	L_IgadgetOnAll
+474F66	L_IgadgetOff
+476641	L_IgadgetOffAll
+474163	L_IgadgetActive
+474141	L_IgadgetActiveAll
+47496E	L_IgadgetInactive
+474941	L_IgadgetInactiveAll
+475265	L_IgadgetRead
+475253	L_IgadgetReadStr
diff --git a/extensions/Intuition-41.95/Intuition/screenmodes.txt b/extensions/Intuition-41.95/Intuition/screenmodes.txt
new file mode 100644
index 0000000..b8aa3bc
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/screenmodes.txt
@@ -0,0 +1,37 @@
+From achurch@goober Mon, 10 Apr 95 06:32:00
+To: achurch@goober.mbhs.edu
+
+Greetings:
+
+ Screen modes reported as follows:
+
+        NTSC      - 00011000
+        Multiscan - 00031000
+        Euro 72   - 00061000
+        Euro 36   - 00071000
+        DBLNTSC   - 00091000
+
+ Dblntsc reported some extra screen modes at 00091200, 
+    but $91000 works perfectly.
+
+ As for my Ipalette problem, I'm using AMOS 2.0 compiler, and amiga dos
+ 2.04 and 3.0.
+ This is enough to crash my computer:
+    Iscreen Open 1,640,200,4,Hires,"s_test" : Iwait Vbl
+    Ipalette $987,$0,$EEF,$6C
+
+ How do I set the X,Y,W,H of requestor windows?
+
+ allso heres some ideas for new commands:
+
+   Iscreen Height Wb
+   Iscreen Width Wb
+   Iscreen Colour Wb
+   Iscreen Mode Wb
+
+   you need a screen setting (eg. hires, lowres) for Productivity.
+
+ If I and my 1200 can be of any more help, just mail :)
+
+Brad G. 
+
diff --git a/extensions/Intuition-41.95/Intuition/src/IntRoutines.i b/extensions/Intuition-41.95/Intuition/src/IntRoutines.i
new file mode 100644
index 0000000..f200459
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/IntRoutines.i
@@ -0,0 +1,63 @@
+;The Intuition Extension includes a few routines that other extensions
+;(or any assembler code) can call to access Intuition data.  The routine
+;addresses are stored in a table, which can be accessed using the
+;following instructions:
+;
+;	move.l	ExtAdr+IntExtNum*16(a5),a0
+;	move.l	4(a0),a0
+;
+;Then, a routine would be called like this:
+;
+;	jsr	RoutineName(a0)
+;
+;(Of course, you can substitute any address register you want in place
+;of A0.)
+;
+;See below for making sure the branch table exists and contains the
+;functions you need.
+;
+;The routines are:
+;
+;   IscreenAdr: get the address of a screen
+;	Input:	D0 = screen number
+;	Output:	D0 = screen address or NULL
+;
+;   IwindowAdr: get the address of a window
+;	Input:	D0 = window number
+;		A0 = screen address, NULL for current screen, or
+;		     -1 for Workbench
+;	Output:	D0 = window address or NULL
+;
+;   CurIscreenAdr: get the current screen's address
+;	Input:	none
+;	Output: D0 = screen address or NULL
+;
+;   CurIwindowAdr: get the current window's address
+;	Input:	none
+;	Output:	D0 = window address or NULL
+;
+;The routines preserve all registers, except for return values.
+
+
+;The extension number.
+
+IntExtNum	equ 14
+
+;The identification word for the extension.  This is at the beginning
+;of the extension's data buffer, i.e. at ExtAdr+(IntExtNum-1)*16(a5).
+;If this word is not present, you are using an old version of the
+;extension without a branch table.
+
+IntuitionID	equ 'IE'
+
+;The word immediately following the ID is a branch table version
+;number.  You may only call functions with a version number less than
+;or equal to this value.  (The version number of a function is the
+;last version number listed in the table below that precedes the
+;function definition.)
+
+;Version 0
+IscreenAdr	equ 0
+IwindowAdr	equ 4
+CurIscreenAdr	equ 8
+CurIwindowAdr	equ 12
diff --git a/extensions/Intuition-41.95/Intuition/src/color.s b/extensions/Intuition-41.95/Intuition/src/color.s
new file mode 100644
index 0000000..6c953df
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/color.s
@@ -0,0 +1,386 @@
+;Colour-fiddling instructions
+L_IcolourGet:		;=Icolour(n)
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_ViewPort+vp_ColorMap(a0),a0
+	move.l	(a3)+,d0
+	gfxcall	GetRGB4
+	move.l	d0,d3
+	bmi	L_IllFunc
+	moveq	#0,d2
+	ret
+
+L_IcolourSet:		;Icolour n,c
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	lea	sc_ViewPort(a0),a0
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	move.l	vp_ColorMap(a0),a1
+	cmp.w	cm_Count(a1),d0
+	bcc	L_IllFunc
+	move.w	d1,d2
+	move.w	d1,d3
+	lsr.w	#8,d1
+	and.w	#$F,d1
+	lsr.w	#4,d2
+	and.w	#$F,d2
+	and.w	#$F,d3
+	gfxcall	SetRGB4
+	ret
+
+
+;Ipalette disabled because it's unstable.
+
+    ifne 0
+;EXTASM: DNOTDEF
+
+L_Ipalette:	;Ipalette for any number of args.  Pass number of args in *D7*.
+	pstart
+	dmove.l	GfxBase,a6
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	lea	sc_ViewPort(a0),a0
+	move.l	vp_ColorMap(a0),a2
+	move.w	d7,d2
+	subq.w	#1,d2
+.lp	move.l	(a3)+,d0
+	cmp.l	#Null,d0
+	bne	.endlp
+	move.l	d2,d0
+	move.l	a0,-(a7)
+	move.l	a2,a0
+	call	GetRGB4
+	move.l	(a7)+,a0
+.endlp	move.w	d0,-(a7)
+	dbra	d2,.lp
+	move.l	a7,a1
+	move.w	d7,d0
+	call	LoadRGB4
+	lsl.w	#1,d7
+	add.l	d7,a7
+	ret
+
+L_Ipalette1:
+	moveq	#1,d0
+	bra	L_Ipalette
+
+L_Ipalette2:
+	moveq	#2,d0
+	bra	L_Ipalette
+
+L_Ipalette3:
+	moveq	#3,d0
+	bra	L_Ipalette
+
+L_Ipalette4:
+	moveq	#4,d0
+	bra	L_Ipalette
+
+L_Ipalette5:
+	moveq	#5,d0
+	bra	L_Ipalette
+
+L_Ipalette6:
+	moveq	#6,d0
+	bra	L_Ipalette
+
+L_Ipalette7:
+	moveq	#7,d0
+	bra	L_Ipalette
+
+L_Ipalette8:
+	moveq	#8,d0
+	bra	L_Ipalette
+
+L_Ipalette9:
+	moveq	#9,d0
+	bra	L_Ipalette
+
+      ifd CREATOR
+;;EXTASM: DCREATOR
+
+L_Ipalette10:
+	moveq	#10,d0
+	bra	L_Ipalette
+
+L_Ipalette11:
+	moveq	#11,d0
+	bra	L_Ipalette
+
+L_Ipalette12:
+	moveq	#12,d0
+	bra	L_Ipalette
+
+L_Ipalette13:
+	moveq	#13,d0
+	bra	L_Ipalette
+
+L_Ipalette14:
+	moveq	#14,d0
+	bra	L_Ipalette
+
+L_Ipalette15:
+	moveq	#15,d0
+	bra	L_Ipalette
+
+L_Ipalette16:
+	moveq	#16,d0
+	bra	L_Ipalette
+
+L_Ipalette17:
+	moveq	#17,d0
+	bra	L_Ipalette
+
+L_Ipalette18:
+	moveq	#18,d0
+	bra	L_Ipalette
+
+L_Ipalette19:
+	moveq	#19,d0
+	bra	L_Ipalette
+
+L_Ipalette20:
+	moveq	#20,d0
+	bra	L_Ipalette
+
+L_Ipalette21:
+	moveq	#21,d0
+	bra	L_Ipalette
+
+L_Ipalette22:
+	moveq	#22,d0
+	bra	L_Ipalette
+
+L_Ipalette23:
+	moveq	#23,d0
+	bra	L_Ipalette
+
+L_Ipalette24:
+	moveq	#24,d0
+	bra	L_Ipalette
+
+L_Ipalette25:
+	moveq	#25,d0
+	bra	L_Ipalette
+
+L_Ipalette26:
+	moveq	#26,d0
+	bra	L_Ipalette
+
+L_Ipalette27:
+	moveq	#27,d0
+	bra	L_Ipalette
+
+L_Ipalette28:
+	moveq	#28,d0
+	bra	L_Ipalette
+
+L_Ipalette29:
+	moveq	#29,d0
+	bra	L_Ipalette
+
+L_Ipalette30:
+	moveq	#30,d0
+	bra	L_Ipalette
+
+L_Ipalette31:
+	moveq	#31,d0
+	bra	L_Ipalette
+
+L_Ipalette32:
+	moveq	#32,d0
+	bra	L_Ipalette
+
+;;EXTASM: E
+      else ;Pro
+;;EXTASM: NCREATOR
+
+L_Ipalette10:	;for all #'s of colours >9
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	lea	sc_ViewPort(a0),a0
+	move.l	vp_ColorMap(a0),a5	;oops - have to write over AMOS's A5
+	moveq	#0,d0
+.lp0	tst.w	(a6)		;only 9 colours on A3 stack, rest at A6
+	beq	.endlp0
+	addq.l	#8,a6
+	addq.w	#1,d0
+	bra	.lp0
+.endlp0	move.l	a7,a2		;save old A7
+	fixA6	4		;tell AMOS we got the extra parameters
+	move.l	a6,a1
+	dmove.l	GfxBase,a6
+	move.w	d0,d1
+	subq.w	#1,d1
+	add.w	#9,d0
+.lp1	move.l	-(a1),d2
+	subq.l	#4,a1
+	cmp.l	#Null,d2
+	bne	.endlp1
+	move.l	a5,a0
+	movem.l	d0-d1/a1,-(a7)
+	add.w	#9,d1
+	move.l	d1,d0
+	move.l	a5,a0
+	call	GetRGB4
+	move.w	d0,d2
+	movem.l	(a7)+,d0-d1/a1
+.endlp1	move.w	d2,-(a7)
+	dbra	d1,.lp1
+	moveq	#8,d1
+.lp2	move.l	(a3)+,d2
+	cmp.l	#Null,d2
+	bne	.endlp2
+	movem.l	d0-d1,-(a7)
+	move.l	d1,d0
+	move.l	a5,a0
+	call	GetRGB4
+	move.w	d0,d2
+	movem.l	(a7)+,d0-d1
+.endlp2	move.w	d2,-(a7)
+	dbra	d1,.lp2
+	move.l	a7,a1
+	call	LoadRGB4
+	move.l	a2,a7
+	move.l	(a7)+,a5
+	ret
+
+;;EXTASM: E
+      endc ;Creator/Pro
+
+;EXTASM: E
+    else ;ifne 0
+;EXTASM: NNOTDEF
+
+L_Ipalette0:		;Ipalette - just a stub
+	rts
+
+;EXTASM: E
+    endc
+
+L_IgetSprPal:		;Iget Sprite Palette mask
+	pstart
+	move.l	(a3)+,d4
+	movem.l	a3/a5,-(a7)
+	jtcall	GetCurIscr
+	move.l	d0,a2
+	lea	sc_ViewPort(a2),a2
+	move.l	vp_ColorMap(a2),a3
+	moveq	#1,d0
+	jtcall	GetBankAdr
+	beq	L_NoObjBank
+	btst	#Bnk_BitBob,d0
+	beq	L_NoObjBank
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	lsl.l	#3,d0
+	add.l	d0,a0
+	move.l	a0,a5
+	dmove.l	GfxBase,a6
+	moveq	#31,d5
+.lp	move.w	(a5)+,d1
+	btst	d5,d4
+	bne	.next
+	move.l	d5,d0
+	move.w	d1,d2
+	move.w	d2,d3
+	lsr.w	#8,d1
+	lsr.w	#4,d2
+	and.w	#$F,d2
+	and.w	#$F,d3
+	move.l	a3,a0
+	call	SetRGB4CM
+.next	dbra	d5,.lp
+	move.l	a2,a0
+	move.l	a3,a1
+	move.l	cm_ColorTable(a1),a1
+	moveq	#32,d0
+	call	LoadRGB4
+	movem.l	(a7)+,a3/a5
+	ret
+
+L_IgetSprPal0:		;Iget Sprite Palette
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a2
+	lea	sc_ViewPort(a2),a2
+	moveq	#1,d0
+	jtcall	GetBankAdr
+	beq	L_NoObjBank
+	btst	#Bnk_BitBob,d0
+	beq	L_NoObjBank
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	lsl.l	#3,d0
+	add.l	d0,a0
+	move.l	a0,a1
+	move.l	a2,a0
+	moveq	#32,d0
+	gfxcall	LoadRGB4
+	ret
+
+L_IgetIconPal:		;Iget Icon Palette mask
+	pstart
+	move.l	(a3)+,d4
+	movem.l	a3/a5,-(a7)
+	jtcall	GetCurIscr
+	move.l	d0,a2
+	lea	sc_ViewPort(a2),a2
+	move.l	vp_ColorMap(a2),a3
+	moveq	#2,d0
+	jtcall	GetBankAdr
+	beq	L_NoIconBank
+	btst	#Bnk_BitIcon,d0
+	beq	L_NoIconBank
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	lsl.l	#3,d0
+	add.l	d0,a0
+	move.l	a0,a5
+	dmove.l	GfxBase,a6
+	moveq	#31,d5
+.lp	move.w	(a5)+,d1
+	btst	d5,d4
+	bne	.next
+	move.l	d5,d0
+	move.w	d1,d2
+	move.w	d2,d3
+	lsr.w	#8,d1
+	lsr.w	#4,d2
+	and.w	#$F,d2
+	and.w	#$F,d3
+	move.l	a3,a0
+	call	SetRGB4CM
+.next	dbra	d5,.lp
+	move.l	a2,a0
+	move.l	a3,a1
+	move.l	cm_ColorTable(a1),a1
+	moveq	#32,d0
+	call	LoadRGB4
+	movem.l	(a7)+,a3/a5
+	ret
+
+L_IgetIconPal0:		;Iget Icon Palette
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a2
+	lea	sc_ViewPort(a2),a2
+	moveq	#2,d0
+	jtcall	GetBankAdr
+	beq	L_NoIconBank
+	btst	#Bnk_BitIcon,d0
+	beq	L_NoIconBank
+	moveq	#0,d0
+	move.w	(a0)+,d0
+	lsl.l	#3,d0
+	add.l	d0,a0
+	move.l	a0,a1
+	move.l	a2,a0
+	moveq	#32,d0
+	gfxcall	LoadRGB4
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src/data.i b/extensions/Intuition-41.95/Intuition/src/data.i
new file mode 100644
index 0000000..c4423db
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/data.i
@@ -0,0 +1,122 @@
+;Data area
+
+	RsReset
+
+IntuitionID	rs.l 1		;Extension ID and data structure version
+BranchTable	rs.l 4		;Routines for other extensions; see extutils.a
+
+IntJumpTable	rs.l 1		;Internal jump table
+
+String1		rs.w 1
+		rs.b 1
+
+;Lots of byte-size variables.  (Pun intended. :-) )  No particular order.
+;Booleans are always either 0 or $FF (-1).
+
+VBLSignal	rs.b 1		;VBL signal bit
+
+Quitting	rs.b 1		;Are we quitting?
+TrapErrors	rs.b 1
+ErrorTrapped	rs.b 1
+Initialised	rs.b 1		;Ugly kludge - get DataBase by calling L_0
+IsAGA		rs.b 1
+IsECS		rs.b 1
+WB20		rs.b 1		;This is a misnomer, since it really tells
+				;  about the Kickstart version.
+IsNTSC		rs.b 1
+LastChar	rs.b 1
+NextPublic	rs.b 1		;Open next screen as a public screen?
+ScrOpenBehind	rs.b 1		;Open next screen behind all others?
+InReset		rs.b 1		;Are we in Default/System routine?
+CurIwindowIsWB	rs.b 1		;Is current window on the Workbench?
+MouseState	rs.b 1		;Current state of mouse buttons
+
+data_strings	equ __RS
+DiskfontName	rs.l 1
+DOSName		rs.l 1
+GfxName		rs.l 1
+IntuitionName	rs.l 1
+ReqToolsName	rs.l 1
+ConsoleName	rs.l 1
+DefReqTitleStr	rs.l 1
+PortName	rs.l 1
+
+DiskfontBase	rs.l 1
+DOSBase		rs.l 1
+GfxBase		rs.l 1
+IntuitionBase	rs.l 1
+ReqToolsBase	rs.l 1
+ViewLord	rs.l 1
+ConsoleRequest	rs.b io_size
+ConsoleDevice	rs.l 1
+
+SavedA5		rs.l 1
+FirstIscreen	rs.l 1
+FirstWBIwindow	rs.l 1
+CurIscreen	rs.l 1
+CurIwindow	rs.l 1
+LastActiveWB	rs.l 1		;Last active WB window
+LastCode	rs.w 1
+LastQual	rs.w 1
+NullStr		rs.w 1		;Null string - length 0
+FirstString	rs.l 1		;Linked list for L_StrAlloc
+LastError	rs.l 1
+LastErrorStr	rs.l 1		;null terminated
+
+;Event buffers
+KeyBufSize	equ 256*ke_sizeof
+KeyBuffer	rs.l 1
+KeyBufEnd	rs.l 1
+KeyBufPtr	rs.l 1
+KeyBufNext	rs.l 1
+MenuBufSize	equ 256*ue_sizeof
+MenuBuffer	rs.l 1
+MenuBufEnd	rs.l 1
+MenuBufPtr	rs.l 1
+MenuBufNext	rs.l 1
+A7Stack		rs.l 8		;Stack for holding value of A7 after PSTART.
+;A7StackEnd	equ __RS	;  Used in error trapping.
+A7StackEnd	rs.b 0
+A7StackPtr	rs.l 1
+
+FileReq		rs.l 1
+Filename108	rs.b 108	;Name of file for file requester
+FRFileList	rs.l 1		;Current position in file list
+FRFileList0	rs.l 1		;Start of file list
+FRDir		rs.l 1		;Directory name (for multi-file requesters)
+FRDirLen	rs.l 1		;strlen(FRDir)
+FontReq		rs.l 1
+ScreenModeReq	rs.l 1
+ScreenData	rs.b sd_sizeof
+DefReqTitle	rs.l 1		;Default requester title
+
+NewScreen	rs.b ens_sizeof
+NewWindow	rs.b nw_sizeof
+TextAttr	rs.b ta_sizeof
+MyUserPort	rs.l 1		;Global UserPort for input
+MaxDispWidth	rs.w 1		;Maximum (visible) size of lowres screen.  Not
+MaxDispHeight	rs.w 1		;  currently used.
+WBPens		rs.w NUMDRIPENS	;Workbench dripens
+
+flStack		rs.l 1		;Flood stack base address
+flStackWarn	rs.l 1		;=flStack+1024 - low-stack warning
+flStackSize	rs.l 1		;Flood stack "chunk" size.  This is how much
+				;  stack we allocate initially, and also how
+				;  much extra we allocate when we need more.
+
+LastMenu	rs.w 1		;Last menu, item, subitem selections (-1 means
+LastMenuItem	rs.w 1		;  none since last check)
+LastMenuSub	rs.w 1
+
+GadgetUndo	rs.l 1		;Common gadget undo buffer
+GadgetUndoLen	rs.l 1		;Length of undo buffer
+
+TempBitMap	rs.b bm_sizeof	;Temporary BitMap for AMOS screens
+
+EventData	rs.l 1		;Data for Ievent Wait (e.g. gadget that was
+				;  clicked on, key pressed...)
+
+MyTask		rs.l 1		;Address of AMOS's TCB
+
+;datalength	equ __RS
+datalength	rs.b 0
diff --git a/extensions/Intuition-41.95/Intuition/src/defs.i b/extensions/Intuition-41.95/Intuition/src/defs.i
new file mode 100644
index 0000000..fa041ea
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/defs.i
@@ -0,0 +1,200 @@
+;EXTASM: I
+	include "exec/nodes.i"
+	include "exec/lists.i"
+	include "exec/ports.i"
+	include "exec/io.i"
+	include "exec/memory.i"
+	include "devices/inputevent.i"
+	include "graphics/gfx.i"
+	include "graphics/gfxbase.i"
+	include "graphics/rastport.i"
+	include "graphics/text.i"
+	include "graphics/view.i"
+	include "intuition/intuition.i"
+	include "libraries/reqtools.i"
+;EXTASM: i
+
+io_sizeof	equ	io_size
+mp_sizeof	equ	mp_size
+ie_sizeof	equ	ie_SIZEOF
+tr_sizeof	equ	tr_SIZEOF
+ens_sizeof	equ	ens_SIZEOF
+nw_sizeof	equ	nw_SIZEOF
+ta_sizeof	equ	ta_SIZEOF
+bm_sizeof	equ	bm_SIZEOF
+;Define some extra fields at the ends of structures
+mu_MenuNum	equ	mu_SIZEOF
+mu_sizeof	equ	mu_SIZEOF+2
+mi_ItemNum	equ	mi_SIZEOF
+mi_IsSubitem	equ	mi_SIZEOF+2	;TRUE if item is a subitem
+mi_Parent	equ	mi_SIZEOF+4	;Item's parent menu/item
+mi_sizeof	equ	mi_SIZEOF+8
+gg_sizeof	equ	gg_SIZEOF
+si_sizeof	equ	si_SIZEOF
+pi_sizeof	equ	pi_SIZEOF
+it_sizeof	equ	it_SIZEOF
+bd_sizeof	equ	bd_SIZEOF
+rp_sizeof	equ	rp_SIZEOF
+
+ExtNum	equ 14
+Null	equ $80000000	;what AMOS passes if a parameter is omitted
+
+DataVer		equ 0	;Should change to reflect branch table changes
+
+
+;Constants affecting assembly
+;SAFE_GRPOS	equ 1	;Don't allow Igr Locate etc. outside window
+;FAST_WRITEPIXEL equ 1	;Use internal L_WritePixel instead of
+			;  graphics.library WritePixel()
+LIMIT_32K	equ 1	;Serious AMOS bug - extensions limited to 32k
+;MEMF_CLEAR_BUG	equ 1	;Possible bug in AllocMem()/MEMF_CLEAR - see
+			;  L_AllocMemClear
+
+
+;Keyboard, menu events
+	RsReset
+ke_code		rs.b 1
+ke_qual		rs.b 1
+ke_char		rs.b 1
+;ke_sizeof	equ __RS
+ke_sizeof	rs.b 0
+
+	RsReset
+ue_menupick	rs.w 1
+;ue_sizeof	equ __RS
+ue_sizeof	rs.b 0
+
+
+;Window structure extension
+	RsReset
+we_NextIwin	rs.l 1
+we_PrevIwin	rs.l 1
+we_MagicID	rs.l 1	;Structure identifier (see WE_MAGIC below)
+we_WinNum	rs.l 1
+we_Flags	rs.l 1
+we_FirstMenu	rs.l 1
+we_NGadgets	rs.w 1
+we_Gadgets	rs.l 1	;Gadget space for Reserve Igadget
+we_GadgetSize	rs.l 1	;sizeof(*we_Gadgets)
+we_GBorders	rs.l 1	;Gadget Borders
+we_GBorderSize	rs.l 1	;sizeof(*we_GBorders)
+we_HilitePen	rs.b 1	;Pens for borders
+we_ShadowPen	rs.b 1
+we_sizeof	equ __RS
+
+WE_MAGIC	equ $BEADF00D
+
+WEB_DUBOIS	equ -1	;Wasn't he some famous guy we learned about in U.S.
+			;  History? :-)
+WEB_UNSET	equ 0	;Drawing coordinates not set
+WEB_CLOSED	equ 1	;Window's close gadget was pressed
+WEB_BASEWIN	equ 2	;Window is some screen's base window
+WEB_MENUACTIVE	equ 3	;Window has an active menu strip
+
+WEF_UNSET	equ (1<<0)
+WEF_CLOSED	equ (1<<1)
+WEF_BASEWIN	equ (1<<2)
+WEF_MENUACTIVE	equ (1<<3)
+
+
+;Screen structure extension
+	RsReset
+se_NextIscr	rs.l 1
+se_PrevIscr	rs.l 1
+se_ScrNum	rs.l 1
+se_BaseWin	rs.l 1	;Base window pointer
+se_Width	rs.w 1	;Screen width/height from Iscreen Open (their partners
+se_Height	rs.w 1	;  in the Screen structure can be changed by Iscreen
+			;  Display)
+se_FirstIwindow	rs.l 1
+se_LastActive	rs.l 1	;Last active window (saved/restored when current
+			;  screen is changed)
+se_Flags	rs.l 1
+se_Dripens	rs.w NUMDRIPENS	;On screen open, just a -1.  Afterwards,
+				;  filled with dripens from
+				;  GetScreenDrawInfo().
+se_sizeof	equ __RS
+
+SEB_HIDDEN	equ 0
+
+SEF_HIDDEN	equ (1<<0)
+
+
+;Gadget structure extension
+	RsReset
+ge_MagicID	rs.l 1	;Identifier
+ge_Flags	rs.l 1
+ge_NUnits	rs.l 1	;Sliders only
+ge_KnobSize	rs.l 1	;Sliders only
+ge_HitCount	rs.w 1	;Hit-select gadgets only
+ge_sizeof	equ __RS
+
+GADGET_MAGIC	equ $BADF00D
+
+GEB_DISPLAYED	equ 0
+GEB_VSLIDER	equ 1	;Sliders only; 1=vertical, 0=horizontal
+GEB_GADGETDOWN	equ 2	;Gadget is currently depressed
+
+GEF_DISPLAYED	equ (1<<0)
+GEF_VSLIDER	equ (1<<1)
+GEF_GADGETDOWN	equ (1<<2)
+
+
+;Screen mode data (used with Irequest Screen)
+	RsReset
+sd_Width	rs.w 1
+sd_Height	rs.w 1
+sd_NumCols	rs.l 1
+sd_DisplayID	rs.l 1
+sd_ViewModes	rs.w 1
+sd_sizeof	equ __RS
+
+
+;RSControl structure, for use with ReturnString and GetRetStr.  Currently
+;empty, but kept in case we find a use for it.
+	RsReset
+rsc_sizeof	equ __RS
+
+
+;Our own structure offsets
+sc_ViewModes	equ	sc_ViewPort+vp_Modes
+sc_Depth	equ	sc_BitMap+bm_Depth
+
+;Screen mode constants not defined elsewhere
+HIRES		equ	$8000
+HAM		equ	$0800
+EHB		equ	$0080
+SUPERHIRES	equ	$0020
+LACED		equ	$0004
+;Screen modes supported
+MODES		equ	HIRES | HAM | EHB | SUPERHIRES | LACED
+
+;Default window flags
+WFLAGS		set	WFLG_SIZEGADGET | WFLG_DRAGBAR | WFLG_DEPTHGADGET
+WFLAGS		set	WFLAGS | WFLG_CLOSEGADGET | WFLG_ACTIVATE
+WFLAGS		set	WFLAGS | WFLG_RMBTRAP
+;Minimum window flags (if the user specifies some)
+MINWFLAGS	equ	WFLG_RMBTRAP
+;Flags that the user can specify
+USERWFLAGS	set	WFLG_SIZEGADGET | WFLG_DRAGBAR | WFLG_DEPTHGADGET
+USERWFLAGS	set	USERWFLAGS | WFLG_CLOSEGADGET | WFLG_SIZEBRIGHT
+USERWFLAGS	set	USERWFLAGS | WFLG_SIZEBBOTTOM | WFLG_BACKDROP
+USERWFLAGS	set	USERWFLAGS | WFLG_BORDERLESS | WFLG_ACTIVATE
+
+;Default window IDCMP flags
+IDCMPFLAGS	set	IDCMP_RAWKEY | IDCMP_MOUSEBUTTONS
+IDCMPFLAGS	set	IDCMPFLAGS | IDCMP_CLOSEWINDOW | IDCMP_MENUPICK
+IDCMPFLAGS	set	IDCMPFLAGS | IDCMP_GADGETDOWN | IDCMP_GADGETUP
+
+;IDCMP flags that we wait for
+IDCMPWAIT	set	IDCMP_RAWKEY | IDCMP_MOUSEBUTTONS
+IDCMPWAIT	set	IDCMPWAIT | IDCMP_CLOSEWINDOW | IDCMP_MENUPICK
+IDCMPWAIT	set	IDCMPWAIT | IDCMP_GADGETUP
+
+;Non-Intuition (custom) OpenScreen flag
+NOBACKDROP	equ	1	;Don't open initial backdrop window
+SF_CUSTOM	equ	$0001
+SF_SYSTEM	equ	~SF_CUSTOM
+
+
+	include "data.i"	;Data area definition
diff --git a/extensions/Intuition-41.95/Intuition/src/errordefs.i b/extensions/Intuition-41.95/Intuition/src/errordefs.i
new file mode 100644
index 0000000..66f6f4f
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/errordefs.i
@@ -0,0 +1,43 @@
+;Custom error numbers
+E_16C	equ 0	;Only 16 colours allowed on non-AGA hires screen
+E_UOS	equ 1	;Unable to open screen
+E_KS2	equ 2	;Need Kickstart 2.0 or higher
+E_UOW	equ 3	;Unable to open window
+E_CW0	equ 4	;Window 0 can't be closed
+E_MW0	equ 5	;Window 0 can't be modified
+E_WNO	equ 6	;Window not opened
+E_WTS	equ 7	;Window too small
+E_WTL	equ 8	;Window too large
+E_IWP	equ 9	;Illegal window parameter
+E_WNC	equ 10	;Window not closed
+E_NWB	equ 11	;Unable to open Workbench
+;These are standard errors, but we duplicate them here so our error trapper
+;can catch them.
+E_PI	equ 12	;Program interrupted
+E_IFC	equ 13	;Illegal function call
+E_OOM	equ 14	;Out of memory
+E_FNA	equ 15	;Font not available
+E_SNO	equ 16	;Screen not opened
+E_ISP	equ 17	;Illegal screen parameter
+E_INC	equ 18	;Illegal number of colours
+;More of our errors.
+E_SNC	equ 19	;Screen not closed
+E_IND	equ 20	;Icon not defined
+E_NIB	equ 21	;Icon bank not defined
+E_NES	equ 22	;Error text not available  [if prog compiled w/o error text]
+E_OND	equ 23	;Object not defined
+E_NOB	equ 24	;Object bank not defined
+E_BWC	equ 25  ;Backward coordinates
+E_MAA	equ 26	;Menu already active
+E_INT	equ 27	;Internal error, code xxxxxxxx
+E_IN2	equ 28	;Internal error, code xxxxxxxx, subcode yyyyyyyy
+E_NRT	equ 29	;ReqTools.library version 2 or higher required
+E_TMG	equ 30	;Only 65535 gadgets allowed
+E_GAA	equ 31	;Gadget already active
+E_WGT	equ 32	;Wrong gadget type
+E_GND	equ 33	;Gadget not defined
+E_GNR	equ 34	;Gadget not reserved
+E_ASN	equ 35	;Valid AMOS screen numbers range from 0 to 7
+E_BND	equ 36	;Bank not defined
+E_FNU	equ 37	;Bank format not understood
+E_IDT	equ 38	;Inconsistent data
diff --git a/extensions/Intuition-41.95/Intuition/src/errors.s b/extensions/Intuition-41.95/Intuition/src/errors.s
new file mode 100644
index 0000000..3282f97
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/errors.s
@@ -0,0 +1,136 @@
+;Error routines
+
+L_CustomError:
+.start	cmp.l	#-1,d0			;Kludge - error -1 returns pointer to
+	bne	.real_error		;  routine
+	lea	.start(pc),a0		;Can't use L_CustomError - it remaps
+	move.l	a0,d0			;  to a label number
+	rts
+.real_error:
+	bsr	L_errGoto0		;Can't assume any registers are valid.
+					;  This is a kludge to get the base of
+					;  the data area; L_errGoto0 (in
+					;  extcode.s) calls L_0 because the
+					;  distance is too large for a single
+					;  branch.
+	dmove.l	SavedA5,a5		
+	tmove.l	d0,LastError
+	move.l	d0,d7
+	lea	Errors(pc),a0
+	move.l	a0,a1
+.d0lp	tst.l	d0
+	beq	.set
+.a1lp	tst.b	(a1)+
+	bne	.a1lp
+	subq.l	#1,d0
+	bra	.d0lp
+.set	tmove.l	a1,LastErrorStr
+	cmp.w	#E_INT,d7		;If internal error, insert codes D1/D2
+	beq	.intlp
+	cmp.w	#E_IN2,d7
+	bne	.trap
+.intlp	tst.b	(a1)+
+	bne	.intlp
+	subq.l	#1,a1
+	moveq	#7,d3
+.intlp2	moveq	#$F,d0
+	and.l	d1,d0
+	lsr.l	#4,d1
+	cmp.b	#9,d0
+	bls	.mkasc
+	addq.b	#7,d0
+.mkasc	add.b	#'0',d0
+	move.b	d0,-(a1)
+	dbra	d3,.intlp2
+	cmp.w	#E_INT,d7
+	beq	.trap
+	add.l	#26,a1
+	moveq	#7,d3
+.intlp3	moveq	#$F,d0
+	and.l	d1,d0
+	lsr.l	#4,d2
+	cmp.b	#9,d0
+	bls	.mkasc2
+	addq.b	#7,d0
+.mkasc2	add.b	#'0',d0
+	move.b	d0,-(a1)
+	dbra	d3,.intlp3
+.trap	dtst.b	TrapErrors
+	beq	.doerr
+	tmove.b	#-1,ErrorTrapped
+	dlea	A7StackEnd-4,a0		;Quit from offending routine
+	move.l	(a0)+,a7
+	tmove.l	a0,A7StackPtr
+	movem.l	(a7)+,a4/a6
+	rts
+.doerr	move.l	d7,d0
+	moveq	#0,d1
+	moveq	#ExtNum,d2
+	moveq	#0,d3
+	jmp	L_ErrorExt
+Errors:
+	dc.b "Only 16 colours allowed on non-AGA hires screen",0
+	dc.b "Unable to open screen",0
+	dc.b "Need Kickstart 2.0 or higher",0
+	dc.b "Unable to open window",0
+	dc.b "Window 0 can't be closed",0
+	dc.b "Window 0 can't be modified",0
+	dc.b "Window not opened",0
+	dc.b "Window too small",0
+	dc.b "Window too large",0
+	dc.b "Illegal window parameter",0
+	dc.b "Window not closed",0
+	dc.b "Unable to open Workbench",0
+	dc.b "Program interrupted",0
+	dc.b "Illegal function call",0
+	dc.b "Out of memory",0
+	dc.b "Font not available",0
+	dc.b "Screen not opened",0
+	dc.b "Illegal screen parameter",0
+	dc.b "Illegal number of colours",0
+	dc.b "Screen not closed",0
+	dc.b "Icon not defined",0
+	dc.b "Icon bank not defined",0
+;Why do I include this?  Nobody's ever going to see it...
+	dc.b "Error text not available",0
+	dc.b "Object not defined",0
+	dc.b "Object bank not defined",0
+	dc.b "Backward coordinates",0
+	dc.b "Menu already active",0
+	dc.b "Internal error, code 00000000",0
+	dc.b "Internal error, code 00000000, subcode 00000000",0
+	dc.b "ReqTools.library version 2 or higher required",0
+	dc.b "Only 65535 gadgets allowed",0
+	dc.b "Gadget already active",0
+	dc.b "Wrong gadget type",0
+	dc.b "Gadget not defined",0
+	dc.b "Gadget not reserved",0
+	dc.b "Valid AMOS screen numbers range from 0 to 7",0
+	dc.b "Bank not defined",0
+	dc.b "Bank format not understood",0
+	dc.b "Inconsistent data",0
+	ds.w 0
+
+L_CustomNoErr:
+.start	cmp.l	#-1,d0
+	bne	.real_error
+	lea	.start(pc),a0
+	move.l	a0,d0
+	rts
+.real_error:
+	bsr	L_errGoto0
+	dmove.l	SavedA5,a5
+	tmove.l	d0,LastError
+	tmove.l	#-1,LastErrorStr
+	dtst.b	TrapErrors
+	beq	.doerr
+	tmove.b	#-1,ErrorTrapped
+	dlea	A7StackEnd-4,a0
+	move.l	(a0)+,a7
+	tmove.l	a0,A7StackPtr
+	movem.l	(a7)+,a4/a6
+	rts
+.doerr	moveq	#0,d1
+	moveq	#ExtNum,d2
+	moveq	#-1,d3
+	jmp	L_ErrorExt
diff --git a/extensions/Intuition-41.95/Intuition/src/errorstubs.s b/extensions/Intuition-41.95/Intuition/src/errorstubs.s
new file mode 100644
index 0000000..a2811d9
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/errorstubs.s
@@ -0,0 +1,166 @@
+;Error routines
+;These should be in about the middle of the code to be easily accessible to
+;all functions.
+
+	include "errordefs.i"	;Error numbers
+
+L__Error:	;error # in D0
+	bra	L_CustomError
+
+L_ProgInt:	;Program interrupted
+	moveq	#E_PI,d0
+	bra	L_CustomError
+
+L_IllFunc:	;Illegal function cal|
+	moveq	#E_IFC,d0
+	bra	L_CustomError
+
+L_NoMem:	;Out of memory
+	moveq	#E_OOM,d0
+	bra	L_CustomError
+
+L_NoFont:	;Font not available
+	moveq	#E_FNA,d0
+	bra	L_CustomError
+
+L_NoScr:	;Screen not opened
+	moveq	#E_SNO,d0
+	bra	L_CustomError
+
+L_IllScrParm:	;Illegal screen parameter
+	moveq	#E_ISP,d0
+	bra	L_CustomError
+
+L_IllNumCols:	;Illegal number of colours
+	moveq	#E_INC,d0
+	bra	L_CustomError
+
+L_16Colours:	;Only 16 colours allowed on non-AGA hires screen
+	moveq	#E_16C,d0
+	bra	L_CustomError
+
+L_CantOpenScr:	;Unable to open screen
+	moveq	#E_UOS,d0
+	bra	L_CustomError
+
+L_NeedKick20:	;Need Kickstart 2.0 or higher
+	moveq	#E_KS2,d0
+	bra	L_CustomError
+
+L_CantOpenWin:	;Unable to open window
+	moveq	#E_UOW,d0
+	bra	L_CustomError
+
+L_NoCloseWin0:	;Window 0 can't be closed
+	moveq	#E_CW0,d0
+	bra	L_CustomError
+
+L_NoModWin0:	;Window 0 can't be modified
+	moveq	#E_MW0,d0
+	bra	L_CustomError
+
+L_NoWin:	;Window not opened
+	moveq	#E_WNO,d0
+	bra	L_CustomError
+
+L_WinTooSmall:	;Window too small
+	moveq	#E_WTS,d0
+	bra	L_CustomError
+
+L_WinTooLarge:	;Window too large
+	moveq	#E_WTL,d0
+	bra	L_CustomError
+
+L_IllWinParm:	;Illegal window parameter
+	moveq	#E_IWP,d0
+	bra	L_CustomError
+
+L_WinNotClosed:	;Window not closed
+	moveq	#E_WNC,d0
+	bra	L_CustomError
+
+L_CantOpenWB:	;Unable to open Workbench
+	moveq	#E_NWB,d0
+	bra	L_CustomError
+
+L_ScrNotClosed:	;Screen not closed
+	moveq	#E_SNC,d0
+	bra	L_CustomError
+
+L_NoIcon:	;Icon not defined
+	moveq	#E_IND,d0
+	bra	L_CustomError
+
+L_NoIconBank:	;Icon bank not defined
+	moveq	#E_NIB,d0
+	bra	L_CustomError
+
+L_NoErrStr:	;Error text not available
+	moveq	#E_NES,d0
+	bra	L_CustomError
+
+L_NoObj:	;Object not defined
+	moveq	#E_OND,d0
+	bra	L_CustomError
+
+L_NoObjBank:	;Object bank not defined
+	moveq	#E_NOB,d0
+	bra	L_CustomError
+
+L_MixedCoords:	;Backward coordinates
+	moveq	#E_BWC,d0
+	bra	L_CustomError
+
+L_MenuActive:	;Menu already active
+	moveq	#E_MAA,d0
+	bra	L_CustomError
+
+L_InternalErr:	;Internal error, code xxxxxxxx
+		;Value for xxxxxxxx should be in D1
+	moveq	#E_INT,d0
+	bra	L_CustomError
+
+L_InternalErr2:	;Internal error, code xxxxxxxx, subcode yyyyyyyy
+		;Value for xxxxxxxx should be in D1, yyyyyyyy in D2
+	moveq	#E_IN2,d0
+	bra	L_CustomError
+
+L_NoReqTools:	;ReqTools.library version 2 or higher required
+	moveq	#E_NRT,d0
+	bra	L_CustomError
+
+L_TooManyGads:	;Only 65535 gadgets allowed
+	moveq	#E_TMG,d0
+	bra	L_CustomError
+
+L_GadgetActive:	;Gadget already active
+	moveq	#E_GAA,d0
+	bra	L_CustomError
+
+L_WrongGadType:	;Wrong gadget type
+	moveq	#E_WGT,d0
+	bra	L_CustomError
+
+L_GadNotDef:	;Gadget not defined
+	moveq	#E_GND,d0
+	bra	L_CustomError
+
+L_GadNotRes:	;Gadget not reserved
+	moveq	#E_GNR,d0
+	bra	L_CustomError
+
+L_Ascr0to7:	;Valid AMOS screen numbers range from 0 to 7
+	moveq	#E_ASN,d0
+	bra	L_CustomError
+
+L_BankNotDef:	;Bank not defined
+	moveq	#E_BND,d0
+	bra	L_CustomError
+
+L_UnknownFmt:	;Bank format not understood
+	moveq	#E_FNU,d0
+	bra	L_CustomError
+
+L_Inconsistent:	;Inconsistent data
+	moveq	#E_IDT,d0
+	bra	L_CustomError
diff --git a/extensions/Intuition-41.95/Intuition/src/extcode.s b/extensions/Intuition-41.95/Intuition/src/extcode.s
new file mode 100644
index 0000000..e72ba90
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/extcode.s
@@ -0,0 +1,30 @@
+;Include external code
+
+;BSR here to get the address of the error routine to D0.
+L_GetErrorAdr:
+	moveq	#-1,d0
+	bra	L_CustomError
+
+;Error routines can call this instead of L_0 to avoid out-of-range branches.
+L_errGoto0:
+	bra	L_0
+
+;BSR here to get the address of the start of the external code to A0.
+L_GetExtCode:
+	lea	.code+32(pc),a0
+	rts
+
+.code:
+  ifd CREATOR
+    ifd UNREGISTERED
+	incbin	"obju/creator/extcode"
+    else
+	incbin	"obj/creator/extcode"
+    endc
+  else
+    ifd UNREGISTERED
+	incbin	"obju/extcode"
+    else
+	incbin	"obj/extcode"
+    endc
+  endc
diff --git a/extensions/Intuition-41.95/Intuition/src/extutils.s b/extensions/Intuition-41.95/Intuition/src/extutils.s
new file mode 100644
index 0000000..f39a4e2
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/extutils.s
@@ -0,0 +1,79 @@
+;Routines for other extensions.  These are listed in a branch table and can
+;be called by any other extension which needs access to Intuition data
+;structures.  All registers (except for return values) are preserved.
+;
+;NOTE: this *must* be included as part of L_0!
+;
+;Branch table definition (also in IntRoutines.i):
+;
+;   0 - IscreenAdr: get the address of a screen
+;		Input:	D0 = screen number
+;		Output:	D0 = screen address or NULL
+;
+;   4 - IwindowAdr: get the address of a window
+;		Input:	D0 = window number
+;			A0 = screen address, NULL for current screen, or
+;			     -1 for Workbench
+;		Output:	D0 = window address or NULL
+;
+;   8 - CurIscreenAdr: get the current screen's address
+;		Input:	none
+;		Output: D0 = screen address or NULL
+;
+;  12 - CurIwindowAdr: get the current window's address.
+;		Input:	none
+;		Output:	D0 = window address or NULL
+
+_IscreenAdr:
+	movem.l	d1/a0-a1,-(a7)
+	jtcall	FindIscr
+	movem.l	(a7)+,d1/a0-a1
+	rts
+
+_IwindowAdr:
+	movem.l	d1/a0-a2/a4,-(a7)
+	dinit	a4
+	move.l	d0,d1
+	move.l	a0,d0
+	bmi	.wbscr
+	bne	.gotscr
+	dmove.l	CurIscreen,a0
+	move.l	a0,d0
+	beq	L_NoScr
+.gotscr	move.l	sc_UserData(a0),a0
+	tst.l	d1
+	bne	.find
+	move.l	se_BaseWin(a0),d0
+	bra	.exit
+.find	move.l	se_FirstIwindow(a0),a0
+	sub.l	a1,a1
+.lp	move.l	a0,d0
+	beq	.done
+	move.l	wd_UserData(a0),a2
+	cmp.l	we_WinNum(a2),d1
+	beq	.done
+	move.l	a0,a1
+	move.l	we_NextIwin(a2),a0
+	bra	.lp
+.done	move.l	a0,d0
+	bra	.exit
+.wbscr	move.l	d1,d0
+	jtcall	FindWBIwin
+.exit	movem.l	(a7)+,d1/a0-a2/a4
+	rts
+
+_CurIscreenAdr:
+	dmove.l	CurIscreen,d0
+	rts
+
+_CurIwindowAdr:
+	move.l	a0,-(a7)
+	dmove.l	CurIwindow,d0
+	bne	.exit
+	dtst.l	CurIscreen
+	beq	.exit
+	dmove.l	CurIscreen,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),d0
+.exit	move.l	(a7)+,a0
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/src/fonts.s b/extensions/Intuition-41.95/Intuition/src/fonts.s
new file mode 100644
index 0000000..ed0379a
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/fonts.s
@@ -0,0 +1,169 @@
+;Font stuff
+
+L_ItextBase:			;=Itext Base
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_Font(a0),a0
+	moveq	#0,d3
+	move.w	tf_Baseline(a0),d3
+	moveq	#0,d2
+	ret
+
+L_ItextLength:			;=Itext Length(s$)
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	gfxcall	TextLength
+	moveq	#0,d3
+	move.w	d0,d3
+	moveq	#0,d2
+	ret
+
+L_SetIfont:			;Set Ifont font$,size
+	pstart
+	movem.l	a5,-(a7)
+	jtcall	GetCurRP
+	move.l	d0,a2
+	dlea	TextAttr,a5
+	move.l	(a3)+,d0
+	move.w	d0,ta_YSize(a5)
+	move.l	(a3)+,a6
+	moveq	#0,d3
+	move.w	(a6)+,d3
+	move.l	a6,a0
+	add.l	d3,a0
+	subq.l	#5,a0
+	cmp.b	#'.',(a0)+
+	bne	.addext
+	cmp.b	#'f',(a0)+
+	bne	.addext
+	cmp.b	#'o',(a0)+
+	bne	.addext
+	cmp.b	#'n',(a0)+
+	bne	.addext
+	cmp.b	#'t',(a0)+
+	bne	.addext
+	move.l	d3,d0
+	jtcall	StrAlloc
+	move.l	d0,ta_Name(a5)
+	move.l	ta_Name(a5),a1
+	move.l	d3,d0
+	move.l	a6,a0
+	syscall	CopyMem
+	move.l	ta_Name(a5),a1
+	add.l	d3,a1
+	clr.b	(a1)
+	bra	.open1
+.addext	move.l	d3,d0
+	addq.l	#5,d0
+	jtcall	StrAlloc
+	move.l	d0,ta_Name(a5)
+	move.l	ta_Name(a5),a1
+	move.l	d3,d0
+	move.l	a6,a0
+	syscall	CopyMem
+	move.l	ta_Name(a5),a1
+	add.l	d3,a1
+	move.b	#'.',(a1)+
+	move.b	#'f',(a1)+
+	move.b	#'o',(a1)+
+	move.b	#'n',(a1)+
+	move.b	#'t',(a1)+
+	clr.b	(a1)
+.open1	move.l	a5,a0
+	gfxcall	OpenFont
+	tst.l	d0
+	bne	.gotfnt
+	move.l	a5,a0
+	dmove.l	DiskfontBase,a6
+	call	OpenDiskFont
+	tst.l	d0
+	bne	.gotfnt
+	move.l	ta_Name(a5),a0
+	jtcall	StrFree
+	bra	L_NoFont
+.gotfnt	move.l	d0,a0
+	move.l	a2,a1
+	gfxcall	SetFont
+	move.l	ta_Name(a5),a0
+	jtcall	StrFree
+	move.l	rp_RP_User(a2),d0
+	beq	.exit
+	move.l	d0,a1
+	gfxcall	CloseFont
+.exit	move.l	rp_Font(a2),rp_RP_User(a2)
+	move.l	(a7)+,a5
+	ret
+
+L_SetIfont1:			;Set Ifont namesize$
+	pstart
+	move.l	(a3)+,a0
+	move.w	(a0)+,d5
+	move.l	a0,a2
+	add.w	d5,a0
+	move.l	a0,a1
+.lp	cmp.l	a0,a2
+	beq	L_IllFunc
+	cmp.b	#'/',-(a0)
+	bne	.lp
+	move.l	a0,d6
+	addq.l	#1,a0
+	moveq	#0,d0
+	moveq	#0,d1
+.lp2	move.b	(a0)+,d1
+	sub.b	#'0',d1
+	bmi	L_IllFunc
+	cmp.b	#9,d1
+	bhi	L_IllFunc
+	mulu	#10,d0
+	add.w	d1,d0
+	cmp.l	a1,a0
+	bcs	.lp2
+	move.l	d0,d7
+	sub.l	a2,d6
+	move.l	d6,d0
+	lea	.rsc(pc),a1
+	jtcall	GetRetStr	;Not really a "return string", but it'll do...
+	move.l	a1,-(a7)
+	move.l	d0,a1
+	move.w	d5,(a1)+
+	move.l	d5,d0
+	move.l	a2,a0
+	syscall	CopyMem
+	move.l	(a7)+,-(a3)
+	move.l	d7,-(a3)
+	bsr	L_SetIfont
+	ret
+.rsc	ds.b	rsc_sizeof
+
+L_IfontName:
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_Font(a0),a0
+	move.l	10(a0),a0
+	lea	.rsc(pc),a1
+	jtcall	ReturnString
+	ret
+.rsc	ds.b	rsc_sizeof
+
+L_IfontBase:
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_Font(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IfontHeight:
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_Font(a0),a0
+	moveq	#0,d3
+	move.w	tf_YSize(a0),d3
+	moveq	#0,d2
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src/gadgets.bak b/extensions/Intuition-41.95/Intuition/src/gadgets.bak
new file mode 100644
index 0000000..4d6422c
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/gadgets.bak
@@ -0,0 +1,1876 @@
+;Gadget functions
+
+;Size of a we_Gadgets[] element
+GADGETSIZE	equ gg_sizeof+ge_sizeof+si_sizeof
+;Offset to SpecialInfo
+SGADGETSIZE	equ gg_sizeof+ge_sizeof
+;Size of a we_GBorders[] element: max of 8 borders, 32 coordinate pairs
+BORDERSIZE	equ (bd_sizeof*8)+(4*32)
+;Size of struct Border instances (offset to coordinate pairs)
+SBORDERSIZE	equ bd_sizeof*8
+
+;Current revision of gadget bank format
+GBANKREV	equ 0
+
+
+L_ReserveIgadget:	;Reserve Igadget n
+	pstart
+	bsr	L_ReserveIgadget0	;Free any old gadgets
+	jtcall	GetCurIwin2
+	move.l	d0,a2
+	move.l	wd_UserData(a2),a2
+	move.l	(a3)+,d2
+	bmi	L_IllFunc
+	cmp.l	#$10000,d2
+	bcc	L_TooManyGads
+	move.w	d2,d0
+	mulu	#GADGETSIZE,d0
+	move.l	d0,we_GadgetSize(a2)
+	moveq	#MEMF_PUBLIC,d1
+	jtcall	AllocMemClear
+	move.l	d0,we_Gadgets(a2)
+	beq	L_NoMem
+	move.w	d2,d0
+	mulu	#BORDERSIZE,d0
+	move.l	d0,we_GBorderSize(a2)
+	moveq	#MEMF_PUBLIC,d1
+	jtcall	AllocMemClear
+	move.l	d0,we_GBorders(a2)
+	bne	.bd_ok
+	move.l	we_Gadgets(a2),a1
+	mulu	#gg_sizeof,d2
+	syscall	FreeMem
+	bra	L_NoMem
+.bd_ok	move.w	d2,we_NGadgets(a2)
+	ret
+
+L_ReserveIgadget0:	;Reserve Igadget
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a2
+	move.l	wd_UserData(a2),a2
+	tst.w	we_NGadgets(a2)
+	beq	.exit
+	move.l	we_GBorderSize(a2),d0
+	move.l	we_GBorders(a2),a1
+	syscall	FreeMem
+	move.l	we_GadgetSize(a2),d0
+	move.l	we_Gadgets(a2),a1
+	syscall	FreeMem
+	clr.w	we_NGadgets(a2)
+.exit	ret
+
+
+;;;;;;;;;;;;;;;;
+
+
+L_MakeBoolGad:			;D0 = SELECTED state (zero or non-zero)
+				;D1 = TOGGLESELECT or 0
+	pstart
+	move.w	d0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	movem.l	(a3)+,d3-d7
+	cmp.l	#$10000,d7		;Check gadget number
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0			;Adjust for window border
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	cmp.l	#$8000,d3		;Must be < $8000: Height,
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4		;                Width,
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5		;                TopEdge,
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6		;                LeftEdge
+	bhi	L_IllFunc
+	moveq	#0,d0			;BottomEdge must be < WinHeight
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0			;RightEdge must be < WinWidth
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	cmp.w	#4,d3			;Size must be >= 4x4
+	bcs	L_IllFunc
+	cmp.w	#4,d4
+	bcs	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#BOOLGADGET,gg_GadgetType(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	clr.l	gg_SpecialInfo(a1)
+	move.w	#GADGHIMAGE,gg_Flags(a1)
+	tst.l	d2			;Set initial SELECTED state
+	sne	d2
+	ext.w	d2
+	and.w	#SELECTED,d2
+	or.w	d2,gg_Flags(a1)
+	or.w	#GADGIMMEDIATE|RELVERIFY,d1
+	move.w	d1,gg_Activation(a1)
+
+	;Set up borders
+
+	move.l	a2,gg_GadgetRender(a1)	;Unselected border
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	lea	SBORDERSIZE(a2),a0
+	move.l	a0,bd_XY(a2)
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	clr.w	bd_LeftEdge+bd_sizeof(a2)
+	clr.w	bd_TopEdge+bd_sizeof(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen+bd_sizeof(a2)
+	move.b	#RP_JAM1,bd_DrawMode+bd_sizeof(a2)
+	move.b	#3,bd_Count+bd_sizeof(a2)
+	lea	SBORDERSIZE+(4*3)(a2),a0
+	move.l  a0,bd_XY+bd_sizeof(a2)
+	clr.l	bd_NextBorder+bd_sizeof(a2)
+	lea	SBORDERSIZE(a2),a0
+	move.w	gg_Width(a1),d4
+	move.w	gg_Height(a1),d3
+	subq.w	#1,d4
+	subq.w	#1,d3
+	moveq	#0,d0
+;First border: (w-1,0) - (0,0) - (0,h-1)  in HilitePen
+	move.w	d4,(a0)+
+	move.l	d0,(a0)+
+	move.l	d0,(a0)+
+	move.w	d3,(a0)+
+;Second border: (w-1,0) - (w-1,h-1) - (0,h-1)  in ShadowPen
+	move.w	d4,(a0)+
+	move.w	d0,(a0)+
+	move.w	d4,(a0)+
+	move.w	d3,(a0)+
+	move.w	d0,(a0)+
+	move.w	d3,(a0)+
+
+	add.l	#2*bd_sizeof,a2		;Selected border
+	move.l	a2,gg_SelectRender(a1)
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	lea	SBORDERSIZE-(2*bd_sizeof)+(4*6)(a2),a0
+	move.l	a0,bd_XY(a2)
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	clr.w	bd_LeftEdge+bd_sizeof(a2)
+	clr.w	bd_TopEdge+bd_sizeof(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen+bd_sizeof(a2)
+	move.b	#RP_JAM1,bd_DrawMode+bd_sizeof(a2)
+	move.b	#3,bd_Count+bd_sizeof(a2)
+	lea	SBORDERSIZE-(2*bd_sizeof)+(4*9)(a2),a0
+	move.l  a0,bd_XY+bd_sizeof(a2)
+	clr.l	bd_NextBorder+bd_sizeof(a2)
+	lea	SBORDERSIZE-(2*bd_sizeof)+(4*6)(a2),a0
+;First border: (w-1,0) - (0,0) - (0,h-1)  in ShadowPen
+	move.w	d4,(a0)+
+	move.l	d0,(a0)+
+	move.l	d0,(a0)+
+	move.w	d3,(a0)+
+;Second border: (w-1,0) - (w-1,h-1) - (0,h-1)  in HilitePen
+	move.w	d4,(a0)+
+	move.w	d0,(a0)+
+	move.w	d4,(a0)+
+	move.w	d3,(a0)+
+	move.w	d0,(a0)+
+	move.w	d3,(a0)+
+	ret
+
+L_SetIgadToggle:	;Set Igadget Toggle n,x,y,w,h,state
+	move.l	(a3)+,d0
+	move.w	#TOGGLESELECT,d1
+	bra	L_MakeBoolGad
+
+L_SetIgadToggle0:	;Set Igadget Toggle n,x,y,w,h
+	moveq	#0,d0
+	move.w	#TOGGLESELECT,d1
+	bra	L_MakeBoolGad
+
+L_SetIgadHit:		;Set Igadget Hit n,x,y,w,h
+	moveq	#0,d0
+	moveq	#0,d1
+	bra	L_MakeBoolGad
+
+;;;;;;;;
+
+L_SetIgadHslider:	;Set Igadget Hslider n,x,y,w,h,units,pos,size,overlap
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	move.l	(a3)+,-(a7)
+	move.l	(a3)+,-(a7)
+	movem.l	(a3)+,d1-d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	cmp.w	#8,d3
+	bcs	L_IllFunc
+	cmp.w	#16,d4
+	bcs	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	move.l	d2,ge_NUnits(a0)
+	move.l	(a7),ge_KnobSize(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#PROPGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	move.w	#GADGIMMEDIATE|RELVERIFY,gg_Activation(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	(a7)+,d4		;Slider size
+	move.l	(a7)+,d6		;Overlap
+	move.l	d2,d0
+	sub.w	d4,d0			;   hidden = MAX(total - visible, 0)
+	bpl	.okhid			;
+	moveq	#0,d0			;
+.okhid	move.w	d0,-(a7)		;   if (hidden > 0) {
+	beq	.hid0			;
+	move.l	d4,d0			;	Body = ((visible - overlap)
+	sub.l	d6,d0			;
+	mulu	#MAXBODY,d0		;	        * MAXBODY)
+	move.l	d2,d7			;		/ (total - overlap);
+	sub.l	d6,d7			;
+	divu	d7,d0			;
+	move.w	d0,pi_HorizBody(a0)	;
+	mulu	#MAXPOT,d1		;	Pot = (position * MAXPOT)
+	divu	(a7)+,d1		;	      / hidden;
+	move.w	d1,pi_HorizPot(a0)	;
+	bra	.piflag			;   } else {
+.hid0	move.w	#MAXBODY,pi_HorizBody(a0);	Body = MAXBODY;
+	clr.w	pi_HorizPot(a0)		;	Pot = 0;
+					;   }
+.piflag	move.w	#AUTOKNOB|FREEHORIZ,pi_Flags(a0)
+
+.border	move.l	a2,gg_GadgetRender(a1)	;Unselected border
+	move.w	gg_Width(a1),d4		;D4 = w-1
+	move.w	gg_Height(a1),d3	;D3 = h-1
+	subq.w	#1,d4
+	subq.w	#1,d3
+	moveq	#1,d5			;D5 = 1
+	move.w	d4,d6			;D6 = w-2
+	subq.w	#1,d6
+	move.w	d3,d7			;D7 = h-2
+	subq.w	#1,d7
+	lea	SBORDERSIZE(a2),a1
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,1) - (1,h-2)  in HilitePen
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(0,h-1) - (0,0) - (w-2,0)  in HilitePen
+	clr.w	(a1)+
+	move.w	d3,(a1)+
+	clr.w	(a1)+
+	clr.w	(a1)+
+	clr.w	(a1)+
+	move.w	d6,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-2,1) - (w-2,h-2)  in ShadowPen
+	move.w	d6,(a1)+
+	move.w	d5,(a1)+
+	move.w	d6,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-1,0) - (w-1,h-1) - (1,h-1)  in ShadowPen
+	move.w	d4,(a1)+
+	clr.w	(a1)+
+	move.w	d4,(a1)+
+	move.w	d3,(a1)+
+	move.w	d5,(a1)+
+	move.w	d3,(a1)+
+	clr.l	bd_NextBorder(a2)
+
+	ret
+
+;;;;;;;;
+
+L_SetIgadVslider:	;Set Igadget Vslider n,x,y,w,h,units,pos,size,overlap
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	move.l	(a3)+,-(a7)
+	move.l	(a3)+,-(a7)
+	movem.l	(a3)+,d1-d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	cmp.w	#16,d3
+	bcs	L_IllFunc
+	cmp.w	#10,d4
+	bcs	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	move.l	#GEF_VSLIDER,ge_Flags(a0)
+	move.l	d2,ge_NUnits(a0)
+	move.l	(a7),ge_KnobSize(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#PROPGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	move.w	#GADGIMMEDIATE|RELVERIFY,gg_Activation(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	(a7)+,d4		;Slider size
+	move.l	(a7)+,d6		;Overlap
+	move.l	d2,d0
+	sub.w	d4,d0			;   hidden = MAX(total - visible, 0)
+	bpl	.okhid			;
+	moveq	#0,d0			;
+.okhid	move.w	d0,-(a7)		;   if (hidden > 0) {
+	beq	.hid0			;
+	move.l	d4,d0			;	Body = ((visible - overlap)
+	sub.l	d6,d0			;
+	mulu	#MAXBODY,d0		;	        * MAXBODY)
+	move.l	d2,d7			;	       / (total - overlap);
+	sub.l	d6,d7			;
+	divu	d7,d0			;
+	move.w	d0,pi_VertBody(a0)	;
+	mulu	#MAXPOT,d1		;	Pot = (position * MAXPOT)
+	divu	(a7)+,d1		;	      / hidden;
+	move.w	d1,pi_VertPot(a0)	;
+	bra	.piflag			;   } else {
+.hid0	move.w	#MAXBODY,pi_VertBody(a0);	Body = MAXBODY;
+	clr.w	pi_VertPot(a0)		;	Pot = 0;
+					;   }
+.piflag	move.w	#AUTOKNOB|FREEVERT,pi_Flags(a0)
+.border	move.l	a2,gg_GadgetRender(a1)	;Set up the border
+	move.w	gg_Width(a1),d4		;D4 = w-1
+	move.w	gg_Height(a1),d3	;D3 = h-1
+	subq.w	#1,d4
+	subq.w	#1,d3
+	moveq	#1,d5			;D5 = 1
+	move.w	d4,d6			;D6 = w-2
+	subq.w	#1,d6
+	move.w	d3,d7			;D7 = h-2
+	subq.w	#1,d7
+	lea	SBORDERSIZE(a2),a1
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,1) - (1,h-2)  in HilitePen
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(0,h-1) - (0,0) - (w-2,0)  in HilitePen
+	clr.w	(a1)+
+	move.w	d3,(a1)+
+	clr.w	(a1)+
+	clr.w	(a1)+
+	clr.w	(a1)+
+	move.w	d6,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-2,1) - (w-2,h-2)  in ShadowPen
+	move.w	d6,(a1)+
+	move.w	d5,(a1)+
+	move.w	d6,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-1,0) - (w-1,h-1) - (1,h-1)  in ShadowPen
+	move.w	d4,(a1)+
+	clr.w	(a1)+
+	move.w	d4,(a1)+
+	move.w	d3,(a1)+
+	move.w	d5,(a1)+
+	move.w	d3,(a1)+
+	clr.l	bd_NextBorder(a2)
+
+	ret
+
+;;;;;;;;
+
+L_SetIgadString:	;Set Igadget String n,x,y,w,h,size,init$,strpos
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	move.l	(a3)+,-(a7)
+	movem.l	(a3)+,d1-d7
+	cmp.l	#Null,d1
+	bne	.nonul0
+	moveq	#0,d1
+.nonul0	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	move.l	wd_RPort(a1),a2
+	cmp.l	#Null,d3
+	bne	.notnul
+	moveq	#0,d3
+	move.w	rp_TxHeight(a2),d3
+	addq.w	#4,d3
+.notnul	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	move.w	rp_TxHeight(a2),d0
+	addq.w	#4,d0
+	cmp.w	d0,d3
+	bcs	L_IllFunc
+	cmp.w	#32,d4
+	bcs	L_IllFunc
+	cmp.l	#65534,d2
+	bhi	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	addq.w	#2,d6
+	addq.w	#2,d5
+	subq.w	#4,d4
+	subq.w	#4,d3
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#STRGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	a2,gg_GadgetRender(a1)
+	move.l	(a7)+,d0
+	beq	.left
+	cmp.l	#1,d0
+	beq	.centre
+	cmp.l	#2,d0
+	bne	L_IllFunc
+	move.w	#STRINGRIGHT,gg_Activation(a1)
+	bra	.si
+.centre	move.w	#STRINGCENTER,gg_Activation(a1)
+	bra	.si
+.left	clr.w	gg_Activation(a1)
+.si	or.w	#GADGIMMEDIATE|RELVERIFY,gg_Activation(a1)
+	move.l	d1,d7
+	move.l	a2,d4
+	move.l	a1,d6
+	move.l	a0,a2
+	addq.w	#1,d2
+	bne	.oklen
+	move.l	#$53475347,d1
+	bra	L_InternalErr
+.oklen	move.l	d2,d0
+	jtcall	StrAlloc
+	move.l	d0,si_Buffer(a2)
+	beq	L_NoMem
+	dcmp.l	GadgetUndoLen,d2
+	bls	.okundo
+	dmove.l	GadgetUndo,a0
+	jtcall	StrFree
+	move.l	d2,d0
+	jtcall	StrAlloc
+	tmove.l	d0,GadgetUndo
+	bne	.setlen
+	mvoe.l	si_Buffer(a2),a0
+	jtcall	StrFree
+	bra	L_NoMem
+.setlen	tmove.l	d0,GadgetUndoLen
+.okundo	dmove.l	GadgetUndo,si_UndoBuffer(a2)
+	move.w	d2,si_MaxChars(a2)
+	clr.w	si_BufferPos(a2)
+	clr.w	si_DispPos(a2)
+	move.l	si_Buffer(a2),a0
+	move.l	d7,d1			;If there was an initial string,
+	beq	.nostr			;  set it up in the buffer
+	move.l	d1,a1
+	move.w	(a1)+,d1
+	beq	.nostr
+	cmp.w	d2,d1
+	bcs	.okilen
+	move.w	d2,d1
+	subq.w	#1,d1
+.okilen	subq.w	#1,d1
+.loop	move.b	(a1)+,(a0)+
+	dbra	d1,.loop
+.nostr	clr.b	(a0)
+
+.border	move.l	gg_GadgetRender(a1),a2	;Set up the border
+	move.w	gg_Width(a1),d4		;D4 = w-1 (=gg_Width+1)
+	move.w	gg_Height(a1),d3	;D3 = h-1
+	addq.w	#1,d4
+	addq.w	#1,d3
+	moveq	#-1,d5			;D5 = 1   (=gg_LeftEdge-1)
+	move.w	d4,d6			;D6 = w-2
+	subq.w	#1,d6
+	move.w	d3,d7			;D7 = h-2
+	subq.w	#1,d7
+	lea	SBORDERSIZE(a2),a1
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,1) - (1,h-2)  in HilitePen
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(0,h-1) - (0,0) - (w-2,0)  in HilitePen
+	move.w	#-2,(a1)+
+	move.w	d3,(a1)+
+	move.w	#-2,(a1)+
+	move.w	#-2,(a1)+
+	move.w	#-2,(a1)+
+	move.w	d6,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-3,1) - (w-3,h-2) - (2,h-2)  in HilitePen
+	move.w	d6,(a1)
+	subq.w	#1,(a1)+
+	move.w	d5,(a1)+
+	move.w	-4(a1),(a1)+
+	move.w	d7,(a1)+
+	clr.w	(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-4,2) - (w-4,h-3)  in HilitePen
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	clr.w	(a1)+
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	d7,(a1)
+	subq.w	#1,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-4,1) - (2,1) - (2,h-2)  in ShadowPen
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	d5,(a1)+
+	clr.w	(a1)+
+	move.w	d5,(a1)+
+	clr.w	(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(3,2) - (3,h-3)  in ShadowPen
+	move.w	#1,(a1)+
+	clr.w	(a1)+
+	move.w	#1,(a1)+
+	move.w	d7,(a1)
+	subq.w	#1,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,h-1) - (w-1,h-1) - (w-1,0)  in ShadowPen
+	move.w	d5,(a1)+
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.w	#-2,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-2,1) - (w-2,h-2)  in ShadowPen
+	move.w	d6,(a1)+
+	move.w	d5,(a1)+
+	move.w	d6,(a1)+
+	move.w	d7,(a1)+
+	clr.l	bd_NextBorder(a2)
+
+	ret
+
+L_SetIgadString1:	;Set Igadget String n,x,y,w,h,size,init$
+	clr.l	-(a3)
+	bra	L_SetIgadString
+
+L_SetIgadString0:	;Set Igadget String n,x,y,w,h,size
+	clr.l	-(a3)
+	bra	L_SetIgadString1
+
+;;;;;;;;
+
+L_SetIgadInt:		;Set Igadget Int n,x,y,w,h,init,strpos
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	movem.l	(a3)+,d1-d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	move.l	wd_RPort(a1),a2
+	cmp.l	#Null,d3
+	bne	.notnul
+	moveq	#0,d3
+	move.w	rp_TxHeight(a2),d3
+	addq.w	#4,d3
+.notnul	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	move.w	rp_TxHeight(a2),d0
+	addq.w	#4,d0
+	cmp.w	d0,d3
+	bcs	L_IllFunc
+	cmp.w	#32,d4
+	bcs	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	addq.w	#2,d6
+	addq.w	#2,d5
+	subq.w	#4,d4
+	subq.w	#4,d3
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#STRGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	a2,gg_GadgetRender(a1)
+	tst.l	d1
+	beq	.left
+	cmp.l	#1,d1
+	beq	.centre
+	cmp.l	#2,d1
+	bne	L_IllFunc
+	move.w	#STRINGRIGHT,gg_Activation(a1)
+	bra	.si
+.centre	move.w	#STRINGCENTER,gg_Activation(a1)
+	bra	.si
+.left	clr.w	gg_Activation(a1)
+.si	or.w	#GADGIMMEDIATE|RELVERIFY|LONGINT,gg_Activation(a1)
+	move.l	a2,d5
+	move.l	a1,d6
+	move.l	a0,a2
+	moveq	#12,d0			;"-1234567890" plus trailing null
+	jtcall	StrAlloc		;It'll get freed when we quit...
+	move.l	d0,si_Buffer(a2)
+	beq	L_NoMem
+	moveq	#12,d0
+	dcmp.l	GadgetUndoLen,d0
+	bls	.okundo
+	dmove.l	GadgetUndo,a0
+	jtcall	StrFree
+	moveq	#12,d0
+	jtcall	StrAlloc
+	tmove.l	d0,GadgetUndo
+	bne	.setlen
+	mvoe.l	si_Buffer(a2),a0
+	jtcall	StrFree
+	bra	L_NoMem
+.setlen	tmove.l	#12,GadgetUndoLen
+.okundo	dmove.l	GadgetUndo,si_UndoBuffer(a2)
+	move.w	#12,si_MaxChars(a2)
+	clr.w	si_BufferPos(a2)
+	clr.w	si_DispPos(a2)
+	move.l	si_Buffer(a2),a0
+	move.l	d2,si_LongInt(a2)
+	bpl	.log
+	cmp.l	#$80000000,d2
+	bne	.neg
+	move.l	#'-214',(a0)+
+	move.l	#'7483',(a0)+
+	move.l	#'648 ',(a0)+
+	clr.b	-1(a0)
+	bra	.border
+.neg	move.b	#'-',(a0)+
+	neg.l	d2
+.log	move.l	d2,d0
+.loglp	addq.l	#1,a0
+	moveq	#10,d1
+	jtcall	LongDiv
+	bne	.loglp
+	clr.b	(a0)
+	move.l	d2,d0
+.asclp	moveq	#10,d1
+	jtcall	LongDiv
+	add.b	#'0',d1
+	move.b	d1,-(a0)
+	tst.l	d0
+	bne	.asclp
+
+.border	move.l	gg_GadgetRender(a1),a2	;Set up the border
+	move.w	gg_Width(a1),d4		;D4 = w-1 (=gg_Width+1)
+	move.w	gg_Height(a1),d3	;D3 = h-1
+	addq.w	#1,d4
+	addq.w	#1,d3
+	moveq	#-1,d5			;D5 = 1   (=gg_LeftEdge-1)
+	move.w	d4,d6			;D6 = w-2
+	subq.w	#1,d6
+	move.w	d3,d7			;D7 = h-2
+	subq.w	#1,d7
+	lea	SBORDERSIZE(a2),a1
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,1) - (1,h-2)  in HilitePen
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(0,h-1) - (0,0) - (w-2,0)  in HilitePen
+	move.w	#-2,(a1)+
+	move.w	d3,(a1)+
+	move.w	#-2,(a1)+
+	move.w	#-2,(a1)+
+	move.w	#-2,(a1)+
+	move.w	d6,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-3,1) - (w-3,h-2) - (2,h-2)  in HilitePen
+	move.w	d6,(a1)
+	subq.w	#1,(a1)+
+	move.w	d5,(a1)+
+	move.w	-4(a1),(a1)+
+	move.w	d7,(a1)+
+	clr.w	(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-4,2) - (w-4,h-3)  in HilitePen
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	clr.w	(a1)+
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	d7,(a1)
+	subq.w	#1,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-4,1) - (2,1) - (2,h-2)  in ShadowPen
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	d5,(a1)+
+	clr.w	(a1)+
+	move.w	d5,(a1)+
+	clr.w	(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(3,2) - (3,h-3)  in ShadowPen
+	move.w	#1,(a1)+
+	clr.w	(a1)+
+	move.w	#1,(a1)+
+	move.w	d7,(a1)
+	subq.w	#1,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,h-1) - (w-1,h-1) - (w-1,0)  in ShadowPen
+	move.w	d5,(a1)+
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.w	#-2,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-2,1) - (w-2,h-2)  in ShadowPen
+	move.w	d6,(a1)+
+	move.w	d5,(a1)+
+	move.w	d6,(a1)+
+	move.w	d7,(a1)+
+	clr.l	bd_NextBorder(a2)
+
+	ret
+
+L_SetIgadInt1:		;Set Igadget Int n,x,y,w,h,init
+	clr.l	-(a3)
+	bra	L_SetIgadInt
+
+L_SetIgadInt0:		;Set Igadget Int n,x,y,w,h
+	clr.l	-(a3)
+	bra	L_SetIgadInt1
+
+
+;;;;;;;;;;;;;;;;
+
+
+L_IgadgetOn:		;Igadget On n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a1),a1
+	add.l	d7,a1
+	tst.w	gg_GadgetType(a1)
+	beq	L_GadNotDef
+	move.w	gg_GadgetID(a1),d0
+	subq.w	#1,d0
+	move.l	gg_UserData(a1),a2
+	move.l	#GEF_DISPLAYED,d7
+	and.l	ge_Flags(a2),d7
+	bne	.done
+	or.l	#GEF_DISPLAYED,ge_Flags(a2)
+	move.l	a0,d4
+	move.l	a1,d5
+	intcall	AddGadget
+	move.l	d4,a1
+	move.l	d5,a0
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+.done	ret
+
+L_IgadgetOnAll:		;Igadget On
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.w	we_NGadgets(a1),d0
+	beq	L_GadNotRes
+	move.l	we_Gadgets(a1),a1
+	subq.w	#1,d0
+	sub.l	a2,a2
+	moveq	#0,d2
+	moveq	#0,d3
+.loop	tst.w	gg_GadgetType(a1)
+	beq	.next
+	move.l	gg_UserData(a1),a5
+	move.l	ge_Flags(a5),d7
+	btst	#GEB_DISPLAYED,d7
+	bne	.xfound
+	move.l	a2,d1
+	bne	.setnxt
+	move.l	a1,d2
+	bra	.found
+.setnxt	move.l	a1,gg_NextGadget(a2)
+.found	move.l	a1,a2
+	clr.l	gg_NextGadget(a1)
+	or.l	#GEF_DISPLAYED,ge_Flags(a5)
+.xfound	moveq	#1,d3
+.next	add.l	#GADGETSIZE,a1
+	dbra	d0,.loop
+	tst.l	d3
+	beq	L_GadNotDef
+	tst.l	d2
+	beq	.exit
+	move.l	d2,a1
+	move.w	gg_GadgetID(a1),d0
+	subq.w	#1,d0
+	moveq	#-1,d1
+	sub.l	a2,a2
+	move.l	a0,d4
+	move.l	a1,d5
+	intcall	AddGList
+	move.l	d4,a1
+	move.l	d5,a0
+	intcall	RefreshGadgets
+.exit	move.l	(a7)+,a5
+	ret
+
+L_IgadgetOff:		;Igadget Off n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a1),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a1),a1
+	add.l	d7,a1
+	move.l	gg_UserData(a1),a2
+	move.l	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a2),d0
+	beq	.done
+	and.l	#~GEF_DISPLAYED,ge_Flags(a2)
+	move.l	a0,d7
+	move.l	a1,d6
+	intcall	RemoveGadget
+	move.l	d6,a0
+	move.l	d7,a1
+	jtcall	ClearGadget
+.done	ret
+
+L_IgadgetOffAll:	;Igadget Off
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.w	we_NGadgets(a1),d2
+	beq	L_GadNotRes
+	move.l	a0,d7
+	move.l	wd_FirstGadget(a0),a1
+.findlp	move.l	gg_UserData(a1),a0
+	cmp.l	#GADGET_MAGIC,ge_MagicID(a0)
+	beq	.found
+	move.l	gg_NextGadget(a1),d0
+	beq	.exit				;No gadgets displayed
+	move.l	d0,a1
+	bra	.findlp
+.found	moveq	#-1,d0
+	move.l	d7,a0
+	intcall	RemoveGList
+	move.l	d7,a0
+	subq.w	#1,d2
+	move.l	wd_UserData(a0),a0
+	move.l	we_Gadgets(a0),a0
+.loop	tst.w	gg_GadgetType(a0)
+	beq	.nogad
+	move.l	gg_UserData(a0),a1
+	and.l	#~GEF_DISPLAYED,ge_Flags(a1)
+	move.l	a0,d6
+	move.l	d7,a1
+	jtcall	ClearGadget
+	move.l	d6,a0
+.nogad	add.l	#GADGETSIZE,a0
+	dbra	d2,.loop
+.exit	ret
+
+L_IgadgetActive:	;Igadget Active n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	and.w	#~GADGDISABLED,gg_Flags(a0)
+	move.l	gg_UserData(a0),a2
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a2),d0
+	beq	.exit
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+.exit	ret
+
+L_IgadgetActiveAll:	;Igadget Active
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	tst.w	we_NGadgets(a0)
+	beq	L_GadNotRes
+	move.l	a5,-(a7)
+	move.l	a1,d4
+	sub.l	a2,a2
+	move.l	we_Gadgets(a0),a5
+.loop	move.l	gg_UserData(a5),a0
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a0),d0
+	beq	.next
+	and.w	#~GADGDISABLED,gg_Flags(a5)
+	move.l	a5,a0
+	move.l	d4,a1
+	moveq	#1,d0
+	intcall	RefreshGList
+.next	add.l	#GADGETSIZE,a5
+	dbra	d7,.loop
+	move.l	(a7)+,a5
+	ret
+
+L_IgadgetInactive:	;Igadget Inactive n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	or.w	#GADGDISABLED,gg_Flags(a0)
+	move.l	gg_UserData(a0),a2
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a2),d0
+	beq	.exit
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+.exit	ret
+
+L_IgadgetInactiveAll:	;Igadget Inactive
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.w	we_NGadgets(a0),d7
+	beq	L_GadNotRes
+	move.l	a5,-(a7)
+	sub.l	a2,a2
+	move.l	a1,d4
+	move.l	we_Gadgets(a0),a5
+.loop	move.l	gg_UserData(a5),a0
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a0),d0
+	beq	.next
+	or.w	#GADGDISABLED,gg_Flags(a5)
+	move.l	a5,a0
+	move.l	d4,a1
+	moveq	#1,d0
+	intcall	RefreshGList
+.next	add.l	#GADGETSIZE,a5
+	dbra	d7,.loop
+	move.l	(a7)+,a5
+	ret
+
+L_IgadgetRead:		;=Igadget Read(n)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	.oktype
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	beq	L_WrongGadType
+	move.l	gg_SpecialInfo(a0),a0
+	move.l	si_LongInt(a0),d3
+	bra	.exit
+.oktype	cmp.w	#PROPGADGET,gg_GadgetType(a0)
+	beq	.prop
+	move.w	#TOGGLESELECT,d0	;Must be boolean - check TOGGLESELECT
+	and.w	gg_Activation(a0),d0
+	bne	.toggle
+	move.l	#GADGETUP,d0		;Not TOGGLESELECT - must be HITSELECT
+	move.l	a0,a2
+	move.l	wd_UserPort(a1),a0
+	jtcall	DoEvent
+	move.l	gg_UserData(a2),a0
+	moveq	#0,d3
+	tst.w	ge_HitCount(a0)
+	beq	.exit
+	moveq	#-1,d3
+	subq.w	#1,ge_HitCount(a0)
+	bra	.exit
+.toggle	move.w	gg_Flags(a0),d0
+	and.w	#SELECTED,d0
+	sne	d3
+	ext.w	d3
+	ext.l	d3
+	bra	.exit
+.prop	move.l	gg_SpecialInfo(a0),a1
+	move.l	gg_UserData(a0),a2
+	move.l	ge_NUnits(a2),d3
+	sub.l	ge_KnobSize(a2),d3
+	bpl	.chkdir
+	moveq	#0,d3
+.chkdir	move.l	ge_Flags(a2),d1
+	btst	#GEB_VSLIDER,d1
+	bne	.vprop
+	move.w	pi_HorizPot(a1),d1
+	bra	.calc
+.vprop	move.w	pi_VertPot(a1),d1
+.calc	mulu	d1,d3
+	add.l	#MAXPOT/2,d3
+	divu	#MAXPOT,d3
+	swap	d3
+	clr.w	d3
+	swap	d3
+.exit	moveq	#0,d2
+	ret
+
+L_IgadgetReadStr:	;=Igadget Read$(n)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	L_WrongGadType
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	bne	L_WrongGadType
+	move.l	gg_SpecialInfo(a0),a0
+	move.l	si_Buffer(a0),a0
+	jtcall	ReturnString
+	ret
+
+L_SetIpens:		;Set Ipens highlight,shadow
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	movem.l	(a3)+,d6-d7
+	cmp.l	#Null,d7
+	beq	.shadow
+	cmp.l	#255,d7
+	bhi	L_IllFunc
+	move.b	d7,we_HilitePen(a0)
+.shadow	cmp.l	#Null,d6
+	beq	.exit
+	cmp.l	#255,d6
+	bhi	L_IllFunc
+	move.b	d6,we_ShadowPen(a0)
+.exit	ret
+
+L_IgadgetDown:		;=Igadget Down(n)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	move.l	gg_UserData(a0),a0
+	move.l	#GEF_GADGETDOWN,d0
+	and.l	ge_Flags(a0),d0
+	sne	d3
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_SetIgadValue:		;Set Igadget Value n,v
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d6
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	.oktype
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	beq	L_WrongGadType
+	movem.l	a0-a1,-(a7)
+	exg	a0,a1
+	intcall	RemoveGadget
+	movem.l	(a7),a0-a1
+	move.l	gg_SpecialInfo(a0),a2
+	move.l	si_Buffer(a2),a0
+	move.l	d6,si_LongInt(a2)
+	bpl	.log
+	cmp.l	#$80000000,d6
+	bne	.neg
+	move.l	#'-214',(a0)+
+	move.l	#'7483',(a0)+
+	move.l	#'648 ',(a0)+
+	clr.b	-1(a0)
+	bra	.intdon
+.neg	move.b	#'-',(a0)+
+	neg.l	d6
+.log	move.l	d6,d0
+.loglp	addq.l	#1,a0
+	moveq	#10,d1
+	jtcall	LongDiv
+	bne	.loglp
+	clr.b	(a0)
+	move.l	d6,d0
+.asclp	moveq	#10,d1
+	jtcall	LongDiv
+	add.b	#'0',d1
+	move.b	d1,-(a0)
+	tst.l	d0
+	bne	.asclp
+.intdon	movem.l	(a7),a0-a1
+	move.w	gg_GadgetID(a0),d0
+	exg	a0,a1
+	intcall	AddGadget
+	movem.l	(a7)+,a0-a1
+	moveq	#1,d0
+	sub.l	a2,a2
+	intcall	RefreshGList
+	bra	.exit
+.oktype	cmp.w	#PROPGADGET,gg_GadgetType(a0)
+	beq	.prop
+	move.w	#TOGGLESELECT,d0
+	and.w	gg_Activation(a0),d0
+	beq	L_IllFunc		;Can't set value of a hit-select!
+	tst.l	d6
+	sne	d6
+	ext.w	d6
+	and.w	#SELECTED,d6
+	move.w	gg_Flags(a0),d0
+	and.w	#SELECTED,d0
+	cmp.w	d6,d0			;If unchanged, skip the rest
+	beq	.exit
+	movem.l	a0-a1,-(a7)
+	exg	a0,a1
+	intcall	RemoveGadget
+	movem.l	(a7),a0-a1
+	and.w	#~SELECTED,gg_Flags(a0)
+	or.w	d6,gg_Flags(a0)
+	move.w	gg_GadgetID(a0),d0
+	exg	a0,a1
+	intcall	AddGadget
+	movem.l	(a7)+,a0-a1
+	moveq	#1,d0
+	sub.l	a2,a2
+	intcall	RefreshGList
+	bra	.exit
+.prop	move.l	gg_SpecialInfo(a0),a2
+	move.l	gg_UserData(a0),a6
+	move.w	pi_Flags(a2),d0
+	move.w	pi_HorizBody(a0),d3
+	move.w	pi_VertBody(a0),d4
+	moveq	#1,d5
+	move.l	ge_NUnits(a6),d7
+	sub.l	ge_KnobSize(a6),d7
+	ble	.exit
+	cmp.l	d7,d6
+	bls	.okpos
+	move.l	d7,d6
+.okpos	move.w	d6,d1
+	mulu	#MAXPOT,d1
+	divu	d7,d1
+	moveq	#-1,d2
+	moveq	#FREEVERT,d7
+	and.w	d0,d7
+	beq	.doprop
+	exg	d1,d2
+.doprop	sub.l	a2,a2
+	intcall	NewModifyProp
+.exit	ret
+
+L_SetIgadValueStr:	;Set Igadget Value$ n,v$
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d6
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	L_WrongGadType
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	bne	L_WrongGadType
+	movem.l	a0-a1,-(a7)
+	exg	a0,a1
+	intcall	RemoveGadget
+	move.l	(a7),a0
+	move.l	gg_SpecialInfo(a0),a0
+	mvoe.l	si_Buffer(a0),a2
+	move.l	a2,a1
+	move.l	d6,a6
+	moveq	#0,d0
+	move.w	(a6)+,d0
+	cmp.w	si_MaxChars(a0),d0
+	bcs	.oksize
+	move.w	si_MaxChars(a0),d0
+.oksize	move.l	a6,a0
+	move.l	d0,d2
+	syscall	CopyMem
+	clr.b	0(a2,d2.l)
+	movem.l	(a7),a0-a1
+	move.w	gg_GadgetID(a0),d0
+	exg	a0,a1
+	intcall	AddGadget
+	movem.l	(a7)+,a0-a1
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+	ret
+
+L_IgadToBank:		;Igadget to Bank n
+      ifd FOR_LATER
+	pstart
+	move.l	(a3)+,d0
+	beq	L_IllFunc
+	cmp.l	#65535,d0
+	bhi	L_IllFunc
+	move.l	d0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	d2,d0
+	move.l	wd_UserData(a0),a6
+	moveq	#12,d1
+	add.l	we_GadgetSize(a6),d1
+	add.l	we_GBorderSize(a6),d1
+	move.l	#1<<Bnk_BitData,d2
+	jtcall	CreateBank
+	tst.l	d0
+	beq	L_NoMem
+	move.l	d0,a2
+	move.l	#'IGad',-8(a2)
+	move.l	#'gets',-4(a2)
+	move.w	#GBANKREV,(a2)+
+	move.w	we_NGadgets(a6),(a2)+
+	move.l	we_GadgetSize(a6),(a2)+
+	move.l	we_GBorderSize(a6),(a2)+
+	move.l	we_Gadgets(a6),a0
+	move.l	a2,a1
+	move.l	we_GadgetSize(a6),d0
+	syscall	CopyMem
+	move.l	we_Gadgets(a6),d2
+	move.l	we_GBorders(a6),d3
+	move.w	we_NGadgets(a6),d1
+	subq.w	#1,d1
+.ptrlp1	move.l	gg_UserData(a2),a1
+	and.l	#~(GEF_DISPLAYED|GEF_GADGETDOWN),ge_Flags(a1)
+	clr.w	ge_HitCount(a1)
+	sub.l	d2,gg_UserData(a2)
+	sub.l	d3,gg_GadgetRender(a2)
+	tst.l	gg_SelectRender(a3)
+	beq	.nosel
+	sub.l	d3,gg_SelectRender(a2)
+.nosel	tst.l	gg_SpecialInfo(a3)
+	beq	.nospec
+	sub.l	d2,gg_SpecialInfo(a2)
+.nospec	add.l	#GADGETSIZE,a2
+	dbra	d1,.ptrlp1
+	move.l	we_GBorders,a0
+	move.l	a2,a1
+	move.l	we_GBorderSize(a6),d0
+	syscall	CopyMem
+	move.w	we_NGadgets(a6),d1
+	subq.w	#1,d2
+.ptrlp2 tst.l	bd_XY(a2)
+	beq	.noxy
+	sub.l	d3,bd_XY(a2)
+	tst.l	bd_XY+bd_sizeof(a2)
+	beq	.noxy
+	sub.l	d3,bd_XY+bd_sizeof(a2)
+.noxy	dbra	d1,.ptrlp2
+	ret
+      else
+	rts
+      endc ;FOR_LATER
+
+L_BankToIgad:		;Bank To Igadget n
+      ifd FOR_LATER
+	pstart
+	move.l	(a3)+,d0
+	beq	L_IllFunc
+	cmp.l	#65535,d0
+	bhi	L_IllFunc
+	move.l	d0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	d2,d0
+	move.l	wd_UserData(a0),a6
+	jtcall	GetBankAdr
+	beq	L_BankNotDef
+	btst	#Bnk_BitBob,d0
+	bne	L_IllFunc
+	btst	#Bnk_BitIcon,d0
+	bne	L_IllFunc
+	move.l	a0,a2
+	cmp.l	#GADGET_MAGIC,(a2)+
+	bne	L_UnknownFmt
+	cmp.w	#GBANKREV,(a2)+
+	bhi	L_UnknownFmt
+;	blo	.oldfmt
+	move.w	(a2)+,-(a3)
+	bsr	L_ReserveIgadget
+	move.l	(a2)+,d2
+	move.l	(a2)+,d3
+	cmp.l	we_GadgetSize(a6),d2
+	beq	.oksize
+	cmp.l	we_GBorderSize(a6),d3
+	beq	.oksize
+	bsr	L_ReserveIgadget0
+	bra	L_Inconsistent
+.oksize	move.l	a2,a0
+	move.l	we_Gadgets(a6),a1
+	move.l	d2,d0
+	syscall	CopyMem
+	add.l	d2,a2
+	move.l	a2,a0
+	move.l	we_GBorders(a6),a1
+	move.l	d3,d0
+	syscall	CopyMem
+	move.l	we_Gadgets(a6),d2
+	move.l	we_GBorders(a6),d3
+	move.l	d2,a2
+	move.w	we_NGadgets(a6),d1
+	subq.w	#1,d1
+	move.w	d1,d5
+.reloc1	add.l	d2,gg_UserData(a2)
+	add.l	d3,gg_GadgetRender(a2)
+	tst.l	gg_SelectRender(a2)
+	beq	.nosel
+	add.l	d3,gg_SelectRender(a2)
+.nosel	tst.l	gg_SpecialInfo(a2)
+	beq	.nospec
+	add.l	d3,gg_SpecialInfo(a2)
+	move.w	gg_GadgetType(a2),d0
+	and.w	#~GADGETTYPE,d0
+	cmp.w	#STRGADGET,d0
+	bne	.nospec
+	move.l	gg_SpecialInfo(a2),a1
+	move.l	a1,d7
+	moveq	#0,d0
+	move.w	si_MaxChars(a1),d0
+	beq	.bad
+	subq.w	#1,d0			;L_StrAlloc adds 1 for null byte
+	move.l	d0,d6
+	jtcall	StrAlloc
+	move.l	d7,a1
+	move.l	d0,si_Buffer(a1)
+	beq	.nomem
+	move.l	d0,a0
+	clr.b	(a0)
+	dcmp.l	GadgetUndoLen,d6
+	bls	.undo
+	dmove.l	GadgetUndo,a0
+	jtcall	StrFree
+	move.l	d6,d0
+	jtcall	StrAlloc
+	tmove.l	d0,GadgetUndo
+	beq	.nomem
+	move.l	d7,a1
+.undo	dmove.l	GadgetUndo,si_UndoBuffer(a1)
+.nospec	add.l	#GADGETSIZE,a2
+	dbra	d1,.reloc1
+	move.l	d3,a2
+.reloc2	tst.l	bd_XY(a2)
+	beq	.noxy
+	add.l	d3,bd_XY(a2)
+	tst.l	bd_sizeof+bd_XY(a2)
+	beq	.noxy
+	add.l	d3,bd_XY(a2)
+.noxy	add.l	#BORDERSIZE,a2
+	dbra	d5,.reloc2
+	ret
+.nomem	bsr	L_ReserveIgadget0
+	bra	L_NoMem
+.bad	bsr	L_ReserveIgadget0
+	bra	L_Inconsistent
+      else
+        rts
+      endc ;FOR_LATER
diff --git a/extensions/Intuition-41.95/Intuition/src/gadgets.s b/extensions/Intuition-41.95/Intuition/src/gadgets.s
new file mode 100644
index 0000000..ef6f160
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/gadgets.s
@@ -0,0 +1,1593 @@
+;Gadget functions
+
+;Size of a we_Gadgets[] element
+GADGETSIZE	equ gg_sizeof+ge_sizeof+si_sizeof
+;Offset to SpecialInfo
+SGADGETSIZE	equ gg_sizeof+ge_sizeof
+;Size of struct Border instances (offset to coordinate pairs)
+SBORDERSIZE	equ bd_sizeof*8
+;Size of a we_GBorders[] element: max of 8 borders, 32 coordinate pairs
+BORDERSIZE	equ SBORDERSIZE+(4*32)
+
+;Current revision of gadget bank format
+GBANKREV	equ 0
+
+
+L_ReserveIgadget:	;Reserve Igadget n
+	pstart
+	bsr	L_ReserveIgadget0	;Free any old gadgets
+	jtcall	GetCurIwin2
+	move.l	d0,a2
+	move.l	wd_UserData(a2),a2
+	move.l	(a3)+,d2
+	bmi	L_IllFunc
+	cmp.l	#$10000,d2
+	bcc	L_TooManyGads
+	move.w	d2,d0
+	mulu	#GADGETSIZE,d0
+	move.l	d0,we_GadgetSize(a2)
+	moveq	#MEMF_PUBLIC,d1
+	jtcall	AllocMemClear
+	move.l	d0,we_Gadgets(a2)
+	beq	L_NoMem
+	move.w	d2,d0
+	mulu	#BORDERSIZE,d0
+	move.l	d0,we_GBorderSize(a2)
+	moveq	#MEMF_PUBLIC,d1
+	jtcall	AllocMemClear
+	move.l	d0,we_GBorders(a2)
+	bne	.bd_ok
+	move.l	we_Gadgets(a2),a1
+	mulu	#gg_sizeof,d2
+	syscall	FreeMem
+	bra	L_NoMem
+.bd_ok	move.w	d2,we_NGadgets(a2)
+	ret
+
+L_ReserveIgadget0:	;Reserve Igadget
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a2
+	move.l	wd_UserData(a2),a2
+	tst.w	we_NGadgets(a2)
+	beq	.exit
+	move.l	we_GBorderSize(a2),d0
+	move.l	we_GBorders(a2),a1
+	syscall	FreeMem
+	move.l	we_GadgetSize(a2),d0
+	move.l	we_Gadgets(a2),a1
+	syscall	FreeMem
+	clr.w	we_NGadgets(a2)
+.exit	ret
+
+
+;;;;;;;;;;;;;;;;
+
+
+L_MakeBoolGad:			;D0 = SELECTED state (zero or non-zero)
+				;D1 = TOGGLESELECT or 0
+	pstart
+	move.w	d0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	movem.l	(a3)+,d3-d7
+	cmp.l	#$10000,d7		;Check gadget number
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0			;Adjust for window border
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	cmp.l	#$8000,d3		;Must be < $8000: Height,
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4		;                Width,
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5		;                TopEdge,
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6		;                LeftEdge
+	bhi	L_IllFunc
+	moveq	#0,d0			;BottomEdge must be < WinHeight
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0			;RightEdge must be < WinWidth
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	cmp.w	#4,d3			;Size must be >= 4x4
+	bcs	L_IllFunc
+	cmp.w	#4,d4
+	bcs	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#BOOLGADGET,gg_GadgetType(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	clr.l	gg_SpecialInfo(a1)
+	move.w	#GADGHIMAGE,gg_Flags(a1)
+	tst.l	d2			;Set initial SELECTED state
+	sne	d2
+	ext.w	d2
+	and.w	#SELECTED,d2
+	or.w	d2,gg_Flags(a1)
+	or.w	#GADGIMMEDIATE|RELVERIFY,d1
+	move.w	d1,gg_Activation(a1)
+
+	;Set up borders
+
+	move.l	a2,gg_GadgetRender(a1)	;Unselected border
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	lea	SBORDERSIZE(a2),a0
+	move.l	a0,bd_XY(a2)
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	clr.w	bd_LeftEdge+bd_sizeof(a2)
+	clr.w	bd_TopEdge+bd_sizeof(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen+bd_sizeof(a2)
+	move.b	#RP_JAM1,bd_DrawMode+bd_sizeof(a2)
+	move.b	#3,bd_Count+bd_sizeof(a2)
+	lea	SBORDERSIZE+(4*3)(a2),a0
+	move.l  a0,bd_XY+bd_sizeof(a2)
+	clr.l	bd_NextBorder+bd_sizeof(a2)
+	lea	SBORDERSIZE(a2),a0
+	move.w	gg_Width(a1),d4
+	move.w	gg_Height(a1),d3
+	subq.w	#1,d4
+	subq.w	#1,d3
+	moveq	#0,d0
+	moveq	#1,d1
+;First border: (w-1,0) - (0,0) - (0,h-1)  in HilitePen
+	move.w	d4,(a0)+
+	move.l	d0,(a0)+
+	move.l	d0,(a0)+
+	move.w	d3,(a0)+
+;Second border: (w-1,0) - (w-1,h-1) - (0,h-1)  in ShadowPen
+	move.w	d4,(a0)+
+	move.w	d0,(a0)+
+	move.w	d4,(a0)+
+	move.w	d3,(a0)+
+	move.w	d0,(a0)+
+	move.w	d3,(a0)+
+
+	add.l	#2*bd_sizeof,a2		;Selected border
+	move.l	a2,gg_SelectRender(a1)
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	lea	SBORDERSIZE-(2*bd_sizeof)+(4*6)(a2),a0
+	move.l	a0,bd_XY(a2)
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	clr.w	bd_LeftEdge+bd_sizeof(a2)
+	clr.w	bd_TopEdge+bd_sizeof(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen+bd_sizeof(a2)
+	move.b	#RP_JAM1,bd_DrawMode+bd_sizeof(a2)
+	move.b	#3,bd_Count+bd_sizeof(a2)
+	lea	SBORDERSIZE-(2*bd_sizeof)+(4*9)(a2),a0
+	move.l  a0,bd_XY+bd_sizeof(a2)
+	clr.l	bd_NextBorder+bd_sizeof(a2)
+	lea	SBORDERSIZE-(2*bd_sizeof)+(4*6)(a2),a0
+;First border: (w-1,0) - (0,0) - (0,h-1)  in ShadowPen
+	move.w	d4,(a0)+
+	move.l	d0,(a0)+
+	move.l	d0,(a0)+
+	move.w	d3,(a0)+
+;Second border: (w-1,0) - (w-1,h-1) - (0,h-1)  in HilitePen
+	move.w	d4,(a0)+
+	move.w	d0,(a0)+
+	move.w	d4,(a0)+
+	move.w	d3,(a0)+
+	move.w	d0,(a0)+
+	move.w	d3,(a0)+
+	ret
+
+L_SetIgadToggle:	;Set Igadget Toggle n,x,y,w,h,state
+	move.l	(a3)+,d0
+	move.w	#TOGGLESELECT,d1
+	bra	L_MakeBoolGad
+
+L_SetIgadToggle0:	;Set Igadget Toggle n,x,y,w,h
+	moveq	#0,d0
+	move.w	#TOGGLESELECT,d1
+	bra	L_MakeBoolGad
+
+L_SetIgadHit:		;Set Igadget Hit n,x,y,w,h
+	moveq	#0,d0
+	moveq	#0,d1
+	bra	L_MakeBoolGad
+
+;;;;;;;;
+
+L_MakeSlider:		;Takes parameters on A3 from Set Igadget [HV]slider,
+			;  plus: D0 = 0 for horizontal, 1 for vertical
+	pstart
+	move.w	d0,-(a7)
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	move.l	(a3)+,-(a7)
+	move.l	(a3)+,-(a7)
+	movem.l	(a3)+,d1-d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	move.l	d2,ge_NUnits(a0)
+	move.l	(a7),ge_KnobSize(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#PROPGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	move.w	#GADGIMMEDIATE|RELVERIFY,gg_Activation(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	(a7)+,d4		;Slider size
+	move.l	(a7)+,d6		;Overlap
+	move.l	d2,d0
+	sub.w	d4,d0			;   hidden = MAX(total - visible, 0)
+	ble	.hid0			;   if (hidden > 0) {
+	move.w	d0,-(a7)		;
+	move.l	d4,d0			;	Body = ((visible - overlap)
+	sub.l	d6,d0			;
+	mulu	#MAXBODY,d0		;	        * MAXBODY)
+	move.l	d2,d7			;		/ (total - overlap);
+	sub.l	d6,d7			;
+	divu	d7,d0			;
+	tst.w	2(a7)			;
+	bne	.vert1			;
+	move.w	d0,pi_HorizBody(a0)	;
+	bra	.pot			;
+.vert1	move.w	d0,pi_VertBody(a0)	;
+.pot	mulu	#MAXPOT,d1		;	Pot = (position * MAXPOT)
+	divu	(a7)+,d1		;	      / hidden;
+	tst.w	(a7)+			;
+	bne	.vert2			;
+	move.w	d1,pi_HorizPot(a0)	;
+	bra	.piflag			;
+.vert2	move.w	d1,pi_VertPot(a0)	;
+	bra	.piflag			;   } else {
+.hid0	tst.w	(a7)			;
+	bne	.vert3			;
+	move.w	#MAXBODY,pi_HorizBody(a0);	Body = MAXBODY;
+	clr.w	pi_HorizPot(a0)		;	Pot = 0;
+	bra	.piflag			;
+.vert3	move.w	#MAXBODY,pi_HorizBody(a0)
+	clr.w	pi_HorizPot(a0)		;
+					;   }
+.piflag	move.w	#AUTOKNOB,pi_Flags(a0)
+	tst.w	(a7)+
+	bne	.vert4
+	or.w	#FREEHORIZ,pi_Flags(a0)
+	bra	.border
+.vert4	or.w	#FREEVERT,pi_Flags(a0)
+
+.border	move.l	a2,gg_GadgetRender(a1)	;Set up border
+	move.w	gg_Width(a1),d4		;D4 = w-1
+	move.w	gg_Height(a1),d3	;D3 = h-1
+	subq.w	#1,d4
+	subq.w	#1,d3
+	moveq	#1,d5			;D5 = 1
+	move.w	d4,d6			;D6 = w-2
+	subq.w	#1,d6
+	move.w	d3,d7			;D7 = h-2
+	subq.w	#1,d7
+	lea	SBORDERSIZE(a2),a1
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#2,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,1) - (1,h-2)  in HilitePen
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d5,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(0,h-1) - (0,0) - (w-2,0)  in HilitePen
+	clr.w	(a1)+
+	move.w	d3,(a1)+
+	clr.w	(a1)+
+	clr.w	(a1)+
+	move.w	d6,(a1)+
+	clr.w	(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#2,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-2,1) - (w-2,h-2)  in ShadowPen
+	move.w	d6,(a1)+
+	move.w	d5,(a1)+
+	move.w	d6,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-1,0) - (w-1,h-1) - (1,h-1)  in ShadowPen
+	move.w	d4,(a1)+
+	clr.w	(a1)+
+	move.w	d4,(a1)+
+	move.w	d3,(a1)+
+	move.w	d5,(a1)+
+	move.w	d3,(a1)+
+	clr.l	bd_NextBorder(a2)
+
+	ret
+
+L_SetIgadHslider:	;Set Igadget Hslider n,x,y,w,h,units,pos,size,overlap
+	moveq	#0,d0
+	bra	L_MakeSlider
+
+L_SetIgadVslider:	;Set Igadget Vslider n,x,y,w,h,units,pos,size,overlap
+	moveq	#1,d0
+	bra	L_MakeSlider
+
+;;;;;;;;
+
+L_SetIgadString:	;Set Igadget String n,x,y,w,h,size,init$,strpos
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	move.l	(a3)+,-(a7)
+	movem.l	(a3)+,d1-d7
+	cmp.l	#Null,d1
+	bne	.nonul0
+	moveq	#0,d1
+.nonul0	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	move.l	wd_RPort(a1),a2
+	cmp.l	#Null,d3
+	bne	.notnul
+	moveq	#0,d3
+	move.w	rp_TxHeight(a2),d3
+	addq.w	#4,d3
+.notnul	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	move.w	rp_TxHeight(a2),d0
+	addq.w	#4,d0
+	cmp.w	d0,d3
+	bcs	L_IllFunc
+	cmp.w	#32,d4
+	bcs	L_IllFunc
+	cmp.l	#65534,d2
+	bhi	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	addq.w	#4,d6
+	addq.w	#2,d5
+	subq.w	#8,d4
+	subq.w	#4,d3
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#STRGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	a2,gg_GadgetRender(a1)
+	move.l	(a7)+,d0
+	beq	.left
+	cmp.l	#1,d0
+	beq	.centre
+	cmp.l	#2,d0
+	bne	L_IllFunc
+	move.w	#STRINGRIGHT,gg_Activation(a1)
+	bra	.si
+.centre	move.w	#STRINGCENTER,gg_Activation(a1)
+	bra	.si
+.left	clr.w	gg_Activation(a1)
+.si	or.w	#GADGIMMEDIATE|RELVERIFY,gg_Activation(a1)
+	move.l	d1,d7
+	move.l	a2,d4
+	move.l	a1,d6
+	move.l	a0,a2
+	addq.w	#1,d2
+	bne	.oklen
+	move.l	#$53475347,d1
+	bra	L_InternalErr
+.oklen	move.l	d2,d0
+	jtcall	StrAlloc
+	move.l	d0,si_Buffer(a2)
+	beq	L_NoMem
+	dcmp.l	GadgetUndoLen,d2
+	bls	.okundo
+	dmove.l	GadgetUndo,a0
+	jtcall	StrFree
+	move.l	d2,d0
+	jtcall	StrAlloc
+	tmove.l	d0,GadgetUndo
+	bne	.setlen
+	mvoe.l	si_Buffer(a2),a0
+	jtcall	StrFree
+	bra	L_NoMem
+.setlen	tmove.l	d0,GadgetUndoLen
+.okundo	dmove.l	GadgetUndo,si_UndoBuffer(a2)
+	move.w	d2,si_MaxChars(a2)
+	clr.w	si_BufferPos(a2)
+	clr.w	si_DispPos(a2)
+	move.l	si_Buffer(a2),a0
+	move.l	d7,d1			;If there was an initial string,
+	beq	.nostr			;  set it up in the buffer
+	move.l	d1,a1
+	move.w	(a1)+,d1
+	beq	.nostr
+	cmp.w	d2,d1
+	bcs	.okilen
+	move.w	d2,d1
+	subq.w	#1,d1
+.okilen	subq.w	#1,d1
+.loop	move.b	(a1)+,(a0)+
+	dbra	d1,.loop
+.nostr	clr.b	(a0)
+
+	bra	L_gStringBorder
+
+L_SetIgadString1:	;Set Igadget String n,x,y,w,h,size,init$
+	clr.l	-(a3)
+	bra	L_SetIgadString
+
+L_SetIgadString0:	;Set Igadget String n,x,y,w,h,size
+	clr.l	-(a3)
+	bra	L_SetIgadString1
+
+;;;;;;;;
+
+L_SetIgadInt:		;Set Igadget Int n,x,y,w,h,init,strpos
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a6
+	movem.l	(a3)+,d1-d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a6),d7
+	bhi	L_GadNotRes
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d6
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d5
+	move.l	wd_RPort(a1),a2
+	cmp.l	#Null,d3
+	bne	.notnul
+	moveq	#0,d3
+	move.w	rp_TxHeight(a2),d3
+	addq.w	#4,d3
+.notnul	cmp.l	#$8000,d3
+	bhi	L_IllFunc
+	cmp.l	#$8000,d4
+	bhi	L_IllFunc
+	cmp.l	#$8000,d5
+	bhi	L_IllFunc
+	cmp.l	#$8000,d6
+	bhi	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderBottom(a1),d0
+	add.w	d3,d0
+	add.w	d5,d0
+	cmp.w	wd_Height(a1),d0
+	bcc	L_IllFunc
+	moveq	#0,d0
+	move.b	wd_BorderRight(a1),d0
+	add.w	d4,d0
+	add.w	d6,d0
+	cmp.w	wd_Width(a1),d0
+	bcc	L_IllFunc
+	move.w	rp_TxHeight(a2),d0
+	addq.w	#4,d0
+	cmp.w	d0,d3
+	bcs	L_IllFunc
+	cmp.w	#32,d4
+	bcs	L_IllFunc
+	move.l	we_Gadgets(a6),a1
+	move.l	we_GBorders(a6),a2
+	subq.w	#1,d7
+	move.w	d7,d0
+	mulu	#GADGETSIZE,d0
+	add.l	d0,a1
+	move.w	d7,d0
+	mulu	#BORDERSIZE,d0
+	add.l	d0,a2
+	lea	gg_sizeof(a1),a0
+	move.l	a0,gg_UserData(a1)
+	move.l	#GADGET_MAGIC,ge_MagicID(a0)
+	clr.l	ge_Flags(a0)
+	addq.w	#1,d7
+	move.w	d7,gg_GadgetID(a1)
+	addq.w	#4,d6
+	addq.w	#2,d5
+	subq.w	#8,d4
+	subq.w	#4,d3
+	move.w	d6,gg_LeftEdge(a1)
+	move.w	d5,gg_TopEdge(a1)
+	move.w	d4,gg_Width(a1)
+	move.w	d3,gg_Height(a1)
+	move.w	#STRGADGET,gg_GadgetType(a1)
+	lea	SGADGETSIZE(a1),a0
+	move.l	a0,gg_SpecialInfo(a1)
+	move.w	#GADGHNONE,gg_Flags(a1)
+	clr.l	gg_GadgetText(a1)
+	clr.l	gg_MutualExclude(a1)
+	move.l	a2,gg_GadgetRender(a1)
+	tst.l	d1
+	beq	.left
+	cmp.l	#1,d1
+	beq	.centre
+	cmp.l	#2,d1
+	bne	L_IllFunc
+	move.w	#STRINGRIGHT,gg_Activation(a1)
+	bra	.si
+.centre	move.w	#STRINGCENTER,gg_Activation(a1)
+	bra	.si
+.left	clr.w	gg_Activation(a1)
+.si	or.w	#GADGIMMEDIATE|RELVERIFY|LONGINT,gg_Activation(a1)
+	move.l	a2,d5
+	move.l	a1,d6
+	move.l	a0,a2
+	moveq	#12,d0			;"-1234567890" plus trailing null
+	jtcall	StrAlloc		;It'll get freed when we quit...
+	move.l	d0,si_Buffer(a2)
+	beq	L_NoMem
+	moveq	#12,d0
+	dcmp.l	GadgetUndoLen,d0
+	bls	.okundo
+	dmove.l	GadgetUndo,a0
+	jtcall	StrFree
+	moveq	#12,d0
+	jtcall	StrAlloc
+	tmove.l	d0,GadgetUndo
+	bne	.setlen
+	mvoe.l	si_Buffer(a2),a0
+	jtcall	StrFree
+	bra	L_NoMem
+.setlen	tmove.l	#12,GadgetUndoLen
+.okundo	dmove.l	GadgetUndo,si_UndoBuffer(a2)
+	move.w	#12,si_MaxChars(a2)
+	clr.w	si_BufferPos(a2)
+	clr.w	si_DispPos(a2)
+	move.l	si_Buffer(a2),a0
+	move.l	d2,si_LongInt(a2)
+	bpl	.log
+	cmp.l	#$80000000,d2
+	bne	.neg
+	move.l	#'-214',(a0)+
+	move.l	#'7483',(a0)+
+	move.l	#'648 ',(a0)+
+	clr.b	-1(a0)
+	bra	L_gStringBorder
+.neg	move.b	#'-',(a0)+
+	neg.l	d2
+.log	move.l	d2,d0
+.loglp	addq.l	#1,a0
+	moveq	#10,d1
+	jtcall	LongDiv
+	bne	.loglp
+	clr.b	(a0)
+	move.l	d2,d0
+.asclp	moveq	#10,d1
+	jtcall	LongDiv
+	add.b	#'0',d1
+	move.b	d1,-(a0)
+	tst.l	d0
+	bne	.asclp
+	bra	L_gStringBorder
+
+
+L_gStringBorder:			;Set up a string/integer gadget border
+	move.l	d6,a1			;Restore gadget address
+	move.l	gg_GadgetRender(a1),a2
+	move.w	gg_Width(a1),d4		;D4 = w-1 (=gg_Width+3)
+	addq.w	#3,d4
+	move.w	gg_Height(a1),d3	;D3 = h-1 (=gg_Height+1)
+	addq.w	#1,d3
+	move.w	d4,d6			;D6 = w-2
+	subq.w	#1,d6
+	move.w	d3,d7			;D7 = h-2
+	subq.w	#1,d7
+	lea	SBORDERSIZE(a2),a1
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#2,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,1) - (1,h-2)  in HilitePen
+	move.w	#-3,(a1)+
+	move.w	#-1,(a1)+
+	move.w	#-3,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(0,h-1) - (0,0) - (w-2,0)  in HilitePen
+	move.w	#-4,(a1)+
+	move.w	d3,(a1)+
+	move.w	#-4,(a1)+
+	move.w	#-2,(a1)+
+	move.w	d6,(a1)+
+	move.w	#-2,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-3,1) - (w-3,h-2) - (2,h-2)  in HilitePen
+	move.w	d6,(a1)
+	subq.w	#1,(a1)+
+	move.w	#-1,(a1)+
+	move.w	-4(a1),(a1)+
+	move.w	d7,(a1)+
+	move.w	#-2,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_HilitePen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#2,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-4,2) - (w-4,h-3)  in HilitePen
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	#0,(a1)+
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	d7,(a1)
+	subq.w	#1,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-4,1) - (2,1) - (2,h-2)  in ShadowPen
+	move.w	d6,(a1)
+	subq.w	#2,(a1)+
+	move.w	#-1,(a1)+
+	move.w	#-2,(a1)+
+	move.w	#-1,(a1)+
+	move.w	#-2,(a1)+
+	move.w	d7,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#2,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(3,2) - (3,h-3)  in ShadowPen
+	move.w	#-1,(a1)+
+	move.w	#0,(a1)+
+	move.w	#-1,(a1)+
+	move.w	d7,(a1)
+	subq.w	#1,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#3,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(1,h-1) - (w-1,h-1) - (w-1,0)  in ShadowPen
+	move.w	#-3,(a1)+
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.w	d3,(a1)+
+	move.w	d4,(a1)+
+	move.w	#-2,(a1)+
+	lea	bd_sizeof(a2),a0
+	move.l	a0,bd_NextBorder(a2)
+	move.l	a0,a2
+
+	clr.w	bd_LeftEdge(a2)
+	clr.w	bd_TopEdge(a2)
+	move.b	we_ShadowPen(a6),bd_FrontPen(a2)
+	move.b	#RP_JAM1,bd_DrawMode(a2)
+	move.b	#2,bd_Count(a2)
+	move.l	a1,bd_XY(a2)
+;(w-2,1) - (w-2,h-2)  in ShadowPen
+	move.w	d6,(a1)+
+	move.w	#-1,(a1)+
+	move.w	d6,(a1)+
+	move.w	d7,(a1)+
+	clr.l	bd_NextBorder(a2)
+
+	ret
+
+L_SetIgadInt1:		;Set Igadget Int n,x,y,w,h,init
+	clr.l	-(a3)
+	bra	L_SetIgadInt
+
+L_SetIgadInt0:		;Set Igadget Int n,x,y,w,h
+	clr.l	-(a3)
+	bra	L_SetIgadInt1
+
+
+;;;;;;;;;;;;;;;;
+
+
+L_IgadgetOn:		;Igadget On n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a1),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a1),a1
+	add.l	d7,a1
+	tst.w	gg_GadgetType(a1)
+	beq	L_GadNotDef
+	move.w	gg_GadgetID(a1),d0
+	subq.w	#1,d0
+	move.l	gg_UserData(a1),a2
+	move.l	#GEF_DISPLAYED,d7
+	and.l	ge_Flags(a2),d7
+	bne	.done
+	or.l	#GEF_DISPLAYED,ge_Flags(a2)
+	move.l	a0,d4
+	move.l	a1,d5
+	intcall	AddGadget
+	move.l	d4,a1
+	move.l	d5,a0
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+.done	ret
+
+L_IgadgetOnAll:		;Igadget On
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.w	we_NGadgets(a1),d0
+	beq	L_GadNotRes
+	move.l	we_Gadgets(a1),a1
+	subq.w	#1,d0
+	sub.l	a2,a2
+	moveq	#0,d2
+	moveq	#0,d3
+.loop	tst.w	gg_GadgetType(a1)
+	beq	.next
+	move.l	gg_UserData(a1),a5
+	move.l	ge_Flags(a5),d7
+	btst	#GEB_DISPLAYED,d7
+	bne	.xfound
+	move.l	a2,d1
+	bne	.setnxt
+	move.l	a1,d2
+	bra	.found
+.setnxt	move.l	a1,gg_NextGadget(a2)
+.found	move.l	a1,a2
+	clr.l	gg_NextGadget(a1)
+	or.l	#GEF_DISPLAYED,ge_Flags(a5)
+.xfound	moveq	#1,d3
+.next	add.l	#GADGETSIZE,a1
+	dbra	d0,.loop
+	tst.l	d3
+	beq	L_GadNotDef
+	tst.l	d2
+	beq	.exit
+	move.l	d2,a1
+	move.w	gg_GadgetID(a1),d0
+	subq.w	#1,d0
+	moveq	#-1,d1
+	sub.l	a2,a2
+	move.l	a0,d4
+	move.l	a1,d5
+	intcall	AddGList
+	move.l	d4,a1
+	move.l	d5,a0
+	intcall	RefreshGadgets
+.exit	move.l	(a7)+,a5
+	ret
+
+L_IgadgetOff:		;Igadget Off n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a1),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a1),a1
+	add.l	d7,a1
+	move.l	gg_UserData(a1),a2
+	move.l	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a2),d0
+	beq	.done
+	and.l	#~GEF_DISPLAYED,ge_Flags(a2)
+	move.l	a0,d7
+	move.l	a1,d6
+	intcall	RemoveGadget
+	move.l	d6,a0
+	move.l	d7,a1
+	jtcall	ClearGadget
+.done	ret
+
+L_IgadgetOffAll:	;Igadget Off
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.w	we_NGadgets(a1),d2
+	beq	L_GadNotRes
+	move.l	a0,d7
+	move.l	wd_FirstGadget(a0),a1
+.findlp	move.l	gg_UserData(a1),a0
+	cmp.l	#GADGET_MAGIC,ge_MagicID(a0)
+	beq	.found
+	move.l	gg_NextGadget(a1),d0
+	beq	.exit				;No gadgets displayed
+	move.l	d0,a1
+	bra	.findlp
+.found	moveq	#-1,d0
+	move.l	d7,a0
+	intcall	RemoveGList
+	move.l	d7,a0
+	subq.w	#1,d2
+	move.l	wd_UserData(a0),a0
+	move.l	we_Gadgets(a0),a0
+.loop	tst.w	gg_GadgetType(a0)
+	beq	.nogad
+	move.l	gg_UserData(a0),a1
+	and.l	#~GEF_DISPLAYED,ge_Flags(a1)
+	move.l	a0,d6
+	move.l	d7,a1
+	jtcall	ClearGadget
+	move.l	d6,a0
+.nogad	add.l	#GADGETSIZE,a0
+	dbra	d2,.loop
+.exit	ret
+
+L_IgadgetActive:	;Igadget Active n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	and.w	#~GADGDISABLED,gg_Flags(a0)
+	move.l	gg_UserData(a0),a2
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a2),d0
+	beq	.exit
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+.exit	ret
+
+L_IgadgetActiveAll:	;Igadget Active
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	tst.w	we_NGadgets(a0)
+	beq	L_GadNotRes
+	move.l	a5,-(a7)
+	move.l	a1,d4
+	sub.l	a2,a2
+	move.l	we_Gadgets(a0),a5
+.loop	move.l	gg_UserData(a5),a0
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a0),d0
+	beq	.next
+	and.w	#~GADGDISABLED,gg_Flags(a5)
+	move.l	a5,a0
+	move.l	d4,a1
+	moveq	#1,d0
+	intcall	RefreshGList
+.next	add.l	#GADGETSIZE,a5
+	dbra	d7,.loop
+	move.l	(a7)+,a5
+	ret
+
+L_IgadgetInactive:	;Igadget Inactive n
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	or.w	#GADGDISABLED,gg_Flags(a0)
+	move.l	gg_UserData(a0),a2
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a2),d0
+	beq	.exit
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+.exit	ret
+
+L_IgadgetInactiveAll:	;Igadget Inactive
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.w	we_NGadgets(a0),d7
+	beq	L_GadNotRes
+	move.l	a5,-(a7)
+	sub.l	a2,a2
+	move.l	a1,d4
+	move.l	we_Gadgets(a0),a5
+.loop	move.l	gg_UserData(a5),a0
+	moveq	#GEF_DISPLAYED,d0
+	and.l	ge_Flags(a0),d0
+	beq	.next
+	or.w	#GADGDISABLED,gg_Flags(a5)
+	move.l	a5,a0
+	move.l	d4,a1
+	moveq	#1,d0
+	intcall	RefreshGList
+.next	add.l	#GADGETSIZE,a5
+	dbra	d7,.loop
+	move.l	(a7)+,a5
+	ret
+
+L_IgadgetRead:		;=Igadget Read(n)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	.oktype
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	beq	L_WrongGadType
+	move.l	gg_SpecialInfo(a0),a0
+	move.l	si_LongInt(a0),d3
+	bra	.exit
+.oktype	cmp.w	#PROPGADGET,gg_GadgetType(a0)
+	beq	.prop
+	move.w	#TOGGLESELECT,d0	;Must be boolean - check TOGGLESELECT
+	and.w	gg_Activation(a0),d0
+	bne	.toggle
+	move.l	#GADGETUP,d0		;Not TOGGLESELECT - must be HITSELECT
+	move.l	a0,a2
+	move.l	wd_UserPort(a1),a0
+	jtcall	DoEvent
+	move.l	gg_UserData(a2),a0
+	moveq	#0,d3
+	tst.w	ge_HitCount(a0)
+	beq	.exit
+	moveq	#-1,d3
+	subq.w	#1,ge_HitCount(a0)
+	bra	.exit
+.toggle	move.w	gg_Flags(a0),d0
+	and.w	#SELECTED,d0
+	sne	d3
+	ext.w	d3
+	ext.l	d3
+	bra	.exit
+.prop	move.l	gg_SpecialInfo(a0),a1
+	move.l	gg_UserData(a0),a2
+	move.l	ge_NUnits(a2),d3
+	sub.l	ge_KnobSize(a2),d3
+	bpl	.chkdir
+	moveq	#0,d3
+.chkdir	move.l	ge_Flags(a2),d1
+	btst	#GEB_VSLIDER,d1
+	bne	.vprop
+	move.w	pi_HorizPot(a1),d1
+	bra	.calc
+.vprop	move.w	pi_VertPot(a1),d1
+.calc	mulu	d1,d3
+	add.l	#MAXPOT/2,d3
+	divu	#MAXPOT,d3
+	swap	d3
+	clr.w	d3
+	swap	d3
+.exit	moveq	#0,d2
+	ret
+
+L_IgadgetReadStr:	;=Igadget Read$(n)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	L_WrongGadType
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	bne	L_WrongGadType
+	move.l	gg_SpecialInfo(a0),a0
+	move.l	si_Buffer(a0),a0
+	lea	.rsc(pc),a1
+	jtcall	ReturnString
+	ret
+.rsc	ds.b	rsc_sizeof
+
+
+L_SetIpens:		;Set Ipens highlight,shadow
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	movem.l	(a3)+,d6-d7
+	cmp.l	#Null,d7
+	beq	.shadow
+	cmp.l	#255,d7
+	bhi	L_IllFunc
+	move.b	d7,we_HilitePen(a0)
+.shadow	cmp.l	#Null,d6
+	beq	.exit
+	cmp.l	#255,d6
+	bhi	L_IllFunc
+	move.b	d6,we_ShadowPen(a0)
+.exit	ret
+
+L_IgadgetDown:		;=Igadget Down(n)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	move.l	gg_UserData(a0),a0
+	move.l	#GEF_GADGETDOWN,d0
+	and.l	ge_Flags(a0),d0
+	sne	d3
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_SetIgadValue:		;Set Igadget Value n,v
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d6
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	.oktype
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	beq	L_WrongGadType
+	movem.l	a0-a1,-(a7)
+	exg	a0,a1
+	intcall	RemoveGadget
+	movem.l	(a7),a0-a1
+	move.l	gg_SpecialInfo(a0),a2
+	move.l	si_Buffer(a2),a0
+	move.l	d6,si_LongInt(a2)
+	bpl	.log
+	cmp.l	#$80000000,d6
+	bne	.neg
+	move.l	#'-214',(a0)+
+	move.l	#'7483',(a0)+
+	move.l	#'648 ',(a0)+
+	clr.b	-1(a0)
+	bra	.intdon
+.neg	move.b	#'-',(a0)+
+	neg.l	d6
+.log	move.l	d6,d0
+.loglp	addq.l	#1,a0
+	moveq	#10,d1
+	jtcall	LongDiv
+	bne	.loglp
+	clr.b	(a0)
+	move.l	d6,d0
+.asclp	moveq	#10,d1
+	jtcall	LongDiv
+	add.b	#'0',d1
+	move.b	d1,-(a0)
+	tst.l	d0
+	bne	.asclp
+.intdon	movem.l	(a7),a0-a1
+	move.w	gg_GadgetID(a0),d0
+	exg	a0,a1
+	intcall	AddGadget
+	movem.l	(a7)+,a0-a1
+	moveq	#1,d0
+	sub.l	a2,a2
+	intcall	RefreshGList
+	bra	.exit
+.oktype	cmp.w	#PROPGADGET,gg_GadgetType(a0)
+	beq	.prop
+	move.w	#TOGGLESELECT,d0
+	and.w	gg_Activation(a0),d0
+	beq	L_IllFunc		;Can't set value of a hit-select!
+	tst.l	d6
+	sne	d6
+	ext.w	d6
+	and.w	#SELECTED,d6
+	move.w	gg_Flags(a0),d0
+	and.w	#SELECTED,d0
+	cmp.w	d6,d0			;If unchanged, skip the rest
+	beq	.exit
+	movem.l	a0-a1,-(a7)
+	exg	a0,a1
+	intcall	RemoveGadget
+	movem.l	(a7),a0-a1
+	and.w	#~SELECTED,gg_Flags(a0)
+	or.w	d6,gg_Flags(a0)
+	move.w	gg_GadgetID(a0),d0
+	exg	a0,a1
+	intcall	AddGadget
+	movem.l	(a7)+,a0-a1
+	moveq	#1,d0
+	sub.l	a2,a2
+	intcall	RefreshGList
+	bra	.exit
+.prop	move.l	gg_SpecialInfo(a0),a2
+	move.l	gg_UserData(a0),a6
+	move.w	pi_Flags(a2),d0
+	move.w	pi_HorizBody(a0),d3
+	move.w	pi_VertBody(a0),d4
+	moveq	#1,d5
+	move.l	ge_NUnits(a6),d7
+	sub.l	ge_KnobSize(a6),d7
+	ble	.exit
+	cmp.l	d7,d6
+	bls	.okpos
+	move.l	d7,d6
+.okpos	move.w	d6,d1
+	mulu	#MAXPOT,d1
+	divu	d7,d1
+	moveq	#-1,d2
+	moveq	#FREEVERT,d7
+	and.w	d0,d7
+	beq	.doprop
+	exg	d1,d2
+.doprop	sub.l	a2,a2
+	intcall	NewModifyProp
+.exit	ret
+
+L_SetIgadValueStr:	;Set Igadget Value$ n,v$
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a0
+	move.l	(a3)+,d6
+	move.l	(a3)+,d7
+	cmp.l	#$10000,d7
+	bcc	L_GadNotRes
+	cmp.w	we_NGadgets(a0),d7
+	bhi	L_GadNotRes
+	subq.w	#1,d7
+	bmi	L_IllFunc
+	mulu	#GADGETSIZE,d7
+	move.l	we_Gadgets(a0),a0
+	add.l	d7,a0
+	tst.w	gg_GadgetType(a0)
+	beq	L_GadNotDef
+	cmp.w	#STRGADGET,gg_GadgetType(a0)
+	bne	L_WrongGadType
+	move.w	gg_Activation(a0),d0
+	and.w	#LONGINT,d0
+	bne	L_WrongGadType
+	movem.l	a0-a1,-(a7)
+	exg	a0,a1
+	intcall	RemoveGadget
+	move.l	(a7),a0
+	move.l	gg_SpecialInfo(a0),a0
+	mvoe.l	si_Buffer(a0),a2
+	move.l	a2,a1
+	move.l	d6,a6
+	moveq	#0,d0
+	move.w	(a6)+,d0
+	cmp.w	si_MaxChars(a0),d0
+	bcs	.oksize
+	move.w	si_MaxChars(a0),d0
+.oksize	move.l	a6,a0
+	move.l	d0,d2
+	syscall	CopyMem
+	clr.b	0(a2,d2.l)
+	movem.l	(a7),a0-a1
+	move.w	gg_GadgetID(a0),d0
+	exg	a0,a1
+	intcall	AddGadget
+	movem.l	(a7)+,a0-a1
+	sub.l	a2,a2
+	moveq	#1,d0
+	intcall	RefreshGList
+	ret
+
+L_IgadToBank:		;Igadget to Bank n
+      ifd FOR_LATER
+	pstart
+	move.l	(a3)+,d0
+	beq	L_IllFunc
+	cmp.l	#65535,d0
+	bhi	L_IllFunc
+	move.l	d0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	d2,d0
+	move.l	wd_UserData(a0),a6
+	moveq	#12,d1
+	add.l	we_GadgetSize(a6),d1
+	add.l	we_GBorderSize(a6),d1
+	move.l	#1<<Bnk_BitData,d2
+	jtcall	CreateBank
+	tst.l	d0
+	beq	L_NoMem
+	move.l	d0,a2
+	move.l	#'IGad',-8(a2)
+	move.l	#'gets',-4(a2)
+	move.w	#GBANKREV,(a2)+
+	move.w	we_NGadgets(a6),(a2)+
+	move.l	we_GadgetSize(a6),(a2)+
+	move.l	we_GBorderSize(a6),(a2)+
+	move.l	we_Gadgets(a6),a0
+	move.l	a2,a1
+	move.l	we_GadgetSize(a6),d0
+	syscall	CopyMem
+	move.l	we_Gadgets(a6),d2
+	move.l	we_GBorders(a6),d3
+	move.w	we_NGadgets(a6),d1
+	subq.w	#1,d1
+.ptrlp1	move.l	gg_UserData(a2),a1
+	and.l	#~(GEF_DISPLAYED|GEF_GADGETDOWN),ge_Flags(a1)
+	clr.w	ge_HitCount(a1)
+	sub.l	d2,gg_UserData(a2)
+	sub.l	d3,gg_GadgetRender(a2)
+	tst.l	gg_SelectRender(a3)
+	beq	.nosel
+	sub.l	d3,gg_SelectRender(a2)
+.nosel	tst.l	gg_SpecialInfo(a3)
+	beq	.nospec
+	sub.l	d2,gg_SpecialInfo(a2)
+.nospec	add.l	#GADGETSIZE,a2
+	dbra	d1,.ptrlp1
+	move.l	we_GBorders,a0
+	move.l	a2,a1
+	move.l	we_GBorderSize(a6),d0
+	syscall	CopyMem
+	move.w	we_NGadgets(a6),d1
+	subq.w	#1,d2
+.ptrlp2 tst.l	bd_XY(a2)
+	beq	.noxy
+	sub.l	d3,bd_XY(a2)
+	tst.l	bd_XY+bd_sizeof(a2)
+	beq	.noxy
+	sub.l	d3,bd_XY+bd_sizeof(a2)
+.noxy	dbra	d1,.ptrlp2
+	ret
+      else
+	rts
+      endc ;FOR_LATER
+
+L_BankToIgad:		;Bank To Igadget n
+      ifd FOR_LATER
+	pstart
+	move.l	(a3)+,d0
+	beq	L_IllFunc
+	cmp.l	#65535,d0
+	bhi	L_IllFunc
+	move.l	d0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	d2,d0
+	move.l	wd_UserData(a0),a6
+	jtcall	GetBankAdr
+	beq	L_BankNotDef
+	btst	#Bnk_BitBob,d0
+	bne	L_IllFunc
+	btst	#Bnk_BitIcon,d0
+	bne	L_IllFunc
+	move.l	a0,a2
+	cmp.l	#GADGET_MAGIC,(a2)+
+	bne	L_UnknownFmt
+	cmp.w	#GBANKREV,(a2)+
+	bhi	L_UnknownFmt
+;	blo	.oldfmt
+	move.w	(a2)+,-(a3)
+	bsr	L_ReserveIgadget
+	move.l	(a2)+,d2
+	move.l	(a2)+,d3
+	cmp.l	we_GadgetSize(a6),d2
+	beq	.oksize
+	cmp.l	we_GBorderSize(a6),d3
+	beq	.oksize
+	bsr	L_ReserveIgadget0
+	bra	L_Inconsistent
+.oksize	move.l	a2,a0
+	move.l	we_Gadgets(a6),a1
+	move.l	d2,d0
+	syscall	CopyMem
+	add.l	d2,a2
+	move.l	a2,a0
+	move.l	we_GBorders(a6),a1
+	move.l	d3,d0
+	syscall	CopyMem
+	move.l	we_Gadgets(a6),d2
+	move.l	we_GBorders(a6),d3
+	move.l	d2,a2
+	move.w	we_NGadgets(a6),d1
+	subq.w	#1,d1
+	move.w	d1,d5
+.reloc1	add.l	d2,gg_UserData(a2)
+	add.l	d3,gg_GadgetRender(a2)
+	tst.l	gg_SelectRender(a2)
+	beq	.nosel
+	add.l	d3,gg_SelectRender(a2)
+.nosel	tst.l	gg_SpecialInfo(a2)
+	beq	.nospec
+	add.l	d3,gg_SpecialInfo(a2)
+	move.w	gg_GadgetType(a2),d0
+	and.w	#~GADGETTYPE,d0
+	cmp.w	#STRGADGET,d0
+	bne	.nospec
+	move.l	gg_SpecialInfo(a2),a1
+	move.l	a1,d7
+	moveq	#0,d0
+	move.w	si_MaxChars(a1),d0
+	beq	.bad
+	subq.w	#1,d0			;L_StrAlloc adds 1 for null byte
+	move.l	d0,d6
+	jtcall	StrAlloc
+	move.l	d7,a1
+	move.l	d0,si_Buffer(a1)
+	beq	.nomem
+	move.l	d0,a0
+	clr.b	(a0)
+	dcmp.l	GadgetUndoLen,d6
+	bls	.undo
+	dmove.l	GadgetUndo,a0
+	jtcall	StrFree
+	move.l	d6,d0
+	jtcall	StrAlloc
+	tmove.l	d0,GadgetUndo
+	beq	.nomem
+	move.l	d7,a1
+.undo	dmove.l	GadgetUndo,si_UndoBuffer(a1)
+.nospec	add.l	#GADGETSIZE,a2
+	dbra	d1,.reloc1
+	move.l	d3,a2
+.reloc2	tst.l	bd_XY(a2)
+	beq	.noxy
+	add.l	d3,bd_XY(a2)
+	tst.l	bd_sizeof+bd_XY(a2)
+	beq	.noxy
+	add.l	d3,bd_XY(a2)
+.noxy	add.l	#BORDERSIZE,a2
+	dbra	d5,.reloc2
+	ret
+.nomem	bsr	L_ReserveIgadget0
+	bra	L_NoMem
+.bad	bsr	L_ReserveIgadget0
+	bra	L_Inconsistent
+      else
+        rts
+      endc ;FOR_LATER
diff --git a/extensions/Intuition-41.95/Intuition/src/graphics.s b/extensions/Intuition-41.95/Intuition/src/graphics.s
new file mode 100644
index 0000000..fac21c5
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/graphics.s
@@ -0,0 +1,544 @@
+;Output routines
+
+;;;;;;;; Location
+
+L_Ilocate:			;Ilocate x,y   [text positioning]
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_Font(a0),a1
+	move.l	rp_BitMap(a0),a2
+	move.l	(a3)+,d1
+	cmp.l	#Null,d1
+	beq	.no_y
+	swap	d1
+	tst.w	d1
+	bne	L_IllFunc
+	swap	d1
+	moveq	#0,d2
+	move.w	bm_Rows(a2),d2
+	divu	tf_YSize(a1),d2
+	cmp.w	d2,d1
+	bcc	L_IllFunc
+	mulu	tf_YSize(a1),d1
+	add.w	tf_Baseline(a1),d1
+.no_y	move.l	(a3)+,d0
+	cmp.l	#Null,d0
+	beq	.no_x
+	swap	d0
+	tst.w	d0
+	bne	L_IllFunc
+	swap	d0
+	moveq	#0,d2
+	move.w	bm_BytesPerRow(a2),d2
+	lsl.w	#3,d2
+	divu	tf_XSize(a1),d2
+	cmp.w	d2,d0
+	bcc	L_IllFunc
+	mulu	tf_XSize(a1),d0
+.no_x	jtcall	SetCoords
+	ret
+
+L_IlocateGr:			;Ilocate Gr x,y   [graphics positioning]
+				;This function is called all over the place to
+				;  set coordinates for drawing operations, so
+				;  we need to preserve all registers (except
+				;  A3, which we pop arguments off of).
+	pstart
+	movem.l	d0-d2/a0-a1,-(a7)
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_BitMap(a0),a1
+	move.l	(a3)+,d0
+      ifd SAFE_GRPOS
+	cmp.l	#Null,d0
+	beq	.no_y
+	swap	d0
+	tst.w	d0
+	bne	L_IllFunc
+	swap	d0
+	cmp.w	bm_Rows(a1),d0
+	bcc	L_IllFunc
+      endc
+.no_y	move.l	d0,-(a7)
+	move.l	(a3)+,d0
+      ifd SAFE_GRPOS
+	cmp.l	#Null,d0
+	beq	.no_x
+	swap	d0
+	tst.w	d0
+	bne	L_IllFunc
+	swap	d0
+	move.w	bm_BytesPerRow(a1),d1
+	lsl.w	#3,d1
+	cmp.w	d1,d0
+	bcc	L_IllFunc
+      endc
+.no_x	move.l	(a7)+,d1
+	jtcall	SetCoords
+	movem.l	(a7)+,d0-d2/a0-a1
+	ret
+
+L_Ixgr:				;=Ixgr
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	rp_cp_x(a0),d3
+	moveq	#0,d2
+	ret
+
+L_Iygr:				;=Iygr
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	rp_cp_y(a0),d3
+	moveq	#0,d2
+	ret
+
+
+;;;;;;;; Graphics
+
+L_Icls:			;Icls
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_RPort(a0),a1
+	moveq	#0,d0
+	gfxcall	SetRast
+	ret
+
+L_IclsCol:		;Icls colour
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_RPort(a0),a1
+	move.l	(a3)+,d0
+	call	SetRast
+	ret
+
+L_IclsXY:		;Icls colour,x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_BaseWin(a1),a0
+	move.l	wd_RPort(a0),a2
+	move.b	rp_FgPen(a0),d7
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d6
+	cmp.l	d4,d2
+	blt	L_MixedCoords
+	cmp.l	d5,d3
+	blt	L_MixedCoords
+      ifd SAFE_GRPOS
+	tst.l	d4
+	bmi	L_IllFunc
+	tst.l	d5
+	bmi	L_IllFunc
+	moveq	#0,d0
+	move.w	se_Width(a1),d0
+	cmp.l	d0,d2
+	bge	L_IllFunc
+	move.w	se_Height(a1),d0
+	cmp.l	d0,d3
+	bge	L_IllFunc
+      endc
+	move.b	d6,d0
+	move.l	a2,a1
+	gfxcall	SetAPen
+	move.l	d4,d0
+	move.l	d5,d1
+	move.l	a2,a1
+	gfxcall	RectFill
+	move.b	d7,d0
+	move.l	a2,a1
+	call	SetAPen
+	ret
+
+L_Iclw:			;Iclw
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.b	rp_FgPen(a2),d7
+	move.l	a2,a1
+	moveq	#0,d0
+	gfxcall	SetAPen
+	jtcall	GetCurWin
+	move.l	d0,a1
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	moveq	#0,d1
+	move.b	wd_BorderTop(a1),d1
+	moveq	#0,d4
+	move.w	wd_Width(a0),d2
+	move.b	wd_BorderRight(a0),d4
+	sub.w	d4,d2
+	subq.w	#1,d2
+	move.w	wd_Height(a0),d3
+	move.b	wd_BorderBottom(a0),d4
+	sub.w	d4,d3
+	subq.w	#1,d3
+	move.l	a2,a1
+	gfxcall	RectFill
+	move.l	a2,a1
+	move.b	d7,d0
+	gfxcall	SetAPen
+	ret
+
+L_IclwCol:		;Iclw colour
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.b	rp_FgPen(a2),d7
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetAPen
+	jtcall	GetCurWin
+	move.l	d0,a1
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	moveq	#0,d1
+	move.b	wd_BorderTop(a1),d1
+	move.w	wd_Width(a0),d2
+	moveq	#0,d4
+	move.b	wd_BorderRight(a0),d4
+	sub.w	d4,d2
+	subq.w	#1,d2
+	move.w	wd_Height(a0),d3
+	move.b	wd_BorderBottom(a0),d4
+	sub.w	d4,d3
+	subq.w	#1,d3
+	move.l	a2,a1
+	gfxcall	RectFill
+	move.l	a2,a1
+	move.b	d7,d0
+	gfxcall	SetAPen
+	ret
+
+L_IclwXY:		;Iclw colour,x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_RPort(a1),a2
+	move.b	rp_FgPen(a2),d7
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d6
+	cmp.l	d4,d2
+	blt	L_MixedCoords
+	cmp.l	d5,d3
+	blt	L_MixedCoords
+      ifd SAFE_GRPOS
+	tst.l	d4
+	bmi	L_IllFunc
+	tst.l	d5
+	bmi	L_IllFunc
+	moveq	#0,d1
+	moveq	#0,d0
+	move.w	wd_Width(a5),d0
+	move.b	wd_LeftBorder(a5),d1
+	sub.w	d1,d0
+	move.b	wd_RightBorder(a5),d1
+	sub.w	d1,d0
+	cmp.l	d0,d2
+	bge	L_IllFunc
+	move.w	wd_Height(a5),d0
+	move.b	wd_TopBorder(a5),d1
+	sub.w	d1,d0
+	move.b	wd_BottomBorder(a5),d1
+	sub.w	d1,d0
+	cmp.l	d0,d3
+	bge	L_IllFunc
+      endc
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d2
+	add.w	d0,d4
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d3
+	add.w	d0,d5
+	move.b	d6,d0
+	move.l	a2,a1
+	gfxcall	SetAPen
+	move.l	d4,d0
+	move.l	d5,d1
+	move.l	a2,a1
+	call	RectFill
+	move.b	d7,d0
+	move.l	a2,a1
+	call	SetAPen
+	ret
+
+L_SetInk:		;Iink fg,bg,ol
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	(a3)+,d0
+	move.b	d0,rp_AOLPen(a2)
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetBPen
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	call	SetAPen
+	ret
+
+L_SetInk2:		;Iink fg,bg
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetBPen
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	call	SetAPen
+	ret
+
+L_SetInk1:		;Iink fg
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d0
+	gfxcall	SetAPen
+	ret
+
+L_IplotInk:		;Iplot x,y,c
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetAPen
+	move.l	(a3),d1
+	move.l	4(a3),d0
+	move.l	a2,a1
+	bsr	L_IlocateGr
+	jtcall	WritePixel
+	ret
+
+L_Iplot:		;Iplot x,y
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3),d1
+	move.l	4(a3),d0
+	bsr	L_IlocateGr
+	jtcall	WritePixel
+	ret
+
+L_Idraw:		;Idraw x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	bsr	L_IlocateGr
+	gfxcall	Draw
+	ret
+
+L_IdrawTo:		;Idraw To x,y
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	move.w	d2,rp_cp_x(a1)
+	move.w	d3,rp_cp_y(a1)
+	gfxcall	Draw
+	ret
+
+L_Ibox:			;Ibox x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d4
+	move.w	rp_cp_y(a1),d5
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	move.w	d4,d0
+	move.w	d3,d1
+	move.l	a2,a1
+	gfxcall	Draw
+	move.w	d4,d0
+	move.w	d5,d1
+	move.l	a2,a1
+	call	Draw
+	move.w	d2,d0
+	move.w	d5,d1
+	move.l	a2,a1
+	call	Draw
+	move.w	d2,d0
+	move.w	d3,d1
+	move.l	a2,a1
+	call	Draw
+	ret
+
+L_Ibar:			;Ibar x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	gfxcall	RectFill
+	ret
+
+L_Iellipse:		;Iellipse cx,cy,rx,ry
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	gfxcall	DrawEllipse
+	ret
+
+L_Icircle:		;Icircle cx,cy,r
+	move.l	(a3),d0
+	move.l	d0,-(a3)
+	bra	L_Iellipse
+
+L_IpasteIcon:		;Ipaste Icon x,y,n
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	(a3)+,d0
+	jtcall	FindIcon
+	beq	L_NoIcon
+	bsr	L_IlocateGr
+	move.l	a0,d0			;If icon is empty, just quit
+	beq	.exit
+	exg	a1,a2
+	move.l	a0,a5
+	lea	.tempbm(pc),a0		;Set up a temporary bitmap
+	move.w	(a5)+,d0
+	lsl.w	#1,d0
+	move.w	d0,bm_BytesPerRow(a0)
+	move.w	(a5)+,bm_Rows(a0)
+	move.w	(a5)+,d2
+	move.b	d2,bm_Depth(a0)
+	addq.l	#4,a5			;A5 now points to image data
+	mulu	bm_Rows(a0),d0
+	lea	bm_Planes(a0),a0
+	subq.w	#1,d2
+.bplp	move.l	a5,(a0)+
+	add.l	d0,a5
+	dbra	d2,.bplp
+	lea	.tempbm(pc),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	move.w	.tempbm+bm_BytesPerRow(pc),d4
+	lsl.w	#3,d4
+	move.w	.tempbm+bm_Rows(pc),d5
+	move.l	a2,d7
+	bne	.mask
+	move.b	#$C0,d6
+	gfxcall	WaitBlit
+	gfxcall	BltBitMapRastPort
+	bra	.exit
+.mask	addq.l	#4,a2
+	move.b	#$E0,d6
+	gfxcall	WaitBlit
+	gfxcall	BltMaskBitMapRastPort	
+.exit	move.l	(a7)+,a5
+	ret
+.tempbm	ds.b	bm_sizeof
+
+L_IpasteBob:		;Ipaste Bob x,y,n
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	(a3)+,d0
+	jtcall	FindSprite
+	beq	L_NoObj
+	bsr	L_IlocateGr
+	move.l	a0,d0			;If sprite is empty, just quit
+	beq	.exit
+	exg	a1,a2
+	move.l	a0,a5
+	lea	.tempbm(pc),a0		;Set up a temporary bitmap
+	move.w	(a5)+,d0
+	lsl.w	#1,d0
+	move.w	d0,bm_BytesPerRow(a0)
+	move.w	(a5)+,bm_Rows(a0)
+	move.w	(a5)+,d2
+	move.b	d2,bm_Depth(a0)
+	addq.l	#4,a5			;A5 now points to image data
+	mulu	bm_Rows(a0),d0
+	lea	bm_Planes(a0),a0
+	subq.w	#1,d2
+.bplp	move.l	a5,(a0)+
+	add.l	d0,a5
+	dbra	d2,.bplp
+	lea	.tempbm(pc),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	move.w	.tempbm+bm_BytesPerRow(pc),d4
+	lsl.w	#3,d4
+	move.w	.tempbm+bm_Rows(pc),d5
+	move.l	a2,d7
+	bne	.mask
+	move.b	#$C0,d6
+	gfxcall	WaitBlit
+	gfxcall	BltBitMapRastPort
+	bra	.exit
+.mask	addq.l	#4,a2
+	move.b	#$E0,d6
+	gfxcall	WaitBlit
+	gfxcall	BltMaskBitMapRastPort	
+.exit	move.l	(a7)+,a5
+	ret
+.tempbm	ds.b	bm_sizeof
+
+;;;;;;;;
+
+L_Ipoint:		;col=Ipoint(x,y)
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.w	wd_Width(a0),d2
+	move.w	wd_Height(a0),d3
+	ext.l	d2
+	ext.l	d3
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d1
+	cmp.l	d3,d1
+	bcc	L_IllFunc
+	move.l	(a3)+,d0
+	cmp.l	d2,d0
+	bcc	L_IllFunc
+	jtcall	ReadPixel
+	moveq	#0,d3
+	move.w	d0,d3
+	moveq	#0,d2
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src/iflood.s b/extensions/Intuition-41.95/Intuition/src/iflood.s
new file mode 100644
index 0000000..a718c97
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/iflood.s
@@ -0,0 +1,187 @@
+L_Iflood:		;Iflood x,y,mode
+	procstart
+	move.l	(a3)+,d0
+	sne.b	d2
+	neg.b	d2
+	bsr	L_GetCurRP
+;	move.l	d0,a0
+;	moveq	#0,d4
+;	move.l	(a3),d1
+;	move.l	4(a3),d0
+;	bsr	MyFlood
+	move.l	d0,a2
+	move.l	a2,a0
+	move.l	4(a3),d0
+	move.l	(a3),d1
+	call	Flood
+	clr.l	rp_TmpRas(a2)
+	
+	bsr	L_IlocateGr
+	ret
+.tmpras	ds.b tr_sizeof
+.raster	dc.l 0
+
+MyFlood:
+	dmove.l	GfxBase,a6
+	move.l	a0,a2
+	move.w	d2,d4
+	move.w	d1,d3
+	move.w	d0,d2
+	move.l	rp_BitMap(a2),a0
+	move.w	bm_BytesPerRow(a0),d6
+	move.w	bm_Rows(a0),d7
+	lsl.w	#3,d6
+	tst.w	d4
+	bne	FloodXY
+
+FloodOPen:
+	move.b	rp_AOlPen(a2),d4
+.loop	dcmp.l	flStackWarn,a7
+	bls	flMoreStack		;If we need more stack, get it
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_WritePixel
+	subq.w	#1,d2
+	bmi	.xpl1
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.xpl1
+	bsr	.loop
+.xpl1	addq.w	#2,d2
+	cmp.w	d6,d2
+	bcc	.ymi1
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.ymi1
+	bsr	.loop
+.ymi1	subq.w	#1,d2
+	subq.w	#1,d3
+	bmi	.ypl1
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.ypl1
+	bsr	.loop
+.ypl1	addq.w	#2,d3
+	cmp.w	d7,d3
+	bcc	.done
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.done
+	bsr	.loop
+.done	subq.w	#1,d3
+	rts
+
+FloodXY:
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	move.b	d0,d4
+.loop	dcmp.l	flStackWarn,a7
+	bls	flMoreStack
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_WritePixel
+	subq.w	#1,d2
+	bmi	.xpl1
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.xpl1
+	bsr	.loop
+.xpl1	addq.w	#2,d2
+	cmp.w	d6,d2
+	bcc	.ymi1
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.ymi1
+	bsr	.loop
+.ymi1	subq.w	#1,d2
+	subq.w	#1,d3
+	bmi	.ypl1
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.ypl1
+	bsr	.loop
+.ypl1	addq.w	#2,d3
+	cmp.w	d7,d3
+	bcc	.done
+	move.l	a2,a1
+	move.w	d2,d0
+	move.w	d3,d1
+	bsr	L_ReadPixel
+	cmp.b	d4,d0
+	bne	.done
+	bsr	.loop
+.done	subq.w	#1,d3
+	rts
+
+flMoreStack:
+	move.l	a0,-(a7)
+	lea	.save(pc),a0
+	move.l	(a7)+,(a0)+	;save A0
+	move.l	a1,(a0)+	;save A1
+	move.l	d0,(a0)+	;save D0
+	move.l	d1,(a0)+	;save D1
+	move.l	(a7)+,(a0)+	;pop return address
+	dmove.l	flStackSize,d0	;now get some more stack
+	moveq	#MEMF_PUBLIC,d1
+	syscall	AllocMem
+	tst.l	d0
+	beq	L_NoMem		;oops, no memory - barf
+	move.l	d0,a1
+	dmove.l	flStackSize,d1
+	add.l	d1,a1
+	move.l	a7,-(a1)	;caller's original stack
+	dmove.l	flStackWarn,-(a1);caller's original warning address
+	move.l	d0,-(a1)	;our new stack base
+	add.l	#1024,d0	;set up our new warning address
+	tmove.l	d0,flStackWarn
+	move.l	a1,a7		;now use the new stack
+	pea	flKillStack(pc)	;routine to free stack
+	lea	.save+20(pc),a0
+	move.l	-(a0),-(a7)	;put our return address back
+	move.l	-(a0),d1	;restore old regs
+	move.l	-(a0),d0
+	move.l	-(a0),a1
+	move.l	.save(pc),a0	;don't use -(a0),(a0)
+	rts
+.save	ds.l 5
+
+flKillStack:
+	move.l	a0,-(a7)
+	lea	.save(pc),a0
+	move.l	(a7)+,(a0)+
+	move.l	a1,(a0)+
+	move.l	d0,(a0)+
+	move.l	d1,(a0)+
+	move.l	(a7)+,a1	;our stack base
+	tmove.l	(a7)+,flStackWarn;restore old warning address
+	move.l	(a7)+,a0	;old stack
+	move.l	a0,a7		;use old stack again
+	dmove.l	flStackSize,d0
+	syscall	FreeMem		;free extra stack
+	rts
+.save	ds.l 4
diff --git a/extensions/Intuition-41.95/Intuition/src/input.s b/extensions/Intuition-41.95/Intuition/src/input.s
new file mode 100644
index 0000000..98c6a47
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/input.s
@@ -0,0 +1,495 @@
+;Input routines
+
+L_IbufReset:		;Iclear All
+	pstart
+	dmove.l	KeyBufPtr,a0
+	tmove.l	a0,KeyBufNext
+	dmove.l	MenuBufPtr,a0
+	tmove.l	a0,MenuBufNext
+	ret
+
+L_IbufResetKey:		;Iclear Key
+	pstart
+	dmove.l	KeyBufPtr,a0
+	tmove.l	a0,KeyBufNext
+	ret
+
+L_IbufResetMouse:	;Iclear Mouse - now a no-op
+	rts
+
+L_IbufResetMenu:	;Iclear Menu
+	pstart
+	dmove.l	MenuBufPtr,a0
+	tmove.l	a0,MenuBufNext
+	ret
+
+
+L_IwaitKey:		;Iwait Key
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a2
+.lp	move.l	a2,a0
+	jtcall	GetKey
+	beq	.lp
+	ret
+
+L_IwaitMouse:		;Iwait Mouse
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a2
+.lp	move.l	a2,a0
+	jtcall	GetMouse
+	beq	.lp
+	ret
+
+L_Iscan:		;=Iscan
+	pstart
+	moveq	#0,d3
+	dmove.w	LastCode,d3
+	moveq	#0,d2
+	ret
+
+L_Ishift:		;=Ishift
+	pstart
+	moveq	#0,d3
+	dmove.w	LastQual,d3
+	moveq	#0,d2
+	ret
+
+L_ImouseKey:		;=Imouse Key
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a0
+	jtcall	GetMouse
+	moveq	#0,d3
+	dmove.b	MouseState,d3
+	moveq	#0,d2
+	ret
+
+L_ImouseX:		;=Imouse X
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.w	wd_MouseX(a0),d3
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a0),d0
+	sub.w	d0,d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_ImouseY:		;=Imouse Y
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.w	wd_MouseY(a0),d3
+	moveq	#0,d0
+	move.b	wd_BorderTop(a0),d0
+	sub.w	d0,d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_GetChar:		;=Iget$
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a0
+	jtcall	GetKey
+	beq	.nokey
+	dlea	String1,a0
+	move.b	d0,2(a0)
+	bra	.done
+.nokey	dlea	NullStr,a0
+.done	move.l	a0,d3
+	moveq	#2,d2
+	ret
+
+L_ReadChar:		;=Iread Char$
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a2
+.lp	move.l	a2,a0
+	jtcall	GetKey
+	bne	.endlp
+	gfxcall	WaitTOF
+	bra	.lp
+.endlp	dlea	String1,a0
+	move.b	d0,2(a0)
+	move.l	a0,d3
+	moveq	#2,d2
+	ret
+
+L_ReadStr:		;=Iread Str$
+	pstart
+	move.l	a5,-(a7)
+	moveq	#0,d2		;# of characters read
+	move.w	#256,d3		;Buffer expansion block size
+	move.w	d3,d4		;Current buffer size
+	move.w	d3,d5		;Chars remaining in current buffer block
+	sub.w	d3,a7
+	jtcall	GetCurInput
+	move.l	d0,a2
+	jtcall	GetCurRP
+	move.l	d0,a5
+.lp	move.l	a2,a0
+	jtcall	GetKey
+	bne	.gotkey
+	gfxcall	WaitTOF
+	bra	.lp
+.gotkey	move.b	d0,d7		;0 returned if window closed
+	beq	.cancel
+	cmp.b	#13,d7
+	beq	.endlp
+	cmp.b	#10,d7
+	beq	.endlp
+	cmp.b	#8,d7
+	beq	.bksp
+	lea	0(a7,d2.l),a0
+	move.b	d7,(a0)
+	moveq	#1,d0
+	move.l	a5,a1
+	gfxcall	Text
+	addq.w	#1,d2
+	subq.w	#1,d5
+	bne	.lp
+	move.w	d3,d5
+	add.w	d3,d4
+	move.l	a7,a0
+	sub.w	d3,a7
+	move.l	a7,a1
+	move.l	d2,d0
+	syscall	CopyMem
+	bra	.lp
+.bksp	move.l	d2,d0
+	beq	.lp
+	subq.w	#1,d2
+	moveq	#0,d0
+	move.b	0(a7,d2.l),d0
+	move.l	rp_Font(a5),a0
+	sub.b	tf_LoChar(a0),d0
+	move.l	tf_CharSpace(a0),d1
+	beq	.nospc
+	move.l	d1,a0
+	lsl.w	#1,d0
+	move.w	d0,d7
+	move.w	0(a0,d0.w),d0
+	move.l	tf_CharKern(a0),d1
+	beq	.gotspc
+	move.l	d1,a0
+	add.w	0(a0,d7.w),d0
+	bra	.gotspc
+.nospc	move.w	tf_XSize(a0),d0
+.gotspc	sub.w	d0,rp_cp_x(a5)
+	move.w	rp_cp_x(a5),-(a7)
+	moveq	#RP_COMPLEMENT,d0
+	move.l	a5,a1
+	call	SetDrMd
+	lea	2(a7,d2.l),a0
+	moveq	#1,d0
+	move.l	a5,a1
+	call	Text
+	moveq	#RP_JAM2,d0
+	move.l	a5,a1
+	call	SetDrMd
+	move.w	(a7)+,rp_cp_x(a5)
+	bra	.lp
+.endlp	clr.b	0(a7,d2.l)
+	move.l	a7,a0
+	lea	.rsc(pc),a1
+	jtcall	ReturnString
+	add.w	d4,a7
+	bra	.done
+.cancel	dlea	NullStr,a0
+	move.l	a0,d3
+	moveq	#2,d2
+.done	move.l	(a7)+,a5
+	ret
+.rsc	ds.b	rsc_sizeof
+
+L_ReadInt:		;=Iread Int
+	pstart
+	movem.l	a3/a5,-(a7)
+	moveq	#0,d2		;Current value
+	moveq	#0,d3		;Radix (can be 0=dec, 16=bin, 32=hex)
+	moveq	#0,d4		;Negative flag (0/8 - see .maxval below)
+	moveq	#9,d5		;Max. digit value (dec=9, bin=1, hex=15)
+	moveq	#0,d6		;Index into .maxval table (=D3+D4)
+	jtcall	GetCurInput
+	move.l	d0,a2
+	jtcall	GetCurRP
+	move.l	d0,a5
+	lea	.maxval(pc),a3
+	subq.w	#2,a7
+.lp	move.l	a2,a0
+	jtcall	GetKey
+	bne	.gotkey
+	gfxcall	WaitTOF
+	bra	.lp
+.gotkey	move.w	d0,(a7)
+	move.b	d0,d7
+	beq	.cancel
+	cmp.b	#13,d7
+	beq	.endlp
+	cmp.b	#10,d7
+	beq	.endlp
+	cmp.b	#8,d7
+	beq	.bksp
+	tst.l	d2
+	bne	.Nnot0
+	tst.w	d3
+	bne	.notrdx
+	tst.w	d4
+	bne	.notneg
+	cmp.b	#'-',d7
+	bne	.notneg
+	moveq	#8,d4
+	moveq	#8,d6
+	bra	.print
+.notneg	cmp.b	#'%',d7
+	bne	.notbin
+	moveq	#16,d3
+	add.w	d3,d6
+	moveq	#1,d5
+	bra	.print
+.notbin	cmp.b	#'$',d7
+	bne	.nothex
+	moveq	#32,d3
+	add.w	d3,d6
+	moveq	#$F,d5
+	bra	.print
+.nothex
+.notrdx
+	cmp.b	#'0',d7
+	beq	.lp
+.Nnot0	sub.b	#'0',d7
+	bmi	.lp
+	cmp.b	#9,d7
+	bls	.tstdig
+	bclr	#5,d7
+	bclr	#5,1(a7)	;If letter, make it upper-case
+	sub.b	#17,d7
+	bmi	.lp
+	add.b	#10,d7
+.tstdig	cmp.b	d5,d7
+	bhi	.lp
+	cmp.l	0(a3,d6.w),d2
+	bhi	.lp
+	bcs	.putdig
+	cmp.b	7(a3,d6.w),d7
+	bhi	.lp
+.putdig	tst.w	d3
+	beq	.pd_dec
+	cmp.w	#16,d3
+	beq	.pd_bin
+	lsl.l	#4,d2
+	or.b	d7,d2
+	bra	.print
+.pd_dec	move.l	d2,d0
+	moveq	#10,d1
+	jtcall	LongMul
+	moveq	#0,d2
+	move.b	d7,d2
+	add.l	d0,d2
+	bra	.print
+.pd_bin	lsl.l	#1,d2
+	or.b	d7,d2
+.print	lea	1(a7),a0
+	moveq	#1,d0
+	move.l	a5,a1
+	gfxcall	Text
+	bra	.lp
+.bksp	tst.l	d2
+	bne	.bs_dig
+	tst.w	d3
+	bne	.bs_rdx
+	tst.w	d4
+	beq	.lp
+	moveq	#0,d4
+	move.b	#'-',d0
+	bra	.bsprnt
+.bs_rdx	cmp.w	#16,d3
+	beq	.br_bin
+	moveq	#0,d3
+	move.b	#'$',d0
+	bra	.bsprnt
+.br_bin	moveq	#0,d3
+	move.b	#'%',d0
+	bra	.bsprnt
+.bs_dig	tst.w	d3
+	beq	.bd_dec
+	cmp.w	#16,d3
+	beq	.bd_bin
+	move.b	d2,d0
+	and.b	#$F,d0
+	lsr.l	#4,d2
+	bra	.bd_all
+.bd_dec	move.l	d2,d0
+	moveq	#10,d1
+	jtcall	LongDiv
+	move.l	d0,d2
+	move.b	d1,d0
+	bra	.bd_all
+.bd_bin	move.b	d2,d0
+	and.b	#1,d0
+	lsr.l	#1,d2
+.bd_all	add.b	#'0',d0
+	cmp.b	#'9',d0
+	bls	.bsprnt
+	addq.b	#7,d0
+.bsprnt	move.w	d0,(a7)
+	move.l	rp_Font(a5),a0
+	sub.b	tf_LoChar(a0),d0
+	move.l	tf_CharSpace(a0),d1
+	beq	.nospc
+	move.l	d1,a0
+	lsl.w	#1,d0
+	move.w	0(a0,d0.w),d0
+	bra	.gotspc
+.nospc	move.w	tf_XSize(a0),d0
+.gotspc	sub.w	d0,rp_cp_x(a5)
+	move.w	rp_cp_x(a5),-(a7)
+	moveq	#RP_COMPLEMENT,d0
+	move.l	a5,a1
+	call	SetDrMd
+	lea	3(a7),a0
+	moveq	#1,d0
+	move.l	a5,a1
+	call	Text
+	moveq	#RP_JAM2,d0
+	move.l	a5,a1
+	call	SetDrMd
+	move.w	(a7)+,rp_cp_x(a5)
+	bra	.lp
+.cancel	moveq	#0,d2
+.endlp	addq.l	#2,a7
+	move.l	d2,d3
+	tst.w	d4
+	beq	.exit
+	neg.l	d3
+.exit	moveq	#0,d2
+	movem.l	(a7)+,a3/a5
+	ret
+
+;Maximum values:
+;	dc.l MaxPos,MaxPosMaxDig,MaxNeg,MaxNegMaxDig
+;where:	MaxPos is the maximum positive value / radix
+;	MaxPosMaxDig is the maximum positive value % radix
+;	MaxNeg is the abs. value of (maximum negative value / radix)
+;	MaxNegMaxDig is the abs. value of (maximum negative value % radix)
+.maxval	dc.l 429496729,5,214748364,8
+	dc.l %1111111111111111111111111111111,%1
+		dc.l %1000000000000000000000000000000,%0
+	dc.l $FFFFFFF,$F,$8000000,$0
+
+
+;;;;;;;; Event waiting
+
+L_IwaitEvent:
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a2
+.lp	moveq	#0,d1
+	move.b	mp_SigBit(a2),d1
+	moveq	#1,d0
+	lsl.l	d1,d0
+	syscall	Wait
+	move.l	a2,a0
+	move.l	#IDCMPWAIT,d0
+	jtcall	DoEvent
+	tmove.l	d1,EventData
+	move.l	d0,d3
+	beq	.lp
+;If a hit-select gadget, cancel the count
+	cmp.l	#GADGETUP,d3
+	bne	.exit
+	move.l	d1,a0
+	move.w	#~GADGETTYPE,d0
+	and.w	gg_GadgetType(a0),d0
+	cmp.w	#BOOLGADGET,d0
+	bne	.exit
+	move.w	#TOGGLESELECT,d0
+	and.w	gg_Activation(a0),d0
+	beq	.exit
+	move.l	gg_UserData(a0),a0
+	clr.w	ge_HitCount(a0)
+.exit	moveq	#0,d2
+	ret
+
+L_IwaitEventVbl:
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a2
+.lp	moveq	#0,d1
+	move.b	mp_SigBit(a2),d1
+	moveq	#1,d0
+	lsl.l	d1,d0
+	dmove.b	VBLSignal,d1
+	moveq	#1,d2
+	lsl.l	d1,d2
+	or.l	d2,d0
+	move.l	d0,d3
+	move.l	d2,d1
+	moveq	#0,d0
+	syscall	SetSignal
+	move.l	d3,d0
+	call	Wait
+	cmp.l	d2,d0
+	beq	.vbl
+	move.l	a2,a0
+	move.l	#IDCMPWAIT,d0
+	jtcall	DoEvent
+	tmove.l	d1,EventData
+	move.l	d0,d3
+	beq	.lp
+	cmp.l	#GADGETUP,d3
+	bne	.exit
+	move.l	d1,a0
+	move.w	#~GADGETTYPE,d0
+	and.w	gg_GadgetType(a0),d0
+	cmp.w	#BOOLGADGET,d0
+	bne	.exit
+	move.w	#TOGGLESELECT,d0
+	and.w	gg_Activation(a0),d0
+	beq	.exit
+	move.l	gg_UserData(a0),a0
+	clr.w	ge_HitCount(a0)
+	bra	.exit
+.vbl	move.l	#$80000000,d3
+.exit	moveq	#0,d2
+	ret
+
+L_IeventData:
+	pstart
+	dmove.l	EventData,d3
+	moveq	#0,d2
+	ret
+
+L_IeventVbl:
+	move.l	#$80000000,d3
+	moveq	#0,d2
+	rts
+
+L_IeventMouse:
+	move.l	#MOUSEBUTTONS,d3
+	moveq	#0,d2
+	rts
+
+L_IeventGadget:
+	move.l	#GADGETUP,d3
+	moveq	#0,d2
+	rts
+
+L_IeventMenu:
+	move.l	#MENUPICK,d3
+	moveq	#0,d2
+	rts
+
+L_IeventClose:
+	move.l	#CLOSEWINDOW,d3
+	moveq	#0,d2
+	rts
+
+L_IeventKey:
+	move.l	#RAWKEY,d3
+	moveq	#0,d2
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/src/intuition.s b/extensions/Intuition-41.95/Intuition/src/intuition.s
new file mode 100644
index 0000000..b19e196
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/intuition.s
@@ -0,0 +1,165 @@
+;AMOS Intuition Extension
+;Copyright � 1994-1996, Andrew Church
+;E-mail: achurch@cmu.edu
+
+SILLYMACRO	macro		;PhxAss sometimes kills the first macro.  Why?
+	dc.b "Stop that! It's silly!",0
+	endm
+
+VERSION	macro
+	dc.b "41.95"
+	endm
+DATE	macro
+	dc.b "96/02/22"
+	endm
+
+MYVERSION macro
+	dc.b "1.3b"
+	endm
+
+	include "offsets.i"
+
+      ifd CREATOR
+;EXTASM: DCREATOR
+	incdir	"/AMOS1.3"
+	include	"equ.s"
+	include "cequ.s"
+;EXTASM: E
+      else
+;EXTASM: NCREATOR
+	incdir	"/AMOS"
+	include	"amos_includes.s"
+;EXTASM: E
+      endc
+
+	incdir	"includes:"
+	include "defs.i"	;Constant and structure definitions
+	include "macros.i"	;Macros for extension
+	include "jumptable.i"	;Jump table offsets
+
+;;;;;;;;;;;;;;;;
+
+Start	dc.l C_Tk-C_Off
+	dc.l C_Lib-C_Tk
+	dc.l C_Title-C_Lib
+	dc.l C_End-C_Title
+	dc.w 0
+
+C_Off:				;ExtAsm sets up the offsets automatically
+
+C_Tk:	dc.w 1,0
+	dc.b $80,-1
+
+	include "itokens.s"
+
+
+C_Lib:
+L_0:				;ExtAsm takes care of L_* and Lnnn labels
+	bra	startup
+
+;Data area
+DataBase	dc.l 0		;Allocated dynamically
+
+ExternalJump	dc.l 0		;Jump table for external code
+
+
+
+;Initial startup code (loads external data and jumps to real startup code)
+startup	move.l	a0,-(a7)
+	lea	DataBase(pc),a0
+	tst.l	(a0)		;Are we initialised yet?
+	move.l	(a7)+,a0
+	beq	.init		;Nope, do it
+	move.l	DataBase(pc),a4	;Yes, just return DataBase in A4
+	rts
+
+.init	move.l	a4,-(a7)
+	bsr	L_GetExtCode
+	lea	ExternalJump(pc),a1
+	move.l	a0,(a1)
+	bsr	L_GetErrorAdr		;Grab address of error routine to D0
+	lea	FinalExit(pc),a1
+	move.l	a1,d1
+	lea	DataBase(pc),a1
+	move.l	ExternalJump(pc),a0
+	jsr	jt_Startup(a0)		;Do our real startup
+	tst.l	d0
+	bmi	.error
+
+	move.l	DataBase(pc),a4
+	dlea	BranchTable,a0		;If successful, set up branch table
+	lea	_IscreenAdr(pc),a1
+	move.l	a1,(a0)+
+	lea	_IwindowAdr(pc),a1
+	move.l	a1,(a0)+
+	lea	_CurIscreenAdr(pc),a1
+	move.l	a1,(a0)+
+	lea	_CurIwindowAdr(pc),a1
+	move.l	a1,(a0)+
+	bra	.done
+
+.error	moveq	#-1,d0
+.done	move.l	(a7)+,a4
+	rts
+
+FinalExit:
+	rts
+
+
+	include "extutils.s"		;MUST BE FIRST!!!!!
+
+	include "screens.s"
+	include "color.s"
+	include "windows.s"
+	include "fonts.s"
+	include "input.s"
+
+	include "errorstubs.s"		;in the middle
+
+	include "text.s"
+	include "graphics.s"
+	include "request.s"
+	include "menus.s"
+	include "gadgets.s"
+	include "other.s"
+
+	include	"extcode.s"		;external code - MUST be immediately
+					;  before errors.s
+	include "errors.s"		;MUST BE LAST!!!!!!
+
+L_LastLabel:
+
+
+C_Title:
+      ifd CREATOR
+	dc.b 31
+      endif
+	dc.b "Intuition Extension v"
+	MYVERSION
+      ifd UNREGISTERED
+	dc.b " Demo"
+      endc
+	dc.b " - copyright � 1994-1995 Andrew Church",0
+
+	dc.b "$VER: Intuition.lib "
+	VERSION
+	dc.b " ("
+      ifd CREATOR
+	dc.b "Creator"
+      else
+	dc.b "Pro"
+      endc
+	dc.b " v"
+	MYVERSION
+	dc.b ", "
+	DATE
+      ifd UNREGISTERED
+	dc.b " - unregistered demo version"
+      endc
+	dc.b ")",0
+
+	ds.w 0
+
+C_End:
+
+	end
diff --git a/extensions/Intuition-41.95/Intuition/src/intuition.s.bak b/extensions/Intuition-41.95/Intuition/src/intuition.s.bak
new file mode 100644
index 0000000..b19e196
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/intuition.s.bak
@@ -0,0 +1,165 @@
+;AMOS Intuition Extension
+;Copyright � 1994-1996, Andrew Church
+;E-mail: achurch@cmu.edu
+
+SILLYMACRO	macro		;PhxAss sometimes kills the first macro.  Why?
+	dc.b "Stop that! It's silly!",0
+	endm
+
+VERSION	macro
+	dc.b "41.95"
+	endm
+DATE	macro
+	dc.b "96/02/22"
+	endm
+
+MYVERSION macro
+	dc.b "1.3b"
+	endm
+
+	include "offsets.i"
+
+      ifd CREATOR
+;EXTASM: DCREATOR
+	incdir	"/AMOS1.3"
+	include	"equ.s"
+	include "cequ.s"
+;EXTASM: E
+      else
+;EXTASM: NCREATOR
+	incdir	"/AMOS"
+	include	"amos_includes.s"
+;EXTASM: E
+      endc
+
+	incdir	"includes:"
+	include "defs.i"	;Constant and structure definitions
+	include "macros.i"	;Macros for extension
+	include "jumptable.i"	;Jump table offsets
+
+;;;;;;;;;;;;;;;;
+
+Start	dc.l C_Tk-C_Off
+	dc.l C_Lib-C_Tk
+	dc.l C_Title-C_Lib
+	dc.l C_End-C_Title
+	dc.w 0
+
+C_Off:				;ExtAsm sets up the offsets automatically
+
+C_Tk:	dc.w 1,0
+	dc.b $80,-1
+
+	include "itokens.s"
+
+
+C_Lib:
+L_0:				;ExtAsm takes care of L_* and Lnnn labels
+	bra	startup
+
+;Data area
+DataBase	dc.l 0		;Allocated dynamically
+
+ExternalJump	dc.l 0		;Jump table for external code
+
+
+
+;Initial startup code (loads external data and jumps to real startup code)
+startup	move.l	a0,-(a7)
+	lea	DataBase(pc),a0
+	tst.l	(a0)		;Are we initialised yet?
+	move.l	(a7)+,a0
+	beq	.init		;Nope, do it
+	move.l	DataBase(pc),a4	;Yes, just return DataBase in A4
+	rts
+
+.init	move.l	a4,-(a7)
+	bsr	L_GetExtCode
+	lea	ExternalJump(pc),a1
+	move.l	a0,(a1)
+	bsr	L_GetErrorAdr		;Grab address of error routine to D0
+	lea	FinalExit(pc),a1
+	move.l	a1,d1
+	lea	DataBase(pc),a1
+	move.l	ExternalJump(pc),a0
+	jsr	jt_Startup(a0)		;Do our real startup
+	tst.l	d0
+	bmi	.error
+
+	move.l	DataBase(pc),a4
+	dlea	BranchTable,a0		;If successful, set up branch table
+	lea	_IscreenAdr(pc),a1
+	move.l	a1,(a0)+
+	lea	_IwindowAdr(pc),a1
+	move.l	a1,(a0)+
+	lea	_CurIscreenAdr(pc),a1
+	move.l	a1,(a0)+
+	lea	_CurIwindowAdr(pc),a1
+	move.l	a1,(a0)+
+	bra	.done
+
+.error	moveq	#-1,d0
+.done	move.l	(a7)+,a4
+	rts
+
+FinalExit:
+	rts
+
+
+	include "extutils.s"		;MUST BE FIRST!!!!!
+
+	include "screens.s"
+	include "color.s"
+	include "windows.s"
+	include "fonts.s"
+	include "input.s"
+
+	include "errorstubs.s"		;in the middle
+
+	include "text.s"
+	include "graphics.s"
+	include "request.s"
+	include "menus.s"
+	include "gadgets.s"
+	include "other.s"
+
+	include	"extcode.s"		;external code - MUST be immediately
+					;  before errors.s
+	include "errors.s"		;MUST BE LAST!!!!!!
+
+L_LastLabel:
+
+
+C_Title:
+      ifd CREATOR
+	dc.b 31
+      endif
+	dc.b "Intuition Extension v"
+	MYVERSION
+      ifd UNREGISTERED
+	dc.b " Demo"
+      endc
+	dc.b " - copyright � 1994-1995 Andrew Church",0
+
+	dc.b "$VER: Intuition.lib "
+	VERSION
+	dc.b " ("
+      ifd CREATOR
+	dc.b "Creator"
+      else
+	dc.b "Pro"
+      endc
+	dc.b " v"
+	MYVERSION
+	dc.b ", "
+	DATE
+      ifd UNREGISTERED
+	dc.b " - unregistered demo version"
+      endc
+	dc.b ")",0
+
+	ds.w 0
+
+C_End:
+
+	end
diff --git a/extensions/Intuition-41.95/Intuition/src/itokens.s b/extensions/Intuition-41.95/Intuition/src/itokens.s
new file mode 100644
index 0000000..1a102cf
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/itokens.s
@@ -0,0 +1,803 @@
+;Token table
+
+	dc.w -1,L_HAM
+	dc.b "ha",$80+'m',"0",-1
+	dc.w -1,L_EHB
+	dc.b "eh",$80+'b',"0",-1
+	dc.w -1,L_SuperHires
+	dc.b "superhire",$80+'s',"0",-1
+	dc.w -1,L_AGA
+	dc.b "ag",$80+'a',"0",-1
+	dc.w -1,L_ECS
+	dc.b "ec",$80+'s',"0",-1
+      ifd CREATOR
+	dc.w -1,L_XHardMin
+	dc.b "xhard mi",$80+'n',"0",-1
+	dc.w -1,L_YHardMin
+	dc.b "yhard mi",$80+'n',"0",-1
+      else
+	dc.w -1,L_XHardMin
+	dc.b "x hard mi",$80+'n',"0",-1
+	dc.w -1,L_YHardMin
+	dc.b "y hard mi",$80+'n',"0",-1
+      endif
+
+	dc.w L_IscrOpenPub0,-1
+	dc.b "!iscreen open publi",$80+'c',"I0,0,0,0,0",-2
+;	dc.w L_IscrOpenPubNT,-1
+;	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_IscrOpenPubNM,-1
+	dc.b $80,"I0,0,0,0,0,2",-2
+	dc.w L_IscrOpenPublic,-1
+	dc.b $80,"I0,0,0,0,0,2,0",-1
+	dc.w L_IscreenOpen0,-1			;Obsolete - see v1.3b
+	dc.b "!iscreen_ope",$80+'n',"I0,0,0,0,0",-2
+;	dc.w L_IscreenOpenNT,-1			;Obsolete
+;	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_IscreenOpenNM,-1			;Obsolete
+	dc.b $80,"I0,0,0,0,0,2",-2
+	dc.w L_IscreenOpen,-1			;Obsolete
+	dc.b $80,"I0,0,0,0,0,2,0",-1
+	dc.w L_IscreenClose,-1
+	dc.b "iscreen clos",$80+'e',"I0",-1
+	dc.w L_CurIscrFront,-1
+	dc.b "!iscreen to fron",$80+'t',"I",-2
+	dc.w L_IscrFront,-1
+	dc.b $80,"I0",-1
+	dc.w L_CurIscrBack,-1
+	dc.b "!iscreen to bac",$80+'k',"I",-2
+	dc.w L_IscrBack,-1
+	dc.b $80,"I0",-1
+	dc.w -1,L_IscreenBase
+	dc.b "iscreen bas",$80+'e',"0",-1
+	dc.w -1,L_GetCISWidth
+	dc.b "!iscreen widt",$80+'h',"0",-2
+	dc.w -1,L_GetIscrWidth
+	dc.b $80,"00",-1
+	dc.w -1,L_GetCISHeight
+	dc.b "!iscreen heigh",$80+'t',"0",-2
+	dc.w -1,L_GetIscrHeight
+	dc.b $80,"00",-1
+	dc.w -1,L_GetCISCols
+	dc.b "!iscreen colou",$80+'r',"0",-2
+	dc.w -1,L_GetIscrCols
+	dc.b $80,"00",-1
+	dc.w -1,L_GetCISMode
+	dc.b "!iscreen mod",$80+'e',"0",-2
+	dc.w -1,L_GetIscrMode
+	dc.b $80,"00",-1
+	dc.w L_IscreenDisp,-1
+	dc.b "iscreen displa",$80+'y',"I0,0,0,0,0",-1
+	dc.w L_IscreenOfs,-1
+	dc.b "iscreen offse",$80+'t',"I0,0,0",-1
+	dc.w L_IscreenCopy2,-1
+	dc.b "!iscreen cop",$80+'y',"I0t0",-2
+	dc.w L_IscreenCopy,-1
+	dc.b $80,"I0,0,0,0,0t0,0,0",-1
+	dc.w -1,L_XIhard
+	dc.b "x ihar",$80+'d',"00",-1
+	dc.w -1,L_XIscreen
+	dc.b "x iscree",$80+'n',"00",-1
+	dc.w -1,L_YIhard
+	dc.b "y ihar",$80+'d',"00",-1
+	dc.w -1,L_YIscreen
+	dc.b "y iscree",$80+'n',"00",-1
+	dc.w L_IscreenSet,-1	;Obsolete - see v1.3
+	dc.b "set_iscree",$80+'n',"I0",-1
+	dc.w -1,L_IscreenGet	;Obsolete
+	dc.b "i_cree",$80+'n',"0",-1
+
+	dc.w L_IwindowOpenWB_NT,-1	;Obsolete - see v1.3
+	dc.b "!iwindow_open w",$80+'b',"I0,0,0,0,0",-2
+	dc.w L_IwindowOpenWB_NF,-1	;Obsolete
+	dc.b $80,"I0,0,0,0,0,2",-1
+	dc.w L_IwindowCloseWB,-1
+	dc.b "iwindow close w",$80+'b',"I0",-1
+	dc.w L_IwindowSetWB,-1
+	dc.b "set iwindow w",$80+'b',"I0",-1
+	dc.w -1,L_IwindowOnWB
+	dc.b "iwindow on w",$80+'b',"0",-1
+	dc.w L_IwindowOpenNT,-1		;Obsolete - see v1.3
+	dc.b "!iwindow_ope",$80+'n',"I0,0,0,0,0",-2
+	dc.w L_IwindowOpenNF,-1		;Obsolete
+	dc.b $80,"I0,0,0,0,0,2",-1
+	dc.w L_IwindowClose,-1
+	dc.b "iwindow clos",$80+'e',"I0",-1
+	dc.w L_CurIwinToFront,-1	;Obsolete - see v1.3b
+	dc.b "!iwindow_to fron",$80+'t',"I",-2
+	dc.w L_IwindowToFront,-1	;Obsolete
+	dc.b $80,"I0",-1
+	dc.w L_CurIwinToBack,-1		;Obsolete
+	dc.b "!iwindow_to bac",$80+'k',"I",-2
+	dc.w L_IwindowToBack,-1		;Obsolete
+	dc.b $80,"I0",-1
+	dc.w L_IwindowMove,-1		;Obsolete
+	dc.b "iwindow_mov",$80+'e',"I0,0,0",-1
+	dc.w L_IwindowSize,-1		;Obsolete
+	dc.b "iwindow_siz",$80+'e',"I0,0,0",-1
+	dc.w -1,L_CurIwindowX		;Obsolete
+	dc.b "!iwindow_",$80+'x',"0",-2
+	dc.w -1,L_IwindowX		;Obsolete
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowY		;Obsolete
+	dc.b "!iwindow_",$80+'y',"0",-2
+	dc.w -1,L_IwindowY		;Obsolete
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowWidth	;Obsolete
+	dc.b "!iwindow_widt",$80+'h',"0",-2
+	dc.w -1,L_IwindowWidth		;Obsolete
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowHeight	;Obsolete
+	dc.b "!iwindow_heigh",$80+'t',"0",-2
+	dc.w -1,L_IwindowHeight		;Obsolete
+	dc.b $80,"00",-1
+	dc.w -1,L_IwindowBase
+	dc.b "iwindow bas",$80+'e',"0",-1
+	dc.w -1,L_IwindowActiveNum
+	dc.b "iwindow active nu",$80+'m',"0",-1
+	dc.w -1,L_IwindowActiveBase
+	dc.b "iwindow active bas",$80+'e',"0",-1
+	dc.w -1,L_IwindowActive
+	dc.b "iwindow activ",$80+'e',"0",-1
+	dc.w L_IwindowActivate,-1
+	dc.b "iwindow activat",$80+'e',"I0",-1
+	dc.w L_IwindowSet,-1		;Obsolete
+	dc.b "set_iwindo",$80+'w',"I0",-1
+	dc.w -1,L_IwindowGet		;Obsolete
+	dc.b "i_indo",$80+'w',"0",-1
+
+	dc.w L_IwaitKey,-1
+	dc.b "iwait ke",$80+'y',"I",-1
+	dc.w L_IwaitMouse,-1
+	dc.b "iwait mous",$80+'e',"I",-1
+	dc.w L_IwaitVbl,-1
+	dc.b "iwait vb",$80+'l',"I",-1
+	dc.w L_Iwait,-1
+	dc.b "iwai",$80+'t',"I0",-1
+	dc.w -1,L_Iscan
+	dc.b "isca",$80+'n',"0",-1
+	dc.w -1,L_Ishift
+	dc.b "ishif",$80+'t',"0",-1
+	dc.w -1,L_ImouseKey
+	dc.b "imouse ke",$80+'y',"0",-1
+	dc.w -1,L_ImouseX
+	dc.b "imouse ",$80+'x',"0",-1
+	dc.w -1,L_ImouseY
+	dc.b "imouse ",$80+'y',"0",-1
+	dc.w -1,L_GetChar
+	dc.b "iget",$80+'$',"2",-1
+	dc.w -1,L_ReadChar
+	dc.b "iread char",$80+'$',"2",-1
+	dc.w -1,L_ReadStr
+	dc.b "iread str",$80+'$',"2",-1
+	dc.w -1,L_ReadInt
+	dc.b "iread in",$80+'t',"0",-1
+
+	dc.w -1,L_ItextBase
+	dc.b "itext bas",$80+'e',"0",-1
+	dc.w -1,L_ItextLength
+	dc.b "itext lengt",$80+'h',"02",-1
+	dc.w L_SetIfont1,-1
+	dc.b "!set ifon",$80+'t',"I2",-2
+	dc.w L_SetIfont,-1
+	dc.b $80,"I2,0",-1
+      ifd CREATOR
+	dc.w -1,L_IfontName
+	dc.b "fonti",$80+'$',"2",-1
+	dc.w -1,L_IfontBase
+	dc.b "fonti bas",$80+'e',"0",-1
+	dc.w -1,L_IfontHeight
+	dc.b "fonti heigh",$80+'t',"0",-1
+      else
+	dc.w -1,L_IfontName
+	dc.b "ifont",$80+'$',"2",-1
+	dc.w -1,L_IfontBase
+	dc.b "ifont bas",$80+'e',"0",-1
+	dc.w -1,L_IfontHeight
+	dc.b "ifont heigh",$80+'t',"0",-1
+      endc
+
+	dc.w L_IlocateGr,-1
+	dc.b "ilocate g",$80+'r',"I0,0",-1
+	dc.w L_Ilocate,-1
+	dc.b "ilocat",$80+'e',"I0,0",-1
+	dc.w -1,L_Ixgr
+	dc.b "ixg",$80+'r',"0",-1
+	dc.w -1,L_Iygr
+	dc.b "iyg",$80+'r',"0",-1
+	dc.w L_IgrWriting,-1
+	dc.b "igr writin",$80+'g',"I0",-1
+	dc.w L_Itext,-1
+	dc.b "itex",$80+'t',"I0,0,2",-1
+	dc.w L_Iwrite0,-1
+	dc.b "!iwrit",$80+'e',"I",-2
+	dc.w L_Iwrite,-1
+	dc.b $80,"I2",-1
+	dc.w L_Icls,-1
+	dc.b "!icl",$80+'s',"I",-2
+	dc.w L_IclsCol,-1
+	dc.b $80,"I0",-2
+	dc.w L_IclsXY,-1		;v1.1 (14/6/94)
+	dc.b $80,"I0,0,0t0,0",-1
+	dc.w L_SetInk1,-1
+	dc.b "!iin",$80+'k',"I0",-2
+	dc.w L_SetInk2,-1
+	dc.b $80,"I0,0",-2
+	dc.w L_SetInk,-1
+	dc.b $80,"I0,0,0",-1
+	dc.w L_Iplot,-1
+	dc.b "!iplo",$80+'t',"I0,0",-2
+	dc.w L_IplotInk,-1
+	dc.b $80,"I0,0,0",-1
+	dc.w L_IdrawTo,-1
+	dc.b "idraw t",$80+'o',"I0,0",-1
+	dc.w L_Idraw,-1
+	dc.b "idra",$80+'w',"I0,0t0,0",-1
+	dc.w L_Ibox,-1
+	dc.b "ibo",$80+'x',"I0,0t0,0",-1
+	dc.w L_Ibar,-1
+	dc.b "iba",$80+'r',"I0,0t0,0",-1
+	dc.w L_Iellipse,-1
+	dc.b "iellips",$80+'e',"I0,0,0,0",-1
+	dc.w L_Icircle,-1
+	dc.b "icircl",$80+'e',"I0,0,0",-1
+;	dc.w L_Iflood,-1
+;	dc.b 1,"floo",$80+'d',"I0,0,0",-1
+
+	dc.w -1,L_IreqFileMulti0
+	dc.b "!irequest file multi",$80+'$',"2",-2
+	dc.w -1,L_IreqFileMulti1
+	dc.b $80,"22",-2
+	dc.w -1,L_IreqFileMulti
+	dc.b $80,"22,2",-1
+	dc.w -1,L_IreqFileNext
+	dc.b "irequest file next",$80+'$',"2",-2
+	dc.w -1,L_IrequestFile0
+	dc.b "!irequest file",$80+'$',"2",-2
+	dc.w -1,L_IrequestFile1
+	dc.b $80,"22",-2
+	dc.w -1,L_IrequestFile2
+	dc.b $80,"22,2",-2
+	dc.w -1,L_IrequestFile
+	dc.b $80,"22,2,2",-1
+	dc.w -1,L_IrequestFont0
+	dc.b "!irequest font",$80+'$',"2",-2
+	dc.w -1,L_IrequestFont
+	dc.b $80,"22",-1
+	dc.w -1,L_IreqScrWidth
+	dc.b "ireq scr widt",$80+'h',"0",-1
+	dc.w -1,L_IreqScrHeight
+	dc.b "ireq scr heigh",$80+'t',"0",-1
+	dc.w -1,L_IreqScrCols
+	dc.b "ireq scr colou",$80+'r',"0",-1
+	dc.w -1,L_IreqScrMode
+	dc.b "ireq scr mod",$80+'e',"00",-1
+	dc.w -1,L_IrequestScreen0
+	dc.b "!irequest scree",$80+'n',"0",-2
+	dc.w -1,L_IrequestScreen
+	dc.b $80,"02",-1
+
+	dc.w L_IcolourSet,-1
+	dc.b "set icolou",$80+'r',"I0,0",-1
+	dc.w -1,L_IcolourGet
+	dc.b "icolou",$80+'r',"00",-1
+
+;Palette statements.  Since Palette doesn't work reliably, it just goes to
+;an RTS now.
+
+    ifne 0
+
+	dc.w L_Ipalette1,-1
+	dc.b "!ipalett",$80+'e',"I0",-2
+	dc.w L_Ipalette2,-1
+	dc.b $80,"I0,0",-2
+	dc.w L_Ipalette3,-1
+	dc.b $80,"I0,0,0",-2
+	dc.w L_Ipalette4,-1
+	dc.b $80,"I0,0,0,0",-2
+	dc.w L_Ipalette5,-1
+	dc.b $80,"I0,0,0,0,0",-2
+	dc.w L_Ipalette6,-1
+	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_Ipalette7,-1
+	dc.b $80,"I0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette8,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette9,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0",-2
+      ifd CREATOR
+	dc.w L_Ipalette11,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette12,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette13,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette14,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette15,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette16,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette17,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette18,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette19,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette20,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette21,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette22,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette23,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette24,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette25,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette26,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette27,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette28,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette29,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette30,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette31,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette32,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-1
+      else
+;Ipalette Pro with 10 parameters seems to work for all parameter counts > 9.
+;We need these entries so that adding functions later doesn't cause programs
+;written with earlier versions of the extension to become corrupted.
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette10,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-1
+      endc
+
+    else	;ifne 0
+
+	dc.w L_Ipalette0,-1
+	dc.b "!ipalett",$80+'e',"I0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+	dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-2
+	dc.w L_Ipalette0,-1
+ dc.b $80,"I0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",-1
+
+    endc
+;;;;;;;;
+;v0.6 (94/04/30)
+	dc.w -1,L_IrequestWarning1
+	dc.b "!irequest warnin",$80+'g',"02",-2
+	dc.w -1,L_IrequestWarning3
+	dc.b $80,"02,2,2",-2
+	dc.w -1,L_IrequestWarning
+	dc.b $80,"02,2,2,2",-2
+	dc.w L_IrequestError1,-1
+	dc.b "!irequest erro",$80+'r',"I2",-2
+	dc.w L_IrequestError2,-1
+	dc.b $80,"I2,2",-2
+	dc.w L_IrequestError,-1
+	dc.b $80,"I2,2,2",-1
+	dc.w -1,L_IrequestMessage2
+	dc.b "!irequest messag",$80+'e',"02,2",-2
+	dc.w -1,L_IrequestMessage
+	dc.b $80,"02,2,2",-1
+	dc.w L_IreqSetDefTitle,-1
+	dc.b "irequest def titl",$80+'e',"I2",-1
+
+;;;;;;;;
+;v0.7 (94/05/04)
+	dc.w -1,L_CurIwindowStatus	;Obsolete - see v1.3b
+	dc.b "!iwindow_statu",$80+'s',"0",-2
+	dc.w -1,L_IwindowStatus
+	dc.b $80,"00",-1
+
+	dc.w L_Iclw,-1
+	dc.b "!icl",$80+'w',"I",-2
+	dc.w L_IclwCol,-1
+	dc.b $80,"I0",-2
+	dc.w L_IclwXY,-1		;v1.1 (14/6/94)
+	dc.b $80,"I0,0,0t0,0",-1
+
+;;;;;;;;
+;v1.0 (94/05/15)
+	dc.w L_Ierror,-1
+	dc.b "ierro",$80+'r',"I0",-1
+	dc.w -1,L_IerrStr
+	dc.b "ierr",$80+'$',"2",-1
+	dc.w -1,L_Ierr
+	dc.b "ier",$80+'r',"0",-1
+	dc.w L_ItrapOn,-1
+	dc.b "itrap o",$80+'n',"I",-1
+	dc.w L_ItrapOff,-1
+	dc.b "itrap of",$80+'f',"I",-1
+	dc.w -1,L_Ierrtrap
+	dc.b "ierrtra",$80+'p',"0",-1
+
+;;;;;;;;
+;v1.1 (94/06/23)
+
+;Menu instructions
+;	dc.w L_SetImenu1,L_GetImenu1
+;	dc.b "!imenu",$80+'$',"V20",-2
+;	dc.w L_SetImenu2,L_GetImenu2
+;	dc.b $80,"V20,0",-2
+;	dc.w L_SetImenu,L_GetImenu
+;	dc.b $80,"V20,0,0",-1
+	dc.w L_SetImenu1,-1
+	dc.b "!set imen",$80+'u',"I2,0",-2
+	dc.w L_SetImenu2,-1
+	dc.b $80,"I2,0,0",-2
+	dc.w L_SetImenu,-1
+	dc.b $80,"I2,0,0,0",-1
+	dc.w -1,L_Ichoice
+	dc.b "ichoic",$80+'e',"00",-1
+	dc.w L_ImenuOn,-1
+	dc.b "imenu o",$80+'n',"I",-1
+	dc.w L_ImenuOff,-1
+	dc.b "imenu of",$80+'f',"I",-1
+
+;Miscellaneous
+	dc.w L_IpasteIcon,-1
+	dc.b "ipaste ico",$80+'n',"I0,0,0",-1
+	dc.w L_IgetSprPal0,-1
+	dc.b "!iget sprite palett",$80+'e',"I",-2
+	dc.w L_IgetSprPal,-1
+	dc.b $80,"I0",-1
+	dc.w L_IgetIconPal0,-1
+	dc.b "!iget icon palett",$80+'e',"I",-2
+	dc.w L_IgetIconPal,-1
+	dc.b $80,"I0",-1
+
+;;;;;;;;
+;v1.1b (94/07/23)
+	dc.w -1,L_RTHere
+	dc.b "reqtools her",$80+'e',"0",-1
+
+
+;;;;;;;;
+;v1.2 (94/08/14)
+
+;Gadgets
+	dc.w L_ReserveIgadget0,-1
+	dc.b "!reserve igadge",$80+'t',"I",-2
+	dc.w L_ReserveIgadget,-1
+	dc.b $80,"I0",-1
+	dc.w L_SetIgadToggle0,-1
+	dc.b "!set igadget toggl",$80+'e',"I0,0,0,0,0",-2
+	dc.w L_SetIgadToggle,-1
+	dc.b $80,"I0,0,0,0,0,0",-1
+	dc.w L_SetIgadHslider,-1
+	dc.b "set igadget hslide",$80+'r',"I0,0,0,0,0,0,0,0,0",-1
+	dc.w L_SetIgadVslider,-1
+	dc.b "set igadget vslide",$80+'r',"I0,0,0,0,0,0,0,0,0",-1
+	dc.w L_SetIgadString0,-1
+	dc.b "!set igadget strin",$80+'g',"I0,0,0,0,0,0",-2
+	dc.w L_SetIgadString1,-1
+	dc.b $80,"I0,0,0,0,0,0,2",-2
+	dc.w L_SetIgadString,-1
+	dc.b $80,"I0,0,0,0,0,0,2,0",-1
+	dc.w L_SetIgadInt0,-1
+	dc.b "!set igadget in",$80+'t',"I0,0,0,0,0",-2
+	dc.w L_SetIgadInt1,-1
+	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_SetIgadInt,-1
+	dc.b $80,"I0,0,0,0,0,0,0",-1
+	dc.w L_IgadgetOnAll,-1
+	dc.b "!igadget o",$80+'n',"I",-2
+	dc.w L_IgadgetOn,-1
+	dc.b $80,"I0",-1
+	dc.w L_IgadgetOffAll,-1
+	dc.b "!igadget of",$80+'f',"I",-2
+	dc.w L_IgadgetOff,-1
+	dc.b $80,"I0",-1
+	dc.w L_IgadgetActiveAll,-1
+	dc.b "!igadget activ",$80+'e',"I",-2
+	dc.w L_IgadgetActive,-1
+	dc.b $80,"I0",-1
+	dc.w L_IgadgetInactiveAll,-1
+	dc.b "!igadget inactiv",$80+'e',"I",-2
+	dc.w L_IgadgetInactive,-1
+	dc.b $80,"I0",-1
+	dc.w -1,L_IgadgetReadStr
+	dc.b "igadget read",$80+'$',"20",-1
+	dc.w -1,L_IgadgetRead
+	dc.b "igadget rea",$80+'d',"00",-1
+
+;Other
+	dc.w L_Icentre,-1
+	dc.b "icentr",$80+'e',"I2",-1
+	dc.w L_AmosIscrCopy2,-1
+	dc.b "!amos iscreen cop",$80+'y',"I0t0",-2
+	dc.w L_AmosIscrCopy,-1
+	dc.b $80,"I0,0,0,0,0t0,0,0",-1
+
+;;;;;;;;
+;v1.2b (94/09/23)
+
+	dc.w L_SetIgadHit,-1
+	dc.b "set igadget hi",$80+'t',"I0,0,0,0,0",-1
+	dc.w L_SetIpens,-1
+	dc.b "set ipen",$80+'s',"I0,0",-1
+	dc.w -1,L_IgadgetDown
+	dc.b "igadget dow",$80+'n',"00",-1
+
+      ifd FOR_LATER
+	dc.w L_IgadToBank,-1
+	dc.b "igadget to ban",$80+'k',"I0",-1
+	dc.w L_BankToIgad,-1
+	dc.b "bank to igadge",$80+'t',"I0",-1
+      endc
+
+	dc.w L_IwindowActivateWB,-1
+	dc.b "iwindow activate w",$80+'b',"I0",-1
+	dc.w L_IgetIcon5,-1
+	dc.b "!iget ico",$80+'n',"I0,0,0t0,0",-2
+	dc.w L_IgetIcon6,-1
+	dc.b $80,"I0,0,0,0t0,0",-2
+	dc.w L_IgetIcon7,-1
+	dc.b $80,"I0,0,0,0,0t0,0",-1
+	dc.w -1,L_IwindowActWidth
+	dc.b "iwindow actual widt",$80+'h',"0",-1
+	dc.w -1,L_IwindowActHeight
+	dc.b "iwindow actual heigh",$80+'t',"0",-1
+	dc.w L_SetIgadValueStr,-1
+	dc.b "set igadget value",$80+'$',"I0,2",-1
+	dc.w L_SetIgadValue,-1
+	dc.b "set igadget valu",$80+'e',"I0,0",-1
+
+;;;;;;;;
+;v1.3 (95/03/23)
+	dc.w L_IwindowOpenWB_NT,-1
+	dc.b "!iwindow open w",$80+'b',"I0,0,0,0,0",-2
+	dc.w L_IwindowOpenWB_NF,-1
+	dc.b $80,"I0,0,0,0,0,2",-2
+	dc.w L_IwindowOpenWB,-1
+	dc.b $80,"I0,0,0,0,0,2,0",-1
+	dc.w L_IwindowOpenNT,-1
+	dc.b "!iwindow ope",$80+'n',"I0,0,0,0,0",-2
+	dc.w L_IwindowOpenNF,-1
+	dc.b $80,"I0,0,0,0,0,2",-2
+	dc.w L_IwindowOpen,-1
+	dc.b $80,"I0,0,0,0,0,2,0",-1
+
+	dc.w -1,L_IwaitEventVbl
+	dc.b "iwait event vb",$80+'l',"0",-1
+	dc.w -1,L_IwaitEvent
+	dc.b "iwait even",$80+'t',"0",-1
+	dc.w -1,L_IeventData
+	dc.b "ievent dat",$80+'a',"0",-1
+	dc.w -1,L_IeventVbl
+	dc.b "ievent vb",$80+'l',"0",-1
+	dc.w -1,L_IeventMouse			;MOUSEBUTTONS
+	dc.b "ievent mous",$80+'e',"0",-1
+	dc.w -1,L_IeventGadget			;GADGETUP
+	dc.b "ievent gadge",$80+'t',"0",-1
+	dc.w -1,L_IeventMenu			;MENUPICK
+	dc.b "ievent men",$80+'u',"0",-1
+	dc.w -1,L_IeventClose			;CLOSEWINDOW
+	dc.b "ievent clos",$80+'e',"0",-1
+	dc.w -1,L_IeventKey			;RAWKEY
+	dc.b "ievent ke",$80+'y',"0",-1
+
+	dc.w L_IbufReset,-1
+	dc.b "iclear al",$80+'l',"I",-1
+	dc.w L_IbufResetKey,-1
+	dc.b "iclear ke",$80+'y',"I",-1
+	dc.w L_IbufResetMouse,-1		;Now a no-op
+	dc.b "iclear mous",$80+'e',"I",-1
+	dc.w L_IbufResetMenu,-1
+	dc.b "iclear men",$80+'u',"I",-1
+
+	dc.w L_SetIwindowTitle,-1
+	dc.b "set iwindow titl",$80+'e',"I0,2,2",-1
+
+
+;;;;;;;;
+;v1.3a (95/04/03)
+	dc.w -1,L_Ipoint
+	dc.b "!ipoin",$80+'t',"00,0",-1
+
+;;;;;;;;
+;v1.3b (95/06/17 ... long time no work! <sigh> )
+	dc.w L_SetIscrTitle,-1
+	dc.b "!set iscreen titl",$80+'e',"I2",-2
+	dc.w L_SetCurIscrTitle,-1
+	dc.b $80,"I2,0",-1
+	dc.w -1,L_CurIscrTitleHeight
+	dc.b "!iscreen title heigh",$80+'t',"0",-2
+	dc.w -1,L_IscrTitleHeight
+	dc.b $80,"00",-1
+	dc.w L_IscrOpenFront,-1
+	dc.b "iscreen open fron",$80+'t',"I",-1
+	dc.w L_IscrOpenBack,-1
+	dc.b "iscreen open bac",$80+'k',"I",-1
+	dc.w L_IscrAmosCopy2,-1
+	dc.b "!iscreen amos cop",$80+'y',"I0t0",-1
+	dc.w L_IscrAmosCopy,-1
+	dc.b $80,"I0,0,0,0,0t0,0,0",-1
+
+	dc.w L_IwindowToFrontWB,-1
+	dc.b "iwindow to front w",$80+'b',"I0",-1
+	dc.w L_IwindowToBackWB,-1
+	dc.b "iwindow to back w",$80+'b',"I0",-1
+	dc.w L_IwindowMoveWB,-1
+	dc.b "iwindow move w",$80+'b',"I0,0,0",-1
+	dc.w L_IwindowSizeWB,-1
+	dc.b "iwindow size w",$80+'b',"I0,0,0",-1
+	dc.w -1,L_IwindowXWB
+	dc.b "iwindow x w",$80+'b',"00",-1
+	dc.w -1,L_IwindowYWB
+	dc.b "iwindow y w",$80+'b',"00",-1
+	dc.w -1,L_IwindowWidthWB
+	dc.b "iwindow width w",$80+'b',"00",-1
+	dc.w -1,L_IwindowHeightWB
+	dc.b "iwindow height w",$80+'b',"00",-1
+	dc.w -1,L_IwindowStatusWB
+	dc.b "iwindow status w",$80+'b',"00",-1
+
+	dc.w L_IFlush, -1
+	dc.b "i flus",$80+'h',"I0",-1
+
+;Command replacements.  These are commands which need to be redefined so
+;that the Creator tokeniser doesn't see the old definition before a new one
+;which begins with the same character sequence.
+
+	dc.w L_IscreenOpen0,-1
+	dc.b "!iscreen ope",$80+'n',"I0,0,0,0,0",-2
+;	dc.w L_IscreenOpenNT,-1
+;	dc.b $80,"I0,0,0,0,0,0",-2
+	dc.w L_IscreenOpenNM,-1
+	dc.b $80,"I0,0,0,0,0,2",-2
+	dc.w L_IscreenOpen,-1
+	dc.b $80,"I0,0,0,0,0,2,0",-1
+	dc.w L_IscreenSet,-1	;Doing this as same-named inst/func works not!
+	dc.b "set iscree",$80+'n',"I0",-1
+	dc.w -1,L_IscreenGet
+	dc.b "iscree",$80+'n',"0",-1
+
+	dc.w L_CurIwinToFront,-1
+	dc.b "!iwindow to fron",$80+'t',"I",-2
+	dc.w L_IwindowToFront,-1
+	dc.b $80,"I0",-1
+	dc.w L_CurIwinToBack,-1
+	dc.b "!iwindow to bac",$80+'k',"I",-2
+	dc.w L_IwindowToBack,-1
+	dc.b $80,"I0",-1
+	dc.w L_IwindowMove,-1
+	dc.b "iwindow mov",$80+'e',"I0,0,0",-1
+	dc.w L_IwindowSize,-1
+	dc.b "iwindow siz",$80+'e',"I0,0,0",-1
+	dc.w -1,L_CurIwindowX
+	dc.b "!iwindow ",$80+'x',"0",-2
+	dc.w -1,L_IwindowX
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowY
+	dc.b "!iwindow ",$80+'y',"0",-2
+	dc.w -1,L_IwindowY
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowWidth
+	dc.b "!iwindow widt",$80+'h',"0",-2
+	dc.w -1,L_IwindowWidth
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowHeight
+	dc.b "!iwindow heigh",$80+'t',"0",-2
+	dc.w -1,L_IwindowHeight
+	dc.b $80,"00",-1
+	dc.w -1,L_CurIwindowStatus
+	dc.b "!iwindow statu",$80+'s',"0",-2
+	dc.w -1,L_IwindowStatus
+	dc.b $80,"00",-1
+	dc.w L_IwindowSet,-1
+	dc.b "set iwindo",$80+'w',"I0",-1
+	dc.w -1,L_IwindowGet
+	dc.b "iwindo",$80+'w',"0",-1
+
+;;;;;;;; End of token table
+	dc.w 0
diff --git a/extensions/Intuition-41.95/Intuition/src/jumptable.i b/extensions/Intuition-41.95/Intuition/src/jumptable.i
new file mode 100644
index 0000000..2ccefa6
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/jumptable.i
@@ -0,0 +1,69 @@
+;Jump table constants
+
+offset	set	0
+nextlab	macro
+jt_\1	equ	offset
+offset	set	offset+4
+	endm
+
+	nextlab	Startup
+	nextlab	CloseAll
+	nextlab	Quit
+	nextlab	GetBankAdr
+	nextlab	CreateBank
+	nextlab	FindAscr
+	nextlab	ClearGadget
+	nextlab	FindSprite
+	nextlab	FindIcon
+	nextlab	FreeImenu
+	nextlab	FreeImenuItem
+	nextlab	FindImenu
+	nextlab	FindImenuItem
+	nextlab	FindImenuSub
+	nextlab	GetCurWin
+	nextlab	SetCoordsRel
+	nextlab	AllocMemClear
+	nextlab	AllocTmpRas
+	nextlab	FreeTmpRas
+	nextlab	StrAlloc
+	nextlab	StrFree
+	nextlab	FindIscr
+	nextlab	GetCurIscr
+	nextlab	FindIwin
+	nextlab	FindIwin2
+	nextlab	FindWBIwin
+	nextlab	GetCurIwin
+	nextlab	GetCurIwin2
+	nextlab	GetCurRP
+	nextlab	CheckCloseIscr
+	nextlab	CloseWin
+	nextlab	CloseIscr
+	nextlab	CloseIwin
+	nextlab	CloseWBIwin
+	nextlab	GetCurInput
+	nextlab	ConvRawKey
+	nextlab	DoEvent
+	nextlab	GetKey
+	nextlab	GetMouse
+	nextlab	GetMenu
+	nextlab	LongMul
+	nextlab	LongDiv
+	nextlab	SetCoords
+	nextlab	GetWinFlags
+	nextlab	GetSomeWinFlags
+	nextlab	SetWinFlags
+	nextlab	SetSomeWinFlags
+	nextlab	GetActiveWin
+	nextlab	StrLen
+	nextlab	ReturnString
+	nextlab	GetRetStr
+	nextlab	FlushRetStr
+	nextlab	RTS
+	nextlab	AllocRequest
+	nextlab	EZRequest
+	nextlab	CreatePort
+	nextlab	DeletePort
+	nextlab	ReadPixel
+	nextlab	WritePixel
+	nextlab	OpenIwin
+	nextlab	OpenIscr
diff --git a/extensions/Intuition-41.95/Intuition/src/macros.i b/extensions/Intuition-41.95/Intuition/src/macros.i
new file mode 100644
index 0000000..ab4064b
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/macros.i
@@ -0,0 +1,134 @@
+;Macros
+
+mvoe	macro			;Because I keep typing "mvoe" instead of
+				;  "move" so much... :-)
+	move.\0	\1,\2
+	endm
+mvoeq	macro
+	moveq	\1,\2
+	endm
+
+;Note that in the next macros, A4 is assumed to hold the base address of
+;the extension's data.  This should always be the case (set up at the
+;beginning of each routine - see PSTART/RET below - or with DINIT).
+
+dlea	macro
+	lea	\1(a4),\2	;Don't need "-DataBase" because of rs.x
+	endm
+
+dmove	macro	;move from data
+	move.\0	\1(a4),\2
+	endm
+
+amove	macro	;move from data with a specific address register as DataBase.
+		;Calling format: amove.x variable,dest,An
+	move.\0	\1(\3),\2
+	endm
+
+tmove	macro	;move to data
+	move.\0	\1,\2(a4)
+	endm
+
+dclr	macro
+	clr.\0	\1(a4)
+	endm
+
+aclr	macro
+	clr.\0	\1(\2)
+	endm
+
+dcmp	macro
+	cmp.\0	\1(a4),\2
+	endm
+
+acmp	macro
+	cmp.\0	\1(\3),\2
+	endm
+
+dtst	macro
+	tst.\0	\1(a4)
+	endm
+
+atst	macro
+	tst.\0	\1(\2)
+	endm
+
+;;;;;;;;;;;;;;;;
+
+dinit	macro			;For routines that can't/don't use PSTART,
+				;  or that need A4 for something else
+	move.l	ExtAdr+(ExtNum-1)*16(a5),\1
+	endm
+
+pstart	macro
+	movem.l	a4/a6,-(a7)
+	move.l	ExtAdr+(ExtNum-1)*16(a5),a4
+	dmove.l	A7StackPtr,a6
+	move.l	a7,-(a6)
+	tmove.l	a6,A7StackPtr
+	move.l	4(a7),a6
+	endm
+
+ret	macro
+	bsr	L_0
+	dmove.l	A7StackPtr,a6
+	move.l	(a6)+,a7
+	tmove.l	a6,A7StackPtr
+	movem.l	(a7)+,a4/a6
+	rts
+	endm
+
+fixA6	macro			;Set saved A6 value to current A6.  Parameter
+	move.l	a6,4+\1(a7)	;  is number of bytes pushed after "pstart"
+	endm
+
+;;;;;;;;;;;;;;;;
+
+call	macro
+	jsr	_LVO\1(a6)
+	endm
+
+syscall	macro
+	move.l	4,a6
+	call	\1
+	endm
+
+doscal	macro			;Not a typo!!  "doscall" is defined in equ.s
+	dmove.l	DOSBase,a6
+	call	\1
+	endm
+
+gfxcall	macro
+	dmove.l	GfxBase,a6
+	call	\1
+	endm
+
+intcall	macro
+	dmove.l	IntuitionBase,a6
+	call	\1
+	endm
+
+rtcall	macro
+	dtst.l	ReqToolsBase
+	beq	L_NoReqTools
+	dmove.l	ReqToolsBase,a6
+	call	\1
+	endm
+
+;;;;;;;;;;;;;;;;
+
+rjsrA5	macro			;Restore A5 to AMOS Data Zone and do an RJSR
+	move.l	a5,-(a7)
+	dmove.l	SavedA5,a5
+	rjsr	\1
+	move.l	(a7)+,a5
+	endm
+
+;;;;;;;;;;;;;;;;
+
+jtcall	macro			;Call a routine in the jump table
+	move.l	a6,-(a7)
+	dmove.l	IntJumpTable,a6
+	jsr	jt_\1(a6)
+	move.l	(a7)+,a6
+	endm
diff --git a/extensions/Intuition-41.95/Intuition/src/macros2.i b/extensions/Intuition-41.95/Intuition/src/macros2.i
new file mode 100644
index 0000000..2a0d6bb
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/macros2.i
@@ -0,0 +1,27 @@
+;Macros for internal routines
+
+pstart2	macro			;Doesn't depend on A5, and doesn't save SP
+	movem.l	a4/a6,-(a7)
+	move.l	DataBase(pc),a4
+	endm
+
+ret2	macro
+	movem.l	(a7)+,a4/a6
+	rts
+	endm
+
+dinit2	macro			;DINIT without A5
+	move.l	DataBase(pc),\1
+	endm
+
+rtcall1	macro
+	dtst.l	ReqToolsBase
+	beq	NoReqTools
+	dmove.l	ReqToolsBase,a6
+	call	\1
+	endm
+
+rtcall2	macro
+	dmove.l	ReqToolsBase,a6
+	call	\1
+	endm
diff --git a/extensions/Intuition-41.95/Intuition/src/menus.s b/extensions/Intuition-41.95/Intuition/src/menus.s
new file mode 100644
index 0000000..8cd0d55
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/menus.s
@@ -0,0 +1,314 @@
+;Menu routines
+
+L_SetImenu:			;Imenu$(menu,item,sub)=s$
+				;Set Imenu s$,menu,item,sub
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurIwin2		;Save current window pointer
+	lea	.curwin(pc),a0
+	move.l	d0,(a0)
+	jtcall	GetWinFlags		;If menus are already active, barf
+	btst	#WEB_MENUACTIVE,d0
+	bne	L_MenuActive
+	move.l	(a3)+,d7		;Get menu numbers
+	move.l	(a3)+,d6
+	move.l	(a3)+,d5
+	move.l	(a3)+,a5		;Get menu string to A5
+	tst.l	d5			;Check ranges
+	beq	L_IllFunc
+	cmp.l	#31,d5
+	bhi	L_IllFunc
+	cmp.l	#63,d6
+	bhi	L_IllFunc
+	cmp.l	#31,d7
+	bhi	L_IllFunc
+	move.w	d5,d0			;Look for menu #D5
+	jtcall	FindImenu
+	move.l	d0,d2
+	bne	.ckitem			;If found, look at items
+	tst.w	d6			;Not found, item/subitem # must be 0
+	bne	L_IllFunc
+	tst.w	d7
+	bne	L_IllFunc
+	bra	.set
+.ckitem	move.w	d6,d0			;Is there an item number?
+	bne	.here
+	tst.w	d7			;Nope, subitem # must be 0
+	bne	L_IllFunc
+	bra	.set			;Set menu
+.here	jtcall	FindImenuItem		;Yes, look for menu item #D6
+	move.l	d0,d3
+	bne	.cksub			;If found, look at subitems
+	tst.w	d7			;Not found, subitem # must be 0
+	bne	L_IllFunc
+.cksub	move.w	d7,d0			;Is there a subitem number?
+	beq	.set			;No, start doing stuff
+	jtcall	FindImenuSub		;Yes, look for it
+
+.set	move.l	a0,d4			;Does structure exist?
+	bne	.exists			;Yes
+	tst.w	(a5)			;Are we trying to free it?
+	beq	.exit			;No, exit
+	bra	.create
+.exists	move.l	a1,-(a7)
+	tst.w	d6			;Free structure and fix links
+	bne	.isitm2
+	move.l	a1,d0
+	bne	.del0
+	move.l	.curwin(pc),a1
+	move.l	wd_UserData(a1),a1
+	lea	we_FirstMenu-mu_NextMenu(a1),a1
+.del0	move.l	mu_NextMenu(a0),mu_NextMenu(a1)
+	jtcall	FreeImenu
+	bra	.chkfre
+.isitm2	move.l	a1,d0
+	bne	.del1
+	move.l	d2,a1
+	lea	mu_FirstItem-mi_NextItem(a1),a1
+.del1	move.l	mi_NextItem(a0),mi_NextItem(a1)
+	jtcall	FreeImenuItem
+.chkfre	move.l	(a7)+,a1
+	tst.w	(a5)			;Are we just freeing structure?
+	beq	.exit			;Yes, quit
+
+.create	tst.w	d6			;Create the structure
+	bne	.isitem
+	moveq	#mu_sizeof,d0
+	bra	.alloc
+.isitem	moveq	#mi_sizeof,d0
+.alloc	moveq	#MEMF_PUBLIC,d1
+	move.l	a1,-(a7)
+	jtcall	AllocMemClear
+	move.l	d0,d4			;Did we get it?
+	beq	L_NoMem			;No, barf
+	move.l	d4,a2
+	moveq	#0,d0			;Make null-terminated string
+	move.w	(a5)+,d0
+	move.l	d0,d4
+	jtcall	StrAlloc
+	move.l	a5,a0
+	move.l	d0,a1
+	move.l	a1,a5
+	move.l	d4,d0
+	syscall	CopyMem
+	move.l	(a7)+,a1
+	clr.b	0(a5,d4.l)
+	tst.w	d6			;Is this an item?
+	bne	.isitm3			;Yes, do special stuff
+	move.l	a5,mu_MenuName(a2)	;No, just set up menu
+	move.w	d5,mu_MenuNum(a2)
+	move.w	#MENUENABLED,mu_Flags(a2)
+	lsl.w	#3,d4
+	addq.w	#8,d4
+	move.w	d4,mu_Width(a2)
+	move.w	#10,mu_Height(a2)
+	move.l	a1,d0			;Each menu 8 pixels right of previous
+	beq	.munext
+	move.w	mu_LeftEdge(a1),d0
+	add.w	mu_Width(a1),d0
+	addq.w	#8,d0
+	move.w	d0,mu_LeftEdge(a2)
+	move.l	a1,d0			;Fix up pointers
+	bne	.muprev
+.munext	move.l	.curwin(pc),a0
+	move.l	wd_UserData(a0),a0
+	lea	we_FirstMenu-mu_NextMenu(a0),a1
+.muprev	move.l	mu_NextMenu(a1),mu_NextMenu(a2)
+	move.l	a2,mu_NextMenu(a1)
+	bra	.exit			;Done
+.isitm3	tst.w	d7			;Set up item structure
+	bne	.issub
+	move.w	d6,mi_ItemNum(a2)
+	move.l	d2,mi_Parent(a2)
+	bra	.itemxy
+.issub	move.w	d7,mi_ItemNum(a2)
+	move.w	#1,mi_IsSubitem(a2)
+	move.l	d3,mi_Parent(a2)
+	move.l	d3,a0
+	move.w	mi_LeftEdge(a0),d0
+	add.w	mi_Width(a0),d0
+	subq.w	#8,d0
+	move.w	d0,mi_LeftEdge(a2)
+.itemxy	lsl.w	#3,d4
+	addq.w	#4,d4
+	mvoe.w	d4,mi_Width(a2)
+	move.w	#2,mi_Height(a2)
+	move.l	.curwin(pc),a0		;Find out font height
+	move.l	wd_RPort(a0),a0
+	move.w	rp_TxHeight(a0),d0
+	add.w	d0,mi_Height(a2)
+	move.l	a1,d0
+	beq	.itext0
+	move.w	mi_TopEdge(a1),d0
+	add.w	mi_Height(a1),d0
+	move.w	d0,mi_TopEdge(a2)
+.itext0	moveq	#it_sizeof,d0		;Allocate an IntuiText
+	moveq	#MEMF_PUBLIC,d1
+	move.l	a1,-(a7)
+	jtcall	AllocMemClear
+	move.l	(a7)+,a1
+	tst.l	d0			;Did we get it?
+	bne	.itext1
+	move.l	a2,a1			;No, barf
+	moveq	#mi_sizeof,d0
+	syscall	FreeMem
+	bsr	L_NoMem
+.itext1	move.l	d0,mi_ItemFill(a2)	;Stick it in the item structure
+	move.l	d0,a0			;Now fill it up
+	move.l	a5,it_IText(a0)
+	move.l	a0,a5
+	move.l	.curwin(pc),a0		;Use pens, font from RastPort
+	move.l	wd_RPort(a0),a0
+	move.b	rp_BgPen(a0),it_FrontPen(a5)
+	move.b	rp_FgPen(a0),it_BackPen(a5)
+	move.b	#RP_JAM2,it_DrawMode(a5)
+	move.w	#2,it_LeftEdge(a5)
+	move.w	#1,it_TopEdge(a5)
+	;Now set up item flags
+	move.w	#ITEMTEXT|ITEMENABLED|HIGHCOMP,mi_Flags(a2)
+	move.l	a1,d0			;Link item into lists
+	bne	.miprev
+	move.l	d2,a0
+	tst.w	d7
+	bne	.issub2
+	lea	mu_FirstItem-mi_NextItem(a0),a1
+	bra	.miprev
+.issub2	move.l	d3,a0
+	lea	mi_SubItem-mi_NextItem(a0),a1
+.miprev	move.l	mi_NextItem(a1),mi_NextItem(a2)
+	move.l	a2,mi_NextItem(a1)
+.exit	move.l	(a7)+,a5		;Done!!!
+	ret
+.curwin	dc.l 0
+
+L_SetImenu2:			;Imenu$(menu,item)=s$
+				;Set Imenu s$,menu,item
+	clr.l	-(a3)
+	bra	L_SetImenu
+
+L_SetImenu1:			;Imenu$(menu)=s$
+				;Set Imenu s$,menu,item
+	clr.l	-(a3)
+	bra	L_SetImenu2
+
+L_GetImenu:			;s$=Imenu$(menu,item,sub)
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	beq	L_IllFunc
+	cmp.l	#31,d0
+	bhi	L_IllFunc
+	cmp.l	#63,d2
+	bhi	L_IllFunc
+	cmp.l	#31,d3
+	bhi	L_IllFunc
+	tst.w	d2
+	bne	.find
+	tst.w	d3
+	bne	L_IllFunc
+.find	jtcall	FindImenu
+	tst.l	d0
+	beq	.none
+	move.w	d2,d0
+	bne	.getitm
+	move.l	mu_MenuName(a0),a0
+	bra	.done
+.getitm	jtcall	FindImenuItem
+	tst.l	d0
+	beq	.none
+	move.w	d3,d0
+	bne	.getsub
+	move.l	mi_ItemFill(a0),a0
+	move.l	it_IText(a0),a0
+	bra	.done
+	jtcall	FindImenuSub
+.getsub	tst.l	d0
+	beq	.none
+	move.l	mi_ItemFill(a0),a0
+	move.l	it_IText(a0),a0
+.done	lea	.rsc(pc),a1
+	jtcall	ReturnString
+	bra	.exit
+.none	dlea	NullStr,a0
+	move.l	a0,d3
+	moveq	#2,d2
+.exit	ret
+.rsc	ds.b	rsc_sizeof
+
+L_GetImenu2:			;s$=Imenu$(menu,item)
+	clr.l	-(a3)
+	bra	L_GetImenu
+
+L_GetImenu1:			;s$=Imenu$(menu)
+	clr.l	-(a3)
+	bra	L_GetImenu2
+
+L_Ichoice:			;n=Ichoice(level)
+	pstart
+	moveq	#0,d3
+	move.l	(a3)+,d0
+	subq.l	#1,d0
+	beq	.menu
+	subq.l	#1,d0
+	beq	.item
+	subq.l	#1,d0
+	bne	L_IllFunc
+	dmove.w	LastMenuSub,d3
+	bpl	.getsub
+	jtcall	GetCurInput
+	move.l	d0,a0
+	jtcall	GetMenu
+	dmove.w	LastMenuSub,d3
+.getsub	tmove.w	#-1,LastMenuSub
+	bra	.exit
+.menu	dmove.w	LastMenu,d3
+	bpl	.getmnu
+	jtcall	GetCurInput
+	move.l	d0,a0
+	jtcall	GetMenu
+	dmove.w	LastMenu,d3
+.getmnu	tmove.w	#-1,LastMenu
+	bra	.exit
+.item	dmove.w	LastMenuItem,d3
+	bpl	.getitm
+	jtcall	GetCurInput
+	move.l	d0,a0
+	jtcall	GetMenu
+	dmove.w	LastMenuItem,d3
+.getitm	tmove.w	#-1,LastMenuItem
+.exit	tst.w	d3
+	bpl	.exit2
+	moveq	#0,d3
+.exit2	moveq	#0,d2
+	ret
+
+L_ImenuOn:			;Imenu On
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a2
+	move.l	we_FirstMenu(a2),d0
+	beq	.nomenu
+	and.l	#~RMBTRAP,wd_Flags(a0)
+	move.l	d0,a1
+	intcall	SetMenuStrip
+	moveq	#WEF_MENUACTIVE,d0
+	move.l	d0,d1
+	jtcall	SetWinFlags
+	bra	.exit
+.nomenu	or.l	#RMBTRAP,wd_Flags(a0)
+	intcall	ClearMenuStrip
+	and.l	#~WEF_MENUACTIVE,we_Flags(a2)
+.exit	ret
+
+L_ImenuOff:			;Imenu Off
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	or.l	#RMBTRAP,wd_Flags(a0)
+	intcall	ClearMenuStrip
+	moveq	#0,d0
+	moveq	#WEF_MENUACTIVE,d1
+	jtcall	SetWinFlags
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src/offsets.i b/extensions/Intuition-41.95/Intuition/src/offsets.i
new file mode 100644
index 0000000..be05a8c
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/offsets.i
@@ -0,0 +1,7 @@
+	incdir	"includes:"
+	include	"diskfont.Offsets"
+	include	"dos.Offsets"
+	include "exec.Offsets"
+	include	"graphics.Offsets"
+	include	"intuition.Offsets"
+	include "reqtools.Offsets"
diff --git a/extensions/Intuition-41.95/Intuition/src/other.s b/extensions/Intuition-41.95/Intuition/src/other.s
new file mode 100644
index 0000000..ed39b23
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/other.s
@@ -0,0 +1,268 @@
+;Various other commands that don't fit anywhere else
+
+L_IFlush:		;I Flush
+	pstart
+	jtcall	FlushRetStr
+	ret
+
+L_Iwait:		;Iwait n
+	pstart
+	jtcall	GetCurInput
+	move.l	d0,a2
+	move.l	(a3)+,d2
+.lp	moveq	#0,d0
+	move.l	a2,a0
+	jtcall	DoEvent
+	gfxcall	WaitTOF
+	subq.l	#1,d2
+	bne	.lp
+	ret
+
+L_IwaitVbl:		;Iwait Vbl
+	move.l	#1,-(a3)
+	bra	L_Iwait
+
+L_Ierr:			;=Ierr
+	pstart
+	dmove.l	LastError,d3
+	moveq	#0,d2
+	ret
+
+L_IerrStr:		;=Ierr$
+	pstart
+	dmove.l	LastErrorStr,d0
+	beq	.noerr
+	dclr.b	TrapErrors
+	bmi	L_NoErrStr
+	move.l	d0,a0
+	lea	.rsc(pc),a1
+	jtcall	ReturnString
+	ret
+.noerr	dlea	NullStr,a0
+	move.l	a0,d3
+	moveq	#2,d2
+	ret
+.rsc	ds.b	rsc_sizeof
+
+L_Ierror:		;Ierror n
+	move.l	(a3)+,d0
+	bra	L_CustomError	;This is OK - errors.a is right after this
+
+L_ItrapOn:		;Itrap On
+	pstart
+	tmove.b	#-1,TrapErrors
+	dclr.b	ErrorTrapped
+	ret
+
+L_ItrapOff:		;Itrap Off
+	pstart
+	dclr.b	TrapErrors
+	ret
+
+L_Ierrtrap:		;=Ierrtrap
+	pstart
+	dmove.b	ErrorTrapped,d3
+	dclr.b	ErrorTrapped
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_RTHere:		;=Reqtools Here
+	pstart
+	dtst.l	ReqToolsBase
+	sne	d3
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_IgetIcon5:		;Iget Icon n,x1,y1 To x2,y2
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurIwin2
+	move.l	d0,a5
+	bsr	L_IgetIcon
+	move.l	(a7)+,a5
+	ret
+
+L_IgetIcon6:		;Iget Icon screen,n,x1,y1 To x2,y2
+	pstart
+	move.l	a5,-(a7)
+	move.l	20(a3),d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a5
+	bsr	L_IgetIcon
+	addq.l	#4,a3
+	move.l	(a7)+,a5
+	ret
+
+L_IgetIcon7:		;Iget Icon screen,window,x1,y1 To x2,y2
+	pstart
+	move.l	a5,-(a7)
+	move.l	24(a3),d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	20(a3),d0
+	jtcall	FindIwin2
+	beq	L_NoWin
+	move.l	d0,a5
+	bsr	L_IgetIcon
+	addq.l	#8,a3
+	move.l	(a7)+,a5
+	ret
+
+L_IgetIcon:		;Base routine for grabbing icons
+	pstart
+	moveq	#2,d0
+	jtcall	GetBankAdr
+	beq	.nobank
+	btst	#Bnk_BitIcon,d0
+	bne	.gotbnk
+.nobank
+;Create the bank
+	bra	L_NoIconBank
+.gotbnk	movem.l	(a3)+,d3-d7
+	cmp.l	#65535,d7
+	bhi	L_IllFunc
+	tst.w	d7
+	beq	L_IllFunc
+	cmp.l	#32767,d6
+	bgt	L_IllFunc
+	cmp.l	#-32768,d6
+	blt	L_IllFunc
+	cmp.l	#32767,d5
+	bgt	L_IllFunc
+	cmp.l	#-32768,d5
+	blt	L_IllFunc
+	cmp.l	#32767,d4
+	bgt	L_IllFunc
+	cmp.l	#-32768,d4
+	blt	L_IllFunc
+	cmp.l	#32767,d3
+	bgt	L_IllFunc
+	cmp.l	#-32768,d3
+	blt	L_IllFunc
+	move.l	wd_WScreen(a5),a0
+	cmp.w	sc_Width(a0),d6
+	bge	L_IllFunc
+	cmp.w	sc_Height(a0),d5
+	bge	L_IllFunc
+	tst.w	d4
+	blt	L_IllFunc
+	tst.w	d3
+	blt	L_IllFunc
+	cmp.w	d3,d5
+	bcs	L_MixedCoords
+	cmp.w	d4,d6
+	bcs	L_MixedCoords
+	tst.w	d6			;Coordinates are OK, do clipping
+	bge	.x1ok
+	moveq	#0,d6
+.x1ok	tst.w	d5
+	bge	.y1ok
+	mvoeq	#0,d5
+.y1ok	cmp.w	sc_Width(a0),d4
+	blt	.x2ok
+	move.w	sc_Width(a0),d4
+	subq.w	#1,d4
+.x2ok	cmp.w	sc_Height(a0),d3
+	blt	.y2ok
+	move.w	sc_Height(a0),d3
+	subq.w	#1,d3
+.y2ok	cmp.w	(a0),d7
+	bls	.goticn
+;Create new icon(s)
+	bra	L_NoIcon
+
+.goticn	move.l	a0,a2
+	lsl.l	#3,d7
+	move.l	-6(a2,d7.l),d2		;Erase any old image
+	beq	.grab
+	tst.l	-2(a2,d7.l)		;along with its mask
+	ble	.nomask
+	move.l	-2(a2,d7.l),a1
+	move.l	(a1),d0
+	syscall	FreeMem
+	clr.l	-2(a2,d7.l)
+.nomask	move.l	d2,a1
+	move.w	(a1),d0
+	mulu.w	2(a1),d0
+	lsl.w	#1,d0
+	move.w	4(a1),d1
+	jtcall	LongMul
+	add.l	#10,d0
+	syscall	FreeMem
+
+.grab	lea	icontemp(pc),a1		;Allocate w*h*d+10 bytes for icon
+	move.w	d4,d2			;Width (in words) = ((x2-x1+1)+15)/16
+	sub.w	d6,d2			;                 = (x2-x1+16)/16
+	lsr.w	#4,d2			;                 = (x2-x1)/16 + 1
+	addq.w	#1,d2
+	move.w	d2,(a1)
+	move.w	d3,d2
+	sub.w	d5,d2
+	addq.w	#1,d2
+	move.w	d2,2(a1)
+	move.l	wd_WScreen(a5),a0
+	moveq	#0,d2
+	move.b	sc_Depth(a0),d2
+	move.w	d2,4(a1)
+	move.w	(a1),d0
+	mulu	2(a1),d0
+	lsl.l	#1,d0
+	move.w	d2,d1
+	jtcall	LongMul
+	moveq	#MEMF_CHIP|MEMF_PUBLIC,d1
+	jtcall	AllocMemClear
+	tst.l	d0
+	bne	.gotmem
+	clr.l	-6(a2,d7.l)
+	clr.l	-2(a2,d7.l)
+	bra	L_NoMem
+.gotmem	move.l	d0,a0
+	lea	icontemp(pc),a1
+	move.l	(a1)+,(a0)
+	move.w	(a1),4(a0)
+	dlea	TempBitMap,a1
+	move.b	5(a0),bm_Depth(a1)
+	move.w	(a0),d0
+	lsl.w	#1,d0
+	move.w	d0,bm_BytesPerRow(a1)
+	move.w	2(a0),bm_Rows(a1)
+	mulu	2(a0),d0
+	move.l	a2,-(a7)		;Determine bitplane addresses for icon
+	lea	10(a0),a2
+	lea	bm_Planes(a1),a6
+	move.w	4(a0),d1
+	subq.w	#1,d1
+.bploop	move.l	a2,(a6)+
+	add.l	d0,a2
+	dbra	d1,.bploop
+	move.l	(a7)+,a2
+	sub.w	d6,d4			;Store width for BltBitMap()
+	addq.w	#1,d4
+	movem.l	d7/a0,-(a7)		;Save icon pointer and bank offset
+	moveq	#0,d0			;Calculate X/Y for source
+	move.b	wd_BorderLeft(a5),d0
+	add.w	wd_LeftEdge(a5),d0
+	add.w	d6,d0
+	moveq	#0,d1
+	move.b	wd_BorderTop(a5),d1
+	add.w	wd_TopEdge(a5),d1
+	add.w	d5,d1
+	move.l	wd_WScreen(a5),a0	;Get source BitMap
+	lea	sc_BitMap(a0),a0
+	moveq	#0,d2			;Destination X/Y = (0,0)
+	moveq	#0,d3
+	move.w	bm_Rows(a1),d5		;Icon height
+	move.b	#$C0,d6			;Minterms
+	moveq	#-1,d7			;Mask
+	sub.l	a2,a2
+	gfxcall	BltBitMap		;Copy the icon
+	movem.l	(a7)+,d7/a0		;Restore icon pointer and bank offset
+	move.l	a0,-6(a2,d7.l)		;Store icon pointer in bank
+	ret
+icontemp	ds.w 3
diff --git a/extensions/Intuition-41.95/Intuition/src/output.s b/extensions/Intuition-41.95/Intuition/src/output.s
new file mode 100644
index 0000000..c5a7d9c
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/output.s
@@ -0,0 +1,580 @@
+;Output routines
+
+;;;;;;;; Location
+
+L_Ilocate:			;Ilocate x,y   [text positioning]
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_Font(a0),a1
+	move.l	rp_BitMap(a0),a2
+	move.l	(a3)+,d1
+	cmp.l	#Null,d1
+	beq	.no_y
+	swap	d1
+	tst.w	d1
+	bne	L_IllFunc
+	swap	d1
+	moveq	#0,d2
+	move.w	bm_Rows(a2),d2
+	divu	tf_YSize(a1),d2
+	cmp.w	d2,d1
+	bcc	L_IllFunc
+	mulu	tf_YSize(a1),d1
+	add.w	tf_Baseline(a1),d1
+.no_y	move.l	(a3)+,d0
+	cmp.l	#Null,d0
+	beq	.no_x
+	swap	d0
+	tst.w	d0
+	bne	L_IllFunc
+	swap	d0
+	moveq	#0,d2
+	move.w	bm_BytesPerRow(a2),d2
+	lsl.w	#3,d2
+	divu	tf_XSize(a1),d2
+	cmp.w	d2,d0
+	bcc	L_IllFunc
+	mulu	tf_XSize(a1),d0
+.no_x	jtcall	SetCoords
+	ret
+
+L_IlocateGr:			;Ilocate Gr x,y   [graphics positioning]
+				;This function is called all over the place to
+				;  set coordinates for drawing operations, so
+				;  we need to preserve all registers (except
+				;  A3, which we pop arguments off of).
+	pstart
+	movem.l	d0-d2/a0-a1,-(a7)
+	jtcall	GetCurRP
+	move.l	d0,a0
+	move.l	rp_BitMap(a0),a1
+	move.l	(a3)+,d0
+      ifd SAFE_GRPOS
+	cmp.l	#Null,d0
+	beq	.no_y
+	swap	d0
+	tst.w	d0
+	bne	L_IllFunc
+	swap	d0
+	cmp.w	bm_Rows(a1),d0
+	bcc	L_IllFunc
+      endc
+.no_y	move.l	d0,-(a7)
+	move.l	(a3)+,d0
+      ifd SAFE_GRPOS
+	cmp.l	#Null,d0
+	beq	.no_x
+	swap	d0
+	tst.w	d0
+	bne	L_IllFunc
+	swap	d0
+	move.w	bm_BytesPerRow(a1),d1
+	lsl.w	#3,d1
+	cmp.w	d1,d0
+	bcc	L_IllFunc
+      endc
+.no_x	move.l	(a7)+,d1
+	jtcall	SetCoords
+	movem.l	(a7)+,d0-d2/a0-a1
+	ret
+
+L_Ixgr:				;=Ixgr
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	rp_cp_x(a0),d3
+	moveq	#0,d2
+	ret
+
+L_Iygr:				;=Iygr
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	rp_cp_y(a0),d3
+	moveq	#0,d2
+	ret
+
+
+;;;;;;;; Text
+
+L_IgrWriting:		;Igr Writing n
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d0
+	gfxcall	SetDrMd
+	ret
+
+L_Itext:		;Itext [x],[y],s$
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,a0	;string adr
+	move.w	(a0)+,d0	;string len
+	bsr	L_IlocateGr	;set position
+	gfxcall	Text
+	ret
+
+L_Icentre:		;Icentre s$
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a2
+	move.l	wd_RPort(a2),a1
+	move.l	(a3),a0		;string adr (save on A3 for now)
+	move.w	(a0),d0		;string len
+	gfxcall	TextLength	;Calculate X position and set CP
+	move.w	d0,d1
+	move.w	wd_Width(a2),d0
+	sub.w	d1,d0
+	lsr.w	#1,d0
+	move.l	a2,a0
+	move.l	#Null,d1
+	jtcall	SetCoords
+	move.l	wd_RPort(a2),a1	;Now write string
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	gfxcall	Text
+	ret
+
+L_Iwrite:		;Iwrite s$
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	jtcall	GetWinFlags
+	btst	#WEB_UNSET,d0
+	beq	.set
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	rp_TxBaseline(a2),d1
+	jtcall	SetCoords
+.set	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	move.l	a2,a1
+	gfxcall	Text
+	jtcall	GetCurWin
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	wd_Height(a1),d0
+	moveq	#0,d2
+	move.b	wd_BorderTop(a1),d2
+	sub.w	d2,d0
+	move.b	wd_BorderBottom(a1),d2
+	sub.w	d2,d0
+	divu	rp_TxHeight(a2),d0
+	moveq	#0,d1
+	move.w	rp_cp_y(a2),d1
+	move.b	wd_BorderTop(a1),d2
+	sub.w	d2,d1
+	divu	rp_TxHeight(a2),d1
+	addq.w	#1,d1
+	cmp.w	d0,d1
+	bcs	.noscrl
+	moveq	#0,d2
+	move.b	wd_BorderLeft(a1),d2
+	moveq	#0,d3
+	move.b	wd_BorderTop(a1),d3
+	moveq	#0,d0
+	move.w	wd_Width(a1),d4
+	move.b	wd_BorderRight(a1),d0
+	sub.w	d0,d4
+	subq.w	#1,d4
+	move.w	wd_Height(a1),d5
+	move.b	wd_BorderBottom(a1),d0
+	sub.w	d0,d5
+	subq.w	#1,d5
+	moveq	#0,d0
+	move.w	rp_TxHeight(a2),d1
+	move.l	a2,a1
+	call	ScrollRaster
+	bra	.setx
+.noscrl	move.w	rp_TxHeight(a2),d1
+	moveq	#0,d0
+	jtcall	SetCoordsRel
+.setx	moveq	#0,d0
+	move.l	#Null,d1
+	jtcall	SetCoords
+.exit	ret
+
+L_Iwrite0:		;Iwrite
+	pstart
+	dlea	NullStr,a0
+	move.l	a0,-(a3)
+	bsr	L_Iwrite
+	ret
+
+
+;;;;;;;; Graphics
+
+L_Icls:			;Icls
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_RPort(a0),a1
+	moveq	#0,d0
+	gfxcall	SetRast
+	ret
+
+L_IclsCol:		;Icls colour
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_RPort(a0),a1
+	move.l	(a3)+,d0
+	gfxcall	SetRast
+	ret
+
+L_IclsXY:		;Icls colour,x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_BaseWin(a1),a0
+	move.l	wd_RPort(a0),a2
+	move.b	rp_FgPen(a0),d7
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d6
+	cmp.l	d4,d2
+	blt	L_MixedCoords
+	cmp.l	d5,d3
+	blt	L_MixedCoords
+      ifd SAFE_GRPOS
+	tst.l	d4
+	bmi	L_IllFunc
+	tst.l	d5
+	bmi	L_IllFunc
+	moveq	#0,d0
+	move.w	se_Width(a1),d0
+	cmp.l	d0,d2
+	bge	L_IllFunc
+	move.w	se_Height(a1),d0
+	cmp.l	d0,d3
+	bge	L_IllFunc
+      endc
+	move.b	d6,d0
+	move.l	a2,a1
+	gfxcall	SetAPen
+	move.l	d4,d0
+	move.l	d5,d1
+	move.l	a2,a1
+	call	RectFill
+	move.b	d7,d0
+	move.l	a2,a1
+	call	SetAPen
+	ret
+
+L_Iclw:			;Iclw
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.b	rp_FgPen(a2),d7
+	move.l	a2,a1
+	moveq	#0,d0
+	gfxcall	SetAPen
+	jtcall	GetCurWin
+	move.l	d0,a1
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	moveq	#0,d1
+	move.b	wd_BorderTop(a1),d1
+	moveq	#0,d4
+	move.w	wd_Width(a0),d2
+	move.b	wd_BorderRight(a0),d4
+	sub.w	d4,d2
+	subq.w	#1,d2
+	move.w	wd_Height(a0),d3
+	move.b	wd_BorderBottom(a0),d4
+	sub.w	d4,d3
+	subq.w	#1,d3
+	move.l	a2,a1
+	gfxcall	RectFill
+	move.l	a2,a1
+	move.b	d7,d0
+	gfxcall	SetAPen
+	ret
+
+L_IclwCol:		;Iclw colour
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.b	rp_FgPen(a2),d7
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetAPen
+	jtcall	GetCurWin
+	move.l	d0,a1
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	moveq	#0,d1
+	move.b	wd_BorderTop(a1),d1
+	move.w	wd_Width(a0),d2
+	moveq	#0,d4
+	move.b	wd_BorderRight(a0),d4
+	sub.w	d4,d2
+	subq.w	#1,d2
+	move.w	wd_Height(a0),d3
+	move.b	wd_BorderBottom(a0),d4
+	sub.w	d4,d3
+	subq.w	#1,d3
+	move.l	a2,a1
+	gfxcall	RectFill
+	move.l	a2,a1
+	move.b	d7,d0
+	gfxcall	SetAPen
+	ret
+
+L_IclwXY:		;Iclw colour,x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a1
+	move.l	wd_RPort(a1),a2
+	move.b	rp_FgPen(a2),d7
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d6
+	cmp.l	d4,d2
+	blt	L_MixedCoords
+	cmp.l	d5,d3
+	blt	L_MixedCoords
+      ifd SAFE_GRPOS
+	tst.l	d4
+	bmi	L_IllFunc
+	tst.l	d5
+	bmi	L_IllFunc
+	moveq	#0,d1
+	moveq	#0,d0
+	move.w	wd_Width(a5),d0
+	move.b	wd_LeftBorder(a5),d1
+	sub.w	d1,d0
+	move.b	wd_RightBorder(a5),d1
+	sub.w	d1,d0
+	cmp.l	d0,d2
+	bge	L_IllFunc
+	move.w	wd_Height(a5),d0
+	move.b	wd_TopBorder(a5),d1
+	sub.w	d1,d0
+	move.b	wd_BottomBorder(a5),d1
+	sub.w	d1,d0
+	cmp.l	d0,d3
+	bge	L_IllFunc
+      endc
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a1),d0
+	add.w	d0,d2
+	add.w	d0,d4
+	move.b	wd_BorderTop(a1),d0
+	add.w	d0,d3
+	add.w	d0,d5
+	move.b	d6,d0
+	move.l	a2,a1
+	gfxcall	SetAPen
+	move.l	d4,d0
+	move.l	d5,d1
+	move.l	a2,a1
+	call	RectFill
+	move.b	d7,d0
+	move.l	a2,a1
+	call	SetAPen
+	ret
+
+L_SetInk:		;Iink fg,bg,ol
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	(a3)+,d0
+	move.b	d0,rp_AOLPen(a2)
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetBPen
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	call	SetAPen
+	ret
+
+L_SetInk2:		;Iink fg,bg
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetBPen
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	call	SetAPen
+	ret
+
+L_SetInk1:		;Iink fg
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d0
+	gfxcall	SetAPen
+	ret
+
+L_IplotInk:		;Iplot x,y,c
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	a2,a1
+	move.l	(a3)+,d0
+	gfxcall	SetAPen
+	move.l	(a3),d1
+	move.l	4(a3),d0
+	move.l	a2,a1
+	bsr	L_IlocateGr
+	jtcall	WritePixel
+	ret
+
+L_Iplot:		;Iplot x,y
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3),d1
+	move.l	4(a3),d0
+	bsr	L_IlocateGr
+	jtcall	WritePixel
+	ret
+
+L_Idraw:		;Idraw x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	bsr	L_IlocateGr
+	gfxcall	Draw
+	ret
+
+L_IdrawTo:		;Idraw To x,y
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	move.w	d2,rp_cp_x(a1)
+	move.w	d3,rp_cp_y(a1)
+	gfxcall	Draw
+	ret
+
+L_Ibox:			;Ibox x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d4
+	move.w	rp_cp_y(a1),d5
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	move.w	d4,d0
+	move.w	d3,d1
+	move.l	a2,a1
+	gfxcall	Draw
+	move.w	d4,d0
+	move.w	d5,d1
+	move.l	a2,a1
+	call	Draw
+	move.w	d2,d0
+	move.w	d5,d1
+	move.l	a2,a1
+	call	Draw
+	move.w	d2,d0
+	move.w	d3,d1
+	move.l	a2,a1
+	call	Draw
+	ret
+
+L_Ibar:			;Ibar x1,y1 To x2,y2
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	gfxcall	RectFill
+	ret
+
+L_Iellipse:		;Iellipse cx,cy,rx,ry
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	bsr	L_IlocateGr
+	move.w	rp_cp_x(a1),d0
+	move.w	rp_cp_y(a1),d1
+	gfxcall	DrawEllipse
+	ret
+
+L_Icircle:		;Icircle cx,cy,r
+	move.l	(a3),d0
+	move.l	d0,-(a3)
+	bra	L_Iellipse
+
+L_IpasteIcon:		;Ipaste Icon x,y,n
+	pstart
+	move.l	a5,-(a7)
+	jtcall	GetCurRP
+	move.l	d0,a2
+	move.l	(a3)+,d0
+	jtcall	FindIcon
+	beq	L_NoIcon
+	bsr	L_IlocateGr
+	move.l	a0,d0			;If icon is empty, just quit
+	beq	.exit
+	exg	a1,a2
+	move.l	a0,a5
+	lea	.tempbm(pc),a0		;Set up a temporary bitmap
+	move.w	(a5)+,d0
+	lsl.w	#1,d0
+	move.w	d0,bm_BytesPerRow(a0)
+	move.w	(a5)+,bm_Rows(a0)
+	move.w	(a5)+,d2
+	move.b	d2,bm_Depth(a0)
+	addq.l	#4,a5			;A5 now points to image data
+	mulu	bm_Rows(a0),d0
+	lea	bm_Planes(a0),a0
+	subq.w	#1,d2
+.bplp	move.l	a5,(a0)+
+	add.l	d0,a5
+	dbra	d2,.bplp
+	lea	.tempbm(pc),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	rp_cp_x(a1),d2
+	move.w	rp_cp_y(a1),d3
+	move.w	.tempbm+bm_BytesPerRow(pc),d4
+	lsl.w	#3,d4
+	move.w	.tempbm+bm_Rows(pc),d5
+	move.l	a2,d7
+	bne	.mask
+	move.b	#$C0,d6
+	gfxcall	BltBitMapRastPort
+	bra	.finish
+.mask	addq.l	#4,a2
+	move.b	#$E0,d6
+	gfxcall	BltMaskBitMapRastPort	
+.finish	gfxcall	WaitBlit
+.exit	move.l	(a7)+,a5
+	ret
+.tempbm	ds.b	bm_sizeof
+
+;	include "flood.s"	;Iflood - a BIG set of routines
diff --git a/extensions/Intuition-41.95/Intuition/src/request.s b/extensions/Intuition-41.95/Intuition/src/request.s
new file mode 100644
index 0000000..259c5cb
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/request.s
@@ -0,0 +1,722 @@
+;Requester routines
+
+L_IrequestFile:		;=Irequest File$(title$,pat$,def$)
+	pstart
+	move.l	(a3)+,d7
+	move.l	(a3)+,a2
+	move.l	a2,d0
+	beq	.nopat
+	tst.w	(a2)
+	beq	.nopat
+	moveq	#0,d0
+	move.w	(a2)+,d0
+	add.l	d0,a2
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a0
+	add.l	d2,a0
+	clr.b	(a0)
+	sub.l	a1,a1
+	subq.l	#1,d2
+.lp	move.b	-(a2),d0
+	move.b	d0,-(a0)
+	cmp.b	#':',d0
+	beq	.gotp
+	cmp.b	#'/',d0
+	bne	.endlp
+.gotp	move.l	a1,d0
+	beq	.endlp
+	move.l	a0,a1
+.endlp	dbra	d2,.lp
+	move.l	a0,a2
+	move.l	a1,d0
+	beq	.nopath
+	clr.b	(a1)+
+	move.l	#TAG_END,-(a7)
+	move.l	a1,-(a7)
+	move.l	#RTFI_MatchPat,-(a7)
+	move.l	a0,-(a7)
+	move.l	#RTFI_Dir,-(a7)
+	move.l	a7,a0
+	dmove.l	FileReq,a1
+	rtcall	rtChangeReqAttrA
+	lea	20(a7),a7
+	bra	.gotpth
+.nopath	move.l	#TAG_END,-(a7)
+	move.l	a0,-(a7)
+	move.l	#RTFI_MatchPat,-(a7)
+	move.l	a7,a0
+	dmove.l	FileReq,a1
+	rtcall	rtChangeReqAttrA
+	lea	12(a7),a7
+.gotpth	move.l	a2,a0
+	jtcall	StrFree
+.nopat	move.l	(a3)+,a2
+	move.l	a3,-(a7)
+	move.l	a2,d0
+	beq	.nottl0
+	tst.w	(a2)
+	bne	.havttl
+.nottl0	sub.l	a3,a3
+	bra	.dodef
+.havttl	moveq	#0,d0
+	move.w	(a2)+,d0
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a3
+	move.l	a3,a1
+	move.l	a2,a0
+	move.l	d2,d0
+	syscall	CopyMem
+	clr.b	0(a3,d2.l)
+.dodef	dlea	Filename108,a2
+	moveq	#0,d2
+	tst.l	d7
+	beq	.nodef
+	move.l	a2,a1
+	move.l	d7,a0
+	move.w	(a0)+,d2
+	move.l	d2,d0
+	syscall	CopyMem
+.nodef	clr.b	0(a2,d2.l)
+.doreq	lea	.tags(pc),a0
+	dmove.l	CurIwindow,d0
+	bne	.setwin
+	dmove.l	CurIscreen,d0
+	bne	.setscr
+	addq.l	#8,a0
+	bra	.setreq
+.setscr	move.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_BaseWin(a1),d0
+.setwin	move.l	d0,4(a0)
+.setreq	dmove.l	FileReq,a1
+	rtcall	rtFileRequestA
+	move.l	d0,-(a7)
+	move.l	a3,a0
+	jtcall	StrFree
+.nottl	move.l	(a7)+,d0
+	beq	.cancel
+	dtst.b	Filename108
+	bne	.gotfil
+.cancel	dlea	NullStr,a0
+	move.l	a0,d3
+	bra	.exit
+.gotfil	dmove.l	FileReq,a1
+	moveq	#-1,d0
+	move.l	rtfi_Dir(a1),a1
+	tst.b	(a1)
+	bne	.yesdir
+	clr.l	-(a7)
+	bra	.nodir
+.yesdir	move.l	a1,a0
+.lp2	addq.w	#1,d0
+	tst.b	(a0)+
+	bne	.lp2
+	move.l	a1,-(a7)
+	subq.w	#1,d0
+.nodir	dlea	Filename108,a0
+	move.l	a0,a2
+.lp3	addq.w	#1,d0
+	tst.b	(a0)+
+	bne	.lp3
+	move.w	d0,d2
+	addq.l	#4,d0
+	lea	.rsc(pc),a1
+	jtcall	GetRetStr
+	move.l	(a7),a1
+	move.l	a0,(a7)
+	move.w	d2,(a0)+
+	move.l	a1,d0
+	beq	.putfil
+.lp4	move.b	(a1)+,(a0)+
+	bne	.lp4
+	subq.l	#1,a0
+	cmp.b	#':',-1(a0)
+	beq	.putfil
+	cmp.b	#'/',-1(a0)
+	beq	.putfil
+	move.b	#'/',(a0)+
+	move.l	(a7),a1
+	addq.w	#1,(a1)
+.putfil	move.b	(a2)+,(a0)+
+	bne	.putfil
+	move.l	(a7)+,d3
+.exit	moveq	#2,d2
+	move.l	(a7)+,a3
+	ret
+.tags	dc.l	RT_Window,0
+	dc.l	RTFI_Flags,FREQF_PATGAD
+	dc.l	TAG_END
+.rsc	ds.b	rsc_sizeof
+
+L_IrequestFile2:	;=Irequest File$(title$,pat$)
+	clr.l	-(a3)
+	bra	L_IrequestFile
+
+L_IrequestFile1:	;=Irequest File$(title$)
+	clr.l	-(a3)
+	bra	L_IrequestFile2
+
+L_IrequestFile0:	;=Irequest File$
+	clr.l	-(a3)
+	bra	L_IrequestFile1
+
+L_IreqFileMulti:	;=Irequest File Multi$(title$,pat$)
+	pstart
+	dmove.l	FRFileList0,a0
+	rtcall	rtFreeFileList
+	move.l	(a3)+,a2
+	move.l	a2,d0
+	beq	.nopat
+	tst.w	(a2)
+	beq	.nopat
+	moveq	#0,d0
+	move.w	(a2)+,d0
+	add.l	d0,a2
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a0
+	add.l	d2,a0
+	clr.b	(a0)
+	sub.l	a1,a1
+	subq.l	#1,d2
+.lp	move.b	-(a2),d0
+	move.b	d0,-(a0)
+	cmp.b	#':',d0
+	beq	.gotp
+	cmp.b	#'/',d0
+	bne	.endlp
+.gotp	move.l	a1,d0
+	beq	.endlp
+	move.l	a0,a1
+.endlp	dbra	d2,.lp
+	move.l	a0,a2
+	move.l	a1,d0
+	beq	.nopath
+	clr.b	(a1)+
+	move.l	#TAG_END,-(a7)
+	move.l	a1,-(a7)
+	move.l	#RTFI_MatchPat,-(a7)
+	move.l	a0,-(a7)
+	move.l	#RTFI_Dir,-(a7)
+	move.l	a7,a0
+	dmove.l	FileReq,a1
+	rtcall	rtChangeReqAttrA
+	lea	20(a7),a7
+	bra	.gotpth
+.nopath	move.l	#TAG_END,-(a7)
+	move.l	a0,-(a7)
+	move.l	#RTFI_MatchPat,-(a7)
+	move.l	a7,a0
+	dmove.l	FileReq,a1
+	rtcall	rtChangeReqAttrA
+	lea	12(a7),a7
+.gotpth	move.l	a2,a0
+	jtcall	StrFree
+.nopat	move.l	(a3)+,a2
+	move.l	a3,-(a7)
+	move.l	a2,d0
+	beq	.doreq
+	tst.w	(a2)
+	bne	.havttl
+.nottl0	sub.l	a3,a3
+	bra	.doreq
+.havttl	moveq	#0,d0
+	move.w	(a2)+,d0
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a3
+	move.l	a3,a1
+	move.l	a2,a0
+	move.l	d2,d0
+	syscall	CopyMem
+	clr.b	0(a3,d2.l)
+.doreq	dlea	Filename108,a2
+	lea	.tags(pc),a0
+	dmove.l	CurIwindow,d0
+	bne	.setwin
+	dmove.l	CurIscreen,d0
+	bne	.setscr
+	addq.l	#8,a0
+	bra	.setreq
+.setscr	move.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_BaseWin(a1),d0
+.setwin	move.l	d0,4(a0)
+.setreq	dmove.l	FileReq,a1
+	rtcall	rtFileRequestA
+	move.l	d0,-(a7)
+	move.l	a3,a0
+	jtcall	StrFree
+	move.l	(a7)+,d0
+	beq	.cancel
+	move.l	d0,a2
+	tmove.l	a2,FRFileList0
+	tmove.l	rtfl_Next(a2),FRFileList
+	bra	.gotfil
+.cancel	dlea	NullStr,a0
+	move.l	a0,d3
+	dclr.l	FRFileList0
+	dclr.l	FRFileList
+	bra	.exit
+.gotfil	dmove.l	FileReq,a1
+	move.l	rtfi_Dir(a1),a1
+	tst.b	(a1)
+	bne	.yesdir
+	dclr.l	FRDir
+	moveq	#0,d0
+	bra	.nodir
+.yesdir	moveq	#-1,d0
+	tmove.l	a1,FRDir
+	move.l	a1,a0
+.lp2	addq.l	#1,d0
+	tst.b	(a0)+
+	bne	.lp2
+	tmove.l	d0,FRDirLen
+.nodir	move.l	rtfl_StrLen(a2),d5
+	add.l	d5,d0
+	move.l	rtfl_Name(a2),a2
+	move.l	d0,d2
+	addq.l	#3,d0
+	lea	.rsc(pc),a1
+	jtcall	GetRetStr
+	move.l	a0,-(a7)
+	move.w	d2,(a0)+
+	dmove.l	FRDir,d0
+	beq	.putfil
+	move.l	a0,-(a7)
+	move.l	a0,a1
+	move.l	d0,a0
+	dmove.l	FRDirLen,d0
+	syscall	CopyMem
+	move.l	(a7)+,a0
+	dmove.l	FRDirLen,d0
+	add.l	d0,a0
+	cmp.b	#':',-1(a0)
+	beq	.putfil
+	cmp.b	#'/',-1(a0)
+	beq	.putfil
+	move.b	#'/',(a0)+
+	move.l	(a7),a1
+	addq.w	#1,(a1)
+.putfil	move.l	d5,d0
+	move.l	a0,a1
+	move.l	a2,a0
+	syscall	CopyMem
+	move.l	(a7)+,d3
+.exit	moveq	#2,d2
+	move.l	(a7)+,a3
+	ret
+.tags	dc.l	RT_Window,0
+	dc.l	RTFI_Flags,FREQF_PATGAD|FREQF_MULTISELECT
+	dc.l	TAG_END
+.rsc	ds.b	rsc_sizeof
+
+L_IreqFileMulti1:	;=Irequest File Multi$(title$)
+	clr.l	-(a3)
+	bra	L_IreqFileMulti
+
+L_IreqFileMulti0:	;=Irequest File Multi$
+	clr.l	-(a3)
+	bra	L_IreqFileMulti1
+
+L_IreqFileNext:		;=Irequest File Next$
+	pstart
+	dmove.l	FRFileList,d0
+	bne	.gotfl
+	dlea	NullStr,a0
+	move.l	a0,d3
+	bra	.exit
+.gotfl	move.l	d0,a2
+	tmove.l	rtfl_Next(a2),FRFileList
+	move.l	rtfl_StrLen(a2),d2
+	move.l	d2,d4
+	dmove.l	FRDir,d6
+	beq	.nodir
+	subq.w	#1,d2
+	move.l	d6,a0
+	move.l	FRDirLen,d5
+	add.l	d5,d2
+.nodir	move.l	d2,d0
+	addq.l	#3,d0
+	lea	.rsc(pc),a1
+	jtcall	GetRetStr
+	move.l	a1,d7
+	move.w	d2,(a1)+
+	move.l	4,a6
+	move.l	d6,d0
+	beq	.nodir2
+	move.l	d6,a0
+	move.l	d5,d0
+	call	CopyMem
+	move.l	d7,a1
+	addq.l	#2,a1
+	add.l	d5,a1
+	cmp.b	#'/',-1(a1)
+	beq	.nodir2
+	cmp.b	#':',-1(a1)
+	beq	.nodir2
+	move.b	#'/',(a1)+
+	move.l	d7,a0
+	addq.w	#1,(a0)
+.nodir2	move.l	rtfl_Name(a2),a0
+	move.l	d4,d0
+	call	CopyMem
+	move.l	d7,d3
+.exit	moveq	#2,d2
+	ret
+.rsc	ds.b	rsc_sizeof
+
+L_IrequestFont:		;=Irequest Font$(title)
+	pstart
+	move.l	(a3)+,a2
+	move.l	a3,-(a7)
+	move.l	a2,d0
+	beq	.nottl0
+	tst.w	(a2)
+	bne	.havttl
+.nottl0	sub.l	a3,a3
+	bra	.doreq
+.havttl	moveq	#0,d0
+	move.w	(a2)+,d0
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a3
+	move.l	a3,a1
+	move.l	a2,a0
+	move.l	d2,d0
+	syscall	CopyMem
+	clr.b	0(a3,d2.l)
+.doreq	lea	.tags(pc),a0
+	dmove.l	CurIwindow,d0
+	bne	.setwin
+	dmove.l	CurIscreen,d0
+	bne	.setscr
+	addq.l	#8,a0
+	bra	.setreq
+.setscr	move.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_BaseWin(a1),d0
+.setwin	move.l	d0,4(a0)
+.setreq	dmove.l	FontReq,a1
+	rtcall	rtFontRequestA
+	move.l	d0,-(a7)
+	move.l	a3,d0
+	beq	.nottl
+	move.l	a3,a0
+	jtcall	StrFree
+.nottl	move.l	(a7)+,d0
+	tst.l	d0
+	bne	.gotfnt
+	dlea	NullStr,a0
+	move.l	a0,d3
+	bra	.exit
+.gotfnt	dmove.l	FontReq,a1
+	move.l	rtfo_Attr+ta_Name(a1),a0
+	move.w	rtfo_Attr+ta_YSize(a1),d5
+	move.l	a0,a2
+	moveq	#-1,d0
+.lp3	addq.w	#1,d0
+	tst.b	(a0)+
+	bne	.lp3
+	move.w	d0,d2
+	addq.w	#8,d0
+	lea	.rsc(pc),a1
+	jtcall	GetRetStr
+	move.w	d2,(a0)+
+.putnam	move.b	(a2)+,(a0)+
+	bne	.putnam
+	move.b	#'/',-1(a0)
+	addq.w	#1,(a1)
+	moveq	#0,d0
+	move.w	d5,d0
+	moveq	#-1,d1
+.sizelp	addq.w	#1,d1
+	divu	#10,d0
+	swap	d0
+	clr.w	d0
+	swap	d0
+	tst.l	d0
+	bne	.sizelp
+	move.w	d1,d2
+	addq.w	#1,d2
+	moveq	#0,d0
+	move.w	d5,d0
+.numlp	divu	#10,d0
+	swap	d0
+	add.b	#'0',d0
+	move.b	d0,0(a0,d1.w)
+	clr.w	d0
+	swap	d0
+	addq.w	#1,(a1)
+	dbra	d1,.numlp
+	move.l	a1,d3
+.exit	moveq	#2,d2
+	move.l	(a7)+,a3
+	ret
+.tags	dc.l	RT_Window,0
+	dc.l	RTFO_Flags,FREQF_SCALE
+	dc.l	TAG_END
+.rsc	ds.b	rsc_sizeof
+
+L_IrequestFont0:	;=Irequest Font$
+	clr.l	-(a3)
+	bra	L_IrequestFont
+
+L_IrequestScreen:	;=Irequest Screen(title$)
+	pstart
+	dtst.b	WB20
+	beq	L_NeedKick20
+	move.l	(a3)+,a2
+	move.l	a3,-(a7)
+	move.l	a2,d0
+	beq	.nottl0
+	tst.w	(a2)
+	bne	.havttl
+.nottl0	sub.l	a3,a3
+	bra	.doreq
+.havttl	moveq	#0,d0
+	move.w	(a2)+,d0
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a3
+	move.l	a3,a1
+	move.l	a2,a0
+	move.l	d2,d0
+	syscall	CopyMem
+	clr.b	0(a3,d2.l)
+.doreq	lea	.tags(pc),a0
+	dmove.l	CurIwindow,d0
+	bne	.setwin
+	dmove.l	CurIscreen,d0
+	bne	.setscr
+	addq.l	#8,a0
+	bra	.setreq
+.setscr	move.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_BaseWin(a1),d0
+.setwin	move.l	d0,4(a0)
+.setreq	dmove.l	ScreenModeReq,a1
+	rtcall	rtScreenModeRequestA
+	move.l	d0,-(a7)
+	move.l	a3,d0
+	beq	.nottl
+	move.l	a3,a0
+	jtcall	StrFree
+.nottl	move.l	(a7)+,d0
+	tst.l	d0
+	bne	.ok
+	moveq	#0,d3
+	bra	.exit
+.ok	moveq	#-1,d3
+	dmove.l	ScreenModeReq,a0
+	dlea	ScreenData,a1
+	move.w	rtsc_DisplayWidth(a0),sd_Width(a1)
+	move.w	rtsc_DisplayHeight(a0),sd_Height(a1)
+	move.l	rtsc_DisplayID(a0),d0
+	move.l	d0,sd_DisplayID(a1)
+	and.w	#MODES,d0
+	move.w	d0,sd_ViewModes(a1)
+	move.w	rtsc_DisplayDepth(a0),d1
+	and.w	#HAM,d0
+	bne	.ham
+	moveq	#1,d0
+	lsl.l	d1,d0
+	move.l	d0,sd_NumCols(a1)
+	bra	.exit
+.ham	cmp.w	#6,d1
+	bne	.ham8
+	move.l	#4096,sd_NumCols(a1)
+	bra	.exit
+.ham8	move.l	#262144,sd_NumCols(a1)
+.exit	moveq	#0,d2
+	move.l	(a7)+,a3
+	ret
+.tags	dc.l RT_Window,0
+	dc.l RTSC_Flags,SCREQF_SIZEGADS|SCREQF_DEPTHGAD
+	dc.l TAG_END
+
+L_IrequestScreen0:	;=Irequest Screen
+	clr.l	-(a3)
+	bra	L_IrequestScreen
+
+L_IreqScrMode:		;=Irequest Screen Mode(n)
+	pstart
+	dlea	ScreenData,a0
+	moveq	#0,d2
+	move.l	(a3)+,d0
+	bne	.dispID
+	moveq	#0,d3
+	move.w	sd_ViewModes(a0),d3
+	ret
+.dispID	move.l	sd_DisplayID(a0),d3
+	ret
+
+L_IreqScrCols:		;=Irequest Screen Colour
+	pstart
+	dlea	ScreenData,a0
+	move.l	sd_NumCols(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IreqScrWidth:		;=Irequest Screen Width
+	pstart
+	dlea	ScreenData,a0
+	moveq	#0,d3
+	move.w	sd_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IreqScrHeight:	;=Irequest Screen Height
+	pstart
+	dlea	ScreenData,a0
+	moveq	#0,d3
+	move.w	sd_Height(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IrequestWarning:	;=Irequest Warning(title$,s$,ok$,cancel$)
+	pstart
+	move.l	(a3)+,a2
+	move.w	(a2)+,d3
+	beq	L_IllFunc
+	move.l	(a3)+,a1
+	move.w	(a1)+,d2
+	beq	L_IllFunc
+	move.l	a1,-(a7)
+	moveq	#0,d0
+	move.w	d2,d0
+	add.w	d3,d0
+	addq.w	#1,d0
+	jtcall	StrAlloc
+	move.l	(a7)+,a0
+	move.l	d0,d4
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	d2,d0
+	syscall	CopyMem
+	move.l	d4,a0
+	add.w	d2,a0
+	move.b	#'|',(a0)+
+	exg	a0,a2
+	move.l	a2,a1
+	moveq	#0,d0
+	move.w	d3,d0
+	call	CopyMem
+	clr.b	0(a2,d3.w)
+	move.l	d4,a2
+	move.l	(a3)+,a1
+	move.l	(a3)+,a0
+	move.l	#EZREQF_LAMIGAQUAL,d0
+	jtcall	EZRequest
+	subq.w	#2,d0
+	move.w	d0,d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_IrequestWarning3:	;=Irequest Warning(s$,ok$,cancel$)
+	subq.l	#4,a3
+	move.l	4(a3),(a3)
+	move.l	8(a3),4(a3)
+	move.l	12(a3),8(a3)
+	clr.l	12(a3)
+	bra	L_IrequestWarning
+
+L_IrequestWarning1:	;=Irequest Warning(s$)
+	lea	.ok(pc),a0
+	move.l	a0,-(a3)
+	lea	.cancel(pc),a0
+	move.l	a0,-(a3)
+	bra	L_IrequestWarning3
+.ok	dc.b 0,2,"Ok"
+.cancel	dc.b 0,6,"Cancel"
+	ds.w 0
+
+L_IrequestError:	;Irequest Error title$,s$,cancel$
+	pstart
+	move.l	(a3)+,a2
+	move.w	(a2)+,d2
+	beq	L_IllFunc
+	moveq	#0,d0
+	move.w	d2,d0
+	jtcall	StrAlloc
+	move.l	a2,a0
+	move.l	d0,a2
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	d2,d0
+	syscall	CopyMem
+	clr.b	0(a2,d2.w)
+	move.l	(a3)+,a1
+	move.l	(a3)+,a0
+	move.l	#EZREQF_LAMIGAQUAL,d0
+	jtcall	EZRequest
+	ret
+
+
+L_IrequestError2:	;Irequest Error s$,cancel$
+	subq.l	#4,a3
+	move.l	4(a3),(a3)
+	move.l	8(a3),4(a3)
+	clr.l	8(a3)
+	bra	L_IrequestError
+
+L_IrequestError1:	;Irequest Error s$
+	lea	.cancel(pc),a0
+	move.l	a0,-(a3)
+	bra	L_IrequestError2
+.cancel	dc.b 0,6,"Cancel"
+	ds.w 0
+
+L_IrequestMessage:	;=Irequest Message(title$,text$,gadget$)
+	pstart
+	move.l	(a3)+,a2
+	move.w	(a2)+,d2
+	beq	L_IllFunc
+	moveq	#0,d0
+	move.w	d2,d0
+	jtcall	StrAlloc
+	move.l	a2,a0
+	move.l	d0,a2
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	d2,d0
+	syscall	CopyMem
+	clr.b	0(a2,d2.w)
+	move.l	(a3)+,a1
+	move.l	(a3)+,a0
+	moveq	#0,d0
+	jtcall	EZRequest
+	move.l	d0,d3
+	moveq	#0,d2
+	ret
+
+
+L_IrequestMessage2:	;=Irequest Message(text$,gadget$)
+	move.l	(a3)+,d0
+	move.l	(a3),d1
+	clr.l	(a3)
+	move.l	d1,-(a3)
+	move.l	d0,-(a3)
+	bra	L_IrequestMessage
+
+L_IreqSetDefTitle:	;Irequest Def Title title$
+	pstart
+	move.l	(a3)+,a2
+	moveq	#0,d0
+	move.w	(a2)+,d0
+	beq	.nodef
+	move.l	d0,d2
+	jtcall	StrAlloc
+	move.l	d0,a0
+	exg	a0,a2
+	move.l	a2,a1
+	move.l	d2,d0
+	syscall	CopyMem
+	clr.b	0(a2,d2.l)
+	bra	.setdef
+.nodef	dlea	DefReqTitleStr,a2
+.setdef	tmove.l	a2,DefReqTitle
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src/screens.s b/extensions/Intuition-41.95/Intuition/src/screens.s
new file mode 100644
index 0000000..367064f
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/screens.s
@@ -0,0 +1,749 @@
+;Screen routines for Intuition extension
+
+;;;;;;;; Display information routines
+
+L_HAM:			;=Ham ($800)
+	move.l	#HAM,d3
+	moveq	#0,d2
+	rts
+
+L_EHB:			;=Ehb ($80)
+	move.l	#EHB,d3
+	moveq	#0,d2
+	rts
+
+L_SuperHires:		;=Superhires ($20)
+	move.l	#SUPERHIRES,d3
+	moveq	#0,d2
+	rts
+
+;=Aga (test for AGA chipset.  Currently checks SysBase->lib_Version >= 39.
+;	There must be a better way!)
+L_AGA:
+	pstart
+	dmove.b	IsAGA,d3
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+;=Ecs - test for ECS chipset.  Only works on systems with KS2.0 or higher;
+;	returns False on all others.
+L_ECS:
+	pstart
+	dmove.b	IsECS,d3
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_XHardMin:		;=X Hard Min
+	pstart
+	dmove.l	ViewLord,a0
+	moveq	#0,d3
+	move.w	v_DxOffset(a0),d3
+	moveq	#0,d2
+	ret
+
+L_YHardMin:		;=Y Hard Min
+	pstart
+	dmove.l	ViewLord,a0
+	moveq	#0,d3
+	move.w	v_DyOffset(a0),d3
+	moveq	#0,d2
+	ret
+
+
+;;;;;;;; Screen control routines
+
+L_IscreenOpen:		;Iscreen Open n,w,h,nc,modes,title$,dispID
+	pstart
+	jtcall	OpenIscr
+	ret
+
+L_IscreenOpenNT:	;Iscreen Open n,w,h,nc,modes,dispID - NOT CALLED
+	pstart
+	dtst.b	WB20
+	beq	L_NeedKick20
+	move.l	(a3),d0
+	clr.l	(a3)
+	move.l	d0,-(a3)
+	jtcall	OpenIscr
+	ret
+
+L_IscreenOpenNM:	;Iscreen Open n,w,h,nc,modes,title$
+	pstart
+	dtst.b	WB20
+	beq	.nomode
+	dtst.b	IsNTSC
+	bne	.ntsc
+	move.l	#PAL_MONITOR_ID,-(a3)
+	bra	.open
+.ntsc	move.l	#NTSC_MONITOR_ID,-(a3)
+	bra	.open
+.nomode	clr.l	-(a3)
+.open	jtcall	OpenIscr
+	ret
+
+L_IscreenOpen0:		;Iscreen Open n,w,h,nc,modes
+	clr.l	-(a3)
+	bra	L_IscreenOpenNM
+
+L_IscrOpenPublic:	;Iscreen Open Public n,w,h,nc,modes,title$,dispID
+	pstart
+	dtst.b	WB20
+	beq	L_NeedKick20
+	tmove.b	#-1,NextPublic
+	jtcall	OpenIscr
+	ret
+
+L_IscrOpenPubNT:	;Iscreen Open Public n,w,h,nc,modes,dispID - NOT CALLED
+	pstart
+	dtst.b	WB20
+	beq	L_NeedKick20
+	move.l	(a3),d0
+	clr.l	(a3)
+	move.l	d0,-(a3)
+	bsr	L_IscrOpenPublic
+	ret
+
+L_IscrOpenPubNM:	;Iscreen Open Public n,w,h,nc,modes,title$
+	pstart
+	dtst.b	WB20
+	beq	.nomode
+	dtst.b	IsNTSC
+	bne	.ntsc
+	move.l	#PAL_MONITOR_ID,-(a3)
+	bra	.open
+.ntsc	move.l	#NTSC_MONITOR_ID,-(a3)
+	bra	.open
+.nomode	clr.l	-(a3)
+.open	bsr	L_IscrOpenPublic
+	ret
+
+L_IscrOpenPub0:		;Iscreen Open Public n,w,h,nc,modes
+	clr.l	-(a3)
+	bra	L_IscrOpenPubNM
+
+L_IscrOpenBack:		;Iscreen Open Back
+	pstart
+	tmove.b	#-1,ScrOpenBehind
+	ret
+
+L_IscrOpenFront:	;Iscreen Open Front
+	pstart
+	dclr.b	ScrOpenBehind
+	ret
+
+L_IscreenClose:		;Iscreen Close n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	jtcall	CloseIscr
+	ret
+
+L_IscreenGet:		;=Iscreen
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_ScrNum(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IscreenSet:		;Set Iscreen n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	dtst.b	CurIwindowIsWB
+	beq	.custom
+	dmove.l	CurIwindow,d0
+	tmove.l	d0,LastActiveWB
+	bra	.setcur
+.custom	dmove.l	CurIscreen,a1
+	move.l	sc_UserData(a1),a1
+	dmove.l	CurIwindow,se_LastActive(a1)
+.setcur	tmove.l	a0,CurIscreen
+	dclr.l	CurIwindow
+	ret
+
+L_IscrFront:		;Iscreen To Front n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	intcall	ScreenToFront
+	ret
+
+L_CurIscrFront:		;Iscreen To Front
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	intcall	ScreenToFront
+	ret
+
+L_IscrBack:		;Iscreen To Back n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	intcall	ScreenToBack
+	ret
+
+L_CurIscrBack:		;Iscreen To Back
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	intcall	ScreenToBack
+	ret
+
+L_IscreenBase:		;Iscreen Base
+	pstart
+	dmove.l	CurIscreen,d3
+	moveq	#0,d2
+	ret
+
+L_IscreenDisp:		;Iscreen Display n,x,y,w,h
+	pstart
+	movem.l	(a3)+,d2-d6
+	move.l	d6,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	d0,a2
+.x	cmp.l	#Null,d5
+	bne	.xhere
+	cmp.l	#Null,d4
+	beq	.wid
+	moveq	#0,d5
+	bra	.yhere
+.xhere	tst.w	d5
+	bpl	.xpos
+	moveq	#0,d5
+.xpos	sub.w	sc_LeftEdge(a2),d5
+.y	cmp.l	#Null,d4
+	bne	.yhere
+	moveq	#0,d4
+	bra	.move
+.yhere	tst.w	d4
+	bpl	.ypos
+	moveq	#0,d4
+.ypos	sub.w	sc_TopEdge(a2),d4
+.move	move.w	d5,d0
+	move.w	d4,d1
+	move.l	a2,a0
+	intcall	MoveScreen
+.wid	move.l	sc_UserData(a2),a0
+	cmp.l	#Null,d3
+	bne	.where
+	cmp.l	#Null,d2
+	beq	.exit
+	bra	.hhere
+.where	dcmp.w	MaxDispWidth,d3
+	bhi	L_IllFunc
+	cmp.w	se_Width(a0),d3
+	bhi	L_IllFunc
+	move.w	d3,sc_Width(a2)
+	move.w	d3,sc_ViewPort+vp_DWidth(a2)
+.hgt	cmp.l	#Null,d2
+	beq	.set
+.hhere	dcmp.w	MaxDispHeight,d2
+	bhi	L_IllFunc
+	cmp.w	se_Height(a0),d3
+	bhi	L_IllFunc
+	move.w	d2,sc_Height(a2)
+	move.w	d3,sc_ViewPort+vp_DHeight(a2)
+.set	move.l	a2,a0
+	intcall	MakeScreen
+.exit	ret
+
+L_IscreenOfs:		;Iscreen Offset n,x,y
+	pstart
+	movem.l	(a3)+,d2-d4
+	move.l	d4,d0
+	jtcall	FindIscr		;get screen to A0
+	beq	L_NoScr
+	lea	sc_ViewPort(a0),a2
+	move.l	vp_RasInfo(a2),a1
+.x	cmp.l	#Null,d3
+	beq	.y
+	move.w	d3,ri_RxOffset(a1)
+.y	cmp.l	#Null,d2
+	beq	.set
+	move.w	d2,ri_RyOffset(a1)
+.set	move.l	a0,a2
+	intcall	MakeScreen
+	move.l	a2,a0
+	moveq	#0,d0
+	moveq	#0,d1
+	intcall	MoveScreen		;kludge
+	ret
+
+L_GetIscrWidth:		;=Iscreen Width(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	moveq	#0,d3
+	move.w	se_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_GetCISWidth:		;=Iscreen Width
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	moveq	#0,d3
+	move.w	se_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_GetIscrHeight:	;=Iscreen Height(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	moveq	#0,d3
+	move.w	se_Height(a0),d3
+	moveq	#0,d2
+	ret
+
+L_GetCISHeight:		;=Iscreen Height
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	moveq	#0,d3
+	move.w	se_Height(a0),d3
+	moveq	#0,d2
+	ret
+
+L_GetIscrCols:		;=Iscreen Colour(n)
+	pstart
+	move.l	(a3)+,d2
+	move.l	d2,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	d0,a6
+	move.l	d2,-(a3)
+	bsr	L_GetIscrMode
+	and.w	#HAM,d3
+	bne	.ham
+	moveq	#1,d3
+	moveq	#0,d2
+	move.b	sc_Depth(a6),d2
+	lsl.l	d2,d3
+	bra	.done
+.ham	cmp.b	#8,sc_Depth(a6)
+	bne	.ham6
+	move.l	#262144,d3
+	bra	.done
+.ham6	move.l	#4096,d3
+.done	moveq	#0,d2
+	ret
+
+L_GetCISCols:		;=Iscreen Colour
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_ScrNum(a0),-(a3)
+	bsr	L_GetIscrCols
+	ret
+
+L_GetIscrMode:		;=Iscreen Mode(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	sc_ViewModes(a0),d3
+	and.w	#MODES,d3
+	moveq	#0,d2
+	ret
+
+L_GetCISMode:		;=Iscreen Mode
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	sc_ViewModes(a0),d3
+	and.w	#MODES,d3
+	moveq	#0,d2
+	ret
+
+L_IscreenCopy:		;Iscreen Copy a,x1,y1,x2,y2 To b,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	lea	sc_BitMap(a0),a2
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	sub.w	d1,d5
+	sub.w	d0,d4
+	addq.w	#1,d5
+	addq.w	#1,d4
+	movem.w	d0-d1,-(a7)
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	movem.w	(a7)+,d0-d1
+	beq	L_NoScr
+	lea	sc_BitMap(a0),a0
+	move.l	a2,a1
+	move.b	#$C0,d6
+	moveq	#-1,d7
+	gfxcall	WaitBlit
+	call	BltBitMap
+	ret
+
+L_IscreenCopy2:		;Iscreen Copy a To b
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	lea	sc_BitMap(a0),a2
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.w	sc_Width(a0),d4
+	move.w	sc_Height(a0),d5
+	lea	sc_BitMap(a0),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	move.l	a2,a1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.b	#$C0,d6
+	moveq	#-1,d7
+	gfxcall	WaitBlit
+	call	BltBitMap
+	ret
+
+
+L_XIhard:		;=X Ihard(x)
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	dmove.l	ViewLord,a1
+	move.l	(a3)+,d3
+	move.w	sc_ViewPort+vp_Modes(a0),d1
+	moveq	#SUPERHIRES,d2
+	and.w	d1,d2
+	beq	.hires
+	lsr.w	#2,d3
+	bra	.add
+.hires	move.w	#HIRES,d2
+	and.w	d1,d2
+	beq	.add
+	lsr.w	#1,d3
+.add	add.w	v_DxOffset(a1),d3
+	moveq	#0,d2
+	ret
+
+L_XIscreen:		;=X Iscreen(x)
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	dmove.l	ViewLord,a1
+	move.l	(a3)+,d3
+	sub.w	v_DxOffset(a1),d3
+	move.w	sc_ViewPort+vp_Modes(a0),d1
+	moveq	#SUPERHIRES,d2
+	and.w	d1,d2
+	beq	.hires
+	lsl.w	#2,d3
+	bra	.done
+.hires	move.w	#HIRES,d2
+	and.w	d1,d2
+	beq	.done
+	lsl.w	#1,d3
+.done	moveq	#0,d2
+	ret
+
+L_YIhard:		;=Y Ihard(y)
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	dmove.l	ViewLord,a1
+	move.l	(a3)+,d3
+	moveq	#LACED,d1
+	and.w	sc_ViewPort+vp_Modes(a0),d1
+	beq	.add
+	lsr.w	#1,d3
+.add	add.w	v_DyOffset(a1),d3
+	moveq	#0,d2
+	ret
+
+L_YIscreen:		;=Y Iscreen(y)
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	dmove.l	ViewLord,a1
+	move.l	(a3)+,d3
+	sub.w	v_DyOffset(a1),d3
+	moveq	#LACED,d1
+	and.w	sc_ViewPort+vp_Modes(a0),d1
+	beq	.done
+	lsl.w	#1,d3
+.done	moveq	#0,d2
+	ret
+
+L_AmosIscrCopy:		;Amos Iscreen Copy a,x1,y1,x2,y2 To b,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	lea	sc_BitMap(a0),a2
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	sub.w	d1,d5
+	sub.w	d0,d4
+	addq.w	#1,d5
+	addq.w	#1,d4
+	movem.w	d0-d1,-(a7)
+	move.l	(a3)+,d0
+	jtcall	FindAscr
+	movem.w	(a7)+,d0-d1
+	beq	L_NoScr
+	move.l	a0,a1
+	dlea	TempBitMap,a0
+	moveq	#EcMaxPlans,d6
+	subq.w	#1,d6
+	move.w	d6,d7
+	lsl.w	#2,d7
+.bmlp	move.l	EcCurrent(a1,d7.w),bm_Planes(a0,d7.w)
+	subq.w	#4,d7
+	dbra	d6,.bmlp
+	move.w	EcTx(a1),d6
+	lsr.w	#3,d6			;AMOS screen width always 16n
+	move.w	d6,bm_BytesPerRow(a0)
+	move.w	EcTy(a1),bm_Rows(a0)
+	clr.b	bm_Flags(a0)
+	move.w	EcNPlan(a1),d6
+	move.b	d6,bm_Depth(a0)
+	move.l	a2,a1
+	move.b	#$C0,d6
+	moveq	#-1,d7
+	gfxcall	WaitBlit
+	call	BltBitMap
+	ret
+
+L_AmosIscrCopy2:	;Amos Iscreen Copy a To b
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	lea	sc_BitMap(a0),a2
+	move.l	(a3)+,d0
+	jtcall	FindAscr
+	beq	L_NoScr
+	move.l	a0,a1
+	dlea	TempBitMap,a0
+	moveq	#EcMaxPlans,d6
+	subq.w	#1,d6
+	move.w	d6,d7
+	lsl.w	#2,d7
+.bmlp	move.l	EcCurrent(a1,d7.w),bm_Planes(a0,d7.w)
+	subq.w	#4,d7
+	dbra	d6,.bmlp
+	move.w	EcTx(a1),d4
+	move.w	d4,d6
+	lsr.w	#3,d6
+	move.w	d6,bm_BytesPerRow(a0)
+	move.w	EcTy(a1),d5
+	move.w	d5,bm_Rows(a0)
+	clr.b	bm_Flags(a0)
+	move.w	EcNPlan(a1),d6
+	move.b	d6,bm_Depth(a0)
+	moveq	#0,d0
+	moveq	#0,d1
+	move.l	a2,a1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.b	#$C0,d6
+	moveq	#-1,d7
+	gfxcall	WaitBlit
+	call	BltBitMap
+	ret
+
+
+L_IscrAmosCopy:		;Iscreen Amos Copy a,x1,y1,x2,y2 To b,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	jtcall	FindAscr
+	beq	L_NoScr
+	dlea	TempBitMap,a1
+	moveq	#EcMaxPlans,d6
+	subq.w	#1,d6
+	move.w	d6,d7
+	lsl.w	#2,d7
+.bmlp	move.l	EcCurrent(a0,d7.w),bm_Planes(a1,d7.w)
+	subq.w	#4,d7
+	dbra	d6,.bmlp
+	move.w	EcTx(a0),d6
+	lsr.w	#3,d6
+	move.w	d6,bm_BytesPerRow(a1)
+	move.w	EcTy(a0),bm_Rows(a1)
+	clr.b	bm_Flags(a1)
+	move.w	EcNPlan(a0),bm_Depth(a1)
+	move.l	(a3)+,d5
+	move.l	(a3)+,d4
+	move.l	(a3)+,d1
+	move.l	(a3)+,d0
+	sub.w	d1,d5
+	sub.w	d0,d4
+	addq.w	#1,d5
+	addq.w	#1,d4
+	movem.l	d0-d1/a1,-(a7)
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	movem.l	(a7)+,d0-d1/a1
+	beq	L_NoScr
+	lea	sc_BitMap(a0),a0
+	move.b	#$C0,d6
+	moveq	#-1,d7
+	gfxcall	WaitBlit
+	call	BltBitMap
+	call	WaitBlit	;Need to call WaitBlit() after BltBitMap()
+				;  because AMOS might not
+	ret
+
+L_IscrAmosCopy2:	;Iscreen Amos Copy a To b
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindAscr
+	beq	L_NoScr
+	dlea	TempBitMap,a1
+	moveq	#EcMaxPlans-1,d6
+	move.w	d6,d7
+	lsl.w	#2,d7
+.bmlp	move.l	EcCurrent(a0,d7.w),bm_Planes(a1,d7.w)
+	subq.w	#4,d7
+	dbra	d6,.bmlp
+	move.w	EcTx(a0),d6
+	lsr.w	#3,d6
+	move.w	d6,bm_BytesPerRow(a1)
+	move.w	EcTy(a0),bm_Rows(a1)
+	clr.b	bm_Flags(a1)
+	move.w	EcNPlan(a0),bm_Depth(a1)
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.w	sc_Width(a0),d4
+	move.w	sc_Height(a0),d5
+	lea	sc_BitMap(a0),a0
+	moveq	#0,d0
+	moveq	#0,d1
+	dlea	TempBitMap,a1
+	moveq	#0,d2
+	moveq	#0,d3
+	move.b	#$C0,d6
+	moveq	#-1,d7
+	gfxcall	WaitBlit
+	call	BltBitMap
+	call	WaitBlit
+	ret
+
+
+L_SetIscrTitle:		;Set Iscreen Title s$,n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	move.l	sc_DefaultTitle(a0),d5
+	move.l	a0,d6
+	move.l	(a3)+,a2
+	moveq	#0,d2
+	move.w	(a2)+,d2
+	beq	.none
+	move.l	d2,d0
+	jtcall	StrAlloc
+	move.l	d0,a1
+	move.l	d0,d7
+	move.l	a2,a0
+	move.l	d2,d0
+	syscall	CopyMem
+	move.l	d7,a1
+	clr.b	(0,a1,d2.l)
+	move.l	d6,a0
+	move.l	a1,sc_DefaultTitle(a0)
+	moveq	#1,d0
+	bra	.finish
+.none	move.l	d6,a0
+	clr.l	sc_DefaultTitle(a1)
+	moveq	#0,d0
+.finish	intcall	ShowTitle
+	tst.l	d5
+	beq	.exit
+	move.l	d5,a0
+	jtcall	StrFree
+.exit	ret
+
+L_SetCurIscrTitle:	;Set Iscreen Title s$
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_DefaultTitle(a0),d5
+	move.l	d0,d6
+	move.l	(a3)+,a2
+	moveq	#0,d2
+	move.w	(a2)+,d2
+	beq	.none
+	move.l	d2,d0
+	jtcall	StrAlloc
+	move.l	d0,a1
+	move.l	d0,d7
+	move.l	a2,a0
+	move.l	d2,d0
+	syscall	CopyMem
+	move.l	d7,a1
+	clr.b	(0,a1,d2.l)
+	move.l	d6,a0
+	move.l	a1,sc_DefaultTitle(a0)
+	moveq	#1,d0
+.none	move.l	d6,a0
+	clr.l	sc_DefaultTitle(a0)
+	moveq	#0,d0
+.finish	intcall	ShowTitle
+	tst.l	d5
+	beq	.exit
+	move.l	d5,a0
+	jtcall	StrFree
+.exit	ret
+
+L_IscrTitleHeight:	;=Iscreen Title Height(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIscr
+	beq	L_NoScr
+	moveq	#0,d3
+	move.b	sc_BarHeight(a0),d3
+	moveq	#0,d2
+	ret
+
+L_CurIscrTitleHeight:	;=Iscreen Title Height
+	pstart
+	jtcall	GetCurIscr
+	move.l	d0,a0
+	moveq	#0,d3
+	move.b	sc_BarHeight(a0),d3
+	moveq	#0,d2
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src/text.s b/extensions/Intuition-41.95/Intuition/src/text.s
new file mode 100644
index 0000000..443231b
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/text.s
@@ -0,0 +1,108 @@
+;;;;;;;; Text
+
+L_IgrWriting:		;Igr Writing n
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,d0
+	gfxcall	SetDrMd
+	ret
+
+L_Itext:		;Itext [x],[y],s$
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a1
+	move.l	(a3)+,a0	;string adr
+	move.w	(a0)+,d0	;string len
+	bsr	L_IlocateGr	;set position
+	gfxcall	Text
+	ret
+
+L_Icentre:		;Icentre s$
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a2
+	move.l	wd_RPort(a2),a1
+	move.l	(a3),a0		;string adr (save on A3 for now)
+	move.w	(a0),d0		;string len
+	gfxcall	TextLength	;Calculate X position and set CP
+	move.w	d0,d1
+	move.w	wd_Width(a2),d0
+	sub.w	d1,d0
+	lsr.w	#1,d0
+	move.l	a2,a0
+	move.l	#Null,d1
+	jtcall	SetCoords
+	move.l	wd_RPort(a2),a1	;Now write string
+	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	gfxcall	Text
+	ret
+
+L_Iwrite:		;Iwrite s$
+	pstart
+	jtcall	GetCurRP
+	move.l	d0,a2
+	jtcall	GetWinFlags
+	btst	#WEB_UNSET,d0
+	beq	.set
+	moveq	#0,d0
+	moveq	#0,d1
+	move.w	rp_TxBaseline(a2),d1
+	jtcall	SetCoords
+.set	move.l	(a3)+,a0
+	move.w	(a0)+,d0
+	move.l	a2,a1
+	gfxcall	Text
+	jtcall	GetCurWin
+	move.l	d0,a1
+	moveq	#0,d0
+	move.w	wd_Height(a1),d0
+	moveq	#0,d2
+	move.b	wd_BorderTop(a1),d2
+	sub.w	d2,d0
+	move.b	wd_BorderBottom(a1),d2
+	sub.w	d2,d0
+	divu	rp_TxHeight(a2),d0
+	moveq	#0,d1
+	move.w	rp_cp_y(a2),d1
+	move.b	wd_BorderTop(a1),d2
+	sub.w	d2,d1
+	divu	rp_TxHeight(a2),d1
+	addq.w	#1,d1
+	cmp.w	d0,d1
+	bcs	.noscrl
+	moveq	#0,d2
+	move.b	wd_BorderLeft(a1),d2
+	moveq	#0,d3
+	move.b	wd_BorderTop(a1),d3
+	moveq	#0,d0
+	move.w	wd_Width(a1),d4
+	move.b	wd_BorderRight(a1),d0
+	sub.w	d0,d4
+	subq.w	#1,d4
+	move.w	wd_Height(a1),d5
+	move.b	wd_BorderBottom(a1),d0
+	sub.w	d0,d5
+	subq.w	#1,d5
+	moveq	#0,d0
+	move.w	rp_TxHeight(a2),d1
+	move.l	a2,a1
+	call	ScrollRaster
+	bra	.setx
+.noscrl	move.w	rp_TxHeight(a2),d1
+	moveq	#0,d0
+	jtcall	SetCoordsRel
+.setx	moveq	#0,d0
+	move.l	#Null,d1
+	jtcall	SetCoords
+.exit	ret
+
+L_Iwrite0:		;Iwrite
+	pstart
+	dlea	NullStr,a0
+	move.l	a0,-(a3)
+	bsr	L_Iwrite
+	ret
+
+
diff --git a/extensions/Intuition-41.95/Intuition/src/windows.s b/extensions/Intuition-41.95/Intuition/src/windows.s
new file mode 100644
index 0000000..abbd4c1
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src/windows.s
@@ -0,0 +1,654 @@
+;Window routines
+
+L_IwindowOpen:		;Iwindow Open n,x,y,w,h,title$,flags
+	pstart
+	moveq	#1,d0
+	move.l	(a3)+,d1
+	jtcall	OpenIwin
+	ret
+
+L_IwindowOpenNF:	;Iwindow Open n,x,y,w,h,title$
+	pstart
+	moveq	#1,d0
+	move.l	#Null,d1
+	jtcall	OpenIwin
+	ret
+
+L_IwindowOpenNT:	;Iwindow Open n,x,y,w,h
+	clr.l	-(a3)
+	bra	L_IwindowOpenNF
+
+L_IwindowOpenWB:	;Iwindow Open Wb n,x,y,w,h,title$,flags
+	pstart
+	moveq	#0,d0
+	move.l	(a3)+,d1
+	jtcall	OpenIwin
+	ret
+
+L_IwindowOpenWB_NF:	;Iwindow Open Wb n,x,y,w,h,title$
+	pstart
+	moveq	#0,d0
+	move.l	#Null,d1
+	jtcall	OpenIwin
+	ret
+
+L_IwindowOpenWB_NT:	;Iwindow Open Wb n,x,y,w,h
+	clr.l	-(a3)
+	bra	L_IwindowOpenWB_NF
+
+
+L_IwindowClose:		;Iwindow Close n
+	pstart
+	move.l	(a3)+,d0
+	beq	L_NoCloseWin0
+	jtcall	FindIwin
+	beq	L_NoWin
+	jtcall	CloseIwin
+	ret
+
+L_IwindowCloseWB:	;Iwindow Close Wb n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	jtcall	CloseWBIwin
+	ret
+
+L_IwindowSet:		;Set Iwindow n
+	pstart
+	dtst.l	CurIscreen
+	beq	L_NoScr
+	move.l	(a3)+,d0
+	beq	.bkwin
+	jtcall	FindIwin
+	beq	L_NoWin
+	dtst.b	CurIwindowIsWB
+	beq	.setcur
+	dmove.l	CurIwindow,d0
+	tmove.l	d0,LastActiveWB
+.setcur	tmove.l	a0,CurIwindow
+	dclr.b	CurIwindowIsWB
+	ret
+.bkwin	dtst.b	CurIwindowIsWB
+	beq	.clrcur
+	dmove.l	CurIwindow,d0
+	tmove.l	d0,LastActiveWB
+.clrcur	dclr.l	CurIwindow
+	dclr.b	CurIwindowIsWB
+	ret
+
+L_IwindowGet:		;=Iwindow
+	pstart
+	dmove.l	CurIwindow,d0
+	beq	.bkwin
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a0
+	move.l	we_WinNum(a0),d3
+	moveq	#0,d2
+	ret
+.bkwin	dtst.l	CurIscreen
+	beq	L_NoScr
+	moveq	#0,d3
+	moveq	#0,d2
+	ret
+
+L_IwindowSetWB:		;Set Iwindow Wb n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	dtst.b	CurIwindowIsWB
+	bne	.setcur
+	dmove.l	CurIscreen,d0
+	beq	.setcur
+	mvoe.l	d0,a1
+	move.l	sc_UserData(a1),a1
+	dmove.l	CurIwindow,se_LastActive(a1)
+.setcur	tmove.l	a0,CurIwindow
+	tmove.b	#-1,CurIwindowIsWB
+	ret
+
+L_IwindowOnWB:		;=Iwindow On Wb
+	pstart
+	dmove.b	CurIwindowIsWB,d3
+	ext.w	d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_WinToFront:		;Base for 'Iwindow To Front *'; window in A0
+	pstart
+	move.l	a0,a2
+	intcall	WindowToFront
+	move.l	wd_UserData(a2),a0
+	move.l	we_PrevIwin(a0),d0
+	beq	.exit
+	move.l	we_NextIwin(a0),d1
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a1
+	move.l	d1,we_NextIwin(a1)
+	tst.l	d1
+	beq	.nonext
+	move.l	d1,a1
+	move.l	wd_UserData(a1),a1
+	move.l	d0,we_PrevIwin(a1)
+.nonext	move.l	wd_WScreen(a2),a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_FirstIwindow(a1),a6
+	move.l	a6,we_NextIwin(a0)
+	move.l	wd_UserData(a6),a6
+	move.l	a2,we_PrevIwin(a6)
+	clr.l	we_PrevIwin(a0)
+	move.l	a2,se_FirstIwindow(a1)
+.exit	ret
+
+L_IwindowToFront:	;Iwindow To Front n
+	pstart
+	move.l	(a3)+,d0
+	beq	L_NoModWin0
+	jtcall	FindIwin
+	beq	L_NoWin
+	bsr	L_WinToFront
+	ret
+
+L_IwindowToFrontWB:	;Iwindow To Front Wb n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	bsr	L_WinToFront
+	ret
+
+L_CurIwinToFront:	;Iwindow To Front
+	pstart
+	jtcall	GetCurIwin
+	move.l	d0,a0
+	bsr	L_WinToFront
+	ret
+
+L_WinToBack:		;Base for 'Iwindow To Back *'; window in A0
+	pstart
+	move.l	a0,a2
+	intcall	WindowToBack
+	move.l	wd_UserData(a2),a0
+	move.l	we_NextIwin(a0),d0
+	beq	.exit
+	move.l	we_PrevIwin(a0),d1
+	move.l	d0,a1
+	move.l	wd_UserData(a1),a1
+	move.l	d1,we_PrevIwin(a1)
+	tst.l	d1
+	beq	.noprev
+	move.l	d1,a1
+	move.l	wd_UserData(a1),a1
+	move.l	d0,we_NextIwin(a1)
+	bra	.mklast
+.noprev	move.l	wd_WScreen(a2),a1
+	move.l	sc_UserData(a1),a1
+	move.l	d0,se_FirstIwindow(a1)
+.mklast	move.l	wd_WScreen(a2),a1
+	move.l	sc_UserData(a1),a1
+	move.l	se_FirstIwindow(a1),a1
+.lastlp	move.l	wd_UserData(a1),a0
+	move.l	we_NextIwin(a0),d0
+	beq	.endlp
+	move.l	d0,a1
+	bra	.lastlp
+.endlp	move.l	a2,we_NextIwin(a0)
+	move.l	wd_UserData(a2),a2
+	move.l	a1,we_PrevIwin(a2)
+	clr.l	we_NextIwin(a2)
+.exit	ret
+
+L_IwindowToBack:	;Iwindow To Back n
+	pstart
+	move.l	(a3)+,d0
+	beq	L_NoModWin0
+	jtcall	FindIwin
+	beq	L_NoWin
+	bsr	L_WinToBack
+	ret
+
+L_IwindowToBackWB:	;Iwindow To Back Wb n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	bsr	L_WinToBack
+	ret
+
+L_CurIwinToBack:	;Iwindow To Back
+	pstart
+	jtcall	GetCurIwin
+	move.l	d0,a0
+	bsr	L_WinToBack
+	ret
+
+L_WinMove:		;Window in A0, new coords in D2/D3 (X/Y)
+	pstart
+	cmp.l	#Null,d2
+	bne	.gotx
+	moveq	#0,d2
+	move.w	wd_LeftEdge(a0),d2
+.gotx	cmp.l	#Null,d3
+	bne	.goty
+	moveq	#0,d3
+	move.w	wd_TopEdge(a0),d3
+.goty	move.l	wd_WScreen(a0),a1
+	moveq	#0,d0
+	move.w	sc_Width(a1),d0
+	sub.w	wd_Width(a0),d0
+	moveq	#0,d1
+	move.w	sc_Height(a1),d1
+	sub.w	wd_Height(a0),d1
+	cmp.l	d0,d2
+	bhi	L_IllFunc
+	cmp.l	d1,d3
+	bhi	L_IllFunc
+	move.w	d2,d0
+	move.w	d3,d1
+	sub.w	wd_LeftEdge(a0),d0
+	sub.w	wd_TopEdge(a0),d1
+	ext.l	d0
+	ext.l	d1
+	intcall	MoveWindow
+	ret
+
+L_IwindowMove:		;Iwindow Move n,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	beq	L_NoModWin0
+	jtcall	FindIwin
+	beq	L_NoWin
+	bsr	L_WinMove
+	ret
+
+L_IwindowMoveWB:	;Iwindow Move Wb n,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	bsr	L_WinMove
+	ret
+
+L_WinSize:		;Window in A0
+	pstart
+	cmp.l	#Null,d2
+	bne	.gotx
+	moveq	#0,d2
+	move.w	wd_Width(a0),d2
+.gotx	cmp.l	#Null,d3
+	bne	.goty
+	moveq	#0,d3
+	move.w	wd_Height(a0),d3
+.goty	move.l	wd_WScreen(a0),a1
+	moveq	#0,d0
+	move.w	sc_Width(a1),d0
+	sub.w	wd_LeftEdge(a0),d0
+	moveq	#0,d1
+	move.w	sc_Height(a1),d1
+	sub.w	wd_TopEdge(a0),d1
+	cmp.l	d0,d2
+	bhi	L_WinTooLarge
+	cmp.l	d1,d3
+	bhi	L_WinTooLarge
+	cmp.l	#80,d2
+	bcs	L_WinTooSmall
+	cmp.l	#48,d3
+	bcs	L_WinTooSmall
+	move.w	d2,d0
+	move.w	d3,d1
+	sub.w	wd_Width(a0),d0
+	sub.w	wd_Height(a0),d1
+	ext.l	d0
+	ext.l	d1
+	intcall	SizeWindow
+	ret
+
+L_IwindowSize:		;Iwindow Size n,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	beq	L_NoModWin0
+	jtcall	FindIwin
+	beq	L_NoWin
+	bsr	L_WinSize
+	ret
+
+L_IwindowSizeWB:	;Iwindow Size Wb n,x,y
+	pstart
+	move.l	(a3)+,d3
+	move.l	(a3)+,d2
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	bsr	L_WinSize
+	ret
+
+L_IwindowX:		;=Iwindow X(n)
+	pstart
+	move.l	(a3)+,d0
+	beq	.scrwin
+	jtcall	FindIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	move.w	wd_LeftEdge(a0),d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+.scrwin	dtst.l	CurIscreen
+	beq	L_NoScr
+	moveq	#0,d3
+	moveq	#0,d2
+	ret
+
+L_IwindowXWB:		;=Iwindow X Wb(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	move.w	wd_LeftEdge(a0),d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_CurIwindowX:		;=Iwindow X
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.w	wd_LeftEdge(a0),d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_IwindowY:		;=Iwindow Y(n)
+	pstart
+	move.l	(a3)+,d0
+	beq	.scrwin
+	jtcall	FindIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	move.w	wd_TopEdge(a0),d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+.scrwin	dtst.l	CurIscreen
+	beq	L_NoScr
+	moveq	#0,d3
+	moveq	#0,d2
+	ret
+
+L_IwindowYWB:		;=Iwindow Y Wb(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	move.w	wd_TopEdge(a0),d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_CurIwindowY:		;=Iwindow Y
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	move.w	wd_TopEdge(a0),d3
+	ext.l	d3
+	moveq	#0,d2
+	ret
+
+L_IwindowWidth:		;=Iwindow Width(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IwindowWidthWB:	;=Iwindow Width Wb(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_CurIwindowWidth:	;=Iwindow Width
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IwindowHeight:	;=Iwindow Height(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IwindowHeightWB:	;=Iwindow Height Wb(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Width(a0),d3
+	moveq	#0,d2
+	ret
+
+L_CurIwindowHeight:	;=Iwindow Height
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Height(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IwindowActWidth:	;=Iwindow Actual Width
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Width(a0),d3
+	moveq	#0,d0
+	move.b	wd_BorderLeft(a0),d0
+	sub.w	d0,d3
+	move.b	wd_BorderRight(a0),d0
+	sub.w	d0,d3
+	moveq	#0,d2
+	ret
+
+L_IwindowActHeight:	;=Iwindow Actual Height
+	pstart
+	jtcall	GetCurIwin2
+	move.l	d0,a0
+	moveq	#0,d3
+	move.w	wd_Height(a0),d3
+	moveq	#0,d0
+	move.b	wd_BorderTop(a0),d0
+	sub.w	d0,d3
+	move.b	wd_BorderBottom(a0),d0
+	sub.w	d0,d3
+	moveq	#0,d2
+	ret
+
+L_IwindowBase:		;=Iwindow Base
+	pstart
+	moveq	#0,d2
+	jtcall	GetCurIwin2
+	move.l	d0,d3
+	ret
+
+L_IwindowActivate:	;Iwindow Activate n
+	pstart
+	move.l	(a3)+,d0
+	beq	.bkwin
+	jtcall	FindIwin
+	move.l	d0,a0
+	bra	.setwin
+.bkwin	jtcall	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+.setwin	tmove.l	a0,CurIwindow
+	intcall	ActivateWindow
+	ret
+
+L_IwindowActivateWB:	;Iwindow Activate Wb n
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	tmove.l	d0,CurIwindow
+	move.l	d0,a0
+	intcall	ActivateWindow
+	ret
+
+L_IwindowActive:	;=Iwindow Active
+	pstart
+	moveq	#0,d2
+	jtcall	GetActiveWin
+	move.l	d0,a0
+	move.l	wd_UserData(a0),d0
+	beq	.no
+	move.l	d0,a0
+	cmp.l	#WE_MAGIC,we_MagicID(a0)
+	bne	.no
+.yes	moveq	#-1,d3
+	ret
+.no	moveq	#0,d3
+	ret
+
+L_IwindowActiveNum:	;=Iwindow Active Num
+	pstart
+	jtcall	GetActiveWin
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a0
+	move.l	we_WinNum(a0),d3
+	moveq	#0,d2
+	ret
+
+L_IwindowActiveBase:	;=Iwindow Active Base
+	pstart
+	jtcall	GetActiveWin
+	move.l	d0,d3
+	moveq	#0,d2
+	ret
+
+L_IwindowStatus:	;=Iwindow Status(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindIwin
+	beq	L_NoWin
+	move.l	d0,a2
+	move.l	wd_UserPort(a2),a0
+	jtcall	DoEvent			;If close gadget clicked, catch it
+	move.l	a2,a0
+	jtcall	GetSomeWinFlags
+	move.l	d0,d3
+	and.l	#WEF_CLOSED|WEF_MENUACTIVE,d3	;Legal flags to return
+	moveq	#0,d2
+	ret
+
+L_IwindowStatusWB:	;=Iwindow Status Wb(n)
+	pstart
+	move.l	(a3)+,d0
+	jtcall	FindWBIwin
+	beq	L_NoWin
+	move.l	d0,a2
+	move.l	wd_UserPort(a2),a0
+	jtcall	DoEvent			;If close gadget clicked, catch it
+	move.l	a2,a0
+	jtcall	GetSomeWinFlags
+	move.l	d0,d3
+	and.l	#WEF_CLOSED|WEF_MENUACTIVE,d3
+	moveq	#0,d2
+	ret
+
+L_CurIwindowStatus:	;=Iwindow Status
+	pstart
+	jtcall	GetWinFlags
+	move.l	d0,d3
+	and.l	#WEF_CLOSED|WEF_MENUACTIVE,d3
+	moveq	#0,d2
+	ret
+
+L_SetIwindowTitle:	;Set Iwindow Title [n],[win$],[scr$]
+	pstart
+	move.l	(a3)+,d5
+	cmp.l	#Null,d5
+	bne	.snonul
+	moveq	#-1,d5
+.snonul	move.l	(a3)+,d2
+	cmp.l	#Null,d2
+	bne	.wnonul
+	moveq	#-1,d2
+.wnonul	move.l	(a3)+,d0
+	cmp.l	#Null,d0
+	beq	.curwin
+	jtcall	FindIwin
+	beq	L_NoWin
+	move.l	d0,d3
+	bra	.wtitle
+.curwin	dmove.l	CurIwindow,d3
+	beq	L_NoWin
+.wtitle	cmp.l	#-1,d2
+	beq	.stitle
+	move.l	d2,a2
+	moveq	#0,d0
+	move.w	(a2)+,d0
+	beq	.wempty
+	move.l	d0,d4
+	jtcall	StrAlloc
+	exg	d0,a2
+	move.l	a2,a1
+	move.l	d0,a0
+	move.l	d4,d0
+	syscall	CopyMem
+	clr.b	(a2,d4.l)
+	move.l	a2,d2
+	bra	.stitle
+.wempty	mvoeq	#0,d2
+.stitle	cmp.l	#-1,d5
+	beq	.set
+	move.l	d5,a2
+	moveq	#0,d0
+	move.w	(a2)+,d0
+	beq	.sempty
+	move.l	d0,d4
+	jtcall	StrAlloc
+	exg	d0,a2
+	move.l	a2,a1
+	move.l	d0,a0
+	move.l	d4,d0
+	syscall	CopyMem
+	clr.b	(a2,d4.l)
+	move.l	a2,d5
+	bra	.set
+.sempty	mvoeq	#0,d5
+.set	move.l	d3,a0
+	move.l	d2,a1
+	move.l	d5,a2
+	intcall	SetWindowTitles
+	ret
diff --git a/extensions/Intuition-41.95/Intuition/src2/amosfuncs.s b/extensions/Intuition-41.95/Intuition/src2/amosfuncs.s
new file mode 100644
index 0000000..92fd8c4
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/amosfuncs.s
@@ -0,0 +1,361 @@
+;Interface routines for AMOS functions, and other miscellaneous AMOS stuff.
+;The interface routines are here because the calling conventions for AMOS
+;functions changed between Creator and Pro.
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+L_Bnk_GetAdr	equ	1100
+L_Bnk_Reserve	equ	1103
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+ABanks		equ	1252
+ExtAdr		equ	62*4
+EcNumber	equ	188
+C_Code1		equ	$FE
+C_Code2		equ	$01
+C_CodeJ		equ	$F7
+Rjmp		MACRO
+		dc.b	C_Code1,0*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+Rjsr		MACRO
+		dc.b	C_Code1,1*16+C_Code2
+		dc.b	C_CodeJ,0
+		dc.w	\1
+		ENDM
+
+	section text,code
+
+	xdef	GetBankAdr
+	xdef	CreateBank
+	xdef	FindAscr
+	xdef	FindSprite
+	xdef	FindIcon
+	xdef	ReturnString
+	xdef	GetRetStr
+	xdef	FlushRetStr
+
+	xref	DataBase
+	xref	Ascr0to7
+	xref	NoObjBank
+	xref	NoIconBank
+	xref	IllFunc
+	xref	NoMem
+	xref	LongMul
+	xref	StrAlloc
+	xref	StrFree
+	xref	StrLen
+
+
+GetBankAdr:		;Get address of bank D0 to A0, return bank flags in
+			;  D0.w.  If bank does not exist, D0/A0 undefined and
+			;  Z set on return; otherwise, Z clear.
+      ifd CREATOR
+	pstart2
+	tst.l	d0
+	beq	IllFunc
+	cmp.l	#16,d0
+	bhi	IllFunc
+	movem.l	d2/a5,-(a7)
+	dmove.l	SavedA5,a5
+	move.l	ABanks(a5),a0
+	subq.w	#1,d0
+	lsl.w	#3,d0
+	move.l	4(a0,d0.w),d1
+	move.l	0(a0,d0.w),a0
+	move.l	a0,d0
+	beq	.nobank
+	moveq	#0,d2
+	btst	#31,d1
+	sne	d0
+	and.b	#1<<Bnk_BitData,d0
+	or.b	d0,d2
+	btst	#30,d1
+	sne	d0
+	and.b	#1<<Bnk_BitChip,d0
+	or.b	d0,d2
+	cmp.l	#'Spri',(a0)
+	seq	d0
+	cmp.l	#'tes ',4(a0)
+	seq	d1
+	and.b	d0,d1
+	and.b	#1<<Bnk_BitBob,d1
+	or.b	d1,d2
+	cmp.l	#'Icon',(a0)
+	seq	d0
+	cmp.l	#'s   ',4(a0)
+	seq	d1
+	and.b	d0,d1
+	and.b	#1<<Bnk_BitIcon,d1
+	or.b	d1,d2
+	move.l	d2,d0
+	addq.l	#8,a0
+	moveq	#1,d1
+	bra	.exit
+.nobank	moveq	#0,d0
+.exit	movem.l	(a7)+,d2/a5
+	ret2
+      else
+	rjmp	L_Bnk_GetAdr
+      endc
+
+CreateBank:		;Create bank number D0 with length D1, bank flags D2.
+      ifd CREATOR	;  Return address in D0, or NULL if not successful.
+	pstart2
+	tst.l	d0
+	beq	IllFunc
+	cmp.l	#16,d0
+	bhi	IllFunc
+	movem.l	d2-d7/a2-a6,-(a7)
+	move.l	d0,d5
+	move.l	d1,d6
+	move.l	d1,d7
+	dmove.l	SavedA5,a5
+	move.l	ABanks(a5),a2
+	move.w	d5,d4
+	subq.w	#1,d4
+	lsl.w	#3,d4
+	move.l	4(a2,d4.w),d0
+	move.l	0(a2,d4.w),a3
+	move.l	a3,d1
+	beq	.nobank
+	move.l	4,a6
+	cmp.l	#'Spri',(a1)
+	bne	.clr0
+	cmp.l	#'tes ',4(a1)
+	beq	.clrspr
+.clr0	cmp.l	#'Icon',(a1)
+	bne	.clr1
+	cmp.l	#'s   ',4(a1)
+	bne	.clr1
+.clrspr	lsl.l	#3,d0
+	add.l	#10,d0
+	movem.l	d0/a1,-(a7)
+	lea	8(a1),a3
+	move.w	(a3)+,d2
+	subq.w	#1,d2
+.clrlp	move.l	(a3)+,d1
+	beq	.noimg
+	move.l	d1,a1
+	move.w	(a1),d0
+	mulu	2(a1),d0
+	move.w	4(a1),d1
+	lsl.l	#1,d0
+	bsr	LongMul
+	add.l	#10,d0
+	call	FreeMem
+	move.l	(a3)+,d1
+	ble	.clrnxt
+	move.l	d1,a1
+	move.l	(a1),d0
+	call	FreeMem
+	bra	.clrnxt
+.noimg	addq.l	#4,a3
+.clrnxt	dbra	d2,.clrlp
+	movem.l	(a7)+,d0/a1
+.clr1	syscall	FreeMem
+	clr.l	0(a2,d4.w)
+	clr.l	4(a2,d4.w)
+
+.nobank	move.l	d6,d2
+	btst	#Bnk_BitChip,d7
+	beq	.nochip
+	move.l	#MEMF_CHIP,d5
+	bset	#30,d2
+.nochip	or.l	#MEMF_PUBLIC|MEMF_CLEAR,d5
+	btst	#Bnk_BitData,d7
+	beq	.nodata
+	bset	#31,d2
+	move.l	#'Data',d7
+	bra	.alloc
+.nodata	move.l	#'Work',d7
+.alloc	move.l	d6,d0
+	addq.l	#8,d0
+	move.l	d5,d1
+	
+	syscall	AllocMem
+	tst.l	d0
+	beq	.nomem
+	move.l	d0,a0
+	move.l	a0,0(a2,d4.w)
+	move.l	d7,(a0)+
+	move.l	#'    ',(a0)+
+	move.l	a0,d0
+	bra	.exit
+.nomem	move.l	#0,d0
+.exit	lea	ExtAdr(a5),a0
+	moveq	#26,d1
+	move.l	d0,-(a7)
+.chglp	movem.l	d1/a0,-(a7)
+	jsr	12(a0)
+	movem.l	(a7)+,d1/a0
+	dbra	d1,.chglp
+	move.l	(a7)+,d0
+	movem.l	(a7)+,d2-d7/a2-a6
+	ret2
+      else
+	btst	#Bnk_BitData,d2
+	beq	.nodata
+	lea	.dataname(pc),a0
+	bra	.alloc
+.nodata	lea	.workname(pc),a0
+.alloc	swap	d1,d2
+	rjsr	L_Bnk_Reserve
+	beq	.nomem
+	move.l	a0,d0
+	bra	.change
+.nomem	moveq	#0,d0
+.change	lea	ExtAdr(a5),a0
+	moveq	#26,d1
+	movem.l	d0/d2-d7/a1-a6,-(a7)
+.chglp	movem.l	d1/a0,-(a7)
+	jsr	12(a0)
+	movem.l	(a7)+,d1/a0
+	dbra	d1,.chglp
+	movem.l	(a7)+,d0/d2-d7/a1-a6
+	rts
+.dataname	dc.b "Data    "
+.workname	dc.b "Work    "
+      endif
+
+FindAscr:		;Get address of AMOS screen D0 to A0
+	pstart2
+	cmp.l	#7,d0
+	bhi	Ascr0to7
+	dmove.l	SavedA5,a0
+	lea	-528(a0),a1		;Why isn't this documented?
+.lp	move.l	(a1)+,d1
+	bmi	.noscr
+	move.l	d1,a0
+	move.w	EcNumber(a0),d1
+	and.w	#7,d1
+	cmp.w	d1,d0
+	bne	.lp
+	moveq	#1,d0
+	bra	.exit
+.noscr	moveq	#0,d0
+.exit	ret2
+
+;;;;;;;;
+
+FindSprite:		;Find sprite # in D0.  Return addr. in A0, mask in A1
+			;   and Z clear if successful, otherwise return Z set.
+	pstart2
+	move.w	d0,d2
+	beq	.nospr
+	subq.w	#1,d2
+	moveq	#1,d0
+	bsr	GetBankAdr
+	beq	NoObjBank
+	btst	#Bnk_BitBob,d0
+	beq	NoObjBank
+	cmp.w	(a0)+,d2
+	bcc	.nospr
+	moveq	#0,d0
+	move.w	d2,d0
+	lsl.l	#3,d0
+	add.l	d0,a0
+	move.l	4(a0),a1
+	move.l	(a0),a0
+	moveq	#1,d0
+	bra	.exit
+.nospr	moveq	#0,d0
+.exit	ret2
+
+FindIcon:		;Find icon # in D0.  Return addr. in A0, mask in A1
+			;   and Z clear if successful, otherwise return Z set.
+	pstart2
+	move.w	d0,d2
+	beq	.noicon
+	subq.w	#1,d2
+	moveq	#2,d0
+	bsr	GetBankAdr
+	beq	NoIconBank
+	btst	#Bnk_BitIcon,d0
+	beq	NoIconBank
+	cmp.w	(a0)+,d2
+	bcc	.noicon
+	moveq	#0,d0
+	move.w	d2,d0
+	lsl.l	#3,d0
+	add.l	d0,a0
+	move.l	4(a0),a1
+	move.l	(a0),a0
+	moveq	#1,d0
+	bra	.exit
+.noicon	moveq	#0,d0
+.exit	ret2
+
+;;;;;;;;
+
+RSList	dc.l	0
+
+GetRetStr:		;Get memory for an AMOS-format string.  Pass RSControl
+			;  structure address in A1 and string length in D0.w.
+	pstart2
+	swap	d0
+	clr.w	d0
+	swap	d0
+	addq.l	#6,d0		;2 for length word and 4 for list link
+	bsr	StrAlloc
+	tst.l	d0
+	beq	NoMem
+	move.l	RSList(pc),d1
+	beq	.nolist
+	move.l	d1,a0
+	bra	.cont
+.nolist	lea	RSList(pc),a0
+.cont	move.l	d0,(a0)
+	move.l	d0,a0
+	move.l	d1,(a0)+
+	addq.l	#4,d0
+	ret2
+
+ReturnString:		;Set up string in A0 as a return value (sets D2/D3).
+			;  Preserves all other registers.  Pass RSControl
+			;  address in A1.
+	pstart2
+	movem.l	d0-d1/a0-a2,-(a7)
+	move.l	a1,a2
+	bsr	StrLen
+	move.l	a2,a1
+	move.l	a0,-(a7)
+	move.l	d0,-(a7)
+	bsr	GetRetStr
+	move.l	d0,a1
+	move.l	(a7)+,d0
+	move.l	(a7)+,a0
+.gotstr	move.l	a1,d3
+	move.w	d0,(a1)+
+	tst.w	d0
+	beq	.nostr
+	syscall	CopyMem
+.nostr	moveq	#2,d2
+	movem.l	(a7)+,d0-d1/a0-a2
+	ret2
+
+FlushRetStr:		;Flush all RS's from memory.
+	pstart2
+	move.l	RSList(pc),a0
+	bra	.test
+.loop	move.l	(a0),-(a7)
+	bsr	StrFree
+	move.l	(a7)+,a0
+.test	move.l	a0,d0
+	bne	.loop
+	lea	RSList(pc),a0
+	clr.l	(a0)
+	ret2
diff --git a/extensions/Intuition-41.95/Intuition/src2/errors.s b/extensions/Intuition-41.95/Intuition/src2/errors.s
new file mode 100644
index 0000000..13789aa
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/errors.s
@@ -0,0 +1,214 @@
+;all functions.
+
+	include "errordefs.i"	;Error numbers
+
+	section text,code
+
+	xdef	Error
+	xdef	ProgInt
+	xdef	IllFunc
+	xdef	NoMem
+	xdef	NoFont
+	xdef	NoScr
+	xdef	IllScrParm
+	xdef	IllNumCols
+	xdef	_16Colours
+	xdef	CantOpenScr
+	xdef	NeedKick20
+	xdef	CantOpenWin
+	xdef	NoCloseWin0
+	xdef	NoModWin0
+	xdef	NoWin
+	xdef	WinTooSmall
+	xdef	WinTooLarge
+	xdef	IllWinParm
+	xdef	WinNotClosed
+	xdef	CantOpenWB
+	xdef	ScrNotClosed
+	xdef	NoIcon
+	xdef	NoIconBank
+	xdef	NoErrStr
+	xdef	NoObj
+	xdef	NoObjBank
+	xdef	MixedCoords
+	xdef	MenuActive
+	xdef	InternalErr
+	xdef	InternalErr2
+	xdef	NoReqTools
+	xdef	TooManyGads
+	xdef	GadgetActive
+	xdef	WrongGadType
+	xdef	GadNotDef
+	xdef	GadNotRes
+	xdef	Ascr0to7
+	xdef	BankNotDef
+	xdef	UnknownFmt
+	xdef	Inconsistent
+
+	xref	CustomError
+
+
+Error:		;error # in D0
+	bra	L_CustomError
+
+ProgInt:	;Program interrupted
+	moveq	#E_PI,d0
+	bra	L_CustomError
+
+IllFunc:	;Illegal function cal|
+	moveq	#E_IFC,d0
+	bra	L_CustomError
+
+NoMem:		;Out of memory
+	moveq	#E_OOM,d0
+	bra	L_CustomError
+
+NoFont:		;Font not available
+	moveq	#E_FNA,d0
+	bra	L_CustomError
+
+NoScr:		;Screen not opened
+	moveq	#E_SNO,d0
+	bra	L_CustomError
+
+IllScrParm:	;Illegal screen parameter
+	moveq	#E_ISP,d0
+	bra	L_CustomError
+
+IllNumCols:	;Illegal number of colours
+	moveq	#E_INC,d0
+	bra	L_CustomError
+
+_16Colours:	;Only 16 colours allowed on non-AGA hires screen
+	moveq	#E_16C,d0
+	bra	L_CustomError
+
+CantOpenScr:	;Unable to open screen
+	moveq	#E_UOS,d0
+	bra	L_CustomError
+
+NeedKick20:	;Need Kickstart 2.0 or higher
+	moveq	#E_KS2,d0
+	bra	L_CustomError
+
+CantOpenWin:	;Unable to open window
+	moveq	#E_UOW,d0
+	bra	L_CustomError
+
+NoCloseWin0:	;Window 0 can't be closed
+	moveq	#E_CW0,d0
+	bra	L_CustomError
+
+NoModWin0:	;Window 0 can't be modified
+	moveq	#E_MW0,d0
+	bra	L_CustomError
+
+NoWin:		;Window not opened
+	moveq	#E_WNO,d0
+	bra	L_CustomError
+
+WinTooSmall:	;Window too small
+	moveq	#E_WTS,d0
+	bra	L_CustomError
+
+WinTooLarge:	;Window too large
+	moveq	#E_WTL,d0
+	bra	L_CustomError
+
+IllWinParm:	;Illegal window parameter
+	moveq	#E_IWP,d0
+	bra	L_CustomError
+
+WinNotClosed:	;Window not closed
+	moveq	#E_WNC,d0
+	bra	L_CustomError
+
+CantOpenWB:	;Unable to open Workbench
+	moveq	#E_NWB,d0
+	bra	L_CustomError
+
+ScrNotClosed:	;Screen not closed
+	moveq	#E_SNC,d0
+	bra	L_CustomError
+
+NoIcon:		;Icon not defined
+	moveq	#E_IND,d0
+	bra	L_CustomError
+
+NoIconBank:	;Icon bank not defined
+	moveq	#E_NIB,d0
+	bra	L_CustomError
+
+NoErrStr:	;Error text not available
+	moveq	#E_NES,d0
+	bra	L_CustomError
+
+NoObj:		;Object not defined
+	moveq	#E_OND,d0
+	bra	L_CustomError
+
+NoObjBank:	;Object bank not defined
+	moveq	#E_NOB,d0
+	bra	L_CustomError
+
+MixedCoords:	;Backward coordinates
+	moveq	#E_BWC,d0
+	bra	L_CustomError
+
+MenuActive:	;Menu already active
+	moveq	#E_MAA,d0
+	bra	L_CustomError
+
+InternalErr:	;Internal error, code xxxxxxxx
+		;Value for xxxxxxxx should be in D1
+	moveq	#E_INT,d0
+	bra	L_CustomError
+
+InternalErr2:	;Internal error, code xxxxxxxx, subcode yyyyyyyy
+		;Value for xxxxxxxx should be in D1, yyyyyyyy in D2
+	moveq	#E_IN2,d0
+	bra	L_CustomError
+
+NoReqTools:	;ReqTools.library version 2 or higher required
+	moveq	#E_NRT,d0
+	bra	L_CustomError
+
+TooManyGads:	;Only 65535 gadgets allowed
+	moveq	#E_TMG,d0
+	bra	L_CustomError
+
+GadgetActive:	;Gadget already active
+	moveq	#E_GAA,d0
+	bra	L_CustomError
+
+WrongGadType:	;Wrong gadget type
+	moveq	#E_WGT,d0
+	bra	L_CustomError
+
+GadNotDef:	;Gadget not defined
+	moveq	#E_GND,d0
+	bra	L_CustomError
+
+GadNotRes:	;Gadget not reserved
+	moveq	#E_GNR,d0
+	bra	L_CustomError
+
+Ascr0to7:	;Valid AMOS screen numbers range from 0 to 7
+	moveq	#E_ASN,d0
+	bra	L_CustomError
+
+BankNotDef:	;Bank not defined
+	moveq	#E_BND,d0
+	bra	L_CustomError
+
+UnknownFmt:	;Bank format not understood
+	moveq	#E_FNU,d0
+	bra	L_CustomError
+
+Inconsistent:	;Inconsistent data
+	moveq	#E_IDT,d0
+	bra	L_CustomError
+
+L_CustomError:
+	move.l	CustomError(pc),a0
+	jmp	(a0)
diff --git a/extensions/Intuition-41.95/Intuition/src2/graphics.s b/extensions/Intuition-41.95/Intuition/src2/graphics.s
new file mode 100644
index 0000000..199d70f
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/graphics.s
@@ -0,0 +1,184 @@
+;Graphics-related stuff
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xref	DataBase
+	xref	NoMem
+	xref	NoScr
+
+	xdef	GetCurRP
+	xdef	ClearGadget
+	xdef	ReadPixel
+	xdef	WritePixel
+	xdef	AllocTmpRas
+	xdef	FreeTmpRas
+
+
+GetCurRP:		;Get current RastPort address
+	pstart2
+	dmove.l	CurIwindow,d0
+	beq	.nowin
+	move.l	d0,a0
+	move.l	wd_RPort(a0),d0
+	ret2
+.nowin	dmove.l	CurIscreen,d0
+	beq	NoScr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_RPort(a0),d0
+	ret2
+
+ClearGadget:		;Erase gadget A0 from window A1.
+	pstart2
+	movem.l	d2-d4,-(a7)
+	move.w	gg_LeftEdge(a0),d0
+	move.w	gg_TopEdge(a0),d1
+	move.w	d0,d2
+	move.w	d1,d3
+	add.w	gg_Width(a0),d2
+	add.w	gg_Height(a0),d3
+	subq.w	#1,d2
+	subq.w	#1,d3
+	move.w	#~GADGETTYPE,d4
+	and.w	gg_GadgetType(a0),d4
+	cmp.w	#STRGADGET,d4
+	bne	.clear
+	subq.w	#4,d0
+	subq.w	#2,d1
+	addq.w	#8,d2
+	addq.w	#4,d3
+.clear	move.l	wd_RPort(a1),a1
+	gfxcall	EraseRect
+	movem.l	(a7)+,d2-d4
+	ret2
+
+ReadPixel:		;Replacement for graphics.library ReadPixel()
+	movem.l	d2-d3/a2,-(a7)
+	move.l	rp_BitMap(a1),a0
+	mulu	bm_BytesPerRow(a0),d1
+	swap	d0
+	clr.w	d0
+	swap	d0
+	move.w	d0,d2
+	lsr.w	#3,d0
+	add.l	d1,d0
+	and.w	#7,d2
+	eor.w	#7,d2
+	moveq	#0,d1
+	moveq	#0,d3
+	addq.l	#bm_Planes,a0
+.bplp	move.l	(a0)+,a2
+	btst	d2,0(a2,d0.l)
+	beq	.nextbp
+	bset	d1,d3
+.nextbp	addq.b	#1,d1
+	cmp.b	bm_Depth(a1),d1
+	bcs	.bplp
+	move.l	d3,d0
+	movem.l	(a7)+,d2-d3/a2
+	rts
+
+WritePixel:
+      ifd FAST_WRITEPIXEL
+;Replacement for graphics.library WritePixel()
+	movem.l	d2-d5,-(a7)
+	move.l	rp_BitMap(a1),a0
+	mulu	bm_BytesPerRow(a0),d1
+	swap	d0
+	clr.w	d0
+	swap	d0
+	move.w	d0,d2
+	lsr.w	#3,d0
+	add.l	d1,d0
+	and.w	#7,d2
+	eor.w	#7,d2
+	moveq	#7,d1
+	addq.l	#bm_Planes,a0
+	move.b	rp_FgPen(a1),d3
+	move.b	rp_Mask(a1),d4
+.bplp	move.l	(a0)+,a1
+	move.l	a1,d5
+	beq	.nextbp
+	lsr.b	#1,d4
+	beq	.nextbp
+	lsr.b	#1,d3
+	bcc	.clrbit
+	bset	d2,0(a0,d0.l)
+	bra	.nextbp
+.clrbit	bclr	d2,0(a0,d0.l)
+.nextbp	dbra	d1,.bplp
+	move.l	d3,d0
+	movem.l	(a7)+,d2-d5
+	rts
+      else
+;Stub - just use standard WritePixel() (assumes A4 contains DataBase, just
+;  like a gfxcall)
+	pstart2
+	dmove.l	GfxBase,a6
+	jsr	_LVOWritePixel(a6)
+	ret2
+      endc
+
+AllocTmpRas:		;Allocate a TmpRas structure given RastPort in A0
+	pstart2
+	movem.l	d3/a2-a3,-(a7)
+	move.l	a0,a2
+	moveq	#tr_sizeof,d0
+	moveq	#MEMF_PUBLIC,d1
+	syscall	AllocMem
+	move.l	d0,a3
+	move.l	a3,d0
+	beq	NoMem
+	move.l	rp_BitMap(a2),a1
+	move.w	bm_BytesPerRow(a1),d0
+	mulu	bm_Rows(a1),d0
+	move.l	d0,d3
+	moveq	#MEMF_PUBLIC|MEMF_CHIP,d1
+	call	AllocMem
+	tst.l	d0
+	bne	.gotras
+	move.l	a3,a1
+	moveq	#tr_sizeof,d0
+	call	FreeMem
+	bra	NoMem
+.gotras	move.l	d0,a1
+	move.l	d3,d0
+	move.l	a3,a0
+	gfxcall	InitTmpRas
+	move.l	a3,rp_TmpRas(a2)
+	movem.l	(a7)+,d3/a2-a3
+	ret2
+
+FreeTmpRas:		;Free TmpRas structure from RastPort in A0
+	move.l	a2,-(a7)
+	move.l	rp_TmpRas(a0),a2
+	move.l	a2,d0
+	beq	.exit			;No TmpRas
+	clr.l	rp_TmpRas(a0)
+	move.l	tr_RasPtr(a2),a1
+	move.l	tr_Size(a2),d0
+	syscall	FreeMem
+	move.l	a2,a1
+	moveq	#tr_sizeof,d0
+	syscall	FreeMem
+.exit	move.l	(a7)+,a2
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/src2/input.s b/extensions/Intuition-41.95/Intuition/src2/input.s
new file mode 100644
index 0000000..bd56e53
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/input.s
@@ -0,0 +1,313 @@
+;Input routines
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xref	DataBase
+	xref	NoScr
+	xref	InternalErr
+	xref	InternalErr2
+	xref	ProgInt
+	xref	GetCurWin
+	xref	GetSomeWinFlags
+	xref	SetSomeWinFlags
+
+	xdef	GetCurInput
+	xdef	ConvRawKey
+	xdef	DoEvent
+	xdef	GetKey
+	xdef	GetMouse
+	xdef	GetMenu
+
+
+GetCurInput:			;Get current input port to D0
+	pstart2
+	dmove.l	CurIwindow,d0
+	beq	.nowin
+	move.l	d0,a0
+	move.l	wd_UserPort(a0),d0
+	ret2
+.nowin	dmove.l	CurIscreen,d0
+	beq	NoScr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_UserPort(a0),d0
+	ret2
+
+ConvRawKey:			;Convert raw key code to character.  D0=code,
+				;  D1=qualifier.  Return 0 if not convertable.
+	pstart2
+	move.l	a2,-(a7)
+	sub.l	#ie_sizeof+2,a7
+	clr.l	ie_NextEvent(a7)
+	move.b	#1,ie_Class(a7)		;IECLASS_RAWKEY
+	move.w	d0,ie_Code(a7)
+	move.w	d1,ie_Qualifier(a7)
+	dmove.l	ConsoleDevice,a6
+	move.l	a7,a0
+	lea	ie_sizeof+1(a7),a1
+	moveq	#1,d1
+	sub.l	a2,a2
+	jsr	-$30(a6)		;RawKeyConvert()
+	add.l	#ie_sizeof,a7
+	tst.l	d0
+	bmi	.notok
+	move.w	(a7)+,d0
+	bra	.done
+.notok	moveq	#0,d0
+	addq.l	#2,a7
+.done	move.l	(a7)+,a2
+	ret2
+
+DoEvent:		;Get an event from port in A0 and do something.  Keep
+			;  repeating until im_Class & D0 or no more messages.
+			;  Return Z clear if im_Class & D0, set otherwise.
+			;  im_Class of the last message is returned in D0.
+			;  Depending on im_Class, a return value may be in D1.
+	pstart2
+	movem.l	d2-d3/a2,-(a7)
+	move.l	d0,d2
+	move.l	a0,-(a7)
+	cmp.b	#NT_MSGPORT,ln_Type(a0)
+	beq	.lp
+	move.l	#$44457605,d1
+	bsr	InternalErr
+.lp	move.l	(a7),a0
+	syscall	GetMsg
+	tst.l	d0
+	beq	.exit
+	move.l	d0,a0
+	move.l	a0,a2
+	move.l	im_Class(a0),d3
+	cmp.l	#CLOSEWINDOW,d3
+	bne	.notcw
+	move.l	im_IDCMPWindow(a0),a0
+	moveq	#WEF_CLOSED,d0
+	move.l	d0,d1
+	bsr	SetSomeWinFlags
+	bra	.endlp
+.notcw	cmp.l	#RAWKEY,d3
+	bne	.notrk
+	move.w	im_Code(a0),d0
+	cmp.w	#$60,d0			;Ignore key up and shifting-key events
+	bcs	.keyok
+	moveq	#0,d3
+	bra	.endlp
+.keyok	move.w	im_Qualifier(a0),d1
+	dmove.l	KeyBufPtr,a0		;Get pointer to next event to read
+	dmove.l	KeyBufNext,a1		;Get pointer to current end of buffer
+	sub.w	#ke_sizeof,a1		;Are we out of buffer?
+	cmp.l	a0,a1
+	bne	.setke
+	moveq	#0,d3			;Yes, discard event
+	bra	.endlp
+.setke	move.b	d0,ke_code(a0)		;Save event data in buffer
+	move.b	d1,ke_qual(a0)
+	move.l	a0,-(a7)
+	bsr	ConvRawKey
+	move.l	(a7)+,a0
+	move.b	d0,ke_char(a0)
+	add.l	#ke_sizeof,a0
+	dcmp.l	KeyBufEnd,a0		;Update pointer (buffer is circular)
+	bne	.chkbrk
+	dmove.l	KeyBuffer,a0
+.chkbrk	tmove.l	a0,KeyBufPtr
+	cmp.b	#3,d0			;Ctrl-C interrupts program
+	bne	.endlp
+	bra	ProgInt
+.notrk	cmp.l	#MOUSEBUTTONS,d3
+	bne	.notmb
+	move.b	im_Code+1(a0),d0
+	bclr	#7,d0
+	seq	d1			;D1 == 0 if release, != 0 if press
+	and.w	#3,d0			;SELECTDOWN is $68, MENUDOWN $69
+	tst.b	d1
+	bne	.mbset
+	dmove.b	MouseState,d1
+	bclr	d0,d1
+	tmove.b	d1,MouseState
+	bra	.mbdone
+.mbset	dmove.b	MouseState,d1
+	bclr	d0,d1
+	tmove.b	d1,MouseState
+.mbdone	bra	.endlp
+.notmb	cmp.l	#MENUPICK,d3
+	bne	.notmu
+	move.w	im_Code(a0),d1
+	dmove.l	MenuBufPtr,a0
+	dmove.l	MenuBufNext,a1
+	sub.w	#ue_sizeof,a1
+	cmp.l	a0,a1
+	bne	.setmu
+	moveq	#0,d3
+	bra	.endlp
+.setmu	move.w	d1,ue_menupick(a0)
+	add.l	#ue_sizeof,a0
+	dcmp.l	MenuBufEnd,a0
+	bne	.muset
+	dmove.l	MenuBuffer,a0
+.muset	tmove.l	a0,MenuBufPtr
+	bra	.endlp
+.notmu	cmp.l	#GADGETDOWN,d3
+	bne	.notgd
+	move.l	im_IAddress(a0),a1
+	move.l	gg_UserData(a1),a0
+	;Check whether this is really one of our gadgets.  (It should be,
+	;  but this can't hurt...)
+	cmp.l	#GADGET_MAGIC,ge_MagicID(a0)
+	bne	.badgad
+	or.l	#GEF_GADGETDOWN,ge_Flags(a0)
+	moveq	#0,d0				;Return gadget number
+	move.w	gg_GadgetID(a1),d0
+	bra	.endlp
+.notgd	cmp.l	#GADGETUP,d3
+	bne	.notgu
+	move.l	im_IAddress(a0),a1
+	move.l	gg_UserData(a1),a0
+	cmp.l	#GADGET_MAGIC,ge_MagicID(a0)
+	bne	.badgad
+	and.l	#~GEF_GADGETDOWN,ge_Flags(a0)
+	moveq	#0,d0				;Return gadget number
+	move.w	gg_GadgetID(a1),d0
+	move.w	#~GADGETTYPE,d1
+	and.w	gg_GadgetType(a1),d1
+	cmp.w	#BOOLGADGET,d1
+	bne	.endlp
+	move.w	#TOGGLESELECT,d1
+	and.w	gg_Activation(a1),d1
+	bne	.endlp
+	addq.w	#1,ge_HitCount(a0)
+	bra	.endlp
+.badgad	moveq	#0,d3
+	bra	.endlp
+.notgu
+.endlp	move.l	d0,-(a7)
+	move.l	a2,a1
+	syscall	ReplyMsg
+	move.l	(a7)+,d1			;Message's return value to D1
+	cmp.l	#CLOSEWINDOW,d3
+	beq	.done
+.test	and.l	d2,d3
+	beq	.lp
+.done	move.l	d3,d0
+.exit	addq.l	#4,a7
+	movem.l	(a7)+,d2-d3/a2
+	ret2
+
+GetKey:			;Read key from buffer, return Z set if no key pressed.
+			;  Input port in A0.
+	pstart2
+	cmp.b	#NT_MSGPORT,ln_Type(a0)
+	beq	.portok
+	move.l	#$6B655F02,d1
+	bsr	InternalErr
+.portok	move.l	#RAWKEY,d0
+	bsr	DoEvent
+	dmove.l	KeyBufNext,a0
+	dcmp.l	KeyBufPtr,a0
+	beq	.nokey
+	moveq	#0,d0
+	move.b	ke_code(a0),d0
+	tmove.w	d0,LastCode
+	move.b	ke_qual(a0),d0
+	tmove.w	d0,LastQual
+	move.b	ke_char(a0),d0
+	tmove.b	d0,LastChar
+	add.l	#ke_sizeof,a0
+	dcmp.l	KeyBufEnd,a0
+	bcs	.set
+	dmove.l	KeyBuffer,a0
+.set	tmove.l	a0,KeyBufNext
+	moveq	#1,d1
+	ret2
+.nokey	dclr.w	LastCode
+	dclr.w	LastQual
+	dclr.b	LastChar
+	moveq	#0,d0
+	ret2
+
+GetMouse:		;Read MB event, return Z set if none available.  Input
+			;  port in A0.
+	pstart2
+	cmp.b	#NT_MSGPORT,ln_Type(a0)
+	beq	.portok
+	move.l	#$6D655F02,d1
+	bsr	InternalErr
+.portok	move.l	#MOUSEBUTTONS,d0
+	bsr	DoEvent
+	ret2
+
+GetMenu:		;Read menu event, return Z set if none available.
+			;  Input port in A0.
+	pstart2
+	movem.l	d2/a2,-(a7)
+	move.l	a0,a2
+	cmp.b	#NT_MSGPORT,ln_Type(a2)
+	beq	.portok
+	move.l	#$75655F04,d1
+	bsr	InternalErr
+.portok	move.l	#MENUPICK,d0
+	move.l	a2,a0
+	bsr	DoEvent
+	dmove.l	MenuBufNext,a0
+	dcmp.l	MenuBufPtr,a0
+	beq	.nomenu
+	move.w	ue_menupick(a0),d2
+	add.l	#ue_sizeof,a0
+	dcmp.l	MenuBufEnd,a0
+	bcs	.set
+	dmove.l	MenuBuffer,a0
+.set	tmove.l	a0,MenuBufNext
+	cmp.w	#MENUNULL,d2
+	beq	.portok
+	bsr	GetCurWin
+	tst.l	d0
+	bne	.okwin
+	move.l	#$75655F16,d1
+	bsr	InternalErr
+.okwin	move.l	d0,a0
+	move.l	wd_UserData(a0),a0
+	move.l	we_FirstMenu(a0),a0
+	move.w	d2,d0
+	intcall	ItemAddress
+	tst.l	d0
+	bne	.okitem
+	move.l	#$75655F1F,d1
+	exg	d2,d3
+	moveq	#0,d2
+	move.w	d3,d2
+	bsr	InternalErr2
+.okitem	move.l	d0,a0
+	tst.w	mi_IsSubitem(a0)
+	bne	.issub
+	dclr.w	LastMenuSub
+	bra	.doitem
+.issub	tmove.w	mi_ItemNum(a0),LastMenuSub
+	move.l	mi_Parent(a0),a0
+.doitem	tmove.w	mi_ItemNum(a0),LastMenuItem
+	move.l	mi_Parent(a0),a0
+	tmove.w	mu_MenuNum(a0),LastMenu
+	moveq	#1,d1
+	movem.l	(a7)+,d2/a2
+	ret2
+.nomenu	moveq	#0,d0
+	movem.l	(a7)+,d2/a2
+	ret2
diff --git a/extensions/Intuition-41.95/Intuition/src2/intmisc.s b/extensions/Intuition-41.95/Intuition/src2/intmisc.s
new file mode 100644
index 0000000..baff58f
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/intmisc.s
@@ -0,0 +1,178 @@
+;Miscellaneous Intuition functions
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xref	DataBase
+	xref	IllFunc
+	xref	NoReqTools
+	xref	GetCurIwin2
+	xref	StrAlloc
+
+	xdef	FindImenu
+	xdef	FindImenuItem
+	xdef	FindImenuSub
+	xdef	EZRequest
+
+
+FindImenu:		;Return address of menu #D0 in D0/A0, prev in A1 (Z 
+			;  flag set accordingly)
+	pstart2
+	move.w	d2,-(a7)
+	move.w	d0,d2
+	bsr	GetCurIwin2
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a0
+	move.l	we_FirstMenu(a0),a0
+	sub.l	a1,a1
+.loop	move.l	a0,d0
+	beq	.exit
+	cmp.w	mu_MenuNum(a0),d2
+	beq	.exit
+	bcs	.high
+	move.l	a0,a1
+	move.l	mu_NextMenu(a0),a0
+	bra	.loop
+.high	moveq	#0,d0
+	move.l	d0,a0
+.exit	move.w	(a7)+,d2
+	tst.l	d0
+	ret2
+
+FindImenuItem:		;Return address of menu A0 item #D0 in D0/A0, prev in
+			;  A1 (Z flag set accordingly)
+	pstart2
+	move.w	d0,d1
+	move.l	mu_FirstItem(a0),a0
+	sub.l	a1,a1
+.loop	move.l	a0,d0
+	beq	.exit
+	cmp.w	mi_ItemNum(a0),d1
+	beq	.exit
+	bcs	.high
+	move.l	a0,a1
+	move.l	mi_NextItem(a0),a0
+	bra	.loop
+.high	moveq	#0,d0
+	move.l	d0,a0
+.exit	ret2
+
+FindImenuSub:		;Return address of item A0 subitem #D0 in D0/A0, prev
+			;  in A1
+	pstart2
+	move.l	mi_SubItem(a0),a0
+	sub.l	a1,a1
+.loop	move.l	a0,d1
+	beq	.exit
+	cmp.w	mi_ItemNum(a0),d0
+	beq	.exit
+	bcs	.high
+	move.l	a0,a1
+	move.l	mi_NextItem(a0),a0
+	bra	.loop
+.high	moveq	#0,d0
+	move.l	d0,a0
+.exit	ret2
+
+EZRequest:		;Call rtEZRequest.  On entry, title should be in A0
+			;  (AMOS format), body string should be in A1 (AMOS
+			;  format), gadget string in A2 (null terminated), and
+			;  additional flags (besides EZREQF_CENTERTEXT) in D0.
+			;  Returns result (ID of gadget selected) in D0.
+			;  If title (A0) is NULL, default title is used.
+	pstart2
+	tst.b	(a2)
+	beq	IllFunc
+	movem.l	d2/a2-a6,-(a7)
+	move.l	a0,a3
+	lea	.tags+12(pc),a0
+	or.l	d0,(a0)
+	moveq	#0,d0
+	move.w	(a1)+,d0
+	move.w	d0,d2
+	subq.w	#1,d2
+	bmi	.nobody
+	move.l	a1,a4
+	bsr	StrAlloc
+	move.l	d0,a5
+	move.l	a5,a1
+.lp	move.b	(a4)+,d0
+	cmp.b	#'|',d0
+	bne	.next
+	moveq	#10,d0
+.next	move.b	d0,(a1)+
+	dbra	d2,.lp
+	clr.b	(a1)
+.nobody	move.l	a3,d0
+	beq	.nottl
+	tst.w	(a3)
+	beq	.nottl
+	moveq	#0,d0
+	move.w	(a3)+,d0
+	move.w	d0,d2
+	bsr	StrAlloc
+	move.l	d0,a4
+	moveq	#0,d0
+	move.w	d2,d0
+	beq	.blank
+	move.l	a3,a0
+	move.l	a4,a1
+	syscall	CopyMem
+	clr.b	0(a4,d2.w)
+	bra	.call
+.blank	clr.b	(a4)
+	bra	.call
+.nottl	dinit2	a0
+	amove.l	DefReqTitle,a4,a0
+.call	move.l	a5,a1
+	dinit2	a5
+	lea	.tags(pc),a0
+	move.l	a4,20(a0)
+	amove.l	CurIwindow,d0,a5
+	bne	.setwin
+	amove.l	CurIscreen,d0,a5
+	bne	.setscr
+	addq.l	#8,a0
+	bra	.setreq
+.setscr	move.l	d0,a6
+	move.l	sc_UserData(a6),a6
+	move.l	se_BaseWin(a6),d0
+.setwin	move.l	d0,4(a0)
+.setreq	sub.l	a3,a3
+	sub.l	a4,a4
+	atst.l	ReqToolsBase,a5
+	beq	NoReqTools
+	amove.l	ReqToolsBase,a6,a5
+	call	rtEZRequestA
+	tst.w	d0
+	bne	.exit
+	moveq	#1,d0
+.lp2	move.b	(a2)+,d1
+	beq	.exit
+	cmp.b	#'|',d1
+	bne	.lp2
+	addq.w	#1,d0
+	bra	.lp2
+.exit	movem.l	(a7)+,d2/a2-a6
+	ret2
+.tags	dc.l RT_Window,0
+	dc.l RTEZ_Flags,EZREQF_CENTERTEXT
+	dc.l RTEZ_ReqTitle,0
+	dc.l TAG_END
diff --git a/extensions/Intuition-41.95/Intuition/src2/iutils.s b/extensions/Intuition-41.95/Intuition/src2/iutils.s
new file mode 100644
index 0000000..945c1c9
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/iutils.s
@@ -0,0 +1,84 @@
+;Internal utility routines for Intuition Extension.  Note that these follow
+;the Commodore library function standard for registers: D0/D1/A0/A1 are
+;trashed (unless the function says otherwise; e.g. a return value), while all
+;other registers are preserved.
+;
+;This file just contains very basic routines.
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xdef	LongMul
+	xdef	LongDiv
+	xdef	StrLen
+	xdef	RTS
+
+
+LongMul:		;Multiply a 32-bit number in D0 by a 16-bit number in
+			;  D1.  Returns 32-bit product in D0.  Multiplication
+			;  is unsigned.  Registers A0-A1 are preserved.
+	move.l	d2,-(a7)
+	move.w	d0,d2
+	mulu	d1,d2
+	swap	d0
+	mulu	d1,d0
+	swap	d0
+	tst.w	d0
+	bne	.ovrflw
+	clr.w	d0
+	add.l	d2,d0
+	move.l	(a7)+,d2
+	tst.l	d0
+	rts
+.ovrflw	move.l	(a7)+,d2
+	or.w	#2,ccr
+	rts
+
+LongDiv:		;Divide a 32-bit number in D0 by a 16-bit number in D1
+			;  without overflow.  Returns 32-bit quotient in D0
+			;  and remainder in D1.  Division is unsigned.
+			;  Registers A0-A1 are preserved.
+	movem.l	d2-d3,-(a7)
+	move.l	d0,d2
+	clr.w	d0
+	swap	d0
+	divu	d1,d0
+	move.w	d0,d3
+	swap	d3
+	move.w	d2,d0
+	divu	d1,d0
+	move.w	d0,d3
+	swap	d0
+	moveq	#0,d1
+	move.w	d0,d1
+	move.l	d3,d0
+	movem.l	(a7)+,d2-d3
+	rts
+
+StrLen:			;Return length of string in A0.  Leaves A0 alone.
+	move.l	a0,a1
+	moveq	#-1,d0
+.lp	addq.l	#1,d0
+	tst.b	(a1)+
+	bne	.lp
+	rts
+
+RTS:			;Just an RTS.  Possibly useful in some cases.
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/src2/jumptable.s b/extensions/Intuition-41.95/Intuition/src2/jumptable.s
new file mode 100644
index 0000000..38e7cda
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/jumptable.s
@@ -0,0 +1,128 @@
+;Jump table
+
+	xdef	JumpTable
+
+	xref	Startup
+	xref	CloseAll
+	xref	Quit
+	xref	GetBankAdr
+	xref	CreateBank
+	xref	FindAscr
+	xref	ClearGadget
+	xref	FindSprite
+	xref	FindIcon
+	xref	FreeImenu
+	xref	FreeImenuItem
+	xref	FindImenu
+	xref	FindImenuItem
+	xref	FindImenuSub
+	xref	GetCurWin
+	xref	SetCoordsRel
+	xref	AllocMemClear
+	xref	AllocTmpRas
+	xref	FreeTmpRas
+	xref	StrAlloc
+	xref	StrFree
+	xref	FindIscr
+	xref	GetCurIscr
+	xref	FindIwin
+	xref	FindIwin2
+	xref	FindWBIwin
+	xref	GetCurIwin
+	xref	GetCurIwin2
+	xref	GetCurRP
+	xref	CheckCloseIscr
+	xref	CloseWin
+	xref	CloseIscr
+	xref	CloseIwin
+	xref	CloseWBIwin
+	xref	GetCurInput
+	xref	ConvRawKey
+	xref	DoEvent
+	xref	GetKey
+	xref	GetMouse
+	xref	GetMenu
+	xref	LongMul
+	xref	LongDiv
+	xref	SetCoords
+	xref	GetWinFlags
+	xref	GetSomeWinFlags
+	xref	SetWinFlags
+	xref	SetSomeWinFlags
+	xref	GetActiveWin
+	xref	StrLen
+	xref	ReturnString
+	xref	GetRetStr
+	xref	FlushRetStr
+	xref	RTS
+	xref	AllocRequest
+	xref	EZRequest
+	xref	CreatePort
+	xref	DeletePort
+	xref	ReadPixel
+	xref	WritePixel
+	xref	OpenIwin
+	xref	OpenIscr
+
+JumpTable:
+	bra	Startup
+	bra	CloseAll
+	bra	Quit
+	bra	GetBankAdr
+	bra	CreateBank
+	bra	FindAscr
+	bra	ClearGadget
+	bra	FindSprite
+	bra	FindIcon
+	bra	FreeImenu
+	bra	FreeImenuItem
+	bra	FindImenu
+	bra	FindImenuItem
+	bra	FindImenuSub
+	bra	GetCurWin
+	bra	SetCoordsRel
+	bra	AllocMemClear
+	bra	AllocTmpRas
+	bra	FreeTmpRas
+	bra	StrAlloc
+	bra	StrFree
+	bra	FindIscr
+	bra	GetCurIscr
+	bra	FindIwin
+	bra	FindIwin2
+	bra	FindWBIwin
+	bra	GetCurIwin
+	bra	GetCurIwin2
+	bra	GetCurRP
+	bra	CheckCloseIscr
+	bra	CloseWin
+	bra	CloseIscr
+	bra	CloseIwin
+	bra	CloseWBIwin
+	bra	GetCurInput
+	bra	ConvRawKey
+	bra	DoEvent
+	bra	GetKey
+	bra	GetMouse
+	bra	GetMenu
+	bra	LongMul
+	bra	LongDiv
+	bra	SetCoords
+	bra	GetWinFlags
+	bra	GetSomeWinFlags
+	bra	SetWinFlags
+	bra	SetSomeWinFlags
+	bra	GetActiveWin
+	bra	StrLen
+	bra	ReturnString
+	bra	GetRetStr
+	bra	FlushRetStr
+	bra	RTS
+	bra	AllocRequest
+	bra	EZRequest
+	bra	CreatePort
+	bra	DeletePort
+	bra	ReadPixel
+	bra	WritePixel
+	bra	OpenIwin
+	bra	OpenIscr
diff --git a/extensions/Intuition-41.95/Intuition/src2/memory.s b/extensions/Intuition-41.95/Intuition/src2/memory.s
new file mode 100644
index 0000000..c1e5d6e
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/memory.s
@@ -0,0 +1,222 @@
+;Memory-related routines (allocating/freeing memory, structures etc.)
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xref	DataBase
+	xref	NoMem
+	xref	InternalErr
+	xref	NoReqTools
+
+	xdef	FreeImenu
+	xdef	FreeImenuItem
+	xdef	AllocMemClear
+	xdef	StrAlloc
+	xdef	StrFree
+	xdef	AllocRequest
+	xdef	CreatePort
+	xdef	DeletePort
+
+
+FreeImenu:		;Free menu in A0.
+	pstart2
+	movem.l	a2/a3,-(a7)
+	move.l	a0,a2
+	move.l	mu_FirstItem(a2),d0	;Free menu items, if any
+	beq	.noitem
+.lp	move.l	d0,a0
+	move.l	mi_NextItem(a0),a3
+	bsr	FreeImenuItem
+	move.l	a3,d0
+	bne	.lp
+.noitem	move.l	mu_MenuName(a2),a0	;Free menu title string
+	bsr	StrFree
+	moveq	#mu_sizeof,d0
+	move.l	a2,a1
+	syscall	FreeMem
+	movem.l	(a7)+,a2/a3
+	ret2
+
+FreeImenuItem:		;Free MenuItem in A0.
+	pstart2
+	movem.l	a2/a5,-(a7)
+	move.l	a0,a2
+	move.l	mi_SubItem(a2),d0
+	beq	.nosub
+	move.l	a2,-(a7)
+.lp	move.l	d0,a2			;Free subitems
+	move.l	a2,a0
+	move.l	mi_NextItem(a2),a5
+	bsr	FreeImenuItem
+	move.l	a5,d0
+	bne	.lp
+	move.l	(a7)+,a2
+.nosub	move.l	mi_ItemFill(a2),a5
+	move.l	it_IText(a5),a0
+	bsr	StrFree
+	move.l	a5,a1
+	moveq	#it_sizeof,d0
+	syscall	FreeMem
+	moveq	#mi_sizeof,d0
+	move.l	a2,a1
+	syscall	FreeMem
+	movem.l	(a7)+,a2/a5
+	ret2
+
+AllocMemClear:		;AllocMem(size, flags | MEMF_CLEAR)
+      ifd MEMF_CLEAR_BUG
+	move.l	d0,-(a7)
+	move.l	a6,-(a7)
+	syscall	AllocMem
+	move.l	(a7)+,a6
+	move.l	(a7)+,d1
+	tst.l	d0
+	beq	.exit		;Don't generate an error - there might be
+				;  stuff to clean up.
+	move.l	d0,a0
+	move.l	d0,a1
+	addq.l	#3,d1		;Don't worry about overrun - memory is always
+	lsr.l	#2,d1		;  allocated in blocks of 8 bytes.  Just make
+	subq.l	#1,d1		;  sure we clear the entire requested area.
+.lp	clr.l	(a1)+
+	dbra	d1,.lp
+	move.l	a0,d0
+.exit	rts
+      else
+	or.l	#MEMF_CLEAR,d1
+	move.l	a6,-(a7)
+	syscall	AllocMem
+	move.l	(a7)+,a6
+	rts
+      endc
+
+StrAlloc:		;Allocate a string, length in D0 (not counting \0)
+	pstart2
+	move.l	d2,-(a7)
+	add.l	#13,d0
+	move.l	d0,d2
+	moveq	#MEMF_PUBLIC,d1
+	syscall	AllocMem
+	move.l	d0,a0
+	move.l	a0,d0
+	beq	NoMem
+	dlea	FirstString,a1
+	move.l	(a1),a6
+	move.l	a6,(a0)		;next
+	move.l	a6,d0
+	beq	.nonext
+	move.l	a0,4(a6)	;next->prev
+.nonext	move.l	a0,(a1)		;prev->next (==FirstString)
+	addq.l	#4,a0
+	move.l	a1,(a0)+	;prev
+	move.l	d2,(a0)+	;len
+	move.l	a0,d0
+	move.l	(a7)+,d2
+	ret2
+
+StrFree:		;Free a string, string adr in A0
+	move.l	a0,d0
+	beq	.exit
+	move.l	a6,-(a7)
+	move.l	-(a0),d0	;len
+	move.l	-(a0),a1	;prev
+	move.l	-(a0),(a1)	;next (=> prev->next)
+	beq	.nonext
+	move.l	(a1),a1		;prev => next->prev
+	move.l	4(a0),4(a1)
+.nonext	move.l	a0,a1
+	syscall	FreeMem
+	move.l	(a7)+,a6
+.exit	rts
+
+AllocRequest:		;Allocate a ReqTools requester of type D0
+	pstart2
+	sub.l	a0,a0
+	rtcall1	rtAllocRequestA
+	tst.l	d0
+	beq	NoMem
+	ret2
+
+CreatePort:	;Create a message port; priority in D0, name (if public port)
+		;  in A0.  Returns port address or 0 in D0.
+	movem.l	d5-d7/a2,-(a7)
+	move.l	d0,d7
+	move.l	a0,a2
+	moveq	#-1,d0
+	syscall	AllocSignal
+	move.b	d0,d6
+	bge	.initmp
+	clr.l	d0
+	bra	.exitcp
+.initmp	move.l	#mp_sizeof,d0
+	moveq	#MEMF_PUBLIC,d1
+	bsr	AllocMemClear
+	move.l	d0,d5
+	bne	.initmn
+	move.b	d6,d0
+	syscall	FreeSignal
+	clr.l	d0
+	bra	.exitcp
+.initmn	move.l	d0,a1
+	move.l	a2,ln_Name(a1)
+	move.b	d7,ln_Pri(a1)
+	move.b	#NT_MSGPORT,ln_Type(a1)
+	move.b	#PA_SIGNAL,mp_Flags(a1)
+	move.b	d6,mp_SigBit(a1)
+	move.l	a1,-(a7)
+	sub.l	a1,a1
+	syscall	FindTask
+	move.l	(a7)+,a1
+	move.l	d0,mp_SigTask(a1)
+	cmp.l	#0,a2
+	bne	.public
+	lea	mp_MsgList(a1),a0
+	move.l	a0,(a0)
+	addq.l	#lh_Tail,(a0)
+	clr.l	lh_Tail(a0)
+	move.l	a0,lh_TailPred(a0)
+	move.l	d5,d0
+	bra	.exitcp
+.public	move.l	d5,a1
+	syscall	AddPort
+	move.l	d5,d0
+.exitcp	movem.l	(a7)+,d5-d7/a2
+	rts
+
+DeletePort:		;Delete a message port (in A0).
+	move.l	a2,-(a7)
+	cmp.b	#NT_MSGPORT,ln_Type(a0)
+	beq	.okport
+	move.l	#$446C5002,d1
+	bsr	InternalErr
+.okport	move.l	a0,a2
+	tst.l	ln_Name(a2)
+	beq	.delete
+	move.l	a2,a1
+	syscall	RemPort
+.delete	move.l	#-1,mp_SigTask(a2)
+	move.l	#-1,lh_Head(a2)
+	move.b	mp_SigBit(a2),d0
+	syscall	FreeSignal
+	move.l	a2,a1
+	move.l	#mp_sizeof,d0
+	syscall	FreeMem
+	move.l	(a7)+,a2
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/src2/screens.s b/extensions/Intuition-41.95/Intuition/src2/screens.s
new file mode 100644
index 0000000..82b1cc1
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/screens.s
@@ -0,0 +1,536 @@
+;Screen stuff
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xref	DataBase
+
+	xref	NoMem
+	xref	NoScr
+	xref	NoWin
+	xref	InternalErr
+	xref	Error
+	xref	NoReqTools
+	xref	IllScrParm
+	xref	NeedKick20
+	xref	IllNumCols
+	xref	_16Colours
+	xref	ScrNotClosed
+	xref	CantOpenScr
+
+	xref	AllocTmpRas
+	xref	FreeTmpRas
+	xref	AllocMemClear
+	xref	StrAlloc
+	xref	StrFree
+	xref	DoEvent
+	xref	FreeImenu
+	xref	GetCurRP
+	xref	CloseWin
+
+	xdef	FindIscr
+	xdef	GetCurIscr
+	xdef	CheckCloseIscr
+	xdef	OpenIscr
+	xdef	CloseIscr
+
+FindIscr:		;Find a screen, screen # in D0
+			;Returns scradr or NULL in D0/A0, prevscradr in A1,
+			;  Z set if not found
+	pstart2
+	move.l	a2,-(a7)
+	move.l	d0,d1
+	dmove.l	FirstIscreen,a0
+	sub.l	a1,a1
+.lp	move.l	a0,d0
+	beq	.done
+	move.l	sc_UserData(a0),a2
+	cmp.l	se_ScrNum(a2),d1
+	beq	.done
+	move.l	a0,a1
+	move.l	se_NextIscr(a2),a0
+	bra	.lp
+.done	move.l	a0,d0
+	move.l	(a7)+,a2
+	ret2
+
+GetCurIscr:		;Get current Iscreen address
+	pstart2
+	dmove.l	CurIscreen,d0
+	beq	NoScr
+	ret2
+
+
+OpenIscr:
+	pstart2
+	tst.l	16(a3)		;Height <= 0?
+	ble	IllScrParm
+	tst.l	20(a3)		;Width <= 0?
+	ble	IllScrParm
+	move.l	(a3)+,-(a7)
+	beq	.nomode
+	dtst.b	WB20
+	beq	NeedKick20
+.nomode	move.l	(a3)+,d0
+	beq	.nottl
+	move.l	d0,a0
+	move.w	(a0)+,d0
+	move.l	a0,-(a7)
+	move.w	d0,-(a7)
+	bra	.getprm
+.nottl	clr.l	-(a7)
+	clr.w	-(a7)
+.getprm	movem.l	(a3)+,d2-d6
+	move.l	d3,d0
+	moveq	#0,d7
+	lsr.l	#1,d0
+	beq	IllNumCols
+.lp0	addq.w	#1,d7
+	lsr.l	#1,d0
+	bcc	.lp0
+	bne	IllNumCols
+	and.w	#MODES,d2
+	dmove.b	IsAGA,d1
+	bne	.aga0
+	move.w	#HIRES,d0
+	and.w	d2,d0
+	beq	.aga0
+	cmp.l	#4,d7
+	bhi	_16Colours
+.aga0	move.w	#HAM,d0
+	and.w	d2,d0
+	beq	.noham
+	cmp.l	#4096,d3
+	bne	.ckham8
+	moveq	#6,d7
+	bra	.okmode
+.ckham8	cmp.l	#262144,d3
+	bne	IllNumCols
+	tst.b	d1
+	beq	IllNumCols
+	moveq	#8,d7
+	bra	.okmode
+.noham	tst.b	d1
+	bne	.aga1
+	cmp.w	#64,d3
+	bls	.okcol
+	bra	IllNumCols
+.aga1	cmp.w	#256,d3
+	bhi	IllNumCols
+.okcol	move.w	#EHB,d0
+	and.w	d2,d0
+	bne	.ehb
+	cmp.w	#64,d3
+	beq	IllNumCols
+	bra	.okmode
+.ehb	cmp.w	#2,d3
+	beq	IllNumCols
+.okmode	move.l	d6,d0
+	bsr	FindIscr
+	beq	.okold
+	bra	ScrNotClosed
+;	bsr	CheckCloseIscr
+;	beq	.okold
+;	bra	Error
+.okold	dlea	NewScreen,a2
+	move.w	(a7)+,d3
+	bne	.not0
+	addq.l	#4,a7
+	clr.l	ns_DefaultTitle(a2)
+	bra	.nostr
+.not0	moveq	#0,d0
+	move.w	d3,d0
+	bsr	StrAlloc
+	tst.l	d0
+	beq	NoMem
+	move.l	d0,ns_DefaultTitle(a2)
+	move.l	d0,a1
+	move.l	(a7)+,a0
+	move.l	d3,d0
+	syscall	CopyMem
+	move.l	ns_DefaultTitle(a2),a0
+	clr.b	0(a0,d3.l)
+	move.w	#SHOWTITLE,ns_Type(a2)
+	bra	.getse
+.nostr	move.w	#SCREENQUIET,ns_Type(a2)
+.getse	moveq	#se_sizeof,d0
+	moveq	#MEMF_PUBLIC,d1
+	bsr	AllocMemClear
+	move.l	d0,a6
+	move.l	a6,d0
+	bne	.opnscr
+	move.l	ns_DefaultTitle(a2),a0
+	bsr	StrFree
+	bra	NoMem
+.opnscr	clr.w	ns_LeftEdge(a2)
+	clr.w	ns_TopEdge(a2)
+	move.w	d5,se_Width(a6)
+	move.w	d5,ns_Width(a2)
+	move.w	d4,se_Height(a6)
+	move.w	d4,ns_Height(a2)
+	move.w	d7,ns_Depth(a2)
+	clr.b	ns_DetailPen(a2)
+	move.b	#1,ns_BlockPen(a2)
+	move.w	d2,ns_ViewModes(a2)
+	clr.l	ns_Font(a2)
+	clr.l	ns_Gadgets(a2)
+	clr.l	ns_CustomBitMap(a2)
+	or.w	#CUSTOMSCREEN,ns_Type(a2)
+	dtst.b	ScrOpenBehind
+	beq	.front
+	or.w	#SCREENBEHIND,ns_Type(a2)
+.front	move.l	a2,a0
+	dtst.b	WB20
+	beq	.opnsc2
+	lea	.tags(pc),a1
+	move.l	(a7)+,12(a1)		;DisplayID
+	or.w	d2,14(a1)
+	lea	se_Dripens(a6),a0
+	move.l	a0,20(a1)
+	move.w	#-1,(a0)
+	move.l	a2,a0
+	lea	.tags(pc),a1
+.tstpub	dtst.b	NextPublic
+	bne	.public
+	addq.l	#8,a1
+	bra	.opnsc2
+.public	move.l	ns_DefaultTitle(a0),4(a1)
+.opnsc2	move.l	a1,ens_Extension(a0)
+	or.w	#NS_EXTENDED|AUTOSCROLL,ns_Type(a0)
+	move.l	a6,-(a7)
+	intcall	OpenScreen
+	exg	d0,a2
+	move.l	d0,a1
+	move.l	ns_DefaultTitle(a1),-(a7)
+	move.l	a2,d0
+	bne	.okscr
+	move.l	4(a7),a1
+	moveq	#se_sizeof,d0
+	syscall	FreeMem
+	move.l	(a7),a0
+	bsr	StrFree
+	bra	CantOpenScr
+.okscr
+    ifd UNREGISTERED			;Nastiness from below - make sure
+	lea	.check+2(pc),a6		;  they haven't played with our
+	cmp.w	#_LVOAllocMem,(a6)	;  code.
+	beq	.okchk
+	move.l	4,a6
+.loop	clr.l	(a6)
+	move.l	4(a6),a6
+	bra	.loop
+.okchk
+    endc
+	move.l	4(a7),sc_UserData(a2)
+	dtst.b	WB20			;If not KS2.0, no PubScreens, dripens
+	beq	.pens13
+	dtst.b	NextPublic		;Make the screen public if requested
+	beq	.nopub
+	dclr.b	NextPublic
+	move.l	a2,a0
+	moveq	#0,d0
+	intcall	PubScreenStatus
+.nopub	move.l	a2,a0			;Grab dripens
+	intcall	GetScreenDrawInfo
+	tst.l	d0
+	bne	.gotdri
+	move.l	sc_UserData(a2),a0
+	lea	se_Dripens(a0),a0
+	cmp.w	#1,sc_Depth(a2)
+	beq	.mono0
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#2,(a0)+
+	move.w	#1,(a0)+
+	move.w	#3,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#2,(a0)+
+	bra	.chkttl
+.mono0	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	bra	.chkttl
+.pens13	move.l	sc_UserData(a2),a0
+	lea	se_Dripens(a0),a0
+	cmp.w	#1,sc_Depth(a2)
+	beq	.mono1
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#2,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#0,(a0)+
+	move.w	#3,(a0)+
+	bra	.chkttl
+.mono1	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	bra	.chkttl
+.gotdri	move.l	d0,a0
+	move.w	dri_NumPens(a0),d0
+	cmp.w	#NUMDRIPENS,d0
+	bls	.okcnt
+	moveq	#NUMDRIPENS,d0
+.okcnt	move.l	dri_Pens(a0),a0
+	move.l	sc_UserData(a2),a1
+	lea	se_Dripens(a1),a1
+	subq.w	#1,d0
+.dri_lp	move.w	(a0)+,(a1)+
+	dbra	d0,.dri_lp
+.chkttl	tst.l	(a7)
+	bne	.okttl
+	move.l	a2,a0
+	moveq	#0,d0
+	intcall	ShowTitle
+.okttl:
+
+;Now open the base window
+	moveq	#we_sizeof,d0		;Window extension
+	moveq	#MEMF_PUBLIC,d1
+	bsr	AllocMemClear
+	move.l	d0,d7
+	bne	.gotwe
+	move.l	a2,a0
+	intcall	CloseScreen
+	move.l	4(a7),a1
+	moveq	#se_sizeof,d0
+	syscall	FreeMem
+	move.l	(a7),a0
+	bsr	StrFree
+	bra	NoMem
+.gotwe	dlea	NewWindow,a0
+	clr.w	nw_LeftEdge(a0)
+	clr.w	nw_TopEdge(a0)
+	move.w	sc_Width(a2),nw_Width(a0)
+	move.w	sc_Height(a2),nw_Height(a0)
+	clr.b	nw_DetailPen(a0)
+	move.b	#1,nw_BlockPen(a0)
+	clr.l	nw_IDCMPFlags(a0)
+	move.l	#WFLG_BACKDROP|WFLG_BORDERLESS|WFLG_ACTIVATE|WFLG_RMBTRAP,nw_Flags(a0)
+	clr.l	nw_FirstGadget(a0)
+	clr.l	nw_CheckMark(a0)
+	clr.l	nw_Title(a0)
+	move.l	a2,nw_Screen(a0)
+	clr.l	nw_BitMap(a0)
+	clr.w	nw_MinWidth(a0)
+	clr.w	nw_MinHeight(a0)
+	clr.w	nw_MaxWidth(a0)
+	clr.w	nw_MaxHeight(a0)
+	move.w	#CUSTOMSCREEN,nw_Type(a0)
+	intcall	OpenWindow
+	move.l	sc_UserData(a2),a6
+	move.l	d0,se_BaseWin(a6)
+	bne	.okwin
+	move.l	(a7)+,a6
+	move.l	(a7),a1
+	move.l	a6,(a7)
+	moveq	#se_sizeof,d0
+	syscall	FreeMem
+	move.l	a2,a0
+	intcall	CloseScreen
+	move.l	(a7)+,a0
+	bsr	StrFree
+	bra	CantOpenScr
+.okwin	move.l	d0,a0
+	move.l	d7,wd_UserData(a0)
+	move.l	d7,a0
+	move.l	#WEF_UNSET|WEF_BASEWIN,we_Flags(a0)
+	move.l	sc_UserData(a2),a1
+	lea	se_Dripens(a1),a1
+	move.b	7(a1),we_HilitePen(a0)
+	move.b	9(a1),we_ShadowPen(a0)
+	addq.l	#8,a7
+	move.l	d0,a0
+	move.l	a0,d7
+	move.l	wd_RPort(a0),a0
+	bsr	AllocTmpRas
+	move.l	d7,a0
+	dmove.l	MyUserPort,wd_UserPort(a0)
+	move.l	#IDCMPFLAGS,d0
+	intcall	ModifyIDCMP
+	move.l	sc_UserData(a2),a6
+	move.l	d6,se_ScrNum(a6)
+	clr.l	se_FirstIwindow(a6)
+	clr.l	sc_RastPort+rp_RP_User(a2)
+	move.l	d6,d0
+	bsr	FindIscr
+	beq	.norepl
+	move.l	d0,a0
+	bsr	CloseIscr
+.norepl	clr.l	se_PrevIscr(a6)
+	dmove.l	FirstIscreen,a0
+	move.l	a0,se_NextIscr(a6)
+	beq	.nonext
+	move.l	sc_UserData(a0),a0
+	move.l	a2,se_PrevIscr(a0)
+.nonext	tmove.l	a2,FirstIscreen
+	dtst.b	CurIwindowIsWB
+	beq	.custom
+	dmove.l	CurIwindow,d0
+	tmove.l	d0,LastActiveWB
+	bra	.setcur
+.custom	move.l	sc_UserData(a2),a0
+	dmove.l	CurIwindow,se_LastActive(a0)
+.setcur	tmove.l	a2,CurIscreen
+	dclr.l	CurIwindow
+	move.l	sc_UserData(a2),a2
+	move.l	se_BaseWin(a2),a2
+	move.l	wd_RPort(a2),a2
+	move.l	a2,a1
+	moveq	#RP_JAM2,d0
+	gfxcall	SetDrMd
+	move.l	a2,a1
+	moveq	#1,d0
+	gfxcall	SetAPen
+	move.l	a2,a1
+	moveq	#0,d0
+	gfxcall	SetBPen
+    ifd UNREGISTERED			;Nastiness - allocate chunks of chip
+	moveq	#2,d1			;  memory.  MAKE SURE THE '.check'
+	move.l	#$1000,d0		;  LINE NEVER CHANGES!!!!
+	move.l	4,a6
+.check	jsr	_LVOAllocMem(a6)
+	jsr	_LVOAllocMem(a6)
+    endc
+	ret2
+.tags	dc.l	SA_PubName,0
+	dc.l	SA_DisplayID,0
+	dc.l	SA_Pens,0
+	dc.l	TAG_END
+
+
+CheckCloseIscr:		;Check whether a screen (A0) can be closed.  Return Z
+			;  flag set if it can, error number (E_xxx) and Z
+			;  clear if not.
+	pstart2
+	move.l	a2,-(a7)
+	move.l	sc_UserData(a0),a2
+	move.l	sc_FirstWindow(a0),d0
+	cmp.l	se_BaseWin(a2),d0	;Any open windows (besides BaseWin)?
+	bne	.haswin			;Yes - can't close screen
+	move.l	d0,a1
+	tst.l	wd_NextWindow(a1)
+	bne	.haswin			;Yes again
+	moveq	#0,d0
+	bra	.exit
+.haswin	moveq	#E_WNC,d0
+	moveq	#1,d1
+.exit	move.l	(a7)+,a2
+	ret2
+
+CloseIscr:		;Close screen, screen address in A0
+	pstart2
+	movem.l	d7/a2,-(a7)
+	moveq	#-1,d7			;Close screen or quit? (see below)
+	move.l	a0,a2
+	bsr	CheckCloseIscr		;Check if OK to close...
+	move.l	a2,a0
+	beq	.noerrs			;Yup
+	dtst.b	Quitting		;If quitting, unlink screen and quit
+	bne	.reset
+	moveq	#0,d7			;Flag: don't try to close screen
+	bra	.noerrs
+.reset	dtst.b	InReset			;If in reset, no errors, just quit
+	bne	.exit
+	bsr	Error			;Oops, a problem - barf
+.noerrs	move.l	sc_UserData(a0),a2	;Load extension structure
+	move.l	se_PrevIscr(a2),a1	;Get next and previous screens
+	move.l	se_NextIscr(a2),a2
+	move.l	a1,d1			;Was this the first screen?
+	beq	.noprev
+	move.l	sc_UserData(a1),a1	;No, set prev->next to scr->next
+	move.l	a2,se_NextIscr(a1)
+	bra	.setprv
+.noprev	tmove.l	a2,FirstIscreen		;Yes, set FirstIscreen to scr->next
+.setprv	move.l	a2,d0			;Was this the last screen?
+	beq	.nonext
+	move.l	sc_UserData(a2),a1	;No, set next->prev to scr->prev
+	move.l	d1,se_PrevIscr(a1)
+.nonext	dcmp.l	CurIscreen,a0		;Was this the current screen?
+	bne	.close
+	move.l	a2,d0			;Yes
+	bne	.setcur			;Was this the last screen?
+	dmove.l	FirstIscreen,a2		;Yes, new current scr is FirstIscreen
+.setcur	tmove.l	a2,CurIscreen		;Set new current screen/window
+	beq	.wbwin
+	move.l	sc_UserData(a2),a1
+	tmove.l	se_LastActive(a1),CurIwindow
+	bra	.close
+.wbwin	dmove.l	LastActiveWB,d0
+	tmove.l	d0,CurIwindow
+.close
+    ifd UNREGISTERED			;Unregistered version - don't close
+	move.l	a0,-(a7)		;  screen/window, just unlink from
+	intcall	ScreenToBack		;  global list.  This has the nasty
+	intcall	OpenWorkBench		;  side effect of messing up memory
+	move.l	(a7)+,a0		;  rather nastily if the user closed
+	dmove.l	IntuitionBase,a1	;  the screen manually.  And just in
+	lea	ib_FirstScreen(a1),a1	;  case they try to relink it, clear
+.lp	cmp.l	(a1),a0			;  a pointer or two to cause a system
+	beq	.endlp			;  crash. <evil grin>
+	move.l	(a1),a1
+	bra	.lp
+.endlp	move.l	(a0),(a1)
+	clr.l	sc_BitMap+bm_Planes(a0)
+	intcall	RethinkDisplay		;Make sure the screen isn't displayed
+					;  (should have been taken care of by
+					;  ScreenToBack()/OpenWorkBench())
+    else
+	tst.l	d7			;Should we quit now?
+	beq	.exit			;Yes
+	move.l	a0,-(a7)
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	bsr	CloseWin
+	move.l	(a7),a0			;Get back screen's address
+	move.l	sc_RastPort+rp_RP_User(a0),a1
+	move.l	a1,d0			;Did we have a non-standard font?
+	beq	.nofont
+	gfxcall	CloseFont		;Yes, close it
+	move.l	(a7),a0
+.nofont	move.l	sc_DefaultTitle(a0),(a7) ;Save screen title
+	move.l	sc_UserData(a0),a2	;  and structure extension
+	move.w	se_Width(a2),sc_Width(a0)
+	move.w	se_Height(a2),sc_Height(a0)
+	intcall	CloseScreen		;Close screen
+	move.l	a2,a1			;Free structure extension
+	moveq	#se_sizeof,d0
+	syscall	FreeMem
+	move.l	(a7)+,a0		;Free title
+	bsr	StrFree
+    endc
+.exit	movem.l	(a7)+,d7/a2
+	ret2
diff --git a/extensions/Intuition-41.95/Intuition/src2/startup.s b/extensions/Intuition-41.95/Intuition/src2/startup.s
new file mode 100644
index 0000000..d8d0a6c
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/startup.s
@@ -0,0 +1,566 @@
+;Startup and cleanup routines
+
+	section text,code
+
+	xref	JumpTable
+	xref	AllocRequest
+	xref	AllocMemClear
+	xref	CreatePort
+	xref	DeletePort
+	xref	StrFree
+	xref	CloseIscr
+	xref	CloseIwin
+	xref	CloseWBIwin
+
+	xdef	CustomError
+	xdef	DataBase
+	xdef	Startup
+	xdef	CloseAll
+	xdef	Quit
+
+
+	include "offsets.i"
+	include "defs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+VblRout		equ	0
+ExtAdr		equ	62*4
+Sys_MyTask	equ	$2F0
+
+;Final exit routine from intuition.s, error routine, and pointers to base
+;of data area.
+
+FinalExit	dc.l	0
+CustomError	dc.l	0
+DataBasePtr	dc.l	0	;Address of extension's DataBase
+DataBase	dc.l	0	;Our own copy
+
+
+;Data initialisation constants
+
+IntID		equ 'IE'<<16+DataVer
+
+i_flStackSize	equ 32768
+
+i_strings:
+i_DiskfontName	dc.b	"diskfont.library",0
+i_DOSName	dc.b	"dos.library",0
+i_GfxName	dc.b	"graphics.library",0
+i_IntuitionName	dc.b	"intuition.library",0
+i_ReqToolsName	dc.b	"reqtools.library",0
+i_ConsoleName	dc.b	"console.device",0
+i_DefReqTitleStr dc.b	"AMOS Request",0
+i_PortName	dc.b	"AMOS IDCMP",0
+n_strings	equ	8
+
+;Warning message data.
+
+nosig_txt	dc.b	"Intuition.lib: warning: No VBL signals available.  "
+		dc.b	"Some commands may not work properly.",13,10
+nosig_len	equ	*-nosig_txt
+
+novbl_txt	dc.b	"Intuition.lib: warning: No room for VBL routine.  "
+		dc.b	"Some commands may not work properly.",13,10
+novbl_len	equ	*-novbl_txt
+
+nomem_txt	dc.b	"Intuition.lib: Out of memory! (code 1)",13,10
+nomem_len	equ	*-nomem_txt
+
+nomem_ke_txt	dc.b	"Intuition.lib: Out of memory! (code 2)",13,10
+nomem_ke_len	equ	*-nomem_ke_txt
+
+nomem_ue_txt	dc.b	"Intuition.lib: Out of memory! (code 4)",13,10
+nomem_ue_len	equ	*-nomem_ue_txt
+
+nomem_stk_txt	dc.b	"Intuition.lib: Out of memory! (code 5)",13,10
+nomem_stk_len	equ	*-nomem_stk_txt
+
+nodos_txt	dc.b	"Intuition.lib: Can't open dos.library!",13,10
+nodos_len	equ	*-nodos_txt
+
+nogfx_txt	dc.b	"Intuition.lib: Can't open graphics.library!",13,10
+nogfx_len	equ	*-nogfx_txt
+
+noint_txt	dc.b	"Intuition.lib: Can't open intuition.library!",13,10
+noint_len	equ	*-noint_txt
+
+nodf_txt	dc.b	"Intuition.lib: Can't open diskfont.library!",13,10
+nodf_len	equ	*-nodf_txt
+
+nocon_txt	dc.b	"Intuition.lib: Can't open console.device!",13,10
+nocon_len	equ	*-nocon_txt
+
+nort_txt	dc.b	"Intuition.lib: warning: Can't open "
+		dc.b	"reqtools.library v38.  Some commands may not work "
+		dc.b	"properly.",13,10
+nort_len	equ	*-nort_txt
+
+noport_txt	dc.b	"Intuition.lib: Can't create message port!",13,10
+noport_len	equ	*-noport_txt
+
+		ds.w	0
+
+
+
+;Write an error to stdout if possible.  Text in A0, length in D0.
+OutError:
+	movem.l	d2-d3/a6,-(a7)
+	move.l	a0,d2
+	move.l	d0,d3
+	lea	.dosname(pc),a1
+	moveq	#0,d0
+	move.l	4,a6
+	call	OpenLibrary
+	tst.l	d0
+	beq	.no_lib
+	move.l	d0,a6
+	call	Output
+	move.l	d0,d1
+	beq	.no_out
+	call	Write
+.no_out	move.l	a6,a1
+	move.l	4,a6
+	call	CloseLibrary
+.no_lib	movem.l	(a7)+,d2-d3/a6
+	rts
+.dosname:
+	dc.b	"dos.library",0
+	ds.w 0
+
+;Set up all the stuff we need.  On entry, D1 should point to final exit
+;routine (to UnLoadSeg() this code), D0 should point to custom error
+;routine (the one which calls L_ErrorExt), and A1 should contain the
+;address of the DataBase variable.
+Startup:
+	lea	FinalExit(pc),a0
+	move.l	d1,(a0)
+	lea	CustomError(pc),a0
+	move.l	d0,(a0)
+	lea	DataBasePtr(pc),a0
+	move.l	a1,(a0)
+	movem.l	a4/a6,-(a7)
+	move.l	#datalength,d0	;Allocate memory for data
+	move.l	#MEMF_PUBLIC,d1
+	bsr	AllocMemClear
+	move.l	DataBasePtr(pc),a0
+	move.l	d0,(a0)
+	bne	.okdata
+	lea	nomem_txt(pc),a0
+	moveq	#nomem_len,d0
+	moveq	#-1,d0
+	movem.l	(a7)+,a4/a6
+	rts
+.okdata	lea	DataBase(pc),a0
+	move.l	d0,(a0)
+	move.l	d0,a4		;Initialise data area as necessary
+	lea	JumpTable(pc),a0
+	tmove.l	a0,IntJumpTable
+	sub.l	a1,a1
+	syscall	FindTask
+	tmove.l	d0,MyTask
+	tmove.w	#1,String1
+	lea	i_strings(pc),a0
+	dlea	data_strings,a1
+	moveq	#n_strings-1,d0
+.strlp	move.l	a0,(a1)+
+.strlp2	tst.b	(a0)+
+	bne	.strlp2
+	dbra	d0,.strlp
+	tmove.l	#i_flStackSize,flStackSize
+	tmove.w	#-1,LastMenu
+	tmove.w	#-1,LastMenuItem
+	tmove.w	#-1,LastMenuSub
+	tmove.b	#-1,Initialised	;Well, not quite yet... but close enough :-)
+	tmove.l	a5,SavedA5
+	move.l	a4,ExtAdr+(ExtNum-1)*16(a5)
+	lea	CloseAll(pc),a0
+	move.l	a0,ExtAdr+(ExtNum-1)*16+4(a5)
+	lea	Quit(pc),a0
+	move.l	a0,ExtAdr+(ExtNum-1)*16+8(a5)
+	clr.l	ExtAdr+(ExtNum-1)*16+12(a5)
+	dlea	A7StackEnd,a0
+	tmove.l	a0,A7StackPtr
+
+	move.l	4,a6
+	cmp.b	#60,$212(a6)	;SysBase->VBlankFrequency
+	seq	d0
+	tmove.b	d0,IsNTSC
+	move.w	20(a6),d1	;SysBase->lib_Version
+	cmp.w	#36,d1
+	scc	d0
+	tmove.b	d0,WB20
+
+	moveq	#-1,d0		;Get a VBL signal bit
+	call	AllocSignal
+	tmove.b	d0,VBLSignal
+	bpl	.sigok		;Did we get it?
+	lea	nosig_txt(pc),a0 ;No - warn the user on stdout and continue
+	moveq	#nosig_len,d0	;with setup
+	bsr	OutError
+	bra	.getdos
+.sigok	lea	VblRout(a5),a0	;Find an empty VBL handler
+	moveq	#7,d0		;8 handlers available, minus 1 for DBRA
+.vbl_lp	tst.l	(a0)
+	beq	.gotvbl
+	addq.l	#4,a0
+	dbra	d0,.vbl_lp
+	lea	novbl_txt(pc),a0 ;No VBL handler available
+	moveq	#novbl_len,d0
+	bsr	OutError
+	moveq	#0,d0
+	dmove.b	VBLSignal,d0
+	call	FreeSignal
+	tmove.b	#-1,VBLSignal
+	bra	.getdos
+.gotvbl	lea	VBLHandler(pc),a1  ;Got the handler!
+	move.l	a1,(a0)
+
+.getdos	dmove.l	DOSName,a1
+	moveq	#0,d0
+	call	OpenLibrary
+	tmove.l	d0,DOSBase
+	bne	.gotdos
+	lea	nodos_txt(pc),a0
+	move.l	#nodos_len,d0
+	bsr	OutError
+	bra	.nodos
+
+.gotdos	dmove.l	IntuitionName,a1
+	moveq	#0,d0
+	call	OpenLibrary
+	tmove.l	d0,IntuitionBase
+	bne	.gotint
+	lea	noint_txt(pc),a0
+	move.l	#noint_len,d0
+	bsr	OutError
+	bra	.nodos
+
+.gotint	move.l	d0,a6
+	call	ViewAddress	;Get ViewLord address
+	move.l	d0,a0
+	tmove.l	d0,ViewLord
+	cmp.w	#36,20(a6)	;IntuitionBase->lib_Version
+	bcs	.wb13wh
+	moveq	#-1,d0
+	tmove.w	d0,MaxDispWidth
+	tmove.w	d0,MaxDispHeight
+	bra	.getgfx
+.wb13wh	move.w	#449,d0
+	sub.w	v_DxOffset(a0),d0
+	tmove.w	d0,MaxDispWidth
+	moveq	#0,d0
+	dtst.w	IsNTSC
+	seq	d0
+	and.b	#56,d0
+	add.w	#255,d0
+	sub.w	v_DyOffset(a0),d0
+	tmove.w	d0,MaxDispHeight
+
+.getgfx	move.l	4,a6
+	dmove.l	GfxName,a1
+	moveq	#0,d0
+	call	OpenLibrary
+	tmove.l	d0,GfxBase
+	bne	.gotgfx
+	lea	nogfx_txt(pc),a0
+	move.l	#nogfx_len,d0
+	bsr	OutError
+	bra	.nogfx
+
+.gotgfx	dmove.l	DiskfontName,a1
+	moveq	#0,d0
+	call	OpenLibrary
+	tmove.l	d0,DiskfontBase
+	bne	.gotdf
+	lea	nodf_txt(pc),a0
+	move.l	#nodf_len,d0
+	bsr	OutError
+	bra	.nodf
+
+.gotdf	dmove.l	ConsoleName,a0
+	moveq	#-1,d0
+	dlea	ConsoleRequest,a2
+	move.l	a2,a1
+	moveq	#0,d1
+	call	OpenDevice
+	tst.l	d0
+	beq	.gotcon
+	lea	nocon_txt(pc),a0
+	move.l	#nocon_len,d0
+	bsr	OutError
+	bra	.nocdev
+.gotcon	tmove.l	io_Device(a2),ConsoleDevice
+
+	dmove.l	ReqToolsName,a1
+	moveq	#38,d0
+	call	OpenLibrary
+	tmove.l	d0,ReqToolsBase
+	bne	.gotrt
+	lea	nort_txt(pc),a0
+	move.l	#nort_len,d0
+	bsr	OutError
+	bra	.nort0	
+.gotrt	moveq	#RT_FILEREQ,d0
+	bsr	AllocRequest
+	tmove.l	d0,FileReq
+	beq	.nortfi
+	moveq	#RT_FONTREQ,d0
+	bsr	AllocRequest
+	tmove.l	d0,FontReq
+	beq	.nortfo
+	dtst.b	WB20		;Screen mode requester, GfxBase.ChipRevBits0
+	beq	.bufini		;  only available on 2.0+
+	moveq	#RT_SCREENMODEREQ,d0
+	bsr	AllocRequest
+	tmove.l	d0,ScreenModeReq
+	beq	.nortsc
+
+.nort0	dmove.l	GfxBase,a0
+	moveq	#GFXF_HR_AGNUS|GFXF_HR_DENISE,d1
+	move.b	d1,d0
+	and.b	gb_ChipRevBits0(a0),d0
+	cmp.b	d0,d1		;Need both ECS chips for an ECS system
+	seq	d0
+	tmove.b	d0,IsECS
+	or.b	#GFXF_AA_ALICE|GFXF_AA_LISA,d1
+	move.b	d1,d0
+	and.b	gb_ChipRevBits0(a0),d0
+	cmp.b	d0,d1
+	seq	d0
+	tmove.b	d0,IsAGA
+
+.bufini	move.l	#KeyBufSize,d0
+	move.l	d0,d2
+	moveq	#MEMF_PUBLIC,d1
+	call	AllocMem
+	tmove.l	d0,KeyBuffer
+	bne	.got_ke
+	lea	nomem_ke_txt(pc),a0
+	move.l	#nomem_ke_len,d0
+	bsr	OutError
+	bra	.no_ke
+.got_ke	tmove.l	d0,KeyBufPtr
+	tmove.l	d0,KeyBufNext
+	add.l	d2,d0
+	tmove.l	d0,KeyBufEnd
+
+	move.l	#MenuBufSize,d0
+	move.l	d0,d2
+	moveq	#MEMF_PUBLIC,d1
+	call	AllocMem
+	tmove.l	d0,MenuBuffer
+	bne	.got_ue
+	lea	nomem_ue_txt(pc),a0
+	move.l	#nomem_ue_len,d0
+	bsr	OutError
+	bra	.no_ue
+.got_ue	tmove.l	d0,MenuBufPtr
+	tmove.l	d0,MenuBufNext
+	add.l	d2,d0
+	tmove.l	d0,MenuBufEnd
+
+	dmove.l	flStackSize,d0
+	moveq	#MEMF_PUBLIC,d1
+	call	AllocMem
+	tmove.l	d0,flStack
+	bne	.gotstk
+	lea	nomem_stk_txt(pc),a0
+	move.l	#nomem_stk_len,d0
+	bsr	OutError
+	bra	.nostk
+.gotstk	add.l	#1024,d0
+	tmove.l	d0,flStackWarn
+
+	dmove.l	DefReqTitleStr,a0
+	tmove.l	a0,DefReqTitle
+
+	moveq	#0,d0
+	dmove.l	PortName,a0
+	bsr	CreatePort
+	tmove.l	d0,MyUserPort
+	bne	.gotprt
+	lea	noport_txt(pc),a0
+	move.l	#noport_len,d0
+	bsr	OutError
+	bra	.noport
+
+.gotprt	moveq	#ExtNum-1,d0	;Successfully initialised!
+	bra	.exit
+
+.noport	dmove.l	flStack,a1
+	dmove.l	flStackSize,d0
+	call	FreeMem
+.nostk	move.l	#MenuBufSize,d0
+	dmove.l	MenuBuffer,a1
+	call	FreeMem
+.no_ue	move.l	#KeyBufSize,d0
+	dmove.l	KeyBuffer,a1
+	call	FreeMem
+.no_ke	dtst.l	ReqToolsBase
+	beq	.nort
+	dtst.b	WB20
+	beq	.nortsc
+	dmove.l	ScreenModeReq,a1
+	rtcall2	rtFreeRequest
+.nortsc	dmove.l	FontReq,a1
+	rtcall2	rtFreeRequest
+.nortfo	dmove.l	FileReq,a1
+	rtcall2	rtFreeRequest
+	move.l	4,a6
+.nortfi	dmove.l	ReqToolsBase,d0
+	beq	.nort
+	move.l	d0,a1
+	call	CloseLibrary
+.nort	dlea	ConsoleRequest,a1
+	call	CloseDevice
+.nocdev	dmove.l	DiskfontBase,a1
+	call	CloseLibrary
+.nodf	dmove.l	GfxBase,a1
+	call	CloseLibrary
+.nogfx	dmove.l	IntuitionBase,a1
+	call	CloseLibrary
+.noint	dmove.l	DOSBase,a1
+	call	CloseLibrary
+.nodos	move.l	DataBase(pc),a1		;free data area
+	move.l	#datalength,d0
+	call	FreeMem
+	clr.l	ExtAdr+ExtNum*16+8(a5)	;don't try to clean up
+	moveq	#-1,d0
+.exit	movem.l	(a7)+,a4/a6
+	rts
+
+CloseAll:
+	movem.l	a4/a6,-(a7)
+	dinit	a4
+	tmove.b	#-1,InReset
+	move.l	a5,-(a7)
+
+.scrlp	dmove.l	FirstIscreen,a2
+	move.l	a2,d0
+	beq	.scdone
+	move.l	sc_UserData(a2),a1
+	move.l	se_FirstIwindow(a1),a0
+.winlp	move.l	a0,d0
+	beq	.close
+	move.l	wd_UserData(a0),a1
+	move.l	we_NextIwin(a1),a5
+	bsr	CloseIwin
+	move.l	a5,a0
+	bra	.winlp
+.close	move.l	a2,a0
+	bsr	CloseIscr
+	bra	.scrlp
+
+.scdone
+.wblp	dmove.l	FirstWBIwindow,a0
+	move.l	a0,d0
+	beq	.wbdone
+	bsr	CloseWBIwin
+	bra	.wblp
+
+.wbdone
+.strlp	dmove.l	FirstString,d2
+	tst.l	d2
+	beq	.stdone
+	move.l	d2,a0
+	lea	12(a0),a0
+	bsr	StrFree
+	bra	.strlp
+
+;The screen/window pointers had better be null now...
+
+.stdone	dmove.l	KeyBufPtr,a0
+	tmove.l	a0,KeyBufNext
+	dmove.l	MenuBufPtr,a0
+	tmove.l	a0,MenuBufNext
+	dclr.l	LastError
+	dclr.l	LastErrorStr
+	dclr.b	TrapErrors
+	dclr.b	ErrorTrapped
+	dlea	DefReqTitleStr,a0
+	tmove.l	a0,DefReqTitle
+	moveq	#-1,d0
+	tmove.w	d0,LastMenu
+	tmove.w	d0,LastMenuItem
+	tmove.w	d0,LastMenuSub
+
+	move.l	(a7)+,a5
+	dclr.b	InReset
+	movem.l	(a7)+,a4/a6
+	rts
+
+Quit:
+	movem.l	a4/a6,-(a7)
+	dinit	a4
+	tmove.b	#-1,Quitting
+	bsr	CloseAll
+	dmove.l	MyUserPort,a0
+	bsr	DeletePort
+	dmove.l	flStack,d0
+	beq	.nostk
+	move.l	d0,a1
+	dmove.l	flStackSize,d0
+	syscall	FreeMem
+.nostk	move.l	#MenuBufSize,d0
+	dmove.l	MenuBuffer,a1
+	call	FreeMem
+	move.l	#KeyBufSize,d0
+	dmove.l	KeyBuffer,a1
+	call	FreeMem
+	dtst.l	ReqToolsBase
+	beq	.nort
+	dmove.l	ReqToolsBase,a6
+	dmove.l	ScreenModeReq,d0
+	beq	.nortsc
+	move.l	d0,a1
+	call	rtFreeRequest
+.nortsc	dmove.l	FontReq,a1
+	call	rtFreeRequest
+	dmove.l	FRFileList0,d0
+	beq	.nofl
+	move.l	d0,a0
+	call	rtFreeFileList
+.nofl	dmove.l	FileReq,a1
+	call	rtFreeRequest
+	move.l	a6,a1
+	move.l	4,a6
+	call	CloseLibrary
+.nort	dlea	ConsoleRequest,a1
+	call	CloseDevice
+	dmove.l	GfxBase,a1
+	call	CloseLibrary
+	dmove.l	DOSBase,a1
+	call	CloseLibrary
+	dmove.l	IntuitionBase,a1
+	call	CloseLibrary
+	moveq	#0,d0
+	dmove.b	VBLSignal,d0
+	bmi	.nosig
+	call	FreeSignal
+.nosig	move.l	a4,a1
+	move.l	#datalength,d0
+	call	FreeMem
+.exit	movem.l	(a7)+,a4/a6
+	move.l	FinalExit(pc),a0
+	jmp	(a0)
+
+
+;The VBL handler - sends AMOS a signal at each VBL.
+VBLHandler:
+	move.l	a6,-(a7)
+	dinit2	a0
+	amove.l	MyTask,a1,a0
+	moveq	#0,d1
+	amove.b	VBLSignal,d1,a0
+	moveq	#1,d0
+	lsl.l	d1,d0
+	syscall	Signal
+	move.l	(a7)+,a6
+	rts
diff --git a/extensions/Intuition-41.95/Intuition/src2/windows.s b/extensions/Intuition-41.95/Intuition/src2/windows.s
new file mode 100644
index 0000000..78894c3
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/src2/windows.s
@@ -0,0 +1,701 @@
+;Window stuff
+
+	include "offsets.i"
+	include "defs.i"
+	include "errordefs.i"
+	include "macros.i"
+	include "macros2.i"
+
+      ifd CREATOR
+	incdir	"/AMOS1.3"
+      else
+	incdir	"/AMOS"
+      endc
+;	include "equ.s"		;PhxAss is buggy...
+EcNumber	equ	188
+Bnk_BitData	equ	0
+Bnk_BitChip	equ	1
+Bnk_BitBob	equ	2
+Bnk_BitIcon	equ	3
+
+	section text,code
+
+	xref	DataBase
+	xref	NoMem
+	xref	NoScr
+	xref	NoWin
+	xref	InternalErr
+	xref	Error
+	xref	NoCloseWin0
+	xref	CantOpenWB
+	xref	WinTooSmall
+	xref	WinTooLarge
+	xref	IllWinParm
+	xref	WinNotClosed
+	xref	CantOpenWin
+	xref	NoReqTools
+
+	xref	StrAlloc
+	xref	AllocMemClear
+	xref	AllocTmpRas
+	xref	FreeTmpRas
+	xref	StrFree
+	xref	DoEvent
+	xref	FreeImenu
+	xref	GetCurRP
+	xref	GetCurIscr
+
+	xdef	GetCurWin
+	xdef	FindIwin
+	xdef	FindIwin2
+	xdef	FindWBIwin
+	xdef	GetCurIwin
+	xdef	GetCurIwin2
+	xdef	OpenIwin
+	xdef	CloseWin
+	xdef	CloseIwin
+	xdef	CloseWBIwin
+	xdef	GetWinFlags
+	xdef	GetSomeWinFlags
+	xdef	SetWinFlags
+	xdef	SetSomeWinFlags
+	xdef	GetActiveWin
+	xdef	SetCoords
+	xdef	SetCoordsRel
+
+GetCurWin:		;Return address of current window (even if BaseWin).
+			;  Assumes this is legal (i.e. a win/scr is open).
+	pstart2
+	dmove.l	CurIwindow,d0
+	bne	.exit
+	dmove.l	CurIscreen,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),d0
+.exit	ret2
+
+FindIwin:		;Find a window on the current screen, window # in D0
+			;Returns winadr or NULL in D0/A0, prevwinadr in A1,
+			;  Z set if not found.
+	dmove.l	CurIscreen,a0
+
+FindIwin2:		;Find a window on screen w/ address A0, window # in D0
+			;Returns winadr or NULL in D0/A0, prevwinadr in A1,
+			;  Z set if not found.
+	pstart2
+	move.l	a2,-(a7)
+	move.l	d0,d1
+	move.l	sc_UserData(a0),a0
+	tst.l	d1
+	bne	.find
+	move.l	se_BaseWin(a0),d0
+	bne	.ok
+	move.l	#$4657640A,d1
+	bra	InternalErr
+.ok	move.l	d0,a0
+	move.l	wd_UserData(a0),a1
+	move.l	we_PrevIwin(a1),a1
+	bra	.exit
+.find	move.l	se_FirstIwindow(a0),a0
+	sub.l	a1,a1
+.lp	move.l	a0,d0
+	beq	.done
+	move.l	wd_UserData(a0),a2
+	cmp.l	we_WinNum(a2),d1
+	beq	.done
+	move.l	a0,a1
+	move.l	we_NextIwin(a2),a0
+	bra	.lp
+.done	move.l	a0,d0
+.exit	move.l	(a7)+,a2
+	ret2
+
+FindWBIwin:		;Find a Workbench window, window # in D0
+			;Returns winadr or NULL in D0/A0, prevwinadr in A1,
+			;  Z set if not found
+	pstart2
+	move.l	a2,-(a7)
+	dmove.l	FirstWBIwindow,a0
+	sub.l	a1,a1
+.lp	move.l	a0,d1
+	beq	.done
+	move.l	wd_UserData(a0),a2
+	cmp.l	we_WinNum(a2),d0
+	beq	.done
+	move.l	a0,a1
+	move.l	we_NextIwin(a2),a0
+	bra	.lp
+.done	move.l	a0,d0
+	move.l	(a7)+,a2
+	ret2
+
+GetCurIwin:		;Get current Iwindow address (not BaseWin)
+	pstart2
+	dmove.l	CurIwindow,d0
+	beq	NoWin
+	ret2
+
+GetCurIwin2:		;Get current Iwindow address (or BaseWin)
+	pstart2
+	dmove.l	CurIwindow,d0
+	bne	.done
+	dmove.l	CurIscreen,d0
+	beq	NoWin			;We're looking for window, not screen
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),d0
+.done	ret2
+
+OpenIwin:		;Parameter in D0 - 0 to open on WB, 1 for CustomScreen
+			;   Window flags in D1.  Should be Null if no flags.
+			;   Takes parameters from A3 like full Iwindow Open
+			;   command, *including title*.
+	pstart2
+	move.l	a5,-(a7)
+	move.l	d1,d2
+	movem.l	(a3)+,d3-d7
+	tst.w	d0			;Should window open on the Workbench?
+	beq	.wbwin
+	dmove.l	CurIscreen,d0		;No - get current screen address
+	beq	NoScr
+	move.l	d0,a0
+	move.w	#CUSTOMSCREEN,-(a7)
+	move.l	sc_UserData(a0),a1
+	tst.l	(a3)			;Don't let them close base window
+	beq	NoCloseWin0
+	bra	.cksize
+.wbwin	intcall	OpenWorkBench		;Yes - get WB screen address
+	tst.l	d0
+	beq	CantOpenWB
+	move.l	d0,a0
+	move.w	#WBENCHSCREEN,-(a7)
+
+.cksize	cmp.l	#48,d4			;Window must be larger than 80x48
+	blt	WinTooSmall
+	cmp.l	#80,d5
+	blt	WinTooSmall
+	swap	d4			;  and smaller than 65536x65536
+	tst.w	d4
+	bne	WinTooLarge
+	swap	d4
+	swap	d5
+	tst.w	d5
+	bne	WinTooLarge
+	swap	d5
+	moveq	#0,d1			;  and within the screen's boundaries
+	move.l	d6,d0
+	bmi	IllWinParm
+	move.w	sc_Height(a0),d1
+	sub.l	#48,d1
+	cmp.l	d1,d0
+	bge	IllWinParm
+	add.l	#48,d1
+	add.l	d4,d0
+	cmp.l	d1,d0
+	bhi	WinTooLarge
+	move.l	d7,d0
+	bmi	IllWinParm
+	move.w	sc_Width(a0),d1
+	sub.l	#80,d1
+	cmp.l	d1,d0
+	bge	IllWinParm
+	add.l	#80,d1
+	add.l	d5,d0
+	cmp.l	d1,d0
+	bhi	WinTooLarge
+
+	move.l	(a3),d0			;Window geometry OK; is window open?
+	cmp.w	#WBENCHSCREEN,(a7)
+	beq	.wbiwin
+	bsr	FindIwin
+	bne	WinNotClosed		;Yes, barf
+	bra	.chkttl
+.wbiwin	bsr	FindWBIwin
+	bne	WinNotClosed		;Yes, barf
+
+.chkttl	tst.l	d3			;Is there a title?
+	beq	.nottl
+	move.l	d3,a2			;Yes - get memory and copy it
+	move.l	d2,-(a7)
+	moveq	#0,d2
+	move.w	(a2)+,d2
+	move.l	d2,d0
+	bsr	StrAlloc
+	exg	a2,a0
+	move.l	a2,a1
+	move.l	d2,d0
+	syscall	CopyMem
+	clr.b	0(a2,d2.l)
+	move.l	(a7)+,d2
+	bra	.getwe
+.nottl	sub.l	a2,a2			;No title
+
+.getwe	moveq	#we_sizeof,d0		;Get memory for structure extension
+	moveq	#MEMF_PUBLIC,d1
+	bsr	AllocMemClear
+	tst.l	d0
+	bne	.gotwe
+	move.l	a2,a0			;Didn't get it - barf
+	bsr	StrFree
+	bra	NoMem
+.gotwe	move.l	d0,a5			;Got it - set up NewWindow
+	dlea	NewWindow,a0
+	move.w	d7,nw_LeftEdge(a0)
+	move.w	d6,nw_TopEdge(a0)
+	move.w	d5,nw_Width(a0)
+	move.w	d4,nw_Height(a0)
+	move.b	#0,nw_DetailPen(a0)
+	move.b	#1,nw_BlockPen(a0)
+	clr.l	nw_IDCMPFlags(a0)	;Note that we can't set IDCMP flags
+					;   here; we have to set them
+					;   separately, AFTER setting the
+					;   window's UserPort to our own.
+	cmp.l	#Null,d2		;Were flags passed in?
+	beq	.def_flags		;No, use defaults.
+	move.l	#MINWFLAGS,nw_Flags(a0)	;Yes, start with minimum flags...
+	and.l	#USERWFLAGS,d2		;... mask out illegal user flags...
+	or.l	d2,nw_Flags(a0)		;... and OR them with minimum flags.
+	bra	.openwin
+.def_flags:
+	move.l	#WFLAGS,nw_Flags(a0)
+
+.openwin:
+	clr.l	nw_FirstGadget(a0)
+	clr.l	nw_CheckMark(a0)
+	move.l	a2,nw_Title(a0)
+	dmove.l	CurIscreen,nw_Screen(a0)
+	clr.l	nw_BitMap(a0)
+	move.w	#80,nw_MinWidth(a0)
+	move.w	#48,nw_MinHeight(a0)
+	move.w	#-1,nw_MaxWidth(a0)
+	move.w	#-1,nw_MaxHeight(a0)
+	move.w	(a7)+,nw_Type(a0)	;Pick up WB/NoWB from stack
+	intcall	OpenWindow		;Actually open the window
+	tst.l	d0			;Did we get it?
+	bne	.gotwin
+	move.l	a5,a1			;Nope - barf
+	moveq	#we_sizeof,d0
+	syscall	FreeMem
+	move.l	a2,a0
+	bsr	StrFree
+	bra	CantOpenWin
+
+.gotwin:
+    ifd UNREGISTERED			;Nastiness from below - make sure
+	lea	.check+2(pc),a6		;  they haven't played with our
+	cmp.w	#_LVOAllocMem,(a6)	;  code.
+	beq	.okchk
+	move.l	4,a6
+.loop	clr.l	(a6)
+	move.l	4(a6),a6
+	bra	.loop
+.okchk:
+    endc
+
+	move.l	d0,a2
+	move.l	wd_WScreen(a2),a1	;Get screen's address
+	dlea	NewWindow,a0
+	dmove.b	CurIwindowIsWB,d7	;Save old CurIwindowIsWB
+	cmp.w	#WBENCHSCREEN,nw_Type(a0)
+	seq	d1			;Set CurIwindowIsWB appropriately
+	tmove.b	d1,CurIwindowIsWB
+	beq	.not_on_wb
+
+	dtst.b	WB20			;Get WB dripens
+	beq	.pens13
+	move.l	a1,-(a7)
+	move.l	a1,a0
+	intcall	GetScreenDrawInfo
+	move.l	(a7)+,a1
+	tst.l	d0
+	bne	.gotdri
+.pens13	dlea	WBPens,a0
+	cmp.w	#1,sc_Depth(a1)
+	beq	.mono0
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#2,(a0)+
+	move.w	#1,(a0)+
+	move.w	#3,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#2,(a0)+
+	move.w	#1,(a0)+
+	move.w	#2,(a0)+
+	move.w	#1,(a0)+
+	bra	.not_on_wb
+.mono0	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	move.w	#1,(a0)+
+	move.w	#0,(a0)+
+	bra	.not_on_wb
+.gotdri	move.l	d0,a0
+	move.w	dri_NumPens(a0),d0
+	cmp.w	#NUMDRIPENS,d0
+	bls	.okcnt
+	moveq	#NUMDRIPENS,d0
+.okcnt	move.l	dri_Pens(a0),a0
+	dlea	WBPens,a1
+	subq.w	#1,d0
+.dri_lp	move.w	(a0)+,(a1)+
+	dbra	d0,.dri_lp
+
+.not_on_wb:
+	move.l	a2,a0			;Get screen's TmpRas
+	move.l	wd_WScreen(a0),a1
+	move.l	wd_RPort(a0),a0
+	move.l	sc_RastPort+rp_TmpRas(a1),rp_TmpRas(a0)
+
+	dmove.l	MyUserPort,wd_UserPort(a2) ;Make window use common UserPort
+	move.l	#IDCMPFLAGS,d0
+	move.l	a2,a0
+	intcall	ModifyIDCMP
+
+	move.l	(a3)+,d0		;Grab window number
+	move.l	a3,-(a7)		;We need to use A3 for a moment
+	dtst.b	CurIwindowIsWB		;Link window into appropriate list
+	bne	.wblist
+	dmove.l	CurIscreen,a0
+	move.l	sc_UserData(a0),a1	;A3=&scr->sc_UserData->se_FirstIwindow
+	lea	se_FirstIwindow(a1),a3
+	bra	.wcont
+.wblist	dlea	FirstWBIwindow,a3	;A3 = &FirstWBIwindow
+.wcont	clr.l	we_PrevIwin(a5)		;winext->we_PrevIwin = NULL
+	move.l	d0,we_WinNum(a5)	;Set window number in winext
+	move.l	#WEF_UNSET,we_Flags(a5)	;Window CP not yet (officially) set
+
+	move.l	wd_WScreen(a2),a0	;Set border pens
+	dtst.b	CurIwindowIsWB
+	bne	.wbpens
+	move.l	sc_UserData(a0),a0
+	lea	se_Dripens(a0),a0
+	bra	.dopens
+.wbpens	dlea	WBPens,a0
+.dopens	move.b	7(a0),we_HilitePen(a5)
+	move.b	9(a0),we_ShadowPen(a5)
+
+	move.l	a5,wd_UserData(a2)	;win->wd_UserData = winext
+
+	dcmp.b	CurIwindowIsWB,d7	;Set LastActive[WB] if necessary
+	beq	.setcw
+	tst.b	d7
+	bne	.lastwb
+	dmove.l	CurIscreen,a0		;Necessary - not done if opening WBwin
+	move.l	a0,d0
+	beq	.setcw			;No active screen
+	move.l	sc_UserData(a0),a0
+	dmove.l	CurIwindow,se_LastActive(a0)
+	bra	.setcw
+.lastwb	dmove.l	CurIwindow,d0
+	tmove.l	d0,LastActiveWB
+
+.setcw	tmove.l	a2,CurIwindow		;Window is now the current one
+
+;	move.l	a1,-(a7)
+;	dtst.b	CurIwindowIsWB
+;	bne	.wbfind
+;	bsr	FindIwin		;If it already existed, close old one
+;	beq	.norepl
+;	bsr	CloseIwin
+;X;	move.l	a2,a0
+;X;	intcall	ActivateWindow
+;	bra	.norepl
+;.wbfind	bsr	FindWBIwin
+;	beq	.norepl
+;	bsr	CloseIwin
+;X;	move.l	a2,a0
+;X;	intcall	ActivateWindow
+;.norepl	move.l	(a7)+,a1
+
+	move.l	(a3),a0			;Finish linking window into list
+	move.l	a0,we_NextIwin(a5)
+	beq	.nonext			;If last window, don't set next->prev
+	move.l	wd_UserData(a0),a0
+	move.l	a2,we_PrevIwin(a0)
+.nonext	move.l	a2,(a3)			;This window is now the first one
+	move.l	(a7)+,a3
+
+	move.l	wd_RPort(a2),a2		;Set various window parameters
+	move.l	a2,a1
+	moveq	#RP_JAM2,d0
+	gfxcall	SetDrMd
+	move.l	a2,a1
+	moveq	#1,d0
+	gfxcall	SetAPen
+	move.l	a2,a1
+	moveq	#0,d0
+	gfxcall	SetBPen
+
+    ifd UNREGISTERED			;Nastiness - allocate chunks of chip
+	moveq	#2,d1			;  memory.  MAKE SURE THE '.check'
+	move.l	#$1000,d0		;  LINE NEVER CHANGES!!!!
+	move.l	4,a6
+.check	jsr	_LVOAllocMem(a6)
+	jsr	_LVOAllocMem(a6)
+    endc
+
+	move.l	(a7)+,a5
+	ret2
+
+
+CloseWin:		;Close window in A0 - preserves all registers.
+			;  Doesn't do anything to links.
+      ifnd UNREGISTERED
+	movem.l	d0-a6,-(a7)
+	move.l	a0,a2
+	move.l	wd_RPort(a2),a0		;Get rid of TmpRas
+	bsr	FreeTmpRas
+	move.l	wd_RPort(a2),a1		;Was a nonstandard font opened?
+	move.l	rp_RP_User(a1),a1
+	move.l	a1,d0
+	beq	.nofont
+	gfxcall	CloseFont		;Yes, close it
+	move.l	a2,a0
+.nofont	move.l	wd_UserData(a2),a5
+	tst.w	we_NGadgets(a5)		;Did the window have gadgets?
+	beq	.nogads
+	move.l	a2,a0			;Yes, turn off and free
+	move.l	wd_FirstGadget(a2),a1
+	moveq	#-1,d0
+	intcall	RemoveGList
+	move.l	we_Gadgets(a5),a1
+	move.l	we_GadgetSize(a5),d0
+	syscall	FreeMem
+	mvoe.l	we_GBorders(a5),a1
+	move.l	we_GBorderSize(a5),d0
+	syscall	FreeMem
+.nogads	move.l	we_FirstMenu(a5),d0	;Did the window have a menu?
+	beq	.nomenu
+	move.l	d0,a5			;Yes, free it
+	move.l	a2,a0
+	intcall	ClearMenuStrip		;First turn menus off
+.menulp	move.l	a5,a0
+	move.l	mu_NextMenu(a5),a5
+	bsr	FreeImenu
+	move.l	a5,d0
+	bne	.menulp
+.nomenu	move.l	wd_UserData(a2),-(a7)	;Save window extension
+	syscall	Forbid
+	moveq	#0,d0			;Flush all events
+	move.l	wd_UserPort(a2),a0
+	bsr	DoEvent
+	clr.l	wd_UserPort(a2)		;Don't let Intuition kill our port
+	moveq	#0,d0
+	move.l	a2,a0
+	intcall	ModifyIDCMP
+	move.l	wd_Title(a2),-(a7)	;Save title
+	move.l	a2,a0			;Close base window
+	intcall	CloseWindow
+	syscall	Permit
+	move.l	(a7)+,a2
+	move.l	(a7)+,a1		;Free window extension
+	moveq	#we_sizeof,d0
+	syscall	FreeMem
+	move.l	a2,a0			;Free title if necessary
+	bsr	StrFree
+	movem.l	(a7)+,d0-a6
+      endc ;UNREGISTERED
+	rts
+
+CloseIwin:			;Close window in A0
+	pstart2
+	movem.l	a2-a3,-(a7)
+	move.l	wd_WScreen(a0),a3	;Get window's screen's extension
+	move.l	sc_UserData(a3),a3
+	move.l	wd_UserData(a0),a2	;and window's extension
+	move.l	we_PrevIwin(a2),a1	;and previous window
+	move.l	we_NextIwin(a2),a2	;and next window
+	move.l	a1,d1			;Was this the first window?
+	beq	.noprev
+	move.l	wd_UserData(a1),a1	;No, set prev->next to win->next
+	move.l	a2,we_NextIwin(a1)
+	bra	.setprv
+.noprev	move.l	a2,se_FirstIwindow(a3)	;Yes, set FirstIwindow to win->next
+.setprv	move.l	a2,d0			;Was this the last window?
+	beq	.nonext
+	move.l	wd_UserData(a2),a1	;No, set next->prev to win->prev
+	move.l	d1,we_PrevIwin(a1)
+.nonext	dcmp.l	CurIwindow,a0		;Was this the current window?
+	bne	.close
+	move.l	a2,d0			;Yes
+	bne	.setcur			;Was it the last window?
+	move.l	se_FirstIwindow(a3),a2	;Yes - FirstIwindow becomes current
+.setcur	tmove.l	a2,CurIwindow		;No - win->next becomes current
+.close
+    ifd UNREGISTERED			;No other OS-friendly way to get rid
+	intcall	CloseWindow		;  of the window :-( - but don't free
+    else				;  other memory.
+	bsr	CloseWin
+    endc
+	movem.l	(a7)+,a2-a3
+	ret2
+
+CloseWBIwin:			;Close Workbench window in A0
+	pstart2
+	move.l	a2,-(a7)
+	move.l	wd_UserData(a0),a2	;Get window's extension
+	move.l	we_PrevIwin(a2),a1	;and previous window
+	move.l	we_NextIwin(a2),a2	;and next window
+	move.l	a1,d1			;Was this the first window?
+	beq	.noprev
+	move.l	wd_UserData(a1),a1	;No, set prev->next to win->next
+	move.l	a2,we_NextIwin(a1)
+	bra	.setprv
+.noprev	tmove.l	a2,FirstWBIwindow	;Yes, set FirstWBIwindow to win->next
+.setprv	move.l	a2,d0			;Was this the last window?
+	beq	.nonext
+	move.l	wd_UserData(a2),a1	;No, set next->prev to win->prev
+	move.l	d1,we_PrevIwin(a1)
+.nonext	dcmp.l	CurIwindow,a0		;Was this the current window?
+	bne	.close
+	move.l	a2,d0			;Yes
+	bne	.setcur			;Was it the last window?
+	dmove.l	FirstWBIwindow,a2	;Yes - FirstWBIwindow becomes current
+	move.l	a2,d0
+	bne	.setcur
+	dmove.l	FirstIscreen,d0		;No FirstWBIwindow; is there a screen?
+	beq	.setcur			;Nope - no more windows
+	move.l	d0,a2			;Yes - use se_LastActive
+	move.l	sc_UserData(a2),a2
+	move.l	se_LastActive(a2),a2
+.setcur	tmove.l	a2,CurIwindow		;No - win->next becomes current
+.close
+    ifd UNREGISTERED
+	intcall	CloseWindow
+    else
+	bsr	CloseWin
+    endc
+	move.l	(a7)+,a2
+	ret2
+
+GetWinFlags:		;Get current window's flags to D0.
+	pstart2
+	dmove.l	CurIwindow,d0
+	beq	.nowin
+	move.l	d0,a0
+	move.l	wd_UserData(a0),a0
+	move.l	we_Flags(a0),d0
+	ret2
+.nowin	bsr	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+	move.l	wd_UserData(a0),a0
+	move.l	we_Flags(a0),d0
+	ret2
+
+GetSomeWinFlags:	;GetWinFlags for window in A0.
+	move.l	wd_UserData(a0),a0
+	move.l	we_Flags(a0),d0
+	rts
+
+SetWinFlags:		;Set CurWindow flags.  D0 is new flags, D1 is mask:
+			;  NewFlags = (OldFlags & ~D1) | (D0 & D1).  I.e.
+			;  same operation as Signal().
+	pstart2
+	move.l	d2,-(a7)
+	move.l	d0,d2
+	dmove.l	CurIwindow,d0
+	beq	.nowin
+	move.l	d0,a0
+	bra	.doset
+.nowin	bsr	GetCurIscr
+	move.l	d0,a0
+	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+.doset	move.l	wd_UserData(a0),a0
+	lea	we_Flags(a0),a0
+	move.l	d1,d0
+	not.l	d0
+	and.l	d0,(a0)
+	and.l	d1,d2
+	or.l	d2,(a0)
+	move.l	(a7)+,d2
+	ret2
+
+SetSomeWinFlags:	;SetWinFlags for window in A0
+	move.l	wd_UserData(a0),a0
+	lea	we_Flags(a0),a0
+	and.l	d1,d0
+	not.l	d1
+	and.l	d1,(a0)
+	or.l	d0,(a0)
+	rts
+
+GetActiveWin:		;Get address of currently active window to D0.
+	pstart2
+	moveq	#0,d0
+	intcall	LockIBase
+	move.l	ib_ActiveWindow(a6),-(a7)
+	move.l	d0,a0
+	call	UnlockIBase
+	move.l	(a7)+,d0
+	ret2
+
+SetCoords:		;Set coordinates of current window to (D0,D1).  Null
+			;  values leave the coordinate unchanged.  Assumes
+			;  there really is a current window - if not, up comes
+			;  InternalErr.
+	pstart2
+	movem.l	d2-d3,-(a7)
+	moveq	#0,d2
+	moveq	#0,d3
+	move.l	d0,-(a7)
+	dmove.l	CurIwindow,a0
+	move.l	a0,d0
+	beq	.usescr
+	move.b	wd_BorderLeft(a0),d2
+	move.b	wd_BorderTop(a0),d3
+	bra	.gotwin
+.usescr	dmove.l	CurIscreen,a0
+	move.l	a0,d0
+	bne	.okscr
+	move.l	#$53436F0C,d1
+	bsr	InternalErr
+.okscr
+;	tst.l	sc_DefaultTitle(a0)
+;	beq	.nottl
+;	move.b	sc_BarHeight(a0),d3
+;	add.b	sc_BarVBorder(a0),d3
+.nottl	move.l	sc_UserData(a0),a0
+	move.l	se_BaseWin(a0),a0
+.gotwin	move.l	(a7)+,d0
+	move.l	wd_RPort(a0),a1
+	cmp.l	#Null,d0
+	beq	.nox
+	add.w	d2,d0
+	bra	.gotx
+.nox	move.w	rp_cp_x(a1),d0
+.gotx	cmp.l	#Null,d1
+	beq	.noy
+	add.w	d3,d1
+	bra	.goty
+.noy	move.w	rp_cp_y(a1),d1
+.goty	gfxcall	Move
+	moveq	#0,d0
+	moveq	#WEF_UNSET,d1
+	bsr	SetWinFlags
+	movem.l	(a7)+,d2-d3
+	ret2
+
+SetCoordsRel:		;Move CP by (x,y) [delta].
+	pstart2
+	move.l	d0,-(a7)
+	bsr	GetCurRP
+	move.l	d0,a1
+	move.l	(a7)+,d0
+	bsr	GetWinFlags
+	btst	#WEB_UNSET,d0
+	bne	.exit			;If CP not set, can't move
+	add.w	rp_cp_x(a1),d0
+	add.w	rp_cp_y(a1),d1
+	gfxcall	Move
+.exit	ret2
diff --git a/extensions/Intuition-41.95/Intuition/todo b/extensions/Intuition-41.95/Intuition/todo
new file mode 100644
index 0000000..96732d3
--- /dev/null
+++ b/extensions/Intuition-41.95/Intuition/todo
@@ -0,0 +1,31 @@
+Bugs / things to be changed:
+----------------------------
+Boolean gadgets have the wrong border imagery (side edges should be
+    thickness 2)
+Set Igadget Hslider and Set Igadget Vslider should be moved into one
+    routine
+Menus: fix long blank space at bottom
+Menus: commseq, active/inactive, banks
+Menus: add NextSelect handling
+Make Set Imenu more font-sensitive
+SAFE_GRPOS and FAST_WRITEPIXEL need work
+??? Iflood - replace gfxlib call with my version
+Optimisation: use dregs instead of stack to save regs
+
+---
+Future additions:
+---
+Ipaste Bob
+Graphic file load/save (IFF [,GIF] [,JPEG])
+Directory requester
+??? WB/KS version
+WB screen info
+Allow Iscreen Open without BaseWin; Iwindow Open Base; resizable BaseWin?
+  - Allow no BaseWin in utility routines (e.g. FindIwin)
+Use BackFill hook (2.0) for backgrounds?
+MUI
+Commodoties
+AppIcon windows
+Window "freezing" (e.g. when requesters are active) -> rtLockWindow
+Mode limits for screen mode requester
+Change mouse pointer
diff --git a/extensions/Intuition-41.95/Intuition/x.info b/extensions/Intuition-41.95/Intuition/x.info
new file mode 100644
index 0000000..7f95024
Binary files /dev/null and b/extensions/Intuition-41.95/Intuition/x.info differ
diff --git a/extensions/Intuition-41.95/README.md b/extensions/Intuition-41.95/README.md
new file mode 100644
index 0000000..02f371d
--- /dev/null
+++ b/extensions/Intuition-41.95/README.md
@@ -0,0 +1,19 @@
+The AMOS and AMOS1.3 directories contain the basic includes for AMOS
+Professional and AMOS 1.3, respectively.  I recall having to change some of
+the include files to make things assemble, so I've included them just in
+case.
+
+The extension itself, with accompanying documentation and sample programs,
+is in the Intuition directory.  Note that the Makefile was designed for use
+with AMake (another of my programs--see my home page,
+http://www.achurch.org/) and won't work with GNU Make, smake, or similar
+Make utilities.  It may or may not work with DMake (as distributed with the
+DICE C package).
+
+In this directory are a few helper programs I used in working on the
+extension.  Some are called via scripts in the Intuition directory.
+
+I am placing the Intuition extension into the public domain: it may be
+freely used or distributed by anyone.
+
+  --Andrew Church (achurch@achurch.org)
diff --git a/extensions/Intuition-41.95/autorev b/extensions/Intuition-41.95/autorev
new file mode 100644
index 0000000..79d6d0b
Binary files /dev/null and b/extensions/Intuition-41.95/autorev differ
diff --git a/extensions/Intuition-41.95/autorev.c b/extensions/Intuition-41.95/autorev.c
new file mode 100644
index 0000000..e7da72a
--- /dev/null
+++ b/extensions/Intuition-41.95/autorev.c
@@ -0,0 +1,51 @@
+#include <stdio.h>
+#include <string.h>
+#include <time.h>
+#include <dos/dos.h>
+
+main(int ac, char **av) {
+    char s[256];
+    FILE *f, *g;
+    int v;
+    static struct tm tm;
+    static struct FileInfoBlock fib;
+    BPTR l;
+
+    if (ac < 2) exit(20);
+    sprintf(s, "copy %s %s.bak clone", av[1], av[1]);
+    if ((v = system(s)) > 5)
+	exit(v);
+    sprintf(s, "%s.bak", av[1]);
+    if (!(f = fopen(s, "r"))) exit(20);
+    if (!(g = fopen(av[1], "w"))) exit(20);
+    do {
+	fgets(s, 256, f); fprintf(g, "%s", s);
+    } while (strncmp(s, "VERSION", 7));
+    fgets(s, 256, f);
+    strcpy(s, strchr(s, '\"')+1);
+    *strchr(s, '\"') = 0;
+    *strchr(s, '.') = 0;
+    v = strtol(s, NULL, 10);
+    strcpy(s, s+strlen(s)+1);
+    fprintf(g, "\tdc.b \"%d.%d\"\n", v, 1 + strtol(s, NULL, 10));
+    do {
+	fgets(s, 256, f); fputs(s, g);
+    } while (strncmp(s, "DATE", 4));
+    fgets(s, 256, f);
+    tm = *localtime(NULL);
+    fprintf(g, "\tdc.b \"%02d/%02d/%02d\"\n", tm.tm_year % 100,
+						tm.tm_mon + 1, tm.tm_mday);
+    for (;;) {
+	fgets(s, 256, f);
+	if (feof(f)) break;
+	fprintf(g, "%s", s);
+    }
+    fclose(f); fclose(g);
+    sprintf(s, "%s.bak", av[1]);
+    /* Try to reset file date */
+    if (!(l = Lock(s, SHARED_LOCK))) exit(5);
+    Examine(l, &fib);
+    SetFileDate(av[1], &fib.fib_Date);
+    UnLock(l);
+    exit(0);
+}
diff --git a/extensions/Intuition-41.95/extasm b/extensions/Intuition-41.95/extasm
new file mode 100644
index 0000000..d80a0cf
Binary files /dev/null and b/extensions/Intuition-41.95/extasm differ
diff --git a/extensions/Intuition-41.95/extasm.c b/extensions/Intuition-41.95/extasm.c
new file mode 100644
index 0000000..a496057
--- /dev/null
+++ b/extensions/Intuition-41.95/extasm.c
@@ -0,0 +1,491 @@
+/* Assemble an AMOS extension.  Automatically calculates label offsets
+ * and numbers.  Use "L_Name" as an ordinary label, and do ordinary
+ * BSRs/BRAs/etc. to it.  (Note: do not use L_xxx for anything else!)
+ * For AMOS internal routines, do "jsr L_xxx" or "jmp L_xxx".
+ *
+ * ExtAsm normally processes all "include" and "incdir" directives
+ * itself.  If you want to disable this automatic processing for a
+ * section of code, bracket it with these two lines:
+
+;EXTASM: I
+;... includes ...
+;EXTASM: i
+
+ * NOTE ON CONDITIONAL INCLUDES:
+ * (This section only applies if processing of includes is active.)
+ *
+ *   If you conditinally include one or more files, those include
+ * directives *MUST* be bracketed with EXTASM conditionals.  They take
+ * this form:
+
+      ifd SYMBOL
+;EXTASM: DSYMBOL
+	include "myfile.s"
+;EXTASM: E
+      else
+;EXTASM: NSYMBOL
+	include "myotherfile.s"
+;EXTASM: E
+      endc
+
+ * The "EXTASM: X" (with X one of D [defined], N [not defined], or E
+ * [end conditional]) must be in all caps.  Nesting is not allowed.
+ * If you do not include these ExtAsm directives, bad things will
+ * happen!
+ * The symbols used in these tests must be given on the command line
+ * using the "-s" option, as in "-sSYMBOL".  These are also passed to
+ * the assembler, so it must support the "-s" option as well.
+ * The ExtAsm tests must be used around INCDIR directives as well.
+ *
+ * NOTE ON L_xxx LABELS:
+ *   The first label in your extension (the one that begins the startup
+ * stuff) must be L_0.  Otherwise, ExtAsm will not recognise any of
+ * your labels as valid labels.
+ *
+ * Copyright (C) 1994-95 Andrew Church.
+ */
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <strings.h>
+#include <ctype.h>
+
+char verstr[] = "$VER: extasm 1.4 (95/06/18)";
+
+FILE *f = NULL, *f2 = NULL;
+char linebuf[256], incdir[256], defincdir[256];
+int ac;	/* global copy of argc */
+char **av;    /* global copy of argv */
+
+char *ASM = "as";
+char *LINK = "dlink";
+
+
+#define DEBUG
+
+#ifdef DEBUG
+/* Set a breakpoint here... */
+void debug()
+{
+}
+#endif
+
+
+void error(char *s,...)
+{
+    va_list args;
+
+    va_start(args, s);
+    vfprintf(stderr, s, args);
+    fprintf(stderr, "\n");
+    exit(20);
+}
+
+FILE *sfopen(char *s, char *m)
+{
+    FILE *f = fopen(s,m);
+    if (!f) error("Unable to open %s", s);
+    return f;
+}
+
+char *stripblanks(char *s)
+{
+    char *t = s + strlen(s);
+
+    while (*--t == ' ' || *t == '\t' || *t == '\n' && t >= s); *++t = 0;
+    t = s; while (*t == ' ' || *t == '\t' || *t == '\n') t++;
+    return strcpy(s, t);
+}
+
+char *getline(FILE *f)
+{
+    if (fgets(linebuf, 256, f)) {
+	if (linebuf[strlen(linebuf)-1] == '\n')
+	    linebuf[strlen(linebuf)-1] = 0;
+    } else {
+	*linebuf = 0;
+    }
+    return linebuf;
+}
+
+void include(char *fn, FILE *out)
+{
+    FILE *f;
+    register char *s, *t;
+    register char c;
+    char line[256];
+    register int ignore = 0;  /* set to 1 if an EXTASM conditional is true */
+    register int i;
+    register int ignore_incl;	/* Should we ignore include/incdir's? */
+    f = fopen(fn, "r");
+    if (!f) {
+	strcat(strcpy(line, incdir), fn);
+	f = fopen(line, "r");
+	if (!f) {
+	    strcat(strcpy(line, defincdir), fn);
+	    f = fopen(line, "r");
+	    if (!f) error("Couldn't find %s (incdir=\"%s\")", fn, incdir);
+	}
+    }
+    s = getline(f);
+    if (!strncmp(s, ";EXTASM: ", 9)) {
+	c = s[9]; t = s+10;
+	switch (c) {
+	case 'D':
+	    ignore = 1;
+	    for (i = 2; i < ac; i++)
+		if (!strnicmp(av[i], "-s", 2) &&
+			!strcmp(av[i]+2, t)) {
+		    ignore = 0;
+		    break;
+		}
+	    break;
+	case 'N':
+	    ignore = 0;
+	    for (i = 2; i < ac; i++)
+		if (!strnicmp(av[i], "-s", 2) &&
+			!strcmp(av[i]+2, t)) {
+		    ignore = 1;
+		    break;
+		}
+	    break;
+	case 'E':
+	    ignore = 0;
+	    break;
+	case 'I':
+	    ignore_incl = 1; break;
+	case 'i':
+	    ignore_incl = 0; break;
+	default:
+	    error("Unknown EXTASM conditional, type %c", c);
+	}
+    }
+    if (*s == '*') *s = 0;
+    if (t = strchr(s, ';')) *t = 0;
+    strcpy(line, s);
+    stripblanks(s);
+    while (!feof(f) && stricmp(s, "end")) {
+	if (!ignore)
+	    if (!strnicmp(s, "include", 7) && isspace(s[7]) &&
+							!ignore_incl) {
+		stripblanks(strcpy(s, s+7));
+		t = s+1;
+		while (*t != *s) t++; *t = 0;
+		include(s+1, out);
+	    } else if (!strnicmp(s, "incdir", 6) && isspace(s[6]) &&
+							!ignore_incl) {
+		stripblanks(strcpy(s, s+6));
+		t = s+1;
+		while (*t != *s) t++; *t = 0;
+		strcpy(incdir, s+1);
+		if (*(t = incdir + strlen(incdir)-1) != ':' &&
+			*t != '/')
+		    strcat(incdir, "/");
+	    } else
+		fprintf(out, "%s\n", line);
+	s = getline(f);
+	if (!strncmp(s, ";EXTASM: ", 9)) {
+	    c = s[9]; t = s+10;
+	    switch (c) {
+	    case 'D':
+		ignore = 1;
+		for(i = 2; i < ac; i++)
+		    if (!strncmp(av[i], "-S", 2) &&
+			    !strcmp(av[i]+2, t)) {
+			ignore = 0;
+			break;
+		    }
+		break;
+	    case 'N':
+		ignore = 0;
+		for(i = 2; i < ac; i++)
+		    if (!strncmp(av[i], "-S", 2) &&
+			    !strcmp(av[i]+2, t)) {
+			ignore = 1;
+			break;
+		    }
+		break;
+	    case 'E':
+		ignore = 0;
+		break;
+	    case 'I':
+		ignore_incl = 1; break;
+	    case 'i':
+		ignore_incl = 0; break;
+	    default:
+		error("Unknown EXTASM conditional, type %c", c);
+	    }
+	}
+	if (*s == '*') *s = 0;
+	if (t = strchr(s, ';')) *t = 0;
+	strcpy(line, s);
+	stripblanks(s);
+    }
+#ifdef DEBUG
+    debug();
+#endif
+    fclose(f);
+}
+
+void main(int argc, char **argv)
+{
+    static char in[64], out[64], lbl[32], inst[16], op[64], cmd[512],
+		line[256], listout[64];
+    register char *s, *t;
+    int i, n, labelnum = 0, nlabels, codepos, codesize, objsize, curpos,
+	codesize2;
+    int gotfirstlabel = 0;    /* did we find the first label? */
+    static int lpos[2048];
+    short j, bad, listing = 0;
+    char *buf;
+    FILE *listf;
+
+    for (i = 0; i < 2048; i++) lpos[i] = -1;
+    *in = *out = *listout = 0;
+    ac = argc; av = argv;
+    for (i = 1; i < argc; i++) {
+	if (*(s = argv[i]) == '-')
+	    switch (s[1]) {
+	    case 'o':	/* output filename */
+		if (s[2] == 0) {
+		    if (--argc == 0) {
+			fprintf(stderr, "-o option needs a filename\n");
+			exit(20);
+		    }
+		    s = argv[++i];
+		} else
+		    s += 2;
+		strcpy(out, s);
+		break;
+	    case 'S':	/* define a symbol */
+		break;	/* - handled by include() */
+	    case 'l':	/* listing of symbols and Lnnn labels */
+		listing = 1;
+		if (s[2] == '=')
+		    strcpy(listout, s+3);
+		break;
+	    case 'A':	/* assembler */
+		if (s[2] == 0) {
+		    if (--argc == 0) {
+			fprintf(stderr, "-A option needs a filename\n");
+			exit(20);
+		    }
+		    s = argv[++i];
+		} else
+		    s += 2;
+		ASM = s; break;
+	    case 'L':	/* linker */
+		if (s[2] == 0) {
+		    if (--argc == 0) {
+			fprintf(stderr, "-L option needs a filename\n");
+			exit(20);
+		    }
+		    s = argv[++i];
+		} else
+		    s += 2;
+		LINK = s; break;
+	    default:
+		fprintf(stderr, "Unknown option %s\n", s);
+		exit(20);
+	    }
+	else {
+	    if (*in) {
+		fprintf(stderr, "Input file already specified\n");
+		exit(20);
+	    }
+	    strcpy(in, s);
+	}
+    }
+    if (!*in) error("required argument missing");
+    if (!*out) {
+	strcpy(out, in);
+	if (s = strrchr(out, '.')) *s = 0;
+	strcat(out, ".lib");
+    }
+    if (listing) {
+	if (!*listout) {
+	    strcpy(listout, in);
+	    if (s = strrchr(listout, '.')) *s = 0;
+	    strcat(listout, ".lst");
+	}
+	listf = sfopen(listout, "w");
+    }
+    f2 = sfopen("T:___tmp___", "w");
+    strcpy(incdir, in);
+    if (s = strrchr(incdir, '/'))
+	*++s = 0;
+    else if (s = strrchr(incdir, ':'))
+	*++s = 0;
+    strcpy(defincdir, incdir);
+    include(in, f2);
+    fclose(f2);
+    f = sfopen("T:___tmp___", "r");
+    f2 = sfopen("T:extasm_tmp.a", "w");
+    while (!feof(f)) {
+	strcpy(line, s = getline(f));
+	*lbl = *inst = *op = 0;
+	if (*s != ' ' && *s != '\t' && *s != '\n' && *s) {
+	    t = s; i = 0;
+	    do
+		lbl[i++] = *t++;
+	    while (*t != ' ' && *t != '\t' && *t != '\n' &&
+			    *t != ':' && *t);
+	    lbl[i] = 0;
+	    if (*t == ':') t++;
+	    strcpy(s, t);
+	    t = lbl+1;
+	    while (t = strchr(t, '.')) {
+		*t = '_';
+		*(line + (t - lbl)) = '_';
+	    }
+	}
+	t = stripblanks(s);
+	if (!*s || *s == ';' || *s == '*')
+	    if (!strncmp(lbl, "L_", 2)) {
+		if (!gotfirstlabel)
+		    gotfirstlabel = !strcmp(lbl+2, "0");
+		if (gotfirstlabel) {
+		    fprintf(f2, "%s\tequ %d\n\txdef\tL%d\nL%d\n",
+					lbl, labelnum, labelnum, labelnum);
+		    if (listing)
+			fprintf(listf, "L%d\t%s\n", labelnum, lbl);
+		    labelnum++;
+		} else
+		    fprintf(f2, "%s\n", line);
+	    } else
+		fprintf(f2, "%s\n", line);
+	else {
+	    i = 0;
+	    while (*t != ' ' && *t != '\t' && *t != '\n' && *t)
+		inst[i++] = *t++;
+	    inst[i] = 0;
+	    stripblanks(strcpy(op, t));
+	    /* check for 'j' or 'b' (e.g. jsr/bsr) since we don't
+	     * want "rdc.w L_xxx,-1" in the token table.
+	     */
+	    if (!strncmp(t = op, "L_", 2) &&
+		((*inst == 'j' || *inst == 'J') ||
+		 (*inst == 'b' || *inst == 'B'))) {
+		while (t = strchr(t, '.'))
+		    *t = '_';
+		sprintf(line, "%s\tr%s\t%s", lbl, inst, op);
+	    }
+#ifdef FIX_RS
+	    if (!strnicmp(inst, "rs.", 3)) {
+		for (t = op; *t && *t != '\t' &&
+			*t != ' ' && *t != ';'; t++);
+		*t = 0;
+		switch (inst[3]) {
+		case 'w':
+		    strcpy(op, strcat(strcat(
+			    strcpy(s,"("), op
+			    ), ")*2"));
+		    break;
+		case 'l':
+		    strcpy(op, strcat(strcat(strcpy(s,"("), op), ")*4"));
+		    break;
+		}
+		if (*lbl) fprintf(f2, "%s\tequ __RS\n", lbl);
+		fprintf(f2,"__RS\tset __RS+%s\n", op);
+	    } else if (!stricmp(op, "__RS")) {
+		/* Sometimes __Rs is used instead */
+		strcpy(op, "__RS");
+		fprintf(f2, "%s\t%s %s\n", lbl, inst, op);
+	    } else if (!stricmp(inst, "rsreset"))
+		fprintf(f2,"__RS\tset 0\n");
+	    else if (stricmp(inst, "rsset"))  /* ignore RsSet */
+#endif
+	    if (!strncmp(lbl, "L_", 2)) {
+		if (!gotfirstlabel)
+		    gotfirstlabel = !strcmp(lbl+2, "0");
+		if (gotfirstlabel) {
+		    fprintf(f2,
+			    "%s\tequ %d\n\txdef\tL%d\nL%d\t%s%s%s\n",
+			    lbl, labelnum, labelnum, labelnum,
+			    inst, *op ? "\t" : "", op);
+			    labelnum++;
+		} else
+		    fprintf(f2, "%s\n", line);
+	    } else
+		fprintf(f2, "%s\n", line);
+	}
+    }
+    nlabels = labelnum;
+    fclose(f);
+    fclose(f2);
+    if (listing) fclose(listf);
+    remove("T:___tmp___");
+    sprintf(cmd, "%s T:extasm_tmp.a -oT:eatmp.o", ASM);
+    for (i = 1; i < argc; i++)
+	if (!strncmp(argv[i], "-S", 2))
+	    strcat(strcat(cmd, " "), argv[i]);
+    i = system(cmd);
+    remove("T:extasm_tmp.a");
+    if (i >= 10) exit(i);
+    f = sfopen("T:eatmp.o", "r");
+    fread(&n, 4, 1, f);
+    while (n != 0x3E9) {
+	fread(&n, 4, 1, f); fseek(f, n*4, SEEK_CUR);
+	fread(&n, 4, 1, f);
+    }
+    codepos = ftell(f);
+    fread(&codesize, 4, 1, f); codesize *= 4;
+    fseek(f, codesize, SEEK_CUR);
+    fread(&n, 4, 1, f);
+    while (n != 0x3EF) {
+	fread(&n, 4, 1, f); fseek(f, n*4, SEEK_CUR);
+	fread(&n, 4, 1, f);
+    }
+    fread(&n, 4, 1, f);
+    while (n) {
+	j = n >> 24; n &= 0xFFFFFF;
+	switch (j) {
+	case 0x01:    /* XDEF */
+	    fread(lbl, 1, n*4, f);
+	    fread(&n, 4, 1, f);
+	    if (*lbl == 'L') {
+		labelnum = strtol(lbl+1, NULL, 10);
+		lpos[labelnum] = n;
+	    }
+	    break;
+	default:    /* shouldn't be any others */
+	    fprintf(stderr, "Weird HUNK_EXT entry 0x%02x%06x\n",
+		    j, n);
+	    exit(20);
+	}
+	fread(&n, 4, 1, f);
+    }
+    for (i = 0, bad = 0; i < nlabels; i++) {
+	if (lpos[i] == -1) {
+	    fprintf(stderr, "Label L%d not found\n", i);
+	    bad = 1;
+	}
+    }
+    if (bad) exit(20);
+    fseek(f, 0, SEEK_END); objsize = ftell(f); fseek(f, 0, SEEK_SET);
+    f2 = sfopen("T:extasm_tmp.o", "w");
+    buf = malloc(objsize); if (!buf) error("Out of memory");
+    fread(buf, 1, codepos, f); fwrite(buf, 1, codepos, f2);
+    codesize2 = codesize + nlabels * 2 - 2;
+    n = (codesize2 + 3) / 4; fwrite(&n, 4, 1, f2);
+    fseek(f, 8, SEEK_CUR);
+    n = nlabels * 2 - 2; fwrite(&n, 4, 1, f2);
+    fread(buf, 1, 14, f); fwrite(buf, 1, 14, f2);
+    curpos = lpos[0];
+    for (labelnum = 1; labelnum < nlabels; labelnum++) {
+	j = (lpos[labelnum] - curpos) / 2;
+	fwrite(&j, 2, 1, f2);
+	curpos = lpos[labelnum];
+    }
+    fwrite(buf, 1, i = fread(buf, 1 , codesize-18, f), f2);
+    if (codesize2 & 3) {		/* longword align */
+	j = 0; fwrite(&j, 2, 1, f2);
+    }
+    fwrite(buf, 1, fread(buf, 1, objsize, f), f2);    /* copy remainder */
+    fclose(f); fclose(f2); remove("T:eatmp.o");
+    sprintf(cmd, "%s T:extasm_tmp.o -o%s", LINK, out);
+    i = system(cmd);
+    remove("T:extasm_tmp.o");
+    exit(i);
+}
diff --git a/extensions/Intuition-41.95/labelinfo b/extensions/Intuition-41.95/labelinfo
new file mode 100644
index 0000000..65223fa
Binary files /dev/null and b/extensions/Intuition-41.95/labelinfo differ
diff --git a/extensions/Intuition-41.95/labelinfo.c b/extensions/Intuition-41.95/labelinfo.c
new file mode 100644
index 0000000..3e93f2b
--- /dev/null
+++ b/extensions/Intuition-41.95/labelinfo.c
@@ -0,0 +1,27 @@
+/* Info about extension labels (i.e. size,pos) */
+
+#include <stdio.h>
+
+int main(int ac, char **av)
+{
+    FILE *f;
+    short x, rc = 0;
+    long cnt, y, i, pos;
+
+    while (--ac) {
+	++av;
+	if (!(f = fopen(*av, "r"))) {
+	    perror(*av); rc = 10; continue;
+	}
+	fseek(f, 0x20, SEEK_SET);
+	fread(&y, 4, 1, f);
+	fread(&pos, 4, 1, f);
+	i = cnt = y>>1;
+	fseek(f, 0x32, SEEK_SET);
+	while (i--) {
+	    fread(&x, 2, 1, f); x <<= 1;
+	    printf("%4d: %04x/%d\n", cnt-i-1, pos, x);
+	    pos += x;
+	}
+    }
+}
diff --git a/extensions/Misc-1.0/AMOSPro_Misc.Lib b/extensions/Misc-1.0/AMOSPro_Misc.Lib
new file mode 100644
index 0000000..1f6ee3f
Binary files /dev/null and b/extensions/Misc-1.0/AMOSPro_Misc.Lib differ
diff --git a/extensions/Misc-1.0/Manual.TXT b/extensions/Misc-1.0/Manual.TXT
new file mode 100644
index 0000000..f0dd5de
--- /dev/null
+++ b/extensions/Misc-1.0/Manual.TXT
@@ -0,0 +1,76 @@
+                 AMOS Professional Misc Extension
+                 --------------------------------
+
+This extension should originally be shareware, but now AMOS won't be
+updated and it's a bit old too. So this extension is now Public Domain
+and includes source code (written in DevPac assembler). You may expand
+this extension or copy some routines to the code of your extension, but
+please, enter my name in the manual, such like: "Greetings to Frank Otto"
+or "some routines from Misc Extension by Frank Otto". Thanks!
+
+Maybe you already noticed that this extension is very buggy. Some commands
+force AMOS to crash. Maybe I'll create a new version, but why don't you?
+Just debug this extension and send it to Aminet. Do what you want with it,
+it's Public Domain!
+
+OK, to install it to AMOS Pro, just copy the "AMOSPro_Misc.Lib" to your
+APSystem folder, load the Interpreter config and enter at number 23
+"AMOSPro_Misc.Lib". Reboot AMOS Pro and...ready...!
+
+Now the new commands:
+
+Dled On                       Turns on drive led, don't ask me, where
+                              this is for, but maybe when the drive led
+                              doesn't stop reading, use the next command.
+
+Dled Off                      Turns off drive led.
+
+Display Off                   Turns display off. What you do, opening
+                              screens etc., you don't see anything.
+
+Display On                    Turns on display.
+
+Multi Off                     Turns off Multitasking and increases about
+                              10 % speed.
+
+Multi On                      Turns Multitasking on. --WARNING-- you have to
+                              turn it on again before you go back to the
+                              editor or AMOS will crash.
+
+Mouse Off                     Hides mouse and sprite 0. Better than "hide"
+                              because the mouse is hidden forever, even in
+                              the editor. 
+                            -->Suggestion: If you want to expand this 
+                              extension, why not make a "Mouse On" command?
+
+Reset                         Resets your Amiga as if you press Ctrl+A+A and
+                              destroys all (?) viruses.
+
+Clear Ram                     Cleans up Memory by deleting all not-used
+                              fonts, libs, etc.
+
+Disk Wait                     Waits until you insert a new disk.
+
+Firewait                      Waits until pressing fire button. Nothing else
+                              than "While Fire(1)=0 : Wend" but more effective,
+                              cause it's in assembler. A great command for
+                              a pause function in a game.
+                           -->Suggestion: You can make more wait-commands that
+                              wait for left-mouse, right-,...
+
+Pal On                        Forces AMOS to display everything in PAL
+                              This command is not ready yet, it's very
+                              buggy and forces AMOS to crash, so be careful!
+                           -->Suggestion: debug this command and add "Pal Off"
+                              command that switches to Ntsc.
+
+If you want to send me your new Misc Extension or just write me for any
+reason, here's my adress:
+
+    Frank Otto
+    Grelckstr. 27
+    22529 Hamburg
+    Germany
+
+E-Mail: FRANK@ZINOCAVE.wind.dbn.sub.org
+
diff --git a/extensions/Misc-1.0/Manual.TXT.info b/extensions/Misc-1.0/Manual.TXT.info
new file mode 100644
index 0000000..b579c34
Binary files /dev/null and b/extensions/Misc-1.0/Manual.TXT.info differ
diff --git a/extensions/Misc-1.0/Misc_Extension.asm b/extensions/Misc-1.0/Misc_Extension.asm
new file mode 100644
index 0000000..221de3e
--- /dev/null
+++ b/extensions/Misc-1.0/Misc_Extension.asm
@@ -0,0 +1,303 @@
+* AMOS Professional Misc Extension
+* This file is fully public domain.
+
+* Feel free to make a new version!
+* Read the manual for more infos.
+
+* Written with DevPac 2 by
+
+* Frank Otto
+* Grelckstr. 27
+* 22529 Hamburg
+* Germany
+
+* E-Mail: FRANK@ZINOCAVE.wind.dbn.sub.org
+
+
+
+
+; half english, half german, that's europe!
+
+ExecBase=4
+supervisor = -30
+Version         MACRO
+                dc.b    "1.0"
+                ENDM
+ExtNb           equ     23-1
+                Include "|AMOS_Includes.s"
+DLea            MACRO
+                Move.l  Extadr+Extnb*16(a5),\2
+                add.w   #\1-MB,\2
+                ENDM
+DLoad           MACRO
+                move.l  Extadr+Extnb*16(a5),\1
+                ENDM
+Start           dc.l    C_Tk-C_Off
+                dc.l    C_Lib-C_Tk
+                dc.l    C_Title-C_Lib
+                dc.l    C_End-C_Title
+                dc.w    0
+*               Offsets der Befehle
+C_Off           dc.w (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
+                dc.w (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
+                dc.w (L9-L8)/2,(L10-L9)/2,(L11-L10)/2,(L12-L11)/2
+                dc.w (L13-L12)/2,(L14-L13)/2,(L15-L14)/2
+*               Befehlsnamen
+C_Tk            dc.w    1,0
+                dc.b    $80,-1
+                
+                dc.w    L_DLedOn,-1
+                dc.b    "dled o",$80+"n","I",-1         ;Fertig
+                
+                dc.w    L_DLedOff,-1
+                dc.b    "dled of",$80+"f","I",-1        ;Fertig
+                
+                dc.w    L_DisplayOn,-1
+                dc.b    "display o",$80+"n","I",-1      ;Fertig
+                
+                dc.w    L_DisplayOff,-1
+                dc.b    "display of",$80+"f","I",-1     ;Fertig
+                
+                dc.w    L_MultiOff,-1
+                dc.b    "multi of",$80+"f","I",-1       ;Fertig
+                
+                dc.w    L_MultiOn,-1
+                dc.b    "multi o",$80+"n","I",-1        ;Fertig
+                
+                dc.w    L_MouseOff,-1
+                dc.b    "mouse of",$80+"f","I",-1       ;Fertig
+                
+                dc.w    L_Reset,-1
+                dc.b    "rese",$80+"t","I",-1           ;Fertig
+                
+                dc.w    L_ClearRam,-1
+                dc.b    "clear ra",$80+"m","I",-1       ;Fertig
+                
+                dc.w    L_DiskWait,-1
+                dc.b    "disk wai",$80+"t","I",-1       ;Fertig
+                
+                dc.w    L_PalOn,-1
+                dc.b    "pal o",$80+"n","I",-1
+
+                dc.w    L_Fire,-1
+                dc.b    "firewai",$80+"t","I",-1
+
+                dc.w    0
+
+******************************************************************
+*               Start of library
+C_Lib
+
+******************************************************************
+*               COLD START
+L0      moveq   #ExtNb,d0
+        rts
+
+******************************************************************
+*
+L1
+
+******************************************************************
+*       
+L2
+
+******************************************************************
+L_DisplayOff    equ     3
+L3      move.w  #$01a0,$dff096          * Monitor aus
+        move.w  #0,$dff180
+        rts
+******************************************************************
+L_DisplayOn     equ     4
+L4      move.w  #$81a0,$dff096          * Monitor an
+        rts
+******************************************************************
+L_MultiOff      equ     5
+L5      movem.l a3-a6,-(sp)             * Multitasking aus
+        move.l  4,a6
+        jsr     -132(a6)
+        movem.l (sp)+,a3-a6
+        rts
+******************************************************************
+L_MultiOn       equ     6
+L6      movem.l a3-a6,-(sp)             * Multitasking an
+        move.l  4,a6
+        jsr     -138(a6)
+        movem.l (sp)+,a3-a6
+        rts
+******************************************************************
+L_DLedOn        equ     7
+L7      move.b  #127,$bfd100            ; Laufwerk-LED an
+        move.b  #119,$bfd100
+        move.b  #0,$bfd100+512
+        rts                             
+******************************************************************
+L_DLedOff       equ     8
+L8      move.b  #127,$bfd100            ; Laufwerk-LED aus
+        move.b  #119,$bfd100
+        move.b  #255,$bfd100+512
+        rts
+******************************************************************
+L_MouseOff      equ     9
+L9      move.w  #$20,$dff096            ; Mouse aus
+        rts
+******************************************************************
+CuCuOff dc.b    27,"C0",0
+        even
+******************************************************************
+L_Reset         equ     10
+L10     MOVEA.L 4.W,A6
+        JSR     -$0096(A6)
+        JSR     -$0078(A6)              ; Reset
+        CLR.L   4.W
+        LEA     $00FC0000.L,A0
+        RESET   
+        JMP     (A0)
+        DC.B    'Nq'
+        rts
+******************************************************************      
+L_ClearRam     equ      11
+L11     movem.l         a6,-(sp)        ; No Drivers
+        move.l          4,a6
+        moveq           #0,d1
+        move.l          #99999999,d0
+        jsr             -198(a6)
+        move.l          d0,a0
+        beq.s           glbl
+        jsr             -210(a6)
+glbl    movem.l         (sp)+,a6
+        rts
+******************************************************************
+L_Fire          equ     12
+L12     btst    #07,$bfe001
+        bne     L12
+        rts
+*****************************************************************
+L_DiskWait      equ     13
+L13
+dc:     move.b  $bfe001,d0              ; Diskchange
+        and.b   #16,d0
+        bne     dc
+        movem.l a6,-(sp)
+        movea.l 4,a6
+Wait    move.l  #500,d1
+Wait2   bsr     tests
+        sub.l   #1,d1
+        bne     Wait2
+        jsr     -120(a6)
+        lea     $196(a6),a0
+        lea     Validate,a1
+        jsr     -276(a6)
+        move.l  d0,d2
+        bne     Check
+        lea     $1a4(a6),a0
+        lea     Validate,a1
+        jsr     -276(a6)
+        move.l  d0,d2
+Check   jsr     -126(a6)
+        tst.l   d2
+        bne     Wait
+        movem.l (sp)+,a6
+        rts
+tests   movem.l a0-a6/d0-d7,-(sp)
+        movem.l (sp)+,a0-a6/d0-d7
+        rts
+Validate:
+        dc.b    'Validator',0
+        even
+**********************************************************************
+L_PalOn equ     14
+L14
+
+Flag_60Hz               RS.B    1
+Flag_Color              RS.B    1
+Flag_OverScan           RS.B    1
+Flag_Enable             RS.B    1
+Flag_FatAgnus           RS.B    1
+Flag_Resident           RS.B    1
+gb_DisplayFlags         EQU     206     ;graphics
+gb_DisplayRows          EQU     212
+gb_NormalDisplayRows    EQU     216
+VBlankFrequency         EQU     530
+_LVOCloseLibraryP       EQU     -414
+_LVOSumLibraryP         EQU     -426
+_LVOOpenLibraryP        EQU     -552
+Exebas                  EQU     $4
+LIBF_CHANGED            EQU     2
+LIB_FLAGS               EQU     14
+BEAMCON0                EQU     $1DC
+CUSTOM                  EQU     $DFF000
+CALL            MACRO
+                IFC     'EXEC','\1'
+                MOVEA.L (Exebas).W,A6
+                ENDC
+                IFNC    'EXEC','\1'
+                MOVEA.L \1Base,A6
+                ENDC
+                JSR     _LVO\2(A6)
+                ENDM
+
+OPENLIB         MACRO
+                LEA     \1Name(PC),A1
+                CLR.L   D0
+                CALL    EXEC,OpenLibraryP
+                MOVE.L  D0,\1Base
+                BEQ     \2
+                ENDM
+CLOSELIB        MACRO
+                MOVEA.L \1Base,A1
+                CALL    EXEC,CloseLibraryP
+                ENDM
+Go60            tst.b   Flag_FatAgnus(a0)       ;put system in NTSC mode
+                beq.s   .NoFatty
+                move.w  #$0000,BEAMCON0!CUSTOM  ;to NTSC please
+                bra.s   .Go60
+.NoFatty        move.w  #$0000,BEAMCON0!CUSTOM
+                bne.s   .Error                  ;not available
+.Go60           lea     GFXName(PC),a1          ;modify graphics.library
+                clr.l   d0
+                CALL    EXEC,OpenLibraryP
+                move.l  d0,a1
+                move.w  gb_DisplayFlags(a1),d0
+                and.b   #%11111011,d0
+                or.b    #%00000001,d0
+                move.w  d0,gb_DisplayFlags(a1)
+                move.w  #200,gb_NormalDisplayRows(a1)
+                move.w  #262,gb_DisplayRows(a1)
+                or.b    #LIBF_CHANGED,LIB_FLAGS(a1)
+                movea.l a1,a2
+                CALL    EXEC,SumLibraryP
+                movea.l a2,a1
+                CALL    EXEC,CloseLibraryP
+                move.b  #60,VBlankFrequency(a6)
+                or.b    #LIBF_CHANGED,LIB_FLAGS(a6)
+                CALL    EXEC,SumLibraryP
+                lea     Flags(pc),a0
+                st      Flag_Enable(a0)         ;start it
+                moveq   #0,d0
+                rts
+.Error          lea     Flags(pc),a0
+                st      Flag_60Hz(a0)
+                sf      Flag_Enable(a0)         ;stop it
+                moveq   #-1,d0
+                rts
+GFXName         DC.B    "graphics.library",$0
+                EVEN
+Flags           DCB.B   8
+                rts
+************************************************
+L15
+
+
+*               Welcome message                     ;"  
+C_Title:        
+        dc.b    "AMOSPro Misc Extension V"
+        Version
+        dc.b    " by Frank Otto (1995)"
+        dc.b    0,"$VER: "
+        Version
+        dc.b    0
+        Even
+
+***********************************************************
+C_End:  dc.w    0
+        even
diff --git a/extensions/Misc-1.0/Misc_Extension.asm.info b/extensions/Misc-1.0/Misc_Extension.asm.info
new file mode 100644
index 0000000..b64e463
Binary files /dev/null and b/extensions/Misc-1.0/Misc_Extension.asm.info differ
diff --git a/extensions/Personal-1.1a/AMOSPro_Personnal.Lib b/extensions/Personal-1.1a/AMOSPro_Personnal.Lib
new file mode 100644
index 0000000..65d5ee0
Binary files /dev/null and b/extensions/Personal-1.1a/AMOSPro_Personnal.Lib differ
diff --git a/extensions/Personal-1.1a/AMOSPro_Personnal.Lib.s b/extensions/Personal-1.1a/AMOSPro_Personnal.Lib.s
new file mode 100644
index 0000000..7004791
--- /dev/null
+++ b/extensions/Personal-1.1a/AMOSPro_Personnal.Lib.s
@@ -0,0 +1,4534 @@
+;
+; *************************************************************
+; *							      *
+; * FireWorks(c)1995 AmosProfessionnal Personnal Library V1.0 *
+; *							      *
+; *************************************************************
+;
+
+Version		MACRO
+		Dc.b	"1.0b"
+		ENDM
+
+ExtNb		Equ	13-1
+
+		Include "Includes:amos_includes.s"
+;		Include	"Includes:_Chips.s"
+;
+; DLea et Dload INCOMPILABLES pour la version de demonstration 1.0b
+;DLea		MACRO
+;		Lea	\1(pc),\2
+;		ENDM
+;Dload		MACRO
+;		Lea	FWC(pc),\1
+;		ENDM
+
+
+; DLea et Dload COMPILABLES pour la version COMPLETE 1.1
+DLea		MACRO
+		Move.l	ExtAdr+ExtNb*16(a5),\2
+		Add.w	#\1-FWC,\2
+		ENDM
+Dload		MACRO
+		Move.l	ExtAdr+ExtNb*16(a5),\1
+		ENDM
+;
+SaveRegisters	MACRO
+		DLea	Registers,a0
+		Move.l	a3,(a0)
+		ENDM
+
+LoadRegisters	MACRO
+		DLea	Registers,a0
+		Move.l	(a0),a3
+		ENDM
+
+Start		Dc.l	C_TK-C_OFF
+		Dc.l	C_LIB-C_TK
+		Dc.l	C_TITLE-C_LIB
+		Dc.l	C_END-C_TITLE
+		Dc.w	0
+
+C_OFF		Dc.w	(L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2,(L5-L4)/2
+		Dc.w	(L6-L5)/2,(L7-L6)/2,(L8-L7)/2,(L9-L8)/2
+		Dc.w	(L10-L9)/2,(L11-L10)/2,(L12-L11)/2,(L13-L12)/2
+		Dc.w	(L14-L13)/2,(L15-L14)/2,(L16-L15)/2,(L17-L16)/2
+		Dc.w	(L18-L17)/2,(L19-L18)/2,(L20-L19)/2,(L21-L20)/2
+		Dc.w	(L22-L21)/2,(L23-L22)/2,(L24-L23)/2,(L25-L24)/2
+		Dc.w	(L26-L25)/2,(L27-L26)/2,(L28-L27)/2,(L29-L28)/2
+		Dc.w	(L30-L29)/2,(L31-L30)/2,(L32-L31)/2,(L33-L32)/2
+		Dc.w	(L34-L33)/2,(L35-L34)/2,(L36-L35)/2,(L37-L36)/2
+		Dc.w	(L38-L37)/2,(L39-L38)/2,(L40-L39)/2,(L41-L40)/2
+		Dc.w	(L42-L41)/2,(L43-L42)/2,(L44-L43)/2,(L45-L44)/2
+		Dc.w	(L46-L45)/2,(L47-L46)/2,(L48-L47)/2,(L49-L48)/2
+		Dc.w	(L50-L49)/2,(L51-L50)/2,(L52-L51)/2,(L53-L52)/2
+		Dc.w	(L54-L53)/2,(L55-L54)/2,(L56-L55)/2,(L57-L56)/2
+		Dc.w	(L58-L57)/2,(L59-L58)/2,(L60-L59)/2,(L61-L60)/2
+		Dc.w	(L62-L61)/2,(L63-L62)/2,(L64-L63)/2,(L65-L64)/2
+		Dc.w	(L66-L65)/2,(L67-L66)/2,(L68-L67)/2,(L69-L68)/2
+		Dc.w	(L70-L69)/2,(L71-L70)/2,(L72-L71)/2,(L73-L72)/2
+		Dc.w	(L74-L73)/2,(L75-L74)/2,(L76-L75)/2,(L77-L76)/2
+		Dc.w	(L78-L77)/2,(L79-L78)/2,(L80-L79)/2,(L81-L80)/2
+		Dc.w	(L82-L81)/2,(L83-L82)/2,(L84-L83)/2,(L85-L84)/2
+		Dc.w	(L86-L85)/2,(L87-L86)/2,(L88-L87)/2,(L89-L88)/2
+		Dc.w	(L90-L89)/2,(L91-L90)/2,(L92-L91)/2,(L93-L92)/2
+		Dc.w	(L94-L93)/2,(L95-L94)/2,(L96-L95)/2,(L97-L96)/2
+		Dc.w	(L98-L97)/2,(L99-L98)/2,(L100-L99)/2
+		Dc.w	(L101-L100)/2,(L102-L101)/2,(L103-L102)/2
+		Dc.w	(L104-L103)/2,(L105-L104)/2,(L106-L105)/2
+		Dc.w	(L107-L106)/2,(L108-L107)/2,(L109-L108)/2
+		Dc.w	(L110-L109)/2,(L111-L110)/2,(L112-L111)/2
+		Dc.w	(L113-L112)/2,(L114-L113)/2,(L115-L114)/2
+		Dc.w	(L116-L115)/2,(L117-L116)/2,(L118-L117)/2
+		Dc.w	(L119-L118)/2,(L120-L119)/2,(L121-L120)/2
+		Dc.w	(L122-L121)/2,(L123-L122)/2,(L124-L123)/2
+
+
+
+;		Dc.w	...
+
+C_TK		Dc.w	1,0
+		Dc.b	$80,-1
+		Dc.w	L_SNTSC,-1
+		Dc.b	"set nts","c"+$80,"I",-1
+		Dc.w	L_SPAL,-1
+		Dc.b	"set pa","l"+$80,"I",-1
+		Dc.w	-1,L_RCLICK
+		Dc.b	"right clic","k"+$80,"0",-1
+		Dc.w	-1,L_FIRE2
+		Dc.b	"fire(1,2",")"+$80,"0",-1
+		Dc.w	-1,L_FIRE3
+		Dc.b	"fire(1,3",")"+$80,"0",-1
+		Dc.w	-1,L_HAM
+		Dc.b	"ha","m"+$80,"0",-1
+		Dc.w	-1,L_EHB
+		Dc.b	"eh","b"+$80,"0",-1
+		Dc.w	L_CREATECOPPER,-1
+		Dc.b	"create ag","a"+$80,"I0",-1
+		Dc.w	-1,L_TESTA3
+		Dc.b	"tes","t"+$80,"0",-1
+		Dc.w	L_SETCOLOR,-1
+		Dc.b	"set colo","r"+$80,"I0,0,0,0",-1
+		Dc.w	L_XFADE,-1
+		Dc.b	"x fad","e"+$80,"I",-1
+		Dc.w	-1,L_COPPERBASE
+		Dc.b	"copper bas","e"+$80,"0",-1
+		Dc.w	L_CHANGECOPPER,-1
+		Dc.b	"copper bas","e"+$80,"I0",-1
+		Dc.w	L_SETPLANE,-1
+		Dc.b	"set plan","e"+$80,"I0,0",-1
+		Dc.w	-1,L_PLANEBASE
+		Dc.b	"plane bas","e"+$80,"00",-1
+		Dc.w	-1,L_COLORREAD
+		Dc.b	"set colo","r"+$80,"00",-1
+		Dc.w	L_LINEWAIT,-1
+		Dc.b	"copper next lin","e"+$80,"I",-1
+		Dc.w	-1,L_LINESEE
+		Dc.b	"copper lin","e"+$80,"0",-1
+		Dc.w	L_VIEW2,-1
+		Dc.b	"set view plane","s"+$80,"I0",-1
+		Dc.w	L_COLORWAIT,-1
+		Dc.b	"new color valu","e"+$80,"I0,0,0,0",-1
+		Dc.w	L_SCREENSIZE,-1
+		Dc.b	"set screen size","s"+$80,"I0,0",-1
+		Dc.w	-1,L_XSIZE
+		Dc.b	"screen x siz","e"+$80,"0",-1
+		Dc.w	-1,L_YSIZE
+		Dc.b	"screen y siz","e"+$80,"0",-1
+		Dc.w	L_CREATECOPPER2,-1
+		Dc.b	"create standar","d"+$80,"I0",-1
+		Dc.w	L_SCREENOFFSET,-1
+		Dc.b	"screen positio","n"+$80,"I0,0,0",-1
+		Dc.w	L_DUALPLAYFIELD,-1
+		Dc.b	"set dual mod","e"+$80,"I0",-1
+		Dc.w	L_RESOLUTION,-1
+		Dc.b	"set resolutio","n"+$80,"I0",-1
+		Dc.w	L_SETLACE,-1
+		Dc.b	"set lac","e"+$80,"I0",-1
+		Dc.w	L_COPPERLINE2,-1
+		Dc.b	"copper wait lin","e"+$80,"I0",-1
+		Dc.w	L_MOSAICx2,-1
+		Dc.b	"mosaic x","2"+$80,"I0",-1
+		Dc.w	L_MOSAICx4,-1
+		Dc.b	"mosaic x","4"+$80,"I0",-1
+		Dc.w	L_Mosaicx8,-1
+		Dc.b	"mosaic x","8"+$80,"I0",-1
+		Dc.w	L_Mosaicx16,-1
+		Dc.b	"mosaic x1","6"+$80,"I0",-1
+		Dc.w	L_MOSAICx32,-1
+		Dc.b	"mosaic x3","2"+$80,"I0",-1
+		Dc.w	L_ACTIVECOP,-1
+		Dc.b	"active coppe","r"+$80,"I",-1
+		Dc.w	L_SETHAMMODE,-1
+		Dc.b	"ham mod","e"+$80,"I0",-1
+		Dc.w	L_IFFTOSCREEN,-1
+		Dc.b	"iff conver","t"+$80,"I0",-1
+		Dc.w	L_ALLOWPLANES,-1
+		Dc.b	"allow plane co","l"+$80,"I0",-1
+		Dc.w	L_FORBIDPLANES,-1
+		Dc.b	"forbid plane co","l"+$80,"I0",-1
+		Dc.w	L_RESERVEDPF,-1
+		Dc.b	"inverse playfield","s"+$80,"I",-1
+		Dc.w	L_NORMALDPF,-1
+		Dc.b	"normal playfield","s"+$80,"I",-1
+		Dc.w	-1,L_CHECKCOL
+		Dc.b	"sprite co","l"+$80,"00,0",-1
+		Dc.w	-1,L_CHECKCOL2
+		Dc.b	"playfields co","l"+$80,"0",-1
+		Dc.w	-1,L_CHECKCOL3
+		Dc.b	"pf sprites co","l"+$80,"00,0",-1
+		Dc.w	-1,L_COS1000
+		Dc.b	"fc co","s"+$80,"00",-1
+		Dc.w	-1,L_SIN1000
+		Dc.b	"fc si","n"+$80,"00",-1
+		Dc.w	-1,L_TAN1000
+		Dc.b	"fc ta","n"+$80,"00",-1
+		Dc.w	-1,L_IFFXSize
+		Dc.b	"iff x siz","e"+$80,"00",-1
+		Dc.w	-1,L_IFFYSize
+		Dc.b	"iff y siz","e"+$80,"00",-1
+		Dc.w	-1,L_IFFDepth
+		Dc.b	"iff plane","s"+$80,"00",-1
+		Dc.w	L_DoubleMASK,-1
+		Dc.b	"double mas","k"+$80,"I0t0,0",-1
+		Dc.w	L_DoubleMASK2,-1
+		Dc.b	"l double mas","k"+$80,"I0,0,0t0,0",-1
+		Dc.w	L_RESERVESPRITE,-1
+		Dc.b	"f set sprite buffe","r"+$80,"I0,0",-1
+		Dc.w	L_GETEVENSPRITE,-1
+		Dc.b	"get even sprit","e"+$80,"I0,0,0,0t0",-1
+		Dc.w	L_GETODDSPRITE,-1
+		Dc.b	"get odd sprit","e"+$80,"I0,0,0,0t0",-1
+		Dc.w	L_ACTIVESPRITE,-1
+		Dc.b	"f sprit","e"+$80,"I0t0,0,0,0",-1
+		Dc.w	L_DOUBLEMASKB,-1			; Src1,Msk,Src2,Cible.
+		Dc.b	"blit mas","k"+$80,"I0,0,0t0",-1
+		Dc.w	L_DOUBLEMASKB2,-1	; Src1,Msk,Src2 To Cible,Ys,Ye.
+		Dc.b	"l blit mas","k"+$80,"I0,0,0t0,0,0",-1
+		Dc.w	L_PATCH13,-1
+		Dc.b	"aga of","f"+$80,"I",-1
+		Dc.w	L_LFILTER1,-1
+		Dc.b	"low filter.","b"+$80,"I0t0,0",-1
+		Dc.w	L_LFILTER2,-1
+		Dc.b	"low filter.","w"+$80,"I0t0,0",-1
+		Dc.w	L_LFILTER3,-1
+		Dc.b	"low filter.","l"+$80,"I0t0,0",-1
+		Dc.w	L_2NDPAL,-1
+		Dc.b	"set dual palett","e"+$80,"I0",-1
+		Dc.w	-1,L_READIFFCOLOR
+		Dc.b	"iff colo","r"+$80,"00,0",-1
+		Dc.w	L_ADD2SCREEN,-1
+		Dc.b	"active second scree","n"+$80,"I",-1
+		Dc.w	L_SET2PLANES,-1
+		Dc.b	"set second plane","s"+$80,"I0,0",-1
+		Dc.w	L_SET2VIEW,-1
+		Dc.b	"set second vie","w"+$80,"I0",-1
+		Dc.w	L_SET2PAL,-1
+		Dc.b	"set second colo","r"+$80,"I0,0,0,0",-1
+		Dc.w	-1,L_CMAP
+		Dc.b	"cmap bas","e"+$80,"00",-1
+		Dc.w	L_BPALETTE,-1
+		Dc.b	"change palett","e"+$80,"I0,0",-1
+		Dc.w	L_IPALETTE,-1
+		Dc.b	"iff8bits palette to coppe","r"+$80,"I0,0",-1
+		Dc.w	L_VBLWAIT,-1
+		Dc.b	"vb line wai","t"+$80,"I0",-1
+		Dc.w	L_JPALETTE,-1
+		Dc.b	"iff4bits palette to coppe","r"+$80,"I0,0",-1
+		Dc.w	L_FPALETTE,-1
+		Dc.b	"fade palett","e"+$80,"I0,0,0",-1
+		Dc.w	L_CPALETTE,-1
+		Dc.b	"attribute palett","e"+$80,"I0,0,0,0,0t0",-1
+		Dc.w	L_2VIEW,-1
+		Dc.b	"second y siz","e"+$80,"I0",-1
+		Dc.w	L_IFF8TO4,-1
+		Dc.b	"iff8bits to iff4bit","s"+$80,"I0,0t0",-1
+		Dc.w	L_SETCOLORCOMP,-1
+		Dc.b	"set aga colo","r"+$80,"I0,0,0,0",-1
+		Dc.w	L_MFILL,-1
+		Dc.b	"octets fil","l"+$80,"I0,0t0",-1
+		Dc.w	L_BLITCOPY,-1
+		Dc.b	"blitter cop","y"+$80,"I0t0",-1
+		Dc.w	L_CONFORM32,-1
+		Dc.b	"s32 block to scree","n"+$80,"I0",-1
+		Dc.w	L_CONFORM32B,-1
+		Dc.b	"s32 vertice to scree","n"+$80,"I0",-1
+		Dc.w	L_SETDPLANE,-1
+		Dc.b	"set d plan","e"+$80,"I0,0",-1
+		Dc.w	L_SWAPPLANES,-1
+		Dc.b	"swap plane","s"+$80,"I",-1
+		Dc.w	L_RESICON,-1
+		Dc.b	"aga reserve ico","n"+$80,"I0",-1
+		Dc.w	L_ERAICON,-1
+		Dc.b	"aga erase ico","n"+$80,"I",-1
+		Dc.w	L_GETICON,-1
+		Dc.b	"aga get ico","n"+$80,"I0,0,0",-1
+		Dc.w	L_PASICON,-1
+		Dc.b	"aga paste ico","n"+$80,"I0,0,0",-1
+		Dc.w	-1,L_ICONBASE
+		Dc.b	"aga icon bas","e"+$80,"0",-1
+		Dc.w	L_SAVEICON,-1
+		Dc.b	"aga icon sav","e"+$80,"I2",-1
+		Dc.w	L_LOADICON,-1
+		Dc.b	"aga icon loa","d"+$80,"I2",-1
+		Dc.w	L_MPRESERVE,-1
+		Dc.b	"mplot reserv","e"+$80,"I0",-1
+		Dc.w	L_MPERASE,-1
+		Dc.b	"mplot eras","e"+$80,"I",-1
+		Dc.w	L_MPLOAD,-1
+		Dc.b	"mplot loa","d"+$80,"I2",-1
+		Dc.w	L_MPSAVE,-1
+		Dc.b	"mplot sav","e"+$80,"I2",-1
+		Dc.w	L_MPDEFINE,-1
+		Dc.b	"mplot defin","e"+$80,"I0,0,0,0",-1
+		Dc.w	-1,L_MPBASE
+		Dc.b	"mplot bas","e"+$80,"0",-1
+		Dc.w	L_MPDRAW,-1
+		Dc.b	"mplot dra","w"+$80,"I0t0",-1
+		Dc.w	-1,L_MPX
+		Dc.b	"x mplo","t"+$80,"00",-1
+		Dc.w	-1,L_MPY
+		Dc.b	"y mplo","t"+$80,"00",-1
+		Dc.w	-1,L_MPC
+		Dc.b	"c mplo","t"+$80,"00",-1
+		Dc.w	L_MPMODIFY,-1
+		Dc.b	"mplot modif","y"+$80,"I0t0,0,0",-1
+		Dc.w	L_MPMODIFY2,-1
+		Dc.b	"mplot x defin","e"+$80,"I0,0",-1
+		Dc.w	L_MPMODIFY3,-1
+		Dc.b	"mplot y defin","e"+$80,"I0,0",-1
+		Dc.w	L_MPMODIFY4,-1
+		Dc.b	"mplot c defin","e"+$80,"I0,0",-1
+		Dc.w	L_MPORIGIN,-1
+		Dc.b	"mplot origi","n"+$80,"I0,0",-1
+		Dc.w	L_MPPLANES,-1
+		Dc.b	"mplot plane","s"+$80,"I0",-1
+		Dc.w	L_LSRL,-1
+		Dc.b	"lsr zon","e"+$80,"I0t0",-1
+		Dc.w	L_MPDRAWDPF1,-1
+		Dc.b	"mplot dpf1 dra","w"+$80,"I0t0",-1
+		Dc.w	L_MPDRAWDPF2,-1
+		Dc.b	"mplot dpf2 dra","w"+$80,"I0t0",-1
+;		Dc.w	...
+;		Dc.b	...	
+		Dc.w	0
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+C_LIB
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L0	movem.l	a3-a6,-(sp)
+	Lea	FWC(pc),a2
+	Move.l	a2,ExtAdr+ExtNb*16(a5)
+	Lea	RouDef(pc),a0
+	Move.l	a0,ExtAdr+ExtNb*16+4(a5)
+	Lea	RouEnd(pc),a0
+	Move.l	a0,ExtAdr+ExtNb*16+8(a5)
+;	Bra	_nofucktime
+; OUVERTURE ET ECRITURE DU REQUEST POUR LA VERSION UNREGISTERED!!!
+	Move.l	$4,a6
+	DLea	_DName,a1
+	Move.l	#0,d0
+	Jsr	-552(a6)	; Open Library
+	DLea	_DBase,a0
+	Move.l	d0,(a0)
+	Move.l	d0,a1
+	Jsr	-414(a6)
+	DLea	WIN,a0
+	Move.l	a0,d1
+	DLea	_DBase,a0
+	Move.l	(a0),a6
+	Move.l	#1005,d2
+	Jsr	-30(a6)		; Open Window
+	DLea	WINH,a0
+	Move.l	d0,(a0)
+	Move.l	d0,d1
+	DLea	WINT,a0
+	Move.l	a0,d2
+	DLea	WINT2,a3
+	DLea	WINT,a4
+	Sub.l	a4,a3
+	Move.l	a3,d3
+	Jsr	-48(a6)
+	Move.l	#$300000,d0
+_xxc	Sub.l	#1,d0
+	Bpl	_xxc
+	DLea	WINH,a0
+	Move.l	(a0),d1
+	Jsr	-36(a6)
+_nofucktime
+	Movem.l	(sp)+,a3-a6
+	Moveq	#ExtNb,D0				; OK
+	Rts
+******** Initialise.
+; Remise a zero de tous les compteurs.
+RouDef	Move.w	#$0,$dff1fc		; Disable DOUBLE SCANNING.
+	Move.w	#$c00,$dff106		; GRAPHICS PALETTE=0 to 31
+	Rts
+******** Quit.
+RouEnd	DLea	_Mplots,a0
+	Move.l	(a0),d0
+	Cmp.l	#0,d0
+	Beq	_re1
+	Rbra	L_MPERASE
+_re1	DLea	_Icons,a0
+	Move.l	(a0),d0
+	Cmp.l	#0,d0
+	Beq	_re2
+	Rbra	L_ERAICON
+_re2	Rts
+;
+;
+; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DATA ZONE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+FWC
+; BANQUE DE DONNEES ACCESSIBLES A L'UTILISATEUR.
+_BitsPlanes	Dc.l	0,0,0,0,0,0,0,0,0	; All 8 planes adresses.
+_CopperBase	Dc.l	0	; Copper base adress.
+_XYOff		Dc.l	0,0,0,0	; 2 Ecrans Maxi (Dual Playfield)
+_Aga		Dc.l	0	; AGA=1 NONAGA=0 SCREENS COPPER MODE.
+_XY		Dc.l	$140,$C0	; X.l,Y.l Screen Sizes(320,192).
+_Line		Dc.l	$32	; Line pour la Wait
+_CurrentLine	Dc.l	0	; Copper position to add Color change.
+; Icons Data List...
+_Icons	Dc.l	0	; Nombre d'icones au maximum.
+_IcBase	Dc.l	0	; adresse de la banque d'icones.
+; Mplot data list...
+_Mplots	Dc.l	0
+_MpBase	Dc.l	0
+_Origin	Dc.l	0,0	; Mplot x,y origin for origin axes.
+_MpP	Dc.l	8	; Mplot Max Planes.
+; En premier obligatoirement.
+_PlanesMask	Dc.l	$0,$1000,$2000,$3000,$4000,$5000,$6000,$7000,$10
+_Debuto		Dc.b	"FrWk"
+_2nd		Dc.l	0
+; Pour la version UNREGISTERED
+WIN	Dc.b	"CON:0/16/640/128/"
+	Dc.b	"                     ���������Amos Request Window ��������"
+;	Dc.b	"/CLOSE",0
+WINH	Dc.l	0
+WINT	Dc.b	$9b,"1m"
+	Dc.b	" Amos 1.3 ET Amos Professionnal Personnal library",10
+	Dc.b	$9b,"3;32m"
+	Dc.b	" Version SHAREWARE de demonstration : 1.0b",10
+	Dc.b	$9b,"33m"
+	Dc.b	" Date d'edition : July 1996",10
+	Dc.b	" Auteur : Frederic Cordier",10
+	Dc.b	" ",10
+	Dc.b	$9b,"0;32m"
+	Dc.b	" Cette version est la version de demonstration 1.0b",10
+	Dc.b	" ",10
+	Dc.b	" Elle a pour protection le fait d'etre INCOMPILABLE.",10
+	Dc.b	"Pour obtenir la version Compilable , se referer aux",10
+	Dc.b	"documentations fournies avec la librairie.",10,10
+	Dc.b	"                                       "
+	Dc.b	$9b,"4;33m"
+	Dc.b	"Good Work with AMOS...",10
+	Dc.b	$9b,"0m"
+	Dc.b	" ",10
+WINT2	Dc.l	0
+;
+; Pour les sprites.
+_SpriteBase	Dc.l	0
+_SpriteLength	Dc.l	0
+_SprXPos	Dc.l	0,0,0,0,0,0,0,0		; 08 Sprites au
+_SprYPos	Dc.l	0,0,0,0,0,0,0,0		; Maximum (2C.L-)
+_SprBase	Dc.l	0,0,0,0,0,0,0,0
+_SprLen		Dc.l	0,0,0,0,0,0,0,0
+_SprVis		Dc.l	0,0,0,0,0,0,0,0
+_Temp		Dc.l	0
+;
+; Registres
+Registers	Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+_DoubleCopper	Dc.l	0	; Mode Double COPPER-LIST Actif/Inactif.
+_BPlanesMask	Dc.l	0	; Mask pour ALLOW PLANES instruction.
+_SprPtBase	Dc.l	0	; Adresse de base des sprites.
+_ColorBase	Dc.l	0	; In Copper Color00 Position.
+_ColorBase2	Dc.l	0	; In Copper Color00 Complement Position.
+_BplConBase	Dc.l	0	; In Copper BplCon0 Position.
+_BplPtBase	Dc.l	0	; In Copper BplPth0 Position.
+_BitsPlanesD	Dc.l	0,0,0,0,0,0,0,0,0
+_BitsPlanes2	Dc.l	0,0,0,0,0,0,0,0,0	; during SCREEN OFFSETs.
+_CurrentPal	Dc.l	0
+_Others		Dc.l	0	; DIWSTRT,DIWSTOP,DDFSTRT,DDFSTOP,BPLMODS
+_AgaPalette	Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+		Dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+; Autres Registres.
+_MosaicBase	Dc.l	0,0
+_MosaicPlanes	Dc.l	0,0,0,0,0,0,0,0,0
+; Iff CONVERT.
+_IffBase	Dc.l	0	; Ilbm Base.
+_Bmhd		Dc.l	0	; Ilbm 'BMHD' Base.
+_Cmap		Dc.l	0	; Ilbm 'CMAP' Base.
+_Body		Dc.l	0	; Ilbm 'BODY' Base.
+_LbmXs		Dc.l	0	; Ilbm X Size.
+_LbmYs		Dc.l	0	; Ilbm Y Size.
+_LbmDp		Dc.l	0	; Ilbm Depth.
+_BitsPlanes3	Dc.l	0,0,0,0,0,0,0,0,0	; during IFF Convertion.
+; DOUBLE MASK
+_MaskBase	Dc.l	0
+_MScrn1		Dc.l	0
+_MScrn2		Dc.l	0
+_MLen		Dc.l	0
+_DMY		Dc.l	0,0
+_MScroll	Dc.l	0,0
+_dx1	Dc.l	0	; FrontGround.
+_dx2	Dc.l	0	; Mask.
+_dx3	Dc.l	0	; Background.
+_dx4	Dc.l	0	; Cible.
+_a3	Dc.l	0
+_D4	Dc.l	0
+; 2eme ecran
+_2pal		Dc.l	0
+_2bpl		Dc.l	0
+_2act		Dc.l	0
+_2bplcon	Dc.l	0
+; En Dernier Obligatoirement !!!
+	Dc.l	0,0,0,0,0,0,0,0	; 8 registres pour les valeurs
+; Conform Data list...
+_c1	Dc.l	0
+
+_Finito		Dc.b	"ENDL"
+; Icon Bank.
+_IcN	Dc.b	"                                                "
+	Dc.b	"                                               ",0
+	EVEN
+_DName	Dc.b	"dos.library",0
+	EVEN
+_DBase	Dc.l	0	; Dos.Library Base.
+_IHnd	Dc.l	0	; Icon File Handle.
+_IcLoad	Dc.l	0,0,0,0	; Chargement des 8 octets des fichiers Icons.
+; Multi plots.
+; Tables pour les COSINUS SINUS et TANGENTES.
+_Cosinus	IncBin	"_TABLES/_CosTable.Bin"
+_Sinus		IncBin	"_TABLES/_SinTable.Bin"
+_Tangente	IncBin	"_TABLES/_TanTable.Bin"
+;
+;
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L1
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L2
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SNTSC			Equ	3				; OK
+L3	Move.w	#$0000,$DFF1DC
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SPAL			Equ	4				; OK
+L4	Move.w	#$0020,$DFF1DC
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_RCLICK		Equ	5				; OK
+L5	Move.l	#0,d2
+	Move.l	#0,d3
+	Btst	#2,$Dff016
+	Bne.b	F1
+	Move.l	#$ffffffff,d3
+F1	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_FIRE2			Equ	6				; OK
+L6	Move.l	#0,d2
+	Move.l	#0,d3
+	Btst	#6,$dff016
+	Bne.b	F2
+	Move.l	#$ffffffff,d3
+F2	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_FIRE3			Equ	7				; OK
+L7	Move.l	#0,d2
+	Move.l	#0,d3
+	Btst	#4,$dff016
+	Bne.b	F3
+	Move.l	#$ffffffff,d3
+F3	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_HAM:			Equ	8
+L8	Move.l	#4096,d3
+	Move.l	#0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_EHB			Equ	9
+L9	Move.l	#64,d3
+	Move.l	#0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CREATECOPPER		Equ	10
+L10	Move.l	(a3)+,a0
+	Cmp.l	#0,a0
+	Beq	_NoCopper
+; SAUVEGARDE DE L'ADRESSE DE BASE DU COPPER-LIST A CREER.
+	DLea	_CopperBase,a1
+	Move.l	a0,(a1)
+; COP WAIT ...
+	Move.l	#$1003FFFE,(a0)+
+	Move.l	#$01fc0000,(a0)+	; Anti Double scanning !!!.
+; CREATION DES SPRITES POUR LE COPPER-LIST.
+	DLea	_SprPtBase,a1
+	Move.l	a0,(a1)
+	Move.l	#$01200000,d0
+_cc1	Move.l	d0,(a0)+
+	Add.l	#$20000,d0
+	Cmp.l	#$01400000,d0
+	Bne	_cc1
+; CREATION DE LA PALETTE DE 256 COULEURS AGA SEULEMENT !!!
+	Move.l	#$1803FFFE,(a0)+
+;	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	DLea	_ColorBase,a1
+	Move.l	a0,(a1)
+	Move.l	#$01060000,d0
+; SELECTION DU BLOC MEMOIRE.
+_cc2	Move.l	d0,(a0)+
+	Move.l	#$01800000,d1
+; BLOCS DE 32 COULEURS A CODER SEPAREMENT.
+_cc3	Move.l	d1,(a0)+
+	Add.l	#$00020000,d1
+	Cmp.l	#$01C00000,d1
+	Bne	_cc3	
+	Add.l	#$00002000,d0
+	Cmp.l	#$01070000,d0
+	Bne	_cc2
+; COULEURS COMPLEMENTAIRES (AGA)
+	DLea	_ColorBase2,a1
+	Move.l	a0,(a1)
+	Move.l	#$01060200,d0
+; SELECTION DU BLOC MEMOIRE.
+_cd2	Move.l	d0,(a0)+
+	Move.l	#$01800000,d1
+; BLOCS DE 32 COULEURS A CODER SEPAREMENT.
+_cd3	Move.l	d1,(a0)+
+	Add.l	#$00020000,d1
+	Cmp.l	#$01C00000,d1
+	Bne	_cd3	
+	Add.l	#$00002000,d0
+	Cmp.l	#$01070200,d0
+	Bne	_cd2
+; CREATION DE L'ECRAN.
+	Move.l	#$3103FFFE,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	DLea	_BplPtBase,a1
+	Move.l	a0,(a1)
+	Move.l	#$00E00000,d0		; Bpl0PTH
+; BPLPTH\L INSTALLATION POUR LES 8 BIT-PLANS.
+_cc4	Move.l	d0,(a0)+
+	Add.l	#$00020000,d0
+	Cmp.l	#$01000000,d0
+	Bne	_cc4
+;		OTHERS REGISTERS.
+	DLea	_Others,a1
+	Move.l	a0,(a1)
+	Move.l	#$008E0181,(a0)+	; DIWSTRT	???
+	Move.l	#$009037C1,(a0)+	; DIWSTOP	???
+	Move.l	#$00920038,(a0)+	; DDFSTRT =38 no scrl,=30 scroll.
+	Move.l	#$009400D0,(a0)+	; DDFSTOP
+	Move.l	#$01080000,(a0)+	; BPL1MOD
+	Move.l	#$010A0000,(a0)+	; BPL2MOD
+	Move.l	#$0098FFC0,(a0)+	; CLXCON Enable/Disable Planes.
+	DLea	_BplConBase,a1
+	Move.l	a0,(a1)
+;		BPLCON REGISTERS.
+	Move.l	#$01000010,(a0)+	; BPLCON0
+	Move.l	#$01020000,(a0)+	; BPLCON1
+	Move.l	#$01040224,(a0)+	; BPLCON2
+	Move.l	#$01061000,(a0)+	; BPLCON3=$1000 pour 2nd pf palette.
+;
+	Move.l	#$3203FFFE,(a0)+
+	Move.l	#$00968300,(a0)+
+	Move.l	#$3103FFFE,(a0)+
+	DLea	_CurrentLine,a1
+	Move.l	a0,(a1)
+	Move.l	#$F203FFFE,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	Move.l	#$F303FFFE,(a0)+
+	Move.l	#$FFFFFFFE,(a0)+
+	DLea	_Line,a1
+	Move.l	#$32,(a1)
+	DLea	_2nd,a1
+	Move.l	#0,(a1)
+	DLea	_Aga,a1
+	Move.l	#$1,(a1)	;AGA SCREEN.
+	Rts
+_NoCopper
+	Moveq	#0,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_TESTA3		Equ	11
+L11	DLea	_MpP,a1
+	Move.l	(a1),d3
+	Move.l	#0,d2
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SETCOLOR		Equ	12
+L12	Move.l	(a3)+,d3	; D3=Blue.
+	Move.l	(a3)+,d2	; D2=Green.
+	Move.l	(a3)+,d1	; D1=Red.
+	Move.l	(a3)+,d0	; D0=Register
+_sc1b	Lsl.l	#8,d1
+	Lsl.l	#4,d2
+	Or.l	d1,d2
+	Or.l	d2,d3
+	DLea	_ColorBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	bne	_sc2b
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+_sc2b	Move.l	#0,d6
+	Add.l	#1,d0
+_sc2	Move.w	(a0),d7
+	Cmp.w	#$0106,d7
+	Bne	_sc3
+	Add.l	#4,a0
+_sc3	Add.l	#1,d6
+	Cmp.l	d6,d0
+	Beq	_sc4
+	Add.l	#4,a0
+	Bra	_sc2
+_sc4	Add.l	#2,a0
+	Move.w	d3,(a0)
+_lsend	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_XFADE			Equ	13
+L13	DLea	_CopperBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	bne	_lx1
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+_lx1	Clr.l	d0
+	Clr.l	d1
+	Move.w	(a0)+,d0	; D0=register
+	Move.w	(a0),d1		; D1=Value
+	Cmp.l	#$0180,d0
+	blt	_lx2		; D0<COLOR00
+	Cmp.l	#$1BE,d0
+	Bgt	_lx2		; D0>COLOR31
+	Move.l	d1,d2
+	Lsr.l	#8,d2
+	Lsl.l	#8,d2		; D2=Red.
+	Move.l	d1,d3
+	Lsr.l	#4,d3
+	Lsl.l	#4,d3		; D3=Green.
+	Move.l	d1,d4
+	Sub.l	d2,d3
+	Sub.l	d2,d4
+	Sub.l	d3,d4		; D4=Blue.
+	Cmp.l	#0,d2
+	Beq	_lx3
+	Sub.l	#$100,d2
+_lx3	Cmp.l	#0,d3
+	Beq	_lx4
+	Sub.l	#$10,d3
+_lx4	Cmp.l	#0,d4
+	Beq	_lx5
+	Sub.l	#1,d4
+_lx5	Add.l	d3,d2
+	Add.l	d4,d2
+	Move.w	d2,(a0)		; NEW COLOR VALUE.
+_lx2	Add.l	#2,a0
+	Move.l	(a0),d0
+	Cmp.l	#$FFFFFFFE,d0
+	Bne	_lx1
+_lxend	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_COPPERBASE		Equ	14
+L14
+	DLea	_CopperBase,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CHANGECOPPER		Equ	15
+L15
+	Move.l	(a3)+,d0
+	DLea	_CopperBase,a1
+	Move.l	d0,(a1)
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SETPLANE		Equ	16
+L16
+	Move.l	(a3)+,d1		; D1=Plane Adresse.
+	Move.l	(a3)+,d0		; D0=Bit Plane.
+	DLea	_CopperBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Bne	_spx
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+_spx	DLea	_BitsPlanes,a0
+	Cmp.l	#1,d0
+	Blt	_spend
+	Cmp.l	#8,d0
+	Bgt	_spend
+	Sub.l	#1,d0
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	d1,(a0)
+	DLea	_BplPtBase,a0
+	Move.l	(a0),a1
+	Add.l	#2,a1
+	DLea	_BitsPlanes,a0
+	DLea	_Aga,a2
+	Cmp.l	#0,(a2)
+	Bne	_sp1
+	Move.l	#11,d0		; NON AGA SCREEN.
+	Bra	_spb
+_sp1	Move.l	#15,d0		; AGA SCREEN.
+; MISE EN PLACE DES 8 BITS PLANS DANS LE COPPER LIST AGA.
+_spb	Move.w	(a0)+,(a1)
+	Add.l	#4,a1
+	Sub.l	#1,d0
+	Bpl	_spb
+_spend	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_PLANEBASE		Equ	17
+L17	Move.l	#0,d3
+	Move.l	(a3)+,d0
+	Cmp.l	#1,d0
+	Blt	_pbend
+	Cmp.l	#8,d0
+	Bgt	_pbend
+	Sub.l	#1,d0
+	Lsl.l	#2,d0
+	DLea	_BitsPlanes,a0
+	Add.l	d0,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	Move.l	#0,a0
+_pbend  Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_COLORREAD		Equ	1
+L18	Move.l	#$FFFFFFFF,d3
+	Move.l	(a3)+,d0
+	Cmp.l	#0,d0
+	Blt	_crend
+	Cmp.l	#255,d0
+	Bgt	_crend
+	DLea	_Aga,a0
+	Cmp.l	#0,(a0)
+	Bne	_cr1
+	Cmp.l	#31,d0
+	Bgt	_crend
+_cr1	DLea	_AgaPalette,a0
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	Move.l	#0,a0
+_crend	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LINEWAIT		Equ	19
+L19	DLea	_CopperBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Bne	_lwx
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+_lwx	DLea	_CurrentLine,a2
+	Move.l	(a2),a0
+	DLea	_Line,a1
+	Move.l	(a1),d0
+	Add.l	#1,d0
+	Cmp.l	#$100,d0
+	Blt	_lw
+	Sub.l	#$100,d0
+_lw	Move.b	d0,(a0)+
+	Move.b	#$01,(a0)+
+	Move.w	#$FFFE,(a0)+
+	Move.l	a0,(a2)
+	Move.l	d0,(a1)
+	DLea	_2nd,a2
+	Move.l	(a2),d0
+	Cmp.l	#1,d0
+	Beq	_ll2
+	Move.l	#$F201FFFE,(a0)+
+	Move.l	#$01000000,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	Move.l	#$F301FFFE,(a0)+
+	Move.l	#$FFFFFFFE,(a0)+
+_lwend	RTS
+_ll2	Move.l	#$1403fffe,(a0)+
+	Move.l	#$01000000,(a0)+
+	Move.l	#$00960100,(a0)+
+	Move.l	#$fffffffe,(a0)
+
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LINESEE		Equ	20
+L20	DLea	_Line,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_VIEW2			Equ	21
+L21	Move.l	(a3)+,d0
+	DLea	_Aga,a0
+	Move.l	(a0),d1
+	Cmp.l	#0,d1
+	Bne	_vw1
+	Cmp.l	#6,d0
+	Bgt	_lvend
+_vw1	DLea	_CopperBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Bne	_lvx
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+_lvx	DLea	_PlanesMask,a0
+	Cmp.l	#0,d0
+	Blt	_lvend
+	Cmp.l	#8,d0
+	Bgt	_lvend
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	(a0),d0		; D0=Planes MASK
+	DLea	_BplConBase,a0
+	Move.l	(a0),a1
+	Add.l	#2,a1
+	Move.w	(a1),d1
+	Bclr	#12,d1		; BPU0
+	Bclr	#13,d1		; BPU1
+	Bclr	#14,d1		; BPU2
+	Bclr	#04,d1		; BPU3
+	Or.l	d1,d0
+	Move.w	d0,(a1)
+_lvend	RTS	
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_COLORWAIT		Equ	22
+L22	DLea	_DoubleCopper,a0
+	Move.l	(a3)+,d4		; D4=Bleu.
+	Move.l	(a3)+,d3		; D3=Vert.
+	Move.l	(a3)+,d2		; D2=Rouge.
+	Move.l	(a3)+,d1		; D1=REGISTRE COULEUR.
+	Move.l	(a0),d0
+	Cmp.l	#0,d0
+	Bne	_cwend
+	DLea	_CopperBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Bne	_cwx
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+_cwx	Cmp.l	#0,d1
+	Blt	_cwx2
+	Cmp.l	#255,d1
+	Bgt	_cwx2
+	Lsl.l	#8,d2
+	Lsl.l	#4,d3
+	Add.l	d2,d4
+	Add.l	d3,d4			; D4=Valeur RGB Couleur.
+	Move.l	d1,d0			; D0=REGISTRE COULEUR.
+	Lsr.l	#5,d1			; D1=PALETTE 0,1,2,3,4,5,6,7 ???
+	DLea	_CurrentPal,a2
+	Move.l	(a2),d5
+	DLea	_CurrentLine,a1	; A0=Adresse COPPER LIST.
+	Move.l	(a1),a0
+	Cmp.l	d1,d5
+	Beq	_cw2
+	Move.l	d1,d5
+	Move.l	d1,(a2)
+	Mulu	#$2000,d1
+	Add.l	#$01060000,d1
+	Move.l	d1,(a0)+
+_cw2	Move.l	d0,d1
+	Lsr.l	#5,d1
+	Lsl.l	#5,d1
+	Sub.l	d1,d0
+	Lsl.l	#1,d0
+	Add.l	#$0180,d0
+	Move.w	d0,(a0)+
+	Move.w	d4,(a0)+
+	DLea	_CurrentLine,a1
+	Move.l	a0,(a1)
+	Move.l	#$F201FFFE,(a0)+
+	Move.l	#$01000000,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	Move.l	#$F301FFFE,(a0)+
+	Move.l	#$FFFFFFFE,(a0)+
+_cwend	RTS
+_cwx2	Moveq	#2,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SCREENSIZE		Equ	23
+L23	Move.l	(a3)+,d1		; D1=Y SCREEN SIZE.
+	Move.l	(a3)+,d0		; D0=X SCREEN SIZE.
+	Cmp.l	#320,d0
+	Bgt	_lss2
+	Move.l	#320,d0
+_lss2	Cmp.l	#192,d1
+	Bgt	_lss3
+	Move.l	#192,d1
+; SAUVEGARDE DES TAILLES DANS LES REGISTRES MEMOIRE.
+_lss3	DLea	_XY,a0
+	Move.l	d0,(a0)+
+	Move.l	d1,(a0)
+; INSCRIPTION DE LA TAILLE EN X SUR LA COPPER LIST.
+	DLea	_Others,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Beq	Llss4
+	Add.l	#18,a0
+	Sub.l	#320,d0
+	Lsr.l	#3,d0
+	Move.w	d0,(a0)
+	Add.l	#4,a0
+	Move.w	d0,(a0)
+	Rts
+Llss4	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_XSIZE			Equ	24
+L24	DLea	_XY,a1
+	Move.l	(a1),d3
+	cmp.l	#320,d3
+	Bgt	_l1
+	Move.l	#320,d3
+_l1	Move.l	#0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_YSIZE			Equ	25
+L25	DLea	_XY,a1
+	Add.l	#4,a1
+	Move.l	(a1),d3
+	cmp.l	#192,d3
+	Bgt	_ly1
+	Move.l	#192,d3
+_ly1	Move.l	#0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CREATECOPPER2		Equ	26
+L26	SaveRegisters
+	Move.l	(a3),a0
+	Cmp.l	#0,a0
+	Bne	_ccz
+	Moveq	#0,d0
+	Rbra	L_CUSTOM
+; SAUVEGARDE DE L'ADRESSE DE BASE DU COPPER-LIST A CREER.
+_ccz	DLea	_CopperBase,a1
+	Move.l	a0,(a1)
+; COP WAIT ...
+	Move.l	#$1003FFFE,(a0)+
+	Move.l	#$01fc0000,(a0)+	; Anti Double Scanning.
+; CREATION DES SPRITES POUR LE COPPER-LIST.
+	DLea	_SprPtBase,a1
+	Move.l	a0,(a1)
+	Move.l	#$01200000,d0
+_cd1	Move.l	d0,(a0)+
+	Add.l	#$20000,d0
+	Cmp.l	#$01400000,d0
+	Bne	_cd1
+; CREATION DE LA PALETTE DE 256 COULEURS AGA SEULEMENT !!!
+	Move.l	#$1803FFFE,(a0)+
+;	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	DLea	_ColorBase,a1
+	Move.l	a0,(a1)
+; SELECTION DU BLOC MEMOIRE.
+	Move.l	#$01800000,d1
+; BLOCS DE 32 COULEURS A CODER SEPAREMENT.
+_cf3	Move.l	d1,(a0)+
+	Add.l	#$00020000,d1
+	Cmp.l	#$01C00000,d1
+	Bne	_cf3	
+; CREATION DE L'ECRAN.
+	Move.l	#$3103FFFE,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	DLea	_BplPtBase,a1
+	Move.l	a0,(a1)
+	Move.l	#$00E00000,d0		; Bpl0PTH
+; BPLPTH\L INSTALLATION POUR LES 8 BIT-PLANS.
+_cd4	Move.l	d0,(a0)+
+	Add.l	#$00020000,d0
+	Cmp.l	#$01000000,d0
+	Bne	_cd4
+;		OTHERS REGISTERS.
+	DLea	_Others,a1
+	Move.l	a0,(a1)
+	Move.l	#$008E0181,(a0)+	; DIWSTRT	???
+	Move.l	#$009037C1,(a0)+	; DIWSTOP	???
+	Move.l	#$00920038,(a0)+	; DDFSTRT =38 no scrl,=30 scroll.
+	Move.l	#$009400D0,(a0)+	; DDFSTOP
+	Move.l	#$01080000,(a0)+	; BPL1MOD
+	Move.l	#$010A0000,(a0)+	; BPL2MOD
+	Move.l	#$0098FFC0,(a0)+	; CLXCON Enable/Disable Planes.
+	DLea	_BplConBase,a1
+	Move.l	a0,(a1)
+;		BPLCON REGISTERS.
+	Move.l	#$01001000,(a0)+	; BPLCON0
+	Move.l	#$01020000,(a0)+	; BPLCON1
+	Move.l	#$01040024,(a0)+	; BPLCON2
+	Move.l	#$01060c00,(a0)+	; BPLCON3=$c00 For 2nd field PAL.
+;
+	Move.l	#$3203FFFE,(a0)+
+	Move.l	#$00968300,(a0)+
+	DLea	_CurrentLine,a1
+	Move.l	a0,(a1)
+	Move.l	#$F203FFFE,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos ?!?
+	Move.l	#$F303FFFE,(a0)+
+	Move.l	#$01060000,(a0)+	; BPLCON3 Default For AMOS BACK.
+	Move.l	#$FFFFFFFE,(a0)+
+	DLea	_Line,a1
+	Move.l	#$32,(a1)
+	DLea	_Aga,a1
+	Move.l	#$0,(a1)	; NONAGA SCREEN.
+	DLea	_2nd,a1
+	Move.l	#0,(a1)
+	LoadRegisters
+	Add.l	#4,a3		; 1 donnee lue !!!
+	Move.l	#0,d3		; Copper cree normalement .
+	Rts
+_NoCopper2
+	DLea	_Line,a1
+	Move.l	#$32,(a1)
+	LoadRegisters
+	Move.l	#$ffffffff,d3	; Copper non cree !!!
+	Add.l	#4,a3		; 1 donnee lue !!!
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SCREENOFFSET		Equ	27
+L27	Move.l	(a3)+,d1	; D1=Y Offset.
+	Move.l	(a3)+,d0	; D0=X Offset.
+	Move.l	(a3)+,d4	; D4=Offset Type 1=Sc1 2=Sc2 0=No dual pf
+	DLea	_D4,a0
+	Move.l	d4,(a0)
+	DLea	_XYOff,a0
+	Cmp.l	#1,d4
+	Beq	_Scrn1
+	Cmp.l	#2,d4
+	Beq	_Scrn2
+_Scrn0	Move.l	d0,(a0)+
+	Move.l	d1,(a0)+
+	Move.l	d0,(a0)+
+	Move.l	d1,(a0)
+	Bra	_S3
+_Scrn1	Move.l	d0,(a0)+
+	Move.l	d1,(a0)
+	Bra	_S3
+_Scrn2	Add.l	#8,a0
+	Move.l	d0,(a0)+
+	Move.l	d1,(a0)
+_S3	DLea	_XYOff,a0
+	Move.l	(a0)+,d0	; D0=X Offset #1.=D4
+	Move.l	(a0)+,d2	; D1=X Offset #2.=D5
+	Move.l	(a0)+,d1	; D2=Y Offset #1.
+	Move.l	(a0),d3		; D3=Y Offset #2.
+	DLea	_XY,a0
+	Move.l	(a0),d7		; D7=X Screen Size.
+	Lsr.l	#3,d7		; D7=X Bytes Screen Size.
+	Mulu	d7,d2
+	Mulu	d7,d3
+	Move.l	d0,d4
+	Move.l	d1,d5
+	Lsr.l	#4,d4
+	Lsr.l	#4,d5
+	Lsl.l	#1,d4
+	Lsl.l	#1,d5
+	Add.l	d4,d2		; D2=Bytes to add #1.
+	Add.l	d5,d3		; D3=Bytes to add #2.
+	Lsl.l	#3,d4
+	Lsl.l	#3,d5
+	Sub.l	d4,d0
+	Sub.l	d5,d1
+	Move.l	#16,d4
+	Move.l	#16,d5
+	Sub.l	d0,d4
+	Sub.l	d1,d5
+	Cmp.l	#16,d4
+	Bne	_S3a
+	Move.l	#0,d4
+_S3a	Cmp.l	#16,d5
+	Bne	_S3b
+	Move.l	#0,d5
+_S3b	Lsl.l	#4,d5
+	Move.l	d5,d6
+	Add.l	d4,d5		; D5=BPLCON1 NEW VALUE.
+; calcul desnouveaux bits plans.
+	DLea	_BitsPlanes,a0
+	DLea	_BitsPlanes2,a1
+	Cmp.l	#0,(a0)
+	Beq	xxw
+	Move.l	#3,d7
+_S3c	Move.l	(a0)+,d0
+	Move.l	(a0)+,d1
+	Add.l	d2,d0
+; Added in case of no DUAL PLAYFIELD.
+	DLea	_D4,a2
+	Cmp.b	#0,d4
+	Bne	_s3cc
+	Cmp.l	#0,(a2)
+	Beq	_s3cc
+	Sub.l	#2,d0
+_s3cc	Add.l	d3,d1
+	Cmp.b	#0,d6
+	Bne	_s3cd
+	Cmp.l	#0,(a2)
+	Beq	_s3cd
+	Sub.l	#2,d1
+_s3cd	Move.l	d0,(a1)+
+	Move.l	d1,(a1)+
+	Sub.l	#1,d7
+	Bpl	_S3c
+; Placement des bits plans dans la copper liste.
+	DLea	_BitsPlanes2,a0
+	DLea	_BplPtBase,a2
+	Move.l	(a2),a1
+	Add.l	#2,a1
+	Move.l	#15,d0
+_S3d	Move.w	(a0)+,(a1)
+	Add.l	#4,a1
+	Sub.l	#1,d0
+	Bpl	_S3d
+; calcul si valeur scrolling=0 ou<>0
+	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Add.l	#6,a0
+	Move.w	d5,(a0)
+	Cmp.w	#0,d5
+	Bne	_Unequ
+_Equ	DLea	_Others,a2
+	Move.l	(a2),a0
+	Add.l	#10,a0
+	Move.w	#$38,(a0)
+	Add.l	#8,a0
+	DLea	_XY,a1
+	Move.l	(a1),d0
+	Sub.l	#320,d0
+	Lsr.l	#3,d0
+	Move.w	d0,(a0)
+	Add.l	#4,a0
+	Move.w	d0,(a0)
+	Bra	_eend
+;
+_Unequ	DLea	_Others,a2
+	Move.l	(a2),a0
+	Add.l	#10,a0
+	Move.w	#$30,(a0)
+	Add.l	#8,a0
+	DLea	_XY,a1
+	Move.l	(a1),d0
+	Sub.l	#320,d0
+	Lsr.l	#3,d0
+	Sub.l	#2,d0
+	Move.w	d0,(a0)
+	Add.l	#4,a0
+	Move.w	d0,(a0)
+_eend	RTS
+xxw	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_DUALPLAYFIELD		Equ	28
+L28	Move.l	(a3)+,d2
+	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_dpx
+	Add.l	#2,a0
+	Move.w	(a0),d0
+	Cmp.l	#0,d2
+	Bne	_Dual
+	BClr	#10,d0
+	Bra	_Dpend
+_Dual	Bset	#10,d0
+_Dpend	Move.w	d0,(a0)
+	Rts
+_dpx	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_RESOLUTION		Equ	29
+L29	Move.l	(a3)+,d2
+	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_rx
+	Add.l	#2,a0
+	Move.w	(a0),d0
+	Cmp.l	#0,d2
+	Beq	_Low
+_High	Bset	#15,d0
+	Bra	_Rend
+_Low	Bclr	#15,d0
+_Rend	Move.w	d0,(a0)
+	RTS
+_rx	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SETLACE		Equ	30
+L30	Move.l	(a3)+,d2
+	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_lsq
+	Add.l	#2,a0
+	Move.w	(a0),d0
+	Cmp.l	#0,d2
+	Beq	_Nolace
+_Lace	Bset	#2,d0
+	Bra	_lend
+_Nolace	Bclr	#2,d0
+_lend	Move.w	d0,(a0)
+	Rts
+_lsq	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_COPPERLINE2		Equ	31
+L31	DLea	_Line,a0
+	Move.l	(a3)+,d0
+	DLea	_DoubleCopper,a1
+	Move.l	(a1),d1
+	Cmp.l	#0,d1
+	Bne	_clend
+	Move.l	d0,(a0)
+	DLea	_CurrentLine,a0
+	Move.l	(a0),a1
+	Cmp.l	#0,a1
+	Beq	_clw
+	Move.b	d0,(a1)+
+	Move.b	#$03,(a1)+
+	Move.w	#$FFFE,(a1)+
+	Move.l	a1,(a0)
+	DLea	_2nd,a2
+	Move.l	(a2),d0
+	Cmp.l	#1,d0
+	Beq	_ll3
+	Move.l	#$F201FFFE,(a1)+
+	Move.l	#$01000000,(a1)+
+	Move.l	#$00960100,(a1)+	; DMACON Pour l'amos ?!?
+	Move.l	#$F301FFFE,(a1)+
+	Move.l	#$FFFFFFFE,(a1)+
+_clend	RTS
+_ll3	Move.l	#$1403fffe,(a1)+
+	Move.l	#$01000000,(a1)+
+	Move.l	#$00960100,(a1)+
+	Move.l	#$fffffffe,(a1)
+	Rts
+_clw	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MOSAICx2		Equ	32
+L32	SaveRegisters
+; SAVE SCREEN BASE IN DATA BANK.
+	Move.l	(a3),d0		; D0=Screen Base.
+	DLea	_MosaicBase,a0
+	Move.l	d0,(a0)
+; TRANSFERT DES 6 BITS PLANES IN DATA BANK.
+	DLea	_MosaicPlanes,a0
+	Move.l	d0,a1
+	Move.l	#5,d1
+_m1	Move.l	(a1)+,(a0)+
+	Sub.l	#1,d1
+	Bpl	_m1
+; POSITIONNEMENT DES DONNEES.
+	DLea	_MosaicBase,a0
+	Move.l	(a0),a1
+	Add.l	#76,a1
+	Clr.l	d6
+	Move.w	(a1)+,d6		; D6=X SCREEN SIZE.
+	Clr.l	d7
+	Move.w	(a1)+,d7		; D7=Y SCREEN SIZE.
+	Lsr.l	#1,d7
+	Lsl.l	#1,d7	; D7 Paire
+	DLea	_MosaicPlanes,a0	; A0=BASE DES BITS PLANS.
+	Move.l	d6,d3
+	Lsr.l	#3,d3			; D3=X OCTETS SCREEN SIZE.
+; TESTE SI IL EXISTE UN AUTRE BIT PLAN.
+_m2	Move.l	(a0)+,a1
+	Cmp.l	#0,a1			; A1=CURRENT SCREEN LINE.
+	Beq	_mend
+	Move.l	#0,d1			; D1=CURRENT SCREEN LINE POS.
+	Move.l	a1,a2
+	Add.l	d3,a2			; A2=CURRENT SCREEN LINE +1.
+	Move.l	a2,a3			; A3= '' '' '' '' '' '' '' .
+_m3	Move.l	(a1),d0			; D0=Donnee Lue.
+	Move.l	#$AAAAAAAA,d2		; D2=Masque 
+	And.l	d0,d2
+	Move.l	d2,d0
+	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Move.l	d0,(a1)+
+	Move.l	d0,(a2)+
+	Cmp.l	a1,a3
+	Bne	_m3
+; UNE LIGNE TERMINEE.
+	Add.l	d3,a1		; A1 = A1 + 1 Ligne.
+	Add.l	d3,a2		; A2 = A2 + 1 Ligne.
+	Add.l	d3,a3
+	Add.l	d3,a3		; A3 = A3 + 2 Lignes. !!!
+	Add.l	#2,d1
+	Cmp.l	d1,d7
+	Bne	_m3
+	Bra	_m2
+_mend	LoadRegisters
+	Add.l	#4,a3		; 2 donnees lues.
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MOSAICx4		Equ	33
+L33	SaveRegisters
+; SAVE SCREEN BASE IN DATA BANK.
+	Move.l	(a3),d0		; D0=Screen Base.
+	DLea	_MosaicBase,a0
+	Move.l	d0,(a0)
+; TRANSFERT DES 6 BITS PLANES IN DATA BANK.
+	DLea	_MosaicPlanes,a0
+	Move.l	d0,a1
+	Move.l	#5,d1
+_mb1	Move.l	(a1)+,(a0)+
+	Sub.l	#1,d1
+	Bpl	_mb1
+; POSITIONNEMENT DES DONNEES.
+	DLea	_MosaicBase,a0
+	Move.l	(a0),a1
+	Add.l	#76,a1
+	Clr.l	d6
+	Move.w	(a1)+,d6		; D6=X SCREEN SIZE.
+	Clr.l	d7
+	Move.w	(a1)+,d7		; D7=Y SCREEN SIZE.
+	Lsr.l	#2,d7
+	Lsl.l	#2,d7	; D7 Multiple de 4
+	DLea	_MosaicPlanes,a0	; A0=BASE DES BITS PLANS.
+	Move.l	d6,d3
+	Lsr.l	#3,d3			; D3=X OCTETS SCREEN SIZE.
+; TESTE SI IL EXISTE UN AUTRE BIT PLAN.
+_mb2	Move.l	(a0)+,a1
+	Cmp.l	#0,a1			; A1=CURRENT SCREEN LINE.
+	Beq	_mbend
+	Move.l	#0,d1			; D1=CURRENT SCREEN LINE POS.
+	Move.l	a1,a2
+	Add.l	d3,a2			; A2=CURRENT SCREEN LINE +1.
+	Move.l	a2,a3			; A3= '' '' '' '' '' '' '' .
+_mb3	Move.l	(a1),d0			; D0=Donnee Lue.
+	Move.l	#$88888888,d2		; D2=Masque 
+	And.l	d0,d2
+	Move.l	d2,d0
+	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Move.l	d0,(a1)+
+	Move.l	d0,(a2)
+	Add.l	d3,a2
+	Move.l	d0,(a2)
+	Add.l	d3,a2
+	Move.l	d0,(a2)+
+	Sub.l	d3,a2
+	Sub.l	d3,a2
+	Cmp.l	a1,a3
+	Bne	_mb3
+; UNE LIGNE TERMINEE.
+	add.l	d3,a1
+	Add.l	d3,a2
+	Lsl.l	#1,d3
+	Add.l	d3,a1		; A1 = A1 + 3 Ligne.
+	Add.l	d3,a2		; A2 = A2 + 3 Ligne.
+	Add.l	d3,a3
+	Add.l	d3,a3		; A3 = A3 + 4 Lignes. !!!
+	Lsr.l	#1,d3
+	Add.l	#4,d1
+	Cmp.l	d1,d7
+	Bne	_mb3
+	Bra	_mb2
+_mbend	LoadRegisters
+	Add.l	#4,a3		; 2 donnees lues.
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_Mosaicx8		Equ	34
+L34	SaveRegisters
+; SAVE SCREEN BASE IN DATA BANK.
+	Move.l	(a3),d0		; D0=Screen Base.
+	DLea	_MosaicBase,a0
+	Move.l	d0,(a0)
+; TRANSFERT DES 6 BITS PLANES IN DATA BANK.
+	DLea	_MosaicPlanes,a0
+	Move.l	d0,a1
+	Move.l	#5,d1
+_mc1	Move.l	(a1)+,(a0)+
+	Sub.l	#1,d1
+	Bpl	_mc1
+; POSITIONNEMENT DES DONNEES.
+	DLea	_MosaicBase,a0
+	Move.l	(a0),a1
+	Add.l	#76,a1
+	Clr.l	d6
+	Move.w	(a1)+,d6		; D6=X SCREEN SIZE.
+	Clr.l	d7
+	Move.w	(a1)+,d7		; D7=Y SCREEN SIZE.
+	Lsr.l	#3,d7
+	Lsl.l	#3,d7	; D7 Multiple de 4
+	DLea	_MosaicPlanes,a0	; A0=BASE DES BITS PLANS.
+	Move.l	d6,d3
+	Lsr.l	#3,d3			; D3=X OCTETS SCREEN SIZE.
+; TESTE SI IL EXISTE UN AUTRE BIT PLAN.
+_mc2	Move.l	(a0)+,a1
+	Cmp.l	#0,a1			; A1=CURRENT SCREEN LINE.
+	Beq	_mcend
+	Move.l	#0,d1			; D1=CURRENT SCREEN LINE POS.
+	Move.l	a1,a2
+	Add.l	d3,a2			; A2=CURRENT SCREEN LINE +1.
+	Move.l	a2,a3			; A3= '' '' '' '' '' '' '' .
+_mc3	Move.l	(a1),d0			; D0=Donnee Lue.
+	Move.l	#$80808080,d2		; D2=Masque.
+	And.l	d0,d2
+	Move.l	d2,d0
+	Move.l	#7,d4
+_mcw	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_mcw
+	Move.l	d0,(a1)+
+	Move.l	#6,d4
+_mcx	Move.l	d0,(a2)
+	Add.l	d3,a2
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_mcx
+	Move.l	d0,(a2)+
+	Mulu	#6,d3
+	Sub.l	d3,a2
+	Divu	#6,d3
+	Cmp.l	a1,a3
+	Bne	_mc3
+; UNE LIGNE TERMINEE.
+	Mulu	#7,d3
+	Add.l	d3,a1
+	Add.l	d3,a2
+	Add.l	d3,a3
+	Divu	#7,d3
+	Add.l	d3,a3	; A3=1 ligne de plus que les autres (a1,a2)
+	Add.l	#8,d1
+	Cmp.l	d1,d7
+	Bne	_mc3
+	Bra	_mc2
+_mcend	LoadRegisters
+	Add.l	#4,a3		; 2 donnees lues.
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_Mosaicx16		Equ	35
+L35	SaveRegisters
+; SAVE SCREEN BASE IN DATA BANK.
+	Move.l	(a3),d0		; D0=Screen Base.
+	DLea	_MosaicBase,a0
+	Move.l	d0,(a0)
+; TRANSFERT DES 6 BITS PLANES IN DATA BANK.
+	DLea	_MosaicPlanes,a0
+	Move.l	d0,a1
+	Move.l	#5,d1
+_md1	Move.l	(a1)+,(a0)+
+	Sub.l	#1,d1
+	Bpl	_md1
+; POSITIONNEMENT DES DONNEES.
+	DLea	_MosaicBase,a0
+	Move.l	(a0),a1
+	Add.l	#76,a1
+	Clr.l	d6
+	Move.w	(a1)+,d6		; D6=X SCREEN SIZE.
+	Clr.l	d7
+	Move.w	(a1)+,d7		; D7=Y SCREEN SIZE.
+	Lsr.l	#4,d7
+	Lsl.l	#4,d7	; D7 Multiple de 4
+	DLea	_MosaicPlanes,a0	; A0=BASE DES BITS PLANS.
+	Move.l	d6,d3
+	Lsr.l	#3,d3			; D3=X OCTETS SCREEN SIZE.
+; TESTE SI IL EXISTE UN AUTRE BIT PLAN.
+_md2	Move.l	(a0)+,a1
+	Cmp.l	#0,a1			; A1=CURRENT SCREEN LINE.
+	Beq	_mdend
+	Move.l	#0,d1			; D1=CURRENT SCREEN LINE POS.
+	Move.l	a1,a2
+	Add.l	d3,a2			; A2=CURRENT SCREEN LINE +1.
+	Move.l	a2,a3			; A3= '' '' '' '' '' '' '' .
+_md3	Move.l	(a1),d0			; D0=Donnee Lue.
+	Move.l	#$80008000,d2		; D2=Masque.
+	And.l	d0,d2
+	Move.l	d2,d0
+	Move.l	#15,d4
+_mdw	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_mdw
+	Move.l	d0,(a1)+
+	Move.l	#14,d4
+_mdx	Move.l	d0,(a2)
+	Add.l	d3,a2
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_mdx
+	Move.l	d0,(a2)+
+	Mulu	#14,d3
+	Sub.l	d3,a2
+	Divu	#14,d3
+	Cmp.l	a1,a3
+	Bne	_md3
+; UNE LIGNE TERMINEE.
+	Mulu	#15,d3
+	Add.l	d3,a1
+	Add.l	d3,a2
+	Add.l	d3,a3
+	Divu	#15,d3
+	Add.l	d3,a3	; A3=1 ligne de plus que les autres (a1,a2)
+	Add.l	#16,d1
+	Cmp.l	d1,d7
+	Bne	_md3
+	Bra	_md2
+_mdend	LoadRegisters
+	Add.l	#4,a3
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MOSAICx32		Equ	36
+L36	SaveRegisters
+; SAVE SCREEN BASE IN DATA BANK.
+	Move.l	(a3),d0		; D0=Screen Base.
+	DLea	_MosaicBase,a0
+	Move.l	d0,(a0)
+; TRANSFERT DES 6 BITS PLANES IN DATA BANK.
+	DLea	_MosaicPlanes,a0
+	Move.l	d0,a1
+	Move.l	#5,d1
+_me1	Move.l	(a1)+,(a0)+
+	Sub.l	#1,d1
+	Bpl	_me1
+; POSITIONNEMENT DES DONNEES.
+	DLea	_MosaicBase,a0
+	Move.l	(a0),a1
+	Add.l	#76,a1
+	Clr.l	d6
+	Move.w	(a1)+,d6		; D6=X SCREEN SIZE.
+	Clr.l	d7
+	Move.w	(a1)+,d7		; D7=Y SCREEN SIZE.
+	Lsr.l	#5,d7
+	Lsl.l	#5,d7	; D7 Multiple de 32
+	DLea	_MosaicPlanes,a0	; A0=BASE DES BITS PLANS.
+	Move.l	d6,d3
+	Lsr.l	#3,d3			; D3=X OCTETS SCREEN SIZE.
+; TESTE SI IL EXISTE UN AUTRE BIT PLAN.
+_me2	Move.l	(a0)+,a1
+	Cmp.l	#0,a1			; A1=CURRENT SCREEN LINE.
+	Beq	_meend
+	Move.l	#0,d1			; D1=CURRENT SCREEN LINE POS.
+	Move.l	a1,a2
+	Add.l	d3,a2			; A2=CURRENT SCREEN LINE +1.
+	Move.l	a2,a3			; A3= '' '' '' '' '' '' '' .
+_me3	Move.l	(a1),d0			; D0=Donnee Lue.
+	Move.l	#$80000000,d2		; D2=Masque.
+	And.l	d0,d2
+	Move.l	d2,d0
+	Move.l	#31,d4
+_mew	Lsr.l	#1,d2
+	Or.l	d2,d0			; D0=Nouvelle Donnee.
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_mew
+	Move.l	d0,(a1)+
+	Move.l	#30,d4
+_mex	Move.l	d0,(a2)
+	Add.l	d3,a2
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_mex
+	Move.l	d0,(a2)+
+	Mulu	#30,d3
+	Sub.l	d3,a2
+	Divu	#30,d3
+	Cmp.l	a1,a3
+	Bne	_me3
+; UNE LIGNE TERMINEE.
+	Mulu	#31,d3
+	Add.l	d3,a1
+	Add.l	d3,a2
+	Add.l	d3,a3
+	Divu	#31,d3
+	Add.l	d3,a3	; A3=1 ligne de plus que les autres (a1,a2)
+	Add.l	#32,d1
+	Cmp.l	d1,d7
+	Bne	_me3
+	Bra	_me2
+_meend	LoadRegisters
+	Add.l	#4,a3		; 2 donnees lues.
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_ACTIVECOP		Equ	37
+L37	DLea	_CopperBase,a0
+	Move.l	(a0),d0
+	Cmp.l	#0,d0
+	Beq	_acx
+	Move.l	d0,$dff080
+	Rts
+_acx	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SETHAMMODE		Equ	38
+L38	Move.l	(a3)+,d0
+	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_shm
+	Add.l	#2,a0
+	Move.w	(a0),d1
+	Cmp.l	#0,d0
+	Bne	_Set
+_Unset	Bclr	#11,d1
+	Bra	_rp
+_Set	Bset	#11,d1
+_rp	Move.w	d1,(a0)
+	RTS
+_shm	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_IFFTOSCREEN		Equ	39
+L39	DLea	_IffBase,a0
+	Move.l	(a3)+,(a0)
+; Find BMHD Header
+	DLea	_IffBase,a0
+	Move.l	(a0),a2
+;	Bclr	#0,a2
+	Move.l	#16384,d0
+	Move.l	a2,a0
+_bm	Move.l	(a0),d1
+	Cmp.l	#"BMHD",d1
+	Beq	_bm2
+	Sub.l	#1,d0
+	Add.l	#2,a0
+	Cmp.l	#0,d0
+	Bne	_bm
+	Bra	_its		; BMHD Non trouve !!!
+_bm2	Add.l	#4,a0
+	DLea	_Bmhd,a1
+	Move.l	a0,(a1)
+; Find CMAP Header
+	Move.l	#16384,d0
+	Move.l	a2,a0
+_cm	Move.l	(a0),d1
+	Cmp.l	#"CMAP",d1
+	Beq	_cm2
+	Sub.l	#1,d0
+	Add.l	#2,a0
+	Cmp.l	#0,d0
+	Bne	_cm
+	Bra	_its		; CMAP Non trouve !!!
+_cm2	Add.l	#4,a0
+	DLea	_Cmap,a1
+	Move.l	a0,(a1)
+; Find BODY Header
+	Move.l	#16384,d0
+	Move.l	a2,a0
+_bo	Move.l	(a0),d1
+	Cmp.l	#"BODY",d1
+	Beq	_bo2
+	Sub.l	#1,d0
+	Add.l	#2,a0
+	Cmp.l	#0,d0
+	Bne	_bo
+	Bra	_its		; CMAP Non trouve !!!
+_bo2	Add.l	#4,a0
+	DLea	_Body,a1
+	Move.l	a0,(a1)
+	DLea	_Bmhd,a2
+	Move.l	(a2),a0
+	Add.l	#4,a0
+	Clr.l	d0
+	Move.w	(a0)+,d0
+	Clr.l	d1
+	Move.w	(a0),d1
+	DLea	_Bmhd,a2
+	Move.l	(a2),a0
+	Add.l	#12,a0
+	Clr.l	d7
+	Move.b	(a0),d7
+	DLea	_LbmXs,a0
+	Move.l	d0,(a0)
+	DLea	_LbmYs,a0
+	Move.l	d1,(a0)
+	DLea	_LbmDp,a0
+	Move.l	d7,(a0)
+	DLea	_BitsPlanes,a0
+	Sub.l	#1,d7
+	Lsl.l	#2,d7
+	Add.l	d7,a0
+	Move.l	(a0),d0
+	Cmp.l	#0,d0
+	Beq	_its
+; Copier les _bitsPlanes: dans _BitsPlanes3:
+	DLea	_BitsPlanes,a0
+	DLea	_BitsPlanes3,a1
+	Move.l	#7,d0
+_bp	Move.l	(a0)+,(a1)+
+	Sub.l	#1,d0
+	Bpl	_bp
+;
+; CONVERTION ILBM TO AMOS COPPER DEFINED SCREEN V1.0
+;
+_TRACE
+; A3 Replaced by A2. Two lines.
+	DLea	_Body,a2
+	Move.l	(a2),a0
+	Add.l	#4,a0
+;   For D0=1 To _YSIZE
+	Move.l	#1,d0
+_01
+;      For d1=0 To _NBPL-1
+	Move.l	#0,d1
+_02
+;         For d2=1 To(_XSIZE/8)
+	Move.l	#1,d2
+_03
+;            D3=Peek(A0)
+	Clr.l	d3
+	Move.b	(a0),d3
+;            Add a0,1
+	Add.l	#1,a0
+;            D4=Peek(A0)
+	Move.b	(a0),d4
+;            Add A0,1
+	Add.l	#1,a0
+;            If D3>$80 Then Goto _COMPRESSED
+	Cmp.l	#$80,d3
+	Bgt	_COMPRESSED
+_NOCOMPRESSION
+;            Dec A0
+	Sub.l	#1,a0
+;            For D5=0 To D3
+	Move.l	#0,d5
+_04
+;               Poke _BPL(d1),Peek(A0)
+	Move.l	d1,d7
+	Lsl.l	#2,d7
+	DLea	_BitsPlanes3,a1
+	Add.l	d7,a1
+	Move.l	(a1),a2
+	Move.b	(a0),(a2)
+;               Inc _BPL(d1)
+	Add.l	#1,a2
+	Move.l	a2,(a1)
+;               Inc A0
+	Add.l	#1,a0
+;              Next D5
+	Add.l	#1,d5
+	Move.l	d3,d7
+	Add.l	#1,d7
+	Cmp.l	d7,d5
+	Bne	_04
+;            D2=D2+D3
+	Add.l	d3,d2
+;            Goto _CONTINUE
+	Bra	_CONTINUE
+
+_COMPRESSED:
+;               D5=(257-D3)
+	Move.l	#257,d5
+	Sub.l	d3,d5
+;               If D5>(_XSIZE/8) Then Bell : Goto _END
+; A3 Replaced by A1. Two lines.
+	DLea	_LbmXs,a1
+	Move.l	(a1),d7
+	Lsr.l	#3,d7
+	Cmp.l	d7,d5
+	Bgt	_END
+;               For D6=1 To D5
+	Move.l	#1,d6
+_05
+;                  Poke _BPL(d1),D4
+	DLea	_BitsPlanes3,a1
+	Move.l	d1,d7
+	Lsl.l	#2,d7
+	Add.l	d7,a1
+	Move.l	(a1),a2
+	Move.b	d4,(a2)
+;                  Inc _BPL(d1)
+	Add.l	#1,a2
+	Move.l	a2,(a1)
+;                 Next D6
+	Add.l	#1,d6
+	Move.l	d5,d7
+	Add.l	#1,d7
+	Cmp.l	d7,d6
+	Bne	_05
+;               D2=D2+(D5-1)
+	Add.l	d5,d2
+	Sub.l	#1,d2
+_CONTINUE
+;           Next D2
+	Add.l	#1,d2
+; A3 Replaced by A1. Two lines.
+	DLea	_LbmXs,a1
+	Move.l	(a1),d7
+	Lsr.l	#3,d7
+	Add.l	#1,d7
+	Cmp.l	d7,d2
+	Bne	_03
+;        Next D1
+	Add.l	#1,d1
+; A3 Replaced by A1. Two lines.
+	DLea	_LbmDp,a1
+	Move.l	(a1),d7
+	Cmp.l	d7,d1
+	Bne	_02
+;     Next D0
+	Add.l	#1,d0
+; A3 Replaced by A1. Two lines.
+	DLea	_LbmYs,a1
+	Move.l	(a1),d7
+	Add.l	#1,d7
+	Cmp.l	d7,d0
+	Bne	_01
+_END
+; FIN DE LA CONVERTION.
+_its	Move.l	#0,a0
+	Move.l	#0,d2
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_ALLOWPLANES		Equ	40
+L40	Move.l	(a3)+,d0
+	DLea	_Others,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	Apx
+	Add.l	#26,a0
+	DLea	_BPlanesMask,a1
+	Cmp.l	#1,d0
+	Blt	_ap
+	Cmp.l	#6,d0
+	Bgt	_ap
+	Bset	d0,(a1)
+	Lsl.l	#6,d0
+	Move.w	(a0),d1
+	Bset	d0,d1
+	Move.w	d1,(a0)
+_ap	RTS
+Apx	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_FORBIDPLANES		Equ	41
+L41	Move.l	(a3)+,d0
+	DLea	_Others,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	fb
+	Add.l	#26,a0
+	DLea	_BPlanesMask,a1
+	Cmp.l	#1,d0
+	Blt	_fp
+	Cmp.l	#6,d0
+	Bgt	_fp
+	Bclr	d0,(a1)
+	Lsl.l	#6,d0
+	Move.w	(a0),d1
+	Bclr	d0,d1
+	Move.w	d1,(a0)
+_fp	RTS
+fb	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_RESERVEDPF		Equ	42
+L42	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	Apy
+	Add.l	#10,a0
+	Move.w	(a0),d0
+	Bset	#6,d0
+	Move.w	d0,(a0)
+	RTS
+Apy	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_NORMALDPF		Equ	43
+L43	DLea	_BplConBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	Apz
+	Add.l	#10,a0
+	Move.w	(a0),d0
+	Bclr	#6,d0
+	Move.w	d0,(a0)
+	RTS
+Apz	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CHECKCOL		Equ	44
+L44	Move.l	(a3)+,d1
+	Move.l	(a3)+,d0
+	Bclr	#0,d0		; SPRITE #1 Pair
+	Bclr	#0,d1		; SPRITE #2 Pair
+	Cmp.l	d0,d1
+	Beq	_cc	; NO COLLISION FOR COMPLEMENTED SPRITES.
+	Lsl.l	#4,d0
+	Or.l	d1,d0
+	Cmp.l	#$02,d0
+	Bne	_cz1
+	Move.l	#9,d2
+_cz1	Cmp.l	#$04,d0
+	Bne	_c2
+	Move.l	#10,d2
+_c2	Cmp.l	#$06,d0
+	Bne	_c3
+	Move.l	#11,d2
+_c3	Cmp.l	#$24,d0
+	Bne	_c4
+	Move.l	#12,d2
+_c4	Cmp.l	#$26,d0
+	Bne	_c5
+	Move.l	#13,d2
+_c5	Cmp.l	#$46,d0
+	Bne	_c6
+	Move.l	#14,d2
+_c6	Move.w	$DFF00E,d4
+	Move.l	#0,d3
+	Btst	d2,d4
+	Bne	_cc
+	Move.l	#$ffffffff,d3
+_cc	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CHECKCOL2		Equ	45
+L45	Move.w	$DFF00E,d0
+	Move.l	#0,d3
+	Btst	#0,d0
+	Bne	_c21
+	Move.l	#$FFFFFFFF,d3
+_c21	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CHECKCOL3		Equ	46
+L46	Move.l	(a3)+,d1		; SPR1
+	Move.l	(a3)+,d0		; PF
+	Lsl.l	#4,d0
+	Or.l	d1,d0
+	Cmp.l	#$10,d0
+	Bne	_c31
+	Move.l	#1,d2
+_c31	Cmp.l	#$12,d0
+	Bne	_c32
+	Move.l	#2,d2
+_c32	Cmp.l	#$14,d0
+	Bne	_c33
+	Move.l	#3,d2
+_c33	Cmp.l	#$16,d0
+	Bne	_c34
+	Move.l	#4,d2
+_c34	Cmp.l	#$20,d0
+	Bne	_c35
+	Move.l	#5,d2
+_c35	Cmp.l	#$22,d0
+	Bne	_c36
+	Move.l	#6,d2
+_c36	Cmp.l	#$24,d0
+	Bne	_c37
+	Move.l	#7,d2
+_c37	Cmp.l	#$26,d0
+	Bne	_c38
+	Move.l	#8,d2
+_c38	Move.w	$DFF00E,d4
+	Move.l	#0,d3
+	Btst	d2,d4
+	Bne	_ce
+	Move.l	#$FFFFFFFF,d3
+_ce	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_COS1000		Equ	47
+L47	Move.l	(a3)+,d0
+	Cmp.l	#0,d0
+	Blt	_CInfA0
+	Cmp.l	#359,d0
+	Bgt	_CSupA359
+	Bra	_CCcl
+_CInfA0	Move.l	d0,d1
+	Divu	#360,d1
+	Mulu	#360,d1
+	Sub.l	d1,d0
+	Not	D0
+	Add.l	#1,d0
+	Bra	_CCcl
+_CSupA359
+	Move.l	d0,d1
+	Divu	#360,d1
+	Mulu	#360,d1
+	Sub.l	d1,d0
+_CCcl	DLea	_Cosinus,a0
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SIN1000		Equ	48
+L48	Move.l	(a3)+,d0
+	Cmp.l	#0,d0
+	Blt	_SInfA0
+	Cmp.l	#359,d0
+	Bgt	_SSupA359
+	Bra	_SCcl
+_SInfA0	Move.l	d0,d1
+	Divu	#360,d1
+	Mulu	#360,d1
+	Sub.l	d1,d0
+	Not	D0
+	Add.l	#1,d0
+	Bra	_SCcl
+_SSupA359
+	Move.l	d0,d1
+	Divu	#360,d1
+	Mulu	#360,d1
+	Sub.l	d1,d0
+_SCcl	DLea	_Sinus,a0
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_TAN1000		Equ	49
+L49	Move.l	(a3)+,d0
+	Cmp.l	#0,d0
+	Blt	_TInfA0
+	Cmp.l	#359,d0
+	Bgt	_TSupA359
+	Bra	_TCcl
+_TInfA0	Move.l	d0,d1
+	Divu	#360,d1
+	Mulu	#360,d1
+	Sub.l	d1,d0
+	Not	D0
+	Add.l	#1,d0
+	Bra	_TCcl
+_TSupA359
+	Move.l	d0,d1
+	Divu	#360,d1
+	Mulu	#360,d1
+	Sub.l	d1,d0
+_TCcl	DLea	_Tangente,a0
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	(a0),d3
+	Move.l	#0,d2
+	RTS
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_IFFXSize		Equ	50
+L50	Move.l	(a3)+,a0
+	Move.l	#0,d2
+	Move.l	#$FFFFFFFF,d3
+	Move.l	#32768,d7
+; Find BMHD
+_xs0	Move.l	(a0),d6
+	Cmp.l	#"BMHD",d6
+	Beq	_xs1
+	Add.l	#2,a0
+	Sub.l	#1,d7
+	Cmp.l	#0,d7
+	Beq	_Xsend
+	Bra	_xs0
+_xs1	Add.l	#4,a0
+	Add.l	#4,a0
+	Clr.l	d3
+	Move.w	(a0),d3
+	RTS
+_Xsend	Moveq	#3,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_IFFYSize		Equ	51
+L51	Move.l	(a3)+,a0
+	Move.l	#0,d2
+	Move.l	#$FFFFFFFF,d3
+	Move.l	#32768,d7
+; Find BMHD
+_ys0	Move.l	(a0),d6
+	Cmp.l	#"BMHD",d6
+	Beq	_ys1
+	Add.l	#2,a0
+	Sub.l	#1,d7
+	Cmp.l	#0,d7
+	Beq	_Ysend
+	Bra	_ys0
+_ys1	Add.l	#4,a0
+	Add.l	#6,a0
+	Clr.l	d3
+	Move.w	(a0),d3
+	RTS
+_Ysend	Moveq	#3,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_IFFDepth		Equ	52
+L52	Move.l	(a3)+,a0
+	Move.l	#0,d2
+	Move.l	#$FFFFFFFF,d3
+	Move.l	#32768,d7
+; Find BMHD
+_ds0	Move.l	(a0),d6
+	Cmp.l	#"BMHD",d6
+	Beq	_ds1
+	Add.l	#2,a0
+	Sub.l	#1,d7
+	Cmp.l	#0,d7
+	Beq	_Dsend
+	Bra	_ds0
+_ds1	Add.l	#4,a0
+	Add.l	#12,a0
+	Clr.l	d3
+	Move.b	(a0),d3
+	RTS
+_Dsend	Moveq	#3,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_DoubleMASK		Equ	53
+L53	Move.l	(a3)+,d7	; D7=Screen 2 Base.
+	Move.l	(a3)+,d6	; D6=Screen 1 Base.
+	Move.l	(a3)+,d5	; D5=Mask Base 1 Bit plan.
+	Cmp.l	#0,d5
+	Beq	Ldp
+	Cmp.l	#0,d6
+	Beq	Ldp
+	Cmp.l	#0,d7
+	Beq	Ldp
+; SAUVEGARDE DE D3.
+	DLea	Registers,a0
+	Move.l	a3,(a0)
+; LECTURE DE LA LONGUEUR D'UN BIT PLAN.
+	Move.l	d5,a0
+	Add.l	#76,a0
+	Clr.l	d0
+	Move.w	(a0),d0
+	Clr.l	d1
+	Add.l	#2,a0
+	Move.w	(a0),d1
+	Lsr.l	#3,d0
+	Mulu	d0,d1
+	DLea	_MLen,a0
+	Move.l	d1,(a0)
+; SAUVEGARDE DE L'ADRESSE DU BIT PLAN MASK.
+	DLea	_MaskBase,a0
+	Move.l	d5,a1
+	Move.l	(a1),(a0)
+; MISE A ZERO DES 8 BITS PLANS.
+	Move.l	#7,d0
+	DLea	_BitsPlanes2,a0
+	DLea	_BitsPlanes3,a1
+_dm1	Move.l	#0,(a0)+
+	Move.l	#0,(a1)+
+	Sub.l	#1,d0
+	Bpl	_dm1
+; LECTURE DES 6 BITS PLANS MAXIMUM.
+	DLea	_BitsPlanes2,a2
+	DLea	_BitsPlanes3,a3
+	Move.l	d6,a0
+	Move.l	d7,a1
+	Move.l	#5,d0
+_dm2	Move.l	(a0)+,(a2)+
+	Move.l	(a1)+,(a3)+
+	Sub.l	#1,d0
+	Bpl	_dm2
+; INITIALISATIONS DE LA ROUTINE DE CALCUL.
+	Move.l	#0,d0			; D0=CURRENT BIT PLANE.
+_Dm4	DLea	_MLen,a0
+	Move.l	(a0),d1			; D1=BIT PLANES LENGTH.
+	Lsr.l	#2,d1			; '' '' '' en #.L   .
+	Sub.l	#1,d1
+	DLea	_BitsPlanes2,a2
+	DLea	_BitsPlanes3,a3
+	Add.l	d0,a2
+	Add.l	d0,a3
+	Move.l	(a2),a0			; A0=Cur BIT PLANE BASE SCREEN 1.
+	Move.l	(a3),a1			; A1=Cur BIT PLANE BASE SCREEN 2.
+	Cmp.l	#0,a0
+	Beq	_Dm5
+	Cmp.l	#0,a1
+	Beq	_Dm5
+	DLea	_MaskBase,a3
+	Move.l	(a3),a2			; A2=BITS PLANE BASE MASK.
+; ROUTINE DE CALCUL.
+_dm3	Move.l	(a2)+,d4	; D4=DONNEE MASQUE.
+	Move.l	d4,d5
+	Not.l	d5		; D5=MASQUE INVERSE.
+	And.l	(a0)+,d4	; (a0)=Donnee Ecran 1 BACKGround.
+	And.l	(a1),d5		; (a1)=Donnee Ecran 2 FOREGround.
+	Or.l	d4,d5
+	Move.l	d5,(a1)+
+	Sub.l	#1,d1
+	Bpl	_dm3
+	Add.l	#4,d0
+	Bra	_Dm4
+; RAPPEL DE A3.
+_Dm5	DLea	Registers,a0
+	Move.l	(a0),a3
+	Rts
+Ldp	Moveq	#4,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_DoubleMASK2		Equ	54
+L54	Move.l	(a3)+,d7	; D7=Screen 2 Base.
+	Move.l	(a3)+,d6	; D6=Screen 1 Base.
+	Move.l	(a3)+,d4	; D4=YEnd.
+	Move.l	(a3)+,d3	; D3=YStart.
+	Move.l	(a3)+,d5	; D5=Mask Base 1 Bit plan.
+	Cmp.l	#0,d5
+	Beq	Dmw
+	Cmp.l	#0,d6
+	Beq	Dmw
+	Cmp.l	#0,d7
+	Beq	Dmw
+; SAUVEGARDE DE D3.
+	DLea	Registers,a0
+	Move.l	a3,(a0)
+; LECTURE DE LA LONGUEUR D'UN BIT PLAN.
+	Move.l	d5,a0
+	Add.l	#76,a0
+	Clr.l	d0
+	Move.w	(a0),d0		; D0=XSize
+	Clr.l	d1
+	Sub.l	d3,d4
+	Add.l	#2,a0
+	Move.w	d4,d1
+	Lsr.l	#3,d0
+	Mulu	d0,d1
+	DLea	_MLen,a0
+	Move.l	d1,(a0)
+	Mulu	d0,d3
+; SAUVEGARDE DE L'ADRESSE DU BIT PLAN MASK.
+	DLea	_MaskBase,a0
+	Move.l	d5,a1
+	Move.l	(a1),d4
+	Add.l	d3,d4
+	Move.l	d4,(a0)
+; MISE A ZERO DES 8 BITS PLANS.
+	Move.l	#7,d0
+	DLea	_BitsPlanes2,a0
+	DLea	_BitsPlanes3,a1
+_dn1	Move.l	#0,(a0)+
+	Move.l	#0,(a1)+
+	Sub.l	#1,d0
+	Bpl	_dn1
+; LECTURE DES 6 BITS PLANS MAXIMUM.
+	DLea	_BitsPlanes2,a2
+	DLea	_BitsPlanes3,a3
+	Move.l	d6,a0
+	Move.l	d7,a1
+	Move.l	#5,d0
+_dn2	Move.l	(a0)+,d4
+	Cmp.l	#0,d4
+	Beq	_dn6
+	Add.l	d3,d4
+_dn6	Move.l	d4,(a2)+
+	Move.l	(a1)+,d4
+	Cmp.l	#0,d4
+	Beq	_dn7
+	Add.l	d3,d4
+_dn7	Move.l	d4,(a3)+
+	Sub.l	#1,d0
+	Bpl	_dn2
+; INITIALISATIONS DE LA ROUTINE DE CALCUL.
+	Move.l	#0,d0			; D0=CURRENT BIT PLANE.
+_Dn4	DLea	_MLen,a0
+	Move.l	(a0),d1			; D1=BIT PLANES LENGTH.
+	Lsr.l	#2,d1			; '' '' '' en #.L   .
+	Sub.l	#1,d1
+	DLea	_BitsPlanes2,a2
+	DLea	_BitsPlanes3,a3
+	Add.l	d0,a2
+	Add.l	d0,a3
+	Move.l	(a2),a0			; A0=Cur BIT PLANE BASE SCREEN 1.
+	Move.l	(a3),a1			; A1=Cur BIT PLANE BASE SCREEN 2.
+	Cmp.l	#0,a0
+	Beq	_Dn5
+	Cmp.l	#0,a1
+	Beq	_Dn5
+	DLea	_MaskBase,a3
+	Move.l	(a3),a2			; A2=BITS PLANE BASE MASK.
+; ROUTINE DE CALCUL.
+_dn3	Move.l	(a2)+,d4	; D4=DONNEE MASQUE.
+	Move.l	d4,d5
+	Not.l	d5		; D5=MASQUE INVERSE.
+	And.l	(a0)+,d4	; (a0)=Donnee Ecran 1 BACKGround.
+	And.l	(a1),d5		; (a1)=Donnee Ecran 2 FOREGround.
+	Or.l	d4,d5
+	Move.l	d5,(a1)+
+	Sub.l	#1,d1
+	Bpl	_dn3
+	Add.l	#4,d0
+	Bra	_Dn4
+; RAPPEL DE A3.
+_Dn5	DLea	Registers,a0
+	Move.l	(a0),a3
+	Rts
+Dmw	Moveq	#4,d0
+	Rbsr	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_RESERVESPRITE		Equ	55
+L55	Move.l	(a3)+,d7	; D7=Length.
+	Move.l	(a3)+,d6	; D6=Base.
+	Cmp.l	#8192,d7	; 8K Minimum to reserve.
+	Blt	_Rsend
+	DLea	_SpriteBase,a0
+	Move.l	d6,(a0)
+	DLea	_SpriteLength,a1
+	Move.l	d7,(a1)
+	Rts
+_Rsend	Moveq	#5,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_GETEVENSPRITE		Equ	56
+L56	Move.l	(a3)+,d7	; D7=LONGUEUR EN LIGNES DU SPRITE !!!
+	Move.l	(a3)+,d6	; D6=Y position.
+	Move.l	(a3)+,d5	; D5=X Pos.
+	Lsr.l	#3,d5		; D5=X Position en octets.
+	Move.l	(a3)+,d4	; D4=NUMERO DU SPRITE !!!.
+	Move.l	(a3)+,a0	; A0=SCREEN BASE.
+	Move.l	(a0)+,a1	; A1=Bit Plane 1 Pointer.
+	Move.l	(a0)+,a2	; A2=Bit Plane 2 Pointer.
+	Add.l	#$6e,a0			; #$00000076-#$00000008 .
+	Clr.l	d0
+	Move.w	(a0)+,d0	; D0=X Screen Size.
+	Lsr.l	#3,d0		; D0=LONGUEUR D'UNE LIGNE A L'AUTRE !!!
+	Move.w	(a0)+,d1	; D1=Y Screen Size.
+	Mulu	d0,d6
+	Add.l	d5,d6		; D6=1er mot du sprite !!!
+	Add.l	d6,a1		; A1=ADRESSE DU 1ER  PLAN.
+	Add.l	d6,a2		; A2=ADRESSE DU 2EME PLAN.
+	DLea	_SpriteBase,a0
+	Move.l	a0,d1
+	Move.l	d1,a0		; A0=Adresse de base des sprites.
+	Mulu	#520,d4		; 516=Longueur 1 Sprite de 16*128*2bp.
+	Add.l	d4,a0
+; CREATION DU SPRITE !!!
+	Move.l	d7,d6		; D6=Longueur.
+; Header du sprite
+	Move.w	#$0000,(a0)+
+	Move.b	d7,(a0)+
+	Move.b	#$00,(a0)+
+; Sprite datas.
+_gsbcl	Move.l	(a1),(a0)+
+	Move.l	(a2),(a0)+
+	Add.l	d0,a1
+	Add.l	d0,a2
+	Sub.l	#1,d6
+	Bpl	_gsbcl
+_gsend	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_GETODDSPRITE		Equ	57
+L57	Move.l	(a3)+,d7	; D7=LONGUEUR EN LIGNES DU SPRITE !!!
+	Move.l	(a3)+,d6	; D6=Y position.
+	Move.l	(a3)+,d5	; D5=X Pos.
+	Lsr.l	#3,d5		; D5=X Position en octets.
+	Move.l	(a3)+,d4	; D4=NUMERO DU SPRITE !!!.
+	Move.l	(a3)+,a0	; A0=SCREEN BASE.
+	Add.l	#8,a0
+	Move.l	(a0)+,a1	; A1=Bit Plane 3 Pointer.
+	Move.l	(a0)+,a2	; A2=Bit Plane 4 Pointer.
+	Add.l	#$6e,a0			; #$00000076-#$00000008 .
+	Clr.l	d0
+	Move.w	(a0)+,d0	; D0=X Screen Size.
+	Lsr.l	#3,d0		; D0=LONGUEUR D'UNE LIGNE A L'AUTRE !!!
+	Move.w	(a0)+,d1	; D1=Y Screen Size.
+	Mulu	d0,d6
+	Add.l	d5,d6		; D6=1er mot du sprite !!!
+	Add.l	d6,a1		; A1=ADRESSE DU 1ER  PLAN.
+	Add.l	d6,a2		; A2=ADRESSE DU 2EME PLAN.
+	DLea	_SpriteBase,a0
+	Move.l	a0,d1
+	Move.l	d1,a0		; A0=Adresse de base des sprites.
+	Mulu	#520,d4		; 516=Longueur 1 Sprite de 16*128*2bp.
+	Add.l	d4,a0
+; CREATION DU SPRITE !!!
+	Move.l	d7,d6		; D6=Longueur.
+; Header du sprite
+	Move.w	#$0000,(a0)+
+	Move.b	d7,(a0)+
+	Move.b	#$00,(a0)+
+; Sprite datas.
+_gobcl	Move.l	(a1),(a0)+
+	Move.l	(a2),(a0)+
+	Add.l	d0,a1
+	Add.l	d0,a2
+	Sub.l	#1,d6
+	Bpl	_gobcl
+_goend	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_ACTIVESPRITE		Equ	58
+L58	Move.l	(a3)+,d3	; D3=Sprite In Bank.
+	Move.l	(a3)+,d4	; D4=Y View Size.
+	Move.l	(a3)+,d1	; D1=Y Position.
+	Move.l	(a3)+,d0	; D0=X Position.
+	Move.l	(a3)+,d2	; D2=# Sprite.
+	Lsl.l	#2,d2
+	DLea	_SprPtBase,a1
+	Move.l	(a1),a0
+	Add.l	d2,a0
+	Add.l	#2,a0		; A0=Adresse dans le copperlist.
+	Mulu	#520,d3
+	DLea	_SpriteBase,a2
+	Move.l	(a2),a1
+	Add.l	d3,a1
+	DLea	_Temp,a2
+	Move.l	a1,(a2)
+	Move.w	(a2)+,(a0)
+	Add.l	#4,a0
+	Move.w	(a2),(a0)
+	Move.b	d1,(a1)+
+	Lsr.l	#1,d0
+	Move.b	d0,(a1)+
+	Add.l	d1,d4
+	Move.b	d4,(a1)+
+	Move.b	#0,(a1)
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_DOUBLEMASKB		Equ	59
+L59	Move.l	(a3)+,d3	; D3=ECRAN CIBLE.
+	Move.l	(a3)+,d0	; D0=Second Plan.
+	Move.l	(a3)+,d1	; D1=Mask.
+	Move.l	(a3)+,d2	; D2=Premier Plan.
+	Cmp.l	#0,d2
+	Beq	dmz
+	Cmp.l	#0,d0
+	Beq	dmz
+	Cmp.l	#0,d1
+	Beq	dmz
+	Cmp.l	#0,d3
+	Beq	dmz
+	DLea	_a3,a0
+	Move.l	a3,(a0)
+	DLea	_dx1,a0
+	Move.l	d2,(a0)+
+	Move.l	d1,(a0)+
+	Move.l	d0,(a0)+
+	Move.l	d3,(a0)
+	Move.l	d0,a0
+	Add.l	#76,a0
+	Clr.l	d5
+	Clr.l	d6
+	Clr.l	d7
+	Move.w	(a0)+,d5	; D5=X Screen size.
+	Move.w	(a0)+,d6	; D6=Y Screen Size.
+	Lsr.l	#4,d5
+	Lsl.l	#6,d6		; d6*64.
+	Add.w	d5,d6		; D6*64 + d5 , Y Size * 64 + X size.
+	Move.w	(a0),d7	; D7=nombre de bits plans present dans la cible.
+;	Move.w	#5,d7
+; Blitter Occupe ???
+_pp2	Move.w	$Dff002,d5
+	Btst	#14,d5
+	Bne	_pp2
+_boucle:
+	DLea	_dx1,a0
+	Move.l	(a0),a1
+	Move.l	(a1),d0		; D0=ForeGround.
+	Add.l	#4,(a0)
+	DLea	_dx2,a0
+	Move.l	(a0),a1
+	Move.l	(a1),d3		; D3=Mask.
+	DLea	_dx3,a0
+	Move.l	(a0),a2
+	Move.l	(a2),a1		; A1=Background.
+	Add.l	#4,(a0)
+	DLea	_dx4,a0
+	Move.l	(a0),a2
+	Move.l	(a2),d4		; d4=Cible.
+	Add.l	#4,(a0)
+; Mise de BLITTER en mode FILL CARRY IN.
+_pi2	Move.w	#$0,BLTCON1		; Origin=#$4
+; Mise en place de la source a lire.
+	Move.l	D0,BLTAPTH		; D0=ADRESSE SOURCE !!!
+; Modulo de la source=0.
+	Move.w	#$0,BLTAMOD
+; Mise en place de la source MASQUE joueur (8eme plan) a lire.
+	Move.l	D3,BLTBPTH		; D3=ADRESSE MASQUE !!!
+; Modulo de la source masque=0.
+	Move.w	#$0,BLTBMOD
+; Selection de la zone source/cible.
+	Move.l	a1,BLTCPTH		; A1=Adresse second plan
+	Move.w	#$0,BLTCMOD
+; Selection de la zone cible.
+	Move.l	D4,BLTDPTH		; d4=ADRESSE CIBLE !!!
+; Selection du modulo de la cible
+	Move.w	#$0,BLTDMOD
+; Mise a 0 des masques de debut et fin du blitter.
+	Move.w	#$ffff,BLTAFWM
+	Move.w	#$ffff,BLTALWM
+; Selection du type d'operation logique pour obtenir le resultat graphique.
+; Et positionnement par rapport au decalage D6 de la source B.
+	Move.w	#%0000111110011000,BLTCON0	; Calcul mathematique.
+	Move.w	#%0000111110011000,BLTCON0+$1A	; Equ BltCon0L
+; Mise en place de la zone a copier.
+	Move.w	D6,BLTSIZE
+; Blitter occupe ?
+_ppp	Move.w	$Dff002,d5
+	Btst	#14,d5
+	Bne	_ppp
+	sub.l	#1,d7
+	Cmp.l	#0,d7
+	Bne	_boucle
+	DLea	_a3,a0
+	Move.l	(a0),a3
+	Rts
+dmz	Moveq	#4,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_DOUBLEMASKB2		Equ	60
+L60	Move.l	(a3)+,d4	; D4=Yend position.
+	Move.l	(a3)+,d5	; D5=Ystart position.
+	Move.l	(a3)+,d3	; D3=ECRAN CIBLE.
+	Move.l	(a3)+,d0	; D0=Second Plan.
+	Move.l	(a3)+,d1	; D1=Mask.
+	Move.l	(a3)+,d2	; D2=Premier Plan.
+	Cmp.l	#0,d0
+	Beq	dme
+	Cmp.l	#0,d1
+	Beq	dme
+	Cmp.l	#0,d2
+	Beq	dme
+	Cmp.l	#0,d3
+	Beq	dme
+	DLea	_a3,a0
+	Move.l	a3,(a0)
+	DLea	_dx1,a0
+	Move.l	d2,(a0)+
+	Move.l	d1,(a0)+
+	Move.l	d0,(a0)+
+	Move.l	d3,(a0)
+	Move.l	d0,a0
+	Add.l	#76,a0
+	Move.l	d5,d0		; D0=Y Start position D4=Y End Position.
+	Clr.l	d5
+	Clr.l	d6
+	Clr.l	d7
+	Move.w	(a0)+,d5	; D5=X Screen size.
+	Move.l	d4,d6
+	Lsr.l	#3,d5
+	Mulu	d5,d0		; D0=Rajout aux bits plans.
+	Lsr.l	#1,d5
+	Lsl.l	#6,d6		; d6*64.
+	Add.l	d5,d6		; D6=d6*64+d5 D6=Ysize*64 + Xsize.
+	Add.l	#2,a0
+	Move.w	(a0),d7	; D7=nombre de bits plans present dans la cible.
+	Move.l	d0,d2
+_bcl2:
+	DLea	_dx1,a0
+	Move.l	(a0),a1
+	Move.l	(a1),d0		; D0=ForeGround.
+	Add.l	d2,d0				; RAJOUT.
+	Add.l	#4,(a0)
+	DLea	_dx2,a0
+	Move.l	(a0),a1
+	Move.l	(a1),d3		; D3=Mask.
+	Add.l	d2,d3				; RAJOUT.
+	DLea	_dx3,a0
+	Move.l	(a0),a2
+	Move.l	(a2),a1		; A1=Background.
+	Add.l	d2,a1				; RAJOUT.
+	Add.l	#4,(a0)
+	DLea	_dx4,a0
+	Move.l	(a0),a2
+	Move.l	(a2),d4		; d4=Cible.
+	Add.l	d2,d4				; RAJOUT.
+	Add.l	#4,(a0)
+; Blitter Occupe ???
+_pq2	Move.w	$Dff002,d5
+	Btst	#14,d5
+	Bne	_pq2
+; Mise de BLITTER en mode FILL CARRY IN.
+_pj2	Move.w	#$0,BLTCON1		; Origin=#$4
+; Mise en place de la source a lire.
+	Move.l	D0,BLTAPTH		; D0=ADRESSE SOURCE !!!
+; Modulo de la source=0.
+	Move.w	#$0,BLTAMOD
+; Mise en place de la source MASQUE joueur (8eme plan) a lire.
+	Move.l	D3,BLTBPTH		; D3=ADRESSE MASQUE !!!
+; Modulo de la source masque=0.
+	Move.w	#$0,BLTBMOD
+; Selection de la zone source/cible.
+	Move.l	a1,BLTCPTH		; A1=Adresse second plan
+	Move.w	#$0,BLTCMOD
+; Selection de la zone cible.
+	Move.l	D4,BLTDPTH		; d4=ADRESSE CIBLE !!!
+; Selection du modulo de la cible
+	Move.w	#$0,BLTDMOD
+; Mise a 0 des masques de debut et fin du blitter.
+	Move.w	#$ffff,BLTAFWM
+	Move.w	#$ffff,BLTALWM
+; Selection du type d'operation logique pour obtenir le resultat graphique.
+; Et positionnement par rapport au decalage D6 de la source B.
+	Move.w	#%0000111110011000,BLTCON0	; Calcul mathematique.
+	Move.w	#%0000111110011000,BLTCON0+$1A	; Equ BltCon0L
+; Mise en place de la zone a copier.
+	Move.w	D6,BLTSIZE
+; Blitter occupe ?
+_ppq	Move.w	$Dff002,d5
+	Btst	#14,d5
+	Bne	_ppq
+	sub.l	#1,d7
+	Cmp.l	#0,d7
+	Bne	_bcl2
+	DLea	_a3,a0
+	Move.l	(a0),a3
+	Rts
+dme	Moveq	#4,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_PATCH13	Equ	61
+L61	Move.w	#$0,$dff1fc		; Disable DOUBLE SCANNING.
+	Move.w	#$0,$dff106		; GRAPHICS PALETTE=0 to 31
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LFILTER1	Equ	62
+L62	Move.l	(a3)+,a1	; Fin
+	Move.l	(a3)+,a0	; Debut
+	Move.l	(a3)+,d0	; Filtre
+_lf0	Move.b	(a0),d1
+	Cmp.b	d0,d1
+	Blt	_lf1
+	Move.b	d0,(a0)
+_lf1	Add.l	#1,a0
+	Cmp.l	a0,a1
+	Bne	_lf0
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LFILTER2	Equ	63
+L63	Move.l	(a3)+,a1	; Fin
+	Move.l	(a3)+,a0	; Debut
+	Move.l	(a3)+,d0	; Filtre
+_lf2	Move.w	(a0),d1
+	Cmp.w	d0,d1
+	Blt	_lf3
+	Move.w	d0,(a0)
+_lf3	Add.l	#2,a0
+	Cmp.l	a0,a1
+	Blt	_lf2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LFILTER3	Equ	64
+L64	Move.l	(a3)+,a1	; Fin
+	Move.l	(a3)+,a0	; Debut
+	Move.l	(a3)+,d0	; Filtre
+_lf4	Move.l	(a0),d1
+	Cmp.l	d0,d1
+	Blt	_lf5
+	Move.l	d0,(a0)
+_lf5	Add.l	#4,a0
+	Cmp.l	a0,a1
+	Blt	_lf4
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_2NDPAL	Equ	65
+L65	Move.l	(a3)+,d0
+	DLea	_BplConBase,a0
+	Move.l	(a0),a1
+	Cmp.l	#0,a1
+	Beq	_l2end
+	Add.l	#14,a1
+	Mulu	#$400,d0
+	Move.w	d0,(a1)
+	Rts
+_l2end	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_READIFFCOLOR	Equ	66
+L66	Move.l	(a3)+,d0	; Color
+	Move.l	(a3)+,a1	; Iff Base.
+	Move.l	#65536,d7
+_ric	Move.l	(a1),d1
+	Cmp.l	#"CMAP",d1
+	Beq	_ric2
+	Sub.l	#1,d7
+	Cmp.l	#0,d7
+	Beq	ric
+	Add.l	#2,a1
+	Bra	_ric
+_ric2	Add.l	#8,a1
+	Mulu	#3,d0
+	Add.l	d0,a1
+	Clr.l	d0
+	Clr.l	d1
+	Clr.l	d2
+	Move.b	(a1)+,d0	; D0=R
+	Move.b	(a1)+,d1	; D1=V
+	Move.b	(a1),d2		; D2=B
+	Lsr.l	#4,d0
+	Lsr.l	#4,d1
+	Lsr.l	#4,d2
+	Lsl.l	#8,d0
+	Lsl.l	#4,d1
+	Add.l	d1,d0
+	Add.l	d2,d0
+	Move.l	d0,d3
+	Moveq	#0,d2
+	Rts
+ric	Moveq	#6,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_ADD2SCREEN	Equ	67
+L67	DLea	_CurrentLine,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	a2s
+	Move.l	#$f203fffe,(a0)+
+	Move.l	#$00960100,(a0)+	; DMACON Pour l'amos.
+; Installation de la palette de couleur du second ecran.
+	DLea	_2pal,a1
+	Move.l	a0,(a1)
+;	Move.l	#$01060000,d1
+;cc1	Move.l	d1,(a0)+
+	Move.l	#$01800000,d0
+ccc	Move.l	d0,(a0)+
+	Add.l	#$00020000,d0
+	Cmp.l	#$01C00000,d0
+	Bne	ccc
+;	Add.l	#$00002000,d1
+;	Cmp.l	#$01070000,d1
+;	Bne	cc1
+; Installation des bits plans.
+	DLea	_2bpl,a1
+	Move.l	a0,(a1)
+	Move.l	#$00e00000,d0
+ccd	Move.l	d0,(a0)+
+	Add.l	#$00020000,d0
+	Cmp.l	#$01000000,d0
+	Bne	ccd
+; installation de la suite.
+	Move.l	#$008e0181,(a0)+
+	Move.l	#$009037c1,(a0)+
+	Move.l	#$00920038,(a0)+	; Old=$30
+	Move.l	#$009400d0,(a0)+
+	Move.l	#$01020000,(a0)+
+	Move.l	#$01040000,(a0)+
+	Move.l	#$01060000,(a0)+
+	Move.l	#$01080000,(a0)+	; Bpl1Mod
+	Move.l	#$010A0000,(a0)+	; Bpl2Mod
+	DLea	_2bplcon,a1
+	move.l	a0,(a1)
+	Move.l	#$01000000,(a0)+	; BplCon0
+	Move.l	#$f303fffe,(a0)+
+	Move.l	#$00968300,(a0)+
+	Move.l	#$ffd9fffe,(a0)+
+	Move.l	#$0103fffe,(a0)+
+	DLea	_CurrentLine,a1
+	Move.l	a0,(a1)
+	Move.l	#$1403fffe,(a0)+
+	Move.l	#$01000000,(a0)+
+	Move.l	#$00960100,(a0)+
+	Move.l	#$fffffffe,(a0)
+	DLea	_2act,a2
+	Move.l	#1,(a2)
+	DLea	_Line,a1
+	Move.l	#$14,(a1)
+	DLea	_CurrentLine,a1
+	Sub.l	#12,a0
+	Move.l	a0,(a1)		; Sauvegarde adresse copper pour line.
+	DLea	_2nd,a1
+	Move.l	#1,(a1)		; 2nd ecran actif.
+	Rts
+a2s	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SET2PLANES	Equ	68
+L68	Move.l	(a3)+,d1
+	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Bmi	_s2p
+	Cmp.l	#4,d0
+	Bgt	_s2p
+	Lsl.l	#3,d0
+	DLea	_2bpl,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Beq	s2p
+	Add.l	#2,a0
+	Add.l	d0,a0
+	Move.l	d1,d0
+	lsr.l	#8,d0
+	Lsr.l	#8,d0
+	Move.w	d0,(a0)
+	Add.l	#4,a0
+	Move.w	d1,(a0)
+_s2p	Rts
+s2p	Moveq	#7,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SET2VIEW	Equ	69
+L69	Move.l	(a3)+,d0
+	DLea	_PlanesMask,a0
+	Lsl.l	#2,d0
+	Add.l	d0,a0
+	Move.l	(a0),d0
+	DLea	_2bplcon,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Beq	s2v
+	Add.l	#2,a0
+	Move.w	d0,(a0)
+	Rts
+s2v	Moveq	#7,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SET2PAL	Equ	70
+L70	Move.l	(a3)+,d3
+	Move.l	(a3)+,d2
+	Move.l	(a3)+,d1
+	Move.l	(a3)+,d0
+	Add.l	#1,d0
+	DLea	_2pal,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Beq	_s2pp
+	Lsl.l	#8,d1
+	Lsl.l	#4,d2
+	Add.l	d1,d3
+	Add.l	d2,d3
+_s2o	Move.w	(a0),d4
+	Cmp.w	#$0106,d4
+	Bne	_s2r
+	Add.l	#4,a0
+_s2r	Sub.l	#1,d0
+	Cmp.l	#$0,d0
+	Beq	_s2q
+	Add.l	#4,a0
+	Bra	_s2o
+_s2q	Add.l	#2,a0
+	Move.w	d3,(a0)
+	Rts
+_s2pp	Moveq	#7,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CMAP		Equ	71
+L71	Move.l	(a3)+,a0
+; Find CMAP Header
+	Move.l	#16384,d0
+_cmx	Move.l	(a0),d1
+	Cmp.l	#"CMAP",d1
+	Beq	_cmx2
+	Sub.l	#1,d0
+	Add.l	#2,a0
+	Cmp.l	#0,d0
+	Bne	_cmx
+	Bra	_itsx
+_cmx2	Add.l	#4,a0		; CMAP !!!
+	Move.l	a0,d3
+	Moveq	#0,d2
+	Rts
+_itsx	Move.l	#6,d0		; NO CMAP.
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_BPALETTE		Equ	72
+L72	Move.l	(a3)+,a0
+	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	DLea	_ColorBase,a2
+	Move.l	(a2),a1
+;	Add.l	#4,a1
+_bp1	Move.w	(a1)+,d1
+	Cmp.w	#$106,d1
+	Bne	_bp2
+	Add.l	#4,a1
+_bp2	Move.w	(a0)+,(a1)+
+	Sub.l	#1,d0
+	Bpl	_bp1
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_IPALETTE		Equ	73
+L73	Move.l	(a3)+,a0
+	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	DLea	_ColorBase,a2
+	Move.l	(a2),a1
+;	Add.l	#4,a1
+_bi1	Move.w	(a1)+,d1
+	Cmp.w	#$106,d1
+	Bne	_bi2
+	Add.l	#4,a1
+_bi2	Clr.l	d2
+	Clr.l	d3
+	Clr.l	d4
+	Move.b	(a0)+,d2
+	Move.b	(a0)+,d3
+	Move.b	(a0)+,d4
+	Lsr.l	#4,d2
+	Lsr.l	#4,d3
+	Lsr.l	#4,d4
+	Lsl.l	#8,d2
+	Lsl.l	#4,d3
+	Add.l	d4,d3
+	Add.l	d3,d2
+	Move.w	d2,(a1)+
+	Sub.l	#1,d0
+	Bpl	_bi1
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_VBLWAIT		Equ	74
+L74	Move.l	(a3)+,d1
+	Cmp.l	#381,d1
+	Blt	_dd1
+	Move.l	#383,d1
+_dd1	Lsl.l	#8,d1
+_ddd	Move.l	VPOSR,d0
+	And.l	#$1ff00,d0
+	Cmp.l	d1,d0
+	Bne	_ddd
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_JPALETTE		Equ	75
+L75	Move.l	(a3)+,a0
+	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	DLea	_ColorBase,a2
+	Move.l	(a2),a1
+;	Add.l	#4,a1
+_bj1	Move.w	(a1)+,d1
+	Cmp.w	#$106,d1
+	Bne	_bj2
+	Add.l	#4,a1
+_bj2	Clr.l	d2
+	Clr.l	d3
+	Clr.l	d4
+	Move.b	(a0)+,d2
+	Move.b	(a0)+,d3
+	Move.b	(a0)+,d4
+	Lsl.l	#8,d2
+	Lsl.l	#4,d3
+	Add.l	d4,d3
+	Add.l	d3,d2
+	Move.w	d2,(a1)+
+	Sub.l	#1,d0
+	Bpl	_bj1
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_FPALETTE		Equ	76
+L76
+	Move.l	(a3)+,a1	; A1=Adr1
+	Move.l	(a3)+,a0	; A0=Adr0
+	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+_fp1	Move.l	a0,a2
+	Clr.l	d1
+	Clr.l	d2
+	Clr.l	d3
+	Move.b	(a2)+,d1	; D1=R
+	Move.b	(a2)+,d2	; D2=V
+	Move.b	(a2)+,d3	; D3=B
+	Clr.l	d4
+	Clr.l	d5
+	Clr.l	d6
+	Move.b	(a1)+,d4	; D4=R2
+	Move.b	(a1)+,d5	; D5=V2
+	Move.b	(a1)+,d6	; D6=B2
+	Cmp.b	d4,d1
+	Blt	_incd1
+	Cmp.b	d4,d1
+	Beq	_nopd1
+_decd1	Sub.b	#1,d1
+	Bra	_nopd1
+_incd1	Add.b	#1,d1
+_nopd1
+	Cmp.b	d5,d2
+	Blt	_incd2
+	Cmp.b	d5,d2
+	Beq	_nopd2
+_decd2	Sub.b	#1,d2
+	Bra	_nopd2
+_incd2	Add.b	#1,d2
+_nopd2
+	Cmp.b	d6,d3
+	Blt	_incd3
+	Cmp.b	d6,d3
+	Beq	_nopd3
+_decd3	Sub.b	#1,d3
+	Bra	_nopd3
+_incd3	Add.b	#1,d3
+_nopd3
+	Move.b	d1,(a0)+
+	Move.b	d2,(a0)+
+	Move.b	d3,(a0)+
+	Sub.l	#1,d0
+	Bpl	_fp1
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CPALETTE		Equ	77
+L77	Move.l	(a3)+,a0	; A0=Adresse de calcul
+	Move.l	(a3)+,a2	; A2=Adresse source
+	Move.l	(a3)+,d7	; D7=rajout en bleu.
+	Move.l	(a3)+,d6	; D6=Rajout en vert.
+	Move.l	(a3)+,d5	; D5=Rajout en Rouge.
+	Move.l	(a3)+,d0	; D0=NUM.
+	Sub.l	#1,d0
+_cp1	Clr.l	d2
+	Clr.l	d3
+	Clr.l	d4
+	Move.b	(a2)+,d2
+	Move.b	(a2)+,d3
+	Move.b	(a2)+,d4
+	Add.l	d5,d2
+	Bpl	_rnop
+	Move.l	#0,d2
+_rnop	Cmp.l	#16,d2
+	Blt	_rnoq
+	Move.l	#15,d2
+_rnoq
+	Add.l	d6,d3
+	Bpl	_vnop
+	Move.l	#0,d3
+_vnop	Cmp.l	#16,d3
+	Blt	_vnoq
+	Move.l	#15,d3
+_vnoq
+	Add.l	d7,d4
+	Bpl	_bnop
+	Move.l	#0,d4
+_bnop	Cmp.l	#16,d4
+	Blt	_bnoq
+	Move.l	#15,d4
+_bnoq
+	Move.b	d2,(a0)+
+	Move.b	d3,(a0)+
+	Move.b	d4,(a0)+
+	Sub.l	#1,d0
+	Bpl	_cp1
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_2VIEW			Equ	78
+L78	Move.l	(a3)+,d0
+	DLea	_CurrentLine,a1
+	Move.l	(a1),a0
+	Move.b	(a0),d1
+	Cmp.b	#$14,d1
+	Bne	_l2e
+	Sub.l	#$d,d0
+	Bmi	_l2e
+	Move.b	d0,(a0)
+_l2e	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_IFF8TO4		Equ	79
+L79	Move.l	(a3)+,a1	; A1=Cible
+	Move.l	(a3)+,a0	; A0=Source
+	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+_i8t4	Clr.l	d1
+	Clr.l	d2
+	Clr.l	d3
+	Move.b	(a0)+,d1
+	Move.b	(a0)+,d2
+	Move.b	(a0)+,d3
+	Lsr.l	#4,d1
+	Lsr.l	#4,d2
+	Lsr.l	#4,d3
+	Move.b	d1,(a1)+
+	Move.b	d2,(a1)+
+	Move.b	d3,(a1)+
+	Sub.l	#1,d0
+	Bpl	_i8t4
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SETCOLORCOMP		Equ	80
+L80	Move.l	(a3)+,d3	; D3=Blue.
+	Move.l	(a3)+,d2	; D2=Green.
+	Move.l	(a3)+,d1	; D1=Red.
+	Move.l	(a3)+,d0	; D0=Register
+	Move.l	d1,d4
+	Move.l	d2,d5
+	Move.l	d3,d6
+	Lsr.l	#4,d1
+	Lsr.l	#4,d2
+	Lsr.l	#4,d3
+	Move.l	d1,d7
+	Lsl.l	#4,d7
+	Or.l	d2,d7
+	Lsl.l	#4,d7
+	Or.l	d3,d7		; D7=Couleur Finale.
+	Lsl.l	#4,d1
+	Lsl.l	#4,d2
+	Lsl.l	#4,d3
+	Sub.l	d1,d4
+	Sub.l	d2,d5
+	Sub.l	d3,d6
+	Lsl.l	#4,d4
+	Or.l	d5,d4
+	Lsl.l	#4,d4
+	Or.l	d6,d4		; D4=Couleur Complement Final.
+	DLea	_ColorBase,a1
+	Move.l	(a1),a0
+_80b	Move.w	(a0)+,d1
+	Cmp.w	#$0106,d1
+	Bne	_80a
+	Add.l	#4,a0
+_80a	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Beq	_80c
+	Add.l	#2,a0
+	Bra	_80b
+_80c	Move.w	d7,(a0)
+	DLea	_ColorBase,a1
+	Move.l	(a1),a2
+	Sub.l	a2,a0		; A1=Decalage de palette.
+	DLea	_ColorBase2,a2
+	Move.l	(a2),a1
+	Add.l	a0,a1
+	Move.w	d4,(a1)		; Sauvegarde COLOR COMPLEMENT.
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MFILL			Equ	81
+L81	Move.l	(a3)+,a1
+	Move.l	(a3)+,a0
+	Move.l	(a3)+,d0
+	Move.l	a1,a2
+	Sub.l	a0,a2
+	Bmi	_endx
+_mf	Move.b	d0,(a0)+
+	Cmp.l	a0,a1
+	Bne	_mf
+_endx	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_BLITCOPY		Equ	82
+L82	Move.l	(a3)+,a2	; A2=cible.
+	Move.l	(a3)+,a1	; A1=Source.
+	Cmp.l	#0,a1
+	Beq	bc
+	Cmp.l	#0,a2
+	Beq	bc
+	Move.l	a1,a0
+	Add.l	#76,a0
+	Clr.l	d6
+	Clr.l	d7
+	Move.w	(a0)+,d6	; D6=X Screen Size.
+	Move.w	(a0)+,d7	; D7=Y Screen Size.
+	Lsr.l	#4,d6
+	Lsl.l	#6,d7	; D7*64
+	Add.l	d6,d7	; D7+XSize.
+	Move.l	#5,d6		; D6=6 bits plans maximum.
+; Blitter Occupe ???
+_qq2	Move.w	$Dff002,d5
+	Btst	#14,d5
+	Bne	_qq2
+; Mise de BLITTER en mode FILL CARRY IN.
+_qqq	Move.w	#$0,BLTCON1		; Origin=#$4
+; Mise en place de la source a lire.
+	Move.l	(a1)+,BLTAPTH		; A1=ADRESSE SOURCE !!!
+; Modulo de la source=0.
+	Move.w	#$0,BLTAMOD
+; Adresse cible
+	Move.l	(a2)+,BLTDPTH		; A2=ADRESSE CIBLE !!!
+; Selection du modulo de la cible
+	Move.w	#$0,BLTDMOD
+; Mise a 0 des masques de debut et fin du blitter.
+	Move.w	#$ffff,BLTAFWM
+	Move.w	#$ffff,BLTALWM
+; Selection du type d'operation logique pour obtenir le resultat graphique.
+; Et positionnement par rapport au decalage D6 de la source B.
+	Move.w	#%0000100111110000,BLTCON0	; Calcul mathematique.
+	Move.w	#%0000100111110000,BLTCON0+$1A	; Equ BltCon0L
+; Mise en place de la zone a copier.
+	Move.w	D7,BLTSIZE
+; Blitter occupe ?
+_qpq	Move.w	$Dff002,d5
+	Btst	#14,d5
+	Bne	_qpq
+	Cmp.l	#$0,(a1)
+	Beq	_endd
+	Cmp.l	#$0,(a2)
+	Beq	_endd
+	Sub.l	#1,d6
+	Bpl	_qqq
+_endd	Rts
+bc	Moveq	#4,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CONFORM32		Equ	83
+L83	DLea	_c1,a0
+	Move.l	(a3),(a0)
+	Move.l	(a3)+,a0
+	Move.l	a0,d7		; D7=Bit Plane Adress
+	Add.l	#76,a0
+	Clr.l	d0
+	Clr.l	d1
+	Move.w	(a0)+,d0	; D0=X Screen Size.
+	Move.w	(a0)+,d1	; D1=Y Screen Size.
+	Lsr.l	#5,d0		; D0=.l X Screen length.
+	Lsr.l	#5,d1		; D1=Block 32 Y Size Length.
+	Move.l	#7,d5	; D5=6 Bits plans maximum.
+; Copier sur une ligne de 1 bit plan.
+_z3	Move.l	d7,a0
+	Sub.l	#1,d5
+	Cmp.l	#0,d5
+	Beq	_fini	; Ecran Termine.
+	Move.l	(a0),a2		; A2=Adresse cible.
+	Cmp.l	#0,a2
+	Beq	_fini	; Ecran Termine.
+	Add.l	#4,d7		; D7=Adresse prochain bit plan a cibler.
+;
+; Faire la routine sur 1 bit plan.
+	Move.l	d1,d4		; D4=Nbre de blocks a copier en Y.
+_z2	Move.l	(a0),a1	; A1=Adresse source.
+	Move.l	#32,d3		; D3=32 lignes a modifier.
+_z0	Move.l	d0,d2	; D0 Blocks a copier en X.
+_z1	Move.l	(a1),(a2)+	; Copie source / destination .
+	Sub.l	#1,d2
+	Cmp.l	#0,d2
+	Bne	_z1
+	Move.l	d0,d6
+	Lsl.l	#2,d6
+	Add.l	d6,a1
+	Sub.l	#1,d3
+	Cmp.l	#0,d3
+	Bne	_z0
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_z2
+	Bra	_z3
+_fini	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CONFORM32B		Equ	84
+L84	DLea	_c1,a0
+	Move.l	(a3),(a0)
+	Move.l	(a3)+,a0
+	Move.l	a0,d7		; D7=Bit Plane Adress
+	Add.l	#76,a0
+	Clr.l	d0
+	Clr.l	d1
+	Move.w	(a0)+,d0	; D0=X Screen Size.
+	Move.w	(a0)+,d1	; D1=Y Screen Size.
+	Lsr.l	#5,d0		; D0=.l X Screen length.
+	Lsr.l	#5,d1		; D1=Block 32 Y Size Length.
+	Move.l	#7,d5	; D5=6 Bits plans maximum.
+; Copier sur une ligne de 1 bit plan.
+_z3b	Move.l	d7,a0
+	Sub.l	#1,d5
+	Cmp.l	#0,d5
+	Beq	_finib	; Ecran Termine.
+	Move.l	(a0),a2		; A2=Adresse cible.
+	Cmp.l	#0,a2
+	Beq	_finib	; Ecran Termine.
+	Add.l	#4,d7		; D7=Adresse prochain bit plan a cibler.
+	Move.l	(a0),a1
+;
+; Faire la routine sur 1 bit plan.
+	Move.l	d1,d4		; D4=Nbre de blocks a copier en Y.
+_z2b	Move.l	#32,d3		; D3=32 lignes a modifier.
+_z0b	Move.l	d0,d2	; D0 Blocks a copier en X.
+_z1b	Move.l	(a1),(a2)+	; Copie source / destination .
+	Sub.l	#1,d2
+	Cmp.l	#0,d2
+	Bne	_z1b
+	Move.l	d0,d6
+	Lsl.l	#2,d6
+	Add.l	d6,a1
+	Sub.l	#1,d3
+	Cmp.l	#0,d3
+	Bne	_z0b
+	Sub.l	#1,d4
+	Cmp.l	#0,d4
+	Bne	_z2b
+	Bra	_z3b
+_finib	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SETDPLANE		Equ	85
+L85	Move.l	(a3)+,d1	; D1=Adress
+	Move.l	(a3)+,d0	; D0=BitPlane.
+	Cmp.l	#1,d0
+	Blt	_sdp
+	Cmp.l	#8,d0
+	Bgt	_sdp
+	Sub.l	#1,d0
+	Lsl.l	#2,d0
+	DLea	_BitsPlanesD,a0
+	Add.l	d0,a0
+	Move.l	d1,(a0)
+_sdp	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SWAPPLANES		Equ	86
+L86	DLea	_BitsPlanes,a0
+	DLea	_BitsPlanesD,a1
+	Move.l	#8,d0
+	Cmp.l	#$0,(a0)
+	Beq	sppx
+_spp	Move.l	(a0),d1
+	Move.l	(a1),(a0)+
+	Move.l	d1,(a1)+
+	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Bne	_spp
+	DLea	_Aga,a0
+	Cmp.l	#$0,(a0)
+	Beq	_naga
+	Move.l	#15,d0
+	Bra	_na
+_naga	Move.l	#11,d0
+_na	DLea	_BitsPlanes,a0
+	DLea	_BplPtBase,a2
+	Move.l	(a2),a1
+	Add.l	#2,a1
+_nbb	Move.w	(a0)+,(a1)
+	Add.l	#4,a1
+	Sub.l	#1,d0
+	Bpl	_nbb
+	Rts
+sppx	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_RESICON		Equ	87
+L87	Movem.l	a3-a6,-(sp)
+	Move.l	(a3),d7		; D7=nombre d'icones.
+	DLea	_Icons,a0
+	Cmp.l	#$0,(a0)
+	Bne	_rie		; Si banque deja reservee.
+	Move.l	d7,(a0)		; Save icon max.
+	Mulu	#260,d7
+	Add.l	#8,d7
+	Move.l	d7,d0		; D0=Byte Size.
+	Move.l	#Chip+Clear,d1	; D1=Memory Type
+	Move.l	$4,a6
+	Jsr	AllocMem(a6)
+	DLea	_IcBase,a0
+	Move.l	d0,(a0)
+	Cmp.l	#0,d0
+	Beq	NOFREE
+; Preparation de la banque d'icones.
+	Move.l	d0,a0
+	DLea	_Icons,a1
+	Move.l	#"F.C1",(a0)+	; Offset #0 Equ "F.C1"
+	Move.l	(a1),(a0)	; Offset #4 Equ IconMax.
+	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Rts
+NOFREE	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#8,d0
+	Rbra	L_CUSTOM
+_rie	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#15,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_ERAICON		Equ	88
+L88	Movem.l	a3-a6,-(sp)
+	DLea	_Icons,a2
+	Move.l	(a2),d0
+	Cmp.l	#$0,d0
+	Beq	_eie
+	Move.l	#$0,(a2)	; Clear _ICONS Register.
+	Mulu	#260,d0
+	Add.l	#8,d0
+	DLea	_IcBase,a2
+	Move.l	(a2),a1
+	Cmp.l	#0,a1
+	Beq	ei
+	Move.l	#$0,(a2)	; Clear _ICBASE Register.
+	Move.l	$4,a6
+	Jsr	FreeMem(a6)
+_eie	Movem.l	(sp)+,a3-a6
+	Rts
+ei	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#9,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_GETICON		Equ	89
+L89	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,d7	; D7=Ypos.
+	Move.l	(a3)+,d6	; D6=Xpos.
+	Move.l	(a3)+,d5	; Icon.
+; Verifications...
+	Cmp.l	#1,d5
+	Blt	_gie		; Icon<1.
+	DLea	_Icons,a2
+	Cmp.l	(a2),d5
+	Bgt	_gie		; Icon>IconMax.
+	Sub.l	#1,d5
+;
+	DLea	_IcBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	gi
+	Add.l	#8,a0
+	Mulu	#260,d5
+	Add.l	d5,a0		; A0=Adresse cible pout TAKE ICON.	
+;
+	DLea	_XY,a2
+	Move.l	(a2),d4		; D4=X Scren Size.
+	Lsr.l	#3,d4		; D4=RAJOUT PAR LIGNES.
+	Mulu	d4,d7
+	Lsr.l	#3,d6
+	Add.l	d6,d7		; D7=RAJOUT AUX BITS PLANS.
+;
+	DLea	_BitsPlanes,a2
+	Move.l	#8,d6		; D6=8 bits plans.
+_gi0	Move.l	(a2)+,a1	; A1=Adresse cible
+	Cmp.l	#$0,a1
+	Beq	_gie		; Plus de bits plans a saisir ???
+	Add.l	d7,a1
+	Move.l	#16,d5		; D5=16 lignes par bobs.
+;
+_gi1	Move.w	(a1),(a0)+	; A0 -> Next Data.
+	Add.l	d4,a1		; A1 -> Next Line.
+	Sub.l	#1,d5
+	Cmp.l	#0,d5
+	Bne	_gi1
+	Sub.l	#1,d6
+	Cmp.l	#0,d6
+	Bne	_gi0
+;
+_gie	Movem.l	(sp)+,a3-a6
+	Add.l	#12,a3
+	Rts
+gi	Movem.l	(sp)+,a3-a6
+	Add.l	#12,a3
+	Moveq	#9,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_PASICON		Equ	90
+L90	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,d7	; D7=Ypos.
+	Move.l	(a3)+,d6	; D6=Xpos.
+	Move.l	(a3)+,d5	; Icon.
+; Verifications...
+	Cmp.l	#1,d5
+	Blt	_pie		; Icon<1.
+	DLea	_Icons,a2
+	Cmp.l	(a2),d5
+	Bgt	_pie		; Icon>IconMax.
+	Sub.l	#1,d5
+;
+	DLea	_IcBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	pii
+	Add.l	#8,a0
+	Mulu	#260,d5
+	Add.l	d5,a0		; A0=Adresse icone a PASTER.
+;
+	DLea	_XY,a2
+	Move.l	(a2),d4		; D4=X Screen Size.
+;
+	DLea	_XY,a2
+	Move.l	(a2),d4		; D4=X Scren Size.
+	Lsr.l	#3,d4
+	Mulu	d4,d7
+	Lsr.l	#3,d6
+	Add.l	d6,d7		; D7=RAJOUT AUX BITS PLANS.
+;
+	DLea	_BitsPlanes,a2
+	Move.l	#8,d6		; D6=8 bits plans.
+_pi0	Move.l	(a2)+,a1	; A1=Adresse cible
+	Cmp.l	#$0,a1
+	Beq	_pie		; Plus de bits plans a saisir ???
+	Add.l	d7,a1
+	Move.l	#16,d5		; D5=16 lignes par bobs.
+;
+_pi1	Move.w	(a0)+,(a1)	; A0 -> Next Data.
+	Add.l	d4,a1		; A1 -> Next Line.
+	Sub.l	#1,d5
+	Cmp.l	#0,d5
+	Bne	_pi1
+	Sub.l	#1,d6
+	Cmp.l	#0,d6
+	Bne	_pi0
+;
+_pie	Movem.l	(sp)+,a3-a6
+	Add.l	#12,a3
+	Rts
+pii	Movem.l	(sp)+,a3-a6
+	Add.l	#12,a3
+	Moveq	#9,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_ICONBASE		Equ	91
+L91	DLea	_IcBase,a0
+	Move.l	(a0),d3
+	Moveq	#0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_SAVEICON		Equ	92
+L92	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,a0	; A0=Name Base
+	DLea	_IcBase,a2
+	Cmp.l	#$0,(a2)
+	Beq	NOTRESERVED
+	Clr.l	d0
+	Move.w	(a0)+,d0	; D0=Name Length.
+	Cmp.l	#1,d0
+	Blt	_sie
+	Cmp.l	#95,d0
+	Bgt	_sie
+	DLea	_IcN,a1
+; Mise en place du nom du fichier termine par '0' dans la zone reservee.
+_si1	Move.b	(a0)+,(a1)+
+	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Bne	_si1
+	Move.b	#$0,(a1)
+;
+	Move.l	$4,a6
+	DLea	_DName,a1
+	Move.l	#0,d0
+	Jsr	OpenLib(a6)
+	DLea	_DBase,a1
+	Move.l	d0,(a1)
+	Move.l	d0,a1
+	Jsr	CloseLib(a6)
+; Creation du fichier.
+	DLea	_DBase,a0
+	Move.l	(a0),a6		; A6=Dos Base.
+	DLea	_IcN,a1		; D1=File Name.
+	Move.l	a1,d1
+	Move.l	#1006,d2	; D2=Write File.
+	Jsr	DosOpen(a6)
+	DLea	_IHnd,a0
+	Move.l	d0,(a0)		; D0=Icon File Handle.
+	Move.l	d0,d1		; D1=Handle.
+	DLea	_Icons,a0
+	Move.l	(a0),d3
+	Mulu	#260,d3
+	Add.l	#8,d3		; D3=File Length to be written.
+	DLea	_IcBase,a0
+	Move.l	(a0),d2		; D2=Icon Bank Base.
+	Jsr	DosWrite(a6)
+	DLea	_IHnd,a0
+	Move.l	(a0),d1
+	Jsr	DosClose(a6)
+_sie	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Rts
+NOTRESERVED
+	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#9,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LOADICON		Equ	93
+L93	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,a0	; A0=Name Base
+	Clr.l	d0
+	Move.w	(a0)+,d0	; D0=Name Length.
+; Verifications.
+	Cmp.l	#1,d0
+	Blt	_sie
+	Cmp.l	#95,d0
+	Bgt	_sie
+	DLea	_IcN,a1
+; Mise en place du nom du fichier termine par '0' dans la zone reservee.
+_sii1	Move.b	(a0)+,(a1)+
+	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Bne	_sii1
+	Move.b	#$0,(a1)
+; Ouverture de la Dos.Library .
+	Move.l	$4,a6
+	DLea	_DName,a1
+	Move.l	#0,d0
+	Jsr	OpenLib(a6)
+	DLea	_DBase,a1
+	Move.l	d0,(a1)
+	Move.l	d0,a1
+	Jsr	CloseLib(a6)
+; Lecture des 8 premier octets du fichier.
+	DLea	_DBase,a0
+	Move.l	(a0),a6		; A6=Dos Base.
+	DLea	_IcN,a1		; D1=File Name.
+	Move.l	a1,d1
+	Move.l	#1005,d2	; D2=Read File.
+	Jsr	DosOpen(a6)
+	DLea	_IHnd,a0
+	Move.l	d0,(a0)		; Sauvegarde du File Handle.
+	Move.l	#8,d3		; D3=Length = 8 octets .
+	Move.l	d0,d1		; D1=File Handle.
+	DLea	_IcLoad,a0
+	Move.l	a0,d2		; d2=Adress
+	Jsr	DosRead(a6)
+	DLea	_IcLoad,a0
+	Cmp.l	#"F.C1",(a0)
+	Bne	_NotIconFile	; Mauvais format.
+; Fichier au format Icones.
+	Add.l	#4,a0
+	Move.l	(a0),d0
+	DLea	_Icons,a0
+	Move.l	d0,(a0)		; Sauvegarde du nombre d'icones du fichier.
+	Mulu	#260,d0
+	Add.l	#8,d0		; D0=Byte size needed.
+	Move.l	#Chip+Clear,d1	; D1=Requirements.
+	Move.l	$4,a6
+	Jsr	AllocMem(a6)
+	Cmp.l	#0,d0		; Not enough memory available ???
+	Beq	_NotIconFile	; Pas assez de memoire pour le fichier.
+	DLea	_IcBase,a0
+	Move.l	d0,(a0)		; Save ICON BASE Adress.
+	Move.l	d0,d7
+	DLea	_DBase,a0
+	Move.l	(a0),a6		; A6=DosBase.
+	DLea	_IHnd,a0
+	Move.l	(a0),d1		; D1=File Handle.
+	DLea	_Icons,a0
+	Move.l	(a0),d3
+	Mulu	#260,d3		; D3=Longueur de chargement du reste.
+	Move.l	d7,a1		; A1=Icon Adress.
+	Move.l	#"F.C1",(a1)+	; Remise en place du header.
+	Move.l	(a0),(a1)+	; Remise en place du nombre d'icones.
+	Move.l	a1,d2		; D2=Adresse de chargement.
+	Jsr	DosRead(a6)
+	DLea	_IHnd,a0
+	Move.l	(a0),d1
+	Jsr	DosClose(a6)
+	Bra	_lie		
+;
+_NotIconFile
+; Fermeture du fichier.
+	DLea	_IHnd,a0
+	Move.l	(a0),d1
+	DLea	_DBase,a0
+	Move.l	(a0),a6
+	Jsr	DosClose(a6)
+;
+	DLea	_Icons,a0
+	Move.l	#$0,(a0)
+	DLea	_IcBase,a0
+	Move.l	#$0,(a0)
+	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#10,d0
+	Rbra	L_CUSTOM
+;
+_lie	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPRESERVE		Equ	94
+L94	Movem.l	a3-a6,-(sp)
+	DLea	_Mplots,a0
+	Move.l	(a0),d7
+	Cmp.l	#$0,d7
+	Bne	_rmp		; Si banque deja reservee.
+	Move.l	(a3),d7		; D7=nombre de points
+	Move.l	d7,(a0)		; Save Points Max.
+	Mulu	#6,d7
+	Add.l	#8,d7
+	Move.l	d7,d0		; D0=Byte Size.
+	Move.l	#Chip+Clear,d1	; D1=Memory Type
+	Move.l	$4,a6
+	Jsr	AllocMem(a6)
+	DLea	_MpBase,a0
+	Move.l	d0,(a0)
+	Cmp.l	#0,d0
+	Beq	NOFREE2
+; Preparation de la banque d'icones.
+	Move.l	d0,a0
+	DLea	_Mplots,a1
+	Move.l	#"F.C2",(a0)+	; Offset #0 Equ "F.C2"
+	Move.l	(a1),(a0)	; Offset #4 Equ MPlots Max.
+	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Rts
+NOFREE2	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#8,d0
+	Rbra	L_CUSTOM
+_rmp	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#12,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPERASE		Equ	95
+L95	Movem.l	a3-a6,-(sp)
+	DLea	_Mplots,a2
+	Move.l	(a2),d0
+	Cmp.l	#$0,d0
+	Beq	_emp
+	Move.l	#$0,(a2)	; Clear _ICONS Register.
+	Mulu	#6,d0
+	Add.l	#8,d0
+	DLea	_MpBase,a2
+	Move.l	(a2),a1
+	Cmp.l	#0,a1
+	Beq	MPE
+	Move.l	#$0,(a2)	; Clear _ICBASE Register.
+	Move.l	$4,a6
+	Jsr	FreeMem(a6)
+_emp	Movem.l	(sp)+,a3-a6
+	Rts
+MPE	Movem.l	(sp)+,a3-a6
+	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPLOAD		Equ	96
+L96	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,a0	; A0=Name Base
+	Clr.l	d0
+	Move.w	(a0)+,d0	; D0=Name Length.
+; Verifications.
+	Cmp.l	#1,d0
+	Blt	_mie
+	Cmp.l	#95,d0
+	Bgt	_mie
+	DLea	_IcN,a1
+; Mise en place du nom du fichier termine par '0' dans la zone reservee.
+_mii1	Move.b	(a0)+,(a1)+
+	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Bne	_mii1
+	Move.b	#$0,(a1)
+; Ouverture de la Dos.Library .
+	Move.l	$4,a6
+	DLea	_DName,a1
+	Move.l	#0,d0
+	Jsr	OpenLib(a6)
+	DLea	_DBase,a1
+	Move.l	d0,(a1)
+	Move.l	d0,a1
+	Jsr	CloseLib(a6)
+; Lecture des 8 premier octets du fichier.
+	DLea	_DBase,a0
+	Move.l	(a0),a6		; A6=Dos Base.
+	DLea	_IcN,a1		; D1=File Name.
+	Move.l	a1,d1
+	Move.l	#1005,d2	; D2=Read File.
+	Jsr	DosOpen(a6)
+	DLea	_IHnd,a0
+	Move.l	d0,(a0)		; Sauvegarde du File Handle.
+	Move.l	#8,d3		; D3=Length = 8 octets .
+	Move.l	d0,d1		; D1=File Handle.
+	DLea	_IcLoad,a0
+	Move.l	a0,d2		; d2=Adress
+	Jsr	DosRead(a6)
+	DLea	_IcLoad,a0
+	Cmp.l	#"F.C2",(a0)
+	Bne	_NotMplotFile	; Mauvais format.
+; Fichier au format Icones.
+	Add.l	#4,a0
+	Move.l	(a0),d0
+	DLea	_Mplots,a0
+	Move.l	d0,(a0)		; Sauvegarde du nombre d'icones du fichier.
+	Mulu	#6,d0
+	Add.l	#8,d0		; D0=Byte size needed.
+	Move.l	#Chip+Clear,d1	; D1=Requirements.
+	Move.l	$4,a6
+	Jsr	AllocMem(a6)
+	Cmp.l	#0,d0		; Not enough memory available ???
+	Beq	_NotMplotFile	; Pas assez de memoire pour le fichier.
+	DLea	_MpBase,a0
+	Move.l	d0,(a0)		; Save ICON BASE Adress.
+	Move.l	d0,d7
+	DLea	_DBase,a0
+	Move.l	(a0),a6		; A6=DosBase.
+	DLea	_IHnd,a0
+	Move.l	(a0),d1		; D1=File Handle.
+	DLea	_Mplots,a0
+	Move.l	(a0),d3
+	Mulu	#260,d3		; D3=Longueur de chargement du reste.
+	Move.l	d7,a1		; A1=Icon Adress.
+	Move.l	#"F.C2",(a1)+	; Remise en place du header.
+	Move.l	(a0),(a1)+	; Remise en place du nombre d'icones.
+	Move.l	a1,d2		; D2=Adresse de chargement.
+	Jsr	DosRead(a6)
+	DLea	_IHnd,a0
+	Move.l	(a0),d1
+	Jsr	DosClose(a6)
+	Bra	_mie		
+;
+_NotMplotFile
+; Fermeture du fichier.
+	DLea	_IHnd,a0
+	Move.l	(a0),d1
+	DLea	_DBase,a0
+	Move.l	(a0),a6
+	Jsr	DosClose(a6)
+;
+	DLea	_Mplots,a0
+	Move.l	#$0,(a0)
+	DLea	_MpBase,a0
+	Move.l	#$0,(a0)
+	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#10,d0
+	Rbra	L_CUSTOM
+;
+_mie	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPSAVE		Equ	97
+L97	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,a0	; A0=Name Base
+	DLea	_MpBase,a0
+	Move.l	(a0),d0
+	Cmp.l	#$0,d0
+	Beq	NOMP
+	Clr.l	d0
+	Move.w	(a0)+,d0	; D0=Name Length.
+	Cmp.l	#1,d0
+	Blt	_sme
+	Cmp.l	#95,d0
+	Bgt	_sme
+	DLea	_IcN,a1
+; Mise en place du nom du fichier termine par '0' dans la zone reservee.
+_sm1	Move.b	(a0)+,(a1)+
+	Sub.l	#1,d0
+	Cmp.l	#0,d0
+	Bne	_sm1
+	Move.b	#$0,(a1)
+;
+	Move.l	$4,a6
+	DLea	_DName,a1
+	Move.l	#0,d0
+	Jsr	OpenLib(a6)
+	DLea	_DBase,a1
+	Move.l	d0,(a1)
+	Move.l	d0,a1
+	Jsr	CloseLib(a6)
+; Creation du fichier.
+	DLea	_DBase,a0
+	Move.l	(a0),a6		; A6=Dos Base.
+	DLea	_IcN,a1		; D1=File Name.
+	Move.l	a1,d1
+	Move.l	#1006,d2	; D2=Write File.
+	Jsr	DosOpen(a6)
+	DLea	_IHnd,a0
+	Move.l	d0,(a0)		; D0=Icon File Handle.
+	Move.l	d0,d1		; D1=Handle.
+	DLea	_Mplots,a0
+	Move.l	(a0),d3
+	Mulu	#6,d3
+	Add.l	#8,d3		; D3=File Length to be written.
+	DLea	_MpBase,a0
+	Move.l	(a0),d2		; D2=Icon Bank Base.
+	Jsr	DosWrite(a6)
+	DLea	_IHnd,a0
+	Move.l	(a0),d1
+	Jsr	DosClose(a6)
+_sme	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Rts
+NOMP	Movem.l	(sp)+,a3-a6
+	Add.l	#4,a3
+	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPDEFINE		Equ	98
+L98	Move.l	(a3)+,d4	; D4=Couleur.
+	Move.l	(a3)+,d3	; D3=Y Pos.
+	Move.l	(a3)+,d2	; D2=X Pos.
+	Move.l	(a3)+,d1	; D1=Point.
+	DLea	_MpBase,a1
+	Move.l	(a1),a0
+	Cmp.l	#0,a0
+	Beq	_mpi1
+	Cmp.l	#1,d1
+	Blt	_mpi2
+	Add.l	#4,a0
+	Move.l	(a0)+,d0	; D0=Point Maxi.
+	Cmp.l	d0,d1
+	Bgt	_mpi2
+	Sub.l	#1,d1
+	Mulu	#6,d1
+	Add.l	d1,a0
+	Move.w	d2,(a0)+	; Save X Pos.
+	Move.w	d3,(a0)+	; Save Y Pos.
+	Move.w	d4,(a0)+	; Save Ink.
+_mpi	Rts
+_mpi1	Moveq	#11,d0
+	Rbra	L_CUSTOM
+_mpi2	Moveq	#13,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPBASE		Equ	99
+L99	DLea	_MpBase,a0
+	Move.l	(a0),d3
+	Moveq	#$0,d2
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPDRAW		Equ	100
+L100	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,d1	; D1=Last Adress.
+	Move.l	(a3)+,d0	; D2=First Adress.
+	Sub.l	#1,d1
+	Sub.l	#1,d0
+	Mulu	#6,d0
+	Mulu	#6,d1
+	DLea	_MpBase,a4
+	Move.l	(a4),a0
+	Cmp.l	#0,a0
+	Beq	mpd
+	Add.l	#8,a0
+	Move.l	a0,a1
+	Add.l	d0,a0		; A0=First Real Adress.
+	Add.l	d1,a1		; A1=Last Real Adress.
+;
+	DLea	_XY,a3
+	Move.l	(a3)+,d7	; D7=X Screen Size.
+	Move.l	(a3),d6		; D6=Y Screen Size.
+	Sub.l	#1,d6
+	Move.l	d7,d5
+	Sub.l	#1,d5
+	Lsr.l	#3,d7		; D7      en octets.
+; Lecture du point
+_Mpp0	Clr.l	d0
+	Clr.l	d1
+	Clr.l	d2
+	Move.w	(a0)+,d0	; D0=X pos.
+	Move.w	(a0)+,d1	; D1=Y pos.
+; Si coordonnees NEGATIVES.
+	Btst	#15,d0
+	Beq	_Mp0
+	Or.l	#$ffff0000,d0
+_Mp0	Btst	#15,d1
+	Beq	_Mp1
+	Or.l	#$ffff0000,d1
+; Decalage d'origine !!!
+_Mp1	DLea	_Origin,a2
+	Add.l	(a2)+,d0
+	Add.l	(a2)+,d1
+;
+	Move.w	(a0)+,d2	; D2=Couleur du point.
+; Verifications !!!
+	Cmp.l	#0,d0
+	Blt	_xxl
+	Cmp.l	d5,d0
+	Bgt	_xxl
+	Cmp.l	#0,d1
+	Blt	_xxl
+	Cmp.l	d6,d1
+	Bgt	_xxl
+; Calcul du rajout aux bits plans.
+	Mulu	d7,d1		; D1=Rajout pour se trouver a la bonne ligne.
+	Move.l	d0,d3
+	And.l	#$fffffff8,d3
+	Sub.l	d3,d0		; D0=15-Bit to set/clear.
+	Lsr.l	#3,d3
+	Add.l	d3,d1		; D1=Rajout Aux BITS PLANS.   !!!
+	Move.l	#$7,d4
+	Sub.l	d0,d4
+	Move.l	d4,d0		; D0=Bit to SET/CLEAR.        !!!
+;
+; Mise en place sur les bits plans
+	Clr.l	d4
+	DLea	_BitsPlanes,a4
+_Mpp1	Move.l	(a4)+,a2
+	Cmp.l	#$0,a2
+	Beq	_xxl
+	Add.l	d1,a2
+	Clr.l	d3
+	Move.b	(a2),d3
+	Btst	d4,d2
+	Beq	_MpClear
+_MpSet
+	Bset	d0,d3
+	Bra	_MpSuite
+_MpClear
+	Bclr	d0,d3
+_MpSuite
+	Move.b	d3,(a2)
+	Add.l	#1,d4
+	DLea	_MpP,a3
+	Move.l	(a3),d3
+	Cmp.l	d3,d4
+	Blt	_Mpp1
+_xxl	Cmp.l	a0,a1
+	Bgt	_Mpp0
+_xxl2	Movem.l	(sp)+,a3-a6
+	Add.l	#8,a3
+	Rts
+mpd	Movem.l	(sp)+,a3-a6
+	Add.l	#8,a3
+	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPX			Equ	101
+L101	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	Mulu	#6,d0
+	DLea	_MpBase,a0
+	Move.l	(a0),a1
+	Cmp.l	#0,a1
+	Beq	mpx2
+	Add.l	#8,a1
+	Add.l	d0,a1
+	Clr.l	d3
+	Move.w	(a1),d3
+	Moveq	#0,d2
+	Btst	#15,d3
+	Beq	_mpx
+	Or.l	#$ffff0000,d3
+_mpx	Rts
+mpx2	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPY			Equ	102
+L102	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	Mulu	#6,d0
+	DLea	_MpBase,a0
+	Move.l	(a0),a1
+	Cmp.l	#0,a1
+	Beq	mpy2
+	Add.l	#10,a1
+	Add.l	d0,a1
+	Clr.l	d3
+	Move.w	(a1),d3
+	Moveq	#0,d2
+	Btst	#15,d3
+	Beq	_mpy
+	Or.l	#$ffff0000,d3
+_mpy	Rts
+mpy2	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPC			Equ	103
+L103	Move.l	(a3)+,d0
+	Sub.l	#1,d0
+	Mulu	#6,d0
+	DLea	_MpBase,a0
+	Move.l	(a0),a1
+	Cmp.l	#0,a1
+	Beq	mpc2
+	Add.l	#12,a1
+	Add.l	d0,a1
+	Clr.l	d3
+	Move.w	(a1),d3
+	Moveq	#0,d2
+	Rts
+mpc2	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPMODIFY		Equ	104
+L104	Move.l	(a3)+,d7	; D7=Y add value.
+	Move.l	(a3)+,d6	; D6=X add value.
+	Move.l	(a3)+,d5	; D5=Last point.
+	Move.l	(a3)+,d4	; D4=First point.
+	Sub.l	#1,d4
+	Sub.l	#1,d5
+	Mulu	#6,d4
+	Mulu	#6,d5
+	DLea	_XY,a2
+	Move.l	(a2)+,d2	; D2=X screen size.
+	Move.l	(a2),d3		; D3=Y screen size.
+	DLea	_MpBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_mpmx
+	Add.l	#8,a0
+	Move.l	a0,a1
+	Add.l	d4,a0		; A0=Fisrt adress.
+	Add.l	d5,a1		; A1=Last adress.
+_xx	Clr.l	d0
+	Clr.l	d1
+	Move.w	(a0)+,d0	; D0=X pos.
+	Move.w	(a0),d1		; D1=Y pos.
+	Sub.l	#2,a0
+	Add.l	d6,d0
+	Cmp.l	d2,d0
+	Blt	_mpm1
+	Move.l	#0,d0
+_mpm1	Cmp.l	#0,d0
+	Bgt	_mpm2
+	Beq	_mpm2
+	Move.l	d2,d0
+	Sub.l	#1,d0
+_mpm2	Add.l	d7,d1
+	Cmp.l	d3,d1
+	Blt	_mpm3
+	Move.l	#0,d1
+_mpm3	Cmp.l	#0,d1
+	Bgt	_mpm4
+	Beq	_mpm4
+	Move.l	d3,d1
+	Sub.l	#1,d1
+_mpm4	Move.w	d0,(a0)+
+	Move.w	d1,(a0)+
+	Add.l	#2,a0
+	Cmp.l	a1,a0
+	Blt	_xx
+	Rts
+_mpmx	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPMODIFY2		Equ	105
+L105	Move.l	(a3)+,d7	; D7=X add value.
+	Move.l	(a3)+,d6	; D6=Point to modify.
+	DLea	_MpBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_mp21
+	Sub.l	#1,d6
+	Mulu	#6,d6
+	Add.l	#8,a0
+	Add.l	d6,a0
+	Clr.l	d5
+	Move.w	(a0),d5
+	Add.l	d7,d5
+	DLea	_XY,a2
+	Move.l	(a2),d0
+	Cmp.l	d0,d5
+	Blt	_mp21a
+	Move.l	#0,d5
+_mp21a	Cmp.l	#0,d5
+	Bgt	_mp21b
+	Beq	_mp21b
+	Move.l	d0,d5
+	Sub.l	#1,d5
+_mp21b	Move.w	d5,(a0)
+	Rts
+_mp21	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPMODIFY3		Equ	106
+L106	Move.l	(a3)+,d7	; D7=y add value.
+	Move.l	(a3)+,d6	; D6=Point to modify.
+	DLea	_MpBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_mp22
+	Sub.l	#1,d6
+	Mulu	#6,d6
+	Add.l	#10,a0
+	Add.l	d6,a0
+	Clr.l	d5
+	Move.w	(a0),d5
+	Add.l	d7,d5
+	DLea	_XY,a2
+	Add.l	#4,a2
+	Move.l	(a2),d0
+	Cmp.l	d0,d5
+	Blt	_mp22a
+	Move.l	#0,d5
+_mp22a	Cmp.l	#0,d5
+	Bgt	_mp22b
+	Beq	_mp22b
+	Move.l	d0,d5
+	Sub.l	#1,d5
+_mp22b	Move.w	d5,(a0)
+	Rts
+_mp22	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPMODIFY4		Equ	107
+L107	Move.l	(a3)+,d7	; D7=X add value.
+	Move.l	(a3)+,d6	; D6=Point to modify.
+	DLea	_MpBase,a2
+	Move.l	(a2),a0
+	Cmp.l	#0,a0
+	Beq	_mp23
+	Sub.l	#1,d6
+	Mulu	#6,d6
+	Add.l	#12,a0
+	Add.l	d6,a0
+	Clr.l	d5
+	Move.w	(a0),d5
+	Add.l	d7,d5
+	Move.l	#256,d0
+	Cmp.l	d0,d5
+	Blt	_mp23a
+	Move.l	#0,d5
+_mp23a	Cmp.l	#0,d5
+	Bgt	_mp23b
+	Beq	_mp23b
+	Move.l	d0,d5
+	Sub.l	#1,d5
+_mp23b	Move.w	d5,(a0)
+	Rts
+_mp23	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPORIGIN		Equ	108
+L108	DLea	_Origin,a0
+	Move.l	(a3)+,d1
+	Move.l	(a3)+,(a0)+
+	Move.l	d1,(a0)+
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPPLANES		Equ	109
+L109	Move.l	(a3)+,d0
+	DLea	_MpP,a0
+	Cmp.l	#1,d0
+	Blt	_mppe
+	Cmp.l	#8,d0
+	Bgt	_mppe
+	Move.l	d0,(a0)
+	Rts
+_mppe	Moveq	#14,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_LSRL			Equ	110
+L110	Move.l	(a3)+,d1	; A1=Cible.
+	Move.l	(a3)+,d0	; A0=Source.
+	And.l	#$fffffffe,d1	; \ Mise a zero du bit 0 des deux sources
+	And.l	#$fffffffe,d0	; / pour eviter les adresses impaires.
+	Move.l	d0,a0
+	Move.l	d1,a1
+	Move.l	a1,a2
+	Sub.l	#4,a1
+_Lsr1	Move.l	(a1),(a2)
+	Sub.l	#4,a1
+	Sub.l	#4,a2
+	Cmp.l	a0,a1
+	Bgt	_Lsr1
+	Rts
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPDRAWDPF1	Equ	111
+L111	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,d1	; D1=Last Adress.
+	Move.l	(a3)+,d0	; D2=First Adress.
+	Sub.l	#1,d1
+	Sub.l	#1,d0
+	Mulu	#6,d0
+	Mulu	#6,d1
+	DLea	_MpBase,a4
+	Move.l	(a4),a0
+	Cmp.l	#0,a0
+	Beq	ampd
+	Add.l	#8,a0
+	Move.l	a0,a1
+	Add.l	d0,a0		; A0=First Real Adress.
+	Add.l	d1,a1		; A1=Last Real Adress.
+;
+	DLea	_XY,a3
+	Move.l	(a3)+,d7	; D7=X Screen Size.
+	Move.l	(a3),d6		; D6=Y Screen Size.
+	Sub.l	#1,d6
+	Move.l	d7,d5
+	Sub.l	#1,d5
+	Lsr.l	#3,d7		; D7      en octets.
+; Lecture du point
+a_Mpp0	Clr.l	d0
+	Clr.l	d1
+	Clr.l	d2
+	Move.w	(a0)+,d0	; D0=X pos.
+	Move.w	(a0)+,d1	; D1=Y pos.
+; Si coordonnees NEGATIVES.
+	Btst	#15,d0
+	Beq	a_Mp0
+	Or.l	#$ffff0000,d0
+a_Mp0	Btst	#15,d1
+	Beq	a_Mp1
+	Or.l	#$ffff0000,d1
+; Decalage d'origine !!!
+a_Mp1	DLea	_Origin,a2
+	Add.l	(a2)+,d0
+	Add.l	(a2)+,d1
+;
+	Move.w	(a0)+,d2	; D2=Couleur du point.
+; Verifications !!!
+	Cmp.l	#0,d0
+	Blt	a_xxl
+	Cmp.l	d5,d0
+	Bgt	a_xxl
+	Cmp.l	#0,d1
+	Blt	a_xxl
+	Cmp.l	d6,d1
+	Bgt	a_xxl
+; Calcul du rajout aux bits plans.
+	Mulu	d7,d1		; D1=Rajout pour se trouver a la bonne ligne.
+	Move.l	d0,d3
+	And.l	#$fffffff8,d3
+	Sub.l	d3,d0		; D0=15-Bit to set/clear.
+	Lsr.l	#3,d3
+	Add.l	d3,d1		; D1=Rajout Aux BITS PLANS.   !!!
+	Move.l	#$7,d4
+	Sub.l	d0,d4
+	Move.l	d4,d0		; D0=Bit to SET/CLEAR.        !!!
+;
+; Mise en place sur les bits plans
+	Move.l	#$0,d4
+	DLea	_BitsPlanes,a4
+a_Mpp	Move.l	(a4)+,a2
+	Add.l	#4,a4
+	Cmp.l	#$0,a2
+	Beq	a_xxl
+	Add.l	d1,a2
+	Move.b	(a2),d3
+	Btst	d4,d2
+	Beq	a_MpClear
+a_MpSet
+	Bset	d0,d3
+	Bra	a_MpSuite
+a_MpClear
+	Bclr	d0,d3
+a_MpSuite
+	Move.b	d3,(a2)
+	Add.l	#1,d4
+	DLea	_MpP,a3
+	Move.l	(a3),d3
+	Cmp.l	d3,d4
+	Bne	a_Mpp
+a_xxl	Cmp.l	a0,a1
+	Bgt	a_Mpp0
+a_xxl2	Movem.l	(sp)+,a3-a6
+	Add.l	#8,a3
+	Rts
+ampd	Movem.l	(sp)+,a3-a6
+	Add.l	#8,a3
+	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_MPDRAWDPF2		Equ	112
+L112	Movem.l	a3-a6,-(sp)
+	Move.l	(a3)+,d1	; D1=Last Adress.
+	Move.l	(a3)+,d0	; D2=First Adress.
+	Sub.l	#1,d1
+	Sub.l	#1,d0
+	Mulu	#6,d0
+	Mulu	#6,d1
+	DLea	_MpBase,a4
+	Move.l	(a4),a0
+	Cmp.l	#0,a0
+	Beq	bmpd
+	Add.l	#8,a0
+	Move.l	a0,a1
+	Add.l	d0,a0		; A0=First Real Adress.
+	Add.l	d1,a1		; A1=Last Real Adress.
+;
+	DLea	_XY,a3
+	Move.l	(a3)+,d7	; D7=X Screen Size.
+	Move.l	(a3),d6		; D6=Y Screen Size.
+	Sub.l	#1,d6
+	Move.l	d7,d5
+	Sub.l	#1,d5
+	Lsr.l	#3,d7		; D7      en octets.
+; Lecture du point
+b_Mpp0	Clr.l	d0
+	Clr.l	d1
+	Clr.l	d2
+	Move.w	(a0)+,d0	; D0=X pos.
+	Move.w	(a0)+,d1	; D1=Y pos.
+; Si coordonnees NEGATIVES.
+	Btst	#15,d0
+	Beq	b_Mp0
+	Or.l	#$ffff0000,d0
+b_Mp0	Btst	#15,d1
+	Beq	b_Mp1
+	Or.l	#$ffff0000,d1
+; Decalage d'origine !!!
+b_Mp1	DLea	_Origin,a2
+	Add.l	(a2)+,d0
+	Add.l	(a2)+,d1
+;
+	Move.w	(a0)+,d2	; D2=Couleur du point.
+; Verifications !!!
+	Cmp.l	#0,d0
+	Blt	b_xxl
+	Cmp.l	d5,d0
+	Bgt	b_xxl
+	Cmp.l	#0,d1
+	Blt	b_xxl
+	Cmp.l	d6,d1
+	Bgt	b_xxl
+; Calcul du rajout aux bits plans.
+	Mulu	d7,d1		; D1=Rajout pour se trouver a la bonne ligne.
+	Move.l	d0,d3
+	And.l	#$fffffff8,d3
+	Sub.l	d3,d0		; D0=15-Bit to set/clear.
+	Lsr.l	#3,d3
+	Add.l	d3,d1		; D1=Rajout Aux BITS PLANS.   !!!
+	Move.l	#$7,d4
+	Sub.l	d0,d4
+	Move.l	d4,d0		; D0=Bit to SET/CLEAR.        !!!
+;
+; Mise en place sur les bits plans
+	Move.l	#$0,d4
+	DLea	_BitsPlanes,a4
+	Add.l	#4,a4
+b_Mpp	Move.l	(a4)+,a2
+	Add.l	#4,a4
+	Cmp.l	#$0,a2
+	Beq	b_xxl
+	Add.l	d1,a2
+	Move.b	(a2),d3
+	Btst	d4,d2
+	Beq	b_MpClear
+b_MpSet
+	Bset	d0,d3
+	Bra	b_MpSuite
+b_MpClear
+	Bclr	d0,d3
+b_MpSuite
+	Move.b	d3,(a2)
+	Add.l	#1,d4
+	DLea	_MpP,a3
+	Move.l	(a3),d3
+	Cmp.l	d3,d4
+	Bne	b_Mpp
+b_xxl	Cmp.l	a0,a1
+	Bgt	b_Mpp0
+b_xxl2	Movem.l	(sp)+,a3-a6
+	Add.l	#8,a3
+	Rts
+bmpd	Movem.l	(sp)+,a3-a6
+	Add.l	#8,a3
+	Moveq	#11,d0
+	Rbra	L_CUSTOM
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L113
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L114
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L115
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L116
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L117
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L118
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L119
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L120
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L121
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L_CUSTOM		Equ	122
+L122	Lea	ErrMess(pc),a0
+	Moveq	#0,d1
+	Moveq	#ExtNb,d2
+	Moveq	#0,d3
+	Rjmp	L_ErrorExt
+; Error Selection Messages
+_NoCopperList
+	Moveq	#1,d0
+	Rbra	L_CUSTOM
+; Error List.
+ErrMess	Dc.b	"Adresse pour copper list INVALIDE.",0		;  0
+	Dc.b	"Copper list non reservee.",0			;  1
+	Dc.b	"Registre de couleur invalide.",0		;  2
+	Dc.b	"BMHD non trouve.",0				;  3
+	Dc.b	"Une ou plusieurs bases ecran INVALIDE(S).",0	;  4
+	Dc.b	"Banque memoire trop petite.",0			;  5
+	Dc.b	"CMAP non trouve.Fichier IFF/ILBM corrompu.",0	;  6
+	Dc.b	"2e Ecran copper non cree.",0			;  7
+	Dc.b	"Pas assez de memoire pour l'allocation!!!",0	;  8
+	Dc.b	"Aga Icon bank non reservee.",0			;  9
+	Dc.b	"Fichier d'un format inconnu.",0		; 10
+	Dc.b	"Multi Plot bank non reservee.",0		; 11
+	Dc.b	"Multi Plot bank deja reservee.",0		; 12
+	Dc.b	"Point demande HORS limite de reservation.",0	; 13
+	Dc.b	"Valeur permise de 1 a 8 seulement.",0		; 14
+	Dc.b	"Aga Icon bank deja reservee.",0		; 15
+	EVEN
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L123	Moveq	#0,d1
+	Moveq	#ExtNb,d2
+	Moveq	#-1,d3
+	Rjmp	L_ErrorExt
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+L124
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+C_TITLE
+		Dc.b	"Amos1.3/AmosPro Personnal Extension V1.1"
+		Dc.b	0
+		Dc.b	"Version Enregistr�e COMPILABLE."
+;		Dc.b	0
+		Even
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+C_END		Dc.w	0
+; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+; Ne Jamais Oublier :
+;
+;	A > Lire Des Donnees De L'Amos
+;		1 > A3(.l)=Adresse des valeurs
+;		 ( Toujours remettre A3 a sa valeur initiale avant un RTS )
+;		    A0(.w)=Longueur des textes (Strings)
+;		2 > A4,A5,A6 ne doivent aucunement etre modifies
+;		3 > D0,D1,D2,D3,D4,D5,D6,
+;	B > Si l'utilisation des registres a3,a4,a5,a6 est obligatoire,
+;		1 > Au debut de la routine faire : MOVEM.L A3-A6,-(SP)
+;		2 > Utiliser a3,a4,a5,a6 a sa guise,
+;		3 > A la fin de la routine : MOVEM.L (SP)+,A3-A6
+;		4 > Ne pas oublier de remettre A3 a sa valeur initiale !!!
+;
diff --git a/extensions/Personal-1.1a/Personnal1_1.README b/extensions/Personal-1.1a/Personnal1_1.README
new file mode 100644
index 0000000..1ffb409
--- /dev/null
+++ b/extensions/Personal-1.1a/Personnal1_1.README
@@ -0,0 +1,19 @@
+                      
+                 Amos Personnal.Lib V1.1a Source Code By F.C
+                      ----------------------------------
+
+
+INTRODUCTION :
+--------------  
+
+  I wrote this extension because I wanted to get some special effects under Amos/AmosPRO. Function per function, this extension started to contain many commands/functions and contain now, more than 90 functions.
+
+DISTRIBUTION :
+--------------
+
+-  This is the source code of the fully compilable version of the extension.
+-  It is provided "as is" and no support will be done about it.
+-  You are allowed to copy the archive if you makes NO CHANGES in it.
+-  You are not allowed to use parts of this source code in your creation excepted if you clearly mention "contains part of AMOS Personal extension from Frederic Cordier".
+- Provided only for educationnal purposes.
+
diff --git a/extensions/Personal-1.1a/_TABLES/_CosTable.bin b/extensions/Personal-1.1a/_TABLES/_CosTable.bin
new file mode 100644
index 0000000..1b83785
Binary files /dev/null and b/extensions/Personal-1.1a/_TABLES/_CosTable.bin differ
diff --git a/extensions/Personal-1.1a/_TABLES/_SinTable.bin b/extensions/Personal-1.1a/_TABLES/_SinTable.bin
new file mode 100644
index 0000000..a1a72cf
Binary files /dev/null and b/extensions/Personal-1.1a/_TABLES/_SinTable.bin differ
diff --git a/extensions/Personal-1.1a/_TABLES/_TanTable.bin b/extensions/Personal-1.1a/_TABLES/_TanTable.bin
new file mode 100644
index 0000000..0e78921
Binary files /dev/null and b/extensions/Personal-1.1a/_TABLES/_TanTable.bin differ
diff --git a/extensions/acompact b/extensions/acompact
new file mode 100644
index 0000000..979e424
--- /dev/null
+++ b/extensions/acompact
@@ -0,0 +1,5 @@
+echo "***Assembling AMOSPro_Compact.Lib"
+c/Library_Digest extensions/+Compact.s
+c/Genam FROM extensions/+Compact.s TO AMOS/APSystem/AMOSPro_Compact.Lib
+delete >NIL: extensions/+Compact_Labels.s
+delete >NIL: extensions/+Compact_Size.s
diff --git a/extensions/aio b/extensions/aio
new file mode 100644
index 0000000..a61bb91
--- /dev/null
+++ b/extensions/aio
@@ -0,0 +1,5 @@
+echo "***Assembling AMOSPro_IOPorts.Lib"
+c/Library_Digest extensions/+IO_Ports.s
+c/Genam FROM extensions/+IO_Ports.s TO AMOS/APSystem/AMOSPro_IOPorts.Lib
+delete >NIL: extensions/+IO_Ports_Labels.s
+delete >NIL: extensions/+IO_Ports_Size.s
diff --git a/extensions/amusic b/extensions/amusic
new file mode 100644
index 0000000..1a10619
--- /dev/null
+++ b/extensions/amusic
@@ -0,0 +1,5 @@
+echo "***Assembling AMOSPro_Music.Lib"
+c/Library_Digest extensions/+Music.s
+c/Genam FROM extensions/+Music.s TO AMOS/APSystem/AMOSPro_Music.Lib
+delete >NIL: extensions/+Music_Labels.s
+delete >NIL: extensions/+Music_Size.s
diff --git a/extensions/arequest b/extensions/arequest
new file mode 100644
index 0000000..f76a7b0
--- /dev/null
+++ b/extensions/arequest
@@ -0,0 +1,5 @@
+echo "***Assembling AMOSPro_Request.Lib"
+c/Library_Digest extensions/+Request.s
+c/Genam FROM extensions/+Request.s TO AMOS/APSystem/AMOSPro_Request.Lib
+delete >NIL: extensions/+Request_Labels.s
+delete >NIL: extensions/+Request_Size.s
diff --git a/includes/devices/input.i b/includes/devices/input.i
new file mode 100644
index 0000000..fd99c44
--- /dev/null
+++ b/includes/devices/input.i
@@ -0,0 +1,28 @@
+	IFND	DEVICES_INPUT_I
+DEVICES_INPUT_I SET	1
+**
+**	$Filename: devices/input.i $
+**	$Release: 1.3 $
+**
+**	input device command definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	    EXEC_IO_I
+   INCLUDE     "exec/io.i"
+   ENDC
+
+   DEVINIT
+
+   DEVCMD	IND_ADDHANDLER
+   DEVCMD	IND_REMHANDLER
+   DEVCMD	IND_WRITEEVENT
+   DEVCMD	IND_SETTHRESH
+   DEVCMD	IND_SETPERIOD
+   DEVCMD	IND_SETMPORT
+   DEVCMD	IND_SETMTYPE
+   DEVCMD	IND_SETMTRIG
+
+	ENDC	; DEVICES_INPUT_I
diff --git a/includes/devices/inputevent.i b/includes/devices/inputevent.i
new file mode 100644
index 0000000..86ed95a
--- /dev/null
+++ b/includes/devices/inputevent.i
@@ -0,0 +1,145 @@
+	IFND	DEVICES_INPUTEVENT_I
+DEVICES_INPUTEVENT_I	SET	1
+**
+**	$Filename: devices/inputevent.i $
+**	$Release: 1.3 $
+**
+**	input event definitions	 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 DEVICES_TIMER_I
+   INCLUDE  "devices/timer.i"
+   ENDC
+
+*------ constants ----------------------------------------------------
+  
+*   --- InputEvent.ie_Class ---
+* A NOP input event
+IECLASS_NULL		EQU   $00
+* A raw keycode from the keyboard device
+IECLASS_RAWKEY		EQU   $01
+* A raw mouse report from the game port device
+IECLASS_RAWMOUSE	EQU   $02
+* A private console event
+IECLASS_EVENT		EQU   $03
+* A Pointer Position report
+IECLASS_POINTERPOS	EQU   $04
+* A timer event
+IECLASS_TIMER		EQU   $06
+* select button pressed down over a Gadget (address in ie_EventAddress)
+IECLASS_GADGETDOWN	EQU $07
+* select button released over the same Gadget (address in ie_EventAddress)
+IECLASS_GADGETUP	EQU   $08
+* some Requester activity has taken place.  See Codes REQCLEAR and REQSET
+IECLASS_REQUESTER	EQU   $09
+* this is a Menu Number transmission (Menu number is in ie_Code)
+IECLASS_MENULIST	EQU   $0A
+* User has selected the active Window's Close Gadget
+IECLASS_CLOSEWINDOW	EQU   $0B
+* this Window has a new size
+IECLASS_SIZEWINDOW	EQU   $0C
+* the Window pointed to by ie_EventAddress needs to be refreshed
+IECLASS_REFRESHWINDOW	EQU   $0D
+* new preferences are available
+IECLASS_NEWPREFS	EQU   $0E
+* the disk has been removed
+IECLASS_DISKREMOVED	EQU   $0F
+* the disk has been inserted
+IECLASS_DISKINSERTED	EQU   $10
+* the window is about to be been made active
+IECLASS_ACTIVEWINDOW	EQU   $11
+* the window is about to be made inactive
+IECLASS_INACTIVEWINDOW	EQU   $12
+
+* the last class
+IECLASS_MAX		EQU   $12
+
+*   --- InputEvent.ie_Code --- 
+*  IECLASS_RAWKEY
+IECODE_UP_PREFIX	EQU   $80
+IECODEB_UP_PREFIX	EQU   7
+IECODE_KEY_CODE_FIRST	EQU   $00
+IECODE_KEY_CODE_LAST	EQU   $77
+IECODE_COMM_CODE_FIRST	EQU   $78
+IECODE_COMM_CODE_LAST	EQU   $7F
+  
+*  IECLASS_ANSI
+IECODE_C0_FIRST		EQU   $00
+IECODE_C0_LAST		EQU   $1F
+IECODE_ASCII_FIRST	EQU   $20
+IECODE_ASCII_LAST	EQU   $7E
+IECODE_ASCII_DEL	EQU   $7F
+IECODE_C1_FIRST		EQU   $80
+IECODE_C1_LAST		EQU   $9F
+IECODE_LATIN1_FIRST	EQU   $A0
+IECODE_LATIN1_LAST	EQU   $FF
+  
+*  IECLASS_RAWMOUSE
+IECODE_LBUTTON		EQU   $68  ; also uses IECODE_UP_PREFIX
+IECODE_RBUTTON		EQU   $69  ;
+IECODE_MBUTTON		EQU   $6A  ;
+IECODE_NOBUTTON		EQU   $FF
+  
+*  IECLASS_EVENT
+IECODE_NEWACTIVE	EQU   $01  ; active input window changed
+
+*  IECLASS_REQUESTER Codes
+* REQSET is broadcast when the first Requester (not subsequent ones) opens
+* in the Window
+IECODE_REQSET		EQU   $01
+* REQCLEAR is broadcast when the last Requester clears out of the Window
+IECODE_REQCLEAR		EQU   $00
+
+  
+*   --- InputEvent.ie_Qualifier ---
+IEQUALIFIER_LSHIFT	EQU   $0001
+IEQUALIFIERB_LSHIFT	EQU   0
+IEQUALIFIER_RSHIFT	EQU   $0002
+IEQUALIFIERB_RSHIFT	EQU   1
+IEQUALIFIER_CAPSLOCK	EQU   $0004
+IEQUALIFIERB_CAPSLOCK	EQU   2
+IEQUALIFIER_CONTROL	EQU   $0008
+IEQUALIFIERB_CONTROL	EQU   3
+IEQUALIFIER_LALT	EQU   $0010
+IEQUALIFIERB_LALT	EQU   4
+IEQUALIFIER_RALT	EQU   $0020
+IEQUALIFIERB_RALT	EQU   5
+IEQUALIFIER_LCOMMAND	EQU   $0040
+IEQUALIFIERB_LCOMMAND	EQU   6
+IEQUALIFIER_RCOMMAND	EQU   $0080
+IEQUALIFIERB_RCOMMAND	EQU   7
+IEQUALIFIER_NUMERICPAD	EQU   $0100
+IEQUALIFIERB_NUMERICPAD EQU   8
+IEQUALIFIER_REPEAT	EQU   $0200
+IEQUALIFIERB_REPEAT	EQU   9
+IEQUALIFIER_INTERRUPT	EQU   $0400
+IEQUALIFIERB_INTERRUPT	EQU   10
+IEQUALIFIER_MULTIBROADCAST    EQU   $0800
+IEQUALIFIERB_MULTIBROADCAST   EQU   11
+IEQUALIFIER_MIDBUTTON	EQU   $1000
+IEQUALIFIERB_MIDBUTTON	EQU   12
+IEQUALIFIER_RBUTTON	EQU   $2000
+IEQUALIFIERB_RBUTTON	EQU   13
+IEQUALIFIER_LEFTBUTTON	EQU   $4000
+IEQUALIFIERB_LEFTBUTTON EQU   14
+IEQUALIFIER_RELATIVEMOUSE     EQU   $8000
+IEQUALIFIERB_RELATIVEMOUSE    EQU   15
+  
+*------ InputEvent ---------------------------------------------------
+  
+ STRUCTURE  InputEvent,0
+   APTR	 ie_NextEvent	      ; the chronologically next event
+   UBYTE   ie_Class	      ; the input event class 
+   UBYTE   ie_SubClass	      ; optional subclass of the class
+   UWORD   ie_Code	      ; the input event code
+   UWORD   ie_Qualifier	      ; qualifiers in effect for the event
+   LABEL ie_EventAddress      ; a pointer parameter for an event
+   WORD	   ie_X		      ; the pointer position for the event,
+   WORD	   ie_Y		      ;	  usually in canvas relative coords 
+   STRUCT  ie_TimeStamp,TV_SIZE	 ; the system tick at the event
+   LABEL   ie_SIZEOF
+
+	ENDC	; DEVICES_INPUTEVENT_I
diff --git a/includes/devices/parallel.i b/includes/devices/parallel.i
new file mode 100644
index 0000000..0475eab
--- /dev/null
+++ b/includes/devices/parallel.i
@@ -0,0 +1,112 @@
+	IFND	DEVICES_PARALLEL_I
+DEVICES_PARALLEL_I	SET	1
+**
+**	$Filename: devices/parallel.i $
+**	$Release: 1.3 $
+**
+**	external declarations for Serial Port Driver 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND     EXEC_IO_I
+    include "exec/io.i"
+    ENDC	; EXEC_IO_I
+
+*--------------------------------------------------------------------
+*
+* Driver error definitions
+*
+*--------------------------------------------------------------------
+
+ParErr_DevBusy		EQU	1
+ParErr_BufTooBig	EQU	2
+ParErr_InvParam		EQU	3
+ParErr_LineErr		EQU	4
+ParErr_NotOpen		EQU	5
+ParErr_PortReset	EQU	6
+ParErr_InitErr		EQU	7
+
+*--------------------------------------------------------------------
+*
+* Useful constants
+*
+*--------------------------------------------------------------------
+*
+PDCMD_QUERY	   EQU	   CMD_NONSTD 
+PDCMD_SETPARAMS	   EQU	   CMD_NONSTD+1
+Par_DEVFINISH	   EQU	   10	     ; number of device comands 
+*
+*--------------------------------------------------------------------
+*
+* Driver Specific Commands
+*
+*--------------------------------------------------------------------
+
+PARALLELNAME:	MACRO
+		dc.b	'parallel.device',0
+		ds.w	0
+		ENDM
+
+	BITDEF	PAR,SHARED,5	  ; PARFLAGS non-exclusive access
+	BITDEF	PAR,RAD_BOOGIE,3  ;    "     (not yet implemented)
+	BITDEF	PAR,EOFMODE,1	  ;    "     EOF mode enabled bit
+	BITDEF	IOPAR,QUEUED,6	  ; IO_FLAGS rqst-queued bit
+	BITDEF	IOPAR,ABORT,5	  ;    "     rqst-aborted bit
+	BITDEF	IOPAR,ACTIVE,4	  ;    "     rqst-qued-or-current bit
+	BITDEF	IOPT,RWDIR,3	  ; IO_STATUS read=0,write=1
+	BITDEF	IOPT,PARSEL,2	  ;    "     printer selected on the A1000
+				  ; printer selected & serial "Ring Indicator"
+				  ; on the A500/A2000.	Be careful when making
+				  ; cables.
+	BITDEF	IOPT,PAPEROUT,1	  ;    "     paper out
+	BITDEF	IOPT,PARBUSY,0	  ;    "     printer in busy toggle
+;Note: Previous versions of this include file had bits 0 and 2 swapped
+*
+************************************************************************
+
+ STRUCTURE PTERMARRAY,0
+	ULONG	 PTERMARRAY_0
+	ULONG	 PTERMARRAY_1
+	LABEL	 PTERMARRAY_SIZE
+
+*****************************************************************
+*  CAUTION !!!	IF YOU ACCESS the parallel.device, you MUST (!!!!) use an
+*  IOEXTPAR-sized structure or you may overlay innocent memory, okay ?!	  
+***************************************************************** 
+  
+ STRUCTURE IOEXTPAR,IOSTD_SIZE
+
+*     STRUCT   MsgNode
+*   0	APTR	 Succ
+*   4	APTR	 Pred
+*   8	UBYTE	 Type
+*   9	UBYTE	 Pri
+*   A	APTR	 Name
+*   E	APTR	 ReplyPort
+*  12	UWORD	 MNLength
+*     STRUCT   IOExt
+*  14	APTR	 IO_DEVICE
+*  18	APTR	 IO_UNIT
+*  1C	UWORD	 IO_COMMAND
+*  1E	UBYTE	 IO_FLAGS
+*  1F	UBYTE	 IO_ERROR
+*     STRUCT   IOStdExt
+*  20	ULONG	 IO_ACTUAL
+*  24	ULONG	 IO_LENGTH
+*  28	APTR	 IO_DATA
+*  2C	ULONG	 IO_OFFSET
+*
+
+*
+*  30
+	ULONG	IO_PEXTFLAGS	; (not used) flag extension area
+	UBYTE	IO_PARSTATUS	; device status (see bit defs above)
+	UBYTE	IO_PARFLAGS	; see PARFLAGS bit definitions above 
+	STRUCT	IO_PTERMARRAY,PTERMARRAY_SIZE ; termination char array
+	LABEL	IOEXTPar_SIZE
+
+****************************************************************************
+
+	ENDC	; DEVICES_PARALLEL_I
diff --git a/includes/devices/printer.i b/includes/devices/printer.i
new file mode 100644
index 0000000..5b940c7
--- /dev/null
+++ b/includes/devices/printer.i
@@ -0,0 +1,211 @@
+	IFND	DEVICES_PRINTER_I
+DEVICES_PRINTER_I	SET	1
+**
+**	$Filename: devices/printer.i $
+**	$Release: 1.3 $
+**
+**	printer device command definitions 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 EXEC_NODES_I
+   INCLUDE  "exec/nodes.i"
+   ENDC
+
+   IFND	 EXEC_LISTS_I
+   INCLUDE  "exec/lists.i"
+   ENDC
+
+   IFND	 EXEC_PORTS_I
+   INCLUDE  "exec/ports.i"
+   ENDC
+
+   IFND	 EXEC_IO_I
+   INCLUDE  "exec/io.i"
+   ENDC
+
+   DEVINIT
+
+   DEVCMD   PRD_RAWWRITE
+   DEVCMD   PRD_PRTCOMMAND
+   DEVCMD   PRD_DUMPRPORT
+   DEVCMD   PRD_QUERY
+
+;****** printer definitions
+aRIS	 EQU	0 ; ESCc  reset			      ISO
+aRIN	 EQU	1 ; ESC#1 initialize		      +++
+aIND	 EQU	2 ; ESCD  lf			      ISO
+aNEL	 EQU	3 ; ESCE  return,lf		      ISO
+aRI	 EQU	4 ; ESCM  reverse lf		      ISO
+
+aSGR0	 EQU	5 ; ESC[0m normal char set	      ISO    
+aSGR3	 EQU	6 ; ESC[3m italics on		      ISO	 
+aSGR23	 EQU	7 ; ESC[23m italics off		      ISO
+aSGR4	 EQU	8 ; ESC[4m underline on		      ISO
+aSGR24	 EQU	9 ; ESC[24m underline off	      ISO
+aSGR1	 EQU   10 ; ESC[1m boldface on		      ISO
+aSGR22	 EQU   11 ; ESC[22m boldface off	      ISO
+aSFC	 EQU   12 ; SGR30-39  set foreground color    ISO
+aSBC	 EQU   13 ; SGR40-49  set background color    ISO
+
+aSHORP0	 EQU   14 ; ESC[0w normal pitch		      DEC
+aSHORP2	 EQU   15 ; ESC[2w elite on		      DEC
+aSHORP1	 EQU   16 ; ESC[1w elite off		      DEC
+aSHORP4	 EQU   17 ; ESC[4w condensed fine on	      DEC
+aSHORP3	 EQU   18 ; ESC[3w condensed off	      DEC
+aSHORP6	 EQU   19 ; ESC[6w enlarged on		      DEC
+aSHORP5	 EQU   20 ; ESC[5w enlarged off		      DEC
+
+aDEN6	 EQU   21 ; ESC[6"z shadow print on	      DEC (sort of)
+aDEN5	 EQU   22 ; ESC[5"z shadow print off	      DEC
+aDEN4	 EQU   23 ; ESC[4"z doublestrike on	      DEC
+aDEN3	 EQU   24 ; ESC[3"z doublestrike off	      DEC
+aDEN2	 EQU   25 ; ESC[2"z  NLQ on		      DEC
+aDEN1	 EQU   26 ; ESC[1"z  NLQ off		      DEC
+
+aSUS2	 EQU   27 ; ESC[2v superscript on	      +++
+aSUS1	 EQU   28 ; ESC[1v superscript off	      +++
+aSUS4	 EQU   29 ; ESC[4v subscript on		      +++
+aSUS3	 EQU   30 ; ESC[3v subscript off	      +++
+aSUS0	 EQU   31 ; ESC[0v normalize the line	      +++
+aPLU	 EQU   32 ; ESCL  partial line up	      ISO
+aPLD	 EQU   33 ; ESCK  partial line down	      ISO
+
+aFNT0	 EQU   34 ; ESC(B US char set	     or Typeface  0 (default)
+aFNT1	 EQU   35 ; ESC(R French char set    or Typeface  1
+aFNT2	 EQU   36 ; ESC(K German char set    or Typeface  2
+aFNT3	 EQU   37 ; ESC(A UK char set	     or Typeface  3
+aFNT4	 EQU   38 ; ESC(E Danish I char set  or Typeface  4
+aFNT5	 EQU   39 ; ESC(H Sweden char set    or Typeface  5
+aFNT6	 EQU   40 ; ESC(Y Italian char set   or Typeface  6
+aFNT7	 EQU   41 ; ESC(Z Spanish char set   or Typeface  7
+aFNT8	 EQU   42 ; ESC(J Japanese char set  or Typeface  8
+aFNT9	 EQU   43 ; ESC(6 Norweign char set  or Typeface  9
+aFNT10	 EQU   44 ; ESC(C Danish II char set or Typeface 10
+			      
+;	Suggested typefaces are:
+;
+;	 0 - default typeface.
+;	 1 - Line Printer or equiv.
+;	 2 - Pica or equiv.
+;	 3 - Elite or equiv.
+;	 4 - Helvetica or equiv.
+;	 5 - Times Roman or equiv.
+;	 6 - Gothic or equiv.
+;	 7 - Script or equiv.
+;	 8 - Prestige or equiv.
+;	 9 - Caslon or equiv.
+;	10 - Orator or equiv.
+;
+
+aPROP2	 EQU   45 ; ESC[2p  proportional on	      +++
+aPROP1	 EQU   46 ; ESC[1p  proportional off	      +++
+aPROP0	 EQU   47 ; ESC[0p  proportional clear	      +++
+aTSS	 EQU   48 ; ESC[n E set proportional offset   ISO
+aJFY5	 EQU   49 ; ESC[5 F auto left justify	      ISO
+aJFY7	 EQU   50 ; ESC[7 F auto right justiy	      ISO
+aJFY6	 EQU   51 ; ESC[6 F auto full justify	      ISO
+aJFY0	 EQU   52 ; ESC[0 F auto justify off	      ISO
+aJFY2	 EQU   53 ; ESC[2 F  word space(auto center)  ISO (special)
+aJFY3	 EQU   54 ; ESC[3 F letter space (justify)    ISO (special)
+
+aVERP0	 EQU   55 ; ESC[0z  1/8" line spacing	      +++
+aVERP1	 EQU   56 ; ESC[1z  1/6" line spacing	      +++
+aSLPP	 EQU   57 ; ESC[nt  set form length n	      DEC
+aPERF	 EQU   58 ; ESC[nq  perf skip n (n>0)	      +++
+aPERF0	 EQU   59 ; ESC[0q  perf skip off	      +++
+			
+aLMS	 EQU   60 ; ESC#9  Left margin set	      +++
+aRMS	 EQU   61 ; ESC#0  Right margin set	      +++
+aTMS	 EQU   62 ; ESC#8  Top margin set	      +++
+aBMS	 EQU   63 ; ESC#2  Bottom marg set	      +++
+aSTBM	 EQU   64 ; ESC[Pn1;Pn2r  T&B margins	      DEC
+aSLRM	 EQU   65 ; ESC[Pn1;Pn2s  L&R margin	      DEC
+aCAM	 EQU   66 ; ESC#3  Clear margins	      +++
+
+aHTS	 EQU   67 ; ESCH    Set horiz tab	      ISO
+aVTS	 EQU   68 ; ESCJ    Set vertical tabs	      ISO
+aTBC0	 EQU   69 ; ESC[0g  Clr horiz tab	      ISO
+aTBC3	 EQU   70 ; ESC[3g  Clear all h tab	      ISO
+aTBC1	 EQU   71 ; ESC[1g  Clr vertical tabs	      ISO
+aTBC4	 EQU   72 ; ESC[4g  Clr all v tabs	      ISO
+aTBCALL	 EQU   73 ; ESC#4   Clr all h & v tabs	      +++
+aTBSALL	 EQU   74 ; ESC#5   Set default tabs	      +++
+aEXTEND	 EQU   75 ; ESC[Pn"x extended commands	      +++ 
+
+aRAW	 EQU   76 ; ESC[Pn"r Next 'Pn' chars are raw  +++
+
+
+ STRUCTURE IOPrtCmdReq,IO_SIZE
+    UWORD   io_PrtCommand  ; printer command
+    UBYTE   io_Parm0	; first command parameter
+    UBYTE   io_Parm1	; second command parameter
+    UBYTE   io_Parm2	; third command parameter
+    UBYTE   io_Parm3	; fourth command parameter
+    LABEL   iopcr_SIZEOF
+
+ STRUCTURE  IODRPReq,IO_SIZE
+    APTR    io_RastPort	   ; raster port
+    APTR    io_ColorMap	   ; color map
+    ULONG   io_Modes	   ; graphics viewport modes
+    UWORD   io_SrcX	   ; source x origin
+    UWORD   io_SrcY	   ; source y origin
+    UWORD   io_SrcWidth	   ; source x width
+    UWORD   io_SrcHeight   ; source x height
+    LONG    io_DestCols	   ; destination x width
+    LONG    io_DestRows	   ; destination y height
+    UWORD   io_Special	   ; option flags
+    LABEL   iodrpr_SIZEOF
+
+SPECIAL_MILCOLS		EQU	$0001	; DestCols specified in 1/1000"
+SPECIAL_MILROWS		EQU	$0002	; DestRows specified in 1/1000"
+SPECIAL_FULLCOLS	EQU	$0004	; make DestCols maximum possible
+SPECIAL_FULLROWS	EQU	$0008	; make DestRows maximum possible
+SPECIAL_FRACCOLS	EQU	$0010	; DestCols is fraction of FULLCOLS
+SPECIAL_FRACROWS	EQU	$0020	; DestRows is fraction of FULLROWS
+SPECIAL_CENTER		EQU	$0040	; center image on paper
+SPECIAL_ASPECT		EQU	$0080	; ensure correct aspect ratio
+SPECIAL_DENSITY1	EQU	$0100	; lowest resolution (dpi)
+SPECIAL_DENSITY2	EQU	$0200	; next res
+SPECIAL_DENSITY3	EQU	$0300	; next res
+SPECIAL_DENSITY4	EQU	$0400	; next res
+SPECIAL_DENSITY5	EQU	$0500	; next res
+SPECIAL_DENSITY6	EQU	$0600	; next res
+SPECIAL_DENSITY7	EQU	$0700	; highest res
+SPECIAL_NOFORMFEED	EQU	$0800	; don't eject paper after gfx prints
+SPECIAL_TRUSTME		EQU	$1000	; don't reset on gfx prints
+;
+;	Compute print size, set 'io_DestCols' and 'io_DestRows' in the calling
+;	program's 'IODRPReq' structure and exit, don't print.  This allows the
+;	calling program to see what the final print size would be in printer
+;	pixels.	 Note that it modifies the 'io_DestCols' and 'io_DestRows'
+;	fields of your 'IODRPReq' structure.  Also, set the print density and
+;	update the 'MaxXDots', 'MaxYDots', 'XDotsInch', and 'YDotsInch' fields
+;	of the 'PrinterExtendedData' structure.
+;
+SPECIAL_NOPRINT		EQU	$2000	; see above
+
+PDERR_NOERR		EQU	0	; clean exit, no errors
+PDERR_CANCEL		EQU	1	; user cancelled print
+PDERR_NOTGRAPHICS	EQU	2	; printer cannot output graphics
+PDERR_INVERTHAM		EQU	3	; OBSOLETE
+PDERR_BADDIMENSION	EQU	4	; print dimensions illegal
+PDERR_DIMENSIONOVFLOW	EQU	5	; OBSOLETE
+PDERR_INTERNALMEMORY	EQU	6	; no memory for internal variables
+PDERR_BUFFERMEMORY	EQU	7	; no memory for print buffer
+;
+;	Note : this is an internal error that can be returned from the render
+;	function to the printer device.	 It is NEVER returned to the user.
+;	If the printer device sees this error it converts it 'PDERR_NOERR'
+;	and exits gracefully.  Refer to the document on
+;	'How to Write a Graphics Printer Driver' for more info.
+;
+PDERR_TOOKCONTROL	EQU	8	; I took control in case 0 of render
+
+; internal use
+SPECIAL_DENSITYMASK	EQU $0700	;  masks out density values
+SPECIAL_DIMENSIONSMASK	EQU SPECIAL_MILCOLS!SPECIAL_MILROWS!SPECIAL_FULLCOLS!SPECIAL_FULLROWS!SPECIAL_FRACCOLS!SPECIAL_FRACROWS!SPECIAL_ASPECT
+
+	ENDC	; DEVICES_PRINTER_I
diff --git a/includes/devices/prtbase.i b/includes/devices/prtbase.i
new file mode 100644
index 0000000..79fe012
--- /dev/null
+++ b/includes/devices/prtbase.i
@@ -0,0 +1,169 @@
+	IFND	DEVICES_PRTBASE_I
+DEVICES_PRTBASE_I	SET	1
+**
+**	$Filename: devices/prtbase.i $
+**	$Release: 1.3 $
+**
+**	printer device data definition 
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+   IFND	 EXEC_NODES_I
+   INCLUDE  "exec/nodes.i"
+   ENDC
+   IFND	 EXEC_LISTS_I
+   INCLUDE  "exec/lists.i"
+   ENDC
+   IFND	 EXEC_PORTS_I
+   INCLUDE  "exec/ports.i"
+   ENDC
+   IFND	 EXEC_LIBRARIES_I
+   INCLUDE  "exec/libraries.i"
+   ENDC
+   IFND	 EXEC_TASKS_I
+   INCLUDE  "exec/tasks.i"
+   ENDC
+
+   IFND	 DEVICES_PARALLEL_I
+   INCLUDE  "devices/parallel.i"
+   ENDC
+   IFND	 DEVICES_SERIAL_I
+   INCLUDE  "devices/serial.i"
+   ENDC
+   IFND	 DEVICES_TIMER_I
+   INCLUDE  "devices/timer.i"
+   ENDC
+   IFND	 LIBRARIES_DOSEXTENS_I
+   INCLUDE  "libraries/dosextens.i"
+   ENDC
+   IFND	 INTUITION_INTUITION_I
+   INCLUDE  "intuition/intuition.i"
+   ENDC
+
+
+ STRUCTURE  DeviceData,LIB_SIZE
+    APTR dd_Segment	      ; A0 when initialized
+    APTR dd_ExecBase	      ; A6 for exec
+    APTR dd_CmdVectors	      ; command table for device commands
+    APTR dd_CmdBytes	      ; bytes describing which command queue
+    UWORD   dd_NumCommands    ; the number of commands supported
+    LABEL   DeviceData_SIZEOF ; (was dd_SIZEOF)
+
+
+*------
+*------ device driver private variables ------------------------------
+*------
+du_Flags EQU   LN_PRI	      ; various unit flags
+
+;------ IO_FLAGS
+    BITDEF  IO,QUEUED,4	      ; command is queued to be performed
+    BITDEF  IO,CURRENT,5      ; command is being performed
+    BITDEF  IO,SERVICING,6    ; command is being actively performed
+    BITDEF  IO,DONE,7	      ; command is done
+
+;------ du_Flags
+    BITDEF  DU,STOPPED,0      ; commands are not to be performed
+
+
+*------ Constants ----------------------------------------------------
+P_PRIORITY	EQU	0
+P_STKSIZE	EQU	$0800	; stack size for child task
+P_BUFSIZE	EQU	256	; size of internal buffers for text i/o
+P_SAFESIZE	EQU	128	; safety margin for text output buffer
+
+*------ pd_Flags ------
+   BITDEF   P,IOR0,0	      ; IOR0 is in use
+   BITDEF   P,IOR1,1	      ; IOR1 is in use
+   BITDEF   P,EXPUNGED,7      ; device to be expunged when all closed
+
+ STRUCTURE  PrinterData,DeviceData_SIZEOF
+    STRUCT  pd_Unit,MP_SIZE   ; the one and only unit
+    BPTR pd_PrinterSegment    ; the printer specific segment
+    UWORD   pd_PrinterType    ; the segment printer type
+    APTR pd_SegmentData	      ; the segment data structure
+    APTR pd_PrintBuf	      ; the raster print buffer
+    APTR pd_PWrite	      ; the parallel write function
+    APTR pd_PBothReady	      ; the parallel write function's done
+
+    IFGT IOEXTPar_SIZE-IOEXTSER_SIZE
+    STRUCT  pd_IOR0,IOEXTPar_SIZE   ; port I/O request 0
+    STRUCT  pd_IOR1,IOEXTPar_SIZE   ;	and 1 for double buffering
+    ENDC
+
+    IFLE IOEXTPar_SIZE-IOEXTSER_SIZE
+    STRUCT  pd_IOR0,IOEXTSER_SIZE   ; port I/O request 0
+    STRUCT  pd_IOR1,IOEXTSER_SIZE   ;	and 1 for double buffering
+    ENDC
+
+    STRUCT  pd_TIOR,IOTV_SIZE	    ; timer I/O request
+    STRUCT  pd_IORPort,MP_SIZE	    ;	and message reply port
+    STRUCT  pd_TC,TC_SIZE	    ; write task
+    STRUCT  pd_Stk,P_STKSIZE	    ;	and stack space
+    UBYTE   pd_Flags		    ; device flags
+    UBYTE   pd_pad
+    STRUCT  pd_Preferences,pf_SIZEOF ; the latest preferences
+    UBYTE      pd_PWaitEnabled	    ; wait function switch
+    LABEL   pd_SIZEOF		    ; warning! this may be odd
+
+    BITDEF  PPC,GFX,0		;graphics (bit position)
+    BITDEF  PPC,COLOR,1		;color (bit position)
+
+PPC_BWALPHA	EQU	$00	;black&white alphanumerics
+PPC_BWGFX	EQU	$01	;black&white graphics
+PPC_COLORALPHA	EQU	$02	;color alphanumerics
+PPC_COLORGFX	EQU	$03	;color graphics
+
+PCC_BW		EQU	1	;black&white only
+PCC_YMC		EQU	2	;yellow/magenta/cyan only
+PCC_YMC_BW	EQU	3	;yellow/magenta/cyan or black&white
+PCC_YMCB	EQU	4	;yellow/magenta/cyan/black
+
+PCC_4COLOR	EQU	$4	;a flag for YMCB and BGRW
+PCC_ADDITIVE	EQU	$8	;not ymcb but blue/green/red/white
+PCC_WB		EQU	$9	;black&white only, 0 == BLACK
+PCC_BGR		EQU	$a	;blue/green/red
+PCC_BGR_WB	EQU	$b	;blue/green/red or black&white
+PCC_BGRW	EQU	$c	;blue/green/red/white
+;	The picture must be scanned once for each color component, as the
+;	printer can only define one color at a time.  ie. If 'PCC_YMC' then
+;	first pass sends all 'Y' info to printer, second pass sends all 'M'
+;	info, and third pass sends all C info to printer.  The CalComp
+;	PlotMaster is an example of this type of printer.
+PCC_MULTI_PASS	EQU	$10	;see explanation above
+
+ STRUCTURE  PrinterExtendedData,0
+    APTR    ped_PrinterName   ; printer name, null terminated
+    APTR    ped_Init	      ; called after LoadSeg
+    APTR    ped_Expunge	      ; called before UnLoadSeg
+    APTR    ped_Open	      ; called at OpenDevice
+    APTR    ped_Close	      ; called at CloseDevice
+    UBYTE   ped_PrinterClass  ; printer class
+    UBYTE   ped_ColorClass    ; color class
+    UBYTE   ped_MaxColumns    ; number of print columns available
+    UBYTE   ped_NumCharSets   ; number of character sets
+    UWORD   ped_NumRows	      ; number of 'pins' in print head
+    ULONG   ped_MaxXDots      ; number of dots maximum in a raster dump
+    ULONG   ped_MaxYDots      ; number of dots maximum in a raster dump
+    UWORD   ped_XDotsInch     ; horizontal dot density
+    UWORD   ped_YDotsInch     ; vertical dot density
+    APTR    ped_Commands      ; printer text command table
+    APTR    ped_DoSpecial     ; special command handler
+    APTR    ped_Render	      ; raster render function
+    LONG    ped_TimeoutSecs   ; good write timeout
+;------ the following only exists if the segment version is 33 or greater
+	APTR	 ped_8BitChars	;conversion strings for the extended font
+	LONG	 ped_PrintMode	;set if text printed, otherwise 0
+;------ the following only exists if the segment version is 34 or greater
+	APTR	ped_ConvFunv	; ptr to conversion function for all chars
+	LABEL	ped_SIZEOF
+
+ STRUCTURE  PrinterSegment,0
+    ULONG   ps_NextSegment    ; (actually a BPTR)
+    ULONG   ps_runAlert	      ; MOVEQ #0,D0 : RTS
+    UWORD   ps_Version	      ; segment version
+    UWORD   ps_Revision	      ; segment revision
+    LABEL   ps_PED	      ; printer extended data
+
+	ENDC	; DEVICES_PRTBASE_I
diff --git a/includes/devices/prtgfx.i b/includes/devices/prtgfx.i
new file mode 100644
index 0000000..90f72b6
--- /dev/null
+++ b/includes/devices/prtgfx.i
@@ -0,0 +1,73 @@
+	IFND	DEVICES_PRTGFX_I
+DEVICES_PRTGFX_I	SET	1
+**
+**	$Filename: devices/prtgfx.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+PCMYELLOW	EQU	0		; byte index for yellow
+PCMMAGENTA	EQU	1		; byte index for magenta
+PCMCYAN		EQU	2		; byte index for cyan
+PCMBLACK	EQU	3		; byte index for black
+PCMBLUE		EQU	PCMYELLOW	; byte index for blue
+PCMGREEN	EQU	PCMMAGENTA	; byte index for green
+PCMRED		EQU	PCMCYAN		; byte index for red
+PCMWHITE	EQU	PCMBLACK	; byte index for white
+
+	STRUCTURE	colorEntry,0
+		LABEL	colorLong	; quick access to all of YMCB
+		LABEL	colorSByte	; 1 entry for each of YMCB
+		STRUCT	colorByte,4	; ditto (except signed)
+		LABEL	ce_SIZEOF
+		
+	STRUCTURE	PrtInfo,0
+		APTR	pi_render	; PRIVATE - DO NOT USE!
+		APTR	pi_rp		; PRIVATE - DO NOT USE!
+		APTR	pi_temprp	; PRIVATE - DO NOT USE!
+		APTR	pi_RowBuf	; PRIVATE - DO NOT USE!
+		APTR	pi_HamBuf	; PRIVATE - DO NOT USE!
+		APTR	pi_ColorMap	; PRIVATE - DO NOT USE!
+		APTR	pi_ColorInt	; color intensities for entire row
+		APTR	pi_HamInt	; PRIVATE - DO NOT USE!
+		APTR	pi_Dest1Int	; PRIVATE - DO NOT USE!
+		APTR	pi_Dest2Int	; PRIVATE - DO NOT USE!
+		APTR	pi_ScaleX	; array of scale values for X
+		APTR	pi_ScaleXAlt	; PRIVATE - DO NOT USE!
+		APTR	pi_dmatrix	; pointer to dither matrix
+		APTR	pi_TopBuf	; PRIVATE - DO NOT USE!
+		APTR	pi_BotBuf	; PRIVATE - DO NOT USE!
+
+		UWORD	pi_RowBufSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_HamBufSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_ColorMapSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_ColorIntSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_HamIntSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_Dest1IntSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_Dest2IntSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_ScaleXSize	; PRIVATE - DO NOT USE!
+		UWORD	pi_ScaleXAltSize ; PRIVATE - DO NOT USE!
+
+		UWORD	pi_PrefsFlags	; PRIVATE - DO NOT USE!
+		ULONG	pi_special	; PRIVATE - DO NOT USE!
+		UWORD	pi_xstart	; PRIVATE - DO NOT USE!
+		UWORD	pi_ystart	; PRIVATE - DO NOT USE!
+		UWORD	pi_width	; source width (in pixels)
+		UWORD	pi_height	; PRIVATE - DO NOT USE!
+		ULONG	pi_pc		; PRIVATE - DO NOT USE!
+		ULONG	pi_pr		; PRIVATE - DO NOT USE!
+		UWORD	pi_ymult	; PRIVATE - DO NOT USE!
+		UWORD	pi_ymod		; PRIVATE - DO NOT USE!
+		UWORD	pi_ety		; PRIVATE - DO NOT USE!
+		UWORD	pi_xpos		; offset to start printing from
+		UWORD	pi_threshold	; copy of threshold value (from prefs)
+		UWORD	pi_tempwidth	; PRIVATE - DO NOT USE!
+		UWORD	pi_flags	; PRIVATE - DO NOT USE!
+		LABEL	prtinfo_SIZEOF
+
+	ENDC	; DEVICES_PRTGFX_I
+
diff --git a/includes/devices/serial.i b/includes/devices/serial.i
new file mode 100644
index 0000000..da9658b
--- /dev/null
+++ b/includes/devices/serial.i
@@ -0,0 +1,168 @@
+	IFND DEVICES_SERIAL_I
+DEVICES_SERIAL_I SET 1
+**
+**	$Filename: devices/serial.i $
+**	$Release: 1.3 $
+**
+**	external declarations for the serial device
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+    IFND     EXEC_IO_I
+    include "exec/io.i"
+    ENDC	; EXEC_IO_I
+
+*--------------------------------------------------------------------
+*
+* Useful constants
+*
+*--------------------------------------------------------------------
+*
+SER_DEFAULT_CTLCHAR EQU $11130000  ; default chars for xON,xOFF
+; You may change these via SETPARAMS.  At this time, parity is not
+; calculated for xON/xOFF characters.  You must supply them with the
+; desired parity.
+
+*
+*--------------------------------------------------------------------
+*
+* Driver Specific Commands
+
+SDCMD_QUERY	EQU	CMD_NONSTD
+SDCMD_BREAK	EQU	CMD_NONSTD+1
+SDCMD_SETPARAMS EQU	CMD_NONSTD+2
+
+SER_DEVFINISH	EQU	CMD_NONSTD+2 ; number of device comands 
+
+*--------------------------------------------------------------------
+
+SERIALNAME:	MACRO
+		dc.b	'serial.device',0
+		dc.w	0
+		ENDM
+
+	BITDEF	SER,XDISABLED,7	  ; SERFLAGS xOn-xOff feature disabled bit
+	BITDEF	SER,EOFMODE,6	  ;    "     EOF mode enabled bit
+	BITDEF	SER,SHARED,5	  ;    "     non-exclusive access
+	BITDEF	SER,RAD_BOOGIE,4  ;    "     high-speed mode active
+	BITDEF	SER,QUEUEDBRK,3	  ;    "     queue this Break ioRqst
+	BITDEF	SER,7WIRE,2	  ;    "     RS232 7-wire protocol 
+	BITDEF	SER,PARTY_ODD,1	  ;    "     use-odd-parity bit
+	BITDEF	SER,PARTY_ON,0	  ;    "     parity-enabled bit 
+;
+;WARNING: The next series of BITDEFs refer to the HIGH order BYTE of
+;IO_STATUS.  Example usage: "BTST.B #IOST_XOFFWRITE,IO_STATUS+1(AX)"
+;
+	BITDEF	IOST,XOFFREAD,4	  ; IOST_HOB receive currently xOFF'ed
+	BITDEF	IOST,XOFFWRITE,3  ;	"    transmit currently xOFF'ed
+	BITDEF	IOST,READBREAK,2  ;	"    break was latest input
+	BITDEF	IOST,WROTEBREAK,1 ;	"    break was latest output
+	BITDEF	IOST,OVERRUN,0	  ;	"    status word RBF overrun
+;
+;	BITDEF's in a longword field) 
+;	Example usage: BSET.B #SEXTB_MSPON,IO_EXTFLAGS+3(AX)
+				;IO_EXTFLAGS (extended flag longword)
+	BITDEF	SEXT,MSPON,1	;     "	   use mark-space parity,not odd-even
+	BITDEF	SEXT,MARK,0	;     "	   if mark-space, use mark
+*
+*******************************************************************************
+ STRUCTURE TERMARRAY,0
+	ULONG	 TERMARRAY_0
+	ULONG	 TERMARRAY_1
+	LABEL	 TERMARRAY_SIZE
+
+*****************************************************************
+* CAUTION !!  IF YOU ACCESS the serial.device, you MUST (!!!!) use an
+* IOEXTSER-sized structure or you may overlay innocent memory, okay ?!	
+*****************************************************************
+ 
+ STRUCTURE IOEXTSER,IOSTD_SIZE
+
+*     STRUCT   MsgNode
+*   0	APTR	 Succ
+*   4	APTR	 Pred
+*   8	UBYTE	 Type
+*   9	UBYTE	 Pri
+*   A	APTR	 Name
+*   E	APTR	 ReplyPort
+*  12	UWORD	 MNLength
+*     STRUCT   IOExt
+*  14	APTR	 IO_DEVICE
+*  18	APTR	 IO_UNIT
+*  1C	UWORD	 IO_COMMAND
+*  1E	UBYTE	 IO_FLAGS
+*  1F	UBYTE	 IO_ERROR
+*     STRUCT   IOStdExt
+*  20	ULONG	 IO_ACTUAL
+*  24	ULONG	 IO_LENGTH
+*  28	APTR	 IO_DATA
+*  2C	ULONG	 IO_OFFSET
+*
+*  30
+	ULONG	IO_CTLCHAR	; control char's (order = xON,xOFF,rsvd,rsvd)
+	ULONG	IO_RBUFLEN	; length in bytes of serial port's read buffer
+	ULONG	IO_EXTFLAGS	; additional serial flags (see bitdefs above)
+	ULONG	IO_BAUD		; baud rate requested (true baud)
+	ULONG	IO_BRKTIME	; duration of break signal in MICROseconds
+	STRUCT	IO_TERMARRAY,TERMARRAY_SIZE ; termination character array
+	UBYTE	IO_READLEN	; bits per read char (bit count)
+	UBYTE	IO_WRITELEN	; bits per write char (bit count)
+	UBYTE	IO_STOPBITS	; stopbits for read (count)
+	UBYTE	IO_SERFLAGS	; see SERFLAGS bit definitions above 
+	UWORD	IO_STATUS	; status of serial port, as follows:
+*
+*		   BIT	ACTIVE	FUNCTION
+*		    0	 ---	reserved
+*		    1	 ---	reserved 
+*		    2	 high	Connected to parallel "select" on the A1000.
+*				Connected to both the parallel "select" and
+*				serial "ring indicator" pins on the A500 &
+*				A2000.	Take care when making cables.
+*		    3	 low	Data Set Ready
+*		    4	 low	Clear To Send
+*		    5	 low	Carrier Detect
+*		    6	 low	Ready To Send
+*		    7	 low	Data Terminal Ready
+*		    8	 high	read overrun
+*		    9	 high	break sent
+*		   10	 high	break received
+*		   11	 high	transmit x-OFF'ed	
+*		   12	 high	receive x-OFF'ed
+*		13-15		reserved
+*
+	LABEL	IOEXTSER_SIZE
+
+*******************************************************************************
+
+*--------------------------------------------------------------------
+*
+* Driver error definitions
+*
+*--------------------------------------------------------------------
+
+SerErr_DevBusy		EQU	1
+SerErr_BufErr		EQU	4	;Failed to allocate new read buffer
+SerErr_InvParam		EQU	5
+SerErr_LineErr		EQU	6
+SerErr_ParityErr	EQU	9
+SerErr_TimerErr		EQU    11	;(See the serial/OpenDevice autodoc)
+SerErr_BufOverflow	EQU    12
+SerErr_NoDSR		EQU    13
+SerErr_DetectedBreak	EQU    15
+
+
+ IFD	DEVICES_SERIAL_I_OBSOLETE
+SER_DBAUD		EQU	9600	;unused
+SerErr_BaudMismatch	EQU	2	;unused
+SerErr_InvBaud		EQU	3	;unused
+SerErr_NotOpen		EQU	7	;unused	   
+SerErr_PortReset	EQU	8	;unused
+SerErr_InitErr		EQU    10	;unused
+SerErr_NoCTS		EQU    14	;unused
+	BITDEF	IOSER,QUEUED,6	  ; IO_FLAGS rqst-queued bit
+	BITDEF	IOSER,ABORT,5	  ;	"    rqst-aborted bit
+	BITDEF	IOSER,ACTIVE,4	  ;	"    rqst-qued-or-current bit
+ ENDC
+
+	ENDC	; DEVICES_SERIAL_I 
diff --git a/includes/devices/timer.i b/includes/devices/timer.i
new file mode 100644
index 0000000..ee656fb
--- /dev/null
+++ b/includes/devices/timer.i
@@ -0,0 +1,41 @@
+	IFND	DEVICES_TIMER_I
+DEVICES_TIMER_I SET	1
+**
+**	$Filename: devices/timer.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND	EXEC_IO_I
+	INCLUDE "exec/io.i"
+	ENDC	; EXEC_IO_I
+
+* unit defintions
+UNIT_MICROHZ	EQU	0
+UNIT_VBLANK	EQU	1
+
+TIMERNAME	MACRO
+		DC.B	'timer.device',0
+		DS.W	0
+		ENDM
+
+ STRUCTURE TIMEVAL,0
+	ULONG	TV_SECS
+	ULONG	TV_MICRO
+	LABEL	TV_SIZE
+
+ STRUCTURE TIMEREQUEST,IO_SIZE
+	STRUCT	IOTV_TIME,TV_SIZE
+	LABEL	IOTV_SIZE
+
+* IO_COMMAND to use for adding a timer
+	DEVINIT
+	DEVCMD	TR_ADDREQUEST
+	DEVCMD	TR_GETSYSTIME
+	DEVCMD	TR_SETSYSTIME
+
+	ENDC	; DEVICES_TIMER_I
diff --git a/includes/exec/devices.i b/includes/exec/devices.i
new file mode 100644
index 0000000..6c422e0
--- /dev/null
+++ b/includes/exec/devices.i
@@ -0,0 +1,50 @@
+	IFND	EXEC_DEVICES_I
+EXEC_DEVICES_I	SET	1
+**
+**	$Filename: exec/devices.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_LIBRARIES_I
+    INCLUDE "exec/libraries.i"
+    ENDC	; EXEC_LIBRARIES_I
+
+    IFND EXEC_PORTS_I
+    INCLUDE "exec/ports.i"
+    ENDC	; EXEC_PORTS_I
+
+
+*----------------------------------------------------------------
+*
+*   Device Data Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE  DD,LIB_SIZE
+    LABEL   DD_SIZE			* identical to library
+
+
+*----------------------------------------------------------------
+*
+*   Suggested Unit Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE  UNIT,MP_SIZE		* queue for requests
+    UBYTE   UNIT_FLAGS
+    UBYTE   UNIT_pad
+    UWORD   UNIT_OPENCNT
+    LABEL   UNIT_SIZE
+
+
+*------ UNIT_FLAG definitions:
+
+    BITDEF  UNIT,ACTIVE,0		* driver is active
+    BITDEF  UNIT,INTASK,1		* running in driver's task
+
+	ENDC	; EXEC_DEVICES_I
diff --git a/includes/exec/exec.i b/includes/exec/exec.i
new file mode 100644
index 0000000..f08ab02
--- /dev/null
+++ b/includes/exec/exec.i
@@ -0,0 +1,23 @@
+	IFND	EXEC_EXEC_I
+EXEC_EXEC_I	SET	1
+**
+**	$Filename: exec/exec.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	INCLUDE "exec/nodes.i"
+	INCLUDE "exec/lists.i"
+	INCLUDE "exec/interrupts.i"
+	INCLUDE "exec/memory.i"
+	INCLUDE "exec/ports.i"
+	INCLUDE "exec/tasks.i"
+	INCLUDE "exec/libraries.i"
+	INCLUDE "exec/devices.i"
+	INCLUDE "exec/io.i"
+
+	ENDC	; EXEC_EXEC_I
diff --git a/includes/exec/interrupts.i b/includes/exec/interrupts.i
new file mode 100644
index 0000000..9f0ede4
--- /dev/null
+++ b/includes/exec/interrupts.i
@@ -0,0 +1,70 @@
+	IFND	EXEC_INTERRUPTS_I
+EXEC_INTERRUPTS_I	SET	1
+**
+**	$Filename: exec/interrupts.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_NODES_I
+    INCLUDE "exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+    IFND EXEC_LISTS_I
+    INCLUDE "exec/lists.i"
+    ENDC	; EXEC_LISTS_I
+
+
+*----------------------------------------------------------------
+*
+*   Interrupt Structure
+*
+*----------------------------------------------------------------
+	
+ STRUCTURE  IS,LN_SIZE
+    APTR    IS_DATA
+    APTR    IS_CODE
+    LABEL   IS_SIZE
+
+
+*---------------------------------------------------------------------
+*
+*   Exec Internal Interrupt Vectors
+*
+*---------------------------------------------------------------------
+
+ STRUCTURE  IV,0
+    APTR    IV_DATA
+    APTR    IV_CODE
+    APTR    IV_NODE
+    LABEL   IV_SIZE
+
+
+*------ System Flag bits (in SysBase.SysFlags )
+
+    BITDEF  S,SAR,15	    * scheduling attention required
+    BITDEF  S,TQE,14	    * time quantum expended -- time to resched
+    BITDEF  S,SINT,13
+
+
+*---------------------------------------------------------------------
+*
+*   Software Interrupt List Headers
+*
+*---------------------------------------------------------------------
+
+ STRUCTURE  SH,LH_SIZE
+    UWORD   SH_PAD
+    LABEL   SH_SIZE
+
+SIH_PRIMASK  EQU	$0F0
+SIH_QUEUES   EQU	5
+
+** this is a fake INT definition, used only for AddIntServer and the like
+	BITDEF	INT,NMI,15
+
+	ENDC	; EXEC_INTERRUPTS_I
diff --git a/includes/exec/io.i b/includes/exec/io.i
new file mode 100644
index 0000000..11dd15a
--- /dev/null
+++ b/includes/exec/io.i
@@ -0,0 +1,121 @@
+	IFND	EXEC_IO_I
+EXEC_IO_I	SET	1
+**
+**	$Filename: exec/io.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_PORTS_I
+    INCLUDE "exec/ports.i"
+    ENDC	; EXEC_PORTS_I
+
+    IFND EXEC_LIBRARIES_I
+    INCLUDE "exec/libraries.i"
+    ENDC	; EXEC_LIBRARIES_I
+
+
+*----------------------------------------------------------------
+*
+*   IO Request Structures
+*
+*----------------------------------------------------------------
+
+*------ Required portion of IO request:
+
+ STRUCTURE  IO,MN_SIZE
+    APTR    IO_DEVICE			* device node pointer
+    APTR    IO_UNIT			* unit (driver private)
+    UWORD   IO_COMMAND			* device command
+    UBYTE   IO_FLAGS			* special flags
+    BYTE    IO_ERROR			* error or warning code
+    LABEL   IO_SIZE
+
+
+*------ Standard IO request extension:
+
+    ULONG   IO_ACTUAL			* actual # of bytes transfered
+    ULONG   IO_LENGTH			* requested # of bytes transfered
+    APTR    IO_DATA			* pointer to data area
+    ULONG   IO_OFFSET			* offset for seeking devices
+    LABEL   IOSTD_SIZE
+
+
+*------ IO_FLAGS bit definitions:
+
+    BITDEF  IO,QUICK,0			* complete IO quickly
+
+
+*----------------------------------------------------------------
+*
+*   Standard Device Library Functions
+*
+*----------------------------------------------------------------
+
+	    LIBINIT
+
+	    LIBDEF  DEV_BEGINIO		* process IO request
+	    LIBDEF  DEV_ABORTIO		* abort IO request
+
+
+*----------------------------------------------------------------
+*
+*   IO Function Macros
+*
+*----------------------------------------------------------------
+
+BEGINIO	    MACRO
+	    LINKLIB DEV_BEGINIO,IO_DEVICE(A1)
+	    ENDM
+
+ABORTIO	    MACRO
+	    LINKLIB DEV_ABORTIO,IO_DEVICE(A1)
+	    ENDM
+
+
+*----------------------------------------------------------------
+*
+*   Standard Device Command Definitions
+*
+*----------------------------------------------------------------
+
+*------ Command definition macro:
+DEVINIT	    MACRO   * [baseOffset]
+	    IFC	    '\1',''
+CMD_COUNT   SET	    CMD_NONSTD
+	    ENDC
+	    IFNC    '\1',''
+CMD_COUNT   SET	    \1
+	    ENDC
+	    ENDM
+
+DEVCMD	    MACRO   * cmdname
+\1	    EQU	    CMD_COUNT
+CMD_COUNT   SET	    CMD_COUNT+1
+	    ENDM
+
+
+*------ Standard device commands:
+
+	    DEVINIT 0
+
+	    DEVCMD  CMD_INVALID		* invalid command
+	    DEVCMD  CMD_RESET		* reset as if just inited
+	    DEVCMD  CMD_READ		* standard read
+	    DEVCMD  CMD_WRITE		* standard write
+	    DEVCMD  CMD_UPDATE		* write out all buffers
+	    DEVCMD  CMD_CLEAR		* clear all buffers
+	    DEVCMD  CMD_STOP		* hold current and queued
+	    DEVCMD  CMD_START		* restart after stop
+	    DEVCMD  CMD_FLUSH		* abort entire queue
+
+
+*------ First non-standard device command value:
+
+	    DEVCMD  CMD_NONSTD
+
+	ENDC	; EXEC_IO_I
diff --git a/includes/exec/libraries.i b/includes/exec/libraries.i
new file mode 100644
index 0000000..52a2b16
--- /dev/null
+++ b/includes/exec/libraries.i
@@ -0,0 +1,121 @@
+	IFND	EXEC_LIBRARIES_I
+EXEC_LIBRARIES_I	SET	1
+**
+**	$Filename: exec/libraries.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_NODES_I
+    INCLUDE "exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+
+*------ Special Constants ---------------------------------------
+
+LIB_VECTSIZE	EQU	6
+LIB_RESERVED	EQU	4
+LIB_BASE	EQU	$FFFFFFFA	* (-LIB_VECTSIZE)
+LIB_USERDEF	EQU	LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE)
+LIB_NONSTD	EQU	LIB_USERDEF
+
+*----------------------------------------------------------------
+*
+*   Library Definition Macros
+*
+*----------------------------------------------------------------
+
+*------ LIBINIT sets base offset for library function definitions:
+
+LIBINIT	    MACRO   * [baseOffset]
+	    IFC	    '\1',''
+COUNT_LIB   SET	    LIB_USERDEF
+	    ENDC
+	    IFNC    '\1',''
+COUNT_LIB   SET	    \1
+	    ENDC
+	    ENDM
+
+
+*------ LIBDEF is used to define each library function entry:
+
+LIBDEF	    MACRO   * libraryFunctionSymbol
+\1	    EQU	    COUNT_LIB
+COUNT_LIB   SET	    COUNT_LIB-LIB_VECTSIZE
+	    ENDM
+
+
+*----------------------------------------------------------------
+*
+*   Standard Library Functions
+*
+*----------------------------------------------------------------
+
+    LIBINIT LIB_BASE
+
+    LIBDEF  LIB_OPEN
+    LIBDEF  LIB_CLOSE
+    LIBDEF  LIB_EXPUNGE
+    LIBDEF  LIB_EXTFUNC			* reserved *
+
+
+*----------------------------------------------------------------
+*
+*   Standard Library Data Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE LIB,LN_SIZE
+    UBYTE   LIB_FLAGS
+    UBYTE   LIB_pad
+    UWORD   LIB_NEGSIZE			* number of bytes before LIB
+    UWORD   LIB_POSSIZE			* number of bytes after LIB
+    UWORD   LIB_VERSION			* major
+    UWORD   LIB_REVISION		* minor
+    APTR    LIB_IDSTRING		* identification
+    ULONG   LIB_SUM			* the checksum itself
+    UWORD   LIB_OPENCNT			* number of current opens
+    LABEL   LIB_SIZE
+
+
+*------ LIB_FLAGS bit definitions:
+
+    BITDEF  LIB,SUMMING,0		* we are currently checksumming
+    BITDEF  LIB,CHANGED,1		* we have just changed the lib
+    BITDEF  LIB,SUMUSED,2		* set if we should bother to sum
+    BITDEF  LIB,DELEXP,3		* delayed expunge
+
+
+*----------------------------------------------------------------
+*
+*   Function Invocation Macros
+*
+*----------------------------------------------------------------
+
+*------ CALLLIB for calling functions where A6 is already correct:
+
+CALLLIB	    MACRO   * functionOffset
+	IFGT NARG-1
+	    FAIL    !!! CALLLIB MACRO - too many arguments !!!
+	ENDC
+	    JSR	    \1(A6)
+	    ENDM
+
+
+*------ LINKLIB for calling functions where A6 is incorrect:
+
+LINKLIB	    MACRO   * functionOffset,libraryBase
+	IFGT NARG-2
+	    FAIL    !!! LINKLIB MACRO - too many arguments !!!
+	ENDC
+	    MOVE.L  A6,-(SP)
+	    MOVE.L  \2,A6
+	    CALLLIB \1
+	    MOVE.L  (SP)+,A6
+	    ENDM
+
+	ENDC	; EXEC_LIBRARIES_I
diff --git a/includes/exec/lists.i b/includes/exec/lists.i
new file mode 100644
index 0000000..6f520a2
--- /dev/null
+++ b/includes/exec/lists.i
@@ -0,0 +1,153 @@
+	IFND	EXEC_LISTS_I
+EXEC_LISTS_I	SET	1
+**
+**	$Filename: exec/lists.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_NODES_I
+    INCLUDE "exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+
+*---------------------------------------------------------------------
+*
+*   List Structures
+*
+*---------------------------------------------------------------------
+
+; normal, full featured list
+ STRUCTURE  LH,0
+    APTR    LH_HEAD
+    APTR    LH_TAIL
+    APTR    LH_TAILPRED
+    UBYTE   LH_TYPE
+    UBYTE   LH_pad
+    LABEL   LH_SIZE
+
+; minimal list, no type checking possible
+ STRUCTURE  MLH,0
+    APTR    MLH_HEAD
+    APTR    MLH_TAIL
+    APTR    MLH_TAILPRED
+    LABEL   MLH_SIZE
+
+
+NEWLIST	    MACRO   * list
+	    MOVE.L  \1,(\1)
+	    ADDQ.L  #LH_TAIL,(\1)
+	    CLR.L   LH_TAIL(\1)
+	    MOVE.L  \1,(LH_TAIL+LN_PRED)(\1)
+	    ENDM
+
+TSTLIST	    MACRO   * [list]
+	    IFC	    '\1',''
+	    CMP.L   LH_TAIL+LN_PRED(A0),A0
+	    ENDC
+	    IFNC    '\1',''
+	    CMP.L   LH_TAIL+LN_PRED(\1),\1
+	    ENDC
+	    ENDM
+
+SUCC	    MACRO   * node,succ
+	    MOVE.L  (\1),\2
+	    ENDM
+
+PRED	    MACRO   * node,pred
+	    MOVE.L  LN_PRED(\1),\2
+	    ENDM
+
+IFEMPTY	    MACRO   * list,label
+	    CMP.L   LH_TAIL+LN_PRED(\1),\1
+	    BEQ	    \2
+	    ENDM
+
+IFNOTEMPTY  MACRO   * list,label
+	    CMP.L   LH_TAIL+LN_PRED(\1),\1
+	    BNE	    \2
+	    ENDM
+
+TSTNODE	    MACRO   * node,next
+	    MOVE.L  (\1),\2
+	    TST.L   (\2)
+	    ENDM
+
+NEXTNODE    MACRO   * next,current,exit_label (DX,AX,DISP16)
+	    MOVE.L  \1,\2
+	    MOVE.L  (\2),\1
+	    IFC	    '\0',''
+	    BEQ	    \3
+	    ENDC
+	    IFNC    '\0',''
+	    BEQ.S   \3
+	    ENDC
+	    ENDM
+
+ADDHEAD	    MACRO
+	    MOVE.L  (A0),D0
+	    MOVE.L  A1,(A0)
+	    MOVEM.L D0/A0,(A1)
+	    MOVE.L  D0,A0
+	    MOVE.L  A1,LN_PRED(A0)
+	    ENDM
+
+ADDTAIL	    MACRO
+	    LEA	    LH_TAIL(A0),A0
+	    MOVE.L  LN_PRED(A0),D0
+	    MOVE.L  A1,LN_PRED(A0)
+	    MOVE.L  A0,(A1)
+	    MOVE.L  D0,LN_PRED(A1)
+	    MOVE.L  D0,A0
+	    MOVE.L  A1,(A0)
+	    ENDM
+
+REMOVE	    MACRO
+	    MOVE.L  (A1),A0
+	    MOVE.L  LN_PRED(A1),A1
+	    MOVE.L  A0,(A1)
+	    MOVE.L  A1,LN_PRED(A0)
+	    ENDM
+
+REMHEAD	    MACRO
+	    MOVE.L  (A0),A1
+	    MOVE.L  (A1),D0
+	    BEQ.S   REMHEAD\@
+	    MOVE.L  D0,(A0)
+	    EXG.L   D0,A1
+	    MOVE.L  A0,LN_PRED(A1)
+REMHEAD\@
+	    ENDM
+
+*----------------------------------------------------------------
+*
+*  REMHEADQ -- remove-head quickly
+*
+*	Useful when a scratch register is available, and
+*	list is known to contain at least one node.
+*
+*----------------------------------------------------------------
+
+REMHEADQ    MACRO   * head,node,scratchReg
+	    MOVE.L  (\1),\2
+	    MOVE.L  (\2),\3
+	    MOVE.L  \3,(\1)
+	    MOVE.L  \1,LN_PRED(\3)
+	    ENDM
+
+REMTAIL	    MACRO
+	    MOVE.L  LH_TAIL+LN_PRED(A0),A1
+	    MOVE.L  LN_PRED(A1),D0
+	    BEQ.S   REMTAIL\@
+	    MOVE.L  D0,LH_TAIL+LN_PRED(A0)
+	    EXG.L   D0,A1
+	    MOVE.L  A0,(A1)
+	    ADDQ.L  #4,(A1)
+REMTAIL\@
+	    ENDM
+
+	ENDC	; EXEC_LISTS_I
diff --git a/includes/exec/memory.i b/includes/exec/memory.i
new file mode 100644
index 0000000..41e9ad9
--- /dev/null
+++ b/includes/exec/memory.i
@@ -0,0 +1,89 @@
+	IFND	EXEC_MEMORY_I
+EXEC_MEMORY_I	SET	1
+**
+**	$Filename: exec/memory.i $
+**	$Release: 1.3 $
+**
+**	definitions for use with the memory allocator
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND	EXEC_NODES_I
+    INCLUDE	"exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+
+*---------------------------------------------------------------------
+*
+*   Memory List Structures
+*
+*---------------------------------------------------------------------
+*
+*   A memory list appears in two forms:	 One is a requirements list*
+*   the other is a list of already allocated memory.  The format is
+*   the same, with the reqirements/address field occupying the same
+*   position.
+*
+*   The format is a linked list of ML structures each of which has
+*   an array of ME entries.
+*
+*---------------------------------------------------------------------
+
+ STRUCTURE ML,LN_SIZE
+    UWORD   ML_NUMENTRIES	    * The number of ME structures that follow
+    LABEL   ML_ME		    * where the ME structures begin
+    LABEL   ML_SIZE
+
+
+ STRUCTURE ME,0
+    LABEL   ME_REQS		    * the AllocMem requirements
+    APTR    ME_ADDR		    * the address of this block (an alias
+*				    *	for the same location as ME_REQS)
+    ULONG   ME_LENGTH		    * the length of this region
+    LABEL   ME_SIZE
+
+
+*------ memory options:
+
+    BITDEF  MEM,PUBLIC,0
+    BITDEF  MEM,CHIP,1
+    BITDEF  MEM,FAST,2
+    BITDEF  MEM,CLEAR,16
+    BITDEF  MEM,LARGEST,17
+
+
+*------ alignment rules for a memory block:
+
+MEM_BLOCKSIZE	EQU 8
+MEM_BLOCKMASK	EQU (MEM_BLOCKSIZE-1)
+
+
+*---------------------------------------------------------------------
+*
+*   Memory Region Header
+*
+*---------------------------------------------------------------------
+
+ STRUCTURE  MH,LN_SIZE
+    UWORD   MH_ATTRIBUTES	    * characteristics of this region
+    APTR    MH_FIRST		    * first free region
+    APTR    MH_LOWER		    * lower memory bound
+    APTR    MH_UPPER		    * upper memory bound+1
+    ULONG   MH_FREE		    * number of free bytes
+    LABEL   MH_SIZE
+
+
+*---------------------------------------------------------------------
+*
+*   Memory Chunk
+*
+*---------------------------------------------------------------------
+
+ STRUCTURE  MC,0
+    APTR    MC_NEXT		    * ptr to next chunk
+    ULONG   MC_BYTES		    * chunk byte size
+    LABEL   MC_SIZE
+
+	ENDC	; EXEC_MEMORY_I
diff --git a/includes/exec/nodes.i b/includes/exec/nodes.i
new file mode 100644
index 0000000..ec1e182
--- /dev/null
+++ b/includes/exec/nodes.i
@@ -0,0 +1,53 @@
+	IFND	EXEC_NODES_I
+EXEC_NODES_I	SET	1
+**
+**	$Filename: exec/nodes.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*----------------------------------------------------------------
+*
+*   List Node Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE  LN,0
+    APTR    LN_SUCC
+    APTR    LN_PRED
+    UBYTE   LN_TYPE
+    BYTE    LN_PRI
+    APTR    LN_NAME
+    LABEL   LN_SIZE
+
+; min node -- only has minimum necessary, no type checking possible
+ STRUCTURE  MLN,0
+    APTR    MLN_SUCC
+    APTR    MLN_PRED
+    LABEL   MLN_SIZE
+
+*------ Node Types:
+
+NT_UNKNOWN	EQU	0
+NT_TASK		EQU	1
+NT_INTERRUPT	EQU	2	; also for software interrupt node
+NT_DEVICE	EQU	3
+NT_MSGPORT	EQU	4
+NT_MESSAGE	EQU	5
+NT_FREEMSG	EQU	6
+NT_REPLYMSG	EQU	7
+NT_RESOURCE	EQU	8
+NT_LIBRARY	EQU	9
+NT_MEMORY	EQU	10
+NT_SOFTINT	EQU	11	; exec private
+NT_FONT		EQU	12
+NT_PROCESS	EQU	13
+NT_SEMAPHORE	EQU	14
+NT_SIGNALSEM	EQU	15	; signal semaphores
+NT_BOOTNODE	EQU	16
+
+	ENDC	; EXEC_NODES_I
diff --git a/includes/exec/ports.i b/includes/exec/ports.i
new file mode 100644
index 0000000..df1ba0b
--- /dev/null
+++ b/includes/exec/ports.i
@@ -0,0 +1,64 @@
+	IFND	EXEC_PORTS_I
+EXEC_PORTS_I	SET	1
+**
+**	$Filename: exec/ports.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_NODES_I
+    INCLUDE "exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+    IFND EXEC_LISTS_I
+    INCLUDE "exec/lists.i"
+    ENDC	; EXEC_LISTS_I
+
+
+*----------------------------------------------------------------
+*
+*   Message Port Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE  MP,LN_SIZE
+    UBYTE   MP_FLAGS
+    UBYTE   MP_SIGBIT		    * signal bit number
+    APTR    MP_SIGTASK		    * task to be signalled
+    STRUCT  MP_MSGLIST,LH_SIZE	    * message linked list
+    LABEL   MP_SIZE
+
+
+*------ unions:
+
+MP_SOFTINT	EQU  MP_SIGTASK
+
+
+*------ flags fields:
+
+PF_ACTION	EQU  3
+
+
+*------ PutMsg actions:
+
+PA_SIGNAL	EQU  0
+PA_SOFTINT	EQU  1
+PA_IGNORE	EQU  2
+
+
+*----------------------------------------------------------------
+*
+*   Message Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE  MN,LN_SIZE
+    APTR    MN_REPLYPORT	    * message reply port
+    UWORD   MN_LENGTH		    * message len in bytes
+    LABEL   MN_SIZE
+
+	ENDC	; EXEC_PORTS_I
diff --git a/includes/exec/semaphores.i b/includes/exec/semaphores.i
new file mode 100644
index 0000000..1855d50
--- /dev/null
+++ b/includes/exec/semaphores.i
@@ -0,0 +1,65 @@
+	IFND	EXEC_SEMAPHORES_I
+EXEC_SEMAPHORES_I	SET	1
+**
+**	$Filename: exec/semaphores.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_NODES_I
+    INCLUDE "exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+    IFND EXEC_LISTS_I
+    INCLUDE "exec/lists.i"
+    ENDC	; EXEC_LISTS_I
+
+    IFND EXEC_PORTS_I
+    INCLUDE "exec/ports.i"
+    ENDC	; EXEC_PORTS_I
+
+
+*----------------------------------------------------------------
+*
+*   Semaphore Structure
+*
+*----------------------------------------------------------------
+
+
+ STRUCTURE  SM,MP_SIZE
+    WORD    SM_BIDS	      * number of bids for lock
+    LABEL   SM_SIZE
+
+
+*------ unions:
+
+SM_LOCKMSG    EQU  MP_SIGTASK
+
+
+*----------------------------------------------------------------
+*
+*   Signal Semaphore Structure
+*
+*----------------------------------------------------------------
+
+* this is the structure used to request a signal semaphore -- allocated
+* on the fly by ObtainSemaphore()
+ STRUCTURE  SSR,MLN_SIZE
+    APTR    SSR_WAITER
+    LABEL   SSR_SIZE
+
+
+* this is the actual semaphore itself -- allocated statically
+ STRUCTURE  SS,LN_SIZE
+    SHORT   SS_NESTCOUNT
+    STRUCT  SS_WAITQUEUE,MLH_SIZE
+    STRUCT  SS_MULTIPLELINK,SSR_SIZE
+    APTR    SS_OWNER
+    SHORT   SS_QUEUECOUNT
+    LABEL   SS_SIZE
+
+	ENDC	; EXEC_SEMAPHORES_I
diff --git a/includes/exec/tasks.i b/includes/exec/tasks.i
new file mode 100644
index 0000000..f3feeb7
--- /dev/null
+++ b/includes/exec/tasks.i
@@ -0,0 +1,90 @@
+	IFND	EXEC_TASKS_I
+EXEC_TASKS_I	SET	1
+**
+**	$Filename: exec/tasks.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_NODES_I
+    INCLUDE "exec/nodes.i"
+    ENDC	; EXEC_NODES_I
+
+    IFND EXEC_LISTS_I
+    INCLUDE "exec/lists.i"
+    ENDC	; EXEC_LISTS_I
+
+
+*----------------------------------------------------------------
+*
+*   Task Control Structure
+*
+*----------------------------------------------------------------
+
+ STRUCTURE  TC,LN_SIZE
+    UBYTE   TC_FLAGS
+    UBYTE   TC_STATE
+    BYTE    TC_IDNESTCNT	    * intr disabled nesting
+    BYTE    TC_TDNESTCNT	    * task disabled nesting
+    ULONG   TC_SIGALLOC		    * sigs allocated
+    ULONG   TC_SIGWAIT		    * sigs we are waiting for
+    ULONG   TC_SIGRECVD		    * sigs we have received
+    ULONG   TC_SIGEXCEPT	    * sigs we take as exceptions
+    UWORD   TC_TRAPALLOC	    * traps allocated
+    UWORD   TC_TRAPABLE		    * traps enabled
+    APTR    TC_EXCEPTDATA	    * data for except proc
+    APTR    TC_EXCEPTCODE	    * exception procedure
+    APTR    TC_TRAPDATA		    * data for proc trap proc
+    APTR    TC_TRAPCODE		    * proc trap procedure
+    APTR    TC_SPREG		    * stack pointer
+    APTR    TC_SPLOWER		    * stack lower bound
+    APTR    TC_SPUPPER		    * stack upper bound + 2
+    APTR    TC_SWITCH		    * task losing CPU
+    APTR    TC_LAUNCH		    * task getting CPU
+    STRUCT  TC_MEMENTRY,LH_SIZE	    * allocated memory
+    APTR    TC_Userdata
+    LABEL   TC_SIZE
+
+
+*------ Flag Bits:
+
+    BITDEF  T,PROCTIME,0
+    BITDEF  T,STACKCHK,4
+    BITDEF  T,EXCEPT,5
+    BITDEF  T,SWITCH,6
+    BITDEF  T,LAUNCH,7
+
+
+*------ Task States:
+TS_INVALID  EQU	    0
+TS_ADDED    EQU	    TS_INVALID+1
+TS_RUN	    EQU	    TS_ADDED+1
+TS_READY    EQU	    TS_RUN+1
+TS_WAIT	    EQU	    TS_READY+1
+TS_EXCEPT   EQU	    TS_WAIT+1
+TS_REMOVED  EQU	    TS_EXCEPT+1
+
+
+*------ System Task Signals:
+
+SIGF_ABORT	EQU	$0001
+SIGF_CHILD	EQU	$0002
+SIGF_BLIT	EQU	$0010
+SIGF_SINGLE	EQU	$0010
+SIGF_DOS	EQU	$0100
+
+SIGB_ABORT	EQU	0
+SIGB_CHILD	EQU	1
+SIGB_BLIT	EQU	4
+SIGB_SINGLE	EQU	4
+SIGB_DOS	EQU	8
+
+
+SYS_SIGALLOC	EQU	$0FFFF		; pre-allocated signals
+SYS_TRAPALLOC	EQU	$08000		; pre-allocated traps
+
+	ENDC	; EXEC_TASKS_I
diff --git a/includes/exec/types.i b/includes/exec/types.i
new file mode 100644
index 0000000..0c026cd
--- /dev/null
+++ b/includes/exec/types.i
@@ -0,0 +1,120 @@
+	IFND	EXEC_TYPES_I
+EXEC_TYPES_I	SET	1
+**
+**	$Filename: exec/types.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+EXTERN_LIB  MACRO
+	    XREF    _LVO\1
+	    ENDM
+
+STRUCTURE   MACRO
+\1	    EQU	    0			* for assembler's sake
+SOFFSET	    SET	    \2
+	    ENDM
+
+BOOL	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+2
+	    ENDM
+
+BYTE	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+1
+	    ENDM
+
+UBYTE	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+1
+	    ENDM
+
+WORD	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+2
+	    ENDM
+
+UWORD	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+2
+	    ENDM
+
+SHORT	     MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+2
+	    ENDM
+
+USHORT	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+2
+	    ENDM
+
+LONG	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+4
+	    ENDM
+
+ULONG	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+4
+	    ENDM
+
+FLOAT	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+4
+	    ENDM
+
+APTR	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+4
+	    ENDM
+
+CPTR	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+4
+	    ENDM
+
+RPTR	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+2
+	    ENDM
+
+STRUCT	    MACRO
+\1	    EQU	    SOFFSET
+SOFFSET	    SET	    SOFFSET+\2
+	    ENDM
+
+LABEL	    MACRO
+\1	    EQU	    SOFFSET
+	    ENDM
+
+*------ bit definition macro ------------------------------------
+*
+*   Given:
+*
+*	BITDEF	MEM,CLEAR,16
+*
+*  Yields:
+*
+*	MEMB_CLEAR  EQU 16
+*	MEMF_CLEAR  EQU (1.SL.MEMB_CLEAR)
+*
+
+BITDEF	    MACRO   * prefix,&name,&bitnum
+	    BITDEF0 \1,\2,B_,\3
+\@BITDEF    SET	    1<<\3
+	    BITDEF0 \1,\2,F_,\@BITDEF
+	    ENDM
+
+BITDEF0	    MACRO   * prefix,&name,&type,&value
+\1\3\2	    EQU	    \4
+	    ENDM
+
+LIBRARY_VERSION EQU	34
+
+	ENDC	; EXEC_TYPES_I
diff --git a/includes/graphics/clip.i b/includes/graphics/clip.i
new file mode 100644
index 0000000..3881f79
--- /dev/null
+++ b/includes/graphics/clip.i
@@ -0,0 +1,88 @@
+	IFND	GRAPHICS_CLIP_I
+GRAPHICS_CLIP_I SET	1
+**
+**	$Filename: graphics/clip.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND    GRAPHICS_GFX_I
+    include "graphics/gfx.i"
+    ENDC
+	IFND	EXEC_SEMAPHORES_I
+	include "exec/semaphores.i"
+	ENDC
+
+NEWLOCKS	equ	1
+
+ STRUCTURE  Layer,0
+    LONG    lr_front
+    LONG    lr_back
+    LONG    lr_ClipRect
+    LONG    lr_rp
+    WORD    lr_MinX
+    WORD    lr_MinY
+    WORD    lr_MaxX
+    WORD    lr_MaxY
+	STRUCT	lr_reserved,4
+	WORD	lr_priority
+    WORD    lr_Flags
+    LONG    lr_SuperBitMap
+    LONG    lr_SuperClipRect
+    APTR    lr_Window
+    WORD    lr_Scroll_X
+    WORD    lr_Scroll_Y
+    APTR    lr_cr
+    APTR    lr_cr2
+    APTR    lr_crnew
+    APTR    lr_SuperSaverClipRects
+    APTR    lr__cliprects
+    APTR    lr_LayerInfo
+*			just by lucky coincidence
+*			this is not confused with simplesprites
+	STRUCT	lr_Lock,SS_SIZE
+	STRUCT	lr_reserved3,8
+	APTR	lr_ClipRegion
+	APTR	lr_saveClipRects
+	STRUCT	lr_reserved2,22
+    APTR    lr_DamageList
+    LABEL   lr_SIZEOF
+
+ STRUCTURE  ClipRect,0
+    LONG    cr_Next
+    LONG    cr_prev
+    LONG    cr_lobs
+    LONG    cr_BitMap
+    WORD    cr_MinX
+    WORD    cr_MinY
+    WORD    cr_MaxX
+    WORD    cr_MaxY
+    APTR    cr__p1
+    APTR    cr__p2
+    LONG    cr_reserved
+    LONG    cr_Flags
+ LABEL	    cr_SIZEOF
+
+* internal cliprect flags
+CR_NEEDS_NO_CONCEALED_RASTERS	equ	1
+
+* defines for clipping
+ISLESSX equ 1
+ISLESSY equ 2
+ISGRTRX equ 4
+ISGRTRY equ 8
+
+* for ancient history reasons
+	IFND	lr_Front
+lr_Front	equ lr_front
+lr_Back		equ lr_back
+lr_RastPort	equ	lr_rp
+cr_Prev		equ cr_prev
+cr_LObs		equ	cr_lobs
+	ENDC
+
+	ENDC	; GRAPHICS_CLIP_I
diff --git a/includes/graphics/copper.i b/includes/graphics/copper.i
new file mode 100644
index 0000000..5df8f73
--- /dev/null
+++ b/includes/graphics/copper.i
@@ -0,0 +1,63 @@
+	IFND	GRAPHICS_COPPER_I
+GRAPHICS_COPPER_I	SET	1
+**
+**	$Filename: graphics/copper.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+COPPER_MOVE equ 0	/* pseude opcode for move #XXXX,dir */
+COPPER_WAIT equ 1	 /* pseudo opcode for wait y,x */
+CPRNXTBUF   equ 2	/* continue processing with next buffer */
+CPR_NT_LOF  equ $8000  /* copper instruction only for short frames */
+CPR_NT_SHT  equ $4000	/* copper instruction only for long frames */
+
+   STRUCTURE   CopIns,0
+      WORD  ci_OpCode	   * 0 = move, 1 = wait */
+      STRUCT   ci_nxtlist,0   * UNION
+      STRUCT   ci_VWaitPos,0
+      STRUCT   ci_DestAddr,2
+
+      STRUCT   ci_HWaitPos,0
+      STRUCT   ci_DestData,2
+
+   LABEL ci_SIZEOF
+
+* structure of cprlist that points to list that hardware actually executes */
+   STRUCTURE   cprlist,0
+      APTR  crl_Next
+      APTR  crl_start
+      WORD  crl_MaxCount
+   LABEL crl_SIZEOF
+
+   STRUCTURE   CopList,0
+      APTR  cl_Next  /* next block for this copper list */
+      APTR  cl__CopList	 /* system use */
+      APTR  cl__ViewPort /* system use */
+      APTR  cl_CopIns /* start of this block */
+      APTR  cl_CopPtr /* intermediate ptr */
+      APTR  cl_CopLStart   /* mrgcop fills this in for Long Frame*/
+      APTR  cl_CopSStart   /* mrgcop fills this in for Short Frame*/
+      WORD  cl_Count	   /* intermediate counter */
+      WORD  cl_MaxCount	  /* max # of copins for this block */
+      WORD  cl_DyOffset	   /* offset this copper list vertical waits */
+   LABEL cl_SIZEOF
+
+   STRUCTURE   UCopList,0
+      APTR     ucl_Next
+      APTR     ucl_FirstCopList /* head node of this copper list */
+      APTR     ucl_CopList /* node in use */
+   LABEL ucl_SIZEOF
+
+*  private graphics data structure
+   STRUCTURE   copinit,0
+      STRUCT   copinit_diagstrt,8
+      STRUCT   copinit_sprstrtup,2*((2*8*2)+2+(2*2)+2)
+      STRUCT   copinit_sprstop,4
+   LABEL copinit_SIZEOF
+
+	ENDC	; GRAPHICS_COPPER_I
diff --git a/includes/graphics/gfx.i b/includes/graphics/gfx.i
new file mode 100644
index 0000000..9b1b254
--- /dev/null
+++ b/includes/graphics/gfx.i
@@ -0,0 +1,34 @@
+	IFND	GRAPHICS_GFX_I
+GRAPHICS_GFX_I	SET	1
+**
+**	$Filename: graphics/gfx.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+BITSET	    equ $8000
+BITCLR	    equ 0
+AGNUS	    equ 1
+DENISE	    equ 1
+
+    STRUCTURE	BitMap,0
+    WORD    bm_BytesPerRow
+    WORD    bm_Rows
+    BYTE    bm_Flags
+    BYTE    bm_Depth
+    WORD    bm_Pad
+    STRUCT  bm_Planes,8*4
+    LABEL   bm_SIZEOF
+
+   STRUCTURE   Rectangle,0
+      WORD  ra_MinX
+      WORD  ra_MinY
+      WORD  ra_MaxX
+      WORD  ra_MaxY
+   LABEL    ra_SIZEOF
+
+	ENDC	; GRAPHICS_GFX_I
diff --git a/includes/graphics/layers.i b/includes/graphics/layers.i
new file mode 100644
index 0000000..adb66bd
--- /dev/null
+++ b/includes/graphics/layers.i
@@ -0,0 +1,51 @@
+	IFND	GRAPHICS_LAYERS_I
+GRAPHICS_LAYERS_I	SET	1
+**
+**	$Filename: graphics/layers.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND    EXEC_SEMAPHORES_I
+       include "exec/semaphores.i"
+    ENDC
+
+    IFND  EXEC_LISTS_I
+       include	"exec/lists.i"
+    ENDC
+
+* these should be clip.i/h but you know backwards compatibility etc.
+LAYERSIMPLE		equ   1
+LAYERSMART		equ   2	 
+LAYERSUPER		equ   4
+LAYERUPDATING		equ   $10
+LAYERBACKDROP		equ   $40
+LAYERREFRESH		equ   $80
+LAYER_CLIPRECTS_LOST	equ   $100 
+
+LMN_REGION  equ -1
+
+    STRUCTURE  Layer_Info,0
+    APTR       li_top_layer
+    APTR       li_check_lp
+    APTR       li_obs
+    STRUCT     li_FreeClipRects,MLH_SIZE
+    STRUCT     li_Lock,SS_SIZE
+	STRUCT	   li_gs_Head,LH_SIZE
+	LONG		li_long_reserved
+	WORD	   li_Flags
+    BYTE       li_fatten_count
+	BYTE	   li_LockLayersCount
+    WORD       li_LayerInfo_extra_size
+	APTR		li_blitbuff
+    APTR       li_LayerInfo_extra
+    LABEL      li_SIZEOF
+
+NEWLAYERINFO_CALLED	equ 1
+ALERTLAYERSNOMEM	equ $83010000
+
+	ENDC	; GRAPHICS_LAYERS_I
diff --git a/includes/graphics/rastport.i b/includes/graphics/rastport.i
new file mode 100644
index 0000000..a197db0
--- /dev/null
+++ b/includes/graphics/rastport.i
@@ -0,0 +1,115 @@
+	IFND	GRAPHICS_RASTPORT_I
+GRAPHICS_RASTPORT_I	SET	1
+**
+**	$Filename: graphics/rastport.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND    GRAPHICS_GFX_I
+       include "graphics/gfx.i"
+    ENDC
+
+*------ TR : TmpRas --------------------------------------------------
+
+ STRUCTURE  TmpRas,0
+   APTR	    tr_RasPtr	      ; *WORD
+   LONG	    tr_Size
+   LABEL    tr_SIZEOF
+
+*------ GelsInfo
+
+   STRUCTURE   GelsInfo,0
+   BYTE	    gi_sprRsrvd	      * flag of which sprites to reserve from
+*			      * vsprite system
+   BYTE	    gi_Flags	      * reserved for system use
+   APTR	    gi_gelHead
+   APTR	    gi_gelTail	      * dummy vSprites for list management 
+* pointer to array of 8 WORDS for sprite available lines 
+   APTR	    gi_nextLine
+* pointer to array of 8 pointers for color-last-assigned to vSprites 
+   APTR	    gi_lastColor
+   APTR	    gi_collHandler    * addresses of collision routines 
+   SHORT    gi_leftmost
+   SHORT    gi_rightmost
+   SHORT    gi_topmost
+   SHORT    gi_bottommost
+   APTR	    gi_firstBlissObj
+   APTR	    gi_lastBlissObj   * system use only 
+   LABEL    gi_SIZEOF
+
+*------ RP_Flags ------
+   BITDEF   RP,FRST_DOT,0     ; draw the first dot of this line ?
+   BITDEF   RP,ONE_DOT,1      ; use one dot mode for drawing lines
+   BITDEF   RP,DBUFFER,2      ; flag set when RastPorts are double-buffered
+*			      ;	  (only used for bobs)
+   BITDEF   RP,AREAOUTLINE,3  ; used by areafiller
+   BITDEF   RP,NOCROSSFILL,5  ; used by areafiller
+
+*------ RP_DrawMode ------
+RP_JAM1	       EQU 0
+RP_JAM2	       EQU 1
+RP_COMPLEMENT  EQU 2
+RP_INVERSVID   EQU 4	      ; inverse video for drawing modes
+
+*------ RP_TxFlags ------
+   BITDEF  RP,TXSCALE,0
+
+ STRUCTURE  RastPort,0
+   LONG	    rp_Layer
+   LONG	    rp_BitMap
+   LONG	    rp_AreaPtrn
+   LONG	    rp_TmpRas
+   LONG	    rp_AreaInfo
+   LONG	    rp_GelsInfo
+   BYTE	    rp_Mask
+   BYTE	    rp_FgPen
+   BYTE	    rp_BgPen
+   BYTE	    rp_AOLPen
+   BYTE	    rp_DrawMode
+   BYTE	    rp_AreaPtSz
+   BYTE	    rp_Dummy
+   BYTE	    rp_linpatcnt
+   WORD	    rp_Flags
+   WORD	    rp_LinePtrn
+   WORD	    rp_cp_x
+   WORD	    rp_cp_y
+   STRUCT   rp_minterms,8
+   WORD	    rp_PenWidth
+   WORD	    rp_PenHeight
+   LONG	    rp_Font
+   BYTE	    rp_AlgoStyle
+   BYTE	    rp_TxFlags
+   WORD	    rp_TxHeight
+   WORD	    rp_TxWidth
+   WORD	    rp_TxBaseline
+   WORD	    rp_TxSpacing
+   APTR	    rp_RP_User
+   STRUCT   rp_longreserved,8
+	ifnd	GFX_RASTPORT_1_2
+   STRUCT   rp_wordreserved,14
+   STRUCT   rp_reserved,8
+	endc
+   LABEL    rp_SIZEOF
+
+ STRUCTURE  AreaInfo,0
+   LONG	    ai_VctrTbl
+   LONG	    ai_VctrPtr
+   LONG	    ai_FlagTbl
+   LONG	    ai_FlagPtr
+   WORD	    ai_Count
+   WORD	    ai_MaxCount
+   WORD	    ai_FirstX
+   WORD	    ai_FirstY
+   LABEL    ai_SIZEOF
+
+ONE_DOTn    equ	    1
+ONE_DOT	    equ	    $2	    * 1<<ONE_DOTn
+FRST_DOTn   equ	    0
+FRST_DOT    equ	    1	    * 1<<FRST_DOTn
+
+	ENDC	; GRAPHICS_RASTPORT_I
diff --git a/includes/graphics/text.i b/includes/graphics/text.i
new file mode 100644
index 0000000..1f9b2cb
--- /dev/null
+++ b/includes/graphics/text.i
@@ -0,0 +1,67 @@
+	IFND	GRAPHICS_TEXT_I
+GRAPHICS_TEXT_I SET	1
+**
+**	$Filename: graphics/text.i $
+**	$Release: 1.3 $
+**
+**	graphics library text structures 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+   
+   IFND	    EXEC_PORTS_I
+   INCLUDE  "exec/ports.i"
+   ENDC
+
+*------ Font Styles --------------------------------------------------
+FS_NORMAL   EQU 0	      ;normal text (no style attributes set)
+   BITDEF   FS,EXTENDED,3     ;extended face (must be designed)
+   BITDEF   FS,ITALIC,2	      ;italic (slanted 1:2 right)
+   BITDEF   FS,BOLD,1	      ;bold face text (ORed w/ shifted right 1)
+   BITDEF   FS,UNDERLINED,0   ;underlined (under baseline)
+
+*------ Font Flags ---------------------------------------------------
+   BITDEF   FP,ROMFONT,0      ;font is in rom
+   BITDEF   FP,DISKFONT,1     ;font is from diskfont.library
+   BITDEF   FP,REVPATH,2      ;designed path is reversed (e.g. left)
+   BITDEF   FP,TALLDOT,3      ;designed for hires non-interlaced
+   BITDEF   FP,WIDEDOT,4      ;designed for lores interlaced
+   BITDEF   FP,PROPORTIONAL,5 ;character sizes can vary from nominal
+   BITDEF   FP,DESIGNED,6     ;size is "designed", not constructed
+   BITDEF   FP,REMOVED,7      ; the font has been removed
+
+
+******* TextAttr node ************************************************
+ STRUCTURE  TextAttr,0
+   APTR	    ta_Name	      ;name of the desired font
+   UWORD    ta_YSize	      ;size of the desired font
+   UBYTE    ta_Style	      ;desired font style
+   UBYTE    ta_Flags	      ;font preferences
+   LABEL    ta_SIZEOF
+
+
+******* TextFont node ************************************************
+ STRUCTURE  TextFont,MN_SIZE
+*			      ;font name in LN	      \ used in this
+   UWORD    tf_YSize	      ;font height	      | order to best
+   UBYTE    tf_Style	      ;font style	      | match a font
+   UBYTE    tf_Flags	      ;preference attributes  / request.
+   UWORD    tf_XSize	      ;nominal font width
+   UWORD    tf_Baseline	      ;distance from the top of char to baseline
+   UWORD    tf_BoldSmear      ;smear to affect a bold enhancement
+
+   UWORD    tf_Accessors      ;access count
+
+   UBYTE    tf_LoChar	      ;the first character described here
+   UBYTE    tf_HiChar	      ;the last character described here
+   APTR	    tf_CharData	      ;the bit character data
+
+   UWORD    tf_Modulo	      ;the row modulo for the strike font data
+   APTR	    tf_CharLoc	      ;ptr to location data for the strike font
+*	    ;  2 words: bit offset then size
+   APTR	    tf_CharSpace      ;ptr to words of proportional spacing data
+   APTR	    tf_CharKern	      ;ptr to words of kerning data
+   LABEL    tf_SIZEOF
+
+	ENDC	; GRAPHICS_TEXT_I
diff --git a/includes/graphics/view.i b/includes/graphics/view.i
new file mode 100644
index 0000000..968817b
--- /dev/null
+++ b/includes/graphics/view.i
@@ -0,0 +1,77 @@
+	IFND	GRAPHICS_VIEW_I
+GRAPHICS_VIEW_I SET	1
+**
+**	$Filename: graphics/view.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND    GRAPHICS_GFX_I
+    include "graphics/gfx.i"
+    ENDC
+
+    IFND    GRAPHICS_COPPER_I
+    include "graphics/copper.i"
+    ENDC
+
+V_PFBA	    EQU	    $40
+V_DUALPF    EQU	    $400
+V_HIRES	    EQU	    $8000
+V_LACE	    EQU	    4
+V_HAM	    EQU	    $800
+V_SPRITES   EQU	    $4000
+GENLOCK_VIDEO	EQU 2
+
+   STRUCTURE   ColorMap,0
+      BYTE  cm_Flags
+      BYTE  cm_Type
+      WORD  cm_Count
+      APTR  cm_ColorTable
+   LABEL cm_SIZEOF
+
+
+   STRUCTURE	  ViewPort,0
+   LONG	   vp_Next
+   LONG	   vp_ColorMap
+   LONG	   vp_DspIns
+   LONG	   vp_SprIns
+   LONG	   vp_ClrIns
+   LONG	   vp_UCopIns
+   WORD	   vp_DWidth
+   WORD	   vp_DHeight
+   WORD	   vp_DxOffset
+   WORD	   vp_DyOffset
+   WORD	   vp_Modes
+   BYTE	   vp_SpritePriorities
+   BYTE	   vp_reserved
+   APTR	   vp_RasInfo
+   LABEL   vp_SIZEOF
+
+
+   STRUCTURE View,0
+   LONG	   v_ViewPort
+   LONG	   v_LOFCprList
+   LONG	   v_SHFCprList
+   WORD	   v_DyOffset
+   WORD	   v_DxOffset
+   WORD	   v_Modes
+   LABEL   v_SIZEOF
+
+
+   STRUCTURE  collTable,0
+   LONG	   cp_collPtrs,16
+   LABEL   cp_SIZEOF
+
+
+   STRUCTURE  RasInfo,0
+   APTR	   ri_Next
+   LONG	   ri_BitMap
+   WORD	   ri_RxOffset
+   WORD	   ri_RyOffset
+   LABEL   ri_SIZEOF
+
+	ENDC	; GRAPHICS_VIEW_I
diff --git a/includes/hardware/intbits.i b/includes/hardware/intbits.i
new file mode 100644
index 0000000..e0b9599
--- /dev/null
+++ b/includes/hardware/intbits.i
@@ -0,0 +1,51 @@
+	IFND	HARDWARE_INTBITS_I
+HARDWARE_INTBITS_I	SET	1
+**
+**	$Filename: hardware/intbits.i $
+**	$Release: 1.3 $
+**
+**	bits in the interrupt enable (and interrupt request) register 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+INTB_SETCLR    EQU   (15)  ;Set/Clear control bit. Determines if bits
+			   ;written with a 1 get set or cleared. Bits
+			   ;written with a zero are allways unchanged.
+INTB_INTEN     EQU   (14)  ;Master interrupt (enable only )
+INTB_EXTER     EQU   (13)  ;External interrupt
+INTB_DSKSYNC   EQU   (12)  ;Disk re-SYNChronized
+INTB_RBF       EQU   (11)  ;serial port Receive Buffer Full
+INTB_AUD3      EQU   (10)  ;Audio channel 3 block finished
+INTB_AUD2      EQU   (9)   ;Audio channel 2 block finished
+INTB_AUD1      EQU   (8)   ;Audio channel 1 block finished
+INTB_AUD0      EQU   (7)   ;Audio channel 0 block finished
+INTB_BLIT      EQU   (6)   ;Blitter finished
+INTB_VERTB     EQU   (5)   ;start of Vertical Blank
+INTB_COPER     EQU   (4)   ;Coprocessor
+INTB_PORTS     EQU   (3)   ;I/O Ports and timers
+INTB_SOFTINT   EQU   (2)   ;software interrupt request
+INTB_DSKBLK    EQU   (1)   ;Disk Block done
+INTB_TBE       EQU   (0)   ;serial port Transmit Buffer Empty
+
+
+
+INTF_SETCLR    EQU   (1<<15)
+INTF_INTEN     EQU   (1<<14)
+INTF_EXTER     EQU   (1<<13)
+INTF_DSKSYNC   EQU   (1<<12)
+INTF_RBF       EQU   (1<<11)
+INTF_AUD3      EQU   (1<<10)
+INTF_AUD2      EQU   (1<<9)
+INTF_AUD1      EQU   (1<<8)
+INTF_AUD0      EQU   (1<<7)
+INTF_BLIT      EQU   (1<<6)
+INTF_VERTB     EQU   (1<<5)
+INTF_COPER     EQU   (1<<4)
+INTF_PORTS     EQU   (1<<3)
+INTF_SOFTINT   EQU   (1<<2)
+INTF_DSKBLK    EQU   (1<<1)
+INTF_TBE       EQU   (1<<0)
+
+	ENDC	; HARDWARE_INTBITS_I
diff --git a/includes/intuition/intuition.i b/includes/intuition/intuition.i
new file mode 100644
index 0000000..58abd80
--- /dev/null
+++ b/includes/intuition/intuition.i
@@ -0,0 +1,1009 @@
+	IFND	INTUITION_INTUITION_I
+INTUITION_INTUITION_I	SET	1
+**
+**	$Filename: intuition/intuition.i $
+**	$Release: 1.3 $
+**
+**	main intuition include 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC
+
+	IFND	GRAPHICS_GFX_I
+	include "graphics/gfx.i"
+	ENDC
+
+	IFND	GRAPHICS_CLIP_I
+	include "graphics/clip.i"
+	ENDC
+
+	IFND	GRAPHICS_VIEW_I
+	include "graphics/view.i"
+	ENDC
+
+	IFND	GRAPHICS_RASTPORT_I
+	include "graphics/rastport.i"
+	ENDC
+
+	IFND	GRAPHICS_LAYERS_I
+	include "graphics/layers.i"
+	ENDC
+
+	IFND	GRAPHICS_TEXT_I
+	include "graphics/text.i"
+	ENDC
+
+	IFND EXEC_PORTS_I
+	include "exec/ports.i"
+	ENDC
+
+	IFND	DEVICES_TIMER_I
+	include "devices/timer.i"
+	ENDC
+
+	IFND	DEVICES_INPUTEVENT_I
+	include "devices/inputevent.i"
+	ENDC
+
+
+; ========================================================================;
+; === Menu ===============================================================;
+; ========================================================================;
+ STRUCTURE Menu,0
+
+    APTR  mu_NextMenu	; menu pointer, same level
+    WORD mu_LeftEdge	; position of the select box
+    WORD mu_TopEdge	; position of the select box
+    WORD mu_Width	; dimensions of the select box
+    WORD mu_Height	; dimensions of the select box
+    WORD mu_Flags	; see flag definitions below
+    APTR mu_MenuName	; text for this Menu Header
+    APTR  mu_FirstItem	; pointer to first in chain
+
+    ; these mysteriously-named variables are for internal use only
+    WORD mu_JazzX
+    WORD mu_JazzY
+    WORD mu_BeatX
+    WORD mu_BeatY
+
+    LABEL mu_SIZEOF
+
+;*** FLAGS SET BY BOTH THE APPLIPROG AND INTUITION ***
+MENUENABLED EQU $0001	; whether or not this menu is enabled
+
+;*** FLAGS SET BY INTUITION ***
+MIDRAWN EQU $0100	; this menu's items are currently drawn
+
+; ========================================================================;
+; === MenuItem ===========================================================;
+; ========================================================================;
+ STRUCTURE MenuItem,0
+
+    APTR mi_NextItem	; pointer to next in chained list
+    WORD mi_LeftEdge	; position of the select box
+    WORD mi_TopEdge	; position of the select box
+    WORD mi_Width	; dimensions of the select box
+    WORD mi_Height	; dimensions of the select box
+    WORD mi_Flags	; see the defines below
+
+    LONG mi_MutualExclude ; set bits mean this item excludes that item
+
+    APTR mi_ItemFill	; points to Image, IntuiText, or NULL
+
+    ; when this item is pointed to by the cursor and the items highlight
+    ; mode HIGHIMAGE is selected, this alternate image will be displayed
+    APTR mi_SelectFill	; points to Image, IntuiText, or NULL
+
+    BYTE mi_Command	; only if appliprog sets the COMMSEQ flag
+
+    BYTE mi_KludgeFill00 ; This is strictly for word-alignment
+
+    APTR mi_SubItem	; if non-zero, DrawMenu shows "->"
+
+   ; The NextSelect field represents the menu number of next selected 
+   ; item (when user has drag-selected several items)
+    WORD mi_NextSelect
+
+    LABEL  mi_SIZEOF
+
+; --- FLAGS SET BY THE APPLIPROG --------------------------------------------
+CHECKIT		EQU $0001	; whether to check this item if selected
+ITEMTEXT	EQU $0002	; set if textual, clear if graphical item
+COMMSEQ		EQU $0004	; set if there's an command sequence
+MENUTOGGLE	EQU $0008	; set to toggle the check of a menu item 
+ITEMENABLED	EQU $0010	; set if this item is enabled
+
+; these are the SPECIAL HIGHLIGHT FLAG state meanings 
+HIGHFLAGS	EQU $00C0	; see definitions below for these bits
+HIGHIMAGE	EQU $0000	; use the user's "select image"
+HIGHCOMP	EQU $0040	; highlight by complementing the select box
+HIGHBOX		EQU $0080	; highlight by drawing a box around the image
+HIGHNONE	EQU $00C0	; don't highlight
+
+; --- FLAGS SET BY BOTH APPLIPROG AND INTUITION -----------------------------
+CHECKED		EQU $0100	; if CHECKIT, then set this when selected
+
+
+; --- FLAGS SET BY INTUITION ------------------------------------------------
+ISDRAWN		EQU $1000	; this item's subs are currently drawn
+HIGHITEM	EQU $2000	; this item is currently highlighted
+MENUTOGGLED	EQU $4000	; this item was already toggled 
+
+
+
+
+
+
+; ========================================================================
+; === Requester ==========================================================
+; ========================================================================
+ STRUCTURE Requester,0
+
+    ; the ClipRect and BitMap and used for rendering the requester
+    APTR  rq_OlderRequest
+    WORD rq_LeftEdge		; dimensions of the entire box
+    WORD rq_TopEdge		; dimensions of the entire box
+    WORD rq_Width		; dimensions of the entire box
+    WORD rq_Height		; dimensions of the entire box
+
+    WORD rq_RelLeft		; get POINTREL Pointer relativity offsets
+    WORD rq_RelTop		; get POINTREL Pointer relativity offsets
+
+    APTR  rq_ReqGadget		; pointer to the first of a list of gadgets
+    APTR  rq_ReqBorder		; the box's border
+    APTR  rq_ReqText		; the box's text
+
+    WORD  rq_Flags		; see definitions below
+
+    UBYTE rq_BackFill		; pen number for back-plane fill before draws
+
+    BYTE rq_KludgeFill00	; This is strictly for word-alignment
+
+    APTR rq_ReqLayer		; layer in which requester rendered
+    STRUCT rq_ReqPad1,32	; for backwards compatibility (reserved)
+
+    ; If the BitMap plane pointers are non-zero, this tells the system 
+    ; that the image comes pre-drawn (if the appliprog wants to define 
+    ; it's own box, in any shape or size it wants!); this is OK by 
+    ; Intuition as long as there's a good correspondence between the image 
+    ; and the specified Gadgets
+    APTR  rq_ImageBMap		; points to the BitMap of PREDRAWN imagery
+
+    APTR  rq_RWindow		; points back to requester's window
+    STRUCT rq_ReqPad2,36	; for backwards compatibility (reserved)
+
+    LABEL rq_SIZEOF
+
+; FLAGS SET BY THE APPLIPROG
+POINTREL	EQU $0001  ; if POINTREL set, TopLeft is relative to pointer
+PREDRAWN	EQU $0002  ; if ReqBMap points to predrawn Requester imagery
+NOISYREQ	EQU $0004  ; if you don't want requester to filter input
+
+; FLAGS SET BY INTUITION;
+REQOFFWINDOW	EQU $1000	; part of one of the Gadgets was offwindow
+REQACTIVE	EQU $2000	; this requester is active
+SYSREQUEST	EQU $4000	; this requester caused by system
+DEFERREFRESH	EQU $8000	; this Requester stops a Refresh broadcast
+
+
+
+
+
+; ========================================================================
+; === Gadget =============================================================
+; ========================================================================
+ STRUCTURE Gadget,0
+
+    APTR gg_NextGadget		; next gadget in the list
+
+    WORD gg_LeftEdge		; "hit box" of gadget
+    WORD gg_TopEdge		; "hit box" of gadget
+    WORD gg_Width		; "hit box" of gadget
+    WORD gg_Height		; "hit box" of gadget
+
+    WORD gg_Flags		; see below for list of defines
+
+    WORD gg_Activation		; see below for list of defines
+
+    WORD gg_GadgetType		; see below for defines
+
+    ; appliprog can specify that the Gadget be rendered as either as Border
+    ; or an Image.  This variable points to which (or equals NULL if there's
+    ; nothing to be rendered about this Gadget)
+    APTR gg_GadgetRender
+
+    ; appliprog can specify "highlighted" imagery rather than algorithmic
+    ; this can point to either Border or Image data
+    APTR gg_SelectRender
+
+    APTR gg_GadgetText		; text for this gadget;
+
+    ; by using the MutualExclude word, the appliprog can describe 
+    ; which gadgets mutually-exclude which other ones.	The bits in 
+    ; MutualExclude correspond to the gadgets in object containing 
+    ; the gadget list.	If this gadget is selected and a bit is set 
+    ; in this gadget's MutualExclude and the gadget corresponding to 
+    ; that bit is currently selected (e.g. bit 2 set and gadget 2 
+    ; is currently selected) that gadget must be unselected.  Intuition 
+    ; does the visual unselecting (with checkmarks) and leaves it up 
+    ; to the program to unselect internally
+    LONG gg_MutualExclude	; set bits mean this gadget excludes that
+
+    ; pointer to a structure of special data required by Proportional, String 
+    ; and Integer Gadgets
+    APTR gg_SpecialInfo
+
+    WORD gg_GadgetID	; user-definable ID field
+    APTR  gg_UserData	; ptr to general purpose User data (ignored by Intuit)
+
+    LABEL gg_SIZEOF
+
+; --- FLAGS SET BY THE APPLIPROG --------------------------------------------
+; combinations in these bits describe the highlight technique to be used
+GADGHIGHBITS	EQU $0003
+GADGHCOMP	EQU $0000	; Complement the select box
+GADGHBOX	EQU $0001	; Draw a box around the image
+GADGHIMAGE	EQU $0002	; Blast in this alternate image
+GADGHNONE	EQU $0003	; don't highlight
+
+; set this flag if the GadgetRender and SelectRender point to Image imagery, 
+; clear if it's a Border 
+GADGIMAGE	EQU $0004 
+
+; combinations in these next two bits specify to which corner the gadget's
+; Left & Top coordinates are relative.	If relative to Top/Left,
+; these are "normal" coordinates (everything is relative to something in
+; this universe)
+GRELBOTTOM	EQU $0008	; set if rel to bottom, clear if rel top
+GRELRIGHT	EQU $0010	; set if rel to right, clear if to left
+; set the RELWIDTH bit to spec that Width is relative to width of screen
+GRELWIDTH	EQU $0020
+; set the RELHEIGHT bit to spec that Height is rel to height of screen
+GRELHEIGHT	EQU $0040
+
+; the SELECTED flag is initialized by you and set by Intuition.	 It 
+; specifies whether or not this Gadget is currently selected/highlighted
+SELECTED	EQU $0080
+
+
+; the GADGDISABLED flag is initialized by you and later set by Intuition
+; according to your calls to On/OffGadget().  It specifies whether or not 
+; this Gadget is currently disabled from being selected
+GADGDISABLED	EQU $0100
+
+
+; --- These are the Activation flag bits ----------------------------------
+; RELVERIFY is set if you want to verify that the pointer was still over
+; the gadget when the select button was released
+RELVERIFY	EQU $0001
+
+; the flag GADGIMMEDIATE, when set, informs the caller that the gadget
+; was activated when it was activated.	this flag works in conjunction with
+; the RELVERIFY flag
+GADGIMMEDIATE	EQU $0002
+
+; the flag ENDGADGET, when set, tells the system that this gadget, when
+; selected, causes the Requester or AbsMessage to be ended.  Requesters or
+; AbsMessages that are ended are erased and unlinked from the system
+ENDGADGET	EQU $0004
+
+; the FOLLOWMOUSE flag, when set, specifies that you want to receive
+; reports on mouse movements (ie, you want the REPORTMOUSE function for
+; your Window).	 When the Gadget is deselected (immediately if you have
+; no RELVERIFY) the previous state of the REPORTMOUSE flag is restored
+; You probably want to set the GADGIMMEDIATE flag when using FOLLOWMOUSE,
+; since that's the only reasonable way you have of learning why Intuition
+; is suddenly sending you a stream of mouse movement events.  If you don't
+; set RELVERIFY, you'll get at least one Mouse Position event.
+FOLLOWMOUSE	EQU $0008
+
+; if any of the BORDER flags are set in a Gadget that"s included in the
+; Gadget list when a Window is opened, the corresponding Border will
+; be adjusted to make room for the Gadget
+RIGHTBORDER	EQU $0010
+LEFTBORDER	EQU $0020
+TOPBORDER	EQU $0040
+BOTTOMBORDER	EQU $0080
+
+TOGGLESELECT	EQU $0100	; this bit for toggle-select mode
+
+STRINGCENTER	EQU $0200	; center the String
+STRINGRIGHT	EQU $0400	; right-justify the String
+
+LONGINT		EQU $0800	; This String Gadget is a Long Integer
+
+ALTKEYMAP	EQU $1000	; This String has an alternate keymapping
+
+BOOLEXTEND	EQU $2000	; This Boolean Gadget has a BoolInfo
+
+; --- GADGET TYPES -----------------------------------------------------------
+; These are the Gaget Type definitions for the variable GadgetType.
+; Gadget number type MUST start from one.  NO TYPES OF ZERO ALLOWED.
+; first comes the mask for Gadget flags reserved for Gadget typing
+GADGETTYPE	EQU $FC00	; all Gadget Global Type flags (padded)
+SYSGADGET	EQU $8000	; 1 = SysGadget, 0 = AppliGadget
+SCRGADGET	EQU $4000	; 1 = ScreenGadget, 0 = WindowGadget
+GZZGADGET	EQU $2000	; 1 = Gadget for GIMMEZEROZERO borders
+REQGADGET	EQU $1000	; 1 = this is a Requester Gadget
+; system gadgets
+SIZING		EQU $0010
+WDRAGGING	EQU $0020
+SDRAGGING	EQU $0030
+WUPFRONT	EQU $0040
+SUPFRONT	EQU $0050
+WDOWNBACK	EQU $0060
+SDOWNBACK	EQU $0070
+CLOSE		EQU $0080
+; application gadgets
+BOOLGADGET	EQU $0001
+GADGET0002	EQU $0002
+PROPGADGET	EQU $0003
+STRGADGET	EQU $0004
+
+
+
+; ======================================================================== 
+; === BoolInfo============================================================
+; ======================================================================== 
+; This is the special data needed by an Extended Boolean Gadget
+; Typically this structure will be pointed to by the Gadget field SpecialInfo
+
+ STRUCTURE BoolInfo,0
+
+    WORD    bi_Flags	; defined below 
+    APTR    bi_Mask	; bit mask for highlighting and selecting
+			; mask must follow the same rules as an Image
+			; plane.  It's width and height are determined
+			; by the width and height of the gadget's 
+			; select box. (i.e. Gadget.Width and .Height).
+    LONG    bi_Reserved ; set to 0
+
+    LABEL   bi_SIZEOF
+
+; set BoolInfo.Flags to this flag bit.
+; in the future, additional bits might mean more stuff hanging
+; off of BoolInfo.Reserved.
+
+BOOLMASK	EQU	$0001	; extension is for masked gadget
+
+; ========================================================================
+; === PropInfo ===========================================================
+; ========================================================================
+; this is the special data required by the proportional Gadget
+; typically, this data will be pointed to by the Gadget variable SpecialInfo
+ STRUCTURE PropInfo,0
+
+    WORD pi_Flags	; general purpose flag bits (see defines below)
+
+    ; You initialize the Pot variables before the Gadget is added to 
+    ; the system.  Then you can look here for the current settings 
+    ; any time, even while User is playing with this Gadget.  To 
+    ; adjust these after the Gadget is added to the System, use 
+    ; ModifyProp(); The Pots are the actual proportional settings, 
+    ; where a value of zero means zero and a value of MAXPOT means 
+    ; that the Gadget is set to its maximum setting.
+    WORD pi_HorizPot	; 16-bit FixedPoint horizontal quantity percentage;
+    WORD pi_VertPot	; 16-bit FixedPoint vertical quantity percentage;
+
+    ; the 16-bit FixedPoint Body variables describe what percentage 
+    ; of the entire body of stuff referred to by this Gadget is 
+    ; actually shown at one time.  This is used with the AUTOKNOB 
+    ; routines, to adjust the size of the AUTOKNOB according to how 
+    ; much of the data can be seen.  This is also used to decide how 
+    ; far to advance the Pots when User hits the Container of the Gadget.  
+    ; For instance, if you were controlling the display of a 5-line 
+    ; Window of text with this Gadget, and there was a total of 15 
+    ; lines that could be displayed, you would set the VertBody value to 
+    ;	 (MAXBODY / (TotalLines / DisplayLines)) = MAXBODY / 3.
+    ; Therefore, the AUTOKNOB would fill 1/3 of the container, and if 
+    ; User hits the Cotainer outside of the knob, the pot would advance 
+    ; 1/3 (plus or minus) If there's no body to show, or the total 
+    ; amount of displayable info is less than the display area, set the 
+    ; Body variables to the MAX.  To adjust these after the Gadget is 
+    ; added to the System, use ModifyProp().
+    WORD pi_HorizBody	; horizontal Body
+    WORD pi_VertBody	; vertical Body
+
+    ; these are the variables that Intuition sets and maintains
+    WORD pi_CWidth	; Container width (with any relativity absoluted)
+    WORD pi_CHeight	; Container height (with any relativity absoluted)
+    WORD pi_HPotRes	; pot increments
+    WORD pi_VPotRes	; pot increments
+    WORD pi_LeftBorder	; Container borders
+    WORD pi_TopBorder	; Container borders
+    LABEL  pi_SIZEOF
+
+; --- FLAG BITS --------------------------------------------------------------
+AUTOKNOB	EQU $0001	; this flag sez:  gimme that old auto-knob
+FREEHORIZ	EQU $0002	; if set, the knob can move horizontally
+FREEVERT	EQU $0004	; if set, the knob can move vertically
+PROPBORDERLESS	EQU $0008	; if set, no border will be rendered
+KNOBHIT		EQU $0100	; set when this Knob is hit
+
+
+KNOBHMIN	EQU 6		; minimum horizontal size of the knob
+KNOBVMIN	EQU 4		; minimum vertical size of the knob
+MAXBODY		EQU $FFFF	; maximum body value
+MAXPOT		EQU $FFFF	; maximum pot value
+
+
+; ========================================================================
+; === StringInfo =========================================================
+; ========================================================================
+; this is the special data required by the string Gadget
+; typically, this data will be pointed to by the Gadget variable SpecialInfo
+ STRUCTURE StringInfo,0
+
+    ; you initialize these variables, and then Intuition maintains them
+    APTR  si_Buffer	; the buffer containing the start and final string
+    APTR  si_UndoBuffer ; optional buffer for undoing current entry
+    WORD si_BufferPos	; character position in Buffer
+    WORD si_MaxChars	; max number of chars in Buffer (including NULL)
+    WORD si_DispPos	; Buffer position of first displayed character
+
+    ; Intuition initializes and maintains these variables for you
+    WORD si_UndoPos	; character position in the undo buffer
+    WORD si_NumChars	; number of characters currently in Buffer
+    WORD si_DispCount	; number of whole characters visible in Container
+    WORD si_CLeft	; topleft offset of the container
+    WORD si_CTop	; topleft offset of the container
+    APTR  si_LayerPtr	; the RastPort containing this Gadget
+
+    ; you can initialize this variable before the gadget is submitted to
+    ; Intuition, and then examine it later to discover what integer 
+    ; the user has entered (if the user never plays with the gadget, 
+    ; the value will be unchanged from your initial setting)
+    LONG  si_LongInt	; the LONG return value of a LONGINT String Gadget
+
+    ; If you want this Gadget to use your own Console keymapping, you
+    ; set the ALTKEYMAP bit in the Activation flags of the Gadget, and then
+    ; set this variable to point to your keymap.  If you don't set the
+    ; ALTKEYMAP, you'll get the standard ASCII keymapping.
+    APTR si_AltKeyMap
+
+    LABEL si_SIZEOF
+
+
+
+
+; ========================================================================
+; === IntuiText ==========================================================
+; ========================================================================
+; IntuiText is a series of strings that start with a screen location
+; (always relative to the upper-left corner of something) and then the
+; text of the string.  The text is null-terminated.
+ STRUCTURE IntuiText,0
+
+    BYTE it_FrontPen		; the pens for rendering the text
+    BYTE it_BackPen		; the pens for rendering the text
+
+    BYTE it_DrawMode		; the mode for rendering the text
+
+    BYTE it_KludgeFill00	; This is strictly for word-alignment 
+
+    WORD it_LeftEdge		; relative start location for the text
+    WORD it_TopEdge		; relative start location for the text
+
+    APTR  it_ITextFont		; if NULL, you accept the defaults
+
+    APTR it_IText		; pointer to null-terminated text
+
+    APTR  it_NextText		; continuation to TxWrite another text
+
+    LABEL it_SIZEOF
+
+
+
+
+
+; ========================================================================
+; === Border =============================================================
+; ========================================================================
+; Data type Border, used for drawing a series of lines which is intended for
+; use as a border drawing, but which may, in fact, be used to render any
+; arbitrary vector shape.
+; The routine DrawBorder sets up the RastPort with the appropriate
+; variables, then does a Move to the first coordinate, then does Draws
+; to the subsequent coordinates.
+; After all the Draws are done, if NextBorder is non-zero we call DrawBorder
+; recursively
+ STRUCTURE Border,0
+
+    WORD  bd_LeftEdge		; initial offsets from the origin
+    WORD  bd_TopEdge		; initial offsets from the origin
+    BYTE  bd_FrontPen		; pen number for rendering 
+    BYTE  bd_BackPen		; pen number for rendering 
+    BYTE  bd_DrawMode		; mode for rendering 
+    BYTE  bd_Count		; number of XY pairs
+    APTR  bd_XY			; vector coordinate pairs rel to LeftTop
+    APTR  bd_NextBorder		; pointer to any other Border too
+
+    LABEL bd_SIZEOF
+
+
+; ======================================================================== 
+; === Image ============================================================== 
+; ======================================================================== 
+; This is a brief image structure for very simple transfers of 
+; image data to a RastPort
+ STRUCTURE Image,0
+
+    WORD ig_LeftEdge		; starting offset relative to something 
+    WORD ig_TopEdge		; starting offset relative to something 
+    WORD ig_Width		; pixel size (though data is word-aligned)
+    WORD ig_Height		; pixel size 
+    WORD ig_Depth		; pixel size 
+    APTR ig_ImageData		; pointer to the actual image bits
+
+    ; the PlanePick and PlaneOnOff variables work much the same way as the
+    ; equivalent GELS Bob variables.  It's a space-saving 
+    ; mechanism for image data.	 Rather than defining the image data
+    ; for every plane of the RastPort, you need define data only for planes 
+    ; that are not entirely zero or one.  As you define your Imagery, you will
+    ; often find that most of the planes ARE just as color selectors.  For
+    ; instance, if you're designing a two-color Gadget to use colors two and
+    ; three, and the Gadget will reside in a five-plane display, plane zero
+    ; of your imagery would be all ones, bit plane one would have data that
+    ; describes the imagery, and bit planes two through four would be
+    ; all zeroes.  Using these flags allows you to avoid wasting all that 
+    ; memory in this way:  
+    ; first, you specify which planes you want your data to appear 
+    ; in using the PlanePick variable.	For each bit set in the variable, the 
+    ; next "plane" of your image data is blitted to the display.  For each bit
+    ; clear in this variable, the corresponding bit in PlaneOnOff is examined.
+    ; If that bit is clear, a "plane" of zeroes will be used.  If the bit is 
+    ; set, ones will go out instead.  So, for our example:
+    ;	Gadget.PlanePick = 0x02;
+    ;	Gadget.PlaneOnOff = 0x01;
+    ; Note that this also allows for generic Gadgets, like the System Gadgets,
+    ; which will work in any number of bit planes
+    ; Note also that if you want an Image that is only a filled rectangle,
+    ; you can get this by setting PlanePick to zero (pick no planes of data)
+    ; and set PlaneOnOff to describe the pen color of the rectangle.
+    BYTE ig_PlanePick
+    BYTE ig_PlaneOnOff
+
+    ; if the NextImage variable is not NULL, Intuition presumes that 
+    ; it points to another Image structure with another Image to be 
+    ; rendered
+    APTR ig_NextImage
+
+
+    LABEL ig_SIZEOF
+
+
+
+
+; ======================================================================== 
+; === IntuiMessage ======================================================= 
+; ======================================================================== 
+ STRUCTURE IntuiMessage,0
+
+    STRUCT im_ExecMessage,MN_SIZE
+
+    ; the Class bits correspond directly with the IDCMP Flags, except for the
+    ; special bit LONELYMESSAGE (defined below)
+    LONG im_Class
+
+    ; the Code field is for special values like MENU number 
+    WORD im_Code
+
+    ; the Qualifier field is a copy of the current InputEvent's Qualifier 
+    WORD im_Qualifier
+
+    ; IAddress contains particular addresses for Intuition functions, like
+    ; the pointer to the Gadget or the Screen
+    APTR im_IAddress
+
+    ; when getting mouse movement reports, any event you get will have the
+    ; the mouse coordinates in these variables.	 the coordinates are relative
+    ; to the upper-left corner of your Window (GIMMEZEROZERO notwithstanding)
+    WORD im_MouseX
+    WORD im_MouseY
+
+    ; the time values are copies of the current system clock time.  Micros
+    ; are in units of microseconds, Seconds in seconds.
+    LONG im_Seconds
+    LONG im_Micros
+
+    ; the IDCMPWindow variable will always have the address of the Window of 
+    ; this IDCMP 
+    APTR im_IDCMPWindow
+
+    ; system-use variable 
+    APTR im_SpecialLink
+
+    LABEL  im_SIZEOF
+
+
+
+; --- IDCMP Classes ------------------------------------------------------ 
+SIZEVERIFY	EQU	$00000001	; See the Programmer's Guide
+NEWSIZE		EQU	$00000002	; See the Programmer's Guide
+REFRESHWINDOW	EQU	$00000004	; See the Programmer's Guide
+MOUSEBUTTONS	EQU	$00000008	; See the Programmer's Guide
+MOUSEMOVE	EQU	$00000010	; See the Programmer's Guide 
+GADGETDOWN	EQU	$00000020	; See the Programmer's Guide
+GADGETUP	EQU	$00000040	; See the Programmer's Guide 
+REQSET		EQU	$00000080	; See the Programmer's Guide
+MENUPICK	EQU	$00000100	; See the Programmer's Guide 
+CLOSEWINDOW	EQU	$00000200	; See the Programmer's Guide
+RAWKEY		EQU	$00000400	; See the Programmer's Guide 
+REQVERIFY	EQU	$00000800	; See the Programmer's Guide
+REQCLEAR	EQU	$00001000	; See the Programmer's Guide 
+MENUVERIFY	EQU	$00002000	; See the Programmer's Guide
+NEWPREFS	EQU	$00004000	; See the Programmer's Guide 
+DISKINSERTED	EQU	$00008000	; See the Programmer's Guide
+DISKREMOVED	EQU	$00010000	; See the Programmer's Guide 
+WBENCHMESSAGE	EQU	$00020000	; See the Programmer's Guide
+ACTIVEWINDOW	EQU	$00040000	; See the Programmer's Guide
+INACTIVEWINDOW	EQU	$00080000	; See the Programmer's Guide
+DELTAMOVE	EQU	$00100000	; See the Programmer's Guide
+VANILLAKEY	EQU	$00200000	; See the Programmer's Guide
+INTUITICKS	EQU	$00400000	; See the Programmer's Guide
+; NOTEZ-BIEN:		$80000000 is reserved for internal use by IDCMP
+
+; the IDCMP Flags do not use this special bit, which is cleared when
+; Intuition sends its special message to the Task, and set when Intuition
+; gets its Message back from the Task.	Therefore, I can check here to
+; find out fast whether or not this Message is available for me to send
+LONELYMESSAGE	EQU	$80000000
+
+
+
+; --- IDCMP Codes -------------------------------------------------------- 
+; This group of codes is for the MENUVERIFY function 
+MENUHOT		EQU	$0001	; IntuiWants verification or MENUCANCEL	   
+MENUCANCEL	EQU	$0002	; HOT Reply of this cancels Menu operation 
+MENUWAITING	EQU	$0003	; Intuition simply wants a ReplyMsg() ASAP 
+
+; These are internal tokens to represent state of verification attempts
+; shown here as a clue.
+OKOK		EQU	MENUHOT		; guy didn't care
+OKABORT		EQU	$0004		; window rendered question moot
+OKCANCEL	EQU	MENUCANCEL	; window sent cancel reply
+
+; This group of codes is for the WBENCHMESSAGE messages
+WBENCHOPEN	EQU $0001
+WBENCHCLOSE	EQU $0002
+
+
+
+
+; ======================================================================== 
+; === Window ============================================================= 
+; ======================================================================== 
+ STRUCTURE Window,0
+
+    APTR wd_NextWindow		; for the linked list of a Screen
+
+    WORD wd_LeftEdge		; screen dimensions
+    WORD wd_TopEdge		; screen dimensions
+    WORD wd_Width		; screen dimensions
+    WORD wd_Height		; screen dimensions
+
+    WORD wd_MouseY		; relative top top-left corner 
+    WORD wd_MouseX		; relative top top-left corner 
+
+    WORD wd_MinWidth		; minimum sizes
+    WORD wd_MinHeight		; minimum sizes
+    WORD wd_MaxWidth		; maximum sizes
+    WORD wd_MaxHeight		; maximum sizes
+
+    LONG wd_Flags		; see below for definitions
+
+    APTR wd_MenuStrip		; first in a list of menu headers
+
+    APTR wd_Title		; title text for the Window
+
+    APTR wd_FirstRequest	; first in linked list of active Requesters 
+    APTR wd_DMRequest		; the double-menu Requester 
+    WORD wd_ReqCount		; number of Requesters blocking this Window
+    APTR wd_WScreen		; this Window's Screen
+    APTR wd_RPort		; this Window's very own RastPort
+
+    ; the border variables describe the window border.	If you specify
+    ; GIMMEZEROZERO when you open the window, then the upper-left of the
+    ; ClipRect for this window will be upper-left of the BitMap (with correct
+    ; offsets when in SuperBitMap mode; you MUST select GIMMEZEROZERO when
+    ; using SuperBitMap).  If you don't specify ZeroZero, then you save
+    ; memory (no allocation of RastPort, Layer, ClipRect and associated
+    ; Bitmaps), but you also must offset all your writes by BorderTop,
+    ; BorderLeft and do your own mini-clipping to prevent writing over the
+    ; system gadgets
+    BYTE wd_BorderLeft
+    BYTE wd_BorderTop
+    BYTE wd_BorderRight
+    BYTE wd_BorderBottom
+    APTR wd_BorderRPort
+
+    ; You supply a linked-list of gadget that you want for your Window.
+    ; This list DOES NOT include system Gadgets.  You get the standard
+    ; window system Gadgets by setting flag-bits in the variable Flags (see
+    ; the bit definitions below)
+    APTR wd_FirstGadget
+
+    ; these are for opening/closing the windows 
+    APTR wd_Parent
+    APTR wd_Descendant
+
+    ; sprite data information for your own Pointer
+    ; set these AFTER you Open the Window by calling SetPointer()
+    APTR wd_Pointer
+    BYTE wd_PtrHeight
+    BYTE wd_PtrWidth
+    BYTE wd_XOffset
+    BYTE wd_YOffset
+
+    ; the IDCMP Flags and User's and Intuition's Message Ports 
+    ULONG wd_IDCMPFlags
+    APTR wd_UserPort
+    APTR wd_WindowPort
+    APTR wd_MessageKey
+
+    BYTE wd_DetailPen
+    BYTE wd_BlockPen
+
+    ; the CheckMark is a pointer to the imagery that will be used when 
+    ; rendering MenuItems of this Window that want to be checkmarked
+    ; if this is equal to NULL, you'll get the default imagery
+    APTR wd_CheckMark
+
+    ; if non-null, Screen title when Window is active 
+    APTR wd_ScreenTitle
+
+    ; These variables have the mouse coordinates relative to the 
+    ; inner-Window of GIMMEZEROZERO Windows.  This is compared with the
+    ; MouseX and MouseY variables, which contain the mouse coordinates
+    ; relative to the upper-left corner of the Window, GIMMEZEROZERO
+    ; notwithstanding
+    WORD wd_GZZMouseX
+    WORD wd_GZZMouseY
+    ; these variables contain the width and height of the inner-Window of
+    ; GIMMEZEROZERO Windows
+    WORD wd_GZZWidth
+    WORD wd_GZZHeight
+
+    APTR wd_ExtData
+
+    ; general-purpose pointer to User data extension 
+    APTR wd_UserData
+    APTR wd_WLayer	; stash of Window.RPort->Layer
+
+    ; NEW 1.2: need to keep track of the font that OpenWindow opened,
+    ; in case user SetFont's into RastPort
+    APTR IFont
+
+    LABEL wd_Size
+
+; --- FLAGS REQUESTED (NOT DIRECTLY SET THOUGH) BY THE APPLIPROG -------------
+WINDOWSIZING	EQU $0001	; include sizing system-gadget? 
+WINDOWDRAG	EQU $0002	; include dragging system-gadget? 
+WINDOWDEPTH	EQU $0004	; include depth arrangement gadget? 
+WINDOWCLOSE	EQU $0008	; include close-box system-gadget? 
+
+SIZEBRIGHT	EQU $0010	; size gadget uses right border 
+SIZEBBOTTOM	EQU $0020	; size gadget uses bottom border 
+
+; --- refresh modes ----------------------------------------------------------
+; combinations of the REFRESHBITS select the refresh type 
+REFRESHBITS	EQU $00C0
+SMART_REFRESH	EQU $0000
+SIMPLE_REFRESH	EQU $0040
+SUPER_BITMAP	EQU $0080
+OTHER_REFRESH	EQU $00C0
+
+BACKDROP	EQU $0100	; this is an ever-popular BACKDROP window 
+
+REPORTMOUSE	EQU $0200	; set this to hear about every mouse move 
+
+GIMMEZEROZERO	EQU $0400	; make extra border stuff 
+
+BORDERLESS	EQU $0800	; set this to get a Window sans border 
+
+ACTIVATE	EQU $1000	; when Window opens, it's the Active one 
+
+; FLAGS SET BY INTUITION 
+WINDOWACTIVE	EQU $2000	; this window is the active one 
+INREQUEST	EQU $4000	; this window is in request mode 
+MENUSTATE	EQU $8000	; this Window is active with its Menus on 
+
+; --- Other User Flags -------------------------------------------------------
+RMBTRAP		EQU $00010000	; Catch RMB events for your own 
+NOCAREREFRESH	EQU $00020000	; not to be bothered with REFRESH
+
+; --- Other Intuition Flags ----------------------------------------------
+WINDOWREFRESH	EQU $01000000	; Window is currently refreshing
+WBENCHWINDOW	EQU $02000000	; WorkBench Window
+WINDOWTICKED	EQU $04000000	; only one timer tick at a time
+
+SUPER_UNUSED	EQU $FCFC0000	;bits of Flag unused yet
+
+
+; --- see struct IntuiMessage for the IDCMP Flag definitions -----------------
+
+
+; ======================================================================== 
+; === NewWindow ========================================================== 
+; ======================================================================== 
+ STRUCTURE NewWindow,0
+
+    WORD nw_LeftEdge		; initial Window dimensions
+    WORD nw_TopEdge		; initial Window dimensions
+    WORD nw_Width		; initial Window dimensions
+    WORD nw_Height		; initial Window dimensions
+
+    BYTE nw_DetailPen		; for rendering the detail bits of the Window
+    BYTE nw_BlockPen		; for rendering the block-fill bits 
+
+    LONG nw_IDCMPFlags		; initial IDCMP state
+
+    LONG nw_Flags		; see the Flag definition under Window
+
+    ; You supply a linked-list of Gadgets for your Window.
+    ; This list DOES NOT include system Gadgets.  You get the standard
+    ; system Window Gadgets by setting flag-bits in the variable Flags (see
+    ; the bit definitions under the Window structure definition)
+    APTR	nw_FirstGadget
+
+    ; the CheckMark is a pointer to the imagery that will be used when 
+    ; rendering MenuItems of this Window that want to be checkmarked
+    ; if this is equal to NULL, you'll get the default imagery
+    APTR nw_CheckMark
+
+    APTR nw_Title		; title text for the Window
+    
+    ; the Screen pointer is used only if you've defined a CUSTOMSCREEN and
+    ; want this Window to open in it.  If so, you pass the address of the
+    ; Custom Screen structure in this variable.	 Otherwise, this variable
+    ; is ignored and doesn't have to be initialized.
+    APTR nw_Screen
+    
+    ; SUPER_BITMAP Window?  If so, put the address of your BitMap structure
+    ; in this variable.	 If not, this variable is ignored and doesn't have 
+    ; to be initialized
+    APTR nw_BitMap
+
+    ; the values describe the minimum and maximum sizes of your Windows.
+    ; these matter only if you've chosen the WINDOWSIZING Gadget option,
+    ; which means that you want to let the User to change the size of 
+    ; this Window.  You describe the minimum and maximum sizes that the
+    ; Window can grow by setting these variables.  You can initialize
+    ; any one these to zero, which will mean that you want to duplicate
+    ; the setting for that dimension (if MinWidth == 0, MinWidth will be
+    ; set to the opening Width of the Window).
+    ; You can change these settings later using SetWindowLimits().
+    ; If you haven't asked for a SIZING Gadget, you don't have to
+    ; initialize any of these variables.
+    WORD nw_MinWidth
+    WORD nw_MinHeight
+    WORD nw_MaxWidth
+    WORD nw_MaxHeight
+
+    ; the type variable describes the Screen in which you want this Window to
+    ; open.  The type value can either be CUSTOMSCREEN or one of the
+    ; system standard Screen Types such as WBENCHSCREEN.  See the
+    ; type definitions under the Screen structure
+    WORD nw_Type
+
+    LABEL nw_SIZE
+
+
+	IFND INTUITION_SCREENS_I
+	INCLUDE "intuition/screens.i"
+	ENDC
+
+	IFND INTUITION_PREFERENCES_I
+	INCLUDE "intuition/preferences.i"
+	ENDC
+
+; ========================================================================
+; === Remember ===========================================================
+; ========================================================================
+; this structure is used for remembering what memory has been allocated to
+; date by a given routine, so that a premature abort or systematic exit
+; can deallocate memory cleanly, easily, and completely
+ STRUCTURE Remember,0
+
+    APTR rm_NextRemember
+    LONG rm_RememberSize
+    APTR rm_Memory
+
+ LABEL	  rm_SIZEOF
+
+
+
+; ======================================================================== 
+; === Miscellaneous ====================================================== 
+; ======================================================================== 
+
+; = MACROS ============================================================== 
+;#define MENUNUM(n) (n & 0x1F)
+;#define ITEMNUM(n) ((n >> 5) & 0x003F)
+;#define SUBNUM(n) ((n >> 11) & 0x001F)
+;
+;#define SHIFTMENU(n) (n & 0x1F)
+;#define SHIFTITEM(n) ((n & 0x3F) << 5)
+;#define SHIFTSUB(n) ((n & 0x1F) << 11)
+;
+;#define SRBNUM(n)  (0x08 - (n >> 4))  /* SerRWBits -> read bits per char */
+;#define SWBNUM(n)  (0x08 - (n & 0x0F))/* SerRWBits -> write bits per chr */
+;#define SSBNUM(n)  (0x01 + (n >> 4))  /* SerStopBuf -> stop bits per chr */
+;#define SPARNUM(n) (n >> 4)	       /* SerParShk -> parity setting	 */
+;#define SHAKNUM(n) (n & 0x0F)	       /* SerParShk -> handshake mode	 */
+;
+; = MENU STUFF =========================================================== 
+NOMENU EQU	$001F
+NOITEM EQU	$003F
+NOSUB  EQU	$001F
+MENUNULL EQU	$FFFF
+
+
+; = =RJ='s peculiarities ================================================= 
+;#define FOREVER for(;;)
+;#define SIGN(x) ( ((x) > 0) - ((x) < 0) )
+
+
+; these defines are for the COMMSEQ and CHECKIT menu stuff.  If CHECKIT,
+; I'll use a generic Width (for all resolutions) for the CheckMark.
+; If COMMSEQ, likewise I'll use this generic stuff
+CHECKWIDTH	EQU	19
+COMMWIDTH	EQU	27
+LOWCHECKWIDTH	EQU	13
+LOWCOMMWIDTH	EQU	16
+
+
+; these are the AlertNumber defines.  if you are calling DisplayAlert()
+; the AlertNumber you supply must have the ALERT_TYPE bits set to one
+; of these patterns
+ALERT_TYPE	EQU	$80000000
+RECOVERY_ALERT	EQU	$00000000	; the system can recover from this 
+DEADEND_ALERT	EQU	$80000000	; no recovery possible, this is it 
+
+
+; When you're defining IntuiText for the Positive and Negative Gadgets 
+; created by a call to AutoRequest(), these defines will get you 
+; reasonable-looking text.  The only field without a define is the IText
+; field; you decide what text goes with the Gadget
+AUTOFRONTPEN	EQU	0
+AUTOBACKPEN	EQU	1
+AUTODRAWMODE	EQU	RP_JAM2
+AUTOLEFTEDGE	EQU	6
+AUTOTOPEDGE	EQU	3
+AUTOITEXTFONT	EQU	0
+AUTONEXTTEXT	EQU	0
+
+
+
+;* --- RAWMOUSE Codes and Qualifiers (Console OR IDCMP) -------------------
+SELECTUP	EQU	(IECODE_LBUTTON+IECODE_UP_PREFIX)
+SELECTDOWN	EQU	(IECODE_LBUTTON)
+MENUUP		EQU	(IECODE_RBUTTON+IECODE_UP_PREFIX)
+MENUDOWN	EQU	(IECODE_RBUTTON)
+ALTLEFT		EQU	(IEQUALIFIER_LALT)
+ALTRIGHT	EQU	(IEQUALIFIER_RALT)
+AMIGALEFT	EQU	(IEQUALIFIER_LCOMMAND)
+AMIGARIGHT	EQU	(IEQUALIFIER_RCOMMAND)
+AMIGAKEYS	EQU	(AMIGALEFT+AMIGARIGHT)
+			
+CURSORUP	EQU	$4C
+CURSORLEFT	EQU	$4F
+CURSORRIGHT	EQU	$4E
+CURSORDOWN	EQU	$4D
+KEYCODE_Q	EQU	$10
+KEYCODE_X	EQU	$32
+KEYCODE_N	EQU	$36
+KEYCODE_M	EQU	$37
+KEYCODE_V	EQU	$34
+KEYCODE_B	EQU	$35
+
+	IFND	INTUITION_INTUITIONBASE_I
+	include "intuition/intuitionbase.i"
+	ENDC
+
+	ENDC	; INTUITION_INTUITION_I
diff --git a/includes/intuition/intuitionbase.i b/includes/intuition/intuitionbase.i
new file mode 100644
index 0000000..ef53107
--- /dev/null
+++ b/includes/intuition/intuitionbase.i
@@ -0,0 +1,54 @@
+	IFND	INTUITION_INTUITIONBASE_I
+INTUITION_INTUITIONBASE_I	SET	1
+**
+**	$Filename: intuition/intuitionbase.i $
+**	$Release: 1.3 $
+**
+**	the IntuitionBase structure and supporting structures 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC
+
+	IFND EXEC_LIBRARIES_I
+	INCLUDE "exec/libraries.i"
+	ENDC
+
+	IFND	GRAPHICS_VIEW_I
+	INCLUDE "graphics/view.i"
+	ENDC
+
+* Be sure to protect yourself against someone modifying these data as
+* you look at them.  This is done by calling:
+*
+* lock = LockIBase(0), which returns a ULONG.  When done call
+*  D0		  D0
+* UnlockIBase(lock) where lock is what LockIBase() returned.
+*	       A0
+* NOTE: these library functions are simply stubs now, but should be called
+* to be compatible with future releases.
+
+* ======================================================================== *
+* === IntuitionBase ====================================================== *
+* ======================================================================== *
+ STRUCTURE IntuitionBase,0
+
+	STRUCT	ib_LibNode,LIB_SIZE
+	STRUCT	ib_ViewLord,v_SIZEOF
+	APTR	ib_ActiveWindow
+	APTR	ib_ActiveScreen
+
+* the FirstScreen variable points to the frontmost Screen.  Screens are
+* then maintained in a front to back order using Screen.NextScreen
+
+	APTR	ib_FirstScreen
+
+* there is not size here because...
+*
+*
+
+	ENDC	; INTUITION_INTUITIONBASE_I
diff --git a/includes/intuition/preferences.i b/includes/intuition/preferences.i
new file mode 100644
index 0000000..df6e719
--- /dev/null
+++ b/includes/intuition/preferences.i
@@ -0,0 +1,260 @@
+	IFND	INTUITION_PREFERENCES_I
+INTUITION_PREFERENCES_I SET	1
+**
+**	$Filename: intuition/preferences.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+    IFND EXEC_TYPES_I
+    INCLUDE "exec/types.i"
+    ENDC
+
+    IFND    DEVICES_TIMER_I
+    include "devices/timer.i"
+    ENDC
+
+; ======================================================================== 
+; === Preferences ======================================================== 
+; ======================================================================== 
+
+; these are the definitions for the printer configurations 
+FILENAME_SIZE EQU   30	    ; Filename size 
+
+POINTERSIZE	EQU (1+16+1)*2	; Size of Pointer data buffer 
+
+; These defines are for the default font size.	These actually describe the
+; height of the defaults fonts.	 The default font type is the topaz
+; font, which is a fixed width font that can be used in either 
+; eighty-column or sixty-column mode.  The Preferences structure reflects
+; which is currently selected by the value found in the variable FontSize,
+; which may have either of the values defined below.  These values actually
+; are used to select the height of the default font.  By changing the
+; height, the resolution of the font changes as well.
+TOPAZ_EIGHTY	EQU 8	
+TOPAZ_SIXTY	EQU 9
+
+; ------------------------------------------------------------------------
+ STRUCTURE Preferences,0
+
+    ; the default font height
+    BYTE pf_FontHeight	    ; height for system default font
+
+    ; constant describing what's hooked up to the port
+    BYTE pf_PrinterPort ; printer port connection
+
+    ; the baud rate of the port
+    WORD pf_BaudRate	    ; baud rate for the serial port
+    
+    ; various timing rates
+    STRUCT pf_KeyRptSpeed,TV_SIZE ; repeat speed for keyboard
+    STRUCT pf_KeyRptDelay,TV_SIZE ; Delay before keys repeat
+    STRUCT pf_DoubleClick,TV_SIZE ; Interval allowed between clicks
+
+    ; Intuition Pointer data
+    STRUCT pf_PointerMatrix,POINTERSIZE*2 ; Definition of pointer sprite
+    BYTE pf_XOffset	; X-Offset for active 'bit'
+    BYTE pf_YOffset	; Y-Offset for active 'bit'
+    WORD pf_color17	;********************************
+    WORD pf_color18	; Colours for sprite pointer
+    WORD pf_color19	;********************************
+    WORD pf_PointerTicks    ; Sensitivity of the pointer    
+
+    ; Workbench Screen colors
+    WORD pf_color0	;********************************
+    WORD pf_color1	;  Standard default colours
+    WORD pf_color2	;   Used in the Workbench
+    WORD pf_color3	;********************************
+
+    ; positioning data for the Intuition View
+    BYTE pf_ViewXOffset	    ; Offset for top lefthand corner
+    BYTE pf_ViewYOffset	    ; X and Y dimensions
+    WORD pf_ViewInitX	    ; View initial offsets at startup
+    WORD pf_ViewInitY	    ; View initial offsets at startup
+
+    BOOL EnableCLI	; CLI availability switch
+
+    ; printer configurations
+    WORD pf_PrinterType	    ; printer type
+    STRUCT pf_PrinterFilename,FILENAME_SIZE ; file for printer
+
+    ; print format and quality configurations
+    WORD pf_PrintPitch	    ; print pitch
+    WORD pf_PrintQuality    ; print quality
+    WORD pf_PrintSpacing    ; number of lines per inch
+    WORD pf_PrintLeftMargin ; left margin in characters
+    WORD pf_PrintRightMargin	; right margin in characters
+    WORD pf_PrintImage	    ; positive or negative
+    WORD pf_PrintAspect	    ; horizontal or vertical
+    WORD pf_PrintShade	    ; b&w, half-tone, or color
+    WORD pf_PrintThreshold  ; darkness ctrl for b/w dumps
+
+
+    ; print paper description
+    WORD pf_PaperSize	    ; paper size
+    WORD pf_PaperLength	    ; paper length in lines
+    WORD pf_PaperType	    ; continuous or single sheet
+
+    ; Serial device settings: These are six nibble-fields in three bytes
+    ; (these look a little strange so the defaults will map out to zero)
+    BYTE pf_SerRWBits		; upper nibble = (8-number of read bits)
+				; lower nibble = (8-number of write bits)
+    BYTE pf_SerStopBuf		; upper nibble = (number of stop bits - 1)
+				; lower nibble = (table value for BufSize)
+    BYTE pf_SerParShk		; upper nibble = (value for Parity setting)
+				; lower nibble = (value for Handshake mode)
+
+    BYTE pf_LaceWB	; if workbench is to be interlaced
+
+    STRUCT pf_WorkName,FILENAME_SIZE ; temp file for printer
+
+    BYTE pf_RowSizeChange	; 
+    BYTE pf_ColumnSizeChange	   ;
+
+    UWORD   pf_PrintFlags	; user preference flags
+    WORD    pf_PrintMaxWidth	; max width of printed picture in 10ths/inch
+    UWORD   pf_PrintMaxHeight	; max height of printed picture in 10ths/inch 
+    UBYTE   pf_PrintDensity	; print density
+    UBYTE   pf_PrintXOffset	; offset of printed picture in 10ths/inch
+
+    UWORD   pf_wb_Width		; override default workbench width
+    UWORD   pf_wb_Height	; override default workbench height
+    UBYTE   pf_wb_Depth		; override default workbench depth
+
+    UBYTE   pf_ext_size		; extension information -- do not touch!
+				; extension size in blocks of 64 bytes
+    LABEL pf_SIZEOF
+
+
+; === Preferences definitions ===========================================
+
+; Workbench Interlace (use one bit)
+LACEWB	    EQU $01
+
+; PrinterPort
+PARALLEL_PRINTER EQU	$00
+SERIAL_PRINTER	EQU $01
+
+; BaudRate
+BAUD_110    EQU $00
+BAUD_300    EQU $01
+BAUD_1200   EQU $02
+BAUD_2400   EQU $03
+BAUD_4800   EQU $04
+BAUD_9600   EQU $05
+BAUD_19200  EQU $06
+BAUD_MIDI   EQU $07
+
+; PaperType
+FANFOLD	    EQU $00
+SINGLE	    EQU $80
+
+; PrintPitch
+PICA	    EQU $000
+ELITE	    EQU $400
+FINE	    EQU $800
+
+; PrintQuality
+DRAFT	    EQU $000
+LETTER	    EQU $100
+
+; PrintSpacing
+SIX_LPI	    EQU $000
+EIGHT_LPI   EQU $200
+
+; Print Image
+IMAGE_POSITIVE	EQU $00
+IMAGE_NEGATIVE	EQU $01
+
+; PrintAspect
+ASPECT_HORIZ	EQU $00
+ASPECT_VERT EQU $01
+
+; PrintShade
+SHADE_BW    EQU $00
+SHADE_GREYSCALE EQU $01
+SHADE_COLOR EQU $02
+
+; PaperSize
+US_LETTER   EQU $00
+US_LEGAL    EQU $10
+N_TRACTOR   EQU $20
+W_TRACTOR   EQU $30
+CUSTOM	    EQU $40
+
+; PrinterType
+CUSTOM_NAME EQU $00
+ALPHA_P_101 EQU $01
+BROTHER_15XL	EQU $02
+CBM_MPS1000 EQU $03
+DIAB_630    EQU $04
+DIAB_ADV_D25	EQU $05
+DIAB_C_150  EQU $06
+EPSON	    EQU $07
+EPSON_JX_80 EQU $08
+OKIMATE_20  EQU $09
+QUME_LP_20  EQU $0A
+; new printer entries, 3 October 1985
+HP_LASERJET EQU $0B
+HP_LASERJET_PLUS EQU	$0C
+
+
+; Serial Input Buffer Sizes
+SBUF_512	EQU	$00
+SBUF_1024	EQU	$01
+SBUF_2048	EQU	$02
+SBUF_4096	EQU	$03
+SBUF_8000	EQU	$04
+SBUF_16000	EQU	$05
+
+; Serial Bit Masks
+SREAD_BITS  EQU $F0 ; pf_SerRWBits
+SWRITE_BITS EQU $0F
+
+SSTOP_BITS  EQU $F0 ; pf_SerStopBuf
+SBUFSIZE_BITS	EQU $0F
+
+SPARITY_BITS	EQU $F0 ; pf_SerParShk
+SHSHAKE_BITS	EQU $0F
+
+; Serial Parity (high nibble, but here shifted right, as by C-macro SPARNUM)
+SPARITY_NONE	EQU	$00
+SPARITY_EVEN	EQU	$01
+SPARITY_ODD	EQU	$02
+
+; Serial Handshake Mode (low nibble, mask by SHSHAKE_BITS)
+SHSHAKE_XON	EQU	$00
+SHSHAKE_RTS	EQU	$01
+SHSHAKE_NONE	EQU	$02
+
+; new defines for PrintFlags
+CORRECT_RED	    EQU $0001	 ; color correct red shades
+CORRECT_GREEN	    EQU $0002	 ; color correct green shades 
+CORRECT_BLUE	    EQU $0004	 ; color correct blue shades
+
+CENTER_IMAGE	    EQU $0008	   ; center image on paper
+
+IGNORE_DIMENSIONS   EQU $0000	 ; ignore max width/height settings
+BOUNDED_DIMENSIONS  EQU $0010	 ; use max width/height as boundaries
+ABSOLUTE_DIMENSIONS EQU $0020	 ; use max width/height as absolutes
+PIXEL_DIMENSIONS    EQU $0040	 ; use max width/height as prt pixels
+MULTIPLY_DIMENSIONS EQU $0080	 ; use max width/height as multipliers
+
+INTEGER_SCALING	    EQU $0100	 ; force integer scaling
+
+ORDERED_DITHERING   EQU $0000	 ; ordered dithering
+HALFTONE_DITHERING  EQU $0200	 ; halftone dithering
+FLOYD_DITHERING	    EQU $0400	 ; floyd-steinberg dithering
+
+ANTI_ALIAS	    EQU $0800	 ; anti-alias image
+GREY_SCALE2	    EQU $1000	 ; for use with hi-res monitor
+
+CORRECT_RGB_MASK    EQU (CORRECT_RED+CORRECT_GREEN+CORRECT_BLUE)
+DIMENSIONS_MASK	    EQU (BOUNDED_DIMENSIONS+ABSOLUTE_DIMENSIONS+PIXEL_DIMENSIONS+MULTIPLY_DIMENSIONS)
+DITHERING_MASK	    EQU (HALFTONE_DITHERING+FLOYD_DITHERING)
+
+	ENDC	; INTUITION_PREFERENCES_I
diff --git a/includes/intuition/screens.i b/includes/intuition/screens.i
new file mode 100644
index 0000000..1d50a5c
--- /dev/null
+++ b/includes/intuition/screens.i
@@ -0,0 +1,156 @@
+	IFND	INTUITION_SCREENS_I
+INTUITION_SCREENS_I	SET	1
+**
+**	$Filename: intuition/screens.i $
+**	$Release: 1.3 $
+**
+**	
+**
+**	(C) Copyright 1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+	IFND EXEC_TYPES_I
+	INCLUDE "exec/types.i"
+	ENDC
+
+	IFND GRAPHICS_GFX_I
+	INCLUDE "graphics/gfx.i"
+	ENDC
+
+	IFND GRAPHICS_CLIP_I
+	INCLUDE "graphics/clip.i"
+	ENDC
+
+	IFND GRAPHICS_VIEW_I
+	INCLUDE "graphics/view.i"
+	ENDC
+
+	IFND GRAPHICS_RASTPORT_I
+	INCLUDE "graphics/rastport.i"
+	ENDC
+
+	IFND GRAPHICS_LAYERS_I
+	INCLUDE "graphics/layers.i"
+	ENDC
+
+; ======================================================================== 
+; === Screen ============================================================= 
+; ======================================================================== 
+ STRUCTURE Screen,0
+
+    APTR sc_NextScreen		; linked list of screens
+    APTR sc_FirstWindow		; linked list Screen's Windows
+
+    WORD sc_LeftEdge		; parameters of the screen
+    WORD sc_TopEdge		; parameters of the screen
+
+    WORD sc_Width		; null-terminated Title text
+    WORD sc_Height		; for Windows without ScreenTitle
+
+    WORD sc_MouseY		; position relative to upper-left
+    WORD sc_MouseX		; position relative to upper-left
+
+    WORD sc_Flags		; see definitions below
+
+    APTR sc_Title
+    APTR sc_DefaultTitle
+
+    ; Bar sizes for this Screen and all Window's in this Screen
+    BYTE sc_BarHeight
+    BYTE sc_BarVBorder
+    BYTE sc_BarHBorder
+    BYTE sc_MenuVBorder
+    BYTE sc_MenuHBorder
+    BYTE sc_WBorTop
+    BYTE sc_WBorLeft
+    BYTE sc_WBorRight
+    BYTE sc_WBorBottom
+
+    BYTE sc_KludgeFill00	; This is strictly for word-alignment 
+
+    ; the display data structures for this Screen
+    APTR sc_Font			; this screen's default font
+    STRUCT sc_ViewPort,vp_SIZEOF	; describing the Screen's display
+    STRUCT sc_RastPort,rp_SIZEOF	; describing Screen rendering
+    STRUCT sc_BitMap,bm_SIZEOF		; auxiliary graphexcess baggage
+    STRUCT sc_LayerInfo,li_SIZEOF	; each screen gets a LayerInfo
+
+    ; You supply a linked-list of Gadgets for your Screen.
+    ; This list DOES NOT include system Gadgets.  You get the standard
+    ; system Screen Gadgets by default
+    APTR sc_FirstGadget
+
+    BYTE sc_DetailPen		; for bar/border/gadget rendering
+    BYTE sc_BlockPen		; for bar/border/gadget rendering
+
+    ; the following variable(s) are maintained by Intuition to support the
+    ; DisplayBeep() color flashing technique
+    WORD sc_SaveColor0
+
+    ; This layer is for the Screen and Menu bars
+    APTR sc_BarLayer		; was "BarLayer"
+
+    APTR sc_ExtData
+
+    APTR sc_UserData		; general-purpose pointer to User data 
+
+    LABEL sc_SIZEOF
+
+
+; --- FLAGS SET BY INTUITION -------------------------------------------------
+; The SCREENTYPE bits are reserved for describing various Screen types
+; available under Intuition.  
+SCREENTYPE	EQU	$000F	; all the screens types available 
+; --- the definitions for the Screen Type ------------------------------------
+WBENCHSCREEN	EQU	$0001	; Ta Da!  The Workbench
+CUSTOMSCREEN	EQU	$000F	; for that special look
+
+SHOWTITLE	EQU	$0010	; this gets set by a call to ShowTitle() 
+
+BEEPING		EQU	$0020	; set when Screen is beeping 
+
+CUSTOMBITMAP	EQU	$0040	; if you are supplying your own BitMap
+
+SCREENBEHIND	EQU	$0080	; if you want your screen to open behind
+				; already open screens
+
+SCREENQUIET	EQU	$0100	; if you do not want Intuition to render
+				; into your screen (gadgets, title)
+
+STDSCREENHEIGHT EQU	-1	; supply in NewScreen.Height
+
+; ======================================================================== 
+; === NewScreen ========================================================== 
+; ======================================================================== 
+ STRUCTURE NewScreen,0
+
+    WORD ns_LeftEdge		; initial Screen dimensions
+    WORD ns_TopEdge		; initial Screen dimensions
+    WORD ns_Width		; initial Screen dimensions
+    WORD ns_Height		; initial Screen dimensions
+    WORD ns_Depth		; initial Screen dimensions
+
+    BYTE ns_DetailPen		; default rendering pens (for Windows too)
+    BYTE ns_BlockPen		; default rendering pens (for Windows too)
+
+    WORD ns_ViewModes		; display "modes" for this Screen
+
+    WORD ns_Type		; Intuition Screen Type specifier
+
+    APTR ns_Font		; default font for Screen and Windows
+
+    APTR ns_DefaultTitle	; Title when Window doesn't care
+
+    APTR ns_Gadgets		; Your own initial Screen Gadgets
+
+    ; if you are opening a CUSTOMSCREEN and already have a BitMap 
+    ; that you want used for your Screen, you set the flags CUSTOMBITMAP in
+    ; the Types variable and you set this variable to point to your BitMap
+    ; structure.  The structure will be copied into your Screen structure,
+    ; after which you may discard your own BitMap if you want
+    APTR ns_CustomBitMap
+
+ LABEL	  ns_SIZEOF
+
+	ENDC	; INTUITION_SCREENS_I
diff --git a/includes/libraries/dos.i b/includes/libraries/dos.i
new file mode 100644
index 0000000..692ebc7
--- /dev/null
+++ b/includes/libraries/dos.i
@@ -0,0 +1,168 @@
+	IFND	LIBRARIES_DOS_I
+LIBRARIES_DOS_I SET	1
+**
+**	$Filename: libraries/dos.i $
+**	$Release: 1.3 $
+**
+**	Standard assembler header for AmigaDOS 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+*      IFND EXEC_TYPES_I
+*      INCLUDE "exec/types.i"
+*      ENDC
+
+
+DOSNAME	    MACRO
+      DC.B  'dos.library',0
+      ENDM
+
+* Predefined Amiga DOS global constants 
+
+DOSTRUE	      EQU     -1
+DOSFALSE      EQU      0
+
+* Mode parameter to Open() 
+MODE_OLDFILE	     EQU   1005	  * Open existing file read/write 
+*				  * positioned at beginning of file. 
+MODE_NEWFILE	     EQU   1006	  * Open freshly created file (delete 
+*				  * old file) read/write	    
+MODE_READWRITE	     EQU   1004	  * Open old file w/exclusive lock
+* Relative position to Seek() 
+OFFSET_BEGINNING     EQU   -1	  * relative to Beginning Of File 
+OFFSET_CURRENT	     EQU    0	  * relative to Current file position 
+OFFSET_END	     EQU    1	  * relative to End Of File    
+
+OFFSET_BEGINING	    EQU	  OFFSET_BEGINNING     * Ancient compatibility
+
+BITSPERBYTE	     EQU   8
+BYTESPERLONG	     EQU   4
+BITSPERLONG	     EQU   32
+MAXINT		     EQU   $7FFFFFFF
+MININT		     EQU   $80000000
+
+* Passed as type to Lock() 
+SHARED_LOCK	     EQU   -2	; File is readable by others 
+ACCESS_READ	     EQU   -2	; Synonym
+EXCLUSIVE_LOCK	     EQU   -1	; No other access allowed    
+ACCESS_WRITE	     EQU   -1	; Synonym
+
+
+ STRUCTURE DateStamp,0 
+   LONG	 ds_Days		; Number of days since Jan. 1, 1978
+   LONG	 ds_Minute		; Number of minutes past midnight 
+   LONG	 ds_Tick		; Number of ticks past minute 
+   LABEL ds_SIZEOF		; DateStamp 
+TICKS_PER_SECOND EQU 50		; Number of ticks in one second 
+
+* Returned by Examine() and ExInfo() 
+ STRUCTURE FileInfoBlock,0
+   LONG	  fib_DiskKey
+   LONG	  fib_DirEntryType	; Type of Directory. If < 0, then a plain file.
+				; If > 0 a directory 
+   STRUCT fib_FileName,108	; Null terminated. Max 30 chars used for now 
+   LONG	  fib_Protection	; bit mask of protection, rwxd are 3-0.	     
+   LONG	  fib_EntryType
+   LONG	  fib_Size		; Number of bytes in file 
+   LONG	  fib_NumBlocks		; Number of blocks in file 
+   STRUCT fib_DateStamp,ds_SIZEOF ; Date file last changed.
+   STRUCT fib_Comment,80	; Null terminated. Comment associated with file 
+   STRUCT fib_Reserved,36
+   LABEL  fib_SIZEOF		; FileInfoBlock 
+
+* FIB stands for FileInfoBlock 
+* FIBB are bit definitions, FIBF are field definitions 
+   BITDEF   FIB,SCRIPT,6	; program is an execute script
+   BITDEF   FIB,PURE,5		; program is reentrant and reexecutable
+   BITDEF   FIB,ARCHIVE,4	; cleared whenever file is changed
+   BITDEF   FIB,READ,3		; ignored by the system
+   BITDEF   FIB,WRITE,2		; ignored by the system
+   BITDEF   FIB,EXECUTE,1	; ignored by the system
+   BITDEF   FIB,DELETE,0	; prevent file from being deleted
+
+
+* All BCPL data must be long word aligned.  BCPL pointers are the long word
+* address (i.e byte address divided by 4 (>>2))
+
+* Macro to indicate BCPL pointers
+BPTR	 MACRO			    * Long word pointer
+	 LONG	  \1
+	 ENDM
+BSTR	 MACRO			    * Long word pointer to BCPL string.
+	 LONG	  \1
+	 ENDM
+
+* #define BADDR( bptr ) (bptr << 2) * Convert BPTR to byte addressed pointer
+
+* BCPL strings have a length in the first byte and then the characters.
+* For example:	s[0]=3 s[1]=S s[2]=Y s[3]=S
+
+* returned by Info() 
+ STRUCTURE InfoData,0
+   LONG id_NumSoftErrors	* number of soft errors on disk 
+   LONG id_UnitNumber		* Which unit disk is (was) mounted on 
+   LONG id_DiskState		* See defines below 
+   LONG id_NumBlocks		* Number of blocks on disk 
+   LONG id_NumBlocksUsed	* Number of block in use 
+   LONG id_BytesPerBlock   
+   LONG id_DiskType		* Disk Type code
+   BPTR id_VolumeNode		* BCPL pointer to volume node
+   LONG id_InUse		* Flag, zero if not in use
+   LABEL id_SIZEOF		* InfoData 
+
+* ID stands for InfoData 
+*	     Disk states
+ID_WRITE_PROTECTED	EQU	80	* Disk is write protected 
+ID_VALIDATING		EQU	81	* Disk is currently being validated 
+ID_VALIDATED		EQU	82	* Disk is consistent and writeable 
+*	   Disk types 
+ID_NO_DISK_PRESENT	EQU -1
+ID_UNREADABLE_DISK	EQU  ('B'<<24)!('A'<<16)!('D'<<8)
+ID_NOT_REALLY_DOS	EQU  ('N'<<24)!('D'<<16)!('O'<<8)!('S')
+ID_DOS_DISK		EQU  ('D'<<24)!('O'<<16)!('S'<<8)
+ID_KICKSTART_DISK	EQU  ('K'<<24)!('I'<<16)!('C'<<8)!('K')
+
+* Errors from IoErr(), etc. 
+ERROR_NO_FREE_STORE		  EQU  103
+ERROR_TASK_TABLE_FULL		  EQU  105
+ERROR_LINE_TOO_LONG		  EQU  120
+ERROR_FILE_NOT_OBJECT		  EQU  121
+ERROR_INVALID_RESIDENT_LIBRARY	  EQU  122
+ERROR_OBJECT_IN_USE		  EQU  202
+ERROR_OBJECT_EXISTS		  EQU  203
+ERROR_OBJECT_NOT_FOUND		  EQU  205
+ERROR_ACTION_NOT_KNOWN		  EQU  209
+ERROR_INVALID_COMPONENT_NAME	  EQU  210
+ERROR_INVALID_LOCK		  EQU  211
+ERROR_OBJECT_WRONG_TYPE		  EQU  212
+ERROR_DISK_NOT_VALIDATED	  EQU  213
+ERROR_DISK_WRITE_PROTECTED	  EQU  214
+ERROR_RENAME_ACROSS_DEVICES	  EQU  215
+ERROR_DIRECTORY_NOT_EMPTY	  EQU  216
+ERROR_DEVICE_NOT_MOUNTED	  EQU  218
+ERROR_SEEK_ERROR		  EQU  219
+ERROR_COMMENT_TOO_BIG		  EQU  220   
+ERROR_DISK_FULL			  EQU  221
+ERROR_DELETE_PROTECTED		  EQU  222
+ERROR_WRITE_PROTECTED		  EQU  223 
+ERROR_READ_PROTECTED		  EQU  224
+ERROR_NOT_A_DOS_DISK		  EQU  225
+ERROR_NO_DISK			  EQU  226
+ERROR_NO_MORE_ENTRIES		  EQU  232
+
+* These are the return codes used by convention by AmigaDOS commands 
+* See FAILAT and IF for relvance to EXECUTE files		     
+RETURN_OK			  EQU	 0  * No problems, success 
+RETURN_WARN			  EQU	 5  * A warning only 
+RETURN_ERROR			  EQU	10  * Something wrong 
+RETURN_FAIL			  EQU	20  * Complete or severe failure
+
+* Bit numbers that signal you that a user has issued a break
+	BITDEF	SIGBREAK,CTRL_C,12
+	BITDEF	SIGBREAK,CTRL_D,13
+	BITDEF	SIGBREAK,CTRL_E,14
+	BITDEF	SIGBREAK,CTRL_F,15
+
+	ENDC	; LIBRARIES_DOS_I
diff --git a/includes/libraries/dosextens.i b/includes/libraries/dosextens.i
new file mode 100644
index 0000000..6db1425
--- /dev/null
+++ b/includes/libraries/dosextens.i
@@ -0,0 +1,293 @@
+	IFND	LIBRARIES_DOSEXTENS_I
+LIBRARIES_DOSEXTENS_I	SET	1
+**
+**	$Filename: libraries/dosextens.i $
+**	$Release: 1.3 $
+**
+**	DOS structures not needed for the casual AmigaDOS user 
+**
+**	(C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
+**	    All Rights Reserved
+**
+
+     IFND  EXEC_TYPES_I
+     INCLUDE "exec/types.i"
+     ENDC
+     IFND  EXEC_TASKS_I
+     INCLUDE "exec/tasks.i"
+     ENDC
+     IFND  EXEC_PORTS_I
+     INCLUDE "exec/ports.i"
+     ENDC
+     IFND  EXEC_LIBRARIES_I
+     INCLUDE "exec/libraries.i"
+     ENDC
+
+     IFND  LIBRARIES_DOS_I
+     INCLUDE "libraries/dos.i"
+     ENDC
+
+
+* All DOS processes have this STRUCTure
+* Create and DeviceProc returns pointer to the MsgPort in this STRUCTure
+* Process_addr = DeviceProc(..) - TC_SIZE
+
+ STRUCTURE Process,0
+    STRUCT  pr_Task,TC_SIZE
+    STRUCT  pr_MsgPort,MP_SIZE	* This is BPTR address from DOS functions
+    WORD    pr_Pad		* Remaining variables on 4 byte boundaries
+    BPTR    pr_SegList		* Array of seg lists used by this process
+    LONG    pr_StackSize	* Size of process stack in bytes
+    APTR    pr_GlobVec		* Global vector for this process (BCPL)
+    LONG    pr_TaskNum		* CLI task number of zero if not a CLI
+    BPTR    pr_StackBase	* Ptr to high memory end of process stack
+    LONG    pr_Result2		* Value of secondary result from last call
+    BPTR    pr_CurrentDir	* Lock associated with current directory
+    BPTR    pr_CIS		* Current CLI Input Stream
+    BPTR    pr_COS		* Current CLI Output Stream
+    APTR    pr_ConsoleTask	* Console handler process for current window
+    APTR    pr_FileSystemTask	* File handler process for current drive
+    BPTR    pr_CLI		* pointer to ConsoleLineInterpreter
+    APTR    pr_ReturnAddr	* pointer to previous stack frame
+    APTR    pr_PktWait		* Function to be called when awaiting msg
+    APTR    pr_WindowPtr	* Window pointer for errors
+    LABEL   pr_SIZEOF		* Process
+
+* The long word address (BPTR) of this STRUCTure is returned by
+* Open() and other routines that return a file.	 You need only worry
+* about this STRUCT to do async io's via PutMsg() instead of
+* standard file system calls
+
+ STRUCTURE FileHandle,0
+   APTR	  fh_Link		* pointer to EXEC message
+   APTR	  fh_Interactive	* Boolean; TRUE if interactive handle
+   APTR	  fh_Type		* Port to do PutMsg() to
+   LONG	  fh_Buf
+   LONG	  fh_Pos
+   LONG	  fh_End
+   LONG	  fh_Funcs
+fh_Func1 EQU fh_Funcs
+   LONG	  fh_Func2
+   LONG	  fh_Func3
+   LONG	  fh_Args
+fh_Arg1 EQU fh_Args
+   LONG	  fh_Arg2
+   LABEL  fh_SIZEOF * FileHandle
+
+* This is the extension to EXEC Messages used by DOS
+ STRUCTURE DosPacket,0
+   APTR	  dp_Link	  * pointer to EXEC message
+   APTR	  dp_Port	  * pointer to Reply port for the packet
+*			  * Must be filled in each send.
+   LONG	  dp_Type	  * See ACTION_... below and
+*			  * 'R' means Read, 'W' means Write to the file system
+   LONG	  dp_Res1	  * For file system calls this is the result
+*			  * that would have been returned by the
+*			  * function, e.g. Write ('W') returns actual
+*			  * length written
+   LONG	  dp_Res2	  * For file system calls this is what would
+*			  * have been returned by IoErr()
+   LONG	  dp_Arg1
+*  Device packets common equivalents
+dp_Action  EQU	dp_Type
+dp_Status  EQU	dp_Res1
+dp_Status2 EQU	dp_Res2
+dp_BufAddr EQU	dp_Arg1
+   LONG	  dp_Arg2
+   LONG	  dp_Arg3
+   LONG	  dp_Arg4
+   LONG	  dp_Arg5
+   LONG	  dp_Arg6
+   LONG	  dp_Arg7
+   LABEL  dp_SIZEOF * DosPacket
+
+* A Packet does not require the Message to before it in memory, but
+* for convenience it is useful to associate the two.
+* Also see the function init_std_pkt for initializing this STRUCTure
+
+ STRUCTURE StandardPacket,0
+   STRUCT sp_Msg,MN_SIZE
+   STRUCT sp_Pkt,dp_SIZEOF
+   LABEL  sp_SIZEOF * StandardPacket
+
+
+* Packet types
+ACTION_NIL		EQU	0
+ACTION_GET_BLOCK	EQU	2	;OBSOLETE
+ACTION_SET_MAP		EQU	4
+ACTION_DIE		EQU	5
+ACTION_EVENT		EQU	6
+ACTION_CURRENT_VOLUME	EQU	7
+ACTION_LOCATE_OBJECT	EQU	8
+ACTION_RENAME_DISK	EQU	9
+ACTION_WRITE		EQU	'W'
+ACTION_READ		EQU	'R'
+ACTION_FREE_LOCK	EQU	15
+ACTION_DELETE_OBJECT	EQU	16
+ACTION_RENAME_OBJECT	EQU	17
+ACTION_MORE_CACHE	EQU	18
+ACTION_COPY_DIR		EQU	19
+ACTION_WAIT_CHAR	EQU	20
+ACTION_SET_PROTECT	EQU	21
+ACTION_CREATE_DIR	EQU	22
+ACTION_EXAMINE_OBJECT	EQU	23
+ACTION_EXAMINE_NEXT	EQU	24
+ACTION_DISK_INFO	EQU	25
+ACTION_INFO		EQU	26
+ACTION_FLUSH		EQU	27
+ACTION_SET_COMMENT	EQU	28
+ACTION_PARENT		EQU	29
+ACTION_TIMER		EQU	30
+ACTION_INHIBIT		EQU	31
+ACTION_DISK_TYPE	EQU	32
+ACTION_DISK_CHANGE	EQU	33
+ACTION_SET_DATE		EQU	34
+
+ACTION_SCREEN_MODE	EQU	994
+
+ACTION_READ_RETURN	EQU	1001
+ACTION_WRITE_RETURN	EQU	1002
+ACTION_SEEK		EQU	1008
+ACTION_FINDUPDATE	EQU	1004
+ACTION_FINDINPUT	EQU	1005
+ACTION_FINDOUTPUT	EQU	1006
+ACTION_END		EQU	1007
+ACTION_TRUNCATE		EQU	1022	/* fast file system only */
+ACTION_WRITE_PROTECT	EQU	1023	/* fast file system only */
+
+* DOS library node structure.
+* This is the data at positive offsets from the library node.
+* Negative offsets from the node is the jump table to DOS functions
+* node = (STRUCT DosLibrary *) OpenLibrary( "dos.library" .. )
+
+ STRUCTURE DosLibrary,0
+    STRUCT  dl_lib,LIB_SIZE
+    APTR    dl_Root	     * Pointer to RootNode, described below
+    APTR    dl_GV	     * Pointer to BCPL global vector
+    LONG    dl_A2	     * Private register dump of DOS
+    LONG    dl_A5
+    LONG    dl_A6
+    LABEL   dl_SIZEOF *	 DosLibrary
+
+*
+
+ STRUCTURE RootNode,0
+    BPTR    rn_TaskArray       * [0] is max number of CLI's
+*			       * [1] is APTR to process id of CLI 1
+*			       * [n] is APTR to process id of CLI n
+    BPTR    rn_ConsoleSegment  * SegList for the CLI
+    STRUCT  rn_Time,ds_SIZEOF  * Current time
+    LONG    rn_RestartSeg      * SegList for the disk validator process
+    BPTR    rn_Info	       * Pointer ot the Info structure
+    BPTR    rn_FileHandlerSegment * code for file handler 
+    LABEL   rn_SIZEOF * RootNode
+
+ STRUCTURE DosInfo,0
+    BPTR    di_McName	       * Network name of this machine currently 0
+    BPTR    di_DevInfo	       * Device List
+    BPTR    di_Devices	       * Currently zero
+    BPTR    di_Handlers	       * Currently zero
+    APTR    di_NetHand	       * Network handler processid currently zero
+    LABEL   di_SIZEOF * DosInfo
+
+* DOS Processes started from the CLI via RUN or NEWCLI have this additional
+* set to data associated with them
+
+ STRUCTURE CommandLineInterface,0
+    LONG   cli_Result2	       * Value of IoErr from last command
+    BSTR   cli_SetName	       * Name of current directory
+    BPTR   cli_CommandDir      * Lock associated with command directory
+    LONG   cli_ReturnCode      * Return code from last command
+    BSTR   cli_CommandName     * Name of current command
+    LONG   cli_FailLevel       * Fail level (set by FAILAT)
+    BSTR   cli_Prompt	       * Current prompt (set by PROMPT)
+    BPTR   cli_StandardInput   * Default (terminal) CLI input
+    BPTR   cli_CurrentInput    * Current CLI input
+    BSTR   cli_CommandFile     * Name of EXECUTE command file
+    LONG   cli_Interactive     * Boolean True if prompts required
+    LONG   cli_Background      * Boolean True if CLI created by RUN
+    BPTR   cli_CurrentOutput   * Current CLI output
+    LONG   cli_DefaultStack    * Stack size to be obtained in long words
+    BPTR   cli_StandardOutput  * Default (terminal) CLI output
+    BPTR   cli_Module	       * SegList of currently loaded command
+    LABEL  cli_SIZEOF	       * CommandLineInterface
+
+* This structure can take on different values depending on whether it is
+* a device, an assigned directory, or a volume.	 Below is the structure
+* reflecting volumes only.  Following that is the structure representing
+* only devices. Following that is the unioned structure representing all
+* the values
+  
+* structure representing a volume 
+
+ STRUCTURE DevList,0
+    BPTR	dl_Next			; bptr to next device list
+    LONG	dl_Type			; see DLT below
+    APTR	dl_Task			; ptr to handler task
+    BPTR	dl_Lock			; not for volumes
+    STRUCT	dl_VolumeDate,ds_SIZEOF ; creation date
+    BPTR	dl_LockList		; outstanding locks
+    LONG	dl_DiskType		; 'DOS', etc
+    LONG	dl_unused
+    BSTR	dl_Name			; bptr to bcpl name
+    LABEL	DevList_SIZEOF
+
+* device structure (same as the DeviceNode structure in filehandler.i
+
+ STRUCTURE	 DevInfo,0
+    BPTR    dvi_Next
+    LONG    dvi_Type
+    APTR    dvi_Task
+    BPTR    dvi_Lock
+    BSTR    dvi_Handler
+    LONG    dvi_Stacksize
+    LONG    dvi_Priority
+    LONG    dvi_Startup
+    BPTR    dvi_SegList
+    BPTR    dvi_GlobVec
+    BSTR    dvi_Name
+    LABEL   dvi_SIZEOF
+
+* combined structure for devices, assigned directories, volumes 
+
+ STRUCTURE DosList,0
+    BPTR     dol_Next	     ; bptr to next device on lis
+    LONG     dol_Type	     ; see DLT below
+    APTR     dol_Task	     ; ptr to handler task
+    BPTR     dol_Lock
+
+    STRUCT	dol_VolumeDate,0	; creation date (UNION)
+    BSTR	dol_Handler		; file name to load if seglist is null
+    LONG	dol_StackSize		; stacksize to use when starting process
+    LONG	dol_Priority		; task priority when starting process
+
+    STRUCT	dol_LockList,0		; outstanding locks (UNION)
+    ULONG	dol_Startup		; startup msg: FileSysStartupMsg
+					; for disks
+
+    STRUCT	dol_DiskType,0		; 'DOS', etc (UNION)
+    BPTR	dol_SegList		; already loaded code for new task
+
+    BPTR	dol_GlobVec		; BCPL global vector
+
+    BSTR	dol_Name		; bptr to bcpl name
+    LABEL	DosList_SIZEOF
+
+
+
+* definitions for dl_Type
+DLT_DEVICE	EQU	0
+DLT_DIRECTORY	EQU	1
+DLT_VOLUME	EQU	2
+
+
+* a lock structure, as returned by Lock() or DupLock()
+ STRUCTURE FileLock,0
+    BPTR	fl_Link			; bcpl pointer to next lock
+    LONG	fl_Key			; disk block number
+    LONG	fl_Access		; exclusive or shared
+    APTR	fl_Task			; handler task's port
+    BPTR	fl_Volume		; bptr to a DeviceList
+    LABEL	fl_SIZEOF
+
+	ENDC	; LIBRARIES_DOSEXTENS_I
diff --git a/includes/lvo/console_lib.i b/includes/lvo/console_lib.i
new file mode 100644
index 0000000..65b4ccd
--- /dev/null
+++ b/includes/lvo/console_lib.i
@@ -0,0 +1,7 @@
+; ASM-One - console_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOCDInputHandler	EQU	-42
+_LVORawKeyConvert	EQU	-48
diff --git a/includes/lvo/diskfont_lib.i b/includes/lvo/diskfont_lib.i
new file mode 100644
index 0000000..5443e04
--- /dev/null
+++ b/includes/lvo/diskfont_lib.i
@@ -0,0 +1,19 @@
+; ASM-One - diskfont_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOOpenDiskFont	EQU	-30
+_LVOAvailFonts	EQU	-36
+_LVONewFontContents	EQU	-42
+_LVODisposeFontContents	EQU	-48
+_LVONewScaledDiskFont	EQU	-54
+
+CALLDISKFONT	MACRO
+	move.l	_DiskfontBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+DISKFONTNAME	MACRO
+	dc.b	'diskfont.library',0
+	ENDM
diff --git a/includes/lvo/dos_lib.i b/includes/lvo/dos_lib.i
new file mode 100644
index 0000000..5bdcc17
--- /dev/null
+++ b/includes/lvo/dos_lib.i
@@ -0,0 +1,164 @@
+; ASM-One - dos_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOOpen	EQU	-30
+_LVOClose	EQU	-36
+_LVORead	EQU	-42
+_LVOWrite	EQU	-48
+_LVOInput	EQU	-54
+_LVOOutput	EQU	-60
+_LVOSeek	EQU	-66
+_LVODeleteFile	EQU	-72
+_LVORename	EQU	-78
+_LVOLock	EQU	-84
+_LVOUnLock	EQU	-90
+_LVODupLock	EQU	-96
+_LVOExamine	EQU	-102
+_LVOExNext	EQU	-108
+_LVOInfo	EQU	-114
+_LVOCreateDir	EQU	-120
+_LVOCurrentDir	EQU	-126
+_LVOIoErr	EQU	-132
+_LVOCreateProc	EQU	-138
+_LVOExit	EQU	-144
+_LVOLoadSeg	EQU	-150
+_LVOUnLoadSeg	EQU	-156
+_LVODeviceProc	EQU	-174
+_LVOSetComment	EQU	-180
+_LVOSetProtection	EQU	-186
+_LVODateStamp	EQU	-192
+_LVODelay	EQU	-198
+_LVOWaitForChar	EQU	-204
+_LVOParentDir	EQU	-210
+_LVOIsInteractive	EQU	-216
+_LVOExecute	EQU	-222
+_LVOAllocDosObject	EQU	-228
+_LVOFreeDosObject	EQU	-234
+_LVODoPkt	EQU	-240
+_LVOSendPkt	EQU	-246
+_LVOWaitPkt	EQU	-252
+_LVOReplyPkt	EQU	-258
+_LVOAbortPkt	EQU	-264
+_LVOLockRecord	EQU	-270
+_LVOLockRecords	EQU	-276
+_LVOUnLockRecord	EQU	-282
+_LVOUnLockRecords	EQU	-288
+_LVOSelectInput	EQU	-294
+_LVOSelectOutput	EQU	-300
+_LVOFGetC	EQU	-306
+_LVOFPutC	EQU	-312
+_LVOUnGetC	EQU	-318
+_LVOFRead	EQU	-324
+_LVOFWrite	EQU	-330
+_LVOFGets	EQU	-336
+_LVOFPuts	EQU	-342
+_LVOVFWritef	EQU	-348
+_LVOVFPrintf	EQU	-354
+_LVOFlush	EQU	-360
+_LVOSetVBuf	EQU	-366
+_LVODupLockFromFH	EQU	-372
+_LVOOpenFromLock	EQU	-378
+_LVOParentOfFH	EQU	-384
+_LVOExamineFH	EQU	-390
+_LVOSetFileDate	EQU	-396
+_LVONameFromLock	EQU	-402
+_LVONameFromFH	EQU	-408
+_LVOSplitName	EQU	-414
+_LVOSameLock	EQU	-420
+_LVOSetMode	EQU	-426
+_LVOExAll	EQU	-432
+_LVOReadLink	EQU	-438
+_LVOMakeLink	EQU	-444
+_LVOChangeMode	EQU	-450
+_LVOSetFileSize	EQU	-456
+_LVOSetIoErr	EQU	-462
+_LVOFault	EQU	-468
+_LVOPrintFault	EQU	-474
+_LVOErrorReport	EQU	-480
+_LVOCli	EQU	-492
+_LVOCreateNewProc	EQU	-498
+_LVORunCommand	EQU	-504
+_LVOGetConsoleTask	EQU	-510
+_LVOSetConsoleTask	EQU	-516
+_LVOGetFileSysTask	EQU	-522
+_LVOSetFileSysTask	EQU	-528
+_LVOGetArgStr	EQU	-534
+_LVOSetArgStr	EQU	-540
+_LVOFindCliProc	EQU	-546
+_LVOMaxCli	EQU	-552
+_LVOSetCurrentDirName	EQU	-558
+_LVOGetCurrentDirName	EQU	-564
+_LVOSetProgramName	EQU	-570
+_LVOGetProgramName	EQU	-576
+_LVOSetPrompt	EQU	-582
+_LVOGetPrompt	EQU	-588
+_LVOSetProgramDir	EQU	-594
+_LVOGetProgramDir	EQU	-600
+_LVOSystemTagList	EQU	-606
+_LVOAssignLock	EQU	-612
+_LVOAssignLate	EQU	-618
+_LVOAssignPath	EQU	-624
+_LVOAssignAdd	EQU	-630
+_LVORemAssignList	EQU	-636
+_LVOGetDeviceProc	EQU	-642
+_LVOFreeDeviceProc	EQU	-648
+_LVOLockDosList	EQU	-654
+_LVOUnLockDosList	EQU	-660
+_LVOAttemptLockDosList	EQU	-666
+_LVORemDosEntry	EQU	-672
+_LVOAddDosEntry	EQU	-678
+_LVOFindDosEntry	EQU	-684
+_LVONextDosEntry	EQU	-690
+_LVOMakeDosEntry	EQU	-696
+_LVOFreeDosEntry	EQU	-702
+_LVOIsFileSystem	EQU	-708
+_LVOFormat	EQU	-714
+_LVORelabel	EQU	-720
+_LVOInhibit	EQU	-726
+_LVOAddBuffers	EQU	-732
+_LVOCompareDates	EQU	-738
+_LVODateToStr	EQU	-744
+_LVOStrToDate	EQU	-750
+_LVOInternalLoadSeg	EQU	-756
+_LVOInternalUnLoadSeg	EQU	-762
+_LVONewLoadSeg	EQU	-768
+_LVOAddSegment	EQU	-774
+_LVOFindSegment	EQU	-780
+_LVORemSegment	EQU	-786
+_LVOCheckSignal	EQU	-792
+_LVOReadArgs	EQU	-798
+_LVOFindArg	EQU	-804
+_LVOReadItem	EQU	-810
+_LVOStrToLong	EQU	-816
+_LVOMatchFirst	EQU	-822
+_LVOMatchNext	EQU	-828
+_LVOMatchEnd	EQU	-834
+_LVOParsePattern	EQU	-840
+_LVOMatchPattern	EQU	-846
+_LVOFreeArgs	EQU	-858
+_LVOFilePart	EQU	-870
+_LVOPathPart	EQU	-876
+_LVOAddPart	EQU	-882
+_LVOStartNotify	EQU	-888
+_LVOEndNotify	EQU	-894
+_LVOSetVar	EQU	-900
+_LVOGetVar	EQU	-906
+_LVODeleteVar	EQU	-912
+_LVOFindVar	EQU	-918
+_LVOCliInitNewcli	EQU	-930
+_LVOCliInitRun	EQU	-936
+_LVOWriteChars	EQU	-942
+_LVOPutStr	EQU	-948
+_LVOVPrintf	EQU	-954
+_LVOParsePatternNoCase	EQU	-966
+_LVOMatchPatternNoCase	EQU	-972
+_LVOSameDevice	EQU	-984
+_LVOExAllEnd	EQU	-990
+_LVOSetOwner	EQU	-996
+
+CALLDOS	MACRO
+	move.l	_DOSBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
diff --git a/includes/lvo/exec_lib.i b/includes/lvo/exec_lib.i
new file mode 100644
index 0000000..765dd65
--- /dev/null
+++ b/includes/lvo/exec_lib.i
@@ -0,0 +1,131 @@
+; ASM-One - exec_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOSupervisor	EQU	-30
+_LVOInitCode	EQU	-72
+_LVOInitStruct	EQU	-78
+_LVOMakeLibrary	EQU	-84
+_LVOMakeFunctions	EQU	-90
+_LVOFindResident	EQU	-96
+_LVOInitResident	EQU	-102
+_LVOAlert	EQU	-108
+_LVODebug	EQU	-114
+_LVODisable	EQU	-120
+_LVOEnable	EQU	-126
+_LVOForbid	EQU	-132
+_LVOPermit	EQU	-138
+_LVOSetSR	EQU	-144
+_LVOSuperState	EQU	-150
+_LVOUserState	EQU	-156
+_LVOSetIntVector	EQU	-162
+_LVOAddIntServer	EQU	-168
+_LVORemIntServer	EQU	-174
+_LVOCause	EQU	-180
+_LVOAllocate	EQU	-186
+_LVODeallocate	EQU	-192
+_LVOAllocMem	EQU	-198
+_LVOAllocAbs	EQU	-204
+_LVOFreeMem	EQU	-210
+_LVOAvailMem	EQU	-216
+_LVOAllocEntry	EQU	-222
+_LVOFreeEntry	EQU	-228
+_LVOInsert	EQU	-234
+_LVOAddHead	EQU	-240
+_LVOAddTail	EQU	-246
+_LVORemove	EQU	-252
+_LVORemHead	EQU	-258
+_LVORemTail	EQU	-264
+_LVOEnqueue	EQU	-270
+_LVOFindName	EQU	-276
+_LVOAddTask	EQU	-282
+_LVORemTask	EQU	-288
+_LVOFindTask	EQU	-294
+_LVOSetTaskPri	EQU	-300
+_LVOSetSignal	EQU	-306
+_LVOSetExcept	EQU	-312
+_LVOWait	EQU	-318
+_LVOSignal	EQU	-324
+_LVOAllocSignal	EQU	-330
+_LVOFreeSignal	EQU	-336
+_LVOAllocTrap	EQU	-342
+_LVOFreeTrap	EQU	-348
+_LVOAddPort	EQU	-354
+_LVORemPort	EQU	-360
+_LVOPutMsg	EQU	-366
+_LVOGetMsg	EQU	-372
+_LVOReplyMsg	EQU	-378
+_LVOWaitPort	EQU	-384
+_LVOFindPort	EQU	-390
+_LVOAddLibrary	EQU	-396
+_LVORemLibrary	EQU	-402
+_LVOOldOpenLibrary	EQU	-408
+_LVOCloseLibrary	EQU	-414
+_LVOSetFunction	EQU	-420
+_LVOSumLibrary	EQU	-426
+_LVOAddDevice	EQU	-432
+_LVORemDevice	EQU	-438
+_LVOOpenDevice	EQU	-444
+_LVOCloseDevice	EQU	-450
+_LVODoIO	EQU	-456
+_LVOSendIO	EQU	-462
+_LVOCheckIO	EQU	-468
+_LVOWaitIO	EQU	-474
+_LVOAbortIO	EQU	-480
+_LVOAddResource	EQU	-486
+_LVORemResource	EQU	-492
+_LVOOpenResource	EQU	-498
+_LVORawDoFmt	EQU	-522
+_LVOGetCC	EQU	-528
+_LVOTypeOfMem	EQU	-534
+_LVOProcure	EQU	-540
+_LVOVacate	EQU	-546
+_LVOOpenLibrary	EQU	-552
+_LVOInitSemaphore	EQU	-558
+_LVOObtainSemaphore	EQU	-564
+_LVOReleaseSemaphore	EQU	-570
+_LVOAttemptSemaphore	EQU	-576
+_LVOObtainSemaphoreList	EQU	-582
+_LVOReleaseSemaphoreList	EQU	-588
+_LVOFindSemaphore	EQU	-594
+_LVOAddSemaphore	EQU	-600
+_LVORemSemaphore	EQU	-606
+_LVOSumKickData	EQU	-612
+_LVOAddMemList	EQU	-618
+_LVOCopyMem	EQU	-624
+_LVOCopyMemQuick	EQU	-630
+_LVOCacheClearU	EQU	-636
+_LVOCacheClearE	EQU	-642
+_LVOCacheControl	EQU	-648
+_LVOCreateIORequest	EQU	-654
+_LVODeleteIORequest	EQU	-660
+_LVOCreateMsgPort	EQU	-666
+_LVODeleteMsgPort	EQU	-672
+_LVOObtainSemaphoreShared	EQU	-678
+_LVOAllocVec	EQU	-684
+_LVOFreeVec	EQU	-690
+_LVOCreatePool	EQU	-696
+_LVODeletePool	EQU	-702
+_LVOAllocPooled	EQU	-708
+_LVOFreePooled	EQU	-714
+_LVOAttemptSemaphoreShared	EQU	-720
+_LVOColdReboot	EQU	-726
+_LVOStackSwap	EQU	-732
+_LVOChildFree	EQU	-738
+_LVOChildOrphan	EQU	-744
+_LVOChildStatus	EQU	-750
+_LVOChildWait	EQU	-756
+_LVOCachePreDMA	EQU	-762
+_LVOCachePostDMA	EQU	-768
+_LVOAddMemHandler	EQU	-774
+_LVORemMemHandler	EQU	-780
+
+CALLEXEC	MACRO
+	move.l	4.w,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+EXECNAME	MACRO
+	dc.b	'exec.library',0
+	ENDM
diff --git a/includes/lvo/graphics_lib.i b/includes/lvo/graphics_lib.i
new file mode 100644
index 0000000..1b5d67b
--- /dev/null
+++ b/includes/lvo/graphics_lib.i
@@ -0,0 +1,181 @@
+; ASM-One - graphics_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOBltBitMap	EQU	-30
+_LVOBltTemplate	EQU	-36
+_LVOClearEOL	EQU	-42
+_LVOClearScreen	EQU	-48
+_LVOTextLength	EQU	-54
+_LVOText	EQU	-60
+_LVOSetFont	EQU	-66
+_LVOOpenFont	EQU	-72
+_LVOCloseFont	EQU	-78
+_LVOAskSoftStyle	EQU	-84
+_LVOSetSoftStyle	EQU	-90
+_LVOAddBob	EQU	-96
+_LVOAddVSprite	EQU	-102
+_LVODoCollision	EQU	-108
+_LVODrawGList	EQU	-114
+_LVOInitGels	EQU	-120
+_LVOInitMasks	EQU	-126
+_LVORemIBob	EQU	-132
+_LVORemVSprite	EQU	-138
+_LVOSetCollision	EQU	-144
+_LVOSortGList	EQU	-150
+_LVOAddAnimOb	EQU	-156
+_LVOAnimate	EQU	-162
+_LVOGetGBuffers	EQU	-168
+_LVOInitGMasks	EQU	-174
+_LVODrawEllipse	EQU	-180
+_LVOAreaEllipse	EQU	-186
+_LVOLoadRGB4	EQU	-192
+_LVOInitRastPort	EQU	-198
+_LVOInitVPort	EQU	-204
+_LVOMrgCop	EQU	-210
+_LVOMakeVPort	EQU	-216
+_LVOLoadView	EQU	-222
+_LVOWaitBlit	EQU	-228
+_LVOSetRast	EQU	-234
+_LVOMove	EQU	-240
+_LVODraw	EQU	-246
+_LVOAreaMove	EQU	-252
+_LVOAreaDraw	EQU	-258
+_LVOAreaEnd	EQU	-264
+_LVOWaitTOF	EQU	-270
+_LVOQBlit	EQU	-276
+_LVOInitArea	EQU	-282
+_LVOSetRGB4	EQU	-288
+_LVOQBSBlit	EQU	-294
+_LVOBltClear	EQU	-300
+_LVORectFill	EQU	-306
+_LVOBltPattern	EQU	-312
+_LVOReadPixel	EQU	-318
+_LVOWritePixel	EQU	-324
+_LVOFlood	EQU	-330
+_LVOPolyDraw	EQU	-336
+_LVOSetAPen	EQU	-342
+_LVOSetBPen	EQU	-348
+_LVOSetDrMd	EQU	-354
+_LVOInitView	EQU	-360
+_LVOCBump	EQU	-366
+_LVOCMove	EQU	-372
+_LVOCWait	EQU	-378
+_LVOVBeamPos	EQU	-384
+_LVOInitBitMap	EQU	-390
+_LVOScrollRaster	EQU	-396
+_LVOWaitBOVP	EQU	-402
+_LVOGetSprite	EQU	-408
+_LVOFreeSprite	EQU	-414
+_LVOChangeSprite	EQU	-420
+_LVOMoveSprite	EQU	-426
+_LVOLockLayerRom	EQU	-432
+_LVOUnlockLayerRom	EQU	-438
+_LVOSyncSBitMap	EQU	-444
+_LVOCopySBitMap	EQU	-450
+_LVOOwnBlitter	EQU	-456
+_LVODisownBlitter	EQU	-462
+_LVOInitTmpRas	EQU	-468
+_LVOAskFont	EQU	-474
+_LVOAddFont	EQU	-480
+_LVORemFont	EQU	-486
+_LVOAllocRaster	EQU	-492
+_LVOFreeRaster	EQU	-498
+_LVOAndRectRegion	EQU	-504
+_LVOOrRectRegion	EQU	-510
+_LVONewRegion	EQU	-516
+_LVOClearRectRegion	EQU	-522
+_LVOClearRegion	EQU	-528
+_LVODisposeRegion	EQU	-534
+_LVOFreeVPortCopLists	EQU	-540
+_LVOFreeCopList	EQU	-546
+_LVOClipBlit	EQU	-552
+_LVOXorRectRegion	EQU	-558
+_LVOFreeCprList	EQU	-564
+_LVOGetColorMap	EQU	-570
+_LVOFreeColorMap	EQU	-576
+_LVOGetRGB4	EQU	-582
+_LVOScrollVPort	EQU	-588
+_LVOUCopperListInit	EQU	-594
+_LVOFreeGBuffers	EQU	-600
+_LVOBltBitMapRastPort	EQU	-606
+_LVOOrRegionRegion	EQU	-612
+_LVOXorRegionRegion	EQU	-618
+_LVOAndRegionRegion	EQU	-624
+_LVOSetRGB4CM	EQU	-630
+_LVOBltMaskBitMapRastPort	EQU	-636
+_LVOGfxInternal1	EQU	-642
+_LVOGfxInternal2	EQU	-648
+_LVOAttemptLockLayerRom	EQU	-654
+_LVOGfxNew	EQU	-660
+_LVOGfxFree	EQU	-666
+_LVOGfxAssociate	EQU	-672
+_LVOBitMapScale	EQU	-678
+_LVOScalerDiv	EQU	-684
+_LVOTextExtent	EQU	-690
+_LVOTextFit	EQU	-696
+_LVOGfxLookUp	EQU	-702
+_LVOVideoControl	EQU	-708
+_LVOOpenMonitor	EQU	-714
+_LVOCloseMonitor	EQU	-720
+_LVOFindDisplayInfo	EQU	-726
+_LVONextDisplayInfo	EQU	-732
+_LVOGetDisplayInfoData	EQU	-756
+_LVOFontExtent	EQU	-762
+_LVOReadPixelLine8	EQU	-768
+_LVOWritePixelLine8	EQU	-774
+_LVOReadPixelArray8	EQU	-780
+_LVOWritePixelArray8	EQU	-786
+_LVOGetVPModeID	EQU	-792
+_LVOModeNotAvailable	EQU	-798
+_LVOWeighTAMatch	EQU	-804
+_LVOEraseRect	EQU	-810
+_LVOExtendFont	EQU	-816
+_LVOStripFont	EQU	-822
+_LVOCalcIVG	EQU	-828
+_LVOAttachPalExtra	EQU	-834
+_LVOObtainBestPenA	EQU	-840
+_LVOGfxInternal3	EQU	-846
+_LVOSetRGB32	EQU	-852
+_LVOGetAPen	EQU	-858
+_LVOGetBPen	EQU	-864
+_LVOGetDrMd	EQU	-870
+_LVOGetOutlinePen	EQU	-876
+_LVOLoadRGB32	EQU	-882
+_LVOSetChipRev	EQU	-888
+_LVOSetABPenDrMd	EQU	-894
+_LVOGetRGB32	EQU	-900
+_LVOGfxSpare1	EQU	-906
+_LVOAllocBitMap	EQU	-918
+_LVOFreeBitMap	EQU	-924
+_LVOGetExtSpriteA	EQU	-930
+_LVOCoerceMode	EQU	-936
+_LVOChangeVPBitMap	EQU	-942
+_LVOReleasePen	EQU	-948
+_LVOObtainPen	EQU	-954
+_LVOGetBitMapAttr	EQU	-960
+_LVOAllocDBufInfo	EQU	-966
+_LVOFreeDBufInfo	EQU	-972
+_LVOSetOutlinePen	EQU	-978
+_LVOSetWriteMask	EQU	-984
+_LVOSetMaxPen	EQU	-990
+_LVOSetRGB32CM	EQU	-996
+_LVOScrollRasterBF	EQU	-1002
+_LVOFindColor	EQU	-1008
+_LVOGfxSpare2	EQU	-1014
+_LVOAllocSpriteDataA	EQU	-1020
+_LVOChangeExtSpriteA	EQU	-1026
+_LVOFreeSpriteData	EQU	-1032
+_LVOSetRPAttrsA	EQU	-1038
+_LVOGetRPAttrsA	EQU	-1044
+_LVOBestModeIDA	EQU	-1050
+
+CALLGRAF	MACRO
+	move.l	_GfxBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+GRAFNAME	MACRO
+	dc.b	'graphics.library',0
+	ENDM
diff --git a/includes/lvo/icon_lib.i b/includes/lvo/icon_lib.i
new file mode 100644
index 0000000..f0d3ffb
--- /dev/null
+++ b/includes/lvo/icon_lib.i
@@ -0,0 +1,28 @@
+; ASM-One - icon_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOGetIcon	EQU	-42
+_LVOPutIcon	EQU	-48
+_LVOFreeFreeList	EQU	-54
+_LVOAddFreeList	EQU	-72
+_LVOGetDiskObject	EQU	-78
+_LVOPutDiskObject	EQU	-84
+_LVOFreeDiskObject	EQU	-90
+_LVOFindToolType	EQU	-96
+_LVOMatchToolValue	EQU	-102
+_LVOBumpRevision	EQU	-108
+_LVOGetDefDiskObject	EQU	-120
+_LVOPutDefDiskObject	EQU	-126
+_LVOGetDiskObjectNew	EQU	-132
+_LVODeleteDiskObject	EQU	-138
+
+CALLICON	MACRO
+	move.l	_IconBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+ICONNAME	MACRO
+	dc.b	'icon.library',0
+	ENDM
diff --git a/includes/lvo/intuition_lib.i b/includes/lvo/intuition_lib.i
new file mode 100644
index 0000000..9a9739f
--- /dev/null
+++ b/includes/lvo/intuition_lib.i
@@ -0,0 +1,138 @@
+; ASM-One - intuition_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOOpenIntuition	EQU	-30
+_LVOIntuition	EQU	-36
+_LVOAddGadget	EQU	-42
+_LVOClearDMRequest	EQU	-48
+_LVOClearMenuStrip	EQU	-54
+_LVOClearPointer	EQU	-60
+_LVOCloseScreen	EQU	-66
+_LVOCloseWindow	EQU	-72
+_LVOCloseWorkBench	EQU	-78
+_LVOCurrentTime	EQU	-84
+_LVODisplayAlert	EQU	-90
+_LVODisplayBeep	EQU	-96
+_LVODoubleClick	EQU	-102
+_LVODrawBorder	EQU	-108
+_LVODrawImage	EQU	-114
+_LVOEndRequest	EQU	-120
+_LVOGetDefPrefs	EQU	-126
+_LVOGetPrefs	EQU	-132
+_LVOInitRequester	EQU	-138
+_LVOItemAddress	EQU	-144
+_LVOModifyIDCMP	EQU	-150
+_LVOModifyProp	EQU	-156
+_LVOMoveScreen	EQU	-162
+_LVOMoveWindow	EQU	-168
+_LVOOffGadget	EQU	-174
+_LVOOffMenu	EQU	-180
+_LVOOnGadget	EQU	-186
+_LVOOnMenu	EQU	-192
+_LVOOpenScreen	EQU	-198
+_LVOOpenWindow	EQU	-204
+_LVOOpenWorkBench	EQU	-210
+_LVOPrintIText	EQU	-216
+_LVORefreshGadgets	EQU	-222
+_LVORemoveGadget	EQU	-228
+_LVOReportMouse	EQU	-234
+_LVORequest	EQU	-240
+_LVOScreenToBack	EQU	-246
+_LVOScreenToFront	EQU	-252
+_LVOSetDMRequest	EQU	-258
+_LVOSetMenuStrip	EQU	-264
+_LVOSetPointer	EQU	-270
+_LVOSetWindowTitles	EQU	-276
+_LVOShowTitle	EQU	-282
+_LVOSizeWindow	EQU	-288
+_LVOViewAddress	EQU	-294
+_LVOViewPortAddress	EQU	-300
+_LVOWindowToBack	EQU	-306
+_LVOWindowToFront	EQU	-312
+_LVOWindowLimits	EQU	-318
+_LVOSetPrefs	EQU	-324
+_LVOIntuiTextLength	EQU	-330
+_LVOWBenchToBack	EQU	-336
+_LVOWBenchToFront	EQU	-342
+_LVOAutoRequest	EQU	-348
+_LVOBeginRefresh	EQU	-354
+_LVOBuildSysRequest	EQU	-360
+_LVOEndRefresh	EQU	-366
+_LVOFreeSysRequest	EQU	-372
+_LVOMakeScreen	EQU	-378
+_LVORemakeDisplay	EQU	-384
+_LVORethinkDisplay	EQU	-390
+_LVOAllocRemember	EQU	-396
+_LVOAlohaWorkbench	EQU	-402
+_LVOFreeRemember	EQU	-408
+_LVOLockIBase	EQU	-414
+_LVOUnlockIBase	EQU	-420
+_LVOGetScreenData	EQU	-426
+_LVORefreshGList	EQU	-432
+_LVOAddGList	EQU	-438
+_LVORemoveGList	EQU	-444
+_LVOActivateWindow	EQU	-450
+_LVORefreshWindowFrame	EQU	-456
+_LVOActivateGadget	EQU	-462
+_LVONewModifyProp	EQU	-468
+_LVOQueryOverscan	EQU	-474
+_LVOMoveWindowInFrontOf	EQU	-480
+_LVOChangeWindowBox	EQU	-486
+_LVOSetEditHook	EQU	-492
+_LVOSetMouseQueue	EQU	-498
+_LVOZipWindow	EQU	-504
+_LVOLockPubScreen	EQU	-510
+_LVOUnlockPubScreen	EQU	-516
+_LVOLockPubScreenList	EQU	-522
+_LVOUnlockPubScreenList	EQU	-528
+_LVONextPubScreen	EQU	-534
+_LVOSetDefaultPubScreen	EQU	-540
+_LVOSetPubScreenModes	EQU	-546
+_LVOPubScreenStatus	EQU	-552
+_LVOObtainGIRPort	EQU	-558
+_LVOReleaseGIRPort	EQU	-564
+_LVOGadgetMouse	EQU	-570
+_LVOGetDefaultPubScreen	EQU	-582
+_LVOEasyRequestArgs	EQU	-588
+_LVOBuildEasyRequestArgs	EQU	-594
+_LVOSysReqHandler	EQU	-600
+_LVOOpenWindowTagList	EQU	-606
+_LVOOpenScreenTagList	EQU	-612
+_LVODrawImageState	EQU	-618
+_LVOPointInImage	EQU	-624
+_LVOEraseImage	EQU	-630
+_LVONewObjectA	EQU	-636
+_LVODisposeObject	EQU	-642
+_LVOSetAttrsA	EQU	-648
+_LVOGetAttr	EQU	-654
+_LVOSetGadgetAttrsA	EQU	-660
+_LVONextObject	EQU	-666
+_LVOMakeClass	EQU	-678
+_LVOAddClass	EQU	-684
+_LVOGetScreenDrawInfo	EQU	-690
+_LVOFreeScreenDrawInfo	EQU	-696
+_LVOResetMenuStrip	EQU	-702
+_LVORemoveClass	EQU	-708
+_LVOFreeClass	EQU	-714
+_LVOAllocScreenBuffer	EQU	-768
+_LVOFreeScreenBuffer	EQU	-774
+_LVOChangeScreenBuffer	EQU	-780
+_LVOScreenDepth	EQU	-786
+_LVOScreenPosition	EQU	-792
+_LVOScrollWindowRaster	EQU	-798
+_LVOLendMenus	EQU	-804
+_LVODoGadgetMethodA	EQU	-810
+_LVOSetWindowPointerA	EQU	-816
+_LVOTimedDisplayAlert	EQU	-822
+_LVOHelpControl	EQU	-828
+
+CALLINT	MACRO
+	move.l	_IntuitionBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+INTNAME	MACRO
+	dc.b	'intuition.library',0
+	ENDM
diff --git a/includes/lvo/layers_lib.i b/includes/lvo/layers_lib.i
new file mode 100644
index 0000000..b2d4c9c
--- /dev/null
+++ b/includes/lvo/layers_lib.i
@@ -0,0 +1,37 @@
+; ASM-One - layers_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOInitLayers	EQU	-30
+_LVOCreateUpfrontLayer	EQU	-36
+_LVOCreateBehindLayer	EQU	-42
+_LVOUpfrontLayer	EQU	-48
+_LVOBehindLayer	EQU	-54
+_LVOMoveLayer	EQU	-60
+_LVOSizeLayer	EQU	-66
+_LVOScrollLayer	EQU	-72
+_LVOBeginUpdate	EQU	-78
+_LVOEndUpdate	EQU	-84
+_LVODeleteLayer	EQU	-90
+_LVOLockLayer	EQU	-96
+_LVOUnlockLayer	EQU	-102
+_LVOLockLayers	EQU	-108
+_LVOUnlockLayers	EQU	-114
+_LVOLockLayerInfo	EQU	-120
+_LVOSwapBitsRastPortClipRect	EQU	-126
+_LVOWhichLayer	EQU	-132
+_LVOUnlockLayerInfo	EQU	-138
+_LVONewLayerInfo	EQU	-144
+_LVODisposeLayerInfo	EQU	-150
+_LVOFattenLayerInfo	EQU	-156
+_LVOThinLayerInfo	EQU	-162
+_LVOMoveLayerInFrontOf	EQU	-168
+_LVOInstallClipRegion	EQU	-174
+_LVOMoveSizeLayer	EQU	-180
+_LVOCreateUpfrontHookLayer	EQU	-186
+_LVOCreateBehindHookLayer	EQU	-192
+_LVOInstallLayerHook	EQU	-198
+_LVOInstallLayerInfoHook	EQU	-204
+_LVOSortLayerCR	EQU	-210
+_LVODoHookClipRects	EQU	-216
diff --git a/includes/lvo/mathffp_lib.i b/includes/lvo/mathffp_lib.i
new file mode 100644
index 0000000..c6d2f45
--- /dev/null
+++ b/includes/lvo/mathffp_lib.i
@@ -0,0 +1,26 @@
+; ASM-One - mathffp_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOSPFix	EQU	-30
+_LVOSPFlt	EQU	-36
+_LVOSPCmp	EQU	-42
+_LVOSPTst	EQU	-48
+_LVOSPAbs	EQU	-54
+_LVOSPNeg	EQU	-60
+_LVOSPAdd	EQU	-66
+_LVOSPSub	EQU	-72
+_LVOSPMul	EQU	-78
+_LVOSPDiv	EQU	-84
+_LVOSPFloor	EQU	-90
+_LVOSPCeil	EQU	-96
+
+CALLFFP	MACRO
+	move.l	_MathBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+FFPNAME	MACRO
+	dc.b	'mathffp.library',0
+	ENDM
diff --git a/includes/lvo/mathieeedoubbas_lib.i b/includes/lvo/mathieeedoubbas_lib.i
new file mode 100644
index 0000000..94a8be7
--- /dev/null
+++ b/includes/lvo/mathieeedoubbas_lib.i
@@ -0,0 +1,26 @@
+; ASM-One - mathieeedoubbas_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOIEEEDPFix	EQU	-30
+_LVOIEEEDPFlt	EQU	-36
+_LVOIEEEDPCmp	EQU	-42
+_LVOIEEEDPTst	EQU	-48
+_LVOIEEEDPAbs	EQU	-54
+_LVOIEEEDPNeg	EQU	-60
+_LVOIEEEDPAdd	EQU	-66
+_LVOIEEEDPSub	EQU	-72
+_LVOIEEEDPMul	EQU	-78
+_LVOIEEEDPDiv	EQU	-84
+_LVOIEEEDPFloor	EQU	-90
+_LVOIEEEDPCeil	EQU	-96
+
+CALLIEEEDOUB	MACRO
+	move.l	_MathIeeeDoubBasBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+IEEEDOUBNAME	MACRO
+	dc.b	'mathieeedoubbas.library',0
+	ENDM
diff --git a/includes/lvo/mathtrans_lib.i b/includes/lvo/mathtrans_lib.i
new file mode 100644
index 0000000..277783a
--- /dev/null
+++ b/includes/lvo/mathtrans_lib.i
@@ -0,0 +1,31 @@
+; ASM-One - mathtrans_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOSPAtan	EQU	-30
+_LVOSPSin	EQU	-36
+_LVOSPCos	EQU	-42
+_LVOSPTan	EQU	-48
+_LVOSPSincos	EQU	-54
+_LVOSPSinh	EQU	-60
+_LVOSPCosh	EQU	-66
+_LVOSPTanh	EQU	-72
+_LVOSPExp	EQU	-78
+_LVOSPLog	EQU	-84
+_LVOSPPow	EQU	-90
+_LVOSPSqrt	EQU	-96
+_LVOSPTieee	EQU	-102
+_LVOSPFieee	EQU	-108
+_LVOSPAsin	EQU	-114
+_LVOSPAcos	EQU	-120
+_LVOSPLog10	EQU	-126
+
+CALLMATHTRANS	MACRO
+	move.l	_MathTransBase,a6
+	jsr	_LVO\1(a6)
+	ENDM
+
+MATHTRANSNAME	MACRO
+	dc.b	'mathtrans.library',0
+	ENDM
diff --git a/includes/lvo/rexxsyslib_lib.i b/includes/lvo/rexxsyslib_lib.i
new file mode 100644
index 0000000..78b88d6
--- /dev/null
+++ b/includes/lvo/rexxsyslib_lib.i
@@ -0,0 +1,15 @@
+; ASM-One - rexxsyslib_lib.i
+; (Release 3.0)
+;
+; by SCHWARZENEGGER/R.A.F
+
+_LVOCreateArgstring	EQU	-126
+_LVODeleteArgstring	EQU	-132
+_LVOLengthArgstring	EQU	-138
+_LVOCreateRexxMsg	EQU	-144
+_LVODeleteRexxMsg	EQU	-150
+_LVOClearRexxMsg	EQU	-156
+_LVOFillRexxMsg	EQU	-162
+_LVOIsRexxMsg	EQU	-168
+_LVOLockRexxBase	EQU	-450
+_LVOUnlockRexxBase	EQU	-456
diff --git a/includes/pp/powerpacker_lib.i b/includes/pp/powerpacker_lib.i
new file mode 100644
index 0000000..90dcb47
--- /dev/null
+++ b/includes/pp/powerpacker_lib.i
@@ -0,0 +1,43 @@
+	IFND	LIBRARIES_POWERPACKER_LIB_I
+LIBRARIES_POWERPACKER_LIB_I SET	1
+**
+**	$Filename: libraries/powerpacker_lib.i $
+**	$Release: 1.1a $
+**
+**	(C) Copyright 1990 Nico Fran�ois
+**	    All Rights Reserved
+**
+
+	IFND    EXEC_TYPES_I
+	include "exec/types.i"
+	ENDC
+	IFND    EXEC_NODES_I
+	include "exec/nodes.i"
+	ENDC
+	IFND    EXEC_LISTS_I
+	include "exec/lists.i"
+	ENDC
+	IFND    EXEC_LIBRARIES_I
+	include "exec/libraries.i"
+	ENDC
+
+	LIBINIT
+
+	LIBDEF _LVOppLoadData
+	LIBDEF _LVOppDecrunchBuffer
+	LIBDEF _LVOppCalcChecksum
+	LIBDEF _LVOppCalcPasskey
+	LIBDEF _LVOppDecrypt
+	LIBDEF _LVOppGetPassword
+	LIBDEF _LVOppGetString
+	LIBDEF _LVOppGetLong
+	LIBDEF _LVOppDecrHdr            ; private !
+	LIBDEF _LVOppCryptDecrHdr       ; private !
+	LIBDEF _LVOppOverlayDecrHdr     ; private !
+
+_LVOppWriteDataHeader   EQU   -$72
+_LVOppAllocCrunchInfo   EQU   -$60
+_LVOppCrunchBuffer   EQU   -$6C
+_LVOppFreeCrunchInfo EQU   -$66
+
+	ENDC	; LIBRARIES_POWERPACKER_LIB_I
diff --git a/includes/pp/ppbase.h b/includes/pp/ppbase.h
new file mode 100644
index 0000000..9640b5b
--- /dev/null
+++ b/includes/pp/ppbase.h
@@ -0,0 +1,48 @@
+#ifndef LIBRARIES_PPBASE_H
+#define LIBRARIES_PPBASE_H
+/*
+**	$Filename: libraries/ppbase.h $
+**	$Release: 1.1a $
+**
+**	(C) Copyright 1990 Nico Fran�ois
+**	    All Rights Reserved
+*/
+
+#ifndef	EXEC_TYPES_H
+#include	<exec/types.h>
+#endif	/* EXEC_TYPES_H */
+
+#ifndef	EXEC_LISTS_H
+#include	<exec/lists.h>
+#endif	/* EXEC_LISTS_H */
+
+#ifndef	EXEC_LIBRARIES_H
+#include	<exec/libraries.h>
+#endif	/* EXEC_LIBRARIES_H */
+
+#define	PPNAME		"powerpacker.library"
+#define	PPVERSION	34L
+
+struct PPBase {
+	struct Library LibNode;
+	UBYTE pp_Flags;
+	UBYTE pad;
+	BPTR pp_SegList;
+	};
+
+/* decrunch colors for ppLoadData and ppDecrunchBuffer */
+#define DECR_COL0		0L
+#define DECR_COL1		1L
+#define DECR_POINTER		2L
+#define DECR_SCROLL		3L
+#define DECR_NONE		4L
+
+/* error codes returned by ppLoadData */
+#define PP_OPENERR		-1L
+#define PP_READERR		-2L
+#define PP_NOMEMORY		-3L
+#define PP_CRYPTED		-4L
+#define PP_PASSERR		-5L
+#define PP_UNKNOWNPP		-6L
+
+#endif	/* LIBRARIES_PPBASE_H */
diff --git a/includes/pp/ppbase.i b/includes/pp/ppbase.i
new file mode 100644
index 0000000..ca9a2eb
--- /dev/null
+++ b/includes/pp/ppbase.i
@@ -0,0 +1,45 @@
+	IFND LIBRARIES_PPBASE_I
+LIBRARIES_PPBASE_I	SET	1
+**
+**	$Filename: libraries/ppbase.i $
+**	$Release: 1.1a $
+**
+**	(C) Copyright 1990 Nico Fran�ois
+**	    All Rights Reserved
+**
+
+	IFND EXEC_LISTS_I
+	include "exec/lists.i"
+	ENDC
+	IFND EXEC_LIBRARIES_I
+	include "exec/libraries.i"
+	ENDC
+
+PPNAME	MACRO
+	dc.b "powerpacker.library",0
+	ENDM
+
+PPVERSION	equ	34
+
+	STRUCTURE PPBase,LIB_SIZE
+		UBYTE pp_Flags
+		UBYTE pp_pad
+		ULONG pp_SegList
+		LABEL PPBase_SIZE
+
+* decrunch colors for ppLoadData and ppDecrunchBuffer
+DECR_COL0		equ	 0
+DECR_COL1		equ	 1
+DECR_POINTER		equ	 2
+DECR_SCROLL		equ	 3
+DECR_NONE		equ	 4
+
+* error codes returned by ppLoadData
+PP_OPENERR		equ	-1
+PP_READERR		equ	-2
+PP_NOMEMORY		equ	-3
+PP_CRYPTED		equ	-4
+PP_PASSERR		equ	-5
+PP_UNKNOWNPP		equ	-6
+
+	ENDC	; LIBRARIES_PPBASE_I