; ***************************************************************************8
;
			.TITLE SD
;	this is the main routine for sd
;	this must be linked with sdact and sdtable
;	this program requires cmexec privilege to work
;			cmexec is used to change the default disk in super mode
; revision history:
;	jun-25-1981 replaced db0:[wendy.useful] with useful_dir
;	jul-19-1981 added psect definitiions
;	apr-07-1982 make code psect shareable
; ****************************************************************************
.LIBRARY /USEFUL_DIR:WENDY.MLB/
.LIBRARY /SYS$LIBRARY:LIB.MLB/
	.PSECT SD_DATA,RD,WRT,NOEXE,PIC

 $TPADEF GLOBAL		     
GETCMD:	$CLIREQDESC -
			RQTYPE = CLI$K_GETCMD
 TPARSE_BLOCK:                     
	.LONG TPA$K_COUNT0           
	.LONG TPA$M_ABBREV           
	.BLKB TPA$K_LENGTH0-8        
                                   

INPUT_DESC:	.LONG 0,0
PARSE_ERR:	.ASCID /ERROR PARSING THE STRING/
PROMPT:		.ASCID /INPUT STRING:	/
	.PSECT SD_CODE,RD,NOWRT,EXE,PIC,SHR
PARSE_IT::
	.WORD	0
	PUSHAB	W^GETCMD
	CALLS	#1,@CLI$A_UTILSERV(AP)
	MOVQ	W^GETCMD+CLI$Q_RQDESC,INPUT_DESC

    	MOVC5	#0,(SP),#0,#TPA$K_LENGTH0-8,TPARSE_BLOCK+8     
    	MOVL	INPUT_DESC+4,TPA$L_STRINGCNT+TPARSE_BLOCK+4    
    	MOVZWL	INPUT_DESC,TPA$L_STRINGCNT+TPARSE_BLOCK        

    	LIB$TPARSE TPARSE_BLOCK,PARSER,KEY_TABLE               

	BLBS	R0,30$
	LIB$PUT_OUTPUT	PARSE_ERR
30$:	RET
.END PARSE_IT