amos-professional/+Equ.s

2410 lines
47 KiB
ArmAsm
Raw Normal View History

2020-04-26 00:58:13 +00:00
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<EFBFBD>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<6E>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 <20> 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 <20><>
; ~~~~~~~~~~~~~~~
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<6E>es t<>l<EFBFBD>commande
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Prg_Accessory rs.b 1
Ed_Zappeuse rs.b 1
; Variables mises <20> 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<6E>es de Configuration Interpr<70>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<6E>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<EFBFBD>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<6E>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 <EFBFBD> remettre <EFBFBD> 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 <EFBFBD> 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<6E>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