TITLE	TRANS3
	SUBTTL	MACROs for generating sector skew tables (6 to 3 conversion)

	.SALL
NSPT	EQU	26

GCD	MACRO	SKEW,SUFFIX
GCDM	DEFL	NSPT
GCDN	DEFL	SKEW
	REPT	65535
GCDR	DEFL	GCDM MOD GCDN
	IFF	GCDR
	EXITM
	ENDIF
GCDM	DEFL	GCDN
GCDN	DEFL	GCDR
	ENDM
NLTST&SUFFIX	DEFL	NSPT/GCDN
	ENDM

GETSEC	MACRO	SKEW,SUFFIX
NXTSEC	DEFL	NXTSEC+SKEW
	IF	NXTSEC GT NSPT
NXTSEC	DEFL	NXTSEC-NSPT
	ENDIF
NELTS	DEFL	NELTS-1
	IFF	NELTS
NXTBAS	DEFL	NXTBAS+1
NXTSEC	DEFL	NXTBAS
NELTS	DEFL	NLTST&SUFFIX
	ENDIF
	ENDM

TRANS3::
	.XLIST
	GCD	3,N
	GCD	6,O
SCTR	DEFL	0
	REPT	NSPT
	.XLIST
SCTR	DEFL	SCTR+1
SCTRN	DEFL	0
NXTSEC	DEFL	1
NXTBAS	DEFL	1
NELTS	DEFL	NLTSTN
	REPT	NSPT
SCTRN	DEFL	SCTRN+1
	IF	SCTR EQ NXTSEC
	EXITM
	ENDIF
	GETSEC	3,N
	ENDM
NXTSEC	DEFL	1
NXTBAS	DEFL	1
NELTS	DEFL	NLTSTO
	IF	SCTRN NE 1
	REPT	SCTRN-1
	GETSEC	6,O
	ENDM
	ENDIF
	.LIST
	DEFB	NXTSEC
	ENDM

	END