40 lines
877 B
ArmAsm
40 lines
877 B
ArmAsm
* File: MGSOS
|
|
*
|
|
* Copyright 1989 by Dave Klimas
|
|
*
|
|
* IMPORTANT! To use these macros, you must also include the
|
|
* label equates as defined in the file E16.GSOS from the TOOL.EQUATES
|
|
* directory.
|
|
*-----------------------------------------------
|
|
*
|
|
* xGSOS <callname>;<recpointer>;class 0/1 flag
|
|
*
|
|
* iGSOS _Create;addr;0 ;this is a class 0 Create call
|
|
*
|
|
*-----------------------------------------------
|
|
* Inline GS/OS call macro
|
|
|
|
iGSOS MAC
|
|
JSL $E100A8
|
|
DO ]3
|
|
DA ]1.$2000
|
|
ELSE
|
|
DA ]1
|
|
FIN
|
|
ADRL ]2
|
|
<<<
|
|
|
|
*-----------------------------------------------
|
|
* Stack GS/OS call macro
|
|
|
|
sGSOS MAC
|
|
PHL ]2
|
|
DO ]3
|
|
PEA ]1.$2000
|
|
ELSE
|
|
PEA ]1
|
|
FIN
|
|
JSL $E100B0
|
|
<<<
|
|
|