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

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


      1						.TITLE	DRGSS
      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 31-AUG-73
     14					;
     15					; PREVIOUSLY MODIFIED BY:
     16					;
     17					;	D. N. CUTLER
     18					;
     19					; MODIFIED BY:
     20					;
     21					; MACRO LIBRARY CALLS
     22					;
     23
     24						.MCALL	HWDDF$
     25	000000					HWDDF$			;DEFINE HARDWARE REGISTERS
     26
     27					;+
     28					; **-$DRGSS-GET SENSE SWITCHES
     29					;
     30					; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO STORE THE CONTENTS OF THE CONSOLE
     31					; SWITCH REGISTER IN THE ISSUING TASK'S DIRECTIVE STATUS WORD.
     32					;
     33					; DPB FORMAT:
     34					;
     35					;	WD. 00 -- DIC(125.),DPB SIZE(1.).
     36					;
     37					; INPUTS:
     38					;
     39					;	R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
     40					;	R3=ADDRESS OF THE LAST WORD IN THE DPB+2.
     41					;	R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
     42					;	R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
     43					;
     44					; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
     45					;
     46					;	C=0 WITH A DIRECTIVE STATUS EQUAL TO THE CONTENTS OF THE
     47					;		CONSOLE SWITCH REGISTER.
     48					;-
     49
     50
     51						.IF DF	G$$TSS
     52
     53					$DRGSS::MOV	SWR,2(SP)	;SET CONTENTS OF CONSOLE SWITCH REGISTER
     54						RETURN			;RETURN DIRECTIVE STATUS
     55
     56						.ENDC
     57

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


     58
     59		000001 				.END

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

A$$CHK= 000000   	G$$TPP= 000000   	K$$TPS= 000074   	PR6   = 000300   	UBMPR = 170200
A$$CPS= 000000   	G$$TTK= 000000   	L$$ASG= 000000   	PR7   = 000340   	UDSAR0= 177660
A$$TRP= 000000   	H$$RTZ= 000074   	L$$DRV= 000000   	PS    = 177776   	UDSDR0= 177620
CMODE = 140000   	I$$RDN= 000000   	MPAR  = 172100   	P$$RTY= 000000   	UISAR0= 177640
C$$ORE= 002000   	KDSAR0= 172360   	MPCSR = 177746   	P$$TPT= 000000   	UISAR4= 177650
FE.CAL= 000040   	KDSDR0= 172320   	M$$CRB= 000124   	R$$DER= 000000   	UISAR5= 177652
FE.CEX= 020000   	KISAR0= 172340   	M$$MGE= 000000   	R$$EXV= 000000   	UISAR6= 177654
FE.DRV= 000010   	KISAR5= 172352   	M$$NET= 000000   	R$$SND= 000000   	UISAR7= 177656
FE.EXP= 000200   	KISAR6= 172354   	M$$NT2= 000000   	R$$11M= 000000   	UISDR0= 177600
FE.EXT= 000001   	KISAR7= 172356   	N$$LDV= 000001   	R$$11S= 000000   	UISDR4= 177610
FE.EXV= 000004   	KISDR0= 172300   	PIRQ  = 177772   	SISDR0= 172200   	UISDR5= 177612
FE.LSI= 000400   	KISDR6= 172314   	PMODE = 030000   	SR0   = 177572   	UISDR6= 177614
FE.MUP= 000002   	KISDR7= 172316   	PR0   = 000000   	SR3   = 172516   	UISDR7= 177616
FE.MXT= 040000   	K$$CNT= 177546   	PR1   = 000040   	SWR   = 177570   	V$$CTR= 001200
FE.NLG= 100000   	K$$CSR= 177546   	PR4   = 000200   	S$$YSZ= 001740   	V$$RSN= 000031
FE.PKT= 000100   	K$$IEN= 000115   	PR5   = 000240   	TPS   = 177564   	X$$DBT= 000000
FE.PLA= 000020   	K$$LDC= 000001

. ABS.	000000	   000
      	000000	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  1883 WORDS  ( 8 PAGES)
DYNAMIC MEMORY:  2980 WORDS  ( 11 PAGES)
ELAPSED TIME:  00:00:09
[11,24]DRGSS,SY0:[11,34]DRGSS/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRGSS