64 #define c2l(c,l)	(l =((unsigned long)(*((c)++)))    , \  argument
65 			 l|=((unsigned long)(*((c)++)))<< 8L, \
66 			 l|=((unsigned long)(*((c)++)))<<16L, \
67 			 l|=((unsigned long)(*((c)++)))<<24L)
71 #define c2ln(c,l1,l2,n)	{ \  argument
72 			c+=n; \
75 			case 8: l2 =((unsigned long)(*(--(c))))<<24L; \
76 			case 7: l2|=((unsigned long)(*(--(c))))<<16L; \
77 			case 6: l2|=((unsigned long)(*(--(c))))<< 8L; \
78 			case 5: l2|=((unsigned long)(*(--(c))));     \
79 			case 4: l1 =((unsigned long)(*(--(c))))<<24L; \
80 			case 3: l1|=((unsigned long)(*(--(c))))<<16L; \
81 			case 2: l1|=((unsigned long)(*(--(c))))<< 8L; \
82 			case 1: l1|=((unsigned long)(*(--(c))));     \
87 #define l2c(l,c)	(*((c)++)=(unsigned char)(((l)     )&0xff), \  argument
88 			 *((c)++)=(unsigned char)(((l)>> 8L)&0xff), \
89 			 *((c)++)=(unsigned char)(((l)>>16L)&0xff), \
90 			 *((c)++)=(unsigned char)(((l)>>24L)&0xff))
94 #define l2cn(l1,l2,c,n)	{ \  argument
95 			c+=n; \
97 			case 8: *(--(c))=(unsigned char)(((l2)>>24L)&0xff); \
98 			case 7: *(--(c))=(unsigned char)(((l2)>>16L)&0xff); \
99 			case 6: *(--(c))=(unsigned char)(((l2)>> 8L)&0xff); \
100 			case 5: *(--(c))=(unsigned char)(((l2)     )&0xff); \
101 			case 4: *(--(c))=(unsigned char)(((l1)>>24L)&0xff); \
102 			case 3: *(--(c))=(unsigned char)(((l1)>>16L)&0xff); \
103 			case 2: *(--(c))=(unsigned char)(((l1)>> 8L)&0xff); \
104 			case 1: *(--(c))=(unsigned char)(((l1)     )&0xff); \
109 #define n2ln(c,l1,l2,n)	{ \  argument
110 			c+=n; \
113 			case 8: l2 =((unsigned long)(*(--(c))))    ; \
114 			case 7: l2|=((unsigned long)(*(--(c))))<< 8; \
115 			case 6: l2|=((unsigned long)(*(--(c))))<<16; \
116 			case 5: l2|=((unsigned long)(*(--(c))))<<24; \
117 			case 4: l1 =((unsigned long)(*(--(c))))    ; \
118 			case 3: l1|=((unsigned long)(*(--(c))))<< 8; \
119 			case 2: l1|=((unsigned long)(*(--(c))))<<16; \
120 			case 1: l1|=((unsigned long)(*(--(c))))<<24; \
125 #define l2nn(l1,l2,c,n)	{ \  argument
126 			c+=n; \
128 			case 8: *(--(c))=(unsigned char)(((l2)    )&0xff); \
129 			case 7: *(--(c))=(unsigned char)(((l2)>> 8)&0xff); \
130 			case 6: *(--(c))=(unsigned char)(((l2)>>16)&0xff); \
131 			case 5: *(--(c))=(unsigned char)(((l2)>>24)&0xff); \
132 			case 4: *(--(c))=(unsigned char)(((l1)    )&0xff); \
133 			case 3: *(--(c))=(unsigned char)(((l1)>> 8)&0xff); \
134 			case 2: *(--(c))=(unsigned char)(((l1)>>16)&0xff); \
135 			case 1: *(--(c))=(unsigned char)(((l1)>>24)&0xff); \
140 #define n2l(c,l)        (l =((unsigned long)(*((c)++)))<<24L, \  argument
141                          l|=((unsigned long)(*((c)++)))<<16L, \
142                          l|=((unsigned long)(*((c)++)))<< 8L, \
143                          l|=((unsigned long)(*((c)++))))
146 #define l2n(l,c)        (*((c)++)=(unsigned char)(((l)>>24L)&0xff), \  argument
147                          *((c)++)=(unsigned char)(((l)>>16L)&0xff), \
148                          *((c)++)=(unsigned char)(((l)>> 8L)&0xff), \
149                          *((c)++)=(unsigned char)(((l)     )&0xff))