1120 lines
18 KiB
ArmAsm
1120 lines
18 KiB
ArmAsm
|
|
||
|
* Version 1.2
|
||
|
|
||
|
***********************************************************
|
||
|
*
|
||
|
* AMOS EQUATES DEFINITION
|
||
|
*
|
||
|
* By Francois Lionet
|
||
|
* AMOS (c) 1990 Mandarin / Jawx
|
||
|
*
|
||
|
* Last change 14/10/1990
|
||
|
*
|
||
|
***********************************************************
|
||
|
* This file is public domain!
|
||
|
***********************************************************
|
||
|
* Here is all AMOS internal data offsets and macro
|
||
|
* definitions. More on all AMOS jumps tables in the AMOS
|
||
|
* club newsletter!
|
||
|
***********************************************************
|
||
|
|
||
|
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
|
||
|
ExecBase: equ 4
|
||
|
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
|
||
|
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,a6
|
||
|
jsr \1(a6)
|
||
|
ENDM
|
||
|
;GfxCall: MACRO
|
||
|
; movem.l d0-d7/a0-a6,-(sp)
|
||
|
; move.l GfxBase,a6
|
||
|
; jsr \1(a6)
|
||
|
; movem.l (sp)+,d0-d7/a0-a6
|
||
|
; ENDM
|
||
|
|
||
|
*************** DOS
|
||
|
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
|
||
|
SyVect: equ $100
|
||
|
|
||
|
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
|
||
|
|
||
|
SyCall: MACRO
|
||
|
move.l SyVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
SyCalA: MACRO
|
||
|
lea \2,a1
|
||
|
move.l SyVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
SyCalD: MACRO
|
||
|
moveq #\2,d1
|
||
|
move.l SyVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
SyCal2: MACRO
|
||
|
moveq #\2,d1
|
||
|
move.l #\3,a1
|
||
|
move.l SyVect,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 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
|
||
|
***********************************************************
|
||
|
|
||
|
EcVect: equ $104
|
||
|
|
||
|
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
|
||
|
View: 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
|
||
|
|
||
|
EcCall: MACRO
|
||
|
move.l EcVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
EcCalA: MACRO
|
||
|
lea \2,a1
|
||
|
move.l EcVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
EcCalD: MACRO
|
||
|
moveq #\2,d1
|
||
|
move.l EcVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
EcCal2: MACRO
|
||
|
moveq #\2,d1
|
||
|
move.l #\3,a1
|
||
|
move.l EcVect,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
|
||
|
***********************************************************
|
||
|
|
||
|
WiVect: equ $108
|
||
|
AMOSLoaded equ $10C
|
||
|
|
||
|
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
|
||
|
|
||
|
WiCall: MACRO
|
||
|
move.l WiVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
WiCalA: MACRO
|
||
|
lea \2,a1
|
||
|
move.l WiVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
WiCalD: MACRO
|
||
|
moveq #\2,d1
|
||
|
move.l WiVect,a0
|
||
|
jsr \1*4(a0)
|
||
|
ENDM
|
||
|
WiCal2: MACRO
|
||
|
moveq #\2,d1
|
||
|
move.l #\3,a1
|
||
|
move.l WiVect,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
|
||
|
|
||
|
***************************************************************
|
||
|
* 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
|
||
|
|
||
|
*************** GRAPHICS
|
||
|
AreaSize: equ 16
|
||
|
AreaInfo: rs.b 24
|
||
|
AreaBuf: rs.b AreaSize*5+10
|
||
|
rs.b 16
|
||
|
TmpRas: rs.l 2
|
||
|
AppNPlan rs.w 1
|
||
|
SccEcO: rs.l 1
|
||
|
SccEcD: rs.l 1
|
||
|
|
||
|
*************** File selector
|
||
|
EdFSel: rs.w 1
|
||
|
FsAdEc: rs.l 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
|
||
|
FsWy: rs.w 1
|
||
|
FsWx: rs.w 1
|
||
|
FsVApp: rs.w 1
|
||
|
|
||
|
********************************* Editor
|
||
|
BasSp: rs.l 1
|
||
|
FkEcran: rs.l 1
|
||
|
FkOn: rs.w 1
|
||
|
FkJeu: rs.w 1
|
||
|
FkOJeu: rs.w 1
|
||
|
FkMFlag: rs.w 1
|
||
|
AmiAff: rs.w 1
|
||
|
AmiOAff: rs.w 1
|
||
|
|
||
|
EdEcran: rs.l 1
|
||
|
EdBufE: rs.l 1
|
||
|
EdBufT: rs.l 1
|
||
|
|
||
|
EdXPos: rs.w 1
|
||
|
EdYPos: rs.w 1
|
||
|
EdXCu: rs.w 1
|
||
|
EdYCu: rs.w 1
|
||
|
EdTabs: rs.w 1
|
||
|
EdFlag: rs.w 1
|
||
|
EdNLigne: rs.w 1
|
||
|
EdIns: rs.w 1
|
||
|
EdEdit: rs.w 1
|
||
|
EdChange: rs.w 1
|
||
|
StModif: rs.w 1
|
||
|
EdFkCpt: rs.w 1
|
||
|
EdAfFk: rs.w 1
|
||
|
EdMKey: rs.w 1
|
||
|
EdMkFl: rs.w 1
|
||
|
EdMkIns: rs.w 1
|
||
|
EdILigne: rs.w 1
|
||
|
|
||
|
EtMess: rs.w 1
|
||
|
EtAlert: rs.l 1
|
||
|
EtCps: rs.w 1
|
||
|
EtOCps: rs.w 1
|
||
|
EtAX: rs.w 1
|
||
|
EtAY: rs.w 1
|
||
|
EtFr: rs.w 1
|
||
|
|
||
|
SlDelai: equ 10
|
||
|
EtASlX: rs.w 1
|
||
|
EtASlY: rs.w 1
|
||
|
WbClose: rs.w 1
|
||
|
|
||
|
********************************* Escape
|
||
|
EsFlag: rs.w 1
|
||
|
EscTFonc: rs.l 1
|
||
|
LEdXCu: rs.w 1
|
||
|
LEdYCu: rs.w 1
|
||
|
ColBack: rs.w 1
|
||
|
EFkFlag: rs.w 1
|
||
|
DefFlag: rs.w 1
|
||
|
|
||
|
********************************* Float
|
||
|
FloatBase: rs.l 1
|
||
|
MathBase: rs.l 1
|
||
|
BuFloat: rs.b 64
|
||
|
DeFloat: rs.b 32
|
||
|
TempFl: rs.l 1
|
||
|
TempBuf: rs.l 1
|
||
|
ValPi: rs.l 1
|
||
|
Val180: rs.l 1
|
||
|
CallAd: rs.l 1
|
||
|
|
||
|
********************************* Disque I/O
|
||
|
IffParam: rs.l 1
|
||
|
IffFlag: 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
|
||
|
Parenth: rs.w 1
|
||
|
DtkMaj1: rs.w 1
|
||
|
DtkMaj2: rs.w 1
|
||
|
StTTexte: rs.l 1
|
||
|
StHaut: rs.l 1
|
||
|
StBas: rs.l 1
|
||
|
StMini: rs.l 1
|
||
|
StDLigne: rs.w 1
|
||
|
StFLigne: rs.w 1
|
||
|
StNLigne: rs.w 1
|
||
|
LimSave: rs.w 4
|
||
|
FsLimSave: rs.w 4
|
||
|
Buffer: rs.l 1
|
||
|
BMenage: rs.l 1
|
||
|
Name1: rs.l 1
|
||
|
Name2: rs.l 1
|
||
|
BufEsc: rs.l 1
|
||
|
TBuffer: equ 1024
|
||
|
TMenage: equ TBuffer-64
|
||
|
Access: rs.l 1
|
||
|
AcLdTemp: rs.l 1
|
||
|
AccFlag: rs.w 1
|
||
|
BBanks: rs.l 2*16
|
||
|
BankGrab: rs.w 1
|
||
|
BankFlag: rs.w 1
|
||
|
RunAct: rs.l 1
|
||
|
NamePrg: rs.b 128
|
||
|
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
|
||
|
Logo: 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
|
||
|
DosBase: rs.l 1
|
||
|
ReqSave: rs.l 1
|
||
|
ReqSSave: rs.l 1
|
||
|
SNoFlip: rs.w 1
|
||
|
LockSave: rs.l 1
|
||
|
EdDisk: rs.w 1
|
||
|
Handle: rs.l 1
|
||
|
PrtHandle: rs.l 1
|
||
|
PosFillF: rs.w 1
|
||
|
|
||
|
********************************* Variables / Run
|
||
|
DebSave: equ __RS
|
||
|
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
|
||
|
|
||
|
Direct: rs.w 1
|
||
|
DirFlag: rs.w 1
|
||
|
PLoop: rs.l 1
|
||
|
MinLoop: rs.l 1
|
||
|
BasA3: rs.l 1
|
||
|
ErrRet: rs.l 1
|
||
|
ErrRAd: rs.l 1
|
||
|
Phase: rs.w 1
|
||
|
DRun: rs.l 1
|
||
|
DTablA: rs.l 1
|
||
|
CurTablA: rs.l 1
|
||
|
PDebug: rs.l 1
|
||
|
Actual: rs.w 1
|
||
|
ActuMask: rs.w 1
|
||
|
IffMask: rs.l 1
|
||
|
ExpFlg: rs.w 1
|
||
|
FixFlg: rs.w 1
|
||
|
|
||
|
*************** ANIMATIONS
|
||
|
AnCanaux: rs.w 64
|
||
|
InterOff: rs.w 1
|
||
|
|
||
|
*************** DEF SCROLLS
|
||
|
DScrolls: rs.w 6*16
|
||
|
|
||
|
*************** BANKS
|
||
|
ABanks: rs.l 1
|
||
|
|
||
|
*************** Disc / Printer
|
||
|
FhA: equ 0
|
||
|
FhT: equ 4
|
||
|
FhF: equ 6
|
||
|
TFiche: equ 10
|
||
|
NFiche: equ 10
|
||
|
ChrInp: rs.w 1
|
||
|
Fichiers: rs.b TFiche*NFiche
|
||
|
|
||
|
*************** MENUS
|
||
|
MnNDim: equ 8
|
||
|
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
|
||
|
MnRA3: rs.l 1
|
||
|
MnRA4: rs.l 1
|
||
|
MnPile: rs.l 1
|
||
|
OMnBase: rs.l 1
|
||
|
OMnNb: rs.w 1
|
||
|
OMnType: rs.w 1
|
||
|
|
||
|
*************** Every
|
||
|
EveType: rs.w 1
|
||
|
EveLabel: rs.l 1
|
||
|
EveCharge: rs.w 1
|
||
|
LogoFlag: rs.w 1
|
||
|
|
||
|
*************** Miscellenous
|
||
|
BuffSize: rs.l 1
|
||
|
AdrIcon: rs.l 1
|
||
|
IconBase: rs.l 1
|
||
|
FolFlg: rs.w 1
|
||
|
FolPos: rs.l 1
|
||
|
FolPPos: rs.l 1
|
||
|
FoLine: rs.l 1
|
||
|
CurLigne: rs.l 1
|
||
|
DebProc: rs.l 1
|
||
|
AdEProc: rs.l 1
|
||
|
XEProc: rs.w 1
|
||
|
EdBloc: rs.w 1
|
||
|
YOBloc: rs.w 1
|
||
|
Y1Bloc: rs.w 1
|
||
|
Y2Bloc: rs.w 1
|
||
|
EdBlocAd: rs.l 1
|
||
|
SchFlag: rs.w 1
|
||
|
SchMode: rs.w 1
|
||
|
DefPal: rs.w 32
|
||
|
SchBuf: rs.b 34
|
||
|
RepBuf: rs.b 34
|
||
|
EdMarks: rs.l 10
|
||
|
|
||
|
********************************* RUN init variables
|
||
|
DBugge rs.l 1
|
||
|
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
|
||
|
TVMax: rs.w 1
|
||
|
DProc: rs.l 1
|
||
|
AData: rs.l 1
|
||
|
PData: rs.l 1
|
||
|
MenA4: rs.l 1
|
||
|
LockOld: rs.l 1
|
||
|
CallReg: rs.l 8+7
|
||
|
MnChoice: rs.w 1
|
||
|
Angle: rs.w 1
|
||
|
FinRaz: equ __RS
|
||
|
FinSave: equ __RS
|
||
|
|
||
|
********************************* Total data length
|
||
|
DataLong: equ __RS
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
;Added by Andy Church, 23/06/94:
|
||
|
|
||
|
Bnk_BitData equ 0
|
||
|
Bnk_BitChip equ 1
|
||
|
Bnk_BitBob equ 2
|
||
|
Bnk_BitIcon equ 3
|
||
|
|
||
|
L_Error equ 1024
|
||
|
L_ErrorExt equ 1025
|