-
Notifications
You must be signed in to change notification settings - Fork 2
/
+Equ.s
2382 lines (2210 loc) · 45.6 KB
/
+Equ.s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
IFND EZFlag
EZFlag set 0
ENDC
*
Switcher_Signal equ 24
Except_Signal equ 26
*
***********************************************************
*
* AMOSPro EQUATES DEFINITION
*
* By Francois Lionet
* AMOS (c) 1990-1992 Europress Software Ltd.
*
* Last change 23/09/1992
*
***********************************************************
* This file contains all the equates of the AMOSPro
* programs and extension.
* Be patient, we will soon (I hope) publish informations
* about the functions of the amos.library.
***********************************************************
* Only for multi-lingual readers: half english
* half french. That's Europe!
***********************************************************
BFORM_ILBM equ %00000001
BFORM_ACBM equ %00000010
BFORM_ANIM equ %00000100
BCHUNK_BMHD equ 0
BCHUNK_CAMG equ 1
BCHUNK_CMAP equ 2
BCHUNK_CCRT equ 3
BCHUNK_BODY equ 4
BCHUNK_AMSC equ 5
BCHUNK_ABIT equ 6
EntNul: equ $80000000
Circuits: equ $dff000
IntReq: equ $9c
IntEna: equ $9a
DmaCon: equ $96
DmaConR: equ $02
Color00: equ $180
VhPosR: equ $6
; Copper
Cop1lc: equ $80
Cop2lc: equ $84
CopJmp1: equ $88
CopJmp2: equ $8a
; Souris
CiaAprA: equ $bfe001
Joy0Dat: equ $a
Joy1Dat: equ $c
JoyTest: equ $36
PotGo: equ $34
PotGoR: equ $16
Pot0Dat: equ $12
Pot1Dat: equ $14
; Bitplanes
BplCon0: equ $100
BplCon1: equ $102
BplCon2: equ $104
Bpl1PtH: equ $0e0
Bpl1PtL: equ $0e2
Bpl1Mod: equ $108
Bpl2Mod: equ $10a
DiwStrt: equ $08e
DiwStop: equ $090
DdfStrt: equ $092
DdfStop: equ $094
; Blitter
BltSize: equ $058
BltAdA: equ $050
BltAdB: equ $04c
BltAdC: equ $048
BltAdD: equ $054
BltModA: equ $064
BltModB: equ $062
BltModC: equ $060
BltModD: equ $066
BltCon0: equ $040
BltCon1: equ $042
BltDatA: equ $074
BltDatB: equ $072
BltDatC: equ $070
BltDatD: equ $000
BltMaskG: equ $044
BltMaskD: equ $046
;-------------> WFlags
WFlag_AA equ 0
WFlag_Event equ 1
WFlag_AmigaA equ 2
WFlag_WBClosed equ 3
WFlag_LoadView equ 4
;-------------> Systeme
IFND ExecBase
ExecBase: equ 4
ENDC
StartList: equ 38
Forbid: equ -132
Permit: equ -138
OwnBlitter: equ -30-426
DisOwnBlitter: equ -30-432
WaitBlit: equ -228
OpenLib: equ -552
CloseLib: equ -414
AllocMem: equ -198
AvailMem: equ -216
FreeMem: equ -210
Chip: equ $02
Fast: equ $04
Clear: equ $10000
Public: equ $01
Total equ $80000
SetFunction: equ -420
CloseWB: equ -78
FindTask: equ -294
AddPort: equ -354
RemPort: equ -360
OpenDev: equ -444
CloseDev: equ -450
DoIO: equ -456
SendIO: equ -462
;-------------> Intuition
OpenScreen: equ -198
CloseScreen: equ -66
ScreenToBack: equ -$F6
OpenWindow: equ -204
CloseWindow: equ -72
LoadView: equ -$DE
CUFLayer: equ -36
DelLayer: equ -90
;-------------> Graphic library
InitRastPort: equ -198
InitTmpRas: equ -$1d4
TextLength: equ -54
Text: equ -60
SetFont: equ -66
OpenFont: equ -72
CloseFont: equ -78
AskSoftStyle: equ -84
SetSoftStyle: equ -90
RMove: equ -240
RDraw: equ -246
DrawEllipse: equ -$b4
AreaEllipse: equ -$ba
AreaMove: equ -252
AreaDraw: equ -258
AreaEnd: equ -264
InitArea: equ -282
RectFill: equ -306
ReadPixel: equ -318
WritePixel: equ -324
Flood: equ -330
PolyDraw: equ -336
ScrollRaster: equ -396
AskFont: equ -474
AddFont: equ -480
RemFont: equ -486
ClipBlit: equ -552
BltBitMap: equ -30
SetAPen: equ -342
SetBPen: equ -348
SetDrMd: equ -354
AvailFonts: equ -$24
OpenDiskFont equ -$1e
;-------------> Dos
Input: equ -54
WaitChar: equ -204
Read: equ -42
Execall: MACRO
move.l $4.w,a6
jsr \1(a6)
ENDM
GfxCa5 MACRO
movem.l d0/d1/a0/a1/a6,-(sp)
move.l T_GfxBase(a5),a6
jsr \1(a6)
movem.l (sp)+,d0/d1/a0/a1/a6
ENDM
*************** COPIE
CoCopy MACRO
.Loop\@ move.b (a0)+,(a1)+
bne.s .Loop\@
ENDM
*************** DOS
DosCall MACRO
move.l a6,-(sp)
move.l DosBase(a5),a6
jsr \1(a6)
move.l (sp)+,a6
ENDM
DosOpen: equ -30
DosClose: equ -36
DosRead: equ -42
DosWrite: equ -48
DosSeek: equ -66
DosDel: equ -72
DosRen: equ -78
DosLock: equ -84
DosUnLock: equ -90
DosDupLock: equ -96
DosExam: equ -102
DosExNext: equ -108
Dosinfo: equ -114
DosMkDir: equ -120
DosCuDir: equ -126
DosIOErr: equ -132
DosDProc: equ -174
DosParent: equ -210
DosLoadSeg: equ -150
DosULoadSeg: equ -156
DosWChar: equ -204
*************** FLOAT
SPFix: equ -30
SPFlt: equ -36
SPCmp: equ -42
SPTst: equ -48
SPAbs: equ -54
SPNeg: equ -60
SPAdd: equ -66
SPSub: equ -72
SPMul: equ -78
SPDiv: equ -84
SPFloor: equ -90
SPCeil: equ -96
SPATan: equ -30
SPSin: equ -36
SPCos: equ -42
SPTan: equ -48
SPSinCos: equ -54
SPSinH: equ -60
SPCosH: equ -66
SPTanH: equ -72
SPExp: equ -78
SPLog: equ -84
SPPow: equ -90
SPSqrt: equ -96
SPTIeee: equ -102
SPFIeee: equ -108
SPASin: equ -114
SPACos: equ -120
SPLog10: equ -126
*************** AMOS system library
Inkey: equ 0
ClearKey: equ 1
Shifts: equ 2
Instant: equ 3
KeyMap: equ 4
Joy: equ 5
PutKey: equ 6
Hide: equ 7
Show: equ 8
ChangeM: equ 9
XyMou: equ 10
XyHard: equ 11
XyScr: equ 12
MouseKey: equ 13
SetM: equ 14
ScIn: equ 15
XyWin: equ 16
LimitM: equ 17
ZoHd: equ 18
ResZone: equ 19
RazZone: equ 20
SetZone: equ 21
GetZone: equ 22
WaitVbl: equ 23
SetHs: equ 24
USetHs: equ 25
SetFunk: equ 26
GetFunk: equ 27
AffHs: equ 28
SetSpBank: equ 29
NXYAHs: equ 30
XOffHs: equ 31
OffHs: equ 32
ActHs: equ 33
SBufHs: equ 34
StActHs: equ 35
ReActHs: equ 36
StoreM: equ 37
RecallM: equ 38
PriHs: equ 39
AMALTok: equ 40
AMALCre: equ 41
AMALMvO: equ 42
AMALDAll: equ 43
AMAL: equ 44
AMALReg: equ 45
AMALClr: equ 46
AMALFrz: equ 47
AMALUFrz: equ 48
SetBob: equ 49
OffBob: equ 50
OffBobS: equ 51
ActBob: equ 52
AffBob: equ 53
EffBob: equ 54
SyChip: equ 55
SyFast: equ 56
LimBob: equ 57
ZoGr: equ 58
SprGet: equ 59
MaskMk: equ 60
SpotHot: equ 61
ColBob: equ 62
ColGet: equ 63
ColSpr: equ 64
SetSync: equ 65
Synchro: equ 66
PlaySet: equ 67
XYBob: equ 68
XYSp: equ 69
PutBob: equ 70
Patch: equ 71
MouRel: equ 72
LimitMEc: equ 73
SyFree: equ 74
SetHCol: equ 75
GetHCol: equ 76
MovOn: equ 77
KeySpeed: equ 78
ChanA: equ 79
ChanM: equ 80
SPrio: equ 81
GetDisc: equ 82
RestartVBL equ 83
StopVBL equ 84
KeyWaiting equ 85 (P) Une touche en attente?
MouScrFront equ 86 (P) Souris dans ecran de front
MemReserve equ 87 (P) Reservation memoire
MemFree equ 88 (P) Liberation memoire
MemCheck equ 89 (P) Verification memoire
MemFastClear equ 90
MemChipClear equ 91
MemFast equ 92
MemChip equ 93
Send_FakeEvent equ 94 Envoi d'un faux event clavier
Test_Cyclique equ 95 Tests cyclique AMOS
AddFlushRoutine equ 96 Ajoute une routine flush
MemFlush equ 97 Force un flush memoire
AddRoutine equ 98 Ajoute une routine
CallRoutines equ 99 Appelle une liste de routines
Request_OnOff equ 100 Set requester AMOS/WB
SyCall: MACRO
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
SyCalA: MACRO
lea \2,a1
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
SyCalD: MACRO
moveq #\2,d1
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
SyCal2: MACRO
moveq #\2,d1
move.l #\3,a1
move.l T_SyVect(a5),a0
jsr \1*4(a0)
ENDM
***********************************************************
* EQUATES BOBS
RsReset
BbPrev: rs.l 1
BbNext: rs.l 1
BbNb: rs.w 1
BbAct: rs.w 1
BbX: rs.w 1
BbY: rs.w 1
BbI: rs.w 1
BbEc: rs.l 1
BbAAEc: rs.l 1
BbAData: rs.l 1
BbAMask: rs.l 1
BbNPlan: rs.w 1
BbAPlan: rs.w 1
BbASize: rs.w 1
BbAMaskG: rs.w 1
BbAMaskD: rs.w 1
BbTPlan: rs.w 1
BbTLigne: rs.w 1
BbAModO: rs.w 1
BbAModD: rs.w 1
BbACon: rs.w 1
BbACon0: rs.w 1
BbACon1: rs.w 1
BbADraw: rs.l 1
BbLimG: rs.w 1
BbLimD: rs.w 1
BbLimH: rs.w 1
BbLimB: rs.w 1
* Datas retournement des bobs
BbARetour rs.l 1
BbRetour rs.w 1
* Datas decor
BbDecor: rs.w 1
BbEff: rs.w 1
BbDCur1: rs.w 1
BbDCur2: rs.w 1
BbDCpt: rs.w 1
BbEMod: rs.w 1
BbECpt: rs.w 1
BbEAEc: rs.w 1
BbESize: rs.w 1
BbETPlan: rs.w 1
* Datas pour une sauvegarde de decor
BbDABuf: rs.l 1 * 0 Adresse buffer
BbDLBuf: rs.w 1 * 4 Longueur buffer
BbDAEc: rs.w 1 * 6 Decalage ecran
BbDAPlan: rs.l 1 * 8 Plans sauves
BbDNPlan: rs.l 1 * 12 Max plans
BbDMod: rs.w 1 * 16 Modulo ecran
BbDASize: rs.w 1 * 18 Taille blitter
Decor: equ 20 * 20 Taille totale
* Datas pour seconde sauvegarde!
rs.l Decor
BbLong: equ __RS
*************** AMOS Screen library
BitHide: equ 7
BitClone: equ 6
BitDble: equ 5
EcMaxPlans equ 6 6 Plans pour le moment!
RsReset
* Bitmap address
EcLogic: rs.l 6 *
EcPhysic rs.l 6 *
EcCurrent: rs.l 6 *
* Datas!
EcCon0: rs.w 1 *
EcCon2: rs.w 1 *
EcTx: rs.w 1 *
EcTy: rs.w 1 *
EcNPlan: rs.w 1 *
EcWX: rs.w 1 *
EcWY: rs.w 1 *
EcWTx: rs.w 1 *
EcWTy: rs.w 1 *
EcVX: rs.w 1 *
EcVY: rs.w 1 *
EcColorMap rs.w 1
EcNbCol rs.w 1
EcPal rs.w 32
EcDEcran: rs.l 1 *
EcTPlan: rs.l 1 *
EcWindow: rs.l 1 *
EcTxM: rs.w 1 *
EcTyM: rs.w 1 *
EcTLigne: rs.w 1 *
EcFlags: rs.w 1 *
EcDual: rs.w 1 *
EcWXr: rs.w 1 *
EcWTxr: rs.w 1 *
EcNumber: rs.w 1 *
EcAuto: rs.w 1 *
* Link with AMAL
EcAW: rs.w 1
EcAWX: rs.w 1
EcAWY: rs.w 1
EcAWT: rs.w 1
EcAWTX: rs.w 1
EcAWTY: rs.w 1
EcAV: rs.w 1
EcAVX: rs.w 1
EcAVY: rs.w 1
* Zone table
EcAZones: rs.l 1
EcNZones: rs.w 1
* Save the background for window
EcWiDec: rs.w 1
* Graphic functions
EcInkA: rs.b 1
EcInkB: rs.b 1
EcMode: rs.b 1
EcOutL: rs.b 1
EcLine: rs.w 1
EcCont: rs.w 1
EcX: rs.w 1
EcY: rs.w 1
EcPat: rs.l 1
EcPatL: rs.w 1
EcPatY: rs.w 1
EcClipX0: rs.w 1
EcClipY0: rs.w 1
EcClipX1: rs.w 1
EcClipY1: rs.w 1
EcFontFlag: rs.w 1
EcText: rs.b 14
EcFInkA: rs.b 1
EcFInkB: rs.b 1
EcFInkC: rs.b 1
EcIInkA: rs.b 1
EcIInkB: rs.b 1
EcIInkC: rs.b 1
EcFPat: rs.w 1
EcIPat: rs.w 1
* Cursor saving
EcCurS: rs.b 8*6
; Donnees ecran intuition
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ec_LayerInfo rs.l 1
Ec_Layer rs.l 1
Ec_RastPort rs.l 1
Ec_Region rs.l 1
Ec_BitMap rs.l 1
; Length of a screen
EcLong: equ __RS
; Y Screen base
EcYBase: equ $1000
EcYStrt: equ EcYBase+26
PalMax: equ 16
***********************************************************
* FUNCTIONS
***********************************************************
Raz: equ 0
CopMake: equ 1
* equ 2
Cree: equ 3
Del: equ 4
First: equ 5
Last: equ 6
Active: equ 7
CopForce: equ 8
AView: equ 9
OffSet: equ 10
Visible: equ 11
DelAll: equ 12
GCol: equ 13
SCol: equ 14
SPal: equ 15
SColB: equ 16
FlRaz: equ 17
Flash: equ 18
ShRaz: equ 19
Shift: equ 20
EHide: equ 21
CBlGet: equ 22
CBlPut: equ 23
CBlDel: equ 24
CBlRaz: equ 25
Libre: equ 26
CCloEc: equ 27
Current: equ 28
Double: equ 29
SwapSc: equ 30
SwapScS: equ 31
AdrEc: equ 32
SetDual: equ 33
PriDual: equ 34
ClsEc: equ 35
Pattern: equ 36
GFonts: equ 37
FFonts: equ 38
GFont: equ 39
SFont: equ 40
SetClip: equ 41
BlGet: equ 42
BlDel: equ 43
BlRaz: equ 44
BlPut: equ 45
VerSli: equ 46
HorSli: equ 47
SetSli: equ 48
MnStart: equ 49
MnStop: equ 50
RainDel: equ 51
RainSet: equ 52
RainDo: equ 53
RainHide: equ 54
RainVar: equ 55
FadeOn: equ 56
FadeOf: equ 57
CopOnOff: equ 58
CopReset: equ 59
CopSwap: equ 60
CopWait: equ 61
CopMove: equ 62
CopMoveL: equ 63
CopBase: equ 64
AutoBack1: equ 65
AutoBack2: equ 66
AutoBack3: equ 67
AutoBack4: equ 68
SuPaint: equ 69
BlRev: equ 70
DoRev: equ 71
AMOS_WB equ 72
ScCpyW equ 73
MaxRaw equ 74
NTSC equ 75
PourSli equ 76
EcCall: MACRO
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
EcCalA: MACRO
lea \2,a1
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
EcCalD: MACRO
moveq #\2,d1
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
EcCal2: MACRO
moveq #\2,d1
move.l #\3,a1
move.l T_EcVect(a5),a0
jsr \1*4(a0)
ENDM
*************** AMOS Window library
* Window structure
WiPrev: equ 0
WiNext: equ WiPrev+4
WiFont: equ WiNext+4
WiAdhg: equ WiFont+4
WiAdhgR: equ WiAdhg+4
WiAdhgI: equ WiAdhgR+4
WiAdCur: equ WiAdhgI+4
WiColor: equ WiAdCur+4
WiColFl: equ WiColor+4*6
WiX: equ WiColFl+4*6
WiY: equ WiX+2
WiTx: equ WiY+2
WiTy: equ WiTx+2
WiTyCar: equ WiTy+2
WiTLigne: equ WiTyCar+2
WiTxR: equ WiTLigne+2
WiTyR: equ WiTxR+2
WiDxI: equ WiTyR+2
WiDyI: equ WiDxI+2
WiTxI: equ WiDyI+2
WiTyI: equ WiTxI+2
WiDxR: equ WiTyI+2
WiDyR: equ WiDxR+2
WiFxR: equ WiDyR+2
WiFyR: equ WiFxR+2
WiTyP: equ WiFyR+2
WiDBuf: equ WiTyP+2
WiTBuf: equ WiDBuf+4
WiTxBuf: equ WiTBuf+4
WiPaper: equ WiTxBuf+2
WiPen: equ WiPaper+2
WiBorder: equ WiPen+2
WiFlags: equ WiBorder+2
WiGraph: equ WiFlags+2
WiNPlan: equ WiGraph+2
WiNumber: equ WiNPlan+2
WiSys: equ WiNumber+2
WiEsc: equ WiSys+2
WiEscPar: equ WiEsc+2
WiTab: equ WiEscPar+2
WiBord: equ WiTab+2
WiBorPap: equ WiBord+2
WiBorPen: equ WiBorPap+2
WiMx: equ WiBorPen+2
WiMy: equ WiMx+2
WiZoDx: equ WiMy+2
WiZoDy: equ WiZoDx+2
WiCuDraw: equ WiZoDy+2
WiCuCol: equ WiCuDraw+8
WiTitH: equ WiCuCol+2
WiTitB: equ WiTitH+80
WiLong: equ WiTitB+80
WiSAuto: equ WiTitH
***********************************************************
* WINDOW INSTRUCTIONS
***********************************************************
ChrOut: equ 0
Print: equ 1
Centre: equ 2
WindOp: equ 3
Locate: equ 4
QWindow: equ 5
WinDel: equ 6
SBord: equ 7
STitle: equ 8
GAdr: equ 9
MoveWi: equ 10
ClsWi: equ 11
SizeWi: equ 12
SCurWi: equ 13
XYCuWi: equ 14
XGrWi: equ 15
YGrWi: equ 16
Print2 equ 17
Print3 equ 18
SXSYCuWi equ 19
WiCall: MACRO
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
WiCalA: MACRO
lea \2,a1
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
WiCalD: MACRO
moveq #\2,d1
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
WiCal2: MACRO
moveq #\2,d1
move.l #\3,a1
move.l T_WiVect(a5),a0
jsr \1*4(a0)
ENDM
************** Equates basic
EcFonc: equ 8
EcEdit: equ 9
EcFsel: equ 10
EcReq: equ 11
EdTx: equ 78
EdBTT: equ 512+256
NbEnd: equ 10
EcEBase equ 45
DEBase equ EcEBase+35-1
SpEBase equ DEBase+25
FkLong: equ 26
Shf: equ %00000011
Ctr: equ %00001000
Alt: equ %00110000
Ami: equ %11000000
*************** Menu definition
RsReset
MnPrev: rs.l 1 0
MnNext: rs.l 1 4
MnLat: rs.l 1 8
MnNb: rs.w 1 12
MnFlag: rs.w 1 14
MnX: rs.w 1 16
MnY: rs.w 1 18
MnTx: rs.w 1 20
MnTy: rs.w 1 22
MnMX: rs.w 1 24
MnMY: rs.w 1 26
MnXX: rs.w 1 28
MnYY: rs.w 1 30
MnZone: rs.w 1 32
MnKFlag: rs.b 1 34
MnKAsc: rs.b 1 35
MnKSc: rs.b 1 36
MnKSh: rs.b 1 37
* Menu objects
MnObF: rs.l 1 38
MnOb1: rs.l 1 42
MnOb2: rs.l 1 46
MnOb3: rs.l 1 50
MnAdSave: rs.l 1 54
MnDatas: rs.l 1 58
MnLData: rs.w 1 62
MnInkA1: rs.b 1 64
MnInkB1: rs.b 1 65
MnInkC1: rs.b 1 66
MnInkA2: rs.b 1 67
MnInkB2: rs.b 1 68
MnInkC2: rs.b 1 69
MnLong: equ __RS
* Flags
MnFlat: equ 0
MnFixed: equ 1
MnSep: equ 2
MnBar: equ 3
MnOff: equ 4
MnTotal: equ 5
MnTBouge: equ 6
MnBouge: equ 7
*************** Test control bits
BitControl: equ 8
BitMenu: equ 9
BitJump: equ 10
BitEvery: equ 11
BitEcrans: equ 12
BitBobs: equ 13
BitSprites: equ 14
BitVBL: equ 15
; __________________________________
;
; Definition d'un slider
; __________________________________
;
Sl_FlagVertical equ 0
RsReset
; Variables positionnement
Sl_Sx rs.w 1
Sl_Sy rs.w 1
Sl_Global rs.w 1
Sl_Position rs.w 1
Sl_Window rs.w 1
Sl_X rs.w 1
Sl_Y rs.w 1
Sl_ZDx rs.w 1
Sl_ZDy rs.w 1
; Variables fonctionnement
Sl_Flags rs.w 1
Sl_Start rs.w 1
Sl_Size rs.w 1
Sl_Scroll rs.w 1
Sl_Mouse1 rs.w 1
Sl_Mouse2 rs.w 1
Sl_Zone rs.w 1
Sl_Routines rs.l 1
; Encres
Sl_Inactive rs.w 3+3+2
Sl_Active rs.w 3+3+2
Sl_Long equ __RS
; __________________________________
;
; Definition d'un bouton
; __________________________________
;
Bt_FlagNew equ 0
Bt_FlagNoWait equ 1
Bt_FlagOnOf equ 2
RsReset
Bt_Number rs.w 1
Bt_X rs.w 1
Bt_Y rs.w 1
Bt_Image rs.w 1
Bt_Zone rs.w 1
Bt_Pos rs.w 1
Bt_Routines rs.l 1
Bt_Dx rs.b 1
Bt_Dy rs.b 1
Bt_Sx rs.b 1
Bt_Sy rs.b 1
Bt_RDraw rs.b 1
Bt_RChange rs.b 1
Bt_RPos rs.b 1
Bt_Flags rs.b 1
Bt_Long equ __RS
; ___________________________________
;
; BITMAP PACKER/UNPACKER
; ___________________________________
; Packed screen header
RsReset
PsCode rs.l 1
PsTx rs.w 1
PsTy rs.w 1
PsAWx rs.w 1
PsAWy rs.w 1
PsAWTx rs.w 1
PsAWTy rs.w 1
PsAVx rs.w 1
PsAVy rs.w 1
PsCon0 rs.w 1
PsNbCol rs.w 1
PsNPlan rs.w 1
PsPal rs.w 32
PsLong equ __RS
SCCode equ $12031990
; Packed bitmap header
; ~~~~~~~~~~~~~~~~~~~~
RsReset
Pkcode rs.l 1
Pkdx rs.w 1
Pkdy rs.w 1
Pktx rs.w 1
Pkty rs.w 1
Pktcar rs.w 1
Pknplan rs.w 1
PkDatas2 rs.l 1
PkPoint2 rs.l 1
PkLong equ __RS
PkDatas1 equ __RS
BMCode equ $06071963
; ______________________________________________________________________________
;
; EDITEUR LIGNE
;
RsReset
LEd_Buffer rs.l 1
LEd_Start rs.w 1
LEd_Large rs.w 1
LEd_Max rs.w 1
LEd_Long rs.w 1
LEd_Cur rs.w 1
LEd_X rs.w 1
LEd_Y rs.w 1
LEd_Screen rs.w 1
LEd_Flags rs.w 1
LEd_Mask rs.l 3
LEd_Size equ __RS
LEd_FKeys equ 0
LEd_FOnce equ 1
LEd_FCursor equ 2
LEd_FFilter equ 3
LEd_FMouse equ 4
LEd_FTests equ 5
LEd_FMulti equ 6
LEd_FMouCur equ 7
; _____________________________________________________________________________
;
; GESTION DES DIALOGUES
;
; __________________________________________
;
; Base de la zone de dialogue
;
RsReset
Dia_Channel rs.l 1
Dia_NVar rs.l 1
Dia_Sp rs.l 1
Dia_Screen rs.l 1
Dia_ScreenNb rs.w 1
Dia_ScreenOld rs.w 1
Dia_WindOld rs.w 1
Dia_WindOn rs.w 1
Dia_Programs rs.l 1
Dia_ProgLong rs.l 1
Dia_Labels rs.l 1
Dia_Messages rs.l 1
Dia_ABuffer rs.l 1
Dia_PBuffer rs.l 1
Dia_Buffer rs.l 1
Dia_Pile rs.l 1
Dia_PUsers rs.l 1
Dia_NPUsers rs.w 1
Dia_Users rs.w 1
Dia_Edited rs.l 1
Dia_Timer rs.l 1
Dia_TimerPos rs.l 1
Dia_LastZone rs.l 1
Dia_NextZone rs.l 1
Dia_Release rs.l 1
Dia_BaseX rs.l 1
Dia_BaseY rs.l 1
Dia_Sx rs.l 1
Dia_Sy rs.l 1
Dia_XA rs.w 1
Dia_YA rs.w 1
Dia_XB rs.w 1
Dia_YB rs.w 1
Dia_Puzzle rs.l 1
Dia_PuzzleSx rs.l 1