Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

DRGTP	MACRO M1110  22-AUG-79 07:00  PAGE 3


      1						.TITLE	DRGTP
      2						.IDENT	/03/
      3
      4					;
      5					; COPYRIGHT (C) 1974, 1976
      6					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      7					;
      8					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
      9					; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
     10					;
     11					; VERSION 03
     12					;
     13					; D. N. CUTLER 30-AUG-73
     14					;
     15					; PREVIOUSLY MODIFIED BY:
     16					;
     17					;	D. N. CUTLER
     18					;	T. J. MILLER
     19					;
     20					; MODIFIED BY:
     21					;
     22					;+
     23					; **-$DRGTP-GET TIME PARAMETERS
     24					;
     25					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL A SPECIFIED EIGHT WORD
     26					; BUFFER WITH THE CURRENT TIME PARAMETERS.
     27					;
     28					; DPB FORMAT:
     29					;
     30					;	WD. 00 -- DIC(61.),DPB SIZE(2.).
     31					;	WD. 01 -- ADDRESS OF AN EIGHT WORD BUFFER.
     32					;
     33					;	BUFFER FORMAT:
     34					;
     35					;	WD. 00 -- YEAR SINCE 1900.
     36					;	WD. 01 -- MONTH OF YEAR.
     37					;	WD. 02 -- DAY OF MONTH.
     38					;	WD. 03 -- HOUR OF DAY.
     39					;	WD. 04 -- MINUTE OF HOUR.
     40					;	WD. 05 -- SECOND OF MINUTE.
     41					;	WD. 06 -- TICK OF SECOND.
     42					;	WD. 07 -- TICKS PER SECOND.
     43					;
     44					; INPUTS:
     45					;
     46					;	R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
     47					;	R3=ADDRESS OF THE SECOND WORD IN THE DPB.
     48					;	R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
     49					;	R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
     50					;
     51					; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
     52					;
     53					;	C=0 IF DIRECTIVE IS SUCCESSFULLY COMPLETED.
     54					;		DIRECTIVE STATUS OF +1 IS RETURNED.
     55					;	C=1 IF DIRECTIVE IS REJECTED.
     56					;		DIRECTIVE STATUS OF 'D.RS98' IS RETURNED IF BUFFER IS
     57					;			OUTSIDE OF ISSUING TASK'S ADDRESS SPACE.

DRGTP	MACRO M1110  22-AUG-79 07:00  PAGE 3-1


     58					;-
     59
     60	000000	011303 			$DRGTP::MOV	(R3),R3		;GET ADDRESS OF TIME PARAMETERS BUFFER
     61
     62
     63						.IF DF	A$$CHK!M$$MGE
     64
     65	000002	012701 	000020 			MOV	#8.*2,R1	;SET LENGTH OF BUFFER IN BYTES
     66	000006					CALL	$ACHKP		;ADDRESS CHECK PARAMETER BUFFER
     67
     68						.ENDC
     69
     70
     71	000012	012701 	177764G			MOV	#$TTNS-14,R1	;POINT TO CURRENT TIME VECTOR
     72	000016	012123 			10$:	MOV	(R1)+,(R3)+	;INSERT TIME PARAMETER IN TASK BUFFER
     73	000020	020127 	000000G			CMP	R1,#$TTNS	;ANY MORE TO INSERT?
     74	000024	101774 				BLOS	10$		;IF LOS YES
     75	000026	016713 	000000G			MOV	$TKPS,(R3)	;SET TICKS PER SECOND
     76	000032					RETURN			;RETURN DIRECTIVE STATUS OF +1
     77
     78		000001 				.END

DRGTP	MACRO M1110  22-AUG-79 07:00  PAGE 3-2
SYMBOL TABLE

A$$CHK= 000000   	I$$RDN= 000000   	L$$DRV= 000000   	P$$TPT= 000000   	V$$CTR= 001200
A$$CPS= 000000   	K$$CNT= 177546   	M$$CRB= 000124   	R$$DER= 000000   	V$$RSN= 000031
A$$TRP= 000000   	K$$CSR= 177546   	M$$MGE= 000000   	R$$EXV= 000000   	X$$DBT= 000000
C$$ORE= 002000   	K$$IEN= 000115   	M$$NET= 000000   	R$$SND= 000000   	$ACHKP= ****** GX
G$$TPP= 000000   	K$$LDC= 000001   	M$$NT2= 000000   	R$$11M= 000000   	$DRGTP  000000RG
G$$TTK= 000000   	K$$TPS= 000074   	N$$LDV= 000001   	R$$11S= 000000   	$TKPS = ****** GX
H$$RTZ= 000074   	L$$ASG= 000000   	P$$RTY= 000000   	S$$YSZ= 001740   	$TTNS = ****** GX

. ABS.	000000	   000
      	000034	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  1181 WORDS  ( 5 PAGES)
DYNAMIC MEMORY:  2980 WORDS  ( 11 PAGES)
ELAPSED TIME:  00:00:12
[11,24]DRGTP,SY0:[11,34]DRGTP/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRGTP