.title  recall_mar
;
;      CALL RECALL_MAR ( BUFFER, IPTR )
;
	$SSDEF
        .entry  recall_mar,^m<r2,r3,r4>

        movl    4(ap),r0        ;loc of descriptor to r0
        movl    4(r0),r1        ;location of buffer to r1
        movl    8(ap),r0        ;location of iptr to r0


        movab   g^ctl$ag_clidata,r2          ; address of ppd
        movl    ppd$l_prc(r2),r3             ; address of CLI private storage
        movl    prc_l_recallptr(r3),r4       ; current command pointer
        movab   prc_g_commands(r3),r2        ; address of recall buffer
        subl3   r2,r4,(r0)                   ; current command offset
        movc3   #1025,(r2),(r1)              ; recall buffer to BUFFER
        ret

	.END