Google
 

Trailing-Edge - PDP-10 Archives - AP-4178E-RM - swskit-sources/setspd.lis
There is 1 other file named setspd.lis in the archive. Click here to see a list.
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03
TABLE OF CONTENTS

    2-  51	MACRO DEFINITIONS
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 1


      1						.TITLE	SET SPEED AND RETURN TIME OF DAY TO 10 PROGRAM
      2						.IDENT	"V010020"
      3					;
      4					;
      5					;
      6					;
      7					;
      8					;                             COPYRIGHT (C) 1975, 1978 BY
      9					;                     DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
     10					;
     11					;       THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED  AND  COPIED
     12					;       ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
     13					;       OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THERE-
     14					;       OF  MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
     15					;       NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
     16					;
     17					;       THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT
     18					;       NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
     19					;       CORPORATION.
     20					;
     21					;       DIGITAL ASSUMES NO RESPONSIBILITY FOR THE  USE  OR  RELIABILITY  OF  ITS
     22					;       SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
     23					;
     24					;
     25					;
     26					;
     27					;
     28					;
     29					;		MODULE: SET SPEED AND RETURN TIME OF DAY
     30					;
     31					;		VERSION: V010-02
     32					;
     33					;		AUTHOR: R. MCLEAN
     34					;
     35					;		DATE: 19 NOV 75
     36					;
     37					;
     38					;	THIS MODULE CONTAINS:
     39					;
     40					;	1 -- THE CODE REQUIRED TO SET THE TIME IN THE 10 AND
     41					;	SET THE SPEED TABLE FOR THE 10 AFTER RESTART
     42					;
     43					; MODIFICATIONS:
     44					;
     45					;	NO.	DATE		PROGRAMMER	PURPOSE
     46					;	---	----		----------	-------
     47					;	001	14-MAR-77	R. BELANGER	CHANGE TO REFERENCE
     48					;						DLS INSTEAD OF DH TABLE
     49					;	002	15-JUL-77	R. BELANGER	ADD AUTO-BAUD SUPPORT
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 2
MACRO DEFINITIONS

     51						.SBTTL	MACRO DEFINITIONS
     52					;
     53					;	MACROS
     54					;
     55						.MCALL	CALL,RETURN,WSIG$S,CLEF$S,EXIT$S
     56						.MCALL	QIOW$,DIR$,RQST$,.ENB6,.INH6,$DEF
     57						.LIST	MEB
     58
     59	000000					$DEF
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3
MACRO DEFINITIONS

     61					;+
     62					;	.STSPD -- NON-RESIDENT EXECUTIVE ROUTINE TO SET LINE SPEEDS
     63					;
     64					;	THIS ROUTINE IS LOADED AND CALLED AS A TASK WHEN:
     65					;
     66					;		1. THE FRONT-END RELOADS THE KL
     67					;		2. AN AUTO-BAUD LINE HAS CONNECTED
     68					;
     69					;	IF THE KL HAS BEEN RELOADED, ALL LINE SPEEDS ARE REPORTED. IF A LINE
     70					;	HAS BEEN AUTO-BAUDED, THE SPEED FOR ONLY THAT LINE IS REPORTED.
     71					;
     72					;	THE DECISIION TO REPORT ALL LINE SPEEDS OR ONLY AUTO-BAUD LINE SPEEDS
     73					;	IS DETERMINED BY THE STATE OF ".ABFLG"
     74					;
     75					;	".ABFLG" .LE. 0 -- REPORT ALL LINE SPEEDS
     76					;	".ABFLG" .GT. 0 -- REPORT ONLY AUTO-BAUD LINE SPEEDS
     77					;
     78					;	LINES WHICH ARE TO BE AUTO-BAUDED ARE FLAGGED BY HAVING BIT 15 SET
     79					;	IN "STSW0".
     80					;
     81					;	REGISTER SUMMARY:
     82					;
     83					;		R0 -- COUNT OF LINES IN THE DLS TABLE
     84					;		R1 -- TEMPORARY
     85					;		R2 -- TEMPORARY
     86					;		R3 -- TEMPORARY
     87					;		R4 -- COUNT OF LINES TO BE AUTO-BAUDED
     88					;		R5 -- ADDRESS OF DLS ENTRY FOR THE CURRENT LINE
     89					;-
     90
     91	000000				.STSPD::
     92	000000	016705 	000000G			MOV	.DQDLS,R5	; +++001 FIND TABLE ADDRESS OF THE FIRST ENTRY
     93	000004	016700 	000016G			MOV	.DQDLS+16,R0	; +++001 FIND THE NUMBER OF LINES TO DO
     94	000010	001562 				BEQ	100$		; +++002 NO LINES !!
     95	000012	105067 	000465 			CLRB	UNIT		;CLEAR THE UNIT NUMBER
     96	000016					.INH6			; +++002 DISALLOW INTERRUPTS
	000016	013746 	177776 			MOV	@#PS,-(SP)
	000022	112737 	000300 	177776 		MOVB	#300,@#PS
     97	000030	016704 	000000G			MOV	.ABCNT,R4	;;; +++002 GET COUNT OF AUTO-BAUD LINES
     98	000034	005067 	000000G			CLR	.ABCNT		;;; +++002 RESET THE COUNTER
     99	000040					.ENB6			;;; +++002 ALLOW INTERRUPTS
	000040	012637 	177776 			MOV	(SP)+,@#PS
    100	000044				10$:
    101	000044	022705 	000000G			CMP	#DHTBL,R5	; +++001 IS THIS A DH11??
    102	000050	101410 				BLOS	20$		; +++001 YES -- GO ON
    103	000052	005767 	000000G			TST	.ABFLG		; +++002 NO -- AUTO-BAUD FLAGGED??
    104	000056	100131 				BPL	90$		; +++002 YES -- TRY THE NEXT LINE
    105	000060	005067 	000420 			CLR	INPSPD		; +++001 NO -- CLEAR INPUT SPEED
    106	000064	005067 	000416 			CLR	OUTSPD		; +++001 AND OUTPUT SPEED
    107	000070	000432 				BR	40$		; +++001 AND SET IT
    108						;
    109	000072				20$:				; +++001
    110	000072	016502 	000000G			MOV	STSW0(R5),R2	;FIND THE SPEED
    111	000076	005767 	000000G			TST	.ABFLG		; +++002 AUTO-BAUD FLAGGED??
    112	000102	003402 				BLE	30$		; +++002 NO -- GO ON
    113	000104	005702 				TST	R2		; +++002 YES -- THIS LINE??
    114	000106	100115 				BPL	90$		; +++002 NO -- TRY THE NEXT LINE
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3-1
MACRO DEFINITIONS

    115	000110				30$:				; +++002
    116	000110	010246 				MOV	R2,-(SP)	;SAVE THE SPEED
    117	000112	006202 				ASR	R2		;FIND THE INPUT SPEED
    118	000114	006202 				ASR	R2
    119	000116	006202 				ASR	R2
    120	000120	006202 				ASR	R2
    121	000122	006202 				ASR	R2
    122	000124	042702 	177741 			BIC	#177741,R2	;MASK OFF JUNK
    123	000130	016267 	000620'	000346 		MOV	SPDTBL(R2),INPSPD
    124	000136	012602 				MOV	(SP)+,R2	;RESTORE SPEED
    125	000140	006202 				ASR	R2		;WORK ON OUTPUT SPEED
    126	000142	000302 				SWAB	R2
    127	000144	042702 	177741 			BIC	#177741,R2
    128	000150	016267 	000620'	000330 		MOV	SPDTBL(R2),OUTSPD ;SET OUTPUT SPEED
    129	000156				40$:
    130	000156	042765 	100000 	000000G		BIC	#100000,STSW0(R5) ; +++002 RESET FLAG
    131	000164	032767 	000000G	000002G		BIT	#EF.PR1,.COMEF+2 ; +++002 ARE WE IN PRIMARY PROTOCOL??
    132	000172	001446 				BEQ	70$		; +++002 NO -- COMPLAIN AND EXIT
    133	000174	005067 	000310 			CLR	REMOTE		; YES -- CLEAR REMOTE FLAG (ASSUME NOT REMOTE)
    134	000200	032765 	000000G	000000G		BIT	#TT.RMT,STSW1(R5) ;LOOK FOR REMOTE
    135	000206	001412 				BEQ	50$		;NOT REMOTE
    136	000210	052767 	100000 	000272 		BIS	#100000,REMOTE	;SET REMOTE FLAG
    137	000216	032765 	000000G	000000G		BIT	#TT.ABL,STSW1(R5) ; +++002 IS THIS AN AUTO-BAUD LINE??
    138	000224	001403 				BEQ	50$		; +++002 NO -- GO ON
    139	000226	052767 	040000 	000254 		BIS	#040000,REMOTE	; +++002 YES -- FLAG IT
    140	000234				50$:
    141	000234	010046 				MOV	R0,-(SP)
    142	000236	012703 	000000G			MOV	#D.CDLS,R3	; +++001 SET UP FOR DATA LINE SCANNER
    143	000242	012702 	000001 			MOV	#1,R2		;USE EVENT FLAG #1
    144	000246	012701 	100000G			MOV	#BC.STS+100000,R1 ;SET SPEED ON LINES
    145	000252	012700 	000502'			MOV	#SIZE,R0	;SET UP THE BUFFER ADDRESS AND
    146	000256					CALL	..STIN		;START INDIRECT FUNCTION
	000256	004767 	000000G			JSR	PC,..STIN
    147	000262	103412 				BCS	70$		;NO GOOD...
    148	000264	012600 				MOV	(SP)+,R0	;RESTORE R0
    149	000266	016701 	000000G			MOV	.CRTSK,R1	;GET ATL NODE
    150	000272				60$:
    151	000272	030261 	000000G			BIT	R2,A.EF(R1)	;IS OPERATION COMPLETE ?
    152	000276	001012 				BNE	80$		;YES, GO ON TO NEXT
    153	000300					WSIG$S			;WAIT FOR AN EVENT
	000300	012746 				MOV	(PC)+,-(SP)
	000302	   061 	   001 			.BYTE	49.,1
	000304	104375 				EMT	375
    154	000306	000771 				BR	60$		; +++002 LOOK FOR THE FLAG
    155						;
    156	000310				70$:
    157	000310					DIR$	#SPMSG		;COMPLAIN
	000310	012746 	000520'			MOV	#SPMSG,-(SP)
	000314	104375 				EMT	375
    158	000316	005067 	000000G			CLR	.ABCNT		; +++002 RESET AUTO-BAUD COUNT
    159	000322	000462 				BR	120$		;EXIT -- CHANGE OF PROTOCOL
    160						;
    161	000324				80$:
    162	000324	040261 	000000G			BIC	R2,A.EF(R1)	;TURN OFF FLAG
    163	000330	005767 	000000G			TST	.ABFLG		; +++002 AUTO-BAUD FLAGGED??
    164	000334	003402 				BLE	90$		; +++002 NO -- GO ON
    165	000336	005304 				DEC	R4		; +++002 YES -- COUNT THIS LINE
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3-2
MACRO DEFINITIONS

    166	000340	001406 				BEQ	100$		; +++002 AND EXIT IF DONE
    167	000342				90$:				; +++002
    168	000342	105267 	000135 			INCB	UNIT		;UPDATE UNIT
    169	000346	062705 	000010 			ADD	#10,R5		;POINT TO NEXT TTY ENTRY
    170	000352	005300 				DEC	R0		; COUNT THIS LINE
    171	000354	001233 				BNE	10$		; CONTINUE...
    172	000356				100$:
    173	000356	005767 	000000G			TST	.ABFLG		; +++002 AUTO-BAUD FLAGGED??
    174	000362	003404 				BLE	110$		; +++002 NO -- JUST EXIT
    175	000364	005767 	000000G			TST	.ABCNT		; +++002 YES -- ARE WE REALLY DONE??
    176	000370	001203 				BNE	.STSPD		; +++002 NO -- START FROM THE TOP AGAIN
    177	000372	000436 				BR	120$		; +++002 YES -- EXIT
    178						;
    179	000374				110$:				; +++002
    180	000374	012703 	000000G			MOV	#D.CCLK,R3	; +++002 SEND THE TIME OF DAY
    181	000400	005002 				CLR	R2		;NO EVENT FLAG THIS TIME
    182	000402	012701 	100000G			MOV	#100000+BC.HTD,R1 ;RETURN TIME OF DAY
    183	000406	012700 	000000G			MOV	#.CLKSW,R0	;SEND TIME TO 10
    184	000412	012710 	000014 			MOV	#14,@R0		;PUT IN SIZE
    185	000416					CALL	..STIN		;START FUNCTION
	000416	004767 	000000G			JSR	PC,..STIN
    186	000422	103732 				BCS	70$
    187	000424	016767 	000000G	000064 		MOV	.KLERW,KLERR
    188	000432	012703 	000000G			MOV	#D.CCPU,R3	;DEVICE CPU ERROR
    189	000436	005002 				CLR	R2		;DON'T WAIT FOR THIS ONE EITHER
    190	000440	012701 	100000G			MOV	#100000+BC.HDS,R1
    191	000444	012700 	000512'			MOV	#DEVERS,R0
    192	000450					CALL	..STIN		;START FUNCTION
	000450	004767 	000000G			JSR	PC,..STIN
    193	000454	103715 				BCS	70$
    194	000456	005067 	000000G			CLR	.KLERW
    195	000462					DIR$	#RQKLX		; REQUEST "KLXFR"
	000462	012746 	000654'			MOV	#RQKLX,-(SP)
	000466	104375 				EMT	375
    196	000470				120$:				; +++002
    197	000470	005067 	000000G			CLR	.ABFLG		; +++002 CLEAR THE INTERLOCK
    198	000474					EXIT$S			;EXIT (BYE)
	000474	012746 				MOV	(PC)+,-(SP)
	000476	   063 	   001 			.BYTE	51.,1
	000500	104375 				EMT	375
    199					;
    200	000502				SIZE:
    201	000502	   006 				.BYTE	6
    202	000503				UNIT:
    203	000503	   000 				.BYTE	0
    204	000504				INPSPD:
    205	000504	000000 				.WORD	0
    206	000506				OUTSPD:
    207	000506	000000 				.WORD	0
    208	000510				REMOTE:
    209	000510	000000 				.WORD	0
    210					;
    211	000512				DEVERS:
    212	000512	   006 	   000 			.BYTE	6,0
    213	000514	000000G				.WORD	DV.LOG
    214	000516				KLERR:
    215	000516	000000 				.WORD	0
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3-3
MACRO DEFINITIONS

    216					;
    217					;
    218	000520				SPMSG:
    219	000520					QIOW$	IO.WLB,1,2,0,0,0,<SPMES,SPSZ,40> ; +++001
	000520	   003 	   011 			.BYTE	3,$$$ARG
	000522	000000G				.WORD	IO.WLB
	000524	000001 				.WORD	1
	000526	   002 	   000 			.BYTE	2,0
	000530	000000 				.WORD	0
	000532	000000 				.WORD	0
	000534	000542'				.WORD	SPMES
	000536	000056 				.WORD	SPSZ
	000540	000040 				.WORD	40
    220
    221					;
    222	000542				SPMES:
    223	000542	   123 	   105 	   124 		.ASCII	/SETSPD -- *FATAL* PRIMARY PROTOCOL NOT RUNNING/
	000545	   123 	   120 	   104
	000550	   040 	   055 	   055
	000553	   040 	   052 	   106
	000556	   101 	   124 	   101
	000561	   114 	   052 	   040
	000564	   120 	   122 	   111
	000567	   115 	   101 	   122
	000572	   131 	   040 	   120
	000575	   122 	   117 	   124
	000600	   117 	   103 	   117
	000603	   114 	   040 	   116
	000606	   117 	   124 	   040
	000611	   122 	   125 	   116
	000614	   116 	   111 	   116
	000617	   107
    224		000056 			SPSZ=.-SPMES
    225						.EVEN
    226					;
    227					;
    228	000620				SPDTBL:
    229	000620	000000 				.WORD	0
    230	000622	000062 				.WORD	50.		;BAUD RATES
    231	000624	000113 				.WORD	75.
    232	000626	000156 				.WORD	110.
    233	000630	000206 				.WORD	134.
    234	000632	000226 				.WORD	150.
    235	000634	000310 				.WORD	200.
    236	000636	000454 				.WORD	300.
    237	000640	001130 				.WORD	600.
    238	000642	002260 				.WORD	1200.
    239	000644	003410 				.WORD	1800.
    240	000646	004540 				.WORD	2400.
    241	000650	011300 				.WORD	4800.
    242	000652	022600 				.WORD	9600.
    243					;
    244	000654				RQKLX:
    245	000654					RQST$	KLXFER
	000654	   013 	   007 			.BYTE	11.,7
	000656	043270 	023132 			.RAD50	/KLXFER/
	000662	000000 	000000 			.WORD	0,0
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3-4
MACRO DEFINITIONS

	000666	000000 				.WORD
	000670	   000 	   000 			.BYTE	,
    246		000000'				.END	.STSPD
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3-5
SYMBOL TABLE

