Initial commit

+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

+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<6E>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'<EFBFBD> 16
+APrg_Program	equ	__RS
+;---------------------------------------------------------------------

+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

+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<6E>es de Configuration Interpr<70>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<6E>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<6E>es TEXTE
+
+		dc.l 	"PIt1"		Code de securite!
+		dc.l	Txt2-Txt1
+
+; Liste des fichiers syst<73>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

+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

+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
+***********************************************************

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

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