// FAKEOS.SR
// reroutes attempts to call operating system routines


// incoming procedures

external[
array
//errhlt
]

// outgoing procedures

external[
Allocate
//GetFixed
//InitializeZone
//AddToZone
//Free
//Wss
]


let Allocate(zone, cw) be [ array(cw) ]

// and GetFixed() be [ ]

// and InitializeZone() be [ errhlt("InZ") ]

// and AddToZone() be [ ]

// and Free (zone, block) be [ ]

// and Wss(sb) be [ errhlt(sb) ]

// DefaultArgs: static set to DefaultArgs1 in PRINTFILE