;include by Mike Pot!!!

;Exec-library
ExecBase equ 4
OpenLibrary equ -552
CloseLibrary equ -414
AvailMem equ -216
AllocMem equ -198
FreeMem equ -210
Forbid equ -132
Permit equ -138
GetMsg equ -372
ReplyMsg equ -378
DoIO equ -456
;intuition-library
OpenScreen equ -198
CloseScreen equ -66
MoveScreen equ -162
ClearScreen equ -48
MoveWindow equ -168
OpenWindow equ -204
CloseWindow equ -72
DisplayAlert equ -90
ScreenToBack equ -246
ScreenToFront equ -252
RemakeDisplay equ -384
RethinkDisplay equ -390
RefreshGadgets equ -222
SetMenuStrip equ -264
ClearMenuStrip equ -54
EndRefresh equ -366
ShowTitle equ -282
OnMenu equ -192
OffMenu equ -180
PrintIText equ -216
AddGadget equ -42
;graphics-library
WritePixel equ -324
ReadPixel equ -318
SetAPen equ -342
SetBPen equ -348
Draw equ -246
Move equ -240
RectFill equ -306
GelsFuncE equ -180
SetRGB4 equ -288
LoadRGB4 equ -192
InitBitMap equ -390
InitRastPort equ -198
AllocRaster equ -492
FreeRaster equ -498
ScrollRaster equ -396
Text equ -60
BltBitMap equ -30
BltBitMapRastPort equ -606
SetDrMd equ -354
OpenFont equ -72
CloseFont equ -78
SetFont equ -66
OwnBlitter equ -456
DisownBlitter equ -462
;mathffp-library
SPAbs equ -54
SPAdd equ -66
SPCmp equ -42
SPDiv equ -84
SPFix equ -30
SPFlt equ -36
SPMul equ -78
SPSub equ -72
;mathtrans-library
SPCos equ -42
SPSin equ -36
;dos-library
Open equ -30
Write equ -48
Read equ -42
Close equ -36
LoadSeg equ -150
UnLoadSeg equ -156
Lock equ -84
UnLock equ -90
Examine equ -102
ExNext equ -108
CreateProc equ -138
Output equ -60
Input equ -54
Delay equ -198
IsInteractive equ -216
DeviceProc equ -174
Rename equ -78
DeleteFile equ -72
Execute equ -222
Seek equ -66
;DiskFont.library
OpenDiskFont equ -30
AvailFonts equ -36
; macros
OpenLib MACRO
   move.l   ExecBase,a6
   lea   \1Name,a1
   move.l   #31,d0
   jsr   OpenLibrary(a6)
   move.l   d0,\1Base
   ENDM
CloseLib MACRO
   move.l   \1Base,a1
   beq   Abort\@
   move.l   ExecBase,a6
   jsr   CloseLibrary(a6)
   clr.l   d0
   move.l   d0,\1Base
Abort\@
   ENDM
Call   MACRO
   move.l   \1Base,a6
   jsr   \2(a6)
   ENDM
; constants
PUBLICMEMORY equ $10001
V_HIRES equ $8000
V_LACE equ $4
V_HAM equ $800
ACCESS_READ equ 1005
ACCESS_WRITE equ 1006
RP_JAM1 equ 0
RP_JAM2 equ 1
RP_COMPLEMENT equ 2
RP_INVERSVID equ 4