mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-12-22 07:30:54 +00:00
25 lines
449 B
Plaintext
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
|