CLICB86 A86 JCLICB86 OBJ ACLITEST BASuCLITEST SUB TITLE 'CLICB86 (v1.0) - Command Line Interpreter for CB86' ;Program ; CLICB86 - Command Line Interpreter for CB86 ;Date Written ; April 7, 1984 ;Author ; Robert M. White ; 3150 Sweetwater Dr. ; Boise, ID 83705 ; (208) 344-5952 ;Purpose ; This routine allows a CB86 routine to pass a string ; to the MP/M-86 or CCP/M-86 Command Line Interpreter ; for processing like a submit file. eject ;******************************************************** ;* Main Program Section * ;******************************************************** ; Do initialization. cseg NAME 'CLICB86' CLICB86: public CLICB86 push bp ;Save old frame pointer. mov bp,sp ;set up new frame pointer. push di ;Save other registers. push si push es ; Bump our priority so we get in before TMP. mov dl,02 ;Set for Interrupt Handler. mov cl,091h ;Issue BDOS Set Priority. int 224 ; Interpret and execute the Command Line. mov dx,4[bp] ;Point to command line. inc dx mov cl,096h ;Issue BDOS CLI. int 224 ; Re-attach the default console. mov cl,092h int 224 ; Return to caller. cld pop es pop si pop di pop bp ret 2 eject ;******************************************************** ;* End of Program * ;******************************************************** end  CLICB86RASM-86 1.2 10/31/83EXTRACODESTACKDATACODE( CLICB86$UWVVB౒^_]-t remark Test the CLI subroutine. def clicb86(clibuf$) external integer clicb86 fend call clicb86("WS XXX.XXX") call clicb86("PIP CON:=XXX.XXX") end ; This will compile and linkedit the ; CLI test routine for CB86. rasm86 clicb86 cb86 clitest link86 clitest,clicb86