Initial commit

This commit is contained in:
Francois 2020-04-26 02:58:13 +02:00
parent 9a42cf9c6e
commit 2b9251a75b
812 changed files with 207025 additions and 3 deletions

74
+AMOS_Includes.s Normal file
View File

@ -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

2985
+B.s Normal file

File diff suppressed because it is too large Load Diff

224
+CEqu.s Normal file
View File

@ -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
;---------------------------------------------------------------------

32
+Debug.s Normal file
View File

@ -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

15408
+Edit.s Normal file

File diff suppressed because it is too large Load Diff

1167
+Editor_Config.s Normal file

File diff suppressed because it is too large Load Diff

2409
+Equ.s Normal file

File diff suppressed because it is too large Load Diff

7773
+ILib.s Normal file

File diff suppressed because it is too large Load Diff

193
+Interpreter_Config.s Normal file
View File

@ -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

28451
+Lib.s Normal file

File diff suppressed because it is too large Load Diff

4317
+Monitor.s Normal file

File diff suppressed because it is too large Load Diff

5321
+Verif.s Normal file

File diff suppressed because it is too large Load Diff

33
+Version.s Normal file
View File

@ -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

16797
+W.s Normal file

File diff suppressed because it is too large Load Diff

383
+WEqu.s Normal file
View File

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

2
.gitattributes vendored Normal file
View File

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

BIN
AMOS.info Normal file

Binary file not shown.

BIN
AMOS/AMOSPro Normal file

Binary file not shown.

BIN
AMOS/AMOSPro.info Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
AMOS/APSystem.info Normal file

Binary file not shown.

BIN
AMOS/APSystem/AMOS.library Normal file

Binary file not shown.

BIN
AMOS/APSystem/AMOSPro.Lib Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
AMOS/APSystem/APCmp Normal file

Binary file not shown.

BIN
AMOS/APSystem/Compiler.Lib Normal file

Binary file not shown.

Binary file not shown.

BIN
AMOS/APSystem/Def_icon.info Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
AMOS/Accessories.info Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@ -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