home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d5xx
/
d543
/
mousexy.lha
/
MouseXY
/
Includes
/
P.i
< prev
next >
Wrap
Text File
|
1991-09-20
|
1KB
|
59 lines
*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
*»» Made for Hisoft Devpac 2.12 by Preben Nielsen
*»»
*»» 09-Aug-91: Made this header
*»»
*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
*»» A few macros to make code a little more readable
*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
W IFND P_DEFINES
P_DEFINES SET 1
Prepare MACRO
IFC '\1','Exec_Call'
movea.l 4.W,A6
ENDC
IFC '\1','Intuition_Call'
movea.l IntuiBase(DB),A6
ENDC
IFC '\1','Gfx_Call'
movea.l GraphBase(DB),A6
ENDC
IFC '\1','Dos_Call'
movea.l DosBase(DB),A6
ENDC
IFNC '\1','Exec_Call'
IFNC '\1','Intuition_Call'
IFNC '\1','Gfx_Call'
IFNC '\1','Dos_Call'
moveq #12345,D0
ENDC
ENDC
ENDC
ENDC
ENDM
CallLib MACRO
jsr _LVO\1(A6)
ENDM
Call MACRO
bsr \1
ENDM
Push Macro Push <reg-list | all>
IFC '\1','all'
movem.l D0-D7/A0-A6,-(SP)
ENDC
IFNC '\1','all'
movem.l \1,-(SP)
ENDC
ENDM
Pop Macro Pop <reg-list | all>
IFC '\1','all'
movem.l (SP)+,D0-D7/A0-A6
ENDC
IFNC '\1','all'
movem.l (SP)+,\1
ENDC
ENDM
ENDC