;*; Updated on 24-Apr-90 at 10:58 AM by Matt Badger; edit time: 0:00:48
;*************************** AMUS Program Label ******************************
; Filename: DSKPPN.SBR                                      Date: 05/30/89
; Category: XCALL        Hash Code: 465-671-442-255      Version: 1.0(101)
; Initials: DD           Name: DAVE DRAKE
; Company: DOUBLE-D SOFTWARE SERVICES              Telephone #:(702)438-2173
; Related Files: NONE
; Min. Op. Sys.: N/A                           Expertise Level: INT
; Special: 
; Description: Returns currently logged device and ppn
;
; I did not write this program.  If anyone recognises it as their own, feel
;  free to claim it.  
;*****************************************************************************
;********************************************************************
;	Basic Assebbly Subroutine: DSKPPN.SBR
;
;	Returns currently logged device and Ppn
;
;	USEAGE: XCALL DSKPPN,DISK,PPN
;
;		Where DISK is string,5
;		      PPN  is string,7
;
;********************************************************************
	SEARCH	SYS
	SEARCH	SYSSYM

	OBJNAM	DSKPPN.SBR

	VMAJOR	=1.
	VMINOR	=0.
	VSUB	=0.
	VEDIT	=101.
	VWHO	=0.

	PHDR	-1,0,PH$REE!PH$REU

	ADD	#4,A3		; offset to addr of arg1
	MOV	@A3,A2		; address of arg1 to a2
	ADD	#12,A3		; offset to addr of arg2
	MOV	@A3,A4		; address of arg2 to a3
	MOV	JOBCUR,A0	; index job
	MOV	#64,A1		; offset of JOBDEV
	ADD	A0,A1		; offset to JOBDEV
	UNPACK			; make ascii and save in return
	MOVW	66(A0),D1	; get drive number
	OCVT	2,OT$MEM	; convert and save
	MOV	A4,A2		; point to addr of arg2
	MOVW	JOBUSR(A0),D1	; get PPN
	RORW	D1,#10		; bring P into lo byte
	AND	#377,D1		; mask it
	OCVT	0,OT$MEM	; convert and save
	MOVB	#',,(A2)+	; comma
	MOVB	JOBUSR(A0),D1	; get ppn again
	AND	#377,D1		; mask PN
	OCVT	0,OT$MEM	; convert and save
	RTN			; done

	END

.