;
; Assembly   language   interface   to   VMS   system   service  request
; LIB$DO_COMMAND. The presence of  this  routine  is  necessary  because
; birdbrain asshole Whitesmith's refuse to allow identifiers longer than
; eight characters, which rules out all VMS system stuff. 
;
;	libdo(descriptor_for_command);
;
.entry	libdo	0
	pushl	4(ap)
	calls	#1,lib$do_command
	ret
	.end