/*------*>	blockdata.rat	-all the block data you need and want
	*/
include ratfor.def
block data
include clook.cmm		#definitional tables stuff
include forgen.cmm		#for code generation stuff
include outbuf.cmm		#output buffer stuff
include case.cmm		#case/switch statement stuff
include error.cmm		#return with status stuff
include string.cmm		#string statements
common /lab/lab			#label generation stuff
common /longnm/numnam		#long name conversion stuff
 
	#clook.cmm
data lastt/0/			#definitional table pointer
data namptr/MAXPTR * 0/		#clear the pointer table
	#forgen.cmm
data storit/LET_F,LET_O,LET_R,DOLLAR,127,EOS/	#initial name of for reinit
	#outbuf.cmm
data outp/0/			#output buffer pointer
	# lab common area
data lab/23000/			#number of first label
	#longnm common area
data numnam/0/			#first number for long name conversion
data casesp/1/,casel(1,1)/0/,casel(2,1)/0/
data namcas/LET_C,LET_A,LET_S,LET_E,127,EOS/
	#errors
data error/SUCCESS_RET/		#assume successful return
data string_used/0/		#no strings used
data string_ptr(1)/1/
end