ORCA-C/Table.macros
2017-10-21 18:40:19 -05:00

25 lines
449 B
Plaintext

MACRO
&LAB ENUM &LIST,&START
&LAB ANOP
AIF C:&~ENUM,.A
GBLA &~ENUM
.A
AIF C:&START=0,.B
&~ENUM SETA &START
.B
LCLA &CNT
&CNT SETA 1
.C
&LIST(&CNT) EQU &~ENUM
&~ENUM SETA &~ENUM+1
&CNT SETA &CNT+1
AIF &CNT<=C:&LIST,^C
MEND
MACRO
&LAB STR8 &STR
&LAB DC I1'L:A&SYSCNT'
A&SYSCNT DC C'&STR'
DS 8-L:A&SYSCNT
MEND