/
p:      .word 1 ;parm count
p1:     .word 0 ;address of string

	PROGRAM system
FUNCTION system[string]
	PUSH r5
	mov string(r5),p1
	mov #p,r5
	jsr pc,ihang
	POP r5
	RET
	.end