A.EF  = ****** GX	DIKL10= 000010   	OUTSPD  000506R  	SPMSG   000520R  	.CONBT= 012000
BC.HDS= ****** GX	DLYCNT= 174400   	PERCLR= 001000   	SPSZ  = 000056   	.CRTSK= ****** GX
BC.HTD= ****** GX	DON10C= 040000   	PHYS  = 100000   	STAT  = 174434   	.CSHRG= 164000
BC.STS= ****** GX	DON10S= 100000   	PIDENT= 000000   	STATUS= 000022   	.DQDLS= ****** GX
BIT0  = 000001   	DON11C= 000100   	PRI7  = 000340   	STSW0 = ****** GX	.DRLTC= 015000
BIT1  = 000002   	DON11S= 000200   	PROPNT= 000021   	STSW1 = ****** GX	.DSACF= 066000
BIT10 = 002000   	DPS4  = 040000   	PRTOFF= 004000   	SWR   = 177570   	.DSIOJ= 065000
BIT11 = 004000   	DRESET= 000100   	PR0   = 000000   	SWSLLT= 100000   	.EIOJA= 067000
BIT12 = 010000   	DR.DTE= 000011   	PR1   = 000040   	TENAD1= 174410   	.GFNR = 102000
BIT13 = 020000   	DSEND = 000004   	PR2   = 000100   	TENAD2= 174412   	.INICL= 070000
BIT14 = 040000   	DS04  = 004000   	PR3   = 000140   	TOBM  = 000004   	.IRLTC= 014000
BIT15 = 100000   	DS05  = 002000   	PR4   = 000200   	TOD   = 000003   	.KLERW= ****** GX
BIT2  = 000004   	DS06  = 001000   	PR5   = 000240   	TOIP  = 000002   	.LCRDL= 052000
BIT3  = 000010   	DTECMD= 000451   	PR6   = 000300   	TOIT  = 000001   	.LCRDR= 051000
BIT4  = 000020   	DTEFLG= 000444   	PR7   = 000340   	TO10  = 000200   	.LCRM1= 057000
BIT5  = 000040   	DTEF11= 000450   	PS    = 177776   	TO10AD= 174420   	.LCRM2= 056000
BIT6  = 000100   	DTEMTD= 000455   	PSWW1 = 000005   	TO10BC= 174414   	.LCRM3= 055000
BIT7  = 000200   	DTEMTI= 000456   	PSWW10= 000014   	TO10BM= 000001   	.LCRM4= 054000
BIT8  = 000400   	DUPE  = 000020   	PSWW11= 000015   	TO10DB= 000400   	.LCRM5= 053000
BIT9  = 001000   	DURE  = 000004   	PSWW12= 000016   	TO10DN= 100000   	.LDAR = 077000
BPARER= 000020   	DV.LOG= ****** GX	PSWW13= 000017   	TO10DT= 174424   	.LDBRL= 043000
CDD   = 000020   	DXWRD1= 002000   	PSWW2 = 000006   	TO10ER= 020000   	.LDBRR= 042000
CHNPNT= 000001   	D.CCLK= ****** GX	PSWW3 = 000007   	TO11  = 000100   	.LDCK1= 046000
CNUPE = 000002   	D.CCPU= ****** GX	PSWW4 = 000010   	TO11AD= 174422   	.LDCK2= 047000
CS.EXP= 177670   	D.CDLS= ****** GX	PSWW5 = 000011   	TO11BC= 174416   	.LDDIS= 045000
CYCLS = 000002   	D1011 = 000040   	PSWW6 = 000012   	TO11BM= 020000   	.LDRJD= 064000
DATE  = 000004   	EBSEL = 000100   	PSWW7 = 000013   	TO11DB= 004000   	.LDRJV= 063000
DCOMST= 000001   	EBUSPC= 000020   	PULSE = 000020   	TO11DN= 000200   	.LDRM1= 060000
DEP   = 010000   	EBUSPS= 000004   	QSIZE = 000023   	TO11DT= 174426   	.LDRM2= 061000
DEVERS  000512R  	EDONES= 040000   	Q.IOAE= 000012   	TO11ER= 000002   	.LDRM3= 062000
DEX   = 000400   	EF.PR1= ****** GX	Q.IOEF= 000006   	TT.ABL= ****** GX	.LDSEL= 044000
DEXDON= 000004   	EPTR  = 000000   	Q.IOFN= 000002   	TT.RMT= ****** GX	.MEMRS= 076000
DEXWD1= 174406   	ERR10C= 010000   	Q.IOLU= 000004   	UNASG1= 000032   	.PCAB1= 150000
DEXWD2= 174404   	ERR10S= 020000   	Q.IOPL= 000014   	UNASG2= 000033   	.PCAB2= 151000
DEXWD3= 174402   	ERR11C= 000001   	Q.IOPR= 000007   	UNASG3= 000034   	.PCAB3= 152000
DFUNC = 000200   	ERR11S= 000002   	Q.IOSB= 000010   	UNASG4= 000035   	.PCAB4= 153000
DF.DMG= 000004   	FORPRO= 000020   	RAMIS0= 010000   	UNASG5= 000036   	.RCRM1= 147000
DF.DMN= 000007   	HIBYTE= 177400   	REMOTE  000510R  	UNASG6= 000037   	.RCRM2= 146000
DF.DOR= 000001   	IFLOP = 100000   	RFMAD0= 100000   	UNIT    000503R  	.RCRM3= 145000
DF.EHG= 000010   	INPSPD  000504R  	RFMAD1= 040000   	WEP   = 000010   	.RCRM4= 144000
DF.EHM= 000011   	INTROF= 000010   	RFMAD2= 020000   	ZSTOP = 040000   	.RCSPF= 141000
DF.EMG= 000005   	INTRON= 000040   	RFMAD3= 010000   	$$    = 000067   	.RDJ14= 134000
DF.EMN= 000006   	INTSON= 000001   	RM    = 000010   	$$$ARG= 000011   	.RDJ71= 135000
DF.KLR= 000012   	INT10S= 000400   	RQKLX   000654R  	$$$OST= 000016   	.RDMAB= 133000
DF.KLW= 000013   	INT11C= 002000   	R.QSGC= 000015   	$$$T1 = 000000   	.SECLK= 003000
DF.KLX= 000014   	INT11S= 004000   	R.QSPC= 000014   	.ABCNT= ****** GX	.SETMR= 007000
DF.OFF= 000002   	IO.WLB= ****** GX	R.QSPN= 000006   	.ABFLG= ****** GX	.SETRN= 011000
DF.ON = 000003   	KLERR   000516R  	R.QSPR= 000012   	.BRCLK= 005000   	.SSCLK= 002000
DF.PDP= 000016   	KLPWRF= 000010   	R.QSTN= 000002   	.CECLK= 004000   	.STPCL= 000000
DF.PEX= 000015   	LOAD11= 000004   	SCD   = 000040   	.CLKSW= ****** GX	.STRCL= 001000
DHTBL = ****** GX	MPE11 = 001000   	SIZE    000502R  	.CLRMR= 006000   	.STSPD  000000RG
DIAG1 = 174430   	NULSTP= 000040   	SPDTBL  000620R  	.CLRUN= 010000   	.WRMBX= 071000
DIAG2 = 174432   	NUPE  = 000002   	SPMES   000542R  	.COMEF= ****** GX	..STIN= ****** GX
DIAG3 = 174436

