ORCA-C/Table.macros

         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
Change all text/source files to LF line endings. 2017-10-21 23:40:19 +00:00			`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`