From:	MERC::"uunet!WKUVX1.BITNET!FILESERV-Mgr"  3-JUN-1992 09:44:48.35
To:	galaxy::gleeve
CC:	
Subj:	GETCMD.04_OF_04

-+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
X8$:`09MOVL    G`5ECTL$GL_PCB, R4
X`09MOVL    4(AP), R3
X`09JSB     G`5ESCH$CLREF
X`09MOVL    R0, R9
X`09MTPR    #2, #18
X`09MOVL    #<U.16-U.4>, R3
X`09MOVAB   1092(R3), R1
X`09JSB     G`5EEXE$ALONONPAGED
X`09MOVL    R0, R9
X`09MOVL    R2, R6
X`09BLBS    R9, 9$
X`09BRW     16$
X9$:`09MOVL    R7, 12(R6)
X`09MOVW    R1, 8(R6)
X`09MOVB    #2, 10(R6)
X`09MOVPSL  R0
X`09EXTZV   #24, #2, R0, R0
X`09BISB3   #128, R0, 11(R6)
X`09MOVL    4(AP), 40(R6)
X`09MOVL    12(AP), 28(R6)
X`09MOVL    16(AP), 48(R6)
X`09MOVL    20(AP), 56(R6)
X`09MOVL    G`5ECTL$GL_PCB, R0
X`09MOVL    96(R0), 32(R6)
X`09MOVL    G`5ECTL$GL_PHD, R0
X`09MOVL    284(R0), 44(R6)
X`09MOVC3   R3, W`5EU.4, 1092(R6)
X`09MOVAB   1092(R6), 24(R6)
X`09ADDL3   #<<U.5-U.4>+1092>, R6, 36(R6)
X`09MFPR    #18, R10
X`09BLBC    (R11), 10$
X`09MOVL    #47, R0
X`09JSB     G`5ESMP$ACQUIRE
X`09BLBS    (R11), 11$
X10$:`09MTPR    #8, #18
X11$:`09MOVL    R7, R0
X`09JSB     G`5EEXE$IPID_TO_PCB
X`09MOVL    R0, R8
X`09BEQL    13$
X`09CMPL    R7, 96(R8)
X`09BNEQ    13$
X`09BBS     #1, 36(R8), 13$
X`09BBS     #3, 37(R8), 13$
X`09CMPW    26(R8), #9
X`09BEQL    13$
X`09CMPW    26(R8), #10
X`09BEQL    13$
X`09CMPW    26(R8), #2
X`09BEQL    13$
X`09MOVL    R6, R5
X`09MOVL    #4, R2
X`09JSB     G`5ESCH$QAST
X`09MOVL    R0, R9
X`09MOVL    R4, R8
X`09BLBC    R9, 14$
X`09CMPW    26(R8), #12
X`09BEQL    12$
X`09CMPW    26(R8), #13
X`09BNEQ    14$
X12$:`09MOVL    G`5ECTL$GL_PCB, R1
X`09CMPB    28(R1), #16
X`09BGEQU   14$
X`09CMPB    28(R1), 28(R8)
X`09BLEQU   14$
X`09MOVL    R8, R4
X`09MOVZBL  28(R1), R0
X`09JSB     G`5ESCH$CHSEP
X`09BRB     14$
X13$:`09MOVZWL  #2280, R9
X14$:`09BLBC    (R11), 15$
X`09MOVL    #47, R0
X`09JSB     G`5ESMP$RELEASE
X15$:`09MTPR    R10, #18
X`09BLBS    R9, 16$
X`09MOVL    R6, R0
X`09JSB     G`5EEXE$DEANONPAGED
X16$:`09MTPR    #0, #18
X`09CLRQ    -(SP)
X`09PUSHAB  8(SP)
X`09CALLS   #3, G`5ESYS$ULWSET
X17$:`09MOVL    R9, R0
X`09RET
XU.24=`09`09    1279476739
X`09.EXTRN  CTL$AG_CLIDATA, CTL$GT_CLINAME, PPD$L_PRC, PRC_L_RECALLPTR, PRC_G
V_COMMANDS
XU.4:`09MOVL    #1, 60(R5)
X`09CMPL    G`5ECTL$GT_CLINAME, #1279476739
X`09BEQL    1$
X`09MOVAB   G`5EGETCMD_NODCL, 60(R5)
X1$:`09TSTL    G`5ECTL$AL_CLICALBK
X`09BGEQ    2$
X`09MOVAB   G`5EGETCMD_NOCLI, 60(R5)
X2$:`09BLBC    60(R5), 5$
X`09MOVAB   G`5ECTL$AG_CLIDATA, R0
X`09MOVL    L`5EPPD$L_PRC(R0), R0
X`09MOVAB   L`5EPRC_G_COMMANDS(R0), R1
X`09SUBL3   R1, L`5EPRC_L_RECALLPTR(R0), -
X`09`0952(R5)
X`09MOVL    R1, R0
X`09MOVAB   64(R5), R1
X`09ADDL3   #1, #PRC_S_COMMANDS, R2
X`09BRB     4$
X3$:`09MOVB    (R0)+, (R1)+
X4$:`09SOBGEQ  R2, 3$
X5$:`09MOVL    36(R5), 24(R5)
X`09MOVL    32(R5), 12(R5)
X`09BISB2   #128, 11(R5)
X`09CLRL    R2
X`09JMP     G`5ESCH$QAST
XU.5:`09MOVL    108(R4), R0
X`09CMPL    284(R0), 44(R5)
X`09BNEQ    4$
X`09MOVL    60(R5), R1
X`09MOVL    R1, @56(R5)
X`09BLBC    R1, 3$
X`09MOVL    52(R5), @48(R5)
X`09MOVAB   64(R5), R0
X`09MOVL    28(R5), R1
X`09ADDL3   #1, #PRC_S_COMMANDS, R2
X`09BRB     2$
X1$:`09MOVB    (R0)+, (R1)+
X2$:`09SOBGEQ  R2, 1$
X3$:`09MOVL    40(R5), R3
X`09CLRL    R2
X`09MOVL    32(R5), R1
X`09JSB     G`5ESCH$POSTEF
X4$:`09MOVL    R5, R0
X`09JMP     G`5EEXE$DEANONPAGED
XU.16:`09.BLKB   4
X`09.END`09U.1
$ CALL UNPACK [.GETCMD]GETCMD.MAR;1 324130086
$ create 'f'
X`09.TITLE`09GETCMD_MSG
X`09.IDENT`09/01-000/
X!++
X!
X!  File:`09GETCMD_MSG.MSG
X!
X!  Author:`09Hunter Goatley
X!
X!  Date:`09June 2, 1992
X!
X!  Description:
X!
X!`09Message file for GETCMD.B32.
X!
X!  Modification history:
X!
X!`0901-000`09`09Hunter Goatley`09`09 2-JUN-1992 09:35
X!`09`09Genesis.
X!
X!--
X`09.FACILITY`09GETCMD,1/PREFIX=GETCMD_
X
X`09.SEVERITY`09WARNING
XNOCMDS`09`09<no DCL commands to recall>
X
X`09.SEVERITY`09ERROR
XNOCLI`09`09<no DCL CLI mapped for target process>
XNODCL`09`09<CLI mapped for target process is not DCL>
X
X`09.END
$ CALL UNPACK [.GETCMD]GETCMD_MSG.MSG;1 1852454669
$ v=f$verify(v)
$ EXIT