. ABS.	000000	   000
      	000672	   001
SET SPEED AND RETURN TIME OF DA	MACRO M1108  16-JAN-78 19:03  PAGE 3-6
SYMBOL TABLE

ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  4478 WORDS  ( 18 PAGES)
DYNAMIC MEMORY:  5216 WORDS  ( 20 PAGES)
ELAPSED TIME:  00:00:25
,[47,20]SETSPD.LIS/-SP/CRF=[47,30]SETSPD
SETSPD     CREATED BY  MACRO  ON 16-JAN-78 AT 19:03	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

A.EF  	= ******  GX	 3-151     *3-162     
BC.HDS	= ******  GX	 3-190     
BC.HTD	= ******  GX	 3-182     
BC.STS	= ******  GX	 3-144     
BIT0  	= 000001	#2-59      
BIT1  	= 000002	#2-59      
BIT10 	= 002000	#2-59      
BIT11 	= 004000	#2-59      
BIT12 	= 010000	#2-59      
BIT13 	= 020000	#2-59      
BIT14 	= 040000	#2-59      
BIT15 	= 100000	#2-59      
BIT2  	= 000004	#2-59      
BIT3  	= 000010	#2-59      
BIT4  	= 000020	#2-59      
BIT5  	= 000040	#2-59      
BIT6  	= 000100	#2-59      
BIT7  	= 000200	#2-59      
BIT8  	= 000400	#2-59      
BIT9  	= 001000	#2-59      
BPARER	= 000020	#2-59      
CDD   	= 000020	#2-59      
CHNPNT	= 000001	#2-59      
CNUPE 	= 000002	#2-59      
CS.EXP	= 177670	#2-59      
CYCLS 	= 000002	#2-59      
DATE  	= 000004	#2-59      
DCOMST	= 000001	#2-59      
DEP   	= 010000	#2-59      
DEVERS	  000512 R	 3-191     #3-211     
DEX   	= 000400	#2-59      
DEXDON	= 000004	#2-59      
DEXWD1	= 174406	#2-59      
DEXWD2	= 174404	#2-59      
DEXWD3	= 174402	#2-59      
DFUNC 	= 000200	#2-59      
DF.DMG	= 000004	#2-59      
DF.DMN	= 000007	#2-59      
DF.DOR	= 000001	#2-59      
DF.EHG	= 000010	#2-59      
DF.EHM	= 000011	#2-59      
DF.EMG	= 000005	#2-59      
DF.EMN	= 000006	#2-59      
DF.KLR	= 000012	#2-59      
DF.KLW	= 000013	#2-59      
DF.KLX	= 000014	#2-59      
DF.OFF	= 000002	#2-59      
DF.ON 	= 000003	#2-59      
DF.PDP	= 000016	#2-59      
DF.PEX	= 000015	#2-59      
DHTBL 	= ******  GX	 3-101     
DIAG1 	= 174430	#2-59      
SETSPD     CREATED BY  MACRO  ON 16-JAN-78 AT 19:03	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DIAG2 	= 174432	#2-59      
DIAG3 	= 174436	#2-59      
DIKL10	= 000010	#2-59      
DLYCNT	= 174400	#2-59      
DON10C	= 040000	#2-59      
DON10S	= 100000	#2-59      
DON11C	= 000100	#2-59      
DON11S	= 000200	#2-59      
DPS4  	= 040000	#2-59      
DRESET	= 000100	#2-59      
DR.DTE	= 000011	#2-59      
DSEND 	= 000004	#2-59      
DS04  	= 004000	#2-59      
DS05  	= 002000	#2-59      
DS06  	= 001000	#2-59      
DTECMD	= 000451	#2-59      
DTEFLG	= 000444	#2-59      
DTEF11	= 000450	#2-59      
DTEMTD	= 000455	#2-59      
DTEMTI	= 000456	#2-59      
DUPE  	= 000020	#2-59      
DURE  	= 000004	#2-59      
DV.LOG	= ******  GX	 3-213     
DXWRD1	= 002000	#2-59      
D.CCLK	= ******  GX	 3-180     
D.CCPU	= ******  GX	 3-188     
D.CDLS	= ******  GX	 3-142     
D1011 	= 000040	#2-59      
EBSEL 	= 000100	#2-59      
EBUSPC	= 000020	#2-59      
EBUSPS	= 000004	#2-59      
EDONES	= 040000	#2-59      
EF.PR1	= ******  GX	 3-131     
EPTR  	= 000000	#2-59      
ERR10C	= 010000	#2-59      
ERR10S	= 020000	#2-59      
ERR11C	= 000001	#2-59      
ERR11S	= 000002	#2-59      
FORPRO	= 000020	#2-59      
HIBYTE	= 177400	#2-59      
IFLOP 	= 100000	#2-59      
INPSPD	  000504 R	*3-105     *3-123     #3-204     
INTROF	= 000010	#2-59      
INTRON	= 000040	#2-59      
INTSON	= 000001	#2-59      
INT10S	= 000400	#2-59      
INT11C	= 002000	#2-59      
INT11S	= 004000	#2-59      
IO.WLB	= ******  GX	 3-219     
KLERR 	  000516 R	*3-187     #3-214     
KLPWRF	= 000010	#2-59      
LOAD11	= 000004	#2-59      
SETSPD     CREATED BY  MACRO  ON 16-JAN-78 AT 19:03	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MPE11 	= 001000	#2-59      
NULSTP	= 000040	#2-59      
NUPE  	= 000002	#2-59      
OUTSPD	  000506 R	*3-106     *3-128     #3-206     
PERCLR	= 001000	#2-59      
PHYS  	= 100000	#2-59      
PIDENT	= 000000	#2-59      
PRI7  	= 000340	#2-59      
PROPNT	= 000021	#2-59      
PRTOFF	= 004000	#2-59      
PR0   	= 000000	#2-59      
PR1   	= 000040	#2-59      
PR2   	= 000100	#2-59      
PR3   	= 000140	#2-59      
PR4   	= 000200	#2-59      
PR5   	= 000240	#2-59      
PR6   	= 000300	#2-59      
PR7   	= 000340	#2-59      
PS    	= 177776	#2-59       3-96       3-96       3-99      
PSWW1 	= 000005	#2-59      
PSWW10	= 000014	#2-59      
PSWW11	= 000015	#2-59      
PSWW12	= 000016	#2-59      
PSWW13	= 000017	#2-59      
PSWW2 	= 000006	#2-59      
PSWW3 	= 000007	#2-59      
PSWW4 	= 000010	#2-59      
PSWW5 	= 000011	#2-59      
PSWW6 	= 000012	#2-59      
PSWW7 	= 000013	#2-59      
PULSE 	= 000020	#2-59      
QSIZE 	= 000023	#2-59      
Q.IOAE	= 000012	#3-219     
Q.IOEF	= 000006	#3-219     
Q.IOFN	= 000002	#3-219     
Q.IOLU	= 000004	#3-219     
Q.IOPL	= 000014	#3-219     
Q.IOPR	= 000007	#3-219     
Q.IOSB	= 000010	#3-219     
RAMIS0	= 010000	#2-59      
REMOTE	  000510 R	*3-133     *3-136     *3-139     #3-208     
RFMAD0	= 100000	#2-59      
RFMAD1	= 040000	#2-59      
RFMAD2	= 020000	#2-59      
RFMAD3	= 010000	#2-59      
RM    	= 000010	#2-59      
RQKLX 	  000654 R	 3-195     #3-244     
R.QSGC	= 000015	#3-245     
R.QSPC	= 000014	#3-245     
R.QSPN	= 000006	#3-245     
R.QSPR	= 000012	#3-245     
R.QSTN	= 000002	#3-245     
SETSPD     CREATED BY  MACRO  ON 16-JAN-78 AT 19:03	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SCD   	= 000040	#2-59      
SIZE  	  000502 R	 3-145     #3-200     
SPDTBL	  000620 R	 3-123      3-128     #3-228     
SPMES 	  000542 R	 3-219     #3-222      3-224     
SPMSG 	  000520 R	 3-157     #3-218     
SPSZ  	= 000056	 3-219     #3-224     
STAT  	= 174434	#2-59      
STATUS	= 000022	#2-59      
STSW0 	= ******  GX	 3-110     *3-130     
STSW1 	= ******  GX	 3-134      3-137     
SWR   	= 177570	#2-59      
SWSLLT	= 100000	#2-59      
TENAD1	= 174410	#2-59      
TENAD2	= 174412	#2-59      
TOBM  	= 000004	#2-59      
TOD   	= 000003	#2-59      
TOIP  	= 000002	#2-59      
TOIT  	= 000001	#2-59      
TO10  	= 000200	#2-59      
TO10AD	= 174420	#2-59      
TO10BC	= 174414	#2-59      
TO10BM	= 000001	#2-59      
TO10DB	= 000400	#2-59      
TO10DN	= 100000	#2-59      
TO10DT	= 174424	#2-59      
TO10ER	= 020000	#2-59      
TO11  	= 000100	#2-59      
TO11AD	= 174422	#2-59      
TO11BC	= 174416	#2-59      
TO11BM	= 020000	#2-59      
TO11DB	= 004000	#2-59      
TO11DN	= 000200	#2-59      
TO11DT	= 174426	#2-59      
TO11ER	= 000002	#2-59      
TT.ABL	= ******  GX	 3-137     
TT.RMT	= ******  GX	 3-134     
UNASG1	= 000032	#2-59      
UNASG2	= 000033	#2-59      
UNASG3	= 000034	#2-59      
UNASG4	= 000035	#2-59      
UNASG5	= 000036	#2-59      
UNASG6	= 000037	#2-59      
UNIT  	  000503 R	*3-95      *3-168     #3-202     
WEP   	= 000010	#2-59      
ZSTOP 	= 040000	#2-59      
$$    	= 000067	#3-146      3-146     #3-185      3-185     #3-192      3-192     
$$$ARG	= 000011	#3-219      3-219     #3-219      3-219     #3-219      3-219     #3-219      3-219     
$$$GLB	= ******	 3-219      3-219      3-219      3-219      3-219      3-219      3-219      3-219      3-245     
                         3-245      3-245      3-245      3-245      3-245     
