;
;         Subroutine Gtstak.... To get the current stack pointer
;         address and return it to the user.
;
;         Programmed by Steven C. Fisher, DTNSRDC Code 1522
;
;
	.TITLE	GTSTAK
	.PSECT
        .GLOBL  GTSTAK
GTSTAK:
	CLR	-(SP)
	MOV	#26234,R4
	JSR	R4,@$NAM$
	MOV	#2,$SEQC
        MOV     SP,R4
	MOV	R4,@2(R5)
	RTS	PC
;
;          Subroutine Branch... To change the stack pointer address to a
;          different address and then call a subroutine specified by user.
;
;          Input values:
;
;          one - the address to set the stack pointer to
;          two - The name of the subroutine to branch to
;
;             Programmed by Steven C. Fisher, DTNSRDC Code 1522
;
;
	.TITLE	BRANCH
        .GLOBL BRANCH
	.PSECT
BRANCH:
	CLR	-(SP)
	MOV	#6200,R4
	JSR	R4,@$NAM$
	MOV	#3,$SEQC
	INC	$SEQC
	MOV	4(R5),R0
;
	MOV	@2(R5),R5
        MOV     R5,SP
;
	JSR	PC,@R0
	RTS	PC
	.END