ORCALib/vars.macros

 MACRO
&LAB LLA &AD1,&AD2
&LAB ANOP
 LCLA &L
 LCLB &LA
 AIF S:LONGA,.A
 REP #%00100000
 LONGA ON
&LA SETB 1
.A
 LDA #&AD2
&L SETA C:&AD1
.B
 STA &AD1(&L)
&L SETA &L-1
 AIF &L,^B
 LDA #^&AD2
&L SETA C:&AD1
.C
 STA 2+&AD1(&L)
&L SETA &L-1
 AIF &L,^C
 AIF &LA=0,.D
 SEP #%00100000
 LONGA OFF
.D
 MEND
CR -> LF 2017-10-31 17:14:07 +00:00			`MACRO`
			`&LAB LLA &AD1,&AD2`
			`&LAB ANOP`
			`LCLA &L`
			`LCLB &LA`
			`AIF S:LONGA,.A`
			`REP #%00100000`
			`LONGA ON`
			`&LA SETB 1`
			`.A`
			`LDA #&AD2`
			`&L SETA C:&AD1`
			`.B`
			`STA &AD1(&L)`
			`&L SETA &L-1`
			`AIF &L,^B`
			`LDA #^&AD2`
			`&L SETA C:&AD1`
			`.C`
			`STA 2+&AD1(&L)`
			`&L SETA &L-1`
			`AIF &L,^C`
			`AIF &LA=0,.D`
			`SEP #%00100000`
			`LONGA OFF`
			`.D`
			`MEND`