$$$OST	= 000016	#3-219      3-219      3-219     #3-219      3-219      3-219     #3-219      3-219      3-219     
                        #3-219      3-219      3-219     #3-219      3-219      3-219     #3-219      3-219      3-219     
                        #3-219      3-219     #3-245      3-245      3-245     #3-245      3-245      3-245     #3-245     
SETSPD     CREATED BY  MACRO  ON 16-JAN-78 AT 19:03	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         3-245      3-245     #3-245      3-245      3-245     #3-245      3-245      3-245     #3-245     
$$$T1 	= 000000	#3-245      3-245      3-245      3-245     #3-245      3-245     
.ABCNT	= ******  GX	 3-97      *3-98      *3-158      3-175     
.ABFLG	= ******  GX	 3-103      3-111      3-163      3-173     *3-197     
.BRCLK	= 005000	#2-59      
.CECLK	= 004000	#2-59      
.CLKSW	= ******  GX	 3-183     
.CLRMR	= 006000	#2-59      
.CLRUN	= 010000	#2-59      
.COMEF	= ******  GX	 3-131     
.CONBT	= 012000	#2-59      
.CRTSK	= ******  GX	 3-149     
.CSHRG	= 164000	#2-59      
.DQDLS	= ******  GX	 3-92       3-93      
.DRLTC	= 015000	#2-59