home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
215.lha
/
AmyLoad
/
macros.i
< prev
next >
Wrap
Text File
|
1996-02-14
|
1KB
|
96 lines
IF MACRO
ifok SET 0
IFC \1,eq
bne.s else\2
ifok SET 1
ENDC
IFC \1,ne
beq.s else\2
ifok SET 1
ENDC
IFC \1,ge
blt.s else\2
ifok SET 1
ENDC
IFC \1,gt
ble.s else\2
ifok SET 1
ENDC
IFC \1,le
bgt.s else\2
ifok SET 1
ENDC
IFC \1,lt
bge.s else\2
ifok SET 1
ENDC
IFEQ ifok
FAIL 'Bad IF'
ENDC
ENDM
ELSE MACRO
bra.s fi\1
else\1:
ENDM
FI MACRO
IFND else\1
else\1:
ENDC
fi\1:
ENDM
DO MACRO
do\1:
ENDM
OD MACRO
bra.s do\1
od\1:
ENDM
ODL MACRO
bra do\1
od\1:
ENDM
WHILE MACRO
whilok SET 0
IFC \1,eq
bne.s od\2
whilok SET 1
ENDC
IFC \1,ne
beq.s od\2
whilok SET 1
ENDC
IFC \1,ge
blt.s od\2
whilok SET 1
ENDC
IFC \1,gt
ble.s od\2
whilok SET 1
ENDC
IFC \1,le
bgt.s od\2
whilok SET 1
ENDC
IFC \1,lt
bge.s od\2
whilok SET 1
ENDC
IFEQ whilok
FAIL 'Bad WHILE'
ENDC
ENDM
UNTIL MACRO
b\1.s od\2
ENDM
QUIF MACRO
b\1.s od\2
ENDM