amos-professional/extensions/Intuition-41.95/AMOS/equ.s
2020-04-26 02:58:13 +02:00

1884 lines
34 KiB
ArmAsm
Raw Blame History

*
CDebug set 0
Switcher_Signal equ 24
*
***********************************************************
*
* AMOSPro EQUATES DEFINITION
*
* By Francois Lionet
* AMOS (c) 1990-1992 Europress Software Ltd.
*
* Last change 23/09/1992
*
***********************************************************
* This file contains all the equates of the AMOSPro
* programs and extension.
* Be patient, we will soon (I hope) publish informations
* about the functions of the amos.library.
***********************************************************
* Only for multi-lingual readers: half english
* half french. That's Europe!
***********************************************************
BFORM_ILBM equ %00000001
BFORM_ACBM equ %00000010
BFORM_ANIM equ %00000100
BCHUNK_BMHD equ 0
BCHUNK_CAMG equ 1
BCHUNK_CMAP equ 2
BCHUNK_CCRT equ 3
BCHUNK_BODY equ 4
BCHUNK_AMSC equ 5
BCHUNK_ABIT equ 6
EntNul: equ $80000000
Circuits: equ $dff000
IntReq: equ $9c
IntEna: equ $9a
DmaCon: equ $96
DmaConR: equ $02
Color00: equ $180
VhPosR: equ $6
; Copper
Cop1lc: equ $80
Cop2lc: equ $84
CopJmp1: equ $88
CopJmp2: equ $8a
; Souris
CiaAprA: equ $bfe001
Joy0Dat: equ $a
Joy1Dat: equ $c
JoyTest: equ $36
PotGo: equ $34
PotGoR: equ $16
Pot0Dat: equ $12
Pot1Dat: equ $14
; Bitplanes
BplCon0: equ $100
BplCon1: equ $102
BplCon2: equ $104
Bpl1PtH: equ $0e0
Bpl1PtL: equ $0e2
Bpl1Mod: equ $108
Bpl2Mod: equ $10a
DiwStrt: equ $08e
DiwStop: equ $090
DdfStrt: equ $092
DdfStop: equ $094
; Blitter
BltSize: equ $058
BltAdA: equ $050
BltAdB: equ $04c
BltAdC: equ $048
BltAdD: equ $054
BltModA: equ $064
BltModB: equ $062
BltModC: equ $060
BltModD: equ $066
BltCon0: equ $040
BltCon1: equ $042
BltDatA: equ $074
BltDatB: equ $072
BltDatC: equ $070
BltDatD: equ $000
BltMaskG: equ $044
BltMaskD: equ $046
;-------------> Systeme
IFND ExecBase
ExecBase: equ 4
ENDC
StartList: equ 38
Forbid: equ -132
Permit: equ -138
OwnBlitter: equ -30-426
DisOwnBlitter: equ -30-432
WaitBlit: equ -228
OpenLib: equ -552
CloseLib: equ -414
AllocMem: equ -198
AvailMem: equ -216
FreeMem: equ -210
Chip: equ $02
Fast: equ $04
Clear: equ $10000
Public: equ $01
Total equ $80000
SetFunction: equ -420
CloseWB: equ -78
FindTask: equ -294
AddPort: equ -354
RemPort: equ -360
OpenDev: equ -444
CloseDev: equ -450
DoIO: equ -456
SendIO: equ -462
;-------------> Intuition
OpenScreen: equ -198
CloseScreen: equ -66
ScreenToBack: equ -$F6
OpenWindow: equ -204
CloseWindow: equ -72
LoadView: equ -$DE
CUFLayer: equ -36
DelLayer: equ -90
;-------------> Graphic library
InitRastPort: equ -198
InitTmpRas: equ -$1d4
TextLength: equ -54
Text: equ -60
SetFont: equ -66
OpenFont: equ -72
CloseFont: equ -78
AskSoftStyle: equ -84
SetSoftStyle: equ -90
RMove: equ -240
RDraw: equ -246
DrawEllipse: equ -$b4
AreaEllipse: equ -$ba
AreaMove: equ -252
AreaDraw: equ -258
AreaEnd: equ -264
InitArea: equ -282
RectFill: equ -306
ReadPixel: equ -318
WritePixel: equ -324
Flood: equ -330
PolyDraw: equ -336
ScrollRaster: equ -396
AskFont: equ -474
AddFont: equ -480
RemFont: equ -486
ClipBlit: equ -552
BltBitMap: equ -30
SetAPen: equ -342
SetBPen: equ -348
SetDrMd: equ -354
AvailFonts: equ -$24
OpenDiskFont equ -$1e
;-------------> Dos
Input: equ -54
WaitChar: equ -204
Read: equ -42
Execall: MACRO
move.l $4.w,a6
jsr \1(a6)
ENDM
GfxCa5 MACRO
movem.l d0/d1/a0/a1/a6,-(sp)
move.l T_GfxBase(a5),a6
jsr \1(a6)
movem.l (sp)+,d0/d1/a0/a1/a6
ENDM
*************** DOS
DosCall MACRO
move.l a6,-(sp)
move.l DosBase(a5),a6
jsr \1(a6)
move.l (sp)+,a6
ENDM
DosOpen: equ -30
DosClose: equ -36
DosRead: equ -42
DosWrite: equ -48
DosSeek: equ -66
DosDel: equ -72
DosRen: equ -78
DosLock: equ -84
DosUnLock: equ -90
DosDupLock: equ -96
DosExam: equ -102
DosExNext: equ -108
Dosinfo: equ -114
DosMkDir: equ -120
DosCuDir: equ -126
DosIOErr: equ -132
DosDProc: equ -174
DosParent: equ -210
DosLoadSeg: equ -150
DosULoadSeg: equ -156
DosWChar: equ -204
*************** FLOAT
SPFix: equ -30
SPFlt: equ -36
SPCmp: equ -42
SPTst: equ -48
SPAbs: equ -54
SPNeg: equ -60
SPAdd: equ -66
SPSub: equ -72
SPMul: equ -78
SPDiv: equ -84
SPFloor: equ -90
SPCeil: equ -96
SPATan: equ -30
SPSin: equ -36
SPCos: equ -42
SPTan: equ -48
SPSinCos: equ -54
SPSinH: equ -60
SPCosH: equ -66
SPTanH: equ -72
SPExp: equ -78
SPLog: equ -84
SPPow: equ -90
SPSqrt: equ -96
SPTIeee: equ -102
SPFIeee: equ -108
SPASin: equ -114
SPACos: equ -120
SPLog10: equ -126
*************** AMOS system library
Inkey: equ 0
ClearKey: equ 1
Shifts: equ 2
Instant: equ 3
KeyMap: equ 4
Joy: equ 5
PutKey: equ 6
Hide: equ 7
Show: equ 8
ChangeM: equ 9
XyMou: equ 10
XyHard: equ 11
XyScr: equ 12
MouseKey: equ 13
SetM: equ 14
ScIn: equ 15
XyWin: equ 16
LimitM: equ 17
ZoHd: equ 18
ResZone: equ 19
RazZone: equ 20
SetZone: equ 21
GetZone: equ 22
WaitVbl: equ 23
SetHs: equ 24
USetHs: equ 25
SetFunk: equ 26
GetFunk: equ 27
AffHs: equ 28
SetSpBank: equ 29
NXYAHs: equ 30
XOffHs: equ 31
OffHs: equ 32
ActHs: equ 33
SBufHs: equ 34
StActHs: equ 35
ReActHs: equ 36
StoreM: equ 37
RecallM: equ 38
PriHs: equ 39
AMALTok: equ 40
AMALCre: equ 41
AMALMvO: equ 42
AMALDAll: equ 43
AMAL: equ 44
AMALReg: equ 45
AMALClr: equ 46
AMALFrz: equ 47
AMALUFrz: equ 48
SetBob: equ 49
OffBob: equ 50
OffBobS: equ 51
ActBob: equ 52
AffBob: equ 53
EffBob: equ 54
SyChip: equ 55
SyFast: equ 56
LimBob: equ 57
ZoGr: equ 58
SprGet: equ 59
MaskMk: equ 60
SpotHot: equ 61
ColBob: equ 62
ColGet: equ 63
ColSpr: equ 64
SetSync: equ 65
Synchro: equ 66
PlaySet: equ 67
XYBob: equ 68
XYSp: equ 69
PutBob: equ 70
Patch: equ 71
MouRel: equ 72
LimitMEc: equ 73
SyFree: equ 74
SetHCol: equ 75
GetHCol: equ 76
MovOn: equ 77
KeySpeed: equ 78
ChanA: equ 79
ChanM: equ 80
SPrio: equ 81
GetDisc: equ 82
RestartVBL equ 83
StopVBL equ 84
KeyWaiting equ 85 (P) Une touche en attente?
MouScrFront equ 86 (P) Souris dans ecran de front
SyCall: MACRO
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
SyCalA: MACRO
lea \2,a1
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
SyCalD: MACRO
moveq #\2,d1
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
SyCal2: MACRO
moveq #\2,d1
move.l #\3,a1
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
***********************************************************
* EQUATES BOBS
RsReset
BbPrev: rs.l 1
BbNext: rs.l 1
BbNb: rs.w 1
BbAct: rs.w 1
BbX: rs.w 1
BbY: rs.w 1
BbI: rs.w 1
BbEc: rs.l 1
BbAAEc: rs.l 1
BbAData: rs.l 1
BbAMask: rs.l 1
BbNPlan: rs.w 1
BbAPlan: rs.w 1
BbASize: rs.w 1
BbAMaskG: rs.w 1
BbAMaskD: rs.w 1
BbTPlan: rs.w 1
BbTLigne: rs.w 1
BbAModO: rs.w 1
BbAModD: rs.w 1
BbACon: rs.w 1
BbACon0: rs.w 1
BbACon1: rs.w 1
BbADraw: rs.l 1
BbLimG: rs.w 1
BbLimD: rs.w 1
BbLimH: rs.w 1
BbLimB: rs.w 1
* Datas retournement des bobs
BbARetour rs.l 1
BbRetour rs.w 1
* Datas decor
BbDecor: rs.w 1
BbEff: rs.w 1
BbDCur1: rs.w 1
BbDCur2: rs.w 1
BbDCpt: rs.w 1
BbEMod: rs.w 1
BbECpt: rs.w 1
BbEAEc: rs.w 1
BbESize: rs.w 1
BbETPlan: rs.w 1
* Datas pour une sauvegarde de decor
BbDABuf: rs.l 1 * 0 Adresse buffer
BbDLBuf: rs.w 1 * 4 Longueur buffer
BbDAEc: rs.w 1 * 6 Decalage ecran
BbDAPlan: rs.l 1 * 8 Plans sauves
BbDNPlan: rs.l 1 * 12 Max plans
BbDMod: rs.w 1 * 16 Modulo ecran
BbDASize: rs.w 1 * 18 Taille blitter
Decor: equ 20 * 20 Taille totale
* Datas pour seconde sauvegarde!
rs.l Decor
BbLong: equ __RS
*************** AMOS Screen library
BitHide: equ 7
BitClone: equ 6
BitDble: equ 5
EcMaxPlans equ 6 ;6 Plans pour le moment!
RsReset
* Bitmap address
EcLogic: rs.l 6 *
EcPhysic rs.l 6 *
EcCurrent: rs.l 6 *
* Datas!
EcCon0: rs.w 1 *
EcCon2: rs.w 1 *
EcTx: rs.w 1 *
EcTy: rs.w 1 *
EcNPlan: rs.w 1 *
EcWX: rs.w 1 *
EcWY: rs.w 1 *
EcWTx: rs.w 1 *
EcWTy: rs.w 1 *
EcVX: rs.w 1 *
EcVY: rs.w 1 *
EcDEcran: rs.l 1 *
EcColorMap rs.w 1
EcNbCol rs.w 1
EcPal rs.w 32
EcTPlan: rs.l 1 *
EcWindow: rs.l 1 *
EcTxM: rs.w 1 *
EcTyM: rs.w 1 *
EcTLigne: rs.w 1 *
EcFlags: rs.w 1 *
EcDual: rs.w 1 *
EcWXr: rs.w 1 *
EcWTxr: rs.w 1 *
EcNumber: rs.w 1 *
EcAuto: rs.w 1 *
* Link with AMAL
EcAW: rs.w 1
EcAWX: rs.w 1
EcAWY: rs.w 1
EcAWT: rs.w 1
EcAWTX: rs.w 1
EcAWTY: rs.w 1
EcAV: rs.w 1
EcAVX: rs.w 1
EcAVY: rs.w 1
* Zone table
EcAZones: rs.l 1
EcNZones: rs.w 1
* Save the backgrountd for window
EcWiDec: rs.w 1
* Graphic functions
EcInkA: rs.b 1
EcInkB: rs.b 1
EcMode: rs.b 1
EcOutL: rs.b 1
EcLine: rs.w 1
EcCont: rs.w 1
EcX: rs.w 1
EcY: rs.w 1
EcPat: rs.l 1
EcPatL: rs.w 1
EcPatY: rs.w 1
EcClipX0: rs.w 1
EcClipY0: rs.w 1
EcClipX1: rs.w 1
EcClipY1: rs.w 1
EcFontFlag: rs.w 1
EcText: rs.b 14
EcFInkA: rs.b 1
EcFInkB: rs.b 1
EcFInkC: rs.b 1
EcIInkA: rs.b 1
EcIInkB: rs.b 1
EcIInkC: rs.b 1
EcFPat: rs.w 1
EcIPat: rs.w 1
* Cursor saving
EcCurS: rs.b 8*6
; Length of a screen
EcLong: equ __RS
; Y Screen base
EcYBase: equ $1000
EcYStrt: equ EcYBase+26
PalMax: equ 16
***********************************************************
* FUNCTIONS
***********************************************************
Raz: equ 0
CopMake: equ 1
* equ 2
Cree: equ 3
Del: equ 4
First: equ 5
Last: equ 6
Active: equ 7
CopForce: equ 8
AView: equ 9
OffSet: equ 10
Visible: equ 11
DelAll: equ 12
GCol: equ 13
SCol: equ 14
SPal: equ 15
SColB: equ 16
FlRaz: equ 17
Flash: equ 18
ShRaz: equ 19
Shift: equ 20
EHide: equ 21
CBlGet: equ 22
CBlPut: equ 23
CBlDel: equ 24
CBlRaz: equ 25
Libre: equ 26
CCloEc: equ 27
Current: equ 28
Double: equ 29
SwapSc: equ 30
SwapScS: equ 31
AdrEc: equ 32
SetDual: equ 33
PriDual: equ 34
ClsEc: equ 35
Pattern: equ 36
GFonts: equ 37
FFonts: equ 38
GFont: equ 39
SFont: equ 40
SetClip: equ 41
BlGet: equ 42
BlDel: equ 43
BlRaz: equ 44
BlPut: equ 45
VerSli: equ 46
HorSli: equ 47
SetSli: equ 48
MnStart: equ 49
MnStop: equ 50
RainDel: equ 51
RainSet: equ 52
RainDo: equ 53
RainHide: equ 54
RainVar: equ 55
FadeOn: equ 56
FadeOf: equ 57
CopOnOff: equ 58
CopReset: equ 59
CopSwap: equ 60
CopWait: equ 61
CopMove: equ 62
CopMoveL: equ 63
CopBase: equ 64
AutoBack1: equ 65
AutoBack2: equ 66
AutoBack3: equ 67
AutoBack4: equ 68
SuPaint: equ 69
BlRev: equ 70
DoRev: equ 71
AMOS_WB equ 72
ScCpyW equ 73
MaxRaw equ 74
AMOS_NTSC equ 75
EcCall: MACRO
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
EcCalA: MACRO
lea \2,a1
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
EcCalD: MACRO
moveq #\2,d1
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
EcCal2: MACRO
moveq #\2,d1
move.l #\3,a1
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
*************** AMOS Window library
* Window structure
WiPrev: equ 0
WiNext: equ WiPrev+4
WiFont: equ WiNext+4
WiAdhg: equ WiFont+4
WiAdhgR: equ WiAdhg+4
WiAdhgI: equ WiAdhgR+4
WiAdCur: equ WiAdhgI+4
WiColor: equ WiAdCur+4
WiColFl: equ WiColor+4*6
WiX: equ WiColFl+4*6
WiY: equ WiX+2
WiTx: equ WiY+2
WiTy: equ WiTx+2
WiTyCar: equ WiTy+2
WiTLigne: equ WiTyCar+2
WiTxR: equ WiTLigne+2
WiTyR: equ WiTxR+2
WiDxI: equ WiTyR+2
WiDyI: equ WiDxI+2
WiTxI: equ WiDyI+2
WiTyI: equ WiTxI+2
WiDxR: equ WiTyI+2
WiDyR: equ WiDxR+2
WiFxR: equ WiDyR+2
WiFyR: equ WiFxR+2
WiTyP: equ WiFyR+2
WiDBuf: equ WiTyP+2
WiTBuf: equ WiDBuf+4
WiTxBuf: equ WiTBuf+4
WiPaper: equ WiTxBuf+2
WiPen: equ WiPaper+2
WiBorder: equ WiPen+2
WiFlags: equ WiBorder+2
WiGraph: equ WiFlags+2
WiNPlan: equ WiGraph+2
WiNumber: equ WiNPlan+2
WiSys: equ WiNumber+2
WiEsc: equ WiSys+2
WiEscPar: equ WiEsc+2
WiTab: equ WiEscPar+2
WiBord: equ WiTab+2
WiBorPap: equ WiBord+2
WiBorPen: equ WiBorPap+2
WiMx: equ WiBorPen+2
WiMy: equ WiMx+2
WiZoDx: equ WiMy+2
WiZoDy: equ WiZoDx+2
WiCuDraw: equ WiZoDy+2
WiCuCol: equ WiCuDraw+8
WiTitH: equ WiCuCol+2
WiTitB: equ WiTitH+80
WiLong: equ WiTitB+80
WiSAuto: equ WiTitH
***********************************************************
* WINDOW INSTRUCTIONS
***********************************************************
ChrOut: equ 0
Print: equ 1
Centre: equ 2
WindOp: equ 3
Locate: equ 4
QWindow: equ 5
WinDel: equ 6
SBord: equ 7
STitle: equ 8
GAdr: equ 9
MoveWi: equ 10
ClsWi: equ 11
SizeWi: equ 12
SCurWi: equ 13
XYCuWi: equ 14
XGrWi: equ 15
YGrWi: equ 16
Print2 equ 17
Print3 equ 18
SXSYCuWi equ 19
WiCall: MACRO
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
WiCalA: MACRO
lea \2,a1
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
WiCalD: MACRO
moveq #\2,d1
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
WiCal2: MACRO
moveq #\2,d1
move.l #\3,a1
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
************** Equates basic
EcFonc: equ 8
EcEdit: equ 9
EcFsel: equ 10
EcReq: equ 11
EdTx: equ 78
EdBTT: equ 512+256
NbEnd: equ 10
EcEBase equ 45
DEBase equ EcEBase+35-1
SpEBase equ DEBase+25
FkLong: equ 26
Shf: equ %00000011
Ctr: equ %00001000
Alt: equ %00110000
Ami: equ %11000000
*************** Menu definition
RsReset
MnPrev: rs.l 1
MnNext: rs.l 1
MnLat: rs.l 1
MnNb: rs.w 1
MnFlag: rs.w 1
MnX: rs.w 1
MnY: rs.w 1
MnTx: rs.w 1
MnTy: rs.w 1
MnMX: rs.w 1
MnMY: rs.w 1
MnXX: rs.w 1
MnYY: rs.w 1
MnZone: rs.w 1
MnKFlag: rs.b 1
MnKAsc: rs.b 1
MnKSc: rs.b 1
MnKSh: rs.b 1
* Menu objects
MnObF: rs.l 1
MnOb1: rs.l 1
MnOb2: rs.l 1
MnOb3: rs.l 1
MnAdSave: rs.l 1
MnDatas: rs.l 1
MnLData: rs.w 1
MnInkA1: rs.b 1
MnInkB1: rs.b 1
MnInkC1: rs.b 1
MnInkA2: rs.b 1
MnInkB2: rs.b 1
MnInkC2: rs.b 1
MnLong: equ __RS
* Flags
MnFlat: equ 0
MnFixed: equ 1
MnSep: equ 2
MnBar: equ 3
MnOff: equ 4
MnTotal: equ 5
MnTBouge: equ 6
MnBouge: equ 7
*************** Test control bits
BitControl: equ 8
BitMenu: equ 9
BitJump: equ 10
BitEvery: equ 11
BitEcrans: equ 12
BitBobs: equ 13
BitSprites: equ 14
BitVBL: equ 15
; __________________________________
;
; Definition d'un slider
; __________________________________
;
Sl_FlagVertical equ 0
RsReset
; Variables positionnement
Sl_Sx rs.w 1
Sl_Sy rs.w 1
Sl_Global rs.w 1
Sl_Position rs.w 1
Sl_Window rs.w 1
Sl_X rs.w 1
Sl_Y rs.w 1
Sl_ZDx rs.w 1
Sl_ZDy rs.w 1
; Variables fonctionnement
Sl_Flags rs.w 1
Sl_Start rs.w 1
Sl_Size rs.w 1
Sl_Scroll rs.w 1
Sl_Mouse1 rs.w 1
Sl_Mouse2 rs.w 1
Sl_Zone rs.w 1
Sl_Routines rs.l 1
; Encres
Sl_Inactive rs.w 3+3+2
Sl_Active rs.w 3+3+2
Sl_Long equ __RS
; __________________________________
;
; Definition d'un bouton
; __________________________________
;
Bt_FlagNew equ 0
Bt_FlagNoWait equ 1
Bt_FlagOnOf equ 2
RsReset
Bt_Number rs.w 1
Bt_X rs.w 1
Bt_Y rs.w 1
Bt_Image rs.w 1
Bt_Zone rs.w 1
Bt_Pos rs.w 1
Bt_Routines rs.l 1
Bt_Dx rs.b 1
Bt_Dy rs.b 1
Bt_Sx rs.b 1
Bt_Sy rs.b 1
Bt_RDraw rs.b 1
Bt_RChange rs.b 1
Bt_RPos rs.b 1
Bt_Flags rs.b 1
Bt_Long equ __RS
; ___________________________________
;
; BITMAP PACKER/UNPACKER
; ___________________________________
; Packed screen header
RsReset
PsCode rs.l 1
PsTx rs.w 1
PsTy rs.w 1
PsAWx rs.w 1
PsAWy rs.w 1
PsAWTx rs.w 1
PsAWTy rs.w 1
PsAVx rs.w 1
PsAVy rs.w 1
PsCon0 rs.w 1
PsNbCol rs.w 1
PsNPlan rs.w 1
PsPal rs.w 32
PsLong equ __RS
SCCode equ $12031990
; Packed bitmap header
; ~~~~~~~~~~~~~~~~~~~~
RsReset
Pkcode rs.l 1
Pkdx rs.w 1
Pkdy rs.w 1
Pktx rs.w 1
Pkty rs.w 1
Pktcar rs.w 1
Pknplan rs.w 1
PkDatas2 rs.l 1
PkPoint2 rs.l 1
PkLong equ __RS
PkDatas1 equ __RS
BMCode equ $06071963
; ______________________________________________________________________________
;
; EDITEUR LIGNE
;
RsReset
LEd_Buffer rs.l 1
LEd_Start rs.w 1
LEd_Large rs.w 1
LEd_Max rs.w 1
LEd_Long rs.w 1
LEd_Cur rs.w 1
LEd_X rs.w 1
LEd_Y rs.w 1
LEd_Screen rs.w 1
LEd_Flags rs.w 1
LEd_Mask rs.l 3
LEd_Size equ __RS
LEd_FKeys equ 0
LEd_FOnce equ 1
LEd_FCursor equ 2
LEd_FFilter equ 3
LEd_FMouse equ 4
LEd_FTests equ 5
LEd_FMulti equ 6
LEd_FMouCur equ 7
; _____________________________________________________________________________
;
; GESTION DES DIALOGUES
;
; __________________________________________
;
; Base de la zone de dialogue
;
RsReset
Dia_Channel rs.l 1
Dia_NVar rs.l 1
Dia_Sp rs.l 1
Dia_Screen rs.l 1
Dia_ScreenNb rs.w 1
Dia_ScreenOld rs.w 1
Dia_WindOld rs.w 1
Dia_WindOn rs.w 1
Dia_Programs rs.l 1
Dia_ProgLong rs.l 1
Dia_Labels rs.l 1
Dia_Messages rs.l 1
Dia_ABuffer rs.l 1
Dia_PBuffer rs.l 1
Dia_Buffer rs.l 1
Dia_Pile rs.l 1
Dia_PUsers rs.l 1
Dia_NPUsers rs.w 1
Dia_Users rs.w 1
Dia_Edited rs.l 1
Dia_Timer rs.l 1
Dia_TimerPos rs.l 1
Dia_LastZone rs.l 1
Dia_NextZone rs.l 1
Dia_Release rs.l 1
Dia_BaseX rs.l 1
Dia_BaseY rs.l 1
Dia_Sx rs.l 1
Dia_Sy rs.l 1
Dia_XA rs.w 1
Dia_YA rs.w 1
Dia_XB rs.w 1
Dia_YB rs.w 1
Dia_Puzzle rs.l 1
Dia_PuzzleSx rs.l 1
Dia_PuzzleSy rs.l 1
Dia_PuzzleI rs.l 1
Dia_LastKey rs.l 1
Dia_Error rs.w 1
Dia_ErrorPos rs.w 1
Dia_Return rs.w 1
Dia_Exit rs.w 1
Dia_Writing rs.w 1
Dia_RFlags rs.b 1
Dia_Flags rs.b 1
Dia_SlDefault rs.b 16
rs.l 4
Dia_Vars equ __RS
Dia_Source equ Dia_LastKey
Dia_FSource equ Dia_Edited
; Entete d'une zone active
; ~~~~~~~~~~~~~~~~~~~~~~~~
RsReset
Dia_Ln rs.w 1 ;0 Long
Dia_Id rs.w 1 ;2 Id
Dia_ZoId rs.w 1 ;4 ZoId
Dia_ZoX rs.w 1 ;6 ZoX
Dia_ZoY rs.w 1 ;8 ZoY
Dia_ZoSx rs.w 1 ;10 ZoSx
Dia_ZoSy rs.w 1 ;12 ZoSy
Dia_ZoNumber rs.w 1 ;14 ZoNumber
Dia_ZoRChange rs.w 1 ;16 Routine change
Dia_ZoPos rs.l 1 ;18 Position
Dia_ZoVar rs.l 1 ;22 Variable interne
Dia_ZoFlags rs.b 1 ;26
rs.b 1
Dia_ZoLong equ __RS
; Entete d'un bouton dialogue
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
RsReset
rs.b Dia_ZoLong ;Entete zone active
Dia_BtRDraw rs.w 1
Dia_BtRChange rs.w 1
Dia_BtMin rs.w 1
Dia_BtMax rs.w 1
Dia_BtLong equ __RS
; Entete d'une ligne d'edition
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
RsReset
rs.b Dia_ZoLong ;Entete zone active
Dia_LEd rs.b LEd_Size
Dia_EdLong equ __RS
Dia_DiValue rs.l 1
Dia_DiBuffer rs.b 16
Dia_DiLong equ __RS
; Entete d'une liste active
; ~~~~~~~~~~~~~~~~~~~~~~~~~
RsReset
rs.b Dia_ZoLong ;Entete zone active
Dia_LiTx rs.w 1
Dia_LiTy rs.w 1
Dia_LiPos rs.w 1
Dia_LiMaxAct rs.w 1
Dia_LiArray rs.l 1
Dia_LiLArray rs.w 1
Dia_LiActNumber rs.w 1
Dia_LiLong equ __RS
; Entete d'un texte actif
; ~~~~~~~~~~~~~~~~~~~~~~~
RsReset
rs.b Dia_ZoLong ;Entete zone active
Dia_TxTx rs.w 1
Dia_TxTy rs.w 1
Dia_TxPos rs.w 1
Dia_TxNLine rs.w 1
Dia_TxText rs.l 1
Dia_TxDisplay rs.l 1
Dia_TxDispSize rs.w 1
Dia_TxDispMax rs.w 1
Dia_TxAdress rs.l 1
Dia_TxAct rs.l 1
Dia_TxYAct rs.w 1
Dia_TxPen rs.b 1
Dia_TxPaper rs.b 1
Dia_TxPp rs.b 8
Dia_TxBuffer rs.b 64
Dia_TxBufferEnd equ __RS
Dia_TxLong equ __RS
; Definition des zones actives
Dia_TxDispZone equ 8
; Entete d'un slider
; ~~~~~~~~~~~~~~~~~~
RsReset
rs.b Dia_ZoLong ;Entete zone active
Dia_Sl rs.b Sl_Long ;Donn<6E>es gestion slider
Dia_SlLong equ __RS
; Entete d'une definition de touche
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
RsReset
rs.w 2
Dia_KyCode rs.b 1
Dia_KyShift rs.b 1
Dia_KyZone rs.l 1
Dia_KyLong equ __RS
; Entete d'une sauvegarde de block
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
RsReset
rs.w 2
Dia_BlNumber rs.w 1
Dia_BlLong equ __RS
; Marques de reconnaissance
; ~~~~~~~~~~~~~~~~~~~~~~~~~
Dia_BtMark equ "Bt"
Dia_StMark equ "St"
Dia_EdMark equ "Ed"
Dia_KyMark equ "Ky"
Dia_BlMark equ "Bl"
Dia_ZoMark equ "Zo"
Dia_SlMark equ "Sl"
Dia_LiMark equ "Li"
Dia_TxMark equ "Tx"
Dia_TaMark equ "Ta"
Dia_TdMark equ "Td"
; Numero des messages d'erreur
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
EDia_Syntax equ 1
EDia_OMem equ 2
EDia_LabAD equ 3
EDia_LabND equ 4
EDia_ChanAD equ 5
EDia_ChanND equ 6
EDia_Screen equ 7
EDia_VarND equ 8
EDia_FCall equ 9
EDia_Type equ 10
EDia_OBuffer equ 11
EDia_NPar equ 12
***************************************************************
* Interpretor datas zone
* Pointed to by A5
***************************************************************
RsReset
; VBL Routines
; ~~~~~~~~~~~~~~~~~~~~~~~~~~
VblRout: rs.l 8
; Extensions
; ~~~~~~~~~~~~~~~~~~~~~~~~
AdTokens: rs.l 27
AdTTokens: rs.l 27
ExtAdr: rs.l 26*4
ExtTests: rs.l 8
; Adresses Kickstart
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DosBase: rs.l 1
DFloatBase rs.l 1
DMathBase rs.l 1
FloatBase: rs.l 1
MathBase: rs.l 1
IconBase: rs.l 1
; Donn<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
Sys_Stopped rs.l 1
Sys_MyTask rs.l 1
Sys_OldName rs.l 1
Sys_Editor rs.l 1
Sys_Monitor rs.l 1
Sys_Resource rs.l 1
Sys_WStarted rs.b 1
rs.b 1
Sys_Pathname rs.b 80
Mon_Base rs.l 1
Prg_List rs.l 1
Prg_Runned rs.l 1
; Graphics
; ~~~~~~~~~~~~~~~~~~~~~~
AAreaSize: equ 16
AAreaInfo: rs.b 24
AAreaBuf: rs.b AAreaSize*5+10
rs.b 16
ATmpRas: rs.l 2
AppNPlan rs.w 1
SccEcO: rs.l 1
SccEcD: rs.l 1
; File selector
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
FsAdEc: rs.l 1
FsOldEc rs.w 1
FsFlag: rs.w 1
FsActive: rs.w 1
FsPosF: rs.w 1
FsIFlag: rs.w 1
FsLPath: rs.w 1
FsLPath1: rs.w 1
FsCPath: rs.w 1
FsLNom: rs.w 1
FsCNom: rs.w 1
FsWiAct: rs.w 1
FsSp: rs.l 1
WB2.0: rs.w 1
Fs_Base rs.l 1
Fs_Saved rs.l 1
Fs_SaveList rs.l 1
rs.b 1
FillFSorted rs.b 1
; Editor
; ~~~~~~~~~~~~~~~~~~~~
BasSp: rs.l 1
rs.w 1
ColBack: rs.w 1
DefFlag: rs.w 1
; Float
; ~~~~~~~~~~~~~~~~~~~
BuFloat: rs.b 64
DeFloat: rs.b 32
TempFl: rs.l 1
TempBuf: rs.l 1
ValPi: rs.l 1
Val180: rs.l 1
; Disque I/O
; ~~~~~~~~~~~~~~~~~~~~~~~~
IffParam: rs.l 1
IffFlag: rs.l 1
IffReturn rs.l 1
BufFillF: rs.l 1
FillFLong: rs.w 1
FillFSize: rs.w 1
FillFNb: rs.w 1
FillF32: rs.w 1
DirLong: rs.l 1
DirComp: rs.w 1
DirLNom: rs.w 1
PathAct: rs.l 1
DirFNeg: rs.l 1
BufBMHD: rs.l 1
BufCMAP: rs.l 1
BufCAMG: rs.l 1
BufCCRT: rs.l 1
BufAMSC: rs.l 1
; Tokenisation / Stockage
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TkAd: rs.l 1
TkChCar: rs.w 1
VerPos: rs.l 1
VerBase: rs.l 1
VerNInst rs.l 1
VerNot1.3 rs.b 1
VerCheck1.3 rs.b 1
Parenth: rs.w 1
WBench rs.b 1
WB_Closed rs.b 1
TBuffer: equ 1024
TMenage: equ 160*10-64
Buffer: rs.l 1
BMenage: rs.l 1
LimSave: rs.w 4
FsLimSave: rs.w 4
Name1: rs.l 1
Name2: rs.l 1
Access: rs.l 1
AcLdTemp: rs.l 1
AccFlag: rs.w 1
RasAd: rs.l 1
RasLong: rs.l 1
RasSize: rs.w 1
RasLock: rs.l 1
ScOn: rs.w 1
ScOnAd: rs.l 1
BufBob: rs.l 1
BufLabel: rs.l 1
LMouse: rs.l 1
VBLOCount: rs.w 1
VBLDelai: rs.w 1
SScan: rs.w 1
Seed: rs.l 1
OldRnd: rs.l 1
PAmalE: rs.w 1
ReqSave: rs.l 1
ReqSSave: rs.l 1
SNoFlip: rs.w 1
LockSave: rs.l 1
Handle: rs.l 1
PrtHandle: rs.l 1
PosFillF: rs.w 1
TempBuffer rs.l 1
; Canaux d'animation
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
AnCanaux: rs.w 64
InterOff: rs.w 1
; ____________________________________________________________________________
;
; VARIABLES RUN-TIME
; ____________________________________________________________________________
;
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Debut de la zone poussee par PRUN
;
DebSave: equ __RS
; Adresse de la liste de Banques/Dialogues
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cur_Banks rs.l 1
Cur_Dialogs rs.l 1
Cur_ChrJump rs.l 1
; Donnnes du programme
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Stack_ProcSize equ 42
Stack_Size rs.w 1
Stack_CSize rs.w 1
Prg_Source rs.l 1
Prg_FullSource rs.l 1
Prg_Includes rs.l 1
Prg_Run rs.l 1
Prg_Test rs.l 1
Prg_JError rs.l 1
Prg_ChrGet rs.l 1
; Verification / Buffers
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Passe: rs.w 1
VarBuf: rs.l 1
VarBufL: rs.l 1
VarBufFlg: rs.w 1
LabHaut: rs.l 1
LabBas: rs.l 1
LabMini: rs.l 1
DVNmBas: rs.l 1
DVNmHaut: rs.l 1
VNmLong: rs.l 1
VNmHaut: rs.l 1
VNmBas: rs.l 1
VNmMini: rs.l 1
VDLigne: rs.l 1
BaTablA: rs.l 1
HoTablA: rs.l 1
VarLong: rs.w 1
GloLong: rs.w 1
VarGlo: rs.l 1
VarLoc: rs.l 1
TabBas: rs.l 1
ChVide: rs.l 1
LoChaine: rs.l 1
HiChaine: rs.l 1
HoLoop: rs.l 1
BaLoop: rs.l 1
; Donnees RUN
; ~~~~~~~~~~~~~~~~~~~~~~~~~
PLoop: rs.l 1
MinLoop: rs.l 1
BasA3: rs.l 1
ErrRet: rs.l 1
ErrRAd: rs.l 1
Phase: rs.w 1
DTablA: rs.l 1
CurTablA: rs.l 1
PDebug: rs.l 1
rs.b 1
rs.b 1
ActuMask: rs.w 1
IffMask: rs.l 1
ExpFlg: rs.w 1
FixFlg: rs.w 1
; DEVICES / LIBRARIES
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dev_Max equ 7
Dev_List rs.b 12*Dev_Max
Lib_Max equ 7
Lib_List rs.l 4*Lib_Max
; MENUS
; ~~~~~~~~~~~~~~~~~~~
MnNDim: equ 8
Mn_SSave equ __RS ;Debut du flip de l'editeur
MnBase: rs.l 1 ;~~~~~~~~~~~~~~~~~~~~~~~~~~
MnBaseX: rs.w 1
MnBaseY: rs.w 1
MnChange: rs.w 1
MnMouse: rs.w 1
MnError: rs.w 1
MnAdEc: rs.l 1
MnScOn: rs.w 1
MgFlags: rs.w 1
MnNZone: rs.w 1
MnZoAct: rs.w 1
MnAct: rs.l 1
MnTDraw: rs.l 1
MnTable: rs.l MnNDim+1
MnChoix: rs.w MnNDim
MnDFlags: rs.b MnNDim
MnDAd: rs.l 1
MnProc: rs.w 1
Mn_ESave equ __RS ;Fin du flip editeur
MnRA3: rs.l 1 ;~~~~~~~~~~~~~~~~~~~
MnRA4: rs.l 1
MnPile: rs.l 1
OMnBase: rs.l 1
OMnNb: rs.w 1
OMnType: rs.w 1
; Def Scroll
; ~~~~~~~~~~~~~~~~~~~~~~~~
DScrolls: rs.w 6*16
; Dialogues
; ~~~~~~~~~~~~~~~~~~~~~~~
IDia_BankPuzzle rs.l 1
IDia_Error rs.l 1
; Patch monitor
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~
Patch_ScCopy rs.l 1
Patch_ScFront rs.l 1
Patch_Errors rs.l 1
Patch_Menage rs.l 1
Mon_Here rs.b 1
rs.b 1
; Fichiers
; ~~~~~~~~~~~~~~~~~~~~~~
FhA: equ 0
FhT: equ 4
FhF: equ 6
TFiche: equ 10
NFiche: equ 10
ChrInp: rs.w 1
Fichiers: rs.b TFiche*NFiche
; AREXX
; ~~~~~~~~~~~~~~~~~~~
Arx_Port rs.l 1
Arx_Base rs.l 1
Arx_Answer rs.l 1
Arx_PortName rs.b 32
; Every
; ~~~~~~~~~~~~~~~~~~~
EveType: rs.w 1
EveLabel: rs.l 1
EveCharge: rs.w 1
; Miscellenous
; ~~~~~~~~~~~~~~~~~~~~~~~~~~
BuffSize: rs.l 1
AdrIcon: rs.l 1
DefPal: rs.w 32
DBugge rs.l 1
CallAd: rs.l 1
; Donn<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
DMathFlag: rs.b 1
Ed_YaUTest rs.b 1
CallReg: rs.l 8+7
FinRaz: equ __RS
FinSave: equ __RS
; Fin de la zone pousse par PRUN
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Donn<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
rs.l 8 ;Pour extension!
;
; Fin de la zone configuration interpreteur
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; __________________________
;
; Mode Escape
; __________________________
;
Esc_TFonc rs.l 1
Esc_Buf rs.l 1
Esc_KMem rs.l 1
Esc_KMemPos rs.l 1
Direct rs.w 1
DirFlag rs.w 1
EsFlag rs.w 1
Es_LEd rs.b LEd_Size
; _______________________
;
; Editeur
; _______________________
;
; Pointeurs sur zones de chaines
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ed_ConfigHead equ "ApCf"
Ed_QuitHead equ "ApLC"
; Adresse des elements de configuration
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ed_Config rs.l 1
Ed_Systeme rs.l 1 ;Ne pas changer l'ordre
EdM_Messages rs.l 1
Ed_Messages rs.l 1
Ed_TstMessages rs.l 1
Ed_RunMessages rs.l 1
Ed_MnPrograms rs.l 1
EdM_User rs.l 1
EdM_Definition rs.l 1
; Donn<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_NoAff rs.b 1
Ed_Warm rs.b 1
Ed_Disk rs.w 1
Ed_FSel rs.w 1
Ed_SchBuf rs.b 34
Ed_RepBuf rs.b 34
EdM_Table rs.l 1
EdM_TableSize rs.l 1
EdM_TableAMOS rs.l 1
EdM_MenuAMOS rs.l 1
EdM_MessAMOS rs.l 1
EdM_PosHidden rs.w 1
EdM_Flag rs.b 1
rs.b 1
EdM_Copie rs.b Mn_ESave-Mn_SSave
Ed_Boutons rs.b Bt_Long*14
SlDelai equ 10
* ILLEGAL <EFBFBD> enlever
EdMarks: equ __RS
; Zone de sauvegarde de la config Editeur
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ed_DConfig equ __RS
; Screen definition
Ed_Sx rs.w 1
Ed_Sy rs.w 1
Ed_Wx rs.w 1
Ed_Wy rs.w 1
Ed_VScrol rs.w 1
Ed_Inter rs.b 1
rs.b 1
; Colour back
Ed_ColB rs.w 1
; Length UNDO
Ed_LUndo rs.l 1
Ed_NUndo rs.l 1
; Untok case
DtkMaj1 rs.b 1
DtkMaj2 rs.b 1
; Flags
Ed_SvBak rs.b 1
EdM_Keys rs.b 1
Esc_KMemMax rs.w 1
; Colour palette
Ed_Palette rs.w 8
; Escape mode positions
Es_Y1 rs.w 1
Es_Y2 rs.w 1
; Security!
rs.l 7
; Flags change within the editor
Ed_AutoSave rs.l 1
Ed_AutoSaveMn rs.l 1
Ed_SchMode rs.w 1
Ed_Tabs rs.w 1
Esc_Output rs.b 1
Ed_QuitFlags rs.b 1
Ed_Insert rs.b 1
Ed_Sounds rs.b 1
; Programmes autoload
; ~~~~~~~~~~~~~~~~~~~
Ed_AutoLoad rs.b 3*184
; Touches par defaut
; ~~~~~~~~~~~~~~~~~~
Ed_KFonc rs.b 3*184
rs.b 2
Ed_FConfig equ __RS
; Find de la config editeur
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
********************************* Total data length
DataLong: equ __RS
; Flags banques
; ~~~~~~~~~~~~~~~~~~~
Bnk_BitData equ 0 ;Banque de data
Bnk_BitChip equ 1 ;Banque en chip
Bnk_BitBob equ 2 ;Banque de Bobs
Bnk_BitIcon equ 3 ;Banque d'icons
; _____________________________________________________________________________
;
; D<>finition d'un programme
; _____________________________________________________________________________
;
RsReset
Prg_Next rs.l 1 ;Prochain dans la liste
Prg_NLigne: rs.w 1 ;Nombre de lignes
Prg_StMini rs.l 1 ;Buffer de stockage
Prg_StTTexte rs.l 1
Prg_StHaut rs.l 1
Prg_StBas rs.l 1
Prg_Banks rs.l 1
Prg_Dialogs rs.l 1
Prg_StModif rs.b 1 ;Listing modifie
Prg_Change rs.b 1 ;Sauver le programme
Prg_Edited rs.b 1 ;Une fenetre?
Prg_NoNamed rs.b 1 ;Numero de la structure
Prg_Not1.3 rs.b 1 ;Compatible 1.3?
rs.b 1
Prg_Previous rs.l 1 ;Programme precedent
Prg_RunData rs.l 1 ;Donn<6E>e si PRUN
Prg_ZapData rs.l 1
Prg_AdEProc rs.l 1 ;Procedure d'erreur
Prg_XEProc rs.w 1
Prg_Undo rs.l 1 ;Buffer undo
Prg_PUndo rs.l 1 ;Position dans buffer
Prg_Marks rs.l 10
Prg_NamePrg rs.b 128 ;Nom du programme
Prg_Long equ __RS
; _____________________________________________________________________________
;
; D<>finition d'une edition
; _____________________________________________________________________________
;
RsReset
Edt_Next rs.l 1 ;Edition suivante
Edt_Prg rs.l 1 ;Adresse structure programme
Edt_BufE rs.l 1 ;Adresse buffer edition
; Donn<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 <20> remettre <20> 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 <20> 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