! @[$] open.s	3.1  09/12/83 11:42:38 - 87wega3.2 !

open module

  external
    cerror	procedure

  global
    _open procedure
      entry
	ld	r0,r7
	ld	r1,r6
	ld	r2,r5
	sc	#5
	ld	r2,r4
	ret	nc
	jp	cerror
    end _open
end open