1884 lines
34 KiB
ArmAsm
1884 lines
34 KiB
ArmAsm
|
|
|||
|
|
|
|||
|
|
*
|
|||
|
|
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
|
|||
|
|
|