.text; .even; .globl _CreateProc

_CreateProc:
	moveml #0x3802,sp@-
	movel a4@(_DOSBase:W),a6
	movel sp@(20),d1
	movel sp@(24),d2
	movel sp@(28),d3
	movel sp@(32),d4
#APP
	jsr a6@(-0x8a)
#NO_APP
	moveml sp@+,#0x401c
	rts