// 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()
]