.SBTTL CONSTANT GENERATION
.MACRO ASSIGN S,L
.IIF NB,S,$A=S
.IRP $X,<L>
$X=$A
$A=$A+1
.ENDM
.ENDM


.MACRO GENSET S,L
$W=S+15./16.
$U=0
$K=0
.IRP $X,<L>
$GS $X
.ENDM
.REPT $W
.WORD $U
$U=0
.ENDR
.ENDM


.MACRO $GS F,T
.IF B,T
$N=1
.IFF
$N=T-F+1
.ENDC
$S=F
.REPT $N
.REPT $S-$K/16.
.WORD $U
$U=0
$W=$W-1
$K=$K+16.
.ENDR
$T=1
.REPT $S-$K
$T=$T+$T
.ENDR
$U=$U!$T
$S=$S+1
.ENDR
.ENDM