;dimension plaintext and ciphertext letters parms
bifptdm struc
;bp-14	dw	?	 full count
;bp-12	dw	?	 period
;bp-10	dw	?	 kurz
;bp-8	dw	?	 blocks
;bp-6	dw	?	 start of plaintext
;bp-4	dw	?	 letter counter
;bp-2	dw	?	 root for dimension arithmetic
	dw	?	;bp save
	dd	?	;return address
bifp2	dd	?	;->cipher parms
workp	dd	?	;->dimensioning work area
bifptdm ends