// 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