home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 42 / af042b.adf / Extensions.lha / _equ.s < prev    next >
Text File  |  1992-02-21  |  19KB  |  1,117 lines
  1.  
  2. *        Version 1.3
  3. GARY        set    1
  4. CDebug        set    0
  5. *
  6. ***********************************************************
  7. *
  8. *        AMOS EQUATES DEFINITION
  9. *
  10. *        By Francois Lionet
  11. *        AMOS (c) 1990 Mandarin / Jawx
  12. *
  13. *        Last change 03/07/1991
  14. *
  15. ***********************************************************
  16. *        This file is public domain!
  17. ***********************************************************
  18. *    Here is all AMOS internal data offsets and macro 
  19. * definitions. More on all AMOS jumps tables in the AMOS 
  20. * club newsletter!
  21. ***********************************************************
  22.  
  23. EntNul:        equ $80000000
  24.  
  25. Circuits:    equ $dff000
  26.  
  27. IntReq:        equ $9c
  28. IntEna:        equ $9a
  29. DmaCon:        equ $96
  30. DmaConR:    equ $02
  31.  
  32. Color00:    equ $180
  33. VhPosR:        equ $6
  34.  
  35. ; Copper
  36. Cop1lc:        equ $80
  37. Cop2lc:        equ $84
  38. CopJmp1:    equ $88
  39. CopJmp2:    equ $8a
  40.  
  41. ; Souris
  42. CiaAprA:    equ $bfe001
  43. Joy0Dat:    equ $a
  44. Joy1Dat:    equ $c
  45. JoyTest:    equ $36
  46. PotGo:        equ $34
  47. PotGoR:        equ $16
  48. Pot0Dat:    equ $12
  49. Pot1Dat:    equ $14
  50.  
  51. ; Bitplanes
  52. BplCon0:    equ $100
  53. BplCon1:    equ $102
  54. BplCon2:    equ $104
  55. Bpl1PtH:    equ $0e0
  56. Bpl1PtL:    equ $0e2
  57. Bpl1Mod:    equ $108
  58. Bpl2Mod:    equ $10a
  59. DiwStrt:    equ $08e
  60. DiwStop:    equ $090
  61. DdfStrt:    equ $092
  62. DdfStop:    equ $094
  63.  
  64. ; Blitter
  65. BltSize:    equ $058
  66. BltAdA:        equ $050
  67. BltAdB:        equ $04c
  68. BltAdC:        equ $048
  69. BltAdD:        equ $054
  70. BltModA:    equ $064
  71. BltModB:    equ $062
  72. BltModC:    equ $060
  73. BltModD:    equ $066
  74. BltCon0:    equ $040
  75. BltCon1:    equ $042
  76. BltDatA:    equ $074
  77. BltDatB:    equ $072
  78. BltDatC:    equ $070
  79. BltDatD:    equ $000
  80. BltMaskG:    equ $044
  81. BltMaskD:    equ $046
  82.  
  83. ;-------------> Systeme
  84.         IFND    ExecBase
  85. ExecBase:    equ 4
  86.         ENDC
  87. StartList:    equ 38
  88. Forbid:        equ -132
  89. Permit:        equ -138
  90. OwnBlitter:    equ -30-426
  91. DisOwnBlitter:    equ -30-432
  92. WaitBlit:    equ -228
  93. OpenLib:    equ -552
  94. CloseLib:    equ -414
  95. AllocMem:    equ -198
  96. AvailMem:    equ -216
  97. FreeMem:    equ -210
  98. Chip:        equ $02
  99. Fast:        equ $04
  100. Clear:        equ $10000
  101. Public:        equ $01
  102. SetFunction:    equ -420
  103. CloseWB:    equ -78
  104. FindTask:    equ -294
  105. AddPort:    equ -354
  106. RemPort:    equ -360
  107. OpenDev:    equ -444
  108. CloseDev:    equ -450
  109. DoIO:        equ -456
  110. SendIO:        equ -462
  111.  
  112. ;-------------> Intuition
  113. OpenScreen:    equ -198
  114. CloseScreen:    equ -66
  115. ScreenToBack:    equ -$F6
  116. OpenWindow:    equ -204
  117. CloseWindow:    equ -72
  118. LoadView:    equ -$DE
  119. CUFLayer:    equ -36
  120. DelLayer:    equ -90
  121.  
  122. ;-------------> Graphic library
  123. InitRastPort:    equ -198
  124. InitTmpRas:    equ -$1d4
  125. TextLength:    equ -54
  126. Text:        equ -60
  127. SetFont:    equ -66
  128. OpenFont:    equ -72
  129. CloseFont:    equ -78
  130. AskSoftStyle:    equ -84
  131. SetSoftStyle:    equ -90
  132. RMove:        equ -240
  133. RDraw:        equ -246
  134. DrawEllipse:    equ -$b4
  135. AreaEllipse:    equ -$ba
  136. AreaMove:    equ -252
  137. AreaDraw:    equ -258
  138. AreaEnd:    equ -264
  139. InitArea:    equ -282
  140. RectFill:    equ -306
  141. ReadPixel:    equ -318
  142. WritePixel:    equ -324
  143. Flood:        equ -330
  144. PolyDraw:    equ -336
  145. ScrollRaster:    equ -396
  146. AskFont:    equ -474
  147. AddFont:    equ -480
  148. RemFont:    equ -486
  149. ClipBlit:    equ -552
  150. BltBitMap:    equ -30
  151. SetAPen:    equ -342
  152. SetBPen:    equ -348
  153. SetDrMd:    equ -354
  154. AvailFonts:    equ -$24
  155. OpenDiskFont    equ -$1e
  156.  
  157. ;-------------> Dos
  158. Input:        equ -54
  159. WaitChar:    equ -204
  160. Read:        equ -42
  161.  
  162. Execall:    MACRO
  163.         move.l    $4.w,a6
  164.         jsr    \1(a6)
  165.         ENDM
  166. GfxCa5        MACRO
  167.         movem.l    d0/d1/a0/a1/a6,-(sp)
  168.         move.l    T_GfxBase(a5),a6
  169.         jsr    \1(a6)
  170.         movem.l    (sp)+,d0/d1/a0/a1/a6
  171.         ENDM
  172.  
  173. *************** DOS
  174. DosOpen:    equ -30
  175. DosClose:    equ -36
  176. DosRead:    equ -42
  177. DosWrite:    equ -48
  178. DosSeek:    equ -66
  179. DosDel:        equ -72
  180. DosRen:        equ -78
  181. DosLock:    equ -84
  182. DosUnLock:    equ -90
  183. DosDupLock:    equ -96
  184. DosExam:    equ -102
  185. DosExNext:    equ -108
  186. Dosinfo:    equ -114
  187. DosMkDir:    equ -120
  188. DosCuDir:    equ -126
  189. DosIOErr:    equ -132
  190. DosDProc:    equ -174
  191. DosParent:    equ -210
  192. DosLoadSeg:    equ -150
  193. DosULoadSeg:    equ -156
  194. DosWChar:    equ -204
  195.  
  196. *************** FLOAT
  197. SPFix:        equ -30
  198. SPFlt:        equ -36
  199. SPCmp:        equ -42
  200. SPTst:        equ -48
  201. SPAbs:        equ -54
  202. SPNeg:        equ -60
  203. SPAdd:        equ -66
  204. SPSub:        equ -72
  205. SPMul:        equ -78
  206. SPDiv:        equ -84
  207. SPFloor:    equ -90
  208. SPCeil:        equ -96
  209.  
  210. SPATan:        equ -30
  211. SPSin:        equ -36
  212. SPCos:        equ -42
  213. SPTan:        equ -48
  214. SPSinCos:    equ -54
  215. SPSinH:        equ -60
  216. SPCosH:        equ -66
  217. SPTanH:        equ -72
  218. SPExp:        equ -78
  219. SPLog:        equ -84
  220. SPPow:        equ -90
  221. SPSqrt:        equ -96
  222. SPTIeee:    equ -102
  223. SPFIeee:    equ -108
  224. SPASin:        equ -114
  225. SPACos:        equ -120
  226. SPLog10:    equ -126
  227.  
  228. *************** AMOS system library
  229. Inkey:        equ 0
  230. ClearKey:    equ 1
  231. Shifts:        equ 2
  232. Instant:    equ 3
  233. KeyMap:        equ 4
  234. Joy:        equ 5
  235. PutKey:        equ 6
  236. Hide:        equ 7
  237. Show:        equ 8
  238. ChangeM:    equ 9
  239. XyMou:        equ 10
  240. XyHard:        equ 11
  241. XyScr:        equ 12
  242. MouseKey:    equ 13
  243. SetM:        equ 14
  244. ScIn:        equ 15
  245. XyWin:        equ 16
  246. LimitM:        equ 17
  247. ZoHd:        equ 18
  248. ResZone:    equ 19
  249. RazZone:    equ 20
  250. SetZone:    equ 21
  251. GetZone:    equ 22
  252. WaitVbl:    equ 23
  253. SetHs:        equ 24
  254. USetHs:        equ 25
  255. SetFunk:    equ 26
  256. GetFunk:    equ 27
  257. AffHs:        equ 28
  258. SetSpBank:    equ 29
  259. NXyaHs:        equ 30
  260. XOffHs:        equ 31
  261. OffHs:        equ 32
  262. ActHs:        equ 33
  263. SBufHs:        equ 34
  264. StActHs:    equ 35
  265. ReActHs:    equ 36
  266. StoreM:        equ 37
  267. RecallM:    equ 38
  268. PriHs:        equ 39
  269. AMALTok:    equ 40
  270. AMALCre:    equ 41
  271. AMALMvO:    equ 42
  272. AMALDAll:    equ 43
  273. AMAL:        equ 44
  274. AMALReg:    equ 45
  275. AMALClr:    equ 46
  276. AMALFrz:    equ 47
  277. AMALUFrz:    equ 48
  278. SetBob:        equ 49
  279. OffBob:        equ 50
  280. OffBobS:    equ 51
  281. ActBob:        equ 52
  282. AffBob:        equ 53
  283. EffBob:        equ 54
  284. SyChip:        equ 55
  285. SyFast:        equ 56
  286. LimBob:        equ 57
  287. ZoGr:        equ 58
  288. SprGet:        equ 59
  289. MaskMk:        equ 60
  290. SpotHot:    equ 61
  291. ColBob:        equ 62
  292. ColGet:        equ 63
  293. ColSpr:        equ 64
  294. SetSync:    equ 65
  295. Synchro:    equ 66
  296. PlaySet:    equ 67
  297. XYBob:        equ 68
  298. XYSp:        equ 69
  299. PutBob:        equ 70
  300. Patch:        equ 71
  301. MouRel:        equ 72
  302. LimitMEc:    equ 73
  303. SyFree:        equ 74
  304. SetHCol:    equ 75
  305. GetHCol:    equ 76
  306. MovOn:        equ 77
  307. KeySpeed:    equ 78
  308. ChanA:        equ 79
  309. ChanM:        equ 80
  310. SPrio:        equ 81
  311. GetDisc:    equ 82
  312. RestartVBL    equ 83
  313. StopVBL        equ 84
  314.  
  315. SyCall:        MACRO
  316.         move.l    T_SyVect(a5),a0
  317.         jsr    \1*4(a0)
  318.         ENDM
  319. SyCalA:        MACRO
  320.         lea    \2,a1
  321.         move.l    T_SyVect(a5),a0
  322.         jsr    \1*4(a0)
  323.         ENDM
  324. SyCalD:        MACRO
  325.         moveq    #\2,d1
  326.         move.l    T_SyVect(a5),a0
  327.         jsr    \1*4(a0)
  328.         ENDM
  329. SyCal2:        MACRO
  330.         moveq    #\2,d1
  331.         move.l    #\3,a1
  332.         move.l    T_SyVect(a5),a0
  333.         jsr    \1*4(a0)
  334.         ENDM
  335.  
  336. ***********************************************************
  337. *        EQUATES BOBS
  338.         RsReset
  339. BbPrev:        rs.l 1
  340. BbNext:        rs.l 1
  341. BbNb:        rs.w 1
  342. BbAct:        rs.w 1
  343. BbX:        rs.w 1
  344. BbY:        rs.w 1
  345. BbI:        rs.w 1
  346. BbEc:        rs.l 1
  347. BbAAEc:        rs.l 1
  348. BbAData:    rs.l 1
  349. BbAMask:    rs.l 1
  350. BbNPlan:    rs.w 1
  351. BbAPlan:    rs.w 1
  352. BbASize:    rs.w 1
  353. BbAMaskG:    rs.w 1
  354. BbAMaskD:    rs.w 1
  355. BbTPlan:    rs.w 1
  356. BbTLigne:    rs.w 1
  357. BbAModO:    rs.w 1
  358. BbAModD:    rs.w 1
  359. BbACon:        rs.w 1
  360. BbACon0:    rs.w 1
  361. BbACon1:    rs.w 1
  362. BbADraw:    rs.l 1
  363. BbLimG:        rs.w 1
  364. BbLimD:        rs.w 1
  365. BbLimH:        rs.w 1
  366. BbLimB:        rs.w 1
  367. * Datas retournement des bobs
  368. BbARetour    rs.l 1
  369. BbRetour    rs.w 1
  370. * Datas decor
  371. BbDecor:    rs.w 1
  372. BbEff:        rs.w 1
  373. BbDCur1:    rs.w 1
  374. BbDCur2:    rs.w 1
  375. BbDCpt:        rs.w 1
  376. BbEMod:        rs.w 1
  377. BbECpt:        rs.w 1
  378. BbEAEc:        rs.w 1
  379. BbESize:    rs.w 1
  380. BbETPlan:    rs.w 1
  381. * Datas pour une sauvegarde de decor
  382. BbDABuf:    rs.l 1        * 0  Adresse buffer
  383. BbDLBuf:    rs.w 1        * 4  Longueur buffer
  384. BbDAEc:        rs.w 1        * 6  Decalage ecran
  385. BbDAPlan:    rs.l 1        * 8  Plans sauves
  386. BbDNPlan:    rs.l 1        * 12 Max plans
  387. BbDMod:        rs.w 1        * 16 Modulo ecran
  388. BbDASize:    rs.w 1        * 18 Taille blitter
  389. Decor:        equ 20        * 20 Taille totale
  390. * Datas pour seconde sauvegarde!
  391.         rs.l Decor
  392. BbLong:        equ __RS
  393.  
  394.  
  395.  
  396. *************** AMOS Screen library
  397.  
  398. BitHide:    equ 7
  399. BitClone:    equ 6
  400. BitDble:    equ 5
  401.         RsReset
  402.  
  403. * Bitmap address
  404. EcLogic:    rs.l 6
  405. EcPhysic    rs.l 6
  406. EcCurrent:    rs.l 6
  407.  
  408. * Datas!
  409. EcCon0:        rs.w 1
  410. EcCon2:        rs.w 1
  411. EcTx:        rs.w 1
  412. EcTy:        rs.w 1
  413. EcNPlan:    rs.w 1
  414. EcWX:        rs.w 1
  415. EcWY:        rs.w 1
  416. EcWTx:        rs.w 1
  417. EcWTy:        rs.w 1
  418. EcVX:        rs.w 1
  419. EcVY:        rs.w 1
  420. EcColorMap:    rs.w 1
  421. EcNbCol:    rs.w 1
  422. EcPal:        rs.w 32
  423. EcDEcran:    rs.l 1
  424.  
  425. EcTPlan:    rs.l 1
  426. EcWindow:    rs.l 1
  427. EcTxM:        rs.w 1
  428. EcTyM:        rs.w 1
  429. EcTLigne:    rs.w 1
  430. EcFlags:    rs.w 1
  431. EcDual:        rs.w 1
  432. EcWXr:        rs.w 1
  433. EcWTxr:        rs.w 1
  434. EcNumber:    rs.w 1
  435. EcAuto:        rs.w 1
  436.  
  437. * Link with AMAL
  438. EcAW:        rs.w 1
  439. EcAWX:        rs.w 1
  440. EcAWY:        rs.w 1
  441. EcAWT:        rs.w 1
  442. EcAWTX:        rs.w 1
  443. EcAWTY:        rs.w 1
  444. EcAV:        rs.w 1
  445. EcAVX:        rs.w 1
  446. EcAVY:        rs.w 1
  447. * Zone table
  448. EcAZones:    rs.l 1
  449. EcNZones:    rs.w 1
  450. * Save the backgrountd for window
  451. EcWiDec:    rs.w 1
  452. * Graphic functions
  453. EcInkA:        rs.b 1
  454. EcInkB:        rs.b 1
  455. EcMode:        rs.b 1
  456. EcOutL:        rs.b 1
  457. EcLine:        rs.w 1
  458. EcCont:        rs.w 1
  459. EcX:        rs.w 1
  460. EcY:        rs.w 1
  461. EcPat:        rs.l 1
  462. EcPatL:        rs.w 1
  463. EcPatY:        rs.w 1
  464. EcClipX0:    rs.w 1
  465. EcClipY0:    rs.w 1
  466. EcClipX1:    rs.w 1
  467. EcClipY1:    rs.w 1
  468. EcFontFlag:    rs.w 1
  469. EcText:        rs.b 14 
  470. EcFInkA:    rs.b 1
  471. EcFInkB:    rs.b 1
  472. EcFInkC:    rs.b 1
  473. EcIInkA:    rs.b 1
  474. EcIInkB:    rs.b 1
  475. EcIInkC:    rs.b 1
  476. EcFPat:        rs.w 1
  477. EcIPat:        rs.w 1
  478. * Cursor saving
  479. EcCurS:        rs.b 8*6
  480. ; Length of a screen
  481. EcLong:        equ __RS
  482.  
  483. ; Y Screen base
  484. EcYBase:    equ $1000
  485. EcYStrt:    equ EcYBase+26
  486. PalMax:        equ 16
  487.  
  488. ***********************************************************
  489. *        FUNCTIONS
  490. ***********************************************************
  491.  
  492. Raz:        equ 0
  493. CopMake:    equ 1
  494. *        equ 2
  495. Cree:        equ 3
  496. Del:        equ 4
  497. First:        equ 5
  498. Last:        equ 6
  499. Active:        equ 7
  500. CopForce:    equ 8
  501. View:        equ 9
  502. OffSet:        equ 10
  503. Visible:    equ 11
  504. DelAll:        equ 12
  505. GCol:        equ 13
  506. SCol:        equ 14
  507. SPal:        equ 15
  508. SColB:        equ 16
  509. FlRaz:        equ 17
  510. Flash:        equ 18
  511. ShRaz:        equ 19
  512. Shift:        equ 20
  513. EHide:        equ 21
  514. CBlGet:        equ 22
  515. CBlPut:        equ 23
  516. CBlDel:        equ 24
  517. CBlRaz:        equ 25
  518. Libre:        equ 26
  519. CCloEc:        equ 27
  520. Current:    equ 28
  521. Double:        equ 29
  522. SwapSc:        equ 30
  523. SwapScS:    equ 31
  524. AdrEc:        equ 32
  525. SetDual:    equ 33
  526. PriDual:    equ 34
  527. ClsEc:        equ 35
  528. Pattern:    equ 36
  529. GFonts:        equ 37
  530. FFonts:        equ 38
  531. GFont:        equ 39
  532. SFont:        equ 40
  533. SetClip:    equ 41
  534. BlGet:        equ 42
  535. BlDel:        equ 43
  536. BlRaz:        equ 44
  537. BlPut:        equ 45
  538. VerSli:        equ 46
  539. HorSli:        equ 47
  540. SetSli:        equ 48
  541. MnStart:    equ 49
  542. MnStop:        equ 50
  543. RainDel:    equ 51
  544. RainSet:    equ 52
  545. RainDo:        equ 53
  546. RainHide:    equ 54
  547. RainVar:    equ 55
  548. FadeOn:        equ 56
  549. FadeOf:        equ 57
  550. CopOnOff:    equ 58
  551. CopReset:    equ 59
  552. CopSwap:    equ 60
  553. CopWait:    equ 61
  554. CopMove:    equ 62
  555. CopMoveL:    equ 63
  556. CopBase:    equ 64
  557. AutoBack1:    equ 65
  558. AutoBack2:    equ 66
  559. AutoBack3:    equ 67
  560. AutoBack4:    equ 68
  561. SuPaint:    equ 69
  562. BlRev:        equ 70
  563. DoRev:        equ 71
  564. AMOS_WB        equ 72
  565. ScCpyW        equ 73
  566. MaxRaw        equ 74
  567. NTSC        equ 75
  568.  
  569. EcCall:        MACRO
  570.         move.l    T_EcVect(a5),a0
  571.         jsr    \1*4(a0)
  572.         ENDM
  573. EcCalA:        MACRO
  574.         lea    \2,a1
  575.         move.l    T_EcVect(a5),a0
  576.         jsr    \1*4(a0)
  577.         ENDM
  578. EcCalD:        MACRO
  579.         moveq    #\2,d1
  580.         move.l    T_EcVect(a5),a0
  581.         jsr    \1*4(a0)
  582.         ENDM
  583. EcCal2:        MACRO
  584.         moveq    #\2,d1
  585.         move.l    #\3,a1
  586.         move.l    T_EcVect(a5),a0
  587.         jsr    \1*4(a0)
  588.         ENDM
  589.  
  590. *************** AMOS Window library
  591.  
  592. * Window structure
  593. WiPrev:        equ 0        
  594. WiNext:        equ WiPrev+4    
  595. WiFont:        equ WiNext+4    
  596. WiAdhg:        equ WiFont+4
  597. WiAdhgR:    equ WiAdhg+4
  598. WiAdhgI:    equ WiAdhgR+4
  599. WiAdCur:    equ WiAdhgI+4
  600. WiColor:    equ WiAdCur+4
  601. WiColFl:    equ WiColor+4*6
  602.  
  603. WiX:        equ WiColFl+4*6
  604. WiY:        equ WiX+2
  605. WiTx:        equ WiY+2
  606. WiTy:        equ WiTx+2
  607. WiTyCar:    equ WiTy+2
  608. WiTLigne:    equ WiTyCar+2
  609. WiTxR:        equ WiTLigne+2
  610. WiTyR:        equ WiTxR+2
  611. WiDxI:        equ WiTyR+2
  612. WiDyI:        equ WiDxI+2
  613. WiTxI:        equ WiDyI+2
  614. WiTyI:        equ WiTxI+2
  615. WiDxR:        equ WiTyI+2
  616. WiDyR:        equ WiDxR+2
  617. WiFxR:        equ WiDyR+2
  618. WiFyR:        equ WiFxR+2
  619. WiTyP:        equ WiFyR+2
  620. WiDBuf:        equ WiTyP+2
  621. WiTBuf:        equ WiDBuf+4
  622. WiTxBuf:    equ WiTBuf+4
  623.  
  624. WiPaper:    equ WiTxBuf+2
  625. WiPen:        equ WiPaper+2
  626. WiBorder:    equ WiPen+2
  627. WiFlags:    equ WiBorder+2
  628. WiGraph:    equ WiFlags+2
  629. WiNPlan:    equ WiGraph+2
  630. WiNumber:    equ WiNPlan+2
  631. WiSys:        equ WiNumber+2
  632. WiEsc:        equ WiSys+2
  633. WiEscPar:    equ WiEsc+2
  634. WiTab:        equ WiEscPar+2
  635.  
  636. WiBord:        equ WiTab+2
  637. WiBorPap:    equ WiBord+2
  638. WiBorPen:    equ WiBorPap+2
  639.  
  640. WiMx:        equ WiBorPen+2
  641. WiMy:        equ WiMx+2
  642. WiZoDx:        equ WiMy+2
  643. WiZoDy:        equ WiZoDx+2
  644.  
  645. WiCuDraw:    equ WiZoDy+2
  646. WiCuCol:    equ WiCuDraw+8
  647.  
  648. WiTitH:        equ WiCuCol+2
  649. WiTitB:        equ WiTitH+80
  650. WiLong:        equ WiTitB+80
  651. WiSAuto:    equ WiTitH
  652.  
  653. ***********************************************************
  654. *        WINDOW INSTRUCTIONS 
  655. ***********************************************************
  656. ChrOut:        equ 0
  657. Print:        equ 1
  658. Centre:        equ 2
  659. WindOp:        equ 3
  660. Locate:        equ 4
  661. QWindow:    equ 5
  662. WinDel:        equ 6
  663. SBord:        equ 7
  664. STitle:        equ 8
  665. GAdr:        equ 9
  666. MoveWi:        equ 10
  667. ClsWi:        equ 11
  668. SizeWi:        equ 12
  669. SCurWi:        equ 13
  670. XYCuWi:        equ 14
  671. XGrWi:        equ 15
  672. YGrWi:        equ 16
  673.     
  674. WiCall:        MACRO
  675.         move.l    T_WiVect(a5),a0
  676.         jsr    \1*4(a0)
  677.         ENDM
  678. WiCalA:        MACRO
  679.         lea    \2,a1
  680.         move.l    T_WiVect(a5),a0
  681.         jsr    \1*4(a0)
  682.         ENDM
  683. WiCalD:        MACRO
  684.         moveq    #\2,d1
  685.         move.l    T_WiVect(a5),a0
  686.         jsr    \1*4(a0)
  687.         ENDM
  688. WiCal2:        MACRO
  689.         moveq    #\2,d1
  690.         move.l    #\3,a1
  691.         move.l    T_WiVect(a5),a0
  692.         jsr    \1*4(a0)
  693.         ENDM
  694.  
  695. **************    Equates basic
  696. EcFonc:        equ 8
  697. EcEdit:        equ 9
  698. EcFsel:        equ 10
  699. EcReq:        equ 11
  700.  
  701. EdTx:        equ 78
  702.  
  703. EdBTT:        equ 512+256
  704. NbEnd:        equ 10
  705. EcEBase        equ 45
  706. DEBase        equ EcEBase+35-1
  707. SpEBase     equ DEBase+25
  708. FkLong:        equ 26
  709. Shf:        equ %00000011
  710. Ctr:        equ %00001000
  711. Alt:        equ %00110000
  712. Ami:        equ %11000000
  713.  
  714. ***************    Menu definition
  715.         RsReset
  716. MnPrev:        rs.l     1
  717. MnNext:        rs.l     1
  718. MnLat:        rs.l    1
  719. MnNb:        rs.w    1
  720. MnFlag:        rs.w    1
  721. MnX:        rs.w    1
  722. MnY:        rs.w    1
  723. MnTx:        rs.w    1
  724. MnTy:        rs.w    1
  725. MnMX:        rs.w    1
  726. MnMY:        rs.w    1
  727. MnXX:        rs.w    1
  728. MnYY:        rs.w    1
  729. MnZone:        rs.w    1
  730. MnKFlag:    rs.b    1
  731. MnKAsc:        rs.b    1
  732. MnKSc:        rs.b     1
  733. MnKSh:        rs.b    1
  734. * Menu objects
  735. MnObF:        rs.l    1
  736. MnOb1:        rs.l    1
  737. MnOb2:        rs.l    1
  738. MnOb3:        rs.l    1
  739. MnAdSave:    rs.l    1
  740. MnDatas:    rs.l    1
  741. MnLData:    rs.w     1
  742. MnInkA1:    rs.b    1
  743. MnInkB1:    rs.b    1
  744. MnInkC1:    rs.b    1
  745. MnInkA2:    rs.b    1
  746. MnInkB2:    rs.b    1
  747. MnInkC2:    rs.b    1
  748. MnLong:        equ __RS
  749.  
  750. * Flags
  751. MnFlat:        equ     0
  752. MnFixed:    equ     1
  753. MnSep:        equ     2
  754. MnBar:        equ     3
  755. MnOff:        equ     4
  756. MnTotal:    equ     5
  757. MnTBouge:    equ     6
  758. MnBouge:    equ     7
  759.  
  760. *************** Test control bits 
  761. BitControl:    equ     8
  762. BitMenu:    equ     9
  763. BitJump:    equ     10
  764. BitEvery:    equ     11
  765. BitEcrans:    equ     12
  766. BitBobs:    equ     13
  767. BitSprites:    equ     14
  768. BitVBL:        equ     15
  769.  
  770. ***************************************************************
  771. *        Interpretor datas zone
  772. *        Pointed to by A5
  773. ***************************************************************
  774.  
  775.         RsReset
  776.  
  777. *************** VBL ROUTINES 
  778. VblRout:    rs.l 8
  779.  
  780. *************** EXTENSIONS
  781. AdTokens:    rs.l 27        
  782. AdTTokens:    rs.l 27
  783. ExtAdr:        rs.l 26*4
  784. ExtTests:    rs.l 8
  785.  
  786. *************** GRAPHICS
  787. AreaSize:    equ 16
  788. AreaInfo:    rs.b 24
  789. AreaBuf:    rs.b AreaSize*5+10
  790.         rs.b 16
  791. TmpRas:        rs.l 2
  792. AppNPlan    rs.w 1
  793. SccEcO:        rs.l 1
  794. SccEcD:        rs.l 1
  795.  
  796. *************** File selector
  797. EdFSel:        rs.w 1        
  798. FsAdEc:        rs.l 1
  799. FsFlag:        rs.w 1
  800. FsActive:    rs.w 1
  801. FsPosF:        rs.w 1
  802. FsIFlag:    rs.w 1
  803. FsLPath:    rs.w 1
  804. FsLPath1:    rs.w 1
  805. FsCPath:    rs.w 1
  806. FsLNom:        rs.w 1
  807. FsCNom:        rs.w 1
  808. FsWiAct:    rs.w 1
  809. FsSp:        rs.l 1
  810. WB2.0:        rs.w 1
  811. DataSup:    rs.w 1        Place pour donnees supplementaires...
  812.         rs.w 1
  813.  
  814. ********************************* Editor
  815. BasSp:        rs.l 1    
  816. FkEcran:    rs.l 1    
  817. FkOn:        rs.w 1    
  818. FkJeu:        rs.w 1    
  819. FkOJeu:        rs.w 1    
  820. FkMFlag:    rs.w 1
  821. AmiAff:        rs.w 1
  822. AmiOAff:    rs.w 1
  823.  
  824. EdEcran:    rs.l 1    
  825. EdBufE:        rs.l 1    
  826. EdBufT:        rs.l 1    
  827.  
  828. EdXPos:        rs.w 1    
  829. EdYPos:        rs.w 1
  830. EdXCu:        rs.w 1    
  831. EdYCu:        rs.w 1
  832. EdTabs:        rs.w 1    
  833. EdFlag:        rs.w 1    
  834. EdNLigne:    rs.w 1    
  835. EdInsert:    rs.b 1    
  836. EdFront:    rs.b 1
  837. EdEdit:        rs.w 1    
  838. EdChange:    rs.w 1    
  839. StModif:    rs.w 1
  840. EdFkCpt:    rs.w 1    
  841. EdAfFk:        rs.w 1
  842. EdMKey:        rs.w 1    
  843. EdMkFl:        rs.w 1    
  844. EdMkIns:    rs.w 1    
  845. EdILigne:    rs.w 1    
  846.  
  847. EtMess:        rs.w 1        
  848. EtAlert:    rs.l 1        
  849. EtCps:        rs.w 1        
  850. EtOCps:        rs.w 1
  851. EtAX:        rs.w 1        
  852. EtAY:        rs.w 1        
  853. EtFr:        rs.w 1        
  854.  
  855. SlDelai:    equ 10        
  856. EtASlX:        rs.w 1
  857. EtASlY:        rs.w 1
  858. WbClose:    rs.w 1        
  859.  
  860. ********************************* Escape
  861. EsFlag:        rs.w 1
  862. EscTFonc:    rs.l 1
  863. LEdXCu:        rs.w 1
  864. LEdYCu:        rs.w 1
  865. ColBack:    rs.w 1
  866. EFkFlag:    rs.w 1
  867. DefFlag:    rs.w 1    
  868.  
  869. ********************************* Float
  870. FloatBase:    rs.l 1
  871. MathBase:    rs.l 1
  872. BuFloat:    rs.b 64
  873. DeFloat:    rs.b 32
  874. TempFl:        rs.l 1
  875. TempBuf:    rs.l 1
  876. ValPi:        rs.l 1
  877. Val180:        rs.l 1
  878. CallAd:        rs.l 1
  879.  
  880. ********************************* Disque I/O
  881. IffParam:    rs.l 1
  882. IffFlag:    rs.l 1
  883. BufFillF:    rs.l 1
  884. FillFLong:    rs.w 1
  885. FillFSize:    rs.w 1
  886. FillFNb:    rs.w 1
  887. FillF32:    rs.w 1
  888. DirLong:    rs.l 1
  889. DirComp:    rs.w 1
  890. DirLNom:    rs.w 1    
  891. PathAct:    rs.l 1
  892. DirFNeg:    rs.l 1    
  893. BufBMHD:    rs.l 1
  894. BufCMAP:    rs.l 1
  895. BufCAMG:    rs.l 1
  896. BufCCRT:    rs.l 1
  897. BufAMSC:    rs.l 1
  898.  
  899. ********************************* Tokenisation / Stockage
  900. TkAd:        rs.l 1    
  901. TkChCar:    rs.w 1    
  902. VerPos:        rs.l 1    
  903. VerBase:    rs.l 1    
  904. Parenth:    rs.w 1    
  905. DtkMaj1:    rs.w 1    
  906. DtkMaj2:    rs.w 1
  907. StTTexte:    rs.l 1    
  908. StHaut:        rs.l 1    
  909. StBas:        rs.l 1    
  910. StMini:        rs.l 1    
  911. StDLigne:    rs.w 1    
  912. StFLigne:    rs.w 1    
  913. StNLigne:    rs.w 1    
  914. LimSave:    rs.w 4
  915. FsLimSave:    rs.w 4
  916. Buffer:        rs.l 1    
  917. BMenage:    rs.l 1
  918. Name1:        rs.l 1    
  919. Name2:        rs.l 1
  920. BufEsc:        rs.l 1    
  921. TBuffer:    equ 1024    
  922. TMenage:    equ 160*10-64
  923. Access:        rs.l 1        
  924. AcLdTemp:    rs.l 1
  925. AccFlag:    rs.w 1
  926. BBanks:        rs.l 2*16
  927. BankGrab:    rs.w 1
  928. BankFlag:    rs.w 1
  929. RunAct:        rs.l 1
  930. NamePrg:    rs.b 128    
  931. RasAd:        rs.l 1        
  932. RasLong:    rs.l 1
  933. RasSize:    rs.w 1
  934. RasLock:    rs.l 1
  935. ScOn:        rs.w 1
  936. ScOnAd:        rs.l 1
  937. BufBob:        rs.l 1
  938. BufLabel:    rs.l 1
  939. Logo:        rs.l 1
  940. Tt_Base        equ    Logo        * Reserve pour tutor...
  941. LMouse:        rs.l 1
  942. VBLOCount:    rs.w 1
  943. VBLDelai:    rs.w 1
  944. SScan:        rs.w 1
  945. Seed:        rs.l 1
  946. OldRnd:        rs.l 1
  947. PAmalE:        rs.w 1
  948. DosBase:    rs.l 1
  949. ReqSave:    rs.l 1
  950. ReqSSave:    rs.l 1
  951. SNoFlip:    rs.w 1
  952. LockSave:    rs.l 1
  953. EdDisk:        rs.w 1
  954. Handle:        rs.l 1
  955. PrtHandle:    rs.l 1
  956. PosFillF:    rs.w 1
  957.  
  958. ********************************* Variables / Run
  959. DebSave:    equ __RS
  960. Passe:        rs.w 1
  961. VarBuf:        rs.l 1        
  962. VarBufL:    rs.l 1        
  963. VarBufFlg:    rs.w 1        
  964. LabHaut:    rs.l 1        
  965. LabBas:        rs.l 1
  966. LabMini:    rs.l 1
  967. DVNmBas:    rs.l 1        
  968. DVNmHaut:    rs.l 1
  969. VNmLong:    rs.l 1
  970. VNmHaut:    rs.l 1
  971. VNmBas:        rs.l 1
  972. VNmMini:    rs.l 1
  973. VDLigne:    rs.l 1
  974. BaTablA:    rs.l 1        
  975. HoTablA:    rs.l 1
  976. VarLong:    rs.w 1
  977. GloLong:    rs.w 1
  978. VarGlo:        rs.l 1
  979. VarLoc:        rs.l 1
  980. TabBas:        rs.l 1
  981. ChVide:        rs.l 1        
  982. LoChaine:    rs.l 1        
  983. HiChaine:    rs.l 1        
  984. HoLoop:        rs.l 1
  985. BaLoop:        rs.l 1
  986.  
  987. Direct:        rs.w 1
  988. DirFlag:    rs.w 1
  989. PLoop:        rs.l 1
  990. MinLoop:    rs.l 1
  991. BasA3:        rs.l 1
  992. ErrRet:        rs.l 1        
  993. ErrRAd:        rs.l 1
  994. Phase:        rs.w 1
  995. DRun:        rs.l 1
  996. DTablA:        rs.l 1
  997. CurTablA:    rs.l 1
  998. PDebug:        rs.l 1
  999.         rs.w 1
  1000. ActuMask:    rs.w 1        
  1001. IffMask:    rs.l 1
  1002. ExpFlg:        rs.w 1
  1003. FixFlg:        rs.w 1
  1004.  
  1005. *************** ANIMATIONS
  1006. AnCanaux:    rs.w 64
  1007. InterOff:    rs.w 1
  1008.  
  1009. *************** DEF SCROLLS
  1010. DScrolls:    rs.w 6*16
  1011.  
  1012. *************** BANKS
  1013. ABanks:        rs.l 1
  1014.  
  1015. *************** Disc / Printer
  1016. FhA:        equ 0
  1017. FhT:        equ 4
  1018. FhF:        equ 6
  1019. TFiche:        equ 10
  1020. NFiche:        equ 10
  1021. ChrInp:        rs.w 1
  1022. Fichiers:    rs.b TFiche*NFiche
  1023.  
  1024. *************** MENUS
  1025. MnNDim:        equ 8
  1026. MnBase:        rs.l 1
  1027. MnBaseX:    rs.w 1
  1028. MnBaseY:    rs.w 1
  1029. MnChange:    rs.w 1
  1030. MnMouse:    rs.w 1
  1031. MnError:    rs.w 1
  1032. MnAdEc:        rs.l 1
  1033. MnScOn:        rs.w 1
  1034. MgFlags:    rs.w 1
  1035. MnNZone:    rs.w 1
  1036. MnZoAct:    rs.w 1
  1037. MnAct:        rs.l 1
  1038. MnTDraw:    rs.l 1
  1039. MnTable:    rs.l MnNDim+1
  1040. MnChoix:    rs.w MnNDim
  1041. MnDFlags:    rs.b MnNDim
  1042. MnDAd:        rs.l 1
  1043. MnProc:        rs.w 1
  1044. MnRA3:        rs.l 1
  1045. MnRA4:        rs.l 1
  1046. MnPile:        rs.l 1
  1047. OMnBase:    rs.l 1
  1048. OMnNb:        rs.w 1
  1049. OMnType:    rs.w 1
  1050.  
  1051. *************** Every
  1052. EveType:    rs.w 1
  1053. EveLabel:    rs.l 1
  1054. EveCharge:    rs.w 1
  1055. LogoFlag:    rs.w 1
  1056.  
  1057. *************** Miscellenous
  1058. BuffSize:    rs.l 1
  1059. AdrIcon:    rs.l 1
  1060. IconBase:    rs.l 1
  1061. FolFlg:        rs.w 1
  1062. FolPos:        rs.l 1
  1063. FolPPos:    rs.l 1
  1064. FoLine:        rs.l 1
  1065. CurLigne:    rs.l 1
  1066. DebProc:    rs.l 1
  1067. AdEProc:    rs.l 1
  1068. XEProc:        rs.w 1
  1069. EdBloc:        rs.w 1
  1070. YOBloc:        rs.w 1
  1071. Y1Bloc:        rs.w 1
  1072. Y2Bloc:        rs.w 1
  1073. EdBlocAd:    rs.l 1
  1074. SchFlag:    rs.w 1
  1075. SchMode:    rs.w 1
  1076. DefPal:        rs.w 32
  1077. SchBuf:        rs.b 34
  1078. RepBuf:        rs.b 34
  1079. EdMarks:    rs.l 10
  1080.  
  1081. ********************************* RUN init variables 
  1082. DBugge        rs.l 1
  1083. DebRaz:        equ __RS
  1084. PrintFlg:    rs.w 1
  1085. PrintPos:    rs.l 1
  1086. PrinType:    rs.w 1
  1087. PrintFile:    rs.l 1
  1088. UsingFlg:    rs.w 1
  1089. ImpFlg:        rs.w 1
  1090. ParamE:        rs.l 1
  1091. ParamF:        rs.l 1
  1092. ParamC:        rs.l 1
  1093. InputFlg:    rs.w 1
  1094. ContFlg:    rs.w 1
  1095. ContChr:    rs.l 1
  1096. ErrorOn:    rs.w 1
  1097. ErrorChr:    rs.l 1
  1098. OnErrLine:    rs.l 1
  1099. TVMax:        rs.w 1
  1100. DProc:        rs.l 1
  1101. AData:        rs.l 1
  1102. PData:        rs.l 1
  1103. MenA4:        rs.l 1
  1104. LockOld:    rs.l 1
  1105. CallReg:    rs.l 8+7
  1106. MnChoice:    rs.w 1
  1107. Angle:        rs.w 1
  1108. FinRaz:        equ __RS
  1109. FinSave:    equ __RS
  1110.  
  1111. ********************************* Total data length
  1112. DataLong:    equ __RS
  1113.  
  1114.  
  1115.  
  1116.  
  1117.