// I N I T S Y S . S R

get "bravo1.df"
get "com.df"
get "rn1.df"
get "vm.df"
get "msg.df"
get "ALTOFILESYS.D"
get "ST.df"
get "DIR.df"
get "DOC.df"
get "NEWMSG.df"

// incoming procedures
external
	[
	SetRegionSys
	updatedisplay
	AppendRegion
	getvp
	lockbp
	unlockbp
	]

// incoming statics
external
	[
	vbp
	vrlfsys
	vrldsys
	ppcd
	]

// outgoing procedures
external
	[
	InitVrldsys
	]

// local manifests
manifest
	[
	pidfcfirst = 0
	]


let InitVrldsys(fcfirst) be
[ let trb = vrldsys >> RL.rb
let rgdcp = trb+trb >> RX.brgdcp
let rgdcpfirst = trb+trb >> RX.brgdcpfirst
let rifirst = trb >> RX.rifirst; let dri = trb >> RX.dri
for ri = rifirst to rifirst+dri-1 do
	[ rgdcp ! ri = 0
	rgdcpfirst ! ri = 0
	] 


//}ctrlcr
SetRegionSys(28,35)
//READY: Select operand or type command
SetRegionSys(risyscom,23); SetRegionSys(risysstate,24)

SetRegionSys(risyspast2,57)
//cr
SetRegionSys(2,28)

//cr,sp
SetRegionSys(5,29)

//sp
SetRegionSys(6,30); SetRegionSys(12,30)
SetRegionSys(18,30); 
// *** SetRegionSys(24,30)

//{
SetRegionSys(7,32); SetRegionSys(13,32)
SetRegionSys(19,32); 
// *** SetRegionSys(25,32)

//}+tab1
SetRegionSys(11,33); 
// *** SetRegionSys(23,33)

//}+tab2
SetRegionSys(17,34)

updatedisplay()
]



z